code 30005;
integer procedure INTCAP;
INTCAP:= 2**48-2;
        eop