var
  exitcode       :    word;
  doserror       : integer;
  _dosdrv        : integer;
  _dosdrvchar    :    char;
  _doscurpath    : pathstr;
  _dosdiscfree,
  _dosdiscsize   : longint;

  lastkey        :    char;
  lastscan       :    byte;

  logheader      : array[1..11] of string[62];
  error,
  yr, mo, da     : word;
  i              : byte;

  _hidemouse     : byte;
  baseofscreen,
  vseg, vofs,
  rows, cols,
  _curcolumns,                      { number of screen columns       }
  _currows       : word;            { number of screen rows          }

  _scnloc         : _scnimageptr;    { screen adapter memory location }
  _curmonitor     : _monitortype;    { monitor attached to _curdevice }
  _curmode        : byte;            { current video display mode     }
  _curdevice      : byte;            { _mono or _color device         }
  _maxdisplaypage : byte;            { maximum display page number    }
  _curdisplaypage : byte;            { current video display page     }
  _curactivepage  : byte;            { current video active page      }
  _monoadapter    : byte;            { monochrome adapter             }
  _coloradapter   : byte;            { color/graphics adapter         }
  _egaadapter     : byte;            { ega adapter                    }
  _hercadapter    : byte;            { hercules mono graphics card    }
  _vgaadapter     : byte;            { ps/2 video graphics array      }
  _mcgaadapter    : byte;            { ps/2 model 30 adapter          }
  _scrolltab      : word;            { spaces to skip for tab scroll  }
  _tabincr        : word;            { tab increment for _txbufscn    }
  _bufindent      : word;            { left margin for _txbufscn      }

  {scnstate_        : scnstat_;    }  { bios video save information    }
  {availcolormodes_ : videomodes_; }  { modes available on color device}
  {availmonomodes_  : videomodes_; }  { modes available on mono device }
  {availcolorrows_  : legalrows_;  }  { rows available on color device }
  {availmonorows_   : legalrows_;  }  { rows available on mono device  }
  {dualdisplay_     : boolean;     }  { two adapters present           }
  egamonitor_       : _monitortype;  { monitor attached: ega          }
  analogmonitor_    : _monitortype;  { monitor attached: vga/mcga     }
  egamemory_        : word;          { 64, 128, 192, or 256 (k)       }
  maxscanline_      : byte;          { current character set size     }

  scn1, scn2,
  scn3, scn4        : _scnimageptr;