sample004.ptuc

@defmacro N 100

program useless;

    type
        string = array of char;

    var i, k: integer;

    procedure nl();
    begin writeString('\n') end;

    (* This is a rather silly function *)
    procedure compute(n: integer; k:integer);
        var fac, p, j: integer;

        function cube(i: integer): integer;

        begin
            result := i * i * i;
            return
        end;

    begin
        fac := 1;
        j := (integer) (N - n) + cube(k);
        for p:=j downto 1 do fac:=p*fac;
        writeString("Computed (N-n)+k^3 = "); 
        writeInteger(j); nl()
    end;

    function promptForInteger(prompt: string) : integer;
    begin
        writeString(prompt);
        result := readInteger();
        writeString('You typed: ');
        writeInteger(result); 
        nl();
        return
    end;

(* Here you can see some useless lines.
** Just for testing the multi-line comments ...
*)

begin
    k := promptForInteger('Type a number: ');
    i := promptForInteger('Type another number: ');
    compute(k,i) (* Here you can see some dummy comments! *)
end.