display total memory available

~~~
EOM n:put
~~~

display unused memory

~~~
EOM here - n:put
~~~

display next free address

~~~
here n:put
~~~

allocate 1000 cells

~~~
#1000 allot
~~~

free 500 cells

~~~
#-500 allot
~~~