code 30006;
real procedure PI;
PI:= 3.14159265358979;
        eop