##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: August, 2016 # Modified: 2017-01-08/02:55-0500 ##+ # # show initial allocations, create a string, reshow allocations # procedure main() allocated() s := repl(&letters, 1000) write("\nAfter string creation") allocated() end # Display current memory region allocations procedure allocated() local allocs allocs := [] ; every put(allocs, &allocated) write("&allocated elements ", *allocs) write("---------------------") write("Heap : ", allocs[1]) write("Static : ", allocs[2]) write("String : ", allocs[3]) write("Block : ", allocs[4]) end