Atari 8-bit Source code

1 GRAPHICS 0:​DIM RES$(1):​SETCOLOR 2,​0,​2:​SETCOLOR 4,​12,​2:​OPEN #1,​4,​0,​"K:​"
100 ? "":​? " ":​?:​?:​?
101 ? " KEY SUBJECT"
102 ? " --- ----------------"
103 ? " A BACKGROUND"
104 ? " B STARSHIP SYSTEMS"
105 ? " C COMMANDS"
106 ? " D STRATEGY"
107 ? " E ":​?:​? ":​ READ [] BEFORE PLAYING!"
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 GOSUB 10000
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 ? "":​POSITION 2,​11:​? " ";:​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
10000 ? CHR$(125):​POKE 752,​1
10020 POSITION 12,​1:​? "":​GOSUB 6000
10030 POSITION 2,​4:​? "":​? ""
10040 ? "":​? ""
10050 ? "":​? ""
10100 POSITION 7,​23:​? "PRESS [] TO CONTINUE...";
10110 IF PEEK(53279)<>6 THEN 10110
10120 RETURN	

• Download link 1
• Download link 2