Publicité
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, " Fenet r e No"
î
50 CLS # 1 : PR INT #1, " Fenet r e No 1"
60 LOCATE 1, 6
70 PRINT" Fenet r e Rouge ( 0 ) "s SPC(2)
80 LOCATE # 1 , 1 , 6
90 PRINT #1, " Fenet r e Ver t e ( 1)"
100 FOR t = l TO 1000: NEXT
110 W INDOW SW AP 0 , 1:G0T0 60
run
§
W R IT E
Mots c lés du BASIC
jf.
W IN D O W
(W R IT E )
Chapitre 3 P age 90
Publicité
