Uses Crt;
Var
      KNew, KOld : Byte;
Begin
Repeat
If KeyPressed then ReadKey;
KNew := Port[$60];
If KNew <> KOld then Writeln ( KNew );
KOld := KNew;
Until Port[$60]=1;
End.