10 CLS
20 WIDTH 20,8
30 HIT%=0:MISS%=0:MAX%=8
40 LOCATE4,2,0
50 PRINT"HIT OR MISS!"
60 FORI=1TO3:FORJ=1TO55STEP3
70 SOUNDJ,1
80 NEXTJ,I
90 FORDELAY=1TO500
100 NEXTDELAY
110 CLS
120 XMISSILE=INT(RND(1)*14+2)
130 PERIOD=INT(RND(1)*5+1)
140 YMISSILE=3
150 FORXCAR=18TO0STEP-1
160 LOCATEXCAR/2,0
170 PRINTCHR$(154)+CHR$(32);
180 LOCATEXCAR,0
190 PRINTCHR$(152)+CHR$(32);
200 A$=INKEY$
210 LOCATEXMISSILE,YMISSILE:PRINTCHR$(32);
220 IFYMISSILE<3THENYMISSILE=YMISSILE-1
230 IFYMISSILE<0THEN330
240 IFA$<>""THENYMISSILE=2
250 LOCATEXMISSILE,YMISSILE
260 PRINTCHR$(151);
270 NOISE=INT(RND*56)+1
280 SOUNDNOISE,PERIOD
290 IFYMISSILE<>0THEN320
300 IFXCAR=XMISSILE THEN420
310 IFXCAR/2=XMISSILE THEN500
320 NEXTXCAR
330 LOCATE5,2,0
350 PRINT"YOU MISSED!"
360 FORI=1TO2:FORJ=56TO1STEP-4
370 SOUNDJ,1:SOUNDJ+1,1
380 NEXTJ,I
390 MISS%=MISS%+1
400 IFMISS%=MAX%THEN580
410 GOTO110
420 LOCATE5,2,0
430 PRINT"YOU HIT IT!"
440 FORI=1TO3:FORJ=56TO51STEP-1
450 SOUNDJ,1:SOUND51,1:SOUND56,1
460 NEXTJ,I
470 HIT%=HIT%+1
480 IFHIT%=MAX%THEN580
490 GOTO110
500 LOCATE0,1,0
510 CLS
515 PRINT:PRINT"YOU KILLED THE MAN!"
520 J=0:FORI=1TO56
530 J=(I+J)MOD56+1:SOUNDJ,1
540 NEXTI
550 MISS%=MISS%+1
560 MAX%=MAX%+1
570 GOTO110
580 CLS
590 PRINT"/"
600 PRINT100*HIT%/(HIT%+MISS%);"%";
610 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
620 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:CLS:END
