10 REM TRKRL.BS5 20 REM ...REM...TREKRUL...from MECC : H4U1062 1-13-78 100 REM *** BY: DAN DICKEY DATE: 27-12-77 **** 110 REM *** INSTRUCTIONS FOR THE GAME OF NEWTREK (STAR TREK) *** 120 PRINT 130 PRINT 140 PRINT "***********************************************" 150 PRINT "**** ****" 160 PRINT "**** INSTRUCTIONS FOR NEWTREK (STARTREK) ****" 170 PRINT "**** ****" 180 PRINT "***********************************************" 190 PRINT 200 PRINT 210 PRINT "THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH THE FOLLOWING" 220 PRINT "COORDINATES:" 230 PRINT " 1 2 3 4 5 6 7 8" 240 FOR X=8 TO 1 STEP -1 250 PRINT " = = = = = = = =";X 260 NEXT X 270 PRINT 280 PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS." 290 PRINT "---------------------------------------------------------------" 300 PRINT 310 PRINT 320 PRINT " === DEVICES ===" 330 PRINT 340 PRINT " - WARP ENGINES -" 350 PRINT " COURSE- A REAL NUMBER BETWEEN 0 AND 360. NUMBERS INDICATE" 360 PRINT " DIRECTION STARTING AT THE RIGHT AND GOING COUNTER-CLOCKWISE." 370 PRINT " . . . . . . . . . . . . ." 380 PRINT " 90 " 390 PRINT " 135 I 45 " 400 PRINT " \I/ " 410 PRINT " 180------*------0 " 420 PRINT " /I\ " 430 PRINT " 225 I 315 " 440 PRINT " 270 " 450 PRINT " . . . . . . . . . . . . . " 460 PRINT 470 PRINT " WARP FACTOR- A REAL NUMBER FROM 0 TO 6" 480 PRINT " A WARP FACTOR OF 1 WILL MOVE THE ENTERPRISE ONE QUADRANT" 490 PRINT " IN ANR DIRECTION. TO MOVE WITHIN A QUADRANT JUST TYPE IN HOW" 500 PRINT " MANY EIGHTHS OF A QUADRANT TO GO. FOR EXAMPLE:" 510 PRINT " WARP FACTOR .125 = 1 SECTOR" 520 PRINT " .5 = 4 SECTORS" 530 PRINT " \s:+k3CTORS" 540 PRINT " AND SO ON." 550 PRINT " *** NOTE - IF THE ENTERPRISE RAMS AN ALIEN VESSEL EITHER" 560 PRINT " DELIBERATELY OR ACCIDENTALY THE ALIEN WILL BE DES-" 570 PRINT " TROYED AND THE ENTERPRISE HEAVILY DAMAGED." 580 PRINT " *** NOTE - THERE IS ALSO A COMMAND TO MOVE YOU TO A CERTAIN" 590 PRINT " SECTOR OR QUADRANT, THIS WILL BE COVERED LATER." 600 PRINT 610 PRINT " - SENSORS -" 620 PRINT " THE SHORT RANGE SENSORS DISPLAY A DETAILED VIEW OF THE " 630 PRINT " QUADRANT THE ENTERPRISE IS CURRENTLY IN. THE SYMBOLS USED" 640 PRINT " ARE AS FOLLOWS:" 650 PRINT " <@> - ENTERPRISE <=> - FAIRY QUEEN" 660 PRINT " >$< - STARBASE * - STAR" 670 PRINT " :+: - KLINGON +++ - ROMULAN" 680 PRINT 690 PRINT "ROMULANS ARE INVISIBLE UNTIL THEY ARE TOO WEAK TO TURN ON " 700 PRINT "THEIR CLOAKING DEVICE." 710 PRINT " *** NOTE - CONDITION YELLOW MEANS YOU ARE DANGEROUSLY LOW" 720 PRINT " ON ENERGY AND SHOULD MAKE FOR A STARBASE POSTHASTE." 730 PRINT 740 PRINT " - LONG RANGE SENSORS -" 750 PRINT " THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY THE NUMBER" 760 PRINT " OF THE OBJECTS IN THE 9 CLOSEST QUADRANTS, WITH THE ENTER-" 770 PRINT " PRISE IN THE CENTRAL ONE." 780 PRINT " EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING." 790 PRINT " THE ONES DIGIT REPRESENTS THE NUMBER OF STARS." 800 PRINT " TENS STARBASES." 810 PRINT " HUNDREDS KLINGONS." 820 PRINT " THOUSANDS ROMULANS." 830 PRINT 840 PRINT " - PHASERS -" 850 PRINT " ANY PORTION OF THE ENERGY CAN BE FIRED. THE BATTLE COMPUTER" 860 PRINT " DIVIDES THIS AMOUNT AMONG THE ALIENS PRESENT IN THE " 870 PRINT " QUADRANT AND DETERMINES THE VARIOUS DIRECTIONS OF FIRE." 880 PRINT " THE EFFECTIVENESS OF A HIT DEPENDS MAINLY ON THE DISTANCE" 890 PRINT " TO THE TARGET." 900 PRINT " YOU CAN USE EITHER WIDE OR NARROW BEAM WHICHEVER YOU THINK" 910 PRINT " WILL GIVE A BETTER HIT ON THE ENEMY." 920 PRINT 930 PRINT " - PHOTON TORPEDOES -" 940 PRINT " INITIALLY THE ENTERPRISE HAS 10 TORPEDOES. ONE TORPEDO" 950 PRINT " DESTROYS WHATEVER IT HITS. THE RANGE OF PHOTON TORPEDOES" 960 PRINT " (LIKE PHASERS) IS LIMITED TO THE CURRENT QUADRANT. THE " 970 PRINT " COURSE OF A PHOTON TORPEDO IS SET THE SAME WAY AS THAT OF THE" 980 PRINT " ENTERPRISE. YOU MAY, IF YOU WISH, FIRE A BURST OF THREE" 990 PRINT " TORPEDOES AT ONCE. THERE IS A TIME LAG IN LAUNCHING THEM," 1000 PRINT " AND THEY ARE FIRED IN A CLOCKWISE DIRECTION. FOR EXAMPLE:" 1010 PRINT " A TORPEDO COURSE OF 33 WITH A BURST ANGLE OF TEN WOULD" 1020 PRINT " FIRE TORPEDOES AT DIRECTIONS 23, 33, AND 43." 1030 PRINT 1040 PRINT " - DAMAGE CONTROL -" 1050 PRINT " THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVIDICES AND" 1060 PRINT " THEIR STATES OF REPAIR. A NEGATIVE STATE OF " 1070 PRINT " REPAIR INDICATES A DISABLED DEVICE. DEVICES CAN BE DAMAGED" 1080 PRINT " OR REPAIRED BY VARIOUS STRANGE EVENTS." 1090 PRINT 1100 PRINT " - SHIELD CONTROL -" 1110 PRINT " ANY AMOUNT OF ENERGY THAT YOU HAVE CAN BE PUT ON THE SHIELDS." 1120 PRINT " IF EVER THIS ENERGY GOES BELOW 0 THE ENTERPRISE WILL BE " 1130 PRINT " DESTROYED. THE AMOUNT LEFT IS TOLD AFTER EACH HIT ON THE" 1140 PRINT " ENTERPRISE." 1150 PRINT 1160 PRINT " - COMPUTER -" 1170 PRINT " WHEN THE COMPUTER IS CALLED UPON IT WILL RESPOND: READY ." 1180 PRINT " THEN THERE ARE SIX COMMANDS YOU MAY TYPE IN. THEY ARE:" 1190 PRINT " MAP - THE CUMULATIVE STAR MAP KEEPS A RUNNING RECORD" 1200 PRINT " OF THE LONG RANGE SCAN STATE OF EVERY QUADRANT YOU" 1210 PRINT " HAVE EVER VISITED OR SCANNED. UNKNOWN QUADRANTS ARE" 1220 PRINT " ZEROS." 1230 PRINT 1240 PRINT " STATUS - A STATUS REPORT GIVING VARIOUS IMPORTANT" 1250 PRINT " INFORMATION." 1260 PRINT 1270 PRINT " COURSE - WHEN THE COMPUTER ASKS FOR COORDS IT NEEDS FOUR" 1280 PRINT " NUMBERS. THE FIRST TWO NUMBERS ARE THE COORD-" 1290 PRINT " INATES OF A QUADRANT OR SECTOR, JUST AS ARE THE" 1300 PRINT " SECOND PAIR. THE COMPUTER WILL THEN PRINT THE " 1310 PRINT " DIRECTION FROM THE FIRST PAIR TO THE SECOND PAIR." 1320 PRINT " ALSO, THE DISTANCE BETWEEN THEM WILL BE PRINTED." 1330 PRINT " BE SURE TO USE THE APPROPIATE NUMBER, Q FOR DIS-" 1340 PRINT " TANCE IN QUADRANTS AND S FOR SECTORS." 1350 PRINT 1360 PRINT " EXIT - TO EXIT THE COMPUTER." 1370 PRINT 1380 PRINT " TORPEDO - TO SHOOT AT A SPECIFIED SECTOR SUCH AS 1,2 OR" 1390 PRINT " ANY OTHER SECTOR IN THE QUADRANT." 1400 PRINT 1410 PRINT " TELEPORTER - THE TELEPORTER INSTANTANEOUSLY TRANSPORTS" 1420 PRINT " YOU TO A QUADRANT WITH A STARBASE. BUT, YOU " 1430 PRINT " MAY NOT ALWAYS GET THERE." 1440 PRINT 1450 PRINT " - PROBE CONTROL -" 1460 PRINT " THIS WILL SEND A PROBE TO ANY QUADRANT YOU SPECIFY AND GIVE" 1470 PRINT " THE INFO ON THAT QUADRANT. THE NUMBERS STAND FOR THE SAME" 1480 PRINT " THING AS THE LONG RANGE SCAN." 1490 PRINT 1500 PRINT " - NEGOTIATIONS -" 1520 PRINT " OF MESSAGES THSAT CAN BE SENT TO THEM, THEY ARE:" 1530 PRINT " 1 - SURRENDER" 1540 PRINT " 2 - BOTH ENEMY AND ENTERPRISE LEAVE QUADRANT" 1550 PRINT " 3 - ENEMY LEAVE QUADRANT" 1560 PRINT " THEY MAY OR MAY NOT ACCEPT THE TERMS, HOWEVER ON NO. 2 THEY" 1570 PRINT " MAY OR MAY NOT LEAVE AS THEY MAY BE BLUFFING. YOU MAY ALSO " 1580 PRINT " NOT LEAVE IF YOU SO CHOOSE. IF THEY AGREE TO LEAVE ON NO. 3" 1600 PRINT " GAINING CONTROL OF THAT QUADRANT." 1610 PRINT 1620 PRINT " - EMERGENCY WARP -" 1630 PRINT " THIS WILL LET YOU LEAVE THE QUADRANT AND FIRE YOUR PHASERS" 1640 PRINT " AT THE SAME TIME." 1650 PRINT 1660 PRINT " - DOOMED -" 1670 PRINT " THIS IS THE SELF-DESTRUCT MECHANISM." 1680 PRINT 1690 PRINT " - DISCONNECT -" 1700 PRINT " THIS COMMAND WILL DISCONNECT THE COMPUTER." 1710 PRINT 1720 PRINT " - RECONNECT -" 1730 PRINT " THIS IS USED TO RECONNECT THE COMPUTER." 1740 PRINT 1750 PRINT " - AUTO-WARP -" 1760 PRINT " THIS WILL AUTOMATICALLY MOVE YOU TO WHATEVER QUADRANT YOU" 1770 PRINT " DESIRE TO GO." 1780 PRINT 1790 PRINT " - AUTO-SECTOR -" 1800 PRINT " THIS COMMAND WILL AUTOMATICALLY MOVE YOU TO ANY SECTOR" 1810 PRINT " IN YOUR QUADRANT." 1820 PRINT 1830 PRINT " - SAVE -" 1840 PRINT " THIS IS USED TO SAVE A GAME FOR LATER CONTINUATION." 1850 PRINT 1860 PRINT " - GET -" 1870 PRINT " THIS COMMAND IS USED TO RETRIEVE AN OLD GAME FOR CONTINUATION." 1880 PRINT 1890 PRINT " - ABANDON SHIP -" 1900 PRINT " THIS COMMAND MAY BE USED WHEN ALL ELSE FAILS AND YOU NEED" 1910 PRINT " A NEW SHIP. THE NEW SHIP IS CALLED THE FAIRY QUEEN AND THIS" 1920 PRINT " ONE CANNOT BE ABANDONED." 1930 PRINT 1940 PRINT " - IMPULSE ENGINES -" 1950 PRINT " THESE ARE A SUPPLEMENT TO THE WARP ENGINES AND COST 100 UNITS" 1960 PRINT " OF ENERGY TO ENGAGE. THERE IS A SLIGHT CHANCE OF IMPLOSION." 1970 PRINT 1980 PRINT " - EXPERIMENTAL DEATH RAY -" 2000 PRINT " HOWEVER, ONE CAN CERTAINLY PREDICT THAT, IN A GIVEN" 2010 PRINT " SITUATION, IT WILL DO WHATEVER IT DAMN WELL PLEASES. THERE" 2020 PRINT " IS A GOOD PROBABILITY THAT IT WILL DESTROY MANY ALIENS. BUT" 2030 PRINT " THERE COULD BE SOME INTERESTING SIDE EFFECTS." 2040 PRINT 2050 PRINT 2060 PRINT 2070 PRINT "COMMANDS--" 2090 PRINT " WA - WARP ENGINES" 2100 PRINT " SE - SHORT RANGE SENSORS" 2110 PRINT " LO - LONG RANGE SENSORS" 2120 PRINT " PH - FIRE PHASERS" 2130 PRINT " TO - PHOTON TORPEDOES" 2140 PRINT " DA - DAMAGE CONTROL" 2150 PRINT " SH - SHIELD CONTROL" 2160 PRINT " CO - COMPUTER" 2170 PRINT " MA - CUMULATIVE GALACTIC MAP" 2180 PRINT " ST - STATUS REPORT" 2190 PRINT " CO - COURSE CALCULATION" 2200 PRINT " EX - EXIT COMPUTER" 2210 PRINT " TO - FIRE TORPEDO" 2220 PRINT " TE - TELEPORTER" 2230 PRINT " PR - PROBE CONTROL" 2240 PRINT " NE - NEGOTIATIONS (COMMUNICATIONS)" 2250 PRINT " 1 - SURRENDER" 2260 PRINT " 2 - BOTH LEAVE" 2270 PRINT " 3 - ENEMY LEAVE" 2280 PRINT " EM - EMERGENCY WARP" 2290 PRINT " DO - SELF-DESTRUCT" 2300 PRINT " DI - DISCONNECT COMPUTER" 2310 PRINT " RE - RECONNECT COMPUTER" 2320 PRINT " AW - AUTO-WARP" 2330 PRINT " AI - AUTO-SECTOR" 2340 PRINT " SA - SAVE" 2350 PRINT " GE - GET" 2360 PRINT " AB - ABANDON SHIP" 2370 PRINT " IM - IMPULSE ENGINES" 2380 PRINT " DE - EXPERIMENTAL DEATH RAY" 2400 PRINT 2410 PRINT "NOTE - THE AUTO FUNCTIONS CANNOT BE USED IF THE COMPUTER" 2420 PRINT " IS DISCONNECTED OR DAMAGED." 2430 PRINT "NOTE - THE QUESTION 'BRIEF' AT THE BEGINNING OF THE PROGRAM" 2440 PRINT " WILL GIVE THE SHORT ORDERS IF YOU TYPE 'YES'. IF YOU WANT" 2450 PRINT " THE LONG ORDERS TYPE ANYTHING ELSE." 2460 PRINT 2470 END