home *** CD-ROM | disk | FTP | other *** search
INI File | 1996-05-14 | 37.6 KB | 1,305 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094314 210 731959686 2391 3 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Courier 240 0 32768 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 720 0 0 1 0 1 0 2 1 1440 12240 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 720 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 720 12240 1 1440 0 1 720 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0>FUNCTION UseTpl() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DEFINE EditLib() DllCall("hd3.dll,EditLib,JCCJ",%1,%2,%3) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DEFINE OpenTpl() DllCall("hd3.dll,OpenTemplate,JC",%1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DEFINE CloseTpl() DllCall("hd3.dll,CloseTemplate,JC",%1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DEFINE GetLibResult() DllCall("hd3.dll,GetLibResult,JCJ",%1,%2) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DEFINE GetLibStuff() DllCall("hd3.dll,GetLibStuff<:f><:f200,QCourier New,0,0,0>,JCCCJ",%1,%2,%3,%4) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** GET THE TEMPLATE PATH AND RESULT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> OrgFile = " 1 2 3 4 5 6 7" <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> OrgFile = strcat$(OrgFile,OrgFile)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> insFile = OrgFile <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:f><:f200,QCourier New,0,0,0>tName = OrgFile <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:f><:f200,QCourier New,0,0,0>tDesc = OrgFile <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> res = GetLibResult(&OrgFile,0)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> insRes = GetLibStuff<:f><:f200,QCourier New,0,0,0>(&insFile,&tName,&tDesc<:f><:f200,QCourier New,0,0,0>,0)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** IF RESULT IS 0, QUIT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (res = 0) <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:f><:f200,QCourier New,0,0,0>'*** GET THE FILE EXTENSION <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> extStr = UCASE$(RIGHT$(OrgFile,3)) <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,360,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** IF RESULT IS 1, CREATE A TEMPLATE<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (res = 1)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (insRes = 2)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> IF (UCASE$(Right$(insFile,3)) = "SAM") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FileOpen(ins<:f><:f200,QCourier New,0,0,0>File,1,"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ELSEIF <:f>(UCASE$(Right$(insFile,3)) = "TPL") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FileOpen(ins<:f><:f200,QCourier New,0,0,0>File,16,"WordPerfect 5.x")<:f> <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> lChar = CHR$(171) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> rChar = CHR$(187) <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> lStr = "{lChar}" <:R1,19,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2520,1,2880,1,3242,1,3600,1,3955,1,4320,1,4667,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> rStr = "{rChar}" <:R><:f200,QCourier New,> FName = "" <:f200,QCourier New,> FColor = 0 <:f200,QCourier New,> FSize = 0 <:f200,QCourier New,> FFamily = "" <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> TYPE("<[>CtrlHOME]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> <:f200,QCourier New,0,0,0> WHILE (Replace(0,0,1<:f200,QCourier New,0,0,0>,"h"<:f200,QCourier New,0,0,0>,"") = 1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> <:f200,QCourier New,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (FColor = 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE("<[>Right]<:f200,QCourier New,0,0,0>") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (FColor <<<;> 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE("<[>Left]<:f200,QCourier New,0,0,0><[>Backspace]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FontChange(FName,0<:f200,QCourier New,0,0,0>,0<:f200,QCourier New,0,0,0>,FSize) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE(<:f200,QCourier New,0,0,0>CHR$(171)<:f200,QCourier New,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> WEND <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> TYPE("<[>CtrlHOME]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> <:f200,QCourier New,0,0,0> WHILE (Replace(0,0,1<:f200,QCourier New,0,0,0>,"i<:f200,QCourier New,0,0,0>"<:f200,QCourier New,0,0,0>,"") = 1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> <:f200,QCourier New,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (FColor = 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE("<[>Lef<:f200,QCourier New,0,0,0>t]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (FColor <<<;> 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE("<:f200,QCourier New,0,0,0><[>Del<:f200,QCourier New,0,0,0>]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FontChange(FName,0<:f200,QCourier New,0,0,0>,0<:f200,QCourier New,0,0,0>,FSize) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> TYPE(<:f200,QCourier New,0,0,0>CHR$(187<:f200,QCourier New,0,0,0>)<:f200,QCourier New,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> Type("<[>Right]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> WEND<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,> TYPE("<[>CtrlHOME]")<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> DocInfoFields("HotDocs Template","","","","","","","") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> DocInfo(tDesc,"",0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ELSE<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (insRes = 0 OR GetOpenFileCount() = 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> New("_hotdocs.sty",0,0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> DocInfoFields("HotDocs Template","","","","","","","") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> DOSDelFile(OrgFile)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (SaveAs(OrgFile,0,tDesc,"") <<<;> 1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> Message("File Not Saved") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ChangeIcons("HotDocs Edit") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** IF RESULT IS 2<:f><:f200,QCourier New,0,0,0>, OPEN THE TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (res = 2<:f><:f200,QCourier New,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FileOpen(OrgFile,1,"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ChangeIcons("HotDocs Edit") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** IF RESULT IS 3<:f><:f200,QCourier New,0,0,0>, ASSEMBLE THE TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (res = 3<:f><:f200,QCourier New,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** IF IT IS A STYLE, JUST NEW IT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (extStr = "STY") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> styleName = OrgFile <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> slashPos = strchr(1,styleName,"\") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> WHILE (slashPos <<<;> -1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> styleLen = LEN(styleName) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> styleName = MID$(styleName,slashPos+1,styleLen - slashPos) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> slashPos = strchr(1,styleName,"\") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> WEND <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> New(styleName,1,0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** OPEN THE TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> fopen = FileOpen(OrgFile,1,"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (fopen <<<;> 1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** MAKE SURE IT IS A HOTDOCS TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> IF (GetDocInfo$(8) <<<;> "HotDocs Template") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> retVal = DllCall("hd3.dll,ResMsgBox,JJJ",0,1911) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FileClose <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** GET ITS STYLE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> styleName = GetDocInfo$(3) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (UCASE$(RIGHT$(styleName,4)) <<<;> ".STY") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> styleName = "_hotdocs.sty" <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** CREATE THE NEW DOCUMENT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> New(styleName,1,512) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> DraftMode() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> DocInfoFields("HotDocs Template",OrgFile,"","","","","","") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** TEMPLATE NAME AND INSERT NAME WILL BE IN GLOBAL VARS <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> AllocGlobalVar("tplName",1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> AllocGlobalVar("insName",1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** INSERT THE TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> FileOpen(OrgFile,1+8,"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** INSERT THE HEADERS AND FOOTERS <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> InsertHF=StrCat$(GetMacPath$(),"hdhdrftr.smm") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> CALLI InsertHF(OrgFile,1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> SetGlobalVar("insName",OrgFile) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> '*** CHECK FOR COMPONENT FILE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (OpenTpl(OrgFile) = 0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> FileChanged(1,0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> FileClose() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> SetGlobalVar("tplName",OrgFile) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (OrgFile = "") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** DELETE THE SELECT BOOKMARK <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f240,QCourier,0,0,0> selBM = "HDSelAsm" <:R><:f240,QCourier,0,0,0> MarkBookmark(selBM,DeleteBookmark)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> '*** ASSEMBLE AND CLOSE THE TEMPLATE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> AsmMac=StrCat$(GetMacPath$(),"hdasmdoc.smm") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> asmRes = CALLI AsmMac(0) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> IF (asmRes = 1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ct = CloseTpl(OrgFile) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> ENDIF<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:f200,QCourier New,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#216,10800><:f200,QCourier New,0,0,0>END FUNCTION<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2530,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10800> > [Embedded] 00035631 > [macsum] 1 UseTpl 0 0 26 0 [macse] 14 UseTpl 7 " 1 2 3 4 5 6 7" 8 1 0 16 "{1}" "{1}" 13 8 1 6 1 8 2 6 1 8 3 6 1 8 4 0 284 "hd3.dll,GetLibResult,JCJ" &1 0 13 8 5 0 284 "hd3.dll,GetLibStuff,JCCCJ" &2 &3 &4 0 13 8 6 6 5 5 0 18 0 11 00000293 6 0 15 9 0 807 "{1}" 3 13 0 18 [X] 13 8 7 6 5 5 1 18 0 11 00001567 6 6 5 2 18 0 11 00001322 0 807 "{2}" 3 13 0 18 [X] 13 7 "SAM" 18 0 11 00000483 2 102 1 "{2}" 1 "" 10 00001240 0 807 "{2}" 3 13 0 18 [X] 13 7 "TPL" 18 0 11 00001240 2 102 1 "{2}" 16 "WordPerfect 5.x" 0 39 171 13 8 8 0 39 187 13 8 9 7 "{8}" 8 10 7 "{9}" 8 11 7 "" 8 12 5 0 8 13 5 0 8 14 7 "" 8 15 0 6 "[16420]" 2 488 1 0 0 1 "h" "" 13 5 1 18 0 11 00000955 0 804 &12 &13 &14 &15 6 13 5 0 18 0 11 00000942 0 6 "[39]" 0 804 &12 &13 &14 &15 6 13 5 0 18 1 11 00000942 0 6 "[37][8]" 2 251 1 "{12}" 0 0 "{14}" 0 39 171 13 0 6 [X] 10 00000709 0 6 "[16420]" 2 488 1 0 0 1 "i" "" 13 5 1 18 0 11 00001225 0 804 &12 &13 &14 &15 6 13 5 0 18 0 11 00001200 0 6 "[37]" 0 804 &12 &13 &14 &15 6 13 5 0 18 1 11 00001200 0 6 "[46]" 2 251 1 "{12}" 0 0 "{14}" 0 39 187 13 0 6 [X] 0 6 "[39]" 10 00000970 0 6 "[16420]" 2 140 1 "HotDocs Template" "" "" "" "" "" "" "" 2 109 1 "{4}" "" 0 10 00001456 6 6 5 0 18 0 0 1050 13 5 0 18 0 1 2 11 00001407 2 101 1 "_hotdocs.sty" 0 0 2 140 1 "HotDocs Template" "" "" "" "" "" "" "" 0 779 "{1}" 2 104 1 "{1}" 0 "{4}" "" 13 5 1 18 1 11 00001545 0 3 "File Not Saved" 0 790 "HotDocs Edit" 6 5 5 2 18 0 11 00001638 2 102 1 "{1}" 1 "" 0 790 "HotDocs Edit" 6 5 5 3 18 0 11 00002831 6 7 7 "STY" 18 0 11 00001932 6 1 8 16 0 13 1 "{16}" "\" 13 8 17 6 17 5 -1 18 1 11 00001900 0 14 "{16}" 13 8 18 6 17 5 1 3 0 6 18 6 17 3 1 0 15 "{16}" [X] [X] 13 8 16 0 13 1 "{16}" "\" 13 8 17 10 00001740 2 101 1 "{16}" 1 0 6 0 15 9 2 102 1 "{1}" 1 "" 13 8 19 6 19 5 1 18 1 11 00002004 6 0 15 9 0 279 8 13 7 "HotDocs Template" 18 1 11 00002126 0 284 "hd3.dll,ResMsgBox,JJJ" 0 1911 13 8 20 24 147 6 0 15 9 0 279 3 13 8 16 0 807 "{16}" 4 13 0 18 [X] 13 7 ".STY" 18 1 11 00002232 7 "_hotdocs.sty" 8 16 2 101 1 "{16}" 1 512 2 211 1 2 140 1 "HotDocs Template" "{1}" "" "" "" "" "" "" 0 271 "tplName" 1 0 271 "insName" 1 5 1 5 8 3 0 2 102 1 "{1}" [X] "" 0 295 13 0 16 [X] "hdhdrftr.smm" 13 8 21 16 "{21}" "{1}" 1 0 264 "insName" "{1}" 0 284 "hd3.dll,OpenTemplate,JC" "{1}" 13 5 0 18 0 11 00002576 0 34 1 0 2 147 1 6 0 15 9 0 264 "tplName" "{1}" 6 1 7 "" 18 0 11 00002641 6 0 15 9 7 "HDSelAsm" 8 22 2 466 1 "{22}" 4004 0 295 13 0 16 [X] "hdasmdoc.smm" 13 8 23 16 "{23}" 0 13 8 24 6 24 5 1 18 0 11 00002831 0 284 "hd3.dll,CloseTemplate,JC" "{1}" 13 8 25 6 0 15 9 00035656 
