@verb #602:"bin_to_float" this none this rxdo #55
@program #602:"bin_to_float" this none this
{bin} = args
if (bin == {0, 0, 0, 0, 0, 0, 0, 0})
  return 0.0
endif
sign = bin[1] / 128
exp = bin[1] % 128 * 16 + bin[2] / 16 - 1023
sig = {bin[2] % 16 + 16, @bin[3..$]}
f = 1.0 / 16.0 * 2.0 ^ tofloat(exp) * (sign ? -1.0 | 1.0)
r = 0.0
for x in (sig)
  r = r + tofloat(x) * f
  f = f / 256.0
endfor
return r
"Last modified by manta (#7165) on Sat Apr 15 18:06:50 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."
.