gigatron/rom/BASIC/BouncingBall.gtb
2025-01-28 19:17:01 +03:00

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