code 30003;
real procedure DWARF;
DWARF:= 2**48*2**(-1022);
        eop