###      Mail Merge  v.3.02  9-26-83  jb/wc

                 ***  ÍÁÉÌ ÍÅÒÇÅ ÍÁÃÒÏÆÅÁÔÕÒÅ  ***                  

     This macro allows you to fill in a document with personalized
information from a list.                  

     The 'screen print' option displays the documents on the screen
and stops after each document is processed.  When it stops, you can
continue by pressing the space bar.  The disk files called
'LETTER.DEM' and 'CUSLIST.DEM' are already formatted for use with
this macro, and can be used for demonstration purposes.

     The 'hard copy' option prints the documents, and stops after each
letter only if you specify a single sheet printer.  If you specify
continuous print, mail merge prints all documents without pausing.


##
A    "10"  "Number of fields per customer record      "
B    "0"   "0 for single sheet, 2 for continuous print    "
C    "1"   "1 for screen print, 0 for hard copy           "
D    "1"   "1 with cue or sort line, 0 without            "
     ""     "                                                  "
     ""     "ªªª Change only for äáôáâáóå files ªªª    "
E    "0"   "   Set to 1 for files created by database         "
J    "2"   "   Number of lines per record                     "
F    ","   "   Enter field delimitor - 0 if none              "
G    "0"   "   Space filled fields (1=yes, 0=no)              "
H    "0"   "   Position-determined fields (1=yes, 0=no)       "
I    "20 26 36 24 12 11 6 8 14 0"  "   Position list  "
M    "0"   "   Custom file handler (e.g. CBASIC)              "
     ""     "                                                  "
     ""     "ªªª Special Features ªªª                          "
K    "0"   "   Pause code, if none enter '0'                   "
L    "0"   "   Set to '1' to process conditionals              "
#
:on -1 368     SET UP OPTIONS






:%5 = %1
:PR "#1/"
:in "#0/#13/#13/#6/Filename of your letter:      " %A
ro/%A/
:ON $0 / /-3 / 
R/e/s//.s</
t/sa/*.E//
t/h1000
:in "#0/#13/#13/#13/#6/Filename of customer file:    " %B
ro/%B/
:ON $0 / /-3 / 

:on $D /+1 / /+1
:%5=%5+1

:on %0-1 / 126
R%1/T/SA/\//Ü/
T
:CP
:on ?-3 / 115 /
:on $D / 35 / 
:ON ?-46 / 33 / 
:ON ?-65 / 33 / 
:PR "#0/#6/Error in customer file ..."
:in " Hit RET to continue, ESC to exit  "
:ON %I%D 215 / 215
D1
t/u
:%B = ""
:on $L / / 235





:pr "#0/#13/#13/#13/Íåòçéîç æéåìä:      %B#6/"
:%5 = %5-1
:on %5 85 85 / 
e
b1
:on ?-3 /  115
:%B = !<
e/s//%B</
b2/d2
:%O=%5
:sl %O %4
t/s/@%5/?/
:on ?-3 / 85 / 
:%9 = $3
s/`/
:%8 = $3
:%A = ""
:%6 = 0
:SL %B %7
:on %8-%9 70 / 70
:on %7-1-%4 / 67 67
:sf %B 2
:%7 = 2
:%4=1
:%A = "??????????????????????????????????????????????????????????????"
:sf %A %7-1-%4
:%6 = 1
t
:%9 = %9-1
:on %9 74 74 / 
f%9
:on %7 / 79 / 
s/@%5/%B/b0
:on %6 78 78 / 
s/%A`/`/
:on -1 54
s/@%5//
b0
:on ?-13 83 / 83
d1
:on -1 54

:ON %5 / / 39
:%5 = %1
t/s100/`/ / 
T/SA/Ü/\//
:on %J%D 225 / 225
:on %3 / 100 / 

Y 1 90 110 2 0 1 0 65 2 1 1 0 35 5
t/va
t/d1000
:on -1 20





t/s/.s/.e/t/F8
:cp
T
:on %2-0 / / 106
:in "#0/#6/Insert paper in printer.  Hit a return to continue"
:pr "#0/#6/PRINTING ..."
P
:ON ?-3 104 / 104
t/d1000
:PR "#0/#6/"
:on -1 20



:pr "#1/#13/#13/        JOB COMPLETED#13/#13/"
:in "      Hit any key to regain control"
t/h0/h1000/h0
:pr "#1/"
:on -1 513






:%B=""

:%M = %1
:%1 = %H
r%1
:cp
:on ?-3 / 115
:%1 = %M
T/SA/\//Ü/
T
:on %C%D / /+4 / 
sa/%C/</
t

:on %F%D / 157 / 

s//^<%G</b1

:%1 = !
s//^/
b0/d/f1
:mc %1
s//?</b1
:%B = !<
b0/d1/
e/b/s//%B</
t/f/f1
:on ?-3 / /+1
:on -1 /-12
b1/d/e/b1/d1/t

:on %E%D / 175 / 

:pr "#1/#13/#13/#13/Ðòïãåóóéîç Òåãïòä#13/#13/"
:pr "#13/%B#6/"
s/<
:mc $2-1
:on ?-32 /+2 / /+2
s/?//
:on -1 /-4
b0
:%B = !<
f1
:on ?-3 /-10 / /-10
t
:%1 = %M
:on -1 26



:on %N%D / 26 / 
:on -1 /+2
:on ?-13 /+1 / /+1
f1
:on ?-3 / /+14 /
:on ?-32 /+2 / /+2
s/?//
:on ?-32 / /-2 / 
:on ?-34 /+6 / /+6
s/?//
s/"/</
:on ?-44 /+1 / /+1
s/?//
:on -1 /-12

s/,/</
:on -1 /-15


t
s/\\//
:%2 = $2
:%A = !<
s//^/
:mc %2
d/b0/s//%A / 
:on ?-3 /-9 / /-9
e/b1/d1

e
b1
:on ?-13 /-2 / /-2
f1/d100/e/b1/d1/t
:on -1 26






sl/*%I
:on ?-13 /+2 / /+2
:%J = "0"
:on -1 /+1
:%J = "1"
b0/d1
:on -1 35


t
:cp
:pr "#0/#3/Ùïõ áòå éî Åäéô íïäå®  Íáëå áîù ãèáîçåó¬ ôèåî èéô ÃÏÎÔÉÎÕÅ"
:ee 229
:on -1 90







:%A = "%0 %1 %2 %3 %4 %5 %6 %7 %8"
e/s//%A</t

t/s/{£/?/
:on ?-3 / 348 / 
:%5 = $3-1
:%4 = $2
b0/s/{£/<{?/
:mc $2-1
:%1 = !
:%0 = ?
:mc $2+2
:%K = !}






:%6 = $2
t/s/<{{£/{£/
t/s/.s
f%1
:%L = !<



:on %0-45 / 297 /
:sg %K %2
:sp %K %2
:on %2-60 / 285 285
:%a = %K
:%b = %L
:%d = -%a
:fa %d %b
:%K = "%d"
:on %0-61 /+2 / /+2
:%L = ".00"
:on %K%L 322 333 322
:on %0-110 /+2 / /+2
:%L=".00"
:on %K%L 333 322 333
:sg %K %3
:on %0-60 /+1 / /+1
:on %3-45 322 333 322
:on %0-62 240 / 240
:on %3-45 333 322 333


:on %0-61 /+1 / /+1
:on %K%L 322 333 322
:on %0-110 /+1 / /+1
:on %K%L 333 322 333
:on %0-60 /+1 / /+1
:on %K%L 322 322 333
:on %0-62 240 / 240
:on %K%L 333 322 322



e/s//%K</
b1/s/-/ / 
b0
:%a=!
:%b=!
b0/d1
e/s//%L</
b1
:%K=".00"
:%c=!
b0/d1
:%c = -%c
:%d = %c
:fa %c %a
:%L = "%c"
:on %K%L / 333 / 
:sg %L %3
:on %3-45 322 / 322
:fa %d %b
:%L = "%d"
:on %K%L / 333 / 
:sg %L %3
:on %3-45 333 / 333


t/f%5
:mc %4
s/}/?/
s/}/^/
t/f%5
:on ?-123 / /+1 / 
s/{
d
:on -1 240



t/f%5
:mc %4-2
s/£ / 
s/}/^/
t/f%5
:on ?-123 / /+1 / 
s/{
d/s/}//
:on -1 240






e/b1
:%0 = !
:%1 = !
:%2 = !
:%3 = !
:%4 = !
:%5 = !
:%6 = !
:%7 = !
:%8 = !
b0/d1
t/s/.s/
:on $3-2 / 94 /
t/f16
:on -1 40





h0
:%1 = $0
:on %1 / /+1 / 
rd


:ss 40 40 1 1 1 1 30 2 5 2 30 30 3
Y 1 90 110 2 0 1 0 65 2 1 1 0 35 5
YT 0 0 0 0 0 0 0
:%D  = "0"
:%J = "0"
:%1 = $A
:%2 = $B
:%3 = $C
:%4 = $D
:%0 = $E
:%C = "$F"
:%E = "$G"
:%F = "$H"
:%G = "$I"
:%H = "$J"
:%I = "$K"
:%N = "$M"
:on %0 / 2 / 
:%L="0"
:on %L%C / 2 / 
:on %L%F /+1 / /+1
:on %L%N / 2 / 
:pr "#0/#7/#13/Error in configuration parameters."
:pr "#13/#13/If fields are position-determined, or if custom preprocessor"
:pr "#13/is used, then '0' must be used as database delimitor."
:in "#13/#13/Press any key to return to command mode."
h0/d1000
####$
b1/d1/t/d2
:in "#0/#1/#13/Do you want to save this Mail Merge configuration? (Y/N) " %A
:%C = "y"
:on %A%C /+19 / /+19
:in "#13/Under what name (.WPM assumed)? " %A
:%B=%A
:sl %A %1
:sg %A %2
:on %2-46 /+2 / /+2
:pr "#13/Do not specify extension in file name. "
:on -1 /-7
:%1=%1-1
:on %1 / / /-6
:%A=".WPM"
:%A=%B%A
ro/%A
:on $0 / /+4 /
rd
:pr "#13/#13/#13/#13/#7/The file %A already exists."
:in "#13/Do you want to write over it? " %B
:on %B%C /-20 / /-20
wo/%A
w/wd
:pr "#1/"
al