@verb #602:"float_to_bin" this none this rxdo #55
@program #602:"float_to_bin" this none this
{n} = args
n = tofloat(n)
if (n == 0.0)
  return {0, 0, 0, 0, 0, 0, 0, 0}
endif
sign = n < 0.0
n = n * (sign ? -1.0 | 1.0)
sig = {}
exp = toint(log(n) / log(2.0))
n = n / 2.0 ^ (exp + 4)
for x in [1..7]
  s = toint(n * 256.0)
  sig = {@sig, s}
  n = n * 256.0 - tofloat(s)
endfor
sig[1] = sig[1] - 16
exp = exp + 1023
return {sign * 128 + exp / 16, exp % 16 * 16 + sig[1], @sig[2..$]}
"Last modified by manta (#7165) on Tue Apr 18 02:30:47 2000 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.