{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.}

{$I kavail.lib}
begin
  WriteLn('You have ',K_available,'K of memory available at this moment.');
end.