PC Direct 1996 August

home *** CD-ROM | disk | FTP | other *** search

/ PC Direct 1996 August / AAHRDEMO.ISO / software / docs / hdif.sm_ / hdif.bin

Wrap

INI File | 1996-05-14 | 10.8 KB | 1,052 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094251 78 731959686 479 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] <:#240,10080><:f240,QCourier,0,0,0>FUNCTION MakeClause() <:#240,10080><:f240,QCourier,0,0,0> DECLARE Echo(%1) <:#240,10080><:f240,QCourier,0,0,0> DECLARE InsField(%1) <:f240,QCourier,0,0,0> DEFINE DLLMakeClause() <:f><:f240,QCourier,0,0,0>DllCall("hd3.dll,InsertIF,CCJOC",%1,%2,%3,%4) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****CHECK FIELD FOR SELECTION <:#240,10080><:f240,QCourier,0,0,0> macname = strcat$(GetMacPath$(),"hdchkfld.smm") <:#240,10080><:f240,QCourier,0,0,0> IF (CALLI macname(<:f><:f240,QCourier,0,0,0>)=1) <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> Off = 0 <:#240,10080><:f240,QCourier,0,0,0> On = 1 <:#240,10080><:f240,QCourier,0,0,0> ifMode = 1 <:#240,10080><:f240,QCourier,0,0,0> chkstr=CurShade$()<:f> <:#240,10080> IF (chkstr <<<;> "") <:#240,10080> endifStr = LEFT$(chkstr,8) <:#240,10080> lchar = <:f240,QCourier,0,0,0>CHR$(171)<:f>; <:#240,10080> rchar = CHR$(187); <:#240,10080> IF (endifStr = "{lchar}END IF{rchar}") <:#240,10080> ifMode = 7 <:#240,10080> ENDIF <:#240,10080> ENDIF <:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '***MAKE CALL TO HOTDOCS <:#240,10080><:f240,QCourier,0,0,0> OrgFile = GetOpenFileName$()<:f> <:#240,10080> inStr = "" <:#240,10080> Result = 0 <:f240,QCourier,0,0,0> retStr= DLLMakeClause(&OrgFile,ifMode+(32*1),&Result,&inStr) <:#240,10080><:f240,QCourier,0,0,0> '*** IF RESULT IS 0, QUIT <:#240,10080><:f240,QCourier,0,0,0> IF (Result=0) '**Abort <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> Echo(Off) <:#240,10080> <:f240,QCourier,0,0,0> '*** CUT SELECTED TEXT <:#240,10080><:f240,QCourier,0,0,0> IF (chkstr<<<;>"") <:#240,10080><:f240,QCourier,0,0,0> Cut() <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** INSERT IF FIELD <:#240,10080><:f240,QCourier,0,0,0> InsField(retStr) <:#240,10080><:f240,QCourier,0,0,0> IF (ifMode <<<;> 7) <:#240,10080><:f240,QCourier,0,0,0> TYPE("<[>Enter]") <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> MarkBookmark("CapsBM",DeleteBookmark) <:#240,10080><:f240,QCourier,0,0,0> MarkBookmark("CapsBM",AddBookmark) <:#240,10080><:f240,QCourier,0,0,0> <:f240,QCourier,0,0,0> '*** ENTER ENDIF <:f240,QCourier,0,0,0> InsField("END IF")<:f> TYPE("<[>Enter]<[>Left]<[>Left]<[>Left]<[>Left]<[>Left]<[>Left]<[>Left]<[>Left]<[>Left]") <:f240,QCourier,0,0,0> '****PASTE SELECTED TEXT <:#240,10080><:f240,QCourier,0,0,0> IF (chkstr<<<;>"") <:#240,10080><:f240,QCourier,0,0,0> Paste() <:#240,10080><:f240,QCourier,0,0,0> ENDIF <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** INSERT END IF MarkBookmark("CapsBM",FindBookmark) <:#240,10080> MarkBookmark("CapsBM",DeleteBookmark) <:#240,10080> IF (ifMode = 7) <:#240,10080> TYPE("<[>Del]<[>Del]<[>Del]<[>Del]<[>Del]<[>Del]<[>Del]<[>Del]") <:#240,10080> ENDIF <:#240,10080><:f240,QCourier,0,0,0> Echo(On) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0>END FUNCTION <:#240,10080><:f240,QCourier,0,0,0> <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0>Function Echo(fOn) <+@><:S+-1><:f240,QCourier,0,0,0>'GOTO EndEcho <:S+-1><:#240,10080><:f240,QCourier,0,0,0> FocusHandle=DLLCall("user,GetFocus,I") <:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,SendMessage,IIIIJ",FocusHandle,11,fOn,0) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> If (fOn=1) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,InvalidateRect,IIJI",FocusHandle,0,1) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> DLLCall("user,UpdateWindow,II",FocusHandle) <+@><:S+-1><:#240,10080><:f240,QCourier,0,0,0> EndIf <+@><:S+-1><:f240,QCourier,0,0,0>'EndEcho: <+@><:#240,10080><:f240,QCourier,0,0,0>End Function<:><:f> <+@><:#240,10080> <:#240,10080>Function InsField(string$) <:#240,10080><:f240,QCourier,0,0,0> DEFSTR FName, FColor, FSize, FFamily,Result;<:f> <:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(171)<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> GetCurFontInfo(&FName, &FColor, &FSize, &FFamily)<:f> <:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,16711680,FSize) <:#240,10080><:f240,QCourier,0,0,0> TYPE(string$<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> FontChange(FName,0<:f><:f240,QCourier,0,0,0>,FColor,FSize) <:#240,10080><:f240,QCourier,0,0,0> TYPE(<:f><:f240,QCourier,0,0,0>CHR$(187)<:f><:f240,QCourier,0,0,0>)<:f> <:#240,10080><:f240,QCourier,0,0,0>End Function<:f> > [Embedded] 00009714 > [macsum] 3 MakeClause 0 0 13 0 Echo 875 1 2 67 InsField 1088 1 6 78 [macse] 14 MakeClause 0 295 13 0 16 [X] "hdchkfld.smm" 13 8 1 16 "{1}" 13 5 1 18 0 11 00000110 6 0 15 9 5 0 8 2 5 1 8 3 5 1 8 4 0 24 13 8 5 6 5 7 "" 18 1 11 00000299 0 806 "{5}" 8 13 8 6 0 39 171 13 8 7 0 39 187 13 8 8 6 6 7 "{7}END IF{8}" 18 0 11 00000299 5 7 8 4 0 267 13 8 9 7 "" 8 10 5 0 8 11 6 4 5 32 5 1 4 0 3 0 0 284 "hd3.dll,InsertIF,CCJOC" &9 [X] &11 &10 13 8 12 6 11 5 0 18 0 11 00000463 6 0 15 9 16 Echo "{2}" 6 5 7 "" 18 1 11 00000517 2 153 1 16 InsField "{12}" 6 4 5 7 18 1 11 00000578 0 6 "[13]" 2 466 1 "CapsBM" 4004 2 466 1 "CapsBM" 4003 16 InsField "END IF" 0 6 "[13][37][37][37][37][37][37][37][37][37]" 6 5 7 "" 18 1 11 00000733 2 155 1 2 466 1 "CapsBM" 4002 2 466 1 "CapsBM" 4004 6 4 5 7 18 0 11 00000848 0 6 "[46][46][46][46][46][46][46][46]" 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 00009739