|
( dec2bin
|
|
= bit bits
|
|
. :?bits
|
|
& whl
|
|
' ( !arg:>0
|
|
& mod$(!arg,2):?bit
|
|
& div$(!arg,2):?arg
|
|
& !bit !bits:?bits
|
|
)
|
|
& (str$!bits:~|0)
|
|
)
|
|
& 0 5 50 9000 423785674235000123456789:?numbers
|
|
& whl
|
|
' ( !numbers:%?dec ?numbers
|
|
& put$(str$(!dec ":\n" dec2bin$!dec \n\n))
|
|
)
|
|
;
|