WPC \2BWhZ^QWERTYUIOPASDFGHJKLZXCVBNM !"#$%&'()YUZ]Q,-./012345DEFGHIJKLM89:;<=>?@A2TS X a&,:;R    ` !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~RGHIYKMOUPQZR]SQsTtSu v wX,RP  _  _ *7*-J\+N[//*7*-J-+N+// A-BASE ADD.WPM an Address database for WordPerfect 5.0/5.1 #923603 Copyright 1988-1990 by Karl M. Rowe r5 ALL RIGHTS RESERVED~ abort~~ )&512~: 1~1~ 9~1~ Jen1000 Jec Py / next~  =  =  ?Enter Line #~ line ~ (2~ Press ENTER when you have completed Line #   ~   1~+1~ 9~ +1~  =11~   ~ One moment please . . . 10-line screen dump in progressP~ *30~  ~ 9~ -10~  loop~ 0~ Press ENTER to type Line # or  press [F10] to save record to addressbase  P~ ""=" "~  next~  ""=")"~ save~ save?~  loop~  save?~   =  =  @Type another?~ 0~Press [Y] to type another address or [N]  to exit addressbaseP~ ~ Y~clear~y~clear~N~end~n~end~~ save?~ save~ Y;! ! Appending record to ADD.FIL  P~ *15~ Gba abaspath~  Y " have to change~ clear~ ;Py 1~1~ 9~1~ /  next~ " abort~ 4~ Redo line or Abort Add routine? (R/A) Abort ~ ~ r~redo~R~redo~~ &;-Jeu!Py  = Add routine aborted~ *10~  ~ redo~ next~ " end~ &;-Jeu!Py  End of Add routineP~ *15~  ~ line1~ 3~~ " line2~ 3~~ " line3~ 3~~ " line4~ 3~~ " line5~ 3~~ " line6~ 3~~ " line7~ 3~~ " line8~ 3~~ " line9~ 3~~ " line10~ 3~~ "  A-BASE ALTENV.WPM an Address database for WordPerfect 5.0/5.1 #017405 Copyright 1988-1990 by Karl M. Rowe ALL RIGHTS RESERVED formerly NVELOP.WPM an Addressee "envelope-ing" macro designed especially for use with the HP LaserJet Series II and compatible printers~ abort~~ abort~~ 2*2*2=8~7~1~7~~ 1~~ 0~~  ;,a1 /7~  top~ /1~ 0~Envelope-ing macro. Want to continue? (Y/N) Yes ~ ~ y~cont~Y~cont~ ~cont~~ abort~ end~  Enter header information before starting macroP~ *20~ abort~  Macro abortedP~ *20~ XX  cont~ )&512~: ! ! next~ ; ,38 /7~  ""=" "~ next~  ;! ! Gbc ;,a8 /7~  ""="_"~P ""=" "~P _ 3ps /7~ !abasenv~  ee hadhbdfadfbdm2.25" 0.25" /7~ n pn/7~ 0 0ls1 m4.5" 0.25" wn00 ZP_Y  A-BASE MENU.WPM an Address database for WordPerfect 5.0/5.1 #017403 Copyright 1988-1990 by Karl M. Rowe ALL RIGHTS RESERVED (formerly INDEX.WPM)~ Q~~ )&512~: abaspath~ top~ 1~    A - B A S E   *,  for WordPerfect 5.0/5.1   Copyright 1988, 1989, 1990   by Karl M. Rowe   ALL RIGHTS RESERVED  *,    ^L Write multi-page letter   ^I Insert address at this point   ^A Add an address    ^R Add Re: block(s)    ^E Capture address to an envelope   ^N Go to next variable   ^C Insert letter closing   ^M Menu      Q Quit     ~ ~ l~L~L~L~ i~I~I~I~ a~A~A~A~ r~R~R~R~ e~E~E~E~ n~N~N~N~ m~M~M~M~ c~C~C~C~ q~Q~Q~Q~~ top~ L~ multi~ " I~ point~ " A~ add~ " R~ re~ " E~ altenv~ " N~ next~ " C~ vty~ " M~ menu~ " Q~ "  A-BASE NEXT.WPM an Address database for WordPerfect 5.0/5.1 #923605 Copyright 1988-1990 by Karl M. Rowe ALL RIGHTS RESERVED~ !zzz!PPP  A-BASE RE.WPM an Address database for WordPerfect 5.0/5.1 #017402 Copyright 1990 by Karl M. Rowe ALL RIGHTS RESERVED~ )&512~: ""="rez"~rez~ abort~~ 2*2*2=8~7~1~7~~ abaspath~ point~ ;U,a0 /7~  &nn 5 abaspath~ re.fil down~~ 2~~ !! =1~ / 2~~ ;,a2 /7~  ""="@"~ addmore~ addmore2~  ~ 5 _YZ P y sal~ 4~Add Re: block? (Y/N) Yes~ ~ y~prere~Y~prere~ ~prere~~ message~ end2~ prere~ setup~ loop~ 4~Add Re: block? (Y/N) Yes~ ~ y~prere2~Y~prere2~ ~prere2~~ message~ end2~ prere2~ -! @U ;U,35 /7~  /5~6~(From RE.FIL:) ~ ;! !Gbm  6~<There was no previous Re: block>~ message~ end2~ getmore~ down~ 2~~ / case~ /5~ 5  setup~ loop~  more~ 4~Add Re: block? (Y/N) Yes~ ~ y~re~Y~re~ ~re~~ message~ end2~ re~ 2~~ 6~~ case~ setup~ loop~ more~ addmore~ message~ end3~ getmore~ findmark~ 6~~ case~ setup~ loop~ more~ addmore2~ @U ;U,35 /7~  /5~6~(From RE.FIL:) ~ ;! !Gbm  6~<There was no previous Re: block>~ message~ end2~ getmore~ findmark~ case~ /5~ 5  setup~ loop~   more~ findmark~ 2~~ !! /2~ / 2~~" !3l/! /2~2~~ - ! /2~2~~  " case~  ~ (3~Enter short form case name (Jones v. Smith): ~ ""=""~ case~  " setup~ Jen1000 Jec;YQy " loop~ Type Re: block and press [F10] when doneP~ loop2~ 4~~ ""=")"~ Z Y ;! ! ) end~ 5 ! !  loop~ " down~ 2~1~  " sal~ (3~Enter salutation, including colon/comma (e.g., Dear Mr. Jones:): ~ ""=""~ sal~ 5~<There was no previous Re: block>~  " getmore~ 5 abaspath~ more.fil " end~ &; -Jeu! Qy " end2~ &y yn " end3~ &nn " abort~ Macro abortedP~ *20~  ~ message~  ~ *** A-BASE file read/write in progress -- please wait ***P~ *15~ " rez~ 7~~  ~ *** A-BASE Re: block/salutation add in progress -- please wait ***P~ *15~ abaspath~ rez~  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~  3phaeU && 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~  XX; ! ! ) &;-Jeu!Qy ""="z"~ main~  4~~ 7~rez~ 5 3phaeU && 6~~ variset~ " main~ 5~1~ 6~ 1 Regular; 2 Telecopier; 3 M essenger; 4 Federal Express; 5 Express 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' ;-`!Gbm 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~  3phaeU && variset~ next2~ " next2~ 5   zzz 2*2*2=8~7~fix~ abaspath~ abaslthd~ Y abaspath~ next~ /6~ next~ " abort~ 3~ Redo line or Abort macro? (R/A) Abort ~ ~ r~redo~R~redo~~ abort2~ Macro abortedP~ *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~~ "  A-BASE VTY.WPM an Address database for WordPerfect 5.0/5.1 #017404 Copyright 1990 by Karl M. Rowe ALL RIGHTS RESERVED~ 3~~ 4~~ )&512~: abaspath~ ?rabasek.sty )&1024~y !spacing clean~~ 1~1 Very truly yours; 2 Sincerely: 1~ ~ 2~sin~s~sin~S~sin~~ ?!Signoff-1 end~ who~ Z /3~ :  who~ 0~1 Main; 2 Alternate: 1~ ~ 2~alt~a~alt~A~alt~~ vtymain~ " sin~ ?!Signoff-2 end~ alt~ vtyalt~ " clean~ ;-?s!Qy D A-BASE POINT.WPM an Address database for WordPerfect 5.0/5.1 #923602 Copyright 1988-1990 by Karl M. Rowe r6 ALL RIGHTS RESERVED~ )&512~: cancel~~ notfound~~ 2*2*2=8~7~1~7~~  ~ Jen1000 Jec;YQy 5 abaspath~  top~ (1~Type desired name (or address string) and press ENTER to begin search : ~  ~ 8~~ ""="/"~ 3~x~ file~ /1~ 1~search string~ 6~1~  top2~ message~ !! 1~~ 6~1~ U -3l3! ;! !Gbc `& Jec;YQy 1~Use THIS name and address? (Y/N) Yes ~ ~ n~return~N~return~~ cleanup~ Grb 4~~ " message~  ~ *** A-BASE search in progress -- please wait ***P~ " cleanup~ &;-Jeu!Qy " cancel~  ~ abort~ 0~abort~ " abort~ cleanup~  ;Point routine abortedP~ *10~  ~ " return~  ~ & /6~ ;Qy 6~~ Jee1000 preset~~ !`!P ! ! preset~ ;U ,a2 /7~  /2~ cleanup~ " reset~ notfound~~ ""="x"~ 0~~ 3~~ 6~1~ prompt~ 0~ (To use default , just press ENTER)~ prompt~  ~ (1~Type desired name (or address string) and press ENTER to begin search: ~  ~ ""=""~ 1~~  ""="/"~ 3~x~ file~  relocate~  8~~ top2~ relocate~ ""!=""~  " notfound~  not foundP~ *15~ /6~6~~ &;Qy " file~ retest~ filecont~ 1~~ &;Qy Jec;YQy 5 abaspath~ more.fil file2~  ~ reset2~~ !! -3l/!;U ,a1 /7~  reset2~ return2~ 0~~  not foundP~ *15~ reset2~ &; /6~ Qy Jee1000 reset3~~ !`!P reset3~ notfound~~ 0~~ 6~~ top2~ retest~ &Jec;YQy 5 abaspath~ re.fil retest2~ (1~Type desired FILE NAME and press ENTER to begin search : ~  ~ ""="/"~ retest2~ /1~ 1~search string~  ~ 8~~ filecont~~ !! -3l/!;U ,a1 /7~  notfound~~ reset2~ 4Add address(es) to addressbase.8Inserts letter closing< Capture address for an envelope DInsert an address at any point & &J%Addressbase multi-page letter system 2LA-BASE keyboard macros index1NFind next variableVAdds Re: block(s) to RE.FILssbase