Listing of file='MENU.BAS;01' on disk='vmedia/colossal_adventure-sector.ccvf'
90 PLOT 3,65,0 100 PLOT 12,3,65,0,27,24,27,4 110 PRINT "LOA ADV.DSP" 120 PLOT 27,27 3000 FOR I= 1TO 3000:NEXT 3100 PLOT 6,2,12:PLOT 27,11 3200 PLOT 3,29,4:PRINT "COLOSSAL CAVE" 3300 PLOT 3,8,5:PRINT "SOMEWHERE NEARBY IS":PRINT :PRINT 3400 PRINT :PRINT "MANY HAVE FOUND FORTUNES THERE IN TREASURE AND GOLD , THOUGH" 3450 PRINT :PRINT "IT IS RUMOURED THAT SOME WHO ENTER ARE NEVER SEEN AGAIN":PRINT :PRINT 3460 PRINT :PRINT "IN THE FACE OF DANGER FROM THE NASTY INHABITANTS OF THE CAVE" 3470 PRINT :PRINT "YOU MUST BRING BACK AS MUCH TREASURE AS YOU CAN" 3480 PRINT :PRINT :PRINT 3500 PRINT "MAGIC IS SAID TO WORK IN THE CAVE AND I KNOW OF SOME STRANGE" 3510 PRINT :PRINT "OBJECTS THERE, SUCH AS A ROD WHICH SCARES A LITTLE BIRD":PRINT 3520 GOSUB 6000 3530 PLOT 12,3,0,4 3550 PRINT "I WILL BE YOUR EYES AND HANDS. I WILL OBEY SHORT INSTRUCTIONS" 3560 PRINT :PRINT "SUCH AS 'LOOK' OR 'TAKE LAMP'. TO MOVE, TYPE THE DIRECTION" 3600 PRINT :PRINT "NORTH, SOUTH, UP, DOWN ETC." 3650 PRINT :PRINT :PRINT "NOTE THAT THESE DIRECTIONS MAY BE SHORTENED TO N, S, U, D ETC." 3700 PRINT :PRINT "AND DIRECTIONS LIKE NORTHEAST MUST BE TYPED AS NE, NW, SE AND SW" 3750 PRINT :PRINT :PRINT "THE FOLLOWING INSTRUCTIONS MAY BE USEFUL :" 3800 PRINT :PRINT "INVENTORY ( OR I ) FOR A REMINDER OF YOUR POSSESSIONS" 3810 PRINT :PRINT "SCORE - TO FIND OUT HOW YOU ARE FARING" 3820 PRINT :PRINT "QUIT - WHEN YOU HAVE HAD ENOUGH" 3825 PRINT :PRINT "SAVE - TO SAVE AN ADVENTURE ON DISC" 3830 GOSUB 6000 3870 PLOT 12 3880 PRINT :PRINT :PRINT "IF YOU QUIT, YOU WILL BE ABLE TO SAVE YOUR CURRENT ADVENTURE" 3890 PRINT :PRINT "AND CONTINUE LATER. NOTE THAT ONLY ONE ADVENTURE CAN BE SAVED" 3900 PRINT :PRINT "AND ANY PREVIOUSLY SAVED ADVENTURE WILL AUTOMATICALLY BE ERASED" 3910 PRINT :PRINT :PRINT "NOW, DO YOU WANT TO START A NEW ADVENTURE OR CONTINUE ONE " 3920 PRINT :PRINT "THAT WAS PREVIOUSLY SAVED ?" 3930 PRINT :PRINT " FOR A NEW ADVENTURE - ENTER 1" 3940 PRINT :INPUT " TO CONTINUE AN OLD ONE - ENTER 2 ";A$ 3950 IF A$< > "1"AND A$< > "2"THEN 3930 3960 GOSUB 5000:PLOT 6,2 3970 IF A$= "1"THEN PLOT 27,4:PRINT "RUN ADVENT" 3980 PLOT 27,4:PRINT "RUN SAVADV" 5000 PLOT 6,16,12,3,14,8 5010 PRINT "G O O D L U C K I N Y O U R" 5020 PRINT :PRINT :PRINT :PRINT 5030 PLOT 3,20,16 5040 PRINT "A D V E N T U R E" 5050 PLOT 3,4,24 5060 PRINT "t u" 5070 PLOT 3,4,25:PRINT "v C w 1981" 5075 PRINT :PRINT " P.J.HINER 11, PENNYCROFT, HARPENDEN, HERTS., ENGLAND" 5080 PRINT :PRINT TAB( 12)"A RELEASE TO COPY THIS PROGRAM HAS BEEN GIVEN" 5085 PRINT :PRINT TAB( 12)"TO THE COMPUCOLOR USERS GROUP(U.K.)":RETURN 6000 PRINT :PRINT "PRESS RETURN KEY FOR FURTHER INSTRUCTIONS";:PLOT 3,65,0:INPUT "";A$:RETURN