@verb #9682:"Bits" none none none rdo #9682
@program #9682:"Bits" none none none
bits = "10110111 01111001 10011110 11000011"
bits = strsub(bits, " ", "")
n = 0.0
for i in [1..32]
  if (bits[i] == "1")
    n = n + 2.0 ^ (32.0 - tofloat(i))
  endif
endfor
player:tell(n)
player:tell(n / 2.0 ^ 24.0)
n = n - tofloat(toint(n / 2.0 ^ 24.0)) * 2.0 ^ 24.0
player:tell(n / 2.0 ^ 16.0)
n = n - tofloat(toint(n / 2.0 ^ 16.0)) * 2.0 ^ 16.0
player:tell(n / 2.0 ^ 8.0)
n = n - 2.0 ^ 8.0
player:tell(toint(n) % 256)
"Last modified by Dax (#789) on Tue May  3 14:12:00 2005 MDT."
.