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