poly:
    procedure options(main);

    /* evaluate polynomial */

    %replace
        true by '1'b;
    dcl
        (x,y,z) fixed decimal(15,4);

        do while(true);
        put skip(2) list('Type x,y,z: ');
        get list(x,y,z);

        if x = 0 & y = 0 & z = 0 then
            stop;

        put skip list('       2');
        put skip list('      x  + 2y + z =',p(x,y,z));
        end;

    p:
        proc (x,y,z) returns (fixed decimal(15,4));
        dcl
            (x,y,z) fixed decimal(15,4);
       return (x * x + 2 * y + z);
       end p;

    end poly;
