' userblk
LET ub_code&=0
LET ub_parm&=1