$ set verify
$ if f$search("hispmt.cob") .nes. "" then delete hispmt.cob.*
$ libr/extr=(EDLINE,LEDPMT,LOGEND,LOGPMT,PLOG00,PLOG01,PLOG03,PLOG04)/outp=hispmt.cob rlib.olb
$ libr/extr=(PLOG06,PLOG07,PLOG08,PLOG09,PLOG10,PLOG11,PLOG12,PLOG13)/outp=t.o rlib.olb
$ appe t.o hispmt.cob
$ delete t.o.*
$ libr/extr=(PLOG14,PLOG15,PLOG16,PLOG17,PLOG18,PLOG19,PLOG20,PLOG21)/outp=t.o rlib.olb
$ appe t.o hispmt.cob
$ delete t.o.*
$ libr/extr=(PLOG22,PLOG23)/outp=t.o rlib.olb
$ appe t.o hispmt.cob
$ delete t.o.*