Publicité
ON < expression > GOTO
90 AUIü
r
1
3
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
70 SOUND l , s , 2 5 , 15, 1
80 O N SQ(1) GOSUB 6 0 : RETURN
90 DATA 5 0 , 6 0 , 9 0 , 1 0 0 , 3 5 , 2 0 0 , 2 4 , 5 0 0 , 0
run
Mots c lés du BASIC
80,
90,
100
.
Chapitre 3 Page 52
Publicité
