type
  adaptertype = (
    none,mda,hercules,cga,egamono,egacolor,mcgamono,mcgacolor,
    vgamono,vgacolor
  );


var
  checksnow          : boolean;     {for snow on cga}
  currenttextmode    : word;        {current video text mode}

  videopage          : byte;        {video page number}
  videocard          : adaptertype; {video kaart}
  maxrows            : byte;        {current max number of colums and lines}
  maxcols            : byte;
  videoofs           : word;        {offset video memory}
  videoseg           : word;        {start video memory}
  videoptr           : pointer absolute videoofs;
  startupmode        : word;        {videomode at startup time}
  startupcursorsize  : word;        {cursor size at startup time}

  procedure initdetect; {will fill all vars with rigth values}

  function  basescreen : word;

  function  systemid : byte; {returns system id}

  function  getvideopage : byte;
  procedure setvideopage(page : byte);

  function  getvideomode : word;
  procedure settextmode(mode : integer);

  function colormonitor : boolean;

  (* cursor manipulation *)
  function  getcursorshape : word;
  procedure setcursorshape(scanlines : word);

  (* desqview support *)
  const in_dv : boolean = false;

  function  dv_get_version : word;
  function  dv_get_video_buffer(videoseg : word) : word;
  procedure dv_pause;
  procedure dv_begin_critical;
  procedure dv_end_critical;