10 MODE 0:BORDER 0:INK 0,0:INK 1,24:INK 2,15:INK 3,11:INK 4,23:INK 5,4:INK 6,17:SYMBOL AFTER 255:SYMBOL 255,198,56,40,124,170,124,36,66 20 FOR t=0 TO 29:PLOT RND*639,RND*379,RND*1+3:NEXT:FOR t=0 TO 49:MOVE 0,t:DRAW 639,t,5:NEXT:FOR t=300 TO 340:MOVE t,42:DRAW t,50,6:NEXT:l=1 30 x=20:y=350:a=0:b=0:GOSUB 110:m=TIME 40 PLOT x,y,1:PRINT CHR$(255);:PLOT x,y:PRINT CHR$(255);:PLOT x,y,0:PRINT" "; 50 IF JOY(0)=8 OR INKEY(1)=0 THEN a=a+l/2:GOSUB 120 60 IF JOY(0)=4 OR INKEY(8)=0 THEN a=a-l/2:GOSUB 120 70 IF JOY(0)=1 OR INKEY(0)=0 THEN b=b+l/2:GOSUB 120 80 x=x+a+RND*l/2:y=y+b+RND*l/2:b=b-l/20 90 IF y<68 THEN IF x>292 AND x<324 AND b>-3 THEN s=s+ROUND(1/(TIME-m)*43995):FOR t=160 TO 1 STEP-8:SOUND 1,t,4:SOUND 2,t,6:NEXT:l=l+1:GOTO 30 ELSE FOR t=15 TO 7 STEP-1:SOUND 1,2230,20,t,,,t*2:NEXT:GOTO 130 100 GOTO 40 110 TAGOFF:PEN 2:LOCATE 1,1:PRINT"SCORE:"s"LEVEL:"l:TAG:RETURN 120 SOUND 1,0,8,15,,,1:RETURN 130 TAGOFF:PEN 1:LOCATE 1,12:PRINT">Space< for new game":WHILE INKEY(47)<>0:WEND:RUN