Program Binary

ClrHome
0-->A
0-->B
0-->C
1-->D
1-->E
Disp "HOW MANY BITS?"
Input A
If A>128
Then
Disp "THATS TOO MANY"
Disp "BITS"
Stop
End
Disp ""
Disp "ENTER NUMBER IN"
Disp "BASE 10"
Input B
Lbl 1
If (B>(2A))
Then
ClrHome
Disp "SUMPINS WONG"
Stop
End
ClrHome
Lbl 2
0-->C
IF (B=(2^A))
Then 0-->C
(B-(2^(A-1)))-->B
End
If (B<(2^A))
Then
If (B>=(2^(A-1)))
Then 1-->C
(B-(2^(A-1)))-->B
End
(A-1)-->A
If E>=17
Then
(1+D)-->D
1-->E
End
Output(D,E,C)
(E+1)-->E
End
If A>0
Then
Goto 2
End