{ XXXXXXXXXXXX FAST SCREEN FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }


  function  at(f, b: byte): byte;
  procedure __scn(col, row, attr: byte; st: str80);
  procedure __vid(col, row:       byte; st: str80);
  procedure changeattr(col,row,attr: byte; number: word);
  function  get_video_mode: byte;

  { extended functions, just like in eco_vid, but for small use }
  procedure __attrib(x1, y1, x2, y2, f, b: byte);
  procedure __bandwin(del: boolean; x1,y1,x2,y2,f,b,bt: byte);
  procedure __betwscn(x1, x2, y, f, b: byte; st: string);
  procedure __boxscn(x1,y1,x2,y2,boxtype,fore,back : byte);
  procedure __clrscn(x1, y1, x2, y2, f, b: byte; c: char);
  procedure __cls;
  procedure __copyscn(x1, y1, x2, y2, x, y: byte);

  function __retdvscn(
    var dvmode    : byte;
    var dvcols    : word;
    var dvrows    : word;
    var dbactpage : byte;
    var dvdispage : byte
  ): byte;

  procedure __vert(x, y, f, b: byte; s: string);
  procedure __write(col, row, f, b: byte; st: str80);

  procedure __resscn(sc: _scnimageptr);
  procedure __savscn(sc: _scnimageptr);
  function  __barchoice(x,x1,y,f,b,h : byte; st: string): byte;