do?chr$(a*!a=b); b=a a=peek(0)loop