BLOCK DATA
    
      INTEGER     TEXT (27), LEFT (4), RIGHT (4)
      INTEGER ICLP01
      COMMON      /TEXTC/ TEXT, LEFT, RIGHT,ICLP01  
      DATA  TEXT  /'  ','  ','NO','UN',' =',' X','XX','X,',' D','AT','A 
     1','= ','XX','XX',', ','ZR','EL',' =',' X','XX','X,',' C','OD','E '
     1,'= ','XX','XX'/  
      DATA  LEFT  / 12, 25, 38, 51/ 
      DATA  RIGHT / 15, 28, 41, 54/ 
      END