WPC'2Bz*}^QWYUOP SHJKLZXV !"#$%&'()YUZ]Q,-./012345DEFGHIJ LM89:;<=>?@A2TS X ak,:;cdnmigefh  ` !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~RGHIYKMOUPQZR]SQsTtSu v wX,cdnmP  _  _ *7*-J\+N[//*7*-J-+N+// X)&4~ )&128~ Block on~  ;  X;  Expand the Word before the cursor to a larger form~ )&4~ Editing screen~ restore~~ Keep the word if unknown~ ;T,a1 XX;TPy ~  " restore~ 1 " Insert subroutines labeled with the short form which will expand the long form~ wo~ wp~ WordPerfect " wpc~ wp~ Corporation " asap~ as soon as possible " sy~ Sincerely Yours, " lc~ Layne Cannon " rc~0~ Top~ Result Saved in Variable 0~ )&512~ : rc~1~  )&4~ calc~ calc~ 1~~ Top Operand~ 3~~ Operator~ 2~0~ Entry Operand~ D Calc~ Display Calculator~ Loop~ D Reg~ Display Results, Get Input~ .~ 0~n~1~n~2~n~3~n~4~n~5~n~6~n~7~n~8~n~9~n~ _~neg~!~not~ +~bin~-~bin~/~bin~%~bin~*~bin~&~bin~|~bin~ c~top~C~top~ P~del~ &~Done~ ~Done~ ~ Loop~ " n~ Add Digit to Input~ 2~*10~ <0~ 2~-.~  2~+.~  " del~ Delete Digit from Input~ 2~/10~ " Done~ Exit and Space cleanup~ 0~~ D Num~ 1~~ 2~~ 3~~ 4~~ "."=" "~ Insert value~  4rc~=1~ :  bin~ Binary Operators~ =0~ ~ /~ignore~%~ignore~ Can't divide by 0~ ~  1~~ 2~0~ ignore~ 3~.~ " neg~ Negate~ 2~-~ " not~ Not~ 2~!~ " D Calc~ Display Calculator~       *,     + Add   - Subtract   * Multiply   / Divide   % Modulus   & And   | Or     ! Not   _ Negate     C Clear  Space Insert  Exit Done  ~ " D Reg~ Display Results, Get Input~ 0~~ 4~~ Line to display on~ D Num~ 0~~ 4~~ D Num~ ~ 0~~ 4~~ D Num~ 4~~ " D Num~ Display a number, Possibly negative~ <0~ 0~-~ 0~- ~   ~ "  main~ )&4~ if at an editing screen, turn off:~ )&128~; block~ )&8~& menu~ )&64~43 merge codes~ )&256~] typeover~ )&512~: reveal codes~ " finished~   if not at an editing screen,~ )&1024~ if at a yes/no question,~ cancel it~  )&2048~ if in a list or a macro,~ & get out of it~  5menu~!=65535~ if not at an editing screen,~ cancel whatever is active~  5menu~=298~ if in Table Edit,~ & get out of it~   main~ go back and see where we are now~ )&4~ Only at editing screen~ P )&1024~ Don't transpose an invisible code~ n   1 )&4~   )&4~  Q  ,)&4~ <<<MARK>>> =!)&4~ if we're not at an editing screen,~ " end the macro~  otherwise, go ahead and run it~ initialization and usages~ 1~0~ var 1 = From - On~ 2~0~ var 2 = From - Off~ 3~0~ var 3 = To - On~ 4~0~ var 4 = To - Off~ 5~0~ var 5 = Confirm - 1=yes, 0=no~ 6~0~ var 6 = Scratch~ 7~0~ var 7 = Save Original - 1=yes, 0=no~ 8~0~ var 8 = From - 1=Attribute, 0=Text~ 9~1~ var 9 = To - 1=Attribute, 0=Text~ 0~0~ var 0 = Counter~ )&512~ rc~1~  rc~0~  end~~ error~~ end~~ confirmation~ 6~w/Confirm? (Y/N) No~ 5~1~ ""!="y"~ ""!="Y"~ 5~0~   save original~ 6~Delete original attribute? (Y/N) Yes~ 7~0~ ""!="n"~ ""!="N"~ 7~1~   from~ clear4~ Convert From: ~ font~ 1~~ 2~~ 8~ ~ 9~1~ to~ clear4~ Convert To: ~ font~ search~ font~ K 3~Attribute: 1 Size; 2 Appearance; 3 User defined text: 0~ ~ 1~attribute~s~attribute~S~attribute~ 2~attribute~a~attribute~A~attribute~ 3~text~u~text~U~text~ ~ end~ text~ clear4~ (3~"On code" Enter the text you wish to use and press Enter. -> ~ (4~"Off code" Enter the text you wish to use and press Enter. -> ~ 9~0~ " attribute~ ~ 1~size~s~size~S~size~ 2~appearance~a~appearance~A~appearance~ ~ /4~ if we actually made it to a subroutine,~ there will be a vaule in var 4 so,~ " return the variable~  if it's not there,~ main~ get back to the main screen,~ font~ and ask the question again~ size~ 4~1 Suprscpt; 2 Subscpt; 3 Fine; 4 Small; 5 Large; 6 Vry Large; 7 Ext Large: 0~ ~ 1~size ok~p~size ok~P~size ok~ 2~size ok~b~size ok~B~size ok~ 3~size ok~f~size ok~F~size ok~ 4~size ok~s~size ok~S~size ok~ 5~size ok~l~size ok~L~size ok~ 6~size ok~v~size ok~V~size ok~ 7~size ok~e~size ok~E~size ok~ ~ end~ size ok~ " appearance~ 4~1 Bold 2 Undrln 3 Dbl Und 4 I talc 5 Outln 6 Shadw 7 Sm Cap 8 Redln 9 Stkout: 0~ ~ 1~app ok~b~app ok~B~app ok~ 2~app ok~u~app ok~U~app ok~ 3~app ok~d~app ok~D~app ok~ 4~app ok~i~app ok~I~app ok~ 5~app ok~o~app ok~O~app ok~ 6~app ok~a~app ok~A~app ok~ 7~app ok~c~app ok~C~app ok~ 8~app ok~r~app ok~R~app ok~ 9~app ok~s~app ok~S~app ok~ ~ end~ app ok~ " search~ main~ clear4~ * Please wait *~ cancel~~ prepare for text~ 0~1~ `K51 ` insert a marker~ !=0~ if we're not replacing text,~  Replacing * Please wait *~ search for start gate~ go perform the replacing~  prep2~~ when no more matches, branch~  Preparing for text replacement * Please wait *~ prep1~ +~ display a counter~ !! search for the From-On text~ ;  include all text~ 9n!313``! .replace all From-On text in the block with markers~ *~ display a counter~ sub1~~ !! search for the From-Off text~ ;  include all text~ 9n!``313! .replace all From-Off text in the block with markers~ 0~+1~ increment a counter~ prep1~ sub1~ )&8~ main~ prep2~~ prep1~  prep2~  Replacing * Please wait *~ error~~ - `K5`! 0~1~ search for start gate~ finish up~~ .when we're done, branch~ ! start a search~ =1~ if we're going from an attribute,~ K enter the From-On code~  otherwise,~ 313`` enter the From-Off text~  ! execute the search~ ; search for end gate~ sub2~~ ! start a search~ =1~ if we're going from an attribute,~ KPK enter the From-Off code~  otherwise,~ ``313 enter the From-Off text~  ! execute the search~ =1~ if confirm is on,~ confirm~ ask for confirmation~  if confirm is not on,~ ~ display a counter~ 0~+1~ increment the counter~ replace~ go replace it~  =1~ if confirmation was given~ replace~ go replace it~  otherwise,~ main~ get back to the main screen~  search for start gate~ go do it again~ sub2~ )&8~ main~ search for start gate~  finish up~  replace~ =1~ if we're going from an attribute,~  =1~ ===== att to att =====~ K assign new attribute to block~ =1~ delete original?~  move past the new attribute~ P delete the old attribute code~ )&1024~ y if WP is asking, answer 'yes'~    ===== att to txt =====~ turn block off~ -K! .find the From-On code~  insert the To-On text~ !KP K! .find the From-Off code~ =1~ delete the original?~ P delete the old attribute code~ )&1024~ y if WP is asking, answer 'yes'~   if not,~  just move past it~   insert the To-Off text~   if we're going from text,~  =1~ ===== txt to att =====~ turn block off~ -313``! .find the From-On text marker~ =1~ delete the marker?~ PPP  ; start blocking~ !``313! find the From-Off text marker~  back up past it~ K apply the attribute to the block~ =1~ delete the marker?~ QQQ   =====txt to txt =====~ turn block off~ =1~ delete the marker?~ PPP   insert the To-Off text~ -313``! .find the From-On text marker~ =1~ delete the marker?~ PPP  if not,~  just move past it~   insert the To-On text~  and move past it~   search for start gate~ go find the next occurance~ finish up~ ~ if they hit cancel, ignore it~ main~ =0~ if we searched for text,~  - Restoring text markers * Please wait *~ end~~ - `K5`! .go back to the begin marker~ +~ show activity~ 9n``313!! .change the From-Off markers back~ =~ show activity~ - `K5`! go back to the begin marker again~ *~ show activity~ main~ 9n313``!! .change the From-On markers back~  end~ end the macro~ confirm~ 6~Confirm? (Y/N) No~ ~ y~yes~Y~yes~ ~ 6~0~ " go back and do it again~ yes~ 6~1~ " cancel~ clear4~ 6~Canceling macro at operator's request - replacement may not be complete ** Press ENTER to continue cancelation process **~ finish up~ error~ clear4~ 6~ An error has occured - replacement may not be complete ** Press ENTER to continue **~ end~ !=0~ if the marker wasn't inserted,~ .don't bother deleting it~ main~ clear4~ Removing temporary starting point marker * Please wait *~ *10~ leave it up long enough to read~  move right so the search won't fail~ quit~~ .if we can't find the marker end anyway~ - `K5`! .search for the marker,~ PPyPP .and delete it~  quit~ main~ ! ! .clear search specifications~ 4rc~!=0~ :  FF clear4~    ~ " main~ get to the main screen~ )&4~ if at an editing screen, turn off:~ )&128~; block~ )&8~& menu~ )&64~43 merge codes~ )&256~] typeover~ )&512~: reveal codes~ " finished~   if not at an editing screen,~ )&1024~ if at a yes/no question,~ cancel it~  )&2048~ if in a list or a macro,~ & get out of it~  513~!=65535~ if not at an editing screen,~ cancel whatever is active~  513~=298~ if in Table Edit,~ & get out of it~   main~ go back and see where we are now~ !)&4~ "  top~ up~~ !<<<MARK>>> del~ " up~ fail~~ -<<<MARK>>> del~ " del~ PPPPPP PPPPQ " fail~ )&8~ main~ In substructure~ top~  ERROR: Can't find Bookmark~ *20~ main~ )&4~ )&8~  " Main screen~   & main~!)&4~ Only at editing screen~ "  ST loop~ ; ,30 assign varable 0 the block~ /0~ ~ Ignore leading punctuation~ "~loop~ '~loop~ `~loop~ (~loop~ [~loop~ {~loop~ <~loop~ ~  loop~ Can't bold codes~  ; .1S none~~ 1~1 Footnote; 2 Endnote: 0~ ~ 1~dir~f~dir~F~dir~ 2~dir~e~dir~E~dir~ ~ " dir~ 2~1 Next; 2 Previous: 0~ ~ 1~right~n~right~N~right~ 2~left~p~left~P~left~ ~ " left~ main~ left2~~ -J1 J2 " right~ main~ J2 " main~ )&4~ At editing screen~ )&8~ & substructure~  "   Get to editing screen~  main~ none~ No note was found.~ *20~ " left2~ 5left~=54784|5left~=54785~  left~  !)&4~ Editing screen~ "  /9~ 1~Is the Author  ? (Y/N) Yes ~ ~ n~name~ N~name~ ~  name~    1~ 1 Memo; 2 Letter; 3 Itinerary: 0~ ~ 1~memo~m~memo~M~memo~ 2~letter~l~letter~L~letter~ 3~itin~i~itin~I~itin~ ~ " memo~ 318t2 0 1 && 1%MEMORANDUMU %Date: 01 %From: %To:  %Subject:# 154-U " letter~  Sincerely, /8~ 1~Is the title ? (Y/N) Yes ~ ~ n~title~ N~title~ ~  title~   01 >31>32 Mark for envelope macro~ (1~Addressed to: ~  Dear , " itin~ 318t2 0 1.5 && 1%ITINERARYU =01 %Name:U %Dates of Trip:U From  to  %Destination:U# %Purpose:U# %Cost Estimate:U#$ 154- %ScheduleU %Names and AddressesU  " name~ (9~Enter Author's Name: ~ " title~ (8~Enter Author's Title: ~ " !)&4~ Only editing screen~ "  prompt~~ Try to find location~  !>31>32 have it~ prompt~  2Move cursor to top of address--Press Enter~ key~ +"4key~"!=" "~ 4key~ key~  2~ >31>32 Insert location mark~ have it~ ; Block the Label to the double HRt~ end~~ ! ! G12 Create page at top of doc~  _ 327 513~=230~ check for printer being set up~ Printer not selected please select printer and start over~*15~ && del~  create~~ nmacro env select~ 1 select form~ 173.75 & Left margin~ 22 Print the page to an envelope~ del~  Delete the page~ yQ " Wait~ give printer GO automatically~ +517~&128~ while system print~ *5~ 517~&8~ if system print~ 244&   F end~ Move to end of block~ U 2Move cursor to end of address--Press  Enter~ key~ +"4key~"!=" "~ 4key~ key~  2~ " create~ create an envelope form~ && type~Font Type 1 Portrait 2 Landscape~ loc~Location 1 Continuous 2 Bin 3 M anual~ 327 Paper size type menu~ 29macro env 15 Add a form/change size to envelope~ 3 Font type~ 4type~ 5 Location of envelope~ 4loc~~ 1~cont~ c~cont~ C~cont~ 2~bin~ b~bin~ B~bin~ 3~cont~ m~cont~ M~cont~~ bin~ if using bin need bin#~ binnum~Bin Number?~ 4loc~ 4binnum~ select~ cont~ if manual or continuous just select~ 4loc~ select~"513~"="297"~ In table math menu?~ 2~52~~ Remember cell we are in~ 2  Move to desired cell and press Enter~ & Exit formula entry~ loop~ 1~~ Get a key from user~ .~ Perform action~ ~up~ ~down~ ~left~ ~right~ ~enter~ &~exit~ ~exit~ ~ loop~ Keep doing until Enter or Exit~   Do normal Ctrl-P~  " up~" down~" left~" right~" enter~ 2~ Restore status line~ 3~52~~ X42~ go back to formula cell~ MF43~ Add target cell to formula~ exit~ 2~ X42~ 54~&512~ In a table?~ )&4~ At main editing screen?~ >51 Recalculate formulas in table~ &  "513~"="298"~ See if in table edit menu~ 51 Recalculate from tables menu~   !)&4~ "  517~&8~ if system print~ 244&  No print jobs waiting for a GO~*10~ F  )&4~ Main editing screen~ 1~ New font menu~ 1 Size; 2 Appearance; 3 Temporary Font; ~ )&128~  1~ Font menu-not in block~ 4 Base Font; 5 Print Color; 6 Normal: ~  1~0~ 1~~ ~ 3~Temp~T~Temp~t~Temp~ New functions~ 6~Norm~N~Norm~n~Norm~ ~ ~ B~4~b~4~ Changed mnemonic~ ~ K Normal menu option~   K Allow search~  " Temp~ ~ )&128~ Py Delete block~ insert~ Restore block~ 1  insert~ Block is off~  " insert~ Insert font changes~ can~~ ~ Ignore name search failure~ K41 )&4~    K 4 loop~ 0~~ execute keys typed~ )&4~ done when at edit screen~ "  loop~ can~ )&4~ "  can~ Norm~ )&128~  ;,31 /1~  Try real normal~ Kn    " 4~ 1~4~ " Return to main editing screen. "Replace Size, Attribute, or Text. Transpose 2 visible characters.Insert a line. Graphics Key $Delete a line. Graphics Key!&Find the Bookmark (see Alt-m)."(Gives Printer a GO.hics Key.@'Capitalize 1st letter of current word.0DRestore the previous block.1F Edit the Next or Previous Note.2HInsert Bookmark <>.eye Font Keyline Graphics Key.8 Calculatorne Graphics Key :%Create a Memo, Letter, or Itinerary.<%Print Name & Address on an Envelope."@'Glossary Macro - Expand Abbreviations.R&Pointing mode when entering formulas. V%Recalculate all formulas in a table.