Modula-2 || Compiler & Tools || Library || Search Engine
VAR Done: BOOLEAN; VAR termCH: CHAR;
PROCEDURE WinReadInt(win: Window; VAR int: INTEGER); PROCEDURE WinWriteInt(win: Window; int: INTEGER; w: CARDINAL); PROCEDURE WinReadCard(win: Window; VAR card: CARDINAL); PROCEDURE WinWriteCard(win: Window; card: CARDINAL; w: CARDINAL); PROCEDURE WinReadString(win: Window; VAR str: ARRAY OF CHAR); PROCEDURE WinReadLine(win: Window; VAR str: ARRAY OF CHAR); PROCEDURE WinWriteString(win: Window; str: ARRAY OF CHAR); PROCEDURE WinWriteLn(win: Window);
WinReadString, WinReadInt, and WinReadCard skip white space which cannot be edited using back spaces. WinReadLine reads a complete line (terminated by newline) without skipping. Reading is stopped if the given character array is filled (WinReadString and WinReadLine) or a delimiting character is typed (returned in termCH).
Modula-2 || Compiler & Tools || Library || Search Engine