Liren Large Software Subsidy 18/18.iso/w/w380/6.ddi/PROSWITC.CMZ/_AUTORUN.SMM

INI File | 1992-06-19 | 48.0 KB | 2,827 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Autorun multiple macros
    Lotus WPD Marketing
    Advanced
    Global Arrays, Callbacks, fopen
    noautorun
    708976967
    100
    679268150
    2287
    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
[edoc]
<:#240,9360>Macro by <+!>Charlie Pappas,  Mark Osborne & David Zoller<-!>

<:#231,9360>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@Function@<:#293,9360>function info()

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'singlestep(0)<:f>

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

@Outline2@<:#231,9360>Dim Descs(1)

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

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

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

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

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

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

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

@Outline3@<:#231,9360>    Else

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

@Outline3@<:#231,9360>    Endif

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

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

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

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

@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>

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

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

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

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

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

@Outline3@<:#231,9360>    next

@Outline3@<:#231,9360>else

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

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

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

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

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

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

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

@Outline3@<:#231,9360>        endif

@Outline3@<:#231,9360>    next

@Outline3@<:#231,9360>endif

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@Outline3@<:#231,9360>endif

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

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>loadlist()

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

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

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

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

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

@Outline3@<:#231,9360>        savelist()

@Outline3@<:#231,9360>        freeit()

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

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

@Outline3@<:#231,9360>        savelist()

@Outline3@<:#231,9360>        freeit()

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

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

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

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

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

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

@Outline3@<:#231,9360>        endif

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

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

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

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

@Outline3@<:#231,9360>        endif

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

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

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

@Outline3@<:#231,9360>        defstr count;

@Outline3@<:#231,9360>        savelist()

@Outline3@<:#231,9360>        freeit()

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

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

@Outline3@<:#231,9360>        endif

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

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

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

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

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

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

@Outline3@<:#231,9360>                break

@Outline3@<:#231,9360>            endif

@Outline3@<:#231,9360>        next

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

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

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

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

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

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

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

@Outline3@<:#231,9360>            endif

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

@Outline3@<:#231,9360>        else

@Outline3@<:#231,9360>            appmaximize("goodies.sam")

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

@Outline3@<:#231,9360>        endif

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

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

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

@Outline3@<:#231,9360>'        GoToCmd(1, markPage, 0)

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

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

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

@Outline3@<:#231,9360>        usercontrol("Choose resume to return to AutoRun.")

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

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

@Outline2@<:#231,9360>endswitch

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

@Outline2@<:#231,9360>freeit()

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

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

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

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

@Outline3@<:#231,9360>endif

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

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

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

@Function@<:#293,9360>Function PreBuild(hdlg, id, dummy)

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

@Outline3@<:#231,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")

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

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

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

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

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

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

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

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

@Outline3@<:#231,9360>endif

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

@Function@<:#293,9360>function freeit() <:f240,BArial,0,0,255>' free globals<:f>

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

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

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

@Function@<:#293,9360>function saveit(hdlg)

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

@Outline2@<:#231,9360>savelist()

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

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

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

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

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

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

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

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

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

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

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

@Function@<:#293,9360>function sorttype(Hdlg,id,dummy)

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

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

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

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

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

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

@Outline2@<:#231,9360>else

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

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

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

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

@Outline2@<:#231,9360>endif

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

@Function@<:#293,9360>DIALOG    showfiles

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

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

@Outline2@<:#231,9360>        endif

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>next

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

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

@Outline2@<:#231,9360>    else

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

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

@Outline2@<:#231,9360>        endif

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

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>next

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

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

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

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

@Outline2@<:#231,9360>endif

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

@Function@<:#293,9360>function helpme(hdlg)

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

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

@Function@<:#293,9360>DIALOG help

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

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

@Subhead@<:#231,9360>windir = getwindowsdirectory$()

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

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

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

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

@Outline2@<:#231,9360>else

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

@Outline2@<:#231,9360>endif

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

@Outline2@<:#231,9360>        break

@Outline2@<:#231,9360>    endif

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

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

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

@Outline2@<:#231,9360>wend

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

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

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

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

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

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

@Subhead@<:#231,9360>windir = getwindowsdirectory$()

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

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>next

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

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

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

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

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

@Function@<:#293,9360>function zgood(macro)

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

@Outline2@<:#231,9360>which = left$(macro, 2)

@Outline2@<:#231,9360>mac = mid$(macro, 3, len(macro))

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>        endif

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

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

@Outline2@<:#231,9360>        endif

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

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

@Outline2@<:#231,9360>endswitch

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

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>function cwp(hdlg)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>again:

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>p = 004

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "--<;><;> Pete <<<<--")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Mark Osborne")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peter Housley")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Hugh Marlor")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "John McDaniel")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Peyton McManus")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Robert Pernett")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Powell Smith")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Sandra Wilson")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "David Zoller")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>setdlgitemtext(hdlg, 8777, "Charlie Pappas")

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>pause(p)

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>goto again

@Outline2@<:S+14><:#14,9360><:f20,QCourier,255,255,255>end function

@Function@<:#293,9360>function ckauto(file)

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>wend

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

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

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

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

@Outline2@<:#231,9360>next

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

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

@Outline2@<:#231,9360>else

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

@Function@<:#293,9360>function GetName(hdlg, id, dummy)

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

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

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

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

@Function@<:#293,9360>Function LoadDocDesc(Descs)

@Outline2@<:#231,9360>Mac = GetMacPath$()

@Outline2@<:#231,9360>numfiles = countfiles("{mac}*.smm")

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

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

@Outline2@<:#231,9360>x=1

@Outline2@<:#231,9360>dir=Mac

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

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

@Outline2@moredonts="AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"

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

@Outline2@<:#231,9360>Name=FindFirst$("{Dir}*.smm",1)

@Outline2@<:#231,9360>    While Name<<<;>""

@Outline2@<:#231,9360>        StatusBarMsg("Loading file {x} of {numfiles}")

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

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

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

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

@Outline2@<:#231,9360>                    if len(DInfo) <;> 1

@Outline2@<:#231,9360>                        if instr(0, dontuse, ucase$(Name)) = 0

@Outline2@<:#231,9360>                            ArrayInsert(&Descs,x,Data)

@Outline2@<:#231,9360>                            X=x+1

@Outline2@<:#231,9360>                        endif

@Outline2@<:#231,9360>                    endif

@Outline2@<:#231,9360>                endif

@Outline2@<:#231,9360>            Endif

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

@Outline2@<:#231,9360>        Name=FindNext$()

@Outline2@<:#231,9360>    Wend

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

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

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

@Function@<:#293,9360>Function GetDocInfo(Fh)

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

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

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

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

@Outline2@<:#231,9360>Endif

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

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

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

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

@Outline2@<:#231,9360>    if instr (0, lcase$(autorunstat), "noautorun") != 0

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

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>    lenRealDesc= len (RealDesc) - 1

@Outline2@<:#231,9360>    RealDesc = left$(RealDesc, lenRealDesc)

@Outline2@    RealDesc = left$(RealDesc, 80)

@Outline2@    Return RealDesc

@Outline2@<:#231,9360>Endif

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

@Function@<:#293,9360>function countfiles(filespec)

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

@Outline2@<:#231,9360>while name <<<;> ""

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

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

@Outline2@<:#231,9360>wend

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

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

@Function@<:#293,9360>function zproglod()

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

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

@Outline2@pause(001)

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

@Outline2@<:#231,9360>endif

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

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

@Function@<:#293,9360>FUNCTION zmkauto(macro)

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

@Outline2@<:#231,9360>ignorekeyboard(2)

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

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

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

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

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

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

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

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

@Outline2@<:#231,9360>    endif

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

@Outline2@<:#231,9360>endif

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

@Outline2@<:#231,9360>        endif

@Outline2@<:#231,9360>    else

@Outline2@<:#231,9360>        break

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>wend

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

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

@Function@<:#293,9360>function zrunmacs()

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

@Outline2@<:#231,9360>ignorekeyboard(2)

@Subhead@<:#231,9360>windir = getwindowsdirectory$()

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

@Outline2@<:#231,9360>endif

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

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

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

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

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

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

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

@Outline2@<:#231,9360>        break

@Outline2@<:#231,9360>    endif

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

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

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

@Outline2@<:#231,9360>    endif

@Outline2@<:#231,9360>wend

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

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

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

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

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

@Outline2@<:#231,9360>next

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

>

[Embedded]
00034899
>
[macsum] 24
info 0 0 29 21
PreBuild 3323 3 5 172
UngrayButtons 3753 1 1 187
freeit 3938 0 1 194
saveit 3992 1 1 198
showdesc 4046 3 5 203
sorttype 4236 3 2 217
showfiles 4639 0 -1 231
add 5564 1 6 252
del 6297 1 7 281
helpme 6970 1 2 312
help 7019 0 -1 315
loadlist 7494 0 8 324
savelist 8075 0 7 360
zgood 8559 1 4 385
cwp 8979 1 2 405
ckauto 9531 1 7 432
GetName 10157 3 3 468
LoadDocDesc 10255 1 12 473
GetDocInfo 11132 1 7 505
countfiles 11584 1 3 524
zproglod 11726 0 4 532
zmkauto 12260 1 6 549
zrunmacs 13001 0 9 589
[macse]
14 info
0 32 2
0 296 1
5 1
21 3 [X]
0 802
13
8 4
0 295
13
8 5
16 countfiles "{5}*.smm"
13
8 6
0 271 "DescAndName" "{6}"
13
8 7
0 265 "DescAndName"
13
7 ""
18 0
11 00000613
5 0
16 LoadDocDesc &3
13
0 805 &1 [X]
13
18 0
11 00000272
10 00000272
0 266 "DescAndName"
0 1046 &3
13
8 8
6 8
5 1
3 0
8 8
0 271 "DescAndName" "{8}"
0 272 "DescAndName" 1 "{8}"
5 2
8 9
6 8
5 1
3 1
6 9
18 2
12 00000484
10 00000600
5 1
6 9
3 0
8 9
10 00000399
6 8
6 9
3 1
8 10
0 789 "Files remaining: {10}"
6 9
22 3
8 11
0 272 "DescAndName" "{9}" "{11}"
10 00000451
10 00000900
0 273 "DescAndName" 1
13
8 6
5 1
8 9
6 6
6 9
18 2
12 00000730
10 00000900
5 1
6 9
3 0
8 9
10 00000655
6 6
6 9
3 1
8 10
0 789 "Files remaining: {10}"
6 9
5 1
3 0
0 273 "DescAndName" [X]
13
8 11
6 11
7 ""
18 1
11 00000887
0 1041 &3 "{9}" "{11}"
10 00000697
0 789 ""
0 1046 &3
13
8 12
6 12
21 13 [X]
5 1
8 9
6 12
6 9
18 2
12 00001034
10 00001126
5 1
6 9
3 0
8 9
10 00000958
6 9
22 3
0 20 [X] 2 "|"
13
0 16 [X] "!" "{9}"
13
8 14
6 9
6 14
23 13
10 00001001
0 1043 &13
6 12
21 15 [X]
5 1
8 9
6 12
6 9
18 2
12 00001241
10 00001316
5 1
6 9
3 0
8 9
10 00001165
6 9
22 13
0 20 [X] 2 "!"
13
8 16
6 9
6 16
22 3
23 15
10 00001208
5 1
8 9
6 12
6 9
18 2
12 00001402
10 00001438
5 1
6 9
3 0
8 9
10 00001326
6 9
6 9
22 15
23 3
10 00001369
0 31 9000 &3
0 271 "loadem" 100
0 271 "count" 1
0 264 "count" 1
20 00003159
19 00003159
0 271 "Setfont:hFont" 1
0 265 "Setfont:hFont"
13
7 ""
18 1
11 00001609
0 31 20 1
0 47 112 "{4}!helpme"
0 41 9000 "{4}!showdesc"
0 41 9003 "{4}!showdesc"
0 41 70 "{4}!Add"
0 41 71 "{4}!Del"
0 41 77 "{4}!cwp"
0 41 20 "{4}!sorttype"
0 41 0 "{4}!PreBuild"
16 loadlist
0 26 "." "showfiles"
13
8 17
5 0
6 17
18 0
11 00001900
10 00003159
10 00003159
5 4
6 17
18 0
11 00001979
16 savelist
16 freeit
6 0
15
9
10 00003159
5 3
6 17
18 0
11 00002325
16 savelist
16 freeit
0 27 9000
13
8 18
0 20 "{18}" 2 "|"
13
8 19
0 18 "{19}"
13
8 5
6 5
0 18 "_info.smm"
13
18 0
11 00002199
0 3 "You are already running {5}"
10 00002288
0 2 "Run the macro ""{5}""?"
13
8 20
6 20
5 1
18 0
11 00002288
0 296 0
16 "{5}"
0 285 "{4}" "00:00.02"
10 00003159
5 1
6 17
18 0
11 00003159
16 savelist
16 freeit
0 1050
13
0 805 &21 [X]
13
5 1
18 5
11 00002447
10 00002762
6 21
21 22 [X]
0 1051 &22
5 0
8 23
5 1
8 9
6 21
6 9
18 2
12 00002573
10 00002691
5 1
6 9
3 0
8 9
10 00002497
6 9
22 22
0 17 [X]
13
0 808 1 [X] "goodies.sam"
13
5 0
18 3
11 00002678
5 1
8 23
10 00002691
10 00002540
6 23
5 0
18 0
11 00002920
5 1
8 24
6 21
5 1
18 5
11 00002845
0 286 "amipro" "defstyle" "amipro.ini"
13
8 25
2 101 1 "{25}" 0 0
5 129
8 24
0 268
13
0 16 [X] "goodies.sam"
13
2 102 1 [X] "{24}" ""
10 00002951
0 1029 "goodies.sam"
2 210 1
0 27 9000
13
8 18
0 20 "{18}" 2 "|"
13
0 18 [X]
13
8 19
0 1049 "{19}"
13
8 26
2 488 1 0 0 8197 "{19}" ""
0 6 "[27]"
0 7 "Choose resume to return to AutoRun."
0 285 "{4}" "00:00.02"
6 0
15
9
16 freeit
0 265 "Setfont:hFont"
13
8 27
5 0
6 27
18 1
11 00003269
0 284 "gdi,DeleteObject,HH" "{27}"
0 266 "Setfont:hFont"
13
8 28
0 296 0
6 0
15
9
14 PreBuild
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
6 4
11 00000370
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 0
15
9
14 saveit
0 296 1
16 savelist
0 296 0
6 1
15
9
14 showdesc
0 32 2
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 140 "" "AmiDialog" "Autorun Macros"
FONT 8 "Helv"
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 128 70 10 8007 1342177280 "static" "" 0
65 1 1 1 8013 1342177280 "static" "" 0
34 3 110 8 8777 1342177281 "static" "" 0
6 128 38 10 1002 1342177280 "static" "File name:" 0
14 290 0 0 20 1342242819 "button" "show descriptions" 0
14 add
0 32 2
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 2
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 2
0 296 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 00000162
7 "w"
8 4
10 00000174
7 "r"
8 4
0 259 "{2}" "{4}"
13
8 5
6 5
5 1
18 5
11 00000285
0 3 "Unable to create file AMIAUTO.CFG"
5 -1
15
9
6 4
7 "w"
18 0
11 00000329
10 00000526
20 00000526
19 00000526
5 0
8 6
5 1
11 00000526
0 257 "{5}"
13
8 7
6 7
5 -1
18 0
11 00000448
10 00000526
6 6
5 1
3 0
8 6
0 272 "loadem" "{6}" "{7}"
0 31 9002 "{7}"
10 00000365
0 260 "{5}"
0 264 "count" "{6}"
0 296 0
6 0
15
9
14 savelist
0 32 2
0 296 1
0 1288
13
8 1
0 16 "{1}" "amiauto.cfg"
13
8 2
0 259 "{2}" "w"
13
8 4
6 4
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 5
5 1
8 6
6 5
6 6
18 2
12 00000333
10 00000434
5 1
6 6
3 0
8 6
10 00000258
0 273 "loadem" "{6}"
13
0 805 &3 [X]
13
7 ""
18 1
11 00000421
0 258 "{4}" "{3}"
10 00000300
0 260 "{4}"
0 296 0
16 zproglod ""
6 0
15
9
14 zgood
0 806 "{0}" 2
13
8 2
0 14 "{0}"
13
0 15 "{0}" 3 [X]
13
8 3
7 "td"
6 2
18 0
11 00000132
16 "{3}"
10 00000408
7 "ar"
6 2
18 0
11 00000359
16 ckauto "{3}"
13
8 4
6 4
5 1
18 1
11 00000267
0 3 "{3} not intended to AutoRun"
5 -1
15
9
16 zmkauto "{3}"
13
5 1
18 0
11 00000346
0 3 "{3} installed as AutoRun."
10 00000408
7 "si"
6 2
18 0
11 00000408
16 _autorun.smm
6 1
15
9
14 cwp
5 004
8 2
0 43 "{0}" 8777 "-->> Pete <<<<--"
0 274 "{2}"
0 43 "{0}" 8777 "Mark Osborne"
0 274 "{2}"
0 43 "{0}" 8777 "Peter Housley"
0 274 "{2}"
0 43 "{0}" 8777 "Hugh Marlor"
0 274 "{2}"
0 43 "{0}" 8777 "John McDaniel"
0 274 "{2}"
0 43 "{0}" 8777 "Peyton McManus"
0 274 "{2}"
0 43 "{0}" 8777 "Robert Pernett"
0 274 "{2}"
0 43 "{0}" 8777 "Powell Smith"
0 274 "{2}"
0 43 "{0}" 8777 "Sandra Wilson"
0 274 "{2}"
0 43 "{0}" 8777 "David Zoller"
0 274 "{2}"
0 43 "{0}" 8777 "Charlie Pappas"
0 274 "{2}"
10 00000008
6 1
15
9
14 ckauto
0 32 2
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 2
16 countfiles "{2}*.smm"
13
8 3
5 1
8 6
6 2
8 7
7 "SKDATA1.SMM SKDATA2.SMM SKAUTO.SMM SKEXIT.SMM"
8 8
7 "AUTOCLOS.SMM AUTOOPEN.SMM AUTONEW.SMM AUTOEXIT.SMM AUTOEXEC.SMM"
8 9
7 "AUTOCAL.SMM TOAGEN.SMM TOALONG.SMM TOAREMOV.SMM TOASHORT.SMM FAX.SMM"
8 10
0 16 "{9}" "{8}" "{10}"
13
8 9
0 280 "{7}*.smm" 1
13
8 11
6 11
7 ""
18 1
11 00000846
0 789 "Loading file {6} of {3}"
5 0
0 259 "{7}{11}" "r"
13
0 805 &5 [X]
13
18 1
11 00000803
16 GetDocInfo "{5}"
13
8 4
6 4
5 -1
18 1
11 00000803
0 16 "{4}" "                                                                      |" "{11}"
13
8 12
0 14 "{4}"
13
5 1
18 3
11 00000803
0 18 "{11}"
13
0 808 0 "{9}" [X]
13
5 0
18 0
11 00000803
0 1041 &0 "{6}" "{12}"
6 6
5 1
3 0
8 6
0 260 "{5}"
0 281
13
8 11
10 00000361
0 296 0
0 789 ""
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 808 1 "{2}" "esc]"
13
0 805 &3 [X]
13
18 1
11 00000440
6 3
5 384
3 0
0 15 "{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 808 0 [X] "noautorun"
13
5 0
18 1
11 00000344
5 -1
15
9
0 14 "{5}"
13
5 1
3 1
8 7
0 806 "{5}" "{7}"
13
8 5
0 806 "{5}" 80
13
8 5
6 5
15
9
6 1
15
9
14 countfiles
0 280 "{0}" 1
13
8 2
6 2
7 ""
18 1
11 00000118
6 3
5 1
3 0
8 3
0 281
13
8 2
10 00000039
6 3
15
9
6 1
15
9
14 zproglod
0 802
13
8 2
0 274 001
0 32 2
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 2
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 2
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
00034924