"CODE" 30006;
"REAL" "PROCEDURE" PI;
PI:= 3.14159265358979;
        "EOP"