ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p3/tst/simple2.pcat

Text File | 2005-10-24 | 201b | 15 lines

program is
  var a := 10;
  var b := a + 10;
  procedure f(a: boolean) is
    var b := not a;
    begin
      write(a," ", b);
    end;
  var c := true;
  begin
    write(a," ", b);
    f(c);
  end;