ZXTape! 0Created with Ramsoft MakeTZXJOURNEY 1 &&`(@ JOURNEY'S END  MATTHEW PRESCOTT 1985 *58365:0:0:0: "" ,236099\,100d:23658j\,8 #0;18,0;"" ("" A=7:B=6:C=5:D=1:E=2:F=6:G=1:H=0:I=4:J=2:K=7:L=7:M=0 0C:23675{\,88X:23676|\,254 -23675{\,568:23676|\,254 .23675{\,144:23676|\,253 .23675{\,232:23676|\,252 -23675{\,42*:23676|\,253 .23675{\,150:23676|\,251 -23675{\,62>:23676|\,252 -23675{\,14:23676|\,251 .23675{\,100d:23676|\,250 .23675{\,100d:23676|\,249 "-23675{\,20:23676|\,249 ,.23675{\,232:23676|\,247 6.23675{\,136:23676|\,248 @.23675{\,238:23676|\,246 J-23675{\,62>:23676|\,247 T.23675{\,194:23676|\,245 ^-23675{\,90Z:23676|\,246 0:0  18,0;0;" " ""  18,0;0;" " "" screen 1 @n"DB%   0D "DB% (~D8"DB%J?D?x 8DB&D?DL80MB$ ?0 ?0?08p;F+?8 ? ?X2~DR‘ pp xdN$ 8D 8x< 0vO?p ppp  `?@z@?;pp"` 0?????:0(p7(08> (??<^@T?T@< <T?0<|@?T@<<?06c?0x|=@ ?X?00x(?,s?X0?0??`0s`??0??`?n?0?`owwp|wwpwwwewww`nTE EEP ؕDE"UPؕDE"* ?`>Tw"vuPjwE"UTwE"j`?TD EP* AE"UTAE" * `Wt"uwPNww"u\ww"N((((((((((((()((((((((((((((((((---------((())))))))((((((((((((---------((())))))))(////////(((---------)))))((())(((/////////(---------)))))((()((((//////..((---------((((())))((((//////../((((((((((((((())))((((((////(((((((((((((((((()))(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0(((0(((((((((((((((((((((((((((0(((0(((((((((((((((((((((((((((00000(((((((((((((((((((((((((((0000((((((((((((((((((((((((((( ((((((((((((((((((((((((( ((((((((((((((((((((((( ((((((((({CODE 1 E >@?0?sO?@ϏXX??0000?0000````??````???x0??s 6,0`?c@vz߿??????<<??x??????non>???8T P P P P3`MVV\GuCODE 2 ?__ x 80 p` ??>?/ 7'??~???<>*[[[K[xȧR8 +$$$~$$~$>(> >bd&F0HP"UI6>>2L (DBB" 8DD Lr(D$$D>< @X$b(@PhD(>$D(DD""$8BE8N4~ Mrl$H@ lH$8T"x ~8$@ (4$$$ $`$$$(0$$ p 0$,<@ (4$$ 0(@ (44(*D 0lIX$$$$$$< (XH<,  8 84H$$%H$$III6D*D@$$( " 0p p(* >( ( "  >(  (><<<<<<|<||<|ƺD((Dbt: `` 0`H 00 x 0(@ (PART 1 rkc.+JOURNEY'S END  MATTHEW PRESCOTT 1985 MEN=0:ME=0  8400 :7:7:0: l10 ,1;"Press L to load characters.",,," Press S to start from scratch.";0,0;"1.1" ="L"8420 ="S":12 5 d5,0;"Enter the name of your player",,,"character.",,,,,," Maximum of five letters." r$ NG=2̱R$:(r$(g))>64@Ư(r$(g))<91[R$(G)=(R$(G)+32 ) G 7:10 ,1;"Do you want to read the story ?" " Yes or No ( Y/N ) ? ";a$ a$="Y"ss=1:22 Kss=0:0:0:7::10 ,10 ;"Please wait" -23675{\,88X:23676|\,255 SS=10:  400 >ss=1#1;" Any key to continue":8300l F782:m=(*10 ) P 800  dR,S;7;" " e%R=(21-R)*8:S=S*8 f0;S,R+4:0;S+1,R+5:0;S+2,R+5:0;S+1,R+3:0;S+2,R+3:0;S+3,R+4:0;4,0 g<0;S+5,R+3:0;S+6,R+3 l n521,0;"The key for this level's doors." }XG=50240(-1:.05|L,g:.05|L,g-1:.05|L,g-2:G (KEY=1:20:M(o,p)=32 621,0;" " M(o,p)=32 : ,'kk=kk-1:kk=03000 0fG=15:H=15:.01z# =,G*10 -H:.01z# =,G*10 -H-3:H:G: @D=(*16+4) ED>8d<158,0;"You have found a teleport which",,,"is transporting you out of this",,,"level.":340T HnD>149 ,0;"You have found a staircase which",," leads down to the next level.":340T J4,0;"You fall down a trap door and ",,,"drop many feet onto a hard floor",,,,,,"You lose ";d;" strength and when",,,"you awake, you find yourself in",,,"an unfamiliar room." O/str=str-d:str0150:1400x T"21,10 ;"Please wait" f 408 h782:800  7P(6,2):SR=(*30)+30:str=SR lG(10 ,2):Q(10 ,2):J(10 ,2):p=1:x=1:y=1:NI=1 !gold=0:kk=(SR/10 ) mKEY=0:G(10 ,2):Q(10 ,2):J(10 ,2):p=1:x=1:y=1 M(22,32 ) g=05 kkɺ(SR/10 )520 SS=17900 a=(*6+4) b=(*5+2) Gg<3c=(*3+3)+(g*8):d=(*4+2) !Qg3c=(*3+3)+((g-3)*8):d=(*5)+9 0 h=cc+a : i=dd+b DM(i,h)=32 Fse=(*150):p<11 e=7e=557M(i,h)=151:Q(p,1)=i:Q(p,2)=h:p=p+1 I4e=78Ne=123{e=139M(i,h)=5 Jxx<11 e=34"e=90Ze=45-e=30M(i,h)=152:G(x,1)=i:G(x,2)=h:x=x+1 Kby<11 e=85Ue=15M(i,h)=153:J(y,1)=i:J(y,2)=h:y=y+1 Ne=69EM(i,h)=154 Vi Xh l G=2G=5650 vj=a+c+1a+c+8 {9M(b+d-1,j)=0M(b+d-1,j)=32 j G>2675 k=d+b+1d+b+8 7M(k,a+c-2)=0M(k,a+c-2)=32 k <P(G+1,1)=A+C:P(G+1,2)=B+D g Ni=(*20+1):h=(*31+1):M(i,h)32 685 pp=i:qq=h:M(i,h)=10 Ni=(*20+1):h=(*31+1):M(i,h)32 695 M(I,H)=2 Ni=(*20+1):h=(*31+1):M(i,h)32 697  o=i:p=h  6M(O+1,p)=-1I=O+1:H=P:750 6M(O-1,p)=-1I=O-1:H=P:750 6M(O,p+1)=-1I=O:H=P+1:750 6M(O,p-1)=-1I=O:H=P-1:750  900 d=(*3) .01z# =,5:.01z# =,4:.01z# =,3:.01z# =,2:.01z# =,1:M(i,h)=32 :i,h;7;" " KEY=1780  iD>021,0;"You lose ";d;" str but open the door":M(i,h)=32 :i,h;7;" " G=1200:G $str=str-d:STR01400x  A21,0;" ":895 G=16  G=3G=6790 -j=P(G,1)+1P(G,1)+8 M(P(G,2),j)=0M(P(G,2)-2,J)=0M(P(G,2)-1,J)2M(P(G,2)-1,J)10 >.75@M(P(G,2)-1,J)=-1 J G>3795 -k=P(G,2)+1P(G,2)+8 M(k,P(G,1)-1)=0M(K,P(G,1)-3)=0M(K,P(G,1)-2)2M(K,P(G,1)-2)10 >.75@M(K,P(G,1)-2)=-1 K G   0:7:0: %i=o-1o+1 *j=p-1p+1 4(i=oj=pi,j;1;7;"":j 6o=1p=1j 7%M(i,j)=2r=i:s=j:100d 8%M(i,j)=5R=I:S=J:100d 9#M(i,j)0i,j;7;" " :-M(i,j)=10 i,j;0;6;"#" ;$M(i,j)=-1i,j;3;" " 32 i,j;7;((154-M(i,j)));M(i,j) >j Ci V 895 \o,p;7;1;"" ^M(o,p)=51300 aM(o,p)=1511500 fM(o,p)=1521800 kM(o,p)=1531900l pM(o,p)=1542000 uM(o,p)=10 300, xM(o,p)=2110n T0,0;"1.2";6;" GOLD : ";gold;5;" STRENGTH : ";str;" " o,p;7;1;"" ="5"950 ="6"1040 ="7"1130j ="8"1220 ="0"710  900 +.02{# =,4:G=11:G: #M(o,p-1)<1900 0M(o,p-1)=10 KEY1900 -o,p-1;7;1;" ";o,p;""  945 -o,p-1;7;1;"";o,p;""  945 -o,p-1;7;1;"";o,p;" "  945 -o,p-1;7;1;"";o,p;" "  p=p-1 3x=o-1:y=o+1:z=p-1:1440 M(o,p)32 860\  ="5"950  900 #M(o+1,p)<1900 0M(o+1,p)=10 KEY1900 -o+1,p;7;1;"";o,p;""  945 -o+1,p;7;1;"";o,p;""  945 -o+1,p;7;1;"";o,p;"." " 945 $-o+1,p;7;1;"";o,p;" " ) o=o+1 83x=p-1:y=p+1:z=o+1:1475 BM(o,p)32 860\ e="6"1040 h 900 j#M(o-1,p)<1900 k0M(o-1,p)=10 KEY1900 o-o-1,p;7;1;".";o,p;"" r 945 t-o-1,p;7;1;"";o,p;"" w 945 y-o-1,p;7;1;"";o,p;"" | 945 ~-o-1,p;7;1;"";o,p;" "  o=o-1 3x=p-1:y=p+1:z=o-1:1475 M(o,p)32 860\ ="7"1130j  900 #M(o,p+1)<1900 0M(o,p+1)=10 KEY1900 -o,p+1;7;1;"";o,p;""  945 -o,p+1;7;1;"";o,p;""  945 -o,p+1;7;1;"";o,p;" "  945 -o,p+1;7;1;"";o,p;" "  p=p+1 3x=o-1:y=o+1:z=p+1:1440 M(o,p)32 860\  ="8"1220  900 trap=(*10 ) &trap<6q=(*4+2) 3trap>5trap<9 q=(*8+2) Atrap>8gold>502q=(*15+5):1350F Atrap>8trap=(*8)+1:Q=(*8+2) htrap<6trap>321,0;" You trip on a snag in the rock":1395s:1365U #[trap<221,0;"You bang you head on a low roof":1395s:1365U ([trap<4trap>121,7;"You trip on a rock":1395s:1365U 2dtrap<9 trap>721,3;"Part of the roof collapses ":1395s:1365U 521,1;"An arrow shoots from the wall":1395s:1365U FKtrap>821,2;"You fall down a hidden trap":1395s KI=(*21+30) Ptrap>8str>021,0;"You climb out but are badly hurt":1395s:21,0;" but you drop ";I;" gold pieces. ":gold=gold-I S 1395s U621,0;" " VB21,0;" Lose ";q;" strength pts ":str=str-q XB1395s:21,0;" " Zstr01400x dM(o,p)=32 n sh=110 t,.05|L,12 -h:.05|L,10 -h uh v x.73333,-12 :.73333,-12 :.4L,-12 :.73333,-12 :.73333,-9 :.4L,-10 :.73333,-10 :.4L,-12 :.73333,-12 :.4L,-13 :.73333,-12 1:1:6: #10 ,10 ;"YOU'RE DEAD!"  300,: 410 ,0;"Do you want another go ? (Y/N)" p$ p$="Y"4  p$="N" .1}L,2:1432 i=xy 1M(i,z)=2r=i:s=z:100d:1490 0M(i,z)=-1i,z;3;" ":1465 KM(i,z)>32 i,z;7;((154-M(i,z)));M(i,z):1465 8NI=0o,p+p-z;3;7;"":NI=1 #M(i,z)0i,z;7;" " -M(i,z)=10 i,z;6;0;"#" i  i=xy 1M(z,i)=2r=z:s=i:100d:1490 0M(z,i)=-1z,i;3;" ":1490 KM(z,i)>32 z,i;7;((154-M(z,i)));M(z,i):1490 8NI=0o+o-z,p;3;7;"":NI=1 #M(z,i)0z,i;7;" " -M(z,i)=10 z,i;6;0;"#" i  ܆.03{u\,4:.03{u\,6:.03{u\,8:.03{u\,10 :.03{u\,8:.03{u\,6:.15~,4 ""1505 .21,0;" You find a bottle." "Drink or leave it? D/L ";s$ s$="D"1600@  s$="L"ni=0:1550  1520  G=1100d:G 821,0;" ": @!M(o,p)=32 :d=(*7) E(1610J+d*30) Jd=(*7+2) Ostr=str+d:str>SRstr=SR T921,0;"Healing potion. Gain ";d;" strength" ^ 1548  hd=(*7+2) mC21,1;"It explodes...lose ";d;" strength.":STR=STR-D r 1685 #D=(*7+2):str=str-d 721,0;" POISON !! Lose ";d;" strength." str01400x  1548  T20,0;"A genie appears. He will give you strength, gold or freedom." " ( S,G or F ) ? ";s$ ;s$="S"d=(*8+5):str=str+d:str>SRstr=SR /s$="G"d=(*41)+10 ):gold=gold+d V20,0;" " 8s$="S"21,6;"You gain ";d;" strength. " 9s$="G"21,4;"You gain ";d;" gold pieces." s$="F"3000  1548  d=(*41)+10 ) F21,0;"It contains gold dust worth ";d;"gp":gold=gold+d  1548  921,4;"It just contains water.":1548  gd=(*7+2):21,1;"Gas fills the air. Lose ";d;" str.":str=str-d:1685 ?d=((8-((SR/10 )))/5*(*20+20)) 121,4;"You find ";d;" gold pieces." 0kT=-200:.005y# =,t:.005y# =,t+10 :.005y# =,10 -t:.005y# =,t-10 :T ?621,0;" " DM(o,p)=32 I gold=gold+d N l?d=((8-((SR/10 )))/5*(*29+29)) 521,1;"You find a gem worth ";d;" g.p." t=-10 152 ?.01z# =,T*2:.01z# =,T*3:.01z# =,t*4 t G=1502:G 621,0;" " M(o,p)=32  gold=gold+d  D=(*4) 2010+40(*D S20,0;"You find a book. It shows where the exit to this level lies."  2150f pp,qq;6;0;"#"  S20,0;"You find a book. It shows where the gold on this level lies."  2150f  g=110 oG(g,1)0M(G(g,1),G(g,2))>32 G(g,1),G(g,2);2;7;"" g ( *R20,0;"You find a book. It shows where the gems on this level lie." / 2150f 4g=110 9oJ(g,1)0M(J(g,1),J(g,2))>32 J(g,1),J(g,2);1;7;"" >g P RT20,0;"You find a book. It shows where the potions on this level lie." T 2150f Wg=110 \oQ(g,1)0M(Q(g,1),Q(g,2))>32 Q(g,1),Q(g,2);3;7;"" ag d fr=13 pt=16 u*.01z# =,4*r:.01z# =,4*t zt:r a100d:20,0;" " M(o,p)=32  MM(1):G(1):J(1):Q(1):0:6:0: 23296[,546:23297[,228:23298[,0:23299[,64@:23300[,0:23301[,24 645666 $1,10 ;"YOU'VE ESCAPED" "3,1;" In front of you lies a pair";4,1;"of large iron bound doors with";5,1;"daylight filtering through";6,1;"cracks in the woodwork. You";7,1;"push the doors with all your";8,1;"strength and they slowly give" *9 ,1;"way. Suddenly, to your right";10 ,1;"you see something glint in the";11 ,1;"sunlight on the dungeon floor.";12 ,1;"On inspection you discover it";13 ,1;"is a gold medallion bearing";14,3;"the seal of Arnfin Goldbeard" 15,1;"a dwarven smith who resides in";16,1;"your village.";18,1;"A clue... but first you must";19,1;"rest and recuperate your lost";20,1;"strength." .23675{\,254:23676|\,227 =#1;" Any key to continue":0:645666 str=SR3065 (g=(SR-str)*3:g>goldg=gold 6,2;"You visit a wise old cleric";7,2;"who has a great reputation";8,2;"for healing.";10 ,2;"He heals your wounds for you";11 ,2;"but it costs you ";g;" gold";12 ,2;"pieces." gold=gold-g 1#1;" Any key to continue":0: PG=gold :645666 8,2;"Whilst you rest, you decide";10 ,1;"to advertise for some henchmen";12 ,2;"to aid you on your quest..."  350^ 0:5:5: me=me+men:men=0 hme=68,0;"You have now hired the maximum",,," number of henchmen.":120x 0,0;"1.3";5,0;" You have ";PG;" gold pieces.",,,,,,,,,,," Press 'P' to see your party.",,," Press 'F' if you have finished.",," Press 'G' to gamble." 8ME<69 ,1;"Press 'A' to advertise." =""3220 F$= F$="A"ME<63500 F$="G"PG>08870" F$="F"6000p F$="P"me>06000p 3220 v=(*21+5) sPG-v<0:8,3;"Sorry, you can't afford to",,," advertise again.":150:3200 :5,0;"You advertise for one week which",," costs you ";v;" gold pieces.",,,,,,," The following come forward." me>04070 T$(7,10 ) T$(1)=r$ v66B,67C,68D,71G,75K,76L,77M,78N,80P,82R,83S,84T,90Z N(7,8) 0N(1,4)=SR:N(1,5)=gold עZ$(7,9 ):H(7,8):H(1,5)=(*8)+4:g=1:5000:T$(1,69 )=Z$(1,69 ) BN(1,5)=(*8+4):N(1,6)=gold h$=" " N(1,4)=SR  f$="000000" "20,10 ;"Please wait" )Z$(7,9 ):H(7,8)  men=0  PG=PG-v Q=(*4)+4  4030  g=2Q i=152 p=(*13 )+1  e=1p t e 1I>1T=T+32 :Z$(g,i)=t:4030 #I=1Z$(g,i)=t:4030 i<54380 i $H(g,4)=(*46.+5) $H(g,5)=(*10 +1) 8H(g,6)=((*40()+H(g,4)+H(g,5))  5000 g  4500 s=(*5+1) &&s=1Z$(g,i+1)=97a 0's=2Z$(g,i+1)=101e :'s=3Z$(g,i+1)=105i D's=4Z$(g,i+1)=111o N's=5Z$(g,i+1)=117u X 0:0:6: T3;"1.4";6;" NAME COST STRENGTH SPELLS OF HIRE " h=2g-1 s,,h-1;3;Z$(h,5);12 ;H(h,6);20;H(h,4);27;Z$(h,69 ) $"________________________________" h <21,0;PG;" gold pieces left & ";me+MEN;" men " "Enter number or 'N' ";h$ h$="N"3200 ,h$>1.1}L,10 :4560 'h$>480Ưh$<5574600  4570 ]men+me=621,0;"Sorry, no more than six allowed ":100d:3200  j=16 )h$=f$(j).1}L,10 :4560  j *.h$>Q-1.1}L,10 :4560 >f$(men+1)=h$ HBPG-H(h$+1,6)<0.0,10 :4560 RPG=PG-H(h$+1,6) \4men=men+1:h$*3,1;2;" " fdN(men+me+1,4)=H(h$+1,4):N(men+me+1,5)=H(h$+1,5) p$T$(men+me+1)=Z$(h$+1) z 4560 s=69 0H(g,5)6w=(*4+1) 0H(g,5)5w=(*3+1) 0H(g,5)3w=(*2+1) #H(g,5)=2Z$(g,s)="C" "H(g,5)05210Z ;w=1Z$(g,s)="S":H(g,5)=H(g,5)-3 ;w=2Z$(g,s)="C":H(g,5)=H(g,5)-2 ;w=3Z$(g,s)="P":H(g,5)=H(g,5)-5 ;w=4Z$(g,s)="F":H(g,5)=H(g,5)-6 Ps Z p%F$="F"6:0:6: r%F$="P"1:7:1: s645666 ui2,7;"This is your party";4,2;"NAME STRENGTH SPELLS" zg=1me+1 b2*g+5,2;T$(g,5);14;N(g,4);25;T$(g,69 ) g @F$="P"#1;" PRESS ANY KEY":0:3200 b&W=17:x=19 g Z=T$(w,x) j%Y=65368X+(w-1)*9 +x lY,Z x:W:ME>6ME=6 65432,me+1 <G=17:Y=N(g,4):Z=65432+g:Z,Y:G 65440,(PG/255) '65441,PG-255*65440  5#1;6;0;" PRESS ANY KEY" % 0 *0:7:0: 4645666 >2,1;" Now that you have hired your";3,1;"party you decide to seek out";4,1;"Arnfin Goldbeard, the dwarven";5,1;"smith. He is surprised to see" H6,1;"you and on telling him of your";7,1;"adventure and showing him the";8,1;"medallion, his face shows a ";9 ,1;"grim expression." R11 ,2;1;"]I thought that this was";12 ,3;"lost forever along with";13 ,3;"the bad memories it holds.";14,3;"I was with your father when" \15,3;"he died in search of the";16,3;"Elixir. After his death I";17,3;"did not want to continue";18,3;"the quest despite the";19,3;"Emperor's plea.[" ^&#1;" Any key to continue" ` 0 f:645666 p2,2;"Arnfin rummages through his";3,2;"shelves and pulls out a ";4,2;"battered scroll tube." z6,2;1;"]We found this in the ";7,3;"catacombs you explored; it ";8,3;"shows the probable location";9 ,3;"of the Elixir, in a castle";10 ,3;"to the north." 12 ,3;"You will see that on the ";13 ,3;"back of the map is written,";15,5;2;"To get across the river";16,5;"Follow the golden trees" J18,3;"Use this clue, it may help";19,3;"you.[" &#1;" Any key to continue"  0 :645666 3,1;"You thank him and as you turn";4,1;"to leave he calls out to you.";7,2;"]There is one thing you must ";8,3;"do if you wish to continue ";9 ,3;"your quest.[" 12 ,2;"]What is that ?[ you ask.";16,2;"]Press any key and start ";17,3;"the tape.[ Arnfin replies." !0:0:0::"" ܃23296[,546:23297[,228:23298[,0:23299[,64@:23300[,0:23301[,24 g=0645666 g=08000@ g=28100 g=48200  @2,1;1;"It was many years ago when ";3,1;"your father died. You ";4,1;"understood very little being ";5,1;"so young. All you knew was ";6,1;"that one night he never";7,1;"returned. And so you grew up " J8,1;"not knowing much about him at";9 ,1;"all. There was always silence";10 ,1;"from your mother on mentioning";11 ,1;"his name. On coming of age,";12 ,1;"curiosity got the better of " TW13 ,1;"you and you decided to learn ";14,4;"more about him." ^#15,1;1;"The village was your obvious";16,1;"start and on talking to the";17,1;"tight-lipped elders you ";18,1;"learned little except that ";19,1;"your father was well liked and";20,1;"a renowned fighter."  &#1;" Any key to continue"  0 645666 3,1;"You decided that the local";4,1;"Sage, Thorvald, might further";5,1;"enlighten you, so you made the";6,1;"short trek to his cave in the";7,1;"woods to the north of the " 8,1;"village and after giving him a";9 ,1;"humble gift, he told you the";10 ,1;"following:";12 ,2;"]Your father, Eduard Back-";13 ,3;"Stabber, was a good man and";14,3;"when he died he was on a" 15,3;1;"quest for our Emperor who";16,3;"was and still is under an";17,3;"evil curse, which makes him";18,3;"bedridden with the Hell-" 19,3;"Fever.["  &#1;" Any key to continue" 0 :645666 *2,3;"Thorvald continued..." 4,2;"] The object of his quest";5,3;"was to find the only known ";6,3;"cure, The Elixir of Hagar";7,3;"the Demonic. Hagar died at";8,3;1;"the siege of Dartfell but the" &9 ,3;"Elixir survives although its";10 ,3;"whereabouts is uncertain. I";11 ,3;"sense the same good in you";12 ,3;"as in your father and so if";13 ,3;"you wish to continue his" 014,3;"quest, here is a copy of the";15,3;"map that I gave to him which";16,3;"shows the position of a ";17,3;"dungeon built by Hagar on ";18,3;"the edge of his empire.[" j l 0 v645666 ^9 ,2;"And so you find yourself in";11 ,3;"that very same dungeon..."  .:10 ,9 ;7;"STOP THE TAPE" 5,30  /236066\,88X:236077\,251: X0::0,0;"1.6";10 ,0;"PRESS ANY KEY AND START THE TAPE" .23675{\,254:23676|\,227 U"C "," CC","SC ","CCS ","P ","CP ","CSSS","FCC ","FCS ","PP ","SSP ","PFC " 0::""T$() !ME=-1:N(7,8) "G=17:T$(G,67)" "ME=ME+1:N(G,4)=T$(G,67):8428 :H=1̺(*12 )+1:T$(G,69 ):H "G ":4,0;"You have banked your excess gold",,"and leave yourself 500 gold ",,,"pieces to hire more men.":pg=500:gold=500 "a11 ,0;"You had to sell your magic",,,"weapons to help in buying spell",,,"scrolls." "&#1;" Any key to continue" "0:F$="P":6000p "Z"Floorboard ","Vermin ","Pest ","Rowland Rat ","Rodent ","Bubonic Plague ","Rento-Kill " "I"Sprint","Classic","Derby","Grand National","Chase","Stakes","Handicap" "38870":g=1̺(*7+1):a$:g "38875":g=1̺(*7+1):b$:g "0:1:7: "{0,0;"1.5";2,3;"The latest betting for the";4,(32 -(a$+b$))/2;6;a$;b$ " 8 " 5 " 3 " 2 " 6 "S(5,4) "g=15 ")d=(*5+1):8899"+d:d "S(g,4)=d "1h=1g-1:S(h,4)=d8910" "h "g "g=15 "ig*2+5,10 ;g+1;g;" ";g*2+5,18;7;S(g,4);"-1" "g "-18,9 ;1;"Place your bet" "121,4;"You have ";PG;" gold pieces" "W"How much will you bet ? ";f$:F$=0űf$>2.1}L,10 :8955" "Og=1̱f$:f$(g)>579ůf$(g)<480.1}L,10 :8955" "g #@f$>502Űf$>PGŰf$<1.1}L,10 :8955" #f=f$ #K"On which rat (1 to 5) ? ";p$:p$1.1}L,10 :8965# # :p$>535ůp$<491.1}L,10 :8965# #( p=p$: #)62,(32 -(a$+b$))/2;6;a$;b$ #*O23,118v:0,17:5,3;0;7;"" #+'23,116t:209,0 #-g=15 #23,100d-((g-1)*16):209,0 #F.6+g*2,25;g+1;"" #K&g=p6+g*2,30;"<" #Pg #G=(*5+1) #3<(.1}L+(S(G,4)/150))9100# #K6+g*2,S(g,1);g+1;"":.02{# =,60< #6+g*2,S(g,1);g+1;" ":.02{# =,60<+g:S(G,1)=S(G,1)-1:S(g,1)=29250"$ # 9100# $"E19,7;"Lane ";g;" wins at ";S(g,4);"-1":40( $'g=p21,4;"You win ";S(g,4)*f;" gold pieces.":150:PG=PG+S(g,4)*f:5:0:5::3210 $,d21,8;"Unlucky you lose.":PG=PG-f:150:5:0:5::3210 eRPig'(}AYA    &t&pxyolei   i  i              abcd70e_* omzr0s JOURNEY 2  v: = JOURNEY'S END  MATTHEW PRESCOTT 1985  63410 W236099\,100d:23658j\,8:236066\,0:236077\,60< \0:0:7::10 ,10 ;7;"STOP THE TAPE":5,30 Y:0,0;6;"2.11";10 ,0;" Load a party saved from PART1" \8,0;6;" Save your party";12 ,0;" Go straight into PART2" %14,0;6;" Quit" Fg=14:6+2*g,0;2;7;g:g (=""40( 2x$= <8x$<491ůx$>535.1}L,10 :40( A""65A Dg=110 :g F100d*(x$-480) dY:0,0;6;"2.13";10 ,0;"Prepare a tape and press any key" p""112p s)0::"zx"65368X,168: x 10 Y:0,0;6;"2.12";10 ,0;"Press any key and start the tape" 0::"zx" 10 ,Y:0,0;"2.14";10 ,0;"Press any key and start the tape":0 60:0: >"" @18,0;" " J"" T18,0;" " ^"" *:"Are you sure ? ";a$:a$"Y"10  9SCREEN 2 @"DB%   0D "DB% (~D8"DB%J?D?x 8DB&D?DL80MB$ ?0 ?0?08p;F+?8 ? ?X2~DR‘ pp xdN$ 8D 8x<D  @ `@ ` @ @ @ p ppp " @@ @ @   ;pp"`"88 0$8$8 8$ $888 8 $8 ??:0(p7(08$H8,,8X$l $H,8,$(XD(8$($8$X,(X,( (H8$^@T?T@8$$$,($((< <($$(4($(*T$(4(,$$($(($4($$4$p4($,(|@?T@B$$$0$00<<?$$<$0$0$$$0$0$00$$0$$$$ $0$000|=E$%$$$$4$$$4 $%$4 4$$$$4$$ $ $$$$$4$$4$4$$$$4$$ 4$$$$x(8 <I  D<  0<??uuwww???n?UUؕDE"UP?owwp|wwpwwwwewE"\nTE EEP ؕDE"AUTAE"ED>Tw"vuPjwE"GUԀww"]?TD EP* AE"Wt"uwPNww"MCODE  `@@@)* !!  @ @ p @!!N#F z#YYYXXYYXXY&YFYfYgYGY'YYYXX Y Y Y+YKYkYYYYYnYoYOYX/YYoYYYY`aW>!H`b!H`b!Hhb!@b!@Xb!Hpb!Hhb!@b!@Xb!Hxb!&Hxb!FHxb!fHpb!gHhb!GHxb!'Hxb!Hb!Hhb!@b!@Xb! Hpb! H`b! HXb!+Hxb!KHxb!kHxb!Hpb!H`b!H`b!Hhb!nHb!oHhb!OHb!Pb!Pb!Hb!Hb!CPb!Hb!cHb!Pb!nPb!Hb!Hb!Hb!OPb!Pb!iPb!.Pb!JPb!gPb!Pb!Hb!%Pb!dHb!Hb!eHb!Hb!Pb!Pb!bPb!LPb!Hb!Hb!cPb!APb!oPb!Hb! Pb!Hb!mPb!@b!%Hb!J@b!@b!(@b!+@b!$@b!I@b!@b!CHb!f@b!@b!)@b!i@b!@b!Hb!O@b!@b!@b! Hb!@b!@b!A@b!k@b!LHb!h@b!M@b!@b!@b!AHb!&@b!$Hb!AHb!@b!'@b!f@b!J@b!"@b!-@b!w$ ????????????????z8((DDf8-9y8-9y8-9y8-9ynl<$bDf^D<$bDfvD<$bDfvt<$bDfVD<$bDf>!X w# |<<|<>??<<<<<<<<??><>>$B~~~ff2$HP`@@   G? 0?@ @`8:9yyyv,_[ ;;F󞎌N 0X>g;N  30X>g;N  3<|>=}}4$F"f > ^\6] " 2 \݊T$ $@DNVkKNJRQIR4HזT$7?_p= #@ ?__ x 80 p` >BASIC j/) l'JOURNEY'S END  M.PRESCOTT 1985 ""T$():7::N(7,10 )::10 ,10 ;"STOP THE TAPE":5,30:10 ,10 ;"Please wait ":c$=" " ds=0:W=0:X=1:ex=0:t=0:HU=1:IN=10 :HO=7:MI=0:DA=1:E$="":SH=0:PA=0:Z$=" NORMAL " sbG=17:H=19 :y=65368X+((g-1)*9 )+h:D=Y:T$(G,H)=D:H LN(G,1)=(65432+G):N(G,3)=N(G,1):S=S+N(G,1) G:bo=s+80P mE=65432:MA=ME AS=(500-s)/2:go=255*65440+65441 "s$="112253177255080":9100# Nd=1:C(12 ,2):c=1:B(20,15)::500 8 B=63490+2*C:B,0:B+1,0 ,U=089Y:C>109m435 o=(*10 +11 -10 *(U/45-)):p=(*15+1):B(o,p)=0B(o,p)=7+(U/45-):c=c+1:780  U ee=(*(d-1)+1):B(C(e,1),C(e,2))=2.1fff:do=C(e,1):z=C(e,2) YO=(*3+1):P=(*10 +6):B(O,P)=9 :c=c+1:780  !63591g+C*9 ,201 eM=11 :N=10 :p=(*15+1):o=20:nu=c:840H:85004!:900 #o=(*7+5):p=1 $ri=2:790:P=P+1 ri=(*3+1) p=16405 oo=o+1:pp=p+1 570:+(ri*30) X#M=1:790:o=o+1 b#o=12 ri=4:535 ori=(*2+4) q 535 v790:p=p+1 {#o=12 ri=3:535  530 #M=0:790:o=o-1 "o=4ri=6:535 ri=(*2+5)  535 790:p=p+1 .o=12 o=13 ri=3:535  530  790 2o=o-1+2*M:ri=(*2+5-M) #o=12 ri=4:535 "o=4ri=6:535 ri=(*2+5-M)  535 790:p=p+1 ,o=4o=5ri=1:535  530  KA=16384@+(O/8)*2048+(O-(O/8)*8)*32 +P B=63582^+9 *C:B+2,(A/256):B+1,A-(A/256)*256:B+4,80P+B(O,P)*8:b+5,255  mB=63490+2*C:A=22528X+O*32 +P:B,A-256*(A/256):B+1,(A/256)  O=0  B(o,p)=ri:c=c+1 *9ri=2C(d,1)=o:C(d,2)=p:d=d+1 F 780 : HKQ(14,3):H=O:I=P:Q(1,1)=O:Q(1,2)=P KG=2142 N.H-C(E,1)3H=13 880p P0A=-5+(*11 ):A=0A=1 R!I>5I<10 860\ U%A=(7-I)*(*5+1) \i=i+a ^*Q(G-1,3)=78N-9 *A b7Q(G,1)=H:Q(G,2)=I:Q(G,3)=78N f2H=H-(*3+1):H<13 H=13 i0Q(G+1,1)=H:Q(G+1,2)=I lg vZQ(G-1,3)=78N+9 *(I-C(E,2)):Q(G-1,3)=78N zBQ(G,1)=H:Q(G,2)=C(E,2):Q(G,3)=78N |A=114:Q(A,1)0B(Q(A,1),Q(A,2))=B(Q(A,1),Q(A,2))+Q(A,3)/100d A:q(1):C(1)  7s$="209253089255088":9100#:65368X,0 Z$(1)="S"1111W $8700!:PP=1:8800`" !="M"Y=-100d:1100L  940 B(O,P)2.1fff1035  m9 1505 `M=2:15,3;"Prepare for";16,5;"battle!":5101:1900l M<9 N>6 $E$=((B(o,p)-(B(o,p)))*100d) 14,2;"You find a";15,2;"golden tree.";16,2;"It will give";17,2;"you one of";18,2;"the following." 65100:8600!:7000X:B(O,P)=B(O,P): $3,6;1;4;"";9 ,6;"";9 ,9 ;3;" ";14,3;0;7;"THE CASTLE" .oG=48:G,6;1;4;"";G,12 ;"";G,7;0;4;" ":G: 8\16,2;"You meet the";17,2;"castle guard.":5100:1900l Lp$="150101207":9000(# [1800:B(o,p)<7ƺB(O,P)023676|\,252:23675{\,112p+((B(o,p)-1)/3)*96` `(4:1200+30*(B(o,p)) b-23675{\,88X:23676|\,255 eIB(o,p)-B(o,p)0B(O,P)2.1fff10 ,5;6;"" h%7:B(O,P)=9 1060$ j%m,n;1;4;0;" " tZ$(1)="S" ~ 1500 +s$=(o+10 )+(p+30)+(B(o,p)) 1g=15:s$=s$+(g+s$(6-g)):g #B(o,p)=7źB(o,p)=8 ~b=8-(o/11 ):g=110 2:2+(s$(g)),4+(s$(g+1));0;(b+143):g: 4,4;1;"";5,4;"";6,4;"";7,4;"";8,4;"";9 ,4;"";10 ,5;"";11 ,6;"": IG=98b141:1;32 ,g:1;79O,0:G B(o,p)2.1fff 4,6;1;3;" ";5,6;" ";6,6;" ";7,6;" ";8,6;" ";9 ,6;" ";3,6;4;""  M=2 15,1;7;2;"You have found";16,1;"the bridge but";17,1;"it is heavily";18,1;"guarded." 5100:8600!:  2,6;1;"";3,5;"";4,4;"";5,4;"";6,4;"";7,4;"";8,4;"";9 ,4;"": -2,6;1;"";3,6;"";4,6;"";5,6;"";6,7;"";7,8;"";8,9 ;"";9 ,10 ;"": K@g=211 :g,6;4;1;"":g: d4,10 ;1;"";5,9 ;"";6,8;"";7,7;"";8,6;"";9 ,6;"";10 ,6;"";11 ,6;"":  1200 Jg=110 :h=g+1g+3:a=h:h>10 a=a-10 J2+(s$(g)),4+(s$(a));0;(B(o,p)+143):h:g:  0oo=0:B(o,p)-B(O,P)01000 "13 ,2;1;"2.1" 0B(O,P)=9 M=9 N=9 10808 Q=""oo=oo+1:oo=20*in0.05|L,0:oo=0:1700 WSW=0:6030 =""1518 ;c=-480:c5c81400x+c*30 c=32 G=12:14,2;1;"You have";16,2;go;" gold and";18,2;bo;" arrows.":h=1300,-g*100d:h:g Hc=290:P$="150101204":9000(#:87586":910 Ic=24Z$="HUNTING ":18433:HU=1HU=2:in=in*HU 3c=35#z$="SLEEPING":18433:6500d C=199800H& ?c=30hu=1:Z$=" NORMAL ":1800:18433  1520 wn>4(m,n-1)=" "n=n-1:m,n+1;4;0;0;" ";m,n;1;" ":1560 }n=4p>1n=13 :p=p-1:m,4;4;0;" ":.05|L,0:y=-100d:1110V  9995 ' +.05|L,0:1700:1500 ,xm<11 (m+1,n)=" "m=m+1:m-1,n;4;0;0;" ";m,n;1;" ":1560 1m=11 o<20m=2:o=o+1:11 ,n;4;0;" ":.05|L,0:y=-100d:1110V 6 9995 ' ;+.05|L,0:1700:1500 Jwm>2(m-1,n)=" "m=m-1:m+1,n;4;0;0;" ";m,n;1;" ":1560 O}m=2o>1m=11 :o=o-1:2,n;4;0;" ":.05|L,0:y=-100d:1110V T 9995 ' Y+.05|L,0:1700:1500 hxn<13 (m,n+1)=" "n=n+1:m,n-1;4;0;0;" ";m,n;1;" ":1560 mn=13 p<15n=4:p=p+1:m,13 ;4;0;" ":.05|L,0:y=-100d:1110V r 9995 ' +.05|L,0:1700:1500 MI=MI+IN:W=W+IN/10 .H=MI/10 :H>ME-2H<1H=ME dg=XH:N(g,5)=N(g,5)+1:N(g,5)>16N(g,1)=N(g,1)-1 \N(g,6)=N(g,6)+1:N(g,6)>8N(g,1)=N(g,1)-1 g:8520H!:X=H+1 Tmi60<mi=60<-MI:ho=ho+1:HO=24HO=0:DA=DA+1  8860" mi>0 ?ho=7a=5:in=10 *HU:1815:1748 4ho=20a=0:in=30*HU:1815 ?ho=5ho=18a=1:in=20*HU:1815 !PP=1:MI=MI:X=1:  ?ho<5ho>19a=0:IN=30*HU:1815  ?ho<18ho>6a=5:IN=10 *HU:1815 IN=20*HU:a=1 Y=-99c ;(((2,2)-64@)/8)=aY-100d BB=0:(((2,2)-64@)/8)AB=1 !Cg=111 :g,1;a;1;" ";g,14;" " &:y=-100dG>1g,4;4;" " 0g 2B=112 ,1;a;1;" ";1,4;" ":0;8,72H:0;119w,0 551,5;0;Z$(8):y=0: tky=-99c:1800:a:4:0::PA=0:SH=0:Y=0:1910v:2085% vEp$="092300217":9000(#:183,175:0,-175 <s$="024254160255016":9100#:Y=-502Y=0: ng=1me:(g-1)*3,23;7;1;g;(g-1)*3,25;T$(g,5) 4183,179-(g*24):72H,0  bN(G,1)0(G-1)*3+1,25;0;7;"DEAD":2070  (g-1)*3+1,24;7;2;N(G,1);21,23;0;"Bolts ";bo;(G-1)*3,31;(n(g,8)+n(g,9 ));T$(G,10 );(g-1)*3+1,27;7;3;T$(g,69 )  )g:183,12 :72H,0 #$S$="041254145255032":9100#: &?d=(ho/3.8s333):B(O,P)=2.1fffB(o,p)=9 D=6 *3000 +d*300, 7aY=0:0,0;"2.6":"Front line: ";r$:A=ME:5000:B=-10 21004 <$A=0:c(me):F=0:Q$="" Cg=1̱r$:i=r$(g) F6c(I)=0F=F+1:c(I)=1:q$=Q$+r$(g) Hg ap$="040000214":9000(# f%b=((23-(3*f))/2) kCc=((23-(3*(me-f)))/2):fl40(2172| ug=1f:i=q$(g):N(i,10 )=b+g*3-3:b+(g-1)*3,3;T$(I,11 );b+1+(g-1)*3,3;T$(I,12 ) xBN(I,7)=(21-b-(g-1)*3)*8+2:g a=0:g=1me:c(g)=0N(G,1)>0c+a*3,1;T$(g,11 );c+1+a*3,1;T$(g,12 ):a=a+1 g #f=0FL40(2500 ]R$="":G=030:0,9 ;0;4;"SPELLS":.005y# =,10 +="C"Ŧ="S"Ŧ="F"Ŧ="P"R$=:2300 '0,0;"2.7 SPELLS":g  2500 =g=1me:c(g)=0N(G,1)02340$ +h=69 :T$(g,h)=r$23608 h $G:2500 =\t$(g,h)=" ":(g-1)*3+1,27;3;7;T$(g,69 ) Bbr$="S"sh=sh+(*3+4):34",170:0,-165,-.2~L:2500 G0r$="P"pa=pa+(*3+4):2500 Lr$="F"2400` QY=-39':9815W& ]21,0;T$(I,5);" gains ";D;" strength";I*3-2,24;2;7;N(I,1):5101:21,0;c$(22) ^ 2500 `4A=(*60<+80P):B=(*60<+60<) b0G=5020-2.5 :.005y# =,G:G jh=12:g=02100460<:1;ٺ(*2+2);A,B:1;ٺ(*2+2);(G)*40(,(G)*40( o+.001wn,(G+1500)/100d:g:h V=1:u=NO:hi %BA1=0FR102595# 0,0;C$(15) NSH>0SH=SH-1:SH0I=021:I,4;" ":I &J=1F:fl40(2600( K=0N(Q$(J),8) Ki=q$(j):BO=021,23;1;"NO BOLTS":2570 GFR10PP=(*BA+1):R(FR+PP,1)02516 DFR1>0PP=(*FR+1):R(PP,1)02517 FFR>0d=(21-R(PP,2))*8-6+(*21) JFR10d=(21-R(FR+PP,2))*8-6+(*21) e(175-N(I,7))/8-1,3;"";(175-N(I,7))/8,3;"" *a=32 :b=FL+1:c=N(I,7) 91;2;32 ,C:2;1;B-A,D-C /l=40(34"-2:.004yn,l:l 91;2;32 ,C:2;1;B-A,D-C (175-N(I,7))/8-1,3;T$(I,11 );(175-N(I,7))/8,3;T$(I,12 ):bo=bo-1 B21,29;7;" ";21,29;7;bo #FR10V=FR+PP:U=FR+PP:hI FR1>0V=PP:U=PP:hi %BA1=0FR102595# K J mo:at 5Y=-86V2700 Y=-87W2702 2200 $<5101:b(o,p)=9 m=9 n=9 5200P %Z$(1)="S"0:6::7:PP=-1:RI=1:Y=-502:2050:8720":PP=1:Y=-502:8800`":Y=-100d:900:2:RI=0:6550 &1y=-502:PP=-1:RI=0:900 (K=0N(Q$(J),9 ) Z<b=q$(j):(N(B,10 )+1,5)=" "2560 _Sh=12:N(B,10 ),3;"";N(b,10 )+1,3;"" a32 ,N(b,7)-1:1,-1:36$,N(b,7)-2:.01z# =,1:.01z# =,1:5 g]N(b,10 ),3;T$(b,11 );" ";N(b,10 )+1,3;T$(b,12 );" " iH oS>.2~LH=12:1;2;40(,N(b,7)-3:H pV=1:U=NO:HI qFL>40(21004 r 2557 FG=1̱Q$:(N(Q$(G),10 )+1,5)" "2200 G @SH=0:0,0;"2.8":Y=-86V:"Melee : ";r$ 8FR1=-1U=FR+1:V=FR+BA:A=BA1:5000 1FR1>0U=1:V=FR:A=FR1:5000 B=-10 2702 2c(me):f=0:q$="":g=1̱r$:i=r$(g) Kc(I)=0N(I,1)>0F=F+1:c(I)=1:q$=Q$+r$(g) g p$="050000214":9000(# Nb=1:g=uv:c=q$(b):R(g,1)>0N(c,10 )=R(g,2) "R(g,1)02765 O(R(g,2),R(g,3)+1)" "N(c,10 )=N(c,10 )-1 UN(c,10 ),3;T$(c,11 );N(c,10 )+1,3;T$(c,12 ) UN(c,7)=(21-n(c,10 ))*8+2:b=b+1:b>f2780 g 2155k rh=1̱q$:e=q$(h):(N(e,10 ),3)=32 ƫ(N(e,10 )+1,3)=32 2840 nd=1+(*((ho+3)/3+(300,-s)/100d)):.1}L,2:N(e,1)=N(e,1)-D H=2.1}L-1.9s333:21,0;1;T$(e,5);" loses ";d;" strength";n(e,10 ),3;0;t$(e,11 );n(e,10 )+1,3;t$(e,12 );e*3-2,24;7;2;N(e,1);" ":40(*H:H "N(E,1)02900T  H: ^21,6;t$(e,5);" dies.":g=10 1-1:.05|L,g:.05|L,g-3:.05|L,g-5:g:30:21,6;" ";N(e,10 ),3;" ";N(e,10 )+1,3;" " r:P$="":f=f-1:i=1̱q$:q$(i)eP$=P$+Q$(I) <I:q$=p$:e*3-2,23;7;" DEAD " 3I=1ME:N(I,1)0I:9990'  s$="033255" s$=s$+"088255056":9100# (:D=(m/2)+5:R(D,3) >e=0:no=d:hi=3100 :mo=3050 :at=3200 CD<6FR=0:BA=D:B=((23-(BA*3))/2) KD>5FR=D-5:BA=5:B=((23-(FR*3))/2) *fr1=fr:ba1=ba:FR=0FR1=-1 ng=1no:R(g,3)=18-(((d-g)/5))*4+D-10 :R(g,1)=(*5+2) $g=1fl=R(g,3)*8 .g=FR+1D>5b=4:E=0 jEX=EX+2*R(G,1):r(g,2)=b+e*3:e=e+1:R(g,2),R(g,3);"":g: FL=40( pa>0pa=pa-1: <h=13:fl480Y=-87W:FL=40( ?fl=fl-8:g=1no:R(g,1)03080 Zr(g,3)=r(g,3)-1:R(g,2),R(g,3);"":.02{# =,60< 7R(g,2),R(g,3);" ":.02{# =,60< g:h: )g=vu:R(G,1)03140D $xh=02:(R(G,2),R(G,3)+H)>32 R(G,1)=R(G,1)-(*8+1):31200 &H . 3140D 0+R$="F"R(G,1)=R(G,1)-5 1Qh=12:.01z# =,3:R(g,2),R(g,3);2;"" 4z.01z# =,4:.01z# =,5:R(g,2),R(g,3);0;"":.01z# =,6:.01z# =,7:h :dR(g,1)0R(g,2),R(g,3);" ":R(g,2)=0:R(g,3)=0 ;4R(G,1)0GFRBA1=BA1-1 >Efr1=0fl=fl+32 :FR1=-1:FL=71GFL=72H ?uno Dg: PA>0SH>0 FL>40(3050 $FR10V=FR+1:U=FR+BA FR1>0V=1:U=FR ?g=vu:a=0:(R(G,2),R(G,3))" "A=1 "R(G,1)03275 QR(G,2),R(G,3)-1;" ":.01z# =,6:.01z# =,7 {h=14:R(G,2),R(G,3)-2;2;1;"":.01z# =,10 :.01z# =,10 :h QR(G,2),R(G,3)-1;" ":.01z# =,6:.01z# =,7 2800 :G: s$="073" "s$=S$+"254088255032":9100# d=(m/2.750)+4 ,B(O,P)=2.1fffB(O,P)=9 D=8 ;R(D,3):hi=3400H :mo=3350 :at=3500 E=0:NO=D BD<5FR=0:BA=D:B=((22-(BA*3))/2) JD>4FR=D-4:BA=4:B=((22-(FR*3))/2) FR1=FR:BA1=BA FR=0FR1=-1 g=1d:R(g,3)=18-(((d-g)/4))*3+D-10 :R(g,1)=(*8+1+ho/3):B(O,P)=9 B(O,P)=2.1fffR(G,1)=14 $g=1fl=R(g,3)*8 .g=FR+1D>4b=5:E=0 ex=ex+2*r(g,1):r(g,2)=(b+3*e):e=e+1:R(g,2),R(g,3);"";R(G,2)+1,R(G,3);"":g: pa>0pa=pa-1: FL=40( <H=12:fl480Y=-87W:FL=40( ?fl=fl-8:g=1no:R(g,1)033804 ,r(g,3)=r(g,3)-1:R(g,2),R(g,3);" ";R(g,2)+1,R(g,3);" ":.02{# =,10 :.02{# =,0 4g:H: L)g=vu:R(G,1)03440p Pxh=01:(R(G,2)+h,R(G,3))>32 R(G,1)=R(G,1)-(*5+1):3420\ RH:3440p \+R$="F"R(G,1)=R(G,1)-5 ]h=12:.01z# =,3:R(g,2),R(g,3);2;"";R(g,2)+1,R(g,3);"":.01z# =,4:.01z# =,5 `pR(g,2),R(g,3);"";R(g,2)+1,R(g,3);"":.01z# =,6:.01z# =,7:h fR(g,1)0R(g,2),R(g,3);" ";R(G,2)+1,R(G,3);" ":R(g,2)=0:R(g,3)=0 g4R(G,1)0GFRBA1=BA1-1 jEfr1=0fl=fl+24:FR1=-1:FL=63?FL=64@ kuno pg x PA>0 2HO>11 HO<16FL>40(3350 $FR10U=FR+1:V=FR+BA FR1>0U=1:V=FR f=0 )g=uv:R(G,1)03590 FL40(3565 GR(G,2),R(G,3);"";R(G,2)+1,R(G,3);"" ُe=(*q$+1):B=25:A=FL-1:D=(N(Q$(E),7)-2)-15+(*30+1):C=(21-R(G,2))*8 SH>0A=A-8 j1;1;FL-1,C:1;1;B-A,D-C:l=3024-2:.004yn,l:l ;1;1;FL-1,C:1;1;B-A,D-C SR(G,2),R(G,3);"";R(G,2)+1,R(G,3);"":3590 SH>0 h=14:R(G,2),R(G,3)-1;" ";R(G,2)+1,R(G,3)-1;" ":.007ye`A,5:h >.4L1;1;29,(21-R(G,2))*8:1;1;29,(21-R(G,2))*8 YR(G,2),R(G,3)-1;" ";R(G,2)+1,R(G,3)-1;" "  2800 :G: s$="233254":3010 <s$="105":3310 hs$="137":3310 s$="169":3310 s$="201":3310 *B=0:R$>AűR$=05045 G=1̱R$ -R$(G)>480ƯR$(G)<5685048 !B=-10 :.1}L,0: 1N(R$(G),1)<1ŰR$(G)>ME5045 G: G=1502:G G=1502:G G=1502:G: P|y=-502:o=-10 :9900&:g=17:a=65360P+10 *g:b=65430+10 *g:h=aa+9 ZH,n(g,h-a+1):h d+h=bb+9 :h,t$(g,h-b+1):h:g iDex=ex+(3000 -5*ho-120x*da)*(300,-s)/100d nT65510,me:65512,(go/256):65511,go-256*65512 oD65514,(ex/256):65513,ex-256*65514 pD65516,(Bo/256):65515,Bo-256*65516 r7:0: x6,0;" You have reached the castle.",,," On the large wooden doors",,," a message is written...";15,6;"'Load part three.'":150:0:"" rEg=200-2:.004yn,G:.004yn,G+30:g x:""6008x 76100-400*(((M+N)/2)-(M+N)/2) ;B(O,P)=9 B(O,P)=2.1fffW=S-20:1500 ~14,4;"You hear";15,1;"movement ahead.";17,3;"Prepare for";18,5;"battle!" =G=18:.05|L,0:.05|L,10 :G <5101:1900l:8700!:RI=0:1100L ."deer",7,"sheep",6,"pig",6 c"chickens",2,"rabbits",2.5 ,"ducks",3,"pheasants",2.5 ,"wild geese",3 S6100:e=(ho/3)+1:a=1:E>3A=(*2+2) g=1e:p$,c:g u14,2;T$((*me)+1,5);" shoots";15,2;"and kills ";a;16,2;p$;"." e=a*c e3N(B,1)=N(B,1)+3 GLn(b,6)=0:N(B,1)>N(B,3)N(B,1)=N(B,3) Lg V8600!:y=-101e Y]15,1;"You rest for ";(R$/2+1);17,1;"hours and eat." [Gr$="XXXX"17,11 ;"learn";19,1;"the spells." `Jho=ho+(R$/2+1):HO24HO=HO-24:DA=DA+1 <PP=1:8852":8600!:1800:1520 915,2;T$((*me+1),5);" finds" +d=(ho/4):6320+(d)*25 @16,2;"a potion.";13 ,2;1;"2.3"  "Drink or leave it (D/L)? ";p$ p$="L"6485U p$="D"6332 .1}L,0:6324 "Who will drink it ? ";R$ R$="N"6482R 0A=1:5000:B=-10 6332 @i=r$:8600!:14,2;T$(i,5);" drinks." "20:<.56341 ~d=-(*8+2):16,2;"It is poison";17,2;"and he loses";18,2;d;" strength."  6342 zd=(*8)+2:16,2;"He feels good";17,2;"and gains ";d;18,2;"strength." y=-39':9825a&  6482R >d=(*41)+10 ):16,2;D;" gold pieces"  6375 td=(*41)+30):15,14;"a";16,2;"gem worth ";d;17,2;"gold pieces." go=go+d:6483S _d=(*41)+30):17,2;D;" arrows.":bo=bo+d:bo>999bo=999  6483S $6421:d=(*6+1) 9"FCC","SSPC","CP","SCP","FF","SFSP":g=1d:p$:g 16,1;"a scroll which";17,1;"has the spells:";20,1;"written on it.";18,6;1;p$;13 ,2;"2.5"  u=0:I=1̱p$ !w19,4+I;" ";19,5+I;1;1;"^":"Who'll learn this spell? ";r$:r$="N"6442* "0A=1:5000:B=-10 6433! #3J=R$:h=69 :T$(J,h)=" "6440( $!h:.1}L,0:6433! (T$(J,h)=p$(I):18,5+I;" ";Q(J,5)-1,Q(J,6)+(1/J)*2;3;T$(J,69 ):u=1 *I:Y=-101e +"U=1R$="XXXX":6230V , 6485U /,e=(*2):E=0p$=" magic bow" 0e=1p$=" magic sword" 2}d=(*3+1):ex=ex+2*d:16,2;"+";d;p$;15,14;"a";13 ,2;1;"2.4" 7-"Who will use it ? ";R$:R$="N"6485U :0A=1:5000:B=-10 64557 <I=R$:N(I,8+e)=d:n(i,9 -e)=0:T$(I,10 )=(153+E):Q(I,1)+1,Q(I,2)+2-(1/I)*2;N(I,8)+N(I,9 );T$(I,10 ):6485U P8800`":Y=-101e RPP=1:8852" S 5102 UY=-101e V8600!:1500 d=p$="150113200":9000(#:ME=1R$="99":6560 n15,2;7;0;"You need two";16,2;"men to keep ";17,2;"watch whilst";18,2;"the others";19,2;"are sleeping";13 ,1;"2.9" x3"Enter the 2 no.s : ";r$:R$26520x 0A=2:5000:B=-10 6520x %r$(1)=r$(2)6520x /p$="150113200":9000(#:I=18 FZ$8I=Z$(9 ):R$=Z$(10 11 ):Z$="SLEEPING" 14,2;7;0;"Your party has";15,2;"been sleeping";16,2;"for ";I;" hour .":I>116,12 ;7;0;"s" (*(s+20)/10 )=6Z$=Z$+I:Z$=Z$+R$:18,1;1;"MOVEMENT AHEAD":G=1502:.01z# =,30:.01z# =,20:G::1900l 18,2;7;0;"All is quiet.":ME>120,2;7;0;T$(r$((i/5)+1),5);" watches." 7ho=ho+1:ho=24ho=0:da=da+1 L8860":1800:.04|# =,4:.1}L,0:5102:I rG=1ME:g=r$(1)g=r$(2)N(g,5)>8N(g,1)=N(g,1)+2:6650 9N(g,5)>8N(g,1)=N(g,1)+4 LN(g,5)=0:N(g,1)>N(g,3)N(g,1)=N(g,3) g pPP=1:HU=1:Z$=" NORMAL ":8852":Y=-99c:1800:18433:8600!:1500 XIr$="D":D(8):D(1)=1:15,2;"D=Direction" bR"B=Bridge","F=Food","G=Gold","M=Magic weapon","H=Strength","S=Spells","A=Arrows" v7g=13:7010b:d=(*7+1) {pD(d+1)=0h=1d:p$:h:r$=r$+p$(1):14+R$,2;p$:D(d+1)=1:G #13 ,2;1;"2.10" "Which do you want ? ";Q$ %g=1̱R$:Q$=r$(g)7070 !g:.1}L,2:7050 O8600!:14,1;"The golden tree";15,1;"gives you" 2Y=-101e:(Q$-64@)*30+7170 O8600!:14,1;"As payment,the";15,1;"tree takes" Q$="B"7152 "7130+(*3)*10 .D=(*21+30):Q$="G"7115 917,1;D;" gold pieces":go=go-d:7198 Q$="A"7115 517,3;D;" arrows.":bo=bo-d:7198 Q$="H"7115 @d=-(*4+1):q$="B"d=d-((220-s)/12 ) 15,12 ;D;16,1;"strength from";17,1;"each man.":i=1me:Y=-39':9825a&:i =5101:PP=1:8852":Y=0:8600!:  6395: >15,11 ;"the";16,1;"bridge position";17,1;"on your main";18,1;"map.":5101:t=1: ziE$="east northwest "(((E$-69E)/9 )*5+1((e$-69E)/9 )*5+5) m15,11 ;"the";16,1;"best direction.";18,3;"Head ";e$;".":5101: 216,1;"plenty to eat.":6165: 6345: ZD=(*3+2):17,2;D;" strength";18,2;"points each." 8I=1ME:y=-39':9825a&:I:5102: 6445-: <6420: !485004!:3,29,5,29,5,22,8,20,10 ,20,10 ,17,8,28,10 ,28,10 ,25,13 ,20,15,20,15,17,13 ,28,15,28,15,25,18,20,20,20,20,17,18,28,20,28,20,25 !>JQ(7,6):G=17:H=16:Q(G,H):H:G: !HG=XH:Q(G,1),Q(G,2)+1;" ";Q(G,1),Q(G,2);1;N(G,1);Q(G,3),Q(G,4)+1;" ";Q(G,3),Q(G,4);2;N(G,6);Q(G,5),Q(G,6);N(G,5);" ":N(G,1)09900& !MG: !P$="150113207":9000(#: !0:0:6: "P$="150101204":9000(# "P$="151601207":9000(# "$7,7:241,0:0,161:-241,0:0,-161:128,7:0,161 ".KG=02:128,123{-(40(*g):119w,0:G "3)187,123{:0,-116t "8Z$(1)="S" "B63475:63600p "F23675{\,179:23676|\,247:1,1;4;7;" ";2,1;"";3,1;" " "NL23675{\,88X:23676|\,255:t=1do,z;1;"" "Q.o,p;4;0;1;1;" " "^2:7: "`9900&:o=-10 "c2,16;5;"1";2,21;0;7;T$(1,5);3,17;"Maxst";4,17;"Spells";3,26;"St";5,17;"Sleep";5,25;"Food";3,23;1;N(1,3) "jN(1,1)>04,29;7;N(1,8)+N(1,9 );T$(1,10 );4,24;3;T$(1,69 ) "OG=02:H=01:A=H+2+2*G:A>MA8852" "8+g*5,17+8*h;7;1;N(a,3);7+g*5,18+8*h;0;T$(a,5);7+g*5,16+8*h;5;a "A>ME8+G*5,17+8*H;7;" ";9 +G*5,17+8*H;1;" DEAD ";10 +G*5,17+8*H;" ":8850" "N(A,1)>09 +g*5,17+8*h;3;7;T$(a,69 );" ";N(a,9 )+n(a,8);T$(A,10 ) "h:G "80;128,7:0;0,161 "3PP=1a=x:X=1:H=ME:8520H!:x=a "PP=0:1,16;5;0;" DAY ";da;" ";1,25;"0";1,26-(HO/10 );HO;":";" 0 ";1,28;mi: #(ic=p$(56):d=p$(78):e=p$(9 ):b=p$(34):a=p$(2) #xg=cd:g,b;e;C$(A):g: #64962,s$(3):64963,s$(46):64965,s$(79 ):64966,s$(10 12 ):64968,s$(13 ):64961:: &M:G=1ME:H=69 :T$(G,H)="C"9810R& &PH:G:.1}L,2: &T .1}L,30:T$(G,H)=" " &WK"Who is to be cured? ";R$:A=1:5000:B=-10 9815W& &^I=R$:D=(*7+3) &aSN(i,1)=N(i,1)+D:N(i,1)>N(i,3)N(i,1)=N(i,3) &cY=-39'Y=0: &dX15,2;T$(I,5);" gains";17,2;d;" strength.":5102 &f&PP=1:8800`":8600!: &0J=1ME:N(J,1)>09980& &S$=T$(J,5):y-5028600!:16,3;S$;" dies.":G=10 1-1:.05|L,G:.05|L,G-3:.05|L,G-5:G &>H=J+1ME:I=110 :N(H-1,I)=N(H,I):I &,T$(H-1,10 )=T$(H,10 ):H &{ME=ME-1:J=J-1:T$(ME+1,5)=S$:T$(ME+1,612 )=" ":ME=09990' &Y-5028600! &J>meY=0: & 8800`" &J:Y-101eY=0: & '[:10 ,3;"You are all dead and have",,," failed in your quest.":0: ' G:d=(*(((HU-1)*-5)+27)/hu):d=66000p ' 1415+30*c s;wx t(ffe}Ĺ333 ydchop bG?m Ye zno  1H  raHf  vC Z NORMAL  fffGz^QGz^Qx      EW+S201254088255032}        RPQY c KS Y -[ XJOURNEY 3 b< JOURNEY'S END  MATTHEW PRESCOTT 1985 9236099\,100d:23658j\,8:63590f 0:0:6: 610 ,10 ;"STOP THE TAPE":5,30 0,0;"2.11";8,0;" Save your party",,," Load a party saved from PART2",,," Go straight into PART3",,," Quit" Fg=14:2*g+6,0;2;6;g:g (=""40( 2x$= <7x$<491ůx$>524.1}L,0:40( F100d*(x$-480) P:0,0;"2.13";10 ,0;"Prepare a tape and press any key" 0 ""160 :"px"65368X,168 :20 P:0,0;"3.11";10 ,0;"Press any key and start the tape" 0 :"px" 20 ,P:0,0;"2.14";10 ,0;"Press any key and start the tape" 6 0 @0::"" J18,0;" " T:"" *:"Are you sure ? ";a$:a$"Y"20 dSCREEN 3 @߀"DB%   0D "DB% (~D8"DB%J?D?x 8DB&D?DL80MB$ ?0 ?0?08p;F+?8 ? ?X2~DR‘ pp xdN$ 8D 8x<D  @ `  `8p ppp "  T  ((D;pp"`"8 08 888D??:0(p7(08$H8,X,X$ (8($8X,HX8X^@T?T@8$$(($($,< <4($ (Tx($$ $$$$ $$|@?T@B$$00$0$<<?$0 00$0$$$ $$D$$D |=E$%$$$$4$$4$$$$4$$$$$4%$4$$$$$$$Lx(8  <8b8 8r??uuwww???n?UUؕDE"UP?owwp|wwpwwwwewE"\nTE EEP ؕDE"AUTAE"ED>Tw"vuPjwE"GUԀww"]?TD EP* AE"Wt"uwPNww"         BASIC 3 ;T %JOURNEY'S END  M.PRESCOTT 1985 $Mt$(7,10 ):n(7,10 ):t=0:p$=" ":le=0 (VG=17:B=65430+10 *G:A=65360P+10 *G:H=AA+9 -N(G,H-A+1)=H:H 2.I=BB+9 :T$(G,I-B+1)=(I):I:G 7ME=65510:GO=65511+256*65512:EX=65513+256*65514:BO=65515+256*65516 :"" <'D(3,3):G=13 ?]D(G,3)=(*3)+5:H=1G-1:D(G,3)=D(H,3)63? @H A]D(G,1)=(*4)+3:H=1G-1:D(G,1)=D(H,1)65A BH C]D(G,2)=(*4)+3:H=1G-1:D(G,2)=D(H,2)67C Dh:G:9990' gf$="":e$="":g=130:f$=f$+((*7)+144):e$=e$+((*6)+151):g Z0:7:0::g$=" ":140:200 .g=07:g,0;0;g$:g :J=821:J,0;6;g$(14):J Q0,111o:255,0:112p,111o:0,-111o: G=1ME:7+2*g,14;5;g;7+2*g,16;7;T$(g,5);7+2*g,22;1;N(g,3);" ";7+2*g,25;N(g,1);" ";7+2*g,28;3;T$(g,69 ) p112p,119w-16*g:0,-7:g<7112p,108l-16*g:143,0 g:a=40(:6000p s$="068254":6800:ro=6:r=0:I=0:U=0:O=7:P=8:S=1:T=22:0,111o:255,0 R0,16;" ";1,15;" ";2,14;" ";3,13 ;" ";4,12 ;" ";5,11 ;" ";6,8;" ";7,8;" ";7,7;D(LE,1);0;"";1,23;"";0,0;7;"3.7";7,8;2;" " X|U>0U=U-1:U=0((O+1,P))0O=O+1:O-1,P;" ";O,P;2;" ":U=1.1 bK="0"O=SP=T.02{# =,10 :r=(r+.5):S,T;" ":1400x l_="7"U=0O=O-1:U=2:O+1,P;1;" ";O,P;2;0;" " qU=-0.9ffffU=0 vp="8"ƺ((O,P+1)/8)0P=P+1:O,P-1;1;" ";O,P;0;2;" " o,p;2;" " LI=0D=(*30/LE):D7G=110 :G:600X bD=7I=1:M=1:N=22:D=0:K=1:L=22:K,L;1;"" 1N=N-1:N>11 N<18M=M+1 OK,L;1;1;"";M,N;0;"":K=M:L=N:.001wn,N+20 1(o,p)" ".015zu\,10 :r=r+.501A7 ;N=7I=0:7,7;D(LE,1);""  600X v9990':ro=ro+1:r=0:c=2:a=1:b=30:d=6-le:e=1:f=1:j=a:k=c 140:g=26-le:g,a-1;0;7;((*4+158));g,a;7;g$(1b-a+1);g,b+1;0;((*3+162)):g u7-le,a;0;7;e$(1b-a+1);c-1,a;f$(1b-a+1);0,0;"3.2" S$="068254":6800 t=215220d 1090B+10 *ro  1200 Ls=(*(5-le)+2):t=30:o=3:p=1:s,t+1;D(LE,1);0;"";3,0;"": Vws=6-le:t=3:o=6-le:p=29:o+1,29;D(LE,1);0;"";s+1,t;"": `{s=(*(5-le)+2):t=1:o=3:p=30:o,31;D(LE,1);0;"";s,t-1;"": jns=2:t=29:o=2:p=2:1,2;D(LE,1);0;"";s-1,t;"": ts=(*(5-le)+2):t=30:o=3:p=1:s,t+1;D(LE,1);0;"";3,0;"":  l=j:m=k m,l;4;1;"";m,(b-l)+a;"";m,a+(b-a)/4;"";(c-m+d),a+(b-a)/2;"";m,a+3*(b-a)/4;""  l=j:m=k j=j+e:k=k+f $j=aj=be=-e:.001wn,40( $k=ck=df=-f:.001wn,40( m,l;4;1;"";k,j;"";m,(b-l)+a;"";k,(b-j)+a;"";m,a+(b-a)/4;"";k,a+(b-a)/4;"";m,a+3*(b-a)/4;"";k,a+3*(b-a)/4;"";(c-m+d),a+(b-a)/2;"";(c-k+d),a+(b-a)/2;""  1300  1205  n=o:q=p ;="5"((o,p-1)/8)0p=p-1 ;="6"((o+1,p)/8)0o=o+1 (;="7"((o-1,p)/8)0o=o-1 2;="8"((o,p+1)/8)0p=p+1 4.(o,p)" "r=r+1:.015zu\,60< 7.n,q;4;1;" ";o,p;2;" " ::o=sp=t="0".02{# =,40(:o,p;" ":1400x < }r>01500 e10 ,1;6;"Your party";11 ,1;"suffered no";12 ,1;"damage." 9951&:1550 9 ,1;6;"Your party";10 ,1;"was hit ";r;11 ,1;"time and";12 ,1;"suffered this";13 ,1;"damage.":r>111 ,5;6;"s" :g=1me d=(*(r+1)):14+g,1;6;T$(g,5);" lost ";d;7+2*g,25;7;1;N(g,1)-d;" " N(g,1)=N(g,1)-d g  6900:9950& #150:ro=66000p /t=21o=1:p=21:5000 :140:6050 js$="068254":6800:o=3:p=23:b(8,8):0,111o:255,0 Q0,8;" ";0;7;" ";0,0;"3.5" :1,8;" ";0;7;"" 9G=25:g,8;1;g$(16):G L6,8;0;7;"";7;0;" "  7,8;0;7;" ";7;" ";0;" ";3,7;D(LE,1);"";3,24;"";O,P;2;" " G=072:H=01:I=12 192:g+h,i;h*2;" ";ڼ(h-1)*-2;" ":I:H:G Ck(le+1,2):g=1le+1:K(g,1)=(*4+(g/2.1fff)*4+1):k(g,2)=(*4+1) D8g=2g=4k(g,2)=k(g,2)+4 H<d=((k(g,1)-1,k(g,2)+11 )/8) JCk(g,1)-1,k(g,2)+11 ;d;d(le,3);"" M B(K(G,1),K(g,2))=G ug:A=3:9980& `9 ,0;6;"Each man in";10 ,0;"turn must move";11 ,0;"like a king";12 ,0;"piece & avoid";13 ,0;"the ";s$;14,0;"knights." +G=1ME:g=me3,23;" " h=2220-1 $h223,h+1;" " ,3,h;2;7;(g+480) .1}L,10 :h f=g+480:p=20 $5900 :p<203050 =""3010 3="5"B(O+1,P-12 )=03050 J="6"o<7o=o+1:o-1,p;" ";o,p;2;7;f J="7"o>0o=o-1:o+1,p;" ";o,p;2;7;f 3000 =""3000 923560\<491ž23560\>5683050 x$=(23560\) %x$<1Űx$>83050 20*(x$)+3040 xo>0p<19B(o,p-10 )=0o=o-1:p=p+1:o+1,p-1;ں(((o,p))/8);" " 3500 :3000 p>12 o>0B(o,p-12 )=0o=o-1:p=p-1:o+1,p+1;ں(((o,p))/8);" ":3090 Dp=12 o,p;4*(o/2-(o/2));" ":3400H /p=19o+1,p+1;7;" " 3500 :3000 p>12 o<7B(o+2,p-12 )=0o=o+1:p=p-1:o-1,p+1;ں(((o,p))/8);" ":3110& !Gp=12 o,p;ں(((o-1,p+1))/8);" ":3400H &/p=19o-1,p+1;7;" " +3500 :3000 0o<7p<19B(o+2,p-10 )=0o=o+1:p=p+1:o-1,p-1;ں(((o,p))/8);" " :3500 :3000 Dp>12 p<20B(o+1,p-12 )=0p=p-1:o,p+1;2-(((o,p))/8);" ":3155S IGp=12 o,p;2-(((o,p+1))/8);" ":3400H N,p=20o,p;7;" ":p=p-1 S3500 :3000 Xho<7B(o+2,p-11 )=0o=o+1:o-1,p;2-(((o,p))/8);" " b3500 :3000 l`o>0B(o,p-11 )=0o=o-1:o+1,p;2-(((o,p))/8);" " v3500 :3000 ip<19B(o+1,p-10 )=0p=p+1:o,p-1;2-(((o,p))/8);" " 3500 :3000 H 3,10 ;2;" " M#N(g,1)0g=g-1 R66900:o=3:p=20:502:g0O+1+h<9 P-11 +i>0P-11 +i<9 B(O+1+h,P-11 +i)0E=B(O+1+H,P-11 +I):3520 O+1+i>0O+1+i<9 P-11 +h>0P-11 +h<9 B(O+1+i,P-11 +h)0E=B(O+1+i,P-11 +h):3520 i:h:3560 a=8*p+4:b=(21-o)*8+4:c=(K(E,2)+11 )*8+4:d=(22-K(E,1))*8+4:c=s$(3)d=s$(4) =s$=c+d:j=01:1;c,d:1;a-c,b-d X.05|L,2:.05|L,2:1;c,d:1;d(le,3);a-c,b-d:J ZN(g,1)=N(g,1)-1:7+g*2,25;1;N(g,1);" " k=-7 k=14 e=(*(le+1)+1) nh=(k(e,1)-o+1)*-2:i=(k(e,2)+11 -p)*-1:h0i03568 k: 3569 +2*(i+h) k(e,1)+h>0k(e,1)+h<9 k(e,2)+i>0k(e,2)+i<9 (k(e,1)+h-1,k(e,2)+11 +i)=" "a=k(e,1):b=k(e,2):k(e,1)=k(e,1)+h:k(e,2)=k(e,2)+i:3585 k(e,2)+h>0k(e,2)+h<9 k(e,1)+i>0k(e,1)+i<9 (k(e,1)+i-1,k(e,2)+h+11 )=" "a=k(e,1):b=k(e,2):k(e,1)=k(e,1)+i:k(e,2)=k(e,2)+h:3585  B(a+b)/2=((a+b)/2)c=2:d=0:3588 c=0:d=2 a-1,b+11 ;d;" ";k(e,1)-1,k(e,2)+11 ;c;d(le,3);"":b(k(e,1),k(e,2))=b(a,b):b(a,b)=0 k=-7:3505  S=175:T=120x:9990':g=06:g,11 ;" ";g,10 ;0;7;((*4+158));g,21;((*3+162)):g ;K=0:L(LE+2,5):S$="068254":6800 e3,10 ;0;D(LE,1);"";3,21;"";0,0;7;"3.6" G=1LE+2:g<41,21-g*2;0;7;"":L(g,1)=1:L(g,2)=21-g*2 yg>35,25-g*2;0;7;"":L(g,1)=5:L(g,2)=25-g*2 IL(g,3)=(*9 +1):L(g,4)=(*9 +1):g EL((*(le+2)+1),5)=2:o=3:p=20 $a=1:9980& &S3,20;2;" ";9 ,1;6;"In this room";10 ,1;"you can see ";11 ,1;le+2;" chests.";13 ,1;"On the far";14,1;"side of the";15,1;"room there is";16,1;"a ";s$;" door";17,1;"secured by a";18,1;"padlock." / C=1 B5900 :=""3650B Lx="5"((o,p-1)/8)0(o,p-1)=" "p=p-1:o,p;2;" ";o,p+1;7;" " Vx="6"((o+1,p)/8)0(o+1,p)=" "o=o+1:o,p;2;" ";o-1,p;7;" " `="7"((o-1,p)/8)0ƪ(o-1,p)=" "o>0o=o-1:o,p;2;" ";o+1,p;7;" " jx="8"((o,p+1)/8)0(o,p+1)=" "p=p+1:o,p;2;" ";o,p-1;7;" " l_K=1="0"o=3p=11 3,11 ;" ":.01z# =,10 :1000 oIi=1le+2:o=L(i,1)+1p=L(i,2)3700t pi r 36408 "L(i,5)=136408 ""3802 A150:c=3:10 ,1;6;"First Number" 7G=112 :23560\=13 3820 x$=:x$""h=x$-480 x$""h=L(i,c)c=c+1:4*(c-1),5;1;7;h;0;6;" YES":.07}\(,10 :3850  ex$""4*c,8;6;"NO";c*4,5;1;7;h:.07}\(,-10 h=11 :g .S<152.005y# =,60<:3840 <80P,T:31,0:80P,S:31,0 S=S-1:T=T+1:S175((S-7)/8)=(S-7)/8(168-S)/8,11 ;0;" ";(175-T)/8,11 ;" " S=1439900&  3810  ""3850   Jc=4x$="":14,1;6;"Second Number":3820 g=1502:g ;150:8,1;1;6;"It opens." 8l(i,5)=2l(i,5)=1:3900< (:l(i,5)=1::3925U+(*3)*20 6d=-d |L(g,1)=L(g,1)+d:L(g,3),L(g,2);1;"";L(g,1),L(g,2);"":L(g,3)=L(g,1) g:4300 +g=13:d=(*5-2) "L(g,5)=14275 6L(g,2)+d<6L(g,2)+d>25d=-d L(g,2)=L(g,2)+d:L(g,1),L(g,4);1;"";L(g,1),L(g,2);"":L(g,4)=L(g,2) G:4300:4200h  M=O:N=P ;="5"((o,p-1)/8)0p=p-1 ;="6"((o+1,p)/8)0o=o+1 #="7"o>1o=o-1 ;="8"((o,p+1)/8)0p=p+1 )="0"o=3p254450b cU=U+.5:m,n;1;" ";O,P;2;1;" ";14,1;6;0;U (o,p)" "44000  5r.01z# =,60<:g=13:o=L(g,1)p=L(g,2)L(g,5)=1:L(g,2)=0 :g:o,p;2;" ": b3L(p-24,5)=0.1}L,2: lo,p;" ";o,p+1;2;" ";o,p+2;D(LE,1);"":p=p+1:.005y# =,30:.005y# =,502:p<28 "O,P+1;0;" ";8,1;6;"Your party";9 ,1;"was in the ";10 ,10 ;" ";10 ,1;"room for ";U;11 ,1;"seconds and";12 ,1;"suffered this";13 ,1;"damage. ";14,1;" " G=1ME:d=(*(U/(12 -2*le))):14+g,1;6;T$(g,15);" lost ";d;" ";7+2*g,25;1;7;N(g,1)-d;" ":N(G,1)=N(G,1)-D:G:6900  9950&  1000 j9990':L(6):G=16:L(G)=(*4+1):G:L((*6+1))=3 8t21s=1:t=9 :o=4:p=8 g=16:g,8;" ";g,7;0;7;(158+(*4));g,24;(162+(*3));" ":g 7,8;0;7;e$(10 25);0,8;f$(13 28);0,0;"3.3";o,p;2;" ";0,9 ;0;D(LE,1);"";0,21;"";4,7;"";4,24;"" S$="244252":6800 Zg=262:h=12 175:g,h;0;5;"":h:g a=13 185:1,a;0;D(LE,2);"";2,a;"";3,a;"";4,a;"";5,a;"";6,a;"";0,A;" ";7,A;" ":a Eq=0:t=21s=4:t=23:o=1:5100 8666!:g=1D(le,2)-2:a$:g:9 ,1;6;"You can see ";10 ,1;"six teleport";11 ,1;"pads, three";12 ,1;"other doors";13 ,1;"and 2 chasms";14,1;"filled with a";15,1;a$;" gas." Mr$="":k=0:G=1ME:H=69 :T$(G,H)" "k=k+1 H:T$(g,h)" "r$=r$+g g d="5"((o,p-1)/8)0p=p-1:o,p;2;" ";o,p+1;7;" " d="6"((o+1,p)/8)0o=o+1:o,p;2;" ";o-1,p;7;" " n="7"((o-1,p)/8)0o>0o=o-1:o,p;2;" ";o+1,p;7;" "  d="8"((o,p+1)/8)0p=p+1:o,p;2;" ";o,p-1;7;" " U="0"o=sp=ts,t;2;" ";o,p;7;" ":.01z# =,10 :5200P ="T"k2*LE-(P-11 )*3/5P=11 P=16O=2O=4O=6O,P;" ";O,P+1;0;2;"":5700D N5900 :5100 Ps$="156253":6800 Rt=235500| U[r=0:c=2:a=8:b=24:d=6-le:e=1:f=1:j=a:k=c Zt=21:1010 dis=6-le:o=6-le:p=9 :7-le,9 ;D(LE,1);0;"";s+1,t;"" n 1200 | 1000 D/G=O/2+(((P-6)/10 ))*3 I&i=-20502:.01z# =,i:i K:i=1le LCd=(*r$+1):T$(r$(d),69 )=" "5708L N(h=69 :T$(r$(d),h)=" "h PeK=K-1:T$(r$(d),h)=" ":r$(d)*2+7,28;3;T$(r$(d),69 ) Si:150 XO,P+1;0;5;"";10 ,1;0;6;"The teleport";11 ,1;"drains ";le;12 ,1;"spells from";13 ,1;"your party." b.1}L,0 lHO=3:P=3+L(G)*6:L(G)=3S=4:T=23 L(G)=45200P O,P;2;" "   1000  "C" q=1me:r=69 :T$(q,r)="C"T$(q,r)=" ":7+2*q,28;3;T$(q,69 ):5910 r:q: "Who is to be cured ? ";r$  r$15910 %2r$-480<1ůr$-480>me5910 (mq=R$:N(Q,1)=N(Q,1)+(*7+2):N(Q,1)>N(Q,3)N(Q,1)=N(Q,3) *Ale<47+2*Q,25;1;N(Q,1): 4Kle=4-2+3*Q,24;1;7;N(Q,1): p3ro=0:le=le+1:le=46400 z]:d=(*2+1):p$(2)=d:p$(3)="2":p$(2)="2"p$(3)="1" [d=(*2+3):p$(1)=d:p$(4)="4":p$(1)="4"p$(4)="3"  1000 ro=5500 U6055:3600,2000,5000,4000:g=1̰p$(ro):a:g:a d9 ,1;6;"On this door";10 ,1;"a message is";11 ,1;"written...";13 ,1;"'Within lies";14,1;" Angus.";16,1;"Enter if you";17,1;"wish to die.'" n9950&:7000X :23675{\,S$(3):23676|\,S$(4):: 0h=1me:N(h,1)>06945! hs$=t$(h,5):j=h+1me:t$(j-1,)=t$(j,):i=110 :n(j-1,i)=n(j,i):i  le<4a=5+2*j:a,14;5;j-1;7;" ";T$(j,5);1;" ";N(j,3);" ";a,25;N(j,1);" ";a,28;3;t$(j,69 ) >le<4112p,119w-16*h:0,-7 j:h>me6945! T$(me,)=s$+" ":N(me,1)=0:le<47+2*me,14;" ";T$(me,5);1;" DEAD ":me=me-1:112p,111o:0,-111o Hh=h-1:le=4b=-100d:g=me:7103:me=me-1 !h $ME=08900" & X7000X:2,1,3,2,4,4,5,7,6,8,3,8,10 ,9 ,11 YHB(3,5):G=13:H=15:B(G,H):H:G Z0:6::B=0:ST=0:he=1:l1=1:l2=1:a1=1:a2=1:pa=0:sh=0: =17:N(G,2)=0:ST=ST+(N(G,3)/2):G:ST=ST+502:N(7,5)=ST:EX=EX+2*ST `G=1ME b(d=(*11 ):g=17025q gBh=1g-1:N(h,10 )=d*2+17010b lh q$N(g,10 )=d*2+1:g S$="002252":6800 W0,0;"";1,0;"" 2,0;" ";3,0;" ";4,0;" " 5,0;" ";6,0;" ";7,0;" ";8,0;" " S$="114252":6800 9 ,0;" ";10 ,0;" ";11 ,0;" ";12 ,0;" " 2g=13 19:g,0;g$(23):g S$="226251":6800 16,0;" ";17,0;" ";17,5;0;" ";17,11 ;" ";17,17;" " 0g=2021:g,0;7;g$:g 9g=021:g,23;7;" ":g 183,175:0,-175:0,16:183,0:47/,104h:480,20,-1:95_,124|:480,-20,-1 S$="058251":6800 %G=1ME:a=(g-1)*3 da,23;5;g;7;" ";T$(g,5):n(g,8)>0a,31;7;"" ЁN(g,1)>0a+1,24;7;1;N(g,1);" ";a+1,27;3;T$(g,69 ) IN(g,1)0a+1,23;1;7;" DEAD " >184,155-(24*(g-1)):71G,0 b=-100dg: z17,N(g,10 );2;1;ں((17,N(g,10 ))/8);"";18,N(g,10 );6;"" D((17,N(G,10 ))/8)=0N(G,2)=1 [21,N(g,10 );1;7;g;20,N(g,10 );7;0;"^" g )21,23;7;"Bolts ";bo 4P(3,2):Q(8):g=111 u(17,G*2-1)" "(((17,G*2-1))/8)=0P(G/3,1)=1 {(17,G*2-1)" "(((17,G*2-1))/8)=6Q(G+(G/3)*-1)=1 G S$="089255":6800  8150:8250: =a1=0:a2=0:he=1:s$="106248":6800 h5,11 ;1;"";6,11 ;"";7,10 ;"";8,11 ;"" 08350 :8450!:8550f!:7200  -G=35:G,8;" ":G 1:S$="058251":6800:6,8;" ";7,8;" ";8,8;" ";9 ,8;" " FS$="122250":6800:8,8;"";9 ,8;"" vS$="034250":6800:5,14;" ";6,14;" ";7,14;"";8,14;"" \S$="114249":6800:5,10 ;"";6,10 ;"";7,10 ;""  0:  S$="058251":6800 !SH>0SH=SH-1:SH=05,41):1;173,0,-.5:1;0,15:1;-173,0,.5:1;0,-15 "PA>0PA=PA-1 $KI=1502:0,0;0;4;"3.8 MOVEMENT" %D.005y# =,10 :0,8;4;0;"MOVEMENT" /Kf$=:f$""f$>480Ưf$0 J*:D=(*6):8100+D*100d T 2:he=he+1+((he+1)/3)*-3 nB=((64122z+he*64@)/256):23676|\,B:23675{\,((64122z+he*64@)-B*256) <3,10 ;1;"";4,10 ;""  $a1=0a1=1:8210 a1=1a1=0 :nB=((63770+a1*88X)/256):23676|\,B:23675{\,((63770+a1*88X)-b*256) Xy3,8;1;"";4,8;"";5,8;"";6,8;"";7,9 ;"" j l$a2=0a2=1:8310v ma2=1a2=0 nB=((63946+a2*88X)/256):23676|\,B:23675{\,((63946+a2*88X)-b*256) ~3,14;1;"";4,14;"";5,13 ;"";6,13 ;"";7,14;""  l1=1 !lB=((63674+l1*24)/256):23676|\,B:23675{\,(63674+l1*24)-b*256 ! 78,10 ;1;"";9 ,10 ;"" !%$l1=1l1=0:8450! !2 !4 l2=1 !flB=((63722+l2*24)/256):23676|\,B:23675{\,(63722+l2*24)-b*256 !78,13 ;1;"";9 ,12 ;"" !$l2=1l2=0:8550f! ! ! 8100 !ST>0 !R7193:9951&:N(7,5)=(N(7,5)-502)*2 !Ԡ11 ,3;"To complete your";12 ,3;"quest, each of";13 ,3;"the rocks will ask";14,3;"you a question.":9951& !&9960&:"First","Second","Third" !" doors"," chasms"," knights" !*"purple","green","blue","yellow","white" !eo=13:8691!::p=(*3+1):8666!:i=1D(p,o)-2:A$:i !*8665!:i=1o:r$:i:a$=a$+r$ !8664!:i=1o:s$:i:10 ,6;S$;" rock. ";12 ,5;"'Tell me the";13 ,6;"level of the";14,6;a$;".'" !?"Which level ? (1,2,3) ";p$:p$"1"p$"2"p$"3"8680! !<p$=p.1}L,40(:.1}L,502:o:8694! !j=10 0-1:.05|L,j:j:12 ,4;"You lie, so the";13 ,4;"rock takes ";o;" str";14,4;"from each man. ":s=1ME:N(s,1)=N(s,1)-o:(s-1)*3+1,24;7;1;N(s,1);" ":s !06900:9951&:8691!:8678! ! 9960& !23675{\,226:23676|\,251:16,-2+o*6;3;"";17,-2+o*6;"": !-10 ,6;" ":9960& !g=13:i=110 :.001wn,40(:1;-4+480*g,480:1;128-64@*g,64@:i:g !-G=59 :G,8;" ":G !p23675{\,252:23676|\,254:8,9 ;"";9 ,8;"":8800`" !PA>0 ! 8100 "sB(HE+1,1)=B(HE+1,1)+1:B(HE+1,1)=6B(HE+1,1)=2 "'D=B(HE+1,B(HE+1,1)) ".D<7F=3:E=-2:8715 " "#Q=0:F=1:E=5-D " ^b=-24:a=(-5+16*d-(83S+12 *HE))/4:SH>0B=-20 ".D=3D=6D=9 B=B+2.5 ".I=12:1;1;83S+12 *he,133:1;1;a,b:J=13:1;1;e,f:1;1;a-e,b-f:J:G=60<502-1:.001wn,G:G:1;1;83S+12 *HE,133:1;1;A+D,B-2*F:1;1;E,F:1;1;A-E,B-F:1;1;E,F:1;1;A-E,B-F:1;1;E,F:1;1;A-E-D,B+F:I "06SH>0D=3D=6D=9 8770B" "3-23675{\,58::23676|\,251 "8g=1me:N(g,10 )=d*2-1N(g,1)=N(g,1)-(*(n(7,5)/10 )+10 ):(g-1)*3+1,24;7;1;N(g,1);" ";17,N(g,10 );6;2;"":N(g,1)021,N(g,10 );0;7;me;18,N(g,10 );0;6;"";17,N(g,10 );" ";19,N(g,10 );1;"":6900 "=g "GL8100:g=1me:21,N(g,10 );1;7;g:g: "``7:0,88X:183,0:G=11 21:G,0;g$(23):G "a)184,175:0,-175 "jx12 ,1;"The dragon turns into";13 ,1;"a pile of treasure";14,1;"which contains..." "oA=N(7,5)*31:B=N(7,5)*7:C=N(7,5)*11 :d=b+c+(a/20):ex=ex+d:go=go+d "t16,1;A;" silver pieces.";17,1;"Gems worth ";b;" g.ps.";18,1;c;" gold pieces and";19,1;"Hagar's Elixir.";21,5;"Press any key" "~mc=((ex/((N(7,5)^2)/30))):0:g=021:g,0;g$(23):g "1,1;"You have found the";2,1;"Elixir and completed";3,1;"your quest. This is";4,1;"your journey's end.";6,1;"During the adventure";7,1;"you found";9 ,6;go;" gold" "'11 ,1;"and gained";13 ,3;ex;" exp. points";15,1;"As a result of this";16,1;"experience, each man";17,1;"increases his maximum";18,1;"strength by ";c;" hit";19,1;"points.";21,5;"Press any key" "g=1me:n(g,8)=0:N(G,1)=N(G,3)+C:T$(G,6)=n(g,1)+" ":g:b=-100d:7103 "x0::10 ,3;"Prepare a tape for saving",,," your party.";0,0;"3.10":9951& "Rs$=t$(1,5):21,9 ;"Press any key":0::s$t$(): &s9951&::8,4;"YOU HAVE FAILED IN YOUR";11 ,4;"QUEST TO FIND THE ELIXIR.":0: &G=1100d:G &G=1100d:G: &4I=11 15:I,3;g$(18):I: &08666!:g=1d(le,a)-2:s$:g: 'S$="156253":6800: t(b(2B<@<d cef !!p lmnu#+-XP !AblueR12345672S156253FEG K BB<DHpHDB@@@@@~BfZBBBBbRJFB>P CODE 3 gt6 ?@~~<<?~~<==>>>UU@ ==>UU@@888|||8`0g3  >g1g1~@@@```pPPXHldvrjx<+(/!<ǜ188hȘ s0pp0p|?s挹3 `@?9~x@p`@@ 6&nN6<<9 ``@@@@/bC8o8AchH}@`??)F8((H(=|8x82$HP`@`?-n޽}} ~ @<<<~~<<6߿ߟ?>???????????ۿۿ_owww{HX gAA\<~~~~<`fzJz>>8<088|T|8888|????!Y@w#  IRnNRe@@P"HeUBTD"!5*1@ hk>Wy W #*< K r),> Z &)F B *-B */2C Jobby BagucSSS Kadad C SonadS CikudCCP ZotokCC SedobP \Dfvt<$bDfVD<$bDf