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