10 REM ... STTR1.ECB
   20 PRINT "&K": REM======= STTR1 RE-WRITTEN ======= R.E.H.   3-10-78
  100 PRINT TAB(15);"<K> *  <K>  <E>  <K>  * <K>"
  110 PRINT TAB(16);"*                       *"
  120 PRINT TAB(15);"<K>   C O M M A N D S   <K>"
  130 PRINT TAB(16);"*        F  O  R        *"
  140 PRINT TAB(15);"<K>      S T T R 2      <K>"
  150 PRINT TAB(16);"*                       *"
  160 PRINT TAB(15);"<K> *  <K>  >B<  <K>  * <K>"
  170 PRINT
  180 PRINT TAB(10);"*** ENTER -1 FOR COMMAND SUMMARY. ***"
  190 PRINT TAB(4);"THEN ENTER COMMAND NUMBER TO LOOK AT EACH COMMAND AS"
  200 PRINT " YOU WANT TO ----- ENTER '10' TO CHAIN THIS TO 'STTR2'"
  250 PRINT "&J(Exit with 10)"
  260 INPUT (2,0)"***** NEXT COMMAND TO LOOK AT (0 - 7) --=>",C
  270 PRINT
  280 IF C=10 THEN 5000
  300 IF C=0 THEN 1000
  310 IF C=1 THEN 1100
  320 IF C=2 THEN 1200
  330 IF C=3 THEN 1300
  340 IF C=4 THEN 1400
  350 IF C=5 THEN 1500
  360 IF C=6 THEN 1600
  370 IF C=7 THEN 1700
  400 PRINT TAB(10);"<K> *    STTR2 COMMAND SUMMARY   * <K>"
  410 PRINT
  420 PRINT TAB(8);"COMMAND 0 --- <E> WARP ENGINES"
  430 PRINT TAB(8);"COMMAND 1 --- SHORT RANGE SCANNERS"
  440 PRINT TAB(8);"COMMAND 2 --- LONG RANGE SENSORS"
  450 PRINT TAB(8);"COMMAND 3 --- PHAZERS"
  460 PRINT TAB(8);"COMMAND 4 --- PHOTONS"
  470 PRINT TAB(8);"COMMAND 5 --- SET SHIELD STRENGTH"
  480 PRINT TAB(8);"COMMAND 6 --- DAMMAGE REPORT ON THE <E>"
  490 PRINT TAB(8);"COMMAND 7 --- COMMPUTOR  ( 4 OPTIONS )"
  500 PRINT TAB(8);"              ( ENTER '-1' TO GET OPTION SUMMARY )"
  530 PRINT
  540 INPUT (1,0)" DO YOU WANT THE FUNDAMENTALS (ANSWER Y=YES N=NO)->",Y$
  550 PRINT
  560 IF Y$="N" THEN 250
  570 PRINT
  580 PRINT TAB(10);"<K> *    STARTREK FUNDAMENTALS   * <K>"
  590 PRINT
  600 PRINT TAB(20);"<E>   IS THE ENTERPRISE"
  610 PRINT TAB(20);">B<   IS A FEDERATION BASE"
  620 PRINT TAB(20);" *    IS THE SYMBOL FOR A STAR"
  630 PRINT TAB(20);"<K>   IS A KLINGON WARSHIP (A BAD GUY)"
  650 PRINT
  660 PRINT TAB(8);"SPACE.....THE FINAL FRONTIER."
  670 INPUT (1,0)" TYPE IN (Y=YES N=NO)  TO CONTINUE---=>",Y$
  680 IF Y$="N" THEN 250
  690 PRINT
  700 PRINT TAB(8);"YOU ARE ABOUT TO EXPERIENCE THE VOYAGES OF THE"
  710 PRINT " STARSHIP ENTERPRISE.  THE GALAXY, AS WE HUMANS KNOW IT,"
  720 PRINT " IS DIVIDED INTO AN 8X8 PATTERN OF QUADRANTS WHICH IN TURN"
  730 PRINT " EACH CONTAIN A 8X8 MATRIX OF SECTORS."
  740 PRINT TAB(8);"ATTEMPTING TO MOVE THE <E> OUT OF THESE LIMITS"
  750 PRINT " WILL NOT BE ALLOWED BY THE COMPUTOR."
  760 PRINT TAB(8);"YOUR MISSION, SHOULD YOU DECIDE TO ACCEPT IT,"
  770 PRINT " WILL BE TO RID THE GALAXY OF 'X' KLINGONS WITHIN"
  780 PRINT " 'X' STARDATES.  YOU'LL HAVE 'X' SUPPORTING BASES TO"
  790 PRINT " DOCK AT AND RE-SUPPLY WITH ENERGY, PHOTONS, ETC."
  800 INPUT (1,0)" ***** TYPE IN (Y=YES N=NO)  TO CONTINUE---=>",Y$
  805 IF Y$="N" THEN 250
  810 PRINT
  815 PRINT " DOCKING IS ACCOMPLISHED BY MOVING THE ENTERPRISE"
  820 PRINT " WITHIN ONE SECTOR SQUARE OF THE >B<.  YOU ALSO"
  830 PRINT " WILL REPAIR ALL DAMAGES."
  840 PRINT TAB(8);"YOU DESTROY <K>'S BY DEPLETING THEIR SHIELDS"
  850 PRINT " WITH PHAZERS, PHOTONS, OR ANTI-MATTER BOMBS."
  860 PRINT TAB(8);"YOU ARE ALSO DESTROYED IF YOUR SHIELDS ARE"
  870 PRINT " REDUCED BELOW ZERO.  ***ANYBODY*** THAT HAS LESS THAN"
  880 PRINT " 'ZERO' POWER ON THIER SHIELDS IS **DEAD** IN SPACE!"
  890 PRINT
  900 INPUT (1,0)" ***** TYPE IN (Y=YES N=NO)  TO CONTINUE---=>",Y$
  910 IF Y$="N" THEN 250
  920 PRINT
  930 PRINT TAB(8);"EACH MOVE (BY WARP COMMAND 0) WILL TAKE ONE"
  940 PRINT " STARDATE OF TIME.   IF YOU GET **KILLED** OR RUN"
  950 PRINT " OUT OF STARDATES, YOU WILL HAVE FAILED."
  960 PRINT TAB(20);"*** REMEMBER ***"
  970 PRINT " YOUR ENEMIES ARE KLINGONS  (NOT YOUR STARBASES)."
  980 PRINT TAB(30);"GOOD LUCK CAPTAIN"
  985 PRINT TAB(40);"STARFLEET COMMAND"
  990 PRINT TAB(40);"INTERGALACTIC FEDERATION"
  995 GOTO 250
 1000 PRINT " C O M M A N D  0  =  W A R P   E N G I N E S"
 1010 PRINT
 1020 PRINT TAB(9);"COURSE IS IN A CIRCULAR NUMERICAL      4   3   2"
 1030 PRINT TAB(9);"VECTOR ARRANGEMENT AS SHOWN. INTEGER    \  I  /"
 1040 PRINT TAB(9);"AND REAL VALUE MAY BE USED.  THEREFORE   \ I /"
 1050 PRINT TAB(9);"COURSE 1.5 IS HALF WAY BETWEEN 1 AND   5--------1"
 1060 PRINT TAB(9);"2.  A VECTOR OF 9 IS UNDEFINED, BUT      / I \"
 1070 PRINT TAB(9);"THE VALUE MAY APPROACH 9.  ONE WARP     /  I  \"
 1080 PRINT TAB(9);"FACTOR IS THE SIZE OF ONE QUADRANT.    6   7   8"
 1085 PRINT TAB(11);"THEREFORE, TO GET FROM QUADRANT 6.5    COURSE"
 1090 PRINT TAB(9);"TO 5.5, YOU WOULD USE COURSE 3; WARP FACTOR 1."
 1095 GOTO 250
 1100 PRINT " C O M M A N D  1  =  SHORT RANGE SCANNERS."
 1110 PRINT
 1120 PRINT TAB(11);"PRINTS OUT THE QUADRANT YOU ARE CURRENTLY IN"
 1130 PRINT TAB(9);"WITH OTHER INFORMATION LIKE *STARDATE* ,"
 1140 PRINT TAB(9);"YOUR QUADRANT AND SECTOR LOCATIONS."
 1150 PRINT TAB(11);"ALSO, INFORMATION ON THE ENTERPRISE'S ENERGY,"
 1160 PRINT TAB(9);"SHIELDS, PHAZERS, AND PHOTONS."
 1170 PRINT TAB(9);"<E> = ENTERPRISE    >B< = BASE"
 1180 PRINT TAB(9);"<K> = KLINGON        *  = STAR"
 1190 GOTO 250
 1200 PRINT " C O M M A N D  2  =  LONG RANGE SENSORS."
 1210 PRINT
 1220 PRINT TAB(11);"SHOWS CONDITIONS IN SPACE       *** EXAMPLE ***"
 1230 PRINT TAB(9);"FOR ONE QUADRANT ON EACH SIDE"
 1240 PRINT TAB(9);"WITH THE ENTERPRISE IN THE   (LONG R. SCAN FROM 2,4)"
 1250 PRINT TAB(9);"IN THE MIDDLE OF THE SCAN.     -------------------"
 1260 PRINT TAB(11);"THE SCAN IS CODED IN THE     : 109 :   2 : 101 :"
 1270 PRINT TAB(9);"FORM 'XXX', WHERE THE UNITS    : 305 :  13 :   5 :"
 1275 PRINT TAB(9);"DIGETS ARE STARS, THE TENS     :   8 : 102 :   2 :"
 1280 PRINT TAB(9);"DIGETS ARE BASES, THE HUNDREDS -------------------"
 1290 PRINT TAB(9);"DIGETS ARE KLINGONS.  (<E> IS IN :  13 :)"
 1295 GOTO 250
 1300 PRINT " C O M M A N D  3  =  P H A Z E R S"
 1310 PRINT
 1320 PRINT TAB(11);"ALLOWS YOU TO DESTROY ANY SECTOR OCCUPANTS"
 1330 PRINT TAB(9);"( LIKE A <K> )   BY HITTING THEM WITH"
 1340 PRINT TAB(9);"UNITS OF ENERGY DIRECTED TO THE PHAZERS."
 1350 PRINT TAB(11);"JUST INPUT THE SECTOR TO SHOOT AT."
 1360 PRINT TAB(15);"***  EXAMPLE OF RESULTS  ***"
 1370 PRINT
 1380 PRINT " 145  UNIT HIT ON A <K> AT SECTOR  5,6  (  55 LEFT)"
 1390 PRINT " 102  UNIT HIT ON <E> FROM SECTOR  5,6   ( 468 LEFT)"
 1395 GOTO 250
 1400 PRINT " C O M M A N D  4  =  P H O T O N S"
 1410 PRINT
 1420 PRINT TAB(11);"INPUT THE TORPEDO COURSE JUST LIKE YOU DO FOR"
 1430 PRINT TAB(9);"MOVING.  IF YOU HIT THE <K>'S, THEN THEY"
 1440 PRINT TAB(9);"CAN'T SHOOT BACK.   IF YOU MISS, THEY CAN SHOOT"
 1450 PRINT TAB(9);"BACK WITH THEIR PHAZERS."
 1460 PRINT
 1470 PRINT TAB(5);"*** NOTE: THE LIBRARY COMPUTOR (COMMAND 7 - OPTION 2)"
 1480 PRINT TAB(15);"WILL COMPUTE THE COURSE TRAJECTORY FOR YOU."
 1490 GOTO 250
 1500 PRINT " C O M M A N D  5  =  S H I E L D S"
 1510 PRINT
 1520 PRINT
 1530 PRINT TAB(11);"ALLOWS YOU TO TRANSFER ENERGY UNITS BACK AND"
 1540 PRINT TAB(9);"FORTH BETWEEN THE SHIPS MAIN POWER UNIT AND"
 1550 PRINT TAB(9);"THE ENTERPRISE'S SHIELDS."
 1560 PRINT
 1570 PRINT TAB(5);"*** NOTE: SHIELDS ARE DROPPED AUTOMATICALLY FOR"
 1580 PRINT TAB(15);"DOCKING.  THE <E> WILL BE PROTECTED BY THE >B<."
 1595 GOTO 250
 1600 PRINT " C O M M A N D  6  =  D A M A G E   R E P O R T"
 1610 PRINT
 1620 PRINT
 1630 PRINT TAB(11);"GIVES THE STATE OF REPAIR FOR ALL DEVICES."
 1640 PRINT TAB(9);"A STATE OF REPAIR NUMBER LESS THEN ZERO SHOWS"
 1650 PRINT TAB(9);"THAT THE DEVICE IS TEMPORARILY UNAVAILABLE."
 1660 PRINT
 1670 PRINT TAB(5);"*** NOTE: REPAIRS ARE COMPLETED QUICKLY AT ANY >B<,"
 1680 PRINT TAB(15);"BUT REQUIRE THE PASSING OF A STARDATE TO IMPROVE."
 1690 GOTO 250
 1700 PRINT " C O M M A N D  7  =  C O M P U T O R"
 1710 PRINT
 1720 PRINT " ENTER '-1' FOR A SUMMARY OF THE OPTIONS"
 1730 PRINT " ENTER '10' TO EXIT THIS PART"
 1735 PRINT
 1740 INPUT (2,0)"***** NEXT COMPUTOR OPTION TO LOOK AT (0 - 3) --=>",C
 1745 PRINT
 1750 IF C=10 THEN 250
 1760 IF C=0 THEN 2000
 1765 IF C=1 THEN 2100
 1770 IF C=2 THEN 2200
 1775 IF C=3 THEN 2300
 1780 PRINT TAB(10);"***    COMPUTOR COMMAND SUMMARY   ***"
 1782 PRINT
 1785 PRINT TAB(8);"COMMAND 0 --- GALAXY MAP"
 1787 PRINT TAB(8);"COMMAND 1 --- STATUS REPORT"
 1790 PRINT TAB(8);"COMMAND 2 --- PHOTON TORPEDO TRAJECTORY DATA"
 1792 PRINT TAB(8);"COMMAND 3 --- TRAJECTORY CALCULATOR"
 1795 GOTO 1730
 2000 PRINT " C O M M A N D  0  =  G A L A X Y   M A P"
 2010 PRINT
 2020 PRINT TAB(11);"SHOWS THE RESULTS OF ALL PREVIOUS SCANS"
 2030 PRINT TAB(9);"WITH ALL 64 QUADRANTS SHOWN."
 2040 PRINT TAB(11);"THE NUMBER FORMAT IS THE SAME AS FOR COMMAND 2"
 2050 PRINT
 2060 PRINT
 2070 PRINT TAB(5);"*** NOTE: A NUMBER OF  '0'  MEANS THAT THE"
 2080 PRINT TAB(15);"ENTERPRISE HAS'NT SCANNED THAT QUADRANT YET."
 2090 PRINT
 2095 GOTO 1730
 2100 PRINT " C O M M A N D  1  =  S T A T U S   R E P O R T"
 2110 PRINT
 2120 PRINT TAB(11);"TELLS YOU HOW MANY STARDATES, BASES, AND"
 2130 PRINT TAB(11);"KLINGONS ARE LEFT."
 2140 PRINT
 2190 GOTO 1730
 2200 PRINT " C O M M A N D  2  =  PHOTON TORPEDO TRAJECTORY DATA"
 2210 PRINT
 2220 PRINT TAB(11);"GIVES COURSE TRAJECTORY AND DISTANCE BETWEEN"
 2230 PRINT TAB(9);"THE ENTERPRISE AND ALL <K> IN YOUR QUADRANT."
 2240 PRINT
 2280 PRINT
 2290 GOTO 1730
 2300 PRINT " C O M M A N D  3  =  TRAJECTORY CALCULATOR"
 2310 PRINT
 2320 PRINT TAB(11);"GIVES COURSE TRAJECTORY AND DISTANCE BETWEEN"
 2330 PRINT TAB(9);"ANY TWO POINTS"
 2340 PRINT
 2350 PRINT TAB(5);"*** EXAMPLE: INPUT (1,1,1,2) WOULD READ FROM"
 2360 PRINT TAB(15);"SECTOR (1,1) TO SECTOR (1,2).  THE COURSE WILL"
 2370 PRINT TAB(15);"BE = 1  AND THE DISTANCE WILL BE = 1.6"
 2380 PRINT
 2390 GOTO 1730
 5000 REM... CHAIN* STTR2
 5010 END