$ set verify
$ if f$search("startup.cob") .nes. "" then delete startup.cob.*
$ libr/extr=(ADRFIL,ARGGEN,ASSIGN,CANT,CCTYPE,CHCOPY,CLOSE,CLOSEF)/outp=startup.cob rlib.olb
$ libr/extr=(CLOWER,CONCAT,COPYIT,CRE8AT,CREATE,CTOI,CUPPER,CVT_DTOP)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(DEFDIR,DELARG,DEVTYP,DIROUT,DSCBLD,ENDST,EQUAL,ERROR)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(EXITH,EXPLOG,EXPPTH,FCOPY,FDEL,FGENR8,FOLD,GENDIR)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(GETARG,GETCH,GETDCL,GETDIR,GETIMG,GETLIN,GETMSG,GETPNM)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(GETS,GETWRD,GTDDEV,GTDFLT,GTDPTH,GTFTOK,HOMDIR,HOSTNM)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(INDEXS,INDEXX,INITST,INSUB,ISATTY,ITOC,LENGTH,LSTCHR)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(MAILID,MAKARG,MKLOCL,MKPATH,NXTLUN,OPEN,OPENA,OPENF)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(OPENN,OPENP,OPENR,OPENS,OPENW,OUTSUB,PARSEF,PUTCH)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(PUTINT,PUTLIN,PUTLNL,PUTS,PUTSTR,QUERY,RABLST,REAL_DEVICE)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(REMARK,REMOVE,RESDEF,RES_TILDE,RGETCH,RPUTCH,SCOPY,SCRATF)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(SKIPBL,STCOPY,STRCMP,STRCPY,STR_HOST,TRAN1,TRNLOG,TYPE)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*
$ libr/extr=(UPPER)/outp=t.o rlib.olb
$ appe t.o startup.cob
$ delete t.o.*