1
2 :
3 *pointer 1
4 REPEAT
5 PROCstack
6 UNTIL TRUE
7 PROCstack
8 END
9 :
10 DEFPROCstack
11 DIM sp% LOCAL -1
12 add%=sp%:REPEAT
13 PRINT FNh0(add%,8);" ";:FOR a%=add% TO add%+19:IF a%<HIMEM:PRINT FNh0(?a%,2);" ";
14 NEXT:PRINT
15 PRINT SPC9; :FOR a%=add% TO add%+19:IF a%<HIMEM:PRINT" ";FNc(?a%);" ";
16 NEXT:PRINT
17 add%=add%+20:UNTIL add%>=HIMEM
18 ENDPROC
19 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
20 DEFFNc(A%):A%=A%AND127:IF A%=127 OR A%<32:="." ELSE =CHR$ A%