do
if"Y"=chr$(peek(0))?n
n=n+1loop