Hexadécimale en binaire

Lbl 0
Input Chaîne1
longueur(Chaîne1)->A
" "->Chaîne3
While A≠0
sous-Chaîne(Chaîne1,A,1)->Chaîne2
A-1->A
If Chaîne2="0"
Then
"0000"+Chaîne3->Chaîne3
End
If Chaîne2="1"
Then
"0001"+Chaîne3->Chaîne3
End
If Chaîne2="2"
Then
"0010"+Chaîne3->Chaîne3
End
If Chaîne2="3"
Then
"0011"+Chaîne3->Chaîne3
End
If Chaîne2="4"
Then
"0100"+Chaîne3->Chaîne3
End
If Chaîne2="5"
Then
"0101"+Chaîne3->Chaîne3
End
If Chaîne2="6"
Then
"0110"+Chaîne3->Chaîne3
End
If Chaîne2="7"
Then
"0111"+Chaîne3->Chaîne3
End
If Chaîne2="8"
Then
"1000"+Chaîne3->Chaîne3
End
If Chaîne2="9"
Then
"1001"+Chaîne3->Chaîne3
End
If Chaîne2="A"
Then
"1010"+Chaîne3->Chaîne3
End
If Chaîne2="B"
Then
"1011"+Chaîne3->Chaîne3
End
If Chaîne2="C"
Then
"1100"+Chaîne3->Chaîne3
End
If Chaîne2="D"
Then
"1101"+Chaîne3->Chaîne3
End
If Chaîne2="E"
Then
"1110"+Chaîne3->Chaîne3
End
If Chaîne2="F"
Then
"1111"+Chaîne3->Chaîne3
End
End
Disp Chaîne3
Goto 0