/ > PRIVATE - display private heap contents &jim%=1:fred$="hi":fred: PROCdump *pointer 1 ( 2: < dump 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%>= n?" PAGE =&";~ ;" LOMEM =&";~ ;" END =&";~ xJ"^jim% =&";~^jim% ;" ^add% =&";~^add% ;" ^a% =&";~^add% I"^FNho() =&";~^h0();" ^FNhc()=&";~^c();" ^PROCfred=&";~^fred  : #ݤh0(A%,N%)="0000000"+~A%,N%) 3ݤc(A%):A%=A%127: A%=127 A%<32:="." = A% fred $ȥ jim%,fred$:jim%=2:fred$="bye" adjim%=^jim%:adfred%=^fred$ dump