home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / DOCLIS.ZIP / DOCLISTR.SMM
INI File  |  1994-02-06  |  50KB  |  2,777 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IIISi PostScript
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Automates the creation of document list.
  19.     
  20.     
  21.     
  22.     
  23.     760602281
  24.     2
  25.     758264215
  26.     62
  27.     19
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     19
  57.     36 0 14 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58.     70 0 46 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  59.     105 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  60.     140 0 49 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  61.     175 0 26 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  62.     210 0 31 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  63.     245 0 37 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  64.     279 0 10 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  65.     314 0 19 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  66.     346 0 43 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  67.     380 0 18 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  68.     415 0 5 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  69.     449 0 10 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  70.     483 0 32 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  71.     518 0 16 0 1 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  72.     552 0 24 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  73.     586 0 55 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  74.     620 0 44 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  75.     624 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  76. [edoc]
  77. @Defines@<:#284,17136><+,>define    HFONT                "Setfont:hFont"<-,>
  78.  
  79. @Defines@<:#284,17136><+,>define    freelib()            dllcall("kernel,freelibrary,hh", %1)<-,>
  80.  
  81. @Defines@<:#284,17136><+,>DEFINE    loadlib()            dllcall("kernel,loadlibrary,hc",%1)<-,>
  82.  
  83. @Defines@<:#284,17136><+,>define    settext()            dllcall("user,setdlgitemtext,hhhc", %1, %2, %3)<-,>
  84.  
  85. @Defines@<:#284,17136><+,>define    WM_SETFONT            0x30<-,>
  86.  
  87. @Defines@<:#284,17136><+,><-,><+,>define     CreateFont()            DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)<-,>
  88.  
  89. @Defines@<:#284,17136><+,><-,><+,><+,>define    deletefont()            dllcall("gdi,deleteobject,hh", %1)<-,>
  90.  
  91. @Defines@<:#284,17136><+,>define    SendMessage()            DllCall("user,S<-,><+,>endMessage,HHHHJ", %1, %2, %3, %4)<-,>
  92.  
  93. @Defines@<:#284,17136><+,>define    checkdlgbutton()        dllcall("user,checkdlgbutton,hhhh", %1, %2, %3)<-,>
  94.  
  95. @Defines@<:#284,17136><+,>define     showwindow(hWnd, stuff)     DllCall("user,ShowWindow,HHH", %1, %2)<-,>
  96.  
  97. @Defines@<:#284,17136><+,><-!><-!><-!><-!><-!><-!><-!><-!>define    gethwnd()             dllcall("user,GetActiveWindow,H")<-!><-,><-!><-!><-!>
  98.  
  99. @Defines@<:#284,17136><+,>define    EnableWindow(hWnd, stuff)    DllCall("user,enableWindow,HHH", %1, %2)<-,>
  100.  
  101. @Defines@<:#284,17136>declare    getfonts(fonts)
  102.  
  103. @Defines@<:#284,17136>
  104.  
  105. @Function@<:#312,17136>function doclister()
  106.  
  107. <:#332,17136>hourglass(1)
  108.  
  109. <:#332,17136>windir = getwindowsdirectory$()
  110.  
  111. <:#332,17136>docdir = getdocpath$()
  112.  
  113. <:#332,17136>thisfile = getrunningmacrofile$()
  114.  
  115. <:#332,17136>cr = strcat$(chr$(13), chr$(10))
  116.  
  117. <:#332,17136>lb = chr$(91)
  118.  
  119. <:#332,17136>rb = chr$(93)
  120.  
  121. <:#332,17136>switchid = allocglobalvar("switcher", 1)
  122.  
  123. <:#332,17136>setglobalvar(switchid, "0")
  124.  
  125. <:#332,17136>dlgkeyinterrupt(<[>f1], "helper")
  126.  
  127. <:#332,17136>mask = "*.s?m"
  128.  
  129. <:#332,17136>filledit(9001, strcat$(docdir, mask))
  130.  
  131. <:#332,17136>setdlgcallback(0, "{thisfile}!applyfonts")
  132.  
  133. <:#332,17136>setdlgcallback(20, "{thisfile}!selectfont")
  134.  
  135. @For Next@<:#312,17136>    for x = 21 to 26
  136.  
  137. <:#332,17136>        filledit(x, 1)
  138.  
  139. @For Next@<:#312,17136>    next
  140.  
  141. <:#332,17136>filledit(30, 1)
  142.  
  143. <:#332,17136>setdlgcallback(9001, "{thisfile}!getdesc")
  144.  
  145. <:#332,17136>result = dialogbox(".", "dirselect")
  146.  
  147. @If Endif@<:#312,17136>    if result = 0
  148.  
  149. <:#332,17136>        goto outahere
  150.  
  151. @If Endif@<:#312,17136>    elseif result = 1
  152.  
  153. <:#332,17136>        openfiletotal = GetOpenFileCount()
  154.  
  155. @If Endif@<:#312,17136>            if openfiletotal = 9
  156.  
  157. <:#332,17136>                dim names(openfiletotal)
  158.  
  159. <:#332,17136>                getopenfilenames(&names)
  160.  
  161. @For Next@<:#312,17136>                    for x = 1 to 1
  162.  
  163. <:#332,17136>                        apprestore(names(x))
  164.  
  165. <:#332,17136>                        fileclose()
  166.  
  167. @For Next@<:#312,17136>                    next
  168.  
  169. @If Endif@<:#312,17136>            endif
  170.  
  171. <:#332,17136>        docdir = getcurrentdir$()
  172.  
  173. <:#332,17136>        a = getdialogfield$(21)
  174.  
  175. <:#332,17136>        b = getdialogfield$(22)
  176.  
  177. <:#332,17136>        c = getdialogfield$(23)
  178.  
  179. <:#332,17136>        d = getdialogfield$(24)
  180.  
  181. <:#332,17136>        e = getdialogfield$(25)
  182.  
  183. <:#332,17136>        f = getdialogfield$(26)
  184.  
  185. <:#332,17136>        g = getdialogfield$(29)
  186.  
  187. <:#332,17136>        h = getdialogfield$(30)
  188.  
  189. @If Endif@<:#312,17136>            if a = 0 and b = 0 and c = 0 and d = 0 and e = 0 and f = 0 and g = false and h = false
  190.  
  191. <:#332,17136>                dlgkeyinterrupt(<[>F1], "{thisfile}!helper")
  192.  
  193. <:#332,17136>                dialogbox(".", "optionwarning")
  194.  
  195. <:#332,17136>                dlgkeyinterrupt(<[>F1], "{thisfile}!helper")
  196.  
  197. <:#332,17136>                dialogbox(".", "formatwarning")
  198.  
  199. <:#332,17136>                call doclister()
  200.  
  201. <:#332,17136>                exit function
  202.  
  203. @If Endif@<:#312,17136>            elseif a = 0 and b = 0 and c = 0 and d = 0 and e = 0 and f = 0
  204.  
  205. <:#332,17136>                dlgkeyinterrupt(<[>F1], "{thisfile}!helper")
  206.  
  207. <:#332,17136>                dialogbox(".", "optionwarning")
  208.  
  209. <:#332,17136>                call doclister()
  210.  
  211. <:#332,17136>                exit function
  212.  
  213. @If Endif@<:#312,17136>            elseif g = false and h = false
  214.  
  215. <:#332,17136>                dlgkeyinterrupt(<[>F1], "{thisfile}!helper")
  216.  
  217. <:#332,17136>                dialogbox(".", "formatwarning")
  218.  
  219. <:#332,17136>                call doclister()
  220.  
  221. <:#332,17136>                exit function
  222.  
  223. @If Endif@<:#312,17136>            endif
  224.  
  225. <:#332,17136>        ff = findfirst$(strcat$(docdir, mask), 0)
  226.  
  227. @If Endif@<:#312,17136>        if ff = ""
  228.  
  229. <:#332,17136>            message("No files found in this directory.", "DocLister")
  230.  
  231. <:#332,17136>            goto outahere
  232.  
  233. @If Endif@<:#312,17136>        elseif ff != ""
  234.  
  235. <:#332,17136>            numfiles = numfiles + 1
  236.  
  237. <:#332,17136>            fn = findnext$()
  238.  
  239. @While Wend@<:#312,17136>            while fn != ""
  240.  
  241. <:#332,17136>                numfiles = numfiles + 1
  242.  
  243. <:#332,17136>                fn = findnext$()
  244.  
  245. @While Wend@<:#312,17136>            wend
  246.  
  247. <:#332,17136>            filenamevarid = allocglobalvar("filenames", numfiles)
  248.  
  249. <:#332,17136>            ff = findfirst$(strcat$(docdir, mask), 0)
  250.  
  251. <:#332,17136>            ndex = 1
  252.  
  253. <:#332,17136>            setglobalarray(filenamevarid , ndex, strcat$(docdir, ff))
  254.  
  255. <:#332,17136>            fn = findnext$()
  256.  
  257. @While Wend@<:#312,17136>                while fn != ""
  258.  
  259. <:#332,17136>                    ndex = ndex + 1
  260.  
  261. <:#332,17136>                    setglobalarray(filenamevarid , ndex, strcat$(docdir, fn))
  262.  
  263. <:#332,17136>                    fn = findnext$()
  264.  
  265. @While Wend@<:#312,17136>                wend
  266.  
  267. <:#332,17136>            call fileprocessing(a, b, c, d, e, f, g, h, docdir, numfiles, cr, windir, thisfile, lb, rb, filenamevarid)
  268.  
  269. @If Endif@<:#312,17136>        endif
  270.  
  271. @If Endif@<:#312,17136>    endif
  272.  
  273. @Label@<:#312,17136>outahere:
  274.  
  275. @Function@<:#312,17136><-!>end function<-!>
  276.  
  277. <:#332,17136>
  278.  
  279. @Function@<:#312,17136>function fileprocessing(a, b, c, d, e, f, g, h, docdir, numfiles, cr, windir, thisfile, lb, rb, filenamevarid, hdlg)
  280.  
  281. <:#332,17136>hourglass(1)
  282.  
  283. @For Next@<:#312,17136>for x = 1 to numfiles
  284.  
  285. <:#332,17136>'DESCRIPTION
  286.  
  287. <:#332,17136>    filename = getglobalarray$(filenamevarid, x)
  288.  
  289. <:#332,17136>    msgname = filename
  290.  
  291. <:#332,17136>    bspos = instr(1, msgname, "\")
  292.  
  293. @While Wend@<:#312,17136>    while bspos != 0
  294.  
  295. <:#332,17136>        msgname = right$(msgname, len(msgname) - bspos)
  296.  
  297. <:#332,17136>        bspos = instr(1, msgname, "\")
  298.  
  299. @While Wend@<:#312,17136>    wend
  300.  
  301. <:#332,17136>    statusbarmsg("Processing file {x} of {numfiles}......{msgname}")
  302.  
  303. @If Endif@<:#312,17136>    if a = 1
  304.  
  305. <:#332,17136>        descvarid = allocglobalvar("descriptions", numfiles)
  306.  
  307. <:#332,17136>        singlefileid = fopen(filename, "r")
  308.  
  309. <:#332,17136>        line = fgets$(singlefileid)
  310.  
  311. @If Endif@<:#312,17136>            if line = lcase$("{lb}macver{rb}")
  312.  
  313. <:#332,17136>                desc = "RECORDED MACRO"
  314.  
  315. <:#332,17136>                goto nodescription
  316.  
  317. @If Endif@<:#312,17136>            endif
  318.  
  319. <:#332,17136>        descline = ""
  320.  
  321. @While Wend@<:#312,17136>        while instr(1, line, "{lb}desc{rb}") = 0
  322.  
  323. <:#332,17136>            descline = descline + 1
  324.  
  325. @If Endif@<:#312,17136>                if descline = 50
  326.  
  327. <:#332,17136>                    desc = ""
  328.  
  329. <:#332,17136>                    goto nodescription
  330.  
  331. @If Endif@<:#312,17136>                else
  332.  
  333. <:#332,17136>                    line = fgets$(singlefileid)
  334.  
  335. @If Endif@<:#312,17136>                endif
  336.  
  337. @While Wend@<:#312,17136>        wend
  338.  
  339. <:#332,17136>        desc = fgets$(singlefileid)
  340.  
  341. <:#332,17136>        desc = right$(desc, len(desc) - 1)
  342.  
  343. @Label@<:#312,17136>        nodescription:
  344.  
  345. <:#332,17136>        fclose(singlefileid)
  346.  
  347. <:#332,17136>        setglobalarray(descvarid, x, desc)
  348.  
  349. @If Endif@<:#312,17136>    endif
  350.  
  351. <:#332,17136>'CREATION DATE
  352.  
  353. @If Endif@<:#312,17136>    if b = 1
  354.  
  355. <:#332,17136>        cdatevarid = allocglobalvar("cdates", numfiles)
  356.  
  357. <:#332,17136>        singlefileid = fopen(filename, "r")
  358.  
  359. <:#332,17136>        line = fgets$(singlefileid)
  360.  
  361. @If Endif@<:#312,17136>            if line = lcase$("{lb}macver{rb}")
  362.  
  363. <:#332,17136>                cdate = "  "
  364.  
  365. <:#332,17136>                goto nocdate
  366.  
  367. @If Endif@<:#312,17136>            endif
  368.  
  369. <:#332,17136>        descline = ""
  370.  
  371. @While Wend@<:#312,17136>        while instr(1, line, "{lb}desc{rb}") = 0
  372.  
  373. <:#332,17136>            descline = descline + 1
  374.  
  375. @If Endif@<:#312,17136>                if descline = 50
  376.  
  377. <:#332,17136>                    desc = ""
  378.  
  379. <:#332,17136>                    goto nocdate
  380.  
  381. @If Endif@<:#312,17136>                else
  382.  
  383. <:#332,17136>                    line = fgets$(singlefileid)
  384.  
  385. @If Endif@<:#312,17136>                endif
  386.  
  387. @While Wend@<:#312,17136>        wend
  388.  
  389. @For Next@<:#312,17136>        for countline = 1 to 8
  390.  
  391. <:#332,17136>            cdate = fgets$(singlefileid)
  392.  
  393. @For Next@<:#312,17136>        next
  394.  
  395. @Label@<:#312,17136>        nocdate:
  396.  
  397. <:#332,17136>        fclose(singlefileid)
  398.  
  399. <:#332,17136>        setglobalarray(cdatevarid, x, right$(cdate, len(cdate) - 1))
  400.  
  401. @If Endif@<:#312,17136>    endif
  402.  
  403. <:#332,17136>'CREATION TIME
  404.  
  405. @If Endif@<:#312,17136>    if c = 1
  406.  
  407. <:#332,17136>        ctimevarid = allocglobalvar("ctimes", numfiles)
  408.  
  409. <:#332,17136>        singlefileid = fopen(filename, "r")
  410.  
  411. <:#332,17136>        line = fgets$(singlefileid)
  412.  
  413. @If Endif@<:#312,17136>            if line = lcase$("{lb}macver{rb}")
  414.  
  415. <:#332,17136>                ctime = "  "
  416.  
  417. <:#332,17136>                goto noctime
  418.  
  419. @If Endif@<:#312,17136>            endif
  420.  
  421. <:#332,17136>        descline = ""
  422.  
  423. @While Wend@<:#312,17136>        while instr(1, line, "{lb}desc{rb}") = 0
  424.  
  425. <:#332,17136>            descline = descline + 1
  426.  
  427. @If Endif@<:#312,17136>                if descline = 50
  428.  
  429. <:#332,17136>                    desc = ""
  430.  
  431. <:#332,17136>                    goto noctime
  432.  
  433. @If Endif@<:#312,17136>                else
  434.  
  435. <:#332,17136>                    line = fgets$(singlefileid)
  436.  
  437. @If Endif@<:#312,17136>                endif
  438.  
  439. @While Wend@<:#312,17136>        wend
  440.  
  441. @For Next@<:#312,17136>        for countline = 1 to 8
  442.  
  443. <:#332,17136>            ctime = fgets$(singlefileid)
  444.  
  445. @For Next@<:#312,17136>        next
  446.  
  447. @Label@<:#312,17136>        noctime:
  448.  
  449. <:#332,17136>        fclose(singlefileid)
  450.  
  451. <:#332,17136>        setglobalarray(ctimevarid, x, right$(ctime, len(ctime) - 1))
  452.  
  453. <:#332,17136>    endif
  454.  
  455. <:#332,17136>'LAST EDIT DATE
  456.  
  457. @If Endif@<:#312,17136>    if d = 1
  458.  
  459. <:#332,17136>        ldatevarid = allocglobalvar("ldates", numfiles)
  460.  
  461. <:#332,17136>        singlefileid = fopen(filename, "r")
  462.  
  463. <:#332,17136>        line = fgets$(singlefileid)
  464.  
  465. @If Endif@<:#312,17136>            if line = lcase$("{lb}macver{rb}")
  466.  
  467. <:#332,17136>                ldate = "  "
  468.  
  469. <:#332,17136>                goto noldate
  470.  
  471. @If Endif@<:#312,17136>            endif
  472.  
  473. <:#332,17136>        descline = ""
  474.  
  475. @While Wend@<:#312,17136>        while instr(1, line, "{lb}desc{rb}") = 0
  476.  
  477. <:#332,17136>            descline = descline + 1
  478.  
  479. @If Endif@<:#312,17136>                if descline = 50
  480.  
  481. <:#332,17136>                    desc = ""
  482.  
  483. <:#332,17136>                    goto noldate
  484.  
  485. @If Endif@<:#312,17136>                else
  486.  
  487. <:#332,17136>                    line = fgets$(singlefileid)
  488.  
  489. @If Endif@<:#312,17136>                endif
  490.  
  491. @While Wend@<:#312,17136>        wend
  492.  
  493. @For Next@<:#312,17136>        for countline = 1 to 6
  494.  
  495. <:#332,17136>            ldate = fgets$(singlefileid)
  496.  
  497. @For Next@<:#312,17136>        next
  498.  
  499. @Label@<:#312,17136>        noldate:
  500.  
  501. <:#332,17136>        fclose(singlefileid)
  502.  
  503. <:#332,17136>        setglobalarray(ldatevarid, x, right$(ldate, len(ldate) - 1))
  504.  
  505. @If Endif@<:#312,17136>    endif
  506.  
  507. <:#332,17136>'LAST EDIT TIME
  508.  
  509. @If Endif@<:#312,17136>    if e = 1
  510.  
  511. <:#332,17136>        ltimevarid = allocglobalvar("ltimes", numfiles)
  512.  
  513. <:#332,17136>        singlefileid = fopen(filename, "r")
  514.  
  515. <:#332,17136>        line = fgets$(singlefileid)
  516.  
  517. @If Endif@<:#312,17136>            if line = lcase$("{lb}macver{rb}")
  518.  
  519. <:#332,17136>                ltime = "  "
  520.  
  521. <:#332,17136>                goto noltime
  522.  
  523. @If Endif@<:#312,17136>            endif
  524.  
  525. <:#332,17136>        descline = ""
  526.  
  527. @While Wend@<:#312,17136>        while instr(1, line, "{lb}desc{rb}") = 0
  528.  
  529. <:#332,17136>            descline = descline + 1
  530.  
  531. @If Endif@<:#312,17136>                if descline = 50
  532.  
  533. <:#332,17136>                    desc = ""
  534.  
  535. <:#332,17136>                    goto noltime
  536.  
  537. @If Endif@<:#312,17136>                else
  538.  
  539. <:#332,17136>                    line = fgets$(singlefileid)
  540.  
  541. @If Endif@<:#312,17136>                endif
  542.  
  543. @While Wend@<:#312,17136>        wend
  544.  
  545. @For Next@<:#312,17136>        for countline = 1 to 6
  546.  
  547. <:#332,17136>            ltime = fgets$(singlefileid)
  548.  
  549. @For Next@<:#312,17136>        next
  550.  
  551. @Label@<:#312,17136>        noltime:
  552.  
  553. <:#332,17136>        fclose(singlefileid)
  554.  
  555. <:#332,17136>        setglobalarray(ltimevarid, x, right$(ltime, len(ltime) - 1))
  556.  
  557. @If Endif@<:#312,17136>    endif
  558.  
  559. <:#332,17136>'SIZE
  560.  
  561. @If Endif@<:#312,17136>    if f = 1
  562.  
  563. <:#332,17136>        filesizevarid = allocglobalvar("filesizes", numfiles)
  564.  
  565. <:#332,17136>        singlefileid = fopen(filename, "r")
  566.  
  567. <:#332,17136>        fseek(singlefileid, 0, 2)
  568.  
  569. <:#332,17136>        size = ftell(singlefileid)
  570.  
  571. <:#332,17136>        fclose(singlefileid)
  572.  
  573. <:#332,17136>        setglobalarray(filesizevarid, x, size)
  574.  
  575. @If Endif@<:#312,17136>    endif
  576.  
  577. @For Next@<:#312,17136>next
  578.  
  579. <:#332,17136>hourglass(0)
  580.  
  581. <:#332,17136>statusbarmsg("")
  582.  
  583. <:#332,17136>DEFSTR curName, curColor, curSize, curFamily;
  584.  
  585. <:#332,17136>'BUILD STANDARD DOCUMENT
  586.  
  587. @If Endif@<:#312,17136>if g = true
  588.  
  589. <:#332,17136>    answermsgbox(1)
  590.  
  591. <:#332,17136>    new("_default.sty", 0, 0)
  592.  
  593. <:#332,17136>    FullPageView()
  594.  
  595. <:#332,17136>    stylename = getstylename$()
  596.  
  597. <:#332,17136>    fontface = getprofilestring$("DocLister", "Face", "{windir}doclistr.ini")
  598.  
  599. <:#332,17136>    fontsize = getprofilestring$("DocLister", "Size", "{windir}doclistr.ini")
  600.  
  601. @If Endif@<:#312,17136>        if fontface != "" and fontsize != ""
  602.  
  603. <:#332,17136>            GetCurFontInfo(&curName, &curColor, &curSize, &curFamily)
  604.  
  605. <:#332,17136>            modifyselect(stylename)
  606.  
  607. <:#332,17136>            modifyfont(fontface, fontsize * 20, curcolor, 0)
  608.  
  609. <:#332,17136>            modifyreflow()
  610.  
  611. @If Endif@<:#312,17136>        endif
  612.  
  613. @For Next@<:#312,17136>    for x = 1 to numfiles
  614.  
  615. <:#332,17136>        filename = getglobalarray$(filenamevarid, x)
  616.  
  617. <:#332,17136>        statusbarmsg("Building report, file {x} of {numfiles}....{filename}")
  618.  
  619. <:#332,17136>        bspos = instr(1, filename, "\")
  620.  
  621. @While Wend@<:#312,17136>            while bspos != 0
  622.  
  623. <:#332,17136>                filename = right$(filename, len(filename) - bspos)
  624.  
  625. <:#332,17136>                bspos = instr(1, filename, "\")
  626.  
  627. @While Wend@<:#312,17136>            wend
  628.  
  629. <:#332,17136>        type(strcat$("Document - ", filename))
  630.  
  631. <:#332,17136>        type("<[>enter]")
  632.  
  633. @If Endif@<:#312,17136>        if a = 1
  634.  
  635. <:#332,17136>            filedesc = getglobalarray$(descvarid, x)
  636.  
  637. @If Endif@<:#312,17136>                if filedesc != ""
  638.  
  639. <:#332,17136>                    type(strcat$("Description - ", filedesc))
  640.  
  641. <:#332,17136>                    type("<[>enter]")
  642.  
  643. @If Endif@<:#312,17136>                endif
  644.  
  645. @If Endif@<:#312,17136>        endif
  646.  
  647. @If Endif@<:#312,17136>        if b = 1
  648.  
  649. <:#332,17136>            type(strcat$("Creation Date - ", formatdate$(getglobalarray$(cdatevarid, x), "b")))
  650.  
  651. <:#332,17136>            type("<[>enter]")
  652.  
  653. @If Endif@<:#312,17136>        endif
  654.  
  655. @If Endif@<:#312,17136>        if c = 1
  656.  
  657. <:#332,17136>            type(strcat$("Creation Time - ", formattime$(getglobalarray$(ctimevarid, x), "6")))
  658.  
  659. <:#332,17136>            type("<[>enter]")
  660.  
  661. @If Endif@<:#312,17136>        endif
  662.  
  663. @If Endif@<:#312,17136>        if d = 1
  664.  
  665. <:#332,17136>            type(strcat$("Last Edit Date - ", formatdate$(getglobalarray$(ldatevarid, x), "b")))
  666.  
  667. <:#332,17136>            type("<[>enter]")
  668.  
  669. @If Endif@<:#312,17136>        endif
  670.  
  671. @If Endif@<:#312,17136>        if e = 1
  672.  
  673. <:#332,17136>            type(strcat$("Last Edit Time - ", formattime$(getglobalarray$(ltimevarid, x), "6")))
  674.  
  675. <:#332,17136>            type("<[>enter]")
  676.  
  677. @If Endif@<:#312,17136>        endif
  678.  
  679. @If Endif@<:#312,17136>        if f = 1
  680.  
  681. <:#332,17136>            size = getglobalarray$(filesizevarid, x)
  682.  
  683. <:#332,17136>            type(strcat$("Size - ", size, " bytes"))
  684.  
  685. <:#332,17136>            type("<[>enter]")
  686.  
  687. @If Endif@<:#312,17136>        endif
  688.  
  689. <:#332,17136>        type("<[>enter]")
  690.  
  691. @For Next@<:#312,17136>    next
  692.  
  693. @If Endif@<:#312,17136>endif
  694.  
  695. <:#332,17136>'BUILD TABLE DOCUMENT
  696.  
  697. @If Endif@<:#312,17136>if h = true
  698.  
  699. <:#332,17136>    answermsgbox(1)
  700.  
  701. <:#332,17136>    new("_default.sty", 0, 0)
  702.  
  703. <:#332,17136>    ModLayoutInit(512)
  704.  
  705. <:#664,17136>    ModLayoutRightPage(432, 432, 432, 432, 1, 0, 1, 432, 15408, 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)
  706.  
  707. <:#332,17136>    ModLayoutRightLines(0, 1, 0, 1, 2)
  708.  
  709. <:#332,17136>    ModLayoutPageSize(12240, 15840, 1, 257)
  710.  
  711. <:#332,17136>    ModLayoutRightHeader(1440, 432, 1440, 0, 1, 0, 1, 1440, 14400, 2, 2, 4680, 3, 9360)
  712.  
  713. <:#332,17136>    ModLayoutRightFooter(1440, 72, 1440, 360, 1, 0, 1, 1440, 14400, 2, 2, 4680, 3, 9360)
  714.  
  715. <:#332,17136>    ModLayoutFinish()
  716.  
  717. <:#332,17136>    FullPageView()
  718.  
  719. <:#332,17136>    Tables(1, 1, 7, numfiles+1)
  720.  
  721. <:#332,17136>    stylename = getstylename$()
  722.  
  723. <:#332,17136>    fontface = getprofilestring$("DocLister", "Face", "{windir}doclistr.ini")
  724.  
  725. <:#332,17136>    fontsize = getprofilestring$("DocLister", "Size", "{windir}doclistr.ini")
  726.  
  727. @If Endif@<:#312,17136>        if fontface != "" and fontsize != ""
  728.  
  729. @If Endif@<:#312,17136>                if fontsize <;> 10
  730.  
  731. <:#664,17136>                    result = decide("Due to the way DocLister builds the table format list, font sizes above 10 points don't produce very nice results.  You've selected {fontsize} points.  Do you wish to continue?", "Warning")
  732.  
  733. @If Endif@<:#312,17136>                        if result = 0
  734.  
  735. <:#332,17136>                            answermsgbox(7)
  736.  
  737. <:#332,17136>                            fileclose()
  738.  
  739. <:#332,17136>                            exit function
  740.  
  741. @If Endif@<:#312,17136>                        endif
  742.  
  743. @If Endif@<:#312,17136>                endif
  744.  
  745. <:#332,17136>            GetCurFontInfo(&curName, &curColor, &curSize, &curFamily)
  746.  
  747. <:#332,17136>            modifyselect(stylename)
  748.  
  749. <:#332,17136>            modifyfont(fontface, fontsize * 20, curcolor, 0)
  750.  
  751. <:#332,17136>            modifyreflow()
  752.  
  753. @If Endif@<:#312,17136>        endif
  754.  
  755. <:#332,17136>    Heading()
  756.  
  757. <:#332,17136>    type("<[>tab]")
  758.  
  759. <:#332,17136>    SizeColumnRow(3873 -32768 -32768 -32768  )
  760.  
  761. <:#332,17136>    type("<[>tab]")
  762.  
  763. <:#332,17136>    SizeColumnRow(1958 -32768 -32768 -32768  )
  764.  
  765. <:#332,17136>    type("<[>tab]")
  766.  
  767. <:#332,17136>    SizeColumnRow(1497 -32768 -32768 -32768  )
  768.  
  769. <:#332,17136>    type("<[>tab]")
  770.  
  771. <:#332,17136>    SizeColumnRow(1958 -32768 -32768 -32768  )
  772.  
  773. <:#332,17136>    type("<[>tab]")
  774.  
  775. <:#332,17136>    SizeColumnRow(1497 -32768 -32768 -32768  )
  776.  
  777. <:#332,17136>    type("<[>tab]")
  778.  
  779. <:#332,17136>    SizeColumnRow(1483 -32768 -32768 -32768  )
  780.  
  781. @For Next@<:#312,17136>        for x = 1 to 6
  782.  
  783. <:#332,17136>            type("<[>shifttab]")
  784.  
  785. @For Next@<:#312,17136>        next
  786.  
  787. <:#332,17136>    type("Document")
  788.  
  789. <:#332,17136>    type("<[>tab]")
  790.  
  791. <:#332,17136>    type("Description")
  792.  
  793. <:#332,17136>    type("<[>tab]")
  794.  
  795. <:#332,17136>    type("Creation Date")
  796.  
  797. <:#332,17136>    type("<[>tab]")
  798.  
  799. <:#332,17136>    type("Creation Time")
  800.  
  801. <:#332,17136>    type("<[>tab]")
  802.  
  803. <:#332,17136>    type("Last Edit Date")
  804.  
  805. <:#332,17136>    type("<[>tab]")
  806.  
  807. <:#332,17136>    type("Last Edit Time")
  808.  
  809. <:#332,17136>    type("<[>tab]")
  810.  
  811. <:#332,17136>    type("Size")
  812.  
  813. @For Next@<:#312,17136>        for x = 1 to 6
  814.  
  815. <:#332,17136>            type("<[>shifttab]")
  816.  
  817. @For Next@<:#312,17136>        next
  818.  
  819. @For Next@<:#312,17136>        for x = 1 to 14
  820.  
  821. <:#332,17136>            type("<[>shiftright]")
  822.  
  823. @For Next@<:#312,17136>        next
  824.  
  825. <:#332,17136>    bold()
  826.  
  827. <:#332,17136>    type("<[>esc]<[>ctrlhome]<[>down]")
  828.  
  829. @For Next@<:#312,17136>    for x = 1 to numfiles
  830.  
  831. <:#332,17136>        filename = getglobalarray$(filenamevarid, x)
  832.  
  833. <:#332,17136>        bspos = instr(1, filename, "\")
  834.  
  835. @While Wend@<:#312,17136>        while bspos != 0
  836.  
  837. <:#332,17136>            filename = right$(filename, len(filename) - bspos)
  838.  
  839. <:#332,17136>            bspos = instr(1, filename, "\")
  840.  
  841. @While Wend@<:#312,17136>        wend
  842.  
  843. <:#332,17136>        statusbarmsg("Building report, file {x} of {numfiles}....{filename}")
  844.  
  845. <:#332,17136>        type(filename)
  846.  
  847. <:#332,17136>        type("<[>tab]")
  848.  
  849. @If Endif@<:#312,17136>        if a = 1
  850.  
  851. <:#332,17136>            filedesc = getglobalarray$(descvarid, x)
  852.  
  853. @If Endif@<:#312,17136>                if filedesc != ""
  854.  
  855. <:#332,17136>                    type(filedesc)
  856.  
  857. @If Endif@<:#312,17136>                endif
  858.  
  859. @If Endif@<:#312,17136>        endif
  860.  
  861. <:#332,17136>        type("<[>tab]")
  862.  
  863. @If Endif@<:#312,17136>        if b = 1
  864.  
  865. <:#332,17136>            type(formatdate$(getglobalarray$(cdatevarid, x), "b"))
  866.  
  867. @If Endif@<:#312,17136>        endif
  868.  
  869. <:#332,17136>        type("<[>tab]")
  870.  
  871. @If Endif@<:#312,17136>        if c = 1
  872.  
  873. <:#332,17136>            type(formattime$(getglobalarray$(ctimevarid, x), "6"))
  874.  
  875. @If Endif@<:#312,17136>        endif
  876.  
  877. <:#332,17136>        type("<[>tab]")
  878.  
  879. @If Endif@<:#312,17136>        if d = 1
  880.  
  881. <:#332,17136>            type(formatdate$(getglobalarray$(ldatevarid, x), "b"))
  882.  
  883. @If Endif@<:#312,17136>        endif
  884.  
  885. <:#332,17136>        type("<[>tab]")
  886.  
  887. @If Endif@<:#312,17136>        if e = 1
  888.  
  889. <:#332,17136>            type(formattime$(getglobalarray$(ltimevarid, x), "6"))
  890.  
  891. @If Endif@<:#312,17136>        endif
  892.  
  893. <:#332,17136>        type("<[>tab]")
  894.  
  895. @If Endif@<:#312,17136>        if f = 1
  896.  
  897. <:#332,17136>            size = getglobalarray$(filesizevarid, x)
  898.  
  899. <:#332,17136>            type(strcat$(size, " bytes"))
  900.  
  901. @If Endif@<:#312,17136>        endif
  902.  
  903. <:#332,17136>        type("<[>tab]")
  904.  
  905. @For Next@<:#312,17136>    next
  906.  
  907. <:#332,17136>    type("<[>ctrlhome]")
  908.  
  909. @If Endif@<:#312,17136>        if decide("Auto-sort by file name?", "DocLister 2.0")
  910.  
  911. <:#332,17136>            ignorekeyboard(2)
  912.  
  913. <:#332,17136>            type("<[>down]")
  914.  
  915. @For Next@<:#312,17136>                for x = 1 to numfiles - 1
  916.  
  917. <:#332,17136>                    type("<[>shiftdown]")
  918.  
  919. @For Next@<:#312,17136>                next
  920.  
  921. <:#332,17136>            sort(1 1 1 1 9 12639  )
  922.  
  923. <:#332,17136>            type("<[>esc]<[>ctrlhome]")
  924.  
  925. <:#332,17136>            ignorekeyboard(0)
  926.  
  927. @If Endif@<:#312,17136>        endif
  928.  
  929. @If Endif@<:#312,17136>endif
  930.  
  931. <:#332,17136>call cleanup(filenamevarid, descvarid, filesizevarid, cdatevarid, ctimevarid, ldatevarid, ltimevarid)
  932.  
  933. @Function@<:#312,17136>end function
  934.  
  935. <:#332,17136>
  936.  
  937. @Function@<:#312,17136>function cleanup(filenamevarid, descvarid, filesizevarid, cdatevarid, ctimevarid, ldatevarid, ltimevarid)
  938.  
  939. <:#332,17136>    freeglobalvar(filenamevarid)
  940.  
  941. <:#332,17136>    freeglobalvar(descvarid)
  942.  
  943. <:#332,17136>    freeglobalvar(filesizevarid)
  944.  
  945. <:#332,17136>    freeglobalvar(cdatevarid)
  946.  
  947. <:#332,17136>    freeglobalvar(ctimevarid)
  948.  
  949. <:#332,17136>    freeglobalvar(ldatevarid)
  950.  
  951. <:#332,17136>    freeglobalvar(ltimevarid)
  952.  
  953. <:#332,17136><-!>    statusbarmsg("")<-!><-!>
  954.  
  955. @Function@<:#312,17136>end function
  956.  
  957. <:#332,17136>
  958.  
  959. @Function@<:#312,17136>function helper()
  960.  
  961. <:#332,17136><-!>cr = strcat$(chr$(13), chr$(10))<-!>
  962.  
  963. <:#332,17136>message("DocLister 2.1{cr}{cr}Author: Cris Williams{cr}Lotus Development Corporation{cr}Word Processing Division{cr}2/4/94", "About")
  964.  
  965. @Function@<:#312,17136>end function
  966.  
  967. <:#332,17136>
  968.  
  969. @Function@<:#312,17136>Function applyfonts(hdlg, id, dummy)
  970.  
  971. <:#332,17136>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  972.  
  973. @If Endif@<:#312,17136>    if (Font)
  974.  
  975. <:#332,17136>        hct1 = GetDlgItem(hDlg, 9001)
  976.  
  977. <:#332,17136>        SendMessage(hct1, WM_SETFONT, font, 0)
  978.  
  979. @For Next@<:#312,17136>            for x = 21 to 26
  980.  
  981. <:#332,17136>                hwnd = getdlgitem(hdlg, x)
  982.  
  983. <:#332,17136>                sendmessage(hwnd, wm_setfont, font, 0)
  984.  
  985. @For Next@<:#312,17136>            next
  986.  
  987. <:#332,17136>        hct8 = GetDlgItem(hDlg, 7999)
  988.  
  989. <:#332,17136>        SendMessage(hct8, WM_SETFONT, font, 0)
  990.  
  991. <:#332,17136>        hct9 = GetDlgItem(hDlg, 29)
  992.  
  993. <:#332,17136>        SendMessage(hct9, WM_SETFONT, font, 0)
  994.  
  995. <:#332,17136>        hct10 = GetDlgItem(hDlg, 30)
  996.  
  997. <:#332,17136>        SendMessage(hct10, WM_SETFONT, font, 0)
  998.  
  999. <:#332,17136>        hct11 = GetDlgItem(hDlg, 1007)
  1000.  
  1001. <:#332,17136>        SendMessage(hct11, WM_SETFONT, font, 0)
  1002.  
  1003. <:#332,17136>        hct12 = GetDlgItem(hDlg, 20)
  1004.  
  1005. <:#332,17136>        SendMessage(hct12, WM_SETFONT, font, 0)
  1006.  
  1007. <:#332,17136>        hct13 = GetDlgItem(hDlg, 1)
  1008.  
  1009. <:#332,17136>        SendMessage(hct13, WM_SETFONT, font, 0)
  1010.  
  1011. <:#332,17136>        hct14 = GetDlgItem(hDlg, 2)
  1012.  
  1013. <:#332,17136>        SendMessage(hct14, WM_SETFONT, font, 0)
  1014.  
  1015. @If Endif@<:#312,17136>    endif
  1016.  
  1017. <:#332,17136>call getdesc(hdlg)
  1018.  
  1019. @Function@<:#312,17136><-,>end function<-,><-,>
  1020.  
  1021. <:#332,17136>
  1022.  
  1023. @Function@<:#312,17136>function getdesc(hdlg, id, text)
  1024.  
  1025. <:#332,17136>ignorekeyboard(2)
  1026.  
  1027. <:#332,17136>filename = strcat$(getcurrentdir$(), getdlgitemtext(hdlg, 9001))
  1028.  
  1029. <:#332,17136>lb = chr$(91)
  1030.  
  1031. @If Endif@<:#312,17136>    if instr(1, filename, lb)
  1032.  
  1033. <:#332,17136>        settext(hdlg, 1007, "")
  1034.  
  1035. <:#332,17136>        ignorekeyboard(0)
  1036.  
  1037. <:#332,17136>        exit function
  1038.  
  1039. @If Endif@<:#312,17136>    endif
  1040.  
  1041. <:#332,17136>cr = strcat$(chr$(13), chr$(10))
  1042.  
  1043. <:#332,17136>rb = chr$(93)
  1044.  
  1045. <:#332,17136>id = fopen(filename, "r")
  1046.  
  1047. @Label@<:#312,17136>getline:
  1048.  
  1049. <:#332,17136>line = fgets$(id)
  1050.  
  1051. @While Wend@<:#312,17136>    while instr(1, line, "{lb}desc{rb}") = 0
  1052.  
  1053. <:#332,17136>        num = num + 1
  1054.  
  1055. @If Endif@<:#312,17136>            if num = 50
  1056.  
  1057. <:#332,17136>                setdlgitemtext(hdlg, 1007, "")
  1058.  
  1059. <:#332,17136>                desc = ""
  1060.  
  1061. <:#332,17136>                goto quitdesc
  1062.  
  1063. @If Endif@<:#312,17136>            endif
  1064.  
  1065. <:#332,17136>        line = fgets$(id)
  1066.  
  1067. @While Wend@<:#312,17136>    wend
  1068.  
  1069. <:#332,17136>desc = fgets$(id)
  1070.  
  1071. <:#332,17136>desc = right$(desc, len(desc) - 1)
  1072.  
  1073. @Label@<:#312,17136>quitdesc:
  1074.  
  1075. <:#332,17136>ignorekeyboard(0)
  1076.  
  1077. <:#332,17136>fclose(id)
  1078.  
  1079. <:#332,17136>settext(hdlg, 1007, desc)
  1080.  
  1081. @Function@<:#312,17136>end function
  1082.  
  1083. <:#332,17136>
  1084.  
  1085. @Function@<:#312,17136>function selectfont()
  1086.  
  1087. <:#332,17136>thisfile = getrunningmacrofile$()
  1088.  
  1089. windir = getwindowsdirectory$()
  1090.  
  1091. <:#332,17136>dim fonts(1)
  1092.  
  1093. <:#332,17136>result = getfonts(&fonts)
  1094.  
  1095. @If Endif@<:#312,17136>    if result != 0
  1096.  
  1097. <:#332,17136>        message("There was a problem retrieving contents of the Windows font resource table.", "Error")
  1098.  
  1099. <:#332,17136>        exit function
  1100.  
  1101. @If Endif@<:#312,17136>    endif
  1102.  
  1103. <:#332,17136>numfonts = arraysize(&fonts)
  1104.  
  1105. @For Next@<:#312,17136>    for x = 2 to numfonts
  1106.  
  1107. <:#332,17136>        filledit(9000, fonts(x))
  1108.  
  1109. @For Next@<:#312,17136>    next
  1110.  
  1111. @For Next@<:#312,17136>    for y = 1 to 18
  1112.  
  1113. <:#332,17136>        z = z + 2
  1114.  
  1115. <:#332,17136>        filledit(9002, z)
  1116.  
  1117. @For Next@<:#312,17136>    next
  1118.  
  1119. <:#332,17136>firstbox = gethwnd()
  1120.  
  1121. <:#332,17136>enablewindow(firstbox, 0)
  1122.  
  1123. dlgkeyinterrupt(<[>f1], "{thisfile}!helper")
  1124.  
  1125. <:#332,17136>setdlgcallback(0, "{thisfile}!fontinit")
  1126.  
  1127. <:#332,17136>result = dialogbox(".", "selectfont")
  1128.  
  1129. <:#332,17136>deletefont(getglobalvar$("fontfont"))
  1130.  
  1131. <:#332,17136>enablewindow(firstbox, 1)
  1132.  
  1133. @If Endif@<:#312,17136>    if result = 0
  1134.  
  1135. <:#332,17136>        exit function
  1136.  
  1137. @If Endif@<:#312,17136>    endif
  1138.  
  1139. <:#332,17136>writeprofilestring("DocLister", "Face", getdialogfield$(9000), "{windir}doclistr.ini")
  1140.  
  1141. <:#332,17136>writeprofilestring("DocLister", "Size", getdialogfield$(9002), "{windir}doclistr.ini")
  1142.  
  1143. @Function@<:#312,17136>end function
  1144.  
  1145. <:#332,17136>
  1146.  
  1147. @Function@<:#312,17136>function fontinit(hdlg)
  1148.  
  1149. <:#332,17136>list = getdlgitem(hdlg, 9002)
  1150.  
  1151. <:#332,17136>result = sendmessage(list, 0x0407, 4, 0)
  1152.  
  1153. <:#332,17136>a = getdlgitem(hdlg, 1)
  1154.  
  1155. <:#332,17136>b = getdlgitem(hdlg, 2)
  1156.  
  1157. <:#332,17136>c = getdlgitem(hdlg, 9000)
  1158.  
  1159. <:#332,17136>d = getdlgitem(hdlg, 9002)
  1160.  
  1161. <:#332,17136><+,>fontfont<-,><+,> = CreateFont(13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")<-,>
  1162.  
  1163. <:#332,17136>allocglobalvar("fontfont", 1)
  1164.  
  1165. <:#332,17136>setglobalvar("fontfont", fontfont)
  1166.  
  1167. <:#332,17136><+,>SendMessage(a<-,><+,><-,><+,>, WM_SETFONT, font<-,><+,>font, 0)<-,>
  1168.  
  1169. <:#332,17136><+,>SendMessage(b<-,><+,><-,><+,>, WM_SETFONT, font<-,><+,>font, 0)<-,>
  1170.  
  1171. <:#332,17136><+,>SendMessage(c<-,><+,><-,><+,>, WM_SETFONT, font<-,><+,>font, 0)<-,>
  1172.  
  1173. <:#332,17136><+,>SendMessage(d<-,><+,><-,><+,>, WM_SETFONT, font<-,><+,>font, 0)<-,>
  1174.  
  1175. @Function@<:#312,17136><+,><-,>end function
  1176.  
  1177. <:#332,17136>
  1178.  
  1179. @Function@<:#312,17136>function getfonts(fonts)
  1180.  
  1181. <:#332,17136><+,>mpath = lcase$(GetMacPath$())<-,>
  1182.  
  1183. <:#332,17136><+,>fdll = "{mpath}fontdll.exe"<-,>
  1184.  
  1185. <:#332,17136><+,>dllfile = FindFirst$(fdll, 0)<-,>
  1186.  
  1187. @If Endif@<:#312,17136><+,>    IF dllfile <<<;> "FONTDLL.EXE" THEN<-,>
  1188.  
  1189. <:#332,17136><+,>        <-,>message("Unable to locate {mpath}fontdll.exe.  Exiting Function.", "Error")
  1190.  
  1191. <:#332,17136><+,>        Return -1<-,>
  1192.  
  1193. @If Endif@<:#312,17136><+,>    ENDIF<-,>
  1194.  
  1195. <:#332,17136><+,>Idi = DLLLoadLib(fdll, "FNT_FontInit", "A")<-,>
  1196.  
  1197. <:#332,17136><+,>DLLCALL(Idi)<-,>
  1198.  
  1199. <:#332,17136><+,>Idf = DLLLoadLib(fdll, "FNT_FontFace", "F")<-,>
  1200.  
  1201. <:#332,17136><+,>DEFSTR face, i<-,>
  1202.  
  1203. <:#332,17136><+,>i = 0<-,>
  1204.  
  1205. <:#332,17136><+,>face = "a"<-,>
  1206.  
  1207. @While Wend@<:#312,17136><+,>    WHILE (face <<<;> "")<-,>
  1208.  
  1209. <:#332,17136><+,>        face = DLLCALL(Idf)<-,>
  1210.  
  1211. <:#332,17136><+,>        i = i + 1<-,>
  1212.  
  1213. <:#332,17136><+,>        ArrayInsertByKey(&<-,><+,>Fonts, Face, 0)<-,>
  1214.  
  1215. @While Wend@<:#312,17136><+,>    WEND<-,>
  1216.  
  1217. <:#332,17136><+,>Idc = DLLLoadLib(fdll, "FNT_FontClose", "I")<-,>
  1218.  
  1219. <:#332,17136><+,>result = DLLCALL(Idc)<-,>
  1220.  
  1221. <:#332,17136><+,>DllFreeLib(Idc)<-,>
  1222.  
  1223. <:#332,17136><+,>DllFreeLib(Idf)<-,>
  1224.  
  1225. <:#332,17136><+,>DllFreeLib(Idi)<-,>
  1226.  
  1227. @Function@<:#312,17136>end function
  1228.  
  1229. <:#332,17136>
  1230.  
  1231. <:#332,17136><-!><-!>DIALOG    dirselect
  1232.  
  1233. <:#332,17136>-2134376448    18    148    54    155    178    ""    "AmiDialog"    "DocLister 2.1"
  1234.  
  1235. <:#332,17136>FONT    8    "Helv"
  1236.  
  1237. <:#332,17136>4    36    81    88    9001    1352728579    "listbox"    ""    0 
  1238.  
  1239. <:#332,17136>89    36    62    10    21    1342242819    "button"    "Doc &Description"    0 
  1240.  
  1241. <:#332,17136>89    47    58    10    22    1342242819    "button"    "C&reation Date"    0 
  1242.  
  1243. <:#332,17136>89    58    56    10    23    1342242819    "button"    "Creation &Time"    0 
  1244.  
  1245. <:#332,17136>89    69    57    10    24    1342242819    "button"    "&Last Edit Date"    0 
  1246.  
  1247. <:#332,17136>89    80    58    10    25    1342242819    "button"    "Last &Edit Time"    0 
  1248.  
  1249. <:#332,17136>89    91    47    10    26    1342242819    "button"    "&File Size"    0 
  1250.  
  1251. <:#332,17136>89    102    28    10    30    1342242825    "button"    "T&able"    0 
  1252.  
  1253. <:#332,17136>89    112    50    10    29    1342242825    "button"    "&Standard"    0 
  1254.  
  1255. <:#332,17136>89    124    61    12    20    1342242816    "button"    "Sele&ct Font"    0 
  1256.  
  1257. <:#332,17136>104    3    46    14    1    1342242817    "button"    "&OK"    0 
  1258.  
  1259. <:#332,17136>104    19    46    14    2    1342242816    "button"    "&Cancel"    0 
  1260.  
  1261. <:#332,17136>4    13    88    11    7999    1342177280    "static"    "directory box"    0 
  1262.  
  1263. <:#332,17136>4    4    58    10    1000    1342177280    "static"    "Current Directory:"    0 
  1264.  
  1265. <:#332,17136>4    26    81    10    1001    1342177280    "static"    "Documents and Macros:"    0 
  1266.  
  1267. <:#332,17136>4    129    40    9    1002    1342177280    "static"    "Description:"    0 
  1268.  
  1269. <:#332,17136>4    139    146    34    1003    1342177287    "static"    ""    0 
  1270.  
  1271. <:#332,17136>6    142    142    28    1007    1342177280    "static"    ""    0 
  1272.  
  1273. <:#332,17136>END DIALOG
  1274.  
  1275. <:#332,17136>
  1276.  
  1277. @Function@<:#312,17136>DIALOG    optionwarning
  1278.  
  1279. <:#332,17136>-2134900736    3    150    65    152    64    ""    "AmiDialog"    "Info Option Error"
  1280.  
  1281. <:#332,17136>61    37    40    14    4    1342373889    "borbtn"    "OK"    0 
  1282.  
  1283. <:#332,17136>5    5    50    50    1904    1342373888    "borbtn"    "PushButton"    0 
  1284.  
  1285. <:#332,17136>38    10    104    19    1000    1342177281    "static"    "You must select at least one of the Info Options."    0 
  1286.  
  1287. @Function@<:#312,17136>END DIALOG
  1288.  
  1289. <:#332,17136>
  1290.  
  1291. @Function@<:#312,17136>DIALOG    formatwarning
  1292.  
  1293. <:#332,17136>-2134900736    3    150    65    152    64    ""    "AmiDialog"    "Format Error"
  1294.  
  1295. <:#332,17136>61    37    40    14    4    1342373889    "borbtn"    "OK"    0 
  1296.  
  1297. <:#332,17136>5    5    50    50    1904    1342373888    "borbtn"    "PushButton"    0 
  1298.  
  1299. <:#332,17136>38    10    104    19    1000    1342177281    "static"    "You must select one of the format options at the bottom."    0 
  1300.  
  1301. @Function@<:#312,17136>END DIALOG
  1302.  
  1303. @Function@<:#312,17136>
  1304.  
  1305. <:#332,17136>DIALOG    selectfont
  1306.  
  1307. <:#332,17136>-2134376448    6    149    53    177    112    ""    "AmiDialog"    "Select Font for Document List"
  1308.  
  1309. <:#332,17136>FONT    8    "Helv"
  1310.  
  1311. <:#332,17136>6    16    92    89    9000    1352728579    "listbox"    ""    0 
  1312.  
  1313. <:#332,17136>6    6    52    8    1000    1342177280    "static"    "Available fonts:"    0 
  1314.  
  1315. <:#332,17136>103    16    24    89    9002    1352728577    "listbox"    ""    0 
  1316.  
  1317. <:#332,17136>103    6    17    8    1001    1342177280    "static"    "Size:"    0 
  1318.  
  1319. <:#332,17136>132    16    40    14    1    1342373889    "button"    "&OK"    0 
  1320.  
  1321. <:#332,17136>132    32    40    14    2    1342373888    "button"    "&Cancel"    0 
  1322.  
  1323. <:#332,17136>END DIALOG
  1324.  
  1325. >
  1326.  
  1327. [Embedded]
  1328. 00032805
  1329. >
  1330. [macsum] 13
  1331. doclister 0 0 26 14
  1332. fileprocessing 2379 17 30 101
  1333. cleanup 10593 7 1 430
  1334. helper 10718 0 2 441
  1335. applyfonts 10914 3 12 446
  1336. getdesc 11836 3 8 473
  1337. selectfont 12499 0 10 504
  1338. fontinit 13430 1 8 535
  1339. getfonts 13958 1 10 551
  1340. dirselect 14508 0 -1 577
  1341. optionwarning 15559 0 -1 600
  1342. formatwarning 15835 0 -1 607
  1343. selectfont 16113 0 -1 614
  1344. [macse]
  1345. 14 doclister
  1346. 0 296 1
  1347. 0 1288
  1348. 13
  1349. 8 1
  1350. 0 268
  1351. 13
  1352. 8 2
  1353. 0 802
  1354. 13
  1355. 8 3
  1356. 0 39 13
  1357. 13
  1358. 0 39 10
  1359. 13
  1360. 0 16 [X] [X]
  1361. 13
  1362. 8 4
  1363. 0 39 91
  1364. 13
  1365. 8 5
  1366. 0 39 93
  1367. 13
  1368. 8 6
  1369. 0 271 "switcher" 1
  1370. 13
  1371. 8 7
  1372. 0 264 "{7}" "0"
  1373. 0 47 112 "helper"
  1374. 7 "*.s?m"
  1375. 8 8
  1376. 0 16 "{2}" "{8}"
  1377. 13
  1378. 0 31 9001 [X]
  1379. 0 41 0 "{3}!applyfonts"
  1380. 0 41 20 "{3}!selectfont"
  1381. 5 21
  1382. 8 9
  1383. 5 26
  1384. 6 9
  1385. 18 2
  1386. 12 00000413
  1387. 10 00000440
  1388. 5 1
  1389. 6 9
  1390. 3 0
  1391. 8 9
  1392. 10 00000337
  1393. 0 31 "{9}" 1
  1394. 10 00000380
  1395. 0 31 30 1
  1396. 0 41 9001 "{3}!getdesc"
  1397. 0 26 "." "dirselect"
  1398. 13
  1399. 8 10
  1400. 6 10
  1401. 5 0
  1402. 18 0
  1403. 11 00000564
  1404. 10 00002367
  1405. 10 00002367
  1406. 6 10
  1407. 5 1
  1408. 18 0
  1409. 11 00002367
  1410. 0 1050
  1411. 13
  1412. 8 11
  1413. 6 11
  1414. 5 9
  1415. 18 0
  1416. 11 00000802
  1417. 6 11
  1418. 21 12 [X]
  1419. 0 1051 &12
  1420. 5 1
  1421. 8 9
  1422. 5 1
  1423. 6 9
  1424. 18 2
  1425. 12 00000756
  1426. 10 00000802
  1427. 5 1
  1428. 6 9
  1429. 3 0
  1430. 8 9
  1431. 10 00000681
  1432. 6 9
  1433. 22 12
  1434. 0 1031 [X]
  1435. 2 147 1
  1436. 10 00000723
  1437. 0 290
  1438. 13
  1439. 8 2
  1440. 0 27 21
  1441. 13
  1442. 8 13
  1443. 0 27 22
  1444. 13
  1445. 8 14
  1446. 0 27 23
  1447. 13
  1448. 8 15
  1449. 0 27 24
  1450. 13
  1451. 8 16
  1452. 0 27 25
  1453. 13
  1454. 8 17
  1455. 0 27 26
  1456. 13
  1457. 8 18
  1458. 0 27 29
  1459. 13
  1460. 8 19
  1461. 0 27 30
  1462. 13
  1463. 8 20
  1464. 6 13
  1465. 5 0
  1466. 18 0
  1467. 6 14
  1468. 5 0
  1469. 18 0
  1470. 6 15
  1471. 5 0
  1472. 18 0
  1473. 6 16
  1474. 5 0
  1475. 18 0
  1476. 6 17
  1477. 5 0
  1478. 18 0
  1479. 6 18
  1480. 5 0
  1481. 18 0
  1482. 6 19
  1483. 5 0
  1484. 18 0
  1485. 6 20
  1486. 5 0
  1487. 18 0
  1488. 1 1
  1489. 1 1
  1490. 1 1
  1491. 1 1
  1492. 1 1
  1493. 1 1
  1494. 1 1
  1495. 11 00001291
  1496. 0 47 112 "{3}!helper"
  1497. 0 26 "." "optionwarning"
  1498. 0 47 112 "{3}!helper"
  1499. 0 26 "." "formatwarning"
  1500. 16 doclister
  1501. 6 0
  1502. 15
  1503. 9
  1504. 10 00001646
  1505. 6 13
  1506. 5 0
  1507. 18 0
  1508. 6 14
  1509. 5 0
  1510. 18 0
  1511. 6 15
  1512. 5 0
  1513. 18 0
  1514. 6 16
  1515. 5 0
  1516. 18 0
  1517. 6 17
  1518. 5 0
  1519. 18 0
  1520. 6 18
  1521. 5 0
  1522. 18 0
  1523. 1 1
  1524. 1 1
  1525. 1 1
  1526. 1 1
  1527. 1 1
  1528. 11 00001519
  1529. 0 47 112 "{3}!helper"
  1530. 0 26 "." "optionwarning"
  1531. 16 doclister
  1532. 6 0
  1533. 15
  1534. 9
  1535. 10 00001646
  1536. 6 19
  1537. 5 0
  1538. 18 0
  1539. 6 20
  1540. 5 0
  1541. 18 0
  1542. 1 1
  1543. 11 00001646
  1544. 0 47 112 "{3}!helper"
  1545. 0 26 "." "formatwarning"
  1546. 16 doclister
  1547. 6 0
  1548. 15
  1549. 9
  1550. 0 16 "{2}" "{8}"
  1551. 13
  1552. 0 280 [X] 0
  1553. 13
  1554. 8 21
  1555. 6 21
  1556. 7 ""
  1557. 18 0
  1558. 11 00001801
  1559. 0 3 "No files found in this directory." "DocLister"
  1560. 10 00002367
  1561. 10 00002367
  1562. 6 21
  1563. 7 ""
  1564. 18 1
  1565. 11 00002367
  1566. 6 22
  1567. 5 1
  1568. 3 0
  1569. 8 22
  1570. 0 281
  1571. 13
  1572. 8 23
  1573. 6 23
  1574. 7 ""
  1575. 18 1
  1576. 11 00001954
  1577. 6 22
  1578. 5 1
  1579. 3 0
  1580. 8 22
  1581. 0 281
  1582. 13
  1583. 8 23
  1584. 10 00001871
  1585. 0 271 "filenames" "{22}"
  1586. 13
  1587. 8 24
  1588. 0 16 "{2}" "{8}"
  1589. 13
  1590. 0 280 [X] 0
  1591. 13
  1592. 8 21
  1593. 5 1
  1594. 8 25
  1595. 0 16 "{2}" "{21}"
  1596. 13
  1597. 0 272 "{24}" "{25}" [X]
  1598. 0 281
  1599. 13
  1600. 8 23
  1601. 6 23
  1602. 7 ""
  1603. 18 1
  1604. 11 00002242
  1605. 6 25
  1606. 5 1
  1607. 3 0
  1608. 8 25
  1609. 0 16 "{2}" "{23}"
  1610. 13
  1611. 0 272 "{24}" "{25}" [X]
  1612. 0 281
  1613. 13
  1614. 8 23
  1615. 10 00002111
  1616. 16 fileprocessing "{13}" "{14}" "{15}" "{16}" "{17}" "{18}" "{19}" "{20}" "{2}" "{22}" "{4}" "{1}" "{3}" "{5}" "{6}" "{24}"
  1617. 6 0
  1618. 15
  1619. 9
  1620. 14 fileprocessing
  1621. 0 296 1
  1622. 5 1
  1623. 8 18
  1624. 6 9
  1625. 6 18
  1626. 18 2
  1627. 12 00000117
  1628. 10 00003505
  1629. 5 1
  1630. 6 18
  1631. 3 0
  1632. 8 18
  1633. 10 00000039
  1634. 0 273 "{15}" "{18}"
  1635. 13
  1636. 8 19
  1637. 6 19
  1638. 8 20
  1639. 0 808 1 "{20}" "\"
  1640. 13
  1641. 8 21
  1642. 6 21
  1643. 5 0
  1644. 18 1
  1645. 11 00000319
  1646. 0 14 "{20}"
  1647. 13
  1648. 6 21
  1649. 3 1
  1650. 0 807 "{20}" [X]
  1651. 13
  1652. 8 20
  1653. 0 808 1 "{20}" "\"
  1654. 13
  1655. 8 21
  1656. 10 00000190
  1657. 0 789 "Processing file {18} of {9}......{20}"
  1658. 6 0
  1659. 5 1
  1660. 18 0
  1661. 11 00000896
  1662. 0 271 "descriptions" "{9}"
  1663. 13
  1664. 8 22
  1665. 0 259 "{19}" "r"
  1666. 13
  1667. 8 23
  1668. 0 257 "{23}"
  1669. 13
  1670. 8 24
  1671. 6 24
  1672. 0 17 "{13}macver{14}"
  1673. 13
  1674. 18 0
  1675. 11 00000576
  1676. 7 "RECORDED MACRO"
  1677. 8 25
  1678. 10 00000854
  1679. 7 ""
  1680. 8 26
  1681. 0 808 1 "{24}" "{13}desc{14}"
  1682. 13
  1683. 5 0
  1684. 18 0
  1685. 11 00000775
  1686. 6 26
  1687. 5 1
  1688. 3 0
  1689. 8 26
  1690. 6 26
  1691. 5 50
  1692. 18 0
  1693. 11 00000738
  1694. 7 ""
  1695. 8 25
  1696. 10 00000854
  1697. 10 00000762
  1698. 0 257 "{23}"
  1699. 13
  1700. 8 24
  1701. 10 00000588
  1702. 0 257 "{23}"
  1703. 13
  1704. 8 25
  1705. 0 14 "{25}"
  1706. 13
  1707. 5 1
  1708. 3 1
  1709. 0 807 "{25}" [X]
  1710. 13
  1711. 8 25
  1712. 0 260 "{23}"
  1713. 0 272 "{22}" "{18}" "{25}"
  1714. 6 1
  1715. 5 1
  1716. 18 0
  1717. 11 00001501
  1718. 0 271 "cdates" "{9}"
  1719. 13
  1720. 8 27
  1721. 0 259 "{19}" "r"
  1722. 13
  1723. 8 23
  1724. 0 257 "{23}"
  1725. 13
  1726. 8 24
  1727. 6 24
  1728. 0 17 "{13}macver{14}"
  1729. 13
  1730. 18 0
  1731. 11 00001088
  1732. 7 "  "
  1733. 8 28
  1734. 10 00001413
  1735. 7 ""
  1736. 8 26
  1737. 0 808 1 "{24}" "{13}desc{14}"
  1738. 13
  1739. 5 0
  1740. 18 0
  1741. 11 00001287
  1742. 6 26
  1743. 5 1
  1744. 3 0
  1745. 8 26
  1746. 6 26
  1747. 5 50
  1748. 18 0
  1749. 11 00001250
  1750. 7 ""
  1751. 8 25
  1752. 10 00001413
  1753. 10 00001274
  1754. 0 257 "{23}"
  1755. 13
  1756. 8 24
  1757. 10 00001100
  1758. 5 1
  1759. 8 29
  1760. 5 8
  1761. 6 29
  1762. 18 2
  1763. 12 00001376
  1764. 10 00001413
  1765. 5 1
  1766. 6 29
  1767. 3 0
  1768. 8 29
  1769. 10 00001298
  1770. 0 257 "{23}"
  1771. 13
  1772. 8 28
  1773. 10 00001341
  1774. 0 260 "{23}"
  1775. 0 14 "{28}"
  1776. 13
  1777. 5 1
  1778. 3 1
  1779. 0 807 "{28}" [X]
  1780. 13
  1781. 0 272 "{27}" "{18}" [X]
  1782. 6 2
  1783. 5 1
  1784. 18 0
  1785. 11 00002106
  1786. 0 271 "ctimes" "{9}"
  1787. 13
  1788. 8 30
  1789. 0 259 "{19}" "r"
  1790. 13
  1791. 8 23
  1792. 0 257 "{23}"
  1793. 13
  1794. 8 24
  1795. 6 24
  1796. 0 17 "{13}macver{14}"
  1797. 13
  1798. 18 0
  1799. 11 00001693
  1800. 7 "  "
  1801. 8 31
  1802. 10 00002018
  1803. 7 ""
  1804. 8 26
  1805. 0 808 1 "{24}" "{13}desc{14}"
  1806. 13
  1807. 5 0
  1808. 18 0
  1809. 11 00001892
  1810. 6 26
  1811. 5 1
  1812. 3 0
  1813. 8 26
  1814. 6 26
  1815. 5 50
  1816. 18 0
  1817. 11 00001855
  1818. 7 ""
  1819. 8 25
  1820. 10 00002018
  1821. 10 00001879
  1822. 0 257 "{23}"
  1823. 13
  1824. 8 24
  1825. 10 00001705
  1826. 5 1
  1827. 8 29
  1828. 5 8
  1829. 6 29
  1830. 18 2
  1831. 12 00001981
  1832. 10 00002018
  1833. 5 1
  1834. 6 29
  1835. 3 0
  1836. 8 29
  1837. 10 00001903
  1838. 0 257 "{23}"
  1839. 13
  1840. 8 31
  1841. 10 00001946
  1842. 0 260 "{23}"
  1843. 0 14 "{31}"
  1844. 13
  1845. 5 1
  1846. 3 1
  1847. 0 807 "{31}" [X]
  1848. 13
  1849. 0 272 "{30}" "{18}" [X]
  1850. 6 3
  1851. 5 1
  1852. 18 0
  1853. 11 00002711
  1854. 0 271 "ldates" "{9}"
  1855. 13
  1856. 8 32
  1857. 0 259 "{19}" "r"
  1858. 13
  1859. 8 23
  1860. 0 257 "{23}"
  1861. 13
  1862. 8 24
  1863. 6 24
  1864. 0 17 "{13}macver{14}"
  1865. 13
  1866. 18 0
  1867. 11 00002298
  1868. 7 "  "
  1869. 8 33
  1870. 10 00002623
  1871. 7 ""
  1872. 8 26
  1873. 0 808 1 "{24}" "{13}desc{14}"
  1874. 13
  1875. 5 0
  1876. 18 0
  1877. 11 00002497
  1878. 6 26
  1879. 5 1
  1880. 3 0
  1881. 8 26
  1882. 6 26
  1883. 5 50
  1884. 18 0
  1885. 11 00002460
  1886. 7 ""
  1887. 8 25
  1888. 10 00002623
  1889. 10 00002484
  1890. 0 257 "{23}"
  1891. 13
  1892. 8 24
  1893. 10 00002310
  1894. 5 1
  1895. 8 29
  1896. 5 6
  1897. 6 29
  1898. 18 2
  1899. 12 00002586
  1900. 10 00002623
  1901. 5 1
  1902. 6 29
  1903. 3 0
  1904. 8 29
  1905. 10 00002508
  1906. 0 257 "{23}"
  1907. 13
  1908. 8 33
  1909. 10 00002551
  1910. 0 260 "{23}"
  1911. 0 14 "{33}"
  1912. 13
  1913. 5 1
  1914. 3 1
  1915. 0 807 "{33}" [X]
  1916. 13
  1917. 0 272 "{32}" "{18}" [X]
  1918. 6 4
  1919. 5 1
  1920. 18 0
  1921. 11 00003316
  1922. 0 271 "ltimes" "{9}"
  1923. 13
  1924. 8 34
  1925. 0 259 "{19}" "r"
  1926. 13
  1927. 8 23
  1928. 0 257 "{23}"
  1929. 13
  1930. 8 24
  1931. 6 24
  1932. 0 17 "{13}macver{14}"
  1933. 13
  1934. 18 0
  1935. 11 00002903
  1936. 7 "  "
  1937. 8 35
  1938. 10 00003228
  1939. 7 ""
  1940. 8 26
  1941. 0 808 1 "{24}" "{13}desc{14}"
  1942. 13
  1943. 5 0
  1944. 18 0
  1945. 11 00003102
  1946. 6 26
  1947. 5 1
  1948. 3 0
  1949. 8 26
  1950. 6 26
  1951. 5 50
  1952. 18 0
  1953. 11 00003065
  1954. 7 ""
  1955. 8 25
  1956. 10 00003228
  1957. 10 00003089
  1958. 0 257 "{23}"
  1959. 13
  1960. 8 24
  1961. 10 00002915
  1962. 5 1
  1963. 8 29
  1964. 5 6
  1965. 6 29
  1966. 18 2
  1967. 12 00003191
  1968. 10 00003228
  1969. 5 1
  1970. 6 29
  1971. 3 0
  1972. 8 29
  1973. 10 00003113
  1974. 0 257 "{23}"
  1975. 13
  1976. 8 35
  1977. 10 00003156
  1978. 0 260 "{23}"
  1979. 0 14 "{35}"
  1980. 13
  1981. 5 1
  1982. 3 1
  1983. 0 807 "{35}" [X]
  1984. 13
  1985. 0 272 "{34}" "{18}" [X]
  1986. 6 5
  1987. 5 1
  1988. 18 0
  1989. 11 00003492
  1990. 0 271 "filesizes" "{9}"
  1991. 13
  1992. 8 36
  1993. 0 259 "{19}" "r"
  1994. 13
  1995. 8 23
  1996. 0 263 "{23}" 0 2
  1997. 0 262 "{23}"
  1998. 13
  1999. 8 37
  2000. 0 260 "{23}"
  2001. 0 272 "{36}" "{18}" "{37}"
  2002. 10 00000082
  2003. 0 296 0
  2004. 0 789 ""
  2005. 6 6
  2006. 5 1
  2007. 18 0
  2008. 11 00005054
  2009. 0 291 1
  2010. 2 101 1 "_default.sty" 0 0
  2011. 2 201 1
  2012. 0 288
  2013. 13
  2014. 8 42
  2015. 0 286 "DocLister" "Face" "{11}doclistr.ini"
  2016. 13
  2017. 8 43
  2018. 0 286 "DocLister" "Size" "{11}doclistr.ini"
  2019. 13
  2020. 8 44
  2021. 6 43
  2022. 7 ""
  2023. 18 1
  2024. 6 44
  2025. 7 ""
  2026. 18 1
  2027. 1 1
  2028. 11 00003874
  2029. 0 804 &38 &39 &40 &41
  2030. 2 311 1 "{42}"
  2031. 6 44
  2032. 5 20
  2033. 4 0
  2034. 2 315 1 "{43}" [X] "{39}" 0
  2035. 2 319 1
  2036. 5 1
  2037. 8 18
  2038. 6 9
  2039. 6 18
  2040. 18 2
  2041. 12 00003963
  2042. 10 00005054
  2043. 5 1
  2044. 6 18
  2045. 3 0
  2046. 8 18
  2047. 10 00003885
  2048. 0 273 "{15}" "{18}"
  2049. 13
  2050. 8 19
  2051. 0 789 "Building report, file {18} of {9}....{19}"
  2052. 0 808 1 "{19}" "\"
  2053. 13
  2054. 8 21
  2055. 6 21
  2056. 5 0
  2057. 18 1
  2058. 11 00004204
  2059. 0 14 "{19}"
  2060. 13
  2061. 6 21
  2062. 3 1
  2063. 0 807 "{19}" [X]
  2064. 13
  2065. 8 19
  2066. 0 808 1 "{19}" "\"
  2067. 13
  2068. 8 21
  2069. 10 00004075
  2070. 0 16 "Document - " "{19}"
  2071. 13
  2072. 0 6 [X]
  2073. 0 6 "[13]"
  2074. 6 0
  2075. 5 1
  2076. 18 0
  2077. 11 00004402
  2078. 0 273 "{22}" "{18}"
  2079. 13
  2080. 8 45
  2081. 6 45
  2082. 7 ""
  2083. 18 1
  2084. 11 00004402
  2085. 0 16 "Description - " "{45}"
  2086. 13
  2087. 0 6 [X]
  2088. 0 6 "[13]"
  2089. 6 1
  2090. 5 1
  2091. 18 0
  2092. 11 00004529
  2093. 0 273 "{27}" "{18}"
  2094. 13
  2095. 0 770 [X] "b"
  2096. 13
  2097. 0 16 "Creation Date - " [X]
  2098. 13
  2099. 0 6 [X]
  2100. 0 6 "[13]"
  2101. 6 2
  2102. 5 1
  2103. 18 0
  2104. 11 00004656
  2105. 0 273 "{30}" "{18}"
  2106. 13
  2107. 0 773 [X] "6"
  2108. 13
  2109. 0 16 "Creation Time - " [X]
  2110. 13
  2111. 0 6 [X]
  2112. 0 6 "[13]"
  2113. 6 3
  2114. 5 1
  2115. 18 0
  2116. 11 00004784
  2117. 0 273 "{32}" "{18}"
  2118. 13
  2119. 0 770 [X] "b"
  2120. 13
  2121. 0 16 "Last Edit Date - " [X]
  2122. 13
  2123. 0 6 [X]
  2124. 0 6 "[13]"
  2125. 6 4
  2126. 5 1
  2127. 18 0
  2128. 11 00004912
  2129. 0 273 "{34}" "{18}"
  2130. 13
  2131. 0 773 [X] "6"
  2132. 13
  2133. 0 16 "Last Edit Time - " [X]
  2134. 13
  2135. 0 6 [X]
  2136. 0 6 "[13]"
  2137. 6 5
  2138. 5 1
  2139. 18 0
  2140. 11 00005029
  2141. 0 273 "{36}" "{18}"
  2142. 13
  2143. 8 37
  2144. 0 16 "Size - " "{37}" " bytes"
  2145. 13
  2146. 0 6 [X]
  2147. 0 6 "[13]"
  2148. 0 6 "[13]"
  2149. 10 00003928
  2150. 6 7
  2151. 5 1
  2152. 18 0
  2153. 11 00008140
  2154. 0 291 1
  2155. 2 101 1 "_default.sty" 0 0
  2156. 2 361 1 512
  2157. 2 363 1 432 432 432 432 1 0 1 432 15408 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
  2158. 2 366 1 0 1 0 1 2
  2159. 2 362 1 12240 15840 1 257
  2160. 2 364 1 1440 432 1440 0 1 0 1 1440 14400 2 2 4680 3 9360
  2161. 2 365 1 1440 72 1440 360 1 0 1 1440 14400 2 2 4680 3 9360
  2162. 2 376 1
  2163. 2 201 1
  2164. 6 9
  2165. 5 1
  2166. 3 0
  2167. 2 457 1 1 1 7 [X]
  2168. 0 288
  2169. 13
  2170. 8 42
  2171. 0 286 "DocLister" "Face" "{11}doclistr.ini"
  2172. 13
  2173. 8 43
  2174. 0 286 "DocLister" "Size" "{11}doclistr.ini"
  2175. 13
  2176. 8 44
  2177. 6 43
  2178. 7 ""
  2179. 18 1
  2180. 6 44
  2181. 7 ""
  2182. 18 1
  2183. 1 1
  2184. 11 00006040
  2185. 6 44
  2186. 5 10
  2187. 18 3
  2188. 11 00005946
  2189. 0 2 "Due to the way DocLister builds the table format list, font sizes above 10 points don't produce very nice results.  You've selected {44} points.  Do you wish to continue?" "Warning"
  2190. 13
  2191. 8 46
  2192. 6 46
  2193. 5 0
  2194. 18 0
  2195. 11 00005946
  2196. 0 291 7
  2197. 2 147 1
  2198. 6 17
  2199. 15
  2200. 9
  2201. 0 804 &38 &39 &40 &41
  2202. 2 311 1 "{42}"
  2203. 6 44
  2204. 5 20
  2205. 4 0
  2206. 2 315 1 "{43}" [X] "{39}" 0
  2207. 2 319 1
  2208. 2 631 1
  2209. 0 6 "[9]"
  2210. 2 634 1 3873 -32768 -32768 -32768
  2211. 0 6 "[9]"
  2212. 2 634 1 1958 -32768 -32768 -32768
  2213. 0 6 "[9]"
  2214. 2 634 1 1497 -32768 -32768 -32768
  2215. 0 6 "[9]"
  2216. 2 634 1 1958 -32768 -32768 -32768
  2217. 0 6 "[9]"
  2218. 2 634 1 1497 -32768 -32768 -32768
  2219. 0 6 "[9]"
  2220. 2 634 1 1483 -32768 -32768 -32768
  2221. 5 1
  2222. 8 18
  2223. 5 6
  2224. 6 18
  2225. 18 2
  2226. 12 00006414
  2227. 10 00006441
  2228. 5 1
  2229. 6 18
  2230. 3 0
  2231. 8 18
  2232. 10 00006336
  2233. 0 6 "[4105]"
  2234. 10 00006379
  2235. 0 6 "Document"
  2236. 0 6 "[9]"
  2237. 0 6 "Description"
  2238. 0 6 "[9]"
  2239. 0 6 "Creation Date"
  2240. 0 6 "[9]"
  2241. 0 6 "Creation Time"
  2242. 0 6 "[9]"
  2243. 0 6 "Last Edit Date"
  2244. 0 6 "[9]"
  2245. 0 6 "Last Edit Time"
  2246. 0 6 "[9]"
  2247. 0 6 "Size"
  2248. 5 1
  2249. 8 18
  2250. 5 6
  2251. 6 18
  2252. 18 2
  2253. 12 00006729
  2254. 10 00006756
  2255. 5 1
  2256. 6 18
  2257. 3 0
  2258. 8 18
  2259. 10 00006651
  2260. 0 6 "[4105]"
  2261. 10 00006694
  2262. 5 1
  2263. 8 18
  2264. 5 14
  2265. 6 18
  2266. 18 2
  2267. 12 00006846
  2268. 10 00006873
  2269. 5 1
  2270. 6 18
  2271. 3 0
  2272. 8 18
  2273. 10 00006767
  2274. 0 6 "[4135]"
  2275. 10 00006811
  2276. 2 254 1
  2277. 0 6 "[27][16420][40]"
  2278. 5 1
  2279. 8 18
  2280. 6 9
  2281. 6 18
  2282. 18 2
  2283. 12 00006994
  2284. 10 00007863
  2285. 5 1
  2286. 6 18
  2287. 3 0
  2288. 8 18
  2289. 10 00006916
  2290. 0 273 "{15}" "{18}"
  2291. 13
  2292. 8 19
  2293. 0 808 1 "{19}" "\"
  2294. 13
  2295. 8 21
  2296. 6 21
  2297. 5 0
  2298. 18 1
  2299. 11 00007184
  2300. 0 14 "{19}"
  2301. 13
  2302. 6 21
  2303. 3 1
  2304. 0 807 "{19}" [X]
  2305. 13
  2306. 8 19
  2307. 0 808 1 "{19}" "\"
  2308. 13
  2309. 8 21
  2310. 10 00007055
  2311. 0 789 "Building report, file {18} of {9}....{19}"
  2312. 0 6 "{19}"
  2313. 0 6 "[9]"
  2314. 6 0
  2315. 5 1
  2316. 18 0
  2317. 11 00007361
  2318. 0 273 "{22}" "{18}"
  2319. 13
  2320. 8 45
  2321. 6 45
  2322. 7 ""
  2323. 18 1
  2324. 11 00007361
  2325. 0 6 "{45}"
  2326. 0 6 "[9]"
  2327. 6 1
  2328. 5 1
  2329. 18 0
  2330. 11 00007454
  2331. 0 273 "{27}" "{18}"
  2332. 13
  2333. 0 770 [X] "b"
  2334. 13
  2335. 0 6 [X]
  2336. 0 6 "[9]"
  2337. 6 2
  2338. 5 1
  2339. 18 0
  2340. 11 00007547
  2341. 0 273 "{30}" "{18}"
  2342. 13
  2343. 0 773 [X] "6"
  2344. 13
  2345. 0 6 [X]
  2346. 0 6 "[9]"
  2347. 6 3
  2348. 5 1
  2349. 18 0
  2350. 11 00007640
  2351. 0 273 "{32}" "{18}"
  2352. 13
  2353. 0 770 [X] "b"
  2354. 13
  2355. 0 6 [X]
  2356. 0 6 "[9]"
  2357. 6 4
  2358. 5 1
  2359. 18 0
  2360. 11 00007733
  2361. 0 273 "{34}" "{18}"
  2362. 13
  2363. 0 773 [X] "6"
  2364. 13
  2365. 0 6 [X]
  2366. 0 6 "[9]"
  2367. 6 5
  2368. 5 1
  2369. 18 0
  2370. 11 00007839
  2371. 0 273 "{36}" "{18}"
  2372. 13
  2373. 8 37
  2374. 0 16 "{37}" " bytes"
  2375. 13
  2376. 0 6 [X]
  2377. 0 6 "[9]"
  2378. 10 00006959
  2379. 0 6 "[16420]"
  2380. 0 2 "Auto-sort by file name?" "DocLister 2.0"
  2381. 13
  2382. 11 00008140
  2383. 0 32 2
  2384. 0 6 "[40]"
  2385. 5 1
  2386. 8 18
  2387. 6 9
  2388. 5 1
  2389. 3 1
  2390. 6 18
  2391. 18 2
  2392. 12 00008061
  2393. 10 00008088
  2394. 5 1
  2395. 6 18
  2396. 3 0
  2397. 8 18
  2398. 10 00007973
  2399. 0 6 "[4136]"
  2400. 10 00008026
  2401. 2 456 1 1 1 1 1 9 12639
  2402. 0 6 "[27][16420]"
  2403. 0 32 0
  2404. 16 cleanup "{15}" "{22}" "{36}" "{27}" "{30}" "{32}" "{34}"
  2405. 6 17
  2406. 15
  2407. 9
  2408. 14 cleanup
  2409. 0 266 "{0}"
  2410. 0 266 "{1}"
  2411. 0 266 "{2}"
  2412. 0 266 "{3}"
  2413. 0 266 "{4}"
  2414. 0 266 "{5}"
  2415. 0 266 "{6}"
  2416. 0 789 ""
  2417. 6 7
  2418. 15
  2419. 9
  2420. 14 helper
  2421. 0 39 13
  2422. 13
  2423. 0 39 10
  2424. 13
  2425. 0 16 [X] [X]
  2426. 13
  2427. 8 1
  2428. 0 3 "DocLister 2.1{1}{1}Author: Cris Williams{1}Lotus Development Corporation{1}Word Processing Division{1}2/4/94" "About"
  2429. 6 0
  2430. 15
  2431. 9
  2432. 14 applyfonts
  2433. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2434. 13
  2435. 8 4
  2436. 6 4
  2437. 11 00000892
  2438. 0 44 "{0}" 9001
  2439. 13
  2440. 8 5
  2441. 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
  2442. 5 21
  2443. 8 6
  2444. 5 26
  2445. 6 6
  2446. 18 2
  2447. 12 00000280
  2448. 10 00000369
  2449. 5 1
  2450. 6 6
  2451. 3 0
  2452. 8 6
  2453. 10 00000204
  2454. 0 44 "{0}" "{6}"
  2455. 13
  2456. 8 7
  2457. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
  2458. 10 00000247
  2459. 0 44 "{0}" 7999
  2460. 13
  2461. 8 8
  2462. 0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{4}" 0
  2463. 0 44 "{0}" 29
  2464. 13
  2465. 8 9
  2466. 0 284 "user,SendMessage,HHHHJ" "{9}" 48 "{4}" 0
  2467. 0 44 "{0}" 30
  2468. 13
  2469. 8 10
  2470. 0 284 "user,SendMessage,HHHHJ" "{10}" 48 "{4}" 0
  2471. 0 44 "{0}" 1007
  2472. 13
  2473. 8 11
  2474. 0 284 "user,SendMessage,HHHHJ" "{11}" 48 "{4}" 0
  2475. 0 44 "{0}" 20
  2476. 13
  2477. 8 12
  2478. 0 284 "user,SendMessage,HHHHJ" "{12}" 48 "{4}" 0
  2479. 0 44 "{0}" 1
  2480. 13
  2481. 8 13
  2482. 0 284 "user,SendMessage,HHHHJ" "{13}" 48 "{4}" 0
  2483. 0 44 "{0}" 2
  2484. 13
  2485. 8 14
  2486. 0 284 "user,SendMessage,HHHHJ" "{14}" 48 "{4}" 0
  2487. 16 getdesc "{0}"
  2488. 6 3
  2489. 15
  2490. 9
  2491. 14 getdesc
  2492. 0 32 2
  2493. 0 290
  2494. 13
  2495. 0 42 "{0}" 9001
  2496. 13
  2497. 0 16 [X] [X]
  2498. 13
  2499. 8 4
  2500. 0 39 91
  2501. 13
  2502. 8 5
  2503. 0 808 1 "{4}" "{5}"
  2504. 13
  2505. 11 00000199
  2506. 0 284 "user,setdlgitemtext,hhhc" "{0}" 1007 ""
  2507. 0 32 0
  2508. 6 3
  2509. 15
  2510. 9
  2511. 0 39 13
  2512. 13
  2513. 0 39 10
  2514. 13
  2515. 0 16 [X] [X]
  2516. 13
  2517. 8 6
  2518. 0 39 93
  2519. 13
  2520. 8 7
  2521. 0 259 "{4}" "r"
  2522. 13
  2523. 8 1
  2524. 0 257 "{1}"
  2525. 13
  2526. 8 8
  2527. 0 808 1 "{8}" "{5}desc{7}"
  2528. 13
  2529. 5 0
  2530. 18 0
  2531. 11 00000500
  2532. 6 9
  2533. 5 1
  2534. 3 0
  2535. 8 9
  2536. 6 9
  2537. 5 50
  2538. 18 0
  2539. 11 00000465
  2540. 0 43 "{0}" 1007 ""
  2541. 7 ""
  2542. 8 10
  2543. 10 00000578
  2544. 0 257 "{1}"
  2545. 13
  2546. 8 8
  2547. 10 00000314
  2548. 0 257 "{1}"
  2549. 13
  2550. 8 10
  2551. 0 14 "{10}"
  2552. 13
  2553. 5 1
  2554. 3 1
  2555. 0 807 "{10}" [X]
  2556. 13
  2557. 8 10
  2558. 0 32 0
  2559. 0 260 "{1}"
  2560. 0 284 "user,setdlgitemtext,hhhc" "{0}" 1007 "{10}"
  2561. 6 3
  2562. 15
  2563. 9
  2564. 14 selectfont
  2565. 0 802
  2566. 13
  2567. 8 1
  2568. 0 1288
  2569. 13
  2570. 8 2
  2571. 5 1
  2572. 21 3 [X]
  2573. 16 getfonts &3
  2574. 13
  2575. 8 4
  2576. 6 4
  2577. 5 0
  2578. 18 1
  2579. 11 00000220
  2580. 0 3 "There was a problem retrieving contents of the Windows font resource table." "Error"
  2581. 6 0
  2582. 15
  2583. 9
  2584. 0 1046 &3
  2585. 13
  2586. 8 5
  2587. 5 2
  2588. 8 6
  2589. 6 5
  2590. 6 6
  2591. 18 2
  2592. 12 00000325
  2593. 10 00000364
  2594. 5 1
  2595. 6 6
  2596. 3 0
  2597. 8 6
  2598. 10 00000250
  2599. 6 6
  2600. 22 3
  2601. 0 31 9000 [X]
  2602. 10 00000292
  2603. 5 1
  2604. 8 7
  2605. 5 18
  2606. 6 7
  2607. 18 2
  2608. 12 00000450
  2609. 10 00000500
  2610. 5 1
  2611. 6 7
  2612. 3 0
  2613. 8 7
  2614. 10 00000374
  2615. 6 8
  2616. 5 2
  2617. 3 0
  2618. 8 8
  2619. 0 31 9002 "{8}"
  2620. 10 00000417
  2621. 0 284 "user,GetActiveWindow,H"
  2622. 13
  2623. 8 9
  2624. 0 284 "user,enableWindow,HHH" "{9}" 0
  2625. 0 47 112 "{1}!helper"
  2626. 0 41 0 "{1}!fontinit"
  2627. 0 26 "." "selectfont"
  2628. 13
  2629. 8 4
  2630. 0 265 "fontfont"
  2631. 13
  2632. 0 284 "gdi,deleteobject,hh" [X]
  2633. 0 284 "user,enableWindow,HHH" "{9}" 1
  2634. 6 4
  2635. 5 0
  2636. 18 0
  2637. 11 00000793
  2638. 6 0
  2639. 15
  2640. 9
  2641. 0 27 9000
  2642. 13
  2643. 0 287 "DocLister" "Face" [X] "{2}doclistr.ini"
  2644. 0 27 9002
  2645. 13
  2646. 0 287 "DocLister" "Size" [X] "{2}doclistr.ini"
  2647. 6 0
  2648. 15
  2649. 9
  2650. 14 fontinit
  2651. 0 44 "{0}" 9002
  2652. 13
  2653. 8 2
  2654. 0 284 "user,SendMessage,HHHHJ" "{2}" 1031 4 0
  2655. 13
  2656. 8 3
  2657. 0 44 "{0}" 1
  2658. 13
  2659. 8 4
  2660. 0 44 "{0}" 2
  2661. 13
  2662. 8 5
  2663. 0 44 "{0}" 9000
  2664. 13
  2665. 8 6
  2666. 0 44 "{0}" 9002
  2667. 13
  2668. 8 7
  2669. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 0 0 0 0 0 0 0 0 0 "Helv"
  2670. 13
  2671. 8 8
  2672. 0 271 "fontfont" 1
  2673. 0 264 "fontfont" "{8}"
  2674. 0 284 "user,SendMessage,HHHHJ" "{4}" 48 "{8}" 0
  2675. 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{8}" 0
  2676. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{8}" 0
  2677. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{8}" 0
  2678. 6 1
  2679. 15
  2680. 9
  2681. 14 getfonts
  2682. 0 295
  2683. 13
  2684. 0 17 [X]
  2685. 13
  2686. 8 2
  2687. 7 "{2}fontdll.exe"
  2688. 8 3
  2689. 0 280 "{3}" 0
  2690. 13
  2691. 8 4
  2692. 6 4
  2693. 7 "FONTDLL.EXE"
  2694. 18 1
  2695. 11 00000213
  2696. 0 3 "Unable to locate {2}fontdll.exe.  Exiting Function." "Error"
  2697. 5 -1
  2698. 15
  2699. 9
  2700. 0 297 "{3}" "FNT_FontInit" "A"
  2701. 13
  2702. 8 5
  2703. 0 284 "{5}"
  2704. 0 297 "{3}" "FNT_FontFace" "F"
  2705. 13
  2706. 8 6
  2707. 5 0
  2708. 8 8
  2709. 7 "a"
  2710. 8 7
  2711. 6 7
  2712. 7 ""
  2713. 18 1
  2714. 11 00000434
  2715. 0 284 "{6}"
  2716. 13
  2717. 8 7
  2718. 6 8
  2719. 5 1
  2720. 3 0
  2721. 8 8
  2722. 0 1045 &0 "{7}" 0
  2723. 10 00000330
  2724. 0 297 "{3}" "FNT_FontClose" "I"
  2725. 13
  2726. 8 9
  2727. 0 284 "{9}"
  2728. 13
  2729. 8 10
  2730. 0 298 "{9}"
  2731. 0 298 "{6}"
  2732. 0 298 "{5}"
  2733. 6 1
  2734. 15
  2735. 9
  2736. DIALOG dirselect
  2737. -2134376448 18 148 54 155 178 "" "AmiDialog" "DocLister 2.1" 
  2738. FONT 8 "Helv" 
  2739. 4 36 81 88 9001 1352728579 "listbox" "" 0 
  2740. 89 36 62 10 21 1342242819 "button" "Doc &Description" 0 
  2741. 89 47 58 10 22 1342242819 "button" "C&reation Date" 0 
  2742. 89 58 56 10 23 1342242819 "button" "Creation &Time" 0 
  2743. 89 69 57 10 24 1342242819 "button" "&Last Edit Date" 0 
  2744. 89 80 58 10 25 1342242819 "button" "Last &Edit Time" 0 
  2745. 89 91 47 10 26 1342242819 "button" "&File Size" 0 
  2746. 89 102 28 10 30 1342242825 "button" "T&able" 0 
  2747. 89 112 50 10 29 1342242825 "button" "&Standard" 0 
  2748. 89 124 61 12 20 1342242816 "button" "Sele&ct Font" 0 
  2749. 104 3 46 14 1 1342242817 "button" "&OK" 0 
  2750. 104 19 46 14 2 1342242816 "button" "&Cancel" 0 
  2751. 4 13 88 11 7999 1342177280 "static" "directory box" 0 
  2752. 4 4 58 10 1000 1342177280 "static" "Current Directory:" 0 
  2753. 4 26 81 10 1001 1342177280 "static" "Documents and Macros:" 0 
  2754. 4 129 40 9 1002 1342177280 "static" "Description:" 0 
  2755. 4 139 146 34 1003 1342177287 "static" "" 0 
  2756. 6 142 142 28 1007 1342177280 "static" "" 0 
  2757. DIALOG optionwarning
  2758. -2134900736 3 150 65 152 64 "" "AmiDialog" "Info Option Error" 
  2759. 61 37 40 14 4 1342373889 "borbtn" "OK" 0 
  2760. 5 5 50 50 1904 1342373888 "borbtn" "PushButton" 0 
  2761. 38 10 104 19 1000 1342177281 "static" "You must select at least one of the Info Options." 0 
  2762. DIALOG formatwarning
  2763. -2134900736 3 150 65 152 64 "" "AmiDialog" "Format Error" 
  2764. 61 37 40 14 4 1342373889 "borbtn" "OK" 0 
  2765. 5 5 50 50 1904 1342373888 "borbtn" "PushButton" 0 
  2766. 38 10 104 19 1000 1342177281 "static" "You must select one of the format options at the bottom." 0 
  2767. DIALOG selectfont
  2768. -2134376448 6 149 53 177 112 "" "AmiDialog" "Select Font for Document List" 
  2769. FONT 8 "Helv" 
  2770. 6 16 92 89 9000 1352728579 "listbox" "" 0 
  2771. 6 6 52 8 1000 1342177280 "static" "Available fonts:" 0 
  2772. 103 16 24 89 9002 1352728577 "listbox" "" 0 
  2773. 103 6 17 8 1001 1342177280 "static" "Size:" 0 
  2774. 132 16 40 14 1 1342373889 "button" "&OK" 0 
  2775. 132 32 40 14 2 1342373888 "button" "&Cancel" 0 
  2776. 00032830
  2777.