WPC-, h $8>RRP]?:@)~ 7Jۛj 5uQ}G-7Kŗ}*Xwi7L27|hi0b{id-Ag@kq .#PAoA{ؕv7jĭ A +EۈQ}ܩm%L ,xC@^~\u&WROνs$ T.Z 6qgƻSyb"{*(T?ȋ1@gY72Eg덯_,iKvc@A#TJLYS4fʴck# QBsґ~HA@_rxA^eq0ltf㲝b [Acjks+fH2XqSx,2-C2Roz{ċ7؈>1.8?u)>-kIRS`!U. %b n 0U Nz RN4w0 04 0D 0DUN'u mw# 72W ^ 1k   * 1u******* 0b+<6X9`(CourierX .H#|x<6X9`(CourierXx6X@`7X@(9$X  7XXdd7    (9 Z 6Times New Roman RegularvComStart(/W$"3(3$ 9!X  8WXXdd8     ($$  0  (3 $ 9!X  8WXXdd8       0  .(9 Z6Times New Roman Regular UHP LaserJet III,,,,,,0i)/ $35;AGOW_e11.a.i.(1)(a)(i)1.a.95 D:\web\memo11.wcmQX_5W oRe: RE oyes USEUSERNAME"Hx LIB) HRT#H[LI#o WORKING ...LNEɂ$H[LIB~@%HE&H[LIE2'HE<)HoCANCELLOB*@+HB*{HB+?t,HE*HE*-H vXLRoError!LNio1* Must be at the edit screen to use this macro! *LN[[0LIBn)@.HE*/t1HB){2HE*4H[nLQ[2LE[2LExLE[CLE[[LI)oScreen not empty!LNB'@6H[nLQ[fLQ[2LE[ LE[LE[LE[LI;oCreate memo in &New windowLNB'@8H[nLQ[gLQ[2LE[LE[LE[LE[LIOo$&Add memo format above existing textLNB'@9H[nLQo WordPerfectLQ[fLQB'@:)rMACRODIALOGRESULTCHOICE;H[nLQB'@=rCHOICE[f2.HE*.?H[LI'o WORKING .... LNEɂArCHOICE[f*BHEMCDFHoCANCELLOB*@HHE0IHoNOSTYLELOB*@KHoMEMOL@ENPHESQH g"@LXERHI;oConfidential: Work ProductLQESHETHESUHI9oAttorney-Client PrivilegeLQEVHEWHI[ LIEZYH g(@LXE[HoCANCELLOB*@\H[LIE_HE`HEaHIoTo: LQEHEQHEbHEcHIoFrom: LQEHEQHEdHEeHIoDate: LQEHEQHEeHEfHEhHI rRELQEHEQHEiHEkHIoFile: LQEHEQHElHEnHI occ:LQEHEQHEoHEqHEsHEJtHEuHEwHEԁxHE.yHEzHE{HE}HEH[LIE\HEHE0H oTo:LQE%H[LIEHE.H[LIB~@HE*H[LIYo) Type RECIPIENT -- then press [Enter]LNEɂH[ULSEH[LIEɂHE0HoFrom:LQE%H[LIEHE.r USEUSERNAME oyes*KHEHIHBLQEHEHE/HEH[LImo3 Edit AUTHOR NAME if needed -- then press EnterLNEɂH[LI[o* Type AUTHOR NAME -- then press EnterLNEɂHE*H[ULSEH[LIEɂr USEUSERNAME oyes*HEHB@[*HIHBLQEHE0HoDate:LQE%H[LIEHE.HEHEHEHEHE*H[LI[o* EDIT DATE if needed -- then press EnterLNEɂH[ULSEH[LIEɂHEHEHB@ o,*]HIHB3ALQE]HE0H rRELQE%H[LIEHE.HE*H[LIYo) Type TOPIC -- then press Enter TWICELNEɂ[H[ULSEH[LIB~@HE.HB@x*HB@x0*?dHE,HE/HEHHBALQB )[2?HE&HE&?HEdHEUHEQ;H[LIEɂHE0HoFile: LQE%H[LIEH[LIB~@HE.HE*H[LIOo$ Type FILE # -- then press EnterLNEɂH[ULSEH[LIEɂHE,HE/HEHBAFILENUMHEHE0H occ:LQE%H[LIEHE.H[LImo3 Type NAMES TO RECEIVE COPY -- then press EnterLNEɂHE*H[ULSEH[LIEɂH[LIB~@HEHE0H[LIEH b?LXB@HIorFILENUMLQEHEUHEeHEUHIoPage LQEHEHEUHEHI[LIEdHEHEāHEāHEāHE,HEHEHEHEH[LIB~@H[LIAo PRESS [ENTER] TO FINISHLNEɂH vXLRoDone!LN#oMacro complete rHRTgo0Filename at bottom will be visible after saving.LNBn)@ H[LIEɂ HE*  H[LIEɂHEk)HE*H'oStyle not found!LN-oCREATING MEMO STYLELQEm)HoMEMOLQ[LIEHoMEMOL@EH[LIEHo Memo formatLQEHEH[LI[LIEgHI[LIEd!H[LII b?LX[LII b@LX[LII b@LX[LII b @LX[L II b@L X[L II b@L X[L II b@LX[LII b@LX[LII b@LX[LII b@LX[LII b@LX[LII b@LX[LIE"HETHI[ LIEY#HI-oM E M O R A N D U MLQE$HI[ LIEZ%HE&HE'H[LIE(HoMEMOL@E)H[LIEɂ*HEk)+H[LUE*,,OKSTYLE[)51 CANCEL1NOSTYLE1NDOKSTYLE+N!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterBM_1_3#37=CIQYag1.a.i.(1)(a)(i)1)a)(21;$ 9!X  8WXXdd8     9!X  8WXXdd8     _,X,, XX]XXX*XX] =XXdd=%  //  MEMO.WCM Creatememoformat , //  MacroforWordPerfectforWindows6.x/7/8/9/10/11byKendallCallas @ //  (C)Copyright19942004,MicroCounsel,(415)921-6850. T( //  AllRightsReserved.Copyingoralterationprohibited. h<  **X]X*//CREATEMEMO d //Memoproducesamemorandumformat.Itshowsoff: |P //Input"incontext":Theusertypesintothedocument h< //  --thevisiblecursormakesitinstantlyclearwhattotypebasedonthesurroundingtext. T ( //Smartfeatures: @   //0  Automaticdate(text,notadatecode--soyoukeepanaccuraterecordofthedocument)., && //0  Automaticheader--capturestheFile#enteredandaddscurrentdateandpage# && //0  Worksfromablankscreen,orofferschoiceofwrappingthememoformataroundtext. && //0  Afilenamecodeisautomaticallyinserted. && //Minimalkeystrokesrequired:   //0  Enterkeyisusedtofinisheachentry.&& //0  Usernameisthedefaultauthor(assetinTools,Settings,Environment)&& //Usesastyletoholdtheformatcodesandheading,makingiteasytoadd/changefeaturessimplybyeditingthe t //  MEMOstyle--createsittemporarilyifitdoesn'texist. ` // xL //ThismacroshowsoffthestrengthsemphasizedinallmicroCounselmacros: d8 //  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"styleorcreatesit  HRt=NTOC(0F90Ah) ,! ! MacroStatusPrompt(On!;"WORKING...") @"!" Display(Off!) T#("# SelectOff() h$<#$ SearchCaseSensitive(No!) |%P$% MatchPositionAfter() &d%& OnError(cancel@) ('( IF((NOT?EditScreen)OR?Substructure) *)*   BEEPBEEP +*+   MessageBox(x;"Error!";"*Mustbeattheeditscreentousethismacro!*";OK!|iconStop!) -+,   QUIT .,- ЀENDIF 0/..  D0// IF(not?docblank) ,   BEEP @   //dialogdefine(dlg;lft;top;wid;ht;style;caption) T(   DialogDefine(110;50;50;260;67;Cancel!|Percent!;"Screennotempty!") h<   //dialogaddPushbutton(dlg;ctrl;lft;top;wid;ht;style;buttontext) |P   DialogAddPushButton(110;102;50;10;145;15;1;"Creatememoin&Newwindow") d   0 4  DialogAddPushButton(110;103;50;30;145;15;0;"&Addmemoformataboveexisting x text")4&4&   DialogShow(110;"WordPerfect";;102) D //DialogDisplay(110;102)     Assign(choice;MacroDialogResult)     DialogDestroy(110)       If(choice<102)QUITENDIF  //cancel     MacroStatusPrompt(On!;"WORKING....") D   IF(choice=102) //newdoc l@    4 FileNew T   ENDIF h ENDIF | ONCANCEL(cancel@)  PosDocTop  ONError(noStyle)//stylenotfound   StyleOn("MEMO") 4 //0  MemostyleincludesMEMORANDUMandcontrolsverticalspace,font,margin,pg#s, H suppress\0&& LABEL(okstyle) p D   !X  FlushRight , FontSize(FontSize:9.0p) @ Type(Text:"Confidential:WorkProduct") T( EnterKey h< FlushRight |P Type("AttorneyClientPrivilege") d EnterKey x AttributeAppearanceOff(Attrib:Bold!)  //Justification(Left!)    FontSize(FontSize:12.0p) , OnNotFound(cancel@) T( UnderlineTabs(Yes!)//underlinetabs h< //EnterKey d EnterKey x EnterKey  Type("To:")0 IndentEnterKey  & & EnterKey   Type("From:")0 IndentEnterKey  & & EnterKey   Type("Date:")0 IndentDateTextEnterKey  & & EnterKey 0  Type(re)0 4 0 4&4&IndentEnterKeyX, & & EnterKey l@ Type("File:")0 IndentEnterKeyh & & EnterKey | Type("cc:")0 4 IndentEnterKey4&4& EnterKey  EnterKey   HLineCreate() 4 EnterKey H EnterKey//extralineabovefilename \0 PosDocBottom !X  PosLineEnd "l! EnterKey #"  **Enterkey $#! #**$#**InsertFilenameWithPath() %$" //InsertFilename#**Ƀ#** &%# SelectCharPrevious() '&$ //FontSize(FontSize:6.0p) )'% AttributeRelativeSize(Size:Small!) $*(& SelectOff#**#PosDocTop `-4,) SearchString("To:") t.H-* SearchNext(Regular!)PosLineEnd /\.+ DISPLAY(ON!) , BEEP T( MacroStatusPrompt(On!;"TypeRECIPIENT--thenpress[Enter]") h< PauseCommand(Hardreturn) |P MacroStatusPrompt(Off!) d PosDocTop  SearchString("From:")   SearchNext(Regular!)PosLineEnd   IF(useUserName="yes")     QuickMarkSet     type(?UserName) 0    QuickMarkFind D   SelectLineEnd X,   SelectCharPrevious  MacroStatusPrompt(On!;"EditAUTHORNAMEifneeded--thenpressEnter") T ELSE h   MacroStatusPrompt(On!;"TypeAUTHORNAME--thenpressEnter") | EndIf  BEEP  PauseCommand(Hardreturn)  MacroStatusPrompt(Off!)   IF(useUserName="yes") 4   QuickMarkFind H   IF(?rightCode=204) < //userpressedEnter,leavingnoentry \0    4 type(?UserName) p D   EndIf !X  EndIf  "l! PosDocTop , SearchString("Date:") @ SearchNext(Regular!) T( PosLineEnd h< PosWordPrevious |P PosWordPrevious d  (43QuickMarkSet x SelectWord  %  %A$BEEP   MacroStatusPrompt(On!;"EDITDATEifneeded--thenpressEnter")   PauseCommand(Hardreturn)   MacroStatusPrompt(Off!)   SelectOffQuickMarkFind D IF(?rightChar=",")type(?dateday)EndIf  //userpressedEnter,leavingnoentry  X, PosDocTop , SearchString(re) @ SearchNext(Regular!) T( PosLineEnd h< BEEP d MacroStatusPrompt(On!;"TypeTOPICthenpressEnterTWICE") x //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 0    IF((?leftCode=4576)OR(?leftCode=12512))0  //4576=LeftTab,12512=IndentD&&    4 Poslinebeg X,    4 SelectLineEnd l@   0 4 SelectCharPreviousT4&4&    4 If(StrLen(?selectedText)<2)  //linelength=0or1 h    4  DeleteCharPrevious |    4  DeleteCharPrevious     4 EndIf     4 SelectOff     4 Break    EndIf     HardReturn     Indent//Indent 4 EndWhile H MacroStatusPrompt(Off!)  p D PosDocTop , SearchString("File:") @ SearchNext(Regular!) T( Display(on!) h< PosLineEnd |P BEEP x MacroStatusPrompt(On!;"TypeFILE#--thenpressEnter")  PauseCommand(Hardreturn)   MacroStatusPrompt(Off!)   Poslinebeg   SelectLineEnd   SelectCharPrevious filenum =?selectedText 0  SelectOff  D 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, #**v4#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 ,