language-Modula2-0.1: examples/Modula-2_Libraries/andrea-m2/lib/eth-hamburg/memorysta.def

DEFINITION MODULE MemoryStatus;

(* Return some information about memory use *)
(* J. Andrea, Sept.4/92 *)
(* This code may be freely used and distributed, it may not be sold. *)

EXPORT QUALIFIED   Used, Available;


PROCEDURE Used() :CARDINAL;
(* return the number of bytes of memory that have been used up *)

PROCEDURE Available() :CARDINAL;
(* return the number of bytes of memory that are still available *)


END MemoryStatus.