t_id
782
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
451918920 | 936295 | False | True | Skipping test because it is interactive |
Record count: 1
{ %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.