Sorry your browser is not supported!

make directory "c:/My notes"
set dir "c:/My notes"
if file exist ("my notes.txt") then goto answers

answers:
input "Press l if you wanna load a note or n for making a new note : ", answer$
if answer$ = "l"
goto loadnote
endif
if answer$ = "n"
goto newnote
endif


newnote:
if file exist ("my notes.txt")
delete file "my notes.txt"
endif
print "NOTE: please don`t make your note too long"
print "when you done press the enter button to procced to save section."
input "Write your note : "; mynote$
input "press s to save the note or q to quit : ", answer2$
if answer2$ = "s"
open to write 1,"my notes.txt"
write string 1,mynote$
cls
print "your note has now been saved"
print "press any key to quit"
wait key
end
endif

if answer2$ = "q"
end
endif


loadnote:
cls
open to read 2,"my notes.txt"
read string 2,mynote$
print "your note is : "
print mynote$
print "press any key to quit"
wait key
end

start:
if path exist("c:/My notes") then goto after
make directory "c:/My notes"
after:
set dir "c:/My notes"

answers:
cls
input "Press l if you wanna load a note or n for making a new note : ", answer$
if answer$ = "l"
goto loadnote
endif
if answer$ = "n"
goto newnote
endif


newnote:
cls
input "Enter filename(with .txt)",fn$
if file exist(fn$)
   print "File exists. Delete?(Y for yes N for no)"
   input yn$
   if lower$(yn$)="y" then delete file "my notes.txt" else goto newnote
endif
print "NOTE: please don`t make your note too long"
print "when you done press the enter button to procced to save section."
input "Write your note : "; mynote$
input "press s to save the note or q to quit : ", answer2$
if answer2$ = "s"
open to write 1,fn$
write string 1,mynote$
cls
print "your note has now been saved"
print "press any key to quit"
wait key
end
endif

if answer2$ = "q"
end
endif


loadnote:
cls
dir
set cursor 100,0
input "Filename(with .txt) or x to go back: ",fn$
if fn$="x" then goto answers
open to read 2,fn$
read string 2,mynote$
cls
print "your note is : "
print mynote$
print "press any key to quit"
wait key
end