Battle 2 Mark Lucas 1983  64340T 6000p x=65368X65455 n (x,n 2x <21,4;1;"BATTLE 1917";0 A82,4;1;" Mark Lucas 1983";0 P%2,10 :2,-10 Z 8000@ d4:1,4;1;"BATTLE 1917";0 i!2,4;" Mark Lucas" n>3,4;1;"Here are your armies...";0 xR5,13 ;"How Fight ";1;5;"";4;7;" " R6,13 ;"Far? Value? ";1;5;"";0;7;" " 7000X n=812 a$,q$,w$,s$,f$,e$ 15,0;a$;q$;" ";w$ 2,0 216,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 1000 n=11 1100L n=12 1300 "4,20 ,l=14n-1 1l+1,0;" " 6l,0;a$ ; .15~,l Jl n,4;w$ (n,15;s$;" +";f$;" no ";e$ a=1521 /a,0;" " a n  2000  ?19,4;1;" flatten forests ";0 R20,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 8 300, LZ20,4;"but ";1;" fire at other pieces !";0:4,-20 V7c=15:a=810 :b=7:1119_ [ 1200 _Wc,0;1;1;"";0;0;" ";2;1;1;"" `.5,-30 j.a,b;1;1;2;6;"*" t6a,b+2;1;1;2;6;"*" a  i21,4;1;1;1;6;"STOP THAT !";0;0;0;7 !a=1921:1119_ k21,20;1;6;1;1;"TANKS, HELP!";7;0;0;0 2,20 ^l=10 13 :l,0;" ":l+1,0;"  ":.3,-20:l 2,-30 V21,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  410 w20,0;1;" and you must";2;" kill ";0;"the enemy king to win the game ! " 4,-30 (715,0;" ":14,1;" " Fl=13 0-1:l+1,1;" ":l,1;"":14,(16-l);" ":14,(17-l);"":.05|L,30:l P9c=11 :b=16:a=10 13 :1119_ Z*b=0:a=03:1119_ dl=114:0,(l*2)-1;" ":0,(l*2)+1;"":15-l,17;" ":14-l,17;"":.05|L,30:l x 410 К15,0;" minefields ! you can usually clear them, but sometimes they explode!" ,0,25;"":4,0 Wt=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  8000@ zK58:,58:,18,254,58:,568,68D,130 O96`,104h,82R,102f,250,248,136,136 O0,248,254,248,254,254,186,238 J127,77M,32 ,76L,85U,67C,65A,83S K4,14,28,60<,98b,234,226,252 O170,254,254,170,146,186,68D,568 Q166,148,150,168,159,115s,160,210 J0,16,568,84T,186,84T,146,16 G0,96`,153,6,0,96`,153,6 J2,92\,34",102f,34",148,79O,480 G0,16,568,124|,568,16,0,0 X)"  ","8","infantry ","5","1","no" b)"  ","8","cavalry ","6","2","no" l*"  ","8","tanks ","3","3","yes" v)"  ","4","artillery","2","0","no" )"  ","1","king ","2","0","no" @~21,0;2;6;1;1;" DO YOU WANT INSTRUCTIONS ? y/n ";0;0;0;7 J23560\,0 T'z=23560\:z=08020T ^z=121y100d hOz=110n20,0;" ":9000(# r 8010J & "Battle2" & "Battle3" ' Mark Lucas 1983 nBattle2 X >:::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.5,-20:t=b-(32 *l)-64341U:l,t;1;"812";0 6,l+1,t;1;"7+3";0 @,l+2,t;1;"654";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"" "" Vn=6524065360P8:m=n/8:(m+57069)=02090* L/7000X:x=1̾(m+57053):g$:x V x=x-1 br=1:4800 _21,0;1;g$;" DIRECTION ? (0 to 8) ":0:23560\,0 'd=23560\:d=01210 /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# (*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) 7a=fa+(*6):j=fd+(*6):a=j2520 7a>j1,-25:v$=g$:2710 :2600( Qa.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 br=1:4800 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) N&l,t;1;g$:.5,-30 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  1,1,2,2,3,3,0,0,1,1,2,2,3,3,0,0 ZQ166,148,150,168,159,115s,160,210 5,5,6,6,3,3,3,2,5,5,6,6,3,3,3,2 1,1,2,2,3,3,5,6,7,7,8,8,9 ,9 ,11 ,12 N4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,1 1,6,1,7,0,6,0,7,1,24,1,25,0,24,0,25,1,2,1,3,0,2,0,3,1,28,1,29,0,28,0,29,1,10 ,1,11 ,0,10 ,0,11 ,1,20,1,21,0,20,0,21,1,14,1,15,1,16,1,17,502,502,502,502,502,502,0,15 919,6,19,7,20,6,20,7,19,24,19,25,20,24,20,25,19,2,19,3,20,2,20,3,19,28,19,29,20,28,20,29,19,10 ,19,11 ,20,10 ,20,11 ,19,20,19,21,20,20,20,21,19,14,19,15,19,16,19,17,502,502,502,502,502,502,20,16 XI"","","","","","","","","","","","" "COPYRIGHT "V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 "^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 "R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 "\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 "V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 "`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 "0:0:7: "R1,3;1;1;7;2;"CAMBRIDGE AWARD WINNER !!" "23,7;"PUBLISHED BY ";1;"" "!4,22;1;"" "36,7;1;" 1983 Mark Lucas " "&9 ,7;"COPYRIGHT WARNING" ",,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the copy":"-right, of BATTLE 1917. Please":"note unauthorised copying,hiring":"and lending of this software is":"strictly prohibited." #A21,3;6;1;"Press any key to continue" #=""8965# #  &"BATTLE1917"5 XWPmPXV2fjj cdCG