BEGIN COMMON
      COMMON /LEDFOR/ ENERGY(8),SHIELD(8),XCORD(8),YCORD(8),TORPS(8),
     +        SCAN(8),PHA(8),I1,I2,HYPER(8),ISENT(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)
      REAL LAUNCH
      INTEGER SCAN,WHOM,CREW,HYPER,TORPS
      LOGICAL*1 THRU,XSHIP,CLOAK
      BYTE UNIV,MESSAG
      ENDTEXT