ORB &k &ku(k  6/8/82 Impact Software " AN IMPACT PRODUCTION " " Copyright 6/8/82 " "<<<>>>" (]33!,255,63?,17,0,24,35#,203,70F,202 2e113q,234,203,134,195,115s,234,203,198,203 ,0,186,194,102f,234,187,194,102f,234,201 6,14,10 ,15,0,42*,2,10 ,0,0,0,0,21,2,7,11 ,70F,0,15,21,10 ,0,0,0 0,3,2,5,0,0,21,14,35#,0,0,0,0,3,35#,3,2,14,10 ,42*,2,14,10 ,0 6,11 ,2,7,5,0,105i,0,15,0,15,0,21,7,7,2,35#,6,70F,0,3,14,5,0 0,0,0,15,6,35#,0,6,5,0,15,0,6,14,14,5,105i,0,0,3,35#,0,15,0 15,0,0,21,2,10 ,30,15,0,6,11 ,10 ,3,10 ,0,0,21,35#,21,35#,6,35#,21,5 21,7,10 ,6,14,10 ,0,6,35#,6,14,35#,0,0,21,11 ,14,7,14,35#,0,15,0,0 ң0,0,0,15,30,0,210,42*,14,35#,0,0,0,0,0,21,7,14,70F 8"or","sw","la","cr","di","st","oi","bo","ba","co","dw" +"up","down","east","west","north","south" *"The Orb","a sword","a ladder","a cross" *"a diamond-crown","a steak","an oil-can" 4"a boat","a water-barrel","some coins","the dwarf" v3260 ,3280 ,3300 ,3340 ,0,3360 ,3400H ,3500 ,0,0,0,0 y3520 ,3400H ,3540 ,3500 ,3560 ,0,3500 ,3580 ,3680`,0,0,0 "s0,3690j,3830,3950n,0,0,5470^,4090,5470^,0,0,0 ,0,4110,3500 ,3500 ,3500 ,4130",5510,3950n,5450J,4240,4480,0 6y4490,3500 ,3360 ,4240,4480,0,5420,,0,3360 ,0,3500 ,0 @3500 ,4090,3500 ,3540 ,4650*,3500 ,5530,0,3500 ,3500 ,3830,0 Js0,0,0,3830,3560 ,3950n,0,3500 ,4720p,0,4130",0 Ty3500 ,3580 ,3680`,4730z,5530,0,0,3400H ,4770,0,3500 ,0 ^|3950n,0,0,3500 ,4780,4960`,5490r,3500 ,0,3500 ,4990~,5010 h3360 ,3500 ,0,0,3500 ,3560 ,4130",3500 ,3580 ,3680`,3560 ,3500 r3500 ,3400H ,3500 ,3500 ,3560 ,3400H ,0,3500 ,3560 ,3500 ,4990~,5010 |v0,0,3560 ,3360 ,4490,3500 ,5050,5190F,0,3560 ,0,0 s0,0,0,5030,4490,0,5220d,5390,3500 ,4090,0,0 m0,0,0,5040,3500 ,3560 ,5410",0,0,0,0,0 ,1:6:2::CHEAT=0 $'" OOO RR BB OOO RR BB" $" O O R R B B O O R R B B" #" O O RR BB O O RR BB" $" O O R R B B O O R R B B" #" OOO R R BB OOO R R BB" /4;''" " -4;" " ,4;" " -4;" " ,4;" " /'';1;" OOO RR BB OOO RR BB" -1;" O O R R B B O O R R B B" ,1;" O O RR BB O O RR BB" -1;" O O R R B B O O R R B B" &,1;" OOO R R BB OOO R R BB" 0+A=13:A$:B=126 :%0;13 ,B+3;A$(B); D(.1}L,-20:.04|# =,15 NB:90Z:A O zx=0 S,a=1115s:b:59999_+a,b:a XA$=:a$=""602Z Y 610b Z'zx=zx+1:zx<10 600X [zx=60000` ]zx=-90Z:600X b56:2::"Please wait.":"Reading data." lVz(6):a(12 ,14):h(12 ,14):i(12 ,14,5) vna$(11 ,2):b$(11 ,16):f$(4,16):g$(2,16):c$(6,6) (k=112 :l=114 i(k,l,5)=1 l:k ,a=1163:b:61999/+a,b:a a=111 :a$(a):a a=16:c$(a):a a=111 :b$(a):a (k=114:l=112 h(l,k):l:k h$="" >:10 ,0;"Play,Load,Save or End?" I236099\,100d:23692\,255:k(x)=(*x)+1 n$=:n$=""770  n$="s"7500L n$="l"8000@  n$="e"5950> *n$"p"770 4h$""1010:1530 >(0::"O.K.":"Setting up rooms." H d=k(12 ):e=k(14) Re<10 840H \:(61999/+d+(e-1)*12 )=0840H f3a(d,e)=1:i(d,e,1)=1:920 p d=k(12 ):e=k(14) z:(61999/+d+(e-1)*12 )=0880p a(d,e)=2880p a(d,e)=a(d,e)+1: a=28 880p:i(d,e,a(d,e))=a:a a=13:880p i(d,e,a(d,e))=9 :a a=15:880p i(d,e,a(d,e))=10 :a #880p:i(d,e,a(d,e))=11 Bf=0:g=0:d=4:e=1:b=1:c=1 1010:1110V ;7::4;"":4;" ":4;"" )l=(61999/+d+(e-1)*12 ) $l/2=(l/2)1050 0,1;" " $l/5=(l/5)1070. $1,2;" " .$l/7=(l/7)1090B 82,1;" " B-l/3=(l/3)4,0;: L+1,0;" ":4,0;: V%"You are in the cave which is the"; ` "entrance to this underground" j."complex.Good luck.":1140t:1530 ta(d,e)=0 ~("There is ";b$(i(d,e,1));"here." a(d,e)=11220 ("There is ";b$(i(d,e,2));"here." a(d,e)=21220 ("There is ";b$(i(d,e,3));"here." a(d,e)=31220 ("There is ";b$(i(d,e,4));"here." %i(d,e,1)=11 1280 %i(d,e,2)=11 1280  i(d,e,1)=i(d,e,2) a(d,e)=a(d,e)-1 @i(d,e,2)=i(d,e,3):i(d,e,3)=i(d,e,4): h=14  f$(h)=b$(5)1310 h:1500 !"Do you want to swap the crown" (%"for the key to the furnace-room?"; 2""(It's the only way that you'll" <"get the key.)" Fn$=:n$=""1350F Pn$="y"1380d Z+"Wrong answer.(Clue:,-YES)":1310 d$f=f-1:h=11420 nh=21430 xh=31440  1445 f$(1)=f$(2) f$(2)=f$(3) f$(3)=f$(4) f$(4)="" &"O.K.You've got the key.":c=0 9g=0g=1:g$(1)="the key":1480 "g=2:g$(2)="the key" %i(d,e,1)=11 1250  1260 %"You may have found the dwarf,but"; #"you're not going to get the key" "from him.": p.2~L,5:.2~L,0:.2~L,5:"What next?";h$:l=(61999/+d+(e-1)*12 ) h$<21530 +h$(2)="in"1010:1890b  h$="exit"750 h$(2)="dr"2690 h$(2)="ta"2010 "h$(2)="pi"2010 ,h$(2)="oi"2900T 6h$(2)="un"5330 @h$(2)="go"2450 J*h$(2)="ea"j=3:2470 T*h$(2)="we"j=4:2560 ^*h$(2)="no"j=5:2630F h*h$(2)="so"j=6:2660d r*h$(2)="up"j=1:1790 |*h$(2)="do"j=2:18400 '"Unintelligible command.":1530 $l/5=(l/5)1760 d=d+1:3240 $l/3=(l/3)1760 d=d-1:3240 $l/2=(l/2)1760 e=e-1:3240 $l/7=(l/7)1760 e=e+1:3240 -1010:"You move ";c$(j);"but it is a" #"dead-end,so you return to where"  "you were before.":1530 !d=7e=41730 !d=9 e=41730 !d=7e=61730 !d=5e=81710 & 1760 0!d=7e=31750 :!d=9 e=31750 D!d=7e=51750 N!d=4e=81690 X 1760 b Inventory l=f=0g=0"You don't have anything.":1920 v 1930 1140t:1530 %"You have:-":f=01980 $f$(1):f=11980 $f$(2):f=21980 $f$(3):f=31980  f$(4) g=01920 $g$(1):g=11920 g$(2):1920 a(d,e)=02390V h=h$:h<52390V z=h1-1 h$(z)=" "zh2060  z:2390V  x$=h$(z+1z+2) z=19  a$(z)=x$21004 *z:2140\ 4f=42300 >a=14 Ci(d,e,a)=02030 H b$(z)=b$(i(d,e,a))2230 Ra:2390V \x$=a$(10 )2160p f 2190 p#x$=a$(i(d,e,1))2330 ua(d,e)=12390V z#x$=a$(i(d,e,2))23608  2390V x$=a$(11 )2210  2390V #x$=a$(i(d,e,1))2410j a(d,e)=12390V #x$=a$(i(d,e,1))2410j  2390V -f=f+1:f$(f)=b$(i(d,e,a)):2280 3a(d,e)=a(d,e)-1:a(d,e)=07000X ;i(d,e,1)=i(d,e,2):a(d,e)=17000X ;i(d,e,2)=i(d,e,3):a(d,e)=27000X +i(d,e,3)=i(d,e,4):7000X a=12240 .a(d,e)=a(d,e)-1:2250+a*10 $"You're carrying too much.You'll"; "have to put something down" "first.":1920 <g=0g=1:g$(1)=b$(10 ):2240 $0g=1g$(1)=b$(10 )2240 .1g=2:g$(2)=b$(10 ):2240 8<g=0g=1:g$(1)=b$(10 ):2260 B0g=1g$(1)=b$(10 )2260 L1g=2:g$(2)=b$(10 ):2260 V"It is not possible to take" `,"something that is not there.":1920 j,3:"The dwarf was so annoyed by you" t"trying to do that,that he" ~"stabbed you to death." =a=16:mz=60000`:.2~L,6-a:a: >7:"Another miracle?":cheat=cheat+1:1530 h$<5 x$=h$(4):h$=x$: $l/5ɺ(l/5)1680 !d=6e=9 2510 "d=7e=13 2530 1760 !"Your way is blocked by a door" 1"which is too rusty to be opened.";:1530 "You will have to unlock that" ""door as well,if you want to go" ""in that direction.":1530 $l/3ɺ(l/3)1700 !d=7e=9 2510 "d=8e=13 2600(  1760 (%"You will have to unlock the door"; 2""to the furnace-room before you" <"can enter it.":1530 F$l/2ɺ(l/2)1720 P"d=7e=142600( Z 1760 d$l/7ɺ(l/7)1740 n"d=7e=13 2530 x 1760 f=03230 h=h$:h<53230 z=h1-1 h$(z)=" "zh2740 z:3230 x$=h$(z+1z+2) z=19 a$(z)=x$2780 z:3230 a=14 f$(a)=b$(z)2810 a:3230 (a(d,e)=a(d,e)+1:i(d,e,a(d,e))=z a=12860, $a=2f=f-1:2880@ $a=3f=f-1:2890J "2a=4f=3:f$(4)="":7000X ,4f=f-1:f=0f$(1)="":7000X 6@f$(1)=f$(2):f=1f$(2)="":7000X @@f$(2)=f$(3):f=2f$(3)="":7000X J5f$(3)=f$(4):f$(4)="":7000X T2a=14:f$(a)=b$(7)2909] Ua V'"You don't have any oil.":1530 ]!d=6e=9 2940| ^!d=7e=9 2940| h%"There is nothing here that needs"; r"to be oiled.":1530 |Dl=62101:l/5=(l/5)l=l/5:62101,l Dl=62102:l/3=(l/3)l=l/3:62102,l /1010:"O.K.The door has been oiled and" "now opens.":1530 "d=7e=143060 "d=7e=13 3160X "d=8e=13 31200 ""There is nothing here that can" "unlocked.":1530 l=62162 $l/2=(l/2)3090 -"You have already unlocked it.":1530 l=l/2:62162,l ,l=62150:l=l/7:62150,l &91010:"O.K.The door is now unlocked.":1530 0l=62151 :$l/3ɺ(l/3)3080 Dl=l/3:62151,l N8l=62150:l=l/5:62150,l:3110& Xl=62150 b$l/7ɺ(l/7)3200 ll=l/7:62150,l v8l=62162:l=l/2:62162,l:3110& $l/5ɺ(l/5)3080 l=l/5:62150,l 8l=62151:l=l/3:62151,l:3110& *"You can not put that down.":1530 e<15560 1010:5:h(d,e) 1140t:1530 #"You are crawling along a narrow" "passage.":3250 "You are now in the elves'" "workshop.":3250 "You are in a large,beautiful" !"cavern with a fountain fed by" ""the stream which is flowing in" "from the south.":3250 #"You are back at the entrance.To" /"the north is the outside world.":3250 "You are in a brightly-lit" *#"chamber,with light streaming in" 4 "from a crack in the ceiling," >,"thousands of feet above you.":3250 Hx=14 Rf$(x)=b$(3)3470 \ x:3 f%"You have foolishly fallen into a"; p"bottomless pit,which means" z"certain death for you." 5a=16:zx=60000`:.2~L,a:a: 7:cheat=cheat+1 ""There is a bottomless pit here" !"but with your ladder you were" "able to span it.":3250 "You are wandering along a" "passage.":3250 ""You are walking along in front" ,"of a row of elves' cottages.":3250 %"You are in a passage which has a"; 1"stream flowing off to the north.";:3250 "You are standing in a large" "cavern.":3250 %"You are in the western lair of a";  "dragon." x=k(2) x=13660L $.3:"And unfortunately the dragon has"; .!"roasted you to death with his" 8 "flames." B?a=16:mz=60000`:.2~L,a*1.5@:a: G7:cheat=cheat+1 L!"Luckily for you the dragon is" V'"not here at the moment.":3250 `1"You are in the eastern-lair of a";:3590 j "This is a vampire's northern" t"lair.":x=k(2) ~x=13810 2a=14:f$(a)=b$(4)3780  a:2 %"Unluckily for you he is here,and"; !"you have a large hole in your"  "neck." 5a=16:mz=60000`:.2~L,a:a: 7:cheat=cheat+1 %"The vampire is here but he won't"; !"come near you because of your" "cross.":3250 ""Luckily for you the vampire is" "out.":3250 #"You have entered a large cavern" %"which is almost totally flooded."; 2a=14:f$(a)=b$(8)3920P  a:3 ("It's a pity that you never" 2%"learned to swim,because you have"; <"just drowned." F=a=16:mz=60000`:.2~L,2*a:a: K7:cheat=cheat+1 P#"Because you have a boat you can" Z"sail across it without any" d"difficulty.":3250 n#"You have wandered into the lair" x"of a were-wolf." $i(d,e,5)=14000  "The were-wolf is dead;it has" "been beheaded.":3250 &x=k(2):x=14070 Ja=14:f$(a)=b$(2)i(d,e,5)=0:4050  a:2 #"He attacked you and now you too" "are one of the living-dead." 6a=16:mz=60000`:.2~L,-a:a: 7:cheat=cheat+1 !"You were able to decapacitate" $"him with your sword.":3250 #"It is a good thing for you that" ("he is not here just now.":3250 "You are in a beautiful" %"rock-crystal chamber.":3250 "Now you have entered the" :"southern-lair of a vampire.":x=k(2):3710~ " "You have gone into a chamber" ,"which is full of deadly" 6"poisonous snakes." @2a=14:f$(a)=b$(2)4210r J a:3 T""You've been bitten to death by" ^"them.":a=16 h$mz=60000`:a/20,a:a: m7:cheat=cheat+1 r""You've been able to cut a safe" |"path through them with your" "sword.":3250 %"You are in the western-lair of a";  "giant-spider.":x=k(2) x=14450b 2a=14:f$(a)=b$(6)4290 a:44000 %"You threw it the steak,and after"; #"eating it,it was not interested" "in eating you." a=14360 $a=2f=f-1:4380 $a=3f=f-1:4390& 'f$(4)="":f=3:3250 4f=f-1:f=0f$(1)="":3250 @f$(1)=f$(2):f=1f$(2)="":3250 @f$(2)=f$(3):f=2f$(3)="":3250 &5f$(3)=f$(4):f$(4)="":3250 0'2:"The spider has given you a" :#"paralysing bite and now you are" D"in his larder waiting to be" N"eaten.":a=16 X*mz=60000`:.2~L,6-a:a: ]7:cheat=cheat+1 b%"You will be pleased to hear that"; l"the spider is away at the" v"moment.":3250 1"You are in the eastern-lair of a";:4250 #"You have entered a flame-filled"  "chamber." 2a=14:f$(a)=b$(9 )4530 a:3:4590 %"You poured the water out of your"; ""barrel onto the flames,putting" %"them out.This is only temporary,"; %"so if you return here the flames"; "will have been relit by the" 1"volcanic fault which feeds them.";:4320 !"Not being flame-proof,you are" "now small,black,and very" "charred.":a=16  .mz=60000`:.2~L,-a*1.75`:a: 7:cheat=cheat+1 "Through skilful use of the"  ""'CONT' command you avoided the" %"flames.":3250 *%"This somewhat grisly chamber has"; 4!"several skeletons manacled to" >"the walls.":3250 H!"You are in a large chamber,in" R!"which some harmless elves are" \!"sleeping.In the ceiling above" f)"you can see a large hole.":3250 p3"You are in the northern-lair of a ";:3590 z!"You are in a crypt containing" %"eight coffins.In the corner is a"; "flight of stairs leading" "downwards.":3250 7"You are now in the southern-lair of a ";:3590 "You have foolishly entered" "satan's western-lair." x=k(2) x=14930B 2a=14:f$(a)=b$(4)4890  a:2 %"Because of this satan has killed"; #"you,damning you to burn in hell" "forever.":a=16 1mz=60000`:a/20,a*a*-.45ffff:a:  7:cheat=cheat+1 -"Using 'CONT' again,you cheat?":3250 ""The only thing between you and" $!"your eternal damnation is the" .!"cross,so keep a tight hold on" 8"it.":3250 B""You must be as lucky as you're" L"stupid,because satan is not" V"here.":3250 `#"This is satan's eastern-lair.To" j "the east is a door,which you" t"look at.":4800 ~"You have just entered the" 9"western-lair of a vampire.":x=k(2):3710~ !"This is the eastern-lair of a" '"vampire.":x=k(2):3710~ 3"You are in the northern-lair of a ";:4250 3"You are in the southern-lair of a ";:4250 "With an obvious lack of" !"intelligence you have entered" #"the western den of the angel of"  "death." x=k(2) x=151702 2:5130    #"You are now dead and will never" ""live again.":a=16 4mz=60000`:.2~L,(7-a)/2:a: #7:cheat=cheat+1 (cheat>9 5120 2""By some miracle he has decided" <-"to spare your worthless life.":3250 F"This place which you have" P%"seen fit to enter is the eastern"; Z%"den of the angel of ";:5080 d#"You have finally made it to the" n"furnace-room of the gods." x2a=14:f$(a)=b$(1)5280 a %"Unfortunately you have not found"; *2;"The Orb ";:"yet.":3250 /"Do you wish to destroy ";2;"The Orb" n$=:n$=""5290 n$="y"5360 9"Are you sure?That ";2;"IS";5;" what you"  "came here to do.":5280 c=02980 #"You don't have a key,so how can" %"you unlock something?":1530 %"WELL DONE!The world has now been"; +"rid of the curse of ";2;"The Orb" ."forever.Now escape.":b=0:4320 #"You are at the eastern entrance" 0"to the furnace room of the Gods.":3250 "1"You are at the southern entrance";:5400 ,#"You have entered a flame-filled" 6 "chamber.On the far side is a" @+"stair-case,going downwards.":4510 J#"You are in a large cavern,which" T*"has a hole in the ceiling.":3250 ^%"You are in a passage which has a"; h""hole in the floor.":3250 r%"You are in a passage.To the west"; |"is a door.":3250 %"You are in a passage,which has a"; $"hole in the ceiling.":3250 #"You are in a passage.At one end" "is a staircase,going up to" "another level.":3250 7:7:0: #"You have got out of the complex"  "safely." b=05660 "Unfortunately you failed to" !"destroy the Orb,which is what" ""you went in to do.":5780 "YOU DESTROYED THE ORB" &X$="****WELL DONE****" 0-A=139':X=(K(7)-1) : X;"";:A D" "; N-A=140(:X=(K(7)-1) X X;"";:A lA=117 v4,6+A;X$(A) cX=110 2:.02{# =,X/20:.02{# =,-X/20:.02{# =,40(:X:A '''"For yourself you got:-" -f=0g=0"Nothing.":5860 f=05840 $f$(1):f=15840 $f$(2):f=25840 $f$(3):f=35840  f$(4) g=05860 $g$(1):g=15860  g$(2) cheat=05910 ""However,you did use the 'CONT'" cheat>15900  "command once.":5910  "command ";cheat;" times." $"Hit any key except 'X' for a"  "new game." *z$=:z$=""5930* 4 z$"x" >x$="GOODBYE!" C Ha=184T R-x=k(8):y=k(8):z=k(8) \x=y5970R f'x=x-1:y=y-1:z=z-1 pz:x;y;x$;:a z,a=110 :mz=60000`:a:: X 1010:"O.K.":1920 LTz(1)=b:z(2)=c:z(3)=d:z(4)=e:z(5)=f:z(6)=g V:;"Enter file name.";h$ [:H$>10 "NAME IS TOO LONG.":150:7510V `h$z() jh$a() th$h() ~h$i()  h$F$()  h$G$() h$620000,163 ":"Rewind tape to correct place" #"and then hit a key when you are" "ready to ''." n$=:n$=""7590 h$z() h$a() h$h() h$i()  h$F$()  h$G$() h$620000,163  750 @:"Enter file name.";h$ E:H$>10 "NAME IS TOO LONG.":150:8000@ Jh$z() Th$a() ^h$h() hh$i() k h$F$() n h$G$() rh$620000,163 |Tb=z(1):c=z(2):d=z(3):e=z(4):f=z(5):g=z(6) 1:5:0: 1010:1920 "