C C SHARED GLOBAL COMMON BLOCK FOR MULTITREK C BLOCK DATA C TEXT COMMON COMMON /LEDFOR/ ENERGY(8),SHIELD(8),XCORD(8),YCORD(8),TORPS(8), $ PHA(8),I1,I2,HYPER(8),ISENT(8,10), $ XPOD(8),YPOD(8),DPOD(8),IPOD(8), $ SCORE(8),CREW(8),DIR(8),WARP(8),LAUNCH(8),UNIV(100,100), $ MESSAG(480),THRU,XSHIP(8),CLOAK(8) REAL LAUNCH INTEGER CREW,HYPER,TORPS LOGICAL*1 XSHIP,CLOAK BYTE THRU,UNIV,MESSAG C END TEXT END