10 DEFINT a-z:CALL &BC02:BORDER 0:MODE 0:WHILE z=0:INK 0,0:x=10:PEN 4:LOCATE 6,11:PRINT"POINTS:";s:LOCATE 6,13:PRINT"RECORD:";re:s=-24:WHILE INKEY(47):SOUND 7,RND*2500,1,1:WEND:CLS:WHILE TEST(32*(x-1),24)<>9:x=x+(INKEY(8)=0 AND x>1)-(INKEY(1)=0 AND x<20)
20 PEN 9:LOCATE 1+RND*19,1:PRINT CHR$(11);CHR$(231):PEN 4:LOCATE x,25:PRINT CHR$(239);:PLOT RND*640,300+RND*100,RND*15:s=s+1:WEND:re=MAX(re,s):FOR a=1 TO 15:PLOT x*32-20,50,3:FOR b=1 TO 5:DRAWR 32-a*4,-b*b:SOUND 7,b*250,a/2,15-a:INK 0,3,0:NEXT b,a:WEND