10  PRINT "WELCOME TO THE UNITED FEDERATION OF PLANETS"
20  PRINT "STARFLEET ACADEMY"
30  PRINT "THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH"
40  PRINT "THE FOLLOWING COORDINATES:"
50  PRINT " #    ";
60  PRINT "^--1--^--2--^--3--^--4--^--5--^--6--^--7--^--8--^"
70  FOR I=1 TO 8
80  PRINT I
90  PRINT "      ^     ^     ^     ^     ^     ^     ^     ^     ^"
100  NEXT I
110  PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS,"
120  PRINT " #    --1-2-3-4-5-6-7-8"
130  FOR I=1 TO 8
140  PRINT I"^ . . . . . . . ."
150  NEXT I
160  PRINT "::: DEVICES :::"
170  PRINT LIN(2)"NAVAGATION AND PROPULSION--COMMAND (0)"
180  PRINT LIN(2)"COURSE=A REAL NUMBER FROM 1 TO 8.99999."
190  PRINT "NUMBER INDICATES DIRECTION STARTING AT THE RIGHT AND"
200  PRINT "GOING COUNTERCLOCKWISE:"
210  PRINT " . 4 . 3 . 2 . "
220  PRINT " . . 4 3 2 . . "
230  PRINT " 5 5 5 * 1 1 1"
240  PRINT " . . 6 7 8 . ."
250  PRINT " . 6 . 7 . 8 ."
260  PRINT LIN(3)"WARP FACTOR=A REAL NUMBER FROM 0 TO 12."
270  PRINT " (UNLESS WARP ENGINES ARE DAMAGED, THEN MAXIMUM WARP IS LESS)"
280  PRINT "DISTANCE TRAVELED=INTEGER(WARP FACTOR)QUADRANTS:"
290  PRINT "   WARP  .2=A STARSHIP MOVES  1 SECTOR"
300  PRINT "   WARP  .5=                  4 SECTORS"
310  PRINT "   WARP  1 =                  1 QUADRANT"
320  PRINT "   WARP  2 =                  2 QUADRANTS"
330  PRINT LIN(2)"FOR EXAMPLE, IF A STARSHIP STARTS FROM:"
340  PRINT "QUADRANT 1, -1  WITH COURSE 1 AT WARP 2,"
350  PRINT "THE STARSHIP WOULD STOP AT QUADRANT 1, -3"
360  PRINT "IN THE NEXT STARDATE"
370  PRINT LIN(2)"*** NOTE: EVERY USE OF THE WARP TAKES ONE STARDATE."
380  PRINT "IF A STARSHIP IS BLOCKED BY SOMETHING DURING INTER-"
390  PRINT "QUADRANT TRAVEL, IT WILL STOP IN FRONT OF IT, WASTE A STARDATE,"
400  PRINT "AND SUSTAIN DAMAGE. ***"
410  PRINT LIN(3)"SHORT RANGE SENSORS--COMAND (1)"
420  PRINT LIN(2)" THE SHORT RANGE SENSORS OF A STARSHIP DISPLAY"
430  PRINT "A DETAILED VIEW OF THE QUADRANT IT IS CURRENTLY IN."
440  PRINT "THE STARSHIP LOOKS LIKE THE FIRST LETTER OF ITS NAME"
450  PRINT "ON THE SCREEN (I.E.: THE ENTERPRISE LOOKS LIKE 'E')"
460  PRINT "KLINGON BATTLE CRUISERS LOOK LIKE '+',"
470  PRINT "ROMULAN STARPURGERS LOOK LIKE '=',"
480  PRINT "GHOST SHIPS LOOK LIKE 'G', ROMRAYS LOOK LIKE 'O',"
490  PRINT "STARBASES LOOK LIKE 'B', AND STARS LOOK LIKE '*'"
500  PRINT LIN(3)"LONG RANGE SENSORS--COMMAND (2)"
510  PRINT LIN(2)" THE LONG RANGE SENSORS OF A STARSHIP DISPLAY"
520  PRINT "THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS."
530  PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"
540  PRINT "  THE ONES DIGIT REPRESENTS THE NUMBER OF STARS"
550  PRINT "      TENS                                STARBASES"
560  PRINT "      HUNDREDS                            KLINGONS"
570  PRINT "      THOUSANDS                           ROMULANS"
580  PRINT LIN(2)"FOR EXAMPLE:"
590  PRINT "  1203 MEANS  1 ROMULAN, 2 KLINGONS, 0 STARBASES AND 3 STARS."
600  PRINT LIN(3)"PHASERS--COMMAND (3)"
610  PRINT LIN(2)" ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED,"
620  PRINT "THE COMPUTER DIVIDES THIS AMOUNT AMONG THE KLINGON CRUISERS"
630  PRINT "IN THE QUADRANT AND DETERMINES THE VARIOUS DIRECTIONS OF FIRE."
640  PRINT "THE EFFECTIVENESS OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE"
650  PRINT "TARGET. A KLINGON BATTLE CRUISER STARTS WITH 300 UNITS OF ENERGY."
660  PRINT "IT CAN FIRE AN AMOUNT EQUAL TO WHATEVER ENERGY IT HAS LEFT."
670  PRINT LIN(3)"PHOTON TORPEDOES--COMMAND(4)"
680  PRINT LIN(2)" INITIALLY A STARSHIP HAS 10 PHOTON TORPEDOES."
690  PRINT "ONE TORPEDO DESTROYS WHATEVER IT HITS. THE RANGE OF PHOTON"
700  PRINT "TORPEDOES (LIKE PHASERS) IS LIMITED TO THE CURRENT QUADRANT."
710  PRINT "THE COURSE OF A PHOTON TORPEDO IS SET THE SAME WAY AS THAT OF"
720  PRINT "WARP DRIVES."
730  PRINT LIN(3)"DAMAGE CONTROL REPORT--COMMAND (5)"
740  PRINT LIN(2)" THIS REPORT LISTS DEVICES AND THEIR STATE OF REPAIR."
750  PRINT "A NEGATIVE STATE OF REPAIR INDICATES A DISABLED DEVICE."
760  PRINT "DEVICES CAN BE DAMAGED OR REPAIRED BY A SPACE STORM OR A"
770  PRINT "TRUCE, RESPECTIVELY. DEVICES MAY BE DAMAGED BY A COLLISION"
780  PRINT "OF STARSHIP AND ANOTHER OBJECT IN THE SAME QUADRANT."
790  PRINT "DAMAGED UNITS ARE REPAIRED 1 UNIT EVERY STARDATE."
800  PRINT "ONE DAMAGED DEVICE IS REPAIRED EACH TIME A STARSHIP"
810  PRINT "DOCKS WITH A STARBASE."
820  PRINT LIN(3)"MEMORY SCAN--COMMAND (6)"
830  PRINT LIN(2)" DISPLAYS DATA ON ALL PREVIOUSLY SCANNED QUADRANTS"
840  PRINT "INCLUDING QUADRANTS STOPPED IN BUT NOT SCANNED."
850  PRINT "QUADRANTS WHERE THE STARSHIP STOPPED BUT DID NOT SCAN"
860  PRINT "SHOW ONLY THE NUMBER OF ROMULANS AND KLINGONS."
870  PRINT " THIS SCAN IS OF THE ENTIRE GALAXY AND IS READ MUCH"
880  PRINT "THE SAME WAY AS A LONG SENSOR SCAN. A NUMBER IN THE"
890  PRINT "QUADRANT MEANS THE STARSHIP STOPPED IN, OR SCANNED"
900  PRINT "THAT QUADRANT. THE STARSHIP'S POSITION IS INDICATED BY"
910  PRINT "FIRST LETTER OF ITS NAME (I.E.: ENTERPRISE=E)"
920  PRINT LIN(3)"IMPULSE ENGINES--COMMAND (7)"
930  PRINT LIN(2)" IMPULSE ENGINES ALLOW SHORT MOVES OF 1 TO 4 SECTORS."
940  PRINT "THIS MOVEMENT ALSO MAKES IT POSSIBLE TO MANEUVER IN A"
950  PRINT "CONDITION RED SITUATION WITHOUT DRAWING FIRE FROM KLINGONS,"
960  PRINT "IF MOVEMENT IS LIMITED TO 3 SECTORS OR LESS. HOWEVER REPEATED"
970  PRINT "SHORT MOVES WILL DRAW FIRE!"
980  PRINT LIN(3)"TRACTOR BEAMS--COMMAND (8)"
990  PRINT LIN(2)" OBJECT OF EQUAL OR LESS MASS TO STARSHIP WILL MOVE"
1000  PRINT "ACCORDING TO STATED FUNCTION. OBJECT OF GREATER MASS TO"
1010  PRINT "STARSHIP OPPOSITE TO STATED FUNCTION."
1020  PRINT LIN(2)"TRACTOR FUNCTION:"
1030  PRINT " 1=PUSH, 2=MOVE RIGHT, 3=PULL, 4=MOVE LEFT"
1040  PRINT LIN(2)"ATTACH BEAM TO OBJECT AT SECTOR (#,#) AND USING"
1050  PRINT "MINIMUM OF 6 UNITS OF ENERGY TO PERFORM THE DESIRED FUNCTION."
1060  PRINT LIN(3)"DEFENSE SHIELDS--COMMAND (9)"
1070  PRINT LIN(2)" THERE ARE 4 SHIELDS NUMBERED 1,2,3, AND 4."
1080  PRINT "FACING THE SCREEN, SHIELD 1 IS TO THE RIGHT AND SHIELD 3"
1090  PRINT "IS TO THE LEFT OF YOUR SHIP. SHIELD 2 IS AT THE TOP AND"
1100  PRINT "SHIELD 4 IS AT THE BOTTOM OF YOUR SHIP. SHIELDS ARE INITIALLY"
1110  PRINT "ARMED WITH 1000 UNITS OF ENERGY. ENERGY MAY BE ADDED AND THE"
1120  PRINT "AMOUNT ENTERED IS DOUBLED. ENERGY MAY BE WITHDRAWN WITH THE"
1130  PRINT "USE OF THE MINUS SIGN UP TO ONE HALF THE SHIELD ENERGY DISPLAYED."
1140  PRINT LIN(3)"REPAIRS--COMMAND (10)"
1150  PRINT LIN(2)" YOU CAN EFFECT SELECTIVE REPAIRS WHILE ON A MISSION USING"
1160  PRINT "THE SHIPS ENERGY. IT WILL COST YOU 500 UNITS OF ENERGY TO OFFSET"
1170  PRINT "ONE DAMAGE POINT."
1180  PRINT LIN(3)"PROBES--COMMAND (11)"
1190  PRINT LIN(2)" PROBES ARE FIRED LIKE TORPEDOES AND THEY SEND BACK"
1200  PRINT "INFORMATION ABOUT THE QUADRANTS THEY SUCCESSFULLY PASS THROUGH."
1210  PRINT LIN(3)"COMMANDS (DEVICES) AVAILABLE--COMMAND (12)"
1220  PRINT LIN(2)" THE COMMANDER OF A STARSHIP CHOOSES WHICH DEVICE"
1230  PRINT "TO USE BY ISSUING A NUMERICAL COMMAND. TO REFRESH ONESELF"
1240  PRINT "ON THE COMMANDS AVAILABLE, KEY A '12' COMMAND."
1250  PRINT LIN(3)"SELF-DESTRUCT--COMMAND(13)"
1260  PRINT LIN(2)" IF THE SITUATION IS VERY DESPERATE AND YOU DO NOT THINK"
1270  PRINT "THAT YOU CAN CONTINUE SUCCESSFULLY, YOU CAN SELF-DESTRUCT."
1280  PRINT "YOU WILL STILL GET AN END-GAME RATING."
1290  PRINT LIN(3)"DO YOU WANT TO REVIEW THE DEVICES AGAIN?";
1300  LINPUT Q$[1,1]
1310  IF Q$[1,1]="Y" THEN 160
1320  PRINT LIN(3)":::: INFORMATION ABOUT THE ENEMY ::::"
1330  PRINT LIN(2)" KLINGONS FIRE PHASERS AT FEDERATION STARSHIPS."
1340  PRINT "THEY ARE DESTROYED BY PHASER OR PHOTON TORPEDOES."
1350  PRINT "ROMULANS FIRE ROMRAYS (LIKE SLOW TORPEDOES) AT STARSHIPS."
1360  PRINT "THEY ARE DESTROYED BY PHOTON TORPEDOES ONLY."
1370  PRINT LIN(2)"WHEN YOU GRADUATE YOU WILL CHOOSE A STARSHIP TO COMMAND:"
1380  PRINT "1=ENTERPRISE          8=HOOD"
1390  PRINT "2=EXETER              9=CONSTITUTION"
1400  PRINT "3=EXCALIBUR          10=KONGO"
1410  PRINT "4=LEXINGTON          11=CONSTELLATION"
1420  PRINT "5=YORKTOWN           12=FARAGUT"
1430  PRINT "6=POTEMKIN           13=VALIANT"
1440  PRINT "7=REPUBLIC           14=INTREPID"
1450  PRINT LIN(2)"THE INSTRUCTORS HERE WISH YOU LUCK AND INVITE YOU"
1460  PRINT "YOU BACK IF AT ANY TIME YOU WANT A REFRESHER COURSE."
1470  PRINT "DO YOU WANT TO ATTEND ANOTHER ACADEMY COURSE?";
1480  LINPUT Q$
1490  IF Q$[1,1]="Y" THEN 10
1500  CHAIN "*TREKE"
1510  END 
