import "io"
import "heap"

let start() be
{ let size_needed, addresses;
  init();
  size_needed := $memory_available(nil, 0);
  addresses := newvec(size_needed);
  $memory_available(addresses, size_needed);   

  out("these areas of memory exist:\n");
  for i = 2 to size_needed - 1 by 2 do
    out("  %d: 0x%08X to 0x%08X\n", i, addresses ! i, addresses ! (i + 1));
  out("this program is occupying 0x%08X to 0x%08X\n", addresses ! 0, addresses ! 1); }