Decimal en Binaire

Lbl 0
Input A
" "->Chaîne1
While A≠0
A/2->B
ent(A/2)->A
If A≠B
Then
"1"+Chaîne1->Chaîne1
Else
"0"+Chaîne1->Chaîne1
End
End
Disp Chaîne1
Goto 0