" Т > BLib.Number 1.01 09Aug1988 (Т v1.00 09Aug1988 JGH: First version 1Т v1.01 xxxxxxxxx JGH: Added Octal and Binary 4(Т Bug: Octal and Binary don't work 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 ?эщєo0(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$="0" 7ФУ A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) П: ЗТ Octal padded with spaces >щєo(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$=" " 7У A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) : "Т Binary padded with zeros ?,щєb0(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$="0" 66У A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+A$,N%) @: JТ Binary padded with spaces >Tщєb(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$=" " 6^У A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+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 ЪЪ