BLOCK DATA 
 
      INTEGER  LRET, OFFSET, LINEX, LTIME, LN 
      INTEGER  LINE (40) 
      INTEGER  INDXFL, LX, TABNR, TABX, LMODE 
      LOGICAL  LENTER 
      COMMON   /LCOM/   LRET, OFFSET, LINEX, LTIME, LN 
      COMMON   /LCOM/   LINE 
      COMMON   /LCOM/   INDXFL, LX, TABNR, TABX, LMODE 
      COMMON  /LCOM/   LENTER 
      DATA  LINE  /40*8224/ 
      DATA  OFFSET   / 0/ 
      DATA  LENTER   / .FALSE. / 
      END