;[KOD BASLANGIC]
; <- bu sol taraftaki isaretli satirlar bilgilendirme ve size kodun nasil kullanilacagini gosteren isaretlerdir. Silmenize gerek yoktur.

;sirasizdosya.txt kismina uzerinde islem yapacaginiz dosya adini girin, yanlis yapmayin aksi halde dosyaya zarar verebilirsiniz.
alias sirasizdosya return sirasizdosya.txt
;siralidosya.txt kismina dosyanin işlem görecek dosya adini yazin.
alias siralidosya return siralidosya.txt
;
;kucukten buyuge siralamak icin /buyuk-kucuk-sirala
;buyukten kucuge siralamak icin /kucuk-buyuk-sirala komutlarini kullanin.
; 
alias buyuk-kucuk-sirala { 
  if $file($siralidosya) { filter -c $siralidosya }
  var %m = 999 
  while (%m) { 
    filter -ff $sirasizdosya $siralidosya $str(?,%m) 
    dec %m 
  } 
}
alias kucuk-buyuk-sirala { 
  if $file($siralidosya) { filter -c $siralidosya }
  var %m = 1 
  while (%m) { 
    filter -ff $sirasizdosya $siralidosya $str(?,%m) 
    inc %m 
    if (%m == 999) { break }
  } 
}

;[KOD BITIS]

;Not: kod en fazla yan yana dizilmis 999 karaktere kadar calisacaktir. Bunu göz önünde bulundurunuz.