421
@verb #9982:"binary" any none none rd #9982
@program #9982:"binary" any none none
"Copied from Harper (#2731):binary Dec 19 18:29:13 2002"
binary = ""
x = toint(argstr)
if (x >= 128)
  binary = binary + "1"
  x = x - 128
else
  binary = binary + "0"
endif
if (x >= 64)
  binary = binary + "1"
  x = x - 64
else
  binary = binary + "0"
endif
if (x >= 32)
  binary = binary + "1"
  x = x - 32
else
  binary = binary + "0"
endif
if (x >= 16)
  binary = binary + "1"
  x = x - 16
else
  binary = binary + "0"
endif
if (x >= 8)
  binary = binary + "1"
  x = x - 8
else
  binary = binary + "0"
endif
if (x >= 4)
  binary = binary + "1"
  x = x - 4
else
  binary = binary + "0"
endif
if (x >= 2)
  binary = binary + "1"
  x = x - 2
else
  binary = binary + "0"
endif
if (x >= 1)
  binary = binary + "1"
  x = x - 1
else
  binary = binary + "0"
endif
player:tell("You entered: ", argstr, " in decimal. It returns as ", binary, " in binary.")
"Last modified by Even (#9982) on Thu Dec 19 18:33:14 2002 MST."
.

0