; n >= 0, 1 < b <= 36
ToBaze(n,b) {
   Loop {
      d := mod(n,b), n //= b
      m := (d < 10 ? d : Chr(d+55)) . m
      If (n < 1) 
        break
    }
   Return m
}

MsgBox ToBaze(100,36)