HP 50g Binary Number Formatting

[Gil]

Better add the bold instructions
4 MOD in the modified code below:

\<< DUP DUP SIZE "" \-> str.ORIGIN size.ORIGIN str.NEW
\<< size.ORIGIN 4 MOD 4 SWAP - 4 MOD DUP \-> m m.ORIGIN
\<< size.ORIGIN m + 4 / \-> loop
\<<
WHILE m 0 \=/
REPEAT " " str.ORIGIN + 'str.ORIGIN' STO -1 'm' STO+
END 1 loop
FOR i str.NEW str.ORIGIN i 1 - 4 * 1 + DUP 3 + SUB + " " + 'str.NEW' STO
NEXT str.NEW m.ORIGIN 4 MOD 1 + str.NEW SIZE 1 - SUB
\>>
\>>
\>>
\>>