WPCLL } 8E|$ jջY($5Q۴_~$*K+ vhu:~bHkڈ{2ՌWd i)X^EWͦ18E| vڞl8obU1W86l,)h:ǔfV. fk6.3Ѱ$%)-Ԛn9>B"fRF3&$iL`$*8ɡ D < Np_%#^cGXCJGm~fuF]@$7<5RRSrVoA_O͈Q9Tk@kL(f̹-L}& ۡ1I5eRиMm/Tr T J >kFTpăJg-odKu!ేidohKOnP ~,y3Y^&Hý2)[\!U. %bn 0U Nt RN4w@* 0j 0D5 0yUN[ m#   ^ 1k  @J K 1mKKKKKKK 0K<6X9`(CourierX .#|x2<6X9`(CourierXx6X@`7X@(9$X  7XXdd7    (9 Z 6Times New Roman RegularvComStart(tu(W$"3 )D*U+ ,-E.U/D01E2P(3R$ 9!X  7~XXdd7     ($$  0  (3I$ 9!X  7~XXdd7       0  .(9 Z6Times New Roman Regular UHP LaserJet IIIHPPCL5MS,,,,,,0nLH+G=(L $35;AGOW_e11.a.i.(1)(a)(i)1.a.WID:\WEB\MEMO.WCM<W@EEEEEEEEE E E E E EEEEEEEEEEEEEEEvRe:E REvyesEEE E! USEUSERNAMEs NE" HRT`s c bdI$v WORKING ...dN^ɂE#`s c bdI^~E$`^E%`s c bdI^2E&`^<E'E(TCANCELE)E*w*~w+X @(I1-ELSE)E+ E, ` zXdRvError!dNjv1* Must be at the edit screen to use this macro! *dNss0 c bdI^E-E.|E/E0 @(I1-END)@ @(I1-ELSE)@ @(I1-END)w)~ @(I2-ELSE)E1E2E3 `sndNs2dEs2dEsdEsCdEss c bdI*vScreen not empty!dN^{E4E5`sndNsfdNs2dEs dEsdEsdEs c bdI<vCreate memo in &New windowdN^uE6`sndNsgdNs2dEsdEsdEsdEs c bdIPv$&Add memo format above existing textdN^uE7`sndNsfdN^}E8*yMACRODIALOGRESULT CHOICEE9`sndN^|E:E;yCHOICEsfC @(I3-ELSE)|E<E= @(I3-END)@ @(I3-ELSE)@ @(I3-END)`s c bdI(v WORKING .... dN^ɂE>E?yCHOICEsf1 @(I4-ELSE)E@EA`^MEB @(I4-END)@ @(I4-ELSE)@ @(I4-END)ECED @(I2-END)@ @(I2-ELSE)@ @(I2-END)QCANCELEEEFEG`^0TNOSTYLEEHEI`vMEMOd@^EJEK@OKSTYLEELEMEN`^S` u"@dX^EO`a<vConfidential: Work ProductdQ^EPEQ`^ER`^S`a:vAttorney-Client PrivilegedQ^ESET`^`as c bdI^ZEUEV` u(@dX^EWEXVCANCELEY`s c bdI^EZE[E\E]`^E^`^`avTo: dQ^`^QE_`^E``^`avFrom: dQ^`^QEa`^Eb`^`avDate: dQ^`^Q`^eEc`^EdEe`^`a yREdQ^`^QEf`^EgEh`^`avFile: dQ^`^QEi`^EjEk`^`avcc:dQ^`^QEl`^EmEn`^EoEp`^`^JEqEr`^EsEt`^Eu`^ԁEv`^.Ew`^Ex`^`^EyEz`^E{E|`s c bdI^\E}E~E`^0`vTo:dQ^%E`s c bdI^E`^.`s c bdI^~EE `s c bdIZv) Type RECIPIENT -- then press [Enter]dN^ɂE`sUdS^E`s c bdI^ɂEEE`^0`vFrom:dQ^%E`s c bdI^EE`^.y USEUSERNAMEvyes1 @(I5-ELSE)EE`^`awdQ^EE`^E`^/`s c bdInv3 Edit AUTHOR NAME if needed -- then press EnterdN^ɂEE @(I5-END)@ @(I5-ELSE)`s c bdI\v* Type AUTHOR NAME -- then press EnterdN^ɂEEE@ @(I5-END)E `sUdS^E`s c bdI^ɂEEy USEUSERNAMEvyes1 @(I6-ELSE)EE`^w@s1 @(I7-ELSE)E`awdQ^EE @(I7-END)@ @(I7-ELSE)@ @(I7-END)E @(I6-END)@ @(I6-ELSE)@ @(I6-END)E`^0`vDate:dQ^%E`s c bdI^EE`^.E`^E`^E`^EE`^E `s c bdI\v* EDIT DATE if needed -- then press EnterdN^ɂE`sUdS^E`s c bdI^ɂEE`^w@ v,1 @(I8-ELSE)`aw3AdQ^E @(I8-END)@ @(I8-ELSE)@ @(I8-END)E`^0` yREdQ^%E`s c bdI^EEE`^.E `s c bdIZv) Type TOPIC -- then press Enter TWICEdN^ɂEE@ @(W1-TEST)s @(W1-END)EEE`sUdS^E`s c bdI^~EE`^.w@s1w@s01X @(I9-ELSE)EE`^,E`^/wAsC @(I10-ELSE)EE`^&E`^&E @(I10-END)@ @(I10-ELSE)@ @(I10-END)E`^E @(W1-END)E @(I9-END)@ @(I9-ELSE)@ @(I9-END)E`^UE`^QEE @(W1-TEST)@ @(W1-END)`s c bdI^ɂEE`^0`vFile: dQ^%E`s c bdI^E`s c bdI^~EEE`^.E `s c bdIPv$ Type FILE # -- then press EnterdN^ɂE`sUdS^E`s c bdI^ɂEE`^,E`^/EwA FILENUME`^E`^0`vcc:dQ^%E`s c bdI^EE`^.`s c bdInv3 Type NAMES TO RECEIVE COPY -- then press EnterdN^ɂEE `sUdS^E`s c bdI^ɂE`s c bdI^~EE`^E`^0`s c bdI^E` r?dX^E`avyFILENUMdQ^E`^UE`^eE`^UE`avPage dQ^E`^E`^UE`^EE`as c bdI^dEE`^E`^āE`^āE`^āE`^,E`^E`^EE`^EEE`^`s c bdI^~E`s c bdIBv PRESS [ENTER] TO FINISHdN^ɂE` zXdRvDone!dN$vMacro completeyHRThv0Filename at bottom will be visible after saving.dN^E`s c bdI^ɂEEE|@CANCELE`s c bdI^ɂEE0EE|@NOSTYLEEE (vStyle not found!.vCREATING MEMO STYLEsssgE E `vMEMOdQs c bdI^E `vMEMOd@^E `s c bdI^E`v Memo formatdQ^E`^E`s c bdIs c bdI^gE`as c bdI^dEEEE`s c bdIa r?dXs c bdIa r@dXs c bdIa r@dXs c bdIa r @dXs c b d Ia r@d Xs c b d Ia r@d Xs c b d Ia r@dXs c bdIa r@dXs c bdIa r@dXs c bdIa r@dXs c bdIa r@dXs c bdIa r@dXs c bdI^E`^T`as c bdI^YE`a.vM E M O R A N D U MdQ^E`as c bdI^ZEE`^E`^`s c bdI^E`vMEMOd@^E`s c bdI^ɂEE0sE <OKSTYLEE!/A"B& @(I9-END)$BE& @(I10-END)&B)& @(I10-ELSE)$B& @(I9-ELSE)"B' @(W1-END)$B# @(W1-TEST)"B" @(I8-END)$B! @(I8-ELSE)"BY @(I6-END)"B @(I7-END)$B @(I7-ELSE)$B? @(I6-ELSE)"B @(I5-END)$B) @(I5-ELSE)"BD @(I2-END)"BBg @(I4-END)$BBM @(I4-ELSE)"B= @(I3-END)$B= @(I3-ELSE)$BD @(I2-ELSE)"B0 @(I1-END)$B0e @(I1-ELSE)B3CANCELB%4NOSTYLEBK OKSTYLEe&fUSWordPerfect.fUSWPMacroFacility fBM_1_# e37=CIQYag1.a.i.(1)(a)(i)1)a)(2o $ 9!X  7~XXdd7     9!X  7^XXdd7     _,X,, XX>XXXXX> =XXdd=%  //  MEMO.WCM Creatememoformat , //  MacroforWordPerfectforWindows6.x/7/8/9byKendallCallas @ //  (C)Copyright19941999,MicroCounsel,(415)921-6850. T( //  AllRightsReserved.Copyingoralterationprohibited. h<  X>X//CREATEMEMO d //Memoproducesamemorandumformat.Itshowsoff://Input"incontext":Theusertypesintothedocument h< //  --thevisiblecursormakesitinstantlyclearwhattotypebasedonthesurroundingtext. T ( //Smartfeatures: @   //Automaticdate(text,notadatecode--soyoukeepanaccuraterecordofthedocument).//Automaticheader--capturestheFile#enteredandaddscurrentdateandpage#//Worksfromablankscreen,orofferschoiceofwrappingthememoformataroundtext.//Afilenamecodeisautomaticallyinserted.//Minimalkeystrokesrequired:   //Enterkeyisusedtofinisheachentry.//Usernameisthedefaultauthor(assetinTools,Settings,Environment)//Usesastyletoholdtheformatcodesandheading,makingiteasytoadd/changefeaturessimplybyeditingthe t //10񀀀012  2MEMOstyle--createsittemporarilyifitdoesn'texist. ` ////ThismacroshowsoffthestrengthsemphasizedinallmicroCounselmacros://  Easeofuse,requiringminimalactionbyuser. P$ //  Clarityofprompts--notrainingrequired. < //  Optimizedforspeed: ( //   4 -noviceuserscanpointandclick,  //   4 -experienceduserscanblastthroughviakeystrokes.  //  Usefuldefaults(yougetsomethingusefulevenifyoucloseyoureyesandpressEnter).  #X>XXX>##XX>#re="Re:"0 4 0 4&4&0 & &//"Re:"or"Subject:" & & useUserName="yes" //"yes"tousenameenteredin E ditPr e ferences E nvironment  //Requires"MEMO"styleorcreatesitHRt=NTOC(0F90Ah)MacroStatusPrompt(On!;"WORKING...")Display(Off!)SelectOff()SearchCaseSensitive(No!)MatchPositionAfter()OnError(cancel@)IF((NOT?EditScreen)OR?Substructure)  BEEPBEEP  MessageBox(x;"Error!";"*Mustbeattheeditscreentousethismacro!*";OK!|iconStop!)  QUIT̀ENDIF D0//  IF(not?docblank)  BEEP  //dialogdefine(dlg;lft;top;wid;ht;style;caption)  DialogDefine(110;50;50;260;67;Cancel!|Percent!;"Screennotempty!")  //dialogaddPushbutton(dlg;ctrl;lft;top;wid;ht;style;buttontext)  DialogAddPushButton(110;102;50;10;145;15;1;"Creatememoin&Newwindow")  0 4  DialogAddPushButton(110;103;50;30;145;15;0;"&Addmemoformataboveexistingtext") 4&4&   DialogDisplay(110;102)  Assign(choice;MacroDialogResult)  DialogDestroy(110)    If(choice<102)QUITENDIF  //cancel     MacroStatusPrompt(On!;"WORKING....")  IF(choice=102) //newdoc l@    4 FileNew  ENDIFENDIFONCANCEL(cancel@)PosDocTopONError(noStyle)//stylenotfoundStyleOn("MEMO")//0  MemostyleincludesMEMORANDUMandcontrolsverticalspace,font,margin,pg#s, H suppress && LABEL(okstyle)  !X  FlushRightFontSize(FontSize:9.0p)Type(Text:"Confidential:WorkProduct")EnterKeyFlushRightType("AttorneyClientPrivilege")EnterKeyAttributeAppearanceOff(Attrib:Bold!)//Justification(Left!)    FontSize(FontSize:12.0p)OnNotFound(cancel@)UnderlineTabs(Yes!)//underlinetabs//EnterKeyEnterKeyEnterKeyType("To:")0 IndentEnterKey  & & EnterKeyType("From:")0 IndentEnterKey  & & EnterKeyType("Date:")0 IndentDateTextEnterKey  & & EnterKeyType(re)0 4 0 4&4&IndentEnterKeyX, & & EnterKeyType("File:")0 IndentEnterKeyh & & EnterKeyType("cc:")0 4 IndentEnterKey4&4& EnterKeyEnterKeyHLineCreate()EnterKeyEnterKey//extralineabovefilenamePosDocBottomPosLineEndEnterKeyt Enterkey $#! #t #t InsertFilenameWithPath() %$" //InsertFilename#t D#t  &%# SelectCharPrevious()//FontSize(FontSize:6.0p)AttributeRelativeSize(Size:Small!)#t #PosDocTop L, +( SearchString("To:")SearchNext(Regular!)PosLineEndDISPLAY(ON!) /\.+ ЇBEEPMacroStatusPrompt(On!;"TypeRECIPIENT--thenpress[Enter]")PauseCommand(Hardreturn)MacroStatusPrompt(Off!)PosDocTopSearchString("From:")SearchNext(Regular!)PosLineEndIF(useUserName="yes")  QuickMarkSet  type(?UserName)  QuickMarkFind  SelectLineEnd  MacroStatusPrompt(On!;"EditAUTHORNAMEifneeded--thenpressEnter")ELSE  MacroStatusPrompt(On!;"TypeAUTHORNAME--thenpressEnter")EndIfBEEPPauseCommand(Hardreturn)MacroStatusPrompt(Off!)IF(useUserName="yes")  QuickMarkFind  IF(?rightCode=204)$ < $-$//$-,$HRt$%meansnonametyped%,-,  ,-,//userpressedEnter,leavingnoentry,      4 type('?'(?UserName(&dateday&)))*  *EndIf+ 4 //userpressedEnter,leavingnoentry+.EndIf.  \0 //PosDocTopSearchString("Date:")SearchNext(Regular!)PosLineEndPosWordPreviousPosWordPreviousC  $#CQuickMarkSetSelectWord%  %BEEPMacroStatusPrompt(On!;"EDITDATEifneeded--thenpressEnter")PauseCommand(Hardreturn)MacroStatusPrompt(Off!)QuickMarkFindIF(?rightChar=",")type(?dateday)EndIf  //userpressedEnter,leavingnoentry  D PosDocTopSearchString(re)SearchNext(Regular!)PosLineEndBEEPMacroStatusPrompt(On!;"TypeTOPICthenpressEnterTWICE")//PauseCommand(Hardreturn)While(1)0 4 //multilineentry,terminatewithEnteralone 4&4& //  pass=1+pass0 //optionallyunderline1stline  & & //  IF(pass=1)0 AttributeAppearanceOn(Attrib:Underline!)0 & &EndIf &&   PauseCommand(Hardreturn)  Display(off!)  PosLineEnd  IF((?leftCode=4576)OR(?leftCode=12512))0  //4576=LeftTab,12512=IndentD&&    4 Poslinebeg   4 SelectLineEnd   4 If(StrLen(?selectedText)<2)  //linelength=0or1 T    4  DeleteCharPrevious   4  DeleteCharPrevious   4 EndIf   4 SelectOff   4 Break  EndIf  HardReturn  Indent//IndentEndWhileMacroStatusPrompt(Off!)  \0 PosDocTopSearchString("File:") @ SearchNext(Regular!) T( Display(on!) h< PosLineEnd |P BEEP x MacroStatusPrompt(On!;"TypeFILE#--thenpressEnter")  PauseCommand(Hardreturn)   MacroStatusPrompt(Off!)   Poslinebeg   SelectLineEnd    filenum =?selectedText   SelectOff  0  PosDocTop , SearchString("cc:") @ SearchNext(Regular!)PosLineEnd T( MacroStatusPrompt(On!;"TypeNAMESTORECEIVECOPY--thenpressEnter") |P BEEP d PauseCommand(Hardreturn) x MacroStatusPrompt(Off!)   display(off!) , QuickMarkSet @ PosDocTop T( HeaderA(Action:Create!) h<   MarginLeft(1.0") |P   Type(""+filenum) //filenumcontainsFile: d   HardReturn() x   DateText()    HardReturn()     Type(Text:"Page")     PageNumberDisplay()     HardReturn()   SubstructureExit()   Suppress(Item:HeaderA!) D QuickMarkFind  X, PosLineDown , PosLineDown @ PosLineDown T( PosLineBeg h< EnterKey |P EnterKey//extrablanklineafterhorizline d Tabkey x //Tabkey0 4 //optional4&4& QuickMarkSet   //LineSpacing(2.0)  < //optionaldoublespacing   Display(on!)   ''MacroStatusPrompt(On!;"PRESS[ENTER]TOFINISH")   MESSAGEBOX(X;"Done!";"Macrocomplete"+HRt+"Filenameatbottomwillbevisibleafter 0  saving.") D MacroStatusPrompt(Off!) X, #''/#QUIT  T LABEL(cancel@) , MacroStatusPrompt(Off!) @ EndPrompt T( QUIT h< LABEL(noStyle) d //Prompt("Stylenotfound!";"CREATINGMEMOSTYLE"; NoButtons! |NoIcon!) x Prompt("Stylenotfound!";"CREATINGMEMOSTYLE")  StyleCreate("MEMO";OpenStyle!)   StyleEditBegin("MEMO")   StyleType(OpenStyle!)   StyleDescription("Memoformat")    StyleCodes() 4  PageNumberPosition(BottomCenter!;UseDefaultValues!) H Suppress(PageNumbering!) \0 //***Alltabscleared X 0    && %  TabSet(Relative!;{1.75";TabLeft!;2.25";TabLeft!;2.75";TabLeft!;3.25";TabLeft!;3.75";TabLeft!;  4.25";TabLeft!;4.75";TabLeft!;5.25";TabLeft!;5.75";TabLeft!;6.25";TabLeft!;6.75";TabLeft!;  7.25";TabLeft!})  CenterAttributeAppearanceOn(Bold!)  Type("MEMORANDUM")  AttributeAppearanceOff(Bold!)  EnterKey $ SubstructureExit 8  StyleEditEnd(Save!) L  StyleOn("MEMO") `4 MacroStatusPrompt(Off!) t H EndPrompt !\  WAIT(5) "p! GO(okstyle)  #"  //Endofcode ,