Listing of file='QUEST.BAS;01' on disk='vmedia/ncc_6_real-sector.ccvf'
10 REM ADDOPTED BY WILLIAM LEE FOR COMPUCOLOR11.AUG79 50 PLOT 12,15 80 D= 0 110 REM GIVE THEM SOMETHING TO READ WHILE I GET EH DATABASE 115 REM 120 PRINT TAB( 25)"QUEST" 130 PRINT 140 PRINT "YOU WERE WALKING THROUGH THE WOODS, AND CAME ACROSS THE ENTANCE" 160 PRINT "OF A CAVE, COVERED WITH BUSHS." 170 PRINT 180 PRINT "PEOPLE SAY THAT MANY YEARS AGO A PIRATE HID HIS TREASURE IN" 190 PRINT "THESE WOODS. BUT NO ONE HAS EVER FOUND IT. IT MAY STILL BE HERE," 200 PRINT "FOR ALL I KNOW." 400 READ M9,T1,T2 490 REM DEMENISION OF WM IS M9,IF YOU HAVE DYNAMIC ASSIGNMENT 500 DIM W(42),M(6,42) 510 REM READ MAP INTO M ARRAY 520 FOR I= 1TO M9 530 READ N 540 IF I= NTHEN 570 550 PRINT "DATABASE PROBLEM"I,N 560 END 570 FOR J= 1TO 6 580 READ M(J,I) 590 NEXT J 600 NEXT I 900 PRINT 905 PRINT "WHEN YOU ANSWER A QUESTION, I LOOK AT ONLY THE FIRST LETTER." 907 PRINT "ALTHOUGH YOU CAN TYPE THE WHOLE WORD IF YOU WANT." 920 GOSUB 7500:REM INSTRUCTIONS 1000 REM ----------------------------------------------------- 1010 N= 5 1020 MO= 0 1030 M6= 0 1040 T= T+ T1 1050 P= 0 1060 P1= 0 1070 FOR J= 1TO M9 1080 W(J)= 0 1090 NEXT J 1100 PRINT 1110 REM DESCRIBE 1120 GOSUB 8000 1400 REM ----------------------------------------------------- 1405 REM START OF MAIN LOOP 1410 REM COUNT MOVES 1420 MO= MO+ 1 1430 REM MOVE 1440 GOSUB 6000 1450 REM CHECK FOR FINDING THE TREASURE 1460 GOSUB 2000 1470 REM TRY THE PIRATE 1480 GOSUB 4000 1490 REM LOOP UNLESS FUNISHED 1500 IF T> 0THEN 1400 1510 IF N< > 5THEN 1400 1700 REM CALCULATE SCORE 1710 GOSUB 3000 1720 PRINT 1730 PRINT "CONGRATULATIONS! YOU GOT THE TREASURE OUT IN";MO;" MOVES AND YOU" 1750 PRINT "GOT "S+ 10" POINTS!" 1760 PRINT "WANTTO HUNT AGAIN? "; 1770 A$= "YN" 1775 A2= 2 1780 GOSUB 5000 1790 ON A1GOTO 1000,9999,1760 2000 REM ----------------------------------------------------- 2010 REM FOUND? 2100 IF T< > NTHEN RETURN 2110 IF T< 0THEN RETURN 2120 IF M6+ 5> MOTHEN RETURN 2200 PRINT "DO YOU WANT TO TAKE IT WITH YOU? "; 2210 A$= "YN" 2220 A2= 2 2230 GOSUB 5000 2240 ON A1GOTO 2300,2400 2250 PRINT "WELL?...." 2260 GOTO 2210 2300 T= - 1 2310 PRINT 2320 PRINT "OK, LETS GET OUT OF HERE!" 2330 RETURN 2400 PRINT 2410 PRINT "WE'LL LEAVE IT HERE AND YOU CAN EXPLORE SOME MORE." 2430 M6= MO 2440 RETURN 3000 REM ----------------------------------------------------- 3010 REM SCORE 3020 S= 0 3030 IF T= - 1THEN S= S+ 5 3040 IF P= 1THEN S= S+ 10 3050 FOR J= 2TO M9 3060 S= S+ W(J) 3070 NEXT J 3080 RETURN 4000 REM ----------------------------------------------------- 4010 REM PIRATE 4020 IF N= T2THEN RETURN 4030 IF P= 1THEN RETURN 4040 IF T1= T2THEN RETURN 4050 IF T< > - 1THEN RETURN 4060 REM HES AT THE EXIT WITH THE TREASURE. ZAP HIM.(ARRGH. HOW DID HE GET HERE,ANYWAY?) 4070 IF N= 16THEN P= 160 4080 REM COUNT MOVES SENCE HITTING TIGHT TUNNEL WITH TREASURE 4090 IF P1> 0THEN P1= P1+ 1 4100 IF N= 3THEN P1= P1+ 1 4110 REM GIVE HIM A FEW MORE MOVES, THEN ZAP HIM 4120 IF P1< 15THEN RETURN 4130 PRINT 4140 PRINT "SUDDENLY THE PIRATE LEAPS OUT OF THE GLOOM AND GRABS THE " 4150 PRINT "TREASURE FROM YOU!" 4160 PRINT "HAH!,HE SHOUTS, YOU FOUND MY TREASURE, DID YOU?! WELL I'LL HIDE" 4180 PRINT "IT BETTER THIS TIME!" 4190 PRINT "HE DISAPPEARS INTO THE DARKNESS WITH THE TREASURE." 4210 P= 1 4220 T= T2 4230 RETURN 5000 REM ----------------------------------------------------- 5010 REM INPUT 5020 REM FIRST CHARACTER OF A1 INPUT STRING IS COMPARED WITH THE LETTERS OF A$, AND IF THERE IS 5030 REM A MATCH, THE INDEX IN A$ IS RETURNED IN A1. IF NO MATCH, SIZE (A$)+1 IS RETURNED. 5060 REM GET INPUT STRING 5070 INPUT Q$ 5080 REM USE ONLY FIRST CHARACTER 5200 FOR A1= 1TO A2 5210 IF Q$= MID$ (A$,A1,1)THEN RETURN 5220 NEXT A1 5230 A1= A2+ 1 5240 RETURN 6000 REM ----------------------------------------------------- 6010 REM 6020 REM REMEMBER WHERE WE ARE, FOR BOUNCE. 6030 N9= N 6040 REM SET N8 TO ANTHING BUT YOU CANT GO THAT WAY 6050 N8= 0 6060 REM ASK WHICH WAY 6070 GOSUB 7000 6080 REM REMEMBER WHERE WE ARE, UNLESS A DEAD END 6090 IF N= 1THEN 6120 6100 NO= N 6110 AO= A1 6120 PRINT 6130 I= M(A1,N) 6200 IF I= - 2THEN I= N9 6210 IF D< > 0THEN PRINT " DEBUG";N;" TO";I 6220 IF I< 500THEN 6300 6230 REM DELAY LOOP TO WASTE SOME TIME 6240 I= I- 500 6250 FOR J= 0TO 100 6260 NEXT J 6270 GOTO 6200 6300 ON I/ 100GOTO 6340,6370 6310 REM NORMAL ROUTE--LESS THAN 100 6320 N= I 6330 GOTO 6400 6340 REM N+100. ADD ONE IF CARRYING THE TREASURE 6350 N= I- 100 6355 IF T= - 1THEN N= N+ 1 6360 GOTO 6400 6370 REM N+200. ADD 1 OF CARRYING TREASURE THE SECOND TIME 6380 N= I- 200 6390 IF T= - 1THEN N= N+ P 6400 IF N< > 1THEN 6500 6410 REM DEAD END. TURN IT SO YOU GET OUT THE OTHER WAY 6420 FOR J= 1TO 6 6430 M(J,N)= 2 6440 NEXT J 6450 M(7- AO,N)= NO 6500 REM PRINT OUT THE NODE DESCRIPTION 6505 REM 6510 IF N8< > 2THEN GOSUB 8000 6520 REM REMMBER WE'VE BEEN HERE 6530 W(N)= 1 6540 N8= N 6600 IF M(1,N)< > - 2THEN 6800 6610 REM FORCED MOVE,WITH RANDOM DESTINATIONS 6660 I= M(6,N) 6680 IF M(4,N)> 100* RND (1)THEN I= M(5,N) 6700 IF M(2,N)> 100* RND (1)THEN I= M(3,N) 6710 IF D< > 0THEN PRINT " DEBUG BOUNCE TO";I 6720 REM NOW A NEW DESTINATION. GO BACK AND REDO IT 6730 GOTO 6200 6800 RETURN 7000 REM ----------------------------------------------------- 7010 REM WHICH WAY 7100 PRINT 7110 PRINT " WHICH WAY? "; 7120 A$= "NEUDWSP" 7130 A2= 7 7140 GOSUB 5000 7150 IF A1< 8THEN 7300 7160 PRINT "WHICH WAY DO YOU WANT TO GO?" 7170 REM GIVE INSTRUCTIONS 7180 GOSUB 7500 7190 REM DESCRIBE THE LOCATION AGAIN 7200 GOSUB 8000 7210 GOTO 7100 7300 IF A1< 7THEN 7400 7310 REM CALCULATE AND PRINT SCORE 7320 GOSUB 3000 7330 PRINT "YOU HAVE"S" POINTS!" 7340 REM START AGAIN 7350 GOTO 7100 7400 RETURN 7500 REM --------------------------------------------------- 7510 REM SUBROUTINE TO GIVE INSTRUCTIONS 7520 PRINT 7530 PRINT "TYPE N,S,E,W,U,D FOR NORTH, SOUTH,EAST,WEST,UP,DOWN. P FOR SCORE" 7560 PRINT 7570 RETURN 8000 REM ---------------------------------------------------- 8010 REM DESCRIBE THE CURRENT LOCATION 8050 I= INT (N/ 5) 8060 J= N- 5* I+ 1 8070 REM THERE ARE ENOUGH STATEMENT NUMBERS HERE TO HANDLE NODESZERO THROUGH 49. YOU WILL HAVE 8080 REM TO AD MORE IF YOU ADD NODES 50 AND BEYOND. 8100 ON I+ 1GOTO 8200,8210,8220,8230,8240,8250,8260,8270,8280,8290 8200 ON JGOTO 9000,9010,9020,9030,9040 8210 ON JGOTO 9050,9060,9070,9080,9090 8220 ON JGOTO 9100,9110,9120,9130,9140 8230 ON JGOTO 9150,9160,9170,9180,9190 8240 ON JGOTO 9200,9210,9220,9230,9240 8250 ON JGOTO 9250,9260,9270,9280,9290 8260 ON JGOTO 9300,9310,9320,9330,9340 8270 ON JGOTO 9350,9360,9370,9380,9390 8280 ON JGOTO 9400,9410,9420,9430,9440 8290 ON JGOTO 9450,9460,9470,9480,9490 8400 IF T< > NTHEN 8500 8410 PRINT 8420 PRINT "THE TREASURE IS HERE!" 8500 IF T< > T2THEN 8600 8510 IF T1= T2THEN 8600 8520 IF T1< > NTHEN 8600 8530 PRINT 8540 PRINT "A NOTE ON THE WALL SAYS" 8550 PRINT " PIRATES NEVER LEAVE THEIR TREASURE" 8560 PRINT " TWICE IN THE SAME PLACE!" 8600 RETURN 9000 REM ------------------------------------------------- 9005 REM FIRST DATA STATEMENT IS NUMBER OF NODES, AND THE HIDINGPLACE FOR THE TREASURE 9008 DATA 42,23,12 9010 DATA 1,0,0,0,0,0,0 9014 PRINT "YOU'RE AT A DEAD END!" 9016 GOTO 8400 9020 DATA 2,-2,101,-2,0,0,0 9021 PRINT "YOU CAN'T GO IN THAT DIRECTION" 9022 PRINT 9023 GOTO 8400 9030 DATA 3,33,2,1,10,106,4 9031 PRINT "A TUNNEL GOES NORTH-SOUTH" 9032 PRINT "THERE IS AN OPENING TO THE WEST." 9037 GOTO 8400 9040 DATA 4,3,30,2,11,2,1 9041 PRINT "YOU'RE ON THE BRINK OF A PIT." 9047 GOTO 8400 9050 DATA 5,8,8,15,10,8,16 9051 PRINT "YOU'RE OUTSIDE THE CAVE GO SOUTH TO ENTER." 9053 GOTO 8400 9060 DATA 6,16,3,2,10,2,2 9061 PRINT "YOU'RE AT THE HOME OF THE GNOME-KING. FORTUNATELY, HE'S GONE FOR" 9062 PRINT "THE DAY" 9067 GOTO 8400 9070 DATA 7,-2,101,-2,0,0,0 9071 PRINT "THE GNOME KING IS HERE! YOU'D BETTER GET OUT!" 9073 PRINT 9077 GOTO 8400 9080 DATA 8,18,18,15,10,18,9 9081 PRINT "YOU'RE LOST IN THE WOODS." 9087 GOTO 8400 9090 DATA 9,-2,33,5,1,0,-2 9097 GOTO 8400 9100 DATA 10,-2,101,-2,0,0,0 9101 PRINT "YOU'RE NOT GOING TO GET FAR, DIGGING THROUGH ROCK." 9103 PRINT 9107 GOTO 8400 9110 DATA 11,1,13,4,2,1,2 9111 PRINT "YOU'RE AT THE BOTTOM OF A PIT. A LITTLE STREAM FLOWS OVER THE " 9112 PRINT "ROCKS HERE." 9117 GOTO 8400 9120 DATA 12,36,2,1,2,1,2 9121 PRINT "YOU'RE AT A DEAD END!" 9127 GOTO 8400 9130 DATA 13,2,37,2,1,11,14 9131 PRINT "YOU'RE AT A WIDE SPOT. THERE IS A SOOTY PATCH WHERE SOMEBODY HAS" 9132 PRINT "RESTED A TORCH AGAINST THE WALL. THERE ARE JAGGED ROCKS ABOVE " 9133 PRINT "YOU." 9137 GOTO 8400 9140 DATA 14,13,1,19,2,31,31 9141 PRINT "YOU'RE IN A CANYON. HIGH ON THE WALL ABOVE YOU IS SCRATCHED THE" 9142 PRINT "MESSAGE" 9143 PRINT " BILBO WAS HERE" 9147 GOTO 8400 9150 DATA 15,-2,101,-2,0,0,0 9151 PRINT "YOU'RE NOT A BIRD. YOU CAN'T FLY!" 9152 PRINT 9157 GOTO 8400 9160 DATA 16,5,33,2,10,1,106 9161 PRINT "YOU'RE IN A LOW CHAMBER. A TIGHT TUNNEL GOES EAST, AND YOU CAN" 9162 PRINT "WALK TO THE SOUTH OR WEST. THERE IS LIGHT TO THE NORTH." 9167 GOTO 8400 9170 DATA 17,-2,101,-2,0,0,0 9171 PRINT "IT'S A TIGHT SQUEEZE. YOU CAN'T GET PAST WITH THE TREASURE." 9173 PRINT 9177 GOTO 8400 9180 DATA 18,-2,101,8,0,0,0 9181 PRINT "I DON'T THINK YOU CAN FIND THE CAVE." 9187 GOTO 8400 9190 DATA 19,224,2,2,14,1,42 9191 PRINT "YOU'RE AT THE TOP OF A CLIMB. BELOW YOU A MESSAGE SAYS" 9193 PRINT " BILBO WAS HERE" 9197 GOTO 8400 9200 DATA 20,226,1,2,2,25,2 9201 PRINT "YOU'RE AT THE NORTH SIDE OF A CHASM, TOO WIDE TO JUMP. RINGING" 9202 PRINT "ECHOES FROM BELOW ARE THE ONLY INDICATON OF DEPTH." 9207 GOTO 8400 9210 DATA 21,1,226,2,2,38,25 9211 PRINT "YOUR'RE IN XANADU. BELOW YOU ALPH, THE SACRED RIVER RUNS THROUGH" 9213 PRINT "CAVERNS MEASURELESS TO MAN, DOWN TO A SUNLESS SEA." 9217 GOTO 8400 9220 DATA 22,-2,3,13,50,29,30 9227 GOTO 8400 9230 DATA 23,2,1,2,31,2,2 9231 PRINT "YOU'RE ON THE LEDGE ABOVE THE GUILLOTINE ROOM." 9237 GOTO 8400 9240 DATA 24,-2,101,19,0,0,0 9241 PRINT "I HEAR THE GIANT THERE!!! YOU'D BETTER GO BACK!" 9243 PRINT 9249 GOTO 8400 9250 DATA 25,21,20,2,2,1,19 9251 PRINT "YOU'RE IN THE GIANT'S CAVERN. BETTER NOT BE HERE WHEN THE GIANT" 9252 PRINT "COMES!" 9257 GOTO 8400 9260 DATA 26,-2,65,-2,50,11,14 9261 PRINT "YOU'RE IN THE QUEST RESEARCH AND DEVELOPMENT AREA." 9263 PRINT 9264 PRINT "I'M SORRY, BUT VISITORS ARE NOT ALLOWED. YOU'LL HAVE TO LEAVE." 9266 PRINT 9267 GOTO 8400 9270 DATA 27,2,40,2,2,21,20 9271 PRINT "YOU'RE IN THE CRYSTAL PALACE. THE WALL RESONATE WITH AWESOME" 9273 PRINT "MUSIC." 9280 DATA 28,-2,60,221,50,14,19 9287 GOTO 8400 9290 DATA 29,2,42,2,13,1,1 9291 PRINT "YOU'RE AT THE TOP OF A GIANT STALACTITE. YOU COULD SLIDE DOWN," 9292 PRINT "BUT YOU COULDN'T CLIMB BACK UP." 9297 GOTO 8400 9300 DATA 30,34,34,2,1,4,2 9301 PRINT "YOU'RE IN A LITTLE GROTTO. THERE IS A BOOK HERE CALLED JANE'S" 9302 PRINT "FIGHTING SHIPS, DATED 1763." 9307 GOTO 8400 9310 DATA 31,14,14,23,2,1,2 9311 PRINT "YOU'RE IN THE GUILLOTINE ROOM. A SHARP ROCK BALANCES" 9312 PRINT "PRECARIOUSLY ON THE LEDGE ABOVE YOU." 9317 GOTO 8400 9320 DATA 32,-2,101,516,0,0,0 9321 PRINT "YOU'RE IN A CHUTE, SCRAMBLING DOWN THE ROCKS! NO WAY TO STOP!" 9322 PRINT " HANG ON" 9323 PRINT 9327 GOTO 8400 9330 DATA 33,2,1,2,1,116,3 9331 PRINT "THE TIGHT TUNNEL TURNS A CORNER." 9332 GOTO 8400 9340 DATA 34,1,35,2,1,30,30 9341 PRINT "YOU'RE IN A LITTLE TWISTY MAZE" 9347 GOTO 8400 9350 DATA 35,2,1,2,37,34,36 9351 PRINT "YOU'RE IN A LITTLE TWISTY MAZE" 9357 GOTO 8400 9360 DATA 36,35,2,1,37,34,12 9361 PRINT "YOU'RE IN A LITTLE TWISTY MAZE" 9367 GOTO 8400 9370 DATA 37,2,1,35,2,13,2 9371 PRINT "YOU'RE TWISTY" 9372 PRINT " IN LITTLE MAZE" 9373 PRINT " A" 9377 GOTO 8400 9380 DATA 38,2,21,2,116,1,2 9381 PRINT "YOU'RE IN A PREHISTORIC DWELLING, ON THE WALL ARE DRAWINGS OF " 9382 PRINT "BISON DONE IN RED CLAY. THE FLOOR IS STREWN WITH BONES, THE " 9384 PRINT "REMAINS OF ANCIENT RITUALS. A SMALL TUNNEL GOES THROUGH THE " 9385 PRINT "FLOOR." 9387 GOTO 8400 9390 DATA 39,2,40,2,32,21,26 9391 PRINT "YOU'RE IN A BLACK HOLE . THE FORCE OF GRAVITY IS OVERWHELMING." 9397 GOTO 8400 9400 DATA 40,40,40,2,2,40,41 9401 PRINT "YOU'RE IN THE LABYRINTHE" 9407 GOTO 8400 9410 DATA 41,40,40,40,2,40,39 9411 PRINT "YOU'RE IN THE LABYRINTHE IT'S VERY DARK IN HERE." 9417 GOTO 8400 9420 DATA 42,28,28,28,28,28,28 9421 PRINT "YOU'RE IN THE ASHRAM INCENSE IS HEAVY IN THE AIR, AND ALL " 9422 PRINT "DIRECTIONS SEEM THE SAME." 9427 GOTO 8400 9430 REM 9440 REM END 9999 END