mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-28 01:29:49 +00:00
15 lines
202 B
ObjectPascal
15 lines
202 B
ObjectPascal
|
program ExampleKeyboard;
|
||
|
|
|
||
|
|
var
|
||
|
|
Key: char;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
ShowText;
|
||
|
|
repeat
|
||
|
|
Write('Press a key. ');
|
||
|
|
Readln(Key);
|
||
|
|
Writeln('The ordinal value of this key is ', ord(Key), '.');
|
||
|
|
until ord(Key) = 22;
|
||
|
|
|
||
|
|
end.
|