Prompt A
6->P
1->E
2->K
While K<=A
  K*2->K
  End
Lbl 1
K/2->K
If A>=K
  Then
  A-K->A
  Output(P,E,1)
  E+1->E
  If E>16
    Then
    P+1->P
    1->E
    End
  Else
  Output(P,E,0)
  E+1->E
  If E>16
    Then
    P+1->P
    1->E
    End
If K =/= 1
  Then
  Goto 1