do
c=peek(0)
if c=10?:c=29
?mid$(bin$(c-29+0^c),2);loop