DEFINITION MODULE vis500vdu;

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

   Description:
   InitVIS500 initializes the generic VDU parameters and routines described
   in VDUInterface with specific VIS500 values.
   We also export some VIS500 routines used in implementing similar VDUs.
*)

EXPORT QUALIFIED
   VIS500ShowChar, VIS500ShowRectangle, VIS500ResetVDU,
   InitVIS500;

PROCEDURE VIS500ShowChar      (screenh, screenv : CARDINAL; ch : CHAR);
PROCEDURE VIS500ShowRectangle (screenh, screenv,
                               width, height : CARDINAL; ch : CHAR);
PROCEDURE VIS500ResetVDU;
PROCEDURE InitVIS500;

END vis500vdu.
