p ENVELOPE
start   ny
        pnd
        ppr 
        ppr
        ppr   ADDRESS AN ENVELOPE
        ppr   -------------------
        ppr Turn on your printer and
        ppr   insert an envelope.
        ppr   -------------------
        ppr
enter   ny
        pin Enter name of addressee:  =$c
        laddresses
        f/$c/
        ?
        pgo search
        pgo notfnd
search  f/>/
        ?
        stemp.file!<!
        y
        ny
        lenvelope.format
        ltemp.file!>!<!n
        pyd
        pnd
        ppr
correct ppr---------------------------
        pin Is this correct (y or n)? =$b
        pcs/$b/y/
        pgo print
        pcs/$b/Y/
        pgo print
        pcs/$b/n/
        pgo again
        pcs/$b/N/
        pgo again
        pgo correct
print   pnp
        plm9
        prm79
        ppr 
        ppr
another pin Address another envelope (y or n)? =$a
        pcs/$a/y/
        pgo start
        pcs/$a/Y/
        pgo start
        pcs/$a/n/
        pgo quit
        pcs/$a/N/
        pgo quit
        pgo another
        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