Ti83 Ti82 : Conversion hexa bin

"0123456789ABCDEF"→Chaîne2
Lbl K
Menu("CONVERSION","HEX->DEC",F,"DEC->HEX",G,"BIN->DEC",H,"DEC->BIN",J,"FIN",M)
Lbl F
Disp "HEX="
16→B
Goto P
Lbl G
"HEX="→Chaîne4
16→B
Goto Q
Lbl H
Disp "BIN="
2→B
Goto P
Lbl J
"BIN="→Chaîne4
2→B
Goto Q
Lbl P
Input Chaîne1
longueur(Chaîne1)→L
0→A
For(I,1,L)
(carChaîne(Chaîne2,sous-Chaîne(Chaîne1,I,1))-1)→C
C*B^(L-I)+A→A
End
Disp "DEC=",A
Pause
Goto K
Lbl Q
Input "DEC=",A
" "→Chaîne1
While A>B-1
ent(A/B)→Q
A-Q*B→R
Q→A
sous-Chaîne(Chaîne2,R+1,1)+Chaîne1→Chaîne1
End
sous-Chaîne(Chaîne2,A+1,1)+Chaîne1→Chaîne1
Disp Chaîne4+Chaîne1
Pause
Goto K
Lbl M
Disp "BAC STI2D","M. GAUTHIER","LYCEE SERUSIER","CARHAIX"
Pause
Stop