alias testmode {
  unset %per_x_
  if (!$1) { echo $color(info) Kullanim: /testmode remotedekidosyaismi | return }
  if ($1 isnum) { echo $color(info) Hata: Dosya ismi rakam olamaz. Kullanim: /testmode remotedekidosyaismi | 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 $script($1)
    if (*.ini iswm $nopath($v1)) {
      initotext $+($gettok($1,-2,46),_yedek,.txt) $script($1)
      form 124 | form2 123 | form3 125
    }
    else {
      set %long_test_text_file $+($gettok($1,-2,46),_yedek,.txt)
      .copy $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 @testMODE
  window -beln @testMODE
  loadbuf $lines(%long_text_norm3) -c4 @testMODE %long_text_norm3
  echo -at @testMODE ready for trigger 0,4 0 |0,3 1
  window -b @testmode
}
alias _show_line { var %_str_n $$1 | cline 3 @testMODE %_str_n }

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 %mmr == $chr(125) { write $1 $chr(125) }
    write $1 %mmr $!_show_line( $+ $!scriptline $+ )
    inc %j
  }
}
alias -l initotext {
  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:@testMODE:{
  .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
}