TP3/shell/tests/fixtures/t122_addr.pas

program address_test;
var X : integer;
    P : ^integer;
begin
  X := 17;
  P := Addr(X);
  writeln(P^);
  P^ := 23;
  writeln(X)
end.