code 30001;
integer procedure MBASE;
MBASE:= 2;
        eop