home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
DOORDR50.ZIP
/
UNITINTR.ARJ
/
DDANSI.INT
< prev
next >
Wrap
Text File
|
1992-02-02
|
2KB
|
35 lines
unit ddansi;
interface
uses dos, crt;
{----------------------------------------------------------------------------}
{ Ansi screen emulation routines }
{ By Scott Baker }
{ Revised By Derrick Parkhurst
{----------------------------------------------------------------------------}
{ }
{ Purpose: to execute ansi escape sequences locally. This includes changing }
{ color, moving the cursor, setting high/low intensity, setting }
{ blinking, and playing music. }
{ }
{ Remarks: These routines use a few global variables which are defined }
{ below. So far, only ESC m, J, f, C, and ^N are supported by these }
{ routines. I hope to include more in the future. }
{ }
{ Routines: Here is a listing of the subroutines: }
{ }
{ change_color(x): Change to ansi color code X. }
{ Eval_string(s): Evaluate/execute ansi string }
{ ansi_write(ch): Write a character with ansi checking }
{ }
{----------------------------------------------------------------------------}
var
escape,blink,high,norm,any,any2,fflag,gflag: boolean;
ansi_string: string;
procedure ansi_write(ch: char);
Procedure ansi_write_str(var s: string);