C C SHARED GLOBAL COMMON BLOCK FOR MULTITREK C BLOCK DATA C TEXT COMMON COMMON/TORPE/TLOCS(6, 10, 2), TDIR(6, 10), IT(6) COMMON/LEDFOR/ENERGY(6), SHIELD(6), XCORD(6), YCORD(6), TORPS(6), *HX, HY, HW, CDRAIN, NDRAIN, TDRAIN, SCAN(6), PHA(6), I1, I2, HYPER *(6), ISENT(6, 10), XPOD(6), YPOD(6), DPOD(6), IPOD(6), WPOD(6), XH *OM(6, 4), YHOM(6, 4), WHOM(6, 4), NHOM(6), TRBEAM(6), SCORE(6), CR *EW(6), DIR(6), WARP(6), LAUNCH(6), UNIV(80, 80), TH *RU, XSHIP(6), CLOAK(6), NET(6), BHOLE, EMPTY REAL LAUNCH, NDRAIN INTEGER SCAN, WHOM, CREW, HYPER, TORPS, TRBEAM LOGICAL*1THRU, XSHIP, CLOAK, NET C NOTE: BHOLE AND EMPTY ARE THE CHARACTERS FOR THE BLACK HOLE C AND EMPTY SPACE AND ARE SET IN MTREKINI. BYTE UNIV, BHOLE, EMPTY C END COMMON END