PC Direct 1996 August

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

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

Wrap

INI File | 1996-05-14 | 7.3 KB | 820 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] HP LaserJet Series II [port] LPT2: [lang] 1 [desc] 822094132 64 731959686 339 1 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 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 DialogBuilder() <:#240,10080><:f240,QCourier,0,0,0> DECLARE InsField(field<:f><:f240,QCourier,0,0,0>) <:#240,10080><:f240,QCourier,0,0,0> DEFSTR FName,FColor,FSize,FFamily,retStr,Result,newText <:f240,QCourier,0,0,0> DEFINE Dl<:f><:f240,QCourier,0,0,0>gBld<:f><:f240,QCourier,0,0,0>r() <:f><:f240,QCourier,0,0,0>DllCall("HD3.DLL<:f><:f240,QCourier,0,0,0>,DialogBuilder,CCJOC",%1,%2,%3,%4) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '****CALL TO CHECKFIELD FUNCTION <:#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> <:f240,QCourier,0,0,0> '****CALL TO HD3.DLL <:#240,10080><:f240,QCourier,0,0,0> OrgFile = GetOpenFileName$()<:f> <:f240,QCourier,0,0,0> retStr=<:f><:f240,QCourier,0,0,0>Dl<:f><:f240,QCourier,0,0,0>gBl<:f><:f240,QCourier,0,0,0>dr(&Orgfile,1+(32*1),&Result,&newText) <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** IF RESULT IS 0, QUIT<:f> <:#240,10080><:f240,QCourier,0,0,0> IF (Result=0) <:#240,10080><:f240,QCourier,0,0,0> EXIT FUNCTION <:#240,10080><:f240,QCourier,0,0,0> ENDIF<:f> <:#240,10080><:f240,QCourier,0,0,0> <:#240,10080><:f240,QCourier,0,0,0> '*** INSERT ASK FIEL<:f>D <:#240,10080><:f240,QCourier,0,0,0> TYPE("<[>ESC]") <:#240,10080> <:f240,QCourier,0,0,0>InsField(<:f><:f240,QCourier,0,0,0>retStr) <:#240,10080><:f240,QCourier,0,0,0>END FUNCTION<:f> <:#254,10080><:f240,QCourier New,0,0,0> <:#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> TYPE("<[>ENTER]")<:f> <:#240,10080><:f240,QCourier,0,0,0>End Function<:f> > [Embedded] 00006943 > [macsum] 2 DialogBuilder 0 0 10 0 InsField 298 1 6 25 [macse] 14 DialogBuilder 0 295 13 0 16 [X] "hdchkfld.smm" 13 8 8 16 "{8}" 13 5 1 18 0 11 00000113 6 0 15 9 0 267 13 8 9 5 1 5 32 5 1 4 0 3 0 0 284 "HD3.DLL,DialogBuilder,CCJOC" &9 [X] &6 &7 13 8 5 6 6 5 0 18 0 11 00000255 6 0 15 9 0 6 "[27]" 16 InsField "{5}" 6 0 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] 0 6 "[13]" 6 1 15 9 00006968