Compucolor.org – Virtual Media

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