ZXTape! 0Created with Ramsoft MakeTZX0War In The PacificEXPANSION sNsu%' %( %) %* %+ %\ %_ %a %#D$(1,1)::"EXWITP/2" &ht=1:9515+% EXWITP/2 ||~           & + 0 5 7 : ? I N Q S T V X Z ] _ ` b l                       # >                < u v x }     @ C J L N T Y \ ^ h r u v w                  ! & ( * , . : D I L N X Z ` b p r s {                           4 > @ A C H M R S T W \ a f k p q r u z                                         " ' + U \  L V          " ' ( ) < F # % %z:N$(1,1):R$(1,1):T$(1,1):21,10 ;1;"LOAD EXWITP/3":"EXWITP/3" %r:f=0:1,502:5,7;1;"WAR IN THE PACIFIC";20,8;"LOAD DATA TAPE" ,EXWITP/3 "*"}"3fo=2D$(yo,xo+40()=(sn-(<.6)) Q18,22;"PLANE LOSS":fo=119,24;1;dn2-dn @fo=219,24;1;sn-D$(yo,xo+40() Bdefc=0:j=14:O$(yd,xd)=P$(j,1)defc=j j  550&: &~a=T$(yd,xd):yd,xd;a;"":a=0a=7yd,xd;7;"":dd+sd=0cas1+cas2>0v=3:300, +4a=5yd,xd;1;"";yd,xd;5;" " ,defc=05655 .5dd+sd0yd,xd;8;O$(yd,xd):5655 0+O$(yd,xd)=" ":P(defc)=P(defc)-R$(yd,xd) 5 #A12 ,22;" ";13 ,22;" ";14,22;" ";15,22;" ";16,22;" ";17,22;" ";18,22;" ";19,22;" ";20,22;" ";21,22;" " * 4c12 ,22;1;"REVENUE ";13 ,22;" ";13 ,22;E(f): >T20,22;1;1;"ERROR!!!! ":1,502:100d: 800 :13 ,22;"AIRBASE";14,24;"MAP":co=1:j=201-1:.001wn,60<-j:n=120:j,n;8;1;1;1;" " WO$(j,n)P$(f,1)j,n;8;1;0;0;" ":n:j:1209 @D$(j,2*n-12*n)=" "dn=0:1204 'dn=D$(j,2*n-12*n) .D$(j,40(+n)=" "sn=0:1206 sn=D$(j,40(+n) dn>9 sn>7j,n;1;1;1;"":.1}L,502:K$(co,1)=j:K$(co,2)=n:K$(co,3)=0:.1}L,40(:j,n;1;0;0;"":co=co+1:co>10 co=(*10 +1) 4j,n;8;1;0;0;" ":n:j Zco=115,25;"NO";16,22;"AIRBASES":100d:4800 p800 :13 ,22;1;"AIRSTRIKE";16,22;"SELECT ";17,22;"AIRBASE " 21,22;"CONT:'C'" =""1221 ="C"2000:4800  2000  1500 ::O$(y,x)P$(f,1)830>:502:1210 ̬"i",0:"i"+1,8:"i"+2,127:"i"+3,62>:"i"+4,8:"i"+5,8:"i"+6,28:"i"+7,0 Oyo=y:xo=x:D$(yo,2*xo-12*xo)=" "dn=0:1239 *dn=D$(yo,2*xo-12*xo) 0D$(yo,xo+40()=" "sn=0:1242 sn=D$(yo,xo+40() $dn<10 sn<81210 j=1co-1:yo=K$(j,1)xo=K$(j,2)K$(j,3)=(K$(j,3)+1):K$(j,3)>320,22;1;"NO STRIKE ";21,22;"CAPABILITY":1:100d:1210 j ݄fo=(dn>9 )+2*(sn>7):1600@:880p:800 :13 ,22;"ANOTHER";14,22;"ATTACK ?" ="y"1239 "n"1247  1210 81:a:y,x;0;0;152:0 Amv=1Ʀ""I$=:mv=0:.1}L,30:7:  1="0"I=0:.01z# =,30:7: #.001wn,502:65202 (fo=1)*r+(fo=2)*3830>:502:1614N h 800  rj=0-39'-3:yd,xd;1;1;1;"";yd,xd;"":.01z# =,j:yd,xd;0;1;1;"":j:.1}L,502:yd,xd;0;1;0;"";yd,xd;"" uCD$(yd,2*xd-12*xd)=" "dd=0:1665 v*dd=D$(yd,2*xd-12*xd) 0D$(yd,xd+40()=" "sd=0:1672 sd=D$(yd,xd+40() 2sd=0T$(yd,xd)="5"dd=0:1800 rcas1=(*4)+((dn>30sn=9 )ƥ<.73333):cas2=(*3)+((sn=9 dn30)ƥ<.73333) cas1>ddcas1=dd cas2>sdcas2=sd ,800 :13 ,22;"CASUALTIES" :cas2015,22;"SHIPS: ";1;cas2 :cas1016,22;"DIVS : ";1;cas1 7cas1+cas2=015,24;1;"NONE" sd=sd-cas2:dd=dd-cas1 cD$(yd,2*xd-12*xd)=(dd):dd=0D$(yd,2*xd-12*xd)=" " >D$(yd,xd+40()=(sd):sd=0D$(yd,xd+40()=" " dn2=dn W:fo=1dn1=(*6):dn=dn-dn1:D$(yo,2*xo-12*xo)=(dn)  503: dd=0:511: J15,22;1;" SELECT ";16,22;" TARGET " д"i",24:"i"+1,24:"i"+2,60<:"i"+3,231:"i"+4,231:"i"+5,60<:"i"+6,24:"i"+7,24: [14,22;1;15,22;"1 CONCEDE";16,22;"2 REVENUE" @K$(10 ,3):17,22;1;"3AIRSTRIKE" 0q=-480:q>0q<43070 '="y".01z# =,10 :4982v ="n".01z# =,20:  8204  8204  j15,22;1;" SELECT ";16,22;"DEPLOYMENT";17,22;" REGION " " 8204 ' 880p +,.01z# =,*-20-20:5160( U5880p:20,22;1;" QUANTITY " \,.01z# =,-20-*20:5210Z LC11 ,22;P$(f);12 ,22;1;" MOVEMENT " VJ15,22;1;" SELECT ";16,22;" REGION " 800 :12 ,22;Z$;14,22;"1 MOVEMENT";16,22;"3 OCCUPY";17,22;"4 CHANGE";18,22;"5 OPTIONS":T$(y,x)"5"fo=115,22;"2 MARCH" 7fo=2T$(yo,xo)="5"15,22;"2 SAIL" V 800 :15,22;1;" SELECT ";16,22;"OBJECTIVE " 1510:800   12 ,22;2;1;" ATTACK ":j=minmax:12 +j,22;1;j;" ";G$(j):.01z# =,-10 -j:j .1}L,30:880p att=32 20,22;2;1;" COMPUTER ";21,22;" OVERRIDE ":att=min+(*(max-min)):6683 ".4L,40(:800  'k11 ,22;P$(defc);12 ,22;4;9 ;1;12 ,22;" DEFENSE " (Pj=minmax:12 +j,22;1;j;" ";H$(j):.01z# =,-10 -j:j )kj=-200:.01z# =,j:j:.5,502:defc=4100d:def=32 :6716< <def=32 20,22;1;4;0;" COMPUTER ";21,22;" OVERRIDE "::def=min+(*(max-min)):6719? F`j=10 100d5:254,255:254,237:1/j,j/3:j "~>I$=:I$="n"f=c-3*(c=4):800 :8905" "con=2 "6f=3P(f)<0con=2:c=f:8844" "#f=f+1:f=4f=1 "z12 ,22;"END OF";13 ,22;"QUARTER":qu=4P(1)>0P(1)=P(1)*.75@ %2:65200,10 :65201,10 :20,0;:"LOADING 2 ":20,0;:"LOADING 3 ":1:7: %+@"CHAR":"Q$"Q$():"C$"C$():"S$"S$():"R$"R$():"T$"T$() %,G"C"C():"O$"O$():"D$"D$():"N$"N$():"E"E():"P"P():"P$"P$() %.1::7::"MAP":f=C(5):year=C(2):nuke=C(4):pleft=C(1):qu=C(3):p=C(6):803# %0 8950" %a V 110000000121000000123210000123432100012453210001256431001235742000135786000135789_CHAR X ]PZZ8"Zzá oT6~<<ffffIQ$ -X sa/ARMY NAVY NUKES C$ X [ VLADI'CK SAPPORO PEKING NIIGATA SOUL OSKA YOKOSUKA SHANGHAI NAGASKI MIDWAY HONG KONG MANILA WAKE I. PEARL HAR.Pt.MORESBYSAMOA FIJI DARWIN BRISBANE S$ 5X kY704558616774767782859?:1;3;<;C<7@@A>B4D9 R$ X d0001110000000000010000001100000000000010001000000000000000000001420330000000000000311019000000000000400200600000000000001104089000000000000013006000000000000000100000000000002000004000000000000000000000300000000200000090000100100000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000001000000000401100000000000000000000400000000000000000001700000000000T$ X /2222225542555555525522222255455555545525224222555555555555552224225445555555555522646557555555555555755655755555555555554457577555555555555567557555555555555555652555555555557555557555555555555555455555755555455755555575554455755555455555555454555555555555555522554227455555455555254552255455555555555545555555555557555522554545554557555555555744455554555555555422242655555555555552222442755555555555C &X ?^(rO$ X g ND$ X `< 1 1 1 1 1 1 1 1 30 4 1 1 1 1 1 1 1 1 1 1 5 1 9 1 9 1 1 9 1 3 4 9 30 9 9 1 1 5 5 9 1 1 8 1 2 4 5 6 30 3 9 1 1 4 1 3 1 1 7 1 1 4 1 1 1 1 1 1 1 1 1 1 N$ X ^ E X 2P X ^dd- P$ -X sd/ NIPPON U.S.A. U.K. U.S.S.R.MAP @;8888B<|>BB~|<<>~><?BBBbB@BBB@BPPBBBR~|BB@|@"""""""""B~|JB@|~@@@ZZZZZZZZZZBDFB@@BB@B$BB>BB~@B<>@><zzz0zzzzzz? p98yZ8ZB>||@@<<(` <`Cx@`?`?8B<<`h<<ZZZZBDZ~?ZZB<<|lPPB@B` P(FFBH@B@@B((dB<B?pJJBp_(|"B<<BfB~<pRRBH_HZB|fBBB<pbb@BD~BBBBD <<B~B><<ZZZaZ<BZ<ZZz<<<B>>1 ~!