input""a$
do?chr$(peek(0));loop