'(22AQMTTWMMMPAANNNA@@ ==:QUEST.BAS MODIFIED FOR ATARI BY JIM STEINBRECHER 07-82FROM BYTE JULY 1979$$PERMISSION TO USE, NOT TO SELL77WAS WRITTEN IN OPENING REMARKS OF ACTUAL LISTING.::POSSIBLE PROBLEMS ARE USE OF RANDOM NUMBER GENERATOR44STRING MANIPULATION, USE OF STATEMENTS INSTEAD++OF STATEMENT NUMBERS WITH IF...GOTO'SVARIABLES USED: N NODE (CAVE) NUMBER MO MOVE COUNTER 66T CURRENT LOCATION OF TREASURE (-1 FOR CARRYING) 77T1,T2 FIRST & SECOND HIDING PLACES (NODE NUMBERS) 22M6 SAVES THE MOVE NUMBER WHEN HE SAID NO, HE,,DIDN'T WANT TO TAKE TREASURE WITH HIM.$$ >:A%, QUEST (  P H O T U S2 P';@,;@,'6- ++ #YOU WERE WALKING THROUGH THE WOODS,((  AND YOU CAME ACROSS THE ENTRANCE&& OF A CAVE, COVERED WITH BRUSH. ((  PEOPLE SAY THAT MANY YEARS AGO A((  PIRATE HID HIS TREASURE IN THESE,, $WOODS, BUT NO ONE HAS EVER FOUND IT... &IT MAY STILL BE THERE, FOR ALL I KNOW.  ";;DIMENSION OF W,M IS M9, IF YOU HAVE DYNAMIC ASSIGNMNT##9@B,9@<@B,READ MAP INTO M ARRAY-@""Ap& DATABASE PROBLEM0&:-@@D"68<,-N X  -- %WHEN YOU ANSWER A QUESTION, I LOOK AT++ #ONLY THE FIRST LETTER, ALTHOUGH YOU,, $CAN TYPE THE WHOLE WORD IF YOU WANT. Au;;-----------------------------------------------------6-@6-6- 6-6-$6-.-@868,-B L VDESCRIBE` Ax<<------------------------------------------------------}MAIN LOOP STARTS HERECOUNT MOVES6-%@ MOVE A`$$CHECK FOR FINDING THE TREASURE A TRY THE PIRATE A@LOOP UNLESS FINISHED!A@ACALCULATE SCORE A0 -- %CONGRATULATIONS! YOU GOT THE TREASURE OUT IN --  MOVES. YOU GOT %@ POINTS! WANT TO HUNT AGAIN?  6.YN6-@ APAAA`<<------------------------------------------------------ FOUND?4A$@> A$@H%@!A$@## WANT TO TAKE IT WITH YOU?  6.YN6-@ APA#A$  WELL?.... A"6-6@   !! OK, LETS GET OUT OF HERE! $`  j )) !LEAVE IT HERE AND YOU CAN EXPLOREt   SOME MORE.~ 6- $ ==------------------------------------------------------- SCORE 6- "6@A02 A0@ 6-%@ "@A0B A0P 6-%@ -@ 6-%8,   $==------------------------------------------------------- PIRATE"AB0"@AB0"AB06@AB0--HES AT THE EXIT WITH TREASURE. ZAP HIM.++(ARRGH. HOW DID HE GET HERE, ANYWAY?)"@A@r A@6-A`::COUNT MOVES SINCE HITTING TIGHT TUNNEL WITH TREASURE!A@ AA6-%@"@AA AA6-%@--GIVE HIM A FEW MORE MOVES, THEN ZAP HIM @AB0" ,,, $SUDDENLY THE PIRATE LEAPS OUT OF THE6%% GLOOM AND GRABS THE TREASURE!@((  'HAH!', HE SHOUTS, 'YOU FOUND MYJ++ #TREASURE, DID YOU?! WELL, I'LL HIDET IT BETTER THIS TIME!'^++ #AND HE DISAPPEARS INTO THE DARKNESSh WITH THE TREASURE.r6-@| 6-$;;----------------------------------------------------- INPUT44FIRST CHAR OF A1 INPUT STRING IS COMPARED WITH22THE LETTERS OF A$, AND IF A MATCH, THE INDEX99IN A$ IS RETURNED IN A1. IF NO MATCH, SIZE(A$)+1 ISRETURNED.GET INPUT STRING46.?USE ONLY FIRST CHARACTER6.7@,P-@Z47<,AR@d n6-%@x$p<<------------------------------------------------------z MOVE((REMEMBER WHERE WE ARE, FOR BOUNCE. 6-11SET N8 TO ANYTHING BUT YOU CANT GO THAT WAY6-ASK WHICH WAY Ap..REMEMBER WHERE WE ARE, UNLESS A DEAD END"@Aa  6- 6- 6-8<,8"6@Ab9 Ab: 6-BAbC Ab D  DEBUG  TO L AAcVDELAY LOOP TO WASTE TIME`6-&Aj-At ~ AbAAcAAc@!AAcp!!NORMAL ROUTE--LESS THAN 100 6- Ad--N+100. ADD ONE IF CARRYING THE TREASURE6-&A"6@AcW Ac`6-%@ Ad22N+200. ADD1 IF CARRYING TREASURE SECOND TIME6-&A"6@Ac Ad 6-%@Ae 44DEAD END. TURN IT SO YOU GET OUT THE OTHER WAY-@@68<,-@( 268@&<,-d$$PRINT OUT THE NODE DESCROPTIONn@Aeo Ae p AxREMEMBER WEVE BEEN HERE68,-@ 6-##8@<,6@Ah++FORCED MOVE, WITH RANDOM DESTINATIONS++THIS VERSION, J=-1 FOLLOWED BY RND(J)))GETS A NUMBER BETWEEN ZERO AND ONE.))NEXT 5 LINES MAY HAVE TO BE CHANGED6-8@<,6-6@--8@<,!A$H:@,Af Af6-8@<,"6-6@,--8@<,!A$H:@,Ag- Ag.6-8@<,6Ag7 Ag 8  DEBUG BOUNCE TO @44NOW HAVE A NEW DESTINATION. GO BACK & REDO IT.J Ab$X;;-----------------------------------------------------bWHICH WAY?   WHICH WAY6.NEUDWSP6-@ AP @As$$ WHICH WAY DO YOU WANT TO GO?GIVE INSTRUCTIONS  Au!!DESCRIBE THE LOCATION AGAIN  A* Aq @AtCALCULATE AND PRINT SCORE A0  YOU HAVE  POINTS!START AGAIN Aq$L>>--------------------------------------------------------V%%SUBROUTINT TO GIVE INSTRUCTIONS`$ $ Type N,S,E,W,U, or D for:j!!  North, South, East, Westt&&  Up OR Down. Type P for Points $@<<------------------------------------------------------J##DESCRIBE THE CURRENT LOCATIONr6-P:'@,|6-&@$%@88THERE ARE ENOUGH STATEMENT NUMBERS TO HANDLE NODES88ZERO THRU 49. YOU WILL HAVE TO ADD MORE IF YOU ADDNODES 50 AND BEYOND.__%@AAA A0A@APA`ApAA //AAA A0A@ //APA`ApAA //AAA A0A@& //APA`ApAA0 //AAA A0A@: //APA`ApAAD //AAA A0A@N //APA`ApAAX //AAA A0A@b //APA`ApAA A    THE TREASURE IS HERE!4!A>!"AH!AR! \! A NOTE ON THE WALL SAYSf!,, $ 'PIRATES NEVER LEAVE THEIR TREASUREx!!!  TWICE IN THE SAME PLACE!!$(#;;-----------------------------------------------------)#88FIRST DATA STATEMENT IS NUMBER OF NODES, AND THE 2*#%%HIDING PLACES FOR THE TREASURE.+#42,23,122#1,0,0,0,0,0,03# YOU'RE AT A DEAD END!4# A<#2,-2,101,-2,0,0,0=#'' YOU CAN'T GO IN THAT DIRECTION!># ?# AF#3,33,2,1,10,106,4G#"" A TUNNEL GOES NORTH-SOUTH.H#((  THERE IS AN OPENING TO THE WEST.M# AP#4,3,30,2,11,2,1Q#%% YOU'RE ON THE BRINK OF A PIT.W# AZ#5,8,8,15,10,8,16[# YOU'RE OUTSIDE THE CAVE.\# GO SOUTH TO ENTER.]# Ad#6,16,3,2,10,2,2e#-- %YOU'RE AT THE HOME OF THE GNOME-KING.f#++ #FORTUNATELY, HE'S GONE FOR THE DAY.k# An#7,-2,101,-2,0,0,0o# THE GNOME KING IS HERE!p# YOU'D BETTER GET OUT!q# u# Ax#8,18,18,15,10,18,9y#!! YOU'RE LOST IN THE WOODS.z# A#9,-2,33,5,1,0,-2# A#10,-2,101,-2,0,0,0#,, $YOU'RE NOT GOING TO GET FAR, DIGGING#  THROUGH ROCK!# # A#11,1,13,4,2,1,2#&& YOU'RE AT THE BOTTON OF A PIT.#++ #A STREAM FLOWS OVER THE ROCKS HERE.# A#12,36,2,1,2,1,2#$$ YOU'RE AT A DEAD END. SORRY!# A#13,2,37,2,1,11,14#)) !YOU'RE AT A WIDE SPOT. THERE IS A#-- %SOOTY PATCH WHERE SOMEBODY HAS RESTED#++ #A TORCH AGAINST THE WALL. THERE ARE# JAGGED ROCKS ABOVE YOU.# A#14,13,1,19,2,31,31#,, $YOU'RE IN A CANYON. HIGH ON THE WALL#** "ABOVE YOU IS SCRATCHED THE MESSAGE#  'BILBO WAS HERE'# A#15,-2,101,-2,0,0,0#)) !YOU'RE NOT A BIRD. YOU CAN'T FLY!# # A#16,5,33,2,10,1,106#++ #YOU'RE IN A CHAMBER. A TIGHT TUNNEL#** "GOES EAST, AND YOU CAN WALK TO THE#%% SOUTH OR WEST. THERE IS LIGHT#  TO THE NORTH.# A#17,-2,101,-2,0,0,0#((  IT'S A TIGHT SQUEEZE. YOU CAN'T ### GET PAST WITH THE TREASURE.# # A#18,-2,101,8,0,0,0#,, $I DON'T THINK YOU CAN FIND THE CAVE.# A#19,224,2,2,14,1,42#%% YOU'RE AT THE TOP OF A CLIMB.# BELOW YOU A MESSAGE SAYS#  'BILBO WAS HERE'# A#20,226,1,2,2,25,2#++ #YOU'RE AT THE NORTH SIDE OF A CHASM#-- %TOO WIDE TO JUMP. RINGING ECHOES FROM#++ #BELOW ARE ONLY INDICATION OF DEPTH.# A#21,1,226,2,2,38,25### YOU'RE IN XANADU. BELOW YOU### ALPH, THE SACRED RIVER RUNS#++ #THROUGH CAVERNS MEASURELESS TO MAN,# DOWN TO A SUNLESS SEA.$ A$22,-2,33,13,50,29,30 $ A$23,2,1,2,31,2,2$>> 6YOU'RE ON THE LEDGE ABOVE THE GUILLOTINE ROOM.$ A$24,-2,101,19,0,0,0$!! I HEAR THE GIANT THERE!!!$ YOU'D BETTER GO BACK!$ $ A"$25,21,20,2,2,1,19#$,, $YOU'RE IN THE GIANT'S CAVERN. BETTER$$** "NOT BE HERE WHEN THE GIANT COMES!!)$ A,$26,-2,65,-2,50,11,14-$((  YOU'RE IN THE QUEST RESEARCH AND.$ DEVELOPEMENT AREA./$ 0$'' I'M SORRY, BUT VISITORS ARE NOT1$&& ALLOWED. YOU'LL HAVE TO LEAVE.2$ 3$ A6$27,2,40,2,2,21,207$)) !YOU'RE IN THE CRYSTAL PALACE. THE8$ WALLS RESONATE WITH9$ AWESOME MUSIC.@$28,-2,60,221,50,14,19G$ AJ$29,2,42,2,13,1,1K$$$ YOU'RE AT THE TOP OF A GIANTL$-- %STALACTITE. YOU COULD SLIDE DOWN, BUTM$## YOU COULDN'T CLIMB BACK UP.Q$ AT$30,34,34,2,1,4,2U$-- %YOU'RE IN A LITTLE GROTTO. THERE IS AV$++ #BOOK HERE, JANE'S FIGHTING SHIPS,W$  DATED 1763.[$ A^$31,14,14,23,2,1,2_$((  YOU'RE IN THE GUILLOTINE ROOM. A`$((  SHARP ROCK BALANCES PRECARIOUSLYa$ ON THE LEDGE ABOVE YOU.e$ Ah$32,-2,101,516,0,0,0i$** "YOU'RE IN A CHUTE, SCRAMBLING DOWNj$++ #THE ROCKS! NO WAY TO STOP! HANG ON!k$ o$ Ar$33,2,1,2,1,116,3s$((  THE TIGHT TUNNEL TURNS A CORNER.t$ A|$34,1,35,2,1,30,30}$'' YOU'RE IN A LITTLE TWISTY MAZE.$ A$35,2,1,2,37,34,36$)) !YOU'RE IN A LITTLE TWISTING MAZE.$ A$36,35,2,1,37,34,12$)) !YOU'RE IN A TWISTING LITTLE MAZE.$ A$37,2,1,35,2,13,2$'' YOU'RE IN A TWISTY LITTLE MAZE.$ A$38,2,21,2,116,1,2$,, $YOU'RE IN A PREHISTORIC DWELLING. ON$** "THE WALL ARE DRAWINGS OF BISON, IN$** "RED CLAY. THE FLOOR IS STREWN WITH$.. &BONES, THE REMAINS OF ANCIENT RITUALS.$.. &A SMALL TUNNEL GOES THROUGH THE FLOOR.$ A$39,2,40,2,32,21,26$## YOU'RE IN A BLACK HOLE. THE$)) !FORCE OF GRAVITY IS OVERWHELMING.$ A$40,40,40,2,2,40,41$!! YOU'RE IN THE LABYRINTHE.$ A$41,40,40,40,2,40,39$!! YOU'RE IN THE LABYRINTHE.$ IT'S VERY DARK IN HERE.$ A$42,28,28,28,28,28,28$((  YOU'RE IN THE ASHRAM. INCENSE IS$,, $HEAVY IN THE AIR, AND ALL DERECTIONS$ SEEM THE SAME.$ A$77NO NODES SET UP FOR THESE VALUES. IF YOU GET HERE$--YOU HAVE A MISTAKE IN A DATA STATEMENT.$$$%%%&%0%:%'%D:MENU D:QUEST.BAS