&!zM? !6:\ 88888888888888 8888 t tt t t  t ttx*xx*x*x*x*xx0x$$$$$$0x0x$$$$$$$$0x0xL LL L L $$0xL$$ 0x0xL?L<?<<?150 S23556\,0:15,0;"Computer response Fast or Slow " ;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 zQm$="":15,0;31;" ";15,0;"Enter number of ";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;"Command = "; 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;"left "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":xy>}>|>>z{T .&[[E.&[[E.&[[E.&[[E.&[[E.&[[E .&>>[ [>ׯEA$ p>ׯZA$g*[[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 THIS PROGRAM IS PROTECTED   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@BBD Bb@B~BBBB BBBB@BBB <>~<<<<<<~<~<<|<< <<<~~Z<@<@`< <B<<@<     EB <<>  <<<~<~<<EB,,$$* F(BB@@BBPE~ J (||<BEB BR<HBB>0EB  Bb@B~BBBKB > <<>~<<<<82>2>22A\>!j\w ZEUS Z80 ASSEMBLER  1983 Crystal Computing !8Y!>2*}4 |2( !42"!"+"!"!"ZEUS 2: *[8%ͣ{(Ͱ80 ͷ8a0Error !x2!o0$~#<c0 P PMBML_ 3)B=6}& '>? * 0<xtxL0P, $