home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / techs.zip / TECH11.ARC / LETTER.PRG < prev    next >
Text File  |  1985-11-01  |  805b  |  40 lines
  1. * Program..: Letter.PRG
  2. * Authors..: Laurie Miller, Ray Love
  3. * Date.....: February 1, 1985
  4. * Version..: dBASE III, any version
  5. * Note(s)..: Prints a single letter.  Called from Form.PRG
  6. *
  7. SET MARGIN TO 5
  8. ?
  9. ?
  10. * ---Print the date in Month DD, YYYY format.
  11. ? CMONTH( DATE() ), STR( DAY( DATE() ), 2 ) + ", "
  12. ?? STR( YEAR( DATE() ), 4 )
  13. ?
  14. ?
  15. ?
  16. * ---Print the header of the letter.
  17. ? TRIM( First ) + " " + TRIM( Last )
  18. ? Address
  19. ? TRIM( City ) + ", " + State + "  " + Zip
  20. ?
  21. * ---Print the salutation.
  22. ? "Dear " + TRIM( First ) + ":"
  23. ?
  24. * ---The body of the letter is between TEXT and ENDTEXT.
  25. TEXT
  26. This would be the body of the form letter that you intend to send
  27. to everyone in your database.
  28. ENDTEXT
  29. ?
  30. ? "Sincerely,"
  31. ?
  32. ?
  33. ?
  34. ?
  35. ? "Laurie Miller"
  36. ?
  37. RETURN
  38. * EOP Letter.PRG
  39.  
  40.