A little notepad for notes about people.  Be careful, the default is 
that someone who looks at it will see the notes about themselves.

     The default object is called Notepad.  That can be changed to anything.  
The default commands are addnote, delnote, and readnote.

:[Start Dump]
@create Notepad=10=notepad
@set $notepad=/_/de:{right: Notes for {name:me} --,77,-}\r{if:{prop:notes/{name:me}#,this},{list:notes/{name:me}},Nothing found for {name:me}}\r{right:,77,-}
@action addnote;delnote;readnote=$notepad=makenote
@link $makenote=$nothing
@set $makenote=/_/sc:{exec:{&cmd}/sc}
@set $makenote=/addnote/sc:{if:{instr:{&arg},=},Note added for {&arg:1,1,=}: {store:{&arg:2,-1,=} [{date}],notes/{&arg:1,1,=}#/{store:{add:1,{prop:notes/{&arg:1,1,=}#,$notepad}},notes/{&arg:1,1,=}#,$notepad},$notepad},<=> Usage: makenote <Name>=<Note>}}
@set $makenote=/delnote/sc:{if:{prop:notes/{&arg:1,1,=}#/{&arg:2,-1,=},$notepad},Note {&arg:2,-1,=} for {&arg:1,1,=} deleted: {prop:notes/{&arg:1,1,=}#/{&arg:2,-1,=},$notepad}{null:{for:i,{&arg:2,-1,=},{prop:notes/{&arg:1,1,=}#,$notepad},1,{store:{prop:notes/{&arg:1,1,=}#/{add:{&i},1},$notepad},notes/{&arg:1,1,=}#/{&i},$notepad}}{store:{subt:{prop:notes/{&arg:1,1,=}#,$notepad},1},/notes/{&arg:1,1,=}#,$notepad}},Note '{&arg:2,-1,=}' for '{&arg:1,1,=}' does not exist.}
@set $makenote=/readnote/sc:{if:{&arg},{if:{prop:notes/{&arg}#},{right: Notes about {&arg} --,77,-}\r{list:notes/{&arg},$notepad}\r{right:,77,-},Invalid Name: {&arg}},Usage: readnote <Name>\rAvailable notes: {commas:{parse:names,{listprops:/notes/,$notepad},{subst:{subst:{&names},/notes/,},#,}}}}
:[End Dump]