3
{ Program to demonstrate the GetCapabilities function. }
10
Procedure TestCap(Cap: Word; Msg : String);
14
If (W and Cap=Cap) then
22
Writeln('Video driver supports following functionality');
23
TestCap(cpUnderLine,'Underlined characters');
24
TestCap(cpBlink,'Blinking characters');
25
TestCap(cpColor,'Color characters');
26
TestCap(cpChangeFont,'Changing font');
27
TestCap(cpChangeMode,'Changing video mode');
28
TestCap(cpChangeCursor,'Changing cursor shape');