10
20
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