PACWAR  50383 236099\,502 f(23658j\/8)=2*((23658j\/8)/2)23658j\,23658j\+8 ("CONTINUE LOADING" 2 "MCODE" <"CONTINUE LOADING" F "SOLOMONS" MCODE /;1;<|D@BB<|<|~<D@?BB<?BH@f?bB?~p@ZRBBB H@BJBBBpD@BxFBB><pB|?~?B0B<??|<|<B?BB@BBB<|R|@JD<B@<B<                                     8888888888888888888888888888888888888888888888888888888888888888<|D@BB<|<|~<D@?BB<?BH@f?bB?~p@ZRBBB H@BJBBBpD@BxFBB><pB|?~?B0B<??|<|<B?BB@BBB<|R|@JD<B@<B<                                     8888888888888888888888888888888888888888888888888888888888888888!V!^!V!^~~!V!^!V!^~!@!@!!@             !~!( ##>(#!~( # P P P 3\MR8R \Wq !v> $|$ (,|84$>$48|,(>>BB<DHpHDB@@@@@~BfZBBBBbRJFB1955 &Q$<491ůQ$>579955  LEVEL=Q$  TF1J=0:Z=1:Y1=2:X1=3:W=4:V=5:U=6:T=7:S=8:R=9 :Q=10 XYZ=6000p:Z4=17:Z1=0:Z3=11 :Z5=256:GT=1:OT=1:AA=Z1:SAA=Z1:AS=Z1:ASC=Z1:JSC=Z1 T$(10 ,20)  5000 N=ZU T$(N,R)=0 T$(N,S)=0 T$(N,19)=0  Y=(*Z4)+W Y>RX=(*W)+X1 YDIS1=(T$(N,Y1)-T$(I+U,Y1)):DIS2=(T$(N,X1)-T$(I+U,X1)) 2"DIS1DIS2D(I)=DIS1:1350F < D(I)=DIS2 F%T$(I+U,13 )="1"D(I)=30 G&T$(I+U,20)="1"D(I)=100d KI PI=ZY1 d&D(I)>D(I+Z)D(Z)>D(I+Z)D(Z)=D(I+Z) sI x I=X1Z-Z D(Z)=D(I)1425 I T$(N,UT)=T$(I+U,Y1X1) GT18A1=A1-Y1:1660| t"A1<4A1=A1+Y1:1660| u"B1<4B1=B1+Y1:1660| vB1>27B1=B1-Y1 |T$(N,Y1)=A1:T$(N,X1)=B1 N XYZ MOT>121,2;"TAKE OFF PHASE NO. ";OT-1;" HAS ENDED"  TJUMP=Z1 $" ENTER T/F NO.0END";B$ B$=""2010 B$>Z2010 'B$<480ůB$>5242010 B$="0"2500  N=B$+U  7000X  !A$(P+Y1)ȯA$(P+X1)2000 XYZ B=64384 1:1: 70,11 ;0;"TASK FORCE ";A$(P+U)-U:  $"GAME TURN ";GT,"OP-TURN NO.";OT: * 1;A$(P+QP+R+A$(P+T)), /!"DAMAGE ";A$(P+Y1);" HIT(S)": 4#4;"AIRCRAFT ONBOARD": >PP=A$(PS+Y1)+PS: H 2140\ R 2160p \PP1=Z aA$(PP)=32 fF$(PP1),A$(PP+Z) k!PP=PP+Y1:PP1=PP1+Z:2145a p2:"AIR MISSIONS AVAILABLE=";A$(PS+W)-A$(PS+X1) q1U,22;3;7;1;"C.A.P." rS,24;V$(N);" " uTJUMP=Z2280 zNCAP=Z1:2;6;Z4,Z1;1;" ENTER TYPE OF MISSION " /:"A=AIRSTRIKE S=SEARCH C=C.A.P." 41;21,6;"ON COMPLETION ENTER 0" 1E$:E$="0"B=64372t:1:2000 E$="C"2420t CAP=Z2170z AC=Z1 E$>Z2200 "A$(PS+X1)ȯA$(PS+W)2230  2240 gZ4,Z1;2;7;1;" AIR MISSION LIMIT EXCEEDED "::"PRESS ENTER":E$:2170z M=Z̯A$(PS+W)*Y1Y1 A$(PS+V+M)=" "2255 M PP=A$(PS+W+M)+PS )A$(PP+X1)=E$:A$(PP+WPP+V)=T$(N,Y1X1) B=64372t:1 /21,0;"SET TARGET END PRESS 0"  9100#  A$(PP+U)=X A$(PP+T)=Y:TJUMP=Z  2075 kPP=A$(PS+W+M)+PS:4;7;1;1;Z4,0;"ENTER CODE OF AIRCRAFT F/T/D " 41;21,6;"ON COMPLETION ENTER 0" C$:C$>Z2285 C$="0"TJUMP=Z1:2170z  PM=PP+S A$(PM)=C$2320 A$(PM)=" "2280  PM=PM+Y1 2300 PH=A$(PS+Y1)+PS P10=R A$(PH)=C$2350.  PH=PH+Y1 $ P10=P10+Z ) 2330 .F6;2;1;Z4,Z1;" ENTER NUMBER OF AIRCRAFT " 3B$:B$>Y123553 6B$=""23553 8-B$(Z)<480ůB$(Z)>57923553 =N1=B$ BN1=Z12280 GA$(PH+Z)Y12430~ B$=""2430~ -B$(Z)<480ůB$(Z)>5792430~ N1=B$ N1ǯV$(N)2450 !A$(PH+Z)B3*Y12665i ZB3>A3*Y12660d _ A1=A1+A4:B1=B1+B4:2670n dB1=B1+B4:2670n i A1=A1+A4 n C9=C9+Z sA$(PP+W)=A1:A$(PP+V)=B1 x3A1=A2B1=B2A$(PP+WPP+V)=T$(N,Y1X1)2690 } 2780 PM=PP+S:A$(PS+V+M)=" " :A$(PPPP+T)=" ":(X,Y)<64@9300T$:2695 9000(# *A$(PS+X1)>Z1A$(PS+X1)=(A$(PS+X1)-Z) PH=A$(PS+Y1)+PS !A$(PH+Z)=(A$(PH+Z)+A$(PM+Z)) A$(PM+Z)=0 PM=PM+Y1:PH=PH+Y1 A$(PM)=" "2525 2705 JUMP=Z1 O=ZU T$(O,20)="1"2815 'A$(PP+WPP+V)=T$(O,Y1X1)2800 2815 :JUMP=Z:T$(O,S)=GT:T$(O,1718)=T$(O,Y1X1) 3000 A$(PP+X1)="A"3100 O )(X,Y)<64@9300T$:2820  9000(# #JUMP=ZA$(PP+X1)="S":2920h "ACP=(A1-X)+(B1-Y) #(A1,B1)64@2920h 'ACP=Z12880@ ,ACP=-Z2890J 1ACP=Z2900T 63ACP=-Y11;6;A1,B1;"":2920h ;*1;6;A1,B1;"":2920h @0A1X1;6;A1,B1;"":2920h Y1;6;A1,B1;"" h(A1=A2B1=B2A$(PP+UPP+T)=T$(N,Y1X1) rC9Y12525 w 26102 F=Z N6;2;1;F;T$(O,Y1),T$(O,X1);T$(O,Z):F=Z4000 F=Z13010 F=Z1:3001 B=64384  GPM=PP+S:21,0;"AIR ATTACK ON ENEMY TASK FORCE ";T$(O,Z)  4000 XYZ !A$(PM)=" "3140D &A$(PM)="F"31255 +AA=AA+(A$(PM+Z)*X1) 0 3130: 5%AA=AA+(A$(PM+Z)*T)+(*20)+V :PM=PM+Y1:3105! D PT=O*Y1-Z I PT=Z() N#A$(PT+Y1)ȯA$(PT+X1)3160X SSAA=SAA+A$(PT+W) XA$(PT+R)=" "3175g ]PT=PT+Q+A$(PT+T)+A$(PT+S) b 3150N gPM=PP+S:COUNT=Z:AIR=Z1 lE=Z̺(SAA/AA*Y1) v#A$(PM+COUNT)=03205 {!A$(PM+COUNT)=(A$(PM+COUNT)-Z) AIR=AIR+Z COUNT=COUNT+Y1 COUNT>VCOUNT=Z E 721,U;AIR;" AIRCRAFT SHOT DOWN":150:XYZ JSC=JSC+AIR PM=PP+Q A$(PM)=" "3260 AS=AS+(A$(PM+Z)*X1) PM=PM+Y1 3240 PT=O*Y1-Z:PT=Z() NHIT=Z1 &AS<27AS>15AS=27 E=ZW LOSS=(*60<)+Z LOSS=LOSS+AS #A$(PT+Y1)ȯA$(PT+X1)33859 $A$(PT+Z)="C"A$(PT)=U3325 LOSS<80P33804 A$(PT+Y1)=(A$(PT+Y1)+Z) ASC=ASC+Z:NHIT=Z 3335 LOSS<60<33804  3310 PT1=PT+R+A$(PT+T) XYZ M21,V;"...";A$(PT+QPT1);" HIT...":.5,10 :100d:XYZ #A$(PT+Y1)PT=PT+Q+A$(PT+T)+A$(PT+S) C 3270 HwNHIT=Z121,S;"...NO HITS REPORTED...":D=ZT:.1}L,30:.1}L,30:.2~L,30:D:XYZ MH21,R;"END OF COMBAT":A$(PP+UPP+T)=T$(N,Y1X1):100d:XYZ RAA=Z1:AS=Z1:SAA=Z1 W GT12 3760 I1=(*(DIST))+Z I1Z3760 T$(N,R)=GT QO=TR:T$(N,UT)=T$(O,Y1X1)21,Y1;"ENEMY SEARCH AIRCRAFT SIGHTED":F=Z N1;6;1;F;T$(O,Y1),T$(O,X1);T$(O,Z):F=Z4000 F=Z13545 F=Z1:3542 O:XYZ 3760 I1=(*LEVEL)+Z I1Z3760 T$(N,R)=Z 7000X O=TQ T$(O,Z)=" "3580 #T$(O,Y1X1)=T$(N,UT)3590 O  3760 >21,Z1;"ENEMY AIR ATTACK ON TASK FORCE ";T$(O,Z):F=Z N1;6;1;F;T$(O,Y1),T$(O,X1);T$(O,Z):F=Z4000 F=Z13594   F=Z1:3591  XYZ  I1=(*X1)+Z+V$(O) (A$(PS+Z)I1A$(PS+Z)=(A$(PS+Z)-I1) +V$(O)X1V$(O)=(V$(O)-X1):JSC=JSC+X1 621,U;I1;" AIRCRAFT SHOT DOWN":150:XYZ  ASC=ASC+I1 $AS=A$(PS+Z)*Y1 )PT=O*Y1-Z:PT=Z() . NHIT=Z1 /&AS<27AS>15AS=27 3E=ZW 8LOSS=(*60<)+Z =LOSS=LOSS+AS B#A$(PT+Y1)ȯA$(PT+X1)3730 GA$(PT+Z)="C"3680` LLOSS<80P3725 QA$(PT+Y1)=(A$(PT+Y1)+Z) VJSC=JSC+Z:NHIT=Z [ 3690j `LOSS<60<3725 e 3665Q jPT1=PT+R+A$(PT+T) tL21,V;"...";A$(PT+QPT1);" HIT...":.5,0:100d:XYZ y#A$(PT+Y1)Y1"PRESS ENTER";Q$  8000@ CD=ZT:.1}L,30:.1}L,30:.2~L,30:D  B=64408 4;80P,151:4;95_,0:4;0,-39':4;-95_,0:4;0,39' 4;32 ,111o:4;47/,0:4;0,-79O:4;-47/,0:4;0,79O U4;255,47/:4;-557,0:4;0,-39' )21,6;"START POSTION AREAS" "PRESS ENTER";Q$  1000 p:1;21,Z1;" " u X P=N*Y1-Z bP=P$(P)*Z5+P$(P+Z) lPS=P+Q+A$(P+T) v R21,Z1;"PRESS ENTER" \Z$ f p L TF1J=Z V3T$(N,Y1)=14T$(N,X1)=187520` [(T$(N,U)=14:T$(N,T)=18: ` 7000X a JSC1=JSC e*A$(P)="6"ƯA$(P+Y1)JSC121,V;"REINFORCEMENTS LANDING":4000:502:XYZ t TF1J=Z: @B=64384 AOT>Y18050r T OT=OT+Z ^ 2000 rOT=Z:GT=GT+Z w 8100 | 8300l 22:1::"JAPANESE TASK FORCE STATUS" O=ZY1  85004! O  7250R "JAPANESE TASK FORCE STATUS" O=X1U  85004! O  7250R )1::"AMERICAN TASK FORCE STATUS" O=TR  85004! O  7250R .0,6;1;"VICTORY POINTS": "JAPANESE","AMERICAN": &JSC,ASC:300, '-JENDX1AENDY1:1;"BATTLE","OVER" +(JENDX1AENDY1500:9997 ' , 1 l-:1:B=64408:"PRESS ENTER";Q$ vN=TQ z T$(N,20)="1"8330 {N=Q8325 F1;6;1;T$(N,Y1),T$(N,X1);T$(N,Z):8330 :4;0;1;T$(N,Y1),T$(N,X1);T$(N,Z) 7000X M=ZVY1 A$(PS+V+M)="1"8350 M 8365 PP=A$(PS+W+M)+PS ,1;6;A$(PP+W),A$(PP+V);"" 8345 N N=ZU T$(N,20)="1"8430 T$(N,S)=Z18430 GT-T$(N,S)>Y18430 ;X=T$(N,18)*S+X1:Y=176-(T$(N,17)*S)-W GT-T$(N,S)=Y18420 X=X-11 :Y=Y-12 |4;X,Y:4;23,0:4;0,23:4;-23,0:4;0,-23 8430 X=X-18:Y=Y-20 |4;X,Y:4;38&,0:4;0,38&:4;-38&,0:4;0,-38& N B=64384 1210 !4 TFCH=Z1 !9#:0;"TASK FORCE ";T$(O,Z) !HPT=O*Y1-Z:PT=Z() !RA$(PT+QPT+R+A$(PT+T)), !\#A$(PT+Y1)ȯA$(PT+X1)8580! !fR$(A$(PT)-480); !p#0;30;"D";A$(PT+Y1) !u4OY1T$(O,13 )="1" !vTFCH=Z !z 8590! !2;6;"SUNK" !"A$(PT+Z)="C"T$(O,13 )="1" !*A$(PT+R)=" "TFCH=Z1T$(O,20)="1" !A$(PT+R)=" " !PT=PT+Q+A$(PT+T)+A$(PT+S) ! 8530R! #(1BYTE=X*32 +Y+63440:BYTEH=(BYTE/Z5) #-BYTEL=BYTE-(BYTEH*Z5) #2&64212,BYTEH:64213,BYTEL #7DISP=BYTE-40912П #<)DISPH=(DISP/Z5):DISPL=DISP-(DISPH*Z5) #F&64214,DISPH:64215,DISPL #ZMAPOS=57296 #_ X>TMAPOS=MAPOS+2048-Z5 #d'X>15MAPOS=MAPOS+2048-Z5 #iBYTE=X*32 +Y+MAPOS #n)BYTEH=(BYTE/Z5):BYTEL=BYTE-(BYTEH*Z5) #s&64208,BYTEH:64209,BYTEL #x@DISP=BYTE-40912П:DISPH=(DISP/Z5):DISPL=DISP-(DISPH*Z5) #&64210,DISPH:64211,DISPL #B=643084 # #B1;7;20,15;"+":X=20:Y=15 #="0"9102# #=""9105# # 9000(# # ="0" #="5"Y=Y-Z #="6"X=X+Z #="7"X=X-Z #="8"Y=Y+Z #(X>20X31YB3*Y19250"$ $B3>A3*Y19245$ $ A1=A1+A4:B1=B1+B4:9260,$ $B1=B1+B4:9260,$ $" A1=A1+A4 $, 64216,A1:64217,B1 $1A=64478 $6A=Z1 $8BYP=Z $9T$(N,Q3)="1" $;B1=L$(A1,BYP+Z)9280@$ $<BYP=BYP+Y1:9275;$ $@BYP=L$(A1,BYP+Y1) $A/BYP1=(*T)+Z:BYP1/Y1=(BYP1/Y1)9281A$ $E&A2=S$(BYP,BYP1):B2=S$(BYP,BYP1+Z) $FX=A2Y=B29281A$ $HT$(N,W)=A2:T$(N,V)=B2 $I#T$(N,WV)=T$(N,Q1Q2)9281A$ $JT$(N,Q1Q2)=T$(N,WV) $K 9200# $T1BYTE=X*32 +Y+56528:BYTEH=(BYTE/Z5) $YBYTEL=BYTE-(BYTEH*Z5) $^&64212,BYTEH:64213,BYTEL $cDISP=BYTE-34000Є $h)DISPH=(DISP/Z5):DISPL=DISP-(DISPH*Z5) $r&64214,DISPH:64215,DISPL $MAPOS=50384 $ X>TMAPOS=MAPOS+2048-Z5 $'X>15MAPOS=MAPOS+2048-Z5 $BYTE=X*32 +Y+MAPOS $)BYTEH=(BYTE/Z5):BYTEL=BYTE-(BYTEH*Z5) $&64208,BYTEH:64209,BYTEL $@DISP=BYTE-34000Є:DISPH=(DISP/Z5):DISPL=DISP-(DISPH*Z5) $&64210,DISPH:64211,DISPL $B=643084 $ &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &22,7;"PUBLISHED BY ";1;"" &!3,22;1;"" &45,7;1;" 1983 Ken.Wright. " &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the":"copyright, of PACIFIC WAR.":"Please note unauthorised copying":"hiring, and lending of this":"software is strictly prohibited." &A21,3;6;1;"Press any key to continue" &=""9965& & ' NASCJSC300,::10 ,4;1;"CONGRATULATIONS ADMIRAL !" 'EASC