ZXTape! 0Created with Ramsoft MakeTZXTHE ORB Z Z\:7:7:0: A=0:I=130 %.005y# =,A:.005y# =,30-A  A=A+1 I s00010000,10111010,11111110,11010110,11010110,11010110,11010110,11111110,0,0,00010000,00010000,10010010,01010100T,001110008,001110008,00011000,00111100<,01111110~,11111111,11111111,01111110~,00011000,00011000 11111111,10011011,01100111g,11111111,11111111,11100110,11011001,11111111,001110008,001110008,00010000,11111110,00010000,00101000(,01000100D,10000010,11011111,11011111,00000011,11110111,10000000,11011111,11011111,11111111,11100111,11100111,11111111,00111100<,00111100<,11111111,11100111,11100111 (0,0,00010000,00010000,10010010,01010100T,001110008,001110008,00011000,00111100<,01111110~,11111111,11111111,01111110~,00011000,00011000,11000011,11000011,11111111,11111111,00111100<,00111100<,00111100<,00111100<,00111100<,0,00111100<,0,00111100<,0,00111100<,0 20,10010010,01010100T,001110008,11111110,001110008,01010100T,10010010,00000001,00000011,00000111,00111110>,01111100|,11111000,11000000,10000000,10000000,11000000,11111000,01111100|,00111110>,00000111,00000011,00000001,01111100|,01111100|,01111100|,01111100|,01001100L,01111100|,01111100|,01111100| 400100100$,00011000,0011100,01011010Z,11111111,00111100<,01100110f,01000010B 7 8A$="THE CRYSTAL ORB" <I=015 AvI>0I<16.01z# =,-5+I:.05|L,5+I:1,I+7;1;6;2;A$(I) F*J=07:A:(97a+I)+J,A PJ:I V1 Computer Rentals Ltd November 1982 _ dsV(14):K(19):D(4):G(32 ,3):P(9 ):N(9 ):S(5,3):T(3) nUM$(19,15):Q(19):R(19):M(2):W(2):X(2) x8SX=0:SY=0:H$="RD":F$="":D$="":L$="A." YY=0:XX=0:Z3=0:LL=0:TV=0:HF=0:E=0:K$="WA":TS=0:TN=0:TM=3:CF=0:FL=1:RT=0 'R$=" " J 6810:I=119 TM$(I):Q(I):R(I):K(I) ^I hcO$=L$+K$+H$:"Press 'I' for an introduction"''"Press ENTER to play";A$:A$"I"A$"i"1000 ''"You have chosen to enter a"'"strange land to which you can"'"only gain access through your"'"computer."''"In this land, mind power, magic"'"spells and evil creatures have"'"turned a once fair country into"'"a barren wilderness of fear and"'"pestilence."' ̌'"It's fearsome ruler is GRYGOR"'"THE DREAD, and he has two"'"castles on lake islands in the"'"middle of the purple swamps."''''''"The previous ruler was BENIFAX"'"THE JUST, and from his two"'"temples on lake islands within"'"the forrests, he protected his"'"country from the evil GRYGOR"'"by using the magic power of a"'"CRYSTAL ORB mounted on a GOLDEN"'"BASE inset with 6 PLATIGNUM"'"STUDS."' '"A GRYGOR spy tricked BENIFAX"'"into removing the ORB from its"'"BASE, and GRYGOR used his evil"'"power to spirit the ORB, BASE"'"and STUDS away to seperate"'"hidden locations from which"'"they have never been recovered."' '"Since then, BENIFAX has been"'"growing old and weak in a safe"'"castle just inside the border."''"GRYGOR has left to find a"'"bride, and BENIFAX seeks a"'"champion to find the ORB and"'"return the land to its former"'"glory while GRYGOR is absent."''"He knows that the ORB is hidden"'"in one of the temples, the BASE"'"is hidden in one of the castles"'"and that the STUDS are hidden"'"in the upper levels of the"'"ancient RED TOWER."' /'"Although almost everything in"'"the land has been rendered"'"invisible, he will use his"'"remaining powers to make as"'"many creatures and treasures"'"visible as he can."''''"He will also make a safe path"'"through the land, and endow"'"the champion with"'"professional powers of his own"'"choice."' K'''''''''''''''''"If you become this champion,"'"you should know that your task"'"is as follows:-"''"Kill as many creatures as you"'"can."''"Find as much treasure as you"'"can."''"Find the BASE, STUDS and ORB"'"in that order, and return them"'"and the treasure to the safe"'"castle, thus releasing their"'"power to combat evil."' ;'''''''"Your status will be judged from"'"the amount of treasure you find"'"together with the experience"'"you gain fighting the creatures"''"You will need a status of at"'"least 25 to find the ORB, and"'"even then, your chances of"'"finding it can only be"'"improved by destroying"'"complete races of creatures." 6;2'''''''"If you wish to read this"'"again then press 'R'"''"Press ENTER to continue":.1}L,10 :.05|L,-5:a$:A$="R"A$="r"450 !550&:1000 & 7:0::6;2;" PLAYING INSTRUCTIONS "''''''7;0;1;"MOVEMENT";0;''"The top of screen is north (N),"'"and you can move by pressing"'"keys 1 to 8 as follows :-"'"1 = N"'"2 = NE"'"3 = E"'"4 = SE"'"5 = S"'"6 = SW"'"7 = W"'"8 = NW" 0L'''1;"COMBAT";0;''"Combat can be physical or"'"magical, and in either case,"'"requires quick reactions."''"PHYSICAL :-"''"If you suprise a creature, you"'"must press 'A' to attack or 'R'"'"to retreat."''"If you attack, you must press"'"'H' to strike its head, 'B' to"'"strike its body, or 'L' to"'"strike its limbs." :M''"If you do not strike quickly,"'"the creature will gain the"'"advantage." D:''"MAGICAL :-"''"When attacking, you may choose"'"to use a spell by pressing 'S'."'"You must then press one of keys"'"1, 2 or 3 to invoke one of the"'"3 spells available to you."''"Spells 2 and 3 will only work"'"when you have sufficient combat"'"experience and PSI power, spell"'"3 requiring more than spell 2." N''1;"VISIBILLITY";0''"At various times, creatures may"'"just become visible. Flashing"'"stars may also appear, and"'"these might reveal the hidden"'"objects for which you search." X''1;"DANGERS";0''"You may choose to avoid visible"'"creatures, but you should also"'"be prepared to encounter some"'"which are still invisible."''"The most dangerous creatures"'"only inhabit certain areas,"'"thus some places are more"'"dangerous than others !" ]''"Swimming the river or lakes"'"will sap your strength, and"'"the permanently invisible water"'"creatures are very aggressive!" b'''"Some creatures may try to grab"'"the BASE, in which case you"'"must quickly press 'D' to dodge"'"the the creature's grasp."'"Anything you lose must be"'"searched for again !" l''1;"SAFE CASTLE";0''"Every time you enter the SAFE"'"CASTLE, you will have the"'"choice of 'S' to save the"'"current game on tape, 'I' to"'"read these instructions, or"'"ENTER to continue play." qg''''''1;"STATUS";0''"You can check your current"'"status at any time by pressing"'"'E'" v6;2'''''''"Press 'I' to read instructions"'"again."''"Press ENTER to play.":.1}L,10 :.05|L,-5:A$:A$"I"A$"i"  550& X:.1}L,10 :.05|L,-5:10 ,0;"ENTER YOUR CHOSEN NAME";J$ J$<21000 J$>13 1000 5:0:7: j:.1}L,-5:.05|L,15:2,0;"WHICH PROFESSION ?"''"....CHOOSE CAREFULLY !"  "MAGICIAN (1)" "PHILOSOPHER (2)" "ADVENTURER (3)"  "MERCINARY (4)" "MYSTIC (5)" &A$:A$"0"A$"9"A=A$:1320( # 1310 (MA=1P$="MAGICIAN":P1=2:C1=.5:CS=22:PS=28 2SA=2P$="PHILOSOPHER":P1=1.5@:C1=.75@:CS=24:PS=26 5P$="FOOL":P1=1:C1=1:CS=20:PS=20 nEX=5:C=150 x^:8,12 ;"GOOD LUCK";10 ,16-((J$+P$+5)/2);J$;" THE ";P$ !DF=10 :D$="D":6010z 0:4600 "DF=5:W$=G$+O$:6010z  2000  TV=1:I=130 Z$=:Z$=""1730  1740 I  1750  TV=0 (20,0;5;0;R$  ЁM(1)=W(1):M(2)=W(2):PK=(W(1),W(2)):W$=G$+O$:M(1),M(2);7;148 BC=C+10 :20,0;5;R$;21,0;R$ PK=62040 Q21,0;5;0;"YOUR MOVE...WHICH DIRECTION ?":2050 F21,0;5;0;"SAFE ON THE PATH...WHICH WAY ?" =""2055  A$=:A$=""2060  A$="E"A$="e"6300 A$>"8"2050 A$<"1"A$>"8"2055 Z=A$  _W(1)=M(1)-(Z=8)-(Z=1)-(Z=2)+(Z=4)+(Z=5)+(Z=6) &_W(2)=M(2)-(Z=8)-(Z=7)-(Z=6)+(Z=2)+(Z=3)+(Z=4) *[W(1)=14W(1)<0W(2)=32 W(2)<02030 4.TN=TN+1:21,0;5;R$ >?SS=0:Z=(W(1),W(2)):Z=02190 HZ=69ESS=1 R<Z=7Z=68DZ=67CTN=TN-1:2030 \6Z=4Z=2Z=3Z=66B9000(# f%Z=133Z=1289090# pZ=70F5900  zDZ=5(A$="0"PK=5)C=C-20:C06600 Z=1302800 'PK>1PK<8Z=PK+142 APK>65APK<71GZ=PK+84T:PK=PK-64@:1 7PK>129Z=PK+25:PK=PK-128:1 -PK=6Z=G(M(2)+1,1) /PK=0PK=1PK=0:Z=32 M(1),M(2);PK;Z:0:0:PK=(W(1),W(2)):M(1)=W(1):M(2)=W(2):W(1),W(2);7;148 SS=16400 #.1}LPK63000 %(PK=5ƥ>.5)3000 RF= RF.52220 hRF1=:RF2=:Z1=W(1)+(RF1.73333)-(RF1<.3):Z2=W(2)+(RF2.73333)-(RF2<.3) LZ1>13 Z1<0Z2>31Z2<0ū(Z1,Z2)>02220 Z1,Z2;1;159 $PK=6DF=5:2250 PK=13000 RF>.733332300 J21,0;5;0;"ALL CLEAR....SEARCH ON":DF=5  6010z  2010 RF=(*6)+1 (2340$ *(RF=1))+(2380L *(RF=2))+(2380L *(RF=3))+(2410j *(RF=4))+(2410j *(RF=5))+(2440 *(RF=6)) DF=5:6010z  2010 $G21,0;5;0;"A CIRCLE OF EVIL...GO QUICKLY !" .LCS=CS+((FL+1)/2):PS=PS-((FL+1)/2):C=C-20 8C06600 B L721,0;5;0;"A HOARD OF GOLD" V#TS=TS+(FL**100d+100d) ` jG21,0;5;0;"YOU FEEL THE AURA OF DEEP MAGIC" ~ 2450 F21,0;5;0;"...A PLACE OF ANCIENT POWER..." >PS=PS+2+(FL*P1):CS=CS+1+(FL*C1):C=C+25  "THE ORB"2510  M(1),M(2);32 :M(1)=W(1):M(2)=W(2):PK=0:W(1),W(2);7;148 dRT=(.067} 7K*(EX+TS/3)^.5+(EX/((TN+1)^1.5@))):RT>28RT=28 RT<0RT=0 %RN=:21,0;5;R$ lS=6RN>.8L-LLT(2)=6T(3)=0RT25T(3)=1:28706 KS=5RN>.85YT(1)=0T(1)=1:2880@ WS=4RN>.73333T(1)=1T(2)<6FL>T(2)2890J "VRN>.43\(21,0;5;0;"A WORTHLESS BAUBLE !":2940| ,F21,0;5;0;"A PRECIOUS STONE !":2930r 6R21,0;5;0;"YOU'VE FOUND THE CRYSTAL ORB !":2930r @R21,0;5;0;"THE ORB'S BASE...BUT NO STUDS!":2930r J;21,0;5;0;"A PLATIGNUM STUD..." T!DF=10 :D$="D":6010z ^^RN>.85Y21,0;5;0;"BUT IT DOES NOT FIT THE BASE":2940| hd21,0;5;0;"AND IT FITS THE BASE ! ":T(2)=T(2)+1 r7TS=TS+100d*(T(1)+T(2)+T(3)+FL) |DF=10 :6010z 2010 21,0;5;0;R$;20,0;1;6;2;"BEWARE !";0;5;0;" YOU'VE MET AN EVIL..." #MS=0:N=0:CF=1 FRF=(*17)+1:RD=RF:RF>10 ƥ>.25~3020 -PK=5RF=(*2+18):RD=RF K(RF)=03020 $RF=17ƥ<.733333020 $FL<5RF=163020 X$=M$(RF,1) I=1̱F$ F$(I)=X$3110& I  3020 &Y$=M$(RF,215) 0Q(RF)=03150N :3MS=((CS*.3)+Q(RF)*FL^.2~L/(+1)) DR(RF)=03160X N$N=(R(RF)*FL^.2~L/(+1)) X#U=((RF+10 )*(FL^1.5@)) b.RF>23U=((RF-22)*FL^1.5@) l(21,5;1;6;Y$ vDF=10 :6010z s19,0;1;6;Y$;20,0;5;R$;21,0;R$:<.64000 H21,0;5;0;"SUPRISED IT ! ATTACK OR RETREAT?" 1700 Z$="R"Z$="r"3900< TV=13600 Z$"A"Z$"a"4000 D$="D" Q21,0;5;0;R$;21,5;"***STRIKE QUICKLY***" 1700 TV=03620$ L21,0;5;0;R$;21,0;".......TOO SLOW" 0HF=0:DF=5:6010z:3840 $E=39'*(EX)/3.14H .Z$="S"Z$="s"7500L 8mMS=021,0;5;0;R$;21,0;"YOUR STRIKE HAS FAILED !":3830 B C=C-1 LoC021,0;5;0;R$;21,0;"YOU ARE FATALLY EXHAUSTED !":6600 VRF=*10 `AZ$="H"Z$="h"(RF<5CS>MS*4)Y=2:3730 jAZ$="B"Z$="b"(RF<7CS>MS*4)Y=1:3730 tBZ$="L"Z$="l"(RF<9 CS>MS*4)Y=.3:3730 ~L21,0;5;0;R$;21,0;"YOU MISSED IT !" HF=0:3830 7HF=1D=MS+(*9 ):HF=0:3760 LD=((((CS*502*)-(10 *MS)+E)/100d)*Y):D<0D=0 CS>(MS-D)*4HF=1  MS=MS-D D21,0;5;0;R$;21,0;"A HIT-"; !DF=10 :D$="D":6010z FD=05;0;"BUT NO DAMAGE":HF=0:3830 ;5;0;"ITS WOUNDED ";:MS03860 -HF=1DF=10 :D$="D":6010z 0HF=15;0;"AND STAGGERING" DF=10 :6010z HF=13570  4000 !5;0;"AND DYING !" !EX=EX+U:HF=0:CF=0  3875#:3880( #K(RD)=K(RD)-1:K(RD)=0DF=5:6010z:21,0;2;5;1;Y$;"NOW ALL DEAD !!!":LL=LL+.1}L % (DF=5:6010z 2 2010 <^21,0;5;0;R$;21,0;"YOU KNAVISH COWARD !!":CF=0 F 3880( U21,0;5;0;r$;21,0;"THE CREATURE ATTACKS...." !DF=10 :D$="W":6010z MS=04300 'MS>NN>6ƥ<.54300 'MS=MS-1:MS04240 RF=(*11 +1) !(4070*(RF=1))+(4080*(RF=2))+(4090*(RF=3))+(4100*(RF=4))+(4110*(RF=5))+(4110*(RF=6))+(4120*(RF=7))+(4120*(RF=8))+(4130"*(RF=9 ))+(4140,*(RF=10 ))+(4135'*(RF=11 )) d21,0;5;0;R$;21,0;"IT SWINGS AT YOU AND MISSES":4280 e21,0;5;0;R$;21,0;"YOUR BLADE DEFLECTS THE BLOW":4280 d21,0;5;0;R$;21,0;"...BUT HESITATES, UNSURE...":4280 jY=3:21,0;5;0;R$;21,0;"IT STRIKES YOUR HEAD !":41506 lY=1.5@:21,0;5;0;R$;21,0;"YOUR CHEST IS STRUCK !":41506 oY=1:21,0;5;0;R$;21,0;"A STRIKE TO YOUR SWORDARM !":41506 "kY=1.3&fff:21,0;5;0;R$;21,0;"A BLOW TO YOUR BODY !":41506 'zT(1)=121,0;6;1;R$;21,0;"IT GRABS FOR THE ORB'S BASE !":4420D ,_Y=.5:21,0;5;0;R$;21,0;"IT CATCHES YOUR LEGS !" 6!DF=10 :D$="D":6010z @5G=((((MS*75K*)-(8*CS)-E)/100d)*Y) JzG<0G=0:21,0;5;0;R$;21,0;".....SAVED BY YOUR ARMOUR !":4280 TC=C-G ^G>9 CS=(CS-G/6) hpG=021,0;5;0;R$;21,0;"YOU ARE SHAKEN, BUT NOT HURT":4280 rU21,0;5;0;R$;21,0;"YOU SUSTAIN DAMAGE OF ";G |"CS0C06600  4280 ]21,0;5;0;R$;21,0;"...USING THE LAST OF ITS ENERGY "  EX=(EX+U/2):3875# %CF=0:DF=10 :6010z  2010 DF=10 :6010z  3570 \21,0;5;0;R$;21,0;"...AND HURLS A LIGHTNING BOLT !" SG=(((180*N*)-(PS+E))/100d):N=N-5:G>9 N=N-(G/5) !DF=10 :D$="W":6010z "N0N=0:4240 <.25~4410: "G0G=0:44000 N21,0;5;0;R$;21,0;"IT STRIKES HOME !" DF=10 :6010z &C=C-G:G>9 PS=(PS-G/4) & 4210r 0e21,0;5;0;R$;21,0;"YOUR PSI SHIELD PROTECTS YOU":4280 :Y21,0;5;0;R$;21,0;"....MISSED YOU !":4280 D41700:TV=0(Z$="D"Z$="d")4440X ET(2)>0T(3)=0ƥ<.321,0;5;0;R$;21,0;"IT TAKES A STUD AND VANISHES":T(2)=T(2)-1:4260 Fr<.321,0;5;0;R$;21,0;"BUT ITS TOO EAGER, AND MISSES":4280 GnT(3)=1T(3)=0:15,0;5;0;"YOU'VE LOST THE ORB AND BASE !" H21,0;5;0;R$;21,0;"IT GETS THE BASE AND VANISHES !":T(1)=0:T(2)=0:DF=10 :D$="W":6010z:17,0;5;0;"YOU ARE DEPRESSED AND UNCERTAIN"'"LOSING STATUS AND TREASURE IN"'"YOUR CONFUSION. "'"YOU MUST SEARCH AGAIN ! "'"PRESS ENTER WHEN READY ":A$:TS=(TS/2):EX=(EX/2) J 4260 Xf21,0;5;0;R$;21,0;"YOU MANAGE TO DODGE ITS GRASP":4280 $F$="AGVHEL":FL=1:S=1 4(G(1,1)04780 >~M(1)=(*14):M(2)=0:H$="WRI":I$="BY ":X=M(2):W(1)=M(1):W(2)=M(2) HY=M(1):X=M(2):W(1)=M(1):W(2)=M(2):K$="EN ":L$="TT":G(1,1)=153:G(1,2)=Y:G(1,3)=X:MP1=Y:MP2=X M Y1=Y:X1=X RI=232 \>.54720p fCPC=157:X1=X+1:G(I-1,1)=PCY1=Y+1 j 4730z pCPC=156:X1=X+1:G(I-1,1)=PCY1=Y-1 z&Y1=0Y1=1:PC=157 (Y1=13 Y1=12 :PC=156 G(I,1)=PC .G(I,2)=Y1:G(I,3)=X1:Y=Y1:X=X1  .01z# =,Y I `:G$=H$+L$+K$+I$:G(1,2),G(1,3);1;5;153:0 I=1421 I,0;5;R$ I I=232 e.002xn,G(I,2):.002xn,G(I,3):G(I,2),G(I,3);6;G(I,1) I V(1)4816 V(1)=12 I=214 *V(I)=V(I-1)+(1*(<.5)) I I=114 I-1,V(I);5;"" I (S(1,1)04880 I=15 $Y1=(*14):X1=(*31) '(Y1,X1)ū(Y1,X1+1)4840 "S(I,1)=Y1:S(I,2)=X1 I  4S(5,2)<20I=5:4840 S(1,1),S(1,2);4;146;S(1,1),S(1,2)+1;146;S(2,1),S(2,2);146;S(2,1),S(2,2)+1;146 S(3,1),S(3,2);3;145;S(3,1),S(3,2)+1;145;S(4,1),S(4,2);145;S(4,1),S(4,2)+1;145 $<S(5,1),S(5,2);2;144 .NM(1)=MP1:M(2)=MP2:W(1)=M(1):W(2)=M(2) 8 1F$="AFL":INK=3:PC=151:5020 'F$="FAEHL":INK=4:PC=152  PK=32   1 I=1200 aAA=(*12 )+1:BB=(*30)+1:.01z# =,AA:.01z# =,BB:AA,BB;INK;PC I  0 5YY,XX+1;5;147;147;147;YY+1,XX;147;147;147;147;147;147;YY+2,XX;147;147;0;32 ;32 ;5;147;147;YY+3,XX;147;147;2;1;150;0;0;32 ;5;147;147;147;YY+4,XX;147;147;147;147;147;147;147;YY+5,XX+1;147;147;147;147;YY+6,XX+4;147 1;0,175:1;255,0:1;0,-110n:1;-255,0:1;0,110n:0 PuW(1)=13 :W(2)=15:W(1)-1,W(2);32 ;W(1),W(2);32 ZiZ=133M(1)=X(1):M(2)=X(2):W(1)=M(1):W(2)=M(2) d 8F$="CAGE":P=0:H=N(FL):PK=32 :5320 =F$="CBE":P=0:H=N(FL):PK=32 :P(FL)=P(2) $:7;"" dI=112 :.01z# =,20-J:I,0;7;149;I,20;149:I 413 ,0;7;"" 6800:I=1P(FL) V:V=100d6800 I Y=0:X=0 "J=13 ,D(J):P=P+1 67D(J)=100d6800:D(J)=3:P=P+1 @J J(I=0H:PC=149:INK=7 T!Y1=Y+I:Y1>12 5560 ^%I=1PC=32 :INK=0 h;D(1)=0PC=149:INK=7:5500| r\.01z# =,Y1:.01z# =,X+D(1):Y1,X+D(1);INK;PC:PC=149:INK=7 |%I=3PC=32 :INK=0 r.01z# =,Y1:.01z# =,X+D(1)+D(2):Y1,X+D(1)+D(2);INK;PC:PC=149:INK=7 %I=4PC=32 :INK=0 .01z# =,Y1:.01z# =,X+D(1)+D(2)+D(3):Y1,X+D(1)+D(2)+D(3);INK;PC:PC=149:INK=7 I Y=Y+H+1:5410" Y=0:X=0 J=14 Y1=Y+(J*(H+1)) K=119 Y1>12 5630 /.01z# =,Y1:.01z# =,X+K:Y1,X+K;INK;PC rK=2K=3*HK=17Y1,X+K;0;32 ;Y1-1,X+K;32 ;Y1+1,X+K;32 K J !S=5S=656800 _FL/2=(FL/2)12 ,1;6;1;154:0:56800 &91,19;6;1;154:0 0FL=2S=5S=613 ,10 ;5;1;158;12 ,10 ;0;0;32 :>P(3)=0W(1)=12 :W(2)=10 DS=55770 NS=65750v X4,21;7;"THE RED";5,21;"TOWER";6,21;9 ,21;"FLOOR = ";FL-1:5790 vO4,21;7;"BENIFAX'S";5,22;"TEMPLE":5800 B4,21;7;"GRYGOR'S";5,22;"CASTLE" P(FL+1)=P(FL)+P FL<4 +(SXS=5)(SYS=6)5810 ">.5S<55810 S=5SX=1: S=6SY=1:  I=1̺(*5)+2 N1=(*12 )+1 N2=(*19)+1 (N1,N2)5820 .N1,N2;2;1;155:0 I   VW(1),W(2);7;148;M(1),M(2);0;32 ]21,0;5;0;R$;21,0;"A STAIRWAY...UP OR DOWN ?":TV=FL  A$=:A$=""5920  %*A$="U"A$="u"FL=FL+1:5950> *A$"D"A$"d"5920  4FL=FL-1 >#FL>7FL<25980\ H DF=5:D$="D":6010z R 9220$ \U21,0;5;0;R$;21,0;"THESE STAIRS ARE BLOCKED" f DF=5:D$="D":6010z pFL=TV:5910 zA=1(DF*TM) {.002xn,A A 2.01z# =,DF:.01z# =,TM:.01z# =,C/10 D$="D"D$="": I16,0;5;R$;17,0;R$;18,0;R$ D$="W"D$="": JCS>77M-(2*P1^2.5 )CS=77M-(2*P1^2.5 ) PS<7PS=7 lPS>(42**(P1+1)^(P1^3.7l))+75KPS=(42**(P1+1)^(P1^3.7l))+75K BC>125}-((P1)*12.5H)C=125}-((P1)*12.5H) 15,0;5;0;J$;" - ";P$;16,0;"TREASURE =";TS;17,0;"EXPERIENCE =";EX;18,0;"TURNS =";TN;16,19;"STRENGTH =";CS;17,19;"PSI =";PS;18,19;"STAMINA =";C 819,0;5;R$ BCF1 LZ19,0;5;0;1;Y$;16;0;"STR/MAGIC=";MS;"/";N `  DF=5:D$="W":6010z nRT=(.067} 7K*(EX+TS/3)^.5+(EX/((TN+1)^1.5@))):W$=G$+O$:RT>28RT=28 RT<0RT=0 :16,0;5;0;"YOUR STATUS IS ";RT 3T(1)5;0;"YOU HAVE THE BASE" b5;0;"AND YOU HAVE ";T(2);" STUD";:T(2)15;0;"S" BT(3)=16;2;"YOU HAVE THE CRYSTAL ORB" DF=20:6010z F20,0;R$:A$="E"A$="e"C=C-10 :A$="":2010  FT(1)=0T(2)6T(3)=06430  g4600:DF=5:D$="W":6010z:15,11 ;6;2;1;"WELL DONE"  e30:1,0:.73333,5:.3,2:.6,7:1.5@,12 [5;0;'"THANKS TO YOU, THE LAND IS NOW"'"FERTILE AND ITS PEOPLE CAN"'"RETURN" J=1100d NY=(*12 )+1:X=(*30)+1:(Y,X)>06422 R.01z# =,Y:.01z# =,X:.05|L,J/5:Y,X;1;4;146 J e30:1,0:.73333,5:.3,2:.6,7:1.5@,12  0:7::6720@ w21,0;5;0;R$;21,0;"REST AND HEAL YOUR WOUNDS":DF=10 :D$="D":6010z (U21,0;5;0;R$;21,0;"Press 'S', 'I' or RETURN" 2>A$:A$="I"A$="i"550&:0:0::1430 7A$"S"A$"s"1430 <"THE ORB"9800H& A7"THE ORB"65535-167,168:6470F F)0:0:5::1400x /C=0:CS=0:PS=0:CF=0 DF=10 :6010z 7:0::2,0;1;"DEATH HAS COME";0''"YOU HAVE TRIED YOUR BEST, BUT"'"COURAGE ALONE WAS NOT ENOUGH" DJ=181-6:I=130:.01z# =,J:I:J  T(2)=66670 :6720@ oT(1)=0:T(2)=0:T(3)=0:TS=0:CS=30:C=150:PS=30 i14,0;"THE POWER OF THE MAGIC BASE"'"GIVES YOU LIFE AGAIN, BUT"'"VANISHES IN THE PROCESS !" "DF=10 :6010z 6Y=G(1,2):X=G(1,3):MP1=Y:MP2=X:M(1)=W(1):M(2)=W(2):S=1:9220$ @-12 ,0;"PRESS RUN TO PLAY AGAIN" JA$:A$="R"A$="r" T 4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100d "AFANGED-SNAPPER",9 ,0,160,"ABLACK GOBLER ",9 ,0,160,"AFLESH-RIPPER ",9 ,0,160,"EHOODED-DEVIL ",7,3,160,"GSTORM-FIEND ",19,0,150 "EGROWL-SNURT ",10 ,12 ,160,"ASCALY-SHRIFT ",23,0,120x,"BMIST-SPIRIT ",0,25,120x,"HTOMB-ZOMBIE ",18,14,120x "ESPELL-OGRE ",26,20,100d,"VHAIRY-GRUNGER ",502,0,100d,"CSCREAMING-GRUG",35#,25,100d,"CMELTING-WRAITH",0,30,100d "FPROWL-SCREETCH",36$,12 ,80P,"BUNDEAD-CRUSHER",502,20,30,"COOZING-SPECTRE",0,45-,80P,"ADEATH-SCROUGE ",502,502,20 Z"LSLIME-LIZARD ",15,15,30,"LGILLED-GLUPPER",502,0,20 LV21,0;5;0;R$;21,0;"WHICH SPELL ?":1700 V&TV=1Z$<"1"Z$>"3"3600 `(A=Z$:A>0A<47540t jC21,0;5;0;"NO SUCH SPELL !":7640 t4*PS*N7590 ~L(8000@*(A=1))+(8200 *(A=2))+(8400 *(A=3)) (7620*(SC=1))+(7640*(SC=2))+(7660*(SC=3))+(7570*(SC=4))+(7600*(SC=5))+(7580*(SC=6))+(7590*(SC=7)) [21,0;5;0;R$;21,0;"IT IS BEYOND YOU !":7640 Z21,0;5;0;R$;21,0;"THE SPELL FAILS !":7640 d21,0;5;0;R$;21,0;"NO USE-ITS PSI SHIELDS IT !":7640 [21,0;5;0;R$;21,0;"YOU'VE DRAINED YOUR STRENGTH !"  6600 DF=5:6010z  2010 DF=10 :6010z  4000 DF=10 :6010z  3570  game save @&C=C-5:C0SC=5: JZ21,0;5;0;R$;21,0;"SLEEP FIEND SO I MAY ESCAPE !" ^DF=10 :6010z hV21,0;5;0;R$;21,0;"THE CREATURE STAGGERS...." rDF=10 :6010z |<.58090 V21,0;5;0;R$;21,0;"AND COLLAPSES...STUNNED !" :EX=(EX+U/2):CF=0:SC=1:3875#: X21,0;5;0;R$;21,0;"BUT RECOVERS WITH A SNARL !" SC=2: .MS>CPS<491EX<1000SC=4: 'C=C-10 :C0SC=5: uN=021,0;5;0;R$;21,0;"THE BEAST HAS NO PSI TO FIGHT !":SC=2: &W21,0;5;0;R$;21,0;"WITH MY MIND I FIGHT YOU !" 0DF=10 :6010z :,FR=:RF<.4LN>10 SC=6: D=D=((((CS*502*RF)-5*(MS+N)+E)/502)/4) N$D0D=0:SC=7: Xg21,0;5;0;R$;21,0;"YOUR PSI-POWER CAUSES ";D*2;" DAMAGE" b%N=N-3*D:N0N=0 l!MS=MS-D:MS0MS=0 v(MS+N)>0SC=2: {!DF=10 :D$="D":6010z W21,0;5;0;R$;21,0;"....KILLING THE CREATURE !" /EX=EX+U:CF=0:SC=1:3875#: )PS<77MEX<5000SC=4: 'C=C-20:C0SC=5: [21,0;5;0;R$;21,0;"WITH THIS SPELL BURN IN HELL !" !DF=10 :6010z ! Z21,0;5;0;R$;21,0;"A BOLT OF ENERGY IS CREATED !" !!DF=10 :D$="W":6010z ! >(PS/780 )*(5-P1)21,0;5;0;R$;21,0;"MISSED THE CREATURE !":SC=2: !*D=((CS+PS*)-(10 *N*)) !4$D0D=0:SC=7: !>MS=0N=N-D:8530R! !H)MS=MS-D:D>10 N=(N-(D/3)) !R\21,0;5;0;R$;21,0;"IT STRIKES CAUSING ";D;" DAMAGE" !\(MS+N)08570z! !f DF=5:D$="D":6010z !pSC=2: !u!DF=10 :D$="D":6010z !zZ21,0;5;0;R$;21,0;"...THE BEAST DIES SCREAMING !" !/EX=EX+U:CF=0:SC=1:3875#: #({Z=66BPK=521,0;5;0;R$;21,0;"YOU CANNOT ENTER THIS WAY !":9110# #2I=27 #<P(I)=0 #FN(I)=(*5+4) #PN(I)=59030F# #ZI #d+S=1MP1=M(1):MP2=M(2) #n"P(2)=(*30+1) #xTF=TN:9130# #(TN>TF+(*6+1)9130# #P21,0;5;0;R$;21,0;"THE WAY IS BARRED !" #>TN=TN-1:C=C-10 :DF=10 :D$="W":6010z # 2010 #dC=C-10 :M(1),M(2);0;32 ;W(1),W(2);7;148 #$Z=128S=1:FL=1 #.Z=133S=4S=1:FL=1 #kZ=133S=5S=6S=S-3:FL=FL-4:M(1)=X(1):M(2)=X(2) #"Z=3S=2:FL=2 #"Z=4S=3:FL=3 #HZ=4Z=3YY=(*5)+1:XX=(*22)+1 #"Z=2S=4:FL=2 #VZ=66BS=S+3:FL=FL+4:X(1)=M(1):X(2)=M(2) $(4600*(S=1))+(5000*(S=2))+(5010*(S=3))+(5300*(S=4))+(5310*(S=5))+(5310*(S=6)) $DF=5:6010z $ 2000 &H+"THE ORB"65535-167,168 &R 6470F "