blob: 98c3103820dedc81e2000baf6943fef05b779af4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Program Example2;
uses Crt;
{ Program to demonstrate the KeyPressed function. }
begin
WriteLn('Waiting until a key is pressed');
repeat
until KeyPressed;
{ The key is not Read,
so it should also be outputted at the commandline}
end.
|
