Listing of file='MENU.BAS;01' on disk='vmedia/games4-sector.ccvf'
100 PLOT 6,16,12,3,9,8 115 PLOT 3,25,12:PRINT "P I R A T E" 120 GOSUB 5020 3000 FOR I= 1TO 3000:NEXT 3100 PLOT 6,2,12 3200 PLOT 3,2,2:PRINT "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy" 3210 PLOT 3,3,8:PRINT "YOU MUST TRAVEL TO FAR OFF TREASURE ISLAND AND BRING BACK" 3220 PLOT 3,3,10:PRINT "RICH TREASURES" 3230 PLOT 3,3,14:PRINT "ON THE WAY YOU WILL HAVE TO BUILD YOURSELF A BOAT" 3260 PLOT 3,3,16:PRINT "WATCH OUT FOR THE TIDES - THEY CAN BE VERY TRICKY !" 3500 PLOT 3,2,30:PRINT "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" 3520 PLOT 3,3,22:INPUT "PRESS RETURN KEY FOR FURTHER INSTRUCTIONS";A$ 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', 'LOOK WINDOW','TAKE RUM' ETC." 3570 PRINT :PRINT :PRINT "TO MOVE, TYPE 'GO WINDOW' ETC. OR SIMPLY THE DIRECTION ( NORTH," 3600 PRINT :PRINT "SOUTH, UP, DOWN ETC.)" 3650 PRINT :PRINT :PRINT "NOTE THAT THESE DIRECTIONS MAY BE SHORTENED TO N, S, U, D ETC." 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 PRINT :PRINT :INPUT "PRESS RETURN KEY FOR FURTHER INSTRUCTIONS";A$ 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 PIRADV" 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,22,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 "vCw 1981" 5075 PRINT :PRINT " P.J.HINER 11, PENNYCROFT, HARPENDEN, HERTS., ENGLAND" 5080 PRINT :PRINT :RETURN