program ReadNoEcho2(output);
var
  Character:            char;
  MyFile:               text;
begin
reset(MyFile,'#2:');                                {open to logical unit two}
repeat
  read(MyFile, Character);
  write(output,'You pressed ');
  if Character>=chr(32) then                             {printable character}
    write(output,'"',Character,'", which is ');
  writeln(output,'CHR(',ord(Character):1,').');
until false;                                 {press [STOP] to end the program}
end.
