Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
10 lines (10 sloc) 153 Bytes
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