p LETTER
start   ny
        pnd
        ppr 
        ppr
        ppr WRITE A LETTER
        ppr --------------
date    pin Enter current date:  =$a
subject pin Enter subject (n if none):  =$b
enter   pin Enter name of addressee:  =$c
        laddresses
        f/$c/
        ?
        pgo search
        pgo notfnd
search  f/>/
        ?
        swork.file!<!
        y
        ny
        lletter.format
        b
        f/(date)/$a/a
address f/(address)//
        y?
        lwork.file!>!<!n
        ?
subject pcs/$b/n/
        pgo erase
        f/(subject)/$b/a
        pgo display
erase   f(subject)//a
        f/Re://a
display pyd
        e
        pqt
        p--
notfnd  ny
        ppr Name not found - Check spelling?
        ppr Did you capitalize name?
again   ppr
        pin Try name again (y or n)?:  =$d
        pcs/$d/y/
        pgo enter
        pcs/$d/Y/
        pgo enter
        pcs/$d/n/
        pgo quit
        pcs/$d/N/
        pgo quit
        ppr 
        pgo notfnd
quit    ny
        pdo write