C C SHARED GLOBAL COMMON BLOCK FOR MULTITREK C BLOCK DATA C TEXT COMMON COMMON/TORPE/TLOCS(8, 10, 2), TDIR(8, 10), IT(8) COMMON/LEDFOR/ENERGY(8), SHIELD(8), XCORD(8), YCORD(8), TORPS(8), *HX, HY, HW, CDRAIN, NDRAIN, SCAN(8), PHA(8), I1, I2, HYPER(8), ISE *NT(8, 10), XPOD(8), YPOD(8), DPOD(8), IPOD(8), WPOD(8), XHOM(8, 4) *, YHOM(8, 4), WHOM(8, 4), NHOM(8), SCORE(8), CREW(8), DIR(8), WARP *(8), LAUNCH(8), UNIV(100, 100), MESSAG(480), THRU, XSHIP(8), CLOAK *(8), NET(8), BHOLE, EMPTY REAL LAUNCH, NDRAIN INTEGER SCAN, WHOM, CREW, HYPER, TORPS 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, MESSAG, BHOLE, EMPTY C END COMMON END