İpucu Ekran kasmaması için kademeli döngü oluşturma [while]

alias normal-dongu {
  if !$window(@pen)  { window -e @pen }
  clear @pen
  var %toplam_doner_sayisi 15000
  var %hep_doner 1
  while (%hep_doner <= %toplam_doner_sayisi) {
    echo @pen %hep_doner
    inc %hep_doner
  }
}

alias kademeli-dongu {
  if !$window(@pen)  { window -e @pen }
  if (!%hep_doner) {  set -eu30 %hep_doner 1 |  clear @pen }
  if (!%toplam_doner_sayisi) { set -eu30 %toplam_doner_sayisi 15000 }
  if (!%kritik_doner_kademesi) { set -eu30 %kritik_doner_kademesi 2000 }
  if (!%doner_kademesi) {  set -eu30 %doner_kademesi 1 }
  while (%hep_doner <= %toplam_doner_sayisi) {
    if ($calc(%doner_kademesi * %kritik_doner_kademesi) == %hep_doner) {
      inc %doner_kademesi | .timerdongu -m 1 50 kademeli-dongu  | goto git
    }
    echo @pen %hep_doner
    inc %hep_doner
  }
  if (%hep_doner >= %toplam_doner_sayisi) {
    .timerdongu  off | unset %hep_doner | unset %toplam_doner_sayisi | unset %doner_kademesi | unset %kritik_doner_kademesi
  }
  :git
}