{

              
            
               ͻ ͻ ͻ    ͻ ͻ
                    ˼ ͹ ͼ ͹     ͻ
                   ͼ          ͼ ͼ

  The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft).
  Color Averaging procedures are courtesy of Sean Price (Rude Dog Software).
}
{$I DEFINES.INC}
UNIT GUI_ANSI;

INTERFACE

PROCEDURE Display_ANSI(Ch : CHAR);
{^ Processes a character from an ANSI or ASCII text string.                    }
PROCEDURE Display_ANSIstr(S : STRING);
{^ Processes an entire ANSI or ASCII text string.                              }
PROCEDURE Goto_XY(X1,Y1 : BYTE);
{^ Equivalent to GotoXY in text mode.                                          }
PROCEDURE Clr_Scr;
{^ Equivalent to ClrScr in text mode.                                          }
PROCEDURE Clr_Eol;
{^ Equivalent to ClrEol in text mode.                                          }
PROCEDURE PlaceCursor;
{^ Plots a bogus cursor on the screen (for visual reference only).             }
PROCEDURE EraseCursor;
{^ Erases the bogus cursor.                                                    }
PROCEDURE ResetANSI;
{^ Resets all variables in this unit.                                          }

TYPE Ch_Array = ARRAY[1..80,1..25] OF CHAR; {ANSI screen character array.      }
TYPE Fg_Array = ARRAY[1..80,1..25] OF BYTE; {ANSI foreground color array.      }
TYPE Bg_Array = ARRAY[1..80,1..25] OF BYTE; {ANSI background color array.      }

VAR
  Where_X     : BYTE;    {Equivalent to WhereY in text mode.                   }
  Where_Y     : BYTE;    {Equivalent to WhereX in text mode.                   }
  ANSI_FG     : INTEGER; {Stores current foreground color.                     }
  ANSI_BG     : INTEGER; {Stores current background color.                     }
  CursorOn    : BOOLEAN; {Is the simulated ANSI cursor on?                     }
  HandleMouse : BOOLEAN; {Turn the mouse cursor on/off automatically? [Y/N]    }
  ChArray     : ^Ch_Array;
  FgArray     : ^Fg_Array;
  BgArray     : ^Bg_Array;

{}
