326
@verb #4457:"codefix" this none this rxdo #4457
@program #4457:"codefix" this none this
{What} = args
if (What in {"a", "B", "C", "D", "e", "F"})
  if (What == "a")
    return toint(10)
  elseif (What == "b")
    return toint(11)
  elseif (What == "C")
    return toint(12)
  elseif (What == "d")
    return toint(13)
  elseif (What == "e")
    return toint(14)
  elseif (What == "f")
    return toint(15)
  endif
endif
if (toint(What) <= 9)
  return toint(What)
elseif (What == 10)
  return "A"
elseif (What == 11)
  return "B"
elseif (What == 12)
  return "C"
elseif (What == 13)
  return "D"
elseif (What == 14)
  return "E"
elseif (What == 15)
  return "F"
elseif (What < 15)
  return toint(0)
endif
"Last modified by Dax (#789) on Tue May  3 14:11:58 2005 MDT."
.

0