@verb #144:":bit_set" this none this rxdo #55
@program #144:":bit_set" this none this
":bit_set(b)"
"=> bit 'b' set?"
{b} = args
d = decode_binary(this.value, 1)
byte = b / 8
if (byte > length(d))
  return 0
endif
bit = b % 8
return d[$ - byte] / 2 ^ bit % 2
"Last modified by manta (#7165) on Tue Mar  6 21:41:03 2001 MST."
"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."
.