blob: c33cace828d764c5adc3f79dd5e5cdbe183d7ee8 (
plain)
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
|
Program Example4;
{ Program to demonstrate the GetCapabilities function. }
Uses video;
Var
W: Word;
Procedure TestCap(Cap: Word; Msg : String);
begin
Write(Msg,' : ');
If (W and Cap=Cap) then
Writeln('Yes')
else
Writeln('No');
end;
begin
W:=GetCapabilities;
Writeln('Video driver supports following functionality');
TestCap(cpUnderLine,'Underlined characters');
TestCap(cpBlink,'Blinking characters');
TestCap(cpColor,'Color characters');
TestCap(cpChangeFont,'Changing font');
TestCap(cpChangeMode,'Changing video mode');
TestCap(cpChangeCursor,'Changing cursor shape');
end.
|