mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-29 08:29:18 +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.
|