alias tarama { dialog -m identtara identtara }
dialog identtara {
  title "ident taraması"
  size -1 -1 133 71
  option dbu
  box "", 1, 2 1 129 60
  text "taranacak identi yazınız", 2, 2 9 128 8, center
  edit "", 3, 8 18 116 10, center
  button "TARA !", 4, 37 30 55 22
  link "YouMyCure", 5, 99 62 31 8
}
dialog identsonuc {
  title "ident taraması sonuç"
  size -1 -1 187 31
  option dbu
  box "", 1, 2 1 183 22
  link "YouMyCure", 5, 152 23 31 8
  edit "", 2, 5 6 177 14, read
}
on *:dialog:*:*:*: {
  if $dname == identtara {
    unset %&:_
    if $devent == sclick && $did == 4 {
      if !$did(3) { 
        set %&:_ Lütfen taranacak ident giriniz. 
        dialog -x $dname $dname 
        dialog -m identsonuc identsonuc
        return 
      }
      var %:_ymc = 1 
      while (%:_ymc <= $lines(identop.txt)) {
        if $did(3) == $gettok($read(identop.txt,%:_ymc),1,32) {
          set %&:_ $did(3) identi listede bulundu.... $gettok($read(identop.txt,%:_ymc),2,32) nickine ait....
          dialog -x $dname $dname 
          dialog -m identsonuc identsonuc 
          return 
        }
        inc %:_ymc   
      } 
      set %&:_ $did(3) identi bulunamadı ve listeye eklendi.... 
      write identop.txt $did(3) 
      dialog -x $dname $dname 
      dialog -m identsonuc identsonuc
    }
  }
  if $dname == identsonuc && $devent == init {
    did -a identsonuc 2 %&:_
  }
}

deneme YouMyCure
ident SuLh
ident3 Feragat