BLOCK DATA 
 
      INTEGER  QUOTEX 
      INTEGER  CONTF 
      INTEGER  CONTRL 
      INTEGER  HEAD 
      INTEGER  EJECT 
      INTEGER  BLANK 
      INTEGER  SLASH 
      INTEGER  CARDC 
      INTEGER  FLINCT (8) 
      INTEGER  EOCC 
      INTEGER  ENDCRD (3) 
      INTEGER  RECORD (66) 
      INTEGER  RECPTR 
      INTEGER  SOURCE (150) 
      INTEGER  SRCEND 
      INTEGER  SLEN 
      INTEGER  TF (3) 
      COMMON   /SRCE/   QUOTEX 
      COMMON   /SRCE/   CONTF 
      COMMON   /SRCE/   CONTRL 
      COMMON   /SRCE/   HEAD 
      COMMON   /SRCE/   EJECT 
      COMMON   /SRCE/   BLANK 
      COMMON   /SRCE/   SLASH 
      COMMON   /SRCE/   CARDC 
      COMMON   /SRCE/   FLINCT 
      COMMON   /SRCE/   EOCC 
      COMMON   /SRCE/   ENDCRD 
      COMMON   /SRCE/   RECORD 
      COMMON   /SRCE/   RECPTR 
      COMMON   /SRCE/   SOURCE 
      COMMON   /SRCE/   SRCEND 
      COMMON   /SRCE/   SLEN 
      COMMON   /SRCE/   TF 
      DATA     QUOTEX   /0/ 
      DATA     CONTRL   /10023/ 
      DATA     HEAD     /'HE'/ 
      DATA     EJECT    /'EJ'/ 
      DATA     BLANK    /32/ 
      DATA     SLASH    /47/ 
      DATA     CARDC    /0/ 
      DATA     EOCC     /13/ 
      DATA     ENDCRD   /10023, 'EN','D '/ 
      DATA     SRCEND   /80/ 
      DATA     SLEN     /72/ 
      DATA     TF    /'TT', 'TT', 'FF'/ 
      END