dos_compilers/Logitech Modula-2 v1.1/FILEMESS.DEF
2024-06-30 15:43:04 -07:00

27 lines
559 B
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

(* Version 1.10, Nov 1984 *)
DEFINITION MODULE FileMessage;
(*
Write file status/response to the terminal
*)
FROM FileSystem IMPORT Response;
EXPORT QUALIFIED WriteResponse;
PROCEDURE WriteResponse (r: Response);
(*
- Write a short description of a FileSystem response on
the terminal.
in: r the response from some FileSystem
operation.
The actual argument for 'r' is typically the field 'res'
of a variable of type 'File'. The printed message is up
to 32 characters long.
*)
END FileMessage.