ScreenOBJ  METHODS

  Remember to use the instabce SCREEN to write to the visible screen

  Instance Methods:
  constructor Init;
  destructor  Done;

  Screen Writing:
  procedure Write(Str:string);
  procedure WriteLn(Str:string);
  procedure WriteAT(X,Y,Attr:byte;Str:string);
  procedure SetHiMarker(M:char);
  procedure WriteHi(X,Y,AttrHi,Attr:byte;Str:string);
  procedure WriteCap(X,Y,AttrCap,Attr:byte;Str:string);
  procedure WriteClick(X,Y,Attr:byte;Str:string);
  procedure WriteCenter(Y,Attr:byte;Str:string);
  procedure WriteBetween(X1,X2,Y1,Attr:byte;Str:string);
  procedure WriteRight(X,Y,Attr:byte;Str:string):
  procedure WriteVert(X,Y,Attr:byte;Str:string);
  procedure WritePlain(X,Y:byte;Str:string);

  Screen Clearing:
  procedure Clear(Attr:byte;Ch:char);
  procedure PartClear(X1,Y1,X2,Y2,Attr:byte;Ch:char);
  procedure ClearText(X1,Y1,X2,Y2:byte);

  Attribute Changing:
  procedure Attrib(X1,Y1,X2,Y2,Attr:byte);

  Box & Line Drawing:
  procedure Box(X1,Y1,X2,Y2,attr,style:byte);
  procedure FillBox(X1,Y1,X2,Y2,attr,style:byte);
  procedure ShadFillBox(X1,Y1,X2,Y2,attr,style:byte);
  procedure TitledBox(X1,Y1,X2,Y2,Battr,Tattr,
                      Mattr,style:byte;Title:string);
  procedure HorizLine(X1,X2,Y,Attr,Style:byte);
  procedure VertLine(X,Y1,Y2,Attr,Style:byte);
  procedure SmartHorizLine(X1,X2,Y,Attr,Style:byte);
  procedure SmartVertLine(X,Y1,Y2,Attr,Style:byte);

  Screen Reading:
  function  ReadChar(X,Y:byte):char;
  function  ReadAttr(X,Y:byte):byte;
  function  ReadWord(X,Y:byte;varAttr:byte;varCh:char);
  function  ReadStr(X1,X2,Y:byte):string;

  Scroll Bar Drawing:
  procedure WriteHScrollBar(X1,X2,Y,Attr:byte;Current,Max:longint);
  procedure WriteVScrollBar(X,Y1,Y2,Attr:byte;Current,Max:longit);

  Block Manipulation:
  procedure Scroll(Way:tDirection;X1,Y1,X2,Y2:byte);
  procedure CopyScreenBlock(X1,Y1,X2,Y2,X,Y:byte);
  procedure MoveScreenBlock(X1,Y1,X2,Y2,X,Y:byte);

  Cursor Control:
  procedure GotoXY(X,Y:byte);
  function  WhereX:byte;
  function  WhereY:byte;
  procedure CursOff;
  procedure CursOn:
  procedure CursHalf;
  procedure CursFull;
  procedure CursReset;
  function  CharHeight:integer;
  procedure CursSize(T,B:byte);
  function  CursTop:byte;
  function  CursBot:byte;

  Window management:
  procedure SetWindow(X1,Y1,X2,Y2:byte);
  procedure ResetWindow;
  procedure WindowActive:boolean;
  procedure WindowOff:boolean;
  procedure WindowOn;
  procedure WindowCoords(varCoords:tByteCoords);
  procedure SetWinIgnore(On:boolean);

  Virtual Screens:
  procedure Create(Width,Depth,Attr:byte);
  procedure ScreenPtr:pointer;
  procedure Width:byte;
  procedure Depth:byte;
  procedure Exists:boolean;
  procedure Display;
  procedure SlideDisplay(Way:tDirection);
  procedure PartDisplay(X1,Y1,X2,Y2,X,Y:byte);
  procedure PartSlideDisplay(X1,Y1,X2,Y2:byte;Way:tDirection);