
DEFINITION MODULE VT640VDU;

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

   Description:
   InitVT640 initializes the generic VDU parameters and routines described
   in VDUInterface with specific VT640 values.
   We also export some routines used to implement similar VDUs.
*)

  EXPORT QUALIFIED
         	InitVT640,
         	VT640MoveToTextLine, VT640ClearTextLine, VT640ClearScreen,
         	VT640ResetVDU;

  PROCEDURE VT640MoveToTextLine (line : CARDINAL);

  PROCEDURE VT640ClearTextLine (line : CARDINAL);

  PROCEDURE VT640ClearScreen;

  PROCEDURE VT640ResetVDU;

  PROCEDURE InitVT640;

END VT640VDU.
