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.
|
|||
|
|
|