WPC4 .ݥ اI<ŒtxLl`]HyWCZ RyToRgg/(rx?&ߑleۖ] mkoyqR3WGO5sHid P{zF ǩ%\#!B5-`O:N<ן+#k{dCZ(h-!.ePr& Wo .UwVى;F<\=mԓL>Ԅ/˨_ 0_ 0` 0a 0b 0c 0d 0qe 01f 02 g 0;g 0:7h 0Yqh 0_h 0 )i 03j 0 k D/m D+m 0 n D/'p 0Vp 06$q 0Zq 0:br 0^r 0<r 1e6sU6sU>sU*t 9tU,?t?tT ktktT C0kkkkkkkkkkkkkkkkk D5 B7Ќ B7>>>> A B  0 1u] 72ҏҏҏҏ ASW 0 0D D5 D5 BM D5j B D5 B D5 BC D1` D5 B*Ɠ D5 B*% 0OOOOOOOOOOOOOOOO C C C% C? CY Css C C C Cە C C D5) B*^ D5 B* DMHP LaserJet 5L,,,,0. Z<Century Schoolbook RegularX(>$qqqq1d8Z wo4WPWINc3|xU2J+M 0_level1  X 2( ` hp x 223  ..  5+ ` hp x 5  2G+M 0_level2   /%` ` hp x /23  ..  5+ ` hp x 5  2D+M 0_level3   ," hp x ,23  ..  5+ ` hp x 5  2A+M 0_level4  ` ) hp x )23  ..  5+ ` hp x 5  2>+M 0_level5   &hhp x &23  ..  5+ ` hp x 5  2;+M 0_level6   #p x #23  ..  5+ ` hp x 5  28+M 0_level7  h  p x 23  ..  5+ ` hp x 5  25+M 0_level8   pp x 23  ..  5+ ` hp x 5  22+M 0_level9    x 23  ..  5+ ` hp x 5  2JM 0_levsl1  X 2( ` hp x 223  Ԁ  5+ ` hp x 5  2GM 0_levsl2   /%` ` hp x /23  Ԁ  5+ ` hp x 5  2DM 0_levsl3   ," hp x ,23  Ԁ  5+ ` hp x 5  2AM 0_levsl4  ` ) hp x )23  Ԁ  5+ ` hp x 5  2>M 0_levsl5   &hhp x &23  Ԁ  5+ ` hp x 5  2;M 0_levsl6   #p x #23  Ԁ  5+ ` hp x 5  28M 0_levsl7  h  p x 23  Ԁ  5+ ` hp x 5  25M 0_levsl8   pp x 23  Ԁ  5+ ` hp x 5  22M 0_levsl9    x 23  Ԁ  5+ ` hp x 5  2JM 0_levnl1  X 2( ` hp x 223   5+ ` hp x 5  2GM 0_levnl2   /%` ` hp x /23   5+ ` hp x 5  2DM 0_levnl3   ," hp x ,23   5+ ` hp x 5  2AM 0_levnl4  ` ) hp x )23   5+ ` hp x 5  2>M 0_levnl5   &hhp x &23   5+ ` hp x 5  2;M 0_levnl6   #p x #23   5+ ` hp x 5  28M 0_levnl7  h  p x 23   5+ ` hp x 5  25M 0_levnl8   pp x 23   5+ ` hp x 5  22M 0_levnl9    x 23   5+ ` hp x 5  . Z.Century Schoolbook   *n'qXvXXXqEXqXv  55CharlesE.Rossiter@! TextOpenSave.wcm @(#Page  1  ڀof  6  ڈ  charles@rossiter.co.za@$Version13.0;(#2006February01 x @HY@A+) xdExA( $ Figure  1  (Z3n$ !qX[XXXq 1XqX[  *+ (_2623  ../0su \PrograUp4NwSp4CSp4=Vp4IV*J+J (_25   2( , 4<D "223  ..2( , 4<D "2   OpenSave OpenDEOpen OpenDE SaveDENewDialogOpenOpenSave oopen ssaveSaveOpen"Arial Regular*;+; (_24  /%, , 4<D "/23  ../%, , 4<D "/  *8+8 (_23 ` ," 4<D ",23  ..," 4<D ", ` 95 ZH:\MasterMacros\TextOpen_Save.wcmg@G5t $CHECKVERSION11@HoLQUITLOB*@HoLERRORLOB*@HxLIB)VBOLDONHxLIB)VBOLDOFFHvVANSI1LaB*{VANSI1VANSI2VANSI3VASCII1VASCII2VASCII3VAAPATH[VANSI1[VANSI2[VANSI3[VASCII1[VASCII2[VASCII3HB VAAPATH!HB)"LOPEN@# $LSAVE@%')rVDOTHIS[ *X*LSAVE@+X,rVDOTHIS[ *-LOPEN@.0, LTRYAGAIN45rVAAPATHo*6HB VAAPATH78rVAAPATH VPATHFILEZHoOpenLQ[LQB'@])rMACRODIALOGRESULT[ *^[ VDOTHIS_HoOpenLQB'@`[|acr VPATHFILEo*dHo Test OpenLN9oFilename window was blankLNBn)@e,LQUITfg)rMACRODIALOGRESULT[;)h,LQUITi)jrVANSI1[*kHr VPATHFILELV[LIEl mrVANSI2[*nHr VPATHFILELVxLIEo prVANSI3[*]qHr VPATHFILELVxLIEr srVASCII1[*tHr VPATHFILELV[LIEu vrVASCII2[*- wHr VPATHFILELV[LIEx yrVASCII3[* zHr VPATHFILELV[LIE{ |}~r VPATHFILEPARSEVAAPATH,LQUITHB8HB% VPATHFILEHoSaveLQ[LQB'@)rMACRODIALOGRESULTVDOTHIS)rMACRODIALOGRESULT[ *$ HoSaveLQB'@[|$ r VPATHFILEo* Ho Test SaveLN9oFilename window was blankLNBn)@,LQUIT )rMACRODIALOGRESULT[;; ,LQUIT; ZV10SP3H[L@[LIB,+ aE0B* YV10SP3Hr VPATHFILEo.CERLN[LI[LIEN rVANSI1[*p Hr VPATHFILELN[LI[LIENrVANSI2[* Hr VPATHFILELNxLI[LIENrVANSI3[*PHr VPATHFILELNxLI[LIENrVASCII1[*Hr VPATHFILELN[LI[LIENrVASCII2[*2Hr VPATHFILELN[LI[LIENrVASCII3[*Hr VPATHFILELN[LI[LIENrV10SP3Hr VPATHFILEo.CERLNEr VPATHFILEPARSEVAAPATHHE*Ho Open-SaveLN9oInvalid file name or pathLNBn)@HE*^W VP[[VP[H rVPLQ o\L@[LIB%) VPH[[ SVP[[ SVP[LQB )DELCHARSH rVPLQH rVPLQB )rDELCHARSLUB)VAAPATHrVAAPATH|[|5`YHx LIB)VHRTH[L@[LIB,+ NNN rNNN aXb/FB2 rNNN a`/FB-NHvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@rVANS[-DHE*DN[|5[)5!1'  LTRYAGAIN1 LSAVE14LOPEN1vLERROR1cLQUIT++1iCHECKVERSION111PARSEN!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter*5+5 (_22  ) 4<D ")23  ..) 4<D ")   rossiter,iAZArial *2+2 (_21  &44<D "&23  ..&44<D "&  */+/ (_20 h #<D "#23  ..#<D "# h *,+, (_19   <D " 23  .. <D "  *)+) (_18  <<D "23  ..<<D "  *DD (_17  8.$$|, 4<D "823  Ԁ8.$$|, 4<D "8  *JJ (_16   2( , 4<D "223  Ԁ2( , 4<D "2   *;; (_15  /%, , 4<D "/23  Ԁ/%, , 4<D "/  *88 (_14 ` ," 4<D ",23  Ԁ," 4<D ", ` *55 (_13  ) 4<D ")23  Ԁ) 4<D ")  *22 (_12  &44<D "&23  Ԁ&44<D "&  *// (_11 h #<D "#23  Ԁ#<D "# h *,, (_10   <D " 23  Ԁ <D "  ()) &_9  <<D "23  Ԁ<<D "  (DD &_8  8.$$|, 4<D "823  8.$$|, 4<D "8  (JJ &_7   2( , 4<D "223  2( , 4<D "2   (;; &_6  /%, , 4<D "/23  /%, , 4<D "/  (88 &_5 ` ," 4<D ",23  ," 4<D ", ` (55 &_4  ) 4<D ")23  ) 4<D ")  (22 &_3  &44<D "&23  &44<D "&  (// &_2 h #<D "#23  #<D "# h (,, &_1   <D " 23   <D "  &)) $_  <<D "23  <<D "  0DD.Normal  8.$$|, 4<D "88.$$|, 4<D "8  <DD:Definition T  8.$$|, 4<D "88.$$|, 4<D "8  <DD:Definition L , 8.PP|, 4<D "8  8.$$|, 4<D "886Definition(kk&H1  8.$$|, 4<D "8      8.$$|, 4<D "8  (``&H2  8.$$|, 4<D "8  8.$$|, 4<D "8  (``&H3  8.$$|, 4<D "8  8.$$|, 4<D "8  (``&H4  8.$$|, 4<D "8 XXX 8.$$|, 4<D "8  (``&H5  8.$$|, 4<D "8  8.$$|, 4<D "8  (``&H6  8.$$|, 4<D "8  8.$$|, 4<D "8  2GG0Address  8.$$|, 4<D "88.$$|, 4<D "8  8PP6Blockquote , , 8.PP|, 4<D "8   8.$$|, 4<D "8,*CITE,dl*CODEKm<6X9`(Courier NewKSn\  `&Times New RomanS42Emphasis64Hyperlink    <:FollowedHype    4go2Keyboard Km<6X9`(Courier NewKSn\  `&Times New RomanS <:Preformatted  /%$ $Dc = \#/Km<6X9`(Courier NewKSn\  `&Times New RomanS/%$ $Dc = \#/  <:zBottom of 7b(X7    8.$$|, 4<D "8?o%2A`Arial?  Sn\  `&Times New RomanS7c(X78.$$|, 4<D "8  )1dxd'dxd<:zTop of For7e(X7    8.$$|, 4<D "8?o%2A`Arial?  Sn\  `&Times New RomanS7c(X78.$$|, 4<D "8  )2dxd0KS.SampleKm<6X9`(Courier NewKSn\  `&Times New RomanS0.Strong 8dl6TypewriterKm<6X9`(Courier NewKSn\  `&Times New RomanS42Variable: 8HTML MarkupB      2 0CommentB  <=>?@ABC 35;AGMSY_11.1.1.1.1.1.1.1.<6X9`(Courier New\  `&Times New Roman%2A`ArialH,iAZArial  (  4 BP $HPl( P80lPtH@8x8PdD0\ @  l l  PP  PXCancell Save File h v d XWPrbox20 8D<22" \@ NDPOKDxH& PLT& XL`d < @drp  @t  - F L T L b L p L ~ L  L&   $LxLbuttonHOKBttn\Arial@\Save Text Files in Ansi or Ascii format\T$CancelBttn$ <SaveX&1 Ansi (Windows) Text (SRt to CR/LF)X`9t staticp1,,WPfne20 VPATHFILE Accept this filename, or Browse and select the filename for saving:2 VANSI13 811dH&6 Ascii (DOS) Delimited TextHVASCII3l&2 Ansi (Windows) Text (WordProcessor format)lVANSI24PF&3 Ansi (Windows) Delimited TextPVANSI35T&4 Ascii (DOS) Text (SRt to CR/LF)TVASCII164$ Q@,p12345678`9d2:/@/B/C<EGTaIPVjlq vn|00\0L G$XH5\td 8 d&5 Ascii (DOS) Text (WordProcessor format)d VASCII27$l&Open another File instead of Saving this one?l  d&5  ( 4BP xL`<|XP80, x\0( 8<p8$<PL8(T L, PXCancelh > 8D<22" \@ NDPOKLbutton$`&Save a File instead of Opening another?` 10HOKBttn\Arial@\Open Text Files in Ansi or Ascii format\T$CancelBttn$<Open`Enter the filename, or Browse and select the file to be opened:<@&1 Ansi (Windows) Text<t staticp1,,WPfne20 VPATHFILE 2 VANSI13H&6 Ascii (DOS) Delimited TextHVASCII3t&2 Ansi (Windows) Text (CR/LF converted to [SRt])tVANSI24PF&3 Ansi (Windows) Delimited TextPVANSI354&4 Ascii (DOS) Text4VASCII168 pT&5 Ascii (DOS) Text (CR/LF converted to [SRt]) p VASCII274 Open File 0HT( PWPrbox20 DxH& PLT& XL,d < @0(0rp  @t  - F L T L b L p L ~ L  L&   $Lx,94%0 Qp12345678,9(2:$:/@/B/CTaIPVc<f@>hq v00\0L GXH5քitdb  %0,Sticky Notedd)!dxdx3+0 d d d3+0 d d dLevel 1Level 2Level 3Level 4Level 5)c I&mage1<=8C HKKKK d(Z2aD$ !qX[XXXq 1XqX[  (#(#K(#. 3#37=CIQYag1.a.i.(1)(a)(i)1)a)i)E<<CLevel 1Level 2Level 3Level 4Level 5(Z3n$ !qX[XXXq 1XqX[  ($$   1  )!dxdx)!dxdx  d)!dxdxP Pd)!dxdx d)!dxdx d)! dxdx)!dxdx&0 d d)!dxdx&P d dd>}C:StandardFontStandard Font Choice'%Y%%%r'XrX%%Yd ddd(d2d1)  ?p  ЀGo(lQuit) 8  Ѐ Endif    If(vAnsi1=1)   ЀFileOpen(vPathFile;ANSIText_Windows!) O  ЀElse @  If(vAnsi2=1)   ЀFileOpen(vPathFile;ANSIGenericWordProcessor_Windows!)   ЀElse O If(vAnsi3=1) @ ЀFileOpen(vPathFile;ANSIDelimitedTextWindows!)  ЀElse  If(vAscii1=1) O ЀFileOpen(vPathFile;ASCIIStandard!) @ ЀElse  If(vAscii2=1)  ЀFileOpen(vPathFile;ASCIIStripped!) O ЀElse @ If(vAscii3=1)  ЀFileOpen(vPathFile;DelimitedText!)  ЀEndif O ЀEndif  @  ЀEndif  ! ЀEndif !" ЀEndif O"# ЀEndif #@$ vAAPath=Parse(vPathFile) $& Go(lQuit) O%'   &)  TT7(#. //SaveFileroutine  Label(lSave)    9(#. //Setupfilename [   PvPathFile=?path+?name  P  IfPlatform("Dialog Save movedtoDialogEditor") "   w  =(#. //SAVEDialog o   DialogDefine("Save";50;50;290;180;OK!|Cancel!|Percent!; 3 d Ѐ"SaveTextFilesinAnsiorAsciiformat")   , 7EqEDialogSetProperties("Save";FontName:"Arial";FontSize:10p)   #qE7E!#DialogAddText("Save";9;100;10;60;14;Center!|WPChars!|RecessBox!;   ЀvBoldOn+"SaveFile") Ct  DialogAddText("Save";1;10;30;240;12;Left!; 4  Ѐ"Acceptthisfilename,orBrowseandselectthefilenameforsaving:")   DialogAddFileNameBox("Save";2;10;45;260;18;   ЀFilesAndDirs!|FileDoesntHaveToExist!;vPathFile) Ct  DialogAddRadioButton("Save";3;10;70;180;12; 4  Ѐ"&1Ansi(Windows)Text(SRttoCR/LF)";vAnsi1;RadioAuto!)   DialogAddRadioButton("Save";4;10;84;180;12;   Ѐ"&2Ansi(Windows)Text(WordProcessorformat)"; Ct ЀvAnsi2;RadioAuto!) 4 DialogAddRadioButton("Save";5;10;98;180;12;  Ѐ"&3Ansi(Windows)DelimitedText";vAnsi3;RadioAuto!)  DialogAddRadioButton("Save";6;10;112;180;12; Ct Ѐ"&4Ascii(DOS)Text(SRttoCR/LF)";vAscii1;RadioAuto!) 4 DialogAddRadioButton("Save";7;10;126;180;12;  Ѐ"&5Ascii(DOS)Text(WordProcessorformat)";  ЀvAscii2;RadioAuto!) Ct DialogAddRadioButton("Save";8;10;140;180;12; 4 Ѐ"&6Ascii(DOS)DelimitedText";vAscii3;RadioAuto!)  DialogAddPushButton("Save";11;10;162;170;13;  ЀNonDefaultBttn!;"&OpenanotherFileinsteadofSavingthisone?") Ct (EndIfPlatform("Dialog Save movedtoDialogEditor")(*  ! ) DialogShow("Save";;;2)  K"|# vDoThis=MacroDialogResult #D$  If(MacroDialogResult=11)@@&(#. $//Ifuserselects"OpenFile"option $&  )ԀDialogDestroy("Save") [%' Ѐ Return  &L(  EndIf  &)  If(vPathFile="")  k( + ЀMessageBox(;"TestSave";"Filenamewindowwasblank") 3)d!,  򀀀Go(lQuit) )$"- EndIf  *".  If(MacroDialogResult<>1)  C,t$0 ЀGo(lQuit)  -<%1  Endif  -%2    )(#. 0 @ @ 0 @ @ 0 @ @ 0 @ @ //NeededforbuginWPWin10(SP3)   ,v10SP3=false  If(versioninfo(perfectfitversion!;productversionnumber!)=10000000000719.0) S  Ѐv10SP3=true  D ЀFileSave(vPathFile+".CER";ANSIText_Windows!;Prompt!)   EndIf   If(vAnsi1=1)  D ЀFileSave(vPathFile;ANSIText_Windows!;Prompt!)   ЀElse   If(vAnsi2=1) S  ЀFileSave(vPathFile;ANSIGeneratedWordProcessor_Windows!;Prompt!) D  ЀElse   If(vAnsi3=1)   ЀFileSave(vPathFile;ANSIDelimitedTextWindows!;Prompt!) S  ЀElse D  If(vAscii1=1)   ЀFileSave(vPathFile;ASCIIStandard!;Prompt!)   ЀElse S  If(vAscii2=1) D ЀFileSave(vPathFile;ASCIIStripped!;Prompt!)  ЀElse  If(vAscii3=1) S ЀFileSave(vPathFile;DelimitedText!;Prompt!) D ЀEndif  ЀEndif  ЀEndif S ЀEndif D ЀEndif  ЀEndif  If(v10SP3))(#.0 @ @ 0 @ @ 0 @ @ 0 @ @ //NeededforbuginWPWin10(SP3)  D  2ԀFileDelete(vPathFile+".CER")   EndIf  ! vAAPath=Parse(vPathFile) "H#  Label(lQuit) #% Quit g$& =d1d= Label(lError)  % ( ЀMessageBox(;"OpenSave";"Invalidfilenameorpath") &)  Quit  w'*   FunctionParse(vP)488(#. //Functiontogetthepathfromthefullfilename (0!,  4DeclarevP[20] $(#.  //Assumesnotmorethan19subfolders )!-  Y5vP=UKUS.,ԀStrParseList(String:vP;Separators:"\";Option:Characters!)US.,UK.,5 *". DelChars=StrLen(vP[vP[0]]) K+|#/ vAAPath=StrLeft(vP;StrLen(vP)DelChars)  ,<$0 Return(vAAPath) ,$1  EndFunc7 -%2     ProcedureCheckVersion11()  2(#. //CheckBuildofWPWin11  _  e7vHRt=NToC(63754) ' X nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!)   If(nnn<11000000000300.0andnnn>11000000000000.0)   MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+ g  "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+ ' X "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt   +   "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; g  OKCancel!|IconWarning!) 'X  If(vAns>1)0 ` Quit0 ` (#` (#EndIf0 (# (#EndIf (#(#  EndProc  'X  :; //EndofFunctionsandRoutinesforTestOpenSave.wcm ;