`L?- `6X~m:\[ # U@@@B@~@HHJNBP AD!p@ # 0  0@@ |bUGV _  @ē(   ||~<~B<d@B@~@HHJNBPT 0 @D  @ !` cbV q ?t@ `B  l@<h P@ A  " Y((@Á`p1Z B^ "#P"l@<p@@BNQ;@P >HB`8 $(aH!R$ x|H)  ( ! @"$@(? @@I0B@@aeB@ $ $c("I$ H  )@  |  ! $$@(/0<ۿ@`@ B}@@Pýÿ}(B8 $۽("I$ Q @ &@  BD5@@ L@H(@# ۿ@> I E@@?^ýÿ}CA ۽!$E$ bR@%D@@ |( @@ @@xH(@ .Á災@ !7y,:y@ @@^@@ $>ý罁!D $ dD@@ @ B4?@ @  `Á災@0 ' K@ @@b H( @ $ ý罁|D  H$@< @ B?@ P @  @h@ O0HxH@A H)@@`F$ H> 0 @@ |x@H$ @  }A` &5.HBHF ( (  @f$| ǀ)&? @ `@!  $@($ ` @  $(@@ `%>P|@~xB<|x$0` &/<$y<0?@@DBBBD$ѓ(@ ' <8B C @|B%&8 / `?0@   `@BB~|B$:7( ` <N`@DZBDD$"0BxP `~x$BBx$!`x0 p<0` `$̀x<?`!/(/(/(/(/(0/(((/(///(////( ?//// ( * (0((00 :' (0(((0 :"&& 00 00 ?' 00 00 :" 00 000 &&&&?:?'' 0 & " 0& 0& 0& & 0 & &&0 & & & _&@ # # <@T`\\\b\b\ GAX![!@P!!88JW K SRP seventh ""49900 "" 040885 0:200  10 $*"m";1;"sevbyte"49900 Ap$(9 ):f(12 ):l(12 ):t(12 ):u(12 ) z=112 (57680P+z),146 (57692\+z),8 <f(z)=502:l(z)=146:t(z)=524:u(z)=8 (z -bat=0:y$="y" 2'w(15):x(15):y(15) <z=115 FGw(z)=0:x(z)=9 +(*12 ):y(z)=40(-(*20) Pz Z'i(40():m(40():n(40() dz=140( nKi(z)=100d:m(z)=3+(*40():n(z)=110n-(*100d) s(57600+z),n(z) v(57640(+z),m(z) xz v(4) Cqu=0:j=0:d=1:r=8:s=0:k=0 #d$="TuesWed ThurFri Sat Sun Mon " It$="Smith ChurchJones ThomasWilsonBrown Leigh James Casey Reed Miles " l$="ABCDEFGHJKLMN" ,"a"+0,0 -"a"+1,0100 ."a"+2,00101000( /"a"+3,00010000 0"a"+4,001110008 1"a"+5,0100| 2"a"+6,010~ 3"a"+7,0 6"d"+0,0110` 7"d"+1,01000100D 8"d"+2,01000110F 9"d"+3,0101A :"d"+4,0010001 ;"d"+5,10010000 <"d"+6,00010011 ="d"+7,00010100 =""900 4:4:0: 7,2;"PRESS :";8,2;"1: Play a NEW GAME";9 ,2;"2: Continue an old CAMPAIGN";10 ,2;"3: COPY PROGRAM to M/Drive 1" ="1"1910v ="2"1100L ="3"1400x  1020 L15,2;"PRESS :";16,2;"t: For TAPE";17,2;"m: For M/Drive 1";18,2;"s: To START GAME" V="t"1200 `="m"1300 e="s"1910v j 1110V  "s1"p$()  "s12"v() d=v(1) r=v(2) s=v(3) k=v(4) "sdata"57600,250  "sdata2"49700$,200 z=112 l(z)=(57680P+z) u(z)=(57692\+z) t(z)=(497153+z) f(z)=(49699#+z) z z=115 w(z)=(49730B+z) x(z)=(49747S+z) y(z)=(49765e+z) z z=140( i(z)=(49782v+z) m(z)=(57640(+z) n(z)=(57600+z) z  2000 4;"m";1;"sevdata" z=112 #4;f(z) #4;l(z) #4;t(z) #4;u(z) z z=115 #4;w(z)  #4;x(z) !#4;y(z) "z (z=140( >#4;i(z) ?#4;m(z) @#4;n(z) Az B #4;d C #4;r D #4;s E #4;k Fz=19 G#4;p$(z) Hz K 4 L,*"m";1;"sdata"57600,250 P 2000 x *"m";1;"seventh"7 0*"m";1;"sevbyte"49900,15100: vQ:6,7;"Enter your SURNAME";8,6;"Maximum of 9 Letters" p$(19 )  q6:1:0,0;"";1;6;"SEVENTH CAVALRY";6;1;"" z=115  z,0;"";z,31;"" z 616,0;""  4 a=112 comm=0 ?21,0;4;" " t(a)=02400` (comm=1comm=0:2400`  z5=0 !o=u(a)-7:p=l(a)-15 o<1o=1 p<1p=1 p>121yp=121y o>31o=31 7:0 617,0;"Map Shown:^ to : " &o<10 17,12 ;" ";o "o10 17,12 ;o 'p<100d17,18;p;" " #p100d17,18;p 817,22;d$((d*4-3)(d*4)) &r<10 17,27;" ";r "r10 17,27;r $s=017,30;"00" !s>017,30;s +r<6r>210:2300  4 K18,0;"Troop: ";2;7;"Commanded by: " 18,7;l$(a) Ea=118,23;2;7;p$(19 ) ^a>118,23;2;7;t$((a*6)-11 (a*6)-6) bat=15000 bat=2bat=0: f(a)<10 6000p ) 8490*! +g$="n" 8y$="y"5000 =h=19 B!="m"comm=1:3000 D!="r"comm=1:3500 F="s"4200h H="l"4500 I="p"4000 Jh K 9000(# L 2365= ` y$="y":a jg$="n" s=s+15 s=60<r=r+1 s=60<s=0 r=25d=d+1 r=25r=1 d=82900T t(1)+t(2)+t(3)+t(4)+t(5)+t(6)+t(7)+t(8)+t(9 )+t(10 )+t(11 )+t(12 )<17360 w(1)+w(2)+w(3)+w(4)+w(5)+w(6)+w(7)+w(8)+w(9 )+w(10 )+w(11 )+w(12 )+w(13 )+w(14)+w(15)307500L $qu=1qu=0:2200 2200 57600,a chk=1 49950 257705i>0b=57705i:7900 " ,57600,z - chk=2 .49900 0257705i>0b=57705i:7900 6 T<5,6;2;7;"YOUR FOOD HAS RUN OUT" ^ e=0 cb=115 hx(b)=2e=e+1 rb |+7,9 ;"CAMPS LEFT ";15-e &9 ,7;"VICTORS - INDIANS" &11 ,8;"Play Again (Y/N)" ="y"10 ="n" 2970 30 "r<6r>213060 20,0;2;7;"C";6;0;"harge ";2;7;"G";6;0;"allop ";2;7;"T";6;0;"rot ";2;7;"W";6;0;"alk " 1="c"e=4:f(a)=f(a)-3:3100 1="g"e=3:f(a)=f(a)-2:3100 1="t"e=2:f(a)=f(a)-1:3100 ="w"e=1:3100 3020 H20,0;0;7;"Movement at NIGHT is at a WALK " 502 =""3065 e=1:f(a)=f(a)-3 20,0;2;7;"1";6;0;"North ";2;7;"2";6;0;"N/East ";2;7;"3";6;0;"East ";2;7;"4";6;0;"S/East " &21,0;2;7;"5";6;0;"South ";2;7;"6";6;0;"S/West ";2;7;"7";6;0;"West ";2;7;"8";6;0;"N/West " 0 ="1"u(a)=u(a)-e:3200 :-="2"u(a)=u(a)-e:l(a)=l(a)+e:3200 D ="3"l(a)=l(a)+e:3200 N-="4"u(a)=u(a)+e:l(a)=l(a)+e:3200 X ="5"u(a)=u(a)+e:3200 b-="6"u(a)=u(a)+e:l(a)=l(a)-e:3200 l ="7"l(a)=l(a)-e:3200 v-="8"u(a)=u(a)-e:l(a)=l(a)-e:3200 { 31200 l(a)>151l(a)=151 l(a)<2l(a)=2 u(a)>46.u(a)=46. u(a)<2u(a)=2 (57680P+a),l(a) (57692\+a),u(a) %q=49999O+(u(a)*150)+l(a) q>1f(a)=f(a)-2 c=115 x(c)=u(a)3235 3240 =y(c)=l(a)w(c)=2:t(a)=t(a)-(*3):2400` c 2760 2400` Sa=120,0;2;7;"Do you want all Troops to REST " a>13530 ="n"3530 ="y"3522 3510 "r<6r>21qu=1 'c=112 :f(c)=f(c)+2 f(c)>502f(c)=502 c 2450 f(a)=f(a)+2 f(a)>502f(a)=502 H20,0;2;7;" The MEN are RESTING " 2760 2400` c=0:e=0 b=112  c=c+t(b) b b=140(  e=e+i(b) b 419,0;" PRESS k to SAVE THIS GAME " F20,0;6;0;"Score: Camps Levelled " F21,0;6;0;"Indians Dead- Men Left- " !21,14;4000-e 21,28;" " 21,28;c &e=(624p-c)*5-e:c=0 b=115 w(b)=2c=c+1 b 20,29;c e=e+((15-c)*100d)  7400 ="k"7000X =""4098 c=157500L 58950F  2205 h58900 ri6:1:1,4;"";1;6;"STATUS";6;1;"" w?2,4;6;1;"Troop Men Fit N/S W/E " |b=314 9b,4;6;1;" " "t(b-2)14250 ,b,7;6;1;l$(b-2) ,b,11 ;6;1;t(b-2) ,b,15;6;1;f(b-2) ,b,19;6;1;u(b-2) ,b,23;6;1;l(b-2) b .15,4;"" =""4300 58950F  2205 58900 20,0;1;7;"5";6;0;"Left ";1;7;"6";6;0;"Down ";1;7;"7";6;0;"Up ";1;7;"8";6;0;"Right ";1;7;"F";6;0;"inish " 621,0;"Map Shown:^ to " o<1o=1 p<1p=1 p>121yp=121y o>31o=31 y$="n":g$="l" &o<10 21,12 ;" ";o "o10 21,12 ;o 'p<100d21,18;p;" " #p100d21,18;p  5000  ="5"p=p-1:4510  ="8"p=p+1:4510  ="6"o=o+1:4510  ="7"o=o-1:4510  1="f"g$="y":y$="n":58950F:2205 * 4600 g=49849+(o*150)+p e=j g2=(g/256) g1=g-(g2*256) y$="n" 60000`,g1 60001a,g2 60002b j=e g$="l"4600 h=112 #t(h)=05200P (,l(h)-p>30l(h)-p<15200P 2,u(h)-o>15u(h)-o<15200P <(u(h)-o,l(h)-p;6;1;l$(h) Ph Zh=140( _i(h)=05250 d,n(h)-p>30n(h)-p<15250 n,m(h)-o>15m(h)-o<15250 x&m(h)-o,n(h)-p;7;2;"I" h h=115 ,y(h)-p>30y(h)-p<15350 ,x(h)-o>15x(h)-o<15350 4w(h)=0x(h)-o,y(h)-p;6;4;"" 4w(h)=2x(h)-o,y(h)-p;0;4;"" h &bat=1bat=2:8435 "a<1a>12 2245 ,u(a)-o<1u(a)-o>152245 ,l(a)-p<1l(a)-p>302245 1u(a)-o,l(a)-p;6;1;1;l$(a)  2245 pf(a)<26100 z'21,7;"THE MEN ARE WEARY" 450:2335 '21,7;"THE MEN MUST REST" 500:3500 X620,0;"Press t for TAPE " b621,0;"Press m for MICRO-DRIVE 1 " l="t"7080 v="m"7200   7020l v(1)=d v(2)=r v(3)=s v(4)=k z=140( (49782v+z),i(z) z z=112 (49699#+z),f(z) (497153+z),t(z) z z=115 (49730B+z),w(z) (49747S+z),x(z) (49765e+z),y(z) z  "s1"p$()  "s12"v() "sdata"57600,250  "sdata2"49700$,200  2205  4;"m";1;"sevdata" "z=112 ##4;f(z) $#4;l(z) %#4;t(z) &#4;u(z) /z 4z=115 >#4;w(z) ?#4;x(z) @#4;y(z) Cz Hz=140( I#4;i(z) J#4;m(z) K#4;n(z) Lz R #4;d S #4;r T #4;s U #4;k Wz=19 Y#4;p$(z) \z  4 ,*"m";1;"sdata"57600,250  2205 65,4;2;7;"THE VICTORS ARE" .9 ,4;2;7;"INDIANS"  7530j 58900 65,4;2;7;"CURRENT LEADERS" =e-3000 9 ,4;1;6;"CAVALRY" =e>-3000 9 ,4;2;7;"INDIANS"  LA5,4;2;7;"ALL INDIAN CAMPS DESTROYED" VDe>07,4;2;7;"INDECISIVE VICTORY" `Ee07,6;2;7;"SUBSTANTIAL VICTORY" j912 ,7;2;7;"Play Again? (Y/N)" t="y"10 ~ ="n"  7540t 'chk=1teb=b:tea=a:a=b:b=tea chk=2tea=a:a=z @%e=49999O+(m(a)*150)+n(a) J%c=49999O+(u(b)*150)+l(b) Te=e ^c=c h z2=0 re>1z2=1 wc>1z2=z2+2 |c=1:e=1 z2=1e=e*2 z2=2c=c*2 t(b)=t(b)-(*5) t(b)<18090 $t(b)=t(b)-((i(a)/t(b)*e)*2) i(a)=i(a)-(*75K) i(a)<18100 $i(a)=i(a)-((t(b)/i(a)*c)*2) Gt(b)<1t(b)=0:l(b)=250:(57680P+b),250 Gi(a)<1i(a)=0:n(b)=250:(57640(+a),250 >20,0;" BATTLE for Troop ";l$(b);" " 621,0;" " 821,0;" Number of Men left in Troop-";t(b) y$="n":8600! 8445 bat=1:58900 a=b:2230 /m(z)-o,n(z)-p;1;7;2;"I" 9200# 58950F jump=1 jump=jump+1 jump<80P8446 ! 8490*! !chk=1a=tea:b=teb ! chk=2a=tea ! 2210 !: !* 6 !+619,0;" " !.?21,0;4;" " !420,0;1;7;"M";6;0;"ove ";1;7;"R";6;0;"est ";1;7;"S";6;0;"tatus ";1;7;"L";6;0;"ook ";1;7;"P";6;0;"osition " !> !"m(z)-o>15m(z)-o<1 !"n(z)-p>30n(z)-p<1 ! y$="y": "`"m(z)-o>15m(z)-o<1 "j"n(z)-p>30n(z)-p<1 "t&m(z)-o,n(z)-p;7;4;"" "~ ""m(z)-o>15m(z)-o<1 ""n(z)-p>30n(z)-p<1 "&m(z)-o,n(z)-p;7;2;"I" " #(r<6r>21 #-%z=((a*3)-2)(a*3) #0t(a)=09090# #1 8800`" #2l(a)>n(z)n(z)=n(z)+1 #7l(a)255n(z)=200 #:(57600+z),n(z) #<u(a)m(z)m(z)=m(z)+1 #B-m(z)<0m(z)>255m(z)=200 #C(57640(+z),m(z) #D 8900" #Ei(z)>02860, #Fz #Z # 8800`" ##146>n(z)n(z)=n(z)+1 ##146m(z)m(z)=m(z)+1 #(57640(+z),m(z) # 8900" # 2860, # 9030F# #c=140( #(57600+c),n(c) #(57640(+c),m(c) #c #c=115 $(57680P+c),l(c) $(57692\+c),u(c) $c $  )(dajdrsk omopyge< = c|Gnh  ? 222222222222? ? 444444444444? YyNLN    N'%&'(%%'(dddddddddddddddddddddddddddddddddddddddd("* %! %)'**   ( (*(\D)-S;/GJ(%4\,eiJW,e-cag*Oh"G/UDTuesWed ThurFri Sat Sun Mon TBSmith ChurchJones ThomasWilsonBrown Leigh James Casey Reed Miles L ABCDEFGHJKLMN"" ˴bV!{6#6!6Q#6!6 !6(#6!6\#6k !{6P#6!6#6!6)!6\#6!6(#6k                                                                     %  !                #      #        $       $    8  )  =    ?      F      C     E     / * 0 "    "    !          "          (   (   '                            +)      )'  ('   '%                                 $\D)-S;/GJ(%4\,eiJW,e-cag*Oh"G/U"* %! %)'**   ( (* !NQ!i6#6! B^!Q~W~~ #> …&!(xo^!\yoV~Ø!iq#p1 1$$$%%$ $$ $ $$ 11$$%%% $ $$ $ $ $$ $11 %%%$ $ $ $$ 11%%%$ $$ $$$$11 $ $$ $11$ $11$"""$$11$"$$$" $ $$$$11$""""$11$11$""$11$$$$%%%"$""$11$$$%%%%"$$$"$11%$%$"$$$"$11% $" $"$1!|6#6@##6H#6!6#6X##6#6x!|6H#6##6#6@!6#6##6#6XxH!@w# >x!Xw# >x– !`N#F!!X  6$ 6  6" 6" 6" 6" 6  6  6 6%#>o##!x >o!`N#F!!@  6$6$6$6$6$6$6$6ý 6$6$68$6T$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6~$6$6~$6$6~$6ý 6$6*$6*$6*$6*$6*$6*$6ý 6$6H$6$$6$6H$6$$6$6ý 6$6$6$$6H$6$6$$6H$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$66$6$6$6$6$6$6ý 6$6$6$6$6$6?$6$6ý 6$6$6?$6$6$6$6$6ý 6$6$6?$6$6$6$6$6ý 6$6$6$6$6$6?$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6I$6I$6$6$6$6$6ý 6$6$$6$$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý 6$6$6$6$6$6$6$6ý%%#>##!x > !H>_ <~B~BB<(8|~|B|BB|>BB<DHpHDB@~BfZBBBBbRJFB