35 lines
1.0 KiB
Plaintext
35 lines
1.0 KiB
Plaintext
DEFINITION MODULE SimpleTerm;
|
||
(* test implementation for release 3.0 *)
|
||
(* *)
|
||
(* AR, le 31.12.86 *)
|
||
|
||
(* All the procedures above use the standard console device from MS-DOS *)
|
||
(* and thus can be redirected as DOS allows it *)
|
||
|
||
EXPORT QUALIFIED
|
||
Read, KeyPressed, ReadAgain, ReadString,
|
||
Write, WriteString, WriteLn;
|
||
|
||
|
||
PROCEDURE WriteString( s : ARRAY OF CHAR );
|
||
(* Displays the string s on DOS standard output *)
|
||
|
||
PROCEDURE WriteLn;
|
||
(* Displays an end of line on DOS standard output *)
|
||
|
||
PROCEDURE Write( ch: CHAR );
|
||
(* Displays the character ch on DOS standard output *)
|
||
|
||
PROCEDURE Read( VAR ch: CHAR );
|
||
(* Reads a character from DOS standard input *)
|
||
|
||
PROCEDURE KeyPressed(): BOOLEAN;
|
||
(* Tests if any character is ready from DOS standard input *)
|
||
|
||
PROCEDURE ReadString( VAR s: ARRAY OF CHAR );
|
||
(* Gets a string from DOS standard input : ESC or RETURN ends the input *)
|
||
|
||
PROCEDURE ReadAgain;
|
||
|
||
END SimpleTerm.
|
||
|