BATTLE1917.>0 64340T 6000p x=65368X65455 n (x,n 2x <21,4;1;"BATTLE 1917";0 A82,4;1;"@ Mark Lucas 1983";0 F~20,0;2;6;1;1;"STOP TAPE NOW , PROGRAM RUNNING ";0;0;0;7 P%2,10 :2,-10 Z 8000@ d4:1,4;1;"BATTLE 1917";0 n>3,4;1;"Here are your armies...";0 xS 5,13 ;"How Fight ";1;5;"";4;7;" " S 6,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 117,4;"fighting with a 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;"*" t7a,b+2;1;1;2;6;;"*" a  j21,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,0 Zl=10 13 :l,0;" ":l+1,0;" ":.3,-20:l 2,-30 I21,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 (315,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 St=1825:0,t-1;" ":0,t;"":.3,30:t N0,25;1;1;2;6;" ":2,-25 319,5;1;"like that !";0 eb=030:.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 #2}21,0;1;1;2;6;" PLEASE START TAPE NOW ";0;0;0;7 &"battle1917" ntbattle1917B+*D+XBattle 1917 by Mark Lucas from Sinclair User 26 (May.84) }21,0;1;1;6;2;"STOP TAPE NOW, PROGRAM RUNNING ";0;0;0;7 L21,15;1;1;6;1;" PROGRAM RUNNING " %1,10 :1,-10 )X=64341U65012:X,0:X 25000:x=65128h65143w:n:x,n:x &x=6518465367W:n:x,n:x  8900" 7:7:1: Z21,0;1;1;6;1;" PLEASE WAIT, PROGRAM RUNNING " <N=6524065360P8:7000X:M=N/8 (#x=1̾(m+57053):g$:x 2.i=nn+62:i>2080P <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=6440564848P32 :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 ,P.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 ? (08) ";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 ";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 j21,1;1;2;" DIRECTION TO FIRE ?(08) ";0:0:23560\,0 'd=23560\:d=04340 /d=d-480:d<0d>84330 /d=0br=0:4800:2090* j21,1;1;2;" RANGE ? (19) "; 0;0:23560\,0  'F=23560\:f=04365  /f=f-480:f<0f>9 4360 /f=0br=0:4800:2090* &Z21,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;6;2;"*" 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 Xa"","","","","","","","","","","","" " COPYIGHT "V"",31:""+1,63?:""+2,112p:""+3,224 "^""+4,224:""+5,112p:""+6,63?:""+7,31 "R"",0:""+1,15:""+2,15:""+3,3 "\""+4,1:""+5,0:""+6,127:""+7,127 "V"",0:""+1,254:""+2,254:""+3,128 "`""+4,192:""+5,224:""+6,240:""+7,240 "0:0:7: "Q1,3;1;1;7;2;"CAMBRIDGE AWARD WINNER!!" # 100d: &"battle1917"5 (Pm2G}