Bouncing Ball.bas

10 REM BOUNCING BALL
20 PRINT "{clear}"
25 FOR X=1 to 10: PRINT "{down}": NEXT
30 FOR BL=1 to 40
40 PRINT" o{left}";
50 FOR TM=1 TO 5
60 NEXT TM
70 NEXT BL
75 REM MOVE BALL RIGHT TO LEFT
80 FOR BL=40 TO 1 STEP -1
90 PRINT" {left}{left}o{left}";
100 FOR TM=1 TO 5
110 NEXT TM
120 NEXT BL
130 GOTO 20