8 lines
128 B
ObjectPascal
8 lines
128 B
ObjectPascal
program cchangetest;
|
|
var c:char;
|
|
begin
|
|
repeat
|
|
writeln('cardchanged: ', cardchanged);
|
|
read(c);
|
|
until c = #27;
|
|
end.
|