unit System.Console.Video; {$DEFINE FPC_DOTTEDUNITS} {$i video.pp}