Publicité
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);
1080 NEXT x , y
2000 REM DATA pour l'écran 1
2010 DATA 200,190,244,244,210 ...etc
2500 REM DATA pour l'écran 2
2510 DATA 100,103,245,243,251 ...etc
3000 REM DATA pour l'écran 3
3010 DATA 190,191,192,193,194 ...etc
10 FOR i=l TO 3
20 RESTORE 100
30 READ note
40 WHILE note 0-1
50 SOUND t,note,35
60 READ note
70 WEND
80 NEXT
90 SOUND 1,142, 100
100 DATA 95,95,142,127,119,106
110 DATA 95,95,119,95,95,119,95
120 DATA 95, 142,1 19, 142, 179, 1 19
130 DATA 142,142,106,119,127,-1
r un
Chapitre 8
Page 34
A vos heures d e loisir...
Publicité
