DEFINITION MODULE VIS500VDU;

(* Author:         Andrew Trevorrow
   Implementation: University of Hamburg Modula-2 under VAX/VMS version 4
   Date Started:   September, 1984

   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.

   Revised:
   February, 1985
 - VIS550 uses some VIS500 routines.
   June, 1985
 - Coordinate pairs now shown as (h,v) instead of (v,h) to
   be closer to (x,y) Cartesian coordinates.  Parameter order
   in some routines has changed to reflect this.
*)

PROCEDURE VIS500ShowChar (screenh, screenv : CARDINAL; ch : CHAR);
PROCEDURE VIS500ShowRectangle (screenh, screenv, wd, ht : CARDINAL; ch : CHAR);
PROCEDURE InitVIS500;

END VIS500VDU.
