home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MAILER.ZIP / MAILER.SG < prev    next >
Encoding:
Text File  |  1989-02-28  |  1.6 KB  |  57 lines
  1. MAILER   Copyright (C) November, 1987 Alared            Records on File  @@@@@
  2. 
  3. Company       : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  4.  
  5. Contact       : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  6. Street 1      : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  7. Street 2      : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  8. City          : @@@@@@@@@@@@@@@@@@@@@@@@@
  9. State         : @@
  10. Zip           : @@@@@@@@@@
  11. 
  12. Title         : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   Phone : @@@-@@@-@@@@-Ext:@@@@
  13.  
  14. Contact Type  : @@@@@@@@@@@
  15.  
  16. Additional    : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  17. Notes         : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  18. &             : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  19. Information   : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  20.  
  21.  
  22. ──────────────────────────────────────────────────────────────────────────────
  23. ##
  24. #database
  25. #before video( reverse );
  26.  
  27. #define usedrecs( mailer_file )
  28.         #type integer
  29.         #video reverse
  30.         #display
  31.         #notdata
  32. #define company
  33.         #video bright
  34.         #index
  35.         #options \g
  36. #define contact
  37.         #video bright
  38.         #index
  39.         #options \g
  40.         #before message('CONTACT:Last, First  <--->  Example : Jones, Mr. Jim J.',1);
  41. #define street1
  42.         #video dim
  43. #define street2
  44. #define city
  45. #define state
  46.         #options \u
  47. #define zip
  48. #define title
  49. #define phone
  50. #define contact_type
  51.         #prompt \1Vendor\2Client\3Prospect\4Other
  52. #define notes1
  53. #define notes2
  54. #define notes3
  55. #define notes4
  56.         #after if in_keycode <> k_up_cursor then exit;
  57.