Listing of file='TRKINS.BAS;01' on disk='vmedia/final_frontier_startrek-sector.ccvf'
100 REM INSTRUCTIONS FOR 32K STAR TREK 110 GOTO 190 120 REM ERASE SCREEN AND CONTINUE 130 PRINT 140 PRINT "PRESS ANY KEY TO CONTINUE" 150 PLOT 6,0,3,64,30:POKE 33278,0 160 IF PEEK (33278)= 0GOTO 160 170 FOR I= 30TO 0STEP - 1:PLOT 3,0,I,11:NEXT I 180 PLOT 6,2:RETURN 190 PLOT 12,6,6 200 PRINT "AT THE START OF THE GAME YOU WILL BE ASKED TO SELECT" 210 PRINT "A GALAXY SIZE FROM 3 TO 10 FOR THE PLAY OF THE GAME. 220 PRINT "THE GALAXY IS DIVIDED INTO QUADRANTS AS A MATRIX" 230 PRINT "N X N, WHERE N IS THE SIZE OF GALAXY THAT YOU SELECTED." 240 PRINT "EACH QUADRANT IS DIVIDED INTO 100 SECTORS (AS 10 X 10)" 250 PRINT "ARRANGED IN A LIKE MANNER. THE MISSION OF THE ENTERPRISE" 260 PRINT "IS TO SAVE THE FEDERATION FROM THE KLINGON INVADERS.":PRINT 270 PRINT "DESTROYING ROMULANS COUNTS TOWARD VICTORY, BUT" 280 PRINT "YOU DO NOT HAVE TO DESTROY THEM TO WIN.":PRINT 290 PRINT "YOU WILL HAVE CONTROL OF THE SHIP AND ITS" 300 PRINT "DEVICES AS INDICATED BELOW---":PRINT 310 PRINT "COURSE IS DETERMINED AS A REAL NUMBER FROM" 320 PRINT "1 TO 8.99999 ACCORDING TO THE DIAGRAM:":PRINT 330 PRINT TAB( 5)"4 3 2 QUADRANT AND SECTOR LOCATIONS ARE GIVEN" 340 PRINT TAB( 5)" \n/ IN Y-X FASHION, THAT IS, THE VERTICAL" 350 PRINT TAB( 5)"5 g*g 1 COORDINATE IS THE FIRST NUMBER GIVEN." 360 PRINT TAB( 5)" /n\ THUS QUADRANT 3-2 MEANS 3 QUADRANTS" 370 PRINT TAB( 5)"6 7 8 DOWN AND 2 OVER. THE STARTING POINT" 380 PRINT " IS ALWAYS UPPER LEFT.":PRINT 390 PLOT 6,3:GOSUB 130:PLOT 6,1 400 PRINT "WARP MOVEMENT:":PRINT 410 PRINT "THE WARP FACTOR IS A REAL NUMBER FROM 1 TO 8." 420 PRINT "DISTANCE TRAVELLED IN QUADRANTS IS EQUAL TO" 430 PRINT "THE WARP FACTOR. FOR EXAMPLE, WARP 1=1 QUADRANT," 440 PRINT "2=2 QUADRANTS, ETC. IF YOU TRAVEL FROM QUADRANT" 450 PRINT "1-1, SECTOR 1-1 IN DIRECTION 1 AT WARP 2, YOU" 460 PRINT "WOULD STOP AT QUADRANT 1-3, SECTOR 1-1.":PRINT 470 PRINT "IF THE ENTERPRISE IS BLOCKED BY AN OBJECT," 480 PRINT "IT WILL STOP IN FRONT OF THE OBJECT AND" 490 PRINT "WASTE STAR DATE TIME.":PRINT 500 PRINT "DISTANCE IS DETERMINED BY TRIG FUNCTIONS." 510 PRINT "THIS MEANS THAT DIAGONAL MOVEMENT FROM ONE POSITION" 520 PRINT "TO THE NEXT IS GREATER THAN EXPECTED. FOR EXAMPLE:" 530 PRINT "MOVING ONE APPARENT UNIT DIAGONALLY IS ACTUALLY 1.414" 540 PRINT "UNITS OF REAL DISTANCE, SO DO NOT BE FOOLED BY THIS.":PRINT 550 PRINT "THE STAR DATE IS INCREMENTED BY THE SQUARE" 560 PRINT "ROOT OF THE WARP FACTOR DURING MOVEMENT." 570 PLOT 6,7:GOSUB 130:PLOT 6,3 580 PRINT "IMPULSE MOVEMENT:":PRINT 590 PRINT "IMPULSE FACTOR IS A REAL NUMBER BETWEEN 1 AND 9." 600 PRINT "THE SAME COURSE SETTINGS APPLY AS FOR WARP FACTOR." 610 PRINT "THE STAR DATE IS INCREMENTED BY THE SQUARE ROOT OF" 620 PRINT "THE IMPULSE FACTOR DIVIDED BY 1.5 DURING MOVEMENT.":PRINT :PRINT 630 PRINT "ENERGY:":PRINT 640 PRINT "THE ENTERPRISE GAINS 225 UNITS OF ENERGY" 650 PRINT "FOR EACH STARDATE SPENT.":PRINT :PRINT 660 PRINT "SHORT RANGE SENSORS:":PRINT 670 PRINT "THE S.R. SENSORS OF THE ENTERPRISE DISPLAY A DETAILED" 680 PRINT "VIEW OF THE QUADRANT IN WHICH IT IS CURRENTLY LOCATED.":PRINT 690 PRINT "ON THE S.R. SENSORS-- THE ENTERPRISE APPEARS AS.......E" 700 PRINT TAB( 22)"KLINGON BATTLE CRUISERS ARE.....K" 710 PRINT TAB( 22)"ROMULAN SHIPS ARE...............R" 720 PRINT TAB( 22)"FEDERATION STARBASES ARE........B" 730 PRINT TAB( 22)"STARS ARE MARKED BY.............*" 740 PLOT 6,4:GOSUB 130:PLOT 6,7 750 PRINT "LONG RANGE SENSORS:":PRINT 760 PRINT "THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY" 770 PRINT "THE NUMBER OF OBJECTS IN THE 9 ADJACENT QUADRANTS." 780 PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS" 790 PRINT "SOMETHING. THE ONES DIGIT IS THE NUMBER OF STARS;" 800 PRINT "THE TENS DIGIT IS THE NUMBER OF STARBASES;" 810 PRINT "THE HUNDREDS DIGIT IS THE NUMBER OF KLINGONS.":PRINT 820 PRINT "FOR EXAMPLE, 319 MEANS---":PRINT 830 PRINT "3 KLINGONS / 1 STARBASE / 9 STARS":PRINT 840 PRINT "ROMULANS DO NOT SHOW UP ON LONG RANGE SCANS" 850 PRINT "BECAUSE THEY HAVE THE 'CLOAKING DEVICE'.":PRINT 860 PRINT "THE SPACE IN WHICH THE ENTERPRISE IS FIGHTING" 870 PRINT "IS 'EINSTEINIAN' SPACE IN THAT IT IS CURVED." 880 PRINT "BY THIS IS MEANT THAT ONE SIDE OF THE GALAXY" 890 PRINT "IS CONNECTED TO THE OTHER.":PRINT 900 PRINT "IF THE ENTERPRISE LEAVES QUADRANT 2-10 AT WARP 1," 910 PRINT "COURSE 1, IT WILL END UP IN QUADRANT 2-1.":PRINT 920 PRINT "A LONG RANGE SCAN FROM QUADRANT 1-1 WILL SCAN:":PRINT 930 PRINT "10-10, 10-1, 1-10, 1-1, 1-2, 2-10, 2-1, 2-2." 940 PLOT 6,1:GOSUB 130:PLOT 6,2 950 PRINT "PHASER BANKS:":PRINT 960 PRINT "THE PHASER BANKS ARE OPERATED AS FOLLOWS:":PRINT 970 PRINT "YOU WILL BE ASKED FOR THE AMOUNT TO FIRE." 980 PRINT "THIS AMOUNT OF ENERGY IS DISTRIBUTED OVER" 990 PRINT "AS MANY KLINGONS AND ROMULANS AS POSSIBLE." 1000 PRINT "ONLY AS MUCH ENERGY AS IS NEEDED TO DESTROY" 1010 PRINT "EACH TARGET IS FIRED AT THAT SHIP. THE HIT" 1020 PRINT "IS DETERMINED BY THE FOLLOWING FORMULAE---":PRINT 1030 PRINT "IF DISTANCE IS < 3, HIT EQUALS THE AMOUNT FIRED." 1040 PRINT "(FOR THE ENTERPRISE IT IS THE AMOUNT TO DESTROY" 1050 PRINT "AN ENEMY.) FOR DISTANCE > 3, THE HIT EQUALS:":PRINT 1060 PRINT "(AMOUNT FIRED/DISTANCE-3) SQUARED,":PRINT :PLOT 6,2 1070 PRINT "THAT IS, IT FALLS OFF WITH DISTANCE.":PRINT 1080 PRINT "KLINGONS AND ROMULANS WITHIN A DISTANCE" 1090 PRINT "OF 3 UNITS WILL BE FIRED UPON BEFORE" 1100 PRINT "THOSE FURTHER AWAY." 1110 PLOT 6,7:GOSUB 130:PLOT 6,5 1120 PRINT "PHOTON TORPEDOES:":PRINT 1130 PRINT "THE INITIAL NUMBER OF TORPEDOES VARIES" 1140 PRINT "WITH GALAXY SIZE. ONE TORPEDO DESTROYS" 1150 PRINT "WHATEVER IT HITS. STARS CANNOT BE DESTROYED." 1160 PRINT "IF A TORPEDO HEADS FOR A STAR, IT WILL BE" 1170 PRINT "DEFLECTED BY THE STAR'S GRAVITY. IT IS" 1180 PRINT "POSSIBLE TO DESTROY THE ENTERPRISE WITH" 1190 PRINT "ITS OWN TORPEDO BY SUCH DEFLECTION.":PRINT 1200 PRINT "LIKE PHASERS, TORPEDOES ARE LIMITED TO" 1210 PRINT "THE CURRENT QUADRANT. THE COURSE OF A" 1220 PRINT "PHOTON TORPEDO IS SET THE SAME WAY AS" 1230 PRINT "THAT OF THE ENTERPRISE FOR MOVEMENT.":PRINT :PRINT 1240 PRINT "DAMAGE CONTROL REPORT:":PRINT 1250 PRINT "THE DAMAGE CONTROL REPORT LISTS THE" 1260 PRINT "MAIN DEVICES AND THEIR STATE OF REPAIR." 1270 PRINT "A NON-ZERO NUMBER INDICATES A DISABLED UNIT." 1280 PLOT 6,7:GOSUB 130:PLOT 6,2 1290 PRINT "ALLOCATE POWER:":PRINT 1300 PRINT "SINCE ALL POWER THAT THE ENTERPRISE RECEIVES" 1310 PRINT "IS CREATED IN THE WARP ENGINES, IT IS NECESSARY" 1320 PRINT "TO TRANSFER THIS ENERGY TO THE PHASERS OR THE" 1330 PRINT "SHIELDS. TO DO THIS YOU NEED TO REMEMBER THAT:":PRINT 1340 PRINT TAB( 10)"WARP ENGINES = DEVICE #1" 1350 PRINT TAB( 10)"PHASER BANKS = DEVICE #2" 1360 PRINT TAB( 10)"SHIELDS = DEVICE #3":PRINT 1370 PRINT "ENERGY CAN ALWAYS BE TRANSFERRED FROM A LOWER TO" 1380 PRINT "A HIGHER NUMBERED DEVICE, BUT NOT THE REVERSE" 1390 PRINT "BECAUSE THE ENERGY DEGRADES WHEN TRANSFER TO A" 1400 PRINT "A LESS POTENT ENERGY SOURCE (SUCH AS SHIELDS)" 1410 PRINT "IS ATTEMPTED.":PRINT :PRINT 1420 PRINT "DOCKING:":PRINT 1430 PRINT "DOCKING IS ACCOMPLISHED BY MANEUVERING THE ENTERPRISE" 1440 PRINT "NEXT TO A STARBASE. YOU MAY DOCK AT ANY OF 3 POSITIONS" 1450 PRINT "BY RESPONDING 'YES' OR 'NO' AS APPROPRIATE WHEN YOU" 1460 PRINT "ARE ASKED IF YOU WISH TO DOCK. WHEN YOU ARE DOCKED," 1470 PRINT "THE ENTERPRISE IS PROTECTED FROM ENEMY ATTACK BY THE" 1480 PRINT "BASE'S SHIELDS PROVIDED THAT THEY HAVE NOT BEEN TOO BADLY" 1490 PRINT "DAMAGED BY PRIOR ATTACKS. IMPULSE POWER AND TORPEDOES" 1500 PRINT "ARE REPLENISHED AND ALL SYSTEMS ARE REPAIRED AT THIS TIME." 1510 PLOT 6,7:GOSUB 130:PLOT 6,4 1520 PRINT "SHIELDS:":PRINT 1530 PRINT "THE SHIELDS ARE THE DEFENSE OF THE SHIP. AS SUCH" 1540 PRINT "THEY SHOULD BE KEPT AT A REASONABLE LEVEL. IF" 1550 PRINT "THERE IS NOT ENOUGH ENERGY AVAILABLE TO STOP AN" 1560 PRINT "ATTACK, THE ENTERPRISE WILL BE DESTROYED!!":PRINT :PRINT 1570 PRINT "GENERATE POWER:":PRINT 1580 PRINT "SINCE IT IS POSSIBLE TO HAVE INSUFFICIENT POWER" 1590 PRINT "TO MOVE, THIS COMMAND ALLOWS 500 UNITS OF ENERGY" 1600 PRINT "TO BE GENERATED IN THE WARP ENGINES AT A COST OF" 1610 PRINT "0.5 STARDATES.":PRINT 1620 PRINT "POWER CANNOT BE GENERATED UNDER RED ALERT.":PRINT :PRINT 1630 PRINT "BLACK HOLES:":PRINT 1640 PRINT "BLACK HOLES DO NOT APPEAR ON ANY SENSOR SCANS." 1650 PRINT "HOWEVER, TORPEDOES WILL BE ABSORBED BY BLACK HOLES." 1660 PRINT "IF THE ENTERPRISE SHOULD WARP INTO A BLACK HOLE," 1670 PRINT "IT WILL REAPPEAR IN ANOTHER QUADRANT.":PRINT 1680 PRINT "A BLACK HOLE MAY BE DETECTED ON THE VIEW SCREEN" 1690 PRINT "IF YOU ARE CLOSE ENOUGH TO ONE." 1700 PLOT 6,3:GOSUB 130:PLOT 6,1 1710 PRINT "VIEW SCREEN:":PRINT 1720 PRINT "THIS IS USEFUL IF YOUR SENSORS ARE DOWN." 1730 PRINT "THE SCREEN WILL PROVIDE YOU WITH A VIEW" 1740 PRINT "IN THE LAST DIRECTION NUMBER ENTERED WHEN" 1750 PRINT "YOU ENTER A NEW QUADRANT. ENTER A NEW VIEW" 1760 PRINT "DIRECTION IN THE SAME WAY AS FOR FIRING" 1770 PRINT "TORPEDOES. YOU WILL SEE IMAGES ACCORDING TO" 1780 PRINT "YOUR DISTANCE FROM THE OBJECT. THE RULE IS:" 1790 PRINT "IF YOU CAN SEE IT, YOU CAN FIRE A TORPEDO" 1800 PRINT "AT IT. A BLACK HOLE WILL SHOW UP AS AN" 1810 PRINT "EMPTY SPOT ON THE VIEW SCREEN, BUT ONLY IF" 1820 PRINT "YOU ARE WITHIN 4 UNITS OF IT.":PRINT :PRINT 1830 PRINT "QUITTING:":PRINT 1840 PRINT "IF YOU REALLY CAN'T CUT IT, YOU CAN 'QUIT'," 1850 PRINT "BUT DOING SO IS A COWARD'S WAY OUT AS YOU" 1860 PRINT "WILL LEARN IF YOU TRY IT.":PRINT :PRINT 1870 PRINT "ROMULANS:":PRINT 1880 PRINT "IF LEFT ALONE LONG ENOUGH, ROMULANS WILL ATTACK STARBASES." 1890 PRINT "THE ENTERPRISE MUST COME TO THE RESCUE OR THE STARBASE WILL" 1900 PRINT "BE DESTROYED." 1910 PLOT 6,6:GOSUB 130:PLOT 6,5 1920 PRINT "TIME AND RATING:":PRINT 1930 PRINT "THE GAME IS TIME-LIMITED BY STAR DATE." 1940 PRINT "IF YOU RUN OUT OF TIME, YOU LOSE." 1950 PRINT "MOST ACTIVITIES WILL USE UP TIME." 1960 PRINT "THE ONLY COMMANDS WHICH COST NOTHING" 1970 PRINT "IN TERMS OF TIME ARE:":PRINT 1980 PRINT "SHORT RANGE SCAN / ALLOCATE POWER / DAMAGE REPORT":PRINT :PLOT 6,5 1990 PRINT "USE OF THE VIEW SCREEN ALSO TAKES TIME.":PRINT 2000 PRINT "YOU WILL BE RATED BY YOUR EFFICIENCY." 2010 PRINT "THE MORE YOU ACCOMPLISH IN LESS TIME," 2020 PRINT "THE BETTER YOUR RATING. IF YOU LET" 2030 PRINT "A BASE BE DESTROYED, YOUR RATING WILL" 2040 PRINT "DROP. IF YOUR FINAL RATING IS 100" 2050 PRINT "OR MORE, YOU WILL EARN THE RANK OF" 2060 PRINT "STARFLEET ADMIRAL." 2070 PLOT 6,3:GOSUB 130:PLOT 6,4 2080 PRINT "ADVENTURE OPTION:":PRINT 2090 PRINT "IF YOU HAVE THIS VERSION OF THE GAME, THEN" 2100 PRINT "THIS OPTION ALLOWS YOU TO BE 'SIDE-TRACKED'" 2110 PRINT "FROM THE MAIN GAME TO ENGAGE IN OTHER" 2120 PRINT "ACTIVITIES, PERHAPS TO BATTLE A DIFFERENT" 2130 PRINT "KIND OF ENEMY. IT IS POSSIBLE TO HAVE" 2140 PRINT "SEVERAL ADVENTURES IN ANY GIVEN GAME.":PRINT 2150 PRINT "SPECIAL NOTE: REPEATABLE GAMES DO NOT" 2160 PRINT "NECESSARILY HAVE REPEATABLE ADVENTURES.":PRINT :PRINT 2170 PRINT "SAVE GAME:":PRINT 2180 PRINT "AT ANY TIME DURING THE MAIN GAME ONLY THE COMMAND" 2190 PRINT "'SAVE' MAY BE ENTERED. THIS WILL SAVE THE GAME IN" 2200 PRINT "PROGRESS ON THE DISK FOR CONTINUING AT A LATER TIME.":PRINT :PRINT 2210 PLOT 6,6 2220 PRINT "FOR A LIST OF AVAILABLE COMMANDS AT ANY TIME DURING" 2230 PRINT "THE GAME ENTER 'C' FOR THE COMMAND ENTRY.":PRINT :PRINT 2240 PRINT "TO REPEAT THE INSTRUCTIONS, TYPE 'AGAIN' & HIT <RETURN> ":PRINT 2250 PRINT "IF YOU ARE READY TO BEGIN, TYPE 'GO' & HIT <RETURN>":PRINT 2260 INPUT "YOUR COMMAND> ";X$ 2270 IF X$= "GO"THEN PLOT 12,3,0,10:INPUT "TURN THE DISK OVER AND PRESS <RETURN> ";X$:LOAD "TREK32":RUN 2280 IF X$= "AGAIN"THEN GOSUB 170:RUN 2290 PLOT 28,11:GOTO 2260