input""a$
do
c=peek(0)
if c=35i=i+1:c=asc(mid$(a$,i))
?chr$(c);loop