11 lines
153 B
Plaintext
11 lines
153 B
Plaintext
10 REM BOUNCING BALL
|
|
20 X=2:V=6
|
|
30 CLS:ATX,60
|
|
40 FOR I=1 TO 25
|
|
50 AT X:PUT 32:REM CLEAR
|
|
60 X=X+V
|
|
70 AT X:PUT 79:REM DRAW O
|
|
80 NEXT I
|
|
90 V=-V
|
|
100 GOTO 40
|