ZXTape! castles MM^@O &5:5:5:1: "" 0,0:"" sc  0?03 )<<J 0?03!B<<<||><BH0 ???03C@BBBBB0g0?? 03C<@BBBB?0?Á03@B||B? 0 0@!0 3BBBD@B0g?s0?A?B<<<B'0g?0 I <<! <>?@|>?|> ? <?|><@|>?|> ? DBBf@@BBB@DBBb@@(BB@D>|><|>|>|>?<|>|>"DN~B@BB|@BBBBJ@?>BH@B| |>x|>|>?"<BBB@BZBD@D<BBBF@B`B~@D| |>x|>|>`<<<~x?||>?|>|>?08??>?|>?|>|>?|>?|>|>??<3 |>?|>|>??| |>|>W{ހ|?|>|>wW ||3|>|>o> c|>|>_?>C|>?|>???6?_C?|>?|>??xp8??>?hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhiiiiiiiihhhhhhhhhhhhhhhhhhhhhhhhiiiiiiiiWWWWhhhWWWWhhhhhhhhhhhhhiiiiiiiiWWWWhhhWWWWhnnnnhhhhhphhhhihhhhhWWWWWWWWWWWWWWnnhhhppphhiiiiiiihWWWWWWWWWWWWWWnnhhFppphhiiiiiiihWWWWWWWWWWWWWWnnhhFppphhhhhhhhihWWWWWWWWWWWWWWnnnhnppphhhiiiiiihWWWWWWWWWWWWWWnnnnowwhhhhiiiiiihWWWWWWWWWWWWWWnnn~yyoihiiiiiiihWWWWWWWWWWWWWWnoooyyoohhihhllllWWWWWWWWWWWWWWhhoyyyyooohhhlllllWWWWFFFWWWWWWWhooyyyyooohhkllllhWWWWFFFWWWWWWWh}yyyyyoxohhlllllhWWWWFFFWWWWWWWh}yyyyywwohnllllhhWWWWFFFWWWWWWWiiiyyyiqnnhlllllhhWWWWFFFWWWWWWWiiiiyyiinnhllllhhhWWWWFFFWWWWWWWiiiyyyiiihlllllhhhWWWWWWWWWWWWWWiiiiiiiiiklllliiiiWWWWWWWWWWWWWWiiiiiiiiillllliiiiWWWWWWWWWWWWWWiiiiiiiiillllhiiiiWWWWWWWWWWWWWWhhiiiiihlllllhiiiiWWWWWWWWWWWWWWhhiiiiihlllllhiiiicastle  1 by B .JONES 1984.  4500 63999 G9 ,0;7;2;" PROGRAM LOADING PLEASE WAIT. " ""64000,768  63229 G9 ,0;7;2;" PROGRAM LOADING PLEASE WAIT. " ""63230,768 "a"-502 #G9 ,0;7;2;" PROGRAM LOADING PLEASE WAIT. " ("""a"-502,502 2"" <("a"-502) Z&6:0:2:1: _ 9000(# ` 9300T$ a 9200# c d8000@:arrays e 9600% n:9050Z#:screen R x 6020 7000X  loop for direction  k=-100d k=10 2200 k=152210 k=12220 k=192230 k=205000 k=162300 'k=-19quit=1:7410 3.001wn,20 4 2000  north  %a(pos+20)=12000 k=10 pos=pos+20  7000X  south  %a(pos-20)=12000 k=15pos=pos-20  7000X  east  $a(pos+1)=12000 k=1pos=pos+1 k=1side=side+1  7000X  west  $a(pos-1)=12000 k=19pos=pos-1 k=19side=side-1  7000X  take  Cc(pos)2c(pos)>46010z:6020:2000 Rc(pos)=316,11 ;6;0;"B":sw=1:6020 <c(pos)=316,12 ;3;0;"" [c(pos)=4a(pos)<1912 ,10 ;0;" ":key=1:6020 sc=sc+5 Dc(pos)=4a(pos)>186010z:6020:2000 )@c(pos)=5:z=125:.01z# =,z:z:2000  fight aminal  sw=07350 X9000(#:7,24;7;2;1;"R";8,24;"F" k= k=102f3100 k=114r3500 .1}L,0:3015  fight   !4000:6000p &>2,0;6;0;"_______________________" '?17,0;6;0;"_______________________" (_6:120x,152:0,23:80P,152:0,23:0 *o31200 :1,11 ;0;6;"YOU";1,16;"ANIMAL";1,0;"CONDITION" +Dz=4163:q$:z,1;4;0;q$:z 0-"FIT","WOUNDED","INJURED","CRITICAL","DEAD" 290157#:4,11 ;6;0;"J";4,17;"J";4,12 ;2;"";4,18;"" 5lz=516:z,11 ;6;"";z,17;"";z,12 ;2;"";z,18;"":z :you=4:ann=you Dscrap=scrap-1 Iscrap<2scrap=2 Nz=(*scrap)+1 O 9000(# Sz>13350 Xz=13300 ](18,3;5;0;t$ bT20,0;5;0;" ";20,0;s$ d 90157# g]you,11 ;6;0;"J";you,12 ;2;"";you-1,11 ;" " l]ann,17;6;0;"J";ann,18;2;"";ann-1,17;" " qXz=1200:z:.1}L,(*30)+1:.1}L,(*30)+1 vann=163200 xyou=163250  3150N  animal dead  l9000(#:18,1;0;" ";20,0;5;"CONGRATULATIONS YOU WIN" z=(*3)+1 z=19500% z=29600% z=39700% a(pos)=18 sc=sc+20 sw=0:6020 7000X  you dead  q9000(#:18,1;0;" ";20,0;5;" YOU ARE DEAD ! " 9600% 7400  you get hurt  3320 you=you+1 !w=1̺(*15)+1 s$:w i"SCRATCHES AT YOU.","BITES AT YOU.","RIPS YOUR FLESH.","KNOCKS YOU TO THE FLOOR","CUTS YOUR FACE OPEN." o"JUMPS ON YOUR BACK.","BITES YOUR LEG.","KNOCKS OFF YOUR HAT.","KICKS YOU IN THE HEAD.","BITES AT YOUR NECK." l"SCRATCHES AT YOUR EYES","BITES YOUR EAR OFF.","BITES A FINGER OFF.","BREAKS YOUR ARM.","BITES YOUR NOSE." t$="THE ANIMAL...."   animal get hurt   3370* ann=ann+1 !w=1̺(*15)+1 %s$:w *v"PUNCH THE ANIMALS NOSE.","STAB AT THE ANIMAL.","SCAR THE ANIMAL.","PUSH THE ANIMAL OVER.","SLASH THE ANIMALS FACE." +{"PULL THE ANIMALS EARS.","CUT THE ANIMALS THROAT.","CHOP IT'S TAIL OFF.","KNOCK IT OVER THE HEAD.","STAB CUT AND THRUST." ,o"BASH THE ANIMALS NOSE.","KICK AT THE ANIMAL.","SCAR THE ANIMAL.","INJURE THE ANIMAL.","PUNCH AT THE ANIMAL." /t$=" YOU...... " G H  run  $4000:wat=wat-(ski*15) wat07300 sc=sc-2 6020:2000  replace f r  M9000(#:7,24;7;2;"R";8,24;"F":  0  enter building  Pa(pos)>11 key=0c(pos)=16010z:6020:2000  9075s#  6020 z=010 :z,6;2;7;"aaaaaaaaaaaaa":z:t=8:u=12 :7170:8,13 ;0;2;"?";9 ,13 ;"";10 ,13 ;"";1,9 ;"";2,9 ;"";4,16;"";5,16;"" ;t=12 :u=3:7235C:u=19:7250R z=149 -1 .01z# =,25:.01z# =,20:.01z# =,30:z,12 ;0;4;"";z+1,12 ;6;"";z+2,11 ;3;" ";z+3,12 ;" " .01z# =,25:.01z# =,30:.01z# =,25:z,12 ;0;4;"";z+1,12 ;6;"";z+2,12 ;3;"" z j.1}L,0:z+1,12 ;0;" ";z+2,12 ;" ";z+3,12 ;" "  9500%  5900   5100  5200P  generate screen   6000p _32 ,40(:120x,0:0,96`:-120x,0:0,-96` P32 ,40(:-31,-39':152,40(:31,-39' P32 ,136:-31,39':152,136:31,39' o9 ,10 ;0;4;"";10 ,10 ;6;"";11 ,10 ;3;""  fb(here+7)188X,136:-8,24:24,0:-8,-24 ub(here-7)1b(here)=288X,40(:-8,-24:24,0:-8,24 eb(here-1)132 ,88X:-24,-8:0,24:24,-8 fb(here+1)1152,88X:24,-8:0,24:-24,-8 b(here)=29000(#:21,9 ;3;0;"^ ^";21,10 ;5;0;"OUT":90157# #^b(here)=3posplace11 ,15;4;0;"FG";12 ,15;"HI" (sb(here)=3pos=place11 ,15;6;0;";";12 ,15;";";13 ,15;";" * 90157# -Qb(here)=69 ,6;7;0;"LM";10 ,6;"NO" .7:b(here)=660<,80P:10 ,-10 :20,0:2,-2:0,-15:-2,-2:-30,0:-2,2:0,15:2,2:3,0:-3,10 2]2:b(here)=69000(#:14,8;4;0;"BOO":90157# 7[b(here)=6.4L,30:z=(*(10 +ski))+11 :wat=wat-z:6020 <wat07300 O P loop  Uk=-100d Zk=10 5250 _k=155260 dk=15270 ik=195280 nk=165350  5200P  north  6b(here+7)=11,0:5200P here=here+7  5300  south  ^b(here)=29600%:6000p:c(pos)=1:key=0:6020:7000X 6b(here-7)=11,0:5200P here=here-7  5300  east  6b(here+1)=11,0:5200P here=here+1  5300  west  6b(here-1)=11,0:5200P here=here-1  5300  regenerate screen   5100  5200P  take  Hb(here)3roll=lotposplace6010z:6020:5200P pposplace11 ,15;0;" ";12 ,15;" ";13 ,15;" ":roll=roll+1 pos=place11 ,15;0;" ";12 ,15;" ";13 ,15;" ":lad=1:.2~L,30:.4L,10 :6020:b(here)=0:5200P b(here)=0 $z=130:.01z# =,z:z sc=sc+10 9000(#:6,7;5;0;"THE SCROLL";7,8;"READS...";13 ,6;"THE GOLDEN";14,6;"LADDER LIES" ?place<(pos-side)15,5;5;0;"SOUTH" Jplace>(pos+(20-side))15,5;5;0;"NORTH" 6lr>side15,13 ;5;0;"EAST" 6lrz=(*5)+9 Hb(z)=2 Mhere=z Rz=(*34")+1 Tb(z)>05970R Vb(z)=3 Wz=(*34")+1 Yb(z)>05975W \b(z)=6 o p clear screen  uQz=021:z,0;0;7;" ":z: z you cant  | 9000(# }?z=15:z,24;7;2;" ":z _2,25;7;2;"SORRY";4,25;"CAN'T";3,26;"YOU" z=113 ).1}L,20:.1}L,10 :z 90157#:  delete words  90102#:1,24;7;2;"() ":90157#:2,24;4;0;" D ";3,24;7;2;" ; " K4,24;0;7;"W FG ";5,24;"X HI " D9000(#:sw=12,27;2;7;" YES" 9key=11,27;0;4;" YES" 9lad=13,27;0;4;" YES" 8sw=02,27;2;7;" NO " 9key=01,27;4;0;" NO " 9lad=03,27;0;4;" NO " 5,25;0;4;" ";4,25;" ";5,25;top;4,25;wat;4,25;1;"__" 5,30;7;2;" ";4,30;" ";5,30;lot;4,30;roll;4,30;1;"_"  90157#  d the rescue  e!16,11 ;0;" " gz=13 hO.1}L,10 :.2~L,15:.1}L,10 :.5,15:z iO9000(#:7,12 ;7;0;"my";8,11 ;"hero" mz=180P:z nz=1418 s.1}L,10 :z,12 ;0;" ";z+1,12 ;4;"";z+2,12 ;6;"";z+3,12 ;3;"" xB.1}L,5:z+3,12 ;3;0;"":z }n.1}L,5:21,12 ;3;0;"";7,12 ;" ";8,11 ;" " .1}L,10 :19,11 ;0;4;" ";20,11 ;6;" ";21,11 ;3;" "  90157#:f=713 #e=7:6900:3:f  f=14:e=810 6910:3:e ,e-2,f+1;6;0;";" !e=11 18:6920 9e=13 e-2,f;2;7;0;"a"  3:e !sc=sc+600X+(ski*100d)  9700%  7400  print maid  be,f;3;0;" YZ";e+2,f;" {}";e+3,f;" |\";e+1,f;6;" ][":  print maid  pe,f;3;0;"YZ";e-1,f;" ";e+2,f;"{}";e+3,f;"|\";e+1,f;6;"][":  print maid   pe,f;3;0;"YZ";e+2,f;"{}";e+3,f;"|\";e+1,f;6;"][";e-1,f;" ;": X screen generation  Y 2 Z 9075s# ] 90157# ba(pos+20)=15,1;2;7;"aaaaaaaaaaaaaaaaaaaaa";6,2;"aaaaaaaaaaaaaaaaaaa";4,2;1;5;"C C C C C C C C C C" ga(pos-20)=119,3;2;7;"aaaaaaaaaaaaaaaaa";20,3;"aaaaaaaaaaaaaaaaa";21,1;"aaaaaaaaaaaaaaaaaaaaa";17,4;7;0;"C C C C C C C C";18,4;"A A A A A A A A" la(pos-20)=1a(pos-1)=119,0;2;7;"aaa";20,0;"aaa";21,0;"a";18,0;7;0;"A A";17,0;"C C" qa(pos-20)=1a(pos+1)=119,20;2;7;"aaa";20,20;"aaa";21,22;"a";18,20;7;0;"A A";17,20;"C C" va(pos+20)=1a(pos+1)=15,22;2;7;"a";6,21;"aa";4,22;1;5;"C" {a(pos+20)=1a(pos-1)=15,0;2;7;"a";6,0;"aa";4,0;1;5;"C" a(pos-1)=1z=718:z,0;2;7;"a":z:z=10 144:z,1;2;7;"aa";z+1,1;"aa";z-1,2;0;7;"A";z-2,2;"C":z a(pos+1)=1z=718:z,22;2;7;"a":z:z=10 144:z,20;2;7;"aa";z+1,20;"aa";z-1,20;0;7;"A";z-2,20;"C":z a(pos)=27110 wa(pos)=3t=1:u=3:7150:t=14:u=5:7170:t=5:u=0:72204 za(pos)=4t=1:u=15:7150:t=14:u=16:7170:t=5:u=20:72204 a(pos)=5t=5:u=0:7150:t=1:u=6:7150:t=14:u=8:7170:t=5:u=18:7150:t=9 :u=11 :7200  Sa(pos)=5z=10 14:z,5;0;7;2;"a":z a(pos)=6t=5:u=0:7150:t=5:u=18:7150:t=2:u=7:7185:t=10 :u=10 :7170 ma(pos)=6u=51611 :z=811 :z,u;2;7;0;"aa":z:u a(pos)=7t=3:u=7:7185:t=9 :u=0:7200 :t=9 :u=16:7200 :t=11 :u=9 :7170 a(pos)=8a(pos)=9 t=2:u=0:7150:t=14:u=2:7170:17,5;2;7;"aaaaaaaaaaaaaaaaaa":z=1821:z,20;2;7;0;"zzz";z,0;"zzzzz":z qa(pos)=8a(pos)=9 20,5;1;"";21,5;"" }a(pos)=890102#:21,7;7;1;"Y X Y X";20,7;"a Z a Z":90157# _a(pos)=9 19,8;4;0;"3456789 0";18,8;"12 E" a(pos)=10 9 ,0;6;0;"K";10 ,0;"K";11 ,0;"K":z=12 16:z,0;2;7;"aaaaaaaaaaa":z ya(pos)=10 t=14:u=8:7170:13 ,1;7;0;"AAAA";14,1;"AAAA" a(pos)=11 t=3:u=2:7185:11 ,3;7;0;"AAAA":t=11 :u=8:7170 a(pos)=2a(pos)=15a(pos)=7a(pos)=10 a(pos)=11 a(pos)=3t=15:u=18:7235C ca(pos)=10 a(pos)=11 a(pos)=3a(pos)=13 t=8:u=15:7235C a(pos)=2a(pos)=7a(pos)=6a(pos)=11 a(pos)=4a(pos)=13 a(pos)=15t=16:u=6:7235C Ra(pos)=4a(pos)=12 a(pos)=14t=9 :u=1:7235C Da(pos)=14a(pos)=12 t=8:u=10 :7235C a(pos)=16t=11 :u=5:7240H:t=9 :u=2:7250R:t=17:u=1:7250R:u=17:7250R za(pos)=16t=18:u=9 :7250R:t=7:u=11 :7235C:t=9 :u=18:7235C a(pos)=12 a(pos)=14a(pos)=16a(pos)=13 t=14:u=1:7260\:u=21:7260\:t=11 :u=14:7260\ a(pos)=17t=2:u=1:7150:u=17:7150:11 ,6;2;7;0;"aaaaaaaaaaa" za(pos)=17t=7:u=8:7270f:t=14:u=7:7235C:t=15:u=18:7170  90102# ja(pos)=199 ,7;4;0;";";10 ,6;"][{";11 ,6;"}|\" Va(pos)=2015,16;6;0;"<>=";16,16;"+-." a(pos)=2113 ,7;5;0;"!";14,6;"@#";15,6;"$%";16,6;"&'" a(pos)=228,15;2;0;"1";9 ,15;"23";10 ,14;"7458";11 ,16;"690" a(pos)=2313 ,9 ;3;0;"l";14,7;"mno";15,7;"pqr";16,7;"stu" {a(pos)=249 ,10 ;ٺ(*6)+1;0;"";10 ,10 ;"";11 ,10 ;"" ha(pos)=259 ,5;4;0;"fg";10 ,5;"hi";11 ,5;"jk" a(pos)=2614,6;6;0;"ABC";15,6;"DEF";16,6;"GHI";13 ,7;7;"L";16,5;"":90157#:t=11 :u=4:7235C Q90157#:c(pos)=3sw=016,11 ;6;0;"D" Sc(pos)=490102#:12 ,10 ;5;0;"()":90157# clad=1a(pos)=17z=9 17:z,15;6;0;";":z:6500d  wat=wat-ski &a(pos)=16lad=0wat=top wat07300  6020 a(pos)193000  2000  castle 1  Jz=6162:5,z;2;7;0;"z":z Lz=611 :z,6;2;7;0;"zzzzzzzzzzz":z Bz=17212:3,z;2;7;"a":z @z=152:3,z;2;7;"a":z Qz=412 :z,1;2;7;"aaaaa";z,17;"aaaaa":z Z9 ,11 ;0;2;"?";10 ,11 ;"";11 ,11 ;"" z=56:z,3;0;"";z,19;"";z+2,8;"";z+2,14;"";z+4,3;"";z+4,19;"":z   module 1  _z=uu+42:t,z;2;7;"a":z:z=t+1t+15:z,u;"aaaaa":z t+3,u+1;0;"";t+4,u+1;"";t+9 ,u+1;"";t+10 ,u+1;"";t+6,u+3;"";t+7,u+3;""   module 2  At,u;0;2;"?";t+1,u;"";t+2,u;""    module 3  cz=uu+82:t,z;2;7;"a":z:z=t+1t+10 :z,u;"aaaaaaaaa":z nt+3,u+2;0;"";t+4,u+2;"";t+5,u+6;"";t+6,u+6;""    module 4  %rz=uu+62:t,z;0;2;7;"a":z:z=t+1t+4:z,u;0;"aaaaaaa":z *<t+2,u+3;0;"";t+3,u+3;"" / 4 module 5  9t,u;2;7;0;"a";t,u+2;"a":z=t+1t+11 :z,u;0;"aaa":z:t+8,u+1;0;"";t+9 ,u+1;"";t+3,u+1;"";t+4,u+1;"" = > module 6  Ct,u;4;0;"!@#$";t+1,u;"% '(";t+1,u+1;7;0;"&";t+2,u+1;")";t+3,u+1;"_";t+4,u+1;"<" G H module 7  Mt,u;1;0;"jivw";t+1,u+1;"kx";t+2,u-1;"mltu";t+3,u-1;"nrs";t+4,u;"opq" Nsc=sc+1 Q R module 8  WUt,u;4;0;" b";t+1,u;"cd";t+2,u;"ef";t+3,u;"gh": \ module 9  d-t,u;4;0;"S";t+1,u;"T" e f module 10  k\t,u;3;0;"YZ";t+2,u;"{}";t+3,u;"|\";t+1,u;6;"][" l  die of thirst  /z=20-20-1:.01z# =,z:z $6020:90157#:6000p #t=14:u=3:7240H a3,5;7;0;"W":z=413 :z,5;5;0;"X":z 9000(#:4,14;6;0;"SORRY";7,15;4;"YOU";10 ,15;3;"DIE";13 ,15;7;"OF";16,14;5;"THIRST !"  9500%  7400  die no sword  /z=20-20-1:.01z# =,z:z 9000(#:6000p:2,3;3;0;"THE ANIMAL ATTACKS";7,8;6;"BUT......";12 ,2;5;"YOU HAVE NOT ARMED";15,1;"YOURSELF WITH A SWORD" :20,2;7;0;"R.I.P. HONEST LEZ"  9600%  game over  z=1100d:z Ez=04:z,0;0;" ":z [90157#:z=521:z,0;2;7;"aaaaaaaaaaaaaaaaaaaaaaa":z "e=1:f=2:6900 m2,18;4;0;"";3,18;6;"";4,18;3;"" <9000(#:2,7;6;0;"GAME OVER" Gquit=12,7;6;0;1;"QUIT GAME"  9 ,4;7;1;"YOUR PERFORMANCE";12 ,4;"THIS GAME SCORES";15,4;"YOU POINTS.";15,8;sc ?21,0;6;0;" R = REPLAY. S = STOP. " 9.1}L,10 :.1}L,20:.1}L,10 ="r"90Z ="s"0 $ 7445 L @ set up arrays  A Ea(160) Jz=121 Oa(z)=1:z R.03{u\,15 Tz=140160 Ya(z)=1:z ^z=40(120x20 c'a(z)=1:a(z+1)=1:z hz=22139 ma(z)=18053u n#a(z+20)=18053u o#a(z-20)=18053u p"a(z+1)=18053u q"a(z-1)=18053u ra(z)=(*15)+2 uz w.03{u\,20 xz=(*140)+1 ya(z)18056x za(z)=17 {.03{u\,30 |z=22139 a(z)08080 a(z)=(*9 )+18 z pos=502 key=0:sw=0 .01z# =,20 c(140) .03{u\,10 "w=125-(ski*2) z=(*120x)+1 (a(z)1a(z)>11 8115 c(z)=3 w .03{u\,30 z=(*20)+81Q (a(z)1a(z)>11 8130 c(z)=2 place=z:lr=z-80P side=10  lad=0 .03{u\,15 z=22139 w=(*3)+1 3a(z)<19a(z)>26w<38180 c(z)=4 z .03{u\,20 'wat=109m-(ski*10 ):top=wat *lot=11 -(ski*2):roll=0 scrap=8-ski:sc=0 quit=0 !3 #(change characters rom  #--236066\,0:236077\,60<: #2change characters ram1  #4.236066\,0:236077\,249: #7change characters ram2  #80236066\,254:236077\,245: #< memory left  #= #A510 ,10 ;65536-7962;" bytes" #F>12 ,10 ;(65536-7962)/1024;" K" #K #Z set up screen  #[ 9000(# #_(0,23;1;"" #bz=114 #d.z,23;1;6;" ":z #ez=1520 #f.z,23;1;4;" ":z #i)21,23;1;"" #j16,27;7;2;"N";20,27;"S";18,25;"W";18,29;"E";15,24;1;"COMPASS";6,24;"OPTIONS";0,24;"STATUS." #k/0:211,28:17,0 #l&220,18:0,20 #m 7 #n11 ,26;0;6;"NORTH";12 ,26;"SOUTH";13 ,26;"EAST.";14,26;"WEST.";10 ,26;"ENTER";9 ,26;"TAKE.";8,26;"FIGHT";7,26;"RUN." #o11 ,24;2;"N";12 ,24;"S";13 ,24;"E";14,24;"W";10 ,24;"X";9 ,24;"T";8,24;"F";7,24;"R" #r #s clear picture  #u 90157# #xNz=06:z,0;7;5;" ":z #}Oz=721:z,0;7;0;" ":z #~A0,20;6;5;"?";1,20;"`:" #z=(*7)+1 #w=(*18)+1 #1,z;7;5;">=+-";2,z;".,*/";1,z+9 ;">=+-";2,z+9 ;".,*/";4,w;">=+-";5,w;".,*/" #p14,12 ;0;4;"";15,12 ;6;"";16,12 ;3;"" #Xsw=116,12 ;3;0;"";16,11 ;6;"B" # # skill level  # 9215# #5:0,10 ;7;1;"SKILL LEVEL" #jz=14:p$:z*4,1;7;1;z;z*4,6;2;7;p$:z #T"DAY TRIPPER.","BRAVE ADVENTURER.","VERY BRAVE ADVENTURER.","SUICIDAL ADVENTURER." $820,6;1;"KEY 1 to 4 ....... ? " $ h=-480 $6h<1h>4.005y# =,30:9225 $ $9.5,10 :.5,30:.5,20 $ 3330 $ :ski=h $4,5;2;"SKILL LEVEL ";ski;" SELECTED.";10 ,10 ;" PLEASE WAIT ";16,2;"WE ARE NOW ENTERING THE CITY." $90157#:0,0;2;"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";21,0;"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa":z=120:z,0;2;"a";z,31;"a":z $S $T title screen  $UV:10 ,0;0;4;" DO YOU REQUIRE INSTRUCTIONS ? ":9900& $Vk=110n9497% $X $Ye21,0;7;2;" PRESS ANY KEY TO CONTINUE. ";0,12 ;"THE CAST" $[v5,12 ;5;"HONEST LEZ.";11 ,12 ;"MAID MARGARET.";17,12 ;"CHARLIE THE GHOST." $^90157#:e=9 :f=2:6900:3,2;4;"";4,2;6;"";5,2;3;"" $c816,3;7;"LM";17,3;"NO" $e9500%:10 $h 9900& $mA:9000(#:0,10 ;7;2;"THE OBJECTS" $n5,7;5;"A KEY...will open any ";6,18;"castle once.";10 ,7;"A SWORD...will allow you";11 ,14;"to fight 1 animal." $p\15,7;5;"A LADDER...to help rescue";16,17;"maid margaret." $rH21,0;7;2;" PRESS ANY KEY TO CONTINUE. " $t590102#:5,1;3;0;"()" $vf90157#:10 ,1;4;0;"D":z=1417:z,1;6;";":z $w 9900& $|A:9000(#:0,10 ;7;2;"THE OBJECTS" $5,7;5;"A SCROLL...will give you";6,13 ;"directions to the";7,13 ;"castle containing";8,13 ;"the ladder..limited" $H21,0;7;2;" PRESS ANY KEY TO CONTINUE. " $14,7;5;"WATER.......will be ";15,13 ;"replenished by a";16,13 ;"visit to an oasis." $90157#:5,1;4;0;"FG";6,1;"HI";14,1;7;"W";15,1;5;"X";16,1;"X" $ 9900& $@:9000(#:0,10 ;7;2;"THE STORY." $H21,0;7;2;" PRESS ANY KEY TO CONTINUE. " $4,0;5;0;" Honest Lez,fell in love with the lords daughter,Maid Margaret.When the wicked lord found out, he banished his daughter to a secret castle." $10 ,0;4;0;" Lez searches the kingdom,fights animals,faces death and danger on his travels to rescue his loved one." $z15,0;3;0;" Can you help Lez rescue Maid Margaret,elope and live happily ever after......." $ 9900& $J:21,0;7;2;" PRESS ANY KEY TO CONTINUE. " $40,10 ;7;2;"THE ANIMALS." $3,0;5;0;" ANIMALS...patrol the city walls If you meet an animal and have not found a sword,then it will kill you.." $8,0;4;0;" KEYS...are also found around the city walls.To obtain a key,you must first fight off the animal with your sword." $13 ,0;3;0;" NOTE...fighting an animal will make you weaken and will use up your strength." $‰17,0;6;0;" NOTE...running away from any animal will make you use up your water supply." $ 9900& $J:21,0;7;2;" PRESS ANY KEY TO CONTINUE. " $30,10 ;7;2;"THE GHOSTS." $3,0;5;0;" GHOSTS...are found inside the castles.If you meet a ghost,then it will take away some of your water supply." $|9 ,0;3;0;" NOTE...a ladder must be found in order to rescue maid margaret." $҈13 ,0;4;0;" NOTE...you can never drink from an oasis,when you are carrying the ladder." $T18,12 ;7;2;1;"GOOD";18,18;"LUCK" % 9900& % 9700% % 7: % 9000(# % % tune 1  % 95200% %!z=113 %&'w:v=14:.009ztj,w:v %+z %0i0,2,4,9 ,7,4,5,2,4,0,4,2,0 % % tune 2  % 9620% %z=115 %'w:v=14:.009ztj,w:v %z %23,21,19,17,16,17,19,16,14,16,17,14,12 ,14,16 % % tune 3  % 9720% %z=122 %'w:v=14:.009ztj,w:v %z %31,29,28,31,29,28,31,29,28,31,31,31,31,29,28,31,29,28,31,29,28,24 &G & hold till key  &&.01z# =,0:.01z# =,5 &=""9905& &k= & ' save routines  ' "castle"10 ' "castle"64000,768 ' "castle"63230,768 '!"castle""a"-502,502 ' "castle""a",21*8  }#  %k hk#            o$elac`idaa'oco olcraNuit uoner PSUICIDAL ADVENTURER.*QDEADSBITES YOUR LEG.TTHE ANIMAL....castle  |)   @08 lf{;0?lll 0<?rp`0000`02 ܎?=O) ߟ^}^zz!<gg# <P P`0PPHH?#32;?jZ 3gπ`` 8T`??v&9`.L@rNc4>Eer:|\pAcx?.^@??? ?<?ggccg??~fF(?? castle 2&g4*{\B*=\s#r*=\q#p>2:\*{\B}RJScastle X<~~<<~@ ~<@   <<~@ ~~`0~p