10
20 jim%=1:fred$="hi":PROCfred:
30 *pointer 1
40 END
50 :
60 DEFPROCdump
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"^jim% =&";~^jim% ;" ^add% =&";~^add% ;" ^a% =&";~^add%
130 PRINT"^FNho() =&";~^FNh0();" ^FNhc()=&";~^FNc();" ^PROCfred=&";~^PROCfred
140 ENDPROC
150 :
160 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
170 DEFFNc(A%):A%=A%AND127:IF A%=127 OR A%<32:="." ELSE =CHR$ A%
180 DEFPROCfred
190 PRIVATE jim%,fred$:jim%=2:fred$="bye"
200 adjim%=^jim%:adfred%=^fred$
210 PROCdump
220 ENDPROC