Paras W Wp W"5:Paras. DRJ 31/7/93 0210 "?";z$:ñz$2 -u=1̱z$:z$(u)<"0"z$(u)>"9"2 u: 4:4:0: 'C$=" " Z6,10 ;7;"P A R A S";8,4;4;" 1983 M.C.Lothlorien" Gk=121:n=07:a:((143+k))+n,a:n:k 5100  1200  1000 sce=030 "3250 :3300 :40(  1250 ( 1350F 2 1700 3 2250 5Vsce=04100:sce=14200h:sce=2:abc=1:25 8 3500 9 4300 ;cvr<5022950 < 502  E0,0,0,31,112p,96`,0,0 E0,0,96`,112p,31,0,0,0 G0,0,4,126~,104h,104h,8,0 G0,8,104h,104h,126~,4,0,0 H0,126~,112p,80P,40(,68D,0,0 H0,0,68D,40(,80P,112p,126~,0 E0,0,0,126~,126~,8,8,0 E0,8,8,126~,126~,0,0,0 G0,24,60<,60<,24,0,126~,0 "F0,28,28,8,28,42*,8,28 ,G0,0,4,105i,127,105i,4,0 6O16,568,124|,254,186,170,238,238 @J84T,42*,480,170,84T,24,24,24 JG0,0,0,40(,84T,170,254,0 TF0,0,0,66B,102f,255,0,0 ^G0,126~,0,24,60<,60<,24,0 _I7,13 ,20,36$,68D,132,255,4 `J255,0,129,66B,36$,24,255,0 aL224,176,40(,36$,34",33!,255,32 bP240,248,124|,124|,126~,60<,124|,120x cG1,3,3,15,31,31,31,255 dQ32 ,4,32 ,1,141,1,135,1,131,4,131,4,131,4,131,4,139,4,142,4,32 ,4,32 ,4,32 ,4,137,4,133,1,32 ,1,142,4,32 ,4,32 ,4,141,4,32 ,4,138,4,134,4,32 ,4,137,4,32 ,4,133,4,32 ,1,32 ,1,142,4,141,4,32 ,4,32 ,4,138,4,32 ,4,134,4,131,4,131,4,135,4,143,4,131,1,131,1,131,1,131,1,143,4,139,4,131,4,131,4 h cover data r3,6,156,4,5,156,6,5,156,8,6,156,12 ,5,156,13 ,6,156,17,7,156,12 ,12 ,156,13 ,12 ,156,13 ,13 ,156,3,14,156,4,13 ,156,11 ,20,156,11 ,21,156,12 ,20,156,9 ,9 ,157,10 ,9 ,157,11 ,10 ,157,7,15,157,8,15,157,9 ,15,157,10 ,16,157,5,21,155,13 ,19,155,6,16,157,5,10 ,156,6,10 ,156 |I255,127,127,15,15,3,3,1 D0,0,8,73I,42*,28,0,0 68,30,12 ,30,11 ,27 choose weapons  3: ^0:7:0,7;"YOU HAVE 15 MEN";2,5;"CHOOSE THEIR WEAPONS" 1:6:5,0;C$;5,2;148;" machine guns (1-3)? ";:2:MG=z$:;MG:MG<1MG>31020 8,0;C$;8,2;146;" submachine guns (1-4)? ";:2:SMG=z$:;SMG:SMG<1SMG>41030 11 ,0;C$;11 ,2;150;" bazookas (1-3)? ";:2:B=z$:;B:B<1B>31040 R=15-MG-SMG-B $Q14,0;C$;14,2;144;" rifles ";R .0:7:17,0;C$;17,2;"DIFFICULTY LEVEL (1-10)? ";:2:DI=z$:;DI:DI<1DI>10 1070. 8*21,9 ;"Press a key":0 B0:4: L'DI>5DI=DI-5:1120` V sce=2 ` initialise variables Osce=0:brX=0:brY=0:abc=0:how=0:cvr=27 ?C(502,4):E(11 ,8):P(16,8)  place cover + enemy  5  0 (i=127:X:Y:C(i,3) C(i,1)=X+((*11 )-5)*(i>7):C(i,2)=Y+((*10 ))*(i>7):C(i,1),C(i,2);(C(i,3));:i  3:19,0;C$; 2:7:20,0;C$;C$;20,2;"Please wait while enemy gets";21,4;"into suitable cover"; 0:4 i=1(5+DI)  rf=(*27)+1:E(i,3)=153:E(i,1)=C(rf,1):E(i,2)=C(rf,2):E(i,2)<(9 -sce)1290  i=113302 be=0:j=1(i-1):E(j,1)=E(i,1)E(j,2)=E(i,2)e=1 (j:e=11290  2-C(rf,4)=1:E(i,6)=1 8 0 <i A>DI<5i=6+DI10 :E(i,1)=100d:i B Fput player pieces on P-i=115:abc=01380d Z$P(i,1)=100d1450 _ 1420 diMGP(i,3)=148 n'i>MGiMG+SMGP(i,3)=146 x-i>MG+SMGiMG+SMG+BP(i,3)=150 $i>MG+SMG+BP(i,3)=144 2:7:20,0;C$;20,0;"Use cursor keys then 'ENTER' for";21,0;C$;21,0;"position of ";(P(i,3)); Kx=9 :y=0:rt=4:1500:(x,y)32 1420 ,P(i,1)=x:P(i,2)=y:1950 i ,2:7:20,0;C$;C$;  cursormove routine  x1=x:y1=y 2ba=(x,y):22528X+y+x*32 ,ba+128 i$=:i$=""1530 4i$=13 i$="f"22528X+y+x*32 ,ba: i$="5"y1=y-1 i$="6"x1=x+1 "i$="7"x1=x-1 ,i$="8"y1=y+1 6Ax1<0x1>18y1<0y1>rtx1=x:y1=y:1530 ;0.01z# =,502 @22528X+y+x*32 ,ba Jx=x1:y=y1:1520 player actions ?i=115:ti=i:2:7:how=i3000 *i=ti:P(i,1)=100d1890b P(i,8)=0 Uz=P(i,3)+P(i,4):P(i,7)=1z=152+P(i,4)*7 ^ac=(P(i,1),P(i,2)):22528X+P(i,2)+P(i,1)*32 ,ac+128 f0.2~L,-20:20,0;C$;20,3;"Use keys 1-";7+sce;" for action"; ֚21,0;C$;21,7;"of flashing ";:(1+6*(P(i,5)=1)):P(i,6):4:;z;:2:7:0 j=125:i$=:j i$=:i$=""1770  i$="0"1950:1890b  i$="1"2000:1890b Ki$="2"P(i,7)=0P(i,8)=1:1950:1890b i$="3"(P(i,4)=0(P(i,4)=1P(i,5)=0))P(i,7)=0P(i,8)=2:2000:1890b Xi$="4"P(i,4)=0P(i,4)=1:z=z+1:1950:1890b &Xi$="5"P(i,4)=1P(i,4)=0:z=z-1:1950:1890b 0Xi$="6"P(i,7)=0P(i,7)=1:z=152:1950:1890b :Ki$="7"P(i,7)=1P(i,8)=3:1950:1890b Dksce=2i$="8"P(i,1)=brXP(i,2)=brYP(16,1)=1:1950:1890b N<sce=2i$="9"P(16,1)=15000 X 1760 bi: print player pieces $P(i,1)=100d1970 Uz=P(i,3)+P(i,4):P(i,7)=1z=152+P(i,4)*7 ^1+(P(i,5)=1)*6:4:P(i,6):P(i,1),P(i,2);z 1:4:0  player movement Emv=4-P(i,5)-(P(i,8)0)-P(i,4)*2 0.2~L,-10 :2:7:20,0;C$;20,0;"OK-use cursor keys then 'ENTER'";21,0;C$;21,3;"Movement allowance is ";mv; 322528X+P(i,2)+P(i,1)*32 ,ac 9x=P(i,1):y=P(i,2):rt=31:1500 (x,y)32 2040  ((x-P(i,1))+(y-P(i,2)))>mv2:7:21,0;" It can't move that far ";:.5,20:j=1200:j:2010 Ke=0:j=15+DI:E(j,1)=xE(j,2)=ye=1 j:e=12:7:0.2~L,-40(:21,0;" Sorry - you can't move there";:j=1200:j:2010 e=0:j=1cvr:C(j,1)=P(i,1)C(j,2)=P(i,2)P(i,6)=0:e=1:0:4:P(i,1),P(i,2);C(j,3);  Aj:e=00:4:P(i,1),P(i,2);" "; *Dj=1cvr:x=C(j,1)y=C(j,2)P(i,6)=1 4/j:P(i,1)=x:P(i,2)=y:1950 H who can fire? Qatk=0:i=115:P(i,8)01:atk=atk+1 1950:0 i  player attacks 2200:atk=0 ޟ.2~L,20:2:7:20,0;C$;C$;20,1;"Use cursor keys then 'ENTER'";21,2;"to indicate attacking unit"; sx=9 :y=15:rt=31:1500:i$="f"i=115:P(i,8)=0:1950:i: (x,y)<64@2270 Cu=0:i=115:x=P(i,1)y=P(i,2)u=i i [2:7:21,0;C$;21,0;"to indicate square to fire at"; dx=P(u,1):y=P(u,2):rt=31:1500:range=(x-P(u,1))+(y-P(u,2)) range>(7-((P(u,7)=1)*5)-(P(u,7)=1)*(P(u,4)=1))2:7:21,0;C$;21,0;"OUT OF RANGE TRY AGAIN";:200:2310 9P(u,3)=150P(u,7)=12600( $Een=0:i=110 :x=E(i,1)y=E(i,2)en=i .'i:en02450 :2400` 8sce=02390V B<P(u,3)=150x=brXy=brY4000:2400` L:P(u,7)=1x=brXy=brY4000:2400` VV2:7:20,0;C$;C$;20,10 ;"NO EFFECT";:200 `=P(u,7)=1P(u,7)=0:i=u:1950 jP(u,8)=0 tatk=atk-1:2260 resolve player attacks eP(u,3)=144af=70F-(range>2range<5)*10 -(range>4)*10 eP(u,3)=146af=80P-(range>2range<5)*20-(range>4)*20 eP(u,3)=148af=90Z-(range>2range<5)*30-(range>4)*30 %P(u,3)=150af=60< #P(u,8)=3af=60< &P(u,8)=2af=af*.8L 'E(en,4)=1af=af*.5 'E(en,6)=1af=af*.73333 s(*100d)+1>af2:7:20,0;C$;C$;20,10 ;"NO EFFECT";:200: .<.5E(en,5)=02580 2:7:20,0;C$;C$;20,8;"ENEMY IS DEAD";:0:4:x,y;" ";:i=1cvr:x=C(i,1)y=C(i,2)x,y;C(i,3);:C(i,4)=0 Pi:i=18:E(en,i)=0:i:E(en,1)=100d:200: 2:7:20,0;C$;C$;20,8;"ENEMY WOUNDED";:E(en,5)=1:6:4:E(en,6):x,y;(E(en,3)+E(en,4));:200 1:4:0 # (grenade scatter 2odis=2-P(u,7)-(range<3)+(range>4):dir=(*3)-1:<.5x=x+dis*dir: <y=y+dis*dir: T print during artillery attacks Y$P(k,1)=100d2930r ^Uz=P(k,3)+P(k,4):P(k,7)=1z=152+P(k,4)*7 h^1+(P(k,5)=1)*6:4:P(k,6):P(k,1),P(k,2);z r1:4:0 | howitzer fires? 4how=0:<.5how=(*15)+1  howitzer attack cvr=cvr+1 $hx=(*19):hy=(*28) Jha=(hx,hy):ha=20ha=34"ha=38&ha=5243020 3sce=2(ha=44,ha=37%)3020 @n=120:.05|L,20:.02{# =,-30:n j7:3:1:19,0;C$;19,2;"Artillery attack - press p";:0 0h$="":k=1502:i$=:i$="p"h$=i$ %((*8)):k=5026 0.03{u\,502-k:k h$"p"31255 8k=115:P(k,1)=100d31200 &"P(k,4)=1:2900T 0k :80:3:1:hx,hy;158;:0 ?Vn=030:.01z# =,-10 :.01z# =,-502:.01z# =,-60<:n @ n=125:1:n Dk=115:hx=P(k,1)hy=P(k,2)19,0;C$;19,6;"A ";P(k,3);" has been killed";:1,20:j=18:P(k,j)=0:j:P(k,1)=100d:200 Nk Xk=115:rha=(hx-P(k,1))+(hy-P(k,2)):rha<1rha>2P(k,4)=1ť<.53210 b"P(k,5)=03190v g1,20:19,0;C$;19,6;"A ";P(k,3);" has been killed";:P(k,1),P(k,2);" ";:j=1cvr:P(k,1)=C(j,1)P(k,2)=C(j,2)C(j,1),C(j,2);C(j,3); lXj:j=18:P(k,j)=0:j:P(k,1)=100d:200:3210 vb1,20:19,0;C$;19,2;"A ";P(k,3);" has been wounded"; -P(k,5)=1:2900T :200 k ^200:0:4:hx,hy;158;:3:19,0;C$;:how=0 @C(cvr,1)=hx:C(cvr,2)=hy:C(cvr,3)=158 2:7: initialise scene2 9i=20cvr:j=14:C(i,j)=0:j:i )sce=2:brX=10 :brY=28 7380|:i=07:n:(155)+i,n:i ,i=07:n:(157)+i,n:i  scene2 -i=115:P(i,6)=0:i 0:4:6: 3:5 i=06:j=114-2*i:i,8+i+j;(32 +(<.3)*125});18-i,8+i+j;(32 +(<.3)*125});:j:i U5:4:i=06:i,8+i;"";18-i,8+i;"";:i W4:5:i=06:i,23-i;"";18-i,23-i;"";:i 4:0:i=02:i,8;" ";i,21;" ";18-i,8;" ";18-i,21;" ";:i ;5:4:i=018:i,29;"";:i >0:4:brX,brY;"";:5:"";:4:"" i=120 0:4 *y=(*20)+5:x=(*19) %"v=(x,y):v32 3360 4cx,y;156;:C(i,1)=x:C(i,2)=y:C(i,3)=156:C(i,4)=0:i >i=4(DI+5) Hrf=(*20)+1:E(i,3)=153:E(i,1)=C(rf,1):E(i,2)=C(rf,2):E(i,6)=1 Ri=43435k \`e=0:j=4i-1:E(j,1)=E(i,1)E(j,2)=E(i,2)e=1 fj:e=13400H pi u 1 z.2:4:i=13:E(i,1):E(i,2):C(20+i,1)=E(i,1):C(20+i,2)=E(i,2):C(20+i,3)=156:E(i,3)=153:E(i,4)=1:E(i,6)=1:E(i,7)=1:E(i,1),E(i,2);154:i  0 C3:19,0;C$;:7:20,0;C$;C$; >DI<5i=DI+610 :E(i,1)=100d:i  determine enemy action d1,10 :2:7:20,0;C$;C$;20,6;"enemy action phase" 8i=110 :E(i,1)=100d3560 3600 'fac2>213700t:3560 E(i,4)=0E(i,7)=1ƥ<.5E(i,4)=1:2:7:20,0;C$;C$;20,6;"ENEMY FALLS PRONE";:1:3900<:200:0:3900<:20,0;C$;C$;:3560 LE(i,7)=0E(i,4)=0ƥ<.5E(i,4)=1 i: enemy target selection Sran1=40(:ran2=40(:fac1=0:fac2=0:tar=0:dm=0 $8k=115:P(k,1)=100d3695o .Zran1=(E(i,1)-P(k,1))+(E(i,2)-P(k,2)):ran1>73695o 8vfac1=80P-(ran1>2ran1<5)*20-(ran1>4)*20:P(k,4)=1fac1=fac1*.5 B*P(k,6)=1fac1=fac1*.73333 L+P(k,5)=1fac1=fac1*1.2 `fac1>fac2fac2=fac1:tar=k jran1fac220,10 ;"NO EFFECT";:200:2900T :3900<: -<.5P(k,5)=03780 20,10 ;(P(k,3)+P(k,4));" is DEAD";:200:0:4:P(k,1),P(k,2);" ";:l=1cvr:P(k,1)=C(l,1)P(k,2)=C(l,2)P(k,1),P(k,2);C(l,3); Ol:l=18:P(k,l)=0:l:P(k,1)=100d:3900<: x20,10 ;(P(k,3)+P(k,4));" WOUNDED";:200:P(k,5)=1:2900T :3900<: <print enemy pieces Fz=E(i,3)+E(i,4) P^2+(E(i,5)=1)*4:4:E(i,6):E(i,1),E(i,2);z Z2:7:0: attack bridge ,2:7:20,0;C$;C$; 9<.520,10 ;"NO EFFECT":200: P(16,2)=P(16,2)+1:P(16,2)=120,8;"BRIDGE DAMAGED";:200:  5000 1st scene finished? Gzz=0:i=110 :E(i,1)=100dzz=zz+1 i:zz=10 sce=1 " hmessage for end of scene1 r0:7:1:3,7;"CONGRATULATIONS";7,6;"1st PART COMPLETED";13 ,9 ;"Press a key":0:0: computer wins? Gzz=0:i=115:P(i,1)=100dzz=zz+1 i:zz15 m0:7:1:3,7;"SORRY COMMANDER";7,7;"YOU HAVE FAILED":0: finish %i=0502:.002xn,i:i Tj=15:i=16:.02{# =,(j-i)/2:.02{# =,i+j:i:j w2:7:1:1:19,0;C$;C$;C$;20,7;"BRIDGE DESTROYED":0:0  0:4:brX,brY;"" %i=0502:.002xn,i:i 3,-35# -i=115:.2~L,-30-i:i 5,-46. N2:7:1:10 ,5;"Mission accomplished":0 62:6:7,7;"CONGRATULATIONS" -13 ,4;"(You may even get a VC)"   title page  3 <5::4:i=11 21:i,0;C$;:i -7:2:1,12 ;"PARAS" ]4:1:x=-70F:i=185255:i,0:x,86V:x=x-1:i A0:4:i=031:16,i;131:i  Q2:x=13 :y=15:i=03:j=011 :a:b:b 9(j=0i=0)(j=1i=0)5160(  x+i,y+j;a (j:i 2?0:5:10 ,9 ;" " <+4:11 ,20;" " F13 ,7;"";15,11 ;"";17,5;"";12 ,27;" ";14,30;"";11 ,3;"" PU6:5:200,120x:i=115:200,120x,i:i Z[0:5:4,2;"Your mission -";6,2;"DESTROY THE BRIDGE" d 500: