1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
{ %INTERACTIVE }
{
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 disappear.');
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 (18,13); clreol;
writeln ('end.');
readkey;
end.
|
