home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / NECTAR-OF-THE-GODS.FIX (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  34KB  |  542 lines
  1. 5 PRINT"[158]"
  2. 10 POKE53272,23:PRINTCHR$(147);"the nectar of the gods":PRINT"         BY":PRINT"    dOUG rOGERS":GOTO3650
  3. 20 NH=0:IFNO>56THEN30
  4. 21 IFI(NO)<>LANDI(NO)<>-1THEN40
  5. 22 RETURN
  6. 30 DR=NO-56
  7. 31 IFRF=0ANDL=23ANDNO=92THENNH=-2:RETURN
  8. 32 ONDRGOTO130,140,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,420,430,440,450
  9. 40 PRINT"i DON'T SEE IT HERE.":NH=-1:RETURN
  10. 50 IFI(7)=-1ANDI(19)=-1THENI(19)=0:I$(7)="bEAUTIFUL sLAVE gIRL DRESSED IN WHITE"
  11. 51 RETURN
  12. 60 IFRT=0THENPRINT"iT SAYS:":RT=1
  13. 70 PRINT:FORX=1TOLEN(A$):FORDR=1TO25:NEXTDR:PRINTMID$(A$,X,1);:NEXT:PRINT:RETURN
  14. 80 PRINT"tHERE IS A SERPENT ON THE PATH. ";
  15. 90 IFIV<>0THEN100
  16. 91 FORX=1TO2000:NEXT:PRINT:PRINT"tHE POISONOUS SNAKE STRIKES!!!!":FORX=1TO2000
  17. 91 NEXT:PRINT"yOU ARE BLACKING OUT!!!!!!":FORX=1TO2000:NEXT:L=13:RETURN
  18. 100 PRINT"tHE PROTECTIVE WATERS OF THE POOL ALLOW":PRINT"YOU TO PASS. ";
  19. 101 IFI(7)<>-1THEN115
  20. 102 IFIV<>1THEN110
  21. 103 PRINT"yOUR SLAVE IS NOT SO LUCKY!":FORX=1TO2000:NEXT:PRINT"tHE SNAKE STRIKES!!!":FORX=1TO2000:NEXT:PRINT"sHE DIES AND MAGICALLY DISAPPEARS!":I(7)=0:RETURN
  22. 110 PRINT"yOUR SLAVE, ALSO PROTECTED, CLINGS CLOSEAS YOU PASS THE SNAKE."
  23. 115 RETURN
  24. 120 PRINT"tHE GODS AND GODDESSES ARE ALL ASSEMBLEDIN COUNCIL, HAVING WATCHED YOUR ADVENT- URES FROM hERA'S bALCONY.":RETURN
  25. 130 IFL=9ORL=11ORL=12ORL=24ORL=34THENRETURN
  26. 140 IFL=1ORL=19ORL=20ORL=21ORL=37ORL=75THENRETURN
  27. 150 IFL=1ORL=61ORL=3ORL=60ORL=73ORL=74THENRETURN
  28. 160 IFL=3ORL=22ORL=34ORL=61ORL=69ORL=70THENRETURN
  29. 170 IFL=4ORL=7THENRETURN
  30. 180 IFL=9ORL=10ORL=19ORL=18ORL=25THENRETURN
  31. 190 IFL=15ORL=16ORL=43THENRETURN
  32. 200 IFL=15ORL=16THENRETURN 
  33. 210 IFL=15ORL=17THENRETURN 
  34. 220 IFL=13ORL=15ORL=32ORL=53ORL=54THENRETURN 
  35. 230 IFL=13ORL=14ORL=32THENRETURN 
  36. 240 IFL=17OR(L>35ANDL<41)ORL=42ORL=43OR(L>50ANDL<54)OR(L>63ANDL<68)ORL=81THEN51
  37. 250 IF(L>18ANDL<23)OR(L>35ANDL<39)THENRETURN 
  38. 260 IFL=21ORL=24ORL=33ORL=36THENRETURN 
  39. 270 IFL=22ORL=34THENRETURN 
  40. 280 IFL=23ORL=35THENRETURN 
  41. 290 IFL=25ORL=44THENRETURN 
  42. 300 IFL=26ORL=29ORL=31ORL=45ORL=46THENRETURN 
  43. 310 IFL=27ORL=47ORL=50THENRETURN 
  44. 320 IFL=27ORL=29ORL=46ORL=50THENRETURN 
  45. 330 IFL=31ORL=45THENRETURN 
  46. 340 IFL=1ORL=33ORL=72ORL=73THENRETURN 
  47. 350 IFL=24ORL=33THENRETURN 
  48. 360 IFL=40ORL=41THENRETURN 
  49. 370 IFL=24ORL=33ORL=40ORL=41THENRETURN 
  50. 380 IFL=42ORL=43ORL=75THENRETURN 
  51. 390 IFL=52ORL=54THENRETURN 
  52. 400 IFL=73ORL=74THENRETURN 
  53. 410 IF(L>52ANDL<60)ORL=75THENRETURN 
  54. 420 IFL=20ORL=22ORL=34ORL=38THENRETURN 
  55. 430 IFL=4ORL=7THENRETURN
  56. 440 GOTO40
  57. 450 IFL=33ORL=34ORL=35ORL=52THENNH=-2:RETURN
  58. 451 IFL=23THENRETURN 
  59. 460 L1=0:FORX=1TONI:IFI(X)<>LTHEN470
  60. 461 L1=L1+1:RT=0
  61. 470 NEXT:PRINT"  yOU ARE ";:GOSUB710
  62. 480 IFL=8ANDI(4)<>-1ANDLL<>1THEN640
  63. 490 IFOV=1THENOV=0:AN$="QUIT":GOTO1720
  64. 500 IFL=18THEN640
  65. 501 IFL=10THEN640
  66. 510 IFL=63THENFORX=1TO2000:NEXT:L=13:GOTO460
  67. 520 IFL1=0THEN590
  68. 521 L2=0:IFL=48THENHL$="":PRINTI$(7):GOTO580
  69. 522 HL$="  yOU SEE ":FORX=1TONI:IFI(X)<>LTHEN570
  70. 530 IFLEN(HL$)+LEN(I$(X))+2>39THENPRINTHL$:HL$=""
  71. 540 HL$=HL$+I$(X):L2=L2+1:IFL1=1THEN570
  72. 550 IFL1-1>L2THENHL$=HL$+", ":GOTO570
  73. 560 IFL1<>L2THENHL$=HL$+" AND "
  74. 570 NEXT:IFLEN(HL$)>33THENPRINTHL$:HL$=""
  75. 571 IFL<>48THENHL$=HL$+" HERE."
  76. 580 PRINTHL$
  77. 590 IFL=39ANDI(25)=LTHENGOSUB80:IFL=13THEN460
  78. 600 IFL<>51ORI(19)<>50ORI(7)<>-1THEN610
  79. 601 PRINT"bANDITS ATTACK!!!":FORX=1TO1000:NEXT:PRINT"tHEY KNOCK YOU UNCONCIOUS AND TAKE THE  SLAVE!":FORX=1TO1000:NEXT:I(7)=0
  80. 610 IFFG=2THENPRINT"yOU HAVE DROWNED!":FG=0:L=13:PRINT:GOTO460
  81. 620 IFL>54ANDL<64ANDFF=0THENPRINT"yOU ARE UNDERWATER AND CANNOT BREATHE!"
  82. 621 IFL>54ANDL<64ANDFF=0THENPRINT"yOU WILL DROWN!":FG=FG+1
  83. 630 IFL=39THENI(25)=39
  84. 640 VB=0:NO=0:NO$="":VB$="":AN$="":PRINT:INPUT"wHAT WOULD YOU LIKE TO DO";AN$
  85. 641 IFAN$=""THEN640
  86. 642 PRINT:FORX=1TOLEN(AN$):IFMID$(AN$,X,1)<>" "THEN650
  87. 643 VB$=LEFT$(AN$,X-1):NO$=MID$(AN$,X+1,4):Z=X:X=LEN(AN$)
  88. 650 NEXT:IFLEN(VB$)>4THENVB$=LEFT$(VB$,4)
  89. 660 IFNO$=""THEN1710
  90. 661 VB=0:NO=0:FORX=1TONV:IFVB$=VB$(X)THENVB=X:X=NV
  91. 670 NEXT:IFVB=0THENPRINT"i DON'T KNOW how TO "LEFT$(AN$,Z)"SOMETHING.":GOTO640
  92. 671 FORX=1TONN:IFNO$=NO$(X)THENNO=X:X=NN
  93. 680 NEXT:IFNO<>0THEN690
  94. 681 PRINT"i DON'T KNOW WHAT A "RIGHT$(AN$,LEN(AN$)-Z)" IS.":GOTO640
  95. 690 ONVBGOTO2280,2350,2350,2460,2460,2460,2510,2600,2610,2620,2620,2640
  96. 691 ONVB-12GOTO2870,3000,3010,3100,3140,3200,2350,3210,3240,3320,3360
  97. 700 PRINT"i don't understand you!":GOTO640
  98. 710 ONLGOTO730,740,750,760,780,780,780,800,810,820,850,850,890,910,860,920,930,940,950,970,990,1000,1020,1040,1060,1070,1080,1090,1100,1110,1120,1130,1140,1190,1200,1220,1230,1240,1250,1260,1270,1280,1290
  99. 713 ONL-43GOTO1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,1410,1410,1410,1410,1410,1420,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1650,1660,1670,1680,1690,1690,1690,1690,1690,1700
  100. 730 PRINT"IN A SECOND FLOOR HOTEL ROOM  IN mODERN dAY aTHENS. tHE ROOM IS SNUG  AND CLEAN. fROM THE WINDOW YOU CAN SEE  THE RUINS OF THE aCROPOLIS. tHE ROOM HASTWO DOORS, ONE "E$" AND ANOTHER  "N$".":RETURN
  101. 740 PRINT"IN THE TILED bATHROOM. tHE    ONLY EXIT IS A DOOR "W$".":PRINT"yOU SEE THE bATHTUB AND THE jOHN HERE.":RETURN
  102. 750 DF=0:PRINT"IN THE HALL IN FRONT OF YOUR  ROOM. a LOCKED DOOR (ANOTHER HOTEL ROOM)IS "N$". tHERE IS A DARK PASSAGE"W$",   A LIGHTED PASSAGE "E$" AND THE DOOR TO YOUR ROOM   "S$:RETURN
  103. 760 PRINT"AT THE DOOR OF AN ELEVATOR.   yOU SEE A HALL "W$". tHERE IS A  BUTTON NEXT TO THE ELEVATOR.":RETURN
  104. 780 DF=0:PRINT"IN THE lOBBY OF THE HOTEL. tHEPLACE SEEMS TO BE DESERTED. tHE ELEVATORIS "E$",  A STAIRCASE GOES UP "W$", AND THERE IS A DOOR TO THE    STREET "S$;
  105. 790 PRINT". yOU ALSO SEE A POT PLANT AND THE REGISTRATION DESK HERE.":RETURN
  106. 800 IFI(4)=-1ANDLL=1THEN805
  107. 802 DF=1:PRINT"IN THE DARK! yOU FEEL A STAIR-CASE, BUT IF YOU MAKE A MIS-STEP, YOU   COULD FALL AND BE KILLED!":RETURN
  108. 805 PRINT"AT THE TOP OF A STAIRCASE     GOING DOWN. tHERE IS A HALL "E$".":RETURN
  109. 810 PRINT"IN FRONT OF THE HOTEL. tHERE  ARE SINISTER,  DESERTED STREETS  "W$" AND "E$". tHERE IS A TAXI   CAB "S$".":RETURN
  110. 820 PRINT"IN THE tAXI. ":IFD(10,1)=9THENPRINT"tHE hOTEL IS "N$"."
  111. 821 IFD(10,1)=18THENPRINT"tHE aIRPORT IS "N$"."
  112. 822 IFD(10,1)=19THENPRINT"tHE aCROPOLIS IS "N$"."
  113. 830 IFD(10,1)=25THENPRINT"tHE bAZAAR IS "N$"."
  114. 840 PRINT"tHE DRIVER IS WANTING TO KNOW WHERE YOU WISH TO GO...(ONE WORD).":RETURN
  115. 850 PRINT"WALKING DOWN A SINISTER-LOOK- ING, DESERTED STREET. (i WOULDN'T GO ANYFURHTER IF i WERE YOU!)."
  116. 853 IFL=12THEN880
  117. 854 PRINT"tHE STREET CONTINUES ON "E$" AND GOES BACK "W$".":RETURN
  118. 860 PRINT"AT THE GATE OF THE UNDERWORLD.tHE sEVEN-HEADED DOG cEREPHUS GUARDS THEGATE. tHROUGH THE GATE "E$" IS   THE REALM OF THE UNDER-WORLD. a BEACH OFTHE rIVER sTYX IS "S$"."
  119. 870 PRINT"  aBOVE THE GATE IS CARVED THE LEGEND:"
  120. 871 PRINT"   abandon hope, ye who enter here"
  121. 872 PRINT"  yOU CAN HEAR THE MOANING OF SOULS     THROUGH THE GATE.":RETURN
  122. 880 PRINT"tHE STREET CONTINUES ON "W$" AND GOES BACK "E$".":RETURN
  123. 890 DF=0:PRINT"DEAD. yOUR SPIRIT IS ON THE   SHORE OF THE rIVER sTYX... THE RIVER    SEPARATING THE LIVING AND THE DEAD. aLL WHO HAVE DIED MUST CROSS THE RIVER.     cHARON, THE BOATMAN, WAITS "E$"."
  124. 895 PRINT"tHE LANDSCAPE HERE IS VERY DESOLATE AND FORBODING. pILES OF ROCKS ARE TO ALL    SIDES AND THERE IS SAND UNDERFOOT.":RETURN
  125. 910 PRINT"IN THE bOAT OF cHARON ON THE  EARTHLY SHORE OF THE rIVER sTYX.":RETURN
  126. 920 PRINT"INSIDE OF oRCHEUS. cEREPHUS   STANDS GUARD AT THE GATES AN LETS NO ONEPASS. the game is over!":OV=1:RETURN
  127. 930 PRINT"ON THE BEACH OF REBIRTH.a PATHLEADS BACK "N$" AND A PASSAGE   FOR REBORN SOULS LEADS "W$".":RETURN
  128. 940 PRINT"AT THE AIRPORT...BUT YOU DON'THAVE YOUR PASSPORT!cUSTOMS WON'T LET YOUTHROUGH THE GATE. tHE CAB IS WAITING "W$".":RETURN
  129. 950 PRINT"OVERWHELMED BY THE BEAUTY OF  THE aCROPOLIS.   tHE CLUSTER OF ANCIENT TEMPLES DOMINATES THE HILLSIDE. lOOKING "E$" IS THE tEMPLE OF aTHENA,THE GODDESS OF wISDOM... "S$
  130. 955 PRINT"IS THE tEMPLE OF aPHRODITE, THE GODDESS OF BEAUTY AND LOVE. tHE TAXI DRIVER IS  INDOLENTLY WAITING FOR A FARE":PRINTN$".":RETURN
  131. 970 PRINT"IN THE tEMPLE OF aTHENA. a    LARGE STATUE OF THE GODDESS IS AT THE   END OF THE TEMPLE. aT ONE TIME THIS TEM-PLE WAS ONE OF THE MOST BEAUTIFUL ON THEMOUNTAIN BUT NOW IT HAS BEEN BADLY VAN- DALIZED.";
  132. 980 PRINT" tHE ENTRANCE TO THE aCROPOLIS  IS "W$". tHE COLUMNS AND STATUES ARE VERY BEAUTIFUL.":RETURN
  133. 990 PRINT"IN THE tEMPLE OF aPHRODITE.   tHE MAIN CHAMBER IS NOW DUSTY AND WIND- SWEPT, BUT THERE SEEMS TO BE A PROTECTEDAREA "S$". tHE ENTRANCE TO THE  aCROPOLIS IS "N$".":RETURN
  134. 1000 PRINT"IN THE sANCTUARY. aT ONE TIME THIS ROOM WAS USED BY THE DEVOUT OFFER- ING UP PRAYERS TO THE gODDESS. nOW,IT ISEMPTY EXCEPT FOR HER EXQUISITE STATUE.  sHE STANDS AGAINST THE WEST WALL OF THE ROOM, A STONE GARLAND OF CARVED ROSES AT";
  135. 1010 PRINT"HER MARBLE FEET. tHE ATMOSPHERE HERE IS OF GREAT PEACE. tHE DOORWAY TO THE MAIN TEMPLE IS "N$". tHERE IS ALSO A DOORWAY "E$;
  136. 1011 IFD(22,4)<>0THENPRINT", AND A REVEALED     PASSAGE "W$".":RETURN
  137. 1012 PRINT".":RETURN
  138. 1020 PRINT"IN THE TEMPLE GARDEN. iT WAS  NEATLY LAID OUT AT ONE TIME. iT IS SUR- ROUNDED ON ALL SIDES BY A HIGH MARBLE   WALL. tHE ONLY WAY OUT IS THE DOORWAY   THROUGH WHICH YOU ENTERED. ";
  139. 1030 IFRF=0THENPRINT"tHERE IS A   SINGLE ROSE HERE. ";
  140. 1031 PRINT:RETURN
  141. 1040 PRINT"IN A DARK CHAMBER. tHERE IS   LIGHT FILTERING IN THROUGH THE NARROW   OPENING "E$".";
  142. 1041 IFI(4)<>-1ORLL<>1THENPRINT"iT IS TOO DARK TO  SEE.":RETURN
  143. 1050 PRINT"tHERE IS A RAISED  PLATFORM HERE, AND A BRACKISH LOOKING   STREAM SLOWLY FLOWS THROUGH ONE SIDE OF THE CHAMBER.":RETURN
  144. 1060 PRINT"AT THE eNTRANCE TO THE bAZAAR.tHERE IS A LARGE CROWD OF PEOPLE MILLINGAROUND, BUT THEY ARE MINDING THEIR OWN  BUSINESS AND NOT BOTHERING YOU. tHE CAB IS NORTH FROM HERE.":RETURN
  145. 1070 PRINT"AT THE STAND OF THE WINE      SELLER.":RETURN
  146. 1080 PRINT"IN THE bOOK sELLER'S TENT. tHEBOOK SELLER IS A WIZENED LITTLE MAN WITHGLASSES. tHERE ARE HUGE STACKS OF BOOKS EVERYWHERE!":RETURN
  147. 1090 PRINT"IN THE TENT OF THE sEER. tHE  PLACE IS VERY MUSTY... AS A MATTER OF   FACT, i DON'T THINK ANYONE HAS BEEN HEREFOR ages!":RETURN
  148. 1100 PRINT"AT THE fOOD sELLER'S STAND.   eVERYTHING YOU HAVE HEARD ABOUT gREEK   PASTRY AND SANDWITCHES IS APPARENTLY    true!!!!!":RETURN
  149. 1110 PRINT"IN THE SHOP OF THE aNTIQUE    dEALER. tHERE IS A DISORGANIZED LOOK TO THE SHOP. dON'T MOVE TOO BRASHLY...YOU  MIGHT KNOCK A FRAGILE URN TO THE FLOOR!":RETURN
  150. 1120 PRINT"AT THE STAND OF THE CLOTH     MERCHANT. mOST OF THE CLOTH SEEMS TO BE CHEAP IMPORTED STUFF. i WOULDN'T WEAR ITON A BET!":RETURN
  151. 1130 PRINT"IN THE bOAT OF cHARON ON THE  oRCHIAN SHORE OF THE rIVER sTYX.":RETURN
  152. 1140 IFF1=1THEN1180
  153. 1141 F1=1:PRINT"AWAKENING. tHE HARD PLATFORM  YOU WERE LAYING ON IS NOW COVERED WITH  SOFT QUILTS AND PILLOWS. tHE ROOM IS    SOFTLY LIT WITH THE LIGHT OF A HUNDRED  OIL LAMPS. rOSES ARE EVERYWHERE. tHIS   ROOM IS THE REFUGE FOR";
  154. 1150 PRINT" COUPLES WISHING  TO PERFORM THE rITE OF aPHRODITE UNDER  THE EYE OF THE GODDESS FOR A SPECIAL    BLESSING. tHE STREAM, BRACKISH WHEN YOU PASSED OUT, IS NOW CRYSTAL CLEAR. tHERE IS AN OPENING "E$" THROUGH WHICH LIGHT IS STREAMING.";
  155. 1160 PRINT"a SOFT VOICE WHISPERSIN YOUR EAR: "CHR$(34)"oNE MUST pray FOR help IN THIS PLACE..."CHR$(34)
  156. 1170 P$="iT'S A SOFT BED.":WA$="tHE WATER IS CLEAR AND SWEET.":RETURN
  157. 1180 IFF1=1THENPRINT"IN THE lOVE cHAMBER IN THE    tEMPLE OF aPHRODITE. tHE ROOM IS LIT    WITH THE SOFT LIGHT OF OIL LAMPS. tHERE IS A RAISED PLATFORM COVERED WITH SOFT  QUILTS AND PILLOWS.":RETURN
  158. 1190 PRINT"IN THE sANCTUARY. tHERE ARE   ROSES EVERYWHERE. a NARROW PASSAGE LEADS"W$",A DOORWAY LEADS "E$",AND ANOTHER DOORWAY LEADS "N$".":RETURN
  159. 1200 PRINT"IN THE rOSE gARDEN. tHERE ARE ROSES OF ALL COLORS EVERYWHERE. tHE     MARBLE WALLS OF THE GARDEN ARE WITHOUT  AN OPENING,EXCEPT FOR THE SINGLE DOORWAY"W$" THROUGH WHICH YOU ENTERED. "
  160. 1210 PRINT:RETURN
  161. 1220 PRINT"IN THE MAIN CHAMBER OF THE    tEMPLE OF aPHRODITE. cLOTH PENANTS ARE  EVERYWHERE, MOVING IN A GENTLE BREEZE.  yOU SMELL INCENSE BURNING BEFORE THE    STATUE OF THE GODDESS. a PATH LEADS  "N$".":RETURN
  162. 1230 PRINT"AT THE ENTRANCE TO THE aCRO-  POLIS.  tHE TEMPLE OF aTHENA IS  "E$", THE TEMPLE OF aPHRODITE IS "S$". tHERE IS A PATH LEADING NORTH    FROM HERE.":RETURN
  163. 1240 PRINT"IN THE tEMPLE OF aTHENA. tHE  FAITHFUL HAVE OBVIOUSLY LEFT MANY SACRI-FICES TO THE GODDESS HERE BEFORE HER    STATUE. a PATH LEADS "W$" FROM   HERE.":RETURN
  164. 1250 PRINT"ON A nORTH-sOUTH PATH. tHE    STONES OF THE PATH HAVE BEEN WORN SMOOTHBY COUNTLESS FEET.":RETURN
  165. 1260 PRINT"BY A SMALL POOL. tHE POOL IS  "E$", THE PATH GOES sOUTH AND    wEST FROM HERE.":RETURN
  166. 1270 PRINT"IN THE POOL. tHE WATER HAS AN UNUSUALLY SILKY FEEL. yOUR SKIN IS TING-LING ALL OVER. ";:IV=1
  167. 1271 IFI(7)=-1THENPRINT"yOUR SLAVE GIRL NOTICES  THE TINGLE TOO.";:IV=2
  168. 1272 PRINT:RETURN
  169. 1280 PRINT"ON A WELL-TRAVELED PATH. tHEREIS A CITY "W$" AND THE PATH CONT-INUES ON "E$". tHERE IS A TALL   OAK TREE BY THE PATH.":RETURN
  170. 1290 PRINT"AT THE GATES TO THE CITY. a   PATH RUNS "W$" INTO THE CITY.    aNOTHER PATH RUNS "N$" AND":PRINTE$". tHE GATES TO THE CITY ARE  OPEN.":RETURN
  171. 1300 PRINT"AT THE ENTRANCE TO THE bAZAAR.":IFF2=1THENRETURN
  172. 1301 F2=1:PRINT"oDD, ALL OF THE PEOPLE HERE SEEM TO BE  DRESSED IN tOGAS (geeeeee! AND SO ARE youNOW THAT YOU NOTICE!).":RETURN
  173. 1310 PRINT"AT THE STAND OF THE WINE      MERCHANT. (lOOKS LIKE strong stuff!).":RETURN
  174. 1320 PRINT"AT THE STAND OF THE FOOD      SELLER.":RETURN
  175. 1330 PRINT"IN THE TENT OF THE SEER. tHE  AGED SEER IS SITTING STARRING INTO A    COLD BLUE FLAME, AND SEEMS OBLIVIOUS TO YOU.":RETURN
  176. 1340 PRINT"AT THE SLAVE MARKET. tHERE AREMANY SLAVES FOR SALE HERE, STANDING ON  THE AUCTION BLOCK.":RETURN
  177. 1350 PRINT"AT THE FEET OF sOCRATES. tHE  GREAT TEACHER IS SITTING HERE IN THE    TOWN SQUARE, GIVING HELP TO ANY WHO ask IT.":RETURN
  178. 1360 PRINT"AT THE TENT OF THE CLOTH      SELLER.":RETURN
  179. 1370 PRINT"ON A NORTH/SOUTH PATH NORTH OFTHE CITY. tHE TERRAIN HERE IS SLIGHTLY  MOUNTAINOUS AND DESOLATE. i DON'T LIKE  IT HERE!":RETURN
  180. 1380 PRINT"AT A SHRINE TO aPHRODITE NEAR THE NORTH/SOUTH PATH. tHERE ARE ROSES   GROWING NEAR THE SHRINE AND LOW BUSHES  GROWING "W$".";:IFF3=0THENPRINT:RETURN
  181. 1381 PRINT"a PATH LEADS ON    BEYOND THE BUSHES.":RETURN
  182. 1390 PRINT"AT THE SEA SHORE. tHE SEA     STRETCHES OUT "N$"AND A PATH    LEADS "E$".":RETURN
  183. 1400 PRINT"AT A SHRINE TO nEPTUNE. tHE   SHRINE IS PERCHED very CLOSE TO THE EDGEOF THE SEA SHORE. tHERE IS A SMELL OF   THE SEA AND OF magic HERE!":RETURN
  184. 1410 PRINT"SWIMMING BENEATH THE SEA.":RETURN
  185. 1420 PRINT"IN THE CASTLE OF nEPTUNE, THE gOD OF THE sEA.tHERE IS A SOFTLY GLOWINGLIGHT EVERYWHERE. iT WOULD BE A GOOD BETTHE OLD MAN MAY COME BACK AT ANY MOMENT.tHE DOOR THROUGH WHICH YOU ENTERED IS "S$".";
  186. 1430 PRINT"tHERE IS A BARRED DOOR WHICHYOU CANNOT OPEN "N$",AND AN OPENDOOR "E$".":RETURN
  187. 1440 PRINT"IN nEPTUNE'S tHRONE rOOM.     tHERE IS A DOOR "W$" AND A BROAD PASSAGEWAY "E$" FROM WHICH       STRANGE NOISES EMINATE.tHERE IS ANOTHER,DARKER PASSAGE "S$".":RETURN
  188. 1450 PRINT"IN THE tREASURE rOOM. bONES   LIE EVERYWHERE, MIXED WITH THE TREASURE ARTICLES. i WOULD NOT STAY HERE OVERLONGIF i WERE YOU!":RETURN
  189. 1460 PRINT"IN THE LAIR OF THE kraken!!!!!":FORX=1TO2000:NEXT:PRINT:PRINT"yOU HAVE DISTURBED THE kRAKEN'S SLUMBER!":PRINT:FORX=1TO2000:NEXT:RETURN
  190. 1470 PRINT"ON AN EAST/WEST PATH. tHERE   ARE TALL MOUNTAINS IN THE DISTANCE   "W$".":RETURN
  191. 1480 PRINT"AT THE FOOT OF mT. oLYMPUS.   tHERE IS A PATH COMING FROM THE eAST,   AND HEADING UP THE MOUNTAIN. iT IS      BECOMING WINDY HERE. tHE CREST OF THE   MOUNTAIN IS SHROUDED IN CLOUDS AND ";
  192. 1481 PRINT"     LIGHTNING PLAYS ON ITS PEAKS.":RETURN
  193. 1490 PRINT"HALF WAY UP mT. oLYMPUS. tHEREIS A PATH "U$" AND "D$". tHE  GOING IS MUCH ROUGHER FROM HERE ON UP.";:IFF2=0THENF2=1:PRINT"  yOU ARE BECOMING FATIGUED."
  194. 1491 RETURN
  195. 1500 PRINT"AT THE TOP OF mT. oLYMPUS.    fROM HERE, A PATH GOES "N$" AND "S$". tHERE IS ANOTHER PATH     "D$". iT IS COLD AND WINDY HERE,AND IT LOOKS AS THOUGH A GREAT STORM MIGHTUNLEASH ITS FURY AT ANY MOMENT.":RETURN
  196. 1510 PRINT"AT THE EDGE OF A SHEER DROP.  tHE ONLY SAFE WAY SEEMS TO BE    "S$".";:IFINT(RND(0)*10)=4THENFORX=1TO2000:NEXT:PRINT:PRINT"arghhhhh! tHE WIND BLOWS YOU OVER THE EDGE! you are dead. the adventure is over.":END
  197. 1511 PRINT:RETURN
  198. 1520 PRINT"IN THE pALACE OF THE gODS.hEREIN THE ANTECHAMBER IS AN OPEN DOOR":PRINTN$". pASSAGES LEAD OFF IN ALL  DIRECTIONS. yOU FEEL VERY SMALL AND IN- SIGNIFICANT HERE.":RETURN
  199. 1530 PRINT"IN THE wINE cELLAR. tHE AREA  IS VERY DUSTY, BUT YOU SEE MANY FOOT-   PRINTS THAT INDICATE MUCH TRAFFIC HERE  RECENTLY. tHE PASSAGE THROUGH WHICH YOU ENTERED LEADS UPWARD FROM HERE, AND AN- OTHER, DARKER PASSAGE LEADS DOWN.":RETURN
  200. 1540 PRINT"IN THE THRONE ROOM.":IFG1=1THENRETURN
  201. 1541 GOSUB120:PRINT"zEUS ASKS: wHY HAVE YOU COME TO oLYMPUS, mORTAL?":PRINT:INPUT"wHAT IS YOUR ANSWER";AN$
  202. 1542 IFAN$="HELP"THEN1610
  203. 1543 DR$="WINE":GOSUB10000:IFZ=0THENDR$="NECTAR":GOSUB10000:IFZ=0THEN1640
  204. 1550 PRINT:PRINT"vERY WELL, MORTAL. tHAT IS YOUR PRIV-   ILAGE. wHAT OFFERING DO YOU MAKE TO US?"
  205. 1560 PRINT:INPUT"wHAT IS YOUR ONE WORD ANSWER";AN$:DR$="HELMET":GOSUB10000
  206. 1570 IFZ=0THENIFLEFT$(AN$,3)="INV"THENRT=1:GOSUB1760:RT=0:GOTO1560
  207. 1580 IFZ=0THEN1620
  208. 1581 IFI(6)<>-1THEN1630
  209. 1590 PRINT:PRINT"wE THANK YOU FOR THIS OFFERING! i HAVE  FOUGHT WITH MY BROTHER nEPTUNE FOR THISTREASURE FOR CENTURIES! sEARCH THE      PALACE! gOOD LUCK TO YOU!"
  210. 1600 I(6)=0:PRINT:G1=1:D(L,4)=70:FORX=1TO5000:NEXT:PRINT"wITH THAT, THE gODS AND gODDESSES      DISAPPEAR, LEAVING YOU ALONE IN THE     tHRONE rOOM.":RETURN
  211. 1610 PRINT"gO AHEAD AND TELL HIM YOU CAME FOR THE  nECTAR! yOU ARE STILL ";:GOTO1540
  212. 1620 PRINT:PRINT"yOU OFFER MERE TRINKETS FOR THE CHANCE  AT IMMORTALITY????":GOTO1640
  213. 1630 PRINT"tHAT WOULD BE A WORTHY OFFERING, mORTAL,BUT i DO NOT SEE IT WITH YOU! rETURN    TO oLYMPUS WHEN YOU HAVE A SUITABLE     OFFERING. dO NOT ANGER ME!":RETURN
  214. 1640 PRINT"yOU VIOLATE OUR PALACE FOR THE INCONCE-QUENTIAL! i AM MIGHTILY ANGERED!!!!!":FORX=1TO2000:NEXT:PRINT"lIGHTNING FLASHES FROM THE FOREHEAD OF zEUS...":FORX=1TO1000:NEXT:PRINT"you are dead. the adventure is over.":END
  215. 1650 PRINT"IN aPHRODITE'S bEDCHAMBER. iT LOOKS MUCH LIKE THE SECRET lOVE cHAMBER AT HER TEMPLE. eVERYTHING IS SCENTED    WITH ROSES. tHERE IS A DOORWAY":PRINTE$" AND ANOTHER "N$".":RETURN
  216. 1660 PRINT"IN cUPID'S ROOM. aPRODITE HAS DECORATED IT MUCH AS ANY MOTHER WOULD   SET HER CHILD'S ROOM. tHERE IS A RACK   FOR A BOW AND ARROW ABOVE HIS BED, BUT  IT IS EMPTY NOW. tHERE IS A DOOR "S$".":RETURN
  217. 1670 PRINT"IN zEUS' STUDY. tHERE IS A    HIGH FIGURINE RACK, AND AN ARENA MINI-  ATURE STAGE HERE.   a DOOR EXITS "W$" AND A TALL ARCHWAY LEADS    "E$".":RETURN
  218. 1680 PRINT"ON hERA'S bALCONY. tHE VIEW ISBREATH-TAKING! bELOW YOU, YOU SEE THE   LOCATIONS OF ALL YOUR PREVIOUS ADVENT-  URES HERE IN ANCIENT gREECE.tO THE nORTHIS THE sEA,"W$",THE CITY, AND":PRINTS$", THE aCROPOLIS.":RETURN
  219. 1690 PRINT"IN A MAZE OF PRIVATE ROOMS.":RETURN
  220. 1700 PRINT"AT THE FEET OF aTLAS! aBOVE   YOU IS THE WORLD, RESTING ON THE BACK OFTHE gIANT! tHE SIGHT OF THE ENSLAVED    GIANT IS SHATTERING. tHE PATH BY WHICH  YOU CAME LEADS UPWARD.":RETURN
  221. 1710 IFAN$="LOOK"THEN460
  222. 1711 IFAN$="HELP"ANDL<33THEN1870
  223. 1712 IFAN$="PRAY"ANDL>32THEN1870
  224. 1720 IFAN$="QUIT"THENNEW:END
  225. 1730 IFAN$="ASK"THEN3240
  226. 1740 IFAN$="N"ORAN$="E"ORAN$="S"ORAN$="W"ORAN$="U"ORAN$="D"THENNO$=AN$:GOTO2280
  227. 1750 IFL=10THEN2180
  228. 1760 IFLEFT$(AN$,3)<>"INV"THEN1810
  229. 1761 Y=0:PRINT"yOU ARE HOLDING:":FORX=1TONI:IFI(X)<>-1THEN1780
  230. 1762 Y=1:PRINTI$(X)
  231. 1780 NEXT:IFRF=1THENPRINT"A ROSE":Y=1
  232. 1790 IFY=0THENPRINT"nothing at all"
  233. 1800 IFRT=1THENRETURN
  234. 1801 GOTO640
  235. 1810 IFAN$<>"DIG"THEN1820
  236. 1811 IFL=13THENI(5)=13:PRINT"yOU FIND A GOLD COIN.":GOTO640
  237. 1812 PRINT"i CAN'T DIG here!":GOTO640
  238. 1820 GOTO700
  239. 1870 IFL=4THENA$="bUTTONS SOMETIMES CALL ELEVATORS...":GOTO2170
  240. 1880 IFL=3THENA$="oLD fASHIONED EXPLORING IS THE TICKET   HERE.":GOTO2170
  241. 1890 IFL=9THENA$="i'D TAKE THE CAB IF IT WERE ME!":GOTO2170
  242. 1900 IFL=32THENA$="i'M HAVING TO TELL YOU everything!      lOOKS LIKE ANOTHER SHORE TO THE east TO ME.":GOTO2170
  243. 1910 IFL=15THENA$="rEAD THE SIGN, iDIOT!":GOTO2170
  244. 1920 IFL=8ANDDF=1THENA$="yOU NEED A SOURCE OF LIGHT.":GOTO2170
  245. 1930 IFL=16THENA$="yOU ARE BEYOND HELP":GOTO2170
  246. 1940 IFL=19THENA$="eXPLORE... eXPLORE...":GOTO2170
  247. 1950 IFL=21THENA$="i'D SEEK PROTECTION BY ALL MEANS...":GOTO2170
  248. 1960 IFL=25THENA$="mIGHT BE SOMETHING INTERESTING IN HERE":GOTO2170
  249. 1970 IFL=10THENA$="a TRANSLATION BOOK WOULD HELP HERE...":GOTO2170
  250. 1980 IFL=14THENA$="wELL... GIVE THE MAN HIS DUE!":GOTO2170
  251. 1990 IFL=41THENPRINT"yOU HAVE JUST RECEIVED MORE HELP THAN   YOU CAN POSSIBLY IMMAGINE...":GOTO2170
  252. 2000 IFL=45THENA$="bEWARE OF STRONG DRINK!!!!":GOTO2170
  253. 2010 IFL=47THENA$="sEERS GIVE SAGE ADVICE IF askED...":GOTO2170
  254. 2020 IFL=11ORL=12THENA$="i'VE ALREADY GIVEN YOU my ADVICE!":GOTO2170
  255. 2030 IFL=49THENA$="sO ask socrates":GOTO2170
  256. 2040 IFL=51THENA$="sO KEEP GOING!!!!!!!":GOTO2170
  257. 2050 IFL=61THENA$="iT STRIKES ME THAT ONLY AND half-wit    WOULD BOTHER THOSE NOISES... WHICH HALF ARE YOU?":GOTO2170
  258. 2060 IFL=65THENA$="up WILL TAKE YOU UP THE MOUNTAIN.":GOTO2170
  259. 2070 IFL=13THENA$="cHARON REQUIRES A GOLD COIN TO PAY FOR  THE TRIP...IF YOU DIG ME...":GOTO2170
  260. 2080 IFL=68THENA$="i WOULD NOT STAY OVERLONG HERE EITHER!":GOTO2170
  261. 2090 IFL=70THENA$=" this is it!!!!!":GOTO2170
  262. 2100 IFL=33ANDI(7)<>-1THENA$="yOU WILL NEED THE HELP OF ANOTHER TO    RETURN TO YOUR OWN TIME.":GOTO2170
  263. 2110 IFL=33ANDI(7)=-1THENA$="yOU CAN RETURN TO YOUR TIME ONLY THROUGHLOVE.":GOTO2170
  264. 2120 IFL=40THENA$="rEMEMBER THE STORY OF aCHILLES...":GOTO2170
  265. 2130 IF(L=49ORL=47)THENA$="ask AND YEA SHALL RECEIVE.":GOTO2170
  266. 2140 IFL>55ANDL<60THENA$="i'M JUST AS LOST AS YOU ARE!":GOTO2170
  267. 2150 IFL>75ANDL<81THENA$="kEEP TRYING... THERE is A WAY OUT!":GOTO2170
  268. 2160 A$="tRY examining THINGS..."
  269. 2170 GOSUB70:GOTO640
  270. 2180 IFI(2)<>-1THEN2240
  271. 2190 IFAN$<>"AIRPORT"THEN2200
  272. 2191 IFD(10,1)=18THEN2250
  273. 2192 IF(D<10ORI(3)<>-1)THEN2260
  274. 2193 D=D-10:D(10,1)=18:GOTO2270
  275. 2200 IFAN$<>"BAZAAR"THEN2210
  276. 2201 IFD(10,1)=25THEN2250
  277. 2202 IF(D<10ORI(3)<>-1)THEN2260
  278. 2203 D=D-10:D(10,1)=25:GOTO2270
  279. 2210 IFAN$<>"ACROPOLIS"THEN2220
  280. 2211 IFD(10,1)=19THEN2250
  281. 2212 IF(D<10ORI(3)<>-1)THEN2260
  282. 2213 D=D-10:D(10,1)=19:GOTO2270
  283. 2220 IFAN$<>"HOTEL"THEN2230
  284. 2221 IFD(10,1)=9THEN2250
  285. 2222 IF(D<10ORI(3)<>-1)THEN2260
  286. 2223 D=D-10:D(10,1)=9:GOTO2270
  287. 2230 PRINT:PRINT"tHE DRIVER SAYS:":PRINT"wHY WOULD YOU WANT TO GO THERE? mOST PEOPLE WANT TO GO TO THE aCROPOLIS OR THE aIRPORT OR THE bAZAAR OR THE hOTEL!":GOTO640
  288. 2240 PRINT"tHE DRIVER DOESN'T SEEN TO UNDERSTAND   YOU.":GOTO640
  289. 2250 PRINT"bUT WE ARE ALREADY THERE!":GOTO640
  290. 2260 PRINT"yOU DON'T HAVE THE FARE!":GOTO640
  291. 2270 PRINT"yOU PAY THE DRIVER 10 DRACHMAS AND THE  CAB PULLS AWAY...":PRINT:FORX=1TO500:NEXT:GOTO460
  292. 2280 GOSUB3880:DR$="NESWUD":AN$=LEFT$(NO$,1):GOSUB10000:IFZ=0THEN2290
  293. 2281 Z=ZZ:IFD(L,Z)=0THEN2300
  294. 2282 IFD(L,Z)=13THEN2310
  295. 2283 IF(L=54ANDD(L,Z)=53ANDFF=1)THEN2340
  296. 2284 L=D(L,Z):GOTO460
  297. 2290 PRINT"pLEASE USE COMPAS POINTS.":GOTO640
  298. 2300 IFDF=1THENPRINT"you have fallen to your death!":FORX=1TO1000:NEXT:L=13:GOTO460
  299. 2301 PRINT"yOU CANNOT GO IN THAT DIRECTION.":GOTO640
  300. 2310 IFL=11ORL=12THENL=13:PRINT"oH no!":FORX=1TO1000:NEXT:PRINT"a GANG OF TOUGHS HAS ACCOSTED YOU!":FORX=1TO1000:NEXT:GOTO460
  301. 2320 IFL=14THENL=13:GOTO460
  302. 2330 PRINT"i DON'T UNDERSTAND.":GOTO640
  303. 2340 PRINT"bUT YOU ARE A MERPERSON, AND CANNOT WALKON DRY LAND!":GOTO640
  304. 2350 GOSUB20:IFNH=-2THEN2370
  305. 2351 IFNHTHEN640
  306. 2352 IFNO=15THEN2400
  307. 2360 IFNO=7ORNO=9ORNO=10ORNO=11ORNO=12ORNO=18ORNO=19THENPRINT"wHAT? dO YOU WANT TO GET arrested?!     tHERE ARE laws AGAINST stealing!!!!!":GOTO640
  308. 2370 IFNO<>92THEN2380
  309. 2371 IFL<>23THENPRINT"i CAN'T! tHOSE ARE SACRED ROSES!":GOTO640
  310. 2372 IFRF=1THENPRINT"yOU ALREADY HAVE THE ROSE.":GOTO640
  311. 2373 RF=1:PRINT"A SINGLE ROSE TAKEN.":GOTO640
  312. 2380 IFNO=22THEN3110
  313. 2390 IFI(NO)=-1THENPRINT"yOU ALREADY HAVE IT!":GOTO640
  314. 2400 IFNO=15ORNO>20THENPRINT"iT IS BEYOND MY POWER TO DO THAT.":GOTO640
  315. 2410 IFNO<>7THEN2420
  316. 2411 IFD<400THENPRINT"bUT YOU LACK HER PRICE!":GOTO640
  317. 2412 I$(7)="BEAUTIFUL NUDE SLAVE GIRL":PRINT"tHE SLAVE COST YOU 400 DRACMAS.":D=D-400:I(7)=-1:GOSUB50:GOTO640
  318. 2420 IFNO<>8THEN2430
  319. 2421 IFI(3)<>-1THENPRINT"bUT WHERE WILL YOU PUT IT?":GOTO640
  320. 2422 D=D+500:I(8)=0:PRINTI$(8)" TAKEN.":GOTO640
  321. 2430 IFIC<5THENI(NO)=-1:PRINTI$(NO)" TAKEN.":IC=IC+1:GOTO2440
  322. 2431 PRINT"yOUR HANDS ARE FULL.":GOTO640
  323. 2440 IFNO=5THEND(13,2)=14
  324. 2450 GOTO640
  325. 2460 IF NO<>92 THEN 2470
  326. 2461 IFRF=1THENPRINT"[193]S YOU DROP THE ROSE, IT DISAPPEARS INTOA PUFF OF SWEET";
  327. 2462 PRINT"LY SCENTED SMOKE.":RF=2:FORX=1TO1000:NEXT:IFL<>22 THEN 640
  328. 2463 PRINT"[201] HEAR A GRINDING NOISE...":PRINT:D(22,4)=24:GOTO640
  329. 2470 IFNO>NITHEN4170
  330. 2471 IFI(NO)<>-1THENPRINT"yOU AREN'T CARRYING THE "NO$".":GOTO640
  331. 2480 IFL=14ANDI(5)=-1THENIC=IC-1:L=32:PRINT"cHARON ACCEPTS THE COIN, AND ROWS YOU TOTHE FAR SHORE.":PRINT:I(5)=0:GOTO460
  332. 2490 IFI(7)=-1ANDI(14)=-1THENSI=1:GOTO640
  333. 2500 I(NO)=L:IC=IC-1:PRINTI$(NO)" DROPPED.":GOTO640
  334. 2510 GOSUB20:IFNH=-1THEN640
  335. 2520 IFNO<>1THEN2560
  336. 2521 PRINT"SUITCASE IS OPEN.":Y=0:IFI(2)=0THENI(2)=L:Y=1
  337. 2530 IFI(4)=0THENI(4)=L:Y=1
  338. 2540 IFY<>0THENPRINT"hEY! yOU FOUND SOMETHING!"
  339. 2550 GOTO640
  340. 2560 IFNO<>3THEN2570
  341. 2561 IFI(3)<>-1THENPRINT"yOU DO NOT HAVE "I$(NO)".":GOTO640
  342. 2562 PRINT"iT CONTAINS"D"DRACHMAS.":GOTO640
  343. 2570 IFNO<>60THEN2580
  344. 2571 PRINT"tHE DOOR IS OPEN... ";:IFL<>3THENPRINT:GOTO640
  345. 2572 PRINT" iT WOULD TAKE A KEY TO OPEN THE OTHER  DOOR.":GOTO640
  346. 2580 IFNO=2THENPRINT"ok":GOTO640
  347. 2590 PRINT"i CANNOT OPEN SUCH A THING!":GOTO640
  348. 2600 IFI(4)=-1ANDLL=1THENPRINT"iT'S ALREADY LIT!":GOTO640
  349. 2601 IFI(4)<>-1THENPRINT"yOU DON'T HAVE IT.":GOTO640
  350. 2602 LL=1:PRINT"LIGHTED":GOTO640
  351. 2610 IFI(4)=-1ANDLL=0THENPRINT"iT'S NOT LIT!":GOTO640
  352. 2611 IFI(4)<>-1THENPRINT"yOU DON'T HAVE IT.":GOTO640
  353. 2612 LL=0:PRINT"EXTINGUISHED.":GOTO640
  354. 2620 GOSUB20:IFNH=-1THEN640
  355. 2621 IFNO<>90THEN3480
  356. 2622 PRINT"bUTTON PRESSED.":FORX=1TO500:NEXT:PRINT:PRINT"nOTHING HAPPENS...":GOTO640
  357. 2640 GOSUB20:IFNH=-1THEN640
  358. 2641 IFNO=18THENNO=19
  359. 2650 IFNO=17ORNO=58ORNO=59ORNO=73ORNO=88ORNO=89THENPRINT"VERY PRETTY!":GOTO640
  360. 2660 IFNO=15THENPRINT"tHERE IS AN INSCRIPTION HERE.":GOTO640
  361. 2670 IFNO=26THENPRINT"mAYBE A GODDESS WOULD WANT IT, BUT NOT  ME! yUCK!":GOTO640
  362. 2680 IFNO=85ANDL=54THENPRINT"lIKE i SAID, THERE IS AN INSCRIPTION    HERE!":GOTO640
  363. 2690 IFNO=46ANDL=52THENF3=1:PRINT"hEY! yOU FOUND SOMETHING!":GOTO640
  364. 2700 IFNO=86THENIFL=74THENPRINT"tHERE ARE MANY SMALL FIGURINES USED BY  zEUS IN THE RACK.":GOTO640
  365. 2701 IFNO=86THENIFL=73THENPRINT"nICE WORKMANSHIP...":GOTO640
  366. 2710 IFNO=8ORNO=13THENPRINT"i'D TRY TO read THAT IF i WERE YOU.":GOTO640
  367. 2720 IFNO=10THENPRINT"lOOKS AWFULLY GOOD...":GOTO640
  368. 2730 IFNO=11ORNO=12THENPRINT"iT LOOKS AWFULLY OLD.":GOTO640
  369. 2740 IFNO=14THENPRINT"tHIS IS THE real thing ALL RIGHT!!!!":GOTO640
  370. 2750 IFNO=16THENPRINT"iT LOOKS LIKE A HORN TO ME...":GOTO640
  371. 2760 IFNO=20THENPRINT"tHERE'S A KING'S RANSOM HERE!":GOTO640
  372. 2770 IFNO=25THENPRINT"iT IS A POISONOUS ASP! sTAY BACK!":GOTO640
  373. 2780 IFNO=62THENPRINT"i DON'T THINK IT'S WORKING...":GOTO640
  374. 2790 IF(NO=57ORNO=83)THENIF(L=33ORL=24)THENPRINTWA$:GOTO640
  375. 2800 IF(NO=80ORNO=81)ANDL=24THENPRINTP$:GOTO640
  376. 2810 IF(NO=59ORNO=1)ANDL<>3THENPRINT"i THINK IT'S UNLOCKED.":GOTO640
  377. 2820 IFNO=3THEN2560
  378. 2830 IFNO=5THENPRINT"i THINK THIS IS ENOUGH TO PAY cHARON.":GOTO640
  379. 2840 IFNO=6THENPRINT"hEY! iT FITS YOU!":GOTO640
  380. 2850 IFNO=7THENPRINT"sHE IS very PRETTY AND SOFT, WITH A     LOVELY FIGURE. sHE LOOKS LIKE SHE WAS   made FOR THE rITES OF aPHRODITE! (GRIN)":GOTO640
  381. 2860 GOTO3490
  382. 2870 GOSUB20:IFNH=-1THEN640
  383. 2871 IFNO=7THEN2410
  384. 2880 IFNO>20THEN2970
  385. 2881 IFNO<9THEN2980
  386. 2890 IFNO>12ANDNO<18THEN2980
  387. 2900 IFD<25THENPRINT"yOU LACK THE FUNDS...":GOTO640
  388. 2910 IFNO=19THENI(19)=-1:GOSUB50:GOTO2990
  389. 2920 IFNO=18THENI(18)=-1:GOTO2990
  390. 2930 IFNO=12THENI(12)=-1:GOTO2990
  391. 2940 IFNO=10THENI$(10)="GREEK SANDWICH":I(10)=-1:GOTO2990
  392. 2950 IFNO=11THENI(11)=-1:GOTO2990
  393. 2960 IFNO=9THENI(9)=-1:GOTO2990
  394. 2970 PRINT"tHAT IS not for sale!":GOTO640
  395. 2980 PRINT"wHY PAY FOR SOMETHING THAT IS FREE?":GOTO640
  396. 2990 D=D-25:PRINT"ok. iT COST 25 DRACHMAS.":GOTO640
  397. 3000 IFI(10)<>-1THENPRINT"i SEE NOTHING HERE TO eat!":GOTO640
  398. 3001 I(10)=0:PRINT"vERY TASTY.":GOTO640
  399. 3010 IFNO<>18THEN3020
  400. 3011 IFI(18)<>-1THENPRINT"yOU DON'T HAVE ANY.":GOTO640
  401. 3012 GOTO3080
  402. 3020 IFNO<>14THEN3030
  403. 3021 IFI(14)<>-1THENPRINT"yOU DON'T HAVE IT.":GOTO640
  404. 3022 IM=1:PRINT"yOU ARE NOW IMMORTAL! bUT YOU MUST      RETURN TO YOUR OWN TIME TO WIN THE GAME!":GOTO640
  405. 3030 IFNO<>83THEN3070
  406. 3031 IFL=24THEN3040
  407. 3032 IFL=41ORL=33THENPRINT"VERY TASTY.":GOTO640
  408. 3034 GOTO3070
  409. 3040 NO$(3)="POUC":I$(3)="LEATHER POUCH":L=33:I(10)=46:I(4)=0:I(18)=45:PRINT"gag!":FORX=1TO1000:NEXT:PRINT"tHE WATER TASTES terrible!!!!!":FORX=1TO1000:NEXT:PRINT"aLL IS TURNING black... yOU PASS OUT AND FALL TO THE PLATFORM..."
  410. 3050 I(19)=50:I$(19)="A BOLT OF WHITE SILK CLOTH"
  411. 3060 FORX=1TO5000:NEXT:FORX=1TO24:PRINT:NEXT:FORX=1TO5000:NEXT:GOTO460
  412. 3070 PRINT"i DON'T SEE IT HERE.":GOTO640
  413. 3080 PRINT"(HIC)":FORX=1TO1000:NEXT:PRINT"pRETTY GOOD STUFF! (HIC)":FORX=1TO1000:NEXT:PRINT"you pass out!":FORX=1TO1000:NEXT:PRINT"uH oH. yOU BETTER CHECK... i THINK some-one PICKED YOUR POCKET.":D=D-200:IFD<0THEND=0
  414. 3090 I(8)=8:GOTO640
  415. 3100 GOSUB20:IFNH=-1THEN640
  416. 3110 IFNO=22THENPRINT"oH, COME ON! yOU'RE WASTING TIME!":GOTO640
  417. 3120 IFNO=21THENPRINT"aHHHHHH. tHAT'S MUCH BETTER.":GOTO640
  418. 3130 GOTO3460
  419. 3140 IFNO<>13THEN3150
  420. 3141 GOSUB20:IFNH=-1THEN640
  421. 3142 A$=CHR$(34)+"light AND unlight"+CHR$(34)+" ARE OPPOSITES.":GOSUB60:GOTO640
  422. 3150 IFNO<>9THEN3170
  423. 3151 GOSUB20:IFNH=-1THEN640
  424. 3152 A$="iT IS SAID, BRAVE ADVENTURER, THAT time   IS BUT A RIVER...":GOSUB60
  425. 3153 A$="iT FLOWS AS WATER UP AND DOWN ITS STREAM":GOSUB60
  426. 3154 A$="oNE MUST DRINK OF THE RIVER TO TRAVEL IT":GOSUB60
  427. 3155 A$="AND NEVER FORGET HOW YOUNG MEN DREAM.":GOSUB60:GOTO640
  428. 3170 IFNO<>15THEN3180
  429. 3171 IFL<>54THENPRINT"i SEE NO INSCRIPTION.":GOTO640
  430. 3172 A$="oNLY THE mERFOLK SWIM IN THE SEA...":GOSUB60:A$="bLOW ON THE CONCH, THAT TO BE.":I(16)=54:GOSUB60:GOTO640
  431. 3180 IFNO=2ANDNH<>-1THENPRINT"iT'S JUST ALOT OF eNGLISH PHRASES AND   THEIR gREEK TRANSLATIONS.":PRINT:GOTO640
  432. 3190 PRINT"i SEE NOTHING HERE TO read!":GOTO640
  433. 3200 PRINT"tHE GODS HAVE FORBIDDEN ME TO KILL!":GOTO640
  434. 3210 IFNO<>88THEN3220
  435. 3211 IF(L=19ORL=20ORL=21ORL=23ORL=35ORL=36ORL=37ORL=38)THEN3460
  436. 3212 PRINT"i SEE NO COLUMN HERE.":GOTO640
  437. 3220 IFNO<>56THEN3230
  438. 3221 IFL=42THENPRINT"tHE TREE IS TOO HIGH TO CLIMB.":GOTO640
  439. 3230 PRINT"i CAN'T CLIMB THAT!":GOTO640
  440. 3240 IFL<>49THEN3300
  441. 3250 PRINT"sOCRATES ASKS: "CHR$(34)"aBOUT WHAT DO YOU NEED COUNCIL, WARRIOR?"CHR$(34):INPUT"wHAT ONE WORD IS YOUR ANSWER";AN$
  442. 3260 DR$="LOVE":GOSUB10000:IFZ<>0THENPRINT"lOVE IS THE ANSWER TO ALL PROBLEMS...    tHE TEMPLE OF aPHRODITE WAS MADE FOR   SUCH THINGS.":GOTO640
  443. 3270 DR$="SLAVES":GOSUB10000:IFZ<>0THENPRINT"sLAVERY IS WRONG... BUT IF YOU HAVE ONE,BY ALL MEANS PROVIDE PROTECTION!!!":GOTO640
  444. 3280 DR$="GODS":GOSUB10000:IFZ<>0THENPRINT"tHE gODS ARE NOT TO BE TAMPERED WITH    LIGHTLY... oFFERINGS ARE REQUIRED IF    MUCH IS ASKED.":GOTO640
  445. 3290 PRINT"tODAY, WARRIOR, WE ARE ONLY DISCUSSING  lOVE, sLAVES, AND THE gODS.":GOTO640
  446. 3300 IFL<>47THENPRINT"aSK who OR what?":GOTO640
  447. 3310 PRINT"tHE MYSTIC NEVER LOOKS UP... BUT SHE    SOFTLY MURMERS:":PRINTCHR$(34)"i CAN TELL YOU BUT LITTLE... BUT THAT  IS ALL YOU NEED.":PRINT"oNE PRIZE LIES HIGH IN THE AIR...THE    OTHER AT THE BOTTOM OF THE SEA..."CHR$(34):GOTO640
  448. 3320 IFNO<>16THENPRINT"i CAN'T blow THAT...":GOTO640
  449. 3321 IFL<>54THEN3470
  450. 3322 PRINT"a THUNDEROUS BLAST ISSUES FROM THE CONCH.":FORX=1TO1000:NEXT:PRINT"eVERYTHING SPINS AROUND, AND...":FORX=1TO1000:NEXT
  451. 3330 IFFF<>0THEN3340
  452. 3331 PRINT"yOU ARE A FISH FROM THE WAIST DOWN!":FF=1:IFI(7)=-1THENPRINT"(SO IS YOUR SLAVE!)"
  453. 3332 GOTO640
  454. 3340 PRINT"yOU ARE RESTORED TO YOUR FORMER STATE.":FF=0:GOTO640
  455. 3350 GOTO3460
  456. 3360 IFNO<>91THENPRINT"i CAN'T BUILD ANYTHING FOR YOU!":GOTO640
  457. 3370 IFL<>33THENPRINT"nOT HERE, STUPID!":GOTO640
  458. 3380 IF(I(7)<>-1ANDI(7)<>33)THENPRINT"yOU'LL NEED A PARTNER TO DO THAT!":GOTO640
  459. 3390 A$="yOU DROP YOUR TOGA TO THE FLOOR.":GOSUB70:PRINT:A$="tHE SLAVE GIRL LOOKS AT YOU WITH SMILING":GOSUB70:PRINT:A$="EYES AND DOES THE SAME. tHE SOFT LIGHT":GOSUB70:PRINT:A$="OF THE FLICKERING LAMPS IS ALMOST":GOSUB70:PRINT
  460. 3400 A$="UNEARTHLY. yOU GENTLY RECLINE TOGETHER":GOSUB70:PRINT:A$="ON THE SOFT BED.":GOSUB70:PRINT:A$="tHE FRAGRANCE OF ROSES IS EVERYWHERE...":GOSUB70:PRINT:A$="yOUR BODIES ENTWINE...":GOSUB70
  461. 3410 A$="everything begins to spin around...":GOSUB70:PRINT:FORX=1TO5000:NEXT:PRINT"you are back in your own time!"
  462. 3420 IFIM>0ANDSI=1THENPRINT"yOU WISELY MADE YOUR SLAVE IMMORTAL TOO,AND SHE HAS RETURNED WITH YOU DOWN THE  RIVER OF TIME! sHE IS HERE TO ENJOY     ETERNITY WITH YOU!":GOTO3440
  463. 3430 IFIM>0ANDSI<>1THENPRINT"iT'S SAD YOU MUST SPEND ETERNITY ALONE..AND YOU DIDN'T REALLY HAVE TO!  mAYBE   THE NEXT TIME YOU PLAY nectar YOU WILL  FIGURE OUT HOW. (iT would BEEN NICE TO  HAVE THE SLAVE GIRL too, WOULDN'T IT?)"
  464. 3440 IFIM>0THENPRINT"CONGRATULATIONS! YOU'VE SOLVED IT ALL!"
  465. 3441 IFIM=0THENPRINT"BUT YOU HAVE NOT DRUNK THE NECTAR!"
  466. 3450 INPUT"WANT TO PLAY AGAIN";AN$:IFAN$<>"Y"THENEND
  467. 3451 RUN
  468. 3460 PRINT"that doesn't solve anything!":GOTO640
  469. 3470 PRINT"i DON'T SEE IT HERE.":GOTO640
  470. 3480 PRINT"wHY WOULD YOU WANT TO DO THAT?":GOTO640
  471. 3490 PRINT"i SEE NOTHING OF INTEREST.":GOTO640
  472. 3500 DATA"GO","GET","TAKE","PUT","GIVE","DROP","OPEN","LIGH","UNLI","PUSH"
  473. 3501 DATA "PRES","EXAM","BUY","EAT","DRIN","USE","READ","KILL","PICK","CLIM"
  474. 3502 DATA "ASK","BLOW","MAKE"
  475. 3510 DATA "SUIT","BOOK","WALL","FLAS","COIN","HELM","SLAV","BILL","SCRO","FOOD"
  476. 3511 DATA "SPEA","URN","NOTE","NECT","INSC","CONC","FIGU","WINE","CLOT","GOLD"
  477. 3512 DATA "JOHN","BATH","PLAN","DESK","SERP","SACR","WIND","STAI","ROCK","SAND"
  478. 3513 DATA "AIRP","CROW","SEER","ATLA","DEAL","SHOP","BOAT","LAMP","QUIL","PILL"
  479. 3514 DATA "PENA","INCE","STON","FLAM"
  480. 3520 DATA "SOCR","BUSH","CAST","LIGH","PROP","PALA","CELL","STUD","AREN","ARCH"
  481. 3521 DATA "BALC","TREE","STRE","RUIN","ACRO","DOOR","PASS","ELEV","TAXI","GATE"
  482. 3522 DATA "CERE","BEAC","SHOR","CHAR","PATH","TEMP","CHAM","SANC","GARD","WALL"
  483. 3523 DATA "BAZA","STAN","TENT","SELL","MERC","BED","PLAT","POOL","WATE","CITY"
  484. 3530 DATA "SHRI","RACK","SEA","COLU","STAT","BUTT","LOVE","ROSE"
  485. 3540 DATA "NORT","EAST","SOUT","WEST","UP","DOWN"
  486. 3550 DATA3,2,0,0,0,0,0,0,0,1,0,0,0,4,1,8,0,0,0,0,0,3,0,0,0,0,0,4,0,0,0,0,0,7,0,0,0,6,9,8,0,0,0,3,0,0,0,7,7,11,10,12,0,0,9,0,0,0,0,0,0,13,0,9,0,0,0,9,0,13,0,0,0,0,0,0,0,0,0,0,0,13,0,0,0,16,17,32,0,0,0,0,0,0,0,0,15,0,0,1,0,0
  487. 3560 DATA0,0,0,10,0,0,10,20,21,0,0,0,0,0,0,19,0,0,19,0,22,0,0,0,21,23,0,0,0,0,0,0,0,22,0,0,0,22,0,0,0,0,10,28,27,26,0,0,25,27,29,0,0,0,25,28,30,26,0,0,25,0,31,27,0,0,26,30,0,0,0,0,27,31,0,29,0,0,28,0,0,30,0,0,0,15,0,0,0,0
  488. 3570 DATA0,34,0,0,0,0,36,35,0,33,0,0,0,0,0,34,0,0,37,0,34,0,0,0,39,38,36,0,0,0,0,0,0,37,0,0,40,0,37,0,0,0,0,41,39,42,0,0,0,0,0,40,0,0,0,40,0,43,0,0,51,42,0,44,0,0,0,43,46,45,0,0,44,46,48,0,0,0,44,47,49,45,0,0,0,0,50,46,0,0
  489. 3580 DATA45,49,0,0,0,0,46,50,0,48,0,0,47,0,0,49,0,0,52,0,43,0,0,0,53,0,51,64,0,0,55,54,52,0,0,0,55,0,0,53,0,0,58,56,54,57,0,0,59,0,0,55,0,0,60,58,55,0,0,0,0,59,55,57,0,0,0,0,56,58,0,0,0,61,57,0,0,0,0,63,62,60,0,0,61,0,0,0,0,0,0,0,0,61,0,0
  490. 3590 DATA0,52,0,65,0,0,0,64,0,0,66,0,0,0,0,0,67,65,68,0,69,0,0,66,13,0,67,0,0,0,67,76,71,72,0,0,0,0,0,0,71,81,69,74,0,0,0,70,73,69,0,0,0,0,0,0,72,0,0,0,0,75,0,71,0,0,0,0,0,74,0,0,0,77,79,69,0,0,0,78,79,76,0,0,0,0,80,77,0,0
  491. 3600 DATA77,80,0,76,0,0,78,0,0,79,0,0,0,0,0,0,70,0
  492. 3610 DATA"A SUITCASE","A GREEK/ENGLISH PHRASE BOOK","A WALLET","A FLASHLIGHT"
  493. 3611 DATA"A gOLD cOIN","A gOLD hELMET"
  494. 3620 DATA"yOU SEE ONE SLAVE IN PARTICULAR THAT    CATCHES YOUR EYE... iT IS A BEAUTIFUL   FEMALE, COMPLETELY NUDE. tHERE IS A PAT-HETIC FEAR ON HER FACE THAT TOUCHES YOU.iT WOULD BE A SHAME TO LEAVE HER HERE."
  495. 3630 DATA"A 500 DRACHMA BILL","AN ANCIENT SCROLL","DELICIOUS LOOKING FOOD"
  496. 3631 DATA "AN ANCIENT SPEAR","AN ANCIENT URN","A NOTE","A wineskin OF nectar",
  497. 3632 DATA "A MAGIC CONCHSHELL HORN","FIGURINES","WINE","CLOTH","BARS OF gold"
  498. 3640 DATA1,0,1,0,0,62,48,0,27,29,30,30,1,70,0,0,74,26,31,62,2,2,7,7,0,38,1,8,13,13,18,25,47,81,30,30,32,33,33,33,36,36,39,47,49,52,60,60,68,69,70,74,74,74,75,42
  499. 3650 NR=81:NI=20:NV=23:NN=98:N$="TO THE nORTH":E$="TO THE eAST":W$="TO THE wEST":S$="TO THE sOUTH":U$="GOING uP":D$="GOING dOWN":DIMI$(NI),I(NN),VB$(NV),NO$(NN),D(NR,6):L=1
  500. 3660 FORX=1TONV:READVB$(X):NEXT:FORX=1TONN:READNO$(X):NEXT:FORX=1TONR:FORY=1TO6:READD(X,Y):NEXTY,X:FORX=1TONI:READI$(X):NEXT:D=500:WA$="tHE WATER IS BRACKISH LOOKING... BUT FUNNY...IT smells OF magic!"
  501. 3670 P$="iT'S A HARD PLATFORM ABOUT THE SIZE OF A BED."
  502. 3680 FORX=1TO56:READI(X):NEXT
  503. 3710 INPUT"dO YOU NEED INSTRUCTIONS";AN$:IFLEFT$(AN$,1)<>"Y"THEN3840
  504. 3720 PRINTCHR$(147);"  [217]OU ARE ABOUT TO UNDERTAKE A PERILOUS"
  505. 3721 PRINT"JOURNEY THROUGH TIME AND LEGEND IN      SEARCH OF IMMORTALITY! gREEK LEGENDS    TELL OF A MAGICAL WINE CALLED "CHR$(34)"nECTAR OFTHE gODS"CHR$(34)"."
  506. 3730 PRINT"  [212]HIS WINE WAS NOT ONLY THE DRINK OF   THE GODS, BUT HAD THE ";
  507. 3731 PRINT"MAGICAL PROPERTY  OF CONFERING IMMORTALITY ON ANY MORTAL"
  508. 3732 PRINT"FORTUNATE ENOUGH TO PARTAKE OF IT. [201]T ISIN SEARCH OF THIS MYSTICAL";
  509. 3733 PRINT" DRINK THAT   YOU ARE ABOUT TO SEEK."
  510. 3734 PRINT"  [201]F YOU HAVE NEVER PLAYED";
  511. 3740 PRINT" [193]DVENTURE    BEFORE, THEN THERE ARE A FEW CONVENTIONSYOU SHOULD ";
  512. 3741 PRINT"KNOW ABOUT. [212]HE COMPUTER IS  YOUR EYES AND EARS AND HANDS ";
  513. 3743 PRINT"AND LEGS INTHIS UNDERTAKING. [217]OU WILL BE PRESENTED WITH A ";
  514. 3744 PRINT"SITUATION.  [217]OU WILL RESPOND WITHSIMPLE ONE OR TWO WORD SENTENCES";
  515. 3745 PRINT". [212]HE   COMPUTER ACCEPTS ";
  516. 3753 PRINT"YOUR ORDERS, AND LITER-ALLY LIVES OR DIES WITH THE CONCEQUENCES"
  517. 3755 PRINT:PRINT"PRESS <ENTER> TO CONTINUE";
  518. 3760 GET AN$:IFAN$=""THEN3760
  519. 3770 PRINTCHR$(147);"  [211]OME WORDS YOU WILL WANT TO USE ARE:"
  520. 3771 PRINT"inventory - sHOWS WHAT YOU ARE HOLDING"
  521. 3772 PRINT"look - rEDISPLAYS YOUR SURROUNDINGS"
  522. 3773 PRINT"examine - FINDS OUT MORE ABOUT"
  523. 3774 PRINTTAB(10)"SPECIFIC OBJECTS"
  524. 3780 PRINT"help - might GIVE YOU A HINT"
  525. 3781 PRINT"get OR take - aLLOWS YOU TO ACQUIRE"
  526. 3782 PRINTTAB(10)"AN OBJECT"
  527. 3791 PRINT:PRINT"  tHERE ARE ALSO ABOUT 100 OTHER WORDS  THAT WILL BE UNDERSTOOD, SO IF ONE COMB-INATION DOESN'T WORK, TRY ANOTHER!"
  528. 3800 PRINT"  oH YES... WITH ALL DUE RESPECT TO THE LADIES IN THE AUDIENCE, IT SHOULD BE    NOTED THAT THE ADVENTURE CHANGES THE    CHARACTER INTO A male WARRIOR UPON"
  529. 3810 PRINT"ARRIVAL IN ANCIENT TIMES.  wE APPOLOGIZEFOR THIS SEXIST ORIENTATION, BUT CERTAINPLOT CONSIDERATIONS MANDATED IT, AND WE HOPE YOU WILL ENJOY THE STORY IN SPITE"
  530. 3814 PRINT"OF THIS FACT.":PRINT:PRINT"  gOOD lUCK!":PRINT:PRINT"pRESS <enter> TO BEGIN";
  531. 3830 GETAN$:IFAN$=""THEN3830
  532. 3840 PRINTCHR$(147):DC=1
  533. 3850 GOTO460
  534. 3880 IFL<>17THENRETURN
  535. 3881 IFI$(3)="A WALLET"THENRETURN
  536. 3890 IFI(7)=-1THENXX=1
  537. 3900 FORDR=1TONI:I(DR)=0:NEXT:IFXX=1THENI(7)=33
  538. 3910 NO$(3)="WALL":I$(3)="A WALLET":I(3)=1:I(2)=1:D=25:RETURN
  539. 4170 PRINT"iT IS BEYOND MY POWER TO DO THAT...":GOTO460
  540. 10000 Z=0:FORX=1TOLEN(DR$):IFMID$(DR$,X,LEN(AN$))=AN$THENZ=1:ZZ=X:RETURN
  541. 10010 NEXT:RETURN
  542.