WARZONE ffzh!@00 865367W:65365U,0:65000,99c ?0:0::"war$"32768:23760\:0 0,0;:"war" "23760\:7:7: (p#1;1,0;1;1;"Pulse ENTER solo para cargar partidas salvadas anteriormente!" 2Aw=175K:.05|L,*8:q$=:q$=""w:q$="n" 4Nw76L;:#1;" Start tape, then press any key.":1:0 7 23760\:0:0 <0,0;:"" d(ch=23631O\+256*23632P\ x"WAR" NOMERGE war$ p(H@@@H@@`H !P@@@!@H@@@  @@A@@ @@D@@"@ P( @ PA0@ @@@H@@@  @@@@@ ` @B@@B@ @P`@@ @@@ @  @HP@@@ @@@A @@@A@@@@H@ @B@@ @  @( P@@@@ @@@@DA @ @A@@@P@H @@@ @A@@ @ @@@0@@@@@@@(@HA@ @ @@@P@( @@ @!@"@@D @@@0@ @@A@` @0@@BD PB @ @@(@@0@( @@ @!@`"@@@D @ @0@ @@P  P@ @"(@ D"@@@(@@0@@@A @ @ A@ @$ @ @@1 0 @B 11@@ D"  3@!DH0@0 3 &@D "   ! B0 ("0  Ϊl" { ` A A00 ` ` `  D"0 3 P A@0  B DD A0aȠ!A0(E(  0wU\5G0w0 @ D$  `0F@@0d "B@D @0ᰐHh" i& " hݻ6:X!`@ D$ @@0`1@b `"@D `xhh$$$""yE $v:1@P@  1c"$ @@ 3D 1  3$"@H@ 4PD $D SXD)d =6 `0AP! 0 `!B"H @ #0 D`"1" 00 H!@A$#0 PD@H0)XHV0~60 A (@B0`!"H@ D03L6 A@„PH@!R :a @@"@`BH@@0 "ah6 B! 1 xbDP $sLT}|<`c cccc~~`B<|<B<@<<<@`f ccccc`f`cc<<|<~~`c>>BBBBBbDB@@B@B@BBB@BZ|<<xDT@B<(B 0Dx@ D@D DD<@BB@BRBB|BH~ DD8 x8x (xD@~|N~JBB@|@|@>>ZBDBBB@BBDDTDB~B c>~~~~>>BBDBBFDB@B@@D@<<$BB<<B 8D x ><8~c cc~~>GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGEEGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGFFGGGGGG::::::::war %B%*K\[[w~I }i ×T ñt ˼A a m  #y x>xy>}>|>>z{T .&[[E.&[[E.&[[E.&[[E.&[[E.&[[E .&>>[ [>ׯEA$ p>ׯZA$*[[K\  ~t  i  a  T I A # *K\~t(a( i(# x +c(D##c(=Rc(0+c(*+c($<c(#c(#c( ~TAIS[R"[͛ *[#͛($*[͛ *[#͛(R| }0[[!> G>BF#>BF#!͵###| *K\[[  ~I(T(A(# (#~m(x(ѯR"[*K\ 6 #z *K\[[  ~i(t(a(# (~z(ѯR"[*K\ ~z 6 #z :\ R;;!*=\s#r>n R;;! v   S.THOMAS 1984  P P P 3]MR)R \Wq !v>!|@>*K\[[~X 6 3R~ +~h H >R >_r >f  #y x>xy>}>|>z{  .&ò _.&>>  ò^^.&ò.&ï ò ÿ<<<~<~<<<~<<|<<<<~|<~<<<@@B|~R<HBBB@@BB|~b@B~BBBB@BBDBb@B~BBBBBBBB@BBB<>~<<<<<<~<~<<|<<<<<~~Z<@<@`<<B<<@< B<<> <<<~<~<<B,,$$*F(BB@@BBP~ J (||<BB BR<HBB>0BBb@B~BBBB><<>~<<<<<xxxxxxxxxxxxxxxxxxxxxx8hhhhhhhhhx88888888888888888888x8888888888x88888888888888888888x8888xxx888x88888888888888888888x8888xxx888x88888888888888888888x8888xxx888x88888888888888888888x8888888888x88888888888888888888x8pppppppppx88888888888888888888x8888999888x88888888888888888888x88899{9988x88888888888888888888x8899{y{998x88888888888888888888x889{yyy{98x88888888888888888888x8899{y{998x88888888888888888888x88899{9988x88888888888888888888x8888999888x88888888888888888888x8OOOOOOOO8x88888888888888888888x8888888888x88888888888888888888x888yy88888x88888888888888888888x888yy88888x88888888888888888888x888yy88888x88888888888888888888x888yy88888x88888888888888888888x888yy88888xxxxxxxxxxxxxxxxxxxxxx888yy888888888888888888888888888888888888888888888888888888888888888888888 5 4 XIT mMP c2 CK "1 EXIT s>82>2>22A\>!j\w ZEUS Z80 ASSEMBLER  1983 Crystal Computing !8Y!>2*}4 |2( !42"!"+"!"!"ZEUS 2: *[8%ͣ{(Ͱ80 ͷ8a0Error !x2!o0$~#<WAR O 'OOP  S.THOMAS 1984  Cp()=10 *(sr-(3*(sr/3)))+300,*(sr/3) =s()=3*((r-1)/10 )+((c-1)/10 ) n(m$)=m$"0"m$"9" (l(m$)=m$"A"m$"J" d Init iEa$(30,30):b$(30,30):c$(30,30) nT9940&:m(3,5):x=13:y=15:m(x,y):y:x x2,8;"W A R Z O N E";3,7;"________________":.1}L,30:.1}L,25:11 ,0;"EL NUMERO TOTAL DE PIEZAS DEBE SER DE 15 A 150 ..." ot$="infanteria ":6000p:bi=m$:t$="tanques ":6000p:bt=m$:t$="artilleria ":6000p:ba=m$ ,tot=bi+bt+ba:tot<15tot>150 R23556\,0:15,0;"REPLICA... F Rapida o S Lenta " ;slow=23556\:slow70Fslow83S147 slow=slow=83S::h=/2.5 +.1}L:sx=1:to=tot:dsr=9 :9600%:1000::>.49zG500 Blue go  bcg=0:sr=0:9000(#:x=205024:.05|L,x:x:mc=49010r 7000X #go=19000(#:220 #go=29100#:220 #go=37500L:220 go=47800x #go=56500d:220 #go=66600:500 "go=75100 'go=8500 (#go=9 6550:220 , 220 Computer go  |cg=1:sr=0:9000(#:ms=23:8000@:x=50220-4:.05|L,x:x:mc=49010r to/tot>1.5@sx=21 tot/to1sx=1 3500 :mca515  Red air attack Zmc=49110ֿ:sr=8:9060d#:9200#:mc=49035:mcrtot550& Ks=07:sr=s:s>1sr=sr+1:sr=8sr=2 !>9060d#:9200#:mc=49035:mcrtots=8 "s:s=8200 &ba=23298[+256*23299[:ad=(a/30):r=ad+1:c=1+a-(ad*30) 0et$=(64@+r-(((r-1)/10 )*10 ))+(c-(((c-1)/10 )*10 )-1) :?9030F#:ms=21:8000@:8800`":9550N% D:>.5ms=14:8000@:502:600X NX9500%:85004!:ms=16:8000@:a$(r,c)=" ":b$(r,c)=" "b$(r,c)="X" Smc=50011[:5000 X 200 Init posns  2000 rnd=.73333:i=1bi Xx=(*26+1):y=(*26+1):x+y>26a$(x,y)" "1030 a$(x,y)="i":i t=1bt .Xx=(*26+1):y=(*26+1):x+y>26a$(x,y)" "1070. 8a$(x,y)="t":t La=1ba Vm=30:>rndm=10 `Xx=(*26+1):y=(*26+1):x+y>26a$(x,y)" "1120` ja$(x,y)="a":a t6ri=(tot/3):rt=(tot/2):ra=tot-(rt+ri) i=1ri Xx=(*26+5):y=(*26+5):x+y<35#a$(x,y)" "1220 a$(x,y)="I":i t=1rt Xx=(*26+5):y=(*26+5):x+y<35#a$(x,y)" "1270 a$(x,y)="T":t a=1ra (Xx=(*26+5):y=(*26+5):x+y<35#a$(x,y)" "1320( 2a$(x,y)="A":a <  Board  Ӽt=115:x=(*28+2):y=(*28+2):b$(x-1,y-1y+1)="hhh":b$(x,y-1y+1)="hHh":b$(x+1,y-1y+1)="hhh":t ռt=115:x=(*28+2):y=(*28+2):b$(x-1,y-1y+1)="fff":b$(x,y-1y+1)="fff":b$(x+1,y-1y+1)="fff":t 4r1=(*30+1):r2=(*30+1) 3x=130:b$(x,r1)="r":b$(r2,x)="R":x Zx=130:m1=(*30+1):m2=(*30+1):a$(m1,m2)="m":x  Find red =fs=0:ls=8:sx=21fs=8:ls=0 $s=fslsͼ(ls-fs):sr=s:9060d# $mca=48930":mca3040 fa=23298[+256*23299[:ad=(a/30):r1=ad+1:c1=1+a-(ad*30): s: Red fire !mc=49110ֿ &a$(r1,c1)="I"c$(r1,c1)="f" 0mc=49035:mc :ba=23298[+256*23299[:ad=(a/30):r=ad+1:c=1+a-(ad*30) D 9590v% Ndr=(r-r1):cr=(c-c1) XEdrrngcrrngb$(r,c)"f"(b$(r,c)="f"b$(r1,c1)="f")3200 bc$(r,c)="z":31200 drcr(drcr)3300 $rr=r1:cc=c1:x=(r-r1):y=(c-c1) *rr=rr+x:cc=cc+y:rr=rcc=c3300 b$(rr,cc)="H"3170b 3220 Attack *c$(r1,c1)="m"c$(r1,c1)="x":3310 c$(r1,c1)="f" et$=(64@+r-(((r-1)/10 )*10 ))+(c-(((c-1)/10 )*10 )-1) if$=(64@+r1-(((r1-1)/10 )*10 ))+(c1-(((c1-1)/10 )*10 )-1) /ms=15:8000@:8700!:10 ;frnd=1.05fff-(rng*.15~)-.15~*(a$(r1,c1)="T")  85004! *L9500%:ms=16:8000@:a$(r,c)=" ":b$(r,c)=" "b$(r,c)="X" 4mc=50011[:5000 9;: ;Retaliate >9550N%:TP H'9580l%:(r-r1)>rngŽ(c-c1)>rng Ri$=t$:t$=f$:f$=i$ \/ms=15:8000@:8700!:10 a9frnd=1.05fff-(rng*.15~)-.15~*(a$(r,c)="t") fdisv=5 %rnd=.05|L+.15~*rtp:psr=sr =9400$:;:mcv=5:rnd=rnd+.25~:3580 :psrsrsr=psr:9060d#:9200#:btot9030F# $c$(r1,c1)=c$(rr,cc):c$(rr,cc)=" " btotslow502 v:a$(r1,c1)" "3100 *c$(r1,c1)="f"c$(r1,c1)="x":3630. $c$(r1,c1)="m" . Lose red man tot=tot-1:5000 Attack blue "mc=49110ֿ:mc=49035 da=23298[+256*23299[:ad=(a/30):ra=ad+1:ca=1+a-(ad*30)  Win check Dosr=sr:sr=0:9060d#:9200#:btotrtot5100 <sr=8:9060d#:9200#:rtotbtot5200P to*3tot5100 tot*3to5200P to+tot<10 5300 "sr=osr:9060d#:9200#:  Red win ms=24:8000@ 0x=2030:=13 6530: .01z# =,x:x:5110 PBlue win Ums=25:8000@ Z9x=3020-1:=13 6530: d.01z# =,x:x:5210Z  Draw ms=20:8000@ 1.01z# =,*40(:=13 6530:  5310 pInit input zKm$="":15,0;31;" ";15,6;"Numero de ";t$; "_";8; +0:i$=:i$=13 Ʊm$0 'i$<"0"i$>"9"űm$=36010z 0m$=m$+i$:.002xn,30:i$;:6020 d Status n&ms=26:8000@:150: x End p.01z# =,0:6500d:100d:c=08:.01z# =,C+1:sr=c:9060d#:9030F# J;:ms=27+(c=8):8000@:0+250*(c=8):c =""6530 48900:  SAVE "WZ4"6800  Blue air attack fr1=(p()/30):c1=p()-(r1*30):r1=r1+t$(1)-64@:c1=c1+t$(2)-47/ `ms=21:8000@:8800`":9560X%:9200#:rtpbtotť>.56650 R85004!:ms=16:8000@:a$(r1,c1)=" ":b$(r1,c1)=" "b$(r1,c1)="X" mc=50011[:4000: &ms=14:8000@:100d: $;:6500099c0 d23681\,0:mc=49135::9980&:sr=0:dsr=9 :9000(#:220 XInput Command bG.01z# =,30:.01z# =,25:23658j\,8:m$="":; g#1;" ORDEN = "; l!#1;"_";8;:0 q!i$=:i$>"/"i$<"["7040 vdi$=12 m$>0#1;" ";8;8;:m$=m$(1̱m$-1):7060 wi$=13 7100 { 7010b #1;i$; #m$=m$+i$:m$=77100 !.002xn,30:7020l Check command ;:go=0 `m$=2m$(1)="S"(n(m$(2))m$(2)"9")sr=m$(2):go=1: _m$=3m$(1)="M"l(m$(2))n(m$(3))f$=m$(2):go=2: ڙm$=5m$(1)="F"l(m$(2))n(m$(3))l(m$(4))n(m$(5))f$=m$(23):t$=m$(4):go=3: _m$=3m$(1)="Q"l(m$(2))n(m$(3))f$=m$(2):go=4: M$="SAVE"go=9 : m$="STATUS"go=5:  _m$=3m$(1)="A"l(m$(2))n(m$(3))t$=m$(2):go=6: 1m$="BREAK"23681\,1:49135:  m$="QUIT"go=7: *m$="END"go=8: 4m$="SLOW"slow=1: >m$="FAST"slow=0: B%ms=5:8000@:100d: L Firing V_r=(p()/30):c=p()-(r*30):r=r+f$(1)-64@:c=c+f$(2)-47/ `59550N%:tpms=6:8000@:502: j>c$(r,c)="F"c$(r,c)="X"ms=12 :8000@:502: tfr1=(p()/30):c1=p()-(r1*30):r1=r1+t$(1)-64@:c1=c1+t$(2)-47/ ~dr=(r-r1):cr=(c-c1) @9580l%:dr>rngcr>rngms=13 :8000@:502: Ab$(r1,c1)="f"B$(r,c)"f"ms=18:8000@:502: drcr(drcr)7600 "rr=r:cc=c:x=(r-r1):y=(c-c1) ,rr=rr-x:cc=cc-y:rr=r1cc=c17600 4b$(rr,cc)="H"ms=19:8000@:502:  7585  Attack c$(r,c)="M"c$(r,c)="X" c$(r,c)=" "c$(r,c)="F" /ms=15:8000@:8700!:10 9560X%:rtp7630 9frnd=1.05fff-(rng*.15~)-.15~*(a$(r,c)="t") rngŽ(c-c1)>rng 2i$=t$:t$=f$:f$=i$ 1;""mg=15:1:2:1:7:g:7:48836ľ,502:mc=48830:48836ľ,0:mc=48830: !Machine gun !I48836ľ,10 :g=120:mc=48830:1:g: !Gun shot "Z48836ľ,10 :mc=48830:48836ľ,80P:mc=48830:10 : "`Dive bomb "jmc=48900:8600! " Fight "8600!:85004! "6gs=(*4):gs*100d+85004!:8950" #(Print sector #2U9060d#:9200#:btotms=2:8000@:sr=dsr:9060d#:502 #F sr=dsr #Kpdsr=sr:mc=50000P:po=(sr/3):1;1;1;2+po,26+sr-(po*3);" " #Pa1;1;17,27;bi;" ";19,27;bt;" ";21,27;ba;" " #Z #dM/C co.ord #np=p() #xA23297[,p/256:23296[,p-(23297[*256) # #Blue move #_r=(p()/30):c=p()-(r*30):r=r+f$(1)-64@:c=c+f$(2)-47/ #<9550N%:tp=0ms=6:8000@:502: #=c$(r,c)="M"c$(r,c)="X"ms=4:8000@:502: #c$(r,c)=" "c$(r,c)="M" #c$(r,c)="F"c$(r,c)="X" # 9570b% #m=dis1-1 #%ms=11 :8000@:rr=r:cc=c #C9300T$:r>30r<1c>30c<19180# #i$="0"m=0:9170# #Ta$(r,c)" "a$(r,c)"m"r=rr:c=cc:ms=7:8000@:502:9135# #)sr=s():dsrsr9060d#:9030F# #O;:o$=a$(r,c):a$(r,c)=a$(rr,cc):a$(rr,cc)=" ":b$(rr,cc)=" "b$(rr,cc)="X" #/mc=50011[:b$(rr,cc)="X"b$(rr,cc)=" " #"c$(r,c)=c$(rr,cc):c$(rr,cc)=" " #o$"m"9170# #xm=0: dism=0 #m: #Deserting #Er=rr:c=cc:9500%:a$(rr,cc)=" ":b$(rr,cc)=" "b$(rr,cc)="X" #[mc=50011[:;:8900":ms=3:8000@:5000:m=0:9170# #Count sector #stot=48572 $rtot=(stot/256) $btot=stot-256*rtot $ $TCursor control $^!i$=:i$<"0"i$>"8"9310^$ $r3c=c+(i$="2"i$="3"i$="4")-(i$="6"i$="7"i$="8") $w3r=r+(i$="4"i$="5"i$="6")-(i$="1"i$="2"i$="8") $| $Adj search $mc=48640:mc $;a1=23298[+256*23299[:ad=(a1/30) $*r=ad+1:c=1+a1-(ad*30) $=a2=23300[+256*23301[:ad=((a2)/30) $,r1=ad+1:c1=1+a2-(ad*30) $ sr=s() $ef$=(64@+r-(((r-1)/10 )*10 ))+(c-(((c-1)/10 )*10 )-1) $ 9000(# $ms=8:8000@ $8900":