1 DEFINT a-z:MODE 1:g=1:ORIGIN 0,0,0,639,399,64:CLG 3:WHILE g<27:DIM z(40,20):ORIGIN 0,0,9,630,390,75:CLG 0:PEN 2:FOR b=1 TO g:s=0:WHILE s=0:x=2+RND*37:y=3+RND*17:s=z(x,y)=0:WEND:z(x,y)=b:LOCATE x,y:PRINT CHR$(64+b):NEXT:c=21:l=2:d=1:WHILE d<=g:LOCATE c,l
2 WHILE INKEY(47)=0:RUN:WEND:PEN 1:PRINT CHR$(&F8+RND*3):x=MIN(39,MAX(2,c+INKEY(1)-INKEY(8))):y=MIN(20,MAX(2,l+INKEY(2)-INKEY(0))):q=z(x,y):SOUND 5,q*35,1:WHILE q=d:d=d+1:q=0:WEND:WHILE q=0:c=x:l=y:z(x,y)=50:q=1:WEND:WEND:g=g+1:ERASE z:WEND:PRINT"RESPECT"