24 lines
366 B
Rexx
24 lines
366 B
Rexx
-- 12 Sep 2025
|
|
include Setting
|
|
numeric digits 100
|
|
|
|
say 'BINARY DIGITS'
|
|
say version
|
|
say
|
|
say left('Decimal',9) '= Binary'
|
|
call Task 0
|
|
call Task 5
|
|
call Task 50
|
|
call Task 9000
|
|
call Task 999999999
|
|
call Task 1e30
|
|
exit
|
|
|
|
Task:
|
|
arg xx
|
|
-- Built-in Decimal2Hex -> Hex2Binary -> Normalize
|
|
say left(xx,9) '=' X2B(D2X(xx))
|
|
say left(xx,9) '=' X2B(D2X(xx))+0
|
|
return 0
|
|
|
|
include Math
|