1 FORL=0TO35:PRINT:NEXT:PRINT"FAILSAFE +2":PRINT"COPYRIGHT 1980 BY"
 2 PRINT"BILLY SMITH":PRINT:PRINT"HIT SHIFT":PRINT:PRINT"REMEMBER:"
 3 PRINTCHR$(247);" AAA":PRINTCHR$(30);" SAM":PRINTCHR$(238);" AI"
 4 IFPEEK(57100)=1ORPEEK(57100)=254THENN=RND(8):GOTO4
 5 A=254:B=253:C=251:D=247:E=239:F=223:G=191:H=127:V1=32:V=53414
 6 K=57088:PL=53387:IFPEEK(K)>128THEN9
 7 A=1:B=2:C=4:D=8:E=16:F=32:G=64:H=128:V=53637:V1=64:POKE56832,2
 8 PL=V+7
 9 INPUT"COMBAT QUALIFIED";W$:IFASC(W$)<>89THENTC=25+(9)*RND(3)+5
 10 INPUT"DIFFICULTY (1-10)";CP:CP=20-CP
 11 FORL=0TO35:PRINT:NEXT:FORCR=VTOV+20
 13 POKEV+6*V1,69:POKEV+7+6*V1,70:POKEV+14+6*V1,71
 14 POKEV+V1,72:POKEV+ 3+V1,73:POKEV+10+V1,74:POKEV+17+V1,75
 15 POKEV+11*V1,65:POKEV+7+11*V1,66:POKEV+9+11*V1,67:POKEV+15+11*V1,68
 20 POKECR,145:POKECR+160,145:POKECR+320,145:NEXT
 21 FORCR=V-1TOV-1+10*V1STEPV1:POKECR,0:POKECR+22,0:NEXT
 25 A1  =9*V1+V  :E1  =4*V1+V  :F1  =7+V+4*V1:G1  =V+14+4*V1
 26 I1  =V+3-V1:J1  =V+10-V1
 30 VD=V-1+12*V1:R3=VD+3*V1:R2=VD+5*V1
 31 W$="ARMED   LAUNCHED":WS=I1+11-V1
 32 POKEWS-15,87:POKEWS-14,65:POKEWS-13,82:POKEWS-12,72:POKEWS-11,69
 34 POKEWS-10,65:POKEWS-9,68:POKEWS-7,83:POKEWS-6,84:POKEWS-5,65
 36 POKEWS-4,84:POKEWS-3,85:POKEWS-2,83:POKEWS-1,58
 40 FORCR=VDTOVD+8
 50 POKECR,0:POKECR+9*V1,0
 60 NEXTCR
 64 TG=VD+4+V1
 65 S=VD+4+9*V1:SS=S:SL=VD+19+V1:SC=57:HC=57:DC=57
 66 POKESL-6,83:POKESL-5,82:POKESL-4,65:POKESL-3,77:POKESL-2,83
 67 SL=SL+3*V1:POKESL-6,67:POKESL-5,72:POKESL-4,65:POKESL-3,70
 68 POKESL-2,70:SL=SL+3*V1:POKESL-6,68:POKESL-5,69:POKESL-4,67
 69 POKESL-3,79:POKESL-2,89:SL=SL-6*V1
 70 FORCR=VDTOVD+9*V1STEPV1
 80 POKECR,0:POKECR+9,0
 90 NEXTCR
 92 FORCR=VD+10*V1TOVD+9+10*V1
 95 POKECR,0:NEXT
 500 POKE530,1
 510 POKEK,D:IFPEEK(K)=DTHENPOKE530,0:STOP
 520 POKESL,SC:POKESL+3*V1,HC:POKESL+6*V1,DC
 550 IFLRTHEN560
 555 LR=A1+INT((6)*RND(5)+1)
 560 LL=PEEK(LR):POKELR,154:POKELR,155:POKELR,32:POKELR,LL
 600 IFHC=48THEN604
 601 POKEK,C:IFPEEK(K)=GANDCH=0THENCHAFF=1:HC=HC-1
 604 IFSC=48THEN606
 605 POKEK,D:IFPEEK(K)=HANDSR=0THENSRAM=1:SC=SC-1
 606 IFDC=48THEN609
 607 IFPEEK(K)=GANDDE=0THENDECOY=1:DC=DC-1
 609 IFBATHEN700
 610 POKEK,B:IFPEEK(K)=GTHENBA=A1   :GOTO700
 620 POKEK,D:IFPEEK(K)=FTHENBA=F1
 625 IFPEEK(K)=ETHENBA=G1   :GOTO700
 627 IFPEEK(K)=CTHENBA=J1   :GOTO700
 640 POKEK,E:IFPEEK(K)=GTHENBA=E1   :GOTO700
 645 IFPEEK(K)=BTHENBA=I1   :GOTO700
 650 GOTO1000
 700 POKEBA+V1,191:POKEK,C
 710 IFPEEK(K)=BANDPEEK((BA)-1+2*V1)=32ANDPEEK(BA+2*V1)=32THEN750
 715 POKEK,F
 720 IFPEEK(K)=HANDPEEK((BA)+1+2*V1)=32THEN775
 730 GOTO800
 750 POKEBA+V1,145:BA=BA-1
 760 GOTO800
 775 POKEBA+V1,145:BA=BA+1
 800 POKEK,C:IFPEEK(K)=DANDMD>=0THENMD=MD-1:POKEBA,32
 810 IFPEEK(K)=CANDMD<=5THENMD=MD+1:POKEBA,184:GOTO900
 812 POKEK,G:IFPEEK(K)=CTHEN900
 830 GOTO1000
 900 POKEBA+V1,145:BA=0
 1000 GOSUB4000
 1002 IFGRTHEN1045
 1012 IFLL=184THENIFRND(2)<.98THEN1045
 1018 IFRND(5)<.9THEN1045
 1022 GR=VD+INT((8)*RND(2)+1)+V1:IFGR=GSTHEN1022
 1023 GR(1)=GR(1)+1:POKEGR,247
 1025 IFRND(4)<.5THENLA=E1+INT((6)*RND(8)+1):GOTO1045
 1027 LA=I1+INT((6)*RND(2)+1)
 1045 IFGSTHEN1090
 1050 IF(RND(6)<.94)OR(RND(2)>.33)THEN1090
 1055 GS=VD+INT((8)*RND(2)+1)+V1:IFGS=GRTHEN1055
 1058 GS(1)=GS(1)+1:POKEGS,30
 1060 IFRND(3)<.5THENLS(1)=E1+3+INT((7)*RND(2)+1):GOTO1080
 1065 IFRND(3)>.5THENLS(1)=I1+INT((6)*RND(3)+1):LS(2)=LS(1):GOTO1090
 1070 LS(1)=G1+INT((4)*RND(3)+1):LS(2)=LS(1)+2:GOTO1090
 1080 LS(2)=LS(1)+3
 1090 IFACTHEN1100
 1093 IFRND(6)< .01 THENAC=VD+INT((8)*RND(1)+1)+V1:POKEAC,238
 1094 IFAC=0THEN1100
 1095 AC(1)=AC(1)+1:AI=J1+INT((6)*RND(9)+1)
 1100 IFGRTHEN2000
 1110 GOTO2995
 2000 AA=PEEK(LA)
 2005 IFGR<R3THENPOKELA  ,193:FORT=0TO50:NEXT:POKELA  ,AA:GOTO2995
 2020 POKELA  ,29:FORT=0TO75:NEXT:POKELA  ,AA
 2030 IFGR>R2THEN2039
 2035 GOTO2995
 2039 IFCC<>5THEN2995
 2040 IFAA<>184ANDCHAFF=0THEN2050
 2045 IFAA=184ANDCHAFF=0ANDRND(9)<.95THEN2995
 2048 IFAA<>184ANDCHAFF=1ANDRND(4)<.9THEN2995
 2049 IFAA=184ANDCHAFF=1THEN2995
 2050 PRINT"YOU HAVE BEEN DESTROYED":PRINT"BY AAA FIRE!":GOTO6010
 2995 IFGSTHEN3000
 2997 GOTO3100
 3000 MM=PEEK(LS(1)):MN=PEEK(LS(2))
 3002 IFGS<R3THEN POKELS(1),149:POKELS(2),149:POKELS(1),MM:POKELS(2),MN
 3003 IFUPTHEN3005
 3004 IFCC<3ANDRND(4)<.5ANDGS>R2THENUP=A1+INT((10)*RND(7)+9)
 3005 IFGS<R3THEN3100
 3010 IFGS<R2THENPOKELS(1),146:POKELS(1),149:POKELS(1),147
 3011 IFGS<R2THENPOKELS(2),147:POKELS(2),146:POKELS(2),146
 3014 IFUPTHENPOKEUP,31:POKEUP,193:POKEUP,32
 3015 IFGS<R2THENPOKELS(1),MM:POKELS(2),MN:GOTO3100
 3020 POKELS(1),152:POKELS(1),153:POKELS(1),149
 3025 POKELS(2),153:POKELS(2),152:POKELS(1),149
 3026 FORT=0TO35:NEXT
 3027 POKELS(1),156:POKELS(2),157:POKELS(2),157:POKELS(2),156
 3028 IFUP=0THEN3038
 3029 IFCC>3THEN3038
 3030 IFMM=184ANDMN=184ANDRND(7)<.95THEN3038
 3031 IF(MM=184ORMN=184)ANDRND(4)<.8THEN3038
 3032 IFRND(6)<.1THEN3038
 3033 PRINT"YOU HAVE BEEN DESTROYED":PRINT"BY A SAM!":GOTO6010
 3038 POKELS(1),MM:POKELS(2),MN
 3100 IFACTHENAV=PEEK(AI):POKEAI,215:POKEAI,217:POKEAI,AV
 3105 GOTO510
 4000 CC=CC+1:IFCC=CPTHEN4020
 4005 MV=INT((3)*RND(5)+V1-1)
 4006 MA=INT((3)*RND(9)+V1-1):IFMA=V1THENMA=2*V1
 4010 RETURN
 4020 IFGRTHENPOKEGR,32:GOTO4022
 4021 GOTO4030
 4022 IFPEEK(GR+MV)<>0THENGR=GR+MV:POKEGR,247:GOTO4030
 4025 POKEGR,32:GR=0:POKELA,32:AA=32:CH=0:IFMD>=1THENMD=MD-1
 4026 IFLR<>0ANDRND(5)>.7THENPOKELR,32:LR=0:LL=0:IFMD>=1THENMD=MD-1
 4030 IFGSTHENPOKEGS,32:GOTO4032
 4031 GOTO4050
 4032 IFPEEK(GS+MV)<> 0THENGS=GS+MV:POKEGS,30 :GOTO4050
 4035 POKEGS,32:GS=0:POKELS(1),32:POKELS(2),32:MM=32:MN=32:UP=0
 4036 IFMD>=2THENMD=MD-2
 4050 IFACTHENPOKEAC,32:GOTO4052
 4051 GOTO4100
 4052 IFPEEK(AC+MA  )<> 0THENAC=AC+MA  :POKEAC,238:GOTO4056
 4053 IFMD>=1THENMD=MD-1
 4055 POKEAC,32:AC=0:POKEAI,32:AV=32:DE=0:GOTO4100
 4056 IFAC>R2+V1  AND(AV<>184ORDE=0)THEN4058
 4057 GOTO4100
 4058 PRINT"YOU HAVE BEEN DESTROYED":PRINT"BY AN ACFT INTERCEPTOR."
 4059 GOTO6010
 4100 IFSRTHEN4105
 4102 GOTO4200
 4105 SA=(SS-GS)/V1
 4106 POKESS,32:POKES,0
 4107 IFSA-INT(SA)=0THENSS=SS-V1:GOTO4112
 4109 IFSA-INT(SA)>.5THENSS=SS-V1+1:GOTO4112
 4111 SS=SS-V1-1:GOTO4112
 4112 IFPEEK(SS)=0ORGS>SSTHENSR=0:SS=S
 4115 IFPEEK(SS)=30ORPEEK(SS+V1)=30THENSR=0:SS=S:POKESS,0:GOTO4035
 4120 IFSS<>STHENPOKESS,33
 4200 CC=0:TC=TC+1:TC$=STR$(INT((55-TC)*10)):FORY=1TO4:POKEWS+Y,32:NEXT
 4202 IFTC<50THENFORY=1TOLEN(TC$):POKEWS+Y,ASC(MID$(TC$,Y)):NEXT:RETURN
 4300 POKETG,32:POKETG+1,32:TG=TG+V1:POKETG,227:POKETG+1,228
 4305 IFPEEK(TG+V1)=0THEN5000
 4310 IFTG<R2+V1THENFORY=1TO8:POKEWS+Y,ASC(MID$(W$,Y,8)):NEXT:RETURN
 4315 FORY=1TO8:POKEWS+Y,ASC(MID$(W$,Y+8,8)):NEXT:Q=1:RETURN
 5000 FORL=0TO35:PRINT:NEXT:V1=V1-32
 5001 READP,PP:IFPP=0THEN6000
 5002 POKEPL+P+(V1*(INT(.5+(P/32)))),PP
 5005 GOTO5001
 5010 DATA674,195,680,197,673,196,681,198,704,195,714,197,703,196
 5020 DATA715,198,734,195,748,197,733,196,749,198,642,147,648,146
 5023 DATA644,140,646,140,612,140,614,140,580,140,582,140,548,140
 5025 DATA550,140,516,140,518,140,484,140,486,140,452,140,454,140
 5027 DATA420,140,422,140,388,140,390,140,356,140,358,140
 5030 DATA610,147,616,146,578,147,584,146,546,147,552,146,514,147
 5040 DATA520,146,482,147,488,146,450,147,456,146,418,147,424,146
 5050 DATA386,147,392,146,354,147,360,146,322,198,328,196,321,197
 5060 DATA329,195,288,198,298,196,287,197,299,195,254,198,268,196
 5070 DATA253,197,269,195,220,198,238,196,219,197,239,195,186,224
 5080 DATA208,225,154,227,176,228,122,224,144,225,90,227,112,228
 5081 DATA59,196,60,195,79,198,78,197,29,196,30,195,45,198,44,197
 5082 DATA31,197,32,198,43,195,42,196,33,196,34,195,41,198,40,197
 5083 DATA3,196,4,195,7,198,6,197
 5090 DATA58,224,80,225,26,227,48,228,-5,196,-4,195,-3,197,-2,198
 5100 DATA-1,196,0,195,1,197,2,198,3,196,4,195,5,197,6,198,7,196,8,195
 5110 DATA9,197,10,198,11,196,12,195,13,197,14,198,15,196,16,222
 5112 DATA192,66,194,79,196,79,198,77,200,33,202,33
 5113 DATA0,0
 6000 PRINT"TARGET DESTROYED!":PRINT:PRINT:Q=0:FORT=0TO3000:NEXT
 6010 IFQTHENFORT=0TO3000:NEXT:GOTO5000
 6011 PRINT:PRINT"MISSION STATISTICS:":PRINT
 6012 PRINTGR(1);"AAA  ";GS(1);"SAM  ";AC(1);"ACFT"
 6013 PRINT:PRINT
 6015 PRINT"WANT TO VOLUNTEER FOR":INPUT"THE ANCILLARY STRIKE";W$
 6020 IFASC(W$)=89THENCLEAR:GOTO5
 6060 END