35 lines
842 B
Plaintext
35 lines
842 B
Plaintext
(* Version 1.10, Nov 1984 *)
|
||
DEFINITION MODULE Display;
|
||
(*
|
||
Low-level Console Output
|
||
[Private module of the Modula-2 system]
|
||
|
||
Derived from the Lilith Modula-2 system developed by the
|
||
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
||
*)
|
||
|
||
|
||
EXPORT QUALIFIED Write;
|
||
|
||
|
||
PROCEDURE Write (ch: CHAR);
|
||
(*
|
||
- Display a character on the console.
|
||
|
||
in: ch character to be displayed.
|
||
|
||
The following codes are interpreted:
|
||
|
||
ASCII.EOL (36C) = go to beginning of next line
|
||
ASCII.ff (14C) = clear screen and set cursor home
|
||
ASCII.del (177C) = erase the last character on the left
|
||
ASCII.bs (10C) = move 1 character to the left
|
||
ASCII.cr (15C) = go to beginning of current line
|
||
ASCII.lf (12C) = move 1 line down, same column
|
||
|
||
Write uses direct console I/O.
|
||
*)
|
||
|
||
|
||
END Display.
|
||
|