BouncingBall.gtb: demoing AT and PUT

kervinck · Sep 4, 2018 · 22a36ed · 22a36ed
1 parent 7b1e496
commit 22a36ed
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/BASIC/BouncingBall.gtb b/BASIC/BouncingBall.gtb
@@ -0,0 +1,10 @@
+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