10 REM...STHELP...FROM MECC : CCLAKE2  1-12-78
   20 DIM C$(26)
   30 LET C$="ALNASHLOPHTODECODAONRUSARE": REM...2 letter cmds
   40 PRINT "&K&J&J": REM...IF USR$="CCLAKE2" THEN 00100
   50 PRINT "WHEN YOU SEE THE QUESTION 'COMMAND ?' TYPE IN THE"
   60 PRINT "COMMAND YOU WISH INFORMATION ON. I.E. 'NAV'"
   70 PRINT "IF YOU NEED FULL INSTRUCTIONS, ENTER 'ALL', WHEN YOU HAVE ALL"
   80 PRINT "THE INFORMATION YOU DESIRE, ENTER THE COMMAND 'RUN'."
   90 PRINT "THIS COMMAND WILL CHAIN YOU TO 'STRTREK'."
   95 PRINT
  100 PRINT "What COMMAND do you want information on? ---=>";
  110 INPUT A$
  120 IF LEN(A$)>=2 THEN  LET A$=A$(1,2)
  125 PRINT
  130 FOR I=1 TO 13
  140   IF A$<>C$(I*2-1,I*2) THEN 170
  150   ON I GOTO 200,380,540,650,760,840,940,1080,1010,1310,1400,1410,1530
  160   EXIT 100
  170 NEXT I
  180 PRINT "THE COMMANDS ARE : AL,NA,SH,LO,PH,DA,CO,TO,DE,ON,RU,SA"
  190 GOTO 70
  200 PRINT "1.  WHEN YOU SEE 'COMMAND ?' PRINTED, ENTER ONE OF THE LEGAL"
  210 PRINT "COMMANDS; (NAV,SHO,LON,PHA,TOR,DEF,COM,DAM,ON/OF,SAV)"
  220 PRINT "2.  IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET "
  230 PRINT "    A SHORT LIST OF THE LEGAL COMMANDS PRINTED OUT."
  240 PRINT "3.  IF YOU ARE IN 'BRIEF' MODE, ANY ILLEGAL COMMAND SENDS"
  250 PRINT "    THE PROGRAM BACK TO 'CMD' WITHOUT THE LIST."
  260 PRINT
  270 PRINT "INSTRUCTIONS FOR ****STARTREK****"
  280 PRINT "THE GALAXY IS DIVIDED INTO AN 8X8 QUADRANT GRID."
  290 PRINT "AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8X8 SECTOR GRID."
  300 PRINT "YOU WILL BE DUMPED SOMEWHERE IN THE GALAXY TO BEGIN YOUR"
  310 PRINT "BRIEF AND HOPEFULLY SUCCESSFUL MISSION AGAINST EITHER"
  320 PRINT "THE KLINGONS OR THE ROMULANS, BOTH ARE WORTHY"
  330 PRINT "OPPONENTS THREATENING THE UNITED FEDERATION OF PLANETS."
  340 PRINT
  350 IF A$="AL" THEN 370
  360 GOTO 100
  370 PRINT "YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU:"
  380 PRINT "'NAV' = WARP ENGINE CONTROL"
  390 PRINT " THE COURSE IS IN A CIRCULAR NUMERICAL VECTOR ARRANGEMENT"
  400 PRINT " INTEGER AND REAL VALUES MAY BE     4  3  2"
  410 PRINT " USED (Thus 1.5 is halfway between"
  420 PRINT "1 and 2)                            5 --- 1 "
  430 PRINT
  440 PRINT "VALUES MAY APPROACH 9.0, WHICH      6  7  8"
  450 PRINT "ITSELF IS EQUIVALENT TO 1.0"
  460 PRINT "                                      COURSE"
  470 PRINT "ONE WARP FACTOR IS THE SIZE OF"
  480 PRINT "ONE QUADRANT.  THEREFORE, TO GET"
  490 PRINT "FROM QUADRANT 6,5 TO 5,5 , YOU WOULD"
  500 PRINT "USE COURSE 3, WARP FACTOR 1."
  510 PRINT
  520 IF A$="AL" THEN 540
  530 GOTO 100
  540 PRINT "'SHO'  =SHORT RANGE SENSOR SCAN."
  550 PRINT "  SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT."
  560 PRINT "  SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS:"
  570 PRINT "     <*> = YOUR STARSHIP'S POSITION."
  580 PRINT "     +++ = KLINGON BATTLE CRUISER"
  590 PRINT "     >I< = FEDERATION STARBASE"
  600 PRINT "      *  + A STAR"
  610 PRINT "A CONDENSED 'STATUS REPORT WILL ALSO BE PRESENTED."
  620 PRINT
  630 IF A$="AL" THEN 650
  640 GOTO 100
  650 PRINT "LON COMMAND=LONG RANGE SENSOR SCAN"
  660 PRINT "  SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE."
  670 PRINT "  OF THE ENTERPRISE(WHICH IS IN THE MIDDLE OF THE SCAN.)"
  680 PRINT "  THE SCAN IS CODED IN THE FORM OF ###, WHERE THE UNITS"
  690 PRINT " DIGIT IS THE NUMBER OF STARS, TENS DIGIT IS THE NUMBER OF"
  700 PRINT "  OF STARBASES, AND THE HUNDREDS DIGIT IS THE NUMBER OF"
  710 PRINT "  KLINGONS."
  720 PRINT "    EXAMPLE-- 207= 2 KLINGONS, NO STARBASES, 7 STARS."
  730 PRINT
  740 IF A$="AL" THEN 760
  750 GOTO 100
  760 PRINT "PHA   COMMAND = PHASOER CONTROL"
  770 PRINT "  ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY"
  780 PRINT "  ZAPPING THEM WITH SUITABLY LARGE NUNITS OF ENERGY TO"
  790 PRINT "  DEPLETE THEIR SHIELD POWER.  (REMEMBER, KLINGONS HAVE"
  800 PRINT "  PHASERS TOO."
  810 PRINT
  820 IF A$="AL" THEN 840
  830 GOTO 100
  840 PRINT "TOR  COMMAND=PHOTON TORPEDO CONTROL"
  850 PRINT "  TORPEDO COURSE IS THE SAME AS USED FOR  IN WARP ENGINE"
  860 PRINT "  CONTROL.  IF YOU HIT THE KLINGON VESSEL, HE IS DESTROYED AND"
  870 PRINT "  CANNOT FIRE BACK AT YOU.  IF YOU MISS, YOU ARE SUBJECT"
  880 PRINT "  HIS PHASER FIRE."
  890 PRINT "         NOTE: THE LIBRARY-COMPUTER(COM) HAS AN OPTION TO"
  900 PRINT "            COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)"
  910 PRINT
  920 IF A$="AL" THEN 940
  930 GOTO 100
  940 PRINT "DEF   COMMAND=SHIELD CONTROL "
  950 PRINT "   DEFINES NUMBER OF ENRGY UNITS TO BE ASSIGNED TO SHEILDS."
  960 PRINT "   ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY.  NOTE THAT THE"
  970 PRINT "   TOTAL ENERGY INCLUDES SHIELD ENERGY."
  980 PRINT
  990 IF A$="AL" THEN 1010
 1000 GOTO 100
 1010 PRINT " DAM   COMMAND= DAMAGE CONTROL REPORT"
 1020 PRINT "   GIVES STATE OF REPAIR OF ALL DEVICES, WHERE A NEGATIVE"
 1030 PRINT "   'STATE OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY"
 1040 PRINT "   DAMAGED."
 1050 PRINT
 1060 IF A$="AL" THEN 1080
 1070 GOTO 100
 1080 PRINT " COM   COMMAND=LIBRARY-COMPUTER"
 1090 PRINT "   THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:"
 1100 PRINT "      0 - CUMULATIVE GALACTIC RECORD."
 1110 PRINT "            WHICH SHOWS COMPUTER MEMORY OF ALL PREVIOUS"
 1120 PRINT "            LONG RANGE SENSOR SCANS."
 1130 PRINT "      1 - STATUS REPORT."
 1140 PRINT "            WHICH SHOWS THE NUMBER OF KLINGONS, STARDATES,"
 1150 PRINT "            AND STARBASES REMAINING IN THE GAME."
 1160 PRINT "      2 - PHOTON TORPEDO DATA"
 1170 PRINT "            WHICH GIVES DIRECTIONS AND DISTANCES FROM THE "
 1180 PRINT "            ENTERPRISE TO ALL KLINGONS IN YOUR QUADRANT."
 1190 PRINT "      3 - STARBASE NAV DATA"
 1200 PRINT "            WHICH GIVES DIRECTION AND DISTANCE TO ANY STARBASE"
 1210 PRINT "            WITHIN YOUR QUADRANT."
 1220 PRINT "      4 - DIRECTION/DISTANCE CALCULATOR"
 1230 PRINT "            WHICH ALLOW YOU TO ENTER CO-ORDINATES FOR "
 1240 PRINT "            DIRECTION/DISTANCE CALCULATIONS."
 1250 PRINT "      5 - GALACTIC 'REGION NAME' MAP"
 1260 PRINT "            WHICH PRINTS THE NAMES OF THE 16 MAJOR GALACTIC"
 1270 PRINT "            REGIONS REFERED TO IN THE GAME."
 1280 PRINT
 1290 IF A$="AL" THEN 1310
 1300 GOTO 100
 1310 PRINT " ON/OF    COMMAND = BRIEF MODE ON OR OFF"
 1320 PRINT "        ENTERING THIS COMMAND TOGGLES BRIEF MODE"
 1330 PRINT "        IN BRIEF MODE THE WORD 'COMMAND' IS ABBREVIATED"
 1340 PRINT "        TO 'CMD'.  AND  THE SHORT RANGE SENSOR SCAN IS"
 1350 PRINT "        NOT AUTOMATICALLY PRINTED OUT.  ALSO YOU DO NOT"
 1360 PRINT "         GET THE LIST OF COMMANDS IF YOU ENTER THE WRONG"
 1370 PRINT "        COMMAND."
 1380 IF A$="AL" THEN 1410
 1390 GOTO 100
 1400 PRINT "...CHAIN* 'STRTREK,UN=CCLAKE2'": GOTO 1540
 1410 PRINT "'SAV' = SAVING GAME FOR FUTURE PLAYING"
 1420 PRINT "      IF YOU SHOULD RUN OUT OF TIME AND WISH TO CONTINUE"
 1430 PRINT "     THE GAME AT A LATER DATE, YOU MAY TYPE IN THE SAV COMMAND."
 1440 PRINT "     THIS COMMAND WILL SAVE ALL PERTINENT DATA FROM YOUR"
 1450 PRINT "     GAME FOR USE LATER.   TO RECALL THE GAME, USE"
 1460 PRINT "     THE 'RE' COMMAND IN STHELP.  THIS WILL ENABLE YOU"
 1470 PRINT "     TO CONTINUE THE GAME AT THE POINT YOU LEFT OFF.  WHEN"
 1480 PRINT "     YOU TYPE IN THE 'SAV' WHILE IN THE PROGRAM, THE SYSSTEM"
 1490 PRINT "     WILL REPLY WITH ASKING YOU WHAT NAME YOU WANT THE"
 1500 PRINT "     DATA STORED UNDER, TYPE IN ANY 7-LETTER NAME OR GROUP OF"
 1510 PRINT "     LETTERS.    "
 1520 GOTO 100
 1530 PRINT "...CHAIN* 'PREVENT,UN=CCLAKE2'"
 1540 PRINT ,"-=< End of TREK RULES >=-"
 1550 END