Source position: videoh.inc line 19
type TVideoMode = record
Col: Word;
Row: Word;
Color: Boolean;
end;