14 lines
223 B
Plaintext
14 lines
223 B
Plaintext
_runtimePath_ "../runtime"
|
|
_codeRomType_ ROMv1
|
|
|
|
10 REM BOUNCING BALL
|
|
20 X=2:V=6
|
|
30 CLS:AT X,56 : SCROLL OFF
|
|
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 WAIT 1:NEXT I
|
|
90 V=-V
|
|
100 GOTO &40
|