50 PR INT
"
5 0
r
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*< 2 5 1 ) ; "
120 NEXT x
130 FOR n = 1 TO 3 0 0 : NEXT n
140 GOTO 20
run
Cours élém entaire
1 1 ; C H R $ ( 2 5 0 >
"
Chapitre 1 Page 55
