on *:input:*: {
;editbox'a enterlegimiz yazi komut icermiyorsa ve txt de geciyorsa..
  if /* !iswm $1- && $read(replace.txt,W,$1-) {
;Txtde buldugumuz yazi ile ayrilmis halini yer değiştiriyoruz tabiki aliasla.
    say  $replace($1-,$ifmatch,$ayir($ifmatch))
;Sonra 2 kez yazmasin diye de kodu durduruyoruz
    halt
  }
}

alias ekle { write replace.txt $1- | echo -at $1- Listeye Eklendi }
alias sil { if $read(replace.txt,W,$1-) { write $+(-dl,$readn) replace.txt  | echo -at $ifmatch Listeden Silindi. } | else { echo -at $1- Listede bulunamadi } }

menu status,menubar {
  Kelime Degistirici
  .Ekle:ekle $$?=Kelime?
  .Sil:Sil $$?=Kelime?
}

;burda her harfi tek tek dolastirip while döngüsü ile arada birer bosluk olacak sekilde(addtok ve 32) tekrar birlestirdim döngü bittiginde bosluklu olarak geri döndü yazimiz.
alias ayir  { var %m = $len($1-) | var %t = 0 | while %t < %m { inc %t | var %' = $addtok(%',$wrap($1-,1,arial,2,%t),32) } | return %' }