#     COMMON
  PARAMETER  MAXSHP = 8, MAXHOM = 4, MAXTRP = 10
  COMMON /TORPE/ TLOCS(MAXSHP, MAXTRP, 2), TDIR(MAXSHP, MAXTRP), IT(MAXSHP)
  COMMON /TRKDAT/ ENERGY(MAXSHP), SHIELD(MAXSHP), 
    XCORD(MAXSHP), YCORD(MAXSHP), TORPS(MAXSHP),
    HOLX, HOLY, HOLW, CDRAIN, NDRAIN, TDRAIN,
    SCAN(MAXSHP), PHA(MAXSHP), I1, I2, HYPER(MAXSHP), ISENT(MAXSHP,10),
    XPOD(MAXSHP), YPOD(MAXSHP), DPOD(MAXSHP), IPODST(MAXSHP), WPOD(MAXSHP),
    XHOM(MAXSHP,MAXHOM), YHOM(MAXSHP,MAXHOM), WHOM(MAXSHP,MAXHOM), 
    NHOM(MAXSHP), TRBEAM(MAXSHP), SCORE(MAXSHP), CREW(MAXSHP),
    DIR(MAXSHP), WARP(MAXSHP), LAUNCH(MAXSHP), UNIV(100,100), MESSAG(480), 
    THRU, SHPACT(MAXSHP), CLOAK(MAXSHP), NET(MAXSHP),
    SHPNAM(10,MAXSHP)
  REAL       LAUNCH, NDRAIN
  INTEGER*2  SCAN, WHOM, CREW, HYPER, TORPS, TRBEAM
  LOGICAL*1  THRU, SHPACT, CLOAK,  NET
  BYTE       UNIV, MESSAG
  BYTE	     SHPNAM

# NOTE: BHOLE AND EMPTY ARE THE CHARACTERS FOR THE BLACK HOLE
#       AND EMPTY SPACE.
DEFINE(EMPTY,' ')
DEFINE(BHOLE,'#')

# END COMMON