EDIT BSCBASE13,OPTBASE
(M/!?/D1)1000
E
PARM NOARRAY,NOCHECK
IMP OPTBASE,OPTOBJ,.LP
PARM OPT
IMP FCONVS,FCOBJ,.LP
PARM
LINK
OPTOBJ
ERCS04.OMFLOADY
FCOBJ
.END
BASIC
PERMIT BASIC
CHERISH BASIC
DESTROY OPTOBJ,FCOBJ