alias readlbl { if $isfile($shortfn($1-)) { var %x = 1;%y = 5 | while %x <= $lines($1-) { .timer 1 %y echo -a $read($1-,%x) | inc %y 10 | inc %x } } }

 
alias dosyaokut { var %dosya = $?="Dosyayı mirc'in oldugu klasore koyup tam dosya adini girin:" | var %satir = 1 | var %satirlar = $lines(%dosya) | while (%satir <= %satirlar) { var %text = $read -l %4$s %satir %dosya | if (%text != $null) { .timer 1 %satir /echo -a %text | inc %satir } } }