Switch to edit mode.
Name(s): tofloat1: {bignum} = args
2: r = 0.0
3: typeof(bignum) == $STR && (bignum = decode_binary(bignum, 1))
4: for x in [1..length(bignum)]
5: r = r * 256.0
6: r = r + tofloat(bignum[x])
7: endfor
8: return r
9: "Last modified by manta (#7165) on Sat Apr 15 16:31:12 2000 EDT."
10: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
11: "Last modified by Dax (#789) on Tue May 3 14:03:26 2005 MDT."