Redweed a"r"  "Redweed" ir @e<|~xB~~xB<<<B<@@߿`B@DB@@D(BBBfB@88@88x{}B|BB||BB< Z@@DxD 0DD ߿~߿p|@BB@@B>BB@@DDD xDV}_D@DZ@@DBBBB@DDD @D/B~x$~~xB><<<B<~8 D 8 8>>**>>>99 >UU@U??">?>?@>33((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((xxxxxxx(((((((((((((((((((((((((((((((((((((((((((((((((('''''''''''''''''''''((((((((((((((((((((((((((((((((....(((((((((((((((((((((((((((.....(((((((((((((((((((((((((((.....(((((((((((((((((((((((....(((((((((8(((((((((((((((((((((((((8(((((((((((((((((((((((((//(((***((((((((((((((((((//(((****(((((((((((((((((((((((((****(((((((((((((((((((((((((****(((((*((((( '' '' $$$$$$'$$$$ $$'$$$$ $$$$$$$$$$$$$$$$$$'$ $$ $ '$$$$ $$$$$$$$$$$$ $$$''$$$ $ $''$$$$$$ $$$$$$$$ $$$$$$$$$$$ $$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$ $$ $$$$$$ $$$$$ $$$888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888Redweed YX:Y 5 "?";z$:ñz$2 -u=1̱z$:z$(u)<"0"z$(u)>"9"2 u:  Gk=113 :n=07:a:((143+k))+n,a:n:k 8000@ 5: B0:C$=" ":4:7  i$(3) Ti=130:a=(i/10 ):b=i-a*10 :0,i;a;1,i;b;:i (Hi=216:A$=(i+95_):i,0;A$;i,31;A$;:i ) 6 2@i=130:j=216:j,i;153;:j:i 320:0:17,0;C$;:4 ; 6 <|H=14:T(546,2):i=114:T(i,1):T(i,2):T(i,1),T(i,2);154;:i E 7 FP(24,6):i=124:j=13:P(i,j):j:P(i,1),P(i,2);(144+P(i,3));:i P4:0:M(3,9 ):k=13:j=16:M(k,j):j:M(k,9 )=4:M(k,1),M(k,2);144;:k Q2:7:18,0;C$;18,0;"DIFFICULTY LEVEL(1 to 15)":2:dd=z$:dd<1dd>1581Q R4500:2800 Sb7:3:19,26;"Level";20,26;" ";dd;" ";:dd<10 ;" "; ZHN(4,3):i=14:j=13:N(i,j):j:i dHQ(6,4):i=16:j=14:Q(i,j):j:i n]n$(4,2):n$(1)="pa":n$(2)="bc":n$(3)="lg":n$(4)="gc" r$1100L:3900<:4000 s1600@:4850 tH3100 :4600:4800:2800 :4100:44000 u$4300:1900l:2000 v$4650*:3900<:4000 w3600:4700\ x 115s y 118v  player/martian check Cc=0:X<2X>16Y<1Y>30c=1: =i=13:X=M(i,1)Y=M(i,2)c=1 i:c=1 >i=124:P(i,1)=XP(i,2)=Yc=1 i:c=1 $ L place mines V%j=15:7:2 `Q18,0;C$;18,0;"POSITION FOR MINE ";j;" ?(eg k10)";:i$ j%i$<2űi$>31120` t;X=i$(1)-95_:X<2X>161120` u9i$(2)<480ůi$(2)>5791120` vi$(3)=" "1150~ wFi$=3i$(3)<480ůi$(3)>5791120` ~Y=i$(2):Y<7Y>1618,0;C$;18,0;"BETWEEN COLUMNS 7 AND 14 ONLY";:300,:1120` #1300:c=11190 #1500:c=11190 (X,Y)38&1190  1200 X18,0;C$;18,0;"ON CLEAR SQUARES ONLY";:500:1120` QH=H+1:6:4:T(H,1)=X:T(H,2)=Y:X,Y;151; j:  town check Ic=0:i=114:T(i,1)=XT(i,2)=Yc=1 (i: xplaer piece check Cc=0:i=124:X=P(i,1)Y=P(i,2)c=i i: initialise P(i,6) /i=124:P(i,6)=0:i:  mine check Jc=0:i=1519:X=T(i,1)Y=T(i,2)c=1 i: @players moves Jb7:2:.5,20:18,0;C$;18,0;"UNIT TO MOVE?";:i$ Ti$="fff"1450: ^%i$<2űi$>31610J h;X=i$(1)-95_:X<2X>161610J i9i$(2)<480ůi$(2)>5791610J ji$(3)=" "1650r kFi$=3i$(3)<480ůi$(3)>5791610J r3Y=i$(2):Y<1Y>301610J |s1400x:c=018,0;C$;18,0;"NO PIECE AT THIS LOCATION";:500:1610J |c1=c:P(c1,4)018,0;C$;18,0;"DISABLED UNIT UNABLE TO MOVE";:500:1610J t2600( :c=118,0;C$;18,0;"CAN'T MOVE-NEXT TO REDWEED";:500:1610J pP(c1,6)=118,0;C$;18,0;"UNIT HAS ALREADY MOVED";:500:1610J F18,0;C$;18,0;"OK USE CURSOR KEYS TO MOVE"; M=Q(P(c1,3),4) -T=0:X=P(c1,1):Y=P(c1,2) 5="e"P(c1,6)=1:M=0:1610J %"5"Ʀ"6"Ʀ"7"Ʀ"8"1700 ="5"Y=Y-1 ="6"X=X+1 ="7"X=X-1 ="8"Y=Y+1 $at=(X,Y):at38&1695 "1300:c=1T=1 RP(c1,5)=16:4:P(c1,1),P(c1,2);154 SP(c1,5)=06:4:P(c1,1),P(c1,2);153; P(c1,5)=T 1:P(c1,1)=X:P(c1,2)=Y:T:7:4:X,Y;(144+P(c1,3));:M=M-1:0:0 /1500:c=13500 :1820 2600( :c=1M=0:P(c1,6)=1:P(c1,4)=2:0:4:T:X,Y;(144+P(c1,3)):0:1610J .M0P(c1,6)=1:1610J 0 1695 :attacking units DKI=124:P(I,4)0P(I,6)=11880X I7:4 N((M(K,1)-P(I,1))+(M(K,2)-P(I,2)))Q(P(I,3),2)1:P(I,1),P(I,2);(144+P(I,3));:0 XI:2:7: lunitshave attacked vH7:4:I=124:P(I,4)01930 {$P(I,1)=100d1930 NP(I,5):P(I,1),P(I,2);(144+P(I,3));:0 I:2:7: martian movement K2:7:18,0;C$;18,0;"MARTIANS MOVE"; k=13 'M=M(k,9 ):M=02220 +X=M(k,1):Y=M(k,2):T=0 #(*20)=12080  7Y=Y+1:(X,Y)38&Y=Y-1:2080   2140\  #D=1:<.5D=-1 *+X=X+D:(X,Y)38&X=X-D:2120H > 2140\ H6X=X-D:(X,Y)38&X=X+D:M=0:2200 \"1300:c=1T=1 f 1500 pO6:4:M(k,7)=1M(k,1),M(k,2);154 zPM(k,7)=06:4:M(k,1),M(k,2);153; 0M(k,7)=T:M(k,1)=X:M(k,2)=Y P1,-60<:T:0:4:X,Y;144;:M=M-1:0 #c=12400` :2500 -M0M(k,8)=1:2220 2800 :2030 2800 :k: redweed check _cc=0:c=0:i=20(H+3):X=T(i,1)Y=T(i,2)c=1:cc=i i: `MINE EXPLODES_martian e1,-45- jA7:2:18,0;C$;:<.52480 tr=(*13 ) ~rr=1M(k,3)018,0;"pa DESTROYED";:M(k,3)=M(k,3)-1:2475 rr=2M(k,4)018,0;"bc DESTROYED";:M(k,4)=M(k,4)-1:2475 |r<6r>2M(k,5)018,0;"lg DESTROYED";:M(k,5)=M(k,5)-1:2475 }r<10 r>5M(k,6)018,0;"gc DESTROYED";:M(k,6)=M(k,6)-1:2475 hr>9 M(k,9 )=M(k,9 )-1:M=M-1:18,0;"mv DAMAGED";:2475 2480 B350^:2800 :2:7:18,0;C$;: M18,0;"MINE HAS NO EFFECT";:350^:18,0;C$;: mine delete `i=1519:X=T(i,1)Y=T(i,2)T(i,1)=0:T(i,2)=0 i: (next to redweed 2Vc=0:i=20(H+2):j=-112:c=12640P <,X=T(i,1)Y=T(i,2)+jc=1 F,X=T(i,1)+jY=T(i,2)c=1 Pj:i: martin status 0:5 l=13:(18+l),0;144;" ";(M(l,1)+95_);M(l,2);" pa";M(l,3);" bc";M(l,4);" lg";M(l,5);" gc";M(l,6);" mv";M(l,9 );:l  T input check ^1c=0:i$<2űi$>3c=1: h<X=i$(1)-95_:X<2X>16c=1: r:i$(2)<480ůi$(2)>579c=1: |i$(3)=" "2960 Gi$=3i$(3)<480ůi$(3)>579c=1: 2Y=i$(2):Y<1Y>30c=1  martian positions Bc=0:k=13:X=M(k,1)Y=M(k,2)c=k k: player attack &}A=0:D=0:2:7:.5,20:18,0;C$;18,0;"ATTACK MARTIAN AT?";:i$ 0i$="fff"1450: :#2900T :c=13110& D#3000 :c=03110& N[L=0:18,0;C$;18,0;"WHICH WEAPON (pa,bc,lg,gc or o)?";:j$ Xj$="o"3110& bj$="pa"L=2 lj$="bc"L=3 vj$="lg"L=4 j$="gc"L=5 L=03150N xK=c:M(K,L+1)=018,0;C$;18,0;"IT HAS'NT GOT ANY LEFT!!";:250:3150N 1850: <D=N(L-1,3):1300:c=1D=D*2 G18,0;C$;18,0;"ATTACKING UNIT?(or eee)";:i$ .i$="eee"3400H :1900l:3110& #2900T :c=13220 r1400x:c=018,0;C$;18,0;"No UNIT AT THIS LOCATION";:500:3220 |c1=c:P(c1,4)018,0;C$;18,0;"DISABLED UNIT-UNABLE TO FIRE";:500:3220 pP(c1,6)=118,0;C$;18,0;"UNIT HAS ALREADY FIRED";:500:3220 ˩((M(K,1)-P(c1,1))+(M(K,2)-P(c1,2)))>Q(P(c1,3),2)18,0;C$;18,0;"OUT OF RANGE!!";:300,:3220 G18,0;C$;18,0;"OK - press a key";:500 AA=A+Q(P(c1,3),1):P(c1,6)=1:3220 Hresolve player attacks R A=0 \ B=(A/D) fj(*7)>B1,1:18,0;C$;18,0;"NO EFFECT ON ";j$;:300,: pW1,-60<:18,0;C$;18,0;j$;" DESTROYED";:300, z3M(K,L+1)=M(K,L+1)-1:2800  player steps on mine 1,-45-  <.5 2:7:18,0;C$;18,0;"UNIT DISABLED BY MINE";:f=1250:f:M=0:P(c1,6)=1:0:4:P(c1,1),P(c1,2);(144+P(c1,3));:P(c1,4)=2  martian attack &k=13:w=36 2:7:18,0;C$;18,0;144;" ";(M(k,1)+95_);M(k,2);"......THINKING"; $M(k,w)03660L .Ps=1:f=2:g=0:3750:c03800:3660L 8/3700t:c03800:3660L BQs=1:f=24:g=1:3750:c03800:3660L GEs=1:f=24:g=0:3750:c03800 Lw:k: tdisabled unit check ~c=0:b=124:((M(k,1)-P(b,1))+(M(k,2)-P(b,2)))N(w-2,2)P(b,4)0c=b b: suitable target check Rc=0:b=sf:r1=((M(k,1)-P(b,1))+(M(k,2)-P(b,2))) g=03790 Er1N(w-2,2)r1Q(P(b,3),2)c=b:3795 r1N(w-2,2)c=b b: resolvemartian conbat 1:0:7:18,0;C$;18,0;144;" ";(95_+M(k,1));M(k,2);" ATTACKING ";(144+P(c,3));" ";(95_+P(c,1));P(c,2);" WITH ";n$(w-2);:0 Bz=130:0.05|L,502:0.05|L,-502:z )2:7:18,0;C$; NA=M(k,w)*N(w-2,1):D=Q(P(c,3),3):D=D+D*P(c,5) s2:7:r=(*7):r>(A/D)+218,0;"NO EFFECT";:1,502:200:  r>(A/D)P(c,4)=018,0;"UNIT DISABLED";:1,-45-:P(c,4)=2:0:4:P(c,5):P(c,1),P(c,2);(144+P(c,3));:200:0: %18,0;"UNIT DESTROYED"; be=0.0125zL:be,4:be,6:be,8:be,10 :be,12 :be,14:be,16:be,4:be,6:be,8 96:4:P(c,1),P(c,2);153 (GP(c,5)=16:P(c,1),P(c,2);154; 2;P(c,1)=100d:P(c,2)=100d:200 7 <place triffid AH45-3980 F2X=(*16)+2:Y=(*25)+5 P#1000:C=13910F Z#1300:C=13910F d#2300:C=13910F n#1500:C=13910F x-H=H+1:T(H,1)=X:T(H,2)=Y $2:4:X,Y;152; 2:7:18,0;C$;18,0;"REDWEED APPEARS AT ";(T(H,1)+95_);T(H,2);:100d  unit disabled by redweed gC=0:i=124:j=-112:X=P(i,1)Y=P(i,2)+jC=1 ,X=P(i,1)+jY=P(i,2)C=1 ȌC=1P(i,5):0:4:P(i,1),P(i,2);(144+P(i,3));:0:P(i,4)=2:C=0 j:i: attacks on redweed g2:7:.5,20:18,0;C$;18,0;"ATTACK REDWEED AT?";:i$  i$="fff" "#2900T :c=14110 'u2300:c=018,0;C$;18,0;"NO REDWEED AT THIS LOCATION";:300,:4110 ,c1=cc 6N18,0;C$;18,0;149;" TO ATTACK REDWEED?";:i$ @i$="fff"4110 J#2900T :c=141506 TBc=0:i=34:X=P(i,1)Y=P(i,2)c=i ^si:c=018,0;C$;18,0;"NO ";149;" AT THIS LOCATION";:300,:41506 cP(c,4)0P(c,6)=118,0;C$;18,0;"UNIT UNABLE TO FIRE";:300,:4110 h((X-T(c1,1))+(Y-T(c1,2)))>218,0;C$;18,0;"OUT OF RANGE!!";:300,:41506 rP(c,4)=1:<.518,0;C$;18,0;"NO EFFECT";:.5,20:300,:4110 |18,0;C$;18,0;"REDWEED DESTROYED";:1,-502:6:4:T(c1,1),T(c1,2);153;:T(c1,1)=0:T(c1,2)=0:300,:4110 disabled check Mi=124:P(i,1)=100dP(i,4)=04350 9P(i,4)0P(i,4)=P(i,4)-1 i: /disabled by redweed 0Z2:7:18,0;C$;18,0;"PLEASE WAIT....WON'T BE LONG"; 5Xl=124:X=P(l,1):Y=P(l,2):P(l,1)=100d4420D :-2600( :c=1P(l,4)=2 Dl: difficulty level Di=13:M(i,9 )=3+((dd-1)/5):i (d=dd-5*(((dd-1)/5)) i=13 cd=1M(i,3)=0:M(i,4)=0:M(i,5)=2:M(i,6)=3 cd=2M(i,3)=1:M(i,4)=0:M(i,5)=2:M(i,6)=4 cd=3M(i,3)=1:M(i,4)=1:M(i,5)=3:M(i,6)=4 cd=4M(i,3)=2:M(i,4)=1:M(i,5)=3:M(i,6)=5 cd=5M(i,3)=2:M(i,4)=2:M(i,5)=4:M(i,6)=5 i:  player won? Nc=0:i=13:j=36:M(i,j)=0c=c+1  j:i:c=12 0:7:1:18,0;C$;18,0;"***CONGRATULATIONS YOU WIN***";:0:300,:W=1:85004!  *reached London? 4@c=0:i=13:M(i,2)=30c=1 >i:c=10:7:1:18,0;C$;18,0;"**SORRY-YOU LOSE COMMANDER**";:0:300,:W=0:85004! H \all player units dead? fDc=0:i=124:P(i,1)=100dc=c+1 pi:c=240:7:1:18,0;C$;18,0;"**SORRY-YOU LOSE COMMANDER**";:300,:0:W=0:85004! z martian move reduced? `k=13:c=0:i=36:c=c+M(k,i):i:cM(k,9 )M(k,9 )=c k: change pieces after move Mi=124:P(i,1)=100dP(i,4)04880 `7:P(i,5):4:P(i,1),P(i,2);(144+P(i,3));:0 i: 0,93],119w,119w,93],93],73I,73I,0,32 ,16,12 ,7,13 ,28,127,0,28,28,8,28,42*,8,28,0,0,0,0,4,5,127,34" 0,0,4,126~,15,62>,85U,62>,0,0,28,4,15,579,127,513,0,0,0,3,127,6,127,63?,0,0,0,0,28,62>,127,0 0,12 ,8,108l,72H,107k,74J,74J,0,0,0,8,8,0,0,0,0,127,65A,93],93],93],65A,127 231,66B,90Z,255,153,255,102f,60<,24,60<,255,255,189,153,153,153 Y"00000000","01011101","01110111","01110111","01011101","01011101","01001001","01001001" 2,16,3,10 ,5,12 ,5,20,5,25,5,26,6,19,8,25,10 ,7,11 ,16,12 ,22,13 ,16,14,24,16,11 06,13 ,1,10 ,16,1,4,17,5,14,19,5,8,26,4,9 ,9 ,4,12 ,26,4,13 ,12 ,4,7,17,3,4,13 ,3,9 ,13 ,3,10 ,9 ,3 213 ,18,3,3,24,6,5,9 ,6,9 ,20,6,15,11 ,6,5,14,2,5,22,2,6,23,2,10 ,17,2,11 ,20,2,12 ,20,2,12 ,21,2 Ē6,1,1,1,3,4,9 ,1,1,1,3,4,12 ,1,1,1,3,4 a3,6,2,3,3,3,2,2,2,1,1,1 5,5,1,1,3,1,2,2,3,1,2,4,4,3,4,3,1,2,3,3,3,3,3,4 @5::title page Ama$(8):4:4:C$=" ":i=1621:i,0;C$:i BXd$="":i=031:d$=d$+152:i:0:4:15,0;d$ Jb0:2:i=18:a$:j=18:a$(j)="1"i+6,j+5;""; Tj:i UN0:7:9 ,10 ;155;10 ,10 ;156 VX7:2::10 ,8;"o";10 ,12 ;"o";12 ,10 ;"X" W[2:5:11 ,17;"";:5:2:"";:2:5:"" XN12 ,17;"";:1:"";:0:"";:1:"":0 Y713 ,17;"";:1:"";:0:"" Z714,17;" ";:1:"";:0:"" [14,26;144 \R1:6:5:i=115:220,120x,i:i:0 ^A1:0:7:2,12 ;"REDWEED":0 hw0:4:i=120:c=(*5)+16:d=(*32 ):e=(*7)+145:c,d;e;:i m7:1:X=68D:X1=100d:Y=88X:i=110 :0.05|L,-20:0.05|L,-30:0.05|L,-40(:r=(*X/2)+1:X,Y:-r,-64@:10 :0,0:X,Y:-r,-64@:0.05|L,-20:0.05|L,-30:0.05|L,-40(:0,0:X1,Y:r,-64@:10 :0,0:X1,Y:r,-64@:0,0:0 n=0:4:15,0;d$:1:7:i o 0 q 1 rs$="SAVE LONDON AT ALL COSTS":7:1:4,3;"";:i=124:.25~,502:s$(i);:.25~,-502:i s 0 |"" 5,-502:: !4 the end !>5:1: !Hn=11 21 !R84;n,0;" " !\n !f6:6 !p.i=115:200,150,i:i !z0:7 ! x=-70F !n=185255 !1n=185n=231n=2298610! ! n,0 ! x,86V ! x=x-1 !n !10 ,5;""; ! 5 !i=120 !c=132+(*12 ) !%c=134c=1378625! !c;:i ! W=1a$="halted" !W=0a$="proceeds" !W=1b$="SAVED" !W=0b$="DOOMED" !c=144+W*2 !9 -W*2:4 !Ei=120:x=(*11 )+11 :y=(*x):x,y;c;:i !_2:7:6,3+W;"Martian advance ";a$;8,7+W;"LONDON IS ";b$    a 01011101C JD J