41d
@verb #2731:"decimal" any none none rd #2731
@program #2731:"decimal" any none none
binary = ""
x = toint(argstr)
if (x > 10000000 || x < 0)
  player:tell("You must enter a binary number between 0 and 10000000.")
  return
endif
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.")
.

0