$ > heap - display heap contents 7 DIM array%(10,1):array%()=1,2,3,4,5,6,7,8,9,10,11 astring$="hello" ( fred 2: <*pointer 1 Fadd%=P-69: P@ h0(add%,8);" ";: a%=add% add%+19: h0(?a%,2);" ";:: Z? 9; : a%=add% add%+19:" ";c(?a%);" ";:: dadd%=add%+20: add%>= nA" PAGE =&";~ ;" LOMEM =&";~ ;" END =&";~ xL"^astring$=&";~^astring$;" ^add% =&";~^add% ;" ^a% =&";~^add% K"^FNho() =&";~^h0() ;" ^FNhc()=&";~^c();" ^PROCfred=&";~^fred  #ݤh0(A%,N%)="0000000"+~A%,N%) 3ݤc(A%):A%=A%127: A%=127 A%<32:="." = A% fred: