Definitions of module Display; (** OBERON PROCEDURES **) PROCEDURE ClrScr (); PROCEDURE CursorOff (); PROCEDURE CursorOn (); PROCEDURE EditStr (VAR aString:ARRAY OF CHAR;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE FlushKeyBuffer (); PROCEDURE GetBackColor (VAR red:INTEGER;VAR green:INTEGER;VAR blue:INTEGER); PROCEDURE GetCharXY (s:INTEGER;z:INTEGER):CHAR; PROCEDURE GetForeColor (VAR red:INTEGER;VAR green:INTEGER;VAR blue:INTEGER); PROCEDURE GetStrXY (s:INTEGER;z:INTEGER;n:INTEGER;VAR t:ARRAY OF CHAR); PROCEDURE GotoXY (s:INTEGER;z:INTEGER); PROCEDURE IsColorSupported ():BOOLEAN; PROCEDURE IsCursorOn ():BOOLEAN; PROCEDURE KeyPressed ():BOOLEAN; PROCEDURE ReadChar (VAR x:CHAR); PROCEDURE ReadInt (VAR x:INTEGER;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE ReadKey ():CHAR; PROCEDURE ReadLongInt (VAR x:LONGINT;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE ReadLongReal (VAR x:LONGREAL;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE ReadReal (VAR x:REAL;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE ReadStr (VAR aString:ARRAY OF CHAR;maxLen:INTEGER;VAR resCode:CHAR); PROCEDURE SetBackColor (red:INTEGER;green:INTEGER;blue:INTEGER); PROCEDURE SetForeColor (red:INTEGER;green:INTEGER;blue:INTEGER); PROCEDURE SetWindowTitle (t:ARRAY OF CHAR); PROCEDURE TerminalBell (); PROCEDURE WhereX ():INTEGER; PROCEDURE WhereY ():INTEGER; PROCEDURE WriteChar (x:CHAR); PROCEDURE WriteCharXY (s:INTEGER;z:INTEGER;x:CHAR); PROCEDURE WriteInt (x:LONGINT;len:INTEGER); PROCEDURE WriteIntXY (s:INTEGER;z:INTEGER;x:LONGINT;len:INTEGER); PROCEDURE WriteLn (); PROCEDURE WriteReal (x:LONGREAL;len:INTEGER); PROCEDURE WriteRealXY (s:INTEGER;z:INTEGER;x:LONGREAL;len:INTEGER); PROCEDURE WriteSpaces (n:INTEGER); PROCEDURE WriteSpacesXY (s:INTEGER;z:INTEGER;n:INTEGER); PROCEDURE WriteStr (t:ARRAY OF CHAR); PROCEDURE WriteStrXY (s:INTEGER;z:INTEGER;t:ARRAY OF CHAR); END Display.