1 DIM RES$(1):SETCOLOR 2,0,2:SETCOLOR 4,12,2:OPEN #1,4,0,"K:"
100 ? "↰":? ,"ENTERPRISE TUTORIAL":? :? :?
101 ? " KEY SUBJECT"
102 ? " --- ----------------"
103 ? " A BACKGROUND"
104 ? " B STARSHIP SYSTEMS"
105 ? " C COMMANDS"
106 ? " D PLAYING TIPS"
107 ? " E TO MASTER MENU"
108 ? :? :? :? " ENTER SELECTION KEY";:GET #1,R
110 IF R=ASC("C") THEN GOSUB 500
111 IF R=ASC("D") THEN GOSUB 3000
112 IF R=ASC("A") THEN GOSUB 4000
113 IF R=ASC("B") THEN GOSUB 5000
114 IF R=ASC("E") THEN RUN "D:MENU"
120 GOTO 100
500 ? "↰":? " COMMAND SUMMARY* ":? :?
501 ? " KEY COMMAND KEY COMMAND"
502 ? " --- --------- --- ---------"
503 ? " A SRS J HELP"
504 ? " B LRS K CHART"
506 ? " C WARP L STATUS"
507 ? " D MOVE M IMPULSE"
508 ? " E SHIELDS N REST"
509 ? " F PHASERS O DOCK"
510 ? " G PHOTON P DESTRUCT"
511 ? " H ABANDON SHIP Q COMPUTER"
512 ? " I DAMAGE R DIVERT"
513 ? :? " X RETURN TO MAIN MENU"
514 ? :? " ------------------------------"
515 ? " *ALL COMMANDS MAY BE TRUNCATED "
516 ? " TO THE FIRST THREE LETTERS."
521 ? :? " ENTER SELECTION KEY":GET #1,R
530 IF R=ASC("A") THEN GOTO 1000
531 IF R=ASC("B") THEN GOTO 1050
532 IF R=ASC("C") THEN GOTO 1100
533 IF R=ASC("D") THEN GOTO 1150
534 IF R=ASC("E") THEN GOTO 1200
535 IF R=ASC("F") THEN GOTO 1250
536 IF R=ASC("G") THEN GOTO 1300
537 IF R=ASC("H") THEN GOTO 1450
538 IF R=ASC("I") THEN GOTO 1400
539 IF R=ASC("J") THEN GOTO 1350
540 IF R=ASC("K") THEN GOTO 1500
541 IF R=ASC("L") THEN GOTO 1550
542 IF R=ASC("M") THEN GOTO 1600
543 IF R=ASC("N") THEN GOTO 1650
544 IF R=ASC("O") THEN GOTO 1700
545 IF R=ASC("P") THEN GOTO 1750
546 IF R=ASC("Q") THEN GOTO 1800
547 IF R=ASC("X") THEN RETURN
548 IF R=ASC("R") THEN GOTO 1900
1000 ? "↰":? "SRS (SHORT RANGE SCAN)":?
1010 ? "THE SRS OR SHORT RANGE SCAN COMMAND ":? "IS USED TO VIEW THE SPACE WITHIN THE"
1011 ? "QUADRANT YOUR STARSHIP IS CURRENTLY ":? "IN. EACH QUADRANT CONTAINS 100 "
1012 ? "SECTORS. SECTORS ARE REFERENCED BY ":? "THEIR X AND Y COORDINATES. ":?
1013 ? "THE SYMBOLS AND THEIR MEANINGS FOR ":? "OBJECTS WHICH MAY APPEAR WITHIN EACH":? "QUADRANT ARE:":?
1014 ? " (E) = THE ENTERPRISE":? " (K) = KLINGON"
1015 ? " (C) = KLINGON COMMANDER":? " (*) = STAR":? " (B) = A FEDERATION STAR BASE"
1016 ? " (-) = EMPTY SPACE":?
1018 ? "SHIP STATUS IS ALSO DISPLAYED."
1040 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1041 IF R=ASC("X") THEN GOTO 500
1050 ? "↰":? "LRS (LONG RANGE SCAN)":?
1051 ? "THE LRS OR LONG RANGE SCAN COMMAND ":? "PROVIDES INFORMATION ON ALL ADJACENT"
1052 ? "QUADRANTS. DATA ON THE NUMBER OF ":? "ENEMY, BASES, AND STARS IS SHOWN AS":? "FOLLOWS:":?
1056 ? " 407 009 200 ":?
1057 ? " 513 005 000 ":?
1058 ? " 004 102 008 ":?
1059 ? "FOR EXAMPLE THE QUADRANT NUMBER 513":? "ABOVE INDICATES 5 KLINGONS, 1 BASE"
1060 ? "AND 3 STARS ARE IN THE QUADRANT IM-":? "MEDIATELY TO YOUR LEFT (AT 9 O'CLOCK)"
1061 GET #1,R:? "↰"
1062 ? :? "DOTS ON A LONG RANGE SCAN SHOW THAT":? "YOUR STARSHIP IS NEAR THE EDGE OF THE":? "GALAXY..":? :?
1063 ? " 302 104 ... ":?
1064 ? " 004 000 ... ":?
1065 ? " *** 005 ... ":? :?
1066 ? "LONG RANGE SENSORS CAN NOT PENETRATE":? "THE GALATIC BARRIER..":? :?
1069 ? "THE SYMBOL '***' MEANS A SUPER NOVA ":? "HAS OCCURED IN THAT QUADRANT":?
1070 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1072 IF R=ASC("X") THEN GOTO 500
1100 ? "↰":? "WARP":?
1110 ? "THE WARP COMMAND ALLOWS YOU TO CHANGE":? "WARP SPEED. YOUR SHIP CAN OPERATE "
1111 ? "WITHIN A WARP SET RANGE OF 1 TO 10. ":? "HIGHER WARP SPEEDS MOVE THE SHIP "
1112 ? "FASTER, BUT ALSO CONSUME GREATER ":? "RATES OF ENERGY.":?
1113 ? "THE SAFEST MAXIMUM SPEED IS WARP 7. ":? "OPERATING AT WARP SETTINGS HIGHER"
1114 ? "THAN 7 IS RISKING ENGINE DAMAGE DUE":? "TO OVERHEATING.":?
1120 ? "OPERATING AT WARP 10 MAY CAUSE YOU TO":? "ENTER A TIME WARP. YOU COULD GO BACK":? "OR FORWARD IN TIME.":?
1148 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1149 IF R=ASC("X") THEN GOTO 500
1150 ? "↰":? "MOVE ":?
1151 ? "THE MOVE COMMAND ENGAGES YOUR WARP ":? "DRIVE IN NAVIGATING THE SHIP. TWO "
1152 ? "INPUTS ARE REQUIRED: COURSE AND DIS-":? "TANCE. COURSE (OR DIRECTION) USES"
1153 ? "CLOCK SETTINGS RATHER THAN DEGREES. ":?
1155 ? ," 12":?
1156 ? ," 10.5 1.5 ":?
1158 ? ,"9 <---E---> 3":?
1159 ? ," 7.5 4.5 ":?
1160 ? ," 6 ":?
1161 ? "NOTE: CLOCK DIRECTIONS ARE DECIMAL,":? "I.E. 2.5 NOT 2:30. ":? :?
1170 GET #1,R:? "↰"
1171 ? "DISTANCE IS GIVEN IN LINEAR QUADRANTS.":? "THERE ARE 10 LINEAR SECTORS IN EACH "
1172 ? "LINEAR QUADRANT. A DISTANCE INPUT OF":? "3.5 WOULD MOVE YOUR SHIP 3 QUADRANTS,"
1173 ? "5 SECTORS, OR 35 SECTORS IF YOU CARE":? "TO THINK OF IT THAT WAY."
1174 ? :? "AVOIDING SECTOR OBJECTS WHILE MOVING":? "IS ONLY REQUIRED UNTIL YOU REACH THE":? "QUADRANT BOUNDARIES."
1190 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1191 IF R=ASC("X") THEN GOTO 500
1200 ? "↰":? "SHIELDS ":?
1210 ? "YOU RAISE OR LOWER YOUR SHIELDS WITH":? "THIS COMMAND. PROPER RESPONSE IS UP"
1211 ? "OR DOWN. SHIELDS REDUCE THE SEVERITY":? "OF ENEMY HITS DEPENDENT UPON THEIR "
1212 ? "STRENGTH. HITS FROM ENEMY FIRE WEAK-":? "EN YOUR SHIELD STRENGTH."
1213 ? :? "MOVING THE SHIP WITH SHIELDS UP TAKES":? "TWICE THE ENERGY REQUIRED WITH ":? "SHIELDS DOWN.":?
1214 ? "SINCE YOUR PHASERS ARE AN ENERGY WEA-":? "PON, THEY CAN NOT BE FIRED WITH YOUR"
1215 ? "SHIELDS UP. (DAMAGED SHIELDS WILL":? "ALLOW PHASER FIRE WITHOUT LOWERING)":?
1216 ? "10 UNITS OF ENERGY ARE REQUIRED TO ":? "RAISE YOUR SHIELDS"
1248 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1249 IF R=ASC("X") THEN GOTO 500
1250 ? "↰":? "PHASERS":?
1251 ? "YOUR PHASER IS AN ENERGY WEAPON WHICH":? "FIRES BURSTS OF ENERGY FROM THE SHIPS"
1252 ? "RESERVES. IT IS A SOPHISTICATED WEA-":? "PON WHICH SENSES THE AMOUNT OF ENERGY"
1253 ? "REQUIRED TO DESTROY EACH TARGET. YOU":? "JUST HAVE TO DETERMINE THE TOTAL "
1254 ? "AMOUNT REQUIRED TO DO THE JOB.":? :? "PHASERS CAN NOT BE FIRED THROUGH":? "DEFENSIVE ENERGY SHIELDS.":?
1255 ? "THE STRENGTH OF A DELIVERED PHASER":? "HIT IS DEPENDENT UPON THE DISTANCE "
1256 ? "BETWEEN YOU AND THE TARGET. AS ":? "DISTANCE INCREASES MORE ENERGY WILL "
1257 ? "HAVE TO BEEN FIRED TO EFFECT THE SAME":? "HIT."
1260 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1261 IF R=ASC("X") THEN GOTO 500
1300 ? "↰":? "PHOTON ":?
1301 ? "PHOTON TORPEDOS ARE A DIRECTIONAL ":? "WEAPON WHICH MAY BE FIRED SINGALLY ":? "OR IN BURSTS OF THREE."
1302 ? "TWO INPUTS ARE REQUIRED: COURSE AND":? "AND BURST ANGLE. TORPEDO COURSE IS"
1303 ? "ENTERED IN THE SAME FORMAT AS IN":? "NAVIGATION (SEE MOVE COMMAND)."
1304 ? :? "A BURST ANGLE OF 0 WILL FIRE A SINGLE":? "TORPEDO ON THE COURSE YOU SET."
1305 ? :? "IF YOU WISH TO FIRE A 3 TORPEDO BURST":? "THEN ENTER THE SPREAD IN DEGREES."
1306 ? "FOR EXAMPLE, A BURST ANGLE OF 10 DEG":? "WILL FIRE THE 2ND AND 3RD TORPEDOS AT"
1307 ? "PLUS AND MINUS 10 DEGREES RESPECTIVE-":? "LY FROM YOUR COURSE."
1310 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1311 IF R=ASC("X") THEN GOTO 500
1350 ? "↰":? "HELP":?
1351 ? "NOT TO BE CONFUSED WITH A PROGRAMMING":? "AID, THE HELP COMMAND REQUESTS ASSIS-"
1352 ? "TANCE FROM THE NEAREST STAR BASE. IF":? "SUCCESSFUL THE ENTERPRISE WILL BE "
1353 ? "TRANSPORTED FROM ITS CURRENT POSITION":? "TO THE RESPONDING STAR BASE. "
1354 ? :? "YOUR PROBABILITY OF SUCCESS WILL":? "DEPEND IN PART ON THE DISTANCE BE-":? "TWEEN YOU AND THE BASE."
1355 ? :? "HELP COMMANDS COST YOU 100 POINTS."
1360 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1361 IF R=ASC("X") THEN GOTO 500
1400 ? "↰":? "DAMAGE ":?
1401 ? "THE DAMAGE COMMAND GENERATES A REPORT":? "ON STARSHIP DAMAGE, TOGETHER WITH "
1402 ? "ESTIMATES OF REPAIR UNDER TWO MODES:":? "DOCKED (AT STAR BASE) AND IN SPACE.":?
1403 ? "YOU WILL FIND THAT SYSTEMS CAN BE":? "REPAIRED MUCH FASTER AT A STAR BASE."
1410 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1411 IF R=ASC("X") THEN GOTO 500
1450 ? "↰":? "ABANDON SHIP":?
1451 ? "IF YOU NEED TO ABANDON THE ENTERPRISE":? "FOR WHATEVER REASON....."
1452 ? :? "IF YOU ARE SUCCESSFUL IN EMPLOYING":? "THIS TACTIC YOU WILL BE GIVEN A NEW"
1453 ? "COMMAND BY THE FEDERATION: THE FERRY ":? "QUEEN. YOU WILL FIND THIS SHIP IS "
1454 ? "NOT AS FORMIDABLE AS THE ENTERPRISE.."
1455 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1456 IF R=ASC("X") THEN GOTO 500
1500 ? "↰":? "CHART ":?
1501 ? "THIS COMMAND DISPLAYS A CHART OF THE":? "KNOWN GALAXY. DATA IS DISPLAYED ON"
1502 ? "ALL QUADRANTS WHICH HAVE BEEN SCANNED":? "BY YOUR SENSORS. (SRS AND LRS)"
1504 ? :? "READING THE QUADRANT DATA IS EXPLAIN-":? "ED IN THE LRS COMMAND SECTION."
1510 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1511 IF R=ASC("X") THEN GOTO 500
1550 ? "↰":? "STATUS ":?
1551 ? "SHIP CONDITIONS AND GAME STATUS ARE":? "DISPLAYED. MEANINGS OF THE VARIOUS"
1552 ? "LEVELS, CODES, AND QUANTITIES ARE EX-":? "PLAINED ELSEWHERE IN THIS TUTORIAL.":? :? :?
1555 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1556 IF R=ASC("X") THEN GOTO 500
1600 ? "↰":? "IMPULSE":?
1601 ? "THE SHIP MAY BE MOVED BY IMPULSE EN-":? "GINES IN LIEU OF USING THE WARP"
1602 ? "DRIVE. THE IMPULSE ENGINES USE NO ":? "ENERGY FROM THE SHIPS RESERVE, BUT "
1603 ? "YOU WILL FIND THEY ARE EXCESSIVE ":? "USERS OF TIME: 1 SECTOR TAKES 1 STAR":? "DAY TO TRAVERSE."
1604 ? :? "COURSE AND DISTANCE ARE ENTERED THE ":? "SAME AS IN WARPING (SEE MOVE)."
1610 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1611 IF R=ASC("X") THEN GOTO 500
1650 ? "↰":? "REST ":?
1651 ? "THE REST COMMAND IS INVOKED WHEN YOU":? "WISH TO CEASE OPERATIONS, USUALLY"
1652 ? "TO EFFECT REPAIRS ON YOUR STAR SHIP.":? :? "IF YOU ARE DOCKED BE SURE TO GRANT "
1653 ? "SHORE LEAVE TO YOUR CREW.":?
1654 ? "JUST ENTER THE NUMBER OF STAR DAYS ":? "YOU WISH TO REST.":?
1655 ? "CAUTION: RESTING IN SPACE CAN BE ":? "HAZARDOUS! ":? :? :?
1660 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1661 IF R=ASC("X") THEN GOTO 500
1700 ? "↰":? "DOCK ":?
1701 ? "FROM TIME TO TIME YOU WILL FIND IT ":? "NECESSARY TO RECHARGE YOUR ENERGY AND":? "AND ARMAMENT SUPPLIES."
1703 ? :? "THESE FUNCTIONS ARE DONE AT A STAR ":? "BASE. WHEN (IF) YOU GET THERE, THIS"
1704 ? "COMMAND IS USED TO EFFECT THE DOCKING":? "MANUVER.":?
1705 ? "YOU MUST BE ON ANY ADJACENT SECTOR TO":? "SUCCESSFULY DOCK: NOT ON TOP OF THE":? "BASE..."
1710 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1711 IF R=ASC("X") THEN GOTO 500
1750 ? "↰":? "DESTRUCT":?
1751 ? "THE DESTRUCT COMMAND WILL CAUSE YOUR":? "STAR SHIP TO BLOW ITSELF UP (AND ":? "EVERYTHING ON IT..)":?
1752 ? "THE AFFECT ON ANY NEIGHBORING KLING-":? "ONS CAN BE DEVASTATING."
1753 ? :? "THE PROCEDURE IS COMPUTER CONTROLLED":? "AND YOU WILL NEED YOUR PASSWORD.."
1760 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1761 IF R=ASC("X") THEN GOTO 500
1800 ? "↰":? "COMPUTER":?
1801 ? "THE COMPUTER CAN BE ONE OF YOUR MOST":? "VALUABLE ASSETS. WITH IT YOU CAN"
1802 ? "CALCULATE ENERGY AND TIME REQUIRE-":? "MENTS FOR MOVE COMMANDS, TARGET "
1803 ? "COURSES FOR PHOTON TORPEDOS, AND NAV-":? "GATIONAL COURSE AND DISTANCE IN ":? "MOVING THE SHIP."
1804 ? :? "AFTER ENTERING THE COMPUTER COMMAND":? "ENTER THE SUBSYSTEM YOU REQUIRE."
1805 ? :? "COMPUTER SUBSYSTEMS ARE:":?
1806 ? " NAVIGATION => COURSE & DISTANCE"
1807 ? " TACTICAL => TARGET COURSE"
1808 ? " TIME => MOVE TIME CALC"
1809 ? " ENERGY => MOVE ENERGY CALC "
1849 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1850 IF R=ASC("X") THEN GOTO 500
1900 ? "↰":? "DIVERT ":?
1901 ? "THE DIVERT COMMAND ALLOWS YOU TO SWAP":? "ENERGY BETWEEN THE SHIPS ENERGY"
1903 ? "RESERVES AND YOUR SHIELDS.":? :? "EACH SHIELD FACTOR OF 1% IS EQUIVA-"
1905 ? "LENT TO 10 UNITS OF ENERGY.":?
1907 ? "ENERGY MAY BE DIVERTED TO OR FROM THE":? "STARSHIP SHIELDING."
1960 ? :? "HIT X TO RETURN TO COMMANDS MENU":GET #1,R
1961 IF R=ASC("X") THEN GOTO 500
1999 ? "↰":? :? "END OF COMMAND SUMMARY..":FOR DE=1 TO 100:NEXT DE:RETURN
3000 ? "↰":? :? :? :? :? "THIS IS A USER":? "SUPPLIED SECTION...":GOSUB 6000:RETURN
4000 ? "↰":? " GAME BACKGROUND":? :?
4002 ? "WELCOME ABOARD THE USS ENTERPRISE. ":? "YOUR MISSION IS TO STOP THE KLINGON"
4003 ? "INVASION AGAINST THE FEDERATION.":? :? "YOU WILL COMMAND THE USS ENTERPRISE,A"
4004 ? "HIGHLY RESPECTED AND VERY FORMIDABLE":? "FORCE...SO COMMAND IT WELL."
4006 ? :? "YOU WILL BE SUPPORTED BY STARFLEET ":? "IN YOUR ENDEAVOR. THEY WILL KEEP YOU"
4007 ? "APPRISED OF ACTIVITY IN THE GALAXY"
4008 ? "(BE SURE TO KEEP YOUR RADIO GEAR IN":? "GOOD REPAIR) AND WILL MAINTAIN STAR "
4010 ? "BASES FOR YOUR ASSISTANCE AND PROTEC-":? "TION.":?
4020 ? "YOU WILL BE GIVEN A SPECIFIC AMOUNT":? "OF TIME TO FINISH; IF YOU RUN OUT,":? "YOU LOSE..":GET #1,S
4030 ? "↰":? "MORE TIME WILL BE ALLOWED AS YOU ":? "WEAKEN THE INVASION FORCE."
4032 ? :? "ABOUT THE ENEMY"
4034 ? :? "KLINGONS ARE DESTROYED BY EITHER PHA-":? "SER FIRE OR BY PHOTON TORPEDOS. PHA-"
4036 ? "SER ENERGY REQUIRED TO DESTROY AN ":? "ENEMY VESSEL IS AS FOLLOWS:":?
4037 ? " KLINGON 200 UNITS"
4038 ? " COMMANDER 600 UNITS":?
4040 ? "KEEP IN MIND THAT THESE ARE AVERAGE":? "LEVELS...THEY WILL VARY! ALSO, THE"
4041 ? "AMOUNTS WILL BE HIGHER WHEN PLAYING":? "AT THE HIGHER SKILL LEVELS."
4050 ? :? "KLINGONS HAVE ONE TYPE OF OFFENSIVE":? "WEAPON: PHASERS. KLINGON PHASERS"
4051 ? "BEHAVE IN MUCH THE SAME WAY AS YOURS."
4999 GET #1,R:RETURN
5000 ? "↰":? ,"STARSHIP SYSTEMS":? :? :?
5001 ? " KEY SYSTEM"
5002 ? " --- ----------------"
5003 ? " A ENERGY "
5004 ? " B LIFE SUPPORT"
5005 ? " C SUB SPACE RADIO"
5006 ? " D SHUTTLE CRAFT"
5007 ? " E STATUS CODES "
5019 ? " X RETURN TO MENU"
5020 ? :? :? :? " ENTER SELECTION KEY";:GET #1,S
5030 IF S=ASC("A") THEN GOTO 5100
5031 IF S=ASC("B") THEN GOTO 5200
5032 IF S=ASC("C") THEN GOTO 5300
5033 IF S=ASC("D") THEN GOTO 5400
5034 IF S=ASC("E") THEN GOTO 5500
5040 IF S=ASC("X") THEN RETURN
5100 ? "↰":? "ENERGY ":?
5101 ? "ENERGY IS REQUIRED FOR MOVING YOUR ":? "STAR SHIP. THE AMOUNT OF ENERGY RE-"
5102 ? "QUIRED IS DEPENDENT UPON DISTANCE,":? "WARP SETTING, AND WHETHER YOUR "
5103 ? "SHIELDS ARE RAISED OR LOWERED.":? :? "USE YOUR ON BOARD COMPUTER TO GET AN"
5104 ? "IDEA OF USAGE UNDER VARYING SETTINGS.":?
5110 ? "ENERGY IS ALSO USED IN FIRING YOUR":? "PHASERS. USAGE IS DIRECT: FIRE 500":? "YOU USE 500.":?
5112 ? "IF YOUR ENERGY LEVEL FALLS BELOW ZERO":? "THE GAME ENDS. THIS CAN HAPPEN TWO"
5114 ? "WAYS: BY YOUR OWN DOING, OR IN BAT-":? "TLE WITH THE KLINGONS."
5198 ? :? "HIT X TO RETURN TO SYSTEMS MENU":GET #1,S
5199 IF S=ASC("X") THEN GOTO 5000
5200 ? "↰":? "LIFE SUPPORT":?
5210 ? "THE LIFE SUPPORT SYSTEM MAINTAINS THE":? "ENVIRONMENT OF YOUR STARSHIP."
5212 ? "FEDERATION STAR SHIPS CARRY 2.5 DAYS":? "IN RESERVES IN CASE THE LIFE SUPPORT"
5214 ? "SYSTEM IS DAMAGED.":?
5216 ? "IF YOU SHOULD LOSE YOUR LIFE SUPPORT,":? "YOU MUST REPAIR IT OR RETURN TO BASE"
5218 ? "BEFORE YOUR RESERVES RUN OUT."
5298 ? :? "HIT X TO RETURN TO SYSTEMS MENU":GET #1,S
5299 IF S=ASC("X") THEN GOTO 5000
5300 ? "↰":? "SUB SPACE RADIO":?
5310 ? "STAR FLEET CONTACTS YOU WITH THE SUB":? "SPACE RADIO. STAR FLEET WILL KEEP"
5312 ? "YOU ADVISED OF UNUSUAL STAR ACTIVITY":? "AS WELL AS RELAY DISTRESS CALLS FROM"
5314 ? "STAR BASES.":?
5316 ? "YOU WILL ALSO NEED THE RADIO IF YOU":? "NEED TO CONTACT A STAR BASE."
5398 ? :? "HIT X TO RETURN TO SYSTEMS MENU":GET #1,S
5399 IF S=ASC("X") THEN GOTO 5000
5400 ? "↰":? "SHUTTLE CRAFT ":?
5410 ? "THE ENTERPRISE CARRIES ONE CLASS FIVE":? "SHUTTLE CRAFT FOR USE IN TRANSPORTING":? "FEDERATION PERSONNEL."
5498 ? :? "HIT X TO RETURN TO SYSTEMS MENU":GET #1,S
5499 IF S=ASC("X") THEN GOTO 5000
5500 ? "↰":? "STATUS CODES ":?
5510 ? "STATUS OR CONDITION CODES HAVE BEEN":? "ESTABLISHED BY STAR FLEET TO GIVE YOU"
5512 ? "A QUICK REFERENCE TO GENERAL SHIP ":? "CONDITIONS. THREE CODES ARE USED:":?
5514 ? " GREEN NORMAL OPERAION"
5515 ? " YELLOW LOW ENERGY WARNING"
5516 ? " RED UNDER ATTACK":?
5518 ? "THE BORDER OF YOUR COMMAND SCREEN ":? "IS COLOR KEYED TO THE STATUS CODE."
5598 ? :? "HIT X TO RETURN TO SYSTEMS MENU":GET #1,S
5599 IF S=ASC("X") THEN GOTO 5000
5998 ? "↰":? "END OF SYSTEMS TUTORIAL":FOR DE=1 TO 75:NEXT DE
5999 RETURN
6000 FOR X=1 TO 150:NEXT X:RETURN