10 REM *** BOUNCING BALL ***
20 W=20:H=16
30 REM - DRAW FRAME -
40 PRINT"{CLS}┌";:FOR I=0 TO W:PRINT"─";:NEXT:PRINT"┐"
50 FOR I=0 TO H:PRINT"│"SPC(W+1)"│":NEXT
70 PRINT"└";:FOR I=0 TO W:PRINT"─";:NEXT:PRINT"┘"
80 REM - BALL SETUP (TRUE:-1,FALSE:0) -
90 X=1+INT(RND(1)*(W-2)):Y=1+INT(RND(1)*(H-2))
100 DX=1+2*(RND(1)<0.5):DY=1+2*(RND(1)<0.5)
110 PRINT"{HOME}";
120 FOR I=0 TO Y:PRINT"{DOWN}";:NEXT
130 FOR I=0 TO X:PRINT"{RIGHT}";:NEXT
140 PRINT"●";
150 REM - MAIN LOOP -
160 PRINT"{LEFT} {LEFT}";
170 IF DX>0 THEN PRINT"{RIGHT}";
180 IF DX<0 THEN PRINT"{LEFT}";
190 IF DY>0 THEN PRINT"{DOWN}";
200 IF DY<0 THEN PRINT"{UP}";
210 PRINT"●";
220 X=X+DX:Y=Y+DY
230 IF X=0 OR X=W THEN DX=DX*-1
240 IF Y=0 OR Y=H THEN DY=DY*-1
250 GOTO 160