WPC  ok XbamU- b|`bSo$vT+m*t~ DLB|K{bu~rzhj<)S]qR\%yJwN>zU*! |¢֤Px*/r)e z㌑z"O>KyJ{t %L.X`>} yXK^uP w=Vߎm- EMtm h}5`rPT~fdQR\1&}P|CIkCQ|ZoIpth#3_T;r@ OZsчl$,4 P޵+T/f^& l~˨;6ן{oD>~ AtlBO2{7(gQ>hˡ|ZRSָ޳`&!8wbym8-:?#UN %/ 0(5 ]^ cwo4s mSrT !T$+NOeQT Rr  Canon BJC-2100J/))/J0(9 Z6Times New Roman RegularX($HwŽF3A +E*:i+003|xU хq* zeo*NewDialogdlgMain (4 0BPT tp@P(0 x( NewDialog 8DD79@hRDl\< doOKiDdlgMain` button^ \ OKBttnn2 LListBx1 xWPrbox20x tNo.Static2t   File Type Static3 @(MS Sans Serif(h@Getting the File Type...D@4p@) /2:LdVttD`G\5Lh T;XdP-4pP$rgnListBox$<  FlistboxX\static-THLine4H P ^ 0L\H2 d`   @(  @~T z@X File Type.wcm   ' $Bruce Bidgood0bruceb.File Type   95 AC:\Documents and Settings\Timmy Da Mut\My Documents\Bidgood Corp\Websites\All Things WordPerfect\AllThingsWordPerfect\macros\filetype.wcm 5w [ Y [ Z HodlgMainLQo WordPerfectLQ oMSGLOB'@ rYx,2H rZLIBV' XH+odlgMain.rgnListBoxLQ rYo  rXLQB'@ rY[ Y rZ[ ZHE*HE*[[SMSG[(x*>@HE*(x*@"[[SMSG[y#(oOKBttn*@HE*&@'@([|)[|5[)5+1MSGN!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreter !  _=XXdd=%  /*******************************************************  MacroName:filetype.wcm  Purpose:TolistthenumericvalueofafiletypewiththefiletypeName  Author:BruceBidgood w Date:April10,2001 d Datelastmodified:  October6,2005!   Q  WordPerfectVersions:8,9,10 >  ********************************************************  h */  U  y=1  B  z=1 /  DialogShow("dlgMain";"WordPerfect";Msg)   While(y<300)   0  x=FileTypeName(FileType:z) (#(# 0  RegionAddListItem(NamedRgn:"dlgMain.rgnListBox";y+""+x) (#(# 0  y=y+1(#(# 0  z=z+1m(#(# Endwhile Z CallBackWait G quit 4 ProcedureMsg() ^ Switch(Msg[5]) K CaseOf274: 8 //userclosesdialogwithalt+F4, % //doubleclickorsysmenu  CallBackResume  CaseOf273:  //themacrowillnevergettocallback v  //arrayelement3 c! //withoutcallbackarrayelement5being273 P"  Switch(Msg[3])//userchoosesabuttononthedialog =#! CaseOf"OKBttn":Quit *$z" EndSwitch &A"% EndSwitch '.#& Return ($' EndProcedure )%(