$ SET NOON
$SET VERIFY
$ FORTRAN/NOF77/NODEBUG/NOI4/NOLIST/NOCHECK JULIAN.F40
$COPY [312316]PCCX.OLB *
$LIBR/REPL PCCX *.OBJ
$DEL *.OBJ;*
$LIBR/EXTR=*/OUT=PCCX PCCX
$LIBR/COMPRESS PCCX
$PUR
$PIP [312316]PCCX.OLB/UP=PCCX.OLB
$LINK/NOMAP/NOTRACE PCCX+DTR/OPT
$ DEL *.OBJ;*
$PUR
$SET NOVERIFY