1024→A
While A>0
 Disp A▶Dec,i
 A/2→A
End