home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / WSFILE.ACG < prev    next >
Text File  |  1986-09-03  |  3KB  |  114 lines
  1. * DATE 08/27/84  12:52
  2. * wsfile.cmd
  3. ERAS
  4. ? 'This Module will make a special MailMerge file for WordStar'
  5. ?
  6. ? ' Do you wish to continue (Y/N) ? '
  7. SET CONSOLE OFF
  8. WAIT TO command
  9. SET CONSOLE ON
  10. IF command = 'Y' .OR. command = 'y'
  11.  STOR t TO continue
  12. ELSE
  13.  STOR f TO continue
  14. ENDI
  15. DO WHIL continue
  16.  STOR 1 TO counter
  17.  ERAS
  18.  ACCE 'Enter Name of the WordStar-MailMerge file  ' TO file:dat
  19.  STOR !(file:dat) TO file:dat
  20.  STOR $(file:dat,1,8) TO file:dat
  21.  STOR file:dat+'.DOC'  TO file:doc
  22.  STOR file:dat+'.DAT'  TO file:dat
  23.  @ 03,10 SAY  'Creating WordStar-MailMerge Document file:  '+file:doc
  24.  SET CONSOLE OFF
  25.  SET ALTERNATE TO &file:doc
  26.  SET ALTERNATE ON
  27.  ? '.OP'
  28.  ? '.DF '+file:dat
  29.  ? '.RV '+' last-name, first-name, mr, dear, title, company1, company2, street, suite-apt, city, state, zip'
  30.  ? '.. for title, company1, company2  use &title/O&, &company1/O&, &company2/O&'
  31.  ? '.. to automatically omit empty data fields'
  32.  SET ALTERNATE OFF
  33.  SET CONSOLE ON
  34.  @ 05,10 SAY  ' Creating WordStar-MailMerge Data file:  '+file:dat
  35.  ?
  36.  ?
  37.  ?? 'Writing record #     '
  38.  SET CONSOLE OFF
  39.  SET ALTERNATE TO &file:dat
  40.  SET ALTERNATE ON
  41.  GO TOP
  42.  DO WHIL .NOT. EOF
  43.   IF send <> 'Y'
  44.    STOR ' ' TO titleline
  45.    STOR ' ' TO coname1
  46.    STOR ' ' TO coname2
  47.    STOR CHR(34)+TRIM(address)+CHR(34) TO street
  48.    STOR CHR(34)+TRIM(city)+CHR(34) TO cityto
  49.    STOR st TO stto
  50.    STOR zip TO zipto
  51.    IF apt = ' '
  52.     STOR ' ' TO room
  53.    ELSE
  54.     STOR CHR(34)+TRIM(apt)+CHR(34) TO room
  55.    ENDI
  56.   ELSE
  57.    STOR CHR(34)+TRIM(caddress)+CHR(34) TO street
  58.    STOR CHR(34)+TRIM(ccity)+CHR(34) TO cityto
  59.    STOR cst TO stto
  60.    STOR czip TO zipto
  61.    IF title = ' '
  62.     STOR ' ' TO titleline
  63.    ELSE
  64.     STOR CHR(34)+TRIM(title)+CHR(34) TO titleline
  65.    ENDI
  66.    IF company1 = ' '
  67.     STOR ' ' TO coname1
  68.    ELSE
  69.     STOR CHR(34)+TRIM(company1)+CHR(34) TO coname1
  70.    ENDI
  71.    IF company2 = ' '
  72.     STOR ' ' TO coname2
  73.    ELSE
  74.     STOR CHR(34)+TRIM(company2)+CHR(34) TO coname2
  75.    ENDI
  76.    IF suite = ' '
  77.     STOR ' ' TO room
  78.    ELSE
  79.     STOR CHR(34)+TRIM(suite)+CHR(34) TO room
  80.    ENDI
  81.   ENDI send letter to office
  82.   ?
  83.   ?? CHR(34)+TRIM(lastname)+CHR(34) +','
  84.   ?? CHR(34)+TRIM(fname)+CHR(34) +','
  85.   ?? CHR(34)+TRIM(mr)+CHR(34) +','
  86.   ?? CHR(34)+TRIM(dear)+CHR(34) +','
  87.   ?? titleline +','
  88.   ?? coname1 +','
  89.   ?? coname2 +','
  90.   ?? street +','
  91.   ?? room +','
  92.   ?? cityto +','
  93.   ?? stto +','
  94.   ?? zipto +','
  95.   SKIP
  96.   SET CONSOLE ON
  97.   SET ALTERNATE OFF
  98.   SET CONSOLE ON
  99.   ?? CHR(8) + CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+STR(COUNTER,5)
  100.   SET CONSOLE OFF
  101.   SET ALTERNATE ON
  102.   STOR COUNTER + 1 TO COUNTER
  103.  ENDD while not EOF
  104.  STOR f TO continue
  105. ENDD continue
  106. SET ALTERNATE OFF
  107. SET CONSOLE ON
  108. RELE file:dat,file:doc,continue,length,counter
  109. STOR '?' TO command
  110. STOR ' ' TO printer
  111. STOR ' ' TO disk
  112. STOR '            ' TO filename
  113. STOR t TO more
  114.