ZXTape! 2 Battle 1917 CCS (Cases Computer Simulations) Mark Lucas1983English Strategy: War5.95 UKPNoneOriginal ReleaseTZXed by Andrew BarkerBATTLE  -64100d:7:7:0:"" 319,0:7:7:1:"" 219,0:7:7:1:"" s @T <2"2"2"2"2"2"2"2"2"2""PPPPPPPPPPP2""2"Px>?PP  2"???2"2"2"???"JJJBB @<JJ"E"E"E"E"E"E"E"E"E"EEA@A@A@A@A@A@A@A@A@A@@JJJJJJ"E??>?E"EA@?>?@A@JpppJJJppp"E"E"E"EE(((f8(@D88B((((((((??>??>>((((  Z 0@D @<(3333333333ЄЄЄЄЄЄЄЄЄЄЄ?3??>?3Є>>ЄЄ3333` ` B< 0@D <8BH` ` ` hhhhhhhhhhh ` ` ` ` ` ` h>>h?h |>??  ` ` ` ` ` @@@hhhh@@@h(p(p(BD (@D DB~(p(ppOOOOOOOOOOddddddddddd(p(p(p(p(p(pO>>Od??dd(p(p(p(ppOOOOaaaBB< $~8?~@2~@#??##aaaa2~   @2~@2~@2~@   ~@!!!<!!B B B B B B B B B B !!!!!!B x>? B !!!!B    B B B    PPPPP    28888"2"288880000PP00002"OOO2"2"2"OOO"P@@@PPP@@@PA@A@A@A@@JppppJJ    "0000E"E"0000A0000@A@A0000JJJJ"E"E"E"EEA@@@@A@A@A@@@@@JJJJ333333(((((((??????@@@@@@((((ЄЄЄЄ3 33 ЄЄ3GGG333GGG(((ЄЄЄ(((Є ?D@?D@?D@ ?D@?D@?D@ ` `   hh h ` ` ` ` `  hhhh h 0@0@0@ 0@0@0@ ` ` ` ` ` ???dddd???d(p(p(pO    OO    ddd(p(p(p(ppO OOO  @ @ @dddd @ @ @d(p<<p(p(p(p<<pp#####appppaapppp2 0 0 0 0~@2~@2 0 0 0 0@##aaaa2~p@p@p@@2~@2~@2~@p@p@p@~@# @ @ @### @ @ @#a~~aaa~~!!!B 0 0 0 0 B B 0 0 0 0 !???!!!???B @@@ B B B @@@  @ @ @ @ @ @!~~!!!~~2"2"2"2""P''PPP''P2"2"2""PPP"E"E"E"EEA@A@A@A@@JJJJJJJJJ"E"E"ý}ÁEEA@A@ýý@    ((((((((( �3333Є__ЄЄЄ__Є333ÁÃЄЄÄЄhhhhhhh     ` ` ` ` ` ` ` ` `  hhhh ᅢ OOOOddddddd(p(p(p(p(p(p(p(p(ppOOOdddd2~@@2~@2~@2~@@~@#""" """ ###""" """ #aaaaaaaaa2~@2~@2ÃýýÁ~@~@##ýÁýÀ#B B B B !!!!!!!!!B B B  xxxxxxxGGGGGGGGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyxxxxxxxxxxxxzzz|||}}}{{xxxxxxyyyzz||}}{{yyxxzzz|||}}}{{xxxxxxyyyzz||}}{{yyxxzzz|||}}}{{xxxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxyyyyyyyyyyyyxxxxxxzzzzzzzzzzzzxxyyyyyyyyyyyyxxxxxxzzzzzzzzzzzzxxyyyyyyyyyyyyxxxxxxzzzzzzzzzzzzxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxxyyyyyyyyyxxxxxxxxxxzzzzzzzzzxxxxxyyyyyyyyxxxxxxxxxxzzzzzzzzxxxxxxyyyyyyyyxxxxxxxxxxzzzzzzzzxxxxxxyyyyyyyyxxxxxxxxxxzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGGGxxxxxxxxxOOOOOOOOOOOOOOOOOOxxGGGxxxxxxxxOOOOOOOOOOOOOOOOOOOOxGGGxxOOOOOOOOOOOOOOOOOOOOOOOOOOOGGOO8888888888888888888888888888888888888888888888888888888888888888c d >   222222    222222                  !U6# x !eh!N6# x !B 6# x    2  2 2222 2 22 22 2 22222222 2 2 2    22 2   222  22222222:::8D`hRfM LUCAS2080P <la=i:ta=(i+1) FN(la*32 +ta+64341U),x-1:la,ta;g$:.02{# =,(la+ta/2) Pi:n d$x=13 14:x*9 :g$ f-x*10 :y=1202:l,t g hNll=(*4)+l:lh=(*5)+ll:tl=(*8)+t:th=(*9 )+tl jl=lllh:t=tlth lG(l*32 +t+64341U),x:l,t;g$:.01z# =,(l+t)/(x-11.58) n t:l:y:x u "" ~ "" 2,0,4,2,9 ,1,11 ,0,2,16,3,15,11 ,14,9 ,16,8,12 ,5,11 2,1,3,0,10 ,0,11 ,2,2,16,4,14,11 ,16,10 ,15,6,12 ,7,13 <l=1:a=6440564884t32 :l=l+1 b=a(a+30) ܾb=14(b+1)=14(b+2)=14(b+32 )=14(b+34")=14(b+64@)=14(b+65A)=14(b+66B)=14300, b:a 1000 ,t=b-(32 *l)-64341U 6|5:1:1:l,t;"812";l+1,t;"7+3";l+2,t;"654":.5,-20:7:0:0 J(b),15:(b+1),15:(b+2),15:(b+32 ),15:(b+33!),15:(b+34"),15:(b+64@),15:(b+65A),15:(b+66B),15 b=14 9500+(b*10 ):c,d:600X+(b*10 ):c$ a=110 n=(*672) v(n+64341U)=cl=(n/32 ):t=(n-32 *l):l,t;c$:(n+64341U),d:.005y# =,16-t:460  .005y# =,20:430 a b 0,16 14,0 13 ,13 0,13 b "" l" " v"" "" ~21,0;1;1;6;1;" REDRAW THIS MAP ? y or n ? ";0;0;0;7 23560\,0 !23560\=0992 "23560\=121y25 #23560\110n991 U65127g=165148|,1:65206,1:65207,1 ?65101M,0:65146z,0:65147{,0 "65146z,65146z+1 H65147{,4*((65146z/4)-((65146z/4))) Vn=6524065360P8:m=n/8:(m+57069)=02090* L/7000X:x=1̾(m+57053):g$:x V x=x-1 $br=1:4800:3200 _21,0;1;g$;" DIRECTION ? (0 to 8) ":0:23560\,0 'd=23560\:d=01210 ;3100 :d=d-480:d<0d>81200 /d=0br=0:4800:2085% .05|L,15 ms=(m+57037) `21,1;1;" HOW FAR ? (1 to ";ms;") ";0:23560\,0 #'s=23560\:s=01315# (63100 :s=s-480:s<0s>ms1310 2/s=0br=0:4800:2085% xG21,1;1;" MOVING AS ORDERED ";0 0i=nn+62:i>202080  @ o=1s :l=i:t=(i+1):a=1:(d*10 +3000 ) ;la<0la>20ta<0ta>312080  l8k=(la*32 +ta+64341U):k=02000 v(k*10 +4000) .l,t;" ":(l*32 +t+64341U),0  Sla,ta;1;g$;0:(la*32 +ta+64341U),x:i,la:(i+1),ta .001wn,20:o  i %$br=0:4800:4300 *.05|L,-20:n 4 1000 Zl,t;1;1;g$;0;0:b=6520865223:k=b2510 b ;b=b-57053:fd=(b+56973):fa=(m+56973) L65149},fa+(*6):j=fd+(*6):65149}=j2520 B65149}>j1,-25:v$=g$:2710 :2600( \65149}202080  65126f,0:a=1 1o=1s:l=i:t=(i+1):65053 'l>65302q=0:3260 'l=65302q=1:3260 q=2 't>65303w=0:3290 't=65303w=1:3290 w=2 d=(65150~+q*3+w) (d*10 +3000 ) ;la<0la>20ta<0ta>313600 8k=(la*32 +ta+64341U):k=02000 (k*10 +3400H ) 7x>9 65102N,la:65103O,ta:3600 2500 3600 x=9 1910v "6500103600 ;q=65102N65124d2:q03535 "q,la:(q+1),ta:3600 q:65101M,1 3600 3531 "d065090B+d,1 6d=(*9 ):(65090B+d)03000  3300 s)q=(*2):3700t+(q*10 ) tBq=65240+(2*((*29))):q>203710~ u9la=q:ta=(q+1)+(*3)-1:4440X ~;q=65102N65124d2:q=03715 Kla=q:ta=(q+1):q,0:q+1,0:65101M,0 Ow=q65124d2:w=la(w+1)=taw,0:w+1,0 w:4440X q 0la=(*21):ta=(*32 ):4440X  x72500  2080  x62500  2080  "!x3x9 2080  #3(la*32 +ta+64341U),0:k=0: 6 2080  @>.2~L4131# JMl,t;" ":la,ta;1;1;6;2;"":2,-30 TV(l*32 +t+64341U),0:(la*32 +ta+64341U),0:i,502 ^gla,ta;0;0;" ":sa=(m+57069):(m+57069),sa-1:2800 :2080  x5x11 (m+57069)=0 Fbr=1:4800:65148|=1x=11 44000 n21,1;1;2;" DIRECTION TO FIRE ? (0 to 8) ";0;0:23560\,0 'd=23560\:d=04340 /d=d-480:d<0d>84330 /d=0br=0:4800:2090* l21,1;1;2;" RANGE ? (1 to 9) ";0;0:23560\,0  'f=23560\:f=04365  /f=f-480:f<0f>9 4360 /f=0br=0:4800:2090* &Y21,1;1;2;" FIRING AS ORDERED ";0;0 0z=n(n+6)2 :z>204570 Dl=z:t=(z+1) NTl,t;1;g$:.5,-30:65148|=1x=11 3699s S3a=f+(*3)-1:(d*10 )+3000 Xl,t;0;g$ b;la<0la>20ta<0ta>314570 l!k=(la*32 +ta+64341U) q+k=15.5,30:4570 tk=14la,ta;1;1;1;5;"*":1,-30:la,ta;0;0;1;5;"";0;7:4570 v0la,ta;1;1;2;6;"*" 7y=10 -10 -1:.01z# =,y*3:y 1,-30 qk=0k=13 k=16la,ta;0;0;" ":(la*32 +ta+64341U),0:4570 #b=6524065360P8 e=b(b+6)2 e=laƾ(e+1)=tae,502:sd=(b/8+57069):(b/8+57069),sd-1:2800 :0;0;la,ta;" ":(la*32 +ta+64341U),0:4570 e b z  a=n(n+6)2 /a20a,(a+1);br;g$;0 a  4:1,4;1;"BATTLE 1917";0 *2,4;1;" Mark Lucas" >3,4;1;"Here are your armies...";0 R5,13 ;"How Fight ";1;5;"";4;7;" "  R6,13 ;"Far? Value? ";1;5;"";0;7;" " P 7100 Zn=812 da$,q$,w$,s$,f$,e$ n 15,0;a$;q$;" ";w$ s2,0 x216,4;"moving at upto ";s$;" spaces" }2,5 217,4;"fighting with an extra + ";f$ 2,10 G18,4;" cannot cross lakes ";1;5;"" 2,15 >19,4;" cannot cross forests ";4;"" 520,4;" cannot cross wire ";"" n=10 6000p n=11 6100 n=12 6300 4,20 l=14n-1 l+1,0;" " l,0;a$  .15~,l l "n,4;w$ |(n,15;s$;" +";f$;" no ";e$ a=1521 /a,0;" " a  n > 6500d p?19,4;1;" flatten forests ";0 zR20,4;1;" flatten wire ";0:4,-20 Vl=1620:l,0;a$:l-1,0;" ":.1}L,-20:l h21,4;1;1;6;1;"LOOK OUT !";0;0;7;0 ?t=028:20,t;" ";a$:.1}L,-20:t F19,29;a$:20,29;" ":.1}L,-20 }21,0;1;1;6;1;"TANKS, GO BACK TO YOUR PLACES !";0;0;7;0 Ht=280-1:19,t;a$;" ":.1}L,-20:t Wl=1815-1:l+1,0;" ":l,0;a$:.1}L,l:l  5300 Z20,4;"but ";1;" fire at other pieces !";0:4,-20 7c=15:a=810 :b=7:6119  62008 Wc,0;1;1;"";0;0;" ";2;1;1;"" .5,-30 .a,b;1;1;2;6;"*" 6a,b+2;1;1;2;6;"*" $a . 8i21,4;1;1;1;6;"STOP THAT !";0;0;0;7 B!a=1921:6119 Lk21,20;1;6;1;1;"TANKS, HELP!";7;0;0;0 Q2,20 `^l=10 13 :l,0;" ":l+1,0;"  ":.3,-20:l j2,-30 tV21,4;1;1;1;6;"THANKS, TANKS ! " ~l=13 10 -1:l+2,0;" ":l+1,0;" ":l,0;"  ":l+1,0;"  ":.5,-20:l 2,0  5410" w20,0;1;" and you must";2;" kill ";0;"the enemy king to win the game ! " 4,-30 715,0;" ":14,1;" " Θl=13 0-1:l+1,1;" ":l,1;"":14,(16-l);" ":14,(17-l);"":.05|L,30:l 9c=11 :b=16:a=10 13 :6119 *b=0:a=03:6119 l=114:0,(l*2)-1;" ":0,(l*2)+1;"":15-l,17;" ":14-l,17;"":.05|L,30:l  5410" d15,0;" minefields ! you can usually clear them, but sometimes they explode!" n,0,25;"":4,0 xWt=1825:0,t-1;" ":0,t;"":.3,30:t N0,25;1;1;2;6;"":2,-25 319,5;1;"like that !";0 mb=0301:.1}L,b:.15~,10 -b:.1}L,b-20:(b/4):b:7  7 XI"","","","","","","","","","","","" )"  ","8","infantry ","5","1","no" )"  ","8","cavalry ","6","2","no" *"  ","8","tanks ","3","3","yes" )"  ","4","artillery","2","0","no" )"  ","1","king ","2","0","no" <n=6524065360P8:7000X:m=n/8 #x=1̾(m+57053):g$:x 0i=nn+62:i>208180 la=i:ta=(i+1) &la,ta;g$:.02{# =,(la+ta/2) i:n  1000 :21,0;1;1;6;2;"STOP TAPE NOW, PROGRAM RUNNING ":0:1,10 :1,-10 Sl=020:t=031:x=l*32 +t+64341U:8300l +x t:l:1,30 0l=65144x-2:t=65145y-2 &|5:1:1:l,t;"812";l+1,t;"7+3";l+2,t;"654":.5,-20:7:0:0 0n=16703:(n+64341U)=13 l=(n/32 ):t=(n-32 *l):l,t;7;0;"":.005y# =,16-t 1n b 8130 x.001wn,t: y4l,t;7;4;"":.05|L,t-20: z+l,t;5;1;"":.01z# =,l: {*65144x,l:65145y,t:8314z |3l,t;7;3;"":.005y# =,20: #( &*"m";1;"bt.21"5 &.*"m";1;"c.21"64101e,1434: