Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
11 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