PROGRAM chkmem;
  { Michael A. Covington, 1991 }
  { Reports amount of memory free. }
USES
  WinTypes, WinProcs;
VAR
  s: String;
BEGIN
  Str(GetFreeSpace(0),s);
  s := s + ' bytes free'#0;
  MessageBox(GetActiveWindow,addr(s[1]),'Memory Check',0)
END.