t_id
889
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022241346 | 1027299 | False | True | Skipping test because it is interactive |
Record count: 1
{ %INTERACTIVE } program testvideo; uses video,keyboard,{vidutil}tu2002; Var i : longint; k : TkeyEvent; begin InitVideo; InitKeyboard; For I:=1 to 10 do TextOut(i,i, 'Press any key to clear screen'); UpdateScreen(false); K:=GetKeyEvent; ClearScreen; TextOut(1,1,'Cleared screen. Press any key to end'); UpdateScreen(true); K:=GetKeyEvent; DoneKeyBoard; DoneVideo; end.