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