package test0 is body
-- global variables only
    i : integer;
    j : integer;
    procedure testit is
    begin
        i := i+2;
        j := i;
        writeln("proc/testit: easy proc - only one level i =",i," j = ",j);
    end;
begin
    i := 0;
    writeln("i = ",i," (should be 0)");
    testit;
    writeln("i = ",i," (should be 2) ",j,"=j should be same as i");
    writeln("test0: All done!");
end;