TOMB    The Pharaoh's Tomb  1983 Phipps Associates  By Mike Farley  64099c: (0:0:0: -J18,7;1;2;"<< PLEASE WAIT >>";0,0 2 "CODE" Zr:9 ,9 ;8;4;1;"STOP THE TAPE";0;7;10 ,10 ;"Press a key" d100d n'.05|L,8:.05|L,20 xñ100d 7:0:7 8:1;7;" Welcome to The Pharaoh's Tomb! " '" I am standing at an oasis in the Egyptian desert, close to a place where rumours suggest thatan ancient burial place exists."'" To win, I must gather all the golden treasures that I may findand place them by the oasis." Ғ'" I will act as your eyes and hands while you guide me with simple sentences such as: GO NORTH or GET THE MATCHES or USE THE KEY." ܈'" I can understand many words - roughly 70! - for example: LOOK,QUIT, GET, LIST, DROP, USE. If Ido not understand you I will sayso." 8#1;2;"Press a key to continue":4e4@ :" You can see your score at any time by typing SCORE. The max- imum score is 1520 but to gain full credit for any treasures they must be returned to the oasis." '" As this is a long game, when you QUIT you will be asked if you want to save your present position on tape ready to start again the next time." z'" If you need further help now, type HELP, otherwise if you justpress ""enter"" I will begin to load the main game." _(1;">";0);y$:x=1̱y$:y$(x)=(y$(x)-32 *(y$(x)"a"y$(x)"z")):x .y$4y$(4)="HELP"7000X 7#1;2;"Now start the tape & press a key";  4e4@ ,o0:0::#1;0;7;0,0,,,,;1,9 ;1;"<< LOADING >>" 1 "TSCREEN" 6119,0;:"TMAIN":7:0: @ Xhelp b:"I know of many places and you can guide me by telling me whichdirection you want me to move. You only need to type the first letter of the direction, e.g. ""GO NORTH"" can be entered as ""N""" l='" Directions are NORTH, SOUTH, EAST, WEST, UP and DOWN." v'" From time to time I may come across some objects which may help you in your journey. At anytime, you can see what I am holding by typing LIST." {{'" Some of the objects are not always as innocent as they may seem and you should always be wary of opening boxes!" /#1;"Press a key to continue":4e4@ b:"At all times, try to put your- self in my position to decide what you want me to do next." j" You can QUIT if you've had enough, or LOOK if you need to be reminded of your surroun- dings." п'" If you are having trouble trying to do something, it usually means that what you are attempting is beyond your (or my!) power. Try a different app-roach and you may succeed." ڪ" Remember that cave passages andpaths through forests turn a lotso that moving north from one place does not always mean entering the next from the south."  '7:0:7: CODE d K}\xG(r(nͪ" G0 (C#}~(: i~W/Ow #}(~0w z|DB<@<B<*\[Y\RDM͠ʈTSLOP64!hQ! ~a8 ## ~w##>_>02$2%N 01NORT01S 02SOUT02E 03EAST03W 04WEST04U 05UP 05D 06DOWN06ENTE07IN 07OUT 08LEAV08EXIT08SLOP64GET 09TAKE09PUT 10DROP10LIST11INVE11LOOK12QUIT13USE 15STRI15CLIM15MOVE17PUSH17ROCK18OPEN19DOOR20MATC21HORN23LADD24RING25CLOA27ICE 29AXE 31SLAB32STON32CAND33FAN 34STAT35ROD 36SHIE37BRIC38MASK39BELT40LIGH42RUB 43WICK44SCAL46THRO47WAVE48BLOW49PULL17LEVE51TWIS43RAIS53LIFT53LID 54SCOR55WEAR56MUSI57KEY 58BOX 59NECK60RAM 61PLAN62UNLO15MOUN64BOOK21FIRE65HINT91CLUE91HELP91THRU47SARC54POURb4REPAf8FLY f9UNLOg0PUSHc4LIGHg1CRAWg2MENDf8STAMf4XYLOg4YES g3SCABh0BOX h1FOODh1HORSh3COMPh4STEEh5BAR h5SNAKh6FERRh7GRATh8GIANh9PANEi0CLEFi1DRAGi2LEVEe1SWORi4SHIEi5CLOAi6KEY i7BOOKi8ROPEi9SQUIj0MIRRj1BOATh7RINGj2JUG j3SPEAj4EDELj5PANSj6WATEf3AXE j7PRINj8SYMBj9RUNEj9TREEk0ROCKk1SEVEk2VINEk3EAGLk4KNOBk5WALLm0YARRg5ZULPg6TRANg7KEEPk6NOTIk7BOARk7WATEf3JUG j3CANDk9STICl0HANDl1COINl2INGOl3FLUIl4JEWEl5DRAPi6DOORl6POTIl7MASKl8AMULl9WANDl0NEW m1URN m2COBWm4SCORm5LADDm6CIRCm7CUPBm8BRIDm9CRYSn0TIE n1INTOb9THRUb9TAKEa9CASKh1((8D`0 ,Lt2H$ѳ @@ aC# >>BB<DHpHDB@@@@@~BfZBBBBbRJFBB$B_|?@A?@?B@DxxBD D@BB"@?@!?@?BB@D8@@xBxx88< <<<!^@?@!?@|`<@@11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111110000000000000000011111111111111111111111111111111111111111111111111111111111111111111111000111111111111111111111111111110001111111111111111111111111111000001111111111111113++++++31111001001111333333333113++++++31111000001111344411113113######31110000001111311111223113## ##31110078701111311111223113## ##31111178701111311111113133## ##33111078701111310002223133## ##33111078711111300011113133## ##33111077711111300000113133## ####311100101111133333333313########311100100111111111111113########31100010011111111111113333333333330000000000000000000000000000000000000000000000000000000000000000TMAIN rdRtd* The Pharaoh's Tomb * 1983 Phipps Associates By Mike Farley Revised May 1983 by Trevor Toms **** 7a()=((d$(n+1)-64@)-(px*64@))/8 (pc+12 ,0;b$:pc=pc+1 &pc>9 pc=9 :64100d  Xtst=0:x=1o-1:t$(x,2)=p$(2)o(t$(x,3))=test x:tst=1: ypr,255:"Answer YES or NO:";y$:pr,0:yes=(¯y$="Y"¯y$="y"):no=(¯y$="N"¯y$="n"):(yesno)15  P6:;#1;1;1,9 ;"Press ANY key":0:0  START LINE  AUL=0:win=0:pr=23635S\+256*23636T\ C(8):S(20) ROOM=1 7:7:0: " *** The Pharaoh's Tomb *** "''" Your task is to collect the treasures you find and return with them to the oasis."'" Guide me with short sentences such as GET THE CANDLE. Direct me using NORTH, SOUTH, EAST, WEST, UP or DOWN." I" I know many words (over 70!) e.g.: GET, DROP, LOOK, LIST, USEQUIT." !L" You can see your score by entering SCORE - the top score is 1520." #Z" As this is a long game, you maysave it on tape when you quit."''11 ;"Good luck!" %@#0;10 ;"Press a key":4e4@:.01z# =,1 (M:21,0;"Are you starting a new game?":15:yes80P 2\:20,0;"Do you wish to LOAD a previouslySAVE'd game?":15:no20 <:20,0;"There are three files to load.":#0;"Start the tape & press a key":0:"":"TOMB-1"s():"TOMB-2"o():"TOMB-3"c():room=s(20):100d P0p$(2,2):c(5)=11 :o(o) Zx=1o:o(x)=q(x):x dS(M)200H nC(M)C(M)=C(M)-1 xS(3@)200H | } NN=0 +b$="IT IS DARK, I NEED SOME":5 4b$="LIGHT OR I MAY BE IN TROUBLE":5 +C(3@)C(3@)=C(3@)-1 1000z DESCRIBE ROOM  pc=0:hn=0 ]nn=8000@+room*10 :nn:d$:d$(1)=""d$(1)=""7400:250 611 ,0;"" 0,0;:nn , F=0 1!S(DA)S(10 )1000z 6 X=1O @O(X)ROOM500z J"fb$="There is also:":5 b$=" - "+O$(X):5  7900 X ACCEPT COMMAND  T=1  2000z LC(G)C(G)=C(G)-1 V+C(1)C(1)=C(1)-1 X0room=10,22;"Score:";score Zwin7300 `$b$="What shall I do now?":5 e=x=13:.02{# =,0:x:.04|# =,20 j423658j\,8:pr,255:Y$:pr,0 t Y$>31xY$=Y$(31x) ~ y$=y$+" " b$=" "+Y$:5 Jz=0:hn=hn+1:wc=1:p$(1)="00":p$(2)="00" x=1̱y$ z=(y$(x)" ")1280  zws=x z=z:z1280 Aw$=y$(wsx-1):y=14:64287+y,w$(y):y 264294&:p$(wc)=¾64292$+¾64293% 4p$(wc)"00"wc=wc+1:wc>21300 x P$(1)"00"1600H (b$="I don't understand that!":5 ( 1000z @CHECK FOR MOVEMENT J$(P$(1))>41900m TZ$=M$(ROOM,P$(1)) ^ïZ$2320 r ROOM=Z$ | 100H l T=0 vMATCH=0 CHECK FOR CONDITIONALS #CP=0:B=0:RP=5 4CP=CP+1 >T2300 H?RPCP=M$(ROOM,RP):RP=RP+1:CPE$=C$(CP):2600( RRPCP=1:RP=0 E$=C$(CP):2600( CPA2400 MATCH1000z b$="I can't" .(P$(1))<9 b$=b$+" go that way" 7(P$(1))>8Bb$=b$+" do that at present" $ b$=b$+"." ) 5 . 1000z `+A$(CP)(1M)P$(1)2100@ jY$=A$(CP)(3@4) tY$"00"Y$P$(M)2100@ y B=1 ~E$=A$(CP)(5 ) ( CONDITIONS 2 E=1 E$(E)="."3000; TYPE=(E$(E))-"A" N=(E$(E+1E+2)) 29005@+TYPE*10 OK2100@  E=E+3@  2700( TOK=(N=ROOMN=0) Y ^OK=(O(N)=ROOMO(N)<0) c hOK=(O(N)ROOMO(N)0) m rOK=(O(N)<0) w | OK=S(N)  OK=(S(N))  OK=(C(N)=1)  !OK=(((*100H)+1)N)  ACTIONS MATCH=1 E=E+1 E$(E)="."2100@ &TYPE=(E$(E))-"A" 01E$(E+1)"."N=(E$(E+1E+2)) BREAK=0 4000z+TYPE*100H BREAKBREAK E=E+3@ 3100A b$="I have with me:":5  F=0  X=1O 4o(x)=-1b$=" - "+o$(x):5:7900 X $fb$=" nothing at all.":5 BREAK=1000z   S(1)<6@4140` $"I can't carry any more.":5 BREAK=1000z " ,O(N)=-14180 6O(N)=-1 @S(1)=S(1)+1 J T"b$="I already have it!":5 ^ 4120 hO(N)=-14240 r#b$="I don't have "+o$(n):5 |BREAK=1000z   O(N)=ROOM S(1)=S(1)-1  8700!+n*10 :d$ d$="*"d$="No hint here!" Gd$>32 b$=d$(32 ):5:d$=d$(33!):4310 6B$=D$:.15~,15:5:B$="":5: 0S(N)=1 : S(N)=0  !C(N)=(E$(E+3@E+4))  E=E+2   \X=O(N) fO(N)=O(N+1) pO(N+1)=X z  O(N)=ROOM  $-O(N)<0S(1)=S(1)-1 .O(N)=0 8 ROOM=N  b$="...Okay.":5 PBREAK=1000z Z BREAK=1100  BREAK=100H " |8b$="Do you want to save this game?":5:15 b$=y$:5 yes5560 Cb$="Do you want to try again?":5:15:b$=y$:5 yesbreak=20:  0 Mb$="":5:b$="There are 3 files to be saved":5:b$="":5 Ts(20)=room:"TOMB-1"s():5610:"TOMB-2"o():5610:"TOMB-3"c() 1#0;"Press a key to continue":0:"" Rb$="Do you want to continue?":5:15:b$=y$:5:no5530 break=100d:  5530 /B$="Press any key to save next file":5 (.01z# =,*35#:=""5620  DX=O(N) NO(N)=O(N-1) XO(N-1)=X b  N*100H  C(N)=C(N)-1  p6000p+room:d$:n=31:break=1000:4300+10 *(d$(1)="*")+20*(d$(1)"*"hn+*15>30) t"*" u-"You'll need something to put thefire out." w"*" x-"The lock responds to The Sound of Music!" z"*" {D"You've already got the biggest clue - the noise is very WEARING" "*" N"Rumbling noises tend to indicateheavy stone doors opening or closing..." "How can you melt ice???" "*" ("Why don't you try using your ladder?"o(4)<0)+("You'd better give up now - how can I get up without some rope, or a ladder, or something?"o(4)0) "*" >"A magic lamp, eh? Pity I didn't bring my bottle of Brasso!" "*" ;"It's only justice that I can't raise the portcullis..." +"The scales are too portly to be of use." "*" ;"Don't forget to let me check forpassages above & below!" "*" 4"I wonder where the other end of this chain is..." "*" 5"What could I possibly wear to avoid being seen?" "*" ("Try LIST to see what I've got!"o(17)<0)+("You really need something that you haven't got!"o(17)0) "*" X GET ROUTINE b S(1)<6@7030[ lSb$="I can't carry any more!":5:b$="Better drop something first.":5 q 7090] vTEST=-1 { 10 TST7055\x "b$="I already have it!":5  7090]  TEST=ROOM  10 TST2315 $O(T$(X,3@4))=-1 S(1)=S(1)+1 B$="...Okay.":5 BREAK=1000z  DROP ROUTINE TEST=-1  10 TST7170`  B$="I don't have it!":5 BREAK=1000z   O(T$(X,3@4))=ROOM  S(1)=S(1)-1  7080]@  SCORE=0 *x=18:score=score+((o(x+17)=1)*(100d+x*20))+((o(x+17)=-1)*(502+x*20)):x \proom1b$=("Your score so far is "+scorescore)+("You have not scored anything yet"score):5: kwin=score>1500 z  win routine n=30:4300 :x=120:(*8):.1}L,*25:x  150 ~y=07:x=07:x:x::10 ,10 ;9 ;"BRILLIANT!!":.1}L,y*8+x-10 :x:y 7:0:7: 5530:BREAK Painting routine ^0,80P:167,0:0,95_:-167,0:0,-95_ E7500L:1,19;9 ;8;d$(1);"":nn  Ln=2̱d$2 Q py=0 V$d$(n)="#"pl=1:n=n+1 `$d$(n)="$"pl=0:n=n+1 eQd$(n)=34"py=(124|-d$(n+1))/4:n=n+2:pl=0 j|d$(n)=" "(124|-d$(n+2))*2,(124|-d$(n+3))*2,d$(n+1):n=n+2:7580 od$(n)"!"7550~ tt1:1:pl=3:px=128>":5:x=-15-40(-1:.01z# =,x:x:b$="The rock moves easily.":5:S(8)=1  Tf=f+1:f>7#0;"(press a key to scroll)":0:"":F=1  @ROOM DESCRIPTIONS J`"#|<$<|hh!08#<<$!uD4#|L#|L$p|x}y~y~{!qrP#\T$xlyzwzl|#CC$|}}|s!pXL 13J 1/G 1.C 1+B 12O" OT1,3;"The Oasis";8,22;"Steep";9 ,22;"slope": P TK"!rJ#P%$|}x}rkv#P8$}}|z~z~z}#X@$|#4H$xu{rum!l" }11,1;8;9 ;"Store Room"  "!rJ#\@$l|h|#pT$hh#|P$xty{t{pvv|#L@$w|z~q}vq#\@$zzzxw{z{x{#|4$txx|wyt}qxx|ry|#G-$t~v|wq!X.1!Xe-!Xs.!YtL!Y9L!UL!^U<" 11,1;8;9 ;"A low cave"  M"n":U$;"Music Room. There isa crystal door with a sound lock"''X$;"north." "S(6)'"The door is open."  z"n":U$;"Hall of Silence,"'"although there is the faintest sound of bells in the distance."''G$;"east, south and west."  "n":U$;"Great Hall where"'"once Kings and Queens were en- tertained. Dusty debris litters the floor. The sound of bells ringing is quite loud now."''G$;"east and south."  o"n":U$;"Bell Room - I find"'"the noise very wearing."''"I can also see a Magic Panel!"''G$;"north and east."  "n":"This is the Queen's Rest Room. The decaying remains of an old straw mattress can be seen in the centre of the room."''G$;"south and east."  m"n":U$(DC);"a burial chamber. A"'"sarcophagus with a stone lid"'"is in the centre."''G$;"south and west."  e"!rJ#|I$\l|h#\9$h||h#H9$f|py{y|z|z~#2E$t|#T9$|xx||#dT$|xX||#CT$|z||~#dP$plp|p!sTb"n":U$;"long passage."'"A strong wind blows from the"'"south end."''G$;"north, east and south." !C !H"!rJ#|H$px|xpz#pD$|u~yzwz{{vy}|#h<$vzy|w~|}~}}#)8$~|}~v~u|#4?$~y}u~{}~t}v}#@6$u{~~|z|}#Z=$x|w}mz#X0$wv#t%$~!pz*!p-,!p>3!p28!pP/" !I31,1;9 ;8;"Rock Chamber" !M !R|"!rJ#|0$T||v""w||U|#(8$z}}x~y#|D$ptykyyuy^pt#8<$|#O:$|#X;$|#Z7$|#m:$|#o7$|#O0$y!pQ,!pn;!pY+ +    ,+,.  ! " # % &%'& )*((././-// -..01/20>3302413567575869:;78;89<8;:=:<1þG04.T04F09D10N. G05.H01D18T05N. E03C14.F03N. E10.F10N. G01E07.D21N. .N. A46F02.E02O. A05D01C09.H01D02N. A05D09.D01J09I10N. A39E09.D09T04N. A31.E07F10G0112N. A39.D08N. A24E02.F02O. A37.F07N. A30.F07N. A53F11.D19E11N. A51E03H35.F03R14D20N.A01.S72N. AA book of matches Some used matches A hollow rams horn A wooden ladder A Magic Ring A ring on my finger A Magic Cloak A cloak being worn A block of ice A pool of water An axe A heavy stone slab A candle A burning candle A ladies fan The Master Key A wooden plank A Golden Ram A Gold Necklace A Golden Belt A Golden Rod A Golden Shield A Gold Brick A Golden Mask A Golden Statue @1033D14.J14I13F03L. 1032A29D12.D15N. 4600D12A29.C12E04L. 0938A29.B23F04L. 1038A29D23.D15M. 4600D23A29.C23E04L. 0932A29.B12F04L. 1025D06.J06I05L. 1027D08.J08I07L. 1029D09.J09I10L. 1000.S71N. 0900.S70N. 5500.S72N. 1200.O. 1100.A. 1300.P. 1564A01.K02O. 5625D05.H05L. 5627D07.H07D13N. 1718A03.S78N. 0700A03E08.K04O. 4923D03A08.E06S77O. 4720A08E06.K09O. 4325A11D06.K12O. 5354A13.D16D14Q. 1920A44.E12O. 0700A44E12C08.D17D14Q. 4834E07.E10O. 4233D13.D03N. 1521D01D13A20.E03H13E05D06N.1521D01D13.E03H13T05O. 1521D01.T05E03O. 1920A08.D03N. 0600A22.K24O. 1524A24B04.K22O. 0500A28E04.K20O. 4720A39E09.K40O. 1751A19.E09G0422D10N. 0600A37.K36O. 1525A11.D03N. 5700A08.D03N. 0600A25.K26O. 1544A26.K25O. 4300A26.K27O. 0600A20.K28O. 0600A35.K36F07O. 0500A36.K31E07O. 0500A24.D22N. 1959F13A61.D28N. 1558F13A61D16.I19E13O. 1562A53D17.K52O. 1959A41F14.D03N. 1558A41F14D16.I25E14O. 1523A08.D03N. 0700A44E12D08.K04O. 1558A08D16.D07N. 4923D03.S77N. 4300.D23N. 4800.D24N. 4720A40E09.K39O. 4720A40.D26Q. 1565A05D13.D29N. 9100.U.  ei\Z+ g 1564@8 hX@@xh< @(Y64DG!rJ#P%$|}x}rkv#P8$}}|z~z~z}#X@$|#4H$xu{rum!l