Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/test.pas
There is 1 other file named test.pas in the archive. Click here to see a list.
program test(tty:#);
begin
while true
  do begin
  writeln(tty,ord(tty^));
  get(tty);
  end;
end.