;       - -_##_------------------------------------------------_##_-
;       -  ( ") Merry Christmas and happy 2021 to all of you   (" )
;       - \/ .\-  Respect others and enjoy your stay on IRC.  -/. \/
;       - (  : )----------------------------------------------( :  )
;

; ----------> note.help <----------
alias note.h /echo 8 -a note.h=This-help ; note.w=write (append) ; note.i=insert ; note.d=delete ; note.t=total lines ; note.r=readline (random) ; note.l=readline num. ; note.s=search ; note.a=searchAll ; note.c=clear-file 

; ----------> note.write line (append) <----------
alias note.w //write note.txt $$1- | //echo 4 -a write: $lines(note.txt) lines           

; ---------->  note.delete line_num
alias note.d //write -dl $+ $$1 note.txt | //echo 4 -a delete: $lines(note.txt) lines

; ---------->  note.read line(random)
alias note.r //echo 4 -a $read(note.txt, n)                                              

; ---------->  note.read line @ specific row
alias note.l //echo 4 -a $read(note.txt, n, $$1)                                         

; ---------->  note.search 1st occurrency
alias note.s //echo 4 -a $read(note.txt, nw, $+(*,$1-,*))  

; ----------> note.all = search all occurrencies
alias note.a //while ($read(note.txt, nw, $+(*,$$1-,*), $calc($readn + 1))) echo 8 -a $v1  

; ----------> note.insert @line
alias note.i //write -il $+ $$1 note.txt $$2- | echo 4 line $1 inserted                                      

; ----------> note.clear file (empty)
alias note.c //write -c note.txt | //echo 4 -a $lines(note.txt) lines             

; ----------> note.t = total number of lines
alias note.t //echo 4 -a $lines(note.txt) lines total 

alias test_note {
  note.c
  note.w this is 1st line
  note.w this is 2nd line
  note.w this is last line
  note.t
  note.i 2 this is a new 2nd line
  note.t
  note.s 2nd
  note.a 2nd
  note.a *
}