Uses Crt;
Var A,B:Byte;
Begin
Writeln('--------------------------------------------------------');
A:=0;
Repeat
While KeyPressed do ReadKey;
B:=A;
A:=Port[$60];
If A<>B then Write(A, ' ; ');
Until A=1;
End.