ZXTape! 2 $Britain Invaded! : Operation SealionTk Computerware Sharps Inc1985English Strategy: War9.95 ROM LoaderOriginal)TZXed by Andrew Barker For Darren FarrellUwar E59999_:"" @Nwar |ja|D>!`7>!`V 6 :10 ,8;"BRITAIN INVADED!":12 ,10 ;"1984 Sharp's":23774\:0:(*30):x=11 :y=12 :0:6 B0:150:t=115:t=1250 x=99c:1000 dx=x+s:x>13 x=13 e 150 nx=x-s:x<1x=1 o 150 xy=y+s:y>12 y=12 y 150 y=y-s:y<1y=1 150 Dx<4 23675{\,88X:23676|\,255:200 Ex<9  23675{\,176:23676|\,254:200 Hx<15 23675{\,8:23676|\,254:200 )z=60000`+((x*44,)+y)-45- /61499;,(z/256):z1=(z/256) #61500<,(z-((z1)*256)) 61498:,x v=61501= 0 63682,x+22 :620000 A23675{\,88X:23676|\,255:a=120 &b=v:c=(v+1):d=(v+2) ]d=1d=1:bxbx+21cycy+316:0:b-x,c-y;"" v=v+3 a &2:1:z=140( b(z)=0z:230 b(z)=2b$="T" b(z)=3b$="I" b(z)=5b$="B" Sb(z)>0c(z)xx+21c(z)yd(z)y+31d(z)c(z)-x,d(z)-y;b$ .t=1a$(c(z)+1,d(z)+1)="2" z &1:0:z=140( g(z)=0z: g(z)=6g$="G" g(z)=3g$="P" g(z)=4g$="M" Bxe(z)x+21e(z)yf(z)y+31f(z)e(z)-x,f(z)-y;g$ .t=1a$(e(z)+1,f(z)+1)="1" z: &z1=1:z2=19:z3=33! a=118 k=(*10 )+1 h=(*100d)+1 h<45-260 h<85U270  280 7k>7g(z1)=3:z1=z1+1:a:300,  ,g(z1)=6:z1=z1+1:a:300, 7k>7g(z2)=3:z2=z2+1:a:300, ,g(z2)=6:z2=z2+1:a:300, 7k>7g(z3)=3:z3=z3+1:a:300, ,g(z3)=6:z3=z3+1:a:300, ,m=61501= .i=33!40( / 324D 1m=61513I 2i=118:324D 3m=61537a 43i=1932 :m>61559wm=61537a 5 324D Dtg(i)>0e(i)=m:f(i)=(m+1):m+2,1:m=m+3:a$(e(i)+1,f(i)+1)="1":i Ei:i40(3051 Fi32 500 G 3073 2x=1c(p)<20yd(p) 2y=1xc(p) 1xc(p)yd(p) 3x=1y=1c(p)<20d(p)<30 "x=c(p)-10 :y=d(p)-10 x<1x=1 y<1y=1 x>13 x=13 y>12 y=12  150: i0:1:6:spot=60000`+(e(r)*44,)+f(r)-45-:spot=1503 *143spot=14723675{\,88X:23676|\,255 )mm=spot:spot=147mm=145 (e(r)-x,f(r)-y;mm:1:0: 0:1:6 20,5;"";21,9 ;"";19,17;"";18,22;"";17,26;"";15,28;"" 1:0 p=140( g(p)=0p:6000p g(p)=6g$="G" g(p)=3g$="P" g(p)=4g$="M" Bxe(p)x+21e(p)yf(p)y+31f(p)e(p)-x,f(p)-y;g$ p:6000p X2x=1e(r)<21yf(r) Y2y=1xe(r) Z1xe(r)yf(r) [3x=1y=1e(r)<20f(r)<30 b"x=e(r)-10 :y=f(r)-10 c 411 ~zz=c(p):3000 :0:1:6:spot=60000`+(c(p)*44,)+d(p)-45-:spot=1503 *1431 8000@ %?(144>spotžspot>147)ƾspot1508000@ &82:1:1:c(p)-x,d(p)-y;"E":0 (i=110 )xc(p)x+21c(p)yd(p)y+31d(p)400:zz=c(p):3000 :1:2:1:c(p)-x,d(p)-y;"E":0 *="5"10753 +="7"1600@ ,="6"1085= -="8"1610J .="9"1620T / 1066* 3'a$(c(p)+1,d(p))"0"8010J 4](144>(spot-1)ž(spot-1)>147)ƾ(spot-1)1508010J 5T700:spot=spot-1:a$(c(p)+1,d(p)+1)="0":d(p)=d(p)-1 6 1630^ =/a$(c(p)+2,d(p)+1)"0"8010J >`(144>(spot+44,)ž(spot+44,)>147)ƾ(spot+44,)1508010J ?a700:a$(c(p)+1,d(p)+1)="0":c(p)=c(p)+1:spot=spot+44,:1630^ L8d(p)1a$(c(p)+1,d(p))"0"8000@ Oq((m=5n>4)(m=3n>2))((spot-1)=148ž(spot-1)=149)8000@ QD700:1:2:a$(c(p)+1,d(p)+1)="0" SD((spot-1)=189ž(spot-1)=148)n=n+1 U~d(p)=d(p)-1:spot=spot-1:c(p)-x,d(p)-y;q$:.2~L,-7:a$(c(p)+1,d(p)+1)="2":n:2000 Ac(p)>33!a$(c(p)+2,d(p)+1)"0"8000@ q((m=5n>4)m=3n>2)((spot+44,)=148ž(spot+44,)=149)8000@ @700:1:2:a$(c(p)+1,d(p)+1)="0" F((spot+44,)=148ž(spot+44,)=149)n=n+1 c(p)=c(p)+1:spot=spot+44,:3000 :c(p)-x,d(p)-y;q$:.2~L,-7:a$(c(p)+1,d(p)+1)="2":n:2000 8c(p)1a$(c(p),d(p)+1)"0"8000@ s((m=5n>4)(m=3n>2))((spot-44,)=148ž(spot-44,)=149)8000@ @700:1:2:a$(c(p)+1,d(p)+1)="0" F((spot-44,)=148ž(spot-44,)=149)n=n+1 c(p)=c(p)-1  xspot=spot-44,:3000 :c(p)-x,d(p)-y;q$:.2~L,-7:a$(c(p)+1,d(p)+1)="2":n:2000 xAd(p)>42*a$(c(p)+1,d(p)+2)"0"8000@ zq((m=5n>4)(m=3n>2))((spot+1)=148ž(spot+1)=149)8000@ |@700:1:2:a$(c(p)+1,d(p)+1)="0" ~D((spot+1)=148ž(spot+1)=149)n=n+1 ~d(p)=d(p)+1:spot=spot+1:c(p)-x,d(p)-y;q$:.2~L,-7:a$(c(p)+1,d(p)+1)="2":n:2000 @'a$(c(p),d(p)+1)"0"8010J A`(143>(spot-44,)ž(spot-44,)>147)ƾ(spot-44,)1508010J Ba700:spot=spot-44,:a$(c(p)+1,d(p)+1)="0":c(p)=c(p)-1:1630^ J/a$(c(p)+1,d(p)+2)"0"8010J K](144>(spot+1)ž(spot+1)>147)ƾ(spot+1)1508010J LT700:spot=spot+1:a$(c(p)+1,d(p)+1)="0":d(p)=d(p)+1 M 1630^ T42:1:c(p)-x,d(p)-y;q$:p:7000X ^m.2~L,0:a$(c(p)+1,d(p)+1)="2":1:2:1:c(p)-x,d(p)-y;"E":0 _a$(c(p)+1,d(p)+2)="1"a$(c(p),d(p)+1)="1"a$(c(p),d(p)+2)="1"a$(c(p)+1,d(p))="1"a$(c(p)+2,d(p))="1"a$(c(p)+2,d(p)+1)="1"a$(c(p)+2,d(p)+2)="1"a$(c(p),d(p))="1"2:1:c(p)-x,d(p)-y;q$:p:7000X bLzz=c(p):3000 :i:1:2:c(p)-x,d(p)-y;q$:p:7000X 1:2 a$(c(p)+1,d(p)+2)="1"a$(c(p),d(p)+1)="1"a$(c(p),d(p)+2)="1"a$(c(p)+1,d(p))="1"a$(c(p)+2,d(p))="1"a$(c(p)+2,d(p)+1)="1"a$(c(p)+2,d(p)+2)="1"a$(c(p),d(p))="1"2010 p:7000X &1:c(p)-x,d(p)-y;"A":0 /="n"Ŧ="N"c(p)-x,d(p)-y;q$:p:7000X ="y"Ŧ="Y"2015  2010 22:1:c(p)-x,d(p)-y;"A":0:u <u=1a$(c(p),d(p))="1"d$(c(p),d(p))="1":2050 Du=2a$(c(p),d(p)+1)="1"d$(c(p),d(p))="2":2050 Du=3a$(c(p),d(p)+2)="1"d$(c(p),d(p))="3":2050 Du=4a$(c(p)+1,d(p))="1"d$(c(p),d(p))="4":2050 Lu=5a$(c(p)+1,d(p)+2)="1"d$(c(p),d(p))="5":2050 Du=6a$(c(p)+2,d(p))="1"d$(c(p),d(p))="6":2050 Lu=7a$(c(p)+2,d(p)+1)="1"d$(c(p),d(p))="7":2050 Lu=8a$(c(p)+2,d(p)+2)="1"d$(c(p),d(p))="8":2050 h=14 F0:7:c(p)-x,d(p)-y;"X":7:c(p)-x,d(p)-y;" ":h  2010 @1:2:c(p)-x,d(p)-y;q$:kk=1:p:7000X ;zz<423675{\,88X:23676|\,255: <zz<9 23675{\,176:23676|\,254: ?zz<1523675{\,8:23676|\,254: =zz=1923675{\,184:23676|\,252: <zz<1923675{\,96`:23676|\,253: <zz=2023675{\,16:23676|\,252: =zz=2123675{\,104h:23676|\,251: Azz<2923675{\,192:23676|\,250: <zz=2923675{\,24:23676|\,250: =zz=3023675{\,112p:23676|\,249: =zz>3023675{\,200:23676|\,248:  0:r=140( g(r)=0r:6000p 0spot=60000`+(e(r)*44,)+f(r)-45- m=4:n=0 g(r)=3m=6 spot1474010 #k=61498::l=120 t>1ƾ(k+(l*3))=e(r)ƾ(k+(l*3)+1)=f(r)ƾ(k+(l*3)+2)=0(k+(l*3)+2),1:4010 l a$(e(r),f(r))="2"a$(e(r),f(r)+1)="2"a$(e(r),f(r)+2)="2"a$(e(r)+1,f(r))="2"a$(e(r)+1,f(r)+2)="2"a$(e(r)+2,f(r))="2"a$(e(r)+2,f(r)+1)="2"a$(e(r)+2,f(r)+2)="2"r:6000p >xe(r)x+20mr:6000p )e(r)28f(r)<33!4031 d(r)>f(r)+24130" d(r)e(r)+24100 c(r)>e(r)4100 c(r)f(r)4130" d(r)f(r)z1=0:4200h #d(r)e(r)z1=1:4500 #c(r)mz5=5: l(z1=0a$(e(r)+1,f(r))"0" m0z1=1a$(e(r)+1,f(r)+2)"0" pOz1=0(147<(spot-1)ƾ(spot-1)<150)n=n+1 qOz1=1(147<(spot+1)ƾ(spot+1)<150)n=n+1 wz1=0gh=1:.1}L,-3:a$(e(r)+1,f(r)+1)="0":zz=e(r):3000 :450:f(r)=f(r)-1:spot=spot-1:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:z5=5: yz1=1gh=1:.1}L,-3:a$(e(r)+1,f(r)+1)="0":zz=e(r):3000 :450:f(r)=f(r)+1:spot=spot+1:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:z5=5: $n=n+1:n>mz5=5: (z1=0a$(e(r),f(r)+1)"0" 0z1=1a$(e(r)+2,f(r)+1)"0" Qz1=0(147<(spot-44,)ƾ(spot-44,)<150)n=n+1 Qz1=1(147<(spot+44,)ƾ(spot+44,)<150)n=n+1 z1=0gh=1:.1}L,-3:a$(e(r)+1,f(r)+1)="0":zz=e(r):3000 :450:e(r)=e(r)-1:spot=spot-44,:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:z5=5: z1=1gh=1:.1}L,-3:a$(e(r)+1,f(r)+1)="0":zz=e(r):3000 :450:e(r)=e(r)+1:spot=spot+44,:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:z5=5:  Dt FPratio10:1:10 ,7;"GERMAN VICTORY":0: HB1:0:10 ,7;"BRITISH VICTORY":0: P1:0:10 ,2;"LONDON FALLS - GERMAN VICTORY":0: t=155700D we=1gr=2 we=2gr=1 we=3gr=0 gr=05700D po=61510F v=140( g(v)=05829 v:5700D gr=05700D v rand=(*3)+1 rand=1k=3 rand=2k=4 rand=3k=6 a=116 ab=(po+(a*3)):ac=(po+(a*3)+1):(po+(a*3)+2)=1a$(ab+1,ac+1)="0"g(v)=k:e(v)=ab:f(v)=ac:a$(ab+1,ac+1)="1":gr=gr-1:5827 a:5700D  $5::we=(*3)+1  /port=0:british=0:german=0 :l=120 7(61500<+(l*3))=1port=port+1 l z=140( %g(z)>0german=german+1 'b(z)>0british=british+1 z ratio=(german+port)/british we=1u$="CALM" we=2u$="ROUGH" we=3u$="SEVERE" 1d=0:m=12:n=12 <a$(18+m+1,26+n+1)="1"d=d+1  n:m:d25760 $00:0:1,10 ;"TURN# ";t %*7,8;"GERMAN FORCES ";german (/4,7;"CHANNEL WEATHER IS ";u$ *'9 ,8;"GERMAN PORTS ";port /-11 ,8;"BRITISH FORCES ";british 4"15,8;"RATIO ";ratio 9*20,8;"PUSH 'C' TO CONTINUE" ;="c"Ŧ="C"5960H <#t=15100d:5701E = 5947; J9t=3t=5t=6t=9 bb=1 L-t=2t=10 t=11 bt=1 N"t=7t=11 bb=2 Pt=7bi=2 Qbi>05975W Rbb>05983_ Sbt>05990f T 5800 W.a=140(:b(a)=05977Y Xa:5970R YIb(a)=3:c(a)=3:d(a)=13 :bi=bi-1:bi>0a Z 5970R _.a=140(:b(a)=05985a `a:5971S aJb(a)=5:c(a)=3:d(a)=13 :bb=bb-1:bb>0a: b 5971S f.a=140(:b(a)=05992h ga:5972T h.a=140(:b(a)=05994j ia:5972T jIb(a)=2:c(a)=3:d(a)=13 :bt=bt-1:bt>0a k 5972T o pa=134" q d$(a)=e$ ra xF3:r=140(:g2=0:g(r)=0r:5900  za$(e(r),f(r))="2"a$(e(r),f(r)+1)="2"a$(e(r),f(r)+2)="2"a$(e(r)+1,f(r))="2"a$(e(r)+1,f(r)+2)="2"a$(e(r)+2,f(r))="2"a$(e(r)+2,f(r)+1)="2"a$(e(r)+2,f(r)+2)="2"6020 r:5900  ?a$(e(r),f(r))="2"j=e(r)-1:k=f(r)-1:6040 ?a$(e(r),f(r)+1)="2"j=e(r)-1:k=f(r):6040 Ga$(e(r),f(r)+2)="2"j=e(r)-1:k=f(r)+1:6040 Ga$(e(r)+1,f(r)+2)="2"j=e(r):k=f(r)+1:6040 ?a$(e(r)+1,f(r))="2"j=e(r):k=f(r)-1:6040 Ga$(e(r)+2,f(r))="2"j=e(r)+1:k=f(r)-1:6040 Ga$(e(r)+2,f(r)+1)="2"j=e(r)+1:k=f(r):6040 Oa$(e(r)+2,f(r)+2)="2"j=e(r)+1:k=f(r)+1:6040 r:5900  d$(e(r),f(r))="1" Oa$(j,k)="1"d$(j-1,k-1)"1"w=j-1:u=k-1:6080 Ga$(j,k+1)="1"d$(j-1,k)"1"w=j-1:u=k:6080 Wa$(j,k+2)="1"d$(j-1,k+1)"1"w=j-1:u=k+1:6080 Oa$(j+1,k+2)="1"d$(j,k+1)"1"w=j:u=k+1:6080 Ga$(j+1,k)="1"d$(j,k-1)"1"w=j:u=k-1:6080 Wa$(j+2,k)="1"d$(j+1,k-1)"1"w=j+1:u=k-1:6080 Oa$(j+2,k+1)="1"d$(j+1,k)"1"w=j+1:u=k:6080 _a$(j+2,k+2)="1"d$(j+1,k+1)"1"w=j+1:u=k+1:6080  6090  g2=1:m=140( ;e(m)=wf(m)=ug(m)>0d$(e(m),f(m))="1":6090 m:g2=0 p=140( (c(p)=jd(p)=kb(p)>06100 p:r:5900   tgs=g(r) g2=1tgs=g(r)+g(m) .cha=(*2):cha=0r:5900  :xe(r)x+18g(r)=3g$="P" ?g(r)=4g$="M" @b(p)=5b$="B" Ab(p)=3b$="I" Bb(p)=2b$="T" Cb(p)=1b$="E" Dz$=g$:nn=2z$=b$ K7.1}L,5:.1}L,-8:.1}L,9 Lroll>10 6250j Mroll>76300 Nroll>56400 Oroll>2nn=1nn=2:z$=b$:ink=2:at=b(p):df=g(r):am=700:dm=450:ax=c(p):ay=d(p):dx=e(r):dy=f(r):su=1:6400 Proll>2nn=2ink=0:nn=1:z$=g$:su=1:at=g(r):df=b(p):am=450:dm=700:ax=e(r):ay=f(r):dx=c(p):dy=d(p):6400 Q 6700, jdf=0:a$(ax+1,ay+1)="0":zz=ax:3000 :am:ax=dx:ay=dy:a$(ax+1,ay+1)=nn:nn=10:1:ax-x,ay-y;g$: k#2:1:ax-x,ay-y;b$: df=0:at=0:zz=ax:3000 :am:zz=dx:3000 :dm:a$(ax+1,ay+1)="0":a$(dx+1,dy+1)="0": mk=(60000`+(dx*44,)+dy-45-):mk>150mk=147df=0:a$(dx+1,dy+1)=nn:zz=ax:3000 :am:a$(ax+1,ay+1)="0":ax=dx:ay=dy:1:ink:ax-x,ay-y;z$: (a$(dx+1,dy)=nna$(dx+1,dy+2)=nn)(a$(dx,dy+1)=nna$(dx+2,dy+1)=nn)df=0:a$(dx+1,dy+1)=nn:zz=ax:3000 :am:a$(ax+1,ay+1)="0":ax=dx:ay=dy:1:ink:ax-x,ay-y;z$: %nn=2roll>56430 'nn=2roll<5.1#3336430  /a$(c(p),d(p))="0"a$(c(p),d(p))="2":zz=e(r):3000 :450:a$(e(r)+1,f(r)+1)="0":ax=c(p):ay=d(p):e(r)=ax:f(r)=dy:c(p)=c(p)-1:d(p)=d(p)-1:dx=c(p):dy=d(p):a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:2:c(p)-x,d(p)-y;b$:  (a$(c(p)+1,d(p))="0"a$(c(p)+1,d(p))="2":zz=e(r):3000 :450:a$(e(r)+1,f(r)+1)="0":ax=c(p):ay=d(p):d(p)=d(p)-1:dx=c(p):dy=d(p):e(r)=ax:f(r)=ay:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:2:c(p)-x,d(p)-y;b$: a$(c(p),d(p)+1)="0"a$(c(p),d(p)+1)="2":zz=e(r):3000 :450:a$(e(r)+1,f(r)+1)="0":e(r)=c(p):f(r)=d(p):ax=e(r):ay=f(r):c(p)=c(p)-1:a$(e(r)+1,f(r)+1)="1":1:0:e(r)-x,f(r)-y;g$:2:c(p)-x,d(p)-y;b$: a$(e(r)+1,f(r)+1)="0":b(p)=0:df=0:zz=e(r):3000 :450:e(r)=c(p):f(r)=d(p):ax=e(r):ay=f(r):1:0:e(r)-x,f(r)-y;g$  2Oa$(e(r)+2,f(r)+2)="0"a$(e(r)+2,f(r)+2)="1":zz=c(p):3000 :700:a$(c(p)+1,d(p)+1)="0":c(p)=e(r):d(p)=f(r):e(r)=e(r)+1:f(r)=f(r)+1:ax=c(p):ay=d(p):dx=e(r):dy=f(r):a$(c(p)+1,d(p)+1)="2":1:2:c(p)-x,d(p)-y;b$:0:e(r)-x,f(r)-y;g$: 3<a$(e(r)+2,f(r)+1)="0"a$(e(r)+2,f(r)+1)="1":zz=c(p):3000 :700:a$(c(p)+1,d(p)+1)="0":c(p)=e(r):d(p)=f(r):e(r)=e(r)+1:ax=c(p):ay=d(p):dx=e(r):dy=f(r):a$(c(p)+1,d(p)+1)="2":1:2:c(p)-x,d(p)-y;b$:0:e(r)-x,f(r)-y;g$: 5<a$(e(r)+1,f(r)+2)="0"a$(e(r)+1,f(r)+2)="1":zz=c(p):3000 :700:a$(c(p)+1,d(p)+1)="0":c(p)=e(r):d(p)=f(r):f(r)=f(r)+1:ax=c(p):ay=d(p):dx=e(r):dy=f(r):a$(c(p)+1,d(p)+1)="2":1:2:c(p)-x,d(p)-y;b$:0:e(r)-x,f(r)-y;g$: <_g(r)=0:df=0:a$(e(r)+1,f(r)+1)="0":zz=e(r):3000 :450: Hat=0:a$(ax+1,ay+1)="0":zz=ax:3000 :am: ,at=0:a$(ax+1,ay+1)=su:zz=dx:3000 :dm:a$(dx+1,dy+1)="0":dx=ax:dy=ay:1:0:dx-x,dy-y;g$: Xkk=04000 Y.3:kk=0:b2=0:bs2=0 ]p=140( ^)b2=0:b(p)=0p:4000 bd$(c(p),d(p))"0"7019k gp:4000 kJx+1c(p)x+1907090 m:b2=0 r=140( (e(r)=jf(r)=kg(r)>07100 r:p:4000  tas=b(p) b2=1tas=b(p)+b(m) Jx+1c(p)x+18>>>~ >>~ >>>>~ \"\ >>~ \"\ >>~ \"\ >>>>~ \"\ >>>>~ \"\ >>>>~ "\ >2{\>2|\>2{\>2|\>`2{\>2|\>2{\>2|\>2{\>2|\>h2{\>2|\>2{\>2|\>p2{\>2|\>2{\>2|\> #=>2{\>2|\`#x@  o{r ʌʙʦʳ{!@UU8888888(8T8J$ ?<2O 8z Ͻy8888888&TNU<~fff~?8888888&TNU<~fff~<?#A8888888J<$