Kod : Kodu kopyalamak için üzerine çift tıklayın!

         alias notekle {
  var %not = $input(Notunuzu girin:,N,Not Defteri)
  if (%not != $null) {
    write notlar.txt %not
    msg #kanal Notunuz kaydedildi.
  }
  else {
    msg #kanal Not kaydedilmedi.
  }
}

alias notlist {
  var %notlar = $read(notlar.txt)
  if (%notlar != $null) {
    msg #kanal Notlarınız:
    var %i = 1
    while (%i <= %notlar) {
      var %not = $read(notlar.txt,%i)
      msg #kanal $chr(2)%i.$chr(2) %not
      inc %i
    }
  }
  else {
    msg #kanal Kayıtlı not bulunamadı.
  }
}

alias notoku {
  var %not_sira = $1
  var %not = $read(notlar.txt,%not_sira)
  if (%not != $null) {
    msg #kanal $chr(2)%not_sira.$chr(2) %not
  }
  else {
    msg #kanal Belirtilen not numarası bulunamadı.
  }
}

alias notsil {
  var %sil_sira = $1
  var %not = $read(notlar.txt,%sil_sira)
  if (%not != $null) {
    write -dl notlar.txt %sil_sira
    msg #kanal Not silindi: %not
  }
  else {
    msg #kanal Belirtilen not numarası bulunamadı.
  }
}