$ set verify
$ if f$search("directory.cob") .nes. "" then delete directory.cob.*
$ libr/extr=(AUXFMT,CLOSDR,DECNFO,DIRECTORY,DIR_INIT,FMTUIC,GDRAUX,GDRPRM)/outp=directory.cob rlib.olb
$ libr/extr=(OPENDR,PR_INSTAL,PR_LOOKUP,RESUIC,SRTTIM)/outp=t.o rlib.olb
$ appe t.o directory.cob
$ delete t.o.*