0  INDENT= 4   WARN= OFF                                                                     PAGE  1
   KEEP= ON    SELECT= GO                                                                           
   PUNCH= OFF  LABEL= 10000                                                                04-DEC-79
   INLIST= ON  C1= P                                                                        11:41:07
0  LINE  LEVEL  C1                                                                                  
     1     0        C
     2     0        C       SHARED GLOBAL COMMON BLOCK FOR MULTITREK
     3     0        C
     4     0              BLOCK DATA
     5     0              TEXT COMMON
     6     0              BEGIN COMMON
     7     0              COMMON /LEDFOR/ ENERGY(8),SHIELD(8),XCORD(8),YCORD(8),TORPS(8),
     8     0             +        SCAN(8),PHA(8),I1,I2,HYPER(8),ISENT(8,10),
     9     0             +        XPOD(8),YPOD(8),DPOD(8),IPOD(8),WPOD(8),
    10     0             +        XHOM(8,4),YHOM(8,4),WHOM(8,4),NHOM(8),
    11     0             +        SCORE(8),CREW(8),DIR(8),WARP(8),LAUNCH(8),UNIV(100,100),
    12     0             +        MESSAG(480),THRU,XSHIP(8),CLOAK(8)
    13     0              REAL LAUNCH
    14     0              INTEGER SCAN,WHOM,CREW,HYPER,TORPS
    15     0              LOGICAL*1 THRU,XSHIP,CLOAK
    16     0              BYTE UNIV,MESSAG
    17     0              ENDTEXT
    18     0              END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
0