Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / COMMONS.DOC < prev next >

Wrap

Text File | 1986-12-15 | 40.8 KB | 515 lines

*** 508. > *** > > ************************************************************************00010000 ********** COMMON BLOCK - ARRAYS **********00020000 ************************************************************************00030000 VARIABLE INDEX(S) U S E 00040000 ************************************************************************00050000 00060000 BASE (1) X COORDINATE OF STARBASE IN A QUADRANT. 00070000 BASE (2) Y COORDINATE OF STARBASE IN A QUADRANT. 00080000 EFP (1) WHEN 3 IS TO FIRE PHASERS (IN # STM SINCE 00090000 GAME START). 00100000 EFP (2) WHETHER FORWARD (1) OR REAR (3) PHASER BANK. 00110000 EFP (3) ENERGY TO USE. 00120000 EFT (I,1) WHEN 3 IS TO FIRE I,TH TORP (STM SINCE BEGIN). 00130000 EFT (I,2) BEARING GIVEN FOR I-TH TOPR (NOT RESULTANT 00140000 BEARING). 00150000 ETR (1) WHEN TO TURN ON E PULSIVE BEAMS (STM SINCE 00160000 BEGIN). 00170000 ETR (2) WHETHER TRACTOR (1) OR REPULSOR (2). 00180000 ETR (3) ENERGY TO USE (ONLY IF REPULSOR). 00190000 GHOST (1) X COORDINATE. 00200000 GHOST (2) Y COORDINATE. 00210000 GHOST (3) TOTAL OF HITS RECEIVED. 00220000 GHOST (4) PRESENT SPEED. 00230000 GHOST (5) PRESENT BEARING. 00240000 GHOST (6) DESIRED SPEED. 00250000 GHOST (7) DESIRED BEARING. 00260000 GHOST (8) WHEN TO FIRE TORP. 00270000 GHOST (9) BEARING FOR TORP. 00280000 GHOST (10) WHEN TO FIRE PHASER. 00290000 GHOST (11) ENERGY ON BOARD. 00300000 GHOST (12) TORPS ON BOARD. 00310000 GHOST (13) ENERGY IN DEFLECTORS. 00320000 NAMD (I) LABELS FOR DISPLAYING ENTERPRISE FACILITIES 00330000 (E.G. FOR DAMAGE REPORTS). 00340000 IBL (I,J) IF QUADRANT I,J HAS A BLACK HOLE, TELLS TO WHICH00350000 QUADRANT IS LEADS. 00360000 IDMG (I) AMOUNT OF DAMAGE TO VARIOUS FACILITIES. 00370000 I INDEXES NAMD ARRAY. 00380000 IGAL (I,J) CONTAINS INFO ABOUT KNOWN GALAXY. USED FOR 00390000 GALACTIC UPDATE. 00400000 IPQ (I,J) USED TO DISPLAY SHORT RAGNE SCAN. 00410000 JGAL (I,J) SETUP OF GALAXY AT START OF GAME. 00420000 LETR (I) PRINT CHARACTERS USED IN SHORT RANGE SCAN AND 00430000 VARIOUS MESSAGES. 00440000 IPROB1 (I) DAMAGE CONTROL REPAIR PRIORITIES. 00450000 RAD (I) RADIUS OF I-TH STAR. 00460000 STARS (I,J) X AND Y COORADINATES OF STARS IN A QUADRANT. 00470000 TORPS (I,1) X COORDINATE OF I-TH TORP. 00480000 TORPS (I,2) Y COORDINATE OF I-TH TORP. 00490000 TORPS (I,3) SPEED OF I-TH TORP. 00500000 TORPS (I,4) BEARING OF I-TH TORP. 00510000 XKL (I,1) X COORDINATE OF I-TH KLINGON 00520000 XKL (I,2) Y COORDINATE OF I-TH KLINGON 00530000 XKL (I,3) PRESENT SPEED OF I-TH KLINGON 00540000 XKL (I,4) PRESENT BEARING OF I-TH KLINGON 00550000 XKL (I,5) DESIRED SPEED OF I-TH KLINGON 00560000 XKL (I,6) DESIRED BEARING OF I-TH KLINGON 00570000 XKL (I,7) TOTAL HITS RECEIVED ON I-TH KLINGON. 00580000 XKL (I,8) WHEN TO FIRE PHASERS FOR I-TH KLINGON. 00590000 XKL (I,9) CREW STRENGTH OF I-TH KLINGON. 00600000 XROM (I,1) X COORDINATE OF I-TH ROMULAN. 00610000 XROM (I,2) Y COORDINATE OF I-TH ROMULAN. 00620000 XROM (I,3) TOTAL HITS RECEIVED ON I-TH ROMULAN. 00630000 XROM (I,4) WHEN TO FIRE TORPEDO FOR I-TH ROMULAN. 00640000 00650000 ************************************************************************00660000 ********** COMMON BLOCK - ATTACK **********00670000 ************************************************************************00680000 VARIABLE INDEX(S) U S E 00690000 ************************************************************************00700000 00710000 ITKL (I) TOTAL # TROOPS KEILED ON I-TH VESSEL. 00720000 1-9 = K1-K9, 10-18 = R1-R9 00730000 JTKL (I) TOTAL # ENEMY KILLED ON I-TH VESSEL. 00740000 1-9 = K1-K9, 10-18 = R1-R9 00750000 00760000 ************************************************************************00770000 ********** COMMON BLOCK - EXTRAS **********00780000 ************************************************************************00790000 VARIABLE INDEX(S) U S E 00800000 ************************************************************************00810000 00820000 SNOVAP PROBABILITY OF A SUPERNOVA EXPLOSION 00830000 (PER STARMINUTE). 00840000 ZMAX MAXIMUM DAMAGE TO E AS RESULT OF SUPERNOVA. 00850000 ICLOAK 0 = CLOAKING DEVICE NOT TO BE USED. 00860000 1 = ROMULAN MAY USE CLOAKING DEVICE. 00870000 2 = ROMULAN CURRENTLY USING COLAKING DEVICE. 00880000 NEG = E USING CLOAKING DEVICE FOR THAT 00890000 STARMINUTES. 00900000 PRCLDN IF ICLOAK = 1, PROBABILITY THAT THIS QUADRANT 00910000 WILL HAVE AN INVAXIBLE ROMULAN. 00920000 PHOLE PROBABILITY THAT A QUADRANT WILL HAVE A BLACK 00930000 HOLE. 00940000 IHOLE X COORDINATE OF BLACK HOLE IN QUADRANT. 00950000 JHOLE Y COORDINATE OF BLACK HOLE IN QUADRANT. 00960000 HOLRAD RADIUS OF BLACK HOLE. 00970000 SHLDF SHIELD IMPROVEMENT FACTOR. 00980000 NQUAD # QUADRANTS IN EITHER DIMENSION OF GALAXY (2-10)00990000 PSTORM PROBABILITY THAT HTIS QUADRANT WILL HAVE 01000000 NUCLEONIC STORM. 01010000 ISTORM X COORDAINATE OF STORM IN QUADRANT. 01020000 JSTORM Y COORDAINATE OF STORM IN QUADRANT. 01030000 STMRAD RADIUS OF STORM. 01040000 LEVEL USER SELECTED LEVEL OF PLAY (1-3). 01050000 ION ENTERPRISE CLOAKING 0 = NO, 1 = YES 01060000 IYES USED TO CHECK ANSWER TO QUESTIONS 01070000 01080000 ************************************************************************01090000 ********** COMMON BLOCK - FORGOT **********01100000 ************************************************************************01110000 VARIABLE INDEX(S) U S E 01120000 ************************************************************************01130000 01140000 GHACCE ACCELERATION FOR G. 01150000 PJAM PROBABILITY THAT COMMUNICATIONS WILL BE 01160000 INTERCEPTED AND JAMMED. 01170000 PJMINC INCREMENT FOR PJAM EACH TIME COMMUNICATIONS 01180000 INTERCEPTED. 01190000 ACTPJM SUM OF PJAM AND PJMINC. 01200000 PPHASD PROBABILITY THAT G PHASERS ARE DEAD. 01210000 PTORPD PROBABILITY THAT G TORPS ARE DEAD. 01220000 PDRVD PROBABILITY THAT G IMPULSE DRIVE IS DEAD. 01230000 PDEFD PROBABILITY THAT G DEVLECTORS ARE DEAD. 01240000 IGHPH FLAG TO INDICATE WHETHER G PHASERS ARE DEAD. 01250000 IGHTR FLAG TP INDICATE WHETHER G TORPEDOS ARE DEAD. 01260000 IGHDR FLAG TO INDICATE WHETHER G IMPULSE DRIVE IS 01270000 DEAD. 01280000 IGHDE FLAG TO INDICATE WHETHER G DEFLECTORS ARE DEAD. 01290000 01300000 ************************************************************************01310000 ********** COMMON BLOCK - LOCAL **********01320000 ************************************************************************01330000 VARIABLE INDEX(S) U S E 01340000 ************************************************************************01350000 01360000 ITBEAM # MEN TO BEAM OVER IN LAST COMMAND. 01370000 ISCAN USED TO CHECK IF SR SCAN NEEDED WHEN E MOVES. 01380000 ITDK TOTAL DISEASE LOSSES. 01390000 JSCAN USED BY ROMULAN ROUTINE TO DETERMINE IF SR SCAN 01400000 NEEDED FOR MOVEMENT. 01410000 JMSG FLAG WHETHER OR NOT TO PRINT WARNING MESSAGE 01420000 IF DANGEROUS DISCOVERY BY S. 01430000 TRNRGY ENERGY USED BY TRANSPORTERS. 01440000 IISTAT USED BY AUTO DESTRUCT ROUTINE (FOR OTHER VESSELS 01450000 VIA 20 COMMAND) TO SHOW HOW MANY MEN MUST BE 01460000 BEAMED BACK FIRST, IF TRANSPORTERS ALREADY 01470000 IN USE. 01480000 JJSTAT FLAG INDICATING WHETHER TRANSPORTERS CAN BE USED 01490000 DEPENDING ON AUTOMATIC BEAM BACK DUE TO 01500000 DESTRUCT. 01510000 JJUP USED BY AUTOMATIC BEAM BACK TO INDICATE TYPE OF 01520000 VESSEL BEING DESTROYED. 01530000 JJFROM # OF VESSEL BEING DESTROYED. 01540000 JJTO # OF VESSEL WHERE MEN ARE TO BE SENT (1). 01550000 JJDOWN WHERE MEN ON DESTROYED VESSEL ARE TO BE SENT 01560000 (ENTERPRISE). 01570000 01580000 ************************************************************************01590000 ********** COMMON BLOCK - RANK **********01600000 ************************************************************************01610000 VARIABLE INDEX(S) U S E 01620000 ************************************************************************01630000 01640000 RANKS ALPHANUMERIC NAME FOR EACH RANK FOR DISPLAY. 01650000 MNAME NAME PLAYER SIGNED ON WITH. 01660000 MPASS PASSWORD PLAYER SIGNED ON WITH. 01670000 POINTS # POINTS FOR THAT PLAYER. 01680000 RANKPT (I) # POINTS NECESSARY TO REACH EACH RANK. 01690000 NRANKS # RANKS AVAILABLE. 01700000 IRANK CURRENT RANK OF PALYER. 01710000 NRW INDICATES PLAYING RATED GAME. 01720000 MMKEY KEY OF RECORD FOR DIRECT ACCESS OF RATING FILE. 01730000 NTIME START TIME OF CURRENT GAME. 01740000 IOK INDICATES THAT IT IS OK TO PLAY RATED GAME. 01750000 NHOLD HOLDS NUMBER OF SECONDS LESS THAN TIMING FACTOR 01760000 TO KEEP GAME ON REAL TIME. 01770000 ICLKON INDICATES WHEN THE ENTERPRISE IS CLOAKING. 01780000 NSW USED TO WARN PLAYER THAT TIME TO PLAY RATED GAME01790000 IS 15 MINUTES AWAY. 01800000 01810000 ************************************************************************01820000 ********** COMMON BLOCK - SCALAR **********01830000 ************************************************************************01840000 VARIABLE INDEX(S) U S E 01850000 ************************************************************************01860000 01870000 ACCE ENERGY USED FOR E ACCELERATION (CALCULATED IN 01880000 EPMOVE). 01890000 DCHG MAXIMUM DEGREE CHANGE FOR E (CALCULATED IN 01900000 EPMOVE). 01910000 DDEG DESIRED BEARING OF E. 01920000 DECR LIFE SUPPORT ENERGY USE PER STARMINUTE. 01930000 DEFL E DEFLECTOR STRENGTH. 01940000 DELTA USED VARIOUSLY TO CALCULATE ACTUAL COURSE 01950000 CHANGES OF OBJECTS. 01960000 DELV USED VARIOUSLY TO CALCULATE ACTUAL SPEED 01970000 CHANGES OF OBJECTS. 01980000 DGIMP MAXIMUM BEARING CHANGE (DEG.STM) FOR ENTERPRISE 01990000 USING IMPLUSE DRIVE. 02000000 DGKL MAXIMUM BEARING CHANGE (DEG/STM) FOR KLINGON. 02010000 DGWP MAXIMUM BEARING CHANGE (DEG/STM) FOR ENTERPRISE 02020000 USING WARP DRIVE. 02030000 DISTGT SQRT (DISTGT) = DISTANCE AT WHICH PTRGH UNITS 02040000 ENERGY REQUIRED TO DOCK WITH A GHOSTSHIP. 02050000 DISTKR SQRT (DISTKR) = DISTANCE AT WHICH PRKLN UNITS 02060000 ENERGY WILL PUSH A K 1 PARSEC FURTHER AWAY. 02070000 DISTPE SQUARE OF DISTANCE FOR UNIT EFFECTIVENESS 02080000 OF ENTERPRISE PHASERS. 02090000 DISTPK SQUARE OF DISTANCE FOR UNIT EFFECTIVENESS 02100000 OF KLINGON PHASERS. 02110000 DIV1 DIVISOR TO DETERMINE DAMAGE EXTENT FOR 02120000 COLLISION. 02130000 DIV2 DIVISOR TO DETERMINE DAMAGE EXTENT FOR 02140000 PHASER OR TORPEDO HIT WITH SHIELDS DOWN. 02150000 DMXSPD DIVISOR TO DETERMINE DAMAGE EXTENT FOR PHASER 02160000 OR TORPEDO HIT WITH SHIELDS DOWN. 02170000 DSP DESIRED SPEED OF ENTERPRISE. 02180000 DSPKL MAXIMUM SPEED CHANGE (P/STM) FOR KLINGON. 02190000 DVEL MAXIMUM VELOCITY CHANGE (P/STM) FOR ENTERPRISE. 02200000 DVIMP MAXIMUM SPEED CHANGE (P/STM) FOR ENTERPRISE 02210000 USING IMPLUSE DRIVE. 02220000 DVWPP MAXIMUM SPEED CHANGE (P/STM) FOR ENTERPRISE 02230000 USING WARP DRIVE. 02240000 EEVMSP DESIRED SPEED FOR ENTERPRISE EMERGENCY EVASIVE 02250000 MANEUVERS. 02260000 EIMP ENERGY CONSUMED BY IMPLUSE DRIVE WHILE 02270000 ACCELERATING. 02280000 ENERGY ENTERPRISE ENERGY IN RESERVE ENERGY BANKS. 02290000 ERPRRT ENTERPRISE DAMAGE REPAIR RATE. 02300000 ESDIST DISTANCE SAFETY FACTOR FOR E MATERIALIZING IN 02310000 QUADRANT FOR 1ST TIME. NO OBJECT WILL BE 02320000 CLOSER TO ENTERPRISE THAN THIS. 02330000 ETVEL ENTERPRISE BASIC TORP VELOCITY. 02340000 EVENU EXTRA ENERGY USED BY ENTERPRISE EVASIVE 02350000 MANEUVERS. 02360000 EVMSP DESIRED SPEED FOR EVASIVE MANEUVERS. 02370000 EWRP ENERGY CONSUMED BY WARP DRIVE DURING 02380000 ACCELERATION. 02390000 FDATE STARDATE OF GAME COMPLETION TIME. 02400000 GHEMX MAXIMUM AMOUNT OF ENERGY A GHOSTSHIP CAN HAVE. 02410000 GHTMX MAXIMUM # TORPS A GHOSTSHIP CAN HAVE. 02420000 IBASE SET TO 1 IF THERE IS A BASE IN THE QUADRANT; 02430000 ELSE 0. 02440000 ICE X COORDINATE OF QUADRANT ENTERPRISE IS IN. 02450000 IDOCK 0 IF NOT DOCKED; 1 IF CLOSE ENOUGH TO BE DOCKED 02460000 (SET IN COLLIS); 2 IF DOCKING COMPLETED AND 02470000 STILL IN DOCKING RANGE. 02480000 IETOFT ENTERPRISE TORPEDO RATE OF FILE (# TORPS/STM). 02490000 IGH SET TO 1 IF THERE IS A G IN THE QUADRANT; 02500000 ELSE 0. 02510000 IHERE SET TO 0 IF FIRST CALL TO SCAN IN NEW QUADRANT 02520000 (GENERATES THE QUADRANT); 1 IF DISPLAYING 02530000 ALREADY GENERATED QUADRANT; 2 IF CALLED BY 02540000 ROMLN TO DETERMINE R MOVEMENT. 02550000 IHWARP TOTAL # OF HITS ON ENTERPRISE WARP DRIVE ENGINES02560000 SINCE LAST REPAIRED. 02570000 ISTART SECONDS SINCE MIDNIGHT AT LAST CALL TO TIME 02580000 ROUTINE. USED TO COUNT PLAYER RESPONSE. 02590000 ITFCTR DIVISOR FOR # SECONDS FOR ONE STARMINUTE FROM 02600000 PLAYER RESPONSE. 02610000 ITFIRE # TORPS QUEUED TO BE FIRED BY ENTERPRISE. 02620000 ITORP # TORPS REMAINING ON BOARD ENTERPRISE. 02630000 ITRUCE SET TO 1 IF TRUCE IN EFFECT; ELSE 0. 02640000 IZZ CURRENT ARGUMENT FOR RANDOM NO. CALL. 02650000 JCE Y COORDINATE OF QUADRANT ENTERPRISE IS IN. 02660000 KLNGNS # KLINGONS IN QUADRANT. 02670000 XKTIME INITIALLY, MEAN # STM ALLOCATED PER KLINGON; 02680000 AFTER INITIAL GAME SETUP IN MAIN PROGRAM, 02690000 RESET TO PROBABILITY THAT ENTERPRISE WARP 02700000 DRIVE ENGINES WILL BE DAMAGED WHEN USING 02710000 EMERENCY EVASIVE MANEUVERS. 02720000 LEFTK # KLINGONS LEFT IN GALAXY. 02730000 LEFTR # ROMULANS LEFT IN GALAXY. 02740000 MAXBQ MAXIMUM # BASES ALLOWED IN A QUADRANT. 02750000 MAXK MAXIMUM # KLINGONS ALLOWED IN GALAXY. 02760000 MAXKQ MAXIMUM # KLINGONS ALLOWED IN QUADRANT. 02770000 MAXR MAXIMUM # ROMULANS ALLOWED IN GALAXY. 02780000 MAXRQ MAXIMUM # ROMULANS ALLOWED IN QUADRANT. 02790000 MAXSQ MAXIMUM # STARS ALLOWED IN A QUADRANT. 02800000 MEN CURRENT CREW STRENGTH OF ENTERPRISE. 02810000 MINK MINIMUM # KLINGONS ALLOWED IN GALAXY. 02820000 MINR MINIMUM # ROMULANS ALLOWED IN GALAXY. 02830000 MROM TOTAL # ROMULANS IN GALAXY AT START. 02840000 MULTK1 MULTIPLIER FOR CASUALTIES DUE TO COLLISION. 02850000 MULTK2 MULTIPLIER FOR CASUALTIES DUE TO P OR T HIT 02860000 WITH SHIELDS DOWN. 02870000 NBASES AT START, # OF STARBASES IN GALAXY. LATER, SET 02880000 TO 99 IF EMERGENCY EVASIVE MANEUVERS ARE 02890000 CURRENTLY BEING EXECUTED. 02900000 NKL TOTAL # KLINGONS IN GALAXY AT START. 02910000 NMEN MAXIMUM (AND STARTING) ENTERPRISE CREW STRENGTH.02920000 NROM # ROMULAN IN THE QUADRANT. 02930000 NSTARS # STARS IN THE QUADRANT. 02940000 NSTEPS # SECONDS USED BY PLAYER TO INPUT COMMAND. USED 02950000 TO CONTROL LOOP IN SUBROUTINE ACTION. 02960000 NTORPS # TORPEDOS IN THE QUADRANT. 02970000 NTSTPS TOTAL # STARMINUTES SINCE BEGINNING OF GAME. 02980000 NTRP STARTING # TORPEDOS FOR ENTERPRISE. 02990000 PCTCOL PROBABILITY THAT 2 COLLIDING TORPEDOS WILL 03000000 DETONATE. 03010000 PDEG PRESENT BEARING OF ENTERPRISE. 03020000 PNRGY ENERGY TO BE SET UP FOR USE BY ENTERPRISE 03030000 PHASERS OR PULSARS. 03040000 PRGH PROBABILITY THAT A QUADRANT WILL CONTAIN A 03050000 GHOSTSHIP. 03060000 PRKLN SEE DISTKR. 03070000 PRREEN PROBABILITY THAT A STARBASE WILL HAVE CREW 03080000 REPLACEMENTS IF YOU NEED THEM. 03090000 PSP PRESENT SPEED OF ENTERPRISE. 03100000 PTRGH SEE DISTGT. 03110000 RADEGC CONVERSION FACTOR FOR DEGREES TO RADIANS. 03120000 REEN MAXIMUM # REPLACEMENTS (CREW) A BASE CAN HAVE. 03130000 RPRKL DAMAGE REPAIR RATE FOR KLINGON. 03140000 RPRRM DAMAGE REPAIR RATE FOR ROMULAN. 03150000 RTIME # STM ALLOCATED PER ROMULAN. 03160000 RTV ROMULAN TORPEDO VELOCITY. 03170000 SDATE CURRENT STARDATE. 03180000 SENRGY STARTING ENERGY FOR ENTERPRISE. 03190000 SIM MAXIMUM SPEED ATTAINABLE WITH ENTERPRISE IMPLUSE03200000 DRIVE. 03210000 TFACTR MULTIPLIER FOR REPAIR RATE INCREASE DURING 03220000 TRUCE. 03230000 THITR PERCENT DAMAGED ENEMY MUST BE BEFORE TRUCE WILL 03240000 BE ACCEPTED. 03250000 TNRGY DISTANCE FOR UNIT EFFECTIVENESS OF GHOSTSHIP 03260000 PHASERS. 03270000 TPMIN MINIMUM STRENGTH OF TORP HIT ON ENTERPRISE OR 03280000 GHOSTSHIP. 03290000 TPOWR MAXIMUM STRENGTH OF TORP HIT OF ENTERPRISE OR 03300000 FROM URLSG HELLO JOE GHOSTSHIP. 03310000 VMXKL MAXIMUM SPEED OF KLINGON. 03320000 VRKL VELOCITY REDUCTION FACTOR WHEN PULSING KLINGON. 03330000 XDDEG INPUT DESIRED BEARING FOR ENTERPRISE. 03340000 XDSP INPUT DESIRED SPEED FOR ENTERPRISE. 03350000 XGHIT MAXIMUM HIT A GHOSTSHIP CAN WITHSTAND. 03360000 XKFPE STRENGTH OF KLINGON PHASERS. 03370000 XKFPST RATE AT WHICH KLINGON FIRE PHASERS. 03380000 XKLHIT MAXIMUM HIT A KLINGON CAN WITHSTAND. 03390000 XRFTS RATE AT WHICH ROMULAN FIRE TORPEDOS. 03400000 XRMHIT MAXIMUM HIT AN ROMULAN CAN WITHSTAND. 03410000 XQE X COORDINATE OF ENTERPRISE IN QUADRANT. 03420000 XTIME NO. OF STARDAYS LEFT. 03430000 XTRTM MAXIMUM EXTRA TIME FOR A GAME. 03440000 YQE Y CORRDINATE OF E IN QUADRANT. 03450000 ZMIN MIMIMUM DAMAGE FACTOR FOR COLLISION. 03460000 PRORAS PROBABILITY OF ALIENS DESTROYING ROMULANS IF 03470000 THEIR STAR SYSTEM HIT BY A ROMULAN TORPEDO. 03480000 RADXX XX IS A PAIR OF LETTERS INDICATING COLLISION 03490000 BETWEEN TWO OBJECTS. 03500000 03510000 ************************************************************************03520000 ********** COMMON BLOCK - SHUTL **********03530000 ************************************************************************03540000 VARIABLE INDEX(S) U S E 03550000 ************************************************************************03560000 03570000 SHX X COORDINATE OF SHUTTLECRAFT. 03580000 SHY Y COORDINATE OF SHUTTLECRAFT. 03590000 SHDEG BEARING OF SHUTTLECRAFT. 03600000 SHVX VELOCITY OF SHUTTLECRAFT. 03610000 ISTSH STATUS OF SHUTTLECRAFT. 03620000 ISHD DESIRED ACTIVITY FOR SHUTTLECRAFT. 03630000 IFNDS (I) FINDINGS ON I-TH STAR SYSTEM. 03640000 IDSES INDICATES WHETHER DISEASE FOUND. 03650000 VDSES VIRULENCY FACTOR FOR DISEASE. 03660000 VSTRDS PROBABILITY THAT DISEASE CURE WILL BE FOUND THIS03670000 STARMINUTE. 03680000 VSTRM MINIMUM PROBABILITY THAT DISEASE CURE WILL BE 03690000 FOUND. 03700000 PRXSH PROBABILITY THAT STARBASE WILL HAVE AN EXTRA 03710000 SHUTTLECRAFT. 03720000 VDSESM MAXIMUM VIRULANCY FOR A DISEASE. 03730000 ISHNUM # SHUTTLECRAFT REAMINING ON BOARD ENTERPRISE. 03740000 03750000 ************************************************************************03760000 ********** COMMON BLOCK - SHUTL2 **********03770000 ************************************************************************03780000 VARIABLE INDEX(S) U S E 03790000 ************************************************************************03800000 03810000 ALEDR MAXIMUM AMOUNT OF ENERGY THAT ALIENS CAN DRAIN 03820000 ENTERPRISE ENERGY BANKS BY PER STARMINUTE. 03830000 IALIC I COORDINATE OF QUADRANT CONTAINING SUCH ALIENS.03840000 IALJC J COORDINATE OF QUADRANT CONTAINING SUCH ALIENS.03850000 IALSS # OF STAR SYSTEM CONTAINING SUCH ALIENS. 03860000 NDRA 1 = ENTERPRISE WARP DRIVE UNDER ALIEN CONTROL. 03870000 0 = NOT UNDER ALIEN CONTROL. 03880000 NTROPS MAXIMUM # TROOPS AVAILABLE FROM FRIENDLY 03890000 CIVILIZATION. 03900000 DRL PROBABILITY THAT SENTIENT ENERGY FORMS WILL BE 03910000 DESTROYED. 03920000 DRD MINIMUM AMOUNT OF DAMAGE TO WARP DRIVE CAUSED BY03930000 SENTIENT ENERGY FORMS. 03940000 03950000 ************************************************************************03960000 ********** COMMON BLOCK - SUBCTL **********03970000 ************************************************************************03980000 VARIABLE INDEX(S) U S E 03990000 ************************************************************************04000000 04010000 ICNTL (I) 1 = E HAS CONTROL OF I-TH VESSEL, 0 = DOES NOT. 04020000 2 - 10 = K1 -K9, 11 - 19 = R1 - R9, 20 = G. 04030000 RTBRG (I) BEARING FOR I-TH TORP THAT R UNDER E CONTROL IS 04040000 TO FIRE. 04050000 KTO # OF VESSEL TO COMMUNICATE WITH. 04060000 LTO TYPE OF VESSEL TO COMMUNICATE WITH. 04070000 KBRG NEW BEARING FOR K OR G UNDER E CONTROL. 04080000 XWRP NEW SPEED FOR K OR G UNDER E CONTROL. 04090000 ISTAT # OF MEN TO BE BEAMED IF COMMAND WAS LEGAL. 04100000 IDAMRP TRANSPORT RATE (MEW/STARMINUTE). 04110000 SDEF AMOUNT BY WHICH TO RAISE G DEFLECTORS. 04120000 IMSG MESSAGE FOR 20 COMMAND. 04130000 SKDLAY DELAY FOR K UNDER E CONTROL EXECUTING COMMANDS. 04140000 SRDLY DELAY FOR R UNDER E CONTROL EXECUTING COMMANDS. 04150000 GHVMX MAXIMUM VELOCITY ATTAINABLE BY G. 04160000 MXCRGH MAXIMUM EFFECTIVE CREW ON A G. 04170000 GHPHEN MAXIMUM PHASER ENERGY FOR 1 SHOT FOR A G. 04180000 DSPGH NEW SPEED FOR K OR G UNDER E CONTROL. 04190000 DGGH NEW BEARING FOR K OR G UNDER E CONTROL. 04200000 RPRGH REPAIR RATE FOR G UNDER E CONTROL WITH MAXIMUM 04210000 EFFECTIVE CREW ON BOARD. 04220000 NHELP USED TO INDICATE CALL TO HELP ROUTINE 04230000 NHELPS USED TO INDICATE CALL TO HELP ROUTINE 04240000 XHELP USED TO INDICATE CALL TO HELP ROUTINE 04250000 04260000 ************************************************************************04270000 ********** COMMON BLOCK - TBEAMS **********04280000 ************************************************************************04290000 VARIABLE INDEX(S) U S E 04300000 ************************************************************************04310000 04320000 IFGHTM # TROOPS ASSIGNED AT START. 04330000 ITRMEN (I) # TROOPS ON BOARD I-TH VESSEL. 1 = E, 04340000 2 - 10 = K1 - K9, 11 - 19 = R1 -R9, 20 = G. 04350000 JUP TYPE OF VESSEL BEAMING FROM. 04360000 JFROM # OF VESSEL BEAMING FROM. 04370000 IBMEN # OF MEN IN REQUEST TO BEAM. 04380000 JDOWN TYPE OF VESSEL BEAMING TO. 04390000 JTO # OF VESSEL BEAMING TO. 04400000 IBMENR # TROOPS AVAILABLE ON STARBASE. ALSO REFERENCED 04410000 AS ITRMEN(26). 04420000 SBMNR MAXIMUM # TROOPS A BASE CAN HAVE. 04430000 CREWR (I) CREW STRENGTH OF I-TH ROMULAN. 04440000 SCREWR MAXIMUM CREW STRENGTH OF A ROMULAN. 04450000 CREWK MAXIMUM CREW STRENGTH OF A KLINGON. 04460000 CODDS FIGHTING ABILITY OF E TROOPS VS K CREW. 04470000 DODDS FIGHTING ABILITY OF K CREW VE E TROOPS. 04480000 EODDS FIGHTING ABILITY OF E TROOPS VS R CREW. 04490000 FODDS FIGHTING ABILITY OF R CREW VE E TROOPS. 04500000 04510000 ************************************************************************04520000 ********** COMMON BLOCK - TRNSFR **********04530000 ************************************************************************04540000 VARIABLE INDEX(S) U S E 04550000 ************************************************************************04560000 04570000 ICM LAST COMMAND ENTERED. 04580000 IDIR DIRECTION FOR PHASERS. 04590000 MTORPS # TORPS TO FIRE. 04600000 DTORP (I) BEARING FOR I-TH TORP TO BE FIRED. 04610000 IBTYP TYPE OF PULSIVE BEAMS TO USE. 04620000 IEVDR DIRECTION FOR EVASIVE OR EMERGENCY EVASIVE 04630000 MANEUVERS. 04640000 ADDFL POWER TO BE ADDED OR SUBTRACTED FROM DEFLECTORS.04650000 ITRSTP # STARMINUTES TO TRAVEL/WAIT. 04660000 KFROM # OF VESSEL TO TRANSPORT FROM. 04670000 MTO # OF VESSEL TO TRNSPORT TO. 04680000 LUP TYPE OF VESSEL ACTUALLY TRANSPORTING FROM. 04690000 LDOWN TYPE OF VESSEL ACTUALLY TRANSPORTING TO. 04700000 IFROM TYPE OF VESSEL TO TRANSPORT FROM. 04710000 ITO TYPE OF VESSEL TO TRANSPORT TO OR CO COMMUNICATE04720000 WITH. 04730000 JSCHM TYPE OF SHUTTLECRAFT ACTIVITY DESIRED. 04740000 ISHSTR (I) LIST OF STAR SYSTEMS TO EXPLORE. 04750000 JDAM DAMAGE CONTROL REQUEST. 04760000 IPROB2 (I) LIST OF DESIRED CREW REPAIR ASSIGNMENTS. 04770000 NGHTFP # TIMES G IS TO FIRE PHASERS. 04780000 04790000 ************************************************************************04800000 ********** COMMON BLOCK - ZEROS **********04810000 ************************************************************************04820000 VARIABLE INDEX(S) U S E 04830000 ************************************************************************04840000 04850000 DVWP0 INITIAL VALUE FOR WARP DRIVE ACCELERATION. 04860000 EWRP0 INITIAL VALUE FOR WARP DRIVE ENERGY USAGE. 04870000 DISTP0 INITIAL VALUE FOR PHASER UNIT EFFECTIVENESS 04880000 DISTANCE. 04890000 IETOF0 INITIAL VALUE FOR ENTERPRISE TORPEDO RATE OF 04900000 FIRE (# PER STARMINUTE). 04910000 DISTG0 INITIAL VALUE FOR PULSIVE BEAMS UNIT 04920000 EFFECTIVENESS DISTANCE. 04930000 CODDS0 INITIAL VALUE FOR TROOP FIGHTING CAPABILITY 04940000 AGAINST KLINGONS. 04950000 EODDS0 INITIAL VALUE FOR TROOP FIGHTING CAPABILITY 04960000 AGAINST ROMULAMS. 04970000 IDAMR0 INITIAL VALUE FOR TRANSPORT RATE (# MEN PER 04980000 STARMINUTE). 04990000 PJAM0 INITIAL VALUE FOR PROBABILITY THAT 05000000 COMMUNICATIONS WILL BE JAMMED. 05010000 ETVEL0 INITIAL VALUE FOR E PHOTON TORPEDO VELOCITY. 05020000 SHLDF0 INITIAL VALUE FOR SHIELD EFFECTIVENESS. 05030000 TRNRG0 INITIAL VALUE FOR TRANSPORTER ENERGY 05040000 UTILIZATION. 05050000 05060000 ************************************************************************05070000 >