EGAVGASystem


Purpose   Indicates if the system is equipped with an EGA or VGA display.

Decln.    EGAVGASystem:boolean

Returns   Boolean

Remarks   Returns true if the system is equipped with an EGA or VGA card
          and monitor.

Example

BEGIN
    IF EGAVGASYSTEM THEN
       SETCONDENSEDLINES
    ELSE
       FWRITELN('CANNOT DISPLAY MORE LINES - THE SYSTEM IS TOO CHEAP!');
END;