PROGRAM:BASE
:ClrHome
:Input "VALUE:",Str1
:Input "INBASE:",B
:Input "OUTBASE:",C
:"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" ==> Str2
:DelVar Z
:length(Str1) ==> E
:For(A,1,E)
:Z+instring(Str2,sub(Str1,A,1))*B^(E-A) ==> Z
:End
:" " ==> Str3
:For(A,round(log(Z)/log(C),0),0,-1)
:int(Z/C^A) ==> D
:Z-D*C^A ==> Z
:If D=0 and Str3!=" "
:Str3+"0" ==> Str3
:If D!=0
:Str3+sub(Str2,D,1) ==> Str3
:End
:Disp "RESULT:"
:sub(Str3,3,length(Str3)-1)
