do
a=peek(0)
b=0
for i=0to 7b=b+int(mod(a/2^i,2))*2^(7-i)next
?chr$(b);loop