do?c$,c$;:c$=chr$(peek(0))loop