" > BLib.Number 1.01 09Aug1988 ( v1.00 09Aug1988 JGH: First version 1 v1.01 12Feb1992 JGH: Added Octal and Binary (? v1.02 15Sep2009 JGH: Octal and Binary works for &8xxxxxxx 2: < Number Output Routines F ~~~~~~~~~~~~~~~~~~~~~~ P: Z# Hexadecimal padded with zeros d$ݤh0(A%,N%):="0000000"+~A%,N%) n: x$ Hexadecimal padded with spaces #ݤh(A%,N%):=" "+~A%,N%) :  Decimal padded with zeros $ݤd0(A%,N%):="00000000"+A%,N%) : Decimal padded with spaces $ݤd(A%,N%):=" "+A%,N%) :  Octal padded with zeros 5ݤo0(A%,N%): A$,B%,L%:A%<0:B%=2:A%=A%&7FFFFFFF ;A$=(A%7)+A$:A%=A%8:L%=L%+3:L%>27:=(A%+B%)+A$,N%) :  Octal padded with spaces %ݤo(A%,N%): A$:A%<0:=o0(A%,N%) 2A$=(A%7)+A$:A%=A%8:A%=0:=N%," ")+A$,N%) : " Binary padded with zeros ,>ݤb0(A%,N%): A$,B$,L%:B$="0":A%<0:B$="1":A%=A%&7FFFFFFF 65A$=(A%1)+A$:A%=A%2:L%=L%+1:L%>30:=B$+A$,N%) @: J Binary padded with spaces T%ݤb(A%,N%): A$:A%<0:=b0(A%,N%) ^2A$=(A%1)+A$:A%=A%2:A%=0:=N%," ")+A$,N%) h: r) Drive character for supplied number | ݤdrv(A%):=(48+A%-7*(A%>9)) : ) Drive number for supplied character #ݤDrv(A$):=A$-48+7*(A$>"9")31 :