Page 2
Scanner! for: //wuw.amstradeus„c [ U | 1 ■ S P .S ® ! M O I...
Page 3
Introduction AM STRAD CPC664 Ordinateur à unité de disque intégrée Qui sommes-nous ? Logiciels disponibles et compatibilité Une unité de disque, pourquoi ? Merci Digital Research... AMSTRAD CPC664 Introduction...
Page 8
TABLE DES MATIERES Chapitre 1 Cours Elémentaire Chapitre 2 Passons aux choses sérieuses... Chapitre 3 Liste complète des mots clés du BASIC AMSTRAD du CPC664...
Page 9
Chapitre 4 Utilisation des disquettes et des cassettes Chapitre 5 Les éléments d’AMSDOS et du CP/M...
Page 10
Chapitre 6 Introduction au LOGO Chapitre 7 Pour information... CPC 664 TABLE DES MATIERES...
Page 11
Chapitre 7 (suite) Chapitre 8 A vos heures de loisir...
Page 17
Mise sous tension : CPC664 et boîtier d’adaptation MP2 Aastrad 64K Microcomputer <v2> @1984 Amstrad Consumer Electronics pic and Locomotive Software L t d . BASIC 1.1 Ready Cours élém entaire Chapitre 1 Page 5...
Page 18
Autres connexions : Chapitre 1 P age 6 Cours élém entaire...
Page 19
Partie 2 : Connexion de vos périphériques Manettes de jeu Lecteur/enregistreur de cassettes Cours élém entaire Chapitre 1 Page 7...
Page 20
Imprimante Unité de disquette supplémentaire (AMSTRAD FD1) Chapitre 1 P age 8 Cours élém entaire...
Page 26
Quand la disquette est à l’intérieur de l’unité de disquette Voyant Bouton indicateur poussoir Le voyant indicateur Le bouton-poussoir...
Page 27
Partie 4 : Informations préalables O O < D c> TOUCHES DE DEPLACEMENT DU CURSEUR [CO P Y] [ENTER] [ENTER]. [ENTER], [ENTER], [ENTER], [ENTER] [DEL] abcd [DEL] [DEL], [SHIFT] [SHIFT], Chapitre 1 Page 15 Cours élém entaire...
Page 29
[SHIFT], [CTRL], [CAPS LOCK]. âbcdef123456 A B C D E F ! "#$'/.& [CTRL] [CAPS LOCK], [CAPS LOCK] [CLR] ABCDEFGH. (H). [CLR] [CLR]...
Page 30
IM PORTANT [ENTER], [ENTER] SYNTAX ERROR) Syntax Error SYNTAX ERROR p r i n t t [ENTER] Synta x error printt. 10 p r i n t t "abc" [ENTER] SYNTAX ERROR run [ENTER] Syntax e r ror in 10 10g|r i n t t "abc"...
Page 31
printt ; [CLR] [ENTER] run [ E N TE R] Chapitre 1 Page 19 Cours élém entaire...
Page 32
Partie 5 : Chargement des logiciels et des jeux... run " r o i n t i m e . d e m " [ENTER] [ESC] [CTRL] [SHIFT], D r i v e A: Disc m i s s i n g Retry, I g n o r e or C a n c e l ? R O I N T I M E .
Page 33
Type misffiatch Syntax error Drive A: read f a i l Retry, Ignore or Cancel? Chargement du logiciel AMSOFT et du programme « BIENVENUE » [CTRL], [SHIFT] [ESC], » Cours élém entaire Chapitre 1 Page 21...
Page 34
Partie 6 : Passons à la programmation... erreurs de syntaxe. Introduction aux mots clés du BASIC AMSTRAD cls [ENTER! Ready PRINT pri n t " b o n j o u r " [ENTER] Cours élém entaire Chapitre 1 Page 22...
Page 35
b o n j o u r [ENTER] cls C E N T E R 3 [ENTER], [ENTER], 10 p r i n t " b o n j o u r " [ENTER] [ENTER], run [ENTE R] bonjour PRINT 10 ? "...
Page 36
PRINT cls [ENTER] 10 P R I N T " b a n j o u r " [ENTER] G O T O 10 [ENTER] run [ENTE R] [ESC]. [ESC] cls [ENTE R] bonjour 10 P R I N T " b o n j o u r "; [ENTE R] 20 GOTO 10 [ENTER] run [ENTE R] Cours élém entaire...
Page 37
[ESC]. 10 P R I N T " b o n j o u r \ C E N T E R 3 run [ENT E R ] ZONE, [ESC]. [SHIFT], [CTRL] [ESC], INPUT 10 INPUT "Quel âge a v e z - v o u s " ; âge [ENTE R] 20 P R I N T "...
Page 38
[CTRL] [SHIFT] [ESC]. bonjour mon). 10 INPUT "Quel est ton nom";nom$ [ENTER] 20 PRINT"bonjour ";nom*;" «on nom est Roland" [ENTER] run [ENTER] Quel est ton nom? [ENTER] bonjour Fred m on nom est Roland nom$ [CTRL] [SHIFT] [ESC], 5 CLS [ENTER] 10 INPUT "Quel est ton noe“...
Page 39
d o i s d i r e F r e d que tu ne f a i s pas tes 18 ans. Editer un programme Syn- tax error 5 C L S S [ENTE R] 10 INPUT "Quel est to noiti";a* [ENTE R] 20 INPUT "Quel est ton a g e "...
Page 40
[ENTER], l i s t [ENTER] AUTO, Méthode par copie avec le curseur [SHIFT] [SHIFT] [COPY] [COPY] [ENTER] [SHIFT] [COPY] [COPY] [ENTER], l i s t [ENTER] [CTRL] [CRTL], [SHIFT] [ESC]. TH EN Cours élém entaire Chapitre 1 P age 28...
Page 41
1+1=2 then p r i n t "vr ai" [ENTER] 1+1=0 then p r i n t "vrai" elee p r i n t "faux" [ENTER] IF THEN. 5 CLS [ENTER] 10 INPUT "quel est ton noe-ja * [ENTER] 20 INPUT "quel âge as- tu" jage [ENTER] 30 IF âge <...
Page 42
[CTRL], [SHIFT] [ESC], FOR et NEXT NEXT. NEXT NEXT. 5 CLS CENTE R] 10 FOR a=l TO 10 [ENTE R] 20 P R I N T “A C T I Q N e x e c u t e e " ; a f o i s " [ E N T E R ] 30 NEXT a [ENTE R] run [ENTE R] STE P...
Page 43
[SHIFT] :REM : ’ Pan sur les envahisseurs [ENTER] 20 V=5’ nombre de vies [ENTER] GOSUB GOSUB, RETURN. GOSUB 10 M ODE 2 [ENTER] 20 PRINT"Dame souris t r o t t e , " [ENTER] 30 PRINT"Noire dans l e g ri s du s o i r , " [ENTER] 40 PRINT"Dame souris t r o t t e , "...
Page 44
210. RETU R N GOSUB 190 GOSUB 210 10 MODE 2 C E N T E R 1 20 GOS U B 190 [ENTER] 30 P R I N T " N o i r e dans le gris du so i r , " C E N T E R 3 40 G O S U B 190 [ENTER] 50 P R I N T "...
Page 46
Division [SHIFT]) ?3/3 [ENTER] ?8/4 [ENTER] Division entière ? 10\ 6 [ENTER] ?20\3 [ENTER] à Modulo ? 10 M O D 4 ?9 M O D 3 Racine carrée ?sqr<16) [ENTER] (ceci veut d i r e '/l£) Chapitre 1 P age 34 Cours élém entaire...
Page 47
?sqr (100) CENTE R] Puissances ?3t3 [ E N TE R] (ceci veut d i r e 3 ; ) ?8Î4 [ E N TE R] (ceci veut d i r e 8 4 ) 4096 Racines cubiques ? 2 7 T (1/3) [ENTE R] ? 1 2 5 T ( l / 3 ) [ENTE R]...
Page 49
Encore des puissances... 3E2. 3E-2. 7 3 0 * 1 0 1ENTE R3 ? 3 E 1 * 1E 1 [ENT E R ] 7 3 0 0 0 1 1 0 0 0 [ E N T E R ] .
Page 50
Partie 7 : Sauvegarde Formatage des disquettes Chapitre 1 P age 38 Cours élém entaire...
Page 51
Premières étapes pour l’utilisation de la disquette C P/M i cpm CENTER] [SHIFT] CP/M 2.2 - Amstrad Consumer Electronics pic A > Ready CLS? Chapitre 1 Page 39 Cours élém entaire...
Page 52
dir [ENTE R] format. f o r m a t [ENTER] P l e a s e inser t dise to be f o r m a t t e d into d r i v e A then p r e s s any key. Do you want to f o r m a t a n o t h e r dise (Y/N): P l e a s e in s e r t a C P / M s y s t è...
Page 53
Sauvegarde d’un programme sur disquette save " n o m f i c h " [ E N TE R] .BAS .BIN s a v e " e x e m p l e " [ENTER] Ready Catalogue cat [ E N T E R ] D r i v e A user S ) ï...
Page 54
Chargement d’un programme sur disquette load "nomfich" [ENTER] run [ENTER] run "nomfich" [ENTER] I A et | B la [ENTER] !b [ENTER] SAVE, CAT LOAD. Copie de programmes de disquette à disquette Cours élém entaire Chapitre 1 P age 42...
Page 55
! b [ENTER] load " n o m f i c h " [ E N TE R] ! a [ENTER] sa v e " n o m f i c h " [ E N TE R] run " n o m l i c h " [ENTE R] s a v e a [ENTE R]...
Page 56
sa v e " p a g e c r a n " , b , 4 9 1 5 2 , 1 6 3 8 4 [ E N T E R 3 load " p a g e c r a n " [ENTE R] Cours élém entaire Chapitre 1 P age 44...
Page 57
Partie 8 : Modes couleurs et graphiques [ENTER], Syntax Error Ready. mo d e 0 [ENTE R] [ENTER] m o d e 2 [ENTE R] [ENTER] Chapitre 1 Page 45...
Page 58
Couleurs BORDER, PAPER Tableau des couleurs Couleur de l’encre Couleur de l’encre Noir Bleu Pastel Bleu Orange Bleu Vif Rose Rouge Magenta Pastel Magenta Vert Vif Mauve Vert Marin Rouge Vif Turquoise Vif Violet Vert Citron Magenta V if Vert Pastel Vert Turquoise Pastel Turquoise...
Page 59
Configuration de l’écran S T Y L O B O R D U R E P A P IE R BORDER PAPER. BORDER PAPER PAPER (PEN) BORDER b o r d e r 13 [ENTER] PAPER PAPER = 0, PEN PAPER O PEN 1 Chapitre 1 Page 47 Cours élém entaire...
Page 60
PEN IN K, Couleurs par défaut Cours élém entaire Chapitre 1 Page 48...
Page 62
paper 2 [ENTER] PAPER ink 2,0 [ENTER] IIM K ink 1,2 [ENTER] cls [ENTER] BORDER, PAPER, PEN INKÏ FCTRL] [SHIFT] [ESC], Couleurs clignotantes (Flash) PEN. [CTRL] [SHIFT] [ESC] ink 1,26,6 [ENTER] Chapitre 1 P age 50 Cours élém entaire...
Page 63
(PEN), 26 PAPER PAPER ink 0 , 9 , 2 4 [ENTER] PAPER, 9 [CTRL] [SHIFT] [ESC]. 14 15) PAPER 14 15) m o d e 0 [ENTE R] pen 15 [ENTE R] Ready p a per 14 [ E N TE R] cls [ E N TE R] Ready PAPER...
Page 64
(run). 1 6 ) M O D E 6 1 [ENTE R] 20 v i t e B s e = 6 0 0 : R E M D é t e r m i n e la v i t e s s e du p r o g r a m m e [ENTER] 30 FOR b=0 TO 26 [ENTE R] 40 L O C A T E 1,12 [ENTE R] 50 B O R D E R b [ENTE R]...
Page 66
border 0 mode 0 r un mode 2 r un mode 1 locate CHR$ l ocat e 2 0 , 1 2 : p r i n t c h r * (240) 10 CLS 20 FOR X=1 T0 39 30 LOCATE X,20 50 PRINT CHR$(250) 60 NEXT X...
Page 67
50 PR INT " 1 1 ; C H R $ ( 2 5 0 > 40 FRAME 1 i st 70 FOR n=1 TQ 300:NEXT n 80 FOR x = 39 TO 1 STEP -1 90 LOCATE x ,20 100 FRAME 110 PRINT CHR*<...
Page 68
PLOT LO CAT E , PLOT LOCATE, [CTRL] [SHIFT] [ESC], p l o t 320,2019 mode 0 pl ot 320, 200 mode 2 p l a t 320, 200 PLOT. mode 1 DRAW [CTRL] [SHIFT] [ESC]. DRAW PLOT. Cours élém entaire Chapitre 1 Page 56...
Page 70
Cercles x=190*cos(a) y=190* si n( a) Positionnement du centre d’un cercle 10 CLS 20 DEG 30 FOR a=1 T0 360 40 MOVE 320, 200 50 DRAW 320+190*COS( a ) , 2 0 0 +19 0 * S I N <a ) 60 NEXT r un Cours élém entaire...
Page 71
(EDIT) PLOT DRAW. 50 DRAW 320+190* COS( a) , 200+190I SI N( a) N EXT N EXT N EXT, N EXT ORIGIN MO VE 10 CLS 20 FOR a= 1 TO 360 30 ORIGIN 320, ,200 40 PLOT 190I COS( a ) , 190I SI N( a) 50 NEXT r un Chapitre 1 Page 59...
Page 72
10 CLS 20 FOR a=l TO 360 30 ORIGIN 196, 282 40 PLOT 5 0I COS( a ) , 5 0I SI N( a ) 50 ORIGIN 442, 282 60 PLOT 5 0I CQS( a ) , 5 0 * SI N(a) 70 ORIGIN 196, 116 80 PLOT 5 0 I CQS( a ) , 5 0I SI N( a ) 90 ORIGIN 442, 116...
Page 73
inove 32(3,200 fill 3 inove 0 , 0 50 DRAM 50, 50 60 M O VE 320, 200 70 FILL 3 10 CLS 20 FOR « i=l TO 360 30 0RIG1[N 320, 200 40 PLOT 1901005(a) 9 0 I S I N U ) 50 NEXT 60 MOVE - 1 8 8 , 0 70 FILL 3...
Page 75
10 M ODE 1 : BORDER 0 : DEG 20 PR INT"VEUILLEZ PATIENTER " 30 FOR N=1 TO 3 40 INK 0 , 0 : INK 1 , 2 6 : INK 2 , 6 : INK 3, 18 50 IF N=1 THEN SA=120 60 IF N = 2 THEN S A =13 5 70 IF N=3 THEN SA=150 80 IF N=1 THEN ORIGIN 0 , - 5 0 , 0 , 6 4 0 , 0 , 4 0 0 ELSE ORIGIN 0 , 0 , 0 , 6 4...
Page 76
230 PXX(ST, NP(ST)+1)=PXX(ST, 1) 240 PYX(ST, NP(ST)+1)=PYX(ST, 1) 250 NEXT ST 260 CLS:CJ=RESTE(1):CJ=RESTE(2) 270 CJ*RESTE( 3 ) : INK 1,2 : ST = 1 280 60SUB 350 290 LOCATE 1,1 300 EVERY 25, 1 GOSUB 510 310 EVERY 15, 2 GOSUB 550 320 EVERY 5 , 3 GOSUB 590 330 ERASE CX, CY, R, LC, NP, PXX, PYX: NEXT 340 GOTO 340...
Page 77
Partie 9 : Utilisation des sons La commande SO UND SOUND, SOUND < >, < >, < >, < >, Etat de canal Période sonore 478. Chapitre 1 Page 65 Cours élém entaire...
Page 79
Enveloppe de volume ENV. SOUND. SOUND, Enveloppe de tonalité SOUND, SOUND, Bruitage 10 SOUND 1 , 4 7 8 , 2 0 0 , 1 5 , , , 2 Création d’une enveloppe de volume ENV. Chapitre 1 Page 67 Cours élém entaire...
Page 80
Numéro d’enveloppe SOUND. Nombre de pas Amplitude du pas SOUND. -128 +127, 15 (16, 32, 48, 64, 80, 96, Durée du pas 0 255, 256). 10 ENV 1 ,1 0 ,1 , 10 0 20 SOUND 1,284,1000, 1, 1 Chapitre 1 P age 68 Cours élém entaire...
Page 82
Nombre de pas 239. Variation de période sonore affectée à chaque pas -128 +127 Durée du pas 0 255, 256). 10 ENT 1 , 1 0 0 , 2 , 2 20 SOUND 1 , 2 8 4 , 2 0 0 , 15, , 1 0,02 0,01 Chapitre 1 Page 70...
Page 84
Partie 10 : Introduction à A M SD O S et Qu’est-ce qu’AM SDOS ? load "nomfich" run "nomfich" save "nomfich" chai n "nomfich" marge "nomfich" chain merge "nomfich" openin "nomfich" openout "nomfich" cl osei n cl oseout i nput #9 l i n e i nput #9 l i s t #9 p r i n t #9...
Page 85
load "nomfich" Dr i ve B: di se missing Ret r y, I gnore or Cancel Que faire pour utiliser une cassette ? tape tape tape, dise. 1 tape.i n dise.in tape.in tape.out tape.in tape.out dise.in disc.out, Cours élém entaire Chapitre 1 Page 73...
Page 86
Etape Edisc Et ape. i n Etape. out I d i s c . i n Edi sc. out Ea !b Edir I d r i v e Eera Eren iuser Duplication/copie à l’aide de la disquette système CP/M DISCCOPY COPYDISC DISCCOPY.
Page 87
Pl ease i n s e r t d e s t i n a t i o n di se i nt o dr i v e A then press any key Wr i t i ng t r a ck 0 to 7 Do you Want to copy another di se ( Y/ N) : DISCCOPY.
Page 88
DISCCOPY, COPYDISC COPYDISC Vérification des disquettes di scchk Fa i l e d to v e r i f y d e s t i n a t i o n di se c a r r e c t l y : ( t r ack x sect or y) WARNING CHKDISC.
Page 89
di sccapy [CTRL] DISCCOPY, COPYDISC, DISCCHK CHKDISC FORMAT LOAD, SAVE, CAT, Chapitre 1 Page 77 Cours élém entaire...
Page 90
Chapitre 2 Passons aux choses sérieuses... FOR N EXT (IF) (TH EN) Mais par où commencer ? (GOTO) Chapitre 2 Page 1 Passons aux ch oses sérieu ses...
Page 91
Ecrivons un petit programme 10 REM r é p e r t o i r e t él éphoni que (IN PUT) NOM$. TEL$ IN PUT 20 INPUT " ent r ez l e nom";NQM* 30 INPUT "ent r ez l e numéro de t el ephone"j TEL* r un NOM$ TEL$,...
Page 92
INPUT PRINT NOM$(27) NOM$(x) FOR N EXT (FOR x = 1 TO 100). 2 1 3 DIM NOM* (100) 30 DIM TEL*(100) 40 FOR = l T0 100 50 INPUT "entrez le non»" ; N0M$ 60 INPUT "entrez le numéro de tel ephone": TEL$(x) 70 NEXT CLS : 45 CLS...
Page 93
NOM$(x) 55 IF NQM$( x ) = " " THEN 80 80 PRI NT"entree des données t ermi née" 47 PRINT"pour a r r ê t e r appuyer [ENTER]" 90 FOR x=l TO 100 100 PRINT N0M$( x ); " ";TEL$(x> 110 NEXT 95 IF N0M$( x ) = "...
Page 94
150 : INSTR. NOMS RECHERCHE$ 130, INSTR x (NEXT). INSTR 160, Et si jamais ? NOM$ TEL$ Réponses Passons aux ch oses sérieu ses... Chapitre 2 P age 5...
Page 95
32 PRI NT"1. a j o u t e r un correspondant" 33 PRINT "2. l i s t e r l es correspondants" 34 P RIN T"3. c onsul t er l e r é p e r t o i r e " 35 PRINT "4.
Page 96
36 FRINT"5. charger l e r é p e r t o i r e " 37 INPUT"votre choix (pui s ENTER) "; t h 38 O N ch GOSÜB 4 0, 9 0 , 1 3 8 39 GOTO 32 40 FOR x = l TO 100 45 CLS 47 F'RlNT"pour a r r ê...
Page 97
Passons aux ch o ses sérieu ses... Chapitre 2 Page 8...
Page 98
données Chapitre 2 Page 9 Passons aux ch o ses sérieu ses...
Page 99
§ Une petite digression... Revenons à notre programme... Passons aux ch o ses sérieu ses... Chapitre 2 Page 10...
Page 100
La fin du commencement... Et le commencement de la fin... 34 M O D E 1 36 W I N D O W « 1 , 7 , 3 6 , 10, 14 WINDOW LOCATE). 48 P R INT «1, "1. 58 PRINT #1, "2.
Page 107
AFTER GOSUB AFTER EVERY, REMAIN, RETURN OR, NOT, XOR. Chapitre 3 P age 4 Mots clé s du BASIC...
Page 108
0 . 78539B163 Mots clé s du BASIC "’ . iapitre 3 P age 5...
Page 109
BIN$ P R I N T B I N $ (64,8) 0 1 0 0 0 0 0 0 DEC$, HEX$, STR$ 10 R EM 729 c o m b i n a i s o n s de b o r d u r e 20 S P E E D INK 5,5 30 FOR a=0 TO 26 40 FOR b =0 TO 26...
Page 110
CALL CALL 0 U NT LOAD, R U N, SAVE CHAIN "testprog SAVE.p) CHAIN. CHAIN MERGE, LOAD, MERGE Chapitre 3 Page 7 Mots clé s du BASIC...
Page 111
CHAIN MERGE [,DELETE DELETE. SAVE,p) LOAD, MERGE, DELETE, CHAIN CHR$ CREAL, FIX, INT, ROUND, UNT Chapitre 3 Page 8 Mots clé s du BASIC...
Page 112
CLEAR CLEAR INPUT INKEY, INKEY$, JOY CLS, GRAPHICS PAPER, INK, ORIGIN Chapitre 3 P age 9 Mots c lé s du BASIC...
Page 113
CLOSEIN C L O S E I N OPENIN). EOF, OPENIN C L O S E O U T 10 P A P E R « 2 , 3 20 CLS «2 CLG, INK, PAPER, WINDOW CONT Chapitre 3 P age 10 Mots c lé...
Page 114
COPYCHR$ ( § < LOCATE R AD ATN, DEG, RAD, SIN CREAL Cl NT Chapitre 3 Page 11 Mots clé s du BASIC...
Page 115
CURSOR INKEY$ IN PUT INKEY$. LOCATE DATA READ, DATA. RESTORE DATA. READ, RESTORE Chapitre 3 Page 12 Mots c lés du BASIC...
Page 116
P R I N T D E C $ < 1 0 t 7 M # m i M f .»*") 1 0 1000 0 0 0 • 0 0 « FN chrono Mots c lés du BASIC Chapitre 3 P age 13...
Page 124
STOP r un Paramètre 1 < Chapitre 3 P age 21 Mots clé s du BASIC...
Page 125
Paramètre 2 Paramètre 3 Paramètre 1 Paramètre 2 Chapitre 3 Page 22 Mots c lés du BASIC...
Page 126
Paramètre 1 < Paramètre 2 < Paramètre 3 Chapitre 3 P age 23 Mots c lé s du BASIC...
Page 127
Paramètre 1 Paramètre 2 Mots clé s du BASIC Chapitre 3 Page 24...
Page 128
Mots clé s du BASIC Chapitre 3 P age 25...
Page 129
Line does not exist DERR, ERL, ERROR, ON ERROR GOTO, RESUME ERROR ERROR » . d’ERR ERL. ERROR ERL, ERR, ON ERROR GOTO, RESUME Mots clés du BASIC...
Page 130
EVERY EVE R Y < r un à à à à AFTER, REMAIN EX P à à FILL FILL GRAPHICS PEN Mots c lés du BASIC Chapitre 3 P age 27...
Page 131
CINT, INT, ROUND DEF FN) >[STEP NEXT, FOR NEXT NEXT, STEP, TO Mots clés du BASIC Chapitre 3 Page 28...
Page 132
FRAME PRINT "FRE(0) PRINT FRE<"") FRE (" HIMEM, MEMORY Mots c lés du BASIC Chapitre 3 P age 29...
Page 133
GOSUB GOSUB RETU R N GOSUB. RETU R IM GOTO GOTO GRAPHICS PAPER GRAPHICS PAPER MASK CLG, GRAPHICS PEN, IIM K, MASK, TAG, TAGOFF Mots clé s du BASIC Chapitre 3 Page 30...
Page 134
GRAPHICS PEN GRAPHICS PEN r un GRAPHICS PAPER, INK, MASK, TAG, TAGOFF HEX$ HEX$ BIN$, DEC$, STR$, UNT Mots clé s du BASIC Chapitre 3 Page 31...
Page 135
HIMEM ELSE THEN THEN Chapitre 3 Page 32 Mots clé s du BASIC...
Page 136
PAPER SPEED INK. GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, SPEED INK INKEY Chapitre 3 Page 33 Mots clé s du BASIC...
Page 137
[SHIFT] [CTRL] [CTRL] [SHIFT] CLEAR IIMPUT, INKEY$, JOY INKEYS INKEY$ INKEY$ INKEY$. CLEAR IIMPUT, INKEY IIM P O UT, WAIT Chapitre 3 Page 34 Mots clé s du BASIC...
Page 138
INPUT INPUT [# ar une vi r q u i e ) " j a , b § INPUT [ENTER]. LINE INPUT Mots clé s du BASIC Chapitre 3 Page 35...
Page 139
INSTR IN STR CINT, FIX, ROUND Chapitre 3 Page 36 Mots c lés du BASIC...
Page 140
JO Y JOY (O) CLEAR IN PUT, INKEY [ENTER]. (KEY) [CTRL] [ENTER] 0 9, KEY DEF. Mots c lés du BASIC Chapitre 3 P age 37...
Page 141
Improper argument KEY DEF KEY DEF KEY DEF [TAB] (KEY) [SHIFT] [CTRL], SPEED KEY. KEY DEF [TAB] ...9 [TAB], KEY, SPEED KEY Chapitre 3 Page 38 Mots c lé s du BASIC...
Page 142
LEFTS LEFT$ MID$, RIGHT$ Mots c lés du BASIC Chapitre 3 P age 39...
Page 143
LINE INPUT LINE INPUT [ENTER], LINE INPUT § INPUT LIST § Chapitre 3 Page 40 Mots clé s du BASIC...
Page 144
LOAD LOAD LOAD R U IM CHAIN. CHAIN, CHAIN MERGE, MERGE, RUN, SAVE LOCATE LOCATE[# WINDOW Chapitre 3 Page 41 Mots c lés du BASIC...
Page 145
LOG 1 0 LOWER$ Chapitre 3 Page 42 Mots c lé s du BASIC...
Page 146
MASK MAS K 10 CLS TA G î 20 MASK 1 :MOVE 0,250:DRAWR 240,0 30 PRINT" 00000001 Mask)" 40 MASK 3:MOVE 0,200:DRAWR 240,0 50 PRINT" 00000011 Mask)" 60 MASK 7:MGVE 0,150:DRAWR 240,0 70 PRINT” 00000111 Mask)” 80 MASK 15:MOVE 0, 100:DRAWR 240,0 90 PRINT"...
Page 147
MEMORY MEMORY MEMORY &20AA FRE, HIMEM, SYMBOL, SYMBOL AFTER MERGE MERGE CHAIN, CHAIN MERGE, LOAD MID$ MID$ (< Chapitre 3 Page 44 Mots clé s du BASIC...
Page 148
LEFT$, RIGHT$ MIDS MID$ bonjour ». LEFT$, RIGHT$ Chapitre 3 P age 45 Mots c lés du BASIC...
Page 149
M OD M ODE MODE WINDOW, ORIGIN MOVE MOVE 20 x = R N D I 8 0 0 - 1 0 0 : y = R N D * 4 3 0 30 MO V E x ,y 50 G O T O 20 Mots c lés du BASIC...
Page 150
MOVER, ORIGIIM, XPOS, YPOS MOVER MOVER I C I M O D E 1 : T AG ! M O V E 1 3 , 16 20 P R I N T " l a vie a ses"; 30 FOR n = 1 T0 10 40 M O V E R -45, 16 50 P R I N T "...
Page 151
(MODE, PEN, PAPER, NEXT N EXT FOR. NEXT FOR, FOR, RESUME, STE P, TO AND, OR, XOR...
Page 152
ON BREAK CONT ON BREAK CONT [ESC], ON BREAK CONT ON BREAK STOP ON BREAK GOSUB, ON BREAK STOP ON BREAK GOSUB ON BREAK GOSUB [ESC]. ON BREAK CONT, ON BREAK STOP, RETURN Chapitre 3 P age 49 Mots c lé s du BASIC...
Page 153
ON BREAK STOP ON BREAK STOP 10 ON BREAK GOSUB 40 20 PRINT"le programme tourne" 30 GOTO 20 40 CLS: F'RINT" Appuyer 2 f o i s [ ES C] ," ; 50 PRINT"appelle l e sous-programme" 60 FOR t = l TO 2000: NEXT 65 O N BREAK STOP 70 RETURN ON BREAK CONT...
Page 154
ON < expression > GOSUB GOSUB 10 PAPER 0 : PEN 1 : INK 0, 1 20 CLS: PR INT" MENU ":PRINT 30 PR INT " 1 - Changer l e c a dr e 1 ' : PRINT 40 PR INT"2 - Changer l e sty 1o ": PR I NT 50 P RIN T"3 - Changer de mode":PRINT 60 INPUT "Votre c.hoix"...
Page 155
ON < expression > GOTO 90 AUIü ON SQ GOSUB 10 ENV 1 , 1 5 , - 1 , 1 20 O N SQ(1) GOSUB 60 30 MODE 0 : OR IG IN 0 , 0 , 2 0 0 , 4 4 0 , 1 0 0 , 3 0 0 40 FOR x = l TO 1 3 : FRAMEs MOVE 3 3 0 , 2 0 0 , x 50 FILL x : NEXT: GOTO 40 60 READ s : I F s=0 THEN RESTORE:GOTO 60...
Page 156
RETURN, SOUND, SQ OPENIN OPENIN 10 REM Ouvre et Reçoit l e f i c h i e r en provenance de l a d i squet te 20 OPENIN "NOMFICH":INPUT # 9 , a , a $ 30 CLOSE IN:PR INT"1 es 2 v al eur s sont:" 40 PRINT:PRINT a,a»...
Page 157
PR î NT 1 AND 1 PRINT 0 AND 0 PRINT 1 AND 0 AND, NOT, XOR ORIGIN ORIGIN Mots c lés du BASIC Chapitre 3 P age 54...
Page 158
IN P, WAIT PAPER (PAPER INK) § INK, GRAPHICS PAPER, PEN Mots c lés du BASIC Chapitre 3 P age 55...
Page 159
PEEK 1 ,2 20 1 POKE PAPER Mots clé s du BASIC Chapitre 3 Page 56...
Page 160
F'RINT P I 3. 14159265 DEG, RAD PLOT 10 MODE 1 : BORDER 0:PAPER 0:PEN 1 20 INK 0,0: INK 1,26:INK 2,13,26:DEG 30 FOR x = l 10 360:0R IGIN 320,200 40 DRAW 50*COS(x),50ISIN(x),1 50 PLOT 100*COS(x),25*SIN(x):NEXT 60 OR 161 N 0,0:t = TIME + 700:WHILE TIMECt 70 PLOT RND*640,RND*400:WEND 80 PLOT RND*640,RND*400,2 90 GOTO 90...
Page 162
10 M O D E 1 : B O R D E R 0 î L O C A T E 8,2 n = l CHR$ ( 9 ) ; VPOS, WINDOW PRINT PRINT 10 a $ =" p e t i t e " 20 b*="Ceci est une longue chai ne de car a ct èr e s 30 PRINT a * ;...
Page 163
PRINT SPC PRINT TAB PRINT [SPC PRINT [ § [TAB 18 PRINT' ' ceci est 1 ’ i n s t r u c t i o n 20 FOR = 6 T0 15 30 PRINT SPCC 5) "a' ' ; SPC( x ) ; "b" 40 NEXT 50 PRINT' ' ceci est 1 "i n s t r u c t i o n 60 FOR...
Page 164
PRINT USING PRINT [USING n= 1 PRINT USING PRINT. Formats numériques # § § # § # . ■ § § £ £ # # # # # # - # # " Mots clé s du BASIC Chapitre 3 P age 61...
Page 168
RELEASE RELEASE SOUND. SOUND 10 REM CHASSE AUX ENVAHISSEURS DANS L’HYPERESPACE INTERGALACTIQUE 20 REM COPYRIGHT by AMSOFT DATA. Mots c lé s du BASIC Chapitre 3 P age 65...
Page 169
REMAIN REMAIN AFTER, DI, El, EVERY RENUM RENUM RENUM GOTO GOSUB. KEY, REM, CHAIN CHAIN MERGE. 65535. DELETE, LIST Chapitre 3 Page 66 Mots c lés du BASIC...
Page 170
RESTORE RESTORE DATA DATA DATA, READ RESUME RESUME ON ERROR GOTO. DERL, ERL, ERR, ERROR, ON ERROR GOTO, RESUME NEXT Chapitre 3 P age 67 Mots clé s du BASIC...
Page 171
RESUME NEXT RESUME NEXT 10 ON ERROR GOTO 90 20 P RIN T"tapez [ENTER] a chaque fois" 30 INPUT "1"; a 40 INPUT "2"; a 50 inpot "3";a:REM erreur de syntaxe 60 INF'UT "4"; a 70 INPUT "5" ; a 80 END 90 PRINT"...
Page 172
RIGHT$ a$ = " 40 NEXT r un 10 RANDOMIZE 20 FOR x -1 TO -1 STEP -1 30 PRINT"parametre RND=";x 40 FOR n=1 TO 6 50 PRINT RND (x ) 60 NEXT n,x r un RANDOMIZE Mots c lé s du BASIC Chapitre 3 Page 69...
Page 173
ROUND ROUND ABS, CINT, FIX, INT LOAD CONT, END, STOP Chapitre 3 P age 70 Mots c lé s du BASIC...
Page 174
SAVE SAVE 8000 3000 8001. CHAIN, CHAIN MERGE, LOAD, MERGE, RUN Chapitre 3 P age 71 Mots clé s du BASIC...
Page 175
R AD. ATN, DEG, RAD, TAN Chapitre 3 Page 72 Mots c lés du BASIC...
Page 176
SOUND SOUND Paramètre 1 : <état de canal > Paramètre 2 : < période sonore > Paramètre 3 : < durée > Chapitre 3 Page 73 Mots c lés du BASIC...
Page 177
Paramètre 4 : <volume> Paramètre 5 : <enveloppe de volume> Paramètre 6 : <enveloppe de tonalité> Paramètre 7 : <période de bruit> ENT, ENV, ON SQ GOSUB, RELEASE, SQ Chapitre 3 P age 74 Mots c lé s dû BASIC...
Page 178
SPACES SPACE$ SPC, STRING$, TAB PRINT SPC) SPEED INK SPEED INK BORDER BORDER, INK Mots c lés du BASIC Chapitre 3 P age 75...
Page 179
SPEED KEY SPEED KEY a$î SPEED KEY KEY DEF. SPEED KEY KEY DEF SPEED WRITE SPEED WRITE SPEED WRITE 0 SPEED WRITE OPENOUT, SAVE Chapitre 3 Page 76 Mots clé s du BASIC...
Page 180
ON SQ GOSUB, SOUND Mots c lés du BASIC Chapitre 3 P age 77...
Page 181
STEP FOR) STOP STOP CONT. STOP CONT, END STR$ STR$ (< 2 7 0 m BIN$, DEC$, HEX$, VAL Chapitre 3 P age 78 Mots c lés du BASIC...
Page 182
STRING$ ST RIN G > PRINT STRING$(40,CHR$(42)). SPACE$ SWAP WIN DOW SWAP) SYMBOL SYMBOL < < Chapitre 3 P age 79 Mots c lés du BASIC...
Page 183
SYMBOL x PEN. PAPER, SYMBOL 2 5 5 , 1 , 3 , 7 , 1 5 , 3 1 , 6 3 , 0 , 0 Mots c lés du BASIC Chapitre 3 P age 80...
Page 184
SYMBOL 255, 1,3,7,15,31,63 &X. SYMBOL 255,&X00000001,&X00000011, ^X000001 1 1,&X00001 1 1 1 PRINT CHR$(255) PRINT HIMEM, MEMORY, SYMBOL AFTER SYMBOL AFTER SYMBOL AFTER SYMBOL AFTER 256 SYM BOL AFTER Mots c lés du BASIC Chapitre 3 P age 81...
Page 185
SYMBOL AFTER H IM EM OPENIN OPENOUT. SYMBOL AFTER 256). HIMEM, MEMORY, SYMBOL PRINT TAB) MOVE b, PRINT "; ! FRAMEiNEXT a * ; " PRINT Chapitre 3 P age 82 Mots c lés du BASIC...
Page 186
TAGOFF { § RAD, ATN, COS, DEG, RAD, SIN Chapitre 3 P age 83 Mots c lés du BASIC...
Page 187
TEST 20 PRINT‘‘V ou 5 MOVE, MOVER, TESTR, XPOS, YPOS TESTR (<décalage x>,<décalage y>) MOVE, MOVER, TEST, XPOS, YPOS Chapitre 3 Page 84 Mots clé s du BASIC...
Page 188
TIME " 5 RESET TIME/300. AFTER, EVERY, WEND, WHILE FOR) Mots c lés du BASIC Chapitre 3 P age 85...
Page 189
TROFF TRON TRON. TROFF TRON U NT CINT, FIX, INT, ROUND UPPER$ LOWER$ Chapitre 3 P age 86 Mots clés du BASIC...
Page 190
PRINT USING) 10 CLSiPRINT "Je connais mes tables !" 20 P R I N T :PRINT"pressez une touche (1-9)" 30 a*=INKEY$:IF a$ = "" THEN 30 40 n = V A L U $ ) : I F n<l OR n>9 THEN 30 50 FOR x=l TO 12 60 PRINT n ;...
Page 191
WAIT & F F 3 4 , 2 0 , 2 5 WEND WHILE. WHILE WEND TIME, WHILE W HI LE TIME, WEND Chapitre 3 Page 88 Mots clés du BASIC...
Page 192
WIDTH WIDTH, 132. WIDTH 255 PRINT PRINT WIN DOW § § W IN D O W S W A P Mots c lés du BASIC Chapitre 3 P age 89...
Page 193
W IN D O W S W A P 10 MODE 1 : INK 1 , 2 4 : INK 2 , 9 : INK 3, 6 20 W INDOW 2 1 , 4 0 , 1 3 , 2 5 : PAPER 3 30 W INDOW # 1 , 1 , 2 0 , 1 , 1 2 : PAPER «1, 2 40 CLS PRINT # 1, "...
Page 194
IN P U T , LIN E IN P U T A N D , O R , N O T Mots clé s du BASIC Chapitre 3 P age 91...
Page 195
X P O S Y P O S Mots c lé s du BASIC Chapitre 3 P age 92...
Page 196
Chapitre 4 Utilisation des disquettes et des cassettes Partie 1 : Disquettes D IS C C O P Y (1 C O P Y D IS C La duplication de la Disquette Système D IS C C O P Y C O P Y ...
Page 197
Une disquette de travail SYSTEME/UTILITAIRES F O R M A T FILEC O PY. A M S D O S . C O M F I L E C O P V . C O M D I S C C O P Y . C O M F I L E C O P Y F I L E C O P Y .
Page 198
S A V E , PI P C O P Y D IS C D IS C C O P Y Progiciel en BASIC AMSTRAD Le progiciel sur disquette C O P Y D IS C D IS C C O P Y , FILE C O PY .
Page 199
Progiciel sous CP/M Copie de travail de votre progiciel F IL E C O P Y Utilisation d e s disquettes et d e s cassettes Chapitre 4 P age 4...
Page 200
F IL E C O P Y F IL E C O P Y F IL E C O P Y . La configuration d’un programme CP/M Adaptation de votre progiciel : les sorties (Output) IIM S T AL) Opération effectuée Valeur Décimale Valeur Hexa Utilisation d e s disquettes et d e s cassettes...
Page 201
Adaptation du progiciel : les entrées (Input) S E T U P Démarrage d’un progiciel C P/M prêt à l’emploi A > . S A L A IR E . C O M , Utilisation d e s disquettes et d e s cassettes Chapitre 4 P age 6...
Page 202
Démarrage automatique des progiciels C P/M prêts à l’emploi S E T U P . Partie 2 : Les cassettes T A P E . P L A Y Utilisation d e s disquettes et d e s cassettes...
Page 203
C A T C A T C A T , [E S C ]. Erreurs de lecture V O L U M E LEVEL Chapitre 4 Page 8 Utilisation d e s disquettes et d e s cassettes...
Page 204
CHAIN CHAIN MERGE LOAD MERGE C H A I N "" C H A I N "",10 0 C H A I N M E R G E "" C H A I N M E R G E "",10 0 C H A I N M E R G E 1 0 0 , D E L E T E 3 0 - 7 0 LOAD ""...
Page 205
[E S C ], {§ INPUT LINE INPUT OPENIN et CLOSEIN P LA Y Chapitre 4 Page 10 Utilisation d e s disquettes et d e s cassettes...
Page 206
O P E N IN PLA Y [E S C ], LIST § 9 OPENOUT et CLOSEOUT PRINT WRITE R E C O R D P LA Y Utilisation d e s disquettes et d e s cassettes...
Page 207
C L O S E O U T O P E N O U T R E C O R D P L A Y [E S C ], Pour réussir une sauvegarde... R E C O R D LEVEL Chapitre 4 Page 12 Utilisation d e s disquettes e t d e s cassettes...
Page 208
SAVE R E C O R D P LA Y R E C O R D PLA Y [E S C ], SPEED WRITE Messages d’erreur Utilisation d e s disquettes et d e s cassettes...
Page 209
| T A P E T A P E .IN T A P E O U T ) | D IS C D IS C .IN D IS C .O U T ) I CPU I DIR I D R IVE I ERA I REN I USER...
Page 210
Chapitre 5 Les éléments de l’A M SD O S et du C P/M Partie 1 : AM SD O S Introduction Le catalogue de la disquette Les élém en ts d e l'AMSDOS et d u CP/M Chapitre 5 Page 1...
Page 211
Changement des disquettes Noms et genres des fichiers AM SDOS Construction des noms de fichiers R O IN T IM E .D E M », « EX1 .B A S F O R M A T . C O M »...
Page 212
Les en-têtes AM SDOS L O A D L O A D L O A D O P E N O U T , B A S IC W R IT E , P R IN T , LIST, O P E N IN Noms de fichiers avec deux drives D R IV E (A :...
Page 213
SAVE "P R 0 G .B A S " SAVE " B : P R O G . B A S " U S E R L O A D 1 1 15 : P R O G . BAS " SAVE P R O G .B A S "...
Page 214
Exemples d’utilisation de commandes d’AM SDOS dans un programme Sauvegarde de variables et recopie d’écran .D A T .S R N P A R A M .D A T F IL E N A M E .S R N E X 1 . B A S (EX1 .B A S ) P A R A M .D A T Les élém en ts d e l'AMSDOS et du CP/M...
Page 215
.B A S . W R ITE (d u m p file$) 10 d u m p f i 1e $ = " f 1a g d u m p .s r n " 20 MODE 1 : B 0 RDER 0 30 DIM c o l o u r (2) 40 FOR i =0 TO 2 R E A D c o l o u r ( i ) :...
Page 216
(IN P U T ) 50 WHILE NOT EGF INPUT Sommaire des commandes externes d’AM SDOS D R IV E Chapitre 5 P age 7 Les élém en ts d e l'AMSDOS et du CP/M...
Page 217
D R IV E | CPM | C P M j DIR | DISC | D IS C D IS C .IN D IS C .O U T | DISC.IN | D IS C .IN | DISC.OUT | D IS C .O U T Chapitre 5 P age 8 Les élém ents d e l'AMSDOS et du CP/M...
Page 219
| TAPE.IN | T A P E .IN | TAPE.OUT | T A P E .O U T | USER U S E R , ! USER, 3 REN. R E N ,« 1 5 :E X E M P L E .B A S O :E X E M P L E .B A S (E X E M P L E .B A S ).
Page 220
Fichiers ASCII Fichiers en lecture seulement Les procédures de copie de fichiers F IL E C O P Y , C L O A D C S A V E PI P PI P Chapitre 5 Page 11 Les élém en ts d e l'AMSDOS et du CP/M...
Page 221
COPIE DE s BASIC AMSTRAD Données ASCII B i n a i r e COPIE SUR : sur c a s s e t t e ! sur c a s s e t t e ! sur c a s s e t t e !
Page 222
BASIC ASCII s ur AMSDOS s ur AMSTRAD sur d i s q u e t t e s ur d i s q u e t t e ! d i s q u e t t e di s q u e t t e !
Page 223
Guide des messages d’erreur d’AM SDOS Retry, Ignore or Cancel ? Unknown command Bad command already exists not found Drive directory full Drive dise full Chapitre 5 Page 14 Les élém en ts d e l'AMSDOS et du CP/M...
Page 224
Drive dise changed, closing is ready only Drive dise missing Drive dise is write protected Drive read fail Drive write fail Failed to load CP/M CPM) Chapitre 5 P age 15 Les élém en ts d e l'AMSDOS et du CP/M...
Page 225
Partie 2 : C P/M Introduction Les élém ents d e l'AMSDOS et du CP/M Chapitre 5 Page 16...
Page 226
L’organisation des pistes système La zone des variables système SETUP Les commandes d’édition [ESC] [ESC] [CTRL]S [CTRL]C [CTRL]P [CTRL]Z Amorçage de la disquette FILECOPY), [CTRL]C A> Chapitre 5 Page 17 Les élém ents d e l'AMSDOS et du CP/M...
Page 227
B dos E rr on R /O Les commandes du mode direct S A V E , D IR , ER A , REN T Y P E . S A V E , Les noms de fichiers C L O A D C S A V E L’aiguillage des unités B >...
Page 228
La commande DIR La commande ERA La commande REN La commande TYPE Les élém en ts d e l'AMSDOS et du CP/M Chapitre 5 Page 19...
Page 229
TYPE EX 1 . BAS EX1 .B A S . Les commandes transitoires F O R M A T F IL E C O P Y . S Y S G E N , B O O T G E N , F IL E C O P Y , C O P Y D IS C , D IS C C O P Y , C H K D IS K , D IS C C H K , F O R M A T , S E T U P , C S A V E , C L O A D A M S D O S La gestion des périphériques...
Page 230
EX1 .B A S S A V .B A S . EX1 .B A S T Y P E EX1 .B A S ). EX1 .B A S TYPEIIM .TXT. [C T R L ]Z . [C T R L ]J [E N T E R ], P IP F IL E C O P Y .
Page 231
Copie de disquettes entières et vérificateurs D IS C C O P Y C O P Y D IS C D IS C C H K C H K D IS C Fichiers sur cassette C L O A D C L O A D C S A V E Les élém ents d e l'AMSDOS et du CP/M...
Page 232
Gestion du système STAT S T A T STAT STAT A: STAT STAT I.COM STAT 1.BAS STAT t.COM «R/0 STAT 1.BAS «R/G STAT *.CÜM «R/W STAT EX 1 .BAS «R/W Chapitre 5 P age 23 Les élém en ts d e l ’AMSDOS et du CP/M...
Page 233
SETUP Is this correct (V/N):_ [C T R L ]:C . Do you want to update your System dise (Y/N) : Do you want to restart CP/M < Y/I M ) : _ B O O T G E N S E T U P * * Initial command buffer (zones de commandes à...
Page 234
Keyboard translations (changement des codes clavier) : 'K E Y D E F ' Keyboard expansions (extensions du clavier) 'K E Y '. AMSDOS Production de disquettes FORMAT F O R M A T F O R M A T . C O M F O R M A T D F O R M A T I...
Page 235
F IL E C O P Y PI P, B O O T G E N S Y S G E N . MOVCPM S Y S G E N M O V C P M . M O V P C M M O V C P M 178 * SYSGEN S Y S G E N...
Page 236
BOOTGEN B O O T G E N B O O T G E N Programmation avancée DUM P SUBMIT XSUB...
Page 237
Chapitre 6 Introduction au LOGO Qu’est-ce que le LOGO ? Dr. LOGO...
Page 238
[E S C ] C P M [E N T E R ] Wel co m e to Amstrad L060 i ght 1983 » Di g i t a l Paci f i e Grove , Cal i f or ni a...
Page 239
r t 90 [ENTER] [ENTER] fd 60 fd, bk Les « procédures » de Dr. LOGO fd, bk, rt L’élaboration d’une procédure simple fd 60 r t 90 repeat 4 [ f d 60 r t 90] carre repeat 4 [ f d 60 r t 90] Chapitre 6 P age 3 Introduction au LOGO...
Page 240
carre « carre carre rt 45 carre, Procédures avec paramètres carre » : :cote LOGO :cote carrequelconque, :cote carrequelconque 150 Utilisation de variables pour stocker des valeurs Chapitre 6 P age 4...
Page 241
:bord LOGO :bord :bord [E S C ] La correction des programmes et des procédures [CTRL] [C L R ] [D E L ] [E N T E R ] [E S C ] [C O P Y ] Chapitre 6 P age 5...
Page 242
dessin ed" dessin [ESC], ed "dessin [COPY] :bord. Quelques mots sur le fonctionnement nodes Introduction au LOGO Chapitre 6 Page 6...
Page 243
Liste des primitives de Dr.LOGO TRAITEMENT DE M OTS ET DE LISTES : ascii ?asci i "G ?asc i i " g ?bf "prendre r endre ?bf Cl 2 31 C2 3] b 1 "prendre prendr • J bl Cl 2 3 4] C l 2 3 ] char 7 c h a r 83...
Page 249
Variables : local > ( l o c a l “ y " z ) make ?make " c o t e ? : c o t e Procédures : ? t o c a r r e > r e p e a t 4 t f d 50 r t 9 0 ]...
Page 250
pots ? p o t s ? t o c a r r e > r e p e a t 4 Cfd 50 r t 9 0 ] >end c a r r e d e - f i n e d Correction : "...
Page 251
setsplit ? s e t s p l i t show type). ?show Ca b c ] [ a b c ] ? t s type show). ? t y p e [ a b c l a b c L’écran graphique : clean ? f d...
Page 252
? r t 90 f d ? cs ? d o t C50 1 0] fence w in d o w ? f e n c e ? f d 300 T u r t l e o u t o-f b o u n d s ( l a t o r t u e...
Page 253
window wrap Introduction au LOGO Chapitre 6 P age 17...
Page 254
Les graphismes de la tortue : Introduction au LOGO Chapitre 6 Page 18...
Page 255
seth Chapitre 6 Page 19 Introduction au LOGO...
Page 256
setpc setpos Introduction au LOGO Chapitre 6 P age 20...
Page 257
Gestion de l’espace de travail : ?er " car r e ?fnake "cote [1(90] ?make "angl e C453 ? : cote : angl e [45] ?ern [ cot e angl e] ? : cote cote has no val ue (cote ne vaut r i e n ) nodes ?nodes recycle...
Page 258
gprop plist pprop remprop Fichiers sur disquette : Introduction au LOGO Chapitre 6 P age...
Page 259
load save Clavier et manette de jeu : buttonp paddle. keyp Introduction au LOGO Chapitre 6 P age 23...
Page 260
paddle Signification Valeur retournée ?paddle 0 ?make "touche rc ?: touche ?make " i n s t r _ l i s t r l repeat 4 Cfd 50 r t 903 ? : i n s t r l i s t t r epeat 4 Cfd 50 r t 9033 Chapitre 6 P age 24 Introduction au LOGO...
Page 262
Valeur entrée Canaux libérés Les commandes de déroulement de programme : [CTRL]Z, pause ERRACT. Chapitre 6 Page 26 Introduction au LOGO...
Page 263
>l abel "boucle repeat î i n s t r _ r i s t stop TOPLEVEL wait Chapitre 6 P age 27 Introduction au LOGO...
Page 264
Traitements des cas particuliers : catch error pause throw catch. Les primitives système : .contents Introduction au LOGO Chapitre 6 Page 28...
Page 265
.deposit .examine Les variables système : TOPLEVEL, TRUE TRUE throw"'TOPLEVEL Les propriétés du système : Introduction au LOGO Chapitre 6 P age 29...
Page 266
Chapitre 6 P age 30 Introduction au LOGO...
Page 267
Chapitre 7 Pour information... Partie 1 : Déplacements du curseur et fonctions des codes de contrôle Chapitre 7 Page 1 Pour information...
Page 268
[CTRL]G). PRINT CHR$ (&07), PRINT [CTRL]G “ ■ Ç è PRINT). Chapitre 7 Page 2 Pour information...
Page 269
Codes de contrôle Valeur Paramètre Fonction C U R S O R C U R S O R C U R S O R M O D E . Pour information... Chapitre 7 Page 3...
Page 270
Valeur Paramètre Fonction PAPER. PEN. Chapitre 7 Page 4 Pour information...
Page 271
Valeur Paramètre Fonction A C K S Y M B O L . W IN - D O W . Chapitre 7 P age S Pour information...
Page 272
Valeur Paramètre Fonction IN K. (b o rd e r). B O R D E R . LO C A TE . Chapitre 7 P age 6 Pour information...
Page 273
P O K E CALL, Partie 2 : Interruptions de programme A F T E R E V E R Y ([E S C ] [E S C ]) OIM S Q G O S U B ), Chapitre 7 Page 7...
Page 275
Le jeu de caractères particulier du CPC664 3 2 & H 2 0 &X00100000 &H21 & H 2 2 & H 2 4 & H 2 3 & X 0 0 1 00001 &X00100100 & X 0 0 1 00010 &...
Page 276
& H 3 4 & H 3 3 & H 3 2 &H31 &X00110100 & X 0 0 1 10011 & X 0 0 1 10010 & X 0 0 1 10001 & H 3 8 & H 3 7 &...
Page 277
& H 4 7 & H 4 8 & H 4 6 & H 4 5 &X01001000 &X01000111 &X01000110 &X01000101 & H 4 C & H 4 B & H 4 A & H 4 9 &X01001100 &X01001010 &X01001011 &X01001001 &...
Page 278
& H 5 9 & H 5 A & H 5 B & H 5 C &X01011001 &X01011010 &X01011011 &X01011100 ■■■ ■■■ ÏÏHB ■■■ ■ ■■■ ■■■ ■ ■■■ & H 5 D & H 5 E & H 5 F &...
Page 279
& H 6 F & H 6 D & H 6 E & H 7 0 &X01101101 &X01101110 & X 0 1 101111 & X 0 1 110000 & H 7 4 &H71 & H 7 2 & H 7 3 &...
Page 281
& H 9 5 & H 9 6 & H 9 7 & H 9 8 &X10010101 &X10010110 &X10010111 & X 1 0011000 mmmrn & H 9 9 & H 9 A & H 9 B & H 9 C &...
Page 282
& H A 9 & H A A & H A B & H A C &X10101001 &X10101010 &X10101011 &X10101100 & H A D & H A E & H A F & H B 0 &X10101101 &X10101110 &X10101111 & X 1 0110000 &...
Page 283
& H C 0 & H B E & H B F & H B D & X 1 1000000 &X10111110 &X10111111 &X10111101 & H C 4 & H C 2 & H C 3 & H C 1 & X 1 1000100 &...
Page 284
& H D 1 & H D 2 & H D 4 & H D 3 & X 1 1010001 & X 1 1010010 & X 1 1010011 &X11010100 & H D 5 & H D 6 & H D 7 &...
Page 285
& H E 5 & H E 6 & H E 7 & H E 8 &X11100101 & X 1 1100111 &X11100110 & X 1 1101000 & H E 9 & H E C &X11101001 & X 1 1101100 & H E D &...
Page 286
& H F B & H F C & H F A & H F 9 &X11111100 &X11111011 &X11111001 &X11111010 & H F F & H F E & H F D & X 1 1 1 1 1 110 &X11111111 &X11111101 Chapitre 7...
Page 287
Partie 4 : Références des touches Valeurs ASCII par défaut Pour information... Chapitre 7 Page 21...
Page 288
Touches programmables, valeurs et emplacements par défaut TO U C H E S V A LE U R PAR D É FA U T P R O G R A M - M A B L E S C A R A C TÈ R E V A LE U R ASCII &...
Page 289
Numéros des touches et des positions des manettes de jeu Pour information.,, Chapitre 7 Page 23...
Page 290
Partie 5 : Les sons Notes et périodes sonores PÉRIODE ERREUR RELATIVE FRÉQUENCE NOTE - 0 . 0 0 7 % 3 8 2 2 3 2 . 7 0 3 + 0 . 0 0 7 % 3 6 0 8 3 4 .
Page 291
N O T E F R É Q U E N C E P É R I O D E E R R E U R R E L A T I V E 1 3 0 . 8 1 3 9 5 6 + 0 .
Page 293
Partie 6 : Messages d’erreur N EXT FO R N E X T FOR. R E T U R N R E A D D A T A G O S U B , W H IL E FO R M E M O R Y .
Page 294
READ INPUT. Pour information... Chapitre 7 P age 28...
Page 295
CO NT, STOP, [ESC][ESC] DEF F N ON ERROR GOTO). RESUME ERROR GOTO. OPENIN LOAD, R U N, SAVE. Pour information... Chapitre 7 Page 29...
Page 296
NEXT FOR. OPENIN OPENOUT WH ILE WEND. WEND WHILE, WEND WHILE Erreurs sur disquette Pour information... Chapitre 7 P age 30...
Page 297
Erreur A M SDO S Valeur DERR Source de l’erreur [ESC], Signification...
Page 298
ER R DERR ON ERROR GOTO (31 ou DERR Partie 7 : M ots clés du BASIC (également appelés mots réservés) Chapitre 7 P age 32 Pour information...
Page 300
Partie 8 : Grilles Grille pour textes et fenêtres d’écran - M ODE 0 (20 colonnes) Pour information... Chapitre 7 Page 34...
Page 301
Grille pour textes et fenêtres d’écran - M ODE 1 (40 colonnes)
Page 302
Grille pour textes et fenêtres d’écran - M ODE 2 (80 colones) Chapitre 7 Page 36 Pour information...
Page 303
Enveloppe des sons/Grille de musique Chapitre 7 Page 37 Pour information...
Page 304
Partie 9 : Connexions Entrées/Sorties du CPC664 p s r 1 1 1 P R IS E S T É R É O P R IS E P O U R L E C T E U R D E C A S S E T T E...
Page 305
Prise moniteur VUE ARRIÈRE BROCHE 1 ROUGE BROCHE 4 SYNC BROCHE 2 VERT BROCHE 5 M A SSE BROCHE 3 BROCHE 6 LU M ' BLEU Prise stéréo D R O IT G A U C H E D R O IT M A S S E M A S S E G A U C H E...
Page 306
Signalons au passage une erreur du manuel CPC 664 au chapitre C onnexions : Les Tableaux du brochage de la prise stéréo et de la prise m agnétophone ont été inversés. Dans notre schéma, la prise m agnétophone est vue de l'arrière. TELECOMMANDE MICRO ECOUTEUR...
Page 307
Prise d’extension V U E ARRIÈRE SOUND IN T BUSR2 BUSAK R EADY RESET RESET A 10 ROM EN ROMDIS + 5v RAM RD MREQ R AM DIS CURSOR R FSH L. PEN IO R Q HA LT Prise de l’unité de disquette 2 V U E ARRIÈRE PIN 1 READY...
Page 308
Porte pour imprimante V U E ARRIÉRE STROBE G N D PIN 20 G N D PIN 21 G N D PIN 22 PIN 23 PIN 24 PIN 25 PIN 26 G N D PIN 27 PIN 11 BUSY PIN 28 PIN 14 PIN 33 PIN 16...
Page 314
Chapitre 8 A vos heures de loisir... Partie 1 : Généralités Feu sur les envahisseurs de l’espace ! Question : Pourquoi un ordinateur est-il meilleur qu’un autre ? A vos heures d e loisir... Chapitre 8 Page 1...
Page 315
1. La résolution de l’écran : le plus petit élément visible de l’affichage 2. L’interpréteur BASIC Chapitre 8 Page 2 A vos heures d e loisir...
Page 316
3. Extension 4. Les effets sonores Chapitre 8 Page 3 A vos heures d e loisir...
Page 317
Pourquoi un micro ne peut-il pas faire cela ? Le clavier : un air de déjà vu... [ENTER]. Chapitre 8 Page 4 A vos heu res d e loisir...
Page 318
A vos heures d e loisir... Chapitre 8 Page 5...
Page 326
A vos heures d e loisir... Chapitre 8 Page 13...
Page 327
Partie 2 : Fonctions propres au CPC664 Parlons un peu de caractère Chapitre 8 Page 14 A v o s heures d e loisir...
Page 328
PRINT CHR$ Comment en arriver là... PRINT « abcdefghijklmn PRINT CHR$(n), n Comment reconnaître une variable ? A vos heures d e loisir... Chapitre 8 Page 15...
Page 329
n " = 32 TO 255, " Syntax error. n = 32 TO 255, 255. 20 PRINT CHR$ (n) ; FOR, 32), (NEXT) FOR N EXT (255), Ready, RU N Chapitre 8 P age 16 A vo s heu res d e loisir...
Page 330
SYMBOL, Chapitre 8 Page 17 A vos heures d e loisir ...
Page 331
Expressions logiques IF...THEN P R I N T 10 AND 10 P R I N T 10 AND 12 Chapitre 8 P age 18 A vo s heu res d e loisir..
Page 332
1000 0000001000 1002 1111101000 Chapitre 8 P age 19 A vos heures d e loisir...
Page 333
N O T 1010 0110 0010 1110 1100 Chapitre 8 P age 20 A v o s heu res d e loisir...
Page 334
Caractères définis par l’utilisateur SYMBOL. SYMBOL. * t t XI 0 0 0 0 0 0 1 , S X 1 0 1 1 0 1 0 1 , 8<X 1 0 1 1 0 0 0 1 , ^ X 1 1 1 1 1 1 1 1 î...
Page 335
Format de PRINT PRINT 3 PRINT "bonjour" bon.i our a = 5 PRINT a a t = " t e s t " PRINT a$ test PRINT 3;-4;5 3 -4 5 PRINT " t o j u r " ; "Monsi eur bonj our Monsieur PRINT "t ) o n j "...
Page 336
PRINT S P C (5) "coucou" coucou PRINT S P C (x » 3 ) "coucou" coucou WRITE PRINT. PRINT "bonjour" bonjour PRINT #0, "bonj o u r " bonjour PRINT # 4 , "bonjour" bonj our PRINT #8, "bonjour" bonjour PR1NT USING, PRINT USING,...
Page 337
PRINT USING " \ \ " ; " t e s t de c h a î n e " t e s t PRINT USING " ! " ; " t e s t de c h a î n e " PRINT USING BORDER O MODE 1 sLOCATE 3 9 , 1 : PRINT "...
Page 339
A vos fenêtres ! WIN DOW. PAPER Chapitre 8 P age 26 A v os heu res d e loisir...
Page 340
PRINT. WINDOW S WAP Ready A vos heures d e loisir... Chapitre 8 P age 27...
Page 341
WIN DOW SWAP à WIN DOW SWAP, à LOCATE # 4 , 2 0, 1 PRINT " l a f e n e t r e 0 est i c i " PRINT #4, "ceci est l a f e n e t r e 4" la fenêtre 0 est ici PRINT «...
Page 342
LIST LIST #4 LIST #3 WIN DOW 10 MODE 0 20 a=l+RND#19ib=l+RND*19 30 c=l+RND*24:d=l+RND*24 40 e=RND# 15 50 W INDOW a , b , c , d 60 PAPER e:CLS 70 GOTO 20 Puis-je vous interrompre ? AFTER EVERY. AFTER EVERY.
Page 343
AFTER GOSUB. RETU R N EVERY AFTER EVERY AFTER EVERY R EM Al N A vos heures d e loisir... Chapitre 8 Page 30...
Page 344
Utilisation des données... READ DATA. READ IN PUT DATA 10 READ a , b , c 20 PRI NT"l es nombres sont " ; a; "et " ; b ; "et " ; c 30 DATA 12, 14, 21 r un 10 INPÜT "Entrez 3 nombres séparés par une v i r g u l e "...
Page 345
(60, 70, 80, A vo s heu res d e loisir... Chapitre 8 P age 32...
Page 346
RESTORE DATA Chapitre 8 P age 33 A vos heures d e loisir...
Page 347
1000 REM section de dessin sur écran 1010 IF ni veau=l THEN RESTORE 2010 1020 IF niveau=2 THEN RESTORE 2510 1030 IF niveau = 3 THEN RESTORE 3010 1040 FOR y=1 TO 25 1050 FOR x»l TO 40 1060 READ char 1070 LOCATE x,y!PR1NT CHRî(char);...
Page 348
Des sons à votre portée... SOUND SOUND SOUND Chapitre 8 Page 35 A vos heures d e loisir...
Page 349
A vos heu res d e loisir... Chapitre 8 Page 36...
Page 351
RELEASE. [DEL] SOUND SOUND. ENV. SOUND SOUND Chapitre 8 Page 38 A vos heu res d e loisir...
Page 356
SOUND SOUND) SOUND, SOUND, ENV SOUND, RELEASE. RELEASE RELEASE A vos heures d e loisir... Chapitre 8 P age 43...
Page 357
SOUND AFTER EVERY. bonjo ur AFTER, EVERY ON BREAKGOSUB. SOUND ON SQ(1 ) GOSUB ON SQ GOSUB 1020. A vos heures d e loisir... Chapitre 8 P age 44...
Page 358
DATA, ON SQ( ) GOSUB r un ON SQ( ) GOSUB DATA (READ) SOUND. A vos heures d e loisir... Chapitre 8 P age 45...
Page 359
DATA 220 IF p 1 *< >"r " THEN r 1 7 . = 0: G0T0 240 6 c l ’ / .=c a ( ca * , c Chapitre 8 Page 46 A vos heures d e loisir...
Page 360
Si nous parlions graphiques ? 30). MODE, Chapitre 8 P age 47 A vos heures d e loisir...
Page 361
MODE 60 : FILL FILL 1 (FILL 3). Chapitre 8 P age 48 A vo s heu res d e loisir...
Page 362
MOVE 100, DRAW 110. Du point à la ligne... MASK MASK MASK 90 : Chapitre 8 P age 49 A vos heures d e loisir...
Page 363
MASK CLG 2, GRAPHICS PEN 70 : TAG//1, PR INT TAG/TAG O F F, Chapitre 8 P age 50 A vo s heu res d e loisir...
Page 364
CHR$(13) CHR$(10). CH R$(1 PR IN T : GRAPHICS PEN GRAPHICS PEN 1, Les caractères transparents " mm" # 2 . Chapitre 8 P age 51 A v os heures d e lo isir...
Page 365
Les modes d’encre PLO T/PLO TR M O V E /M O V E R , P R IN T P R IN T FR A M E G R A P H IC S PEN D R A W R 10 R E M modes d’encre X O R 20 M O D E 1:IN K 2,10:IN K 3,4 30 Q R IG IN 440,100,440,640,100,300...
Page 366
140 N E X T 150 T A G 160 F O R y=60 T O 318 STEP 2 170 M Q V E 96,y : P R I N T CH R$(224); 180 FR A M E :FR A M E 190 M 0V E 96,y :PR IN T C H R $ ( 224) ;...
Page 367
Plans colorés 10 REM M o n t a g n e s 20 D E F I N T a-z 30 INK 0,1 : INK 1,26 40 INK 2 , 6 : INK 3,6 50 FOR i =4 TO NEXT 60 FOR i =8 TO 1 5 : INK i ,20: NEXT 70 M O D E 0 : D E G : OR I...
Page 368
90 DRAW x, CQ S<x )* 1 5 0 + R N D * 1 0 0 , 4 100 NEXT 110 MOVE 0,0 : F I LL 4 120 cx=1 75: GO SUB 320 130 c x =5 25: GO SUB 320 140 SYMBOL 25 2, 0,0 , 4 C , 4 1 F , 4 3 0 , 4 7 F , 4 F F 150 SYMBOL 253,8T,6,4E,4F2,2,4F2,4FE 160 SYMBOL 2 5 4 , 0 , 4 6 0 , 4 7 0 , 47F,47F ,4 7F, 47 F...
Page 369
230 240). 290). Et l’ordinateur ? P o u r c o n c l u r e c e c h a p i t r e , q u e l q u e s m o t s s u r le c o n t e n u d e v o t r e o r d i n a t e u r .
Page 370
Annexe 1 Contrat d’utilisation des logiciels Digital Research & AM STRAD NOTICE A LIRE ATTENTIVEMENT PAR L’UTILISATEUR 1. Définitions Annexe 1 Page 1 Contrat d'utilisation d e s logiciels...
Page 371
2. Licence A nnexe 1 P age 2 Contrat d'utilisation d e s lo g iciels...
Page 372
3. Echéances 4. Limites de garantie 5. Limites des recours Contrat d ’utilisation d e s logiciels A nnexe 1 P age 3...
Page 373
6. Carte d’enregistrement 7. Généralités Contrat d'utilisation d e s lo g iciels A nnexe 1 P age 4...
Page 374
Annexe 2 Petit dictionnaire (français et anglais) A Vintention des utilisateurs du CPC664 Accès direct Accumulateur Adresse Algorithme Alimentation Alphanumérique Petit dictionnaire A nnexe 2 Page 1...
Page 375
Amorce AM SDOS AMSOFT Analogique Animation Architecture Annexe 2 P age 2 Petit dictionnaire...
Page 376
Argument ASCII Assembleur Autonome Base Base de données BASIC A nnexe 2 Page 3 Petit dictionnaire...
Page 377
BAUD Binaire Bit significatif Bogue Annexe 2 P age 4 Petit dictionnaire...
Page 378
BOOLE Boot Bootstrap Boucle Bruit Byte A nnexe 2 Page 5 Petit dictionnaire...
Page 380
Cartouche Cassette Catalogue Chaîne Clavier Clavier numérique A nnexe 2 Page 7 Petit dictionnaire...
Page 381
Code à Barres Code Machine Commande Commande intégrée Compilateur Coupleur acoustique Annexe 2 Page 8 Petit dictionnaire...
Page 382
Crayon optique Curseur Curseur graphique Décimale Défilement Délimiteur Démarrage à chaud Petit dictionnaire A nnexe 2 Page 9...
Page 383
Démarrage à froid Détérioration Diagnostic Dialogue ordinateur-périphérique D igitaliser Disque Données exploitables sur machine A nnexe 2 Page 10 Petit dictionnaire...
Page 384
Double face Dr. LOGO Editer Editeur Editeur d’écran Enregistrement Petit dictionnaire A nnexe 2 Page 11...
Page 385
Erreur syntaxique Expression Fichier Firmware Floppy disk Formatage Forth Générateur de son Petit dictionnaire A nnexe 2 P age 12...
Page 386
Générations d’ordinateurs Graphique Graphisme de la tortue Hexadécimal Horloge IEEE-488 Imprimante Imprimante à marguerite A nnexe 2 Page 13 Petit dictionnaire...
Page 387
Imprimante matricielle Informatique Informatisation du plus grand nombre Ingénierie logicielle Initialiser Instruction Instructions Intégration à grande échelle Petit dictionnaire Annexe 2 Page 14...
Page 388
Intelligence artificielle Interactif Interface Interface homme-machine Interface parallèle Interface série Interpréteur Petit dictionnaire A nnexe 2 Page 15...
Page 389
Itération Jeux d’Arcade et d’Aventures Jocker Joysticks Langage évolué Petit dictionnaire Annexe 2 Page 16...
Page 390
Langage lié à l’ordinateur Langages Lecture/Ecriture Lecture seulement (Read Only - R/O) LISP (LIST PROCESSOR) Logiciel Logiciel intégré Logo A nnexe 2 Page 17 Petit dictionnaire...
Page 391
Lutin Manette de jeux Matériel Matrice Mémoire Mémoire Mémoire tampon Annexe 2 Page 18 Petit dictionnaire...
Page 392
Menu Microprocesseur Microprogramme Mise au point Mode graphique Modem Modulateur RF A nnexe 2 Page 19 Petit dictionnaire...
Page 393
Moniteur Nibble Nœuds Nombre à virgule fixe Nombre réel Nombre sans signe Nombres entiers Nom de fichier A nnexe 2 P age 20 Petit dictionnaire...
Page 394
Nom de fichier ambigu Notation polonaise inversée (NPI) Nuro iseur Numéro de ligne Octal Octet Opérateur Organigramme A nnexe 2 P age 21 Petit dictionnaire...
Page 395
Paddle Page Zéro Pas de tortue Pascal PEEK Périphérique Périphérique logique Périphérique physique Annexe 2 Page 22 Petit dictionnaire...
Page 396
Pile Pistes Pistes Système Pixel POKE Port Portabilité Porte Petit dictionnaire A nnexe 2 P age 23...
Page 397
Primitive Procédure Progiciel prêt à l’emploi Progiciels Programmation structurée Programme Programme d’application Programme transitoire A nnexe 2 P age 24 Petit dictionnaire...
Page 398
Prompt Protection en écriture Puce Quartet Rafraîchissement Annexe 2 Page 23 Petit dictionnaire...
Page 399
RANDOM RASTER Reconnaissance de la parole Reconnaissance optique des caractères Recouvrir Recursion Registre REMarque Réseau Annexe 2 Page 26 Petit dictionnaire...
Page 400
Réservé Résolution Routine RS232C Saisie des données Sauvegarde Secteur Annexe 2 Page 27 Petit dictionnaire...
Page 401
Séparateur Simple face Simulation Software Sortie Sortie imprimée Sous-programme Synthèse de la parole Annexe 2 P age 28 Petit dictionnaire...
Page 402
Table de vérité Table graphique Tableau Tableur Technologie de l’information Temps réel Terminal Petit dictionnaire A nnexe 2 Page 29...
Page 403
Terminal intelligent Terminal non-intelligent Touche de fonction Touche programmable Touches de contrôle du curseur Touches programmables par l’utilisateur Traceur Annexe 2 Page 30 Petit dictionnaire...
Page 404
Traitement de texte Transfert en aval Tronqué Unité de disquette Utilitaire Petit dictionnaire A nnexe 2 P age 31...
Page 405
Valeur par défaut Variable Virgule flottante XYZY Annexe 2 P age 32 Petit dictionnaire...
Page 406
Annexe 3 Et pour quelques programmes de plus... Ping-pong "+CHR*( 8 ) +CHR* Et pour qu elq u es program m es d e plus... A nnexe 3 P age 1...
Page 407
dx>0 scorel=scorel+l 5 C o r e 2 = s c o r e 2 + 580 scored = 1 :note=2000 Annexe 3 Page 2 Et pour qu elq u es program m es d e plus...
Page 408
ï Escrime électrique A nnexe 3 P age 3 Et pour qu elq u es program m es d e plus...
Page 409
490 j l d i r = ( ( I N K E Y ( 6 9 ) = 0 ) * ! ) + ( ( I N K E Y (71)= 0)*-1) <6 PRINT CHR*(209); : RETURN î 600 ’...
Page 410
1 2 , 2 0 1 $ = 1 1 A nnexe 3 Page 5 Et pour qu elq ues program m es d e plus...
Page 420
Et pour qu elq ues program m es d e plus... A nnexe 3 P age 15...
Page 421
ne près. 1380 LOCATE 6 ,1 2 : PRINT "Classement en" timenow;"secondes" 1390 QSUB 2750 ’ espace 1400 RETURN ’ au menu p r i n c i p a l 1410 ’ 1420 ’ SOUS-PROGRAMME: Permutation 1430 ’ 1440 s l * = f i e l d l * ( s 3 7 . ) : t i el d 1* (s37. ) M i e l d l * ( s 4 % ) : f i el d 1* (s47. ) = s i * = s i * 1460 s l * = f i e l d3 * ( s 37 .
Page 422
A nnexe 3 P age 17 Et pour q u elq ues program m es d e plus...
Page 423
Annexe 3 P age 18 Et pour qu elq u es program m es d e plus...
Page 424
"5 "5 6 - 2 0 ’ - I U 2 Et pour qu elq u es program m es d e plus... A nnexe 3 P age 19...
Page 425
Annexe 3 P age 20 Et pour q u elq u es program m es d e plus...
Page 426
Arsène Lupin A nnexe 3 P age 21 Et pour qu elq ues program m es d e plus...
Page 427
Annexe 3 P age 22 Et pour qu elq u es program m es d e plus...
Page 428
610 qem*=CHR$( 1 4 4 ) : obj*=CHR*( 2 3 3) : c hi en* = CHR*(255) i n t e r * ( 1 , 1 ) ; i n t e r * ( 2 , 1 ) ; " i n t e r r u p t e u r a l l u m e PEN 4 s P R I N T L E F T * ( f e n e t * , L E F T * e n e t *...
Page 429
#l , mi nx( r m) - , eaxx(rm)+ , mi ( r m) - l , maxy( r m) + : C 8 , 0 El pour qu elq u es program m es d e plus... A nnexe 3 P age 24...
Page 430
13919 P E N 6 1400 F O R i = l T O obj (rut) 1410 L O C A T E objx(rm,i) objy(rm,i) 1420 PR IN T obj*; 1430 N E X T 1440 P E N 5 1450 F O R i = l T O gems(rm) 1460 L O C A T E gemx(rm,i) , gemy(rm,i) 1470 PR IN T geint;...
Page 431
1810 IF dir=2 T H E N xp=6:yp=miny(rm) 1820 IF dir*3 T H E N xp=minx(rm)syp=13 1830 IF dir»4 T H E N xp=maxx(rm):yp=13 1840 R E T U R N 18S0 IF xp >5 A N D xp<8 T H E N 1880 1860 IF xp<6 T H E N dir=4 E L SE dir=3 1870 G O T O 1780 1880 IF yp>13 T H E N dir = 2 E L SE dir = 1...
Page 432
2230 pic*=parte*(dr>sGOSUB 2500 2240 G O T O 1280 2250 ’ 2260 ’ dessin des fenetres 2270 ’ 2280 R E A D no,wi« 2290 IF wi*="V" T H E N wi=2 EL SE w i = 1 2300 P E N 4 2310 pic*=fenet*(wi) : G Q SU B 2500 2320 G O T O 1280 2330 ’...
Page 433
2660 m ort = 1 :R E T U R N 2670 D A T A E N T R E E 2680 D A T A L,64,308,226,4 2690 D A T A D,2,H,6,3,6,22 2700 D A T A D , 2, V,4,12,9,11 2710 D A T A 2720 D A T A , R,9,...
Page 434
3100 D A T A F,390,302,430,314 3110 D A T A F,474,240,488,270 3120 D A T A F,474,124,488,154 3130 D A T A F,58,240,72,270 3140 D A T A L,226,308,322,180 3150 D A T A L,160,180,480,100 3160 D A T A L,64,180,160,100 3170 D A T A E N D S i ces j e u x vous o n t p lu , vous p o u v e z vous jo in d r e a u C lu b des u tilis a te u rs A M S T R A D .
Page 435
Annexe 4 Index ( L e p r e m ie r n u m é ro re n v o ie a u c h a p itr e e t le s e c o n d à la p a g e . A in s i, p o u r la ré...