10 REM > heap - display heap contents
   20 REM DIM array%(10,1):array%()=1,2,3,4,5,6,7,8,9,10,11
   30 astring$="hello"
   40 PROCfred
   50 :
   60 *pointer 1
   70 add%=TOP-69:REPEAT
   80   PRINT FNh0(add%,8);" ";:FOR a%=add% TO add%+19:PRINT FNh0(?a%,2);" ";:NEXT:PRINT
   90   PRINT SPC9;            :FOR a%=add% TO add%+19:PRINT" ";FNc(?a%);" ";:NEXT:PRINT
  100 add%=add%+20:UNTIL add%>=END
  110 PRINT" PAGE    =&";~PAGE     ;"    LOMEM =&";~LOMEM ;"    END     =&";~END
  120 PRINT"^astring$=&";~^astring$;"   ^add%  =&";~^add% ;"   ^a%      =&";~^add%
  130 PRINT"^FNho()  =&";~^FNh0()  ;"   ^FNhc()=&";~^FNc();"   ^PROCfred=&";~^PROCfred
  140 END
  150 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
  160 DEFFNc(A%):A%=A%AND127:IF A%=127 OR A%<32:="." ELSE =CHR$ A%
  170 DEFPROCfred:ENDPROC

Download Heap

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.