home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / ledfor.com < prev    next >
Text File  |  1990-04-02  |  486b  |  13 lines
  1.     COMMON /LEDFOR/I1,I2,COURSE,LAUNCH,SHIELD,SCORE,
  2.      $    ENERGY,XCORD,YCORD,XPOD,YPOD,IPOD,DPOD,ZX,ZY,ZW,
  3.      $    TORPS,TORDIR,TORLOC,IT,WARP,CDRAIN,HYPER,ACTIVE,
  4.      $    ISENT,PHA,ALIVE,CLOAK,TIM,THRU,UNIV
  5.  
  6.     REAL COURSE(8),LAUNCH(8),ENERGY(8),SHIELD(8),WARP(8),PHA(8)
  7.     REAL TORLOC(8,10,2),TORDIR(8,10),DPOD(8),XCORD(8),YCORD(8)
  8.     BYTE TIM(16),IT(8),HYPER(8),UNIV(100,100)
  9.     LOGICAL*1 ACTIVE(8),ALIVE(8),CLOAK(8)
  10.     BYTE ISENT(8,10),TORPS(8),IPOD(8)
  11.     REAL XPOD(8),YPOD(8)
  12.     INTEGER*4 SCORE(8)
  13.