Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/_AUTORUN.SMM

INI File | 1994-08-14 | 50.7 KB | 3,038 lines

[ver]
    4
[sty]
    _default.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ïNô«Ä₧é╔Ä⌐ô«Ä└ìsé╖éΘòíÉöé╠â}âNâìé≡æIæ≡é╡é▄é╖üB
    Lotus WPD Marketing
    Advanced
    Global Arrays, Callbacks, fopen
    noautorun
    775969896
    118
    679268150
    2627
    12
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Outline2
    5
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    6
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        3

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Footnote
    7
    [fnt]
        Arial
        200
        0
        16384
    [algn]
        1
        1
        216
        720
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>
        0
        1
        1
        256
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Footnote
    0
    0
[l1]
    0
[pg]
    12
    55 0 45 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
    113 0 14 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
    172 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
    231 0 15 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
    291 0 5 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
    346 0 10 256 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
    404 0 20 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
    464 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
    524 0 5 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
    582 0 19 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
    642 0 17 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
    674 0 12 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
[edoc]
<:#240,9025>Macro by <+!>Charlie Pappas,  Mark Osborne & David Zoller<-!>

<:#231,9025>

@Function@<+@><:#284,9025><:f240,BArial,0,0,255>'declares & defines<:f>

@Outline2@<:#231,9025>define EnableWindow()    DllCall("user,EnableWindow,HHH", %1, %2)

@Outline2@<:#231,9025>Define ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)

@Outline2@<:#231,9025>Define GetActiveWindow()    DllCall("User,GetActiveWindow,H")

@Outline2@<:#231,9025>Define SetFocus()        DllCall("User,SetFocus,HH", %1)

@Outline2@<:#231,9025>define    HFONT    "Setfont:hFont"

@Outline2@<:#462,9025>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

@Outline2@<:#231,9025>define    WM_SETFONT    0x30

@Outline2@<:#462,9025>define CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

@Outline2@<:#231,9025>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

@Outline2@<:#231,9025>declare DiskFmtToAnsi(p1);

@Outline2@<:#231,9025>define VK_F1            112

@Outline2@<:#284,9025><:>declare freeit(p1) <:f240,BArial,0,0,255>' declare user defined functions<:f>

@Outline2@<:#231,9025>declare loadlist(p1)

@Outline2@<:#231,9025>declare savelist(p1)

@Outline2@<:#231,9025>declare showdesc(hdlg, id, dummy)

@Outline2@<:#231,9025>declare ckauto(macro)

@Outline2@<+@><:#231,9025>Declare    LoadDocDesc(Array, array)

@Outline2@<+@><:#231,9025>Declare    GetDocInfo(FopenId)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#231,9025>declare countfiles(filespec, array)

@Outline2@<+@><:I0,0,0,0><:S+-1><:#231,9025>

@Function@<:#231,9025>function info()

@Function@<:#231,9025>'singlestep(1)

@Function@<:#231,9025>oncancel cancelit

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>DefStr Stat;

@Outline2@<:#231,9025>defstr hdlg;

@Outline2@<:#231,9025>dim descs(1)

@Outline2@<:#231,9025>dim macfiles(1)

@Outline2@<:#284,9025>rmac = getrunningmacrofile$() <:f240,BArial,0,0,255>' get the dos file name of running macro<:f>

@Outline2@<:#284,9025><:f240,BArial,0,0,255>'load Descs from disk or global array<:f>

@Outline3@<:#231,9025>Mac = GetMacPath$()

@Outline3@<:#231,9025>numfiles = countfiles("{mac}*.smm", &macfiles)

@Outline3@<:#231,9025>trytoalloc=allocglobalvar("DescAndName", numfiles)

@Outline3@<:#284,9025>if GetGlobalVar$("DescAndName") = ""    <:f240,BArial,0,0,255>'we've never been initialized<:f>

@Outline3@<:#231,9025>    If 0 = Assign(&Stat, LoadDocDesc(&Descs, &macfiles))

@Outline3@<:#231,9025>    Else

@Outline3@<:#284,9025>        <:f240,BArial,0,0,255>' Function returned error code<:f>

@Outline3@<:#231,9025>    Endif

@Outline3@<:#231,9025>    freeglobalvar("DescAndName")

@Outline3@<:#231,9025>    x=ArraySize(&Descs)

@Outline3@<:#284,9025>    x= x + 1        <:f240,BArial,0,0,255>'make room for the arraysize number @ the beginning<:f>

@Outline3@<:#231,9025>    allocglobalvar("DescAndName", x)

@Outline3@<:#568,9025>    SetGlobalArray("DescAndName", 1, x)    <:f240,BArial,0,0,255>'set the 1st position to the number of files in the local array<:f>

@Outline3@<:#231,9025>    for i = 2 to (x - 1)

@Outline3@<:#231,9025>        countdown = x - i

@Outline3@<:#231,9025>        StatusBarMsg("Files remaining: {countdown}")

@Outline3@<:#231,9025>        data =Descs(i)

@Outline3@<:#231,9025>        SetGlobalArray("DescAndName", i, data)

@Outline3@<:#231,9025>    next

@Outline3@<:#231,9025>else

@Outline3@<:#231,9025>    numfiles = GetGlobalArray$("DescAndName", 1)

@Outline3@<:#231,9025>    for i = 1 to numfiles

@Outline3@<:#231,9025>        countdown = numfiles - i

<:#231,9025>        StatusBarMsg("Files remaining: {countdown}")

<:#231,9025>        data = GetGlobalArray$("DescAndName", i + 1)

@Outline3@<:#231,9025>        if data != ""

@Outline3@<:#231,9025>

@Outline3@<:#231,9025>            ArrayInsert(&Descs, i, data)

@Outline3@<:#231,9025>        endif

@Outline3@<:#231,9025>    next

@Outline3@<:#231,9025>endif

@Outline3@<:#231,9025>StatusBarMsg("")

<:#231,9025><:f200,BArial,255,0,0>number =arraysize(&descs)

<:#231,9025><:f200,BArial,255,0,0>dim filename(number)

<:#231,9025><:f200,BArial,255,0,0>for i = 1 to number

<:#231,9025><:f200,BArial,255,0,0>c =  strcat$(strfield$(descs(i),2,"|"),"!",i)

<:#231,9025><:f200,BArial,255,0,0>filename(i) = c

<:#231,9025>'Message("{filename(i)}, {i}")

<:#231,9025><:f200,BArial,255,0,0>next

<:#231,9025><:f200,BArial,255,0,0>arraysort(&filename)

<:#231,9025><:f200,BArial,255,0,0>dim temper(number)

<:#231,9025><:f200,BArial,255,0,0>for i = 1 to number

<:#231,9025><:f200,BArial,255,0,0>    place = strfield$(filename(i),2,"!")

<:#231,9025><:f200,BArial,255,0,0>    temper(i) =  descs(place)

<:#231,9025><:f200,BArial,255,0,0>next

<:#231,9025><:f200,BArial,255,0,0>for i = 1 to number

<:#231,9025><:f200,BArial,255,0,0>    descs(i) = temper(i)

<:#231,9025><:f200,BArial,255,0,0>next<:f>

@Outline2@<:#231,9025>Filledit(9000,&Descs)

@Outline2@<:#284,9025>allocglobalvar("loadem", 200) <:f240,BArial,0,0,255>' keep track of the stuff in the list box<:f>

@Outline2@<:#231,9025>allocglobalvar("count", 1)

@Outline2@<:#231,9025>setglobalvar("count", 1)

@Outline2@<:#284,9025>onerror endit <:f240,BArial,0,0,255>' set up error and cancel routines<:f>

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>'font handing

@Outline3@<:#231,9025>AllocGlobalVar(HFONT, 1)

@Outline3@<:#231,9025>if getglobalvar$(HFONT) != ""

@Outline3@<:#231,9025>'    SetGlobalVar(HFONT, 0)

@Outline3@<:#231,9025>endif

@Outline2@<:#231,9025>filledit(20, True)

@Outline2@<:#231,9025>DlgKeyInterrupt(VK_F1, "{rmac}!helpme")

@Outline2@<:#284,9025><:>SetDlgCallBack (9000,"{rmac}!showdesc") <:f240,BArial,0,0,255>' load dlg items for callback functions<:f>

@Outline2@<:#231,9025>SetDlgCallBack (9003,"{rmac}!showdesc")

@Outline2@<:#231,9025>SetDlgCallBack (70,"{rmac}!Add")

@Outline2@<:#231,9025>SetDlgCallBack (71,"{rmac}!Del")

@Outline2@<:#231,9025>SetDlgCallBack (77,"{rmac}!cwp")

@Outline2@<:#231,9025>SetDlgCallBack(20,"{rmac}!sorttype")

@Outline2@<:#231,9025>SetDlgCallBack (0,"{rmac}!PreBuild")

@Outline2@<:#231,9025>loadlist("")

@Outline2@<:#284,9025>Box = Dialogbox(".","showfiles") <:f240,BArial,0,0,255>' display the dialog box<:f>

@Outline2@<:#284,9025>switch box <:f240,BArial,0,0,255>' what did the user do<:f>

@Outline2@<:#231,9025>    case 0

@Outline3@<:#231,9025>        goto endit

@Outline2@<:#284,9025>    case 4 <:f240,BArial,0,0,255>' save stuff and close box<:f>

@Outline3@<:#231,9025>        savelist("")

@Outline3@<:#231,9025>        freeit("")

@Outline3@<:#231,9025>        exit function

@Outline2@<:#284,9025>    case 3 <:f240,BArial,0,0,255>' play the macro<:f>

@Outline3@<:#231,9025>        savelist("")

@Outline3@<:#231,9025>        freeit("")

@Outline3@<:#231,9025>        longname = GetDialogField$(9000)

@Outline3@<:#231,9025>        tname=strfield$(longname, 2, "|")

@Outline3@<:#231,9025>        mac = ucase$(tname)

@Outline3@<:#284,9025>        if mac = ucase$("_info.smm") <:f240,BArial,0,0,255>' trying to run us?<:f>

@Outline3@<:#231,9025>            message("You are already running {mac}")

@Outline3@<:#231,9025>            goto hosemenot

@Outline3@<:#231,9025>        endif

@Outline3@<:#231,9025>        go = decide("Run the macro ""{mac}""?")

@Outline3@<:#231,9025>        if go = 1

@Outline3@<:#231,9025>            hourglass(0)

@Outline3@<:#231,9025>            calli mac()

@Outline3@<:#231,9025>        endif

@Outline3@<:#231,9025>        hosemenot:

@Outline3@<:#231,9025>        RunLater(rmac, "00:00.02")

@Outline2@<:#284,9025>    case 1 <:f240,BArial,0,0,255>' wants to get help on the macro<:f>

@Outline3@<:f240,BArial,0,0,255><:f><:f240,BArial,0,0,255><:f>        defstr count;

@Outline3@<:#231,9025>        savelist("")

@Outline3@<:#231,9025>        freeit("")

@Outline3@<:#231,9025>        if assign(&count, getopenfilecount()) << 1

@Outline3@<:#231,9025>            goto jump

@Outline3@<:#231,9025>        endif

@Outline3@<:#284,9025>        dim mdifiles(count) <:f240,BArial,0,0,255>' is goodies open?<:f>

@Outline3@<:#231,9025>        getopenfilenames(&mdifiles)

@Outline3@<:#231,9025>        alreadyopen = 0

@Outline3@<:#231,9025>        for i = 1 to count

@Outline3@<:#231,9025>            if kinstr(1, lcase$(mdifiles(i)), "goodies.sam") <;> 0

@Outline3@<:#231,9025>                alreadyopen = 1

@Outline3@<:#231,9025>                break

@Outline3@<:#231,9025>            endif

@Outline3@<:#231,9025>        next

@Outline3@<:#231,9025>        if alreadyopen = 0

@Outline3@<:#231,9025>            opts = 1

@Outline3@<:#284,9025>            if count << 1 <:f240,BArial,0,0,255>' didn't have a mdi window<:f>

@Outline3@<:#231,9025>                jump:

@Outline3@<:#231,9025>                defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")

@Outline3@<:#284,9025>                new(defstyle, 0, 0) <:f240,BArial,0,0,255>' open window<:f>

@Outline3@<:#231,9025>                opts = 129

@Outline3@<:#231,9025>            endif

@Outline3@<:#231,9025>            FileOpen(strcat$(getdocpath$(), "goodies.sam"),  opts, "")

@Outline3@<:#231,9025>        else

@Outline3@<+B><:#231,9025>            appmaximize("goodies.sam")

@Outline3@<:#231,9025>            layoutmode()

@Outline3@<:#231,9025>        endif

@Outline3@<:#231,9025>        longname = GetDialogField$(9000)

@Outline3@<:#231,9025>        tname=ucase$(strfield$(longname, 2, "|"))

@Outline3@<:#231,9025>        markpage=GetBookMarkPage(tName)

@Outline3@<+B><:#231,9025>'        GoToCmd(1, markPage, 0)

@Outline3@<:#231,9025>'        markbookmark(ucase$(tname), findbookmark)

@Outline3@<:#231,9025>        Replace(0, 0, 8197, TNAME, "")

@Outline3@<:#284,9025>        type("<[>esc]") <:f240,BArial,0,0,255>' go to bookmark of macro<:f>

@Outline3@        usercontrol("<:f,1û╛Æ⌐,><:f>Choose resume to return to AutoRun")

@Outline3@<:#231,9025>        RunLater(rmac, "00:00.02")

@Outline3@<:#231,9025>        exit function

@Outline2@<:#231,9025>endswitch

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>freeit("")

@Outline2@<:#231,9025>'nukefont

@Outline3@<:#231,9025>font = GetGlobalVar$(HFONT)        ' If we created

@Outline3@<:#231,9025>if (0 != font)                ' the font.

@Outline3@<:#231,9025>    DeleteObject(font)        ' Delete it

@Outline3@<:#231,9025>endif

@Outline3@<:#231,9025>result=freeglobalvar(HFONT)

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>cancelit:

@Outline2@<:#231,9025>    Statusbarmsg("")

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>Function PreBuild(hdlg, id, dummy)

@Outline2@<:#231,9025>'INITDLG(hdlg, id, stuff)

@Outline3@<:#231,9025>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 128, 0, 0, 0, 32, "System")

@Outline3@<:#231,9025>if (Font)

@Outline3@<:#231,9025>    hctl = GetDlgItem(hDlg, 9000)    'one desc box

@Outline3@<:#231,9025>    hctl2 = GetDlgItem(hDlg, 9002)    'the other

@Outline3@<:#231,9025>    hctl3 = GetDlgItem(hDlg, 8007)    'the static text field for file name

@Outline3@<:#231,9025>    SendMessage(hctl, WM_SETFONT, font, 0)

@Outline3@<:#231,9025>    SendMessage(hctl2, WM_SETFONT, font, 0)

@Outline3@<:#231,9025>    SendMessage(hctl3, WM_SETFONT, font, 0)

@Outline3@<:#231,9025>    SetGlobalVar(HFONT, Font)

@Outline3@<:#231,9025>endif

@Outline2@<:#231,9025>call UngrayButtons(hdlg)

@Outline2@<:#231,9025>call sorttype(hdlg, 20, 1)

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#284,9025>function UngrayButtons(hdlg) <:f240,BArial,0,0,255>' this function ungrays buttons<:f>

@Outline2@<:#231,9025>enablewindow(getdlgitem(Hdlg, 71), 0)

@Outline2@<:#231,9025>'showdesc(hdlg, id, dummy)

@Outline2@<:#231,9025>if getglobalvar$("count") <;> 0

@Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 1)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#284,9025>function freeit(x) <:f240,BArial,0,0,255>' free globals<:f>

@Outline2@<:#231,9025>freeglobalvar("loadem")

@Outline2@<:#231,9025>freeglobalvar("count")

@Outline2@<:#231,9025>end function

@Function@<:#231,9025>function saveit(hdlg)

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>savelist("")

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>end function

@Function@<:#284,9025>function showdesc(hdlg, id, dummy) <:f240,BArial,0,0,255>' get the doc info stuff from array<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>defstr ar;

@Outline2@<:#231,9025>longname = GetDlgItemText(Hdlg, id)

@Outline2@<:#231,9025>file=lcase$(strfield$(longname, 2, "|"))

@Outline2@<:#231,9025>onerror endit

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>SetDlgItemText(Hdlg, 8007, file)

@Outline2@<:#231,9025>stat = 1

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>return stat

@Outline2@<:#231,9025>end function

@Function@<:#231,9025>function sorttype(Hdlg,id,dummy)

@Outline2@<:#231,9025>sortbydesc=getdlgitemtext(hdlg, 20)

@Outline2@<:#231,9025>if sortbydesc=1

@Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 0)

@Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 1)

@Outline2@<:#231,9025>    id=9000

@Outline2@<:#231,9025>    call showdesc(Hdlg,id,dummy)

@Outline2@<:#231,9025>else

@Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9000), 0)

@Outline2@<:#231,9025>    ShowWindow(GetDlgItem(Hdlg,9003), 1)

@Outline2@<:#231,9025>    id=9003

@Outline2@<:#231,9025>    call showdesc(Hdlg,id,dummy)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>end function

@Function@<:#231,9025>DIALOG    showfiles

@Outline2@<:#231,9025>-2134376448    17    49    45    280    158    ""    "AmiDialog"    "Autorun Macros"

@Outline2@<:#231,9025>FONT    8    "System"

@Outline2@<:#231,9025>6    3    60    8    1000    1342308352    "static"    "Ma&cros:"    0

@Outline2@<:#231,9025>6    12    155    116    9003    1352728577    "listbox"    ""    0

@Outline2@<:#231,9025>6    12    155    122    9000    1352728577    "listbox"    ""    0

@Outline2@<:#231,9025>164    93    44    14    70    1342373888    "button"    "&Install <;><;>"    0

@Outline2@<:#231,9025>164    110    44    14    71    1342242816    "button"    "<<<< Re&move"    0

@Outline2@<:#231,9025>212    66    46    8    1001    1342308352    "static"    "I&nstalled:"    0

@Outline2@<:#231,9025>212    75    60    53    9002    1352728577    "listbox"    ""    0

@Outline2@<:#231,9025>232    3    42    14    4    1342373888    "button"    "OK"    0

@Outline2@<:#231,9025>232    19    42    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#231,9025>232    35    42    14    1    1342373889    "button"    "&Details..."    0

@Outline2@<:#231,9025>232    51    42    14    3    1342373888    "button"    "&Run..."    0

@Outline2@<:#231,9025>263    292    0    0    77    1342177280    "button"    "&z"    0

@Outline2@<:#231,9025>45    140    70    10    8007    1342177280    "static"    ""    0

@Outline2@<:#231,9025>65    1    1    1    8013    1342177280    "static"    ""    0

@Outline2@<:#231,9025>34    3    110    8    8777    1342177281    "static"    ""    0

@Outline2@<:#231,9025>6    140    38    10    1002    1342177280    "static"    "File name:"    0

@Outline2@<:#231,9025>14    290    0    0    20    1342242819    "button"    "show descriptions"    0

@Outline2@<:#231,9025>END DIALOG

@Function@<:#231,9025>

@Function@<:#284,9025>Function add(Hdlg) <:f240,BArial,0,0,255>' add a macro to autorun list<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>defstr autos;

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>longname = GetDlgItemText(Hdlg, 9000)

@Outline2@<:#231,9025>tname=lcase$(strfield$(longname, 2, "|"))

@Outline2@<:#231,9025>if ckauto(lcase$(tname)) <<<;> 1

@Outline2@<:#231,9025>    return 0

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>count = getglobalvar$("count")

@Outline2@<:#231,9025>for i = 1 to count

@Outline2@<:#231,9025>    if tname <<<;> ""

@Outline2@<:#231,9025>        if tname = lcase$(getglobalarray$("loadem", i))

@Outline2@<:#231,9025>            message("That macro is already set to ""AutoRun""")

@Outline2@<:#231,9025>            hourglass(0)

@Outline2@<:#231,9025>            return 1

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>SetDlgItemText(Hdlg, 9002, tname)

@Outline2@<:#231,9025>enablewindow(getdlgitem(Hdlg, 71), 1)

@Outline2@<:#231,9025>count = getglobalvar$("count") + 1

@Outline2@<:#231,9025>setglobalarray("loadem", count, tname)

@Outline2@<:#231,9025>setglobalvar("count", count)

@Outline2@<:#231,9025>if GetDlgItemText(Hdlg, 9002) = ""

@Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>End Function

@Function@<:#231,9025><:><:>

@Function@<:#284,9025>Function del(Hdlg) <:f240,BArial,0,0,255>' delete macro from autorun list<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>sname = GetDlgItemText(Hdlg, 9002)

@Outline2@<:#231,9025>if sname = ""

@Outline2@<:#231,9025>    return 0

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>Handle=GetDlgItem(Hdlg, 9002)

@Outline2@<:#231,9025>AppSendMessage(Handle, 0x0405, 0, 0)

@Outline2@<:#231,9025>count = getglobalvar$("count")

@Outline2@<:#231,9025>if count = 0

@Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)

@Outline2@<:#231,9025>    return 0

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>for i = 1 to count

@Outline2@<:#231,9025>    xname = getglobalarray$("loadem", i)

@Outline2@<:#231,9025>    if xname = sname

@Outline2@<:#231,9025>        setglobalarray("loadem", i, "")

@Outline2@<:#231,9025>    else

@Outline2@<:#231,9025>        if xname <<<;> ""

@Outline2@<:#231,9025>            SetDlgItemText(Hdlg, 9002, xname)

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>        setglobalarray("loadem", i, xname)

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>highlighted=getdlgitemtext(hdlg, 9002)

@Outline2@<:#231,9025>if highlighted = ""

@Outline2@<:#231,9025>    enablewindow(getdlgitem(Hdlg, 71), 0)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>End Function

@Function@<:#231,9025>function helpme(hdlg)

@Outline2@<:#231,9025>box = dialogbox(".", "help")

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>DIALOG help

@Outline2@<:#231,9025>-2134376448 5 59 30 160 124 "" "" "Info Help"

@Outline2@<:#231,9025>FONT 8 "Helv"

@Outline2@<:#231,9025>60 105 40 14 1 1342242817 "button" "OK" 0

@Outline2@<:#231,9025>11 21 138 18 1001 1342177280 "static" "Select a feature and choose Install to make it AutoRun." 0

@Outline2@<:#231,9025>6 7 148 89 80 1342177287 "button" "Macro Install" 0

@Outline2@<:#462,9025>11 42 138 18 1002 1342177280 "static" "Choose Details to view detailed information about a feature." 0

@Outline2@<:#231,9025>11 64 138 18 1000 1342177280 "static" "To see a demonstration of the feature, choose Run." 0

@Outline2@<:#231,9025>END DIALOG

@Function@<:#231,9025>

@Function@<:#284,9025>function loadlist(x) <:f240,BArial,0,0,255>' load list of autorun macros from amiauto.cfg file<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Subhead@<:#284,9025>windir = getwindowsdirectory$()

@Subhead@<:#284,9025>autofile = strcat$(windir, "amiauto.cfg")

@Outline2@<:#231,9025>ck = findfirst$(autofile, 33)

@Outline2@<:#231,9025>if ck = ""

@Outline2@<:#231,9025>    option = "w"

@Outline2@<:#231,9025>else

@Outline2@<:#231,9025>    option = "r"

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>fh = fopen(autofile, option)

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    message("Unable to create file AMIAUTO.CFG")

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>if option = "w"

@Outline2@<:#231,9025>    goto endit

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>onerror endit

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>i = 0

@Outline2@<:#231,9025>while (1)

@Outline2@<:#231,9025>    txt = fgets$(fh)

@Outline2@<:#231,9025>    if txt = -1

@Outline2@<:#231,9025>        break

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    i = i + 1

@Outline2@<:#231,9025>    setglobalarray("loadem", i, txt)

@Outline2@<:#231,9025>    filledit(9002, txt)

@Outline2@<:#231,9025>wend

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>setglobalvar("count", i)

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#284,9025>function savelist(x) <:f240,BArial,0,0,255>' write out list of macros to be autorun<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Subhead@<:#284,9025>windir = getwindowsdirectory$()

@Subhead@<:#284,9025>autofile = strcat$(windir, "amiauto.cfg")

@Outline2@<:#231,9025>defstr txt;

@Outline2@<:#231,9025>fh = fopen(autofile, "w")

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    message("Unable to save file AMIAUTO.CFG")

@Outline2@<:#231,9025>    hourglass(0)

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>onerror endit

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>count = getglobalvar$("count")

@Outline2@<:#231,9025>for i = 1 to count

@Outline2@<:#231,9025>    if assign(&txt, getglobalarray$("loadem", i)) <<<;> ""

@Outline2@<:#231,9025>        fputs(fh, txt)

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>call zproglod("")

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>function zgood(macro)

@Outline2@<:#231,9025>declare ckauto(file)

@Outline2@<:#231,9025>which = kmid$(macro,1, 2)

@Outline2@<:#231,9025>mac = kmid$(macro, 3,tlen(macro))

@Outline2@<:#231,9025>switch which

@Outline2@<:#231,9025>    case "td"

@Outline2@<:#231,9025>        calli mac()

@Outline2@<:#231,9025>    case "ar"

@Outline2@<:#231,9025>        runit = ckauto(mac)

@Outline2@<:#231,9025>        if runit <<<;> 1

@Outline2@<:#231,9025>            message("{mac} not intended to AutoRun")

@Outline2@<:#231,9025>            return -1

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>        if call zmkauto(mac) = 1

@Outline2@<:#231,9025>            message("{mac} installed as AutoRun.")

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>    case    "si"

@Outline2@<:#231,9025>        call _autorun.smm()

@Outline2@<:#231,9025>endswitch

<:#231,9025><:f200,BArial,>end function

<:#231,9025><:f200,BArial,>

<:#231,9025><:f200,BArial,>function ckauto(file)<:f>

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>hourglass(1)

@Outline2@<:#231,9025>fh = fopen(file, "r")

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    statusbarmsg("Unable to read file")

@Outline2@<:#231,9025>    hourglass(0)

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>onerror endit

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>line = ""

@Outline2@<:#231,9025>b = mid$("<[><[>", 1, 1)

@Outline2@<:#231,9025>while (line <<<;> "{b}desc]")

@Outline2@<:#231,9025>    line = fgets$(fh)

@Outline2@<:#231,9025>    if line = -1

@Outline2@<:#231,9025>        fclose(fh)

@Outline2@<:#231,9025>        hourglass(0)

@Outline2@<:#231,9025>        return -1

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>wend

@Outline2@<:#231,9025>defstr ar;

@Outline2@<:#231,9025>again:

@Outline2@<:#231,9025>for i = 1 to 4

@Outline2@<:#231,9025>    fgets$(fh)

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>if assign(&ar, ucase$(strfield$(fgets$(fh), 2, "    "))) = "NOAUTORUN"

@Outline2@<:#231,9025>    stat = 0

@Outline2@<:#231,9025>else

@Outline2@<:#231,9025>    stat = 1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>hourglass(0)

@Outline2@<:#231,9025>return stat

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>function GetName(hdlg, id, dummy)

@Outline2@<:#231,9025>text=getdlgitemtext(hdlg, id)

@Outline2@<:#231,9025>macname=strfield$(text, 2, "|")

@Outline2@<:#231,9025>setdlgitemtext(hdlg, 2, macname)

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>Function LoadDocDesc(Descs, macfiles)

@Function@<:#231,9025>'singlestep(1)

@Outline2@<:#231,9025>mpath = GetMacPath$()

@Outline2@<:#231,9025>DefStr DInfo;

@Outline2@<:#231,9025>DefStr Id;

@Outline2@<:#231,9025>j = 1

@Outline2@<:#231,9025>total = getglobalvar$("autodesctotal")

@Outline2@<:#231,9025>for i = 1 to total;

@Outline2@<:#231,9025>    name = *macfiles(i)

@Outline2@<:#231,9025>    statusbarmsg("Loading description for file {name}...")

@Outline2@<:#231,9025>    If 0 != Assign(&Id,Fopen("{mpath}{Name}","r"))

@Outline2@<:#231,9025>        DInfo=GetDocInfo(Id)

@Outline2@<:#231,9025>        if DInfo != -1

@Outline2@<:#231,9025>            Data = StrCat$(DInfo,"                                                                      |",Name)

@Outline2@<:#231,9025>            if tlen(DInfo) <;> 1

@Outline2@<:#231,9025>                ArrayInsert(&descs, j, data)

@Outline2@<:#231,9025>                j = j + 1

@Outline2@<:#231,9025>            endif

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>        Fclose(id)

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>HourGlass(off)

@Outline2@<:#231,9025>StatusBarMsg("")

@Outline2@<:#231,9025>End Function

@Outline2@<:#231,9025>

@Function@<:#231,9025>FUNCTION DiskFmtToAnsi(str)

@Outline2@<:#231,9025>'- convert an ascii string from AmiPro disk format to ANSI.

@Outline2@<:#231,9025>defstr    c;

@Outline2@<:#231,9025>if (kInstr(1, str, "<<"))        ' Got any funny stuff?

@Outline2@<:#231,9025>    newstr = "";

@Outline2@<:#231,9025>    off = 1;

@Outline2@<:#231,9025>    ' Loop over all the chars one at a time looking for

@Outline2@<:#231,9025>    ' for the escape char.  Off will track where we get the

@Outline2@<:#231,9025>    ' next char from the input stream. Newstr is where we

@Outline2@<:#231,9025>    ' will build the return string.

@Outline2@<:#231,9025>    while ("" != Assign(&c, kMid$(str, off, 1)))

@Outline2@<:#231,9025>        off = off + 1;

@Outline2@<:#231,9025>        if (c = "<<")

@Outline2@<:#231,9025>            c = kMid$(str, off, 1);

@Outline2@<:#231,9025>            off = off + 1;

@Outline2@<:#231,9025>            if (c != "<<")

@Outline2@<:#231,9025>                nc = kMid$(str, off, 1);

@Outline2@<:#231,9025>                off = off + 2

@Outline2@<:#231,9025>                switch c

@Outline2@<:#231,9025>                    case "*"

@Outline2@<:#231,9025>                        c = chr$(asc(nc) - 0x20);

@Outline2@<:#231,9025>                    case "/"

@Outline2@<:#231,9025>                        c = chr$(asc(nc) + 0x40);

@Outline2@<:#231,9025>                    case "\"

@Outline2@<:#231,9025>                        c = chr$(asc(nc) + 0x80);

@Outline2@<:#231,9025>                endswitch

@Outline2@<:#231,9025>            endif

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>        newstr = strcat$(newstr, c);

@Outline2@<:#231,9025>    wend

@Outline2@<:#231,9025>    str = newstr;

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>return str;

@Outline2@<:#231,9025>END FUNCTION

@Outline2@<:#231,9025>

@Function@<:#231,9025>Function GetDocInfo(Fh)

@Outline2@<:#231,9025>DefStr Data, LocateDesc;

@Outline2@<:#284,9025><:f240,BArial,0,0,255>'SingleStep(on)<:f>

@Outline2@<:#231,9025>If "" = Assign(&Data, Fread(FH,500))

@Outline2@<:#231,9025>    Return ""

@Outline2@<:#231,9025>Endif

@Outline2@<:#231,9025>If 0 != Assign(&LocateDesc, kinstr(1, Data,"esc]"))

@Outline2@<:#231,9025>    Desc = kMid$(Data,LocateDesc,(LocateDesc + 384))

@Outline2@<:#231,9025>    RealDesc = StrField$(Desc, 2, "    ")

@Outline2@<:#231,9025>    autorunstat = StrField$(Desc, 6, "    ")

@Outline2@<:#231,9025>    if kinstr (1, lcase$(autorunstat), "noautorun") != 0

@Outline2@<:#231,9025>        Return -1

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    lenRealDesc= tlen (RealDesc) - 1

@Outline2@<:#231,9025>    RealDesc = kmid$(RealDesc,1, lenRealDesc)

@Outline2@<:#231,9025>    if lenrealdesc <;> 80

@Outline2@<:#231,9025>        RealDesc = kmid$(RealDesc,1, 80)

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    realDesc = DiskFmtToAnsi(realdesc)

@Outline2@<:#231,9025>    Return RealDesc

@Outline2@<:#231,9025>Endif

@Outline2@<:#231,9025>End Function

@Function@<:#231,9025>

@Function@<:#231,9025>function countfiles(filespec, macfiles)

@Outline2@<:#231,9025>switchkit = "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"

@Outline2@<:#462,9025>dontuse = "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"

@Outline2@<:#462,9025>moredonts="AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"

@Outline2@<:#231,9025>dontuse = strcat$(dontuse, switchkit, moredonts)

@Outline2@<:#231,9025>

@Outline2@<:#231,9025>allocglobalvar("autodesctotal", 1)

@Outline2@<:#231,9025>count = 0

@Outline2@<:#231,9025>name = findfirst$(filespec, 1)

@Outline2@<:#231,9025>if name = ""

@Outline2@<:#231,9025>    setglobalvar("autodesctotal", count)

@Outline2@<:#231,9025>    return count

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>if kinstr(1, dontuse, Name) = 0

@Outline2@<:#231,9025>    count = 1;

@Outline2@<:#231,9025>    *macfiles(1) = name

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>while (1)

@Outline2@<:#231,9025>    name = findnext$()

@Outline2@<:#231,9025>    if name = ""

@Outline2@<:#231,9025>        break

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    if kinstr(1, dontuse, Name) = 0

@Outline2@<:#231,9025>        count = count +1

@Outline2@<:#231,9025>        ArrayInsert(&macfiles, count, name)

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>wend

@Outline2@<:#231,9025>setglobalvar("autodesctotal", count)

@Outline2@<:#231,9025>return count

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>function zproglod()

@Outline2@<:#231,9025>defstr macro;

@Outline2@<:#231,9025>rmac=GetRunningMacroFile$()

@Outline2@<:#231,9025>pause(001)

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>curauto = lcase$(getprofilestring$("amipro", "automacroload", "amipro.ini"))

@Outline2@<:#231,9025>if "_autorun.smm!zrunmacs" = assign(¯o, strfield$(curauto, 2, ","))

@Outline2@<:#231,9025>    return 1

@Outline2@<:#231,9025>elseif "zrunmacs.smm" = assign(¯o, strfield$(curauto, 2, ","))

@Outline2@<:#231,9025>    writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")

@Outline2@<:#231,9025>    return 1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>if 1 = strfield$(curauto, 1, ",")

@Outline2@<:#231,9025>    call zmkauto(macro)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>writeprofilestring("amipro", "automacroload", "1,_autorun.smm!zrunmacs", "amipro.ini")

@Outline2@<:#231,9025>end function

@Outline2@<:#231,9025>

@Function@<:#231,9025>FUNCTION zmkauto(macro)

@Outline2@<:#231,9025>defstr autos;

@Outline2@<:#231,9025>ignorekeyboard(1)

@Outline2@<:#231,9025>windir = getwindowsdirectory$()

@Outline2@<:#231,9025>autofile = strcat$(windir, "amiauto.cfg")

@Outline2@<:#231,9025>ck = findfirst$(autofile, 33)

@Outline2@<:#231,9025>if ck = ""

@Outline2@<:#231,9025>    fh = fopen(autofile, "w")

@Outline2@<:#231,9025>    if fh << 1

@Outline2@<:#231,9025>        message("Unable to create file AMIAUTO.CFG.")

@Outline2@<:#231,9025>        return -1

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    fclose(fh)

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>fh = fopen(autofile, "r")

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    message("Unable to read file AMIAUTO.CFG.")

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>while (1)

@Outline2@<:#231,9025>    if assign(&autos, fgets$(fh)) <;> 0

@Outline2@<:#231,9025>        if lcase$(macro) = lcase$(autos)

@Outline2@<:#231,9025>'            message("{macro} is already set to be an AutoRun macro.")

@Outline2@<:#231,9025>            return 0

@Outline2@<:#231,9025>        endif

@Outline2@<:#231,9025>    else

@Outline2@<:#231,9025>        break

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>wend

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>fh = fopen(autofile, "a")

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    message("Unable to open file AMIAUTO.CFG.")

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>fputs(fh, lcase$(macro))

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>call zproglod()

@Outline2@<:#231,9025>return 1

@Outline2@<:#231,9025>end function

@Function@<:#231,9025>function zrunmacs()

@Outline2@<:#231,9025>'singlestep(1)

@Outline2@<:#231,9025>ignorekeyboard(1)

@Subhead@<:#284,9025>windir = getwindowsdirectory$()

@Subhead@<:#284,9025>autofile = strcat$(windir, "amiauto.cfg")

@Outline2@<:#231,9025>ck = findfirst$(autofile, 33)

@Outline2@<:#231,9025>if ck = ""

@Outline2@<:#231,9025>    exit function

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>fh = fopen(autofile, "r")

@Outline2@<:#231,9025>if fh << 1

@Outline2@<:#231,9025>    message("Unable to open file AMIAUTO.CFG")

@Outline2@<:#231,9025>    return -1

@Outline2@<:#231,9025>endif

@Outline2@<:#231,9025>onerror endit

@Outline2@<:#231,9025>oncancel endit

@Outline2@<:#231,9025>dim files(100)

@Outline2@<:#231,9025>i = 0

@Outline2@<:#231,9025>while (1)

@Outline2@<:#231,9025>    txt = fgets$(fh)

@Outline2@<:#231,9025>    if txt = -1

@Outline2@<:#231,9025>        break

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>    if txt <<<;> ""

@Outline2@<:#231,9025>        i = i + 1

@Outline2@<:#231,9025>        files(i) = txt

@Outline2@<:#231,9025>    endif

@Outline2@<:#231,9025>wend

@Outline2@<:#231,9025>endit:

@Outline2@<:#231,9025>fclose(fh)

@Outline2@<:#231,9025>for j = 1 to i

@Outline2@<:#231,9025>    txt = files(j)

@Outline2@<:#231,9025>    calli txt()

@Outline2@<:#231,9025>next

@Outline2@<:#231,9025>end function

>

[Embedded]
00037185
>
[macsum] 24
info 0 0 30 23
PreBuild 3428 3 5 181
UngrayButtons 3862 1 1 197
freeit 4047 1 1 205
saveit 4101 1 1 209
showdesc 4158 3 5 214
sorttype 4348 3 2 228
showfiles 4751 0 -1 242
add 5678 1 6 264
del 6411 1 7 294
helpme 7084 1 2 325
help 7133 0 -1 329
loadlist 7608 1 8 339
savelist 8189 1 7 376
zgood 8673 1 4 402
ckauto 9097 1 7 423
GetName 9723 3 3 460
LoadDocDesc 9821 2 9 466
DiskFmtToAnsi 10411 1 5 492
GetDocInfo 11071 1 7 527
countfiles 11592 2 6 550
zproglod 12289 0 4 581
zmkauto 12823 1 6 599
zrunmacs 13564 0 9 639
[macse]
14 info
19 00003406
0 32 1
0 296 1
5 1
21 3 [X]
5 1
21 4 [X]
0 802
13
8 5
0 295
13
8 6
16 countfiles "{6}*.smm" &4
13
8 7
0 271 "DescAndName" "{7}"
13
8 8
0 265 "DescAndName"
13
7 ""
18 0
11 00000654
5 0
16 LoadDocDesc &3 &4
13
0 805 &1 [X]
13
18 0
11 00000306
10 00000306
0 266 "DescAndName"
0 1046 &3
13
8 9
6 9
5 1
3 0
8 9
0 271 "DescAndName" "{9}"
0 272 "DescAndName" 1 "{9}"
5 2
8 10
6 9
5 1
3 1
6 10
18 2
12 00000522
10 00000641
5 1
6 10
3 0
8 10
10 00000434
6 9
6 10
3 1
8 11
0 789 "Files remaining: {11}"
6 10
22 3
8 12
0 272 "DescAndName" "{10}" "{12}"
10 00000487
10 00000948
0 273 "DescAndName" 1
13
8 7
5 1
8 10
6 7
6 10
18 2
12 00000775
10 00000948
5 1
6 10
3 0
8 10
10 00000697
6 7
6 10
3 1
8 11
0 789 "Files remaining: {11}"
6 10
5 1
3 0
0 273 "DescAndName" [X]
13
8 12
6 12
7 ""
18 1
11 00000935
0 1041 &3 "{10}" "{12}"
10 00000740
0 789 ""
0 1046 &3
13
8 13
6 13
21 14 [X]
5 1
8 10
6 13
6 10
18 2
12 00001086
10 00001181
5 1
6 10
3 0
8 10
10 00001007
6 10
22 3
0 20 [X] 2 "|"
13
0 16 [X] "!" "{10}"
13
8 15
6 10
6 15
23 14
10 00001051
0 1043 &14
6 13
21 16 [X]
5 1
8 10
6 13
6 10
18 2
12 00001300
10 00001377
5 1
6 10
3 0
8 10
10 00001221
6 10
22 14
0 20 [X] 2 "!"
13
8 17
6 10
6 17
22 3
23 16
10 00001265
5 1
8 10
6 13
6 10
18 2
12 00001467
10 00001505
5 1
6 10
3 0
8 10
10 00001388
6 10
6 10
22 16
23 3
10 00001432
0 31 9000 &3
0 271 "loadem" 200
0 271 "count" 1
0 264 "count" 1
20 00003251
19 00003251
0 271 "Setfont:hFont" 1
0 265 "Setfont:hFont"
13
7 ""
18 1
11 00001676
0 31 20 1
0 47 112 "{5}!helpme"
0 41 9000 "{5}!showdesc"
0 41 9003 "{5}!showdesc"
0 41 70 "{5}!Add"
0 41 71 "{5}!Del"
0 41 77 "{5}!cwp"
0 41 20 "{5}!sorttype"
0 41 0 "{5}!PreBuild"
16 loadlist ""
0 26 "." "showfiles"
13
8 18
5 0
6 18
18 0
11 00001970
10 00003251
10 00003251
5 4
6 18
18 0
11 00002055
16 savelist ""
16 freeit ""
6 0
15
9
10 00003251
5 3
6 18
18 0
11 00002407
16 savelist ""
16 freeit ""
0 27 9000
13
8 19
0 20 "{19}" 2 "|"
13
8 20
0 18 "{20}"
13
8 6
6 6
0 18 "_info.smm"
13
18 0
11 00002281
0 3 "You are already running {6}"
10 00002370
0 2 "Run the macro ""{6}""?"
13
8 21
6 21
5 1
18 0
11 00002370
0 296 0
16 "{6}"
0 285 "{5}" "00:00.02"
10 00003251
5 1
6 18
18 0
11 00003251
16 savelist ""
16 freeit ""
0 1050
13
0 805 &22 [X]
13
5 1
18 5
11 00002535
10 00002855
6 22
21 23 [X]
0 1051 &23
5 0
8 24
5 1
8 10
6 22
6 10
18 2
12 00002665
10 00002784
5 1
6 10
3 0
8 10
10 00002586
6 10
22 23
0 17 [X]
13
0 138 1 [X] "goodies.sam"
13
5 0
18 3
11 00002771
5 1
8 24
10 00002784
10 00002630
6 24
5 0
18 0
11 00003013
5 1
8 25
6 22
5 1
18 5
11 00002938
0 286 "amipro" "defstyle" "amipro.ini"
13
8 26
2 101 1 "{26}" 0 0
5 129
8 25
0 268
13
0 16 [X] "goodies.sam"
13
2 102 1 [X] "{25}" ""
10 00003044
0 1029 "goodies.sam"
2 210 1
0 27 9000
13
8 19
0 20 "{19}" 2 "|"
13
0 18 [X]
13
8 20
0 1049 "{20}"
13
8 27
2 488 1 0 0 8197 "{20}" ""
0 6 "[27]"
0 7 "Choose resume to return to AutoRun"
0 285 "{5}" "00:00.02"
6 0
15
9
16 freeit ""
0 265 "Setfont:hFont"
13
8 28
5 0
6 28
18 1
11 00003364
0 284 "gdi,DeleteObject,HH" "{28}"
0 266 "Setfont:hFont"
13
8 29
0 296 0
0 789 ""
6 0
15
9
14 PreBuild
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 128 0 0 0 0 "System"
13
8 4
6 4
11 00000374
0 44 "{0}" 9000
13
8 5
0 44 "{0}" 9002
13
8 6
0 44 "{0}" 8007
13
8 7
0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
0 264 "Setfont:hFont" "{4}"
16 UngrayButtons "{0}"
16 sorttype "{0}" 20 1
6 3
15
9
14 UngrayButtons
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 0
0 265 "count"
13
5 0
18 3
11 00000173
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 1
6 1
15
9
14 freeit
0 266 "loadem"
0 266 "count"
6 1
15
9
14 saveit
0 296 1
16 savelist ""
0 296 0
6 1
15
9
14 showdesc
0 32 1
0 296 1
0 42 "{0}" "{1}"
13
8 5
0 20 "{5}" 2 "|"
13
0 17 [X]
13
8 6
20 00000157
19 00000157
0 43 "{0}" 8007 "{6}"
5 1
8 7
0 296 0
6 7
15
9
6 3
15
9
14 sorttype
0 42 "{0}" 20
13
8 4
6 4
5 1
18 0
11 00000235
0 44 "{0}" 9003
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 9000
13
0 284 "User,ShowWindow,AHH" [X] 1
5 9000
8 1
16 showdesc "{0}" "{1}" "{2}"
10 00000391
0 44 "{0}" 9000
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 9003
13
0 284 "User,ShowWindow,AHH" [X] 1
5 9003
8 1
16 showdesc "{0}" "{1}" "{2}"
6 3
15
9
DIALOG showfiles
-2134376448 17 49 45 280 158 "" "AmiDialog" "Autorun Macros"
FONT 8 "System"
6 3 60 8 1000 1342308352 "static" "Ma&cros:" 0
6 12 155 116 9003 1352728577 "listbox" "" 0
6 12 155 122 9000 1352728577 "listbox" "" 0
164 93 44 14 70 1342373888 "button" "&Install >>" 0
164 110 44 14 71 1342242816 "button" "<< Re&move" 0
212 66 46 8 1001 1342308352 "static" "I&nstalled:" 0
212 75 60 53 9002 1352728577 "listbox" "" 0
232 3 42 14 4 1342373888 "button" "OK" 0
232 19 42 14 2 1342373888 "button" "Cancel" 0
232 35 42 14 1 1342373889 "button" "&Details..." 0
232 51 42 14 3 1342373888 "button" "&Run..." 0
263 292 0 0 77 1342177280 "button" "&z" 0
45 140 70 10 8007 1342177280 "static" "" 0
65 1 1 1 8013 1342177280 "static" "" 0
34 3 110 8 8777 1342177281 "static" "" 0
6 140 38 10 1002 1342177280 "static" "File name:" 0
14 290 0 0 20 1342242819 "button" "show descriptions" 0
14 add
0 32 1
0 296 1
0 42 "{0}" 9000
13
8 3
0 20 "{3}" 2 "|"
13
0 17 [X]
13
8 4
0 17 "{4}"
13
16 ckauto [X]
13
5 1
18 1
11 00000163
5 0
15
9
0 265 "count"
13
8 5
5 1
8 6
6 5
6 6
18 2
12 00000272
10 00000448
5 1
6 6
3 0
8 6
10 00000197
6 4
7 ""
18 1
11 00000435
6 4
0 273 "loadem" "{6}"
13
0 17 [X]
13
18 0
11 00000435
0 3 "That macro is already set to ""AutoRun"""
0 296 0
5 1
15
9
10 00000239
0 43 "{0}" 9002 "{4}"
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 1
0 265 "count"
13
5 1
3 0
8 5
0 272 "loadem" "{5}" "{4}"
0 264 "count" "{5}"
0 42 "{0}" 9002
13
7 ""
18 0
11 00000712
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 0
0 296 0
6 1
15
9
14 del
0 32 1
0 296 1
0 42 "{0}" 9002
13
8 2
6 2
7 ""
18 0
11 00000093
5 0
15
9
0 44 "{0}" 9002
13
8 3
0 1036 "{3}" 1029 0 0
0 265 "count"
13
8 4
6 4
5 0
18 0
11 00000263
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 0
5 0
15
9
5 1
8 5
6 4
6 5
18 2
12 00000348
10 00000540
5 1
6 5
3 0
8 5
10 00000273
0 273 "loadem" "{5}"
13
8 6
6 6
6 2
18 0
11 00000446
0 272 "loadem" "{5}" ""
10 00000527
6 6
7 ""
18 1
11 00000499
0 43 "{0}" 9002 "{6}"
0 272 "loadem" "{5}" "{6}"
10 00000315
0 296 0
0 42 "{0}" 9002
13
8 7
6 7
7 ""
18 0
11 00000661
0 44 "{0}" 71
13
0 284 "user,EnableWindow,HHH" [X] 0
6 1
15
9
14 helpme
0 26 "." "help"
13
8 2
6 1
15
9
DIALOG help
-2134376448 5 59 30 160 124 "" "" "Info Help"
FONT 8 "Helv"
60 105 40 14 1 1342242817 "button" "OK" 0
11 21 138 18 1001 1342177280 "static" "Select a feature and choose Install to make it AutoRun." 0
6 7 148 89 80 1342177287 "button" "Macro Install" 0
11 42 138 18 1002 1342177280 "static" "Choose Details to view detailed information about a feature." 0
11 64 138 18 1000 1342177280 "static" "To see a demonstration of the feature, choose Run." 0
14 loadlist
0 32 1
0 296 1
0 1288
13
8 2
0 16 "{2}" "amiauto.cfg"
13
8 3
0 280 "{3}" 33
13
8 4
6 4
7 ""
18 0
11 00000162
7 "w"
8 5
10 00000174
7 "r"
8 5
0 259 "{3}" "{5}"
13
8 6
6 6
5 1
18 5
11 00000285
0 3 "Unable to create file AMIAUTO.CFG"
5 -1
15
9
6 5
7 "w"
18 0
11 00000329
10 00000526
20 00000526
19 00000526
5 0
8 7
5 1
11 00000526
0 257 "{6}"
13
8 8
6 8
5 -1
18 0
11 00000448
10 00000526
6 7
5 1
3 0
8 7
0 272 "loadem" "{7}" "{8}"
0 31 9002 "{8}"
10 00000365
0 260 "{6}"
0 264 "count" "{7}"
0 296 0
6 1
15
9
14 savelist
0 32 1
0 296 1
0 1288
13
8 2
0 16 "{2}" "amiauto.cfg"
13
8 3
0 259 "{3}" "w"
13
8 5
6 5
5 1
18 5
11 00000198
0 3 "Unable to save file AMIAUTO.CFG"
0 296 0
5 -1
15
9
20 00000434
19 00000434
0 265 "count"
13
8 6
5 1
8 7
6 6
6 7
18 2
12 00000333
10 00000434
5 1
6 7
3 0
8 7
10 00000258
0 273 "loadem" "{7}"
13
0 805 &4 [X]
13
7 ""
18 1
11 00000421
0 258 "{5}" "{4}"
10 00000300
0 260 "{5}"
0 296 0
16 zproglod ""
6 1
15
9
14 zgood
0 133 "{0}" 1 2
13
8 2
0 134 "{0}"
13
0 133 "{0}" 3 [X]
13
8 3
7 "td"
6 2
18 0
11 00000136
16 "{3}"
10 00000412
7 "ar"
6 2
18 0
11 00000363
16 ckauto "{3}"
13
8 4
6 4
5 1
18 1
11 00000271
0 3 "{3} not intended to AutoRun"
5 -1
15
9
16 zmkauto "{3}"
13
5 1
18 0
11 00000350
0 3 "{3} installed as AutoRun."
10 00000412
7 "si"
6 2
18 0
11 00000412
16 _autorun.smm
6 1
15
9
14 ckauto
0 32 1
0 296 1
0 259 "{0}" "r"
13
8 2
6 2
5 1
18 5
11 00000134
0 789 "Unable to read file"
0 296 0
5 -1
15
9
20 00000580
19 00000580
7 ""
8 3
0 15 "[[" 1 1
13
8 4
6 3
7 "{4}desc]"
18 1
11 00000333
0 257 "{2}"
13
8 3
6 3
5 -1
18 0
11 00000320
0 260 "{2}"
0 296 0
5 -1
15
9
10 00000195
5 1
8 6
5 4
6 6
18 2
12 00000418
10 00000444
5 1
6 6
3 0
8 6
10 00000343
0 257 "{2}"
10 00000385
0 257 "{2}"
13
0 20 [X] 2 "    "
13
0 18 [X]
13
0 805 &5 [X]
13
7 "NOAUTORUN"
18 0
11 00000570
5 0
8 7
10 00000580
5 1
8 7
0 260 "{2}"
0 296 0
6 7
15
9
6 1
15
9
14 GetName
0 42 "{0}" "{1}"
13
8 4
0 20 "{4}" 2 "|"
13
8 5
0 43 "{0}" 2 "{5}"
6 3
15
9
14 LoadDocDesc
0 295
13
8 3
5 1
8 6
0 265 "autodesctotal"
13
8 7
5 1
8 8
6 7
6 8
18 2
12 00000159
10 00000559
5 1
6 8
3 0
8 8
10 00000084
6 8
22 1
8 9
0 789 "Loading description for file {9}..."
5 0
0 259 "{3}{9}" "r"
13
0 805 &5 [X]
13
18 1
11 00000546
16 GetDocInfo "{5}"
13
8 4
6 4
5 -1
18 1
11 00000533
0 16 "{4}" "                                                                      |" "{9}"
13
8 10
0 134 "{4}"
13
5 1
18 3
11 00000533
0 1041 &0 "{6}" "{10}"
6 6
5 1
3 0
8 6
0 260 "{5}"
10 00000126
0 296 0
0 789 ""
6 2
15
9
14 DiskFmtToAnsi
0 138 1 "{0}" "<<"
13
11 00000636
7 ""
8 3
5 1
8 4
7 ""
0 133 "{0}" "{4}" 1
13
0 805 &2 [X]
13
18 1
11 00000626
6 4
5 1
3 0
8 4
6 2
7 "<<"
18 0
11 00000586
0 133 "{0}" "{4}" 1
13
8 2
6 4
5 1
3 0
8 4
6 2
7 "<<"
18 1
11 00000586
0 133 "{0}" "{4}" 1
13
8 5
6 4
5 2
3 0
8 4
7 "*"
6 2
18 0
11 00000418
0 40 "{5}"
13
5 32
3 1
0 39 [X]
13
8 2
10 00000586
7 "/"
6 2
18 0
11 00000508
0 40 "{5}"
13
5 64
3 0
0 39 [X]
13
8 2
10 00000586
7 "\"
6 2
18 0
11 00000586
0 40 "{5}"
13
5 128
3 0
0 39 [X]
13
8 2
0 16 "{3}" "{2}"
13
8 3
10 00000076
6 3
8 0
6 0
15
9
6 1
15
9
14 GetDocInfo
7 ""
0 782 "{0}" 500
13
0 805 &2 [X]
13
18 0
11 00000092
7 ""
15
9
5 0
0 138 1 "{2}" "esc]"
13
0 805 &3 [X]
13
18 1
11 00000509
6 3
5 384
3 0
0 133 "{2}" "{3}" [X]
13
8 4
0 20 "{4}" 2 "    "
13
8 5
0 20 "{4}" 6 "    "
13
8 6
0 17 "{6}"
13
0 138 1 [X] "noautorun"
13
5 0
18 1
11 00000345
5 -1
15
9
0 134 "{5}"
13
5 1
3 1
8 7
0 133 "{5}" 1 "{7}"
13
8 5
6 7
5 80
18 3
11 00000464
0 133 "{5}" 1 80
13
8 5
16 DiskFmtToAnsi "{5}"
13
8 5
6 5
15
9
6 1
15
9
14 countfiles
7 "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
8 3
7 "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
8 4
7 "AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
8 5
0 16 "{4}" "{3}" "{5}"
13
8 4
0 271 "autodesctotal" 1
5 0
8 6
0 280 "{0}" 1
13
8 7
6 7
7 ""
18 0
11 00000387
0 264 "autodesctotal" "{6}"
6 6
15
9
0 138 1 "{4}" "{7}"
13
5 0
18 0
11 00000462
5 1
8 6
5 1
6 7
23 1
5 1
11 00000644
0 281
13
8 7
6 7
7 ""
18 0
11 00000539
10 00000644
0 138 1 "{4}" "{7}"
13
5 0
18 0
11 00000631
6 6
5 1
3 0
8 6
0 1041 &1 "{6}" "{7}"
10 00000462
0 264 "autodesctotal" "{6}"
6 6
15
9
6 2
15
9
14 zproglod
0 802
13
8 2
0 274 001
0 32 1
0 286 "amipro" "automacroload" "amipro.ini"
13
0 17 [X]
13
8 3
7 "_autorun.smm!zrunmacs"
0 20 "{3}" 2 ","
13
0 805 &1 [X]
13
18 0
11 00000227
5 1
15
9
10 00000387
7 "zrunmacs.smm"
0 20 "{3}" 2 ","
13
0 805 &1 [X]
13
18 0
11 00000387
0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
5 1
15
9
5 1
0 20 "{3}" 1 ","
13
18 0
11 00000451
16 zmkauto "{1}"
0 287 "amipro" "automacroload" "1,_autorun.smm!zrunmacs" "amipro.ini"
6 0
15
9
14 zmkauto
0 32 1
0 1288
13
8 3
0 16 "{3}" "amiauto.cfg"
13
8 4
0 280 "{4}" 33
13
8 5
6 5
7 ""
18 0
11 00000250
0 259 "{4}" "w"
13
8 6
6 6
5 1
18 5
11 00000237
0 3 "Unable to create file AMIAUTO.CFG."
5 -1
15
9
0 260 "{6}"
0 259 "{4}" "r"
13
8 6
6 6
5 1
18 5
11 00000358
0 3 "Unable to read file AMIAUTO.CFG."
5 -1
15
9
5 1
11 00000537
0 257 "{6}"
13
0 805 &2 [X]
13
5 0
18 3
11 00000511
0 17 "{0}"
13
0 17 "{2}"
13
18 0
11 00000498
5 0
15
9
10 00000524
10 00000537
10 00000358
0 260 "{6}"
0 259 "{4}" "a"
13
8 6
6 6
5 1
18 5
11 00000658
0 3 "Unable to open file AMIAUTO.CFG."
5 -1
15
9
0 17 "{0}"
13
0 258 "{6}" [X]
0 260 "{6}"
16 zproglod
5 1
15
9
6 1
15
9
14 zrunmacs
0 32 1
0 1288
13
8 1
0 16 "{1}" "amiauto.cfg"
13
8 2
0 280 "{2}" 33
13
8 3
6 3
7 ""
18 0
11 00000140
6 0
15
9
0 259 "{2}" "r"
13
8 4
6 4
5 1
18 5
11 00000247
0 3 "Unable to open file AMIAUTO.CFG"
5 -1
15
9
20 00000462
19 00000462
5 100
21 5 [X]
5 0
8 6
5 1
11 00000462
0 257 "{4}"
13
8 7
6 7
5 -1
18 0
11 00000383
10 00000462
6 7
7 ""
18 1
11 00000449
6 6
5 1
3 0
8 6
6 6
6 7
23 5
10 00000300
0 260 "{4}"
5 1
8 8
6 6
6 8
18 2
12 00000560
10 00000599
5 1
6 8
3 0
8 8
10 00000485
6 8
22 5
8 7
16 "{7}"
10 00000527
6 0
15
9
00037210