$ extract /check extract.src -
   .pas/keep,.msg,.cld
]msj EXTRACT.MSJ
] EXTRACT.MSG
$ message mcv:facilities,sys$disk:[]extract/obj=extract.msj
]message message.pen
] msj
$ msgpas extract.msj/pascal=message
$ pascal message/noobj/env
]clj EXTRACT.CLJ
] EXTRACT.CLD
$ set command/obj=.clj extract
]obj EXTRACT.OBJ
] message EXTRACT.PAS
$ pascal/nolist extract
]exe MCV:EXTRACT.EXE
] msj clj obj
$ link/nomap/notraceback/exe=mcv: extract,.msj,.clj,mcv:mcvlib/lib
]
$ purge build.com,extract.msg,.msj,.cld,.clj,.pas,.obj,mcv:.exe