10 GOSUB 810
20 PRINT CHR$(26)CHR$(27)CHR$(46)CHR$(48)CHR$(27)CHR$(97)
30 YO$(1)="EiF":YO$(2)="E F":YY=37:AL$(1)="GJI":AL$(2)="GKI":AL$(3)="GLI"
40 AL$(4)="GNI":AL$(5)="GOI":AA=0:LEV=LEV+1:PTS=0:FM=1:IF SS=0 THEN SS=5
50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:T=0:ML=0:BM=0
60 G$="CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
70 PRINT" "G$
80 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(1)
90 BM=0
100 A$=INKEY$
110 IF ML=>1 AND ZZ/2=INT(ZZ/2) THEN 690 ELSE FOR X=1 TO 20:NEXT
120 IF BM=>1 THEN 280
130 IF A$="," THEN 520 ELSE IF A$="." THEN 580 ELSE IF A$=" " THEN 640
140 IF A$=CHR$(27) THEN PRINT CHR$(27)CHR$(65):GOTO 380
150 T=T+1:IF T=200+LEV*50 THEN T=0:GOTO 470
160 ZZ=ZZ+1:IF ZZ=5 THEN ZZ=0 ELSE 100
170 IF AA=0 THEN PT=PT+1:GOTO 450
180 Z=INT(RND*8+1)
190 IF Z=1 THEN 280
200 PRINT CHR$(27)"="CHR$(32)CHR$(32+LA)"   "
210 IF BM=>1 THEN PRINT CHR$(27)"="CHR$(32+BM)CHR$(33+LA)" "
220 Z=INT(RND*AA+1)
230 IF LEV>5 THEN V=INT(RND*2+1) ELSE V=1
240 IF V=1 THEN LA=LA+Z ELSE LA=LA-Z
250 IF LA>72 OR LA<1 THEN AA=0:GOTO 100
260 PRINT CHR$(27)"="CHR$(32)CHR$(32+LA)AL$(AA)
270 GOTO 100
280 PRINT CHR$(27)"="CHR$(32+BM)CHR$(33+LA)" "
290 BM=BM+1
300 IF BM=10 THEN IF LA+1=YY OR LA+1=YY+1 OR LA+1=YY+2 THEN 320 ELSE 90
310 PRINT CHR$(27)"="CHR$(32+BM)CHR$(33+LA)"P":GOTO 130
320 PRINT CHR$(27)"="CHR$(41)CHR$(33+YY)"A"
330 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)"AAA"
340 BM=0:SS=SS-1:IF SS=0 THEN PRINT CHR$(27)CHR$(65):GOTO 380
350 PRINT CHR$(27)"="CHR$(41)CHR$(33+YY)" "
360 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(FM)
370 GOTO 130
380 PRINT CHR$(27)"="CHR$(42)CHR$(32)
390 PRINT:PRINT:PRINT
400 PRINT"YOU WERE ON LEVEL"LEV
410 PRINT"YOU HAD"SCR+PTS"POINTS!":SCR=0:LEV=0
420 PRINT"DO YOU WANT TO PLAY AGAIN? (Y/N) ";
430 A$=INPUT$(1):IF A$="Y" THEN 10 ELSE IF A$="N" THEN RUN"HELPER"
440 PRINT CHR$(7);:GOTO 430
450 Z=INT(RND*5+1):AA=Z:LA=INT(RND*53+10)
460 PRINT CHR$(27)"="CHR$(32)CHR$(32+LA)AL$(AA):GOTO 100
470 PRINT CHR$(27)CHR$(65):IF PTS<LEV*60 THEN 380
480 PRINT CHR$(27)"="CHR$(34)CHR$(32+25)"B O N U S -"PT"*"P"="PT*P
490 SCR=SCR+PTS+PT*P:FOR X=1 TO 2000:NEXT
500 PRINT CHR$(27)CHR$(97)
510 PT=0:P=0:SS=SS+1:GOTO 20
520 IF YY=1 THEN 160
530 IF ML=>1 THEN GOSUB 730
540 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)"   "
550 YY=YY-1
560 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(FM)
570 GOTO 160
580 IF YY=72 THEN 160
590 IF ML=>1 THEN GOSUB 730
600 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)"   "
610 YY=YY+1
620 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(FM)
630 GOTO 160
640 IF ML=>1 THEN 160
650 ML=9:FM=2
660 PRINT CHR$(27)"="CHR$(41)CHR$(33+YY)"D"
670 PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(FM)
680 GOTO 160
690 PRINT CHR$(27)"="CHR$(32+ML)CHR$(33+YY)" "
700 ML=ML-1:IF ML=0 THEN 740
710 PRINT CHR$(27)"="CHR$(32+ML)CHR$(33+YY)"D"
720 GOTO 120
730 PRINT CHR$(27)"="CHR$(32+ML)CHR$(33+YY)" ":RETURN
740 IF YY+1=LA OR YY+1=LA+1 OR YY+1=LA+2 THEN 770
750 FM=1:PRINT CHR$(27)"="CHR$(42)CHR$(32+YY)YO$(FM)
760 GOTO 120
770 PRINT CHR$(27)"="CHR$(32)CHR$(32+LA)"   "
780 PTS=PTS+AA*10:P=P+1
790 IF BM=>1 THEN PRINT CHR$(27)"="CHR$(32+BM)CHR$(33+LA)" "
800 AA=0:BM=0:GOTO 750
810 FOR X=1 TO 48:PRINT:NEXT:PRINT CHR$(27)CHR$(97)
820 PRINT"     CCCCCCCCC  CCC    CCC   CCCCCCCC    CCCCCCCC   CCCCCCCCC"
830 PRINT"    CCC         CCC    CCC  CCC    CCC  CCC    CCC     CCC"
840 PRINT"    CCC         CCC    CCC  CCC    CCC  CCC    CCC     CCC"
850 PRINT"     CCCCCCCC   CCCCCCCCCC  CCC    CCC  CCC    CCC     CCC"
860 PRINT"           CCC  CCC    CCC  CCC    CCC  CCC    CCC     CCC"
870 PRINT"           CCC  CCC    CCC  CCC    CCC  CCC    CCC     CCC"
880 PRINT"    CCCCCCCCC   CCC    CCC   CCCCCCCC    CCCCCCCC      CCC"
890 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
900 PRINT CHR$(27)CHR$(65)SPC(20)CHR$(147)" 1985  SHOOT by John Pursey"
910 FOR X=1 TO 2000:NEXT:FOR X=1 TO 24:PRINT:NEXT:RETURN
PRINT CHR$(27)CHR$(65)SPC(20)CHR$(147)" 19