home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
MFMP110A.ZIP
/
SCREEN.ITF
< prev
next >
Wrap
Text File
|
1992-03-10
|
428b
|
22 lines
(*#module(turbo_comp=>off)*)
Interface Unit Screen;
IMPORT
TURBOCRT,
TURBODOS,
TURBOSYS
;
Type
ReDirectToType = (Console,ComPort1,ComPort2,StandardIO);
Var
ReDirectTo : ReDirectToType;
Function GetInput : byte;
Procedure NewTextColor(NewColor : Byte);
Procedure NewTextBackground(NewColor : Byte);
Procedure AnsiClearScreen;
Procedure AnsiClearToEOL;
Procedure AnsiGotoXY(X, Y : Byte);
END.