ZXTape! 0Created with Ramsoft MakeTZXFwar |f|~>!ɧ>!X7>!@7>!V7>!XV7>!@Vssia July 1941 1984 by Mark L Stueber ':10 ,8;"WAR IN THE EAST" 212 ,1;"INVASION OF RUSSIA JULY 1941" -14,5;"1984 by Mark L Stueber" B1:2:2,7;"LEAVE TAPE RUNNING":0 $v1=0:v2=0:v3=0 .23802\:23816]:23830]  6 123675{\,12 :23676|\,248 t>121 t=130  0 q=(t/2)+q1 q>31q=31 G0:1:1;1;21,q;" ":0:0 =0;1;1;21,q-1;" ":0 #t=12 0,4;"MT" #t=140,4;" " Ft=141:2:0,4;"Winter":0 Ht=10;2;1;0,12 ;"MF=":0 0;0,15;v3 't>2100d (i=119 *g(i)>046. +&b(x(i)+2,y(i)+1)=0 , i:70F .1:0 0g(i)=9  b$="P" 2g(i)=6 b$="G" 4g(i)=1 b$="I" 6g(i)=3 b$="T" 8g(i)=2b$="R" <x(i),y(i);b$ >&b(x(i)+2,y(i)+1)=2 @i Fh=130 H1:2 J&r(h)>078N:h:100d K&b(c(h)+2,d(h)+1)=0 Lh:100d Nr(h)=8c$="T" Pr(h)=3c$="B" Rr(h)=1c$="R" Tr(h)=2c$="C" Vr(h)=4c$="I" Xc(h),d(h);c$ Y*b(c(h)+2,d(h)+1)=1 Zh d 0 e0,0;t f 0 ii=119 ng(i)>0120x si:7000X xg(i)=9 b$="P" }g(i)=6b$="G" ~g(i)=3b$="T" g(i)=1b$="I" g(i)=2b$="R" 1m=2:g(i)=3g(i)=9 m=3 "t=12 t=13 m=1 n=1m &b(x(i)+2,y(i)+1)=2 $b(x(i)+1,y(i))=1b(x(i)+1,y(i)+1)=1b(x(i)+3,y(i)+1)=1b(x(i)+2,y(i))=1b(x(i)+2,y(i)+2)=1b(x(i)+1,y(i)+2)=1b(x(i)+3,y(i)+2)=1b(x(i)+3,y(i))=1i:7000X j=13 600X 8 !1:0;x(i),y(i);b$ 7 j 63000 k=62999 k=524142 "k=491t>13000 k=579i:7000X k=535200 k=546300, k=557400 k=568500 7y(i)1b(x(i)+2,y(i))>09900& *b(x(i)+2,y(i))09900& t>13 212 K((m=1)(m=3n>2))a$(x(i)+1,y(i))=""9900& =(m=2n>1)a$(x(i)+1,y(i))=""9900& 'a$(x(i)+1,y(i))=""9900& 600X 1:0 3t<14a$(x(i)+1,y(i))=""n=n+1 y(i)=y(i)-1 x(i),y(i);b$ .2~L,-7 &b(x(i)+2,y(i)+2)=0 &b(x(i)+2,y(i)+1)=2 n:i:7000X ,@x(i)21b(x(i)+3,y(i)+1)>09900& -t>13 3040 .S((m=1)(m=3n>2))a$(x(i)+2,y(i)+1)=""9900& /E(m=2n>1)a$(x(i)+2,y(i)+1)=""9900& 0/a$(x(i)+2,y(i)+1)=""9900& 12b(x(i)+3,y(i)+1)09900& 4 600X =1:0 >;t<14a$(x(i)+2,y(i)+1)=""n=n+1 ?x(i)=x(i)+1 @x(i),y(i);b$ A.2~L,-7 B&b(x(i)+1,y(i)+1)=0 D&b(x(i)+2,y(i)+1)=2 In:i:7000X ?x(i)0b(x(i)+1,y(i)+1)>09900& t>13 404 K((m=1)(m=3n>2))a$(x(i),y(i)+1)=""9900& =(m=2n>1)a$(x(i),y(i)+1)=""9900& 'a$(x(i),y(i)+1)=""9900& 2b(x(i)+1,y(i)+1)09900&  600X 1:0 3t<14a$(x(i),y(i)+1)=""n=n+1 x(i)=x(i)-1 x(i),y(i);b$ .2~L,-7 &b(x(i)+3,y(i)+1)=0 &b(x(i)+2,y(i)+1)=2 n:i:7000X Dy(i)31b(x(i)+2,y(i)+2)>09900& t>13 504 S((m=1)(m=3n>2))a$(x(i)+1,y(i)+2)=""9900& I(m=2n>1)a$(x(i)+1,y(i)+2)=""9900& /a$(x(i)+1,y(i)+2)=""9900& 2b(x(i)+2,y(i)+2)09900&  600X 1:0 ;t<14a$(x(i)+1,y(i)+2)=""n=n+1 y(i)=y(i)+1 x(i),y(i);b$  .2~L,-7  b(x(i)+2,y(i))=0  &b(x(i)+2,y(i)+1)=2 n:i:7000X X0:6 a,a$(x(i)+1,y(i)+1)" "1 b,a$(x(i)+1,y(i)+1)=""4 c,a$(x(i)+1,y(i)+1)=" "6 g,a$(x(i)+1,y(i)+1)=""1 i,a$(x(i)+1,y(i)+1)=""3 k,a$(x(i)+1,y(i)+1)=""0 q*x(i),y(i);a$(x(i)+1,y(i)+1) v m=0:h=0  4 ,t=3t=17t=21h=2 #(t=9 t=15)m=1 !m>0h>01070. 7m=0:h=0:o=0:i=0:k=0 t=8o=2  t=5t=9 m=1 8(t=5t=9 t=13 t=15)i=3 "t=21i=2:k=4 _(t=2t=3t=5t=7t=11 t=1t=6t=8)h=2 ?m>0i>0h>0k>0i>01090B  1120` .i=119 /g(i)=9 b$="P" 8g(i)=6b$="G" 91:0 :g(i)>0i:1010 <|h>0g(i)=6:x(i)=10 :y(i)=4:h=h-1:x(i),y(i);"G":b(x(i)+2,y(i)+1)=2:i >|m>0g(i)=9 :x(i)=10 :y(i)=4:m=m-1:x(i),y(i);"P":b(x(i)+2,y(i)+1)=2:i A 1010 Bj=130 M1:2 Nr(j)=01104P Oj:1120` Pk>0r(j)=8:d(j)=29:c$="T":c(j)=(*15):k=k-1:c(j),d(j);c$:b(c(j)+2,d(j)+1)=1:j Ti>0r(j)=4:d(j)=29:c(j)=(*5)+2:c$="I":i=i-1:c(j),d(j);c$:b(c(j)+2,d(j)+1)=1:j Uo>0r(j)=3:d(j)=29:c(j)=(*5)+3:c$="B":o=o-1:c(j),d(j);c$:b(c(j)+2,d(j)+1)=1:j Vh>0r(j)=1:d(j)=29:c$="R":x(j)=0x(j)=2:c(j)=x(j)-2:h=h-1:c(j),d(j);c$:b(c(j)+2,d(j)+1)=1:j Wm>0r(j)=2:d(j)=29:c$="C":c(j)=(*17):m=m-1:c(j),d(j);c$:b(c(j)+2,d(j)+1)=1:j `5b(7,26)=2v1=1:1186 ab(7,26)=0((b(6,26)=2b(8,26)=2b(7,25)=2b(7,27)=2b(6,25)=2b(8,25)=2b(6,27)=2b(8,27)=2))v1=1 b b(7,26)=0((b(6,26)=1b(8,26)=1b(7,25)=1b(7,27)=1b(6,25)=1b(8,25)=1b(6,27)=1b(8,27)=1))v1=0 v1=1v2=v2+1 v1=0v2=0 v2>v3v3=v3+1  v1=0 v349500% t:9500% r2=20  2 j=119 r(j)=02010 j:21004 r(r2)>02020 r2>2921004 r2=r2+1  2010 3r(j)=r(r2):c(j)=c(r2):d(j)=d(r2):r(r2)=0 j:21004 4j=130 6 n=0 8r(j)=0j:6000p :Ud(j)<8r(j)>00;2;"You lose- Russians entered Germany": <1m=2:r(j)=3r(j)=8m=3 >r(j)=2m=1 f z5=0 g+g(j)=0x(j)=10 :y(j)=3 h$b(c(j)+2,d(j))=2b(c(j)+2,d(j)+2)=2b(c(j)+3,d(j)+1)=2b(c(j)+3,d(j))=2b(c(j)+3,d(j)+2)=2b(c(j)+1,d(j)+1)=2b(c(j)+1,d(j))=2b(c(j)+1,d(j)+2)=2j:6000p j z1=0 kr(j)=1c$="R" lr(j)=2c$="C" or(j)=3c$="B" pr(j)=4c$="I" rr(j)=8c$="T" ux(j)>c(j)+44100 wx(j)c(j)4100 y(j)>d(j)4080 !x(j)=c(j)y(j)=d(j)4080 9999'  z1=0:5000 z5=52150f z1=1:5200P z5=52150f z1=0:5200P  z1=0 z5=52150f j:6000p  5200P z5=52150f  z1=1  5000  z1=0 z5=52150f  5000  4018 z1=1:5000  z1=0 z5=52150f  5200P z5=52150f z1=1:5200P  4017 z1=1:5200P  z1=0 z5=52150f  4022  n=n+1 n>m z1=0b(c(j)+2,d(j))=0b(c(j)+2,d(j))=1:.1}L,0:b(c(j)+2,d(j)+1)=0:9000(#:d(j)=d(j)-1:1;2;c(j),d(j);c$:z5=5: z1=1b(c(j)+2,d(j)+2)=0b(c(j)+2,d(j)+2)=1:.1}L,0:b(c(j)+2,d(j)+1)=0:9000(#:d(j)=d(j)+1:1;2;c(j),d(j);c$:z5=5:  P n=n+1 Rn>m Zz1=0b(c(j)+1,d(j)+1)=0b(c(j)+1,d(j)+1)=1:b(c(j)+2,d(j)+1)=0:9000(#:.1}L,0:c(j)=c(j)-1:1;2;c(j),d(j);c$:z5=5: \z1=1b(c(j)+3,d(j)+1)=0b(c(j)+3,d(j)+1)=1:.1}L,0:b(c(j)+2,d(j)+1)=0:9000(#:c(j)=c(j)+1:1;2;c(j),d(j);c$:z5=5: d pj=130 q 3 rr(j)=0j:1000 z!b(c(j)+2,d(j))=2b(c(j)+3,d(j))=2b(c(j)+1,d(j))=2b(c(j)+3,d(j)+1)=2b(c(j)+1,d(j)+1)=2b(c(j)+3,d(j)+2)=2b(c(j)+2,d(j)+2)=2b(c(j)+1,d(j)+2)=26020 j:1000 i=119  g(i)=0i:j:1000 !(c(j)=x(i)d(j)=y(i)-1)(c(j)=x(i)d(j)=y(i)+1)(c(j)=x(i)-1d(j)=y(i))(c(j)=x(i)+1d(j)=y(i))(c(j)=x(i)+1d(j)=y(i)+1)(c(j)=x(i)-1d(j)=y(i)-1)(c(j)=x(i)+1d(j)=y(i)-1)(c(j)=x(i)-1d(j)=y(i)+1)6100 i Lb(c(j)+2,d(j)+2)=2b(c(j)+2,d(j)+2)=0 <b(c(j)+2,d(j))=2b(c(j)+2,d(j))=0 <b(c(j)+1,d(j))=2b(c(j)+1,d(j))=0 <b(c(j)+3,d(j))=2b(c(j)+3,d(j))=0 Lb(c(j)+3,d(j)+1)=2b(c(j)+3,d(j)+1)=0 Lb(c(j)+1,d(j)+1)=2b(c(j)+1,d(j)+1)=0 Lb(c(j)+1,d(j)+2)=2b(c(j)+1,d(j)+2)=0 Lb(c(j)+3,d(j)+2)=2b(c(j)+3,d(j)+2)=0 j:1000 ratio=r(j)/g(i) g(i)=9 b$="P" r(j)=1c$="R" r(j)=2c$="C" r(j)=3c$="B" r(j)=4c$="I" g(i)=2b$="R" g(i)=3b$="T" g(i)=6b$="G" g(i)=1b$="I" ,t=12 t=13 ratio=ratio*2 r(j)=8c$="T" y(i)>qratio=ratio*2 ratio<.5j:1000 !roll=(*6)+1+ratio 7.1}L,5:.1}L,-8:.1}L,9 t>13 roll=roll+1 roll>10 62008 roll>86300 roll>56400 roll>36500d roll>16600 ?r(j)=0:b(x(i)+2,y(i)+1)=0:600X  x(i)=c(j):y(i)=d(j) &b(x(i)+2,y(i)+1)=2 !1;0;x(i),y(i);b$ j:1000 8g(i)=0:9000(# <&b(c(j)+2,d(j)+1)=0 @c(j)=x(i):d(j)=y(i) B&b(c(j)+2,d(j)+1)=1 F41;2;c(j),d(j);c$:j:1000 g(i)<6g(i)=0 g(i)=6g(i)=1 g(i)=9 g(i)=3 g(i)=1b$="I" &b(x(i)+2,y(i)+1)=0  600X g(i)=3b$="T" r(j)<4r(j)=0 r(j)=4r(j)=1 r(j)=8r(j)=3 r(j)=3c$="B" r(j)=1c$="R" &b(c(j)+2,d(j)+1)=0  9000(# *r(j)=0g(i)=0j:1000 kg(i)>0(b(x(i)+2,y(i)+2)=1b(x(i)+2,y(i))=1)g(i)=0:600X sg(i)>0(b(x(i)+1,y(i)+1)=1b(x(i)+3,y(i)+1)=1)g(i)=0:600X 600X:9000(# Lb(x(i)+2,y(i)+1)=0:b(c(j)+2,d(j)+1)=0 Jr(j)>0b(x(i)+2,y(i)+1)=1:c(j)=x(i):d(j)=y(i) /r(j)>01;2;c(j),d(j);c$ g(i)=0j:1000 b(x(i)+2,y(i))=0b(x(i)+2,y(i))=2:y(i)=y(i)-1:1;0;x(i),y(i);b$:j:1000 b(x(i)+3,y(i))=0b(x(i)+3,y(i))=2:x(i)=x(i)+1:y(i)=y(i)-1:1;0;x(i),y(i);b$:j:1000 b(x(i)+1,y(i))=0b(x(i)+1,y(i))=2:x(i)=x(i)-1:y(i)=y(i)-1:1;0;x(i),y(i);b$:j:1000 b(x(i)+1,y(i)+1)=0b(x(i)+1,y(i)+1)=2:x(i)=x(i)-1:y(i)=y(i):1;0;x(i),y(i);b$:j:1000 b(x(i)+3,y(i)+1)=0b(x(i)+3,y(i)+1)=2:x(i)=x(i)+1:y(i)=y(i):1;0;x(i),y(i);b$:j:1000 b(x(i)+3,y(i)+2)=0b(x(i)+3,y(i)+2)=2:x(i)=x(i)+1:y(i)=y(i)+1:1;0;x(i),y(i);b$:j:1000 b(x(i)+1,y(i)+2)=0b(x(i)+1,y(i)+2)=2:x(i)=x(i)-1:y(i)=y(i)+1:1;0;x(i),y(i);b$:j:1000 b(x(i)+2,y(i)+2)=0b(x(i)+2,y(i)+2)=2:x(i)=x(i):y(i)=y(i)+1:1;0;x(i),y(i);b$:j:1000 g(i)=0:j:1000  6350 4600X:9000(# d\b(x(i)+2,y(i))=1b(x(i)+2,y(i)+2)=1g(i)=0:600X fdb(x(i)+3,y(i)+1)=1b(x(i)+1,y(i)+1)=1g(i)=0:600X g 600X h\b(c(j)+2,d(j)+1)=0:b(x(i)+2,y(i)+1)=0:9000(# ib(c(j)+2,d(j)+2)=0b(c(j)+2,d(j)+2)=1:d(j)=d(j)+1:1;2;c(j),d(j);c$:6550 kb(c(j)+3,d(j)+2)=0b(c(j)+3,d(j)+2)=1:c(j)=c(j)+1:d(j)=d(j)+1:1;2;c(j),d(j);c$:6550 lb(c(j)+1,d(j)+2)=0b(c(j)+1,d(j)+2)=1:c(j)=c(j)-1:d(j)=d(j)+1:1;2;c(j),d(j);c$:6550 mb(c(j)+3,d(j)+1)=0b(c(j)+3,d(j)+1)=1:c(j)=c(j)+1:d(j)=d(j):1;2;c(j),d(j);c$:6550 nb(c(j)+1,d(j)+1)=0b(c(j)+1,d(j)+1)=1:c(j)=c(j)-1:d(j)=d(j):1;2;c(j),d(j);c$:6550 ob(c(j)+3,d(j))=0b(c(j)+3,d(j))=1:c(j)=c(j)+1:d(j)=d(j)-1:1;2;c(j),d(j);c$:6550 pb(c(j)+2,d(j))=0b(c(j)+2,d(j))=1:c(j)=c(j):d(j)=d(j)-1:1;2;c(j),d(j);c$:6550 qb(c(j)+1,d(j))=0b(c(j)+1,d(j))=1:c(j)=c(j)-1:d(j)=d(j)-1:1;2;c(j),d(j);c$:6550 xr(j)=0 roll36552 g(i)>06370 j:1000 Qb(c(j)+2,d(j))=2b(c(j)+2,d(j)+2)=2r(j)=0 Yb(c(j)+3,d(j)+1)=2b(c(j)+1,d(j)+1)=2r(j)=0 =9000(#:600X:b(c(j)+2,d(j)+1)=2 <b(x(i)+2,y(i)+1)=0:x(i)=c(j):y(i)=d(j) ;1;0;x(i),y(i);b$:r(j)>06505i j:1000 X 3 ]i=119 bg(i)=0i:2000 g!b(x(i)+2,y(i))=1b(x(i)+2,y(i)+2)=1b(x(i)+1,y(i))=1b(x(i)+1,y(i)+1)=1b(x(i)+1,y(i)+2)=1b(x(i)+3,y(i)+1)=1b(x(i)+3,y(i)+2)=1b(x(i)+3,y(i))=17020l ii:2000 lj=130 q r(j)=0j:i:2000 v!(x(i)=c(j)y(i)=d(j)+1)(x(i)=c(j)y(i)=d(j)-1)(x(i)=c(j)+1y(i)=d(j))(x(i)=c(j)-1y(i)=d(j))(x(i)=c(j)+1y(i)=d(j)+1)(x(i)=c(j)-1y(i)=d(j)-1)(x(i)=c(j)+1y(i)=d(j)-1)(x(i)=c(j)-1y(i)=d(j)+1)7040 wj xLb(x(i)+3,y(i)+2)=1b(x(i)+3,y(i)+2)=0 yLb(x(i)+1,y(i)+2)=1b(x(i)+1,y(i)+2)=0 zLb(x(i)+1,y(i)+1)=1b(x(i)+1,y(i)+1)=0 {Lb(x(i)+3,y(i)+1)=1b(x(i)+3,y(i)+1)=0 |Lb(x(i)+2,y(i)+2)=1b(x(i)+2,y(i)+2)=0 }<b(x(i)+3,y(i))=1b(x(i)+3,y(i))=0 ~<b(x(i)+1,y(i))=1b(x(i)+1,y(i))=0 i:2000 g(i)=9 b$="P" g(i)=6b$="G" g(i)=1b$="I" g(i)=2b$="R" g(i)=3b$="T" r(j)=1c$="R" r(j)=2c$="C" r(j)=3c$="B" r(j)=4c$="I" r(j)=8c$="T" ratio=g(i)/r(j) y(i)>qratio=ratio/2 ,t=12 t=13 ratio=ratio/2 ratio<.5i:2000 #roll=((*6)+1)+ratio t>11 roll=roll-1 At<14a$(x(i)+1,y(i)+1)=""roll=roll-1 l=12 7.1}L,5:.1}L,-7:.1}L,9  7 l roll>10 7300 roll>87400 roll>57500L roll>37600 roll>17700 g(i)=0:600X Xb(c(j)+2,d(j)+1)=0:b(x(i)+2,y(i)+1)=1:9000(# c(j)=x(i):d(j)=y(i) !1;2;c(j),d(j);c$ i:2000 r(j)=0 &b(x(i)+2,y(i)+1)=0 !600X:x(i)=c(j):y(i)=d(j) &b(x(i)+2,y(i)+1)=2 !1;0;x(i),y(i);b$ i:2000 r(j)<4r(j)=0 r(j)=4r(j)=1 r(j)=8r(j)=3 g(i)<6g(i)=0 g(i)=9 g(i)=3 g(i)=6g(i)=1 g(i)=3b$="T" g(i)=1b$="I" r(j)=1c$="R" r(j)=3c$="B" &b(x(i)+2,y(i)+1)=0 ib(c(j)+1,d(j)+1)=2b(c(j)+3,d(j)+1)=2r(j)=0:9000(# ]b(c(j)+2,d(j)+2)=2b(c(j)+2,d(j))=2r(j)=0:9000(# 600X:9000(# &b(c(j)+2,d(j)+1)=0 !x(i)=c(j):y(i)=d(j):600X 4g(i)>0b(x(i)+2,y(i)+1)=2 /g(i)>01;0;x(i),y(i);b$ 'g(i)=0r(j)=09000(# r(j)=0i:2000  b(c(j)+2,d(j)+2)=0b(c(j)+2,d(j)+2)=1:d(j)=d(j)+1:1;2;c(j),d(j);c$:i:2000  b(c(j)+3,d(j)+2)=0b(c(j)+3,d(j)+2)=1:c(j)=c(j)+1:d(j)=d(j)+1:1;2;c(j),d(j);c$:i:2000 b(c(j)+1,d(j)+2)=0b(c(j)+1,d(j)+2)=1:c(j)=c(j)-1:d(j)=d(j)+1:1;2;c(j),d(j);c$:i:2000 b(c(j)+1,d(j)+1)=0b(c(j)+1,d(j)+1)=1:c(j)=c(j)-1:d(j)=d(j):1;2;c(j),d(j);c$:i:2000 b(c(j)+3,d(j)+1)=0b(c(j)+3,d(j)+1)=1:c(j)=c(j)+1:d(j)=d(j):1;2;c(j),d(j);c$:i:2000 b(c(j)+2,d(j))=0b(c(j)+2,d(j))=1:c(j)=c(j):d(j)=d(j)-1:1;2;c(j),d(j);c$:i:2000 b(c(j)+3,d(j))=0b(c(j)+3,d(j))=1:c(j)=c(j)+1:d(j)=d(j)-1:1;2;c(j),d(j);c$:i:2000 b(c(j)+1,d(j))=0b(c(j)+1,d(j))=1:c(j)=c(j)-1:d(j)=d(j)-1:1;2;c(j),d(j);c$:i:2000 r(j)=0:i:2000 L]b(c(j)+2,d(j))=2b(c(j)+2,d(j)+2)=2r(j)=0:9000(# Nib(c(j)+1,d(j)+1)=2b(c(j)+3,d(j)+1)=2r(j)=0:9000(# P1600X:b(x(i)+2,y(i)+1)=0 R<x(i)=c(j):y(i)=d(j):b(x(i)+2,y(i)+1)=2 T!1;0;x(i),y(i);b$ Vr(j)>07434  Xi:2000 b(c(j)+2,d(j))=2b(c(j)+2,d(j)+2)=2r(j)=0:b(c(j)+2,d(j)+1)=0:9000(# b(c(j)+1,d(j)+1)=2b(c(j)+3,d(j)+1)=2r(j)=0:b(c(j)+2,d(j)+1)=0:9000(#  9000(# &b(c(j)+2,d(j)+1)=0 &b(x(i)+2,y(i)+1)=0 b(x(i)+2,y(i))=0600X:b(x(i)+2,y(i))=2:y(i)=y(i)-1:1;0;x(i),y(i);b$:7630 b(x(i)+3,y(i))=0600X:b(x(i)+3,y(i))=2:x(i)=x(i)+1:y(i)=y(i)-1:1;0;x(i),y(i);b$:7630 b(x(i)+1,y(i))=0600X:b(x(i)+1,y(i))=2:x(i)=x(i)-1:y(i)=y(i)-1:1;0;x(i),y(i);b$:7630 b(x(i)+1,y(i)+1)=0600X:b(x(i)+1,y(i)+1)=2:x(i)=x(i)-1:1;0;x(i),y(i);b$:7630 b(x(i)+3,y(i)+1)=0600X:b(x(i)+3,y(i)+1)=2:x(i)=x(i)+1:1;0;x(i),y(i);b$:7630 b(x(i)+3,y(i)+2)=0600X:b(x(i)+3,y(i)+2)=2:y(i)=y(i)+1:x(i)=x(i)+1:1;0;x(i),y(i);b$:7630 b(x(i)+1,y(i)+2)=0600X:b(x(i)+1,y(i)+2)=2:y(i)=y(i)+1:x(i)=x(i)-1:1;0;x(i),y(i);b$:7630 —b(x(i)+2,y(i)+2)=0600X:b(x(i)+2,y(i)+2)=2:y(i)=y(i)+1:1;0;x(i),y(i);b$:7630 g(i)=0 roll37750F r(j)>07434  i:2000 Qb(x(i)+2,y(i))=1b(x(i)+2,y(i)+2)=1g(i)=0 Yb(x(i)+1,y(i)+1)=1b(x(i)+3,y(i)+1)=1g(i)=0 2b(c(j)+2,d(j)+1)=0:9000(# c(j)=x(i):d(j)=y(i) #!1;2;c(j),d(j);c$ '&b(c(j)+2,d(j)+1)=1 (g(i)>07610 -i:2000 FGb(c(j)+2,d(j)+1)=1:1;2;c(j),d(j);c$ Hi:2000 #(0:6 #1,a$(c(j)+1,d(j)+1)" "1 #2,a$(c(j)+1,d(j)+1)=""4 #3,a$(c(j)+1,d(j)+1)=" "6 #7,a$(c(j)+1,d(j)+1)=""1 #9,a$(c(j)+1,d(j)+1)=""3 #;,a$(c(j)+1,d(j)+1)=""0 #A*c(j),d(j);a$(c(j)+1,d(j)+1) #F %0:0:7 %!7,8;"GAME OVER" %&Pv3=010 ,3;"Stratigic Russian Victory - Moscow never fell" %0i v3=110 ,3;"Russian Marginal Victory - Moscow fell for only one consecutive turn" %:`v3=2 10 ,3;"German marginal victory - Moscow fell for 2 consecutive turns" %Dcv3=310 ,0;"German stratigic Victory - Moscow fell for 3 consecutive turns" %N`v3=4 10 ,0;"German decisive Victory - Moscow fell for 4 consecutive turns" %X &0:0 &k=13 &x(i),y(i);"X" & 8 &x(i),y(i);" " & 8 &k &x(i),y(i);b$ & 142 ' 1 '?"war"2:23760\:23774\:23788\:   (  mka$]Fatiqol@}!  z   BRCBs:\(:\&o>1&oR|.(.&| GdͿ:\(:\&o>4&oR|.(.&| vdͿ:\(:\&o>5&oR|.(.&| ådͿ:\(:\&o>6&oR|.(.&| d:\:\&o>7&oR|.(.&| dͿ:\(:\&o>8&oR|.(.&| 2dͿ:\(:\&o>9&oR|.(.&| ad!Ϳ:\(:\&os??????~?? <~I*~<~~ff~$B`>BB<DHpHDB@@@@@~BfZBBBBbRJFB