;3;9;1;4;5;1;9;3;9;1;4;5;1":RETURN
26100 PLAY"L8T100O1;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6":RETURN
26200 PLAY"T255O5;1;10;1;10":RETURN
26220 PLAY"T30O5;1;5;1;5;":RETURN
26250 PLAY"T255O3;5;1;5;1":RETURN
26300 A$="T255O2;1;5;1;5;1;5;1;":PLAYA$:RETURN
26400 PLAY"T65O3;9;7;5;3;1;O1;12;10;8;6;2;1;P10":RETURN
26500 PLAY"T50O1;12;10":X=.1:GOSUB13100:RETURN
26600 PLAY"T55O3;1;4;1;4;1;4;":RETURN
26610 PLAY"L30O1;12;11;10;9;8;7;6;5;4;3;2;L3;1":RETURN
26620 PLAY"L40O2;12;10;8;6;4;2;L6;1":RETURN
26650 PLAY"T255O3;1;10;1;10":RETURN
26700 FORZZ=1TO6:GOSUB26200:PRINT".";:X=1:GOSUB13100:NEXT:PRINT:RETURN
26750 PLAY"T255O4;5;10;5;10":RETURN
26800 PLAY"T19O2;12;1;12;1;12;1;12;1":RETURN
26850 PLAY"T19O2;12;1;12;1;12;1;12;1":RETURN
26900 PLAY"L30O2;5;1;5;1":RETURN
27000 PLAY"L8T170O2;1;1;1;1;1;1;1;T58O4;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;T185O5;5;1;7;T35O3;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;P1"
27005 FORX=225TO3STEP-3:SOUNDX,1:NEXT:SOUND3,10:RETURN
27100 PLAY"L8T170O3;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5":RETURN
27150 PLAY"L8T170O4;5;1;5;1;5;1":RETURN
27200 PLAY"L20T170O4;8;6;8;6;8;6;8;6;8;6;8;6":RETURN
27300 FORX=1TO4:PLAY"L20T170;04;4;6;4;6;4;6;4;6;4;6;8;6;8;6;8;6;10;12;10;12;10;12;10;12;":NEXT:SOUND200,10:RETURN
27400 PLAY"T255O5;10;2":RETURN
5;1;5;1;5":RETURN
27150 PLAY"L8T170O4;5;1;5;1;5;1":RETURN
27200 PLAY"L20T170O4;8;6;8;6;8;6;8;6;8;6;8;6":RETURN
27300 FORX=1TO4:PLAY"L20                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                12600 R1=SQR((F(X,0)-F(Y,0))^2+(F(X,1)-F(Y,1))^2):RETURN
12800 S1=C(X,8):S1=-(S1>0)-(S1>60)-(S1>=100)*(1-(X=7)):RETURN
13000 Y=0:GOSUB12600:E1=0:IFF(X,2)=0ORR1>235THENRETURN
13010 L=R1*60/235:IFT+L<240ORT+L+L>1140THENRETURN
13020 E1=1:RETURN
13100 FORY=1TOX*500:NEXT:RETURN
14000 IFRC=0THEN14010ELSECLS:GOSUB26600:PRINT:PRINT:PRINT"SORRY ADMIRAL ";AA$;",":PRINT
14001 IFRC=2THENPRINT"RANGE COMPUTER STILL OUT."ELSEPRINT"RANGE COMPUTER IS OUT OF ORDER.":RC=2
14002 PRINT:PRINT"WE'LL HAVE IT FIXED AS SOON AS":PRINT"   WE CAN.":PRINT:X=2:GOSUB13100:A$=INKEY$:GOTO300
14010 CLS:GOSUB26000:PRINT:PRINT"   RANGE COMPUTER READY:":PRINT
14020 PRINT "   1. CONTACT # 1":PRINT"   2. CONTACT # 2":PRINT"   3. CONTACT # 3":PRINT"   4. ENTERPRISE/HORNET":PRINT"   5. YORKTOWN":PRINT"   6. MIDWAY":PRINT:PRINT
14026 GOTO 14030
14027 GOSUB27150:FORZZ=320TO448STEP32:PRINT@ZZ,STRING$(31," "):NEXT
14030 PRINT@320,"RANGE---":PRINT@352,"FROM WHICH NUMBER (F TO END) ";CHR$(191);:A$=INKEY$
14031 JJ$=INKEY$:IFJJ$=""THEN14031
14032 IFJJ$="F"THENCLS:GOTO300ELSEPRINT@381,JJ$;
14034 IFASC(JJ$)>48 AND ASC(JJ$)<55 THENRX=VAL(JJ$):GOTO14040
14038 SOUND50,2:PRINT@384,"BAD #/RE-ENTER    ":X=3:GOSUB13100:GOTO14027
14040 PRINT@384,"TO WHICH NUMBER ";CHR$(191);:JJ$=INKEY$:IFJJ$=""THEN14040ELSEPRINT@400,JJ$;
14043 IFASC(JJ$)<49 OR ASC(JJ$)>54 THEN SOUND50,1:GOTO14038 ELSERY =VAL(JJ$)
14044 IFRX>3 THENX=RX-1:GOTO14047L
14045 IFLL(RX)=-1 THEN14058 ELSEX=LL(RX)
14046 IFF(X,2)=0 THEN14058
14047 IFRY>3 THENY=RY-1:GOTO14059
14048 IFLL(RY)=-1 THEN14058 ELSEY=LL(RY)
14050 IFF(Y,2)>0 THEN14059
14058 SOUND50,2:PRINT@448,"NO ENEMY CONTACT!":X=3:GOSUB13100:GOTO14027
14059 IFX<Y THENXX=X:X=Y:Y=XX
14060 GOSUB12600:PRINT@448,"                 ":SOUND240,1:PRINT@448,"RANGE ";:PRINTUSING"#";RX;:PRINT"/";:PRINTUSING"#";RY;:PRINT" IS";INT(R1+.999999);"NM."
14065 X=3:GOSUB13100:GOTO14027
14070 SOUND100,2:GOTO14030
14500 FORY=1TO3:PLAY"T40O2;5;1;5;1":FORX=0TO8:CLSX:FORXX=1TO20:NEXT:PLAY"T255O4;1;5;10;1;5;10":NEXT:NEXT:CLS4:RETURN
14590 'J. SCOUT PLANE MESSAGES
14600 ONRND(3)GOTO14620,14640,14660
14620 PRINT"JAPANESE FLOAT PLANE SIGHTED":PRINT"  OVER ";T$(I);"!":RETURN
14640 PRINT"DESTROYER REPORTS UNIDENTIFED":PRINT"  AIRCRAFT SIGHTED NEAR ";T$(I);"!":RETURN
14660 IFC(I,7)=0THENGOTO14620
14670 PRINT"CAP REPORTS JAPANESE FLOAT":PRINT"  PLANE SHOT DOWN NEAR ";T$(I);"!":RETURN
14690 'MISS TARGET MESSAGES
14700 GOSUB26900:PRINTN$(S(I,9));" ";P$(J+K-1);
14710 ONRND(3)GOTO14720,14740,14760
14720 PRINT" MISS TARGET":PRINT"  DUE TO NAVIGATIONAL ERROR!":RETURN
14740 PRINT" TURN THE WRONG":PRINT"  WAY AND MISS THE TARGET!":RETURN
14760 PRINT" BECOME LOST":PRINT"  AND MISS THE TARGET!":RETURN
15000 IFPOS(0)>28 THENPRINT
15005 GOSUB26300:PRINT"hit ";:X=1:GOSUB13100:H=H+1:RETURN
15100 IFPOS(0)>23 THENPRINT
15110 GOSUB26200:PRINT"near miss ";:X=1:GOSUB13100:N=N+1:RETURN
25000 'OPENING TITLE
25010 Y=8
25020 CLS0:FORV=10TO16
25025 GOSUB25460
25030 SET(5,V,Y):SET(13,V,Y)
25040 SET(17,V,Y):SET(21,V,Y)
25050 SET(31,V,Y):SET(39,V,Y)
25070 IFV<>10 THEN25120
25080 SET(22,V,Y):SET(23,V,Y)
25090 SET(24,V,Y):SET(25,V,Y)
25100 SET(46,V,Y)
25110 SET(52,V,Y):SET(58,V,Y)
25120 IFV<>11 THEN25170
25130 SET(6,V,Y):SET(12,V,Y)
25140 SET(26,V,Y):SET(45,V,Y)
25150 SET(47,V,Y):SET(53,V,Y)
25160 SET(57,V,Y)
25170 IFV<>12 THEN25220
25180 SET(7,V,Y):SET(11,V,Y)
25190 SET(27,V,Y):SET(44,V,Y)
25200 SET(48,V,Y):SET(54,V,Y)
25210 SET(56,V,Y)
25220 IFV<>13 THEN25270
25230 SET(8,V,Y):SET(10,V,Y)
25240 SET(27,V,Y):SET(35,V,Y)
25250 SET(43,V,Y):SET(49,V,Y)
25260 SET(55,V,Y)
25270 IFV<>14 THEN25320
25280 SET(9,V,Y):SET(34,V,Y)
25290 SET(27,V,Y):SET(36,V,Y)
25300 SET(55,V,Y)
25310 FORH=43TO49:SET(H,V,Y):NEXTH
25320 IFV<>15 THEN25360
25330 SET(26,V,Y):SET(33,V,Y)
25340 SET(37,V,Y):SET(43,V,Y)
25350 SET(49,V,Y):SET(55,V,Y)
25360 IF V<>16 THEN 25410
25370 FORH=22TO25:SET(H,V,Y):NEXTH
25380 SET(32,V,Y):SET(38,V,Y)
25390 SET(43,V,Y):SET(49,V,Y)
25400 SET(55,V,Y)
25410 NEXT V
25420 PRINT @326,"TURNING POINT IN THE";
25430 PRINT @359,"WAR IN THE PACIFIC";
25440 GOTO25495
25460 PLAY"L8T100O1;V30;11;2;5;9;12":RETURN
25495 FORX=1TO200:NEXT
25500 PLAY"V15;L8T71O3;6;7;12;11;8;9;6;7;12;11;8;9;6;7;12;11;8;9;T225O2;2;5;6;12;2;12;1;11;4;T196O3;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;1;2;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;"
25515 X=2:GOSUB13100:RETURN
25520 RETURN
26000 PLAY"L255T143O5;9;3;7;6;4":RETURN
26010 PLAY"L10T35O3;7;5;6;9;3;7;9":RETURN
26020 PLAY"L100T35O5;3;5;7;9;3;5;7;9;":RETURN
26030 PLAY"L255O5;9;7;5;3;1;":RETURN
26040 PLAY"L150O3;9;7;9;7;9;7":RETURN
26050 PLAY"L100O5;95061
5080 PRINT N$(I);" STRIKE TRYING TO DI-":PRINT"  VERT, DITCHES OUT OF FUEL.":GOSUB26610:X=3:GOSUB13100
5090 GOTO5210
5100 IFRND(0)>.8THEN5080
5110 PRINTN$(I);" STRIKE AIRCRAFT ";
5111 IFPOS(0)<27 THENPRINT"DIVERT":PRINT"   "; ELSEPRINT:PRINT"   DIVERT ";
5113 PRINT"TO ";N$(K);" ";:GOSUB26700
5114 I=K:GOTO5020
5120 L=0:FORI=0TO3:GOSUB12800:IFS1<2THENL=L+1
5121 NEXT:IFL=0THEN5210
5130 FORI=0TO3:GOSUB10200:NEXT:FORK=0TO4STEP2:M=-1:FORI=1TOL
5140 M=-(M+1)*(M<3):X=M:GOSUB12800:IFS1>1THEN5140
5150 C(M,1+K/2)=C(M,1+K/2)+INT((L+S(J,K)-I)/L)
5170 NEXT:NEXT:FORI=0TO3
5180 IFC(I,1)+C(I,2)+C(I,3)<96 THEN5200 ELSE C(I,1)=C(I,1)+(C(I,1)>0)
5190 C(I,2)=C(I,2)+C(I,2)>0:C(I,3)=C(I,3)+C(I,3)>0:GOTO5180
5200 NEXT
5210 S(J,9)=-1
5220 NEXT
6000 I=0
6001 IFC(I,8)<=60THEN6010
6002 I=I+1:IFI<4 THEN6001ELSEJ9=1
6010 IFV2=1THEN6050
6011 IFJ9=1 ANDF(0,0)<0 THEN7000
6020 I=0
6021 IFC(I,8)<100THEN6030
6022 I=I+1:IFI<4THEN6021ELSE7000
6030 IFF(3,0)>1200ORF(4,0)>1200THEN7000
6031 I=4
6040 IFC(I,8)<100THEN6050
6041 I=I+1:IFI<8THEN6040ELSE7000
6050 IFF9=0THEN6053ELSE6055
6053 A$=INKEY$:IFA$="P"THENCLS:PRINT"PAUSING...":GOTO300
6054 GOSUB12100:GOSUB26030:PRINT"TIME: ";MID$(A$,3,2);MID$(A$,7,2):GOTO1300
6055 IFRND(0)<.8 THENRC=0ELSERC=1
6057 FORZZ=1TO2000:NEXT:J$=INKEY$:GOTO200
7000 CLS:SOUND100,10:PRINT"      THE GAME IS OVER!!!"
7010 PRINT"CARRIER";TAB(18);"DAMAGE STATUS":V2=0:V3=0:P1=0:PRINT"----------";TAB(18);"-------------"
7020 FORX=0TO7:GOSUB27400:GOSUB12800:IFX<7THENPRINTN$(X);TAB(22);S$(S1)ELSESS$=S$(S1)
7030 S1=(S1=1)+3*(S1=2)+10*(S1>2):S1=S1*100:IFX<4THENV2=V2-S1 ELSEV3=V3-S1
7040 FORJ=1TO7:IFX<4THENP0=P0+C(X,J)ELSEP1=P1+C(X,J)
7050 NEXT:NEXT:P1=269-P1:P0=272-P0
7055 PRINTN$(7);" (";
7060 A$="":IFJ9>0THENA$="NOT "ELSEV3=V3+1000
7070 PRINTA$;"INVADED)";TAB(22);SS$
7100 GOSUB27400:PRINT"AIRCRAFT LOST:     US:";:PRINTUSING"###";P1;:PRINT" J:";:PRINTUSING"###";P0
7101 GOSUB27400:PRINT"OTHER VICTORY PTS: US:";:PRINTUSING"###";V0;:PRINT" J:";:PRINTUSING"###";V1
7106 V0=V0+V2+5*P0:V1=V1+V3+5*P1:VV=V0-V1
7109 GOSUB27400:PRINT "TOTALS: US:";V0;" J:";V1
7110 IFVV<.01THENB$="JAPANESE"ELSEB$="US"
7120 VV=ABS(VV):PRINTB$;" ";:IFVV>2000THENA$="STATEGIC":GOTO7140
7130 IFVV<1000THENA$="MARGINAL"ELSEA$="TACTICAL"
7140 PRINTA$;" VICTORY."
7145 IFB$="JAPANESE" THENPRINT"TOUGH LUCK. ";:GOTO7220
7146 IFVV<1000THENPRINT"GOOD TRY. ";:GOTO7220
7148 IFVV<2000THENPRINT"EXCELLENT! ";ELSEPRINT"MEDAL OF HONOR-";:GOSUB25500:GOTO7230
7220 PRINT"GO ";
7230 INPUT"AGAIN? (Y/N)";A$:IFA$="Y"THENCLS:RESTORE:GOTO35
7235 CLS0:PRINT@168,"SEE YOU NEXT TIME!";:X=4:GOSUB13100:PRINT@448,"";:END
10000 L=L+175*RND(0)-200*RND(0)*(I<3):J=(J+K*RND(0))*P1
10010 F(I,0)=850-L*SIN(J)*(I<>5)
10011 F(I,1)=450-L*COS(J)*(I<>5)
10012 IFI<3 THEN 10020
10013 IFF(I,0)>1199THENF(I,0)=1199
10014 IFF(I,1)>1199THENF(I,1)=1199
10020 J=J+180*P1+360*P1*(J>180*P1)
10030 IFI<3THENF(I,4)=J ELSEF(I,4)=-205*P1*(I<>5)
10040 RETURN
10100 L=0:FORK=0TO2:IFF(K,2)=0THEN 10140ELSEL=L+1
10110 GOSUB26250:PRINT"CONTACT ";
10111 PRINTUSING"#";L;
10112 PRINT" AT ";
10113 LL(L)=K:'SEE14050
10115 PRINTUSING"##";INT(F(K,0)/100)+1;:PRINT",";
10116 ZZ=INT(F(K,1)/100)+1
10117 IFZZ>9THENPRINTUSING"##";ZZ;:GOTO10120ELSEPRINTUSING"#";ZZ;
10120 IFF(K,2)=>2THENPRINTTAB(19);T$(K);
10130 PRINT:C1(L)=K
10140 NEXT:RETURN
10200 C(I,5)=C(I,5)+1000*(C(I,5)>=1000)
10210 C(I,1)=C(I,1)+C(I,4):C(I,4)=0:C(I,2)=C(I,2)+C(I,5)
10220 C(I,5)=0:C(I,3)=C(I,3)+C(I,6):C(I,6)=0:RETURN
10300 FORK=0TO4STEP2:IFS(I,K)=0ORS(I,K+1)=-1THEN10340
10310 E=-F(S(I,6),7)*(.4*(K=0)+.7*(K=2)+(K=4)):H=0
10320 FORL=1TOS(I,K):IFRND(0)<E THENH=H+1
10321 NEXT
10322 GOSUB26100
10325 IFS(I,6)=1THENPRINT"TRANP'S";: GOTO10330
10327 IFS(I,6)=2THENPRINT"CA'S";ELSEPRINTT$(S(I,6));
10330 PRINT" AA SHOOTS DOWN";
10335 PRINTH;P$(J+K-1);".":S(I,K)=S(I,K)-H
10340 NEXT:RETURN
10400 IFC(L,8)>=100THENRETURN
10410 D9=RND(0)*8*(1-(C(L,4)+C(L,5)+C(L,6)>0))
10411 IFL=7THEND9=D9/2
10415 FORL1=1TO6
10419 IFC(L,L1)=0THEN10430
10420 FORL2=1TOC(L,L1):IFRND(0)<D9/100THENC(L,L1)=C(L,L1)-1
10421 NEXT
10430 NEXT:C(L,8)=C(L,8)+D9:IFC(L,8)<60THENRETURN
10432 L1=I:I=L:GOSUB10200:I=L1:C(L,1)=C(L,1)+C(L,7):C(L,7)=0
10433 IFC(L,8)<100 THENRETURN
10435 C(L,8)=100:GOSUB14500
10437 IFL=7THENPRINT@256,"   MIDWAY AIRFIELD DESTROYED!":GOTO10442
10438 A$=N$(L)+" BLOWS UP AND SINKS!":XX=LEN(A$):XX=(32-XX)/2
10440 PRINT@256,STRING$(XX," ");N$(L);" BLOWS UP AND SINKS!"
10442 GOSUB27000:X=3:GOSUB13100
10480 FORL1=1TO6:C(L,L1)=0
10490 NEXT:CLS0:RETURN
12100 A$=STR$(100+INT(T/60))+STR$(100+T-60*INT(T/60))
12120 RETURN
12500 R2=(90-180*(X<0))*P1:IFY=0THEN12530
12501 R2=ATN(X/Y):IFY<0THENR2=R2+180*P1
12530 F(0,4)=R2:RETURN
332 CLS:SOUND125,10
2333 FORK=0TO4STEP2
2335 IFS(I,K)=0ORS(I,K+1)>-1 THEN2350
2340 GOSUB14700:X=4:GOSUB13100
2350 NEXT
2360 IFS(I,3)+S(I,5)=-2ORS(I,2)+S(I,4)=0 THEN4000
2362 IFJ=2 THENCLS:SOUND125,10
2365 F(C(S(I,9),0),2)=2:F(S(I,6),2)=2
2370 IFF(0,2)=2THENF(0,3)=2
2380 IFJ=1THENPRINTN$(S(I,9));ELSEPRINT"JAPANESE";
2390 PRINT" STRIKE ATTACKS ";
2391 IF POS(0)+LEN(T$(S(I,6)))>31THENPRINT:PRINT"  ";
2392 PRINTT$(S(I,6));"!"
2395 X=1:GOSUB13100:F9=1
2400 IFS(I,6)=1ORS(I,6)=2THEN2420
2401 K=4*(J-1)
2410 IFS(I,6)=C(K,0) ANDC(K,8)<100 THEN2600
2411 K=K+1:IFK<=4*J-1 THEN2410
2420 PRINT"ON THE WAY IN,":GOSUB10300:FORK=2TO4STEP2
2430 IFS(I,K)=0ORS(I,K+1)=-1 THEN2520
2440 PRINTS(I,K);P$(J+K-1);" ATTACK ";
2441 SS=S(I,6):IFSS=0 THENSS=6
2442 XX=POS(0):YY=LEN(T$(SS))
2445 IFXX+YY>31THENPRINT:PRINT"   ";
2448 PRINTT$(SS);"!":X=2:GOSUB13100
2450 E=F(S(I,6),6)*(-.75*(K=4)-(K=2)):H=0:N=0
2460 FORL=1TOS(I,K):GOSUB26400:R=RND(0):IFR<E THENGOSUB15000:GOTO2475
2470 IF(K=2ORS(I,6)=5) AND (R<2*E ANDR>=E) THENGOSUB15100:GOTO2475
2471 GOSUB26500
2475 NEXT:IFPOS(0)>0 THENPRINT
2480 PRINTP$(J+K-1);" MAKE";H;"HITS";
2490 IFK=2 OR S(I,6)=5 THEN2495
2491 PRINT".":X=2:GOSUB13100:GOTO2500
2495 PRINT:PRINT"  AND";N;"NEAR MISSES.":X=2:GOSUB13100
2500 V=5*H+2*N:GOSUB27200:PRINTV;"VICTORY POINTS AWARDED.":X=3:GOSUB13100
2510 IFJ=1 THEN V0=V0+V ELSEV1=V1+V
2520 NEXT:PRINT"ON THE WAY OUT,":GOSUB10300
2530 X=3:GOSUB13100:GOTO3950
2600 C=0:FORK=4*(J-1)TO(4*J)-1:IFC(K,0)<>S(I,6) THEN2620
2610 C=C+C(K,7):C(K,7)=0
2620 NEXT:IFC=0THEN2790
2621 K=2-2*(RND(0)>.5)
2630 IFS(I,K+1)=-1ORS(I,K)=0 THENK=2-2*(K=2)
2635 IFFU=0 ANDJ=1 THENK=4
2636 IFK=4THENFU=0
2640 IFS(I,K+1)=-1ORS(I,K)=0THEN2781
2650 PRINT "CAP ATTACKS ";P$(J+K-1);".":X=2:GOSUB13100
2660 IFS(I,1)=S(I,K+1)THENL1=S(I,0)ELSEL1=0
2670 IFL1>0THENPRINTP$(J-1);" DEFEND ";P$(J+K-1);".":X=2:GOSUB13100
2680 E=(C*W(J-1))/(L1*W(-(J=1))+S(I,K)*W(K-(J=1)))
2690 IFE>.85 THENE=.85
2691 H=0:FORL=1TOS(I,K):IFRND(0)<E THENH=H+1
2700 NEXT:GOSUB26100:PRINT"CAP SHOOTS DOWN";H;P$(J+K-1);".":X=2:GOSUB13100
2710 S(I,K)=S(I,K)-H:IFL1=0 THEN2781
2715 PRINTP$(J-1);" ATTACK CAP.":X=1:GOSUB13100
2720 E=(L1*W(-(J=1)))/(C*W(J-1)):IFE>.85 THENE=.85
2721 H=0
2730 FORL=1TOC:IFRND(0)<E THENH=H+1
2731 NEXT:GOSUB26100
2740 PRINTP$(J-1);" SHOOT DOWN";H;P$(2-J);".":X=2:GOSUB13100
2750 C=C-H:IFC=0 THEN2790
2751 E=.5*(C*W(J-1))/(L1*W(-(J=1))):IFE>.85 THENE=.85
2760 H=0:FORL=1TOL1:IFRND(0)<E THENH=H+1
2761 NEXT:GOSUB26100
2770 PRINT"CAP SHOOTS DOWN ";H;P$(J-1);".":X=2:GOSUB13100
2780 S(I,0)=S(I,0)-H
2781 IFC=0 THEN2790ELSEL=-1:FORK=1TOC
2782 L=-(L+1)*(L<7):IFS(I,6)<>C(L,0)ORC(L,8)>=60 THEN2782
2783 C(L,7)=C(L,7)+1:NEXT
2784 IF(S(I,3)<0ORS(I,2)=0) AND(S(I,5)<0ORS(I,4)=0) THEN3950
2790 PRINT"ON THE WAY IN,":GOSUB10300
2800 FORK=4TO2STEP-2:IFS(I,K)=0ORS(I,K+1)=-1 THEN2940
2810 M=0:FORL=0TO7:C(L,9)=0
2820 IFC(L,8)<100 ANDC(L,0)=S(I,6) THENM=M+1
2821 NEXT:IFM=0THEN2940
2825 O=-1:FORN=1TOM
2827 O=-(O+1)*(O<7):IFC(O,0)<>S(I,6)ORC(O,8)=100 THEN2827
2830 C(O,9)=INT((S(I,K)+M-N)/M):NEXT
2840 FORL=0TO7:IFC(L,9)=0 THEN2930
2850 PRINTC(L,9);P$(J+K-1);" ATTACK ";N$(L);".":X=2:GOSUB13100
2860 N=0:H=0:E=.2-(K=4)*.06*(J=1)
2862 E=.2
2865 FORM=1TOC(L,9):R=RND(0)
2870 GOSUB26400:IFR>=E THEN2880
2872 GOSUB15000:GOTO2890
2880 IF R>=E+E OR(K=4 AND S(I,6)<>5) THENGOSUB26500:GOTO2890
2883 GOSUB15100
2890 NEXT:IFPOS(0)THENPRINT
2895 GOSUB26220:PRINTN$(L);" TAKES";H;"HITS";
2900 IFN>0 THENPRINT:PRINT"   AND";N;"NEAR MISSES."ELSE PRINT"."
2904 X=1:GOSUB13100
2906 IFH+N>0ANDC(L,4)+C(L,5)+C(L,6)>0 THENGOSUB27100:PRINT"ARMED AIRCRAFT ARE EXPLODING ":PRINT"   ON THE ";:IFL=7THENPRINT"RUNWAY!"ELSEPRINT"DECK!"
2910 IFH>0 THENFORM=1TOH:GOSUB10400:GOSUB10400:NEXT
2920 IFN>0 THENFORM=1TON:GOSUB10400:NEXT
2930 NEXT
2940 NEXT:PRINT"ON THE WAY OUT,":GOSUB10300
2945 X=3:GOSUB13100
3950 FORK=0TO4STEP2:S(I,K+1)=-1:NEXT
4000 NEXT
4100 FORL=0TO7:IFC(L,8)=100ORC(L,8)<10 THEN4150
4110 IFRND(0)>.05*(1-(L<4))THEN4130
4115 IFL<4THENPRINT"PBY REPORTS ";
4120 GOSUB26750:PRINT"EXPLOSION ON ";N$(L);".":X=3:GOSUB13100:GOSUB10400
4130 IFC(L,8)=100ORRND(0)>.2*(1-(L>3)) THEN4150
4140 C(L,8)=C(L,8)-5*RND(0):C(L,8)=-C(L,8)*(C(L,8)>0)
4150 NEXT
5000 V2=0:FORJ=0TO9:IFS(J,9)=-1 THEN5220ELSEV2=1
5005 IFT<S(J,8) THEN5220 ELSEIFS(J,9)<4 THEN5120
5010 F9=1:I=S(J,9):IFC(I,8)>60 THEN5050
5020 GOSUB26650:PRINT"STRIKE LANDING ON ";N$(I);".":X=2:GOSUB13100:GOSUB10200
5030 C(I,1)=C(I,1)+S(J,0):C(I,2)=C(I,2)+S(J,2)
5040 C(I,3)=C(I,3)+S(J,4):GOTO5210
5050 IFI>5OR(C(4,8)>60 ANDC(5,8)>60) THEN5060ELSEK=4-(I=4):GOTO5110
5060 K=4
5061 IFC(K,8)>60THEN5070
5065 X=C(I,0):Y=C(K,0):GOSUB12600:IFR1<100 THEN5100
5070 K=K+1:IFK<8THENRINT:GOTO601
1032 IF J>L OR J<1 THENPRINT"BAD CONTACT NUMBER!":GOTO1140ELSEJ=C1(J)
1040 X=J:Y=C(I,0):GOSUB12600:R=R1:IFR<=200THEN1050
1045 IFRC=0THENPRINTINT(R+.999999);"NM. "; ELSEPRINT "---";
1046 PRINT "OUT OF RANGE.":GOTO1140
1050 L=R*.3:IFI=7OR(T+L+L>=240ANDT+L+L<=1140)THEN1070
1060 PRINT"NIGHT CV OPERATIONS IMPOSSIBLE!":GOTO1140
1070 IFT+L>=240ANDT+L<1140THEN1090
1080 PRINT"NIGHT ATTACKS NOT POSSIBLE!":GOTO1140
1090 K=0
1091 IFS(K,9)<0 THEN1110ELSEK=K+1:IFK<10THEN1091
1100 PRINT "TOO MANY STRIKES ALOFT!":GOTO1140
1110 S(K,0)=C(I,4):S(K,2)=C(I,5):S(K,4)=C(I,6):C(I,4)=0:C(I,5)=0
1120 C(I,6)=0:S(K,6)=J:S(K,9)=I:S(K,7)=T+L:S(K,8)=T+L+L
1130 S(K,3)=1:S(K,5)=0:S(K,1)=-((S(K,2)/(S(K,2)+S(K,4)))>RND(0))
1138 GOSUB26050:PRINTN$(I);" STRIKE LAUNCHED!":GOTO1150
1140 SOUND50,2
1150 X=2:GOSUB13100:PRINT:GOTO601
1200 A$="0"
1210 CLS0:GOSUB26020:PRINTTAB(7);"-- PLOT RUNNING --":T0=T+INT(VAL(A$)*60):D0=D-1*(T0>1440):T0=T0+1440*(D0>D)
1220 FORI=4TO7:C(I,5)=C(I,5)+1000*(C(I,5)>=1000):NEXT
1300 FORK=1TO2:X=K:Y=5:GOSUB12600:IFR1<15 THENF(K,5)=0
1301 IFJ9=0 THEN1320
1310 F(K,5)=18-7*(K=2):F(K,4)=270*P1
1320 NEXT:X=0:GOSUB12600:X=850-F(0,0):Y=450-F(0,1):IFR1>250 THENGOSUB12500
1330 IFR1>100 THEN1350
1340 F(0,4)=F(0,4)+180*P1+360*P1*(180*P1>F(0,4))
1350 FORK=6TO4STEP-1:IFF(C(K,0),2)=0ORC(K,8)=100 THEN1360
1355 X=F(C(K,0),0)-F(0,0):Y=F(C(0,0),1)-F(0,1):GOSUB12500
1360 NEXT
1370 IFJ9>0THENF(0,4)=270*P1
1400 FORI=0TO3:X=I:GOSUB12800:IFC(I,7)=5 THEN1440
1401 IFS1>1 THEN1440
1405 C(I,7)=C(I,7)+C(I,1):C(I,1)=0
1410 IFC(I,7)<5THEN1420
1411 C(I,1)=C(I,7)-5:C(I,7)=5:GOTO1440
1420 C(I,7)=C(I,7)+C(I,4):C(I,4)=0:IFC(I,7)<=5 THEN1440
1430 C(I,4)=C(I,7)-5:C(I,7)=5
1440 NEXT
1500 S9=0:A9=S9:A8=S9:IFT>1140 THEN1700
1501 I=0
1510 IFC(I,4)+C(I,5)+C(I,6)>0 THEN1520
1511 I=I+1:IFI<4 THEN1510ELSES9=0:GOTO1590
1520 I=4
1521 X=I:GOSUB12800:IFS1>1THEN1525
1522 X=C(I,0):GOSUB13000:IFE1=1 THEN1530
1525 I=I+1:IFI<8 THEN1521ELSEI=0
1530 IFI>0 THEN1550ELSEI=4
1531 X=I:GOSUB12800:IFS1>2 THEN1540
1535 X=C(I,0):GOSUB13000:IFE1=1THEN1542
1540 I=I+1:IFI<8 THEN1531ELSEI=0
1542 IFI>0THEN1550
1543 X=5:GOSUB13000:I=-7*(E1=1)
1550 S9=C(I,0):IFS9<5THEN1590
1560 I=0
1561 IFS(I,6)<5ORS(I,9)=-1ORS(I,1)=-1THEN1580
1570 S9=0:GOTO1590
1580 I=I+1:IFI<10THEN1561
1590 IFF(3,2)>0ORF(4,2)>0 THENA9=1
1600 X=0:Y=5:GOSUB12600:IFR1>235 THEN1620
1601 L=60*R1/235
1610 IFT+L<240ORT+L+L>1140ORL>60 THEN1620
1615 A8=1:IFC(3,2)<12THENA9=1
1620 IFA9*1 THENA8=0
1700 IFS9<3 THEN1770
1720 FORJ=0TO9:IFS(J,9)=-1 THEN1730
1721 NEXT:GOTO1770
1730 S(J,6)=S9:S(J,9)=0:X=0:Y=S9:GOSUB12600:L=60*R1/235:S(J,7)=T+L
1740 S(J,8)=T+L+L
1750 S(J,0)=0:S(J,2)=0:S(J,4)=0
1751 FORI=0TO3:IFC(I,8)>60 THEN1767
1760 S(J,0)=S(J,0)+C(I,4):S(J,2)=S(J,2)+C(I,5):C(I,4)=0:C(I,5)=0
1765 S(J,4)=S(J,4)+C(I,6):C(I,6)=0
1767 NEXT:IFS(J,0)+S(J,2)+S(J,4)=0 THENS(J,9)=-1
1768 IFS(J,2)+S(J,4)=0 THEN1770
1769 S(J,3)=1:S(J,5)=0:S(J,1)=-(((S(J,2)/S(J,2)+S(J,4)))>RND(0))
1770 FORI=0TO3:GOSUB10200:X=I:GOSUB12800:IFS1>1THEN1820
1775 IFA9=0THEN1790
1776 C(I,4)=C(I,1):C(I,5)=C(I,2):C(I,6)=C(I,3)
1780 C(I,1)=0:C(I,2)=0:C(I,3)=0:GOTO1820
1790 IFA8=0THEN1820
1791 C(I,4)=INT(C(I,1)/2):C(I,5)=INT(C(I,2)/2)
1800 C(I,6)=INT(C(I,3)/2):C(I,1)=C(I,1)-C(I,4)
1810 C(I,2)=C(I,2)-C(I,5):C(I,3)=C(I,3)-C(I,6)
1820 NEXT
1900 F9=0:T1=30+INT(30*RND(0)):T=T+T1:IF T>=T0 AND D=D0 THENF9=1
1910 D=D-(T>1440):T=T+1440*(T>1440):IFT=T0ANDD>=D0 THENF9=1
2000 FORI=0TO4:F(I,0)=F(I,0)+T1*F(I,5)*SIN(F(I,4))/60
2010 F(I,1)=F(I,1)+T1*F(I,5)*COS(F(I,4))/60:NEXT
2100 IFT>1140ORT<240 THEN2220
2101 P=1-2*(T<300OR(T>720ANDT<780))
2110 FORI=0TO2:IFF(I,2)=2 THEN2160
2111 IFF(I,5)=0THENF(I,2)=2
2115 IFF(I,2)=1 ANDRND(0)>3*S7 THEN2160
2119 IFDF=1 THENF(I,2)=F(I,2)-(F(I,2)<2):GOTO2140
2125 IFRND(0)>P*S7 ANDF(I,2)=0 THEN2160 ELSEF(I,2)=F(I,2)-(F(I,2)<2)
2130 IFRND(0)>3*S7 THEN2140 ELSEF(I,2)=F(I,2)-(F(I,2)<2)
2140 GOSUB26800:IFI<2 THEN2144
2142 IFRND(2)=2 OR DF=1 THEN2144 ELSEPRINT"US SUBMARINE REPORTS PRESENCE":PRINT"   OF JAPANESE ";:GOTO2150
2144 PRINT"PBY SPOTS JAPANESE ";
2150 F9=1:IFF(I,2)=1THENPRINT"SHIPS."ELSEPRINTT$(I);"."
2160 NEXT:X=5:GOSUB13100:IFF(0,2)=2 THENF(0,3)=2
2170 P=1-(T>720 ANDT<780):IFDF=3 THENP=P+1
2171 FORI=3TO4:IFF(I,2)=2 THEN2210
2180 IFRND(0)<(P*S6) THENF(I,2)=1
2181 IFF(I,2)=0ORRND(0)>3*S6 THEN2210
2190 GOSUB26850:GOSUB14600:X=3:GOSUB13100
2200 F(I,2)=2:F9=1
2210 NEXT:GOTO2300
2220 FORI=0TO4:F(I,2)=0:NEXT:F(0,3)=1
2300 FU=1:FORI=0TO9:IF(S(I,9)=-1)OR(S(I,7)>T)OR(S(I,1)=-1) THEN4000
2310 IFS(I,6)<3 THENJ=1ELSEJ=2
2311 FORK=0TO4STEP2
2315 IFS(I,K)=0 THENS(I,K+1)=-1
2316 IFRND(0)>.2 THEN2330
2320 IFS(I,1)=S(I,K+1) THENS(I,1)=-1
2321 S(I,K+1)=-1
2330 NEXT:IFJ=2THEN2360
2100:GOTO401
411 F(I,4)=J*P1
415 J$=STR$(J):IFJ<100THENJ$="0"+MID$(J$,2)ELSEJ$=MID$(J$,2)
416 IFJ<10THENJ$="0"+J$
417 IFJ=0 THENJ$="000"
420 GOSUB26020:PRINTT$(I);" TURNING TO COURSE ";J$;".";
430 IFI=3 ANDMM$="Y" THENPRINT@156,J$;
435 IFI=4 AND MM$="Y" THENPRINT@252,J$;
440 X=2:GOSUB13100:GOTO400
450 FORZZ=1TO4:PRINT@352+ZZ*32,STRING$(31," ");:NEXTZZ:PRINT@384,"";:RETURN
500 GOSUB26000:CLS6:GOSUB 12100
501 PRINT "STATUS REPORT AS OF ";
502 PRINT MID$(A$,3,2);MID$(A$,7,2);
505 PRINT " 6/";:PRINT USING"#";D;:PRINT "/42"
510 PRINT "    CAP    ARMED    BELOW DECKS"
515 PRINT "--- --- ----------- -----------"
520 PRINT "CV  F4F F4F SBD TBD F4F SBD TBD"
530 FOR I=4TO7:PRINT USING "% %";N$(I);
531 PRINT USING"####";C(I,7);:PRINT USING "####";C(I,4);
540 PRINT USING "####";C(I,5)+1000*(C(I,5)>=1000);C(I,6);:PRINT USING "####";C(I,1);C(I,2);
550 PRINT USING "####";C(I,3);
570 PRINT :NEXT
572 FORI=4TO7:PRINT N$(I);
573 X=I:GOSUB 12800:PRINT TAB(11);
574 IF S1=0THENPRINT"NO DAMAGE";:GOTO 577
575 IFS1<3THENPRINTS$(S1);" DAMAGE";:GOTO577
576 IFI<7THENPRINTS$(3);ELSEPRINTS$(4);
577 IF F(C(I,0),2)=2 AND I<>7 AND S1<3 THEN PRINT TAB(23);"spotted";
578 PRINT " ":NEXT
579 GOSUB10100:IFL=0THENPRINT"NO CONTACTS."
580 GOTO 300
600 CLS2:CC=0:GOSUB26000:PRINT"       AIRCRAFT OPERATIONS"
601 A$="":PRINT "CARRIER? (OR F TO EXIT) ";CHR$(191);:A$=INKEY$
602 A$="":A$=INKEY$:IFA$=""THEN602
604 IFA$="F"THENCLS:A$=INKEY$:GOTO300
607 IFA$="C"THEN650
608 IFA$="S"THEN500
610 I=ASC(A$):I=-4*(I=69)-5*(I=72)-6*(I=89)-7*(I=77):IFI<>0THEN614
611 IFCC=1THENCLS
612 CLS0:SOUND50,2:PRINT@66,"LEGAL RESPONSES TO CARRIER";
613 PRINT@160," E - ENTERPRISE":PRINT" H - HORNET":PRINT " Y - YORKTOWN":PRINT" M - MIDWAY ISLAND":PRINT" S - GET STATUS REPORT":PRINT" F - RETURN TO FLEET COMMANDS":PRINT@419,"";:GOTO601
614 X=I:GOSUB12800:IFS1<2THEN618ELSEPRINTN$(I);
615 IFS1=2THENPRINT" HEAVILY DAMAGED--":PRINT"  AIR OPERATIONS IMPOSSIBLE!":GOTO1140
616 IFI=7THENPRINT" AIRFIELD DESTROYED!"ELSEPRINT" IS SUNK!"
617 GOTO1140
618 IFI<7 THENX$="USS "+N$(I)ELSEX$=N$(7)+" ISLAND"
619 ZZ=LEN(X$):CLS8:GOSUB26010:PRINTTAB((32-ZZ)/2);X$
620 A$="":INPUT"AIRCRAFT COMMAND (OR F)";A$:IFA$=""THEN600
621 IFA$="F"THENCLS:GOTO300
622 IFCC=1THENCLS8:PRINTN$(I):GOSUB26000:CC=0
623 IFA$="C"THEN650
624 IFA$="S"THEN500
625 IFA$="AA"THEN700
628 A$=A$+" "
630 A$=LEFT$(A$,2):IFA$="CA"THEN900
631 IFA$="CL"THEN800
640 IFA$="A "THEN700
642 IFA$="L "THEN1000
649 SOUND 50,2
650 CLS0:PRINT@37,"LEGAL AIRCRAFT COMMANDS";
652 PRINT@96," CA -- ALLOCATE CAP"
653 PRINT" A  -- ARM INDIVIDUAL AIRCRAFT"
654 PRINT" AA -- ARM ALL AIRCRAFT"
655 PRINT" CL -- CLEAR DECK/RUNWAY"
656 PRINT" L  -- LAUNCH STRIKE"
657 PRINT" C  -- REVIEW AIRCRAFT COMMANDS":PRINT" S  -- GET STATUS REPORT"
658 PRINT" F  -- RETURN TO FLEET COMMANDS"
659 PRINT "<ENTER> - SELECT CARRIER":PRINT@419,"";:CC=1:GOTO620
700 IFC(I,4)+C(I,5)+C(I,6)=0THEN725
720 PRINT "STRIKE ALREADY ARMING.":GOTO1140
725 IFC(I,1)+C(I,2)+C(I,3)=0THENPRINT"NO AIRCRAFT AVAILABLE!!":GOTO1140
726 IFA$="AA"THEN782
730 PRINT"NUMBER OF AIRCRAFT TO SPOT:"
731 INPUT " F4F'S";J
733 INPUT " SBD'S";K
734 INPUT " TBD'S";L
735 J=-J*(J>0):K=-K*(K>0):L=-L*(L>0)
740 IFJ>C(I,1)THENJ=C(I,1)
741 IFK>C(I,2)THENK=C(I,2)
742 IFL>C(I,3)THENL=C(I,3)
750 C(I,1)=C(I,1)-J:C(I,4)=J
760 C(I,2)=C(I,2)-K:C(I,5)=K+1000:C(I,3)=C(I,3)-L:C(I,6)=L
770 IFA$<>"AA"THENPRINTN$(I);" STRIKE ARMING."
775 GOSUB26040:GOTO1150
782 PRINT"ARMING ALL ";N$(I);" AIRCRAFT.":J=C(I,1):K=C(I,2):L=C(I,3):GOTO750
800 IFC(I,4)+C(I,5)+C(I,6)=0THENPRINT"NO AIRCRAFT ARMED!":GOTO1140
805 IFI<7THENPRINT "AIRCRAFT BEING STRUCK BELOW";ELSEPRINT"AIRCRAFT BEING DISPERSED";
810 FOR ZZ=1TO250
811 IF ZZ=60ORZZ=120ORZZ=180THENSOUND240,1:PRINT".";
815 NEXT 
820 GOSUB10200:GOSUB26200:PRINT:PRINTN$(I);:IFI<>7THENPRINT" DECKS NOW CLEAR."ELSEPRINT" RUNWAYS NOW CLEAR."
821 GOTO1150
900 C(I,1)=C(I,1)+C(I,7):C(I,7)=0
905 IFC(I,1)+C(I,4)=0THENPRINT"NO AIRCRAFT AVAILABLE!":GOTO1140
910 INPUT"NUMBER OF 4F4'S FOR CAP";J:J=-J*(J>0)
915 IFJ>C(I,1)THEN930
920 C(I,7)=J:C(I,1)=C(I,1)-J:GOTO960
930 C(I,7)=C(I,1):C(I,1)=0:J=J-C(I,7)
940 C(I,7)=C(I,7)-J*(J<C(I,4))-C(I,4)*(J>=C(I,4))
950 C(I,4)=(J-C(I,4))*(C(I,4)>J)
960 GOSUB26000:IFI<6THENGOTO965ELSEPRINT"NOW";C(I,7);N$(I);" F4F'S ON CAP.":GOTO1150
965 PRINT:PRINT"TF-16 CAP NOW NUMBERS";C(4,7)+C(5,7);"F4F'S.":PRINT" ";C(4,7);TAB(5);"FROM ENTERPRISE.":PRINT" ";C(5,7);TAB(5);"FROM HORNET.":GOTO1150
1000 IFC(I,5)+C(I,6)>0ANDC(I,5)<1000THEN1020
1010 SOUND100,1:PRINTN$(I);" HAS NO STRIKE ARMED!":GOTO1150
1020 GOSUB 10100:IFL>0THEN1030ELSEPRINT"NO TARGETS.":GOTO1140
1030 INPUT "CONTACT NUMBER (OR ENTER) ";J
1031 IFJ=0 THENP
1 'MIDWAY CC VERSION 32 (1/31/83)
2 X=MEM
3 IF X<2000THENCLS:SOUND50,2:PRINT@96,"INSUFFICIENT MEMORY TO RUN!!!":PRINT:PRINT"USE THE COMMAND:":PRINT"  PCLEAR 1":PRINT"TO RECOVER MORE MEMORY!":PRINT:PRINT"THEN ENTER RUN AGAIN!":END
5 CLEAR1000
9 CLS0:DIMN$(7),P$(5),T$(6),S$(4)
10 DIM F(6,7),C(7,9),S(9,9),W(5),LL(3)
19 GOSUB25000
20 CLS4:GOSUB26000:PRINT
25 PRINT TAB(5);"** MIDWAY CAMPAIGN **":PRINT:PRINT
26 PRINT TAB(7);"COPYRIGHT 1983 BY"
27 PRINT TAB(10);"AVALON HILL":PRINT TAB(6);"MICROCOMPUTER GAMES"
28 PRINT:PRINT
29 PRINT " COLOR COMPUTER ADAPTATION BY"
30 PRINT TAB(9);"CHUCK BRITE"
31 PRINT:PRINT
34 PRINT"  -- ENTER YOUR LAST NAME --":LINEINPUT"       NAME: ";AA$
35 CLS:GOSUB26000:PRINT@34,"ENTER LEVEL OF DIFFICULTY:":PRINT@102,"1. BASIC.":PRINT@134,"2. ADVANCED.":PRINT@166,"3. EXPERT."
36 PRINT:PRINT"  ENTER 1, 2 OR 3: ";
37 PRINT@290,"BASIC-----JAPANESE VISIBLE.":PRINT"  ADVANCED--JAPANESE SPOTTED ON":PRINT@364,"RANDOM BASIS.":PRINT"  EXPERT----RANDOM SPOTTING +":PRINT@428,"INCREASED JAPANESE":PRINT@460,"SEARCH ABILITY.":PRINT@243,CHR$(191);
38 A$=INKEY$:IFA$=""THEN38
39 DF=VAL(A$):IFDF<>2ANDDF<>3 THENDF=1
40 CLS0:GOSUB26000:PRINT@258," RUNNING DIFFICULTY LEVEL";DF;:J9=0:V0=0:V1=0
50 P1=.0175088:T=720:D=3
60 N$(0)="AKAGI":N$(1)="KAGA":N$(2)="SORYU":N$(3)="HIRYU"
61 N$(4)="ENTERPRISE":N$(5)="HORNET":N$(6)="YORKTOWN":N$(7)="MIDWAY"
62 M$="JC67":M$=M$+CHR$(207)
63 T$(0)="CV'S":T$(1)="TRANSPORTS":T$(2)="CRUISERS"
64 T$(3)="TF-16":T$(4)="TF-17":T$(5)="MIDWAY":T$(6)="CARRIER GROUP ESCORTS"
65 P$(0)="F4F'S":P$(1)="ZEKES":P$(2)="SBD'S"
66 P$(3)="VALS":P$(4)="TBD'S":P$(5)="KATES"
67 S$(0)="NONE":S$(1)="LGT":S$(2)="HVY":S$(3)="sunk":S$(4)="destroyed"
80 FORI=0TO5:FORJ=2TO7:READ F(I,J):NEXT:NEXT
90 FORI=0TO5:READ J,K,L:GOSUB 10000:NEXT
100 FORI=0TO7:FORJ=0TO3:READC(I,J):NEXT:FORJ=4TO8:C(I,J)=0
101 NEXT:NEXT
105 FORI=0TO5:READ W(I):NEXT
107 FORI=1TO3:LL(I)=-1:NEXT
110 DATA0,1,0,25,.1,.02,0,1,0,18,.2,.01,0,1,0,25,.1,.01
120 DATA0,3,0,25,.1,.06,0,4,0,25,.1,.04,2,5,0,0,.25,.04
130 DATA270,90,525,230,60,560,230,60,560,25,20,380,25,20,380
131 DATA0,0,0
140 DATA0,21,21,21,0,30,23,30,0,21,21,21,0,21,21,21
141 DATA3,27,38,14,3,27,35,15,4,25,37,13,5,14,14,10
150 DATA1.5,1.4,1.3,1.3,1.2,1
160 FORI=0TO9:S(I,9)=-1:NEXT:S6=.041:S7=.043
200 CLS1:GOSUB26000
201 GOSUB 12100
202 FOR I=11TO0STEP-1
205 O$=STRING$(24,CHR$(175))
210 FORJ=0TO5:IF(INT(F(J,1)/100)<>I)OR(F(J,2)=0ANDJ<3)THEN250
215 K=INT(F(J,0)/100)+1
220 IFK<1 OR K>12 THEN250
221 K=2*K-1:IFMID$(O$,K,1)=CHR$(175)THEN240ELSE K=K+1
230 IFMID$(O$,K,1)=CHR$(175)THEN240ELSEK=K-2
240 O$=LEFT$(O$,K-1)+MID$(M$,F(J,3),1)+RIGHT$(O$,24-K)
250 NEXT
260 IF I=11 THENPRINTO$;"   ";MID$(A$,3,2);MID$(A$,7,2);:GOTO290
265 IFI=10 THENPRINTO$;" 6/";:PRINT USING "#";D;:PRINT "/42";:GOTO 290
270 IFI=8THENPRINTO$;"  TF-16";:GOTO 290
275 IFI=7THENPRINTO$;" CRS";:PRINT USING "###";INT(F(3,4)/P1+.5);:GOTO290
280 IFI=5THENPRINTO$;"  TF-17";:GOTO 290
285 IFI=4THENPRINTO$;" CRS";:PRINT USING "###";INT(F(4,4)/P1+.5);:GOTO290
286 IFI=2THENPRINTO$;"   0";:GOTO290
287 IFI=1THENPRINTO$;"270*090";:GOTO290
288 IFI=0THENPRINTO$;"  180";:GOTO290
289 PRINTO$;
290 GOSUB27400:PRINT:NEXT:GOSUB 10100
295 MM$="Y"
300 CC=0:GOSUB26000:PRINT"FLEET COMMAND? (T,S,A,R,M,0,#)";CHR$(191);:A$=INKEY$
301 A$=INKEY$:IFA$=""THEN301
302 IFCC=1AND(A$<>"M"ORA$<>"S")THENCLS
303 X=VAL(A$)
304 IF X=6ORX=7ORX>9 THENSOUND200,2:CLS:PRINT"INPUT OF 6 OR 7 FOR FLEET":PRINT"COMMANDS NOT ALLOWED!":PRINT:MM$="N":GOTO300
310 X=ASC(A$):IFX>=48ANDX<=57THEN 1210
312 A$=LEFT$(A$,1)
313 IFA$="T" THEN400
314 MM$="N"
315 IFA$="C"THEN340
317 IFA$="R"THEN14000
321 IFA$="S" THEN 500
330 IFA$="M"THEN200
333 IFA$="A"THEN CLS8:GOTO600
334 IFA$="Q"THEN7000ELSESOUND150,1
340 MM$="N":CLS0:GOSUB26030:PRINT@70,"LEGAL FLEET COMMANDS";:PRINT@128," C-REVIEW COMMANDS"
341 PRINT" T-CHANGE TF COURSE"
342 PRINT" S-GET STATUS REPORT"
343 PRINT" M-PRINT MAP"
344 PRINT" A-AIRCRAFT COMMANDS":PRINT" R-CALCULATE RANGE TO TARGET"
345 PRINT" Q-ABORT GAME, GET SCORE"
346 PRINT" 0-EXECUTE ONE TACTICAL TURN"
347 PRINT" 1-9 PROCEED THAT MANY HOURS"
348 PRINT @456,"FLEET COMMAND? ";CHR$(191);:CC=1:GOTO301
400 GOSUB26010
401 IFMM$="Y" THENGOSUB450 ELSECLS6
402 PRINT"WHICH TASK FORCE? (6,7 OR F) ";CHR$(191);
403 II$=INKEY$:IFII$=""THEN403
404 IFII$="6"THEN I=3:GOTO409
405 IFII$="7"THEN I=4:GOTO409
406 IFII$<>"F" THEN408
407 IFMM$="Y" THENGOSUB450:GOTO300ELSECLS6:GOTO300
408 SOUND50,5:PRINT:PRINT"ENTER 6,7 OR F TO EXIT!";:X=3:GOSUB13100:GOTO400
409 IFMM$="Y"THENPRINT@413,II$ELSEPRINT@29,II$
410 GOSUB26200:PRINT"NEW COURSE FOR ";T$(I);:INPUTJ:IFJ<0ORJ>360THENSOUND50,5:PRINT"BAD COURSE!":X=2:GOSUB13 \И&
:ГMIDWAY CC VERSION 32 (1/31/83)/X│ У┼Е X┤2000зЮ:а50,2:З@96,"INSUFFICIENT MEMORY TO RUN!!!":З:З"USE THE COMMAND:":З"  PCLEAR 1":З"TO RECOVER MORE MEMORY!":З:З"THEN ENTER RUN AGAIN!":К╧Х1000я	Ю0:МN$(7),P$(5),T$(6),S$(4)
М F(6,7),C(7,9),S(9,9),W(5),LL(3)!Бж250002Ю4:Бж26000:ЗXЗ д5);"** MIDWAY CAMPAIGN **":З:ЗvЗ д7);"COPYRIGHT 1983 BY"лЗ д10);"AVALON HILL":З д6);"MICROCOMPUTER GAMES"│З:З┘З " COLOR COMPUTER ADAPTATION BY"ёЗ д9);"CHUCK BRITE"∙З:З3"З"  -- ENTER YOUR LAST NAME --":╗Й"       NAME: ";AA$Э#Ю:Бж26000:З@34,"ENTER LEVEL OF DIFFICULTY:":З@102,"1. BASIC.":З@134,"2. ADVANCED.":З@166,"3. EXPERT."╗$З:З"  ENTER 1, 2 OR 3: ";%З@290,"BASIC-----JAPANESE VISIBLE.":З"  ADVANCED--JAPANESE SPOTTED ON":З@364,"RANDOM BASIS.":З"  EXPERT----RANDOM SPOTTING +":З@428,"INCREASED JAPANESE":З@460,"SEARCH ABILITY.":З@243, Л(191);У&A$│ Т:ЕA$│""з38┤'DF│ Й(A$):ЕDF┤▓2░DF┤▓3 зDF│1°(Ю0:Бж26000:З@258," RUNNING DIFFICULTY LEVEL";DF;:J9│0:V0│0:V1│02P1│.0175088:T│720:D│3M<N$(0)│"AKAGI":N$(1)│"KAGA":N$(2)│"SORYU":N$(3)│"HIRYU"У=N$(4)│"ENTERPRISE":N$(5)│"HORNET":N$(6)│"YORKTOWN":N$(7)│"MIDWAY"п>M$│"JC67":M$│M$л Л(207)ф?T$(0)│"CV'S":T$(1)│"TRANSPORTS":T$(2)│"CRUISERS"1@T$(3)│"TF-16":T$(4)│"TF-17":T$(5)│"MIDWAY":T$(6)│"CARRIER GROUP ESCORTS"_AP$(0)│"F4F'S":P$(1)│"ZEKES":P$(2)│"SBD'S"МBP$(3)│"VALS":P$(4)│"TBD'S":P$(5)│"KATES"╘CS$(0)│"NONE":S$(1)│"LGT":S$(2)│"HVY":S$(3)│"sunk":S$(4)│"destroyed"єPАI│0е5:АJ│2е7:Н F(I,J):Л:ЛZАI│0е5:Н J,K,L:Бж 10000:Л=dАI│0е7:АJ│0е3:НC(I,J):Л:АJ│4е8:C(I,J)│0EeЛ:ЛYiАI│0е5:Н W(I):ЛokАI│1е3:LL(I)│м1:ЛдnЖ0,1,0,25,.1,.02,0,1,0,18,.2,.01,0,1,0,25,.1,.01┘xЖ0,3,0,25,.1,.06,0,4,0,25,.1,.04,2,5,0,0,.25,.04ВЖ270,90,525,230,60,560,230,60,560,25,20,380,25,20,380ГЖ0,0,0OМЖ0,21,21,21,0,30,23,30,0,21,21,21,0,21,21,21АНЖ3,27,38,14,3,27,35,15,4,25,37,13,5,14,14,10ЫЦЖ1.5,1.4,1.3,1.3,1.2,1┬аАI│0е9:S(I,9)│м1:Л:S6│.041:S7│.043╤╚Ю1:Бж26000▐╔Бж 12100ю╩А I│11е0йм1═O$│ б(24, Л(175))7╥АJ│0е5:Е( Б(F(J,1)о100)┤▓I)▒(F(J,2)│0░J┤3)з250N╫K│ Б(F(J,0)о100)л1c▄ЕK┤1 ▒ K▓12 з250П▌K│2нKм1:Е Р(O$,K,1)│ Л(175)з240:Д K│Kл1▓цЕ Р(O$,K,1)│ Л(175)з240:ДK│Kм2рЁO$│ О(O$,Kм1)л Р(M$,F(J,3),1)л П(O$,24мK)ц·Л
Е I│11 зЗO$;"   "; Р(A$,3,2); Р(A$,7,2);:Бе290J
	ЕI│10 зЗO$;" 6/";:З ═ "#";D;:З "/42";:Бе 290i
ЕI│8зЗO$;"  TF-16";:Бе 290а
ЕI│7зЗO$;" CRS";:З ═ "###"; Б(F(3,4)оP1л.5);:Бе290┐
ЕI│5зЗO$;"  TF-17";:Бе 290Ў
ЕI│4зЗO$;" CRS";:З ═ "###"; Б(F(4,4)оP1л.5);:Бе290
ЕI│2зЗO$;"   0";:Бе290/
ЕI│1зЗO$;"270*090";:Бе290K
 ЕI│0зЗO$;"  180";:Бе290T
!ЗO$;m
"Бж27400:З:Л:Бж 10100y
'MM$│"Y"╗
,CC│0:Бж26000:З"FLEET COMMAND? (T,S,A,R,M,0,#)"; Л(191);:A$│ Т╨
-A$│ Т:ЕA$│""з301ю
.ЕCC│1░(A$┤▓"M"▒A$┤▓"S")зЮ√
/X│ Й(A$)]
0Е X│6▒X│7▒X▓9 за200,2:Ю:З"INPUT OF 6 OR 7 FOR FLEET":З"COMMANDS NOT ALLOWED!":З:MM$│"N":Бе300}
6X│ К(A$):ЕX▓│48░X┤│57з 1210Н
8A$│ О(A$,1)Ю
9ЕA$│"T" з400к
:MM$│"N"║
;ЕA$│"C"з340╠
=ЕA$│"R"з14000▐
AЕA$│"S" з 500ю
JЕA$│"M"з200 
MЕA$│"A"з Ю8:Бе600 
NЕA$│"Q"з7000:Да150,1 l
TMM$│"N":Ю0:Бж26030:З@70,"LEGAL FLEET COMMANDS";:З@128," C-REVIEW COMMANDS" З
UЗ" T-CHANGE TF COURSE" г
VЗ" S-GET STATUS REPORT" ╖
WЗ" M-PRINT MAP" є
XЗ" A-AIRCRAFT COMMANDS":З" R-CALCULATE RANGE TO TARGET"!
YЗ" Q-ABORT GAME, GET SCORE"!7
ZЗ" 0-EXECUTE ONE TACTICAL TURN"![
[З" 1-9 PROCEED THAT MANY HOURS"!М
\З @456,"FLEET COMMAND? "; Л(191);:CC│1:Бе301!Ш
РБж26010!▒
СЕMM$│"Y" зБж450 :ДЮ6!▀
ТЗ"WHICH TASK FORCE? (6,7 OR F) "; Л(191);!Ў
УII$│ Т:ЕII$│""з403"
ФЕII$│"6"з I│3:Бе409"&
ХЕII$│"7"з I│4:Бе409"9
ЦЕII$┤▓"F" з408"]
ЧЕMM$│"Y" зБж450:Бе300:ДЮ6:Бе300"Ч
Ша50,5:З:З"ENTER 6,7 OR F TO EXIT!";:X│3:Бж13100:Бе400"╕
ЩЕMM$│"Y"зЗ@413,II$:ДЗ@29,II$#
ЪБж26200:З"NEW COURSE FOR ";T$(I);:ЙJ:ЕJ┤0▒J▓360за50,5:З"BAD COURSE!":X│2:Бж13100:Бе401##
ЫF(I,4)│JнP1#T
ЯJ$│ И(J):ЕJ┤100зJ$│"0"л Р(J$,2):ДJ$│ Р(J$,2)#h
аЕJ┤10зJ$│"0"лJ$#{
бЕJ│0 зJ$│"000"#м
дБж26020:ЗT$(I);" TURNING TO COURSE ";J$;".";#╔
оЕI│3 ░MM$│"Y" зЗ@156,J$;#ч
│ЕI│4 ░ MM$│"Y" зЗ@252,J$;#¤
╕X│2:Бж13100:Бе400$1
┬АZZ│1е4:З@352лZZн32, б(31," ");:ЛZZ:З@384,"";:Р$I
ЇБж26000:Ю6:Бж 12100$g
їЗ "STATUS REPORT AS OF ";$Д
ЎЗ  Р(A$,3,2); Р(A$,7,2);$г
∙З " 6/";:З ═"#";D;:З "/42"$╦
■З "    CAP    ARMED    BELOW DECKS"$єЗ "--- --- ----------- -----------"%З "CV  F4F F4F SBD TBD F4F SBD TBD"%8А I│4е7:З ═ "% %";N$(I);%aЗ ═"####";C(I,7);:З ═ "####";C(I,4);%нЗ ═ "####";C(I,5)л1000н(C(I,5)▓│1000);C(I,6);:З ═ "####";C(I,1);C(I,2);%─&З ═ "####";C(I,3);%═:З :Л%с<АI│4е7:З N$(I);%·=X│I:Бж 12800:З д11);&>                                                                                                                                                                                                                                                                                  ╞ !"#$%&'()*├                         MIDWAY  BAS ЛMIDWAYA BAS y                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Е S1│0зЗ"NO DAMAGE";:Бе 577&=?ЕS1┤3зЗS$(S1);" DAMAGE";:Бе577&W@ЕI┤7зЗS$(3);:ДЗS$(4);&НAЕ F(C(I,0),2)│2 ░ I┤▓7 ░ S1┤3 з З д23);"spotted";&ЩBЗ " ":Л&║CБж10100:ЕL│0зЗ"NO CONTACTS."&┼DБе 300&ўXЮ2:CC│0:Бж26000:З"       AIRCRAFT OPERATIONS"'-YA$│"":З "CARRIER? (OR F TO EXIT) "; Л(191);:A$│ Т'HZA$│"":A$│ Т:ЕA$│""з602'b\ЕA$│"F"зЮ:A$│ Т:Бе300'r_ЕA$│"C"з650'В`ЕA$│"S"з500'└bI│ К(A$):I│м4н(I│69)м5н(I│72)м6н(I│89)м7н(I│77):ЕI┤▓0з614'╠cЕCC│1зЮ'№dЮ0:а50,2:З@66,"LEGAL RESPONSES TO CARRIER";(ЪeЗ@160," E - ENTERPRISE":З" H - HORNET":З " Y - YORKTOWN":З" M - MIDWAY ISLAND":З" S - GET STATUS REPORT":З" F - RETURN TO FLEET COMMANDS":З@419,"";:Бе601(╜fX│I:Бж12800:ЕS1┤2з618:ДЗN$(I);)gЕS1│2зЗ" HEAVILY DAMAGED--":З"  AIR OPERATIONS IMPOSSIBLE!":Бе1140)3hЕI│7зЗ" AIRFIELD DESTROYED!":ДЗ" IS SUNK!")>iБе1140)ljЕI┤7 зX$│"USS "лN$(I):ДX$│N$(7)л" ISLAND")ХkZZ│ З(X$):Ю8:Бж26010:Зд(32мZZ)о2);X$)╚lA$│"":Й"AIRCRAFT COMMAND (OR F)";A$:ЕA$│""з600)▄mЕA$│"F"зЮ:Бе300)¤nЕCC│1зЮ8:ЗN$(I):Бж26000:CC│0*
oЕA$│"C"з650*pЕA$│"S"з500*.qЕA$│"AA"з700*<tA$│A$л" "*YvA$│ О(A$,2):ЕA$│"CA"з900*jwЕA$│"CL"з800*{АЕA$│"A "з700*НВЕA$│"L "з1000*ШЙа 50,2*┐КЮ0:З@37,"LEGAL AIRCRAFT COMMANDS";*▐МЗ@96," CA -- ALLOCATE CAP"+НЗ" A  -- ARM INDIVIDUAL AIRCRAFT"+#ОЗ" AA -- ARM ALL AIRCRAFT"+CПЗ" CL -- CLEAR DECK/RUNWAY"+_РЗ" L  -- LAUNCH STRIKE"+вСЗ" C  -- REVIEW AIRCRAFT COMMANDS":З" S  -- GET STATUS REPORT"+╔ТЗ" F  -- RETURN TO FLEET COMMANDS"+ УЗ "<ENTER> - SELECT CARRIER":З@419,"";:CC│1:Бе620,╝ЕC(I,4)лC(I,5)лC(I,6)│0з725,E╨З "STRIKE ALREADY ARMING.":Бе1140,Г╒ЕC(I,1)лC(I,2)лC(I,3)│0зЗ"NO AIRCRAFT AVAILABLE!!":Бе1140,Ф╓ЕA$│"AA"з782,╖┌З"NUMBER OF AIRCRAFT TO SPOT:",╚█Й " F4F'S";J,┘▌Й " SBD'S";K,ъ▐Й " TBD'S";L-▀J│мJн(J▓0):K│мKн(K▓0):L│мLн(L▓0)-&фЕJ▓C(I,1)зJ│C(I,1)-=хЕK▓C(I,2)зK│C(I,2)-TцЕL▓C(I,3)зL│C(I,3)-qюC(I,1)│C(I,1)мJ:C(I,4)│J-м°C(I,2)│C(I,2)мK:C(I,5)│Kл1000:C(I,3)│C(I,3)мL:C(I,6)│L-╙ЕA$┤▓"AA"зЗN$(I);" STRIKE ARMING."-цБж26040:Бе1150.-З"ARMING ALL ";N$(I);" AIRCRAFT.":J│C(I,1):K│C(I,2):L│C(I,3):Бе750.f ЕC(I,4)лC(I,5)лC(I,6)│0зЗ"NO AIRCRAFT ARMED!":Бе1140.о%ЕI┤7зЗ "AIRCRAFT BEING STRUCK BELOW";:ДЗ"AIRCRAFT BEING DISPERSED";.╜*А ZZ│1е250.ф+Е ZZ│60▒ZZ│120▒ZZ│180за240,1:З".";.ы/Л /<4Бж10200:Бж26200:З:ЗN$(I);:ЕI┤▓7зЗ" DECKS NOW CLEAR.":ДЗ" RUNWAYS NOW CLEAR."/G5Бе1150/iДC(I,1)│C(I,1)лC(I,7):C(I,7)│0/ЯЙЕC(I,1)лC(I,4)│0зЗ"NO AIRCRAFT AVAILABLE!":Бе1140/╦ОЙ"NUMBER OF 4F4'S FOR CAP";J:J│мJн(J▓0)/▌УЕJ▓C(I,1)з9300ШC(I,7)│J:C(I,1)│C(I,1)мJ:Бе9600&вC(I,7)│C(I,1):C(I,1)│0:J│JмC(I,7)0XмC(I,7)│C(I,7)мJн(J┤C(I,4))мC(I,4)н(J▓│C(I,4))0y╢C(I,4)│(JмC(I,4))н(C(I,4)▓J)0╜└Бж26000:ЕI┤6зБе965:ДЗ"NOW";C(I,7);N$(I);" F4F'S ON CAP.":Бе11501<┼З:З"TF-16 CAP NOW NUMBERS";C(4,7)лC(5,7);"F4F'S.":З" ";C(4,7);д5);"FROM ENTERPRISE.":З" ";C(5,7);д5);"FROM HORNET.":Бе11501bшЕC(I,5)лC(I,6)▓0░C(I,5)┤1000з10201УЄа100,1:ЗN$(I);" HAS NO STRIKE ARMED!":Бе11501┴№Бж 10100:ЕL▓0з1030:ДЗ"NO TARGETS.":Бе11401цЙ "CONTACT NUMBER (OR ENTER) ";J1°ЕJ│0 зЗ:Бе60120Е J▓L ▒ J┤1 зЗ"BAD CONTACT NUMBER!":Бе1140:ДJ│C1(J)2[X│J:Y│C(I,0):Бж12600:R│R1:ЕR┤│200з10502ЗЕRC│0зЗ Б(Rл.999999);"NM. "; :ДЗ "---";2дЗ "OUT OF RANGE.":Бе11402╥L│Rн.3:ЕI│7▒(TлLлL▓│240░TлLлL┤│1140)з10703$З"NIGHT CV OPERATIONS IMPOSSIBLE!":Бе11403.ЕTлL▓│240░TлL┤1140з10903F8З"NIGHT ATTACKS NOT POSSIBLE!":Бе11403NBK│03tCЕS(K,9)┤0 з1110:ДK│Kл1:ЕK┤10з10913ЫLЗ "TOO MANY STRIKES ALOFT!":Бе11403█VS(K,0)│C(I,4):S(K,2)│C(I,5):S(K,4)│C(I,6):C(I,4)│0:C(I,5)│04`C(I,6)│0:S(K,6)│J:S(K,9)│I:S(K,7)│TлL:S(K,8)│TлLлL4QjS(K,3)│1:S(K,5)│0:S(K,1)│м((S(K,2)о(S(K,2)лS(K,4)))▓ Д(0))4rБж26050:ЗN$(I);" STRIKE LAUNCHED!":Бе11504Йtа50,24б~X│2:Бж13100:З:Бе6014м░A$│"0"5║Ю0:Бж26020:Зд7);"-- PLOT RUNNING --":T0│Tл Б( Й(A$)н60):D0│Dм1н(T0▓1440):T0│T0л1440н(D0▓D)5:─АI│4е7:C(I,5)│C(I,5)л1000н(C(I,5)▓│1000):Л5fАK│1е2:X│K:Y│5:Бж12600:ЕR1┤15 зF(K,5)│05vЕJ9│0 з13205ЪF(K,5)│18м7н(K│2):F(K,4)│270нP15╫(Л:X│0:Бж12600:X│850мF(0,0):Y│450мF(0,1):ЕR1▓250 зБж125005щ2ЕR1▓100 з13506<F(0,4)│F(0,4)л180нP1л360нP1н(180нP1▓F(0,4))6GFАK│6е4йм1:ЕF(C(K,0),2)│0▒C(K,8)│100 з13606}KX│F(C(K,0),0)мF(0,0):Y│F(C(0,0),1)мF(0,1):Бж125006ГPЛ6ЫZЕJ9▓0зF(0,4)│270нP16┬xАI│0е3:X│I:Бж12800:ЕC(I,7)│5 з14406╥yЕS1▓1 з14406Ї}C(I,7)│C(I,7)лC(I,1):C(I,1)│07ВЕC(I,7)┤5з14207+ГC(I,1)│C(I,7)м5:C(I,7)│5:Бе14407^МC(I,7)│C(I,7)лC(I,4):C(I,4)│0:ЕC(I,7)┤│5 з14407{ЦC(I,4)│C(I,7)м5:C(I,7)│57БаЛ7д▄S9│0:A9│S9:A8│S9:ЕT▓1140 з17007м▌I│07╬цЕC(I,4)лC(I,5)лC(I,6)▓0 з15207ЁчI│Iл1:ЕI┤4 з1510:ДS9│0:Бе15907°ЁI│48ёX│I:Бж12800:ЕS1▓1з152584ЄX│C(I,0):Бж13000:ЕE1│1 з15308NїI│Iл1:ЕI┤8 з1521:ДI│08b·ЕI▓0 з1550:ДI│48~√X│I:Бж12800:ЕS1▓2 з15408Ю X│C(I,0):Бж13000:ЕE1│1з15428╕I│Iл1:ЕI┤8 з1531:ДI│08╞ЕI▓0з15508тX│5:Бж13000:I│м7н(E1│1)8√S9│C(I,0):ЕS9┤5з15909I│09*ЕS(I,6)┤5▒S(I,9)│м1▒S(I,1)│м1з15809:"S9│0:Бе15909O,I│Iл1:ЕI┤10з15619l6ЕF(3,2)▓0▒F(4,2)▓0 зA9│19О@X│0:Y│5:Бж12600:ЕR1▓235 з16209ЮAL│60нR1о2359┴JЕTлL┤240▒TлLлL▓1140▒L▓60 з16209┌OA8│1:ЕC(3,2)┤12зA9│19ъTЕA9н1 зA8│09·дЕS9┤3 з1770:╕АJ│0е9:ЕS(J,9)│м1 з1730:#╣Л:Бе1770:b┬S(J,6)│S9:S(J,9)│0:X│0:Y│S9:Бж12600:L│60нR1о235:S(J,7)│TлL:s╠S(J,8)│TлLлL:Т╓S(J,0)│0:S(J,2)│0:S(J,4)│0:о╫АI│0е3:ЕC(I,8)▓60 з1767:юрS(J,0)│S(J,0)лC(I,4):S(J,2)│S(J,2)лC(I,5):C(I,4)│0:C(I,5)│0;хS(J,4)│S(J,4)лC(I,6):C(I,6)│0;9чЛ:ЕS(J,0)лS(J,2)лS(J,4)│0 зS(J,9)│м1;TшЕS(J,2)лS(J,4)│0 з1770;УщS(J,3)│1:S(J,5)│0:S(J,1)│м(((S(J,2)оS(J,2)лS(J,4)))▓ Д(0));╜ъАI│0е3:Бж10200:X│I:Бж12800:ЕS1▓1з1820;╠яЕA9│0з1790;·ЁC(I,4)│C(I,1):C(I,5)│C(I,2):C(I,6)│C(I,3)< ЇC(I,1)│0:C(I,2)│0:C(I,3)│0:Бе1820</■ЕA8│0з1820<[ C(I,4)│ Б(C(I,1)о2):C(I,5)│ Б(C(I,2)о2)<ИC(I,6)│ Б(C(I,3)о2):C(I,1)│C(I,1)мC(I,4)<╢C(I,2)│C(I,2)мC(I,5):C(I,3)│C(I,3)мC(I,6)<╝Л<ЇlF9│0:T1│30л Б(30н Д(0)):T│TлT1:Е T▓│T0 ░ D│D0 зF9│1=+vD│Dм(T▓1440):T│Tл1440н(T▓1440):ЕT│T0ANDD▓│D0 зF9│1=\╨АI│0е4:F(I,0)│F(I,0)лT1нF(I,5)н Е(F(I,4))о60=И┌F(I,1)│F(I,1)лT1нF(I,5)н Х(F(I,4))о60:Л=а4ЕT▓1140▒T┤240 з2220=└5P│1м2н(T┤300▒(T▓720░T┤780))=█>АI│0е2:ЕF(I,2)│2 з2160=Є?ЕF(I,5)│0зF(I,2)│2>CЕF(I,2)│1 ░ Д(0)▓3нS7 з2160>=GЕDF│1 зF(I,2)│F(I,2)м(F(I,2)┤2):Бе2140>xMЕ Д(0)▓PнS7 ░F(I,2)│0 з2160 :ДF(I,2)│F(I,2)м(F(I,2)┤2)>йRЕ Д(0)▓3нS7 з2140 :ДF(I,2)│F(I,2)м(F(I,2)┤2)>└\Бж26800:ЕI┤2 з2144?^Е Д(2)│2 ▒ DF│1 з2144 :ДЗ"US SUBMARINE REPORTS PRESENCE":З"   OF JAPANESE ";:Бе2150?4`З"PBY SPOTS JAPANESE ";?]fF9│1:ЕF(I,2)│1зЗ"SHIPS.":ДЗT$(I);"."?ГpЛ:X│5:Бж13100:ЕF(0,2)│2 зF(0,3)│2?зzP│1м(T▓720 ░T┤780):ЕDF│3 зP│Pл1?┬{АI│3е4:ЕF(I,2)│2 з2210?▐ДЕ Д(0)┤(PнS6) зF(I,2)│1?¤ЕЕF(I,2)│0▒ Д(0)▓3нS6 з2210@ОБж26850:Бж14600:X│3:Бж13100@/ШF(I,2)│2:F9│1@<вЛ:Бе2300@[мАI│0е4:F(I,2)│0:Л:F(0,3)│1@Х№FU│1:АI│0е9:Е(S(I,9)│м1)▒(S(I,7)▓T)▒(S(I,1)│м1) з4000@н	ЕS(I,6)┤3 зJ│1:ДJ│2@║	АK│0е4й2@╒	ЕS(I,K)│0 зS(I,Kл1)│м1@щ	Е Д(0)▓.2 з2330A		ЕS(I,1)│S(I,Kл1) зS(I,1)│м1A	S(I,Kл1)│м1A)	Л:ЕJ│2з2360A7	Ю:а125,10AD	АK│0е4й2Ad	ЕS(I,K)│0▒S(I,Kл1)▓м1 з2350A|	$Бж14700:X│4:Бж13100AВ	.ЛAо	8ЕS(I,3)лS(I,5)│м2▒S(I,2)лS(I,4)│0 з4000A┬	:ЕJ│2 зЮ:а125,10Aч	=F(C(S(I,9),0),2)│2:F(S(I,6),2)│2A■	BЕF(0,2)│2зF(0,3)│2B"	LЕJ│1зЗN$(S(I,9));:ДЗ"JAPANESE";B;	VЗ" STRIKE ATTACKS ";Bb	WЕ  Ъ(0)л З(T$(S(I,6)))▓31зЗ:З"  ";Bv	XЗT$(S(I,6));"!"BЛ	[X│1:Бж13100:F9│1Bз	`ЕS(I,6)│1▒S(I,6)│2з2420B╡	aK│4н(Jм1)B┌	jЕS(I,6)│C(K,0) ░C(K,8)┤100 з2600BЇ	kK│Kл1:ЕK┤│4нJм1 з2410C	tЗ"ON THE WAY IN,":Бж10300:АK│2е4й2C;	~ЕS(I,K)│0▒S(I,Kл1)│м1 з2520C]	ИЗS(I,K);P$(JлKм1);" ATTACK ";Cw	ЙSS│S(I,6):ЕSS│0 зSS│6CТ	КXX│ Ъ(0):YY│ З(T$(SS))Cк	НЕXXлYY▓31зЗ:З"   ";C╞	РЗT$(SS);"!":X│2:Бж13100Cє	ТE│F(S(I,6),6)н(м.75н(K│4)м(K│2)):H│0:N│0D(	ЬАL│1еS(I,K):Бж26400:R│ Д(0):ЕR┤E зБж15000:Бе2475D\	жЕ(K│2▒S(I,6)│5) ░ (R┤2нE ░R▓│E) зБж15100:Бе2475Dh	зБж26500Dz	лЛ:Е Ъ(0)▓0 зЗDЫ	░ЗP$(JлKм1);" MAKE";H;"HITS";D╡	║ЕK│2 ▒ S(I,6)│5 з2495D╤	╗З".":X│2:Бж13100:Бе2500D¤	┐З:З"  AND";N;"NEAR MISSES.":X│2:Бж13100E<	─V│5нHл2нN:Бж27200:ЗV;"VICTORY POINTS AWARDED.":X│3:Бж13100EY	╬ЕJ│1 з V0│V0лV :ДV1│V1лVEz	╪Л:З"ON THE WAY OUT,":Бж10300EС	тX│3:Бж13100:Бе3950E┬
(C│0:АK│4н(Jм1)е(4нJ)м1:ЕC(K,0)┤▓S(I,6) з2620E┌
2C│CлC(K,7):C(K,7)│0Eъ
<Л:ЕC│0з2790E 
=K│2м2н( Д(0)▓.5)F&
FЕS(I,Kл1)│м1▒S(I,K)│0 зK│2м2н(K│2)F:
KЕFU│0 ░J│1 зK│4FH
LЕK│4зFU│0Fg
PЕS(I,Kл1)│м1▒S(I,K)│0з2781FЦ
ZЗ "CAP ATTACKS ";P$(JлKм1);".":X│2:Бж13100F╗
dЕS(I,1)│S(I,Kл1)зL1│S(I,0):ДL1│0Fє
nЕL1▓0зЗP$(Jм1);" DEFEND ";P$(JлKм1);".":X│2:Бж13100G%
xE│(CнW(Jм1))о(L1нW(м(J│1))лS(I,K)нW(Kм(J│1)))G7
ВЕE▓.85 зE│.85G[
ГH│0:АL│1еS(I,K):Е Д(0)┤E зH│Hл1GШ
МЛ:Бж26100:З"CAP SHOOTS DOWN";H;P$(JлKм1);".":X│2:Бж13100G╕
ЦS(I,K)│S(I,K)мH:ЕL1│0 з2781Gр
ЫЗP$(Jм1);" ATTACK CAP.":X│1:Бж13100H
аE│(L1нW(м(J│1)))о(CнW(Jм1)):ЕE▓.85 зE│.85H
бH│0H1
кАL│1еC:Е Д(0)┤E зH│Hл1H?
лЛ:Бж26100Ht
┤ЗP$(Jм1);" SHOOT DOWN";H;P$(2мJ);".":X│2:Бж13100HЙ
╛C│CмH:ЕC│0 з2790H║
┐E│.5н(CнW(Jм1))о(L1нW(м(J│1))):ЕE▓.85 зE│.85H┌
╚H│0:АL│1еL1:Е Д(0)┤E зH│Hл1Hш
╔Л:Бж26100I
╥З"CAP SHOOTS DOWN ";H;P$(Jм1);".":X│2:Бж13100I.
▄S(I,0)│S(I,0)мHIJ
▌ЕC│0 з2790:ДL│м1:АK│1еCI~
▐L│м(Lл1)н(L┤7):ЕS(I,6)┤▓C(L,0)▒C(L,8)▓│60 з2782IФ
▀C(L,7)│C(L,7)л1:ЛI╚
рЕ(S(I,3)┤0▒S(I,2)│0) ░(S(I,5)┤0▒S(I,4)│0) з3950Iц
цЗ"ON THE WAY IN,":Бж10300J
ЁАK│4е2йм2:ЕS(I,K)│0▒S(I,Kл1)│м1 з2940J(
·M│0:АL│0е7:C(L,9)│0JNЕC(L,8)┤100 ░C(L,0)│S(I,6) зM│Mл1J^Л:ЕM│0з2940Jn	O│м1:АN│1еMJвO│м(Oл1)н(O┤7):ЕC(O,0)┤▓S(I,6)▒C(O,8)│100 з2827J┬C(O,9)│ Б((S(I,K)лMмN)оM):ЛJ▌АL│0е7:ЕC(L,9)│0 з2930K"ЗC(L,9);P$(JлKм1);" ATTACK ";N$(L);".":X│2:Бж13100K5,N│0:H│0:E│.2м(K│4)н.06н(J│1)K>.E│.2KV1АM│1еC(L,9):R│ Д(0)Kn6Бж26400:ЕR▓│E з2880KБ8Бж15000:Бе2890K▒@Е R▓│EлE ▒(K│4 ░ S(I,6)┤▓5) зБж26500:Бе2890K╜CБж15100K╠JЛ:Е Ъ(0)зЗKЄOБж26220:ЗN$(L);" TAKES";H;"HITS";L TЕN▓0 зЗ:З"   AND";N;"NEAR MISSES.":Д З"."L0XX│1:Бж13100LеZЕHлN▓0░C(L,4)лC(L,5)лC(L,6)▓0 зБж27100:З"ARMED AIRCRAFT ARE EXPLODING ":З"   ON THE ";:ЕL│7зЗ"RUNWAY!":ДЗ"DECK!"L╚^ЕH▓0 зАM│1еH:Бж10400:Бж10400:ЛLуhЕN▓0 зАM│1еN:Бж10400:ЛLщrЛM
|Л:З"ON THE WAY OUT,":Бж10300MБX│3:Бж13100M5nАK│0е4й2:S(I,Kл1)│м1:ЛM;аЛMbАL│0е7:ЕC(L,8)│100▒C(L,8)┤10 з4150MАЕ Д(0)▓.05н(1м(L┤4))з4130MЪЕL┤4зЗ"PBY REPORTS ";M╒Бж26750:З"EXPLOSION ON ";N$(L);".":X│3:Бж13100:Бж10400M■"ЕC(L,8)│100▒ Д(0)▓.2н(1м(L▓3)) з4150N2,C(L,8)│C(L,8)м5н Д(0):C(L,8)│мC(L,8)н(C(L,8)▓0)N86ЛN_ИV2│0:АJ│0е9:ЕS(J,9)│м1 з5220:ДV2│1NЕНЕT┤S(J,8) з5220 :ДЕS(J,9)┤4 з5120NиТF9│1:I│S(J,9):ЕC(I,8)▓60 з5050NшЬБж26650:З"STRIKE LANDING ON ";N$(I);".":X│2:Бж13100:Бж10200OжC(I,1)│C(I,1)лS(J,0):C(I,2)│C(I,2)лS(J,2)O6░C(I,3)│C(I,3)лS(J,4):Бе5210On║ЕI▓5▒(C(4,8)▓60 ░C(5,8)▓60) з5060:ДK│4м(I│4):Бе5110Ov─K│4OК┼ЕC(K,8)▓60з5070O╢╔X│C(I,0):Y│C(K,0):Бж12600:ЕR1┤100 з5100O╩╬K│Kл1:ЕK┤8з5061P"╪З N$(I);" STRIKE TRYING TO DI-":З"  VERT, DITCHES OUT OF FUEL.":Бж26610:X│3:Бж13100P-тБе5210P@ьЕ Д(0)▓.8з5080P`ЎЗN$(I);" STRIKE AIRCRAFT ";PФўЕ Ъ(0)┤27 зЗ"DIVERT":З"   "; :ДЗ:З"   DIVERT ";P▓∙З"TO ";N$(K);" ";:Бж26700P┴·I│K:Бе5020PфL│0:АI│0е3:Бж12800:ЕS1┤2зL│Lл1PЇ
Л:ЕL│0з5210Q
АI│0е3:Бж10200:Л:АK│0е4й2:M│м1:АI│1еLQHM│м(Mл1)н(M┤3):X│M:Бж12800:ЕS1▓1з5140QuC(M,1лKо2)│C(M,1лKо2)л Б((LлS(J,K)мI)оL)QД2Л:Л:АI│0е3Q├<ЕC(I,1)лC(I,2)лC(I,3)┤96 з5200 :Д C(I,1)│C(I,1)л(C(I,1)▓0)Q№FC(I,2)│C(I,2)лC(I,2)▓0:C(I,3)│C(I,3)лC(I,3)▓0:Бе5180RPЛRZS(J,9)│м1RdЛRpI│0R3qЕC(I,8)┤│60з6010RNrI│Iл1:ЕI┤4 з6001:ДJ9│1R]zЕV2│1з6050Rw{ЕJ9│1 ░F(0,0)┤0 з7000RДI│0RФЕЕC(I,8)┤100з6030RоЖI│Iл1:ЕI┤4з6021:Д7000R╨ОЕF(3,0)▓1200▒F(4,0)▓1200з7000R╪ПI│4RэШЕC(I,8)┤100з6050SЩI│Iл1:ЕI┤8з6040:Д7000SвЕF9│0з6053:Д6055SDеA$│ Т:ЕA$│"P"зЮ:З"PAUSING...":Бе300SжБж12100:Бж26030:З"TIME: "; Р(A$,3,2); Р(A$,7,2):Бе1300SЩзЕ Д(0)┤.8 зRC│0:ДRC│1S╢йАZZ│1е2000:Л:J$│ Т:Бе200SсXЮ:а100,10:З"      THE GAME IS OVER!!!"T7bЗ"CARRIER";д18);"DAMAGE STATUS":V2│0:V3│0:P1│0:З"----------";д18);"-------------"TvlАX│0е7:Бж27400:Бж12800:ЕX┤7зЗN$(X);д22);S$(S1):ДSS$│S$(S1)T║vS1│(S1│1)л3н(S1│2)л10н(S1▓2):S1│S1н100:ЕX┤4зV2│V2мS1 :ДV3│V3мS1TхААJ│1е7:ЕX┤4зP0│P0лC(X,J):ДP1│P1лC(X,J)U
КЛ:Л:P1│269мP1:P0│272мP0UПЗN$(7);" (";U8ФA$│"":ЕJ9▓0зA$│"NOT ":ДV3│V3л1000UTЮЗA$;"INVADED)";д22);SS$UЪ╝Бж27400:З"AIRCRAFT LOST:     US:";:З═"###";P1;:З" J:";:З═"###";P0Uр╜Бж27400:З"OTHER VICTORY PTS: US:";:З═"###";V0;:З" J:";:З═"###";V1V	┬V0│V0лV2л5нP0:V1│V1лV3л5нP1:VV│V0мV1V1┼Бж27400:З "TOTALS: US:";V0;" J:";V1VT╞ЕVV┤.01зB$│"JAPANESE":ДB$│"US"VЙ╨VV│ В(VV):ЗB$;" ";:ЕVV▓2000зA$│"STATEGIC":Бе7140V│┌ЕVV┤1000зA$│"MARGINAL":ДA$│"TACTICAL"V╟фЗA$;" VICTORY."VєщЕB$│"JAPANESE" зЗ"TOUGH LUCK. ";:Бе7220WъЕVV┤1000зЗ"GOOD TRY. ";:Бе7220WWьЕVV┤2000зЗ"EXCELLENT! ";:ДЗ"MEDAL OF HONOR-";:Бж25500:Бе7230Wc4З"GO ";WЛ>Й"AGAIN? (Y/N)";A$:ЕA$│"Y"зЮ:П:Бе35W╞CЮ0:З@168,"SEE YOU NEXT TIME!";:X│4:Бж13100:З@448,"";:КW∙'L│Lл175н Д(0)м200н Д(0)н(I┤3):J│(JлKн Д(0))нP1X'F(I,0)│850мLн Е(J)н(I┤▓5)X5'F(I,1)│450мLн Х(J)н(I┤▓5)XF'ЕI┤3 з 10020Xc'ЕF(I,0)▓1199зF(I,0)│1199XА'ЕF(I,1)▓1199зF(I,1)│1199Xб'$J│Jл180нP1л360нP1н(J▓180нP1)X╦'.ЕI┤3зF(I,4)│J :ДF(I,4)│м205нP1н(I┤▓5)X╤'8РX°'tL│0:АK│0е2:ЕF(K,2)│0з 10140:ДL│Lл1Y'~Бж26250:З"CONTACT ";Y'З═"#";L;Y+'АЗ" AT ";YB'БLL(L)│K::ГSEE14050Ye'ГЗ═"##"; Б(F(K,0)о100)л1;:З",";Y}'ДZZ│ Б(F(K,1)о100)л1Yе'ЕЕZZ▓9зЗ═"##";ZZ;:Бе10120:ДЗ═"#";ZZ;Y┴'ИЕF(K,2)│▓2зЗд19);T$(K);Y╧'ТЗ:C1(L)│KY╫'ЬЛ:РY¤'╪C(I,5)│C(I,5)л1000н(C(I,5)▓│1000)Z4'тC(I,1)│C(I,1)лC(I,4):C(I,4)│0:C(I,2)│C(I,2)лC(I,5)Za'ьC(I,5)│0:C(I,3)│C(I,3)лC(I,6):C(I,6)│0:РZК(<АK│0е4й2:ЕS(I,K)│0▒S(I,Kл1)│м1з10340Z╗(FE│мF(S(I,6),7)н(.4н(K│0)л.7н(K│2)л(K│4)):H│0Z█(PАL│1еS(I,K):Е Д(0)┤E зH│Hл1Zс(QЛZэ(RБж26100[(UЕS(I,6)│1зЗ"TRANP'S";: Бе10330[5(WЕS(I,6)│2зЗ"CA'S";:ДЗT$(S(I,6));[M(ZЗ" AA SHOOTS DOWN";[r(_ЗH;P$(JлKм1);".":S(I,K)│S(I,K)мH[z(dЛ:Р[Н(аЕC(L,8)▓│100зР[╣(кD9│ Д(0)н8н(1м(C(L,4)лC(L,5)лC(L,6)▓0))[╩(лЕL│7зD9│D9о2[╓(пАL1│1е6[ы(│ЕC(L,L1)│0з10430\(┤АL2│1еC(L,L1):Е Д(0)┤D9о100зC(L,L1)│C(L,L1)м1\#(╡Л\G(╛Л:C(L,8)│C(L,8)лD9:ЕC(L,8)┤60зР\(└L1│I:I│L:Бж10200:I│L1:C(L,1)│C(L,1)лC(L,7):C(L,7)│0\Т(┴ЕC(L,8)┤100 зР\й(├C(L,8)│100:Бж14500\р(┼ЕL│7зЗ@256,"   MIDWAY AIRFIELD DESTROYED!":Бе10442](╞A$│N$(L)л" BLOWS UP AND SINKS!":XX│ З(A$):XX│(32мXX)о2]M(╚З@256, б(XX," ");N$(L);" BLOWS UP AND SINKS!"]e(╩Бж27000:X│3:Бж13100]{(ЁАL1│1е6:C(L,L1)│0]Ж(·Л:Ю0:Р]┤/DA$│ И(100л Б(Tо60))л И(100лTм60н Б(Tо60))]║/XР]▐0╘R2│(90м180н(X┤0))нP1:ЕY│0з12530] 0╒R2│ Ф(XоY):ЕY┤0зR2│R2л180нP1^0ЄF(0,4)│R2:Р^@18R1│ Ы((F(X,0)мF(Y,0))п2л(F(X,1)мF(Y,1))п2):Р^w2S1│C(X,8):S1│м(S1▓0)м(S1▓60)м(S1▓│100)н(1м(X│7)):Р^Я2╚Y│0:Бж12600:E1│0:ЕF(X,2)│0▒R1▓235зР^┼2╥L│R1н60о235:ЕTлL┤240▒TлLлL▓1140зР^╨2▄E1│1:Р^у3,АY│1еXн500:Л:Р_6░ЕRC│0з14010:ДЮ:Бж26600:З:З:З"SORRY ADMIRAL ";AA$;",":З_n6▒ЕRC│2зЗ"RANGE COMPUTER STILL OUT.":ДЗ"RANGE COMPUTER IS OUT OF ORDER.":RC│2_╛6▓З:З"WE'LL HAVE IT FIXED AS SOON AS":З"   WE CAN.":З:X│2:Бж13100:A$│ Т:Бе300_ь6║Ю:Бж26000:З:З"   RANGE COMPUTER READY:":З`q6─З "   1. CONTACT # 1":З"   2. CONTACT # 2":З"   3. CONTACT # 3":З"   4. ENTERPRISE/HORNET":З"   5. YORKTOWN":З"   6. MIDWAY":З:З`~6╩Бе 14030`л6╦Бж27150:АZZ│320е448й32:З@ZZ, б(31," "):Л`ї6╬З@320,"RANGE---":З@352,"FROM WHICH NUMBER (F TO END) "; Л(191);:A$│ Тa6╧JJ$│ Т:ЕJJ$│""з14031a/6╨ЕJJ$│"F"зЮ:Бе300:ДЗ@381,JJ$;a`6╥Е К(JJ$)▓48 ░  К(JJ$)┤55 зRX│ Й(JJ$):Бе14040aЩ6╓а50,2:З@384,"BAD #/RE-ENTER    ":X│3:Бж13100:Бе14027aр6╪З@384,"TO WHICH NUMBER "; Л(191);:JJ$│ Т:ЕJJ$│""з14040:ДЗ@400,JJ$;b6█Е К(JJ$)┤49 ▒  К(JJ$)▓54 з а50,1:Бе14038 :ДRY │ Й(JJ$)b66▄ЕRX▓3 зX│RXм1:Бе14047LbW6▌ЕLL(RX)│м1 з14058 :ДX│LL(RX)bl6▐ЕF(X,2)│0 з14058bЖ6▀ЕRY▓3 зY│RYм1:Бе14059bз6рЕLL(RY)│м1 з14058 :ДY│LL(RY)b╝6тЕF(Y,2)▓0 з14059bЇ6ъа50,2:З@448,"NO ENEMY CONTACT!":X│3:Бж13100:Бе14027c6ыЕX┤Y зXX│X:X│Y:Y│XXc6ьБж12600:З@448,"                 ":а240,1:З@448,"RANGE ";:З═"#";RX;:З"/";:З═"#";RY;:З" IS"; Б(R1л.999999);"NM."cЧ6ёX│3:Бж13100:Бе14027cк6Ўа100,2:Бе14030c№8дАY│1е3:╔"T40O2;5;1;5;1":АX│0е8:ЮX:АXX│1е20:Л:╔"T255O4;1;5;10;1;5;10":Л:Л:Ю4:Рd8■:ГJ. SCOUT PLANE MESSAGESd89И Д(3)Бе14620,14640,14660ds9З"JAPANESE FLOAT PLANE SIGHTED":З"  OVER ";T$(I);"!":Рd└90З"DESTROYER REPORTS UNIDENTIFED":З"  AIRCRAFT SIGHTED NEAR ";T$(I);"!":Рd╓9DЕC(I,7)│0зБе14620e9NЗ"CAP REPORTS JAPANESE FLOAT":З"  PLANE SHOT DOWN NEAR ";T$(I);"!":Рe:9b:ГMISS TARGET MESSAGESea9lБж26900:ЗN$(S(I,9));" ";P$(JлKм1);e9vИ Д(3)Бе14720,14740,14760e╡9АЗ" MISS TARGET":З"  DUE TO NAVIGATIONAL ERROR!":Рeь9ФЗ" TURN THE WRONG":З"  WAY AND MISS THE TARGET!":Рf9иЗ" BECOME LOST":З"  AND MISS THE TARGET!":Рf-:ШЕ Ъ(0)▓28 зЗfV:ЭБж26300:З"hit ";:X│1:Бж13100:H│Hл1:Рfg:№Е Ъ(0)▓23 зЗfЦ;Бж26200:З"near miss ";:X│1:Бж13100:N│Nл1:Рfкaи:ГOPENING TITLEf▓a▓Y│8f┬a╝Ю0:АV│10е16f╬a┴Бж25460fхa╞Ь(5,V,Y):Ь(13,V,Y)f¤a╨Ь(17,V,Y):Ь(21,V,Y)ga┌Ь(31,V,Y):Ь(39,V,Y)g'aюЕV┤▓10 з25120g?a°Ь(22,V,Y):Ь(23,V,Y)gWbЬ(24,V,Y):Ь(25,V,Y)gebЬ(46,V,Y)g}bЬ(52,V,Y):Ь(58,V,Y)gПb ЕV┤▓11 з25170gжb*Ь(6,V,Y):Ь(12,V,Y)g╛b4Ь(26,V,Y):Ь(45,V,Y)g╓b>Ь(47,V,Y):Ь(53,V,Y)gфbHЬ(57,V,Y)gЎbRЕV┤▓12 з25220h
b\Ь(7,V,Y):Ь(11,V,Y)h%bfЬ(27,V,Y):Ь(44,V,Y)h=bpЬ(48,V,Y):Ь(54,V,Y)hKbzЬ(56,V,Y)h]bДЕV┤▓13 з25270htbОЬ(8,V,Y):Ь(10,V,Y)hМbШЬ(27,V,Y):Ь(35,V,Y)hдbвЬ(43,V,Y):Ь(49,V,Y)h▓bмЬ(55,V,Y)h─b╢ЕV┤▓14 з25320h█b└Ь(9,V,Y):Ь(34,V,Y)hєb╩Ь(27,V,Y):Ь(36,V,Y)i
b╘Ь(55,V,Y)ib▐АH│43е49:Ь(H,V,Y):ЛHi,bшЕV┤▓15 з25360iDbЄЬ(26,V,Y):Ь(33,V,Y)i\b№Ь(37,V,Y):Ь(43,V,Y)itcЬ(49,V,Y):Ь(55,V,Y)iИcЕ V┤▓16 з 25410iбcАH│22е25:Ь(H,V,Y):ЛHi╣c$Ь(32,V,Y):Ь(38,V,Y)i╤c.Ь(43,V,Y):Ь(49,V,Y)i▀c8Ь(55,V,Y)iчcBЛ Vj
cLЗ @326,"TURNING POINT IN THE";j+cVЗ @359,"WAR IN THE PACIFIC";j7c`Бе25495jYct╔"L8T100O1;V30;11;2;5;9;12":РjhcЧАX│1е200:ЛkacЬ╔"V15;L8T71O3;6;7;12;11;8;9;6;7;12;11;8;9;6;7;12;11;8;9;T225O2;2;5;6;12;2;12;1;11;4;T196O3;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;1;2;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;10;8;5;12;9;10;2;3;8;"kscлX│2:Бж13100:Рkyc░РkЧeР╔"L255T143O5;9;3;7;6;4":Рk╖eЪ╔"L10T35O3;7;5;6;9;3;7;9":Рk█eд╔"L100T35O5;3;5;7;9;3;5;7;9;":РkЎeо╔"L255O5;9;7;5;3;1;":Рle╕╔"L150O3;9;7;9;7;9;7":Рl>e┬╔"L100O5;9;3;9;1;4;5;1;9;3;9;1;4;5;1":РlМeЇ╔"L8T100O1;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6;12;4;11;7;6":РlжfX╔"T255O5;1;10;1;10":Рl╛fl╔"T30O5;1;5;1;5;":Рl╓fК╔"T255O3;5;1;5;1":Рl√f╝A$│"T255O2;1;5;1;5;1;5;1;":╔A$:Рm)g ╔"T65O3;9;7;5;3;1;O1;12;10;8;6;2;1;P10":РmKgД╔"T50O1;12;10":X│.1:Бж13100:Рmggш╔"T55O3;1;4;1;4;1;4;":РmФgЄ╔"L30O1;12;11;10;9;8;7;6;5;4;3;2;L3;1":Рm╢g№╔"L40O2;12;10;8;6;4;2;L6;1":Рm╨h╔"T255O3;1;10;1;10":Рm№hLАZZ│1е6:Бж26200:З".";:X│1:Бж13100:Л:З:Рnh~╔"T255O4;5;10;5;10":Рn9h░╔"T19O2;12;1;12;1;12;1;12;1":Рn\hт╔"T19O2;12;1;12;1;12;1;12;1":Рnsi╔"L30O2;5;1;5;1":РoTix╔"L8T170O2;1;1;1;1;1;1;1;T58O4;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;6;3;10;7;2;9;5;2;4;3;T185O5;5;1;7;T35O3;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;6;5;4;9;7;11;P1"osi}АX│225е3йм3:аX,1:Л:а3,10:Рo╦i▄╔"L8T170O3;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5":Рoщj╔"L8T170O4;5;1;5;1;5;1":Рpj@╔"L20T170O4;8;6;8;6;8;6;8;6;8;6;8;6":РprjдАX│1е4:╔"L20T170;04;4;6;4;6;4;6;4;6;4;6;8;6;8;6;8;6;10;12;10;12;10;12;10;12;":Л:а200,10:РpЗk╔"T255O5;10;2":Р;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5;1;5":Рoщj╔"L8T170O4;5;1;5;1;5;1":Рpj@╔"L20T170O4;8;6;8