home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31a.dsk / MAY.1987 / LETTER.txt < prev    next >
Text File  |  2023-02-26  |  1KB  |  55 lines
  1.         p LETTER
  2. start   ny
  3.         pnd
  4.         ppr 
  5.         ppr
  6.         ppr WRITE A LETTER
  7.         ppr --------------
  8. date    pin Enter current date:  =$a
  9. subject pin Enter subject (n if none):  =$b
  10. enter   pin Enter name of addressee:  =$c
  11.         laddresses
  12.         f/$c/
  13.         ?
  14.         pgo search
  15.         pgo notfnd
  16. search  f/>/
  17.         ?
  18.         swork.file!<!
  19.         y
  20.         ny
  21.         lletter.format
  22.         b
  23.         f/(date)/$a/a
  24. address f/(address)//
  25.         y?
  26.         lwork.file!>!<!n
  27.         ?
  28. subject pcs/$b/n/
  29.         pgo erase
  30.         f/(subject)/$b/a
  31.         pgo display
  32. erase   f(subject)//a
  33.         f/Re://a
  34. display pyd
  35.         e
  36.         pqt
  37.         p--
  38. notfnd  ny
  39.         ppr Name not found - Check spelling?
  40.         ppr Did you capitalize name?
  41. again   ppr
  42.         pin Try name again (y or n)?:  =$d
  43.         pcs/$d/y/
  44.         pgo enter
  45.         pcs/$d/Y/
  46.         pgo enter
  47.         pcs/$d/n/
  48.         pgo quit
  49.         pcs/$d/N/
  50.         pgo quit
  51.         ppr 
  52.         pgo notfnd
  53. quit    ny
  54.         pdo write
  55.