paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 2000-12-09 13:31:53 +00:00
parent 14bea089c5
commit 99ee514c0b
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/webtbs/tw1228.pp Normal file
View File

@ -0,0 +1,21 @@
{ %INTERACTIVE }
{ Source provided for Free Pascal Bug Report 1228 }
{ Submitted by "Rich Pasco" on 2000-11-10 }
{ e-mail: pasco@acm.org }
uses
CRT;
var
k: char;
begin
WriteLn('Type a few words. Hit Enter to quit:');
repeat
delay(400);
k := ReadKey;
if k=#0 then Readkey (* discard second half of function keys *)
else write(K) (* but echo ASCII to screen *)
until k=#$0D; (* terminate with ENTER key *)
end.