;  Thanatos' Base Converter (borg) Script
;
; (c) Thanatos , 2003
;
; I give you the right to use and modify this code as long as this copyright
; notice and remarks remain intact.  You may not redistribute the script.  If
; you are asked, direct them to where you got it.  I am not responsible for
; any damage that may be caused by this code.  Use it at your own risk.
;
ON OUTCHAT 
{
  { pexp = vlu = 1 zexp = { pexp -- vlu zexp *= } { pexp 0 > } WHILE zexp } exponent DEF

  { "$2" GREPSUB atoi base = "$1" GREPSUB atoi z = "" tohex = 7 q =
    [ "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E"
      "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T"
      "U" "V" "W" "X" "Y" "Z"
    ] tmparry =
    { z base q exponent EXEC / p = 
      { z p base q exponent EXEC * - z  = 
      } p 0 > IF
      tohex tmparry p GET + tohex =  q --
    } { q -1 > } WHILE
    "$1 is " GREPSUB tohex + " base " + base itoa + CHATSTR =
  } CHATSTR "convert (.*) to base (.*)" GREPSTR IF
}