home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ober1096.zip
/
libsrc
/
terminal.obe
< prev
next >
Wrap
Text File
|
1995-04-04
|
975b
|
35 lines
(*===============================================================*)
(* Library Module for Gardens Point Oberon *)
(* Interface to Gardens Point Modula Library Module *)
(*===============================================================*)
FOREIGN MODULE Terminal;
IS IN "terminal.o";
IMPORT GPMRTS;
(* output always goes to the UNIX std output *)
(* input always comes from the UNIX std input *)
PROCEDURE WriteString*(str : ARRAY OF CHAR);
PROCEDURE WriteLn*;
PROCEDURE WriteCard*(c : INTEGER; width : INTEGER);
PROCEDURE Write*(ch : CHAR);
PROCEDURE Read*(VAR ch : CHAR);
PROCEDURE EofIn*() : BOOLEAN; (** returns "input ended" *)
PROCEDURE EofOut*(); (** closes stdout stream *)
PROCEDURE GetKeyStroke*(VAR ch : CHAR);
(** gets keystroke without waiting for <EOL>, does not echo the character,
there is no erase and kill processing. Restores tty mode after reading
each character in *)
END Terminal.