##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-03/23:20-0400
##+
#
# &storage, current static, string and block memory usage
#
procedure main()
    storage()
    str := repl(&ascii, 1024)
    write("\nAfter string create")
    storage()
end

# Display current memory usages
procedure storage()
    store := [] ; every put(store, &storage)

    write("storage ", *store)
    write("---------")
    write("Static : ", store[1])
    write("String : ", store[2])
    write("Block  : ", store[3])
end