alias 1 {
  var %Ja 1 
  write h.g.txt $$?="NOT Yazınız" 
  while %Ja <= $lines(h.g.txt) { 
    window -enz @a
    aline @a $read(h.g.txt,%Ja)
    inc %Ja
  }
}

alias txt {
  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write h.g.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 
      if $read(h.g.txt,w,$+(*,$!,*)) { echo -a 06" $read(h.g.txt,$readn) " silindi. | write $+(-dl,$readn) h.g.txt | goto zıpzıp } 
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
    titlebar @Görüntüleme h.g.txt içeriği
    loadbuf @Görüntüleme h.g.txt
  }
  :zıpzıp
  unset %txtkontrol
}

alias txt {
  set %txtkontrol $input(TXT satır eklemek için EVET satır silmek için HAYIR içeriğini görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write $token($!,1,32) $gettok($!,2-,32)  | echo -a $token($!,1,32) belgesine06" $gettok($!,2-,32) " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null { 
      if $read($token($!,1,32),w,$+(*,$gettok($!,2-,32),*)) { echo -a 06" $read($token($!,1,32),$readn) " silindi. | write $+(-dl,$readn) $token($!,1,32) | goto zıpzıp } 
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    set %txtkontrolgör $input(Belge adı giriniz,eo,TXT Görüntüleme Paneli)
    if %txtkontrolgör == $null { goto zıpzıp }
    else {
      $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
      loadbuf @Görüntüleme $!
    }
  }
  :zıpzıp
  unset %txtkontrol*
}