10 PB=PEEK(106)-8:POKE 106,PB:GRAPHICS 19:POKE 54279,PB:PMB=PB*256+512:POKE 559,46:POKE 53277,3:POKE 623,1 20 POKE 704,255:POKE 53256,0:FOR I=PMB TO PMB+128:POKE I,0:NEXT I:Y=PMB:IY=1:YL=PMB+200:X=110:DIM GC(8),GX(8),GY(8) 60 U=-1:LP=U:FOR F=0 TO 8:GY(F)=RND(1)*10+7:GX(F)=F*3+5:GC(F)=5:NEXT F:GOSUB 600 100 POKE Y,0:POKE Y+1,0:POKE 53278,1:Y=Y+IY/10:POKE Y,3:POKE Y+1,3:POKE 53248,X:IY=IY+2:ON Y+IY>=YL GOTO 800 110 X=X+((STICK(0)=7 AND X<200)*2)-((STICK(0)=11 AND X>0)*2):ON PEEK(53252)=0 OR IY<0 GOTO 100:LP=U 500 IY=-20-((STRIG(0)=0)*((Y-PMB)/5)):BX=(X-40)/4:FOR U=0 TO 8:IF BX+1GX(U)+1 THEN NEXT U 505 FOR S=14 TO 0 STEP -2:SOUND 0,S*10,10,S:NEXT S:GC(U)=GC(U)-1:GOSUB 600:ON U=LP GOTO 800:IF P>0 THEN 100 550 FOR R=15 TO 0 STEP -2:FOR S=150 TO 0 STEP -5:SOUND 0,S,10,R:NEXT S:NEXT R:RUN 600 P=0:FOR B=0 TO 8:COLOR (1*GC(B)>0)+(1*GC(B)>2):P=P+GC(B):PLOT GX(B),GY(B):DRAWTO GX(B)+1,GY(B):NEXT B:RETURN 800 FOR R=15 TO 0 STEP -5:FOR S=0 TO 150 STEP 50:SOUND 0,S,10,R:SOUND 1,S*1.2,10,R:SOUND 2,S*1.3,10,R:NEXT S:NEXT