WPL: How to make AUTOLETTER use surnames

Make these modifications to the WPL program Autoletter on page 96 of the
AppleWriter III manual as follows:

       BEFORE
       ------
       L .D1/ADDRS!<(X)>!<!N
       PGO FOUND
       PGO QUIT
FOUND   PLS .D1/ADDRS!<(X)>! !N=$A

       AFTER
       -----
       L .D1/ADDRS!<(X)>!@!N
       PGO FOUND
       PGO QUIT
FOUND   PLS .D1/ADDRS!@(X)@!<!N=$A

       Then modify your address file as below:

       BEFORE                          AFTER
       ------                          -----
<1>John Smith                   <1>John Smith
1234 Elm Street                 1234 Elm Street
Anytown, USA  12345             Anytown, USA  12345
<2>Jane Doe                     @1@Mr. Smith<2>Jane Doe
5678 Main Ave.                  5678 Main Ave.
Nowhere, Indiana  98765         Nowhere, Indiana  98765
<                               @2@Ms Doe<

There are other methods of achieving the desired result, but this one is easy
and it affords the flexibility of using a different "dear" name than the first
line of the address (i.e., Company Name on the first line of the address).

This method also works quite well with Apple Writer II & IIe. For the file name

path .D1/ADDRS, substitute ADDRS,D1 for DOS or simply ADDRS for ProDOS.
Published Date: Feb 18, 2012