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