t_id
258
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Skipping test because it is interactive | 50 | 100.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %INTERACTIVE } { $Id: tcrt.pp,v 1.1 2001/05/09 16:12:50 carl Exp $ Program to test CRT unit by Mark May. Only standard TP functions are tested (except WhereX, WhereY). } program tesicrt; uses crt; var i,j : longint; fil : text; c : char; begin {Window/AssignCrt/GotoXY} clrscr; writeln ('This should be on a clear screen...'); gotoxy (10,10); writeln ('(10,10) is the coordinate of this sentence'); window (10,11,70,22); writeln ('Window (10,11,70,22) executed.'); writeln ('Sending some output to a file, assigned to crt.'); assigncrt ( fil); rewrite (fil); writeln (fil,'This was written to the file, assigned to the crt.'); writeln (fil,'01234567890123456789012345678901234567890123456789012345678901234567890'); close (fil); writeln ('The above too, but this not any more'); write ('Press any key to continue'); c:=readkey; clrscr; writeln ('the small window should have been cleared.'); write ('Press any key to continue'); c:=readkey; {Colors/KeyPressed} window (1,1,80,25); clrscr; writeln ('Color testing :'); writeln; highvideo; write ('highlighted text'); normvideo; write (' normal text '); lowvideo; writeln ('And low text.'); writeln; writeln ('Color chart :'); for i:=black to lightgray do begin textbackground (i); textcolor (0); write ('backgr. : ',i:2,' '); for j:= black to white do begin textcolor (j); write (' ',j:2,' '); end; writeln; end; normvideo; writeln ('The same, with blinking foreground.'); for i:=black to lightgray do begin textbackground (i); textcolor (0); write ('backgr. : ',i:2,' '); for j:= black to white do begin textcolor (j+128); write (' ',j:2,' '); end; writeln; end; textcolor (white); textbackground (black); writeln; writeln ('press any key to continue'); repeat until keypressed; c:=readkey; {ClrEol/DelLine/InsLine} clrscr; writeln ('Testing some line functions :'); writeln ; writeln ('This line should become blank after you press enter'); writeln; writeln ('The following line should then become blank from column 10'); writeln ('12345678901234567890'); writeln; writeln ('This line should dissapear.'); writeln; writeln ('Between this line and the next, an empty line should appear.'); writeln ('This is the next line, above which the empty one should appear'); writeln; write ('Press any key to observe the predicted effects.'); readkey; gotoxy(1,3);clreol; gotoxy (10,6);clreol; gotoxy (1,8);delline; gotoxy (1,10); insline; gotoxy (17,13); clreol; writeln ('end.'); readkey; end.