home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / MUI / MCC_TextEditor / Demos / Rexx / MakeFormalLetter.TEd < prev    next >
Encoding:
Text File  |  1997-09-30  |  980 b   |  25 lines

  1. /* lala */
  2.  
  3.  
  4. call addlib("rexxreqtools.library", 0, -30, 0)
  5. Options Results
  6.  
  7. LF  = '0a'x
  8. Esc = '1b'x
  9.  
  10. Name = rtgetstring("", , "Enter your full name:", ,)
  11.  
  12.  
  13. if Name ~= "" Then Do
  14.  
  15.  Clear
  16.  Text LF || LF || Esc || '[s:2]' || Esc || 'cA nice letter example:' || LF
  17.  Text Esc || 'r' || Date() || LF
  18.  Text Esc || 'l Dear ' || Name || LF || LF || 'Thank you for your interest in ' || Esc || 'bMotorola' || Esc || 'n Semiconductor Product Sector products and services.' || LF || LF || 'Enclosed are the documents you requested. We currently have over 2,300 databooks, datasheets and reference materials in stock to assist in your search for information regarding Motorola SPS products.'
  19.  Text '  [...]' || LF || LF
  20.  Text 'ohh, and ' || Esc || 'b' || Esc || 'p[7]' || Word(Name, 1) || Esc || 'p[0]' || Esc || "n - Don't be a stranger :-)" || LF
  21.  Text LF || LF || '   Sincerely,' || LF || LF || '      Literature Distribution Center for Motorola SPS' || LF
  22.  Text Esc || '[s:2]' || LF
  23.  
  24. End
  25.