1 MODE 0:ORIGIN 0,0,0,639,399,64:CLG 9:WHILE 1:g=g+1:DIM z(40,20):ORIGIN 0,0,96,543,382,81:CLG 8:PEN 9:FOR b=1 TO g+4:s=0:WHILE s=0:x=5+RND*11:y=3+RND*16:s=z(x,y)=0:WEND:z(x,y)=9:LOCATE x,y:PRINT CHR$(&E9):NEXT:PEN 4:c=3:l=11:d=0:WHILE d<262-g:LOCATE c,l 2 PRINT CHR$(&F8+RND*3):x=MIN(17,MAX(4,c+INKEY(1)-INKEY(8))):y=MIN(20,MAX(2,l+INKEY(2)-INKEY(0))):WHILE z(x,y)=0:SOUND 5,4,3:LOCATE c,l:PRINT CHR$(&86):LOCATE 7,22:PRINT 261-d-g;g:c=x:l=y:z(x,y)=9:d=d+1:WEND:IF INKEY(47)=0 THEN RUN ELSE WEND:ERASE z:WEND