do:k=0:for i=0to 450k=k+!peek(0)^.5^2-42next:?k/5loop