-- test1 globals only - two level one procs
package test1 is body
    i,j : integer;
    procedure addone is
        begin
          i := i+1;
          j := i;
          writeln("addone/i= ",i, " addone/j= ",j);
          i := 33;
        end;
    procedure addtwo is
        begin 
          j := j+2;
	  writeln(" addtwo/ j = ",j," should be 3");
	end;
begin
    i := 0;
    writeln(" test1 for procedures:");
    addone;
    writeln(i," =i / main / should be 33");
    addtwo;
    writeln(j," =j / main / should be 3");
end;