workbench/classes/zune/texteditor/demo/rexx/MakeFormalLetter.TEd

   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