do?chr$(48-38*!peek(0)^.5^2-10);loop