ClrHome
Input "From Base-",A
Input "To Base=",B
Input "Number=",Str1
0→C
0→D
0→E
0→F
0→G
0→H
0→J
""→Str2
"A"→Str3
"A"→Str4
For(I,1,length(Str1
  sub(Str1,I,1)→Str2
  If F≠0
    D+1→D
  If Str2≠"." and F=0
  Then
    I→C
  Else
    1→F
  End
End
C→J
For(I,1,length(Str1))
  If sub(Str1,I,1)≠"."
  Str3+sub(Str1,I,1)→Str3
End
sub(Str3,2,length(Str3)-1)→Str3
For(I,⁻D,C-1)
  I→L
  sub(Str3,J+D,1)→Str2
  If Str2="1"
  (1*(A^L))+E→E
  If Str2="2"
  (2*(A^L))+E→E
  If Str2="3"
  (3*(A^L))+E→E
  If Str2="4"
  (4*(A^L))+E→E
  If Str2="5"
  (5*(A^L))+E→E
  If Str2="6"
  (6*(A^L))+E→E
  If Str2="7"
  (7*(A^L))+E→E
  If Str2="8"
  (8*(A^L))+E→E
  If Str2="9"
  (9*(A^L))+E→E
  If Str2="A"
  (10*(A^L))+E→E
  If Str2="B"
  (11*(A^L))+E→E
  If Str2="C"
  (12*(A^L))+E→E
  If Str2="D"
  (13*(A^L))+E→E
  If Str2="E"
  (14*(A^L))+E→E
  If Str2="F"
  (15*(A^L))+E→E
  If Str2="G"
  (16*(A^L))+E→E
  If Str2="H"
  (17*(A^L))+E→E
  If Str2="I"
  (18*(A^L))+E→E
  If Str2="J"
  (19*(A^L))+E→E
  If Str2="K"
  (20*(A^L))+E→E
  If Str2="L"
  (21*(A^L))+E→E
  If Str2="M"
  (22*(A^L))+E→E
  If Str2="N"
  (23*(A^L))+E→E
  If Str2="O"
  (24*(A^L))+E→E
  If Str2="P"
  (25*(A^L))+E→E
  If Str2="Q"
  (26*(A^L))+E→E
  If Str2="R"
  (27*(A^L))+E→E
  If Str2="S"
  (28*(A^L))+E→E
  If Str2="T"
  (29*(A^L))+E→E
  If Str2="U"
  (30*(A^L))+E→E
  If Str2="V"
  (31*(A^L))+E→E
  If Str2="W"
  (32*(A^L))+E→E
  If Str2="X"
  (33*(A^L))+E→E
  If Str2="Y"
  (34*(A^L))+E→E
  If Str2="Z"
  (35*(A^L))+E→E
  J-1→J
End
E→I
0→C
While I≠int(I)
  I*10→I
  C+1→C
End
While I>0
  remainder(I,B)→G
  If G=0
  "0"+Str4→Str4
  If G=1
  "1"+Str4→Str4
  If G=2
  "2"+Str4→Str4
  If G=3
  "3"+Str4→Str4
  If G=4
  "4"+Str4→Str4
  If G=5
  "5"+Str4→Str4
  If G=6
  "6"+Str4→Str4
  If G=7
  "7"+Str4→Str4
  If G=8
  "8"+Str4→Str4
  If G=9
  "9"+Str4→Str4
  If G=10
  "A"+Str4→Str4
  If G=11
  "B"+Str4→Str4
  If G=12
  "C"+Str4→Str4
  If G=13
  "D"+Str4→Str4
  If G=14
  "E"+Str4→Str4
  If G=15
  "F"+Str4→Str4
  If G=16
  "G"+Str4→Str4
  If G=17
  "H"+Str4→Str4
  If G=18
  "I"+Str4→Str4
  If G=19
  "J"+Str4→Str4
  If G=20
  "K"+Str4→Str4
  If G=21
  "L"+Str4→Str4
  If G=22
  "M"+Str4→Str4
  If G=23
  "N"+Str4→Str4
  If G=24
  "O"+Str4→Str4
  If G=25
  "P"+Str4→Str4
  If G=26
  "Q"+Str4→Str4
  If G=27
  "R"+Str4→Str4
  If G=28
  "S"+Str4→Str4
  If G=29
  "T"+Str4→Str4
  If G=30
  "U"+Str4→Str4
  If G=31
  "V"+Str4→Str4
  If G=32
  "W"+Str4→Str4
  If G=33
  "X"+Str4→Str4
  If G=34
  "Y"+Str4→Str4
  If G=35
  "Z"+Str4→Str4
  If C=length(Str4)-1
  "."+Str4→Str4
  int(I/B)→I
End
sub(Str4,1,length(Str4)-1)→Str4
Disp Str4