WPC9 O!6^g\EYy;gx1hV-1֮$Z4\Ϛ\ GB>C{=cS:Kߦ]aAaѶY<d*P@0׳ @E *3EZN>K}S$z i#%H/[U˻t[ֱ޼ƺlO%E4M-*%5YB%oU]D_ ?^>o5T1)OC86u,e l=bpּҳM% ⃡+q\etyS{sԧq7JZ8.6JE鉣}<:S{FuBqM\@7wx1RrDW0Nz>MD:" `\ !RsbD% o Y}%C_HޛɅlC2=L-|tzt>LV4 # %N 0( 4U@ ^ LwX\Sr^T T|V mR 0Di 72UN 0U- 0N88 0@ 0 0 0 0H 0 0 0= 0 0 0b 0 0 0W 0 0 0 0 0Y 0!! 0! 0o" 0 # 0# 07$ 1u$ 08% N%%%%  6 6 6 6 6 6 6N66666666666666666666 B6  6 0D 7 AQM77 Bd8d8d8d8d8d8d8 D1888 0D888888888 0D88888-:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9:9 B-g9Macro    ' 0Michael A. Koenecke00Michael A. Koenecke .   Lexmark Optra S 1250,,,,,,0X($HZ;03|x(O Z(Times New Roman <0, 7fEC/Qk'!X(4SelectNumberNewDialogdInstructNewDialogdInstallNewDialog )  __,EnvelopeMacro##G&__Page_Ԁ  1  ڀof  2  U(3$ !  2i)(O Z6Times New Roman Regular*+ (_2623  ..(O$C:\Data\Macros\SendKeys.wcmC:\Data\Macros\SendKeys.wcm*D+D (_25   ," <DL,23  ..," <DL,   *5+5 (_24  ) <DL)23  ..) <DL)  *2+2 (_23 ` &<<DL&23  ..&<<DL& ` */+/ (_22  #DL#23  ..#DL#  *,+, (_21   DL 23  .. DL  *)+) (_20 h DDL23  ..DDL h *&+& (_19  L23  ..L  *#+# (_18   L23  .. L  *>> (_17  2( 4 <DL223  Ԁ2( 4 <DL2  *DD (_16   ," <DL,23  Ԁ," <DL,   *55 (_15  ) <DL)23  Ԁ) <DL)  *22 (_14 ` &<<DL&23  Ԁ&<<DL& ` *// (_13  #DL#23  Ԁ#DL#  *,, (_12   DL 23  Ԁ DL  *)) (_11 h DDL23  ԀDDL h *&& (_10  L23  ԀL  (## &_9   L23  Ԁ L  (>> &_8  2( 4 <DL223  2( 4 <DL2  (DD &_7   ," <DL,23  ," <DL,   (55 &_6  ) <DL)23  ) <DL)  (22 &_5 ` &<<DL&23  &<<DL& ` (// &_4  #DL#23  #DL#  (,, &_3   DL 23   DL  ()) &_2 h DDL23  DDL h (&& &_1  L23  L  3#37=CIQYag1.a.i.(1)(a)(i)1)a)&## $_   L23   L  95 ,C:\Data\Macros\SendKeys.wcm5N1K x := Dimensions (MacroArgs[]; 0)H[W MACROARGS[La[LIB* X!F If (x <> 0) rX[;5f  pKeys (MacroArgs[1])[[S MACROARGS[PKEYS@ Else{ 8 GetString (x; "String to Send:"; "Send Keys Macro"; 35)H vXLR%oString to Send:LN%oSend Keys MacroLN[#LUEi) pKeys (x) rXPKEYS@6 EndIf5Q Procedure pKeys ( p1) P1  y := ""o YA  ForNext (x; 1; StrLen(p1))[ XY #(F1-FIRST)H rP1LQB )r #(F1-FIRST)]( rX-4[;c #(F1-STEP)r #(F1-STEP) rX XZ #(F1-FIRST) rXr #(F1-STEP)[2-2;  z := SubStr (p1; x; 1)H rP1LQ rXLU[LUB) Z)c  Switch (True)Y ] ) CaseOf z = ".": y = y + "{NumDecimal}"( rZ o.**@ rYo {NumDecimal} Y_ * CaseOf z = "*": y = y + "{NumMultiply}" k( rZ o***@ rY!o {NumMultiply} YSr $ CaseOf z = "\": y = y + "{VK220}"!k( rZ o\**> @ rYo{VK220} YS $ CaseOf z = "-": y = y + "{VK109}""k( rZ o-** @ rYo{VK109} Y_<* CaseOf z = "_": y = y + "{Shift+VK189}"#k( rZ o_** @ rY!o {Shift+VK189} Y_* CaseOf z = ":": y = y + "{Shift+VK186}"$k( rZ o:**~ @ rY!o {Shift+VK186} YS$ CaseOf z = " ": y = y + "{Space}"%k( rZ o **. @ rYo{Space} YSw$ CaseOf z = ",": y = y + "{VK188}"&k( rZ o,**" @ rYo{VK188} YF CaseOf CtoN(z) >= 65 AND CtoN(z) <= 90: y = y + "{Shift+" + z + "}"'k(H rZLQB)[A.H rZLQB)[Z3* @ rYo{Shift+ rZ o} YEc Default: y = y + "{"+z+"}"(k@ rY o{ rZ o} Y! EndSwitch) EndFor5 #(F1-FIRST) #(F1-STEP)% If (y <> "")6 rYo;p' SendKeys (y)7H rYLQE*0 EndIf8pVEndProc9[|5[)5+1PKEYSN!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterpKeysLevel 1Level 2Level 3Level 4Level 5 dA1(3$ !  WbUk_C<< CLevel 1Level 2Level 3Level 4Level 5P PdXX)! dxdx(3$ !  ($$   1   ##'#)Hairline d !  _,= XXdd=pL ,X%  //***************************************************************% T   //*0  MACRO:04&&0` 4&4& SendKeys.wcmp` &` & //*0  DESCRIPTION: AllowsSendkeystoworkinWordPerfect9+\&& //*0  AUTHOR:0` &&0 ` &` &MichaelA.Koenecke(mkoenecke@alum.haverford.edu)H & & //*************************************************************** 4  //  SendKeysisabrokenmacrocommandinWordPerfect9,10,and11.Thismacrosubstitutes   //  forSendKeys,sothatyoucanstillactuallysendkeystootherapplications.   //  Asitiswritten,itisinvokedbyrunningthismacrofromanotherwiththeparamenter  t //  ofwhatyouwanttosend,likeso:  ` //   X XXXRun(?PathMacros+"4_H O  5  SendKeys.wcm6*O>  7_"l";{"Anexampleofwhattosend.")#X XX X #  L  //  or  8  //   X XXX Run(?PathMacros+"4_H O  5  SendKeys.wcm6O  7_"";{vString)#X XX X h#  $  //  NotethatnontextcommandsshouldstillbesentwithSendKeys,like:   //  SendKeys("{Alt+B}")orSendKeys("{Enter}").   //  Youcanalsocopythewholeprocedurebelowandinsertitintoyourownmacro,inwhichcase l  //  itwouldbeinvokedlikethis:pKeys( X XXX "Anexampleofwhattosend."#X XX X #)orpKeys(vString). X  //  Youarewelcometousethiswithoutrestriction,solongasyouattributethecodetome. D _ x:=Dimensions(MacroArgs[];0) 0 If(x<>0)    pKeys(MacroArgs[1])  Else p   GetString(x;"StringtoSend:";"SendKeysMacro";35) \   pKeys(x) H EndIf 4 Procedure% 8 pKeys%8k Ԁ(p1)Q      y:="" |   ForNext(x;1;StrLen(p1)) h     z:=SubStr(p1;x;1) T     Switch(True) @       CaseOfz=".": y=y+"{NumDecimal}" ,       CaseOfz="*": y=y+"{NumMultiply}"         CaseOfz="\": y=y+"{VK220}" !        CaseOfz="-": y=y+"{VK109}" !l!       CaseOfz="_": y=y+"{Shift+VK189}" "X"       CaseOfz=":": y=y+"{Shift+VK186}" #D #       CaseOfz="": y=y+"{Space}" $0!$       CaseOfz=",": y=y+"{VK188}" %"%       CaseOfCtoN(z)>=65ANDCtoN(z)<=90: D y=y+"{Shift+"+z+"}" &#&       Default:y=y+"{"+z+"}" x'#'     EndSwitch d($(  //    OldCode: P)%) //  0  If(StrScan(y;1;;Alphabetic!)>0orStrScan(y;1;;Numeric!)>0orStrScan(y;1;;".")>0)<*&*&& //      z:=z+"{" (+'+ //      If(StrScan(y;1;;"ABCDEFGHIJKLMNOPQRSTUVWXYZ")>0) ,(, //       4 z:=z+"Shift+" -|)- //      EndIf  //      If(y="")y:="Space"EndIf p //      If(y=".")y:="NumDecimal"EndIf \ //      If(y="")y:="Minus"EndIf H //      z:=z+y+"}" 4 //    EndIf      EndFor     If(y<>"")  t     SendKeys(y)  `   EndIf  L  EndProcV