home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / mfmp110a.arj / SCREEN.ITF < prev    next >
Encoding:
Text File  |  1992-03-10  |  428 b   |  22 lines
  1. (*#module(turbo_comp=>off)*)
  2. Interface Unit Screen;
  3.  
  4. IMPORT
  5.   TURBOCRT,
  6.   TURBODOS,
  7.   TURBOSYS
  8.   ;
  9.  
  10. Type
  11.   ReDirectToType = (Console,ComPort1,ComPort2,StandardIO);
  12. Var
  13.   ReDirectTo : ReDirectToType;
  14.  
  15. Function GetInput : byte;
  16. Procedure NewTextColor(NewColor : Byte);
  17. Procedure NewTextBackground(NewColor : Byte);
  18. Procedure AnsiClearScreen;
  19. Procedure AnsiClearToEOL;
  20. Procedure AnsiGotoXY(X, Y : Byte);
  21. END.
  22.