5 CLEAR2500:GOSUB9100:DIMA$(23),DF$(11),S2$,HS$,NM$,KK$,BM$,SP$,CR$
10 DIM DF(11),K,KK,T,E,C,Z,D,F,V,LO,L,LB,P1,P2,P3,DD,BB,OK,M2,M1,M3,VK
20 HS=1000:HS$="JGERRIE"
100 FOR T=1 TO 8:FORC=1TO94:READ Z:A$(T)=A$(T)+CHR$(Z)
110 NEXTC:NEXTT
200 D=32:E=0
205 FORT=1TO7:A$(T)=A$(T)+"  ":NEXTT
206 A$(8)=A$(8)+CHR$(139)+CHR$(134)
210 FOR C=9 TO 23
220 E=E+2:D=D-2
225 A$(C)=""
230 FOR Z=1 TO 65 STEP 32
240 F=Z+E
250 A$(C)=A$(C)+MID$(A$(8),F,D)+MID$(A$(1),Z,E)
260 NEXT Z
270 NEXT C
300 PRINT"PILOT, ENTER YOUR NAME          (8 CHARACTER MAX)";:INPUTNM$
305 NM$=LEFT$(NM$+" ",8)
310 GOSUB9900:GOSUB8530
330 CLS:PRINT"ACE: ";HS$,"HIGH=";HS
340 PRINT@494,NM$;
350 PRINT@L,DF$(D+1);
1000 PRINT@288,A$(T):PRINT@96,A$(C)
1005 IFI$=SP$THENGOSUB5020
1010 T=T+D:IFT=24THENT=1
1012 C=C+D:IFC=24THENC=1
1015 IFT=0THENT=23
1016 IFC=0THENC=23
1017 IFPEEK(M2+L)<>DF(D+1)ANDPEEK(M2+L)<>96THEN9000
1020 PRINT@LO,S2$;:PRINT@L,DF$(D+1);
1022 IFBB=1THENGOSUB7050
1025 I$=INKEY$:POKE16952,255:POKE16947,255
1030 IFI$=SP$THENGOSUB5000
1032 IFPEEK(M2+K)<>96ORPEEK(M3+K)<>96THENGOSUB6000
1033 IFK<128ORK>352THENGOSUB8530
1034 PRINT@OK,S2$;:PRINT@K,KK$;:OK=K:K=K+VK(RND(2))-D
1040 IFPEEK(16947)=247THENV=32:IFPEEK(M2+L+V)<>96ORPEEK(M3+L+V)<>96THEN9000
1050 IFPEEK(16952)=251THENV=-32:IFPEEK(M2+L+V)<>96ORPEEK(M3+L+V)<>96THEN9000
1060 IFI$="A"THENK=K-2:D=-1:PRINT@L,DF$(D+1);
1070 IFI$="S"THENK=K-2:D=1:PRINT@L,DF$(D+1);
1075 IFI$=CR$THENGOSUB7000
1080 LO=L:L=L+V
1090 V=0:GOTO1000
5000 IFD=-1THENPRINT@L-8,"--------";:GOTO5015
5010 PRINT@L+2,"--------";
5015 RETURN
5020 IFD=-1THENPRINT@LO-8,"        ";:GOTO5030
5025 PRINT@LO+2,"        ";
5030 RETURN
6000 IFK=LORK=L+1ORK=L-1THEN9500
6002 IFPEEK(M2+K)=109ORPEEK(M3+K)=109THENGOSUB8500
6010 K=OK+(VK*-1)+(-2*D)
6020 RETURN
7000 IFBB=1THEN7030
7010 BB=1
7020 DD=D*-1:LB=L+32
7025 IFPEEK(M1+LB)<>96ORPEEK(M2+LB)<>96ORPEEK(M3+LB)<>96THEN8000
7026 PRINT@LB,BM$;
7030 RETURN
7050 PRINT@LB,SP$;
7060 LB=LB+32+DD
7070 IFPEEK(M1+LB)<>96ORPEEK(M2+LB)<>96ORPEEK(M3+LB)<>96THENGOSUB8000:GOTO7090
7080 PRINT@LB,BM$;
7090 RETURN
8000 P1=PEEK(M1+LB):P2=PEEK(M3+LB):P3=PEEK(M2+LB)
8001 IF(P1=140ANDP2=140)OR(P1=131ANDP2=131)THENSC=SC+1000:SOUND1,1
8002 IFP3=124ORP3=126THENGOSUB8500:GOTO8010
8003 PRINT@480,SC;
8005 PRINT@LB-1,B3$;
8010 BB=0:RETURN
8500 PRINT@OK,S2$;
8510 GOSUB5020
8520 PRINT@K,B2$;
8525 SOUND10,1:SC=SC+100:PRINT@480,SC;
8530 PRINT@K,S2$;:K=286:OK=286
8540 PRINT@K,KK$;
8550 RETURN
9000 PRINT@LO,S2$;
9005 PRINT@L,B2$;
9010 PRINT@0,"YOU'RE DEAD ";NM$
9012 IF SC>=HS THEN HS=SC:HS$=NM$
9015 PRINT"PLAY AGAIN (Y/N)?"
9020 I$=INKEY$:C=RND(23):IFI$=""THEN9020
9030 IF I$="Y"THENPRINT@0,"";:GOTO300
9040 IF I$="N"THEN END
9050 GOTO9020
9100 CLS:PRINTTAB(11);"** JET **"
9105 PRINT:PRINT"USE THE ARROW KEYS <A,W,S,Z> TO"
9110 PRINT"FLY YOUR SUPERSONIC JET FIGHTER"
9112 PRINT"THROUGH THE CAVE.  DESTROY THE"
9115 PRINT"ALIEN SUICIDE DRONES AND BOMB"
9120 PRINT"THE VALLEY AREAS WHERE THE"
9122 PRINT"ALIENS HAVE HIDDEN THEIR ATTACK"
9123 PRINT"BASES. AVOID THE CAVE WALLS AND"
9124 PRINT"YOUR OWN BOMBS.  PRESS <SPACE>"
9125 PRINT"TO FIRE YOUR GUNS AND <ENTER>"
9127 PRINT"TO DROP BOMBS."
9130 PRINT
9140 RETURN
9500 PRINT@OK,S2$;:PRINT@K,KK$;
9510 GOTO9000
9700 DATA 32,32,32,32,32,32,32,32,137,134,32,32,32,32,32,140,32,32,32,32,32,32,32,32
9701 DATA 140,32,32,32,32,32,32,32,32,32,32,32,32,32,137,131,32,32,134,32,32,32,137
9702 DATA 32,134,32,32,32,32,32,32,137,32,134,140,140,140,140,137,134,140,140,140,140
9703 DATA 140,137,32,32,32,32,32,134,137,131,32,32,32,134,140,140,140,140,137,32,32
9704 DATA 32,32,32,32,32
9710 DATA 32,32,32,32,32,32,137,134,32,32,32,32,32,140,32,32,32,32,32,32,32,32,140,32
9711 DATA 32,32,32,32,32,32,32,32,32,32,32,32,140,137,32,32,134,32,32,32,137,32,134,32,32
9712 DATA 32,32,32,32,137,32,134,140,140,140,140,137,134,140,140,140,140,140,137,32,32,32
9713 DATA 32,32,134,137,131,32,32,32,134,140,140,140,140,137,32,32,32,32,32,32,32,32,32
9720 DATA 32,32,32,32,137,134,32,32,32,32,32,140,32,32,32,32,32,32,32,32,140,32,32,32
9721 DATA 32,32,32,32,32,32,32,137,32,32,140,137,32,32,134,32,32,32,137,32,134,32,32,32
9722 DATA 32,32,32,137,32,134,140,140,140,140,131,140,140,140,137,32,140,137,32,32,32,32,32
9723 DATA 134,137,131,32,32,32,134,140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32
9730 DATA 32,32,137,134,32,32,32,32,32,140,32,32,32,32,32,32,32,32,140,32,32,32,32,32
9731 DATA 32,32,32,32,32,137,134,32,140,137,32,32,134,32,32,32,137,32,134,32,32,32,32,32
9732 DATA 32,137,32,134,140,140,140,140,131,140,140,140,137,32,32,134,32,32,32,32,32,134
9733 DATA 137,131,32,32,32,134,140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32,32,32
9740 DATA 137,134,32,32,32,32,32,140,32,32,32,32,32,32,32,32,140,32,32,32,32,32,32,32
9741 DATA 32,32,32,137,134,32,32,32,32,32,134,32,32,32,137,32,134,32,32,32,32,32,32,137
9742 DATA 32,134,140,140,140,140,131,140,140,140,137,32,32,134,140,140,32,32,32,134,137,131
9743 DATA 32,32,32,134,140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
9744 DATA 32,32,32,32,32,140,32,32,32,32,32,32,32,32,140,32,32,32,32,32,32,32,32,32
9745 DATA 32,137,134,32,32,32,32,32,134,32,32,32,137,32,134,32,32,32,32,32,32,137,32,134
9746 DATA 140,140,140,140,131,140,140,140,137,32,32,134,140,140,140,140,32,134,137,131,32
9748 DATA 32,32,134,140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
9760 DATA 32,32,32,140,32,32,32,32,32,32,32,32,140,32,32,32,32,32,32,32,32,32,32,137
9761 DATA 134,32,32,32,32,32,32,32,32,32,137,32,134,32,32,32,32,32,32,137,32,134,140,140
9762 DATA 140,140,131,140,140,140,137,32,32,134,140,140,140,140,140,140,137,131,32,32,32
9763 DATA 134,140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
9764 DATA 32,140,32,32,32,32,32,32,32,32,140,32,32,32,32,32,32,32,32,32,32,137,134,32
9765 DATA 32,32,32,32,32,32,32,32,137,32,134,32,32,32,32,32,32,137,32,134,140,140,140
9766 DATA 140,131,140,140,140,137,32,32,134,140,140,140,140,140,140,141,32,32,32,32,134
9767 DATA 140,140,140,140,137,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
9900 MC=16384:REM MC=1024 FOR COCO
9910 M1=MC-1:M2=MC:M3=MC+1:LO=239:L=239
9920 DF(0)=140:DF(2)=132
9930 DF$(0)=CHR$(140)+CHR$(136):DF$(2)=CHR$(132)+CHR$(140)
9940 VK(1)=32:VK(2)=-32
9950 KK$="><":BM$="*":B2$=CHR$(159)+CHR$(159):B3$=B2$+CHR$(159)
9960 D=1:T=RND(23):C=RND(23)
9970 BB=0:CR$=CHR$(13)
9980 SC=0:SP$=" ":S2$="  "
9990 RETURN
