#     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,TDRAIN,
              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),TRBEAM(8),
              SCORE(8),CREW(8),DIR(8),WARP(8),LAUNCH(8),
	      UPRATE,UNIV(100,100),
              MESSAG(480),THRU,XSHIP(8),CLOAK(8),NET(8),BHOLE,EMPTY
      REAL LAUNCH,NDRAIN
      INTEGER SCAN,WHOM,CREW,HYPER,TORPS,TRBEAM,UPRATE
      LOGICAL*1 THRU,XSHIP,CLOAK, NET
# NOTE: BHOLE AND EMPTY ARE THE CHARACTERS FOR THE BLACK HOLE
#       AND EMPTY SPACE AND ARE SET IN MTREKINI.
      BYTE UNIV,MESSAG,BHOLE,EMPTY
#     END COMMON