timer.set 1000
print "Ждём..."

do
f++
until 0

ontimer:
if f>a then a=f:d=0
f=0
if !mod(s++,10) then print int$(s-1)+" сек."+"  количество ваших попугаев: "+int$(a):d++
if d=12 then cls:pause 500:end "Итак, 2 минуты без изменений. Максимальное количество попугаев достигло "+int$(a)+chr$(10)+chr$(10)+"Программа завершена."
timer.resume