stj {
  var %file = $qt(kadro\stj.txt)
  var %i = 1, %lines = $lines(%file), %readed = $null
  while %i <= %lines {
    %readed = $read(%file,%i)
    write -l $+ %i %file $+(%readed,$chr(32),$1-)
    inc %i 1
  }
}

stjbasi {
  var %file = $qt(kadro\stj.txt)
  var %i = 1, %lines = $lines(%file), %readed = $null
  while %i <= %lines {
    %readed = $read(%file,%i)
    write -l $+ %i %file $+($1-,$chr(32),%readed)
    inc %i 1
  }
}

stjsil {
  var %file = $qt(kadro\stj.txt)
  var %i = 1, %lines = $lines(%file), %readed = $null
  while %i <= %lines {
    %readed = $read(%file,%i)
    write -l $+ %i %file $regsubex(%readed,$1-,$null)
    inc %i 1
  }
}

stj {
  $iif(!$isdir(kadro),.mkdir kadro)
  if $istok($read(kadro/stj.txt),$1-,32) { echo -a bu nick ekli }
  else { .write -l kadro/stj.txt $read(kadro/stj.txt) $1- | echo -a eklendi. }
}
stjbasi {
  if !$lines(kadro/stj.txt) { echo -a liste boş }
  else { echo -a Listeleniyor.. | tokenize 32 $read(kadro/stj.txt) | echo -a $* }
}
stjsil {
  if !$lines(kadro/stj.txt) { echo -a liste boş }
  elseif !$istok($read(kadro/stj.txt),$1-,32) { echo -a bu nick ekli değil.. }
  else { 
    $iif($token($read(kadro/stj.txt),0,32) == 1,.remove kadro/stj.txt,.write -l kadro/stj.txt $remtok($read(kadro/stj.txt),$1-,32))
    echo -a silindi. 
  }
}