SUBROUTINE INSTCT C** INSTRUCTIONS TYPE *,' INSTRUCTIONS:' TYPE *,'-E- = ENTERPRISE' TYPE *,' = KLINGON' TYPE *,':B: = STARBASE' TYPE *,' * = STAR' TYPE *,'COMMAND 0 = WARP ENGINE CONTROL' TYPE *,' COURSE IS IN A CIRCULAR NUMERICAL 4 3 2' TYPE *,' VECTOR ARRANGEMENT AS SHOWN. \ ^ /' TYPE *,' INTEGER AND REAL VALUES MAY BE \^/' TYPE *,' USED. THEREFORE COURSE 1.5 IS 5 ----- 1' TYPE *,' HALF WAY BETWEEN 1 AND 2. /^\' TYPE *,' / ^ \' TYPE *,' A VECTOR OF 9 IS UNDEFINED, BUT 6 7 8' TYPE *,' VALUES MAY APPROACH 9.' TYPE *,' COURSE' TYPE *,' ONE "WARP FACTOR" IS THE SIZE OF' TYPE *,' ONE QUADRANT. THEREFORE TO GET' TYPE *,' FROM QUADRANT 6,5 TO 5,5 YOU WOULD' TYPE *,' USE COURSE 3, WARP FACTOR 1.' TYPE *,' ' TYPE *,' COMMAND 1 = SHORT RANGE SENSOR SCAN' TYPE *,' PRINTS A 7X7 SECTOR SCAN WITH THE ENTERPRISE' TYPE *,' IN THE CENTER. IT SHOWS STARS,STARBASES,KLINGONS,' TYPE *,' AND THE ENTERPRISE AS THEY ARE LOCATED WITHIN THE' TYPE *,' SCANNERS RANGE.' TYPE *,' ' TYPE *,' COMMOND 2 = LONG RANGE SENSOR SCAN' TYPE *,' SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE' TYPE *,' OF THE ENTERPRISE IN THE MIDDLE OF THE SCAN. THE SCAN' TYPE *,' IS CODED IN THE FORM XXX, WHERE THE UNITS DIGIT IS THE' TYPE *,' NUMBER OF STARS, THE TENS DIGIT IS THE NUMBER OF STAR-' TYPE *,' BASES, THE HUNDREDS DIGIT IS THE NUMBER OF KLINGONS.' TYPE *,' ' TYPE *,' COMMAND 3 = PHASOR CONTROL' TYPE *,' ALLOWS YOU TO DESTROY THE KLINGONS BY HITTING HIM WITH' TYPE *,' SUITABLE LARGE NUMBERS OF ENERGY UNITS TO DEPLETE HIS' TYPE *,' SHIELD POWER. KEEP IN MIND THAT WHEN YOU SHOOT AT' TYPE *,' HIM, HE GONNA DO IT TO YOU.' TYPE *,' ' TYPE *,' COMMAND 4 = PHOTON TORPEDO CONTROL' TYPE *,' COURSE IS THE SAME AS USED IN WARP ENGINE CONTROL' TYPE *,' IF YOU HIT THE KLINGON, HE IS DESTROYED AND CANNOT FIRE' TYPE *,' BACK AT YOU. IF YOU MISS, HE WILL SHOOT HIS PHASERS AT' TYPE *,' YOU.' TYPE *,' NOTE: THE LIBRARY CONPUTER (COMMAND 7) HAS AN OPTION' TYPE *,' TO COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 1).' TYPE *,' ' TYPE *,' COMMAND 5 = SHIELD CONTROL' TYPE *,' DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO SHLD' TYPE *,' ENERGY IS TAKEN FROM TOTAL SHIPS ENERGY.' TYPE *,' ' TYPE *,' COMMAND 6 = DAMAGE CONTROL REPORT' TYPE *,' ALLOWS THE PLAYER TO ALLOCATE ENERGY TO EXPEDITE' TYPE *,' REPAIRS ON THE ENTERPRISE.' TYPE *,' ' TYPE *,' COMMAND 7 = LIBRARY COMPUTER' TYPE *,' THE LIBRARY COMPUTER CONTAINS FIVE OPTIONS:' TYPE *,' OPTION 0 = CUMULATIVE GALACTIC RECORD' TYPE *,' SHOWS COMPUTER MEMORY OF THE RESULTS OF ALL PREVIOUS' TYPE *,' LONG RANGE SENSOR SCANS' TYPE *,' OPTION 2 = STATUS REPORT' TYPE *,' SHOWS NUMBER OF KLINGONS, STARDATES AND STARBASES' TYPE *,' LEFT.' TYPE *,' OPTION 1 = PHOTON TORPEDO DATA' TYPE *,' GIVES TRAJECTORY AND DISTANCE BETWEEN THE ENTERPRISE' TYPE *,' AND ALL KLINGONS IN YOUR QUADRANT' TYPE *,' OPTION 3 = ON BOARD COMPUTER' TYPE *,' ENABLES THE PLAYER TO DO THE FOLLOWING ARITHEMATIC' TYPE *,' OPERATIONS.' TYPE *,' 1 - ADD (X+Y)' TYPE *,' 2 - SUBTRACT (X-Y)' TYPE *,' 3 - DEVIDE (X/Y)' TYPE *,' 4 - MULTPLY (X*Y)' TYPE *,' 5 - DIST, ANG, + DIRECTION' TYPE *,' 6 - SQUARE ROOTS' TYPE *,' OPTION 4 = DAMAGE REPORT' TYPE *,' PRINTS A REPORT THE STATE OF CURRENT DAMAGES' TYPE *,' OPTION 5 = DIST & DIR' TYPE *,' PRINTS DISTANCE AND DIRECTION TO THE' TYPE *,' NEAREST STAR BASE.' RETURN END