Çalışması için gerekenler:

/dzn Habr gelmedii yardan

>> Onerilen cümle: Haber gelmedi yardan

/dzn Selam iyi sen

>> Oneri yok: cumle tamamen dogru.

alias dzn {
  var %s $+(qw,$r(1,999)) | .comopen %s Word.Application
  noop $com(%s, CheckSpelling, 3, bstr, $1-) | var %q $com(%s).result
  if !%q   { var %q1 1 
    while %q1 <= $0 { if $com(%s, CheckSpelling, 3, bstr, $($+($,%q1),2)) {
        var %d $com(%s).result 
        if %d { var %kq $addtok(%kq,$($+($,%q1),2),32) } 
        else { var %kq $addtok(%kq,$right($sd($($+($,%q1),2)),-7),32) } 
        inc %q1
      }  
    }
    echo -a Onerilen cümle: %kq
  }
  else { echo -a Oneri yok: cumle tamamen dogru. }
  noop $com(%s,Quit,1)
  .comclose %s
}
alias sd { 
  var %şşş $+(com,$r(1,999)) | .comopen %şşş wscript.shell
  .comclose %şşş $com(%şşş,run,1,bstr,cmd.exe /k $&
    powershell $+($chr(36),dz=new-object -COM Word.Application;) $+($chr(36),dz.Documents.Add,$chr(40),$chr(41),;) $+($chr(36),dz.GetSpellingSuggestions,$chr(40),',$1,',$chr(41),;) $+($chr(36),dz.Quit,$chr(40),$chr(41)) $&
    $+ |clip & exit,uint,0,bool,1)
  return $cb(1260)
}

alias iml {
  var %s $+(qw,$r(1,999)) | .comopen %s Word.Application
  noop $com(%s, CheckSpelling, 3, bstr, $1-) | var %q $com(%s).result
  if !%q   { var %q1 1 
    while %q1 <= $0 { if $com(%s, CheckSpelling, 3, bstr, $($+($,%q1),2)) {
        var %d $com(%s).result 
        if %d { echo -a Bu doğru: $($+($,%q1),2) } 
        else { echo -a Bu yanlış: $($+($,%q1),2) } 
        inc %q1
      }  
    }
  }
  else { echo -a Cümle tamamen doğru. }
  noop $com(%s,Quit,1)
  .comclose %s
}

/iml Şu an da imla kurallarına uyuyorum.

>> Cümle tamamen doğru.

/iml Yanlışşş yazımm hatası buu

>> Bu yanlış: Yanlışşş
>> Bu yanlış: yazımm
>> Bu doğru: hatası
>> Bu yanlış: buu