Monkey Business

40 FOR L=55616 TO 55975:POKE L,2:NEXT L: REM MAKE BALL RED NM 50 FOR L=55976 TO 56015:P0KE L,7:NEXT L: REM MAKE FLOOR YELLOW JI 60 POKE 53281,0:POKE 53280,6:REM BLACK B GL ACKGROUND, BLUE BORDER NB 70 PRINT CHR$(5):REM WHITE TEXT JM 80 PRINT:PRINT:PRINT "[5" "]FOLLOW THE B JG OUNCING BALL ..." JG 90 FOR L=17O4 TO 1743:P0KE L,RULE:NEXT L :REM DRAW FLOOR FK 100 PSN=1664:CT=1:REM STARTING POSITION PC AND FRAME COUNTER FK 110 FOR INC=1 TO 8:G0SUB 210:REM THIS LO OP DRAWS THE BALL GOING UP EH 120 PSN=PSN-40+l:REM THE BALL GOES UP HL 130 IF CT>40 THEN PSN=1344:CT=l:G0T0 150 :REM BALL OFF SCREEN—BACK TO BEGINNING FI 140 NEXT INC GD 150 FOR DEC=1 TO 8:G0SUB 210:REM THIS LO OP DRAWS THE BALL COMING DOWN MJ 160 PSN=PSN+41:REM THE BALL COMES DOWN HK 170 IF CT>40 THEN 100:REM BALL OFF SCREE N — LOOP BACK FA 180 NEXT DEC EN 190 GOTO 110:REM DONE—START AGAIN KC 200 REM **** PRINT BALL ON SCREEN **** PI 210 POKE PSN,BALL MH 220 FOR L=l TO 50-.NEXT L OH 230 POKE PSN,SPACE CC 240 CT=CT+1:RETURN HB 250 END IC