BLOCK DATA
    
      INTEGER     CHAR  
      INTEGER     CHMASK
      INTEGER     CR, LF
      INTEGER     CRLF  
      INTEGER     BLANK, PERIOD 
      INTEGER     BLANKS, DASHES, COLONS, SLASHS
      INTEGER     ACH, BCH, CCH, DCH, ECH, FCH  
      INTEGER     GCH, HCH, ICH, JCH, KCH, LCH  
      INTEGER     MCH, NCH, OCH, PCH, QCH, RCH  
      INTEGER     SCH, TCH, UCH, VCH, WCH, XCH  
      INTEGER     YCH, ZCH  
      INTEGER     LBRACE, RBRACE
      INTEGER     LBRACK, RBRACK
      INTEGER ICLP04
      COMMON      /CHARAC/ CHAR 
      COMMON      /CHARAC/ CHMASK   
      COMMON      /CHARAC/ CR, LF   
      COMMON      /CHARAC/ CRLF 
      COMMON      /CHARAC/ BLANK, PERIOD
      COMMON      /CHARAC/ BLANKS, DASHES, COLONS, SLASHS   
      COMMON      /CHARAC/ ACH, BCH, CCH, DCH, ECH, FCH 
      COMMON      /CHARAC/ GCH, HCH, ICH, JCH, KCH, LCH 
      COMMON      /CHARAC/ MCH, NCH, OCH, PCH, QCH, RCH 
      COMMON      /CHARAC/ SCH, TCH, UCH, VCH, WCH, XCH 
      COMMON      /CHARAC/ YCH, ZCH 
      COMMON      /CHARAC/ LBRACE, RBRACE   
      COMMON      /CHARAC/ LBRACK, RBRACK   
      COMMON      /CHARAC/ ICLP04   
      DATA     CHMASK /127/ 
      DATA     CR, LF /13, 10/  
      DATA     CRLF   /3338/
      DATA     BLANK  /32/,  PERIOD  /46/   
      DATA     BLANKS,DASHES,COLONS,SLASHS /8224,11565,14906,12079/ 
      DATA     ACH, BCH, CCH, DCH, ECH, FCH /65,66,67,68,69,70/ 
      DATA     GCH, HCH, ICH, JCH, KCH, LCH /71,72,73,74,75,76/ 
      DATA     MCH, NCH, OCH, PCH, QCH, RCH /77,78,79,80,81,82/ 
      DATA     SCH, TCH, UCH, VCH, WCH, XCH /83,84,85,86,87,88/ 
      DATA     YCH, ZCH                     /89,90/ 
      DATA     LBRACE, RBRACE /91, 93/  
      DATA     LBRACK, RBRACK /40, 41/  
      END