JR 8 $ :  4:4:0  710 ,2;1;"Do not stop the tape yet"  150: +z=08*6:x:"a"+z,x:z ( a(25) 27,4;0;0;" ";8,4;" ";9 ,4;" " 7%z=125:a(z)=9 :z < x=14 Aib$=" >> >>>><<>>>>><>>>>><>> <><<< <<<<<><<<<<><<<><<<<>><<< ><< <<<> > <<<<>><< >>>>>>>>>>>>>>>>>>>>" F 2000:z=1̱b$ Px=x+(b$(z)=">")-(b$(z)="<") Z18,x-1;" " da(x-3)>616,x;"*";16,x;" ":.06|u\,-10 :c=17a(x-3)-1:c,x;1;"";c,x;0;4;1;"":c i)a(x-3)>6.02{# =,8 n#a(x-3)=a(x-3)-1 xz 00111100<,00011000,00011000,00011000,10011001,11011011,11011011,10011001,0,0,11000,111100<,111100<,1110008,0,0 00111101=,11110,1111,1111,1,111,1111,10011,01100000`,10111000,01110100t,10111010,01110101u,11111010,11110101,255 H111,1111,0,0,0,0,0,0 d11001111,11000101,11000010,101,110,10,10,1 10,0,0,0,0,0 L.2~L,4:.2~L,2:.4L,-5:.4L,-5:.2~L,-5:.2~L,-3:.2~L,-1:.2~L,0:.4L,2:.4L,2:.4L,2 M.4L,-1:.4L,4:.4L,4:.73333,4:.2~L,2:.6,4:.2~L,2:.2~L,4:.2~L,6:.2~L,7:.2~L,9 :1.1 ,11 :.2~L,7:.2~L,2:1.1 ,7:.2~L,2:.2~L,-1:1.1 ,2:.2~L,-3:.2~L,-1:1.3&fff,-5 18,8;" " G15,3;" 1983 M.C. Lothlorien ";16,26;"" S17,0;"Please read the written notes enclosed in the cassette case" "" bFx  Bb >> >>>><<>>>>><>>>>><>> <><<< <<<<<><<<<<><<<><<<<>><<< ><< <<<> > <<<<>><< >>>>>>>>>>>>>>>>>>>> dJR x^]z^C:0:0:i=9996 ':236099\,502:100d  """a"  <a(x,y)=x(x,y)ƫ(y,x)=38&ū(y,x)=41) >x(x,y)=x>0x<32 y0y<20 1b(x ,y )=y=10 xbpxm 9f(y,x)=(y,x)-((y,x)/128)*128 821,0;" ": fy,2;1;2;6;"";10 ,30;"":c=1ntp:p(c,4)>0p(c,2),p(c,1);p(c,4);0;0;p(c,3) c oc=1ntc:c(c,4)>0c(c,2),c(c,1);c(c,4);0;7;c(c,3) c cc=bpbp+3:(10 ,c)=38&ū(10 ,c)=41)10 ,c;1;5;"" c  10 :150 *21,0;0;4;0;" ";21,0;2;"";0;4;" ammunition ";am;21,15;" ":players=221,16;7;2;"";4;0;" ammunition ";am2:20,0; "0,0; $ 2ax2=e(w,2-(c(a,7)>0)):y2=e(w,1+(c(a,7)>0)):a(x+x2,y+y2) < w=0: F;x=0:y=0:a=1ntc+((ntp-ntc)(ntp>ntc)) Gantcx=x+c(a,4) Hantpy=y+p(a,4) Ia Jx0f=0 Ky0pf=0 L"f=0pf=08000@ M c&p(nx\)=n+256*(n+1) d 8800`" i 70F m0a=1ntp:p(a,4)<1295' nDp(a,2),p(a,1);1;1;8;8;" " s.06|u\,-10 :.04|# =,6:q$="Your move plr 1 (max "+p(a,4)+")":8730":f$=a$:3000 :xf115s xi32 :vc=0:f$=""p(a,2),p(a,1);0;p(a,4);1;;" ":290" }Xvc=1:am>0f$(1)="f"(p(a,3))=""f$=f$(2):190 f$(1)="f"((p(a,3))""am0)9 :21,0;0;("That is not a gun"am>0);("You have no more ammunition"am0):30:115s f$(1)"m"260 Jd$=f$(2(f$-1)):d=f$(f$):d>p(a,4)d=p(a,4) p(a,2),p(a,1);6;4;1;p(a,3):18:z=1d:y=p(a,2):x=p(a,1):180 -.01z# =,(p(a,3)-145)*10 (y,x)>100dx=221,0;0;1;"You have reached the enemy flag ":f=f-1:p(a,4)=0:p(a,2),p(a,1);" ":30:f<18000@ !p(a,4)<1295' at=(p(a,2),p(a,1)):p(a,2),p(a,1);0;1;p(a,4);p(a,3):èa(x,y)21,0;0;"That is as far as you can go ":30:290" \p(a,2),p(a,1);ں(at/8);at-(at/8)*8;1;p(a,3) Np(a,1)=x:p(a,2)=y:z:y,x;p(a,4);0;p(a,3) 290" d$y=y-(d$(1)="n")+(d$(1)="s"):x=x+(d$(1)="e")-(d$(1)="w"):d$=2x=x+(d$(2)="e")-(d$(2)="w")  Jf$(f$-1)<"a"h=f$(f$-1):d$=f$(̱f$-2):200 !h=f$(f$):d$=f$(̱f$-1) Nx=p(a,1):am=am-1:y=p(a,2):am=0amc=(*20) 7z=1h:180:èx(x,y)10 :290" Ήat=(y,x):y,x;0;8;1;"O":10 :y,x;(at-8*((at/8)));8;1;"O":.003xD,30 èx(x,y)10 :290" z Ox1=x:y1=y:x=-11:y=-11:èx(x+x1,y+y1)235 gat=(y1+y,x1+x):w=12:y1+y,x1+x;8;8;1;"*":.01z# =,-20:w $at38&at41)240 y:x:290" ?z=1ntc:c(z,1)=x+x1c(z,2)=y+y1250 z: vc=1:c(z,4)=c(z,4)-1:n=1:ne=1:21,0;0;p$;" hit ";c$:h=10 -10 -1:.04|# =,h:h:10 :100d:32 :c(z,4)<1c(z,2),c(z,1);6;4;" ":30: vc=1 f$="a"a0p(a,2),p(a,1);p(a,4);0;p(a,3) 'a ,*am=am+(>.73333):am2=am2+(>.73333) 1players=26000p 6 10 bp-1,10  2,fy 30,10 1p(c(a,6),1),p(c(a,6),2) +a=1ntp:p(a,1)bp450 ?z=1ntc:c(z,6)=ac(z,4)>0450 ec(z,6)>0p(c(z,6),4)0c(z,6)=0:c(z,5)=420 z:d2=0:d1=100d sz=1ntc:c(z,6)0(c(z,5)420c(z,5)0)c(z,4)<1445 cds=(p(a,1)-c(z,1)):(p(a,2)-c(z,2))>dsds=(p(a,2)-c(z,2)) Ed1>(ds/c(z,4))c(z,6)=0d1=ds/c(z,4):d2=z 1z:d2c(d2,5)=430:c(d2,6)=a a Ua=1ntc:c(a,2)=10 c(a,5)=410c(a,5)=425 !c(a,5)0480 ֍c(a,6)=0:ra=(*200):c(a,5)=(410ra<502)+(420ra130ra502)+(425ra>130) 0(>.8Lc(a,5)425)460 a 1a=1ntc:c(a,4)<11360P Ic(a,2),c(a,1);1;7;c(a,4);1;" " c(a,5) x1,y1  x=c(a,1):y=c(a,2) <c(a,3)=""èb(x,y)85004!:d$""1360P $$qf=0:z=1c(a,4) .?c(a,8)ƫ(y,x+1)=37%c(a,5)=425(a(x+4,y)Ũa(x+5,y))x2=4+èa(x+4,y):c(a,4)=c(a,4)-b(y+1):y2=0:c(a,8)=3:z=999:0;21,0;("The unit has been drowned "c(a,4)<1):502:1280 8x2=(x1-x):y2=(y1-y) B(y=10 y+y2=10 )(x=30x+x2=30)21,0;0;"The enemy has reached the flag":30:pf=pf-1:c(a,4)=0:c(a,2),c(a,1);" ":pf=08000@ Le(x=x1x+x2=x1)(y=y1y+y2=y1)c(a,5)=c(a,5)ƫ(y1,x1)>63?:z=999:1340< Vc(a,8)1240 `a(x+x2,y+y2)1280 j$a(x+x2,y)y2=0:1280 t$a(x,y+y2)x2=0:1280 ~Js=(.5-):c(a,8)=1:c(a,7)=1+(*4) w=s-s2*-s da(x,y+w)c(a,7)=2+w:w=99c*-s:c(a,7)=1x1>xc(a,7)=-2 w:w99c1230 w=s-s2*-s 2a(x+w,y)c(a,7)=3+w:w=99c*-s w 2y1>yc(a,7)=4c(a,7)=-3 qf=-1:1250 ww=r(c(a,7),4):502:wc(a,8)=c(a,8)+1:c(a,7)=w*c(a,7):1280 *w=c(a,7):502:w1280 =qf>0z=999:x2=0:y2=0:1280 qf=qf+1:c(a,8)=c(a,8)-.5:w=r(r(c(a,7),4),4):c(a,7)=w*c(a,7):1070. I.01z# =,(c(a,3)-159)*7:y,x;1;c(a,3)  @b(x,y)x2=-(x1-x)x2=0:c(a,8)=x2:z=99c Dc(a,8)>2.5 c(a,8)=0:c(a,7)=0 :x=x+x2:y=y+y2:c(a,1)=x:c(a,2)=y:18 (Jc(a,4)>0y,x;0;c(a,4);7;c(a,3) 2?y=10 x>bp-2c(a,6)c(a,5)=425 <z F`c(a,4)>0c(a,2),c(a,1);0;c(a,4);7;c(a,3) Pa Z 10 8tim=tim-1:tim=14500: battles q(ntp):d(ntc) >a=1(ntpntp>ntc)+(ntcntcntp):n=0:ne=0 aantcc(a,4)>0c(a,2),c(a,1);8;8;1;1;" " aantpp(a,4)>0p(a,2),p(a,1);8;8;1;1;" " x=-11:y=-11:antpp(a,4)>0at=f(p(a,2)+y,p(a,1)+x):at-(at/8)*8=7p(a,4)>0at<64@n=n+(at/8) antcc(a,4)>0at=f(c(a,2)+y,c(a,1)+x):at-(at/8)*8=0at<64@ne=ne+(at/8) "y:x , 9 6tn>021,0;0;p(a,4);p(a,3);"-";n:x=p(a,1):y=p(a,2):150 @ 9 Jvne>021,0;7;c(a,4);c(a,3);"-";ne:x=c(a,1):y=c(a,2):150 T 9 ^`antpq(a)=p(a,4)-((*n)+(n>0)):antcd(a)=c(a,4)-((*ne)+(ne>0)) h1antcd(a)=c(a,4)-((*ne)+(ne>0)) raantcc(a,4)>0c(a,2),c(a,1);8;8;1;0;" " |aantpp(a,4)>0p(a,2),p(a,1);8;8;1;0;" " a Uz=1(ntpntp>ntc)+(ntcntcntp):zntpn=(p(z,4)>0q(z)0) /zntcne=(c(z,4)>0d(z)0) +zntcnec(z,2),c(z,1);" " *zntpnp(z,2),p(z,1);" " zntpp(z,4)=q(z) zntcc(z,4)=d(z) n=0:ne=0 z 10 :105i Є(p(a,2),p(a,1)-1)37%0;21,0;"You are not on the river bank ":502:10 :  x=p(a,1):y=p(a,2) ։(a(x-4,y)(a(x-5,y)ƫ(x-4,y)=37%))0;21,0;"You may not cross here ":10 : y,x;6;4;" " *x=x-1:(y,x)38&2011 p(a,1)=x 3p(a,4)=p(a,4)-b(p(a,2)+1) ߟp(a,4)<121,0;0;"The unit has been drowned ":30:p(a,2),p(a,1);6;4;" ":a:300, Mp(a,2),p(a,1);p(a,4);0;p(a,3):10 : 8xf=1:f$="a"f$=""f$="cross"f$="q"f$="save" %f$<3f$(f$)>"9"xf=0  7:0::0 \7,0;"I will work out who is winning as the time limit you set has expired" tvc=0:tvp=0:z=1(ntpntp>ntc)+(ntcntcntp):zntptvp=tvp+(p(z,4)p(z,4)>0):p(z,1)0tvc=tvc+c(z,4):c(z,1)>bptvc=tvc+2*c(z,4) C11 ,0;"Player one :";tvp;15;"Player two :";tvc .01z# =,20:20 z !tvc=tvc+(10 *(3-pf))  tvp=tvp+(10 *(3-f)) E11 ,0;"Player one :";tvp;15;"Player two :";tvc ܱz=1(ntpntp>ntc)+(ntcntcntp):zntptvp=tvp+((((2*bp)-p(z,1))/15)p(z,4)>0):zntcc(z,4)>0tvc=tvc+c(z,1)/15 <zntcc(z,4)>0tvc=tvc+c(z,1)/15 E11 ,0;"Player one :";tvp;15;"Player two :";tvc !.01z# =,20:20:z +502:tvctvppf=0:8000@  tvc0f$(1)="f"(c(a,3))=""f$=f$(2):6300:6400 f$(1)="f"((c(a,3))""amc0)9 :21,0;0;("That is not a gun"am2>0);("You have no more ammunition"am20):30:6115 f$(1)"m"6356 Jd$=f$(2(f$-1)):d=f$(f$):d>c(a,4)d=c(a,4) c(a,2),c(a,1);6;4;1;c(a,3):18:z=1d:y=c(a,2):x=c(a,1):180 ,.05|L,(c(a,3)-159)*7 .(y,x)>100dx=3021,0;0;1;"You have reached the enemy flag ":c(a,2),c(a,1);" ":pf=pf-1:c(a,4)=0:30:pf<18000@ /"c(a,4)<16401 0at=(c(a,2),c(a,1)):c(a,2),c(a,1);7;1;c(a,4);c(a,3):èa(x,y)21,0;0;"That is as far as you can go ":30:6400 1\c(a,2),c(a,1);ں(at/8);at-(at/8)*8;1;c(a,3) 3Nc(a,1)=x:c(a,2)=y:z:y,x;c(a,4);7;c(a,3) B 6400 Kf$(f$-1)<"a"h=f$(f$-1):d$=f$(̱f$-2):6309 !h=f$(f$):d$=f$(̱f$-1) 1x=c(a,1):am2=am2-1:y=c(a,2) 8z=1h:180:èx(x,y)10 :6400 iy,x;8;8;1;".":10 :y,x;8;8;1;".":.003xD,20 z Px1=x:y1=y:x=-11:y=-11:èx(x+x1,y+y1)6339 gat=(y1+y,x1+x):w=12:y1+y,x1+x;8;8;1;"*":.01z# =,-20:w &(at/8)=at/86340 y:x: @z=1ntp:p(z,1)=x+x1p(z,2)=y+y16350 z: vc=1:p(z,4)=p(z,4)-1:n=1:ne=1:21,0;0;c$;" hit ";p$:h=10 -10 -1:.05|L,h:h:10 :100d:32 :p(z,4)<1p(z,2),p(z,1);6;4;" ":30: vc=1 f$="q"10 :a=ntc  vc=1 f$="save"8600! f$="cross"ƫ(c(a,2),c(a,1)+1)37%0;21,0;"You are not on the river bank ":6400 f$="cross"(a(c(a,1)+4,c(a,2))(a(c(a,1)+5,c(a,2))ƫ(c(a,1)+4,c(a,2)=37%)))0;21,0;"You may not cross here ":6400 f$="cross"c(a,2),c(a,1);0;" ":c(a,4)=c(a,4)-b(c(a,2)+1):c(a,1)=c(a,1)+4 af$="cross"ƫ(c(a,2),c(a,1))38&c(a,1)=c(a,1)+1:6398 kf$="cross"c(a,4)<121,0;0;"The unit has been drowned ":30 Wc(a,4)>0c(a,2),c(a,1);c(a,4);7;c(a,3) a  10  1500 @M1:2:6::21,0;1;"Another go? (y/n)" Aa=120:f0pf0a,0;6;ں(a/3);0;1;1;"Both sides have been annihilated":8003C Boa,0;6;ں(a/3);0;1;1;(p$f=0);(c$pf=0);"are the Victors" Cda-1,0;0;0;2;" ":""8010J D.02{# =,10 -a Ea:8000@ J ="n" ^ !4Az=ntp1-1:d$="":p(z,4)08521I! !97(p(z,1)-c(a,1))=(p(z,2)-c(a,2))d$=("ne"p(z,1)>c(a,1)p(z,2)c(a,1)p(z,2)>c(a,2))+("sw"p(z,1)c(a,2))+("nw"p(z,1)kc(a,1)=p(z,1)d$=("n"p(z,2)c(a,2)):8525M! !Hkc(a,2)=p(z,2)d$=("w"p(z,1)c(a,1)):8525M! !I z:d$="" !M y=c(a,2):x=c(a,1) !R180:èx(x,y)d$="q": !S8(y,x)/8=((y,x)/8)6331:d$="q": !fhy,x;1;8;8;1;".":y,x;8;8;1;0;".":8530R! !"JR"8610!:"JRUDG""a",21*8:"field":10 ,0;0;7;1;"Rewind tape,plug in the ""ear"""'"lead then press any key"''"if any report but ""O.K."" appears"'"then type ""GOTO 8600""":0:"":"":10000' !F"":"":0:4:6:236099\,502:109m ! !30,0:(q$+"? ");a$:ña$8700! ! " 8700! "Dw=1̱a$:a$(w)=(a$(w)+(32 a$(w)"A"a$(w)"Z")):w: " 8700! "w=1̱a$:a$(w)<"0"a$(w)>"9"#0;"Enter Numerics Please":.1}L,20:.1}L,15:100d:8720" "w: "-0,0:(q$+"? ");a$:8711" "$ 8710" "%)a$2a$="no"(̱a$)w=0: "&*a$3a$="yes"(̱a$)w=1: "'`#0;"Enter Yes or No please":.1}L,20:.1}L,15:100d:8740$" "`Cntc=0:amc=10 :am=10 :am2=10 :tim=0 "j0:7:0::21,0;1;:.06|u\,-10 :.04|# =,6:q$="How many players(1 or 2)":8720":players=a$ "td0,0;players;" player";("s"players=2);" ";0,0;1;"_________" "~-players1players28810j" "q$="Is player 1 The (U)nion or The (C)onfederates":8710":a$5a$="union"(̱a$)c$="The Confederates ":p$="The Union ":8860" "[a$12 a$="confederates"(̱a$)p$="The Confederates ":c$="The Union ":8860" " 8840" "2,0;"Player 1 is ";p$''("Player 2 "players=2);("the computer"players=1);" is ";c$;2,0;1;"________________________________"(̱p$+12 );4,0;"________________________________"(̱c$+15-(4players=2)) "?b(22):z=122:b(z)=(*4)+1:z " vc=1 "T.06|u\,-10 :.04|# =,6:q$="Do you want a time limit ":8740$" "w.06|u\,-10 :.04|# =,6:q$="How long (in game turns)":8720":tim=a$+1:6,0;"Time limit of ";tim-1;" game turns";6,0;1;"____________________________":250 "Qe(4,2):8950":w=14:e(w,1),e(w,2):w "C0,-1,-1,0,0,1,1,0 #(!"1","2","4","7","5","5","7","0" #)!"7","1","2","7","2","4","4","0" #*!"2","5","5","2","5","5","2","0" #-09000(#:a="S""S"+23:a$:a,a$:a #234:4:6:0::a$="":a=019:a,0;4;(7a/2=(a/2));1;a$(a+1);20,a;a$(a+1):a:a=2031:20,a;4;1;(7a/2=(a/2));a$(a+1):a #7a$=" ":20,0;8;0;8;1;a$:a=019:a,0;8;8;1;0;a$(a+1):a #<b=125}:a=16174:5;8;b,a:5;8;16,0:b=b+(>.5)*2-(>.5)*2:a #Ada=030:(10 ,a)=37%10 ,a;1;5;"":bp=a:a=99c #Fa #Kx=(*(5+(20players=2)))+(18players=1)+1:y=(*5+(10 players=2))+1 #P(y,x-1)38&ū(y+1,x-1)38&ū(y+2,x-1)38&ū(y+3,x)38&ū(y+4,x)38&9035K# #Uy,x;4;0;1;"";y+1,x;"";y+2,x;"";y+3,x+1;"";y+4,x+1;"" #Za=15 #_Jx=(*18)+1:y=(*23)+3:z=(*5)+1 #dn=y-1y+z+1 #i(x,n)38&9055_# #nn #s3x,y;4;6;1;""(z):a #x]fy=(*10 )+6:fy,2;2;6;1;"";10 ,30;"" #)"0","0","6","28","112","216","188","24" #*"0","32","50","51","253","252","68","68" #,"50","50","126","122","122","74","74","74" #09090#:a="S""S"+23:a$:a,a$:a #Bq$="How many infantry units,plr 1 (min 1)":8720":ni=a$ #%ni>20ni<1ni=20 #6q$="How many cavalry units,plr1":8720":nc=a$ #nc>20nc=20 #nc<0nc=0 #2q$="How much artillery,plr1":8720":na=a$ #na>20na=20 #na<0na=0 #ntp=ni+nc+na $Jp(ntp,4):a=1ni:p(a,4)=3:p(a,3)="":a $@a=ni+1ni+nc:p(a,4)=5:p(a,3)="":a $Aa=ni+nc+1ntp:p(a,4)=2:p(a,3)="":a $"9 :21,0;0;3;"";4;"=";ni;5;"";4;"=";nc;2;"";4;"=";na;" total=";na+nc+ni; $,50;" Value=";na*2+ni*3+nc*5 $6*q$="Are you happy with this":8740$" $@w9100# $J9 :a=1ntp $Tp(a,1)=(*(30-bp))+bp:p(a,2)=(*20):(p(a,2),p(a,1))=38&p(a,2),p(a,1);0;p(a,4);p(a,3):a:21,0;0;p$;("has" p$(5)="U")+("have"p$(5)="C");" black men":30 $^antp9300T$ $h-tv=ni*3+na*2+nc*5:tvo=tv $rplayers=29600% $|@q$="Do you want my troops the same":8740$":w9360$ $^ni=(*tv/6):tv=tv-ni*3:na=(*tv/3):tv=tv-na*2:nc=(tv/5) $Xntc=ni+nc+na:c(ntc,8):a=1na:c(a,3)="":c(a,4)=2:a $@a=na+1na+nc:c(a,3)="":c(a,4)=5:a $Aa=na+nc+1ntc:c(a,3)="":c(a,4)=3:a $a=1ntc $c(a,1)=(*bp)+1:c(a,2)=(*19):(c(a,2),c(a,1))=38&c(a,2),c(a,1);7;c(a,4);c(a,3):a $:antc(c(a,2),c(a,1))38&9400$ $Vbpc=80P:pf=3:n=0:ppc=0:fpc=20:o=0:f=3 $5pf=(ntc/6)+1:f=(ntp/6)+1 $ %Hq$="How much infantry (1-"+(tv/3)+") plr2":8720":ni=a$ %&ni>tv/3ni<19600% %Qtv=tv-ni*3:q$="Cavalry (0-"+(tv/5)+") plr 2":8720":nc=a$ %-nc>tv/5tv=tv+ni*3:9630% %nc<0nc=0 %\tv=tv-nc*5:q$="How much artillery plr 2 (0-"+(tv/2)+")":8720":na=a$ %-na>tv/2tv=tv+nc*5:9670% %na<0na=0 %na=na %9 :21,0;0;3;"";4;"=";ni;5;"";4;"=";nc;2;"";4;"=";na;" total=";na+nc+ni; %50;" Value=";na*2+ni*3+nc*5 &*q$="Are you happy with this":8740$" & wtv=tvo:9600% & 9360$ &zq$="abc":8720": _:"R" i 'tm m i"layerQ5Is player 1 The (U)nion or The (C)onfederatesA uJRUDG X""ÁR,~`8=L̿?""LL~^^RRR"wwww" P P 8DD8 P @p ` p  pؼ 23DD22~zzJJJ