'HEAD'  MAKE LIBRARY BLOCKS
C     EDIT DATE   11JAN79  10:02
C     SOURCE FILE MAKLIBAJH.FS
C     AUTHOR      A. J. HOWARD
      'OUTFILE'   MAKLIBAJH.FR
      PROGRAM MAKLIB
      INTEGER     STFILE (16), ENFILE (16)
      INTEGER     LSTART, LSTOP, ERROR
      DATA        STFILE /'LIBSTRTZOB', 11*0/
      DATA        ENFILE /'LIBENDZOB ',   11*0/
      DATA        LSTART  /0/
      DATA        LSTOP   /0/
      CALL PCHAR  (LSTART, 1, 19)
      CALL PCHAR  (LSTOP,  1, 20)
P     CALL DEVICE (STFILE)
      CALL OPENN  (1, STFILE, ERROR)
      CALL WRSEQ  (1, LSTART, 2)
      CALL CLOSF  (1, ERROR)
P     CALL DEVICE (ENFILE)
      CALL OPENN  (1, ENFILE, ERROR)
      CALL WRSEQ  (1, LSTOP, 2)
      CALL CLOSF  (1, ERROR)
      STOP
      END