1 ' BOUNCER By KEN BRAGGLES
2 '
3 CLS:PRINT "BOUNCER":PRINT
4 PRINT "The object of this game is to get the ball through the hole at the top of the screen before your strength runs out":PRINT
5 PRINT "control = 'Z'- left   'X'- right  and 'SPACE'=JUMP":PRINT:PRINT"ANY KEY TO PLAY":CALL &BB18
10 MODE 1:INK 0,0:INK 1,26:INK 2,24:INK 3,8:PAPER 0:BORDER 0:CLS:PEN 3:LOCATE 10,23:PRINT "PRESS SPACE BAR TO PLAY":WHILE INKEY(47)=-1:WEND:FOR screen=1 TO 30:lstr=0
20 INK 0,0:PAPER 0:BORDER 0:PEN 3:DIM r$(40,25):CLS:FOR n=1 TO 23:LOCATE 1,n:r$(1,n)="b":r$(40,n)="b":PRINT CHR$(143):LOCATE 40,n:PRINT CHR$(143):NEXT:LOCATE 1,1:PRINT STRING$(40,143):LOCATE 1,24:PRINT STRING$(40,143)
30 SYMBOL AFTER 150:PEN 3:FOR n=2 TO 23:FOR m=2 TO 39:r$(m,n)=" ":NEXT m,n:FOR n=4 TO 20 STEP 2:FOR m=1 TO 2:mx=INT(RND*34)+3:LOCATE mx,n:PRINT CHR$(143):LOCATE mx+1,n:PRINT CHR$(143):r$(mx,n)="b":r$(mx+1,n)="b":NEXT m,n
40 ex=INT(RND*25)+5:LOCATE ex,1:PRINT"  ":FOR e=0 TO 2:r$(ex+e,1)=" ":NEXT:LOCATE ex,5:PRINT CHR$(143)CHR$(143)CHR$(143);:r$(ex,5)="b":r$(ex+1,5)="b":r$(ex+2,5)="b":SYMBOL 200,60,122,253,253,255,255,126,60
50 PEN 2:x=10:y=20:xx=x:yy=y:fx=1:str=400:WHILE dumm=0:LOCATE x,y:PRINT CHR$(200):IF xx<>x OR yy<>y THEN LOCATE xx,yy:PRINT " ":xx=x:yy=y
60 WHILE (INKEY(47)<>-1) AND r$(x+fx,y-1)=" ":y=y-1:x=x+fx:LOCATE x,y:PRINT CHR$(200):LOCATE x-fx,y+1:PRINT" ":LOCATE x,y:PRINT" ":WEND:IF r$(x+fx,y-1)<>" " AND x+fx>1 AND x+fx<40 THEN str=str-20:SOUND 1,1,10,15
70 IF y=1 THEN 100 ELSE IF r$(x,y+1)<>" " THEN 80 ELSE FOR n=y+1 TO 23:IF r$(x,n)=" " THEN LOCATE x,n:PRINT CHR$(200):LOCATE x,n-1:PRINT" ":NEXT:LOCATE x,23:PRINT" ":y=n-1:x=x ELSE LOCATE x,n-1:PRINT" ":y=n-1:xx=x:yy=y:LOCATE x,y:PRINT" ":GOTO 100
80 IF (INKEY(71)=0) AND r$(x-1,y)=" " THEN x=x-1:fx=-1 ELSE IF (INKEY(63)=0) AND r$(x+1,y)=" " THEN x=x+1:fx=+1 ELSE fx=0
90 IF lstr<>str THEN PEN 1:LOCATE 1,25:PRINT USING "    STRENGTH:####         LEVEL:##";STR,SCREEN:LSTR=STR:PEN 2
100 IF Y<>1 AND str<>0 THEN WEND ELSE IF y=1 THEN m=1 TO 26:INK 0,m:BORDER m:FOR n=1 TO 70:NEXT:NEXT:CLS:INK 1,0:PEN 1:LOCATE 10,10:PRINT "Well done-Try screen";screen+1:FOR n=1 TO 1500:NEXT:ERASE r$:INK 1,26:NEXT screen:END ELSE CLS:RUN