10 REM **** BALLBOUNCE.BAS ****
20 PRINT CHR$(147):REM CLEAR SCREEN
30 BALL=81:SPACE=96:RULE=99:REM CODES TO PRINT THINGS ON THE SCREEN
40 FOR L=55616 TO 55975:POKE L,2:NEXT L:REM MAKE BALL RED
50 FOR L=55976 TO 56015:POKE L,7:NEXT L:REM MAKE FLOOR YELLOW
60 POKE 53281,0:POKE 53280,6:REM BLACK BACKGROUND, BLUE BORDER
70 PRINT CHR$(5):REM WHITE TEXT
80 PRINT:PRINT:PRINT "     FOLLOW THE BOUNCING BALL . . ."
90 FOR L=1704 TO 1743:POKE L,RULE:NEXT L:REM DRAW FLOOR
100 PSN=1664:CT=1:REM STARTING POSITION AND FRAME COUNTER
110 FOR INC=1 TO 8:GOSUB 210:REM THIS LOOP DRAWS THE BALL GOING UP
120 PSN=PSN-40+1:REM THE BALL GOES UP
130 IF CT>40 THEN PSN=1344:CT=1:GOTO 150:REM BALL OFF SCREEN--BACK TO BEGINNING
140 NEXT INC
150 FOR DEC=1 TO 8:GOSUB 210:REM THIS LOOP DRAWS THE BALL COMING DOWN
160 PSN=PSN+41:REM THE BALL COMES DOWN
170 IF CT>40 THEN 100:REM BALL OFF SCREEN -- LOOP BACK
180 NEXT DEC
190 GOTO 110:REM DONE--START AGAIN
200 REM **** PRINT BALL ON SCREEN ****
210 POKE PSN,BALL
220 FOR L=1 TO 50:NEXT L
230 POKE PSN,SPACE
240 CT=CT+1:RETURN
250 END