home *** CD-ROM | disk | FTP | other *** search
INI File | 1996-05-14 | 20.7 KB | 1,032 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094339 77 731959686 520 2 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 [tag] Footnote 12 [fnt] Courier 240 0 32768 [algn] 1 1 0 720 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 256 0 0 0 [nfmt] 280 1 2 . , $ Footnote 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 720 1 720 720 0 1 0 1 0 2 1 1440 11520 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 15120 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 648 1 15192 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,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0>FUNCTION InsRepeat<:f><:f240,QCourier,0,0,0>() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DECLARE Echo(%1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DECLARE InsField(%1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> DEFINE DLLInsRepeat<:f><:f240,QCourier,0,0,0>() <:f><:f240,QCourier,0,0,0>DllCall("hd3.dll,InsertRepeat,CCJOC",%1,%2,%3,%4) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '****CHECK FIELD FOR SELECTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> macname = strcat$(GetMacPath$(),"hdchkfld.smm") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> IF (CALLI macname(<:f><:f240,QCourier,0,0,0>)=1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> Off = 0 <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> On = 1 <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> chkstr=CurShade$()<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '***MAKE CALL TO HOTDOCS <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> OrgFile = GetOpenFileName$()<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> inStr = "" <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> Result = 0 <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> retStr= <:f><:f240,QCourier,0,0,0>DLLInsRepeat<:f><:f240,QCourier,0,0,0>(&OrgFile,0+(32*1)<:f><:f240,QCourier,0,0,0>,&Result,&inStr) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '*** IF RESULT IS 0, QUIT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> IF (Result=0) '**Abort <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> '*** CHECK FOR INSIDE TABLE <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> <:f><:f240,QCourier,0,0,0>startrow = -1 <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> startcol = -1 <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> endrow = -1<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> endcol = -1<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> TableGetRange(&startrow,&startcol,&endrow,&endcol)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> IF (startrow <<<;> -1) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> TYPE("<[>HOME]<[>HOME]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> InsField(retStr)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> EXIT FUNCTION<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> '*** TURN OF DISPLAY <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,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> Echo(Off)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '*** CUT SELECTED TEXT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> IF (chkstr<<<;>"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> Cut() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '*** INSERT IF FIELD <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> InsField(retStr) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> TYPE("<[>Enter]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> MarkBookmark("CapsBM",DeleteBookmark) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> MarkBookmark("CapsBM",AddBookmark) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '****PASTE SELECTED TEXT <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> IF (chkstr<<<;>"") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> Paste() <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> ENDIF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> '*** INSERT END IF <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> InsField("END REPEAT<:f><:f240,QCourier,0,0,0>")<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> TYPE("<[>Enter]") <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> MarkBookmark("CapsBM",FindBookmark) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> MarkBookmark("CapsBM",DeleteBookmark) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> Echo(On) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0>END FUNCTION <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> <+@><:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0>Function Echo(fOn) <:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> FocusHandle=DLLCall("user,GetFocus,I") <:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,SendMessage,IIIIJ",FocusHandle,11,fOn,0) <+@><:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> If (fOn=1) <+@><:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,InvalidateRect,IIJI",FocusHandle,0,1) <+@><:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,UpdateWindow,II",FocusHandle) <+@><:S+-1><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> EndIf <+@><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0>End Function<:><:f> <+@><:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080>Function InsField(string$) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> DEFSTR FName, FColor, FSize, FFamily,Result;<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(171)<:f><:f240,QCourier,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,16711680,FSize) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> TYPE(string$<:f><:f240,QCourier,0,0,0>) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,FColor,FSize) <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(187)<:f><:f240,QCourier,0,0,0>)<:f> <:R1,17,1,354,1,720,1,1066,1,1440,1,1818,1,2160,1,2491,1,2880,1,3242,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,><:#240,10080><:f240,QCourier,0,0,0>End Function<:f> > [Embedded] 00020014 > [macsum] 3 InsRepeat 0 0 13 0 Echo 734 1 2 64 InsField 947 1 6 73 [macse] 14 InsRepeat 0 295 13 0 16 [X] "hdchkfld.smm" 13 8 1 16 "{1}" 13 5 1 18 0 11 00000109 6 0 15 9 5 0 8 2 5 1 8 3 0 24 13 8 4 0 267 13 8 5 7 "" 8 6 5 0 8 7 5 0 5 32 5 1 4 0 3 0 0 284 "hd3.dll,InsertRepeat,CCJOC" &5 [X] &7 &6 13 8 8 6 7 5 0 18 0 11 00000306 6 0 15 9 5 -1 8 9 5 -1 8 10 5 -1 8 11 5 -1 8 12 0 1301 &9 &10 &11 &12 6 9 5 -1 18 1 11 00000453 0 6 "[36][36]" 16 InsField "{8}" 6 0 15 9 16 Echo "{2}" 6 4 7 "" 18 1 11 00000507 2 153 1 16 InsField "{8}" 0 6 "[13]" 2 466 1 "CapsBM" 4004 2 466 1 "CapsBM" 4003 6 4 7 "" 18 1 11 00000623 2 155 1 16 InsField "END REPEAT" 0 6 "[13]" 2 466 1 "CapsBM" 4002 2 466 1 "CapsBM" 4004 16 Echo "{3}" 6 0 15 9 14 Echo 0 284 "user,GetFocus,I" 13 8 2 0 284 "user,SendMessage,IIIIJ" "{2}" 11 "{0}" 0 6 0 5 1 18 0 11 00000201 0 284 "user,InvalidateRect,IIJI" "{2}" 0 1 0 284 "user,UpdateWindow,II" "{2}" 6 1 15 9 14 InsField 0 39 171 13 0 6 [X] 0 804 &2 &3 &4 &5 2 251 1 "{2}" 0 16711680 "{4}" 0 6 "{0}" 2 251 1 "{2}" 0 "{3}" "{4}" 0 39 187 13 0 6 [X] 6 1 15 9 00020039 
