home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78b98.iso / Smart30 / ENGLISH / PRODUCTS / LOTUS029.DSK / _AUTORUN.SMM < prev    next >
INI File  |  1992-10-19  |  52KB  |  3,056 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.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Autorun multiple macros
  19.     Lotus WPD Marketing
  20.     Advanced
  21.     Global Arrays, Callbacks, fopen
  22.     noautorun
  23.     719519012
  24.     104
  25.     679268150
  26.     2341
  27.     12
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  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. [ParaNum]
  54.     1
  55. [tag]
  56.     Body Text
  57.     2
  58.     [fnt]
  59.         Arial
  60.         200
  61.         0
  62.         16384
  63.     [algn]
  64.         1
  65.         1
  66.         216
  67.         0
  68.         0
  69.     [spc]
  70.         33
  71.         273
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         272
  103.         1
  104.         3
  105.         .
  106.         ,
  107.         $
  108.     Body Text
  109.     0
  110.     0
  111. [tag]
  112.     Outline2
  113.     5
  114.     [fnt]
  115.         Arial
  116.         200
  117.         0
  118.         16384
  119.     [algn]
  120.         1
  121.         1
  122.         216
  123.         0
  124.         0
  125.     [spc]
  126.         33
  127.         273
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         2
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         272
  159.         1
  160.         3
  161.         .
  162.         ,
  163.         $
  164.     Outline2
  165.     0
  166.     0
  167. [tag]
  168.     Outline3
  169.     6
  170.     [fnt]
  171.         Arial
  172.         200
  173.         0
  174.         16384
  175.     [algn]
  176.         1
  177.         1
  178.         216
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         273
  184.         1
  185.         0
  186.         0
  187.         1
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         1
  195.         0
  196.         1
  197.         1
  198.         1
  199.         10
  200.         10
  201.         1
  202.     [spec]
  203.         0
  204.         3
  205.         
  206.         0
  207.         1
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         272
  215.         1
  216.         3
  217.         .
  218.         ,
  219.         $
  220.     Outline3
  221.     0
  222.     0
  223. [tag]
  224.     Footnote
  225.     7
  226.     [fnt]
  227.         Arial
  228.         200
  229.         0
  230.         16384
  231.     [algn]
  232.         1
  233.         1
  234.         216
  235.         720
  236.         0
  237.     [spc]
  238.         33
  239.         273
  240.         1
  241.         0
  242.         0
  243.         1
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         1
  251.         0
  252.         1
  253.         1
  254.         1
  255.         10
  256.         10
  257.         1
  258.     [spec]
  259.         0
  260.         0
  261.         <*:>
  262.         0
  263.         1
  264.         1
  265.         256
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         272
  271.         1
  272.         3
  273.         .
  274.         ,
  275.         $
  276.     Footnote
  277.     0
  278.     0
  279. [l1]
  280.     0
  281. [edoc]
  282. <:#240,9360>Macro by <+!>Charlie Pappas,  Mark Osborne & David Zoller<-!>
  283.  
  284. <:#231,9360>
  285.  
  286. @Function@<+@><:#293,9360><:f240,BArial,0,0,255>'declares & defines<:f>
  287.  
  288. @Outline2@<:#231,9360>define EnableWindow()    DllCall("user,EnableWindow,HHH", %1, %2)
  289.  
  290. @Outline2@<:#231,9360>Define ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)
  291.  
  292. @Outline2@<:#231,9360>Define GetActiveWindow()    DllCall("User,GetActiveWindow,H")
  293.  
  294. @Outline2@<:#231,9360>Define SetFocus()        DllCall("User,SetFocus,HH", %1)
  295.  
  296. @Outline2@<:#231,9360>define    HFONT    "Setfont:hFont"
  297.  
  298. @Outline2@<:#462,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  299.  
  300. @Outline2@<:#231,9360>define    WM_SETFONT    0x30
  301.  
  302. @Outline2@<:#462,9360>define CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  303.  
  304. @Outline2@<:#231,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  305.  
  306. @Outline2@declare DiskFmtToAnsi(p1);
  307.  
  308. @Outline2@define VK_F1            112
  309.  
  310. @Outline2@<:#284,9360><:>declare freeit(p1) <:f240,BArial,0,0,255>' declare user defined functions<:f>
  311.  
  312. @Outline2@<:#231,9360>declare loadlist(p1)
  313.  
  314. @Outline2@<:#231,9360>declare savelist(p1)
  315.  
  316. @Outline2@<:#231,9360>declare showdesc(hdlg, id, dummy)
  317.  
  318. @Outline2@<:#231,9360>declare ckauto(macro)
  319.  
  320. @Outline2@<+@><:#231,9360>Declare    LoadDocDesc(Array, array)
  321.  
  322. @Outline2@<+@><:#231,9360>Declare    GetDocInfo(FopenId)
  323.  
  324. @Outline2@<+@><:I0,0,0,0><:S+-1><:#231,9360>declare countfiles(filespec, array)
  325.  
  326. @Function@<:#293,9360>function info()
  327.  
  328. @Outline2@<:#231,9360>ignorekeyboard(1)
  329.  
  330. @Outline2@<:#231,9360>hourglass(1)
  331.  
  332. @Outline2@<:#231,9360>DefStr Stat;
  333.  
  334. @Outline2@<:#231,9360>defstr hdlg;
  335.  
  336. @Outline2@<:#231,9360>dim descs(1)
  337.  
  338. @Outline2@<:#231,9360>dim macfiles(1)
  339.  
  340. @Outline2@<:#284,9360>rmac = getrunningmacrofile$() <:f240,BArial,0,0,255>' get the dos file name of running macro<:f>
  341.  
  342. @Outline2@<:#284,9360><:f240,BArial,0,0,255>'load Descs from disk or global array<:f>
  343.  
  344. @Outline3@<:#231,9360>Mac = GetMacPath$()
  345.  
  346. @Outline3@<:#231,9360>numfiles = countfiles("{mac}*.smm", &macfiles)
  347.  
  348. @Outline3@<:#231,9360>trytoalloc=allocglobalvar("DescAndName", numfiles)
  349.  
  350. @Outline3@<:#284,9360>if GetGlobalVar$("DescAndName") = ""    <:f240,BArial,0,0,255>'we've never been initialized<:f>
  351.  
  352. @Outline3@<:#231,9360>    If 0 = Assign(&Stat, LoadDocDesc(&Descs, &macfiles))
  353.  
  354. @Outline3@<:#231,9360>    Else
  355.  
  356. @Outline3@<:#284,9360>        <:f240,BArial,0,0,255>' Function returned error code<:f>
  357.  
  358. @Outline3@<:#231,9360>    Endif
  359.  
  360. @Outline3@<:#231,9360>    freeglobalvar("DescAndName")
  361.  
  362. @Outline3@<:#231,9360>    x=ArraySize(&Descs)
  363.  
  364. @Outline3@<:#284,9360>    x= x + 1        <:f240,BArial,0,0,255>'make room for the arraysize number @ the beginning<:f>
  365.  
  366. @Outline3@<:#231,9360>    allocglobalvar("DescAndName", x)
  367.  
  368. @Outline3@<:#568,9360>    SetGlobalArray("DescAndName", 1, x)    <:f240,BArial,0,0,255>'set the 1st position to the number of files in the local array<:f>
  369.  
  370. @Outline3@<:#231,9360>    for i = 2 to (x - 1)
  371.  
  372. @Outline3@<:#231,9360>        countdown = x - i
  373.  
  374. @Outline3@<:#231,9360>        StatusBarMsg("Files remaining: {countdown}")
  375.  
  376. @Outline3@<:#231,9360>        data =Descs(i)
  377.  
  378. @Outline3@<:#231,9360>        SetGlobalArray("DescAndName", i, data)
  379.  
  380. @Outline3@<:#231,9360>    next
  381.  
  382. @Outline3@<:#231,9360>else
  383.  
  384. @Outline3@<:#231,9360>    numfiles = GetGlobalArray$("DescAndName", 1)
  385.  
  386. @Outline3@<:#231,9360>    for i = 1 to numfiles
  387.  
  388. @Outline3@<:#231,9360>        countdown = numfiles - i
  389.  
  390. @Outline3@<:#231,9360>        StatusBarMsg("Files remaining: {countdown}")
  391.  
  392. @Outline3@<:#231,9360>        data = GetGlobalArray$("DescAndName", i + 1)
  393.  
  394. @Outline3@<:#231,9360>        if data != ""
  395.  
  396. @Outline3@<:#231,9360>            ArrayInsert(&Descs, i, data)
  397.  
  398. @Outline3@<:#231,9360>        endif
  399.  
  400. @Outline3@<:#231,9360>    next
  401.  
  402. @Outline3@<:#231,9360>endif
  403.  
  404. @Outline3@<:#231,9360>StatusBarMsg("")
  405.  
  406. <:#231,9360><:f200,BArial,255,0,0>number =arraysize(&descs)                       
  407.  
  408. <:#231,9360><:f200,BArial,255,0,0>dim filename(number)
  409.  
  410. <:#231,9360><:f200,BArial,255,0,0>for i = 1 to number
  411.  
  412. <:#231,9360><:f200,BArial,255,0,0>c =  strcat$(strfield$(descs(i),2,"|"),"!",i) 
  413.  
  414. <:#231,9360><:f200,BArial,255,0,0>filename(i) = c
  415.  
  416. <:#231,9360><:f200,BArial,255,0,0>next
  417.  
  418. <:#231,9360><:f200,BArial,255,0,0>arraysort(&filename)
  419.  
  420. <:#231,9360><:f200,BArial,255,0,0>dim temper(number)
  421.  
  422. <:#231,9360><:f200,BArial,255,0,0>for i = 1 to number 
  423.  
  424. <:#231,9360><:f200,BArial,255,0,0>    place = strfield$(filename(i),2,"!")
  425.  
  426. <:#231,9360><:f200,BArial,255,0,0>    temper(i) =  descs(place)
  427.  
  428. <:#231,9360><:f200,BArial,255,0,0>next    
  429.  
  430. <:#231,9360><:f200,BArial,255,0,0>for i = 1 to number
  431.  
  432. <:#231,9360><:f200,BArial,255,0,0>    descs(i) = temper(i)
  433.  
  434. <:#231,9360><:f200,BArial,255,0,0>next<:f>
  435.  
  436. @Outline2@<:#231,9360>Filledit(9000,&Descs)
  437.  
  438. @Outline2@<:#284,9360>allocglobalvar("loadem", 100) <:f240,BArial,0,0,255>' keep track of the stuff in the list box<:f>
  439.  
  440. @Outline2@<:#231,9360>allocglobalvar("count", 1)
  441.  
  442. @Outline2@<:#231,9360>setglobalvar("count", 1)
  443.  
  444. @Outline2@<:#284,9360>onerror endit <:f240,BArial,0,0,255>' set up error and cancel routines<:f>
  445.  
  446. @Outline2@<:#231,9360>oncancel endit
  447.  
  448. @Outline2@<:#231,9360>'font handing
  449.  
  450. @Outline3@<:#231,9360>AllocGlobalVar(HFONT, 1)
  451.  
  452. @Outline3@<:#231,9360>if getglobalvar$(HFONT) != ""
  453.  
  454. @Outline3@<:#231,9360>'    SetGlobalVar(HFONT, 0)
  455.  
  456. @Outline3@<:#231,9360>endif
  457.  
  458. @Outline2@<:#231,9360>filledit(20, True)
  459.  
  460. @Outline2@<:#231,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helpme")
  461.  
  462. @Outline2@<:#284,9360><:>SetDlgCallBack (9000,"{rmac}!showdesc") <:f240,BArial,0,0,255>' load dlg items for callback functions<:f>
  463.  
  464. @Outline2@<:#231,9360>SetDlgCallBack (9003,"{rmac}!showdesc")
  465.  
  466. @Outline2@<:#231,9360>SetDlgCallBack (70,"{rmac}!Add")
  467.  
  468. @Outline2@<:#231,9360>SetDlgCallBack (71,"{rmac}!Del")
  469.  
  470. @Outline2@<:#231,9360>SetDlgCallBack (77,"{rmac}!cwp")
  471.  
  472. @Outline2@<:#231,9360>SetDlgCallBack(20,"{rmac}!sorttype")
  473.  
  474. @Outline2@<:#231,9360>SetDlgCallBack (0,"{rmac}!PreBuild")
  475.  
  476. @Outline2@<:#231,9360>loadlist("")
  477.  
  478. @Outline2@<:#284,9360>Box = Dialogbox(".","showfiles") <:f240,BArial,0,0,255>' display the dialog box<:f>
  479.  
  480. @Outline2@<:#284,9360>switch box <:f240,BArial,0,0,255>' what did the user do<:f>
  481.  
  482. @Outline2@<:#231,9360>    case 0
  483.  
  484. @Outline3@<:#231,9360>        goto endit
  485.  
  486. @Outline2@<:#284,9360>    case 4 <:f240,BArial,0,0,255>' save stuff and close box<:f>
  487.  
  488. @Outline3@<:#231,9360>        savelist("")
  489.  
  490. @Outline3@<:#231,9360>        freeit("")
  491.  
  492. @Outline3@<:#231,9360>        exit function
  493.  
  494. @Outline2@<:#284,9360>    case 3 <:f240,BArial,0,0,255>' play the macro<:f>
  495.  
  496. @Outline3@<:#231,9360>        savelist("")
  497.  
  498. @Outline3@<:#231,9360>        freeit("")
  499.  
  500. @Outline3@<:#231,9360>        longname = GetDialogField$(9000)
  501.  
  502. @Outline3@<:#231,9360>        tname=strfield$(longname, 2, "|")
  503.  
  504. @Outline3@<:#231,9360>        mac = ucase$(tname)
  505.  
  506. @Outline3@<:#284,9360>        if mac = ucase$("_info.smm") <:f240,BArial,0,0,255>' trying to run us?<:f>
  507.  
  508. @Outline3@<:#231,9360>            message("You are already running {mac}")
  509.  
  510. @Outline3@<:#231,9360>            goto hosemenot
  511.  
  512. @Outline3@<:#231,9360>        endif
  513.  
  514. @Outline3@<:#231,9360>        go = decide("Run the macro ""{mac}""?")
  515.  
  516. @Outline3@<:#231,9360>        if go = 1
  517.  
  518. @Outline3@<:#231,9360>            hourglass(0)
  519.  
  520. @Outline3@<:#231,9360>            calli mac()
  521.  
  522. @Outline3@<:#231,9360>        endif
  523.  
  524. @Outline3@<:#231,9360>        hosemenot:
  525.  
  526. @Outline3@<:#231,9360>        RunLater(rmac, "00:00.02")
  527.  
  528. @Outline2@<:#284,9360>    case 1 <:f240,BArial,0,0,255>' wants to get help on the macro<:f>
  529.  
  530. @Outline3@<:#231,9360>        defstr count;
  531.  
  532. @Outline3@<:#231,9360>        savelist("")
  533.  
  534. @Outline3@<:#231,9360>        freeit("")
  535.  
  536. @Outline3@<:#231,9360>        if assign(&count, getopenfilecount()) << 1
  537.  
  538. @Outline3@<:#231,9360>            goto jump
  539.  
  540. @Outline3@<:#231,9360>        endif
  541.  
  542. @Outline3@<:#284,9360>        dim mdifiles(count) <:f240,BArial,0,0,255>' is goodies open?<:f>
  543.  
  544. @Outline3@<:#231,9360>        getopenfilenames(&mdifiles)
  545.  
  546. @Outline3@<:#231,9360>        alreadyopen = 0
  547.  
  548. @Outline3@<:#231,9360>        for i = 1 to count
  549.  
  550. @Outline3@<:#231,9360>            if instr(1, lcase$(mdifiles(i)), "goodies.sam") <;> 0
  551.  
  552. @Outline3@<:#231,9360>                alreadyopen = 1
  553.  
  554. @Outline3@<:#231,9360>                break
  555.  
  556. @Outline3@<:#231,9360>            endif
  557.  
  558. @Outline3@<:#231,9360>        next
  559.  
  560. @Outline3@<:#231,9360>        if alreadyopen = 0
  561.  
  562. @Outline3@<:#231,9360>            opts = 1
  563.  
  564. @Outline3@<:#284,9360>            if count << 1 <:f240,BArial,0,0,255>' didn't have a mdi window<:f>
  565.  
  566. @Outline3@<:#231,9360>                jump:
  567.  
  568. @Outline3@<:#231,9360>                defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
  569.  
  570. @Outline3@<:#284,9360>                new(defstyle, 0, 0) <:f240,BArial,0,0,255>' open window<:f>
  571.  
  572. @Outline3@<:#231,9360>                opts = 129
  573.  
  574. @Outline3@<:#231,9360>            endif
  575.  
  576. @Outline3@<:#231,9360>            FileOpen(strcat$(getdocpath$(), "goodies.sam"),  opts, "")
  577.  
  578. @Outline3@<:#231,9360>        else
  579.  
  580. @Outline3@<:#231,9360>            appmaximize("goodies.sam")
  581.  
  582. @Outline3@<:#231,9360>            layoutmode()
  583.  
  584. @Outline3@<:#231,9360>        endif
  585.  
  586. @Outline3@<:#231,9360>        longname = GetDialogField$(9000)
  587.  
  588. @Outline3@<:#231,9360>        tname=ucase$(strfield$(longname, 2, "|"))
  589.  
  590. @Outline3@<:#231,9360>        markpage=GetBookMarkPage(tName)
  591.  
  592. @Outline3@<:#231,9360>'        GoToCmd(1, markPage, 0)
  593.  
  594. @Outline3@<:#231,9360>'        markbookmark(ucase$(tname), findbookmark)
  595.  
  596. @Outline3@<:#231,9360>        Replace(0, 0, 8197, TNAME, "")
  597.  
  598. @Outline3@<:#284,9360>        type("<[>esc]") <:f240,BArial,0,0,255>' go to bookmark of macro<:f>
  599.  
  600. @Outline3@<:#231,9360>        usercontrol("Choose resume to return to AutoRun.")
  601.  
  602. @Outline3@<:#231,9360>        RunLater(rmac, "00:00.02")
  603.  
  604. @Outline3@<:#231,9360>        exit function
  605.  
  606. @Outline2@<:#231,9360>endswitch
  607.  
  608. @Outline2@<:#231,9360>endit:
  609.  
  610. @Outline2@<:#231,9360>freeit("")
  611.  
  612. @Outline2@<:#231,9360>'nukefont
  613.  
  614. @Outline3@<:#231,9360>font = GetGlobalVar$(HFONT)        ' If we created
  615.  
  616. @Outline3@<:#231,9360>if (0 != font)                ' the font.
  617.  
  618. @Outline3@<:#231,9360>    DeleteObject(font)        ' Delete it
  619.  
  620. @Outline3@<:#231,9360>endif
  621.  
  622. @Outline3@<:#231,9360>result=freeglobalvar(HFONT)
  623.  
  624. @Outline2@<:#231,9360>hourglass(0)
  625.  
  626. @Outline2@<:#231,9360>end function
  627.  
  628. @Function@<:#293,9360>Function PreBuild(hdlg, id, dummy)
  629.  
  630. @Outline2@<:#231,9360>'INITDLG(hdlg, id, stuff)
  631.  
  632. @Outline3@<:#231,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  633.  
  634. @Outline3@<:#231,9360>if (Font)
  635.  
  636. @Outline3@<:#231,9360>    hctl = GetDlgItem(hDlg, 9000)    'one desc box
  637.  
  638. @Outline3@<:#231,9360>    hctl2 = GetDlgItem(hDlg, 9002)    'the other
  639.  
  640. @Outline3@<:#231,9360>    hctl3 = GetDlgItem(hDlg, 8007)    'the static text field for file name
  641.  
  642. @Outline3@<:#231,9360>    SendMessage(hctl, WM_SETFONT, font, 0)
  643.  
  644. @Outline3@<:#231,9360>    SendMessage(hctl2, WM_SETFONT, font, 0)
  645.  
  646. @Outline3@<:#231,9360>    SendMessage(hctl3, WM_SETFONT, font, 0)
  647.  
  648. @Outline3@<:#231,9360>    SetGlobalVar(HFONT, Font)
  649.  
  650. @Outline3@<:#231,9360>endif 
  651.  
  652. @Outline2@<:#231,9360>call UngrayButtons(hdlg)
  653.  
  654. @Outline2@<:#231,9360>call sorttype(hdlg, 20, 1)
  655.  
  656. @Outline2@<:#231,9360>end function
  657.  
  658. @Function@<:#293,9360>function UngrayButtons(hdlg) <:f240,BArial,0,0,255>' this function ungrays buttons<:f>
  659.  
  660. @Outline2@<:#231,9360>enablewindow(getdlgitem(Hdlg, 71), 0)
  661.  
  662. @Outline2@<:#231,9360>'showdesc(hdlg, id, dummy)
  663.  
  664. @Outline2@<:#231,9360>if getglobalvar$("count") <;> 0
  665.  
  666. @Outline2@<:#231,9360>    enablewindow(getdlgitem(Hdlg, 71), 1)
  667.  
  668. @Outline2@<:#231,9360>endif
  669.  
  670. @Outline2@<:#231,9360>end function
  671.  
  672. @Function@<:#293,9360>function freeit(x) <:f240,BArial,0,0,255>' free globals<:f>
  673.  
  674. @Outline2@<:#231,9360>freeglobalvar("loadem")
  675.  
  676. @Outline2@<:#231,9360>freeglobalvar("count")
  677.  
  678. @Outline2@<:#231,9360>end function
  679.  
  680. @Function@<:#293,9360>function saveit(hdlg)
  681.  
  682. @Outline2@<:#231,9360>hourglass(1)
  683.  
  684. @Outline2@<:#231,9360>savelist("")
  685.  
  686. @Outline2@<:#231,9360>hourglass(0)
  687.  
  688. @Outline2@<:#231,9360>end function
  689.  
  690. @Function@<:#293,9360>function showdesc(hdlg, id, dummy) <:f240,BArial,0,0,255>' get the doc info stuff from array<:f>
  691.  
  692. @Outline2@<:#231,9360>ignorekeyboard(1)
  693.  
  694. @Outline2@<:#231,9360>hourglass(1)
  695.  
  696. @Outline2@<:#231,9360>defstr ar;
  697.  
  698. @Outline2@<:#231,9360>longname = GetDlgItemText(Hdlg, id)
  699.  
  700. @Outline2@<:#231,9360>file=lcase$(strfield$(longname, 2, "|"))
  701.  
  702. @Outline2@<:#231,9360>onerror endit
  703.  
  704. @Outline2@<:#231,9360>oncancel endit
  705.  
  706. @Outline2@<:#231,9360>SetDlgItemText(Hdlg, 8007, file)
  707.  
  708. @Outline2@<:#231,9360>stat = 1
  709.  
  710. @Outline2@<:#231,9360>endit:
  711.  
  712. @Outline2@<:#231,9360>hourglass(0)
  713.  
  714. @Outline2@<:#231,9360>return stat
  715.  
  716. @Outline2@<:#231,9360>end function
  717.  
  718. @Function@<:#293,9360>function sorttype(Hdlg,id,dummy)
  719.  
  720. @Outline2@<:#231,9360>sortbydesc=getdlgitemtext(hdlg, 20)
  721.  
  722. @Outline2@<:#231,9360>if sortbydesc=1
  723.  
  724. @Outline2@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,9003), 0)
  725.  
  726. @Outline2@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,9000), 1)
  727.  
  728. @Outline2@<:#231,9360>    id=9000
  729.  
  730. @Outline2@<:#231,9360>    call showdesc(Hdlg,id,dummy)
  731.  
  732. @Outline2@<:#231,9360>else
  733.  
  734. @Outline2@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,9000), 0)
  735.  
  736. @Outline2@<:#231,9360>    ShowWindow(GetDlgItem(Hdlg,9003), 1)
  737.  
  738. @Outline2@<:#231,9360>    id=9003
  739.  
  740. @Outline2@<:#231,9360>    call showdesc(Hdlg,id,dummy)
  741.  
  742. @Outline2@<:#231,9360>endif
  743.  
  744. @Outline2@<:#231,9360>end function
  745.  
  746. @Function@<:#293,9360>DIALOG    showfiles
  747.  
  748. @Outline2@<:#231,9360>-2134376448    17    49    45    280    140    ""    "AmiDialog"    "Autorun Macros"
  749.  
  750. @Outline2@<:#231,9360>FONT    8    "Helv"
  751.  
  752. @Outline2@<:#231,9360>6    3    60    8    1000    1342308352    "static"    "Ma&cros:"    0 
  753.  
  754. @Outline2@<:#231,9360>6    12    155    116    9003    1352728577    "listbox"    ""    0 
  755.  
  756. @Outline2@<:#231,9360>6    12    155    122    9000    1352728577    "listbox"    ""    0 
  757.  
  758. @Outline2@<:#231,9360>164    93    44    14    70    1342373888    "button"    "&Install <;><;>"    0 
  759.  
  760. @Outline2@<:#231,9360>164    110    44    14    71    1342242816    "button"    "<<<< Re&move"    0 
  761.  
  762. @Outline2@<:#231,9360>212    66    46    8    1001    1342308352    "static"    "I&nstalled:"    0 
  763.  
  764. @Outline2@<:#231,9360>212    75    60    53    9002    1352728577    "listbox"    ""    0 
  765.  
  766. @Outline2@<:#231,9360>232    3    42    14    4    1342373888    "button"    "OK"    0 
  767.  
  768. @Outline2@<:#231,9360>232    19    42    14    2    1342373888    "button"    "Cancel"    0 
  769.  
  770. @Outline2@<:#231,9360>232    35    42    14    1    1342373889    "button"    "&Details..."    0 
  771.  
  772. @Outline2@<:#231,9360>232    51    42    14    3    1342373888    "button"    "&Run..."    0 
  773.  
  774. @Outline2@<:#231,9360>263    292    0    0    77    1342177280    "button"    "&z"    0 
  775.  
  776. @Outline2@<:#231,9360>45    128    70    10    8007    1342177280    "static"    ""    0 
  777.  
  778. @Outline2@<:#231,9360>65    1    1    1    8013    1342177280    "static"    ""    0 
  779.  
  780. @Outline2@<:#231,9360>34    3    110    8    8777    1342177281    "static"    ""    0 
  781.  
  782. @Outline2@<:#231,9360>6    128    38    10    1002    1342177280    "static"    "File name:"    0 
  783.  
  784. @Outline2@<:#231,9360>14    290    0    0    20    1342242819    "button"    "show descriptions"    0 
  785.  
  786. @Outline2@<:#231,9360>END DIALOG
  787.  
  788. @Function@<:#293,9360>Function add(Hdlg) <:f240,BArial,0,0,255>' add a macro to autorun list<:f>
  789.  
  790. @Outline2@<:#231,9360>ignorekeyboard(1)
  791.  
  792. @Outline2@<:#231,9360>defstr autos;
  793.  
  794. @Outline2@<:#231,9360>hourglass(1)
  795.  
  796. @Outline2@<:#231,9360>longname = GetDlgItemText(Hdlg, 9000)
  797.  
  798. @Outline2@<:#231,9360>tname=lcase$(strfield$(longname, 2, "|"))
  799.  
  800. @Outline2@<:#231,9360>if ckauto(lcase$(tname)) <<<;> 1
  801.  
  802. @Outline2@<:#231,9360>    return 0
  803.  
  804. @Outline2@<:#231,9360>endif
  805.  
  806. @Outline2@<:#231,9360>count = getglobalvar$("count")
  807.  
  808. @Outline2@<:#231,9360>for i = 1 to count
  809.  
  810. @Outline2@<:#231,9360>    if tname <<<;> ""
  811.  
  812. @Outline2@<:#231,9360>        if tname = lcase$(getglobalarray$("loadem", i))
  813.  
  814. @Outline2@<:#231,9360>            message("That macro is already set to ""AutoRun""")
  815.  
  816. @Outline2@<:#231,9360>            hourglass(0)
  817.  
  818. @Outline2@<:#231,9360>            return 1
  819.  
  820. @Outline2@<:#231,9360>        endif
  821.  
  822. @Outline2@<:#231,9360>    endif
  823.  
  824. @Outline2@<:#231,9360>next
  825.  
  826. @Outline2@<:#231,9360>SetDlgItemText(Hdlg, 9002, tname)
  827.  
  828. @Outline2@<:#231,9360>enablewindow(getdlgitem(Hdlg, 71), 1)
  829.  
  830. @Outline2@<:#231,9360>count = getglobalvar$("count") + 1
  831.  
  832. @Outline2@<:#231,9360>setglobalarray("loadem", count, tname)
  833.  
  834. @Outline2@<:#231,9360>setglobalvar("count", count)
  835.  
  836. @Outline2@<:#231,9360>if GetDlgItemText(Hdlg, 9002) = ""
  837.  
  838. @Outline2@<:#231,9360>    enablewindow(getdlgitem(Hdlg, 71), 0)
  839.  
  840. @Outline2@<:#231,9360>endif
  841.  
  842. @Outline2@<:#231,9360>hourglass(0)
  843.  
  844. @Outline2@<:#231,9360>End Function
  845.  
  846. @Function@<:#293,9360><:><:>Function del(Hdlg) <:f240,BArial,0,0,255>' delete macro from autorun list<:f>
  847.  
  848. @Outline2@<:#231,9360>ignorekeyboard(1)
  849.  
  850. @Outline2@<:#231,9360>hourglass(1)
  851.  
  852. @Outline2@<:#231,9360>sname = GetDlgItemText(Hdlg, 9002)
  853.  
  854. @Outline2@<:#231,9360>if sname = ""
  855.  
  856. @Outline2@<:#231,9360>    return 0
  857.  
  858. @Outline2@<:#231,9360>endif
  859.  
  860. @Outline2@<:#231,9360>Handle=GetDlgItem(Hdlg, 9002)
  861.  
  862. @Outline2@<:#231,9360>AppSendMessage(Handle, 0x0405, 0, 0)
  863.  
  864. @Outline2@<:#231,9360>count = getglobalvar$("count")
  865.  
  866. @Outline2@<:#231,9360>if count = 0
  867.  
  868. @Outline2@<:#231,9360>    enablewindow(getdlgitem(Hdlg, 71), 0)
  869.  
  870. @Outline2@<:#231,9360>    return 0
  871.  
  872. @Outline2@<:#231,9360>endif    
  873.  
  874. @Outline2@<:#231,9360>for i = 1 to count
  875.  
  876. @Outline2@<:#231,9360>    xname = getglobalarray$("loadem", i)
  877.  
  878. @Outline2@<:#231,9360>    if xname = sname
  879.  
  880. @Outline2@<:#231,9360>        setglobalarray("loadem", i, "")
  881.  
  882. @Outline2@<:#231,9360>    else
  883.  
  884. @Outline2@<:#231,9360>        if xname <<<;> ""
  885.  
  886. @Outline2@<:#231,9360>            SetDlgItemText(Hdlg, 9002, xname)
  887.  
  888. @Outline2@<:#231,9360>        endif
  889.  
  890. @Outline2@<:#231,9360>        setglobalarray("loadem", i, xname)
  891.  
  892. @Outline2@<:#231,9360>    endif
  893.  
  894. @Outline2@<:#231,9360>next
  895.  
  896. @Outline2@<:#231,9360>hourglass(0)
  897.  
  898. @Outline2@<:#231,9360>highlighted=getdlgitemtext(hdlg, 9002)
  899.  
  900. @Outline2@<:#231,9360>if highlighted = ""
  901.  
  902. @Outline2@<:#231,9360>    enablewindow(getdlgitem(Hdlg, 71), 0)
  903.  
  904. @Outline2@<:#231,9360>endif
  905.  
  906. @Outline2@<:#231,9360>End Function
  907.  
  908. @Function@<:#293,9360>function helpme(hdlg)
  909.  
  910. @Outline2@<:#231,9360>box = dialogbox(".", "help")
  911.  
  912. @Outline2@<:#231,9360>end function
  913.  
  914. @Function@<:#293,9360>DIALOG help
  915.  
  916. @Outline2@<:#231,9360>-2134376448 5 59 30 160 124 "" "" "Info Help"
  917.  
  918. @Outline2@<:#231,9360>FONT 8 "Helv"
  919.  
  920. @Outline2@<:#231,9360>60 105 40 14 1 1342242817 "button" "OK" 0 
  921.  
  922. @Outline2@<:#231,9360>11 21 138 18 1001 1342177280 "static" "Select a feature and choose Install to make it AutoRun." 0 
  923.  
  924. @Outline2@<:#231,9360>6 7 148 89 80 1342177287 "button" "Macro Install" 0 
  925.  
  926. @Outline2@<:#462,9360>11 42 138 18 1002 1342177280 "static" "Choose Details to view detailed information about a feature." 0 
  927.  
  928. @Outline2@<:#231,9360>11 64 138 18 1000 1342177280 "static" "To see a demonstration of the feature, choose Run." 0 
  929.  
  930. @Outline2@<:#231,9360>END DIALOG
  931.  
  932. @Function@<:#293,9360>function loadlist(x) <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>
  933.  
  934. @Outline2@<:#231,9360>ignorekeyboard(1)
  935.  
  936. @Outline2@<:#231,9360>hourglass(1)
  937.  
  938. @Subhead@<:#231,9360>windir = getwindowsdirectory$()
  939.  
  940. @Subhead@<:#231,9360>autofile = strcat$(windir, "amiauto.cfg")
  941.  
  942. @Outline2@<:#231,9360>ck = findfirst$(autofile, 33)
  943.  
  944. @Outline2@<:#231,9360>if ck = ""
  945.  
  946. @Outline2@<:#231,9360>    option = "w"
  947.  
  948. @Outline2@<:#231,9360>else
  949.  
  950. @Outline2@<:#231,9360>    option = "r"
  951.  
  952. @Outline2@<:#231,9360>endif
  953.  
  954. @Outline2@<:#231,9360>fh = fopen(autofile, option)
  955.  
  956. @Outline2@<:#231,9360>if fh << 1
  957.  
  958. @Outline2@<:#231,9360>    message("Unable to create file AMIAUTO.CFG")
  959.  
  960. @Outline2@<:#231,9360>    return -1
  961.  
  962. @Outline2@<:#231,9360>endif
  963.  
  964. @Outline2@<:#231,9360>if option = "w"
  965.  
  966. @Outline2@<:#231,9360>    goto endit
  967.  
  968. @Outline2@<:#231,9360>endif
  969.  
  970. @Outline2@<:#231,9360>onerror endit
  971.  
  972. @Outline2@<:#231,9360>oncancel endit
  973.  
  974. @Outline2@<:#231,9360>i = 0
  975.  
  976. @Outline2@<:#231,9360>while (1)
  977.  
  978. @Outline2@<:#231,9360>    txt = fgets$(fh)
  979.  
  980. @Outline2@<:#231,9360>    if txt = -1
  981.  
  982. @Outline2@<:#231,9360>        break
  983.  
  984. @Outline2@<:#231,9360>    endif
  985.  
  986. @Outline2@<:#231,9360>    i = i + 1
  987.  
  988. @Outline2@<:#231,9360>    setglobalarray("loadem", i, txt)
  989.  
  990. @Outline2@<:#231,9360>    filledit(9002, txt)
  991.  
  992. @Outline2@<:#231,9360>wend
  993.  
  994. @Outline2@<:#231,9360>endit:
  995.  
  996. @Outline2@<:#231,9360>fclose(fh)
  997.  
  998. @Outline2@<:#231,9360>setglobalvar("count", i)
  999.  
  1000. @Outline2@<:#231,9360>hourglass(0)
  1001.  
  1002. @Outline2@<:#231,9360>end function
  1003.  
  1004. @Function@<:#293,9360>function savelist(x) <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>
  1005.  
  1006. @Outline2@<:#231,9360>ignorekeyboard(1)
  1007.  
  1008. @Outline2@<:#231,9360>hourglass(1)
  1009.  
  1010. @Subhead@<:#231,9360>windir = getwindowsdirectory$()
  1011.  
  1012. @Subhead@<:#231,9360>autofile = strcat$(windir, "amiauto.cfg")
  1013.  
  1014. @Outline2@<:#231,9360>defstr txt;
  1015.  
  1016. @Outline2@<:#231,9360>fh = fopen(autofile, "w")
  1017.  
  1018. @Outline2@<:#231,9360>if fh << 1
  1019.  
  1020. @Outline2@<:#231,9360>    message("Unable to save file AMIAUTO.CFG")
  1021.  
  1022. @Outline2@<:#231,9360>    hourglass(0)
  1023.  
  1024. @Outline2@<:#231,9360>    return -1
  1025.  
  1026. @Outline2@<:#231,9360>endif
  1027.  
  1028. @Outline2@<:#231,9360>onerror endit
  1029.  
  1030. @Outline2@<:#231,9360>oncancel endit
  1031.  
  1032. @Outline2@<:#231,9360>count = getglobalvar$("count")
  1033.  
  1034. @Outline2@<:#231,9360>for i = 1 to count
  1035.  
  1036. @Outline2@<:#231,9360>    if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""
  1037.  
  1038. @Outline2@<:#231,9360>        fputs(fh, txt)
  1039.  
  1040. @Outline2@<:#231,9360>    endif
  1041.  
  1042. @Outline2@<:#231,9360>next
  1043.  
  1044. @Outline2@<:#231,9360>endit:
  1045.  
  1046. @Outline2@<:#231,9360>fclose(fh)
  1047.  
  1048. @Outline2@<:#231,9360>hourglass(0)
  1049.  
  1050. @Outline2@<:#231,9360>call zproglod("")
  1051.  
  1052. @Outline2@<:#231,9360>end function
  1053.  
  1054. @Function@<:#293,9360>function zgood(macro) 
  1055.  
  1056. @Outline2@<:#231,9360>declare ckauto(file)
  1057.  
  1058. @Outline2@<:#231,9360>which = left$(macro, 2)
  1059.  
  1060. @Outline2@<:#231,9360>mac = mid$(macro, 3, len(macro))
  1061.  
  1062. @Outline2@<:#231,9360>switch which
  1063.  
  1064. @Outline2@<:#231,9360>    case "td"
  1065.  
  1066. @Outline2@<:#231,9360>        calli mac()
  1067.  
  1068. @Outline2@<:#231,9360>    case "ar"
  1069.  
  1070. @Outline2@<:#231,9360>        runit = ckauto(mac)
  1071.  
  1072. @Outline2@<:#231,9360>        if runit <<<;> 1
  1073.  
  1074. @Outline2@<:#231,9360>            message("{mac} not intended to AutoRun")
  1075.  
  1076. @Outline2@<:#231,9360>            return -1
  1077.  
  1078. @Outline2@<:#231,9360>        endif
  1079.  
  1080. @Outline2@<:#231,9360>        if call zmkauto(mac) = 1
  1081.  
  1082. @Outline2@<:#231,9360>            message("{mac} installed as AutoRun.")
  1083.  
  1084. @Outline2@<:#231,9360>        endif
  1085.  
  1086. @Outline2@<:#231,9360>    case    "si"
  1087.  
  1088. @Outline2@<:#231,9360>        call _autorun.smm()        
  1089.  
  1090. @Outline2@<:#231,9360>endswitch
  1091.  
  1092. @Outline2@<:#231,9360>end function
  1093.  
  1094. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>function cwp(hdlg)
  1095.  
  1096. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>again:
  1097.  
  1098. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>p = 004
  1099.  
  1100. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "--<;><;> Pete <<<<--")
  1101.  
  1102. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1103.  
  1104. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Mark Osborne")
  1105.  
  1106. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1107.  
  1108. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peter Housley")
  1109.  
  1110. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1111.  
  1112. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Hugh Marlor")
  1113.  
  1114. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1115.  
  1116. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "John McDaniel")
  1117.  
  1118. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1119.  
  1120. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peyton McManus")
  1121.  
  1122. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1123.  
  1124. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Robert Pernett")
  1125.  
  1126. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1127.  
  1128. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Powell Smith")
  1129.  
  1130. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1131.  
  1132. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Sandra Wilson")
  1133.  
  1134. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1135.  
  1136. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "David Zoller")
  1137.  
  1138. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1139.  
  1140. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Charlie Pappas")
  1141.  
  1142. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)
  1143.  
  1144. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>goto again
  1145.  
  1146. @Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>end function
  1147.  
  1148. @Function@<:#293,9360>function ckauto(file)
  1149.  
  1150. @Outline2@<:#231,9360>ignorekeyboard(1)
  1151.  
  1152. @Outline2@<:#231,9360>hourglass(1)
  1153.  
  1154. @Outline2@<:#231,9360>fh = fopen(file, "r")
  1155.  
  1156. @Outline2@<:#231,9360>if fh << 1
  1157.  
  1158. @Outline2@<:#231,9360>    statusbarmsg("Unable to read file")
  1159.  
  1160. @Outline2@<:#231,9360>    hourglass(0)
  1161.  
  1162. @Outline2@<:#231,9360>    return -1
  1163.  
  1164. @Outline2@<:#231,9360>endif
  1165.  
  1166. @Outline2@<:#231,9360>onerror endit
  1167.  
  1168. @Outline2@<:#231,9360>oncancel endit
  1169.  
  1170. @Outline2@<:#231,9360>line = ""
  1171.  
  1172. @Outline2@<:#231,9360>b = mid$("<[><[>", 1, 1)
  1173.  
  1174. @Outline2@<:#231,9360>while (line <<<;> "{b}desc]")
  1175.  
  1176. @Outline2@<:#231,9360>    line = fgets$(fh)
  1177.  
  1178. @Outline2@<:#231,9360>    if line = -1
  1179.  
  1180. @Outline2@<:#231,9360>        fclose(fh)
  1181.  
  1182. @Outline2@<:#231,9360>        hourglass(0)
  1183.  
  1184. @Outline2@<:#231,9360>        return -1
  1185.  
  1186. @Outline2@<:#231,9360>    endif
  1187.  
  1188. @Outline2@<:#231,9360>wend
  1189.  
  1190. @Outline2@<:#231,9360>defstr ar;
  1191.  
  1192. @Outline2@<:#231,9360>again:
  1193.  
  1194. @Outline2@<:#231,9360>for i = 1 to 4
  1195.  
  1196. @Outline2@<:#231,9360>    fgets$(fh)
  1197.  
  1198. @Outline2@<:#231,9360>next
  1199.  
  1200. @Outline2@<:#231,9360>if assign(&ar, ucase$(strfield$(fgets$(fh), 2, "    "))) = "NOAUTORUN"
  1201.  
  1202. @Outline2@<:#231,9360>    stat = 0
  1203.  
  1204. @Outline2@<:#231,9360>else
  1205.  
  1206. @Outline2@<:#231,9360>    stat = 1
  1207.  
  1208. @Outline2@<:#231,9360>endif
  1209.  
  1210. @Outline2@<:#231,9360>endit:
  1211.  
  1212. @Outline2@<:#231,9360>fclose(fh)
  1213.  
  1214. @Outline2@<:#231,9360>hourglass(0)
  1215.  
  1216. @Outline2@<:#231,9360>return stat
  1217.  
  1218. @Outline2@<:#231,9360>end function
  1219.  
  1220. @Function@<:#293,9360>function GetName(hdlg, id, dummy)
  1221.  
  1222. @Outline2@<:#231,9360>text=getdlgitemtext(hdlg, id)
  1223.  
  1224. @Outline2@<:#231,9360>macname=strfield$(text, 2, "|")
  1225.  
  1226. @Outline2@<:#231,9360>setdlgitemtext(hdlg, 2, macname)
  1227.  
  1228. @Outline2@<:#231,9360>end function
  1229.  
  1230. @Function@<:#293,9360>Function LoadDocDesc(Descs, macfiles)
  1231.  
  1232. @Outline2@<:#231,9360>mpath = GetMacPath$()
  1233.  
  1234. @Outline2@<:#231,9360>DefStr DInfo;
  1235.  
  1236. @Outline2@<:#231,9360>DefStr Id;
  1237.  
  1238. @Outline2@<:#231,9360>j = 1
  1239.  
  1240. @Outline2@<:#231,9360>total = getglobalvar$("autodesctotal")
  1241.  
  1242. @Outline2@<:#231,9360>for i = 1 to total;
  1243.  
  1244. @Outline2@<:#231,9360>    name = *macfiles(i)
  1245.  
  1246. @Outline2@<:#231,9360>    statusbarmsg("Loading description for file {name}...")
  1247.  
  1248. @Outline2@<:#231,9360>    If 0 != Assign(&Id,Fopen("{mpath}{Name}","r"))
  1249.  
  1250. @Outline2@<:#231,9360>        DInfo=GetDocInfo(Id)
  1251.  
  1252. @Outline2@<:#231,9360>        if DInfo != -1
  1253.  
  1254. @Outline2@<:#231,9360>            Data = StrCat$(DInfo,"                                                                      |",Name)
  1255.  
  1256. @Outline2@<:#231,9360>            if len(DInfo) <;> 1
  1257.  
  1258. @Outline2@<:#231,9360>                ArrayInsert(&descs, j, data)
  1259.  
  1260. @Outline2@<:#231,9360>                j = j + 1
  1261.  
  1262. @Outline2@<:#231,9360>            endif
  1263.  
  1264. @Outline2@<:#231,9360>        endif
  1265.  
  1266. @Outline2@<:#231,9360>        Fclose(id)
  1267.  
  1268. @Outline2@<:#231,9360>    endif
  1269.  
  1270. @Outline2@<:#231,9360>next
  1271.  
  1272. @Outline2@<:#231,9360>HourGlass(off)
  1273.  
  1274. @Outline2@<:#231,9360>StatusBarMsg("")
  1275.  
  1276. @Outline2@<:#231,9360>End Function
  1277.  
  1278. @Function@FUNCTION DiskFmtToAnsi(str)
  1279.  
  1280. @Outline2@'- convert an ascii string from AmiPro disk format to ANSI.
  1281.  
  1282. @Outline2@defstr    c;
  1283.  
  1284. @Outline2@if (Instr(1, str, "<<"))        ' Got any funny stuff?
  1285.  
  1286. @Outline2@    newstr = "";
  1287.  
  1288. @Outline2@    off = 1;
  1289.  
  1290. @Outline2@    ' Loop over all the chars one at a time looking for
  1291.  
  1292. @Outline2@    ' for the escape char.  Off will track where we get the
  1293.  
  1294. @Outline2@    ' next char from the input stream. Newstr is where we 
  1295.  
  1296. @Outline2@    ' will build the return string.
  1297.  
  1298. @Outline2@    while ("" != Assign(&c, Mid$(str, off, 1)))
  1299.  
  1300. @Outline2@        off = off + 1;
  1301.  
  1302. @Outline2@        if (c = "<<")
  1303.  
  1304. @Outline2@            c = Mid$(str, off, 1);
  1305.  
  1306. @Outline2@            off = off + 1;
  1307.  
  1308. @Outline2@            if (c != "<<")
  1309.  
  1310. @Outline2@                nc = Mid$(str, off, 1);
  1311.  
  1312. @Outline2@                off = off + 2
  1313.  
  1314. @Outline2@                switch c
  1315.  
  1316. @Outline2@                    case "*"
  1317.  
  1318. @Outline2@                        c = chr$(asc(nc) - 0x20);
  1319.  
  1320. @Outline2@                    case "/"
  1321.  
  1322. @Outline2@                        c = chr$(asc(nc) + 0x40);
  1323.  
  1324. @Outline2@                    case "\"
  1325.  
  1326. @Outline2@                        c = chr$(asc(nc) + 0x80);
  1327.  
  1328. @Outline2@                endswitch
  1329.  
  1330. @Outline2@            endif
  1331.  
  1332. @Outline2@        endif
  1333.  
  1334. @Outline2@        newstr = strcat$(newstr, c);
  1335.  
  1336. @Outline2@    wend
  1337.  
  1338. @Outline2@    str = newstr;
  1339.  
  1340. @Outline2@endif
  1341.  
  1342. @Outline2@return str;
  1343.  
  1344. @Outline2@END FUNCTION
  1345.  
  1346. @Function@<:#293,9360>Function GetDocInfo(Fh)
  1347.  
  1348. @Outline2@<:#231,9360>DefStr Data, LocateDesc;
  1349.  
  1350. @Outline2@<:#284,9360><:f240,BArial,0,0,255>'SingleStep(on)<:f>
  1351.  
  1352. @Outline2@<:#231,9360>If "" = Assign(&Data, Fread(FH,500))
  1353.  
  1354. @Outline2@<:#231,9360>    Return ""
  1355.  
  1356. @Outline2@<:#231,9360>Endif
  1357.  
  1358. @Outline2@<:#231,9360>If 0 != Assign(&LocateDesc, instr(1, Data,"esc]"))
  1359.  
  1360. @Outline2@<:#231,9360>    Desc = Mid$(Data,LocateDesc,(LocateDesc + 384))
  1361.  
  1362. @Outline2@<:#231,9360>    RealDesc = StrField$(Desc, 2, "    ")
  1363.  
  1364. @Outline2@<:#231,9360>    autorunstat = StrField$(Desc, 6, "    ")
  1365.  
  1366. @Outline2@<:#231,9360>    if instr (0, lcase$(autorunstat), "noautorun") != 0
  1367.  
  1368. @Outline2@<:#231,9360>        Return -1
  1369.  
  1370. @Outline2@<:#231,9360>    endif
  1371.  
  1372. @Outline2@<:#231,9360>    lenRealDesc= len (RealDesc) - 1
  1373.  
  1374. @Outline2@<:#231,9360>    RealDesc = left$(RealDesc, lenRealDesc)
  1375.  
  1376. @Outline2@<:#231,9360>    if lenrealdesc <;> 80
  1377.  
  1378. @Outline2@<:#231,9360>        RealDesc = left$(RealDesc, 80)
  1379.  
  1380. @Outline2@<:#231,9360>    endif
  1381.  
  1382. @Outline2@    realDesc = DiskFmtToAnsi(realdesc)
  1383.  
  1384. @Outline2@    Return RealDesc
  1385.  
  1386. @Outline2@<:#231,9360>Endif
  1387.  
  1388. @Outline2@<:#231,9360>End Function
  1389.  
  1390. @Function@<:#293,9360>function countfiles(filespec, macfiles)
  1391.  
  1392. @Outline2@<:#231,9360>switchkit = "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  1393.  
  1394. @Outline2@<:#462,9360>dontuse = "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  1395.  
  1396. @Outline2@<:#462,9360>moredonts="AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  1397.  
  1398. @Outline2@<:#231,9360>dontuse = strcat$(dontuse, switchkit, moredonts)
  1399.  
  1400. @Outline2@<:#231,9360>
  1401.  
  1402. @Outline2@<:#231,9360>allocglobalvar("autodesctotal", 1)
  1403.  
  1404. @Outline2@<:#231,9360>count = 0
  1405.  
  1406. @Outline2@<:#231,9360>name = findfirst$(filespec, 1)
  1407.  
  1408. @Outline2@<:#231,9360>if name = ""
  1409.  
  1410. @Outline2@<:#231,9360>    setglobalvar("autodesctotal", count)
  1411.  
  1412. @Outline2@<:#231,9360>    return count
  1413.  
  1414. @Outline2@<:#231,9360>endif
  1415.  
  1416. @Outline2@<:#231,9360>if instr(0, dontuse, Name) = 0
  1417.  
  1418. @Outline2@<:#231,9360>    count = 1;
  1419.  
  1420. @Outline2@<:#231,9360>    *macfiles(1) = name
  1421.  
  1422. @Outline2@<:#231,9360>endif
  1423.  
  1424. @Outline2@<:#231,9360>while (1)
  1425.  
  1426. @Outline2@<:#231,9360>    name = findnext$()
  1427.  
  1428. @Outline2@<:#231,9360>    if name = ""
  1429.  
  1430. @Outline2@<:#231,9360>        break
  1431.  
  1432. @Outline2@<:#231,9360>    endif
  1433.  
  1434. @Outline2@<:#231,9360>    if instr(0, dontuse, Name) = 0
  1435.  
  1436. @Outline2@<:#231,9360>        count = count +1 
  1437.  
  1438. @Outline2@<:#231,9360>        ArrayInsert(&macfiles, count, name)
  1439.  
  1440. @Outline2@<:#231,9360>    endif
  1441.  
  1442. @Outline2@<:#231,9360>wend
  1443.  
  1444. @Outline2@<:#231,9360>setglobalvar("autodesctotal", count)
  1445.  
  1446. @Outline2@<:#231,9360>return count
  1447.  
  1448. @Outline2@<:#231,9360>end function
  1449.  
  1450. @Function@<:#293,9360>function zproglod()
  1451.  
  1452. @Outline2@<:#231,9360>defstr macro;
  1453.  
  1454. @Outline2@<:#231,9360>rmac=GetRunningMacroFile$()
  1455.  
  1456. @Outline2@<:#231,9360>pause(001)
  1457.  
  1458. @Outline2@<:#231,9360>ignorekeyboard(1)
  1459.  
  1460. @Outline2@<:#231,9360>curauto = lcase$(getprofilestring$("amipro", "automacroload", "amipro.ini"))
  1461.  
  1462. @Outline2@<:#231,9360>if "_autorun.smm!zrunmacs" = assign(¯o, strfield$(curauto, 2, ","))
  1463.  
  1464. @Outline2@<:#231,9360>    return 1
  1465.  
  1466. @Outline2@<:#231,9360>elseif "zrunmacs.smm" = assign(¯o, strfield$(curauto, 2, ","))
  1467.  
  1468. @Outline2@<:#231,9360>    writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1469.  
  1470. @Outline2@<:#231,9360>    return 1
  1471.  
  1472. @Outline2@<:#231,9360>endif
  1473.  
  1474. @Outline2@<:#231,9360>if 1 = strfield$(curauto, 1, ",")
  1475.  
  1476. @Outline2@<:#231,9360>    call zmkauto(macro)
  1477.  
  1478. @Outline2@<:#231,9360>endif
  1479.  
  1480. @Outline2@<:#231,9360>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")
  1481.  
  1482. @Outline2@<:#231,9360>end function
  1483.  
  1484. @Function@<:#293,9360>FUNCTION zmkauto(macro)
  1485.  
  1486. @Outline2@<:#231,9360>defstr autos;
  1487.  
  1488. @Outline2@<:#231,9360>ignorekeyboard(1)
  1489.  
  1490. @Outline2@<:#231,9360>windir = getwindowsdirectory$()
  1491.  
  1492. @Outline2@<:#231,9360>autofile = strcat$(windir, "amiauto.cfg")
  1493.  
  1494. @Outline2@<:#231,9360>ck = findfirst$(autofile, 33)
  1495.  
  1496. @Outline2@<:#231,9360>if ck = ""
  1497.  
  1498. @Outline2@<:#231,9360>    fh = fopen(autofile, "w")
  1499.  
  1500. @Outline2@<:#231,9360>    if fh << 1
  1501.  
  1502. @Outline2@<:#231,9360>        message("Unable to create file AMIAUTO.CFG.")
  1503.  
  1504. @Outline2@<:#231,9360>        return -1
  1505.  
  1506. @Outline2@<:#231,9360>    endif
  1507.  
  1508. @Outline2@<:#231,9360>    fclose(fh)
  1509.  
  1510. @Outline2@<:#231,9360>endif
  1511.  
  1512. @Outline2@<:#231,9360>fh = fopen(autofile, "r")
  1513.  
  1514. @Outline2@<:#231,9360>if fh << 1
  1515.  
  1516. @Outline2@<:#231,9360>    message("Unable to read file AMIAUTO.CFG.")
  1517.  
  1518. @Outline2@<:#231,9360>    return -1
  1519.  
  1520. @Outline2@<:#231,9360>endif
  1521.  
  1522. @Outline2@<:#231,9360>while (1)
  1523.  
  1524. @Outline2@<:#231,9360>    if assign(&autos, fgets$(fh)) <;> 0
  1525.  
  1526. @Outline2@<:#231,9360>        if lcase$(macro) = lcase$(autos)
  1527.  
  1528. @Outline2@<:#231,9360>'            message("{macro} is already set to be an AutoRun macro.")
  1529.  
  1530. @Outline2@<:#231,9360>            return 0
  1531.  
  1532. @Outline2@<:#231,9360>        endif
  1533.  
  1534. @Outline2@<:#231,9360>    else
  1535.  
  1536. @Outline2@<:#231,9360>        break
  1537.  
  1538. @Outline2@<:#231,9360>    endif
  1539.  
  1540. @Outline2@<:#231,9360>wend
  1541.  
  1542. @Outline2@<:#231,9360>fclose(fh)
  1543.  
  1544. @Outline2@<:#231,9360>fh = fopen(autofile, "a")
  1545.  
  1546. @Outline2@<:#231,9360>if fh << 1
  1547.  
  1548. @Outline2@<:#231,9360>    message("Unable to open file AMIAUTO.CFG.")
  1549.  
  1550. @Outline2@<:#231,9360>    return -1
  1551.  
  1552. @Outline2@<:#231,9360>endif
  1553.  
  1554. @Outline2@<:#231,9360>fputs(fh, lcase$(macro))
  1555.  
  1556. @Outline2@<:#231,9360>fclose(fh)
  1557.  
  1558. @Outline2@<:#231,9360>call zproglod()
  1559.  
  1560. @Outline2@<:#231,9360>return 1
  1561.  
  1562. @Outline2@<:#231,9360>end function
  1563.  
  1564. @Function@<:#293,9360>function zrunmacs()
  1565.  
  1566. @Outline2@<:#231,9360>'singlestep(1)
  1567.  
  1568. @Outline2@<:#231,9360>ignorekeyboard(1)
  1569.  
  1570. @Subhead@<:#231,9360>windir = getwindowsdirectory$()
  1571.  
  1572. @Subhead@<:#231,9360>autofile = strcat$(windir, "amiauto.cfg")
  1573.  
  1574. @Outline2@<:#231,9360>ck = findfirst$(autofile, 33)
  1575.  
  1576. @Outline2@<:#231,9360>if ck = ""
  1577.  
  1578. @Outline2@<:#231,9360>    exit function
  1579.  
  1580. @Outline2@<:#231,9360>endif
  1581.  
  1582. @Outline2@<:#231,9360>fh = fopen(autofile, "r")
  1583.  
  1584. @Outline2@<:#231,9360>if fh << 1
  1585.  
  1586. @Outline2@<:#231,9360>    message("Unable to open file AMIAUTO.CFG")
  1587.  
  1588. @Outline2@<:#231,9360>    return -1
  1589.  
  1590. @Outline2@<:#231,9360>endif
  1591.  
  1592. @Outline2@<:#231,9360>onerror endit
  1593.  
  1594. @Outline2@<:#231,9360>oncancel endit
  1595.  
  1596. @Outline2@<:#231,9360>dim files(100)
  1597.  
  1598. @Outline2@<:#231,9360>i = 0
  1599.  
  1600. @Outline2@<:#231,9360>while (1)
  1601.  
  1602. @Outline2@<:#231,9360>    txt = fgets$(fh)
  1603.  
  1604. @Outline2@<:#231,9360>    if txt = -1
  1605.  
  1606. @Outline2@<:#231,9360>        break
  1607.  
  1608. @Outline2@<:#231,9360>    endif
  1609.  
  1610. @Outline2@<:#231,9360>    if txt <<<;> ""
  1611.  
  1612. @Outline2@<:#231,9360>        i = i + 1
  1613.  
  1614. @Outline2@<:#231,9360>        files(i) = txt
  1615.  
  1616. @Outline2@<:#231,9360>    endif
  1617.  
  1618. @Outline2@<:#231,9360>wend
  1619.  
  1620. @Outline2@<:#231,9360>endit:
  1621.  
  1622. @Outline2@<:#231,9360>fclose(fh)
  1623.  
  1624. @Outline2@<:#231,9360>for j = 1 to i
  1625.  
  1626. @Outline2@<:#231,9360>    txt = files(j)
  1627.  
  1628. @Outline2@<:#231,9360>    calli txt()
  1629.  
  1630. @Outline2@<:#231,9360>next
  1631.  
  1632. @Outline2@<:#231,9360>end function
  1633.  
  1634. >
  1635.  
  1636. [Embedded]
  1637. 00036991
  1638. >
  1639. [macsum] 25
  1640. info 0 0 30 22
  1641. PreBuild 3406 3 5 173
  1642. UngrayButtons 3836 1 1 188
  1643. freeit 4021 1 1 195
  1644. saveit 4075 1 1 199
  1645. showdesc 4132 3 5 204
  1646. sorttype 4322 3 2 218
  1647. showfiles 4725 0 -1 232
  1648. add 5650 1 6 253
  1649. del 6383 1 7 282
  1650. helpme 7056 1 2 313
  1651. help 7105 0 -1 316
  1652. loadlist 7580 1 8 325
  1653. savelist 8161 1 7 361
  1654. zgood 8645 1 4 386
  1655. cwp 9065 1 2 406
  1656. ckauto 9617 1 7 433
  1657. GetName 10243 3 3 469
  1658. LoadDocDesc 10341 2 9 474
  1659. DiskFmtToAnsi 10930 1 5 498
  1660. GetDocInfo 11587 1 7 532
  1661. countfiles 12102 2 6 554
  1662. zproglod 12799 0 4 584
  1663. zmkauto 13333 1 6 601
  1664. zrunmacs 14074 0 9 641
  1665. [macse]
  1666. 14 info
  1667. 0 32 1
  1668. 0 296 1
  1669. 5 1
  1670. 21 3 [X]
  1671. 5 1
  1672. 21 4 [X]
  1673. 0 802
  1674. 13
  1675. 8 5
  1676. 0 295
  1677. 13
  1678. 8 6
  1679. 16 countfiles "{6}*.smm" &4
  1680. 13
  1681. 8 7
  1682. 0 271 "DescAndName" "{7}"
  1683. 13
  1684. 8 8
  1685. 0 265 "DescAndName"
  1686. 13
  1687. 7 ""
  1688. 18 0
  1689. 11 00000641
  1690. 5 0
  1691. 16 LoadDocDesc &3 &4
  1692. 13
  1693. 0 805 &1 [X]
  1694. 13
  1695. 18 0
  1696. 11 00000293
  1697. 10 00000293
  1698. 0 266 "DescAndName"
  1699. 0 1046 &3
  1700. 13
  1701. 8 9
  1702. 6 9
  1703. 5 1
  1704. 3 0
  1705. 8 9
  1706. 0 271 "DescAndName" "{9}"
  1707. 0 272 "DescAndName" 1 "{9}"
  1708. 5 2
  1709. 8 10
  1710. 6 9
  1711. 5 1
  1712. 3 1
  1713. 6 10
  1714. 18 2
  1715. 12 00000509
  1716. 10 00000628
  1717. 5 1
  1718. 6 10
  1719. 3 0
  1720. 8 10
  1721. 10 00000421
  1722. 6 9
  1723. 6 10
  1724. 3 1
  1725. 8 11
  1726. 0 789 "Files remaining: {11}"
  1727. 6 10
  1728. 22 3
  1729. 8 12
  1730. 0 272 "DescAndName" "{10}" "{12}"
  1731. 10 00000474
  1732. 10 00000935
  1733. 0 273 "DescAndName" 1
  1734. 13
  1735. 8 7
  1736. 5 1
  1737. 8 10
  1738. 6 7
  1739. 6 10
  1740. 18 2
  1741. 12 00000762
  1742. 10 00000935
  1743. 5 1
  1744. 6 10
  1745. 3 0
  1746. 8 10
  1747. 10 00000684
  1748. 6 7
  1749. 6 10
  1750. 3 1
  1751. 8 11
  1752. 0 789 "Files remaining: {11}"
  1753. 6 10
  1754. 5 1
  1755. 3 0
  1756. 0 273 "DescAndName" [X]
  1757. 13
  1758. 8 12
  1759. 6 12
  1760. 7 ""
  1761. 18 1
  1762. 11 00000922
  1763. 0 1041 &3 "{10}" "{12}"
  1764. 10 00000727
  1765. 0 789 ""
  1766. 0 1046 &3
  1767. 13
  1768. 8 13
  1769. 6 13
  1770. 21 14 [X]
  1771. 5 1
  1772. 8 10
  1773. 6 13
  1774. 6 10
  1775. 18 2
  1776. 12 00001073
  1777. 10 00001168
  1778. 5 1
  1779. 6 10
  1780. 3 0
  1781. 8 10
  1782. 10 00000994
  1783. 6 10
  1784. 22 3
  1785. 0 20 [X] 2 "|"
  1786. 13
  1787. 0 16 [X] "!" "{10}"
  1788. 13
  1789. 8 15
  1790. 6 10
  1791. 6 15
  1792. 23 14
  1793. 10 00001038
  1794. 0 1043 &14
  1795. 6 13
  1796. 21 16 [X]
  1797. 5 1
  1798. 8 10
  1799. 6 13
  1800. 6 10
  1801. 18 2
  1802. 12 00001287
  1803. 10 00001364
  1804. 5 1
  1805. 6 10
  1806. 3 0
  1807. 8 10
  1808. 10 00001208
  1809. 6 10
  1810. 22 14
  1811. 0 20 [X] 2 "!"
  1812. 13
  1813. 8 17
  1814. 6 10
  1815. 6 17
  1816. 22 3
  1817. 23 16
  1818. 10 00001252
  1819. 5 1
  1820. 8 10
  1821. 6 13
  1822. 6 10
  1823. 18 2
  1824. 12 00001454
  1825. 10 00001492
  1826. 5 1
  1827. 6 10
  1828. 3 0
  1829. 8 10
  1830. 10 00001375
  1831. 6 10
  1832. 6 10
  1833. 22 16
  1834. 23 3
  1835. 10 00001419
  1836. 0 31 9000 &3
  1837. 0 271 "loadem" 100
  1838. 0 271 "count" 1
  1839. 0 264 "count" 1
  1840. 20 00003239
  1841. 19 00003239
  1842. 0 271 "Setfont:hFont" 1
  1843. 0 265 "Setfont:hFont"
  1844. 13
  1845. 7 ""
  1846. 18 1
  1847. 11 00001663
  1848. 0 31 20 1
  1849. 0 47 112 "{5}!helpme"
  1850. 0 41 9000 "{5}!showdesc"
  1851. 0 41 9003 "{5}!showdesc"
  1852. 0 41 70 "{5}!Add"
  1853. 0 41 71 "{5}!Del"
  1854. 0 41 77 "{5}!cwp"
  1855. 0 41 20 "{5}!sorttype"
  1856. 0 41 0 "{5}!PreBuild"
  1857. 16 loadlist ""
  1858. 0 26 "." "showfiles"
  1859. 13
  1860. 8 18
  1861. 5 0
  1862. 6 18
  1863. 18 0
  1864. 11 00001957
  1865. 10 00003239
  1866. 10 00003239
  1867. 5 4
  1868. 6 18
  1869. 18 0
  1870. 11 00002042
  1871. 16 savelist ""
  1872. 16 freeit ""
  1873. 6 0
  1874. 15
  1875. 9
  1876. 10 00003239
  1877. 5 3
  1878. 6 18
  1879. 18 0
  1880. 11 00002394
  1881. 16 savelist ""
  1882. 16 freeit ""
  1883. 0 27 9000
  1884. 13
  1885. 8 19
  1886. 0 20 "{19}" 2 "|"
  1887. 13
  1888. 8 20
  1889. 0 18 "{20}"
  1890. 13
  1891. 8 6
  1892. 6 6
  1893. 0 18 "_info.smm"
  1894. 13
  1895. 18 0
  1896. 11 00002268
  1897. 0 3 "You are already running {6}"
  1898. 10 00002357
  1899. 0 2 "Run the macro ""{6}""?"
  1900. 13
  1901. 8 21
  1902. 6 21
  1903. 5 1
  1904. 18 0
  1905. 11 00002357
  1906. 0 296 0
  1907. 16 "{6}"
  1908. 0 285 "{5}" "00:00.02"
  1909. 10 00003239
  1910. 5 1
  1911. 6 18
  1912. 18 0
  1913. 11 00003239
  1914. 16 savelist ""
  1915. 16 freeit ""
  1916. 0 1050
  1917. 13
  1918. 0 805 &22 [X]
  1919. 13
  1920. 5 1
  1921. 18 5
  1922. 11 00002522
  1923. 10 00002842
  1924. 6 22
  1925. 21 23 [X]
  1926. 0 1051 &23
  1927. 5 0
  1928. 8 24
  1929. 5 1
  1930. 8 10
  1931. 6 22
  1932. 6 10
  1933. 18 2
  1934. 12 00002652
  1935. 10 00002771
  1936. 5 1
  1937. 6 10
  1938. 3 0
  1939. 8 10
  1940. 10 00002573
  1941. 6 10
  1942. 22 23
  1943. 0 17 [X]
  1944. 13
  1945. 0 808 1 [X] "goodies.sam"
  1946. 13
  1947. 5 0
  1948. 18 3
  1949. 11 00002758
  1950. 5 1
  1951. 8 24
  1952. 10 00002771
  1953. 10 00002617
  1954. 6 24
  1955. 5 0
  1956. 18 0
  1957. 11 00003000
  1958. 5 1
  1959. 8 25
  1960. 6 22
  1961. 5 1
  1962. 18 5
  1963. 11 00002925
  1964. 0 286 "amipro" "defstyle" "amipro.ini"
  1965. 13
  1966. 8 26
  1967. 2 101 1 "{26}" 0 0
  1968. 5 129
  1969. 8 25
  1970. 0 268
  1971. 13
  1972. 0 16 [X] "goodies.sam"
  1973. 13
  1974. 2 102 1 [X] "{25}" ""
  1975. 10 00003031
  1976. 0 1029 "goodies.sam"
  1977. 2 210 1
  1978. 0 27 9000
  1979. 13
  1980. 8 19
  1981. 0 20 "{19}" 2 "|"
  1982. 13
  1983. 0 18 [X]
  1984. 13
  1985. 8 20
  1986. 0 1049 "{20}"
  1987. 13
  1988. 8 27
  1989. 2 488 1 0 0 8197 "{20}" ""
  1990. 0 6 "[27]"
  1991. 0 7 "Choose resume to return to AutoRun."
  1992. 0 285 "{5}" "00:00.02"
  1993. 6 0
  1994. 15
  1995. 9
  1996. 16 freeit ""
  1997. 0 265 "Setfont:hFont"
  1998. 13
  1999. 8 28
  2000. 5 0
  2001. 6 28
  2002. 18 1
  2003. 11 00003352
  2004. 0 284 "gdi,DeleteObject,HH" "{28}"
  2005. 0 266 "Setfont:hFont"
  2006. 13
  2007. 8 29
  2008. 0 296 0
  2009. 6 0
  2010. 15
  2011. 9
  2012. 14 PreBuild
  2013. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2014. 13
  2015. 8 4
  2016. 6 4
  2017. 11 00000370
  2018. 0 44 "{0}" 9000
  2019. 13
  2020. 8 5
  2021. 0 44 "{0}" 9002
  2022. 13
  2023. 8 6
  2024. 0 44 "{0}" 8007
  2025. 13
  2026. 8 7
  2027. 0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
  2028. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
  2029. 0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
  2030. 0 264 "Setfont:hFont" "{4}"
  2031. 16 UngrayButtons "{0}"
  2032. 16 sorttype "{0}" 20 1
  2033. 6 3
  2034. 15
  2035. 9
  2036. 14 UngrayButtons
  2037. 0 44 "{0}" 71
  2038. 13
  2039. 0 284 "user,EnableWindow,HHH" [X] 0
  2040. 0 265 "count"
  2041. 13
  2042. 5 0
  2043. 18 3
  2044. 11 00000173
  2045. 0 44 "{0}" 71
  2046. 13
  2047. 0 284 "user,EnableWindow,HHH" [X] 1
  2048. 6 1
  2049. 15
  2050. 9
  2051. 14 freeit
  2052. 0 266 "loadem"
  2053. 0 266 "count"
  2054. 6 1
  2055. 15
  2056. 9
  2057. 14 saveit
  2058. 0 296 1
  2059. 16 savelist ""
  2060. 0 296 0
  2061. 6 1
  2062. 15
  2063. 9
  2064. 14 showdesc
  2065. 0 32 1
  2066. 0 296 1
  2067. 0 42 "{0}" "{1}"
  2068. 13
  2069. 8 5
  2070. 0 20 "{5}" 2 "|"
  2071. 13
  2072. 0 17 [X]
  2073. 13
  2074. 8 6
  2075. 20 00000157
  2076. 19 00000157
  2077. 0 43 "{0}" 8007 "{6}"
  2078. 5 1
  2079. 8 7
  2080. 0 296 0
  2081. 6 7
  2082. 15
  2083. 9
  2084. 6 3
  2085. 15
  2086. 9
  2087. 14 sorttype
  2088. 0 42 "{0}" 20
  2089. 13
  2090. 8 4
  2091. 6 4
  2092. 5 1
  2093. 18 0
  2094. 11 00000235
  2095. 0 44 "{0}" 9003
  2096. 13
  2097. 0 284 "User,ShowWindow,AHH" [X] 0
  2098. 0 44 "{0}" 9000
  2099. 13
  2100. 0 284 "User,ShowWindow,AHH" [X] 1
  2101. 5 9000
  2102. 8 1
  2103. 16 showdesc "{0}" "{1}" "{2}"
  2104. 10 00000391
  2105. 0 44 "{0}" 9000
  2106. 13
  2107. 0 284 "User,ShowWindow,AHH" [X] 0
  2108. 0 44 "{0}" 9003
  2109. 13
  2110. 0 284 "User,ShowWindow,AHH" [X] 1
  2111. 5 9003
  2112. 8 1
  2113. 16 showdesc "{0}" "{1}" "{2}"
  2114. 6 3
  2115. 15
  2116. 9
  2117. DIALOG showfiles
  2118. -2134376448 17 49 45 280 140 "" "AmiDialog" "Autorun Macros" 
  2119. FONT 8 "Helv" 
  2120. 6 3 60 8 1000 1342308352 "static" "Ma&cros:" 0 
  2121. 6 12 155 116 9003 1352728577 "listbox" "" 0 
  2122. 6 12 155 122 9000 1352728577 "listbox" "" 0 
  2123. 164 93 44 14 70 1342373888 "button" "&Install >>" 0 
  2124. 164 110 44 14 71 1342242816 "button" "<< Re&move" 0 
  2125. 212 66 46 8 1001 1342308352 "static" "I&nstalled:" 0 
  2126. 212 75 60 53 9002 1352728577 "listbox" "" 0 
  2127. 232 3 42 14 4 1342373888 "button" "OK" 0 
  2128. 232 19 42 14 2 1342373888 "button" "Cancel" 0 
  2129. 232 35 42 14 1 1342373889 "button" "&Details..." 0 
  2130. 232 51 42 14 3 1342373888 "button" "&Run..." 0 
  2131. 263 292 0 0 77 1342177280 "button" "&z" 0 
  2132. 45 128 70 10 8007 1342177280 "static" "" 0 
  2133. 65 1 1 1 8013 1342177280 "static" "" 0 
  2134. 34 3 110 8 8777 1342177281 "static" "" 0 
  2135. 6 128 38 10 1002 1342177280 "static" "File name:" 0 
  2136. 14 290 0 0 20 1342242819 "button" "show descriptions" 0 
  2137. 14 add
  2138. 0 32 1
  2139. 0 296 1
  2140. 0 42 "{0}" 9000
  2141. 13
  2142. 8 3
  2143. 0 20 "{3}" 2 "|"
  2144. 13
  2145. 0 17 [X]
  2146. 13
  2147. 8 4
  2148. 0 17 "{4}"
  2149. 13
  2150. 16 ckauto [X]
  2151. 13
  2152. 5 1
  2153. 18 1
  2154. 11 00000163
  2155. 5 0
  2156. 15
  2157. 9
  2158. 0 265 "count"
  2159. 13
  2160. 8 5
  2161. 5 1
  2162. 8 6
  2163. 6 5
  2164. 6 6
  2165. 18 2
  2166. 12 00000272
  2167. 10 00000448
  2168. 5 1
  2169. 6 6
  2170. 3 0
  2171. 8 6
  2172. 10 00000197
  2173. 6 4
  2174. 7 ""
  2175. 18 1
  2176. 11 00000435
  2177. 6 4
  2178. 0 273 "loadem" "{6}"
  2179. 13
  2180. 0 17 [X]
  2181. 13
  2182. 18 0
  2183. 11 00000435
  2184. 0 3 "That macro is already set to ""AutoRun"""
  2185. 0 296 0
  2186. 5 1
  2187. 15
  2188. 9
  2189. 10 00000239
  2190. 0 43 "{0}" 9002 "{4}"
  2191. 0 44 "{0}" 71
  2192. 13
  2193. 0 284 "user,EnableWindow,HHH" [X] 1
  2194. 0 265 "count"
  2195. 13
  2196. 5 1
  2197. 3 0
  2198. 8 5
  2199. 0 272 "loadem" "{5}" "{4}"
  2200. 0 264 "count" "{5}"
  2201. 0 42 "{0}" 9002
  2202. 13
  2203. 7 ""
  2204. 18 0
  2205. 11 00000712
  2206. 0 44 "{0}" 71
  2207. 13
  2208. 0 284 "user,EnableWindow,HHH" [X] 0
  2209. 0 296 0
  2210. 6 1
  2211. 15
  2212. 9
  2213. 14 del
  2214. 0 32 1
  2215. 0 296 1
  2216. 0 42 "{0}" 9002
  2217. 13
  2218. 8 2
  2219. 6 2
  2220. 7 ""
  2221. 18 0
  2222. 11 00000093
  2223. 5 0
  2224. 15
  2225. 9
  2226. 0 44 "{0}" 9002
  2227. 13
  2228. 8 3
  2229. 0 1036 "{3}" 1029 0 0
  2230. 0 265 "count"
  2231. 13
  2232. 8 4
  2233. 6 4
  2234. 5 0
  2235. 18 0
  2236. 11 00000263
  2237. 0 44 "{0}" 71
  2238. 13
  2239. 0 284 "user,EnableWindow,HHH" [X] 0
  2240. 5 0
  2241. 15
  2242. 9
  2243. 5 1
  2244. 8 5
  2245. 6 4
  2246. 6 5
  2247. 18 2
  2248. 12 00000348
  2249. 10 00000540
  2250. 5 1
  2251. 6 5
  2252. 3 0
  2253. 8 5
  2254. 10 00000273
  2255. 0 273 "loadem" "{5}"
  2256. 13
  2257. 8 6
  2258. 6 6
  2259. 6 2
  2260. 18 0
  2261. 11 00000446
  2262. 0 272 "loadem" "{5}" ""
  2263. 10 00000527
  2264. 6 6
  2265. 7 ""
  2266. 18 1
  2267. 11 00000499
  2268. 0 43 "{0}" 9002 "{6}"
  2269. 0 272 "loadem" "{5}" "{6}"
  2270. 10 00000315
  2271. 0 296 0
  2272. 0 42 "{0}" 9002
  2273. 13
  2274. 8 7
  2275. 6 7
  2276. 7 ""
  2277. 18 0
  2278. 11 00000661
  2279. 0 44 "{0}" 71
  2280. 13
  2281. 0 284 "user,EnableWindow,HHH" [X] 0
  2282. 6 1
  2283. 15
  2284. 9
  2285. 14 helpme
  2286. 0 26 "." "help"
  2287. 13
  2288. 8 2
  2289. 6 1
  2290. 15
  2291. 9
  2292. DIALOG help
  2293. -2134376448 5 59 30 160 124 "" "" "Info Help" 
  2294. FONT 8 "Helv" 
  2295. 60 105 40 14 1 1342242817 "button" "OK" 0 
  2296. 11 21 138 18 1001 1342177280 "static" "Select a feature and choose Install to make it AutoRun." 0 
  2297. 6 7 148 89 80 1342177287 "button" "Macro Install" 0 
  2298. 11 42 138 18 1002 1342177280 "static" "Choose Details to view detailed information about a feature." 0 
  2299. 11 64 138 18 1000 1342177280 "static" "To see a demonstration of the feature, choose Run." 0 
  2300. 14 loadlist
  2301. 0 32 1
  2302. 0 296 1
  2303. 0 1288
  2304. 13
  2305. 8 2
  2306. 0 16 "{2}" "amiauto.cfg"
  2307. 13
  2308. 8 3
  2309. 0 280 "{3}" 33
  2310. 13
  2311. 8 4
  2312. 6 4
  2313. 7 ""
  2314. 18 0
  2315. 11 00000162
  2316. 7 "w"
  2317. 8 5
  2318. 10 00000174
  2319. 7 "r"
  2320. 8 5
  2321. 0 259 "{3}" "{5}"
  2322. 13
  2323. 8 6
  2324. 6 6
  2325. 5 1
  2326. 18 5
  2327. 11 00000285
  2328. 0 3 "Unable to create file AMIAUTO.CFG"
  2329. 5 -1
  2330. 15
  2331. 9
  2332. 6 5
  2333. 7 "w"
  2334. 18 0
  2335. 11 00000329
  2336. 10 00000526
  2337. 20 00000526
  2338. 19 00000526
  2339. 5 0
  2340. 8 7
  2341. 5 1
  2342. 11 00000526
  2343. 0 257 "{6}"
  2344. 13
  2345. 8 8
  2346. 6 8
  2347. 5 -1
  2348. 18 0
  2349. 11 00000448
  2350. 10 00000526
  2351. 6 7
  2352. 5 1
  2353. 3 0
  2354. 8 7
  2355. 0 272 "loadem" "{7}" "{8}"
  2356. 0 31 9002 "{8}"
  2357. 10 00000365
  2358. 0 260 "{6}"
  2359. 0 264 "count" "{7}"
  2360. 0 296 0
  2361. 6 1
  2362. 15
  2363. 9
  2364. 14 savelist
  2365. 0 32 1
  2366. 0 296 1
  2367. 0 1288
  2368. 13
  2369. 8 2
  2370. 0 16 "{2}" "amiauto.cfg"
  2371. 13
  2372. 8 3
  2373. 0 259 "{3}" "w"
  2374. 13
  2375. 8 5
  2376. 6 5
  2377. 5 1
  2378. 18 5
  2379. 11 00000198
  2380. 0 3 "Unable to save file AMIAUTO.CFG"
  2381. 0 296 0
  2382. 5 -1
  2383. 15
  2384. 9
  2385. 20 00000434
  2386. 19 00000434
  2387. 0 265 "count"
  2388. 13
  2389. 8 6
  2390. 5 1
  2391. 8 7
  2392. 6 6
  2393. 6 7
  2394. 18 2
  2395. 12 00000333
  2396. 10 00000434
  2397. 5 1
  2398. 6 7
  2399. 3 0
  2400. 8 7
  2401. 10 00000258
  2402. 0 273 "loadem" "{7}"
  2403. 13
  2404. 0 805 &4 [X]
  2405. 13
  2406. 7 ""
  2407. 18 1
  2408. 11 00000421
  2409. 0 258 "{5}" "{4}"
  2410. 10 00000300
  2411. 0 260 "{5}"
  2412. 0 296 0
  2413. 16 zproglod ""
  2414. 6 1
  2415. 15
  2416. 9
  2417. 14 zgood
  2418. 0 806 "{0}" 2
  2419. 13
  2420. 8 2
  2421. 0 14 "{0}"
  2422. 13
  2423. 0 15 "{0}" 3 [X]
  2424. 13
  2425. 8 3
  2426. 7 "td"
  2427. 6 2
  2428. 18 0
  2429. 11 00000132
  2430. 16 "{3}"
  2431. 10 00000408
  2432. 7 "ar"
  2433. 6 2
  2434. 18 0
  2435. 11 00000359
  2436. 16 ckauto "{3}"
  2437. 13
  2438. 8 4
  2439. 6 4
  2440. 5 1
  2441. 18 1
  2442. 11 00000267
  2443. 0 3 "{3} not intended to AutoRun"
  2444. 5 -1
  2445. 15
  2446. 9
  2447. 16 zmkauto "{3}"
  2448. 13
  2449. 5 1
  2450. 18 0
  2451. 11 00000346
  2452. 0 3 "{3} installed as AutoRun."
  2453. 10 00000408
  2454. 7 "si"
  2455. 6 2
  2456. 18 0
  2457. 11 00000408
  2458. 16 _autorun.smm
  2459. 6 1
  2460. 15
  2461. 9
  2462. 14 cwp
  2463. 5 004
  2464. 8 2
  2465. 0 43 "{0}" 8777 "-->> Pete <<<<--"
  2466. 0 274 "{2}"
  2467. 0 43 "{0}" 8777 "Mark Osborne"
  2468. 0 274 "{2}"
  2469. 0 43 "{0}" 8777 "Peter Housley"
  2470. 0 274 "{2}"
  2471. 0 43 "{0}" 8777 "Hugh Marlor"
  2472. 0 274 "{2}"
  2473. 0 43 "{0}" 8777 "John McDaniel"
  2474. 0 274 "{2}"
  2475. 0 43 "{0}" 8777 "Peyton McManus"
  2476. 0 274 "{2}"
  2477. 0 43 "{0}" 8777 "Robert Pernett"
  2478. 0 274 "{2}"
  2479. 0 43 "{0}" 8777 "Powell Smith"
  2480. 0 274 "{2}"
  2481. 0 43 "{0}" 8777 "Sandra Wilson"
  2482. 0 274 "{2}"
  2483. 0 43 "{0}" 8777 "David Zoller"
  2484. 0 274 "{2}"
  2485. 0 43 "{0}" 8777 "Charlie Pappas"
  2486. 0 274 "{2}"
  2487. 10 00000008
  2488. 6 1
  2489. 15
  2490. 9
  2491. 14 ckauto
  2492. 0 32 1
  2493. 0 296 1
  2494. 0 259 "{0}" "r"
  2495. 13
  2496. 8 2
  2497. 6 2
  2498. 5 1
  2499. 18 5
  2500. 11 00000134
  2501. 0 789 "Unable to read file"
  2502. 0 296 0
  2503. 5 -1
  2504. 15
  2505. 9
  2506. 20 00000580
  2507. 19 00000580
  2508. 7 ""
  2509. 8 3
  2510. 0 15 "[[" 1 1
  2511. 13
  2512. 8 4
  2513. 6 3
  2514. 7 "{4}desc]"
  2515. 18 1
  2516. 11 00000333
  2517. 0 257 "{2}"
  2518. 13
  2519. 8 3
  2520. 6 3
  2521. 5 -1
  2522. 18 0
  2523. 11 00000320
  2524. 0 260 "{2}"
  2525. 0 296 0
  2526. 5 -1
  2527. 15
  2528. 9
  2529. 10 00000195
  2530. 5 1
  2531. 8 6
  2532. 5 4
  2533. 6 6
  2534. 18 2
  2535. 12 00000418
  2536. 10 00000444
  2537. 5 1
  2538. 6 6
  2539. 3 0
  2540. 8 6
  2541. 10 00000343
  2542. 0 257 "{2}"
  2543. 10 00000385
  2544. 0 257 "{2}"
  2545. 13
  2546. 0 20 [X] 2 "    "
  2547. 13
  2548. 0 18 [X]
  2549. 13
  2550. 0 805 &5 [X]
  2551. 13
  2552. 7 "NOAUTORUN"
  2553. 18 0
  2554. 11 00000570
  2555. 5 0
  2556. 8 7
  2557. 10 00000580
  2558. 5 1
  2559. 8 7
  2560. 0 260 "{2}"
  2561. 0 296 0
  2562. 6 7
  2563. 15
  2564. 9
  2565. 6 1
  2566. 15
  2567. 9
  2568. 14 GetName
  2569. 0 42 "{0}" "{1}"
  2570. 13
  2571. 8 4
  2572. 0 20 "{4}" 2 "|"
  2573. 13
  2574. 8 5
  2575. 0 43 "{0}" 2 "{5}"
  2576. 6 3
  2577. 15
  2578. 9
  2579. 14 LoadDocDesc
  2580. 0 295
  2581. 13
  2582. 8 3
  2583. 5 1
  2584. 8 6
  2585. 0 265 "autodesctotal"
  2586. 13
  2587. 8 7
  2588. 5 1
  2589. 8 8
  2590. 6 7
  2591. 6 8
  2592. 18 2
  2593. 12 00000159
  2594. 10 00000558
  2595. 5 1
  2596. 6 8
  2597. 3 0
  2598. 8 8
  2599. 10 00000084
  2600. 6 8
  2601. 22 1
  2602. 8 9
  2603. 0 789 "Loading description for file {9}..."
  2604. 5 0
  2605. 0 259 "{3}{9}" "r"
  2606. 13
  2607. 0 805 &5 [X]
  2608. 13
  2609. 18 1
  2610. 11 00000545
  2611. 16 GetDocInfo "{5}"
  2612. 13
  2613. 8 4
  2614. 6 4
  2615. 5 -1
  2616. 18 1
  2617. 11 00000532
  2618. 0 16 "{4}" "                                                                      |" "{9}"
  2619. 13
  2620. 8 10
  2621. 0 14 "{4}"
  2622. 13
  2623. 5 1
  2624. 18 3
  2625. 11 00000532
  2626. 0 1041 &0 "{6}" "{10}"
  2627. 6 6
  2628. 5 1
  2629. 3 0
  2630. 8 6
  2631. 0 260 "{5}"
  2632. 10 00000126
  2633. 0 296 0
  2634. 0 789 ""
  2635. 6 2
  2636. 15
  2637. 9
  2638. 14 DiskFmtToAnsi
  2639. 0 808 1 "{0}" "<<"
  2640. 13
  2641. 11 00000633
  2642. 7 ""
  2643. 8 3
  2644. 5 1
  2645. 8 4
  2646. 7 ""
  2647. 0 15 "{0}" "{4}" 1
  2648. 13
  2649. 0 805 &2 [X]
  2650. 13
  2651. 18 1
  2652. 11 00000623
  2653. 6 4
  2654. 5 1
  2655. 3 0
  2656. 8 4
  2657. 6 2
  2658. 7 "<<"
  2659. 18 0
  2660. 11 00000583
  2661. 0 15 "{0}" "{4}" 1
  2662. 13
  2663. 8 2
  2664. 6 4
  2665. 5 1
  2666. 3 0
  2667. 8 4
  2668. 6 2
  2669. 7 "<<"
  2670. 18 1
  2671. 11 00000583
  2672. 0 15 "{0}" "{4}" 1
  2673. 13
  2674. 8 5
  2675. 6 4
  2676. 5 2
  2677. 3 0
  2678. 8 4
  2679. 7 "*"
  2680. 6 2
  2681. 18 0
  2682. 11 00000415
  2683. 0 40 "{5}"
  2684. 13
  2685. 5 32
  2686. 3 1
  2687. 0 39 [X]
  2688. 13
  2689. 8 2
  2690. 10 00000583
  2691. 7 "/"
  2692. 6 2
  2693. 18 0
  2694. 11 00000505
  2695. 0 40 "{5}"
  2696. 13
  2697. 5 64
  2698. 3 0
  2699. 0 39 [X]
  2700. 13
  2701. 8 2
  2702. 10 00000583
  2703. 7 "\"
  2704. 6 2
  2705. 18 0
  2706. 11 00000583
  2707. 0 40 "{5}"
  2708. 13
  2709. 5 128
  2710. 3 0
  2711. 0 39 [X]
  2712. 13
  2713. 8 2
  2714. 0 16 "{3}" "{2}"
  2715. 13
  2716. 8 3
  2717. 10 00000076
  2718. 6 3
  2719. 8 0
  2720. 6 0
  2721. 15
  2722. 9
  2723. 6 1
  2724. 15
  2725. 9
  2726. 14 GetDocInfo
  2727. 7 ""
  2728. 0 782 "{0}" 500
  2729. 13
  2730. 0 805 &2 [X]
  2731. 13
  2732. 18 0
  2733. 11 00000092
  2734. 7 ""
  2735. 15
  2736. 9
  2737. 5 0
  2738. 0 808 1 "{2}" "esc]"
  2739. 13
  2740. 0 805 &3 [X]
  2741. 13
  2742. 18 1
  2743. 11 00000503
  2744. 6 3
  2745. 5 384
  2746. 3 0
  2747. 0 15 "{2}" "{3}" [X]
  2748. 13
  2749. 8 4
  2750. 0 20 "{4}" 2 "    "
  2751. 13
  2752. 8 5
  2753. 0 20 "{4}" 6 "    "
  2754. 13
  2755. 8 6
  2756. 0 17 "{6}"
  2757. 13
  2758. 0 808 0 [X] "noautorun"
  2759. 13
  2760. 5 0
  2761. 18 1
  2762. 11 00000344
  2763. 5 -1
  2764. 15
  2765. 9
  2766. 0 14 "{5}"
  2767. 13
  2768. 5 1
  2769. 3 1
  2770. 8 7
  2771. 0 806 "{5}" "{7}"
  2772. 13
  2773. 8 5
  2774. 6 7
  2775. 5 80
  2776. 18 3
  2777. 11 00000458
  2778. 0 806 "{5}" 80
  2779. 13
  2780. 8 5
  2781. 16 DiskFmtToAnsi "{5}"
  2782. 13
  2783. 8 5
  2784. 6 5
  2785. 15
  2786. 9
  2787. 6 1
  2788. 15
  2789. 9
  2790. 14 countfiles
  2791. 7 "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
  2792. 8 3
  2793. 7 "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
  2794. 8 4
  2795. 7 "AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
  2796. 8 5
  2797. 0 16 "{4}" "{3}" "{5}"
  2798. 13
  2799. 8 4
  2800. 0 271 "autodesctotal" 1
  2801. 5 0
  2802. 8 6
  2803. 0 280 "{0}" 1
  2804. 13
  2805. 8 7
  2806. 6 7
  2807. 7 ""
  2808. 18 0
  2809. 11 00000387
  2810. 0 264 "autodesctotal" "{6}"
  2811. 6 6
  2812. 15
  2813. 9
  2814. 0 808 0 "{4}" "{7}"
  2815. 13
  2816. 5 0
  2817. 18 0
  2818. 11 00000462
  2819. 5 1
  2820. 8 6
  2821. 5 1
  2822. 6 7
  2823. 23 1
  2824. 5 1
  2825. 11 00000644
  2826. 0 281
  2827. 13
  2828. 8 7
  2829. 6 7
  2830. 7 ""
  2831. 18 0
  2832. 11 00000539
  2833. 10 00000644
  2834. 0 808 0 "{4}" "{7}"
  2835. 13
  2836. 5 0
  2837. 18 0
  2838. 11 00000631
  2839. 6 6
  2840. 5 1
  2841. 3 0
  2842. 8 6
  2843. 0 1041 &1 "{6}" "{7}"
  2844. 10 00000462
  2845. 0 264 "autodesctotal" "{6}"
  2846. 6 6
  2847. 15
  2848. 9
  2849. 6 2
  2850. 15
  2851. 9
  2852. 14 zproglod
  2853. 0 802
  2854. 13
  2855. 8 2
  2856. 0 274 001
  2857. 0 32 1
  2858. 0 286 "amipro" "automacroload" "amipro.ini"
  2859. 13
  2860. 0 17 [X]
  2861. 13
  2862. 8 3
  2863. 7 "_autorun.smm!zrunmacs"
  2864. 0 20 "{3}" 2 ","
  2865. 13
  2866. 0 805 &1 [X]
  2867. 13
  2868. 18 0
  2869. 11 00000227
  2870. 5 1
  2871. 15
  2872. 9
  2873. 10 00000387
  2874. 7 "zrunmacs.smm"
  2875. 0 20 "{3}" 2 ","
  2876. 13
  2877. 0 805 &1 [X]
  2878. 13
  2879. 18 0
  2880. 11 00000387
  2881. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  2882. 5 1
  2883. 15
  2884. 9
  2885. 5 1
  2886. 0 20 "{3}" 1 ","
  2887. 13
  2888. 18 0
  2889. 11 00000451
  2890. 16 zmkauto "{1}"
  2891. 0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
  2892. 6 0
  2893. 15
  2894. 9
  2895. 14 zmkauto
  2896. 0 32 1
  2897. 0 1288
  2898. 13
  2899. 8 3
  2900. 0 16 "{3}" "amiauto.cfg"
  2901. 13
  2902. 8 4
  2903. 0 280 "{4}" 33
  2904. 13
  2905. 8 5
  2906. 6 5
  2907. 7 ""
  2908. 18 0
  2909. 11 00000250
  2910. 0 259 "{4}" "w"
  2911. 13
  2912. 8 6
  2913. 6 6
  2914. 5 1
  2915. 18 5
  2916. 11 00000237
  2917. 0 3 "Unable to create file AMIAUTO.CFG."
  2918. 5 -1
  2919. 15
  2920. 9
  2921. 0 260 "{6}"
  2922. 0 259 "{4}" "r"
  2923. 13
  2924. 8 6
  2925. 6 6
  2926. 5 1
  2927. 18 5
  2928. 11 00000358
  2929. 0 3 "Unable to read file AMIAUTO.CFG."
  2930. 5 -1
  2931. 15
  2932. 9
  2933. 5 1
  2934. 11 00000537
  2935. 0 257 "{6}"
  2936. 13
  2937. 0 805 &2 [X]
  2938. 13
  2939. 5 0
  2940. 18 3
  2941. 11 00000511
  2942. 0 17 "{0}"
  2943. 13
  2944. 0 17 "{2}"
  2945. 13
  2946. 18 0
  2947. 11 00000498
  2948. 5 0
  2949. 15
  2950. 9
  2951. 10 00000524
  2952. 10 00000537
  2953. 10 00000358
  2954. 0 260 "{6}"
  2955. 0 259 "{4}" "a"
  2956. 13
  2957. 8 6
  2958. 6 6
  2959. 5 1
  2960. 18 5
  2961. 11 00000658
  2962. 0 3 "Unable to open file AMIAUTO.CFG."
  2963. 5 -1
  2964. 15
  2965. 9
  2966. 0 17 "{0}"
  2967. 13
  2968. 0 258 "{6}" [X]
  2969. 0 260 "{6}"
  2970. 16 zproglod
  2971. 5 1
  2972. 15
  2973. 9
  2974. 6 1
  2975. 15
  2976. 9
  2977. 14 zrunmacs
  2978. 0 32 1
  2979. 0 1288
  2980. 13
  2981. 8 1
  2982. 0 16 "{1}" "amiauto.cfg"
  2983. 13
  2984. 8 2
  2985. 0 280 "{2}" 33
  2986. 13
  2987. 8 3
  2988. 6 3
  2989. 7 ""
  2990. 18 0
  2991. 11 00000140
  2992. 6 0
  2993. 15
  2994. 9
  2995. 0 259 "{2}" "r"
  2996. 13
  2997. 8 4
  2998. 6 4
  2999. 5 1
  3000. 18 5
  3001. 11 00000247
  3002. 0 3 "Unable to open file AMIAUTO.CFG"
  3003. 5 -1
  3004. 15
  3005. 9
  3006. 20 00000462
  3007. 19 00000462
  3008. 5 100
  3009. 21 5 [X]
  3010. 5 0
  3011. 8 6
  3012. 5 1
  3013. 11 00000462
  3014. 0 257 "{4}"
  3015. 13
  3016. 8 7
  3017. 6 7
  3018. 5 -1
  3019. 18 0
  3020. 11 00000383
  3021. 10 00000462
  3022. 6 7
  3023. 7 ""
  3024. 18 1
  3025. 11 00000449
  3026. 6 6
  3027. 5 1
  3028. 3 0
  3029. 8 6
  3030. 6 6
  3031. 6 7
  3032. 23 5
  3033. 10 00000300
  3034. 0 260 "{4}"
  3035. 5 1
  3036. 8 8
  3037. 6 6
  3038. 6 8
  3039. 18 2
  3040. 12 00000560
  3041. 10 00000599
  3042. 5 1
  3043. 6 8
  3044. 3 0
  3045. 8 8
  3046. 10 00000485
  3047. 6 8
  3048. 22 5
  3049. 8 7
  3050. 16 "{7}"
  3051. 10 00000527
  3052. 6 0
  3053. 15
  3054. 9
  3055. 00037016
  3056.