alias testmode {
  write -c testmodecalisanlines.txt
  unset %per_x_
  if (!$1) { echo $color(info) Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
  if ($1 isnum) { echo $color(info) Hata: Dosya ismi rakam olamaz. Kullanim: /testmode remotedekidosyaismi.uzantisi | return }
  if ($script($1-) == $null) { echo $color(info) Hata: Remotede $1- isimli bir dosya bulunamadi.Eger dosya uzantisi varsa yazmayi unutmayiniz. | return }
  if ($script($1-)) {
    set %test_mode_file $qt($script($1-))
    if (*.ini iswm $nopath($v1)) {
      initotext $qt($+($gettok($1-,-2,46),_yedek,.txt)) $+ ? $+ $qt($script($1-))
      form 124 | form2 123 | form3 125
    }
    else {
      set %long_test_text_file $+($gettok($1-,-2,46),_yedek,.txt)
      .copy $qt($script($1-)) %long_test_text_file
      form 124 | form2 123 | form3 125
    }
  }
  _convert_code testmodefile.txt
  .unload -rs %test_mode_file
  .load -rs testmodefile.txt
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  window -beln @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE
  var %f = 1
  while %f <= $lines(%long_text_norm3) {
    aline -c4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %f $+ ) $read(%long_text_norm3,n,%f)
    inc %f

  }


  echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Kod Tetiklenmek icin Hazir, Tetiklenmesini Saglayin. 0,4 0 |0,3 1
  echo -at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE Unutmayin, Kodunuzu Sadece 1 kez test edebilirsiniz.Daha fazla test icin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode penceresini kapatin ve tekrar deneyin !
  window -b @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode
}
alias _show_line { var %_str_n = $$1 | cline 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n | aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE %_str_n 
  write testmodecalisanlines.txt %_str_n 
  .timerjeun 1 1 aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))
  .timercw 1 1 write testmodecalisanlines.txt  Toplam Calisan Satir(Line) Sayisi: $calc($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]mode,0) - $lines(%long_text_norm3))

  .timercx 1 1 run testmodecalisanlines.txt
}

alias -l form {
  set %long_text_norm long_text_one.txt
  write -c %long_text_norm
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_test_text_file) {
    var %k = $read(%long_test_text_file,n,%j)
    tokenize 32 %k
    if (;* iswm %k) { write %long_text_norm %k | goto yorum }
    while (%e <= $0) {
      if [ $ $+ [ %e ] ] != $chr(%n) { var %u %u [ $ $+ [ %e ] ] | goto n }
      write %long_text_norm %u
      unset %u
      :n
      inc %e
    }
    write %long_text_norm %u | var %u | var %e 1
    :yorum
    inc %j
  }
}
alias -l form2 {
  set %long_text_norm2 long_text_two.txt
  write -c %long_text_norm2
  var %j = 1
  while %j <= $lines(%long_text_norm) {
    var %n = 1 , %u , %t , %c = $read(%long_text_norm,n,%j)
    if (;* iswm %c) { write %long_text_norm2 %c | goto yorum }
    if ($+(*,$chr(123),$chr(32),*) iswm %c) {
      while (%n <= $mid(%c,1,0)) {
        if $+(*,$chr(123),$chr(32)*) !iswm $mid(%c,1,%n) { var %u $mid(%c,1,%n) }
        if $+(*,$chr(123),$chr(32)*) iswm $mid(%c,1,%n) {
          write %long_text_norm2 $mid(%u,$+(%t,-))
          var %t %n
          var %u
        }
        inc %n
      }
    }
    if $mid(%c,1,0) == $len(%u) { write %long_text_norm2 $mid(%u,$+(%t,-)) }
    if ($+(*,$chr(123),$chr(32),*) !iswm %c) { write %long_text_norm2 %c }
    if %c == $chr(123) { write %long_text_norm2 %c }
    :yorum
    inc %j
  }
}
alias -l form3 {
  set %long_text_norm3 long_text_three.txt
  write -c %long_text_norm3
  var %j = 1 , %e = 1 , %n = $$1
  while %j <= $lines(%long_text_norm2) {
    var %c = $read(%long_text_norm2,n,%j)
    if (;* iswm %c) { write %long_text_norm3 %c | goto yorum }
    if $+(*,$chr(125)) iswm %c {
      if ($pos(%c,$+($chr(32),$chr(125)),1)) {
        var %z = $v1
        write %long_text_norm3 $mid(%c,1,%z)
        dokona $count($right(%c,$calc($len(%c) - %z)),$chr(125))
      }
    }
    else { write %long_text_norm3 %c }
    if (%c == $chr(125)) { write %long_text_norm3 %c }
    :yorum
    inc %j
  }
}
alias -l dokona {
  var %p = 1
  while (%p <= $$1) {
    write %long_text_norm3 $chr(125)
    inc %p
  }
}
alias -l _convert_code {
  write -c $$1
  var %j = 1, %y = $lines(%long_text_norm3)
  while (%j <= %y) {
    var %mmr = $read(%long_text_norm3,n,%j)

    if if* iswm %mmr {
      write $1 %mmr $!_show_line( $+ $!scriptline $+ ) 
      goto jeun
    }

    if alias* iswm %mmr {
      write $1 %mmr $!_show_line( $+ $!scriptline $+ ) 
      goto jeun
    }
    else {
      write $1 $!_show_line( $+ $!scriptline $+ ) $chr(124) %mmr
    }
    :jeun
    inc %j
  }
}
alias -l initotext {

  tokenize 63 $$1-
  write -c $1
  var %j = 1
  while (%j <= $ini($2,1,0)) {
    write $1 $readini($2,n,$ini($2,1),$ini($2,1,%j))
    inc %j
  }
  set %long_test_text_file $1
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MODE:{
  .unload -rs testmodefile.txt
  .load -rs %test_mode_file
  .remove -b %long_test_text_file
  .remove %long_test_text_file
  .remove %long_text_norm
  .remove %long_text_norm2
  .remove %long_text_norm3
  .remove testmodefile.txt
  unset %long_text_norm* %test_mode_file %long_test_text_file
}