PROGRAM MAKLIB
      INTEGER     STFILE (16), ENFILE (16)  
      INTEGER     LSTART, LSTOP, ERROR  
      DATA        STFILE /'LI','BS','TR','TZ','OB', 11*0/   
      DATA        ENFILE /'LI','BE','ND','ZO','B ',   11*0/ 
      DATA        LSTART  /0/   
      DATA        LSTOP   /0/   
      CALL PCHAR  (LSTART, 1, 19)   
      CALL PCHAR  (LSTOP,  1, 20)   
      CALL OPENN  (1, STFILE, ERROR)
      CALL WRSEQ  (1, LSTART, 2)
      CALL CLOSF  (1, ERROR)
      CALL OPENN  (1, ENFILE, ERROR)
      CALL WRSEQ  (1, LSTOP, 2) 
      CALL CLOSF  (1, ERROR)
      STOP  
      END