BLOCK DATA 
 
      INTEGER  LBUF (66) 
      INTEGER  LCOUNT 
      INTEGER  PGECNT 
      INTEGER  UHEAD (15) 
      INTEGER  CHEAD (8) 
      INTEGER ICLP09 
      COMMON   /PRT/    LBUF 
      COMMON   /PRT/    LCOUNT 
      COMMON   /PRT/    PGECNT 
      COMMON   /PRT/    UHEAD 
      COMMON   /PRT/    CHEAD 
      COMMON   /PRT/    ICLP09 
      DATA     LBUF     /66*8224/ 
      DATA     LCOUNT   /0/ 
      DATA     PGECNT   /0/ 
      DATA     UHEAD    /15*8224/ 
      DATA     CHEAD    /'MO','S ','LO','GO','S ','(2','.0','G)'/ 
      END