ÿWPC]ûÿ(%8Addressbase multi-page letter system ü A-BASE MULTI.WPM an Address database for WordPerfect 5.0/5.1 #923601 Copyright 1988-1990 by Karl M. Rowe r4 ALL RIGHTS RESERVED~ üüabort2~~ ü)ü&512~:€ü ü ü1~~ ü3~~ ü4~~ ü5~~ ü2*2*2=8~ü7~1~üü7~~ü üagain~ ü0~Search for ÿaddress from addressbase? (Y/N) Yes €€€~ üÿ~ n~cont~N~cont~~ ü"ÿ"!="ANOTHER "~ ümain~ü ü4~x~ üabaspath~ üÿpoint~ ü"ÿ"="x"~ üstring~ü ;€ € €,ü30 /ü7~ €ü 3€phaeU€ÿ &€&€€€€ üabaspath~ üÿpointz~ ünext2~ ücont~ ü0~Add a NEW address to addressbase? (Y/N) Yes €€€~ üÿ~ n~cont2~N~cont2~~ ü"ÿ"="ANOTHER "~ ü4~y~ü ü üabaspath~ üÿaddz~ ü"ÿ"="z"~ üinsert~ ünext2~ ü ü"ÿ"="y"~ üinsert~ ünext2~ ü &€nn üabort2~ üü üinsert~ ü € €€€€€ Inserting NEW address from addressbase into letter€~ *ü15~ ü €~ €;€U€ ,üa1 /ü7~ €ü X€X€;€ !€ € € !€ €€)€ € &€;€-€J€eu!€€Q€y ü"ÿ"="z"~ ümain~ ü ü4~~ ü7~rez~ 5€ € 3€phaeU€ÿ &€&€€€€ ü6~~ üvariset~ "ü ümain~ ü5~1~ ü6~ 1 €R€egular; €2€ €T€elecopier; €3€ €M€ essenger; €4€ €F€ederal Express; €5€ €E€xpress Mail: 1 €~ üÿ~ 2~fax~t~fax~T~fax~ 3~hand~m~hand~M~hand~ 4~fedex~f~fedex~F~fedex~ 5~xmail~e~xmail~E~xmail~~ ü6~~ übegin~ üabaspath~ üÿabastop~ ü5~ÿ~ "ü üstring~ ü4~~ ü1~ANOTHER ~ ü €~ üagain~ "ü üvariset~ ` € €Re:#€'€zzz'€ € ;€-€`!€G€bm €P€ ü1~Dear zzz:~ "ü ücont2~ ü0~Quit A-BASE? (Y/N) Yes €€€~ üÿ~ n~cont3~N~cont3~~ &€nn üabort2~ ücont3~ ü1~1~ ü9~1~ ü €~ /ü5~ü ümain~ ü ü4~~ ü6~~ ünext1~ üüabort~~ ü€ €= € €=  € €?Enter Line #ÿ~ üline ÿ~ (ü2~ € € € €€€Press €ENTER€ when you have completed Line # ÿ€ € €ÿ €~ ÿ € ü ü1~ÿ+1~ ü9~ ÿ+1~ ü ÿ=11~ ü ü €~ ü€€€€One moment please . . .€€ € € 10-line screen dump in progress€~ *ü30~ ü €~ ü9~ ÿ-10~ ü üloop~ ü0~ € €€Press €ENTER€ to type Line #ÿ or press € €€€€€[F10]€€€ to insert address into letter €€~ ü"ÿ"=" €"~ ü ünext1~ ü ü"ÿ"=")€"~ üüabort2~~ P€ ülast~ ü üloop~ üü ülast~ -€ € € !€;€U€,üa0 /ü7~ €ü 3€phaeU€ÿ &€&€€€€ üvariset~ ünext2~ "ü ünext2~ € 5€ € €€€ € ÿ € € €zzz ü2*2*2=8~ü7~fix~ üabaspath~ üÿabaslthd~ü Y€ üabaspath~ üÿnext~ /ü6~ÿü üÿnext~ "ü üabort~ ü3~ €R€edo line or €A€bort macro? (R/A) Abort€ €€€€€€~ üÿ~ r~redo~R~redo~~ üabort2~ ü€€€€Macro aborted€€P~ *ü20~ ü €~ &€nn ü üredo~ ünext1~ "ü üfax~ ü6~@€uctce'€%€VIA TELECOPIERU€ € &€&€ €~ übegin~ ühand~ ü6~@€uctce'€%€BY MESSENGERU€ € &€&€ €~ übegin~ üfedex~ ü6~@€uctce'€%€VIA FEDERAL EXPRESSU€ € &€&€ €~ übegin~ üxmail~ ü6~@€uctce'€%€VIA EXPRESS MAILU€ € &€&€ €~ übegin~ üline1~ ü3~~ "ü üline2~ ü3~~ "ü üline3~ ü3~~ "ü üline4~ ü3~~ "ü üline5~ ü3~~ "ü üline6~ ü3~~ "ü üline7~ ü3~~ "ü üline8~ ü3~~ "ü üline9~ ü3~~ "ü üline10~ ü3~~ "ü