home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VIDPOP5.ZIP / VIDPOP.HED < prev    next >
Encoding:
Text File  |  1988-05-25  |  1.2 KB  |  33 lines
  1. UNIT vidpop;
  2.  
  3. {$R-}
  4.  
  5. INTERFACE  { public area }
  6.  
  7.   USES dos,crt;
  8.  
  9.   TYPE String8 = String[8];
  10.   VAR  ScreenFound : Boolean;
  11.  
  12.   PROCEDURE PopScreen(DataPointer : Pointer);
  13.   PROCEDURE OpenLibrary(which : Byte; NewFileName : String; stayopen : Boolean);
  14.   PROCEDURE CloseLibrary(which : Byte);
  15.   PROCEDURE PopLib(which : Byte; TargetScreen : String8);
  16.   PROCEDURE PopLibMem(Library : Pointer; TargetScreen : String8);
  17.   PROCEDURE DisplayPage(PagePtr : Pointer);
  18.   PROCEDURE FillPage(PagePtr : Pointer);
  19.   PROCEDURE Set_Position_To(col,row : Byte);
  20.   PROCEDURE Set_BW_On;
  21.   PROCEDURE Set_BW_Off;
  22.   PROCEDURE SET_STATUS_TOP;
  23.   PROCEDURE SET_STATUS_BOTTOM;
  24.   PROCEDURE SET_SNOWPROTECTION_ON;
  25.   PROCEDURE SET_SNOWPROTECTION_OFF;
  26.   FUNCTION  MemLibScreenName(Library : Pointer; number : Byte) : String8;
  27.   FUNCTION  LibScreenName(which, number : Byte) : String8;
  28.   FUNCTION  AbsWhereX : Byte; { returns cursor column position regardless of windows }
  29.   FUNCTION  AbsWhereY : Byte; { returns cursor row position regardless of windows }
  30.   FUNCTION  VideoMode : Byte; { returns numeric display mode  }
  31.   FUNCTION  GraphicsMode : Boolean;  { returns true IF current mode is one of the
  32.                                       various graphics modes }
  33.