DEFINITION MODULE ansivdu;

(* Author:         Andrew Trevorrow
   Implementation: Modula-2 under VAX/UNIX 4.2 BSD
   Date Started:   June, 1986

   Description:
   InitANSI initializes the generic VDU parameters and routines described
   in VDUInterface with specific ANSI values.
*)

EXPORT QUALIFIED
   InitANSI, MoveAbs,
   ANSIStartText, ANSIMoveToTextLine, ANSIClearTextLine, ANSIClearScreen,
   ANSIStartGraphics, ANSILoadFont, ANSIShowChar, ANSIShowRectangle,
   ANSIResetVDU;

PROCEDURE InitANSI;
(* the following routines can be used by other VDUs *)
PROCEDURE MoveAbs            (row, col : CARDINAL);
PROCEDURE ANSIStartText;
PROCEDURE ANSIMoveToTextLine (line : CARDINAL);
PROCEDURE ANSIClearTextLine  (line : CARDINAL);
PROCEDURE ANSIClearScreen;
PROCEDURE ANSIStartGraphics;
PROCEDURE ANSILoadFont       (fontname : ARRAY OF CHAR;
                              fontsize : CARDINAL;
                              mag, hscale, vscale : REAL);
PROCEDURE ANSIShowChar       (screenh, screenv : CARDINAL; ch : CHAR);
PROCEDURE ANSIShowRectangle  (screenh, screenv, width, height : CARDINAL;
                              ch : CHAR);
PROCEDURE ANSIResetVDU;

END ansivdu.
