Liren Large Software Subsidy 14/14.iso/s/s005/52.ddi/SMM.LIB/AMISKDW4.SMM

INI File | 1993-11-03 | 62.8 KB | 4,051 lines

[ver]
    4
[sty]
    _macro.sty
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    3
    5
    Helvetica
    2818
    1029
    514
    514
    1026
    Helv
    2818
    1029
    514
    770
    1026
    Times New Roman
    514
    774
    1029
    517
    1027
[revisions]
    0
[recfile]

    *
    1
    1
    3
    8
    0
    0
[lang]
    1
[desc]
    Ami Pro Switchkit for DisplayWrite 4 users




    752348659
    168
    718998225
    14769
    15
    2227
    18460
    60
    65






    0
[prn]
    QMS-PS 810
[port]
    LPT1.OS2
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Function
    4
    [fnt]
        Helvetica
        240
        16727905
        49153
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        0
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Text
    2
    [fnt]
        Helvetica
        240
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        0

        0
        1
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        0
        0
        0
        0
        1
        1
        1440
        10800
        0
    [frght]
    [lyfrm]
        0
        13184
        0
        14400
        12240
        15840
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        15840
        12240
        1
        1440
        648
        1
        14472
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s>

>
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        12240
        1440
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        648
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s>

>
[elay]
[lay]
    1
    513
    [rght]
        15840
        12240
        1
        576
        720
        1
        892
        576
        0
        0
        0
        1
        0
        2
        1
        576
        11664
        12
        1
        990
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [frght]
    [lyfrm]
        0
        13184
        0
        15120
        12240
        15840
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        15192
        1440
        0
        0
        16777215
        0
        0
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
<:s><:#P30670848,P969933>

>
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        12240
        892
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        892
        12240
        1
        720
        72
        1
        360
        720
        0
        0
        16777215
        0
        0
        0
        1
        720
        11520
        2
        2
        4680
        3
        9360
    [txt]
<:s><:#P35389440,P969933><+@><:I0,0,0,0><:R1,3,2,5040,1,8375,3,10800,>

>
[elay]
[l1]
    1
[edoc]
<:s><:#P36333158,P969933>' By Mark Osborne, Mark Eagle & Charlie Pappas

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>DECLARE DlgKeyProc(hDlg,key)

<:s><:#P36333158,P969933>DECLARE FillBox(id,array)

<:s><:#P36333158,P969933>DECALRE GetId(key)

<:s><:#P36333158,P969933>DECLARE GetOnkeyEquiv(keysc)

<:s><:#P36333158,P969933>DECLARE GetTitle()

<:s><:#P36333158,P969933>DECLARE Init()

<:s><:#P36333158,P969933>DECLARE Initialize(hDlg,id,val)

<:s><:#P36333158,P969933>DECLARE LoadDlgKeyInterupts(Array)

<:s><:#P36333158,P969933>DECLARE LoadKS(hdlg,section)

<:s><:#P36333158,P969933>DECLARE LoadMenu()

<:s><:#P36333158,P969933>DECLARE LoadOnKeyKS()

<:s><:#P36333158,P969933>DECLARE LoadOnKeys()

<:s><:#P36333158,P969933>DECLARE LoadText(id,data)

<:s><:#P36333158,P969933>DECLARE Off()

<:s><:#P36333158,P969933>DECLARE Packstr(text)

<:s><:#P36333158,P969933>DECLARE ReadTopLevel(key)

<:s><:#P36333158,P969933>DECLARE SkAbout()

<:s><:#P36333158,P969933>DECLARE StripIt(text)

<:s><:#P36333158,P969933>DECLARE Test(param)

<:s><:#P36333158,P969933>DECLARE Test2(hDlg,id,val)

<:s><:#P36333158,P969933>DECLARE UnLoadMenu()

<:s><:#P36333158,P969933>DECLARE UnLoadOnKeys()

<:s><:#P36333158,P969933>DECLARE UnpackStr(text)

<:s><:#P36333158,P969933>DECLARE WriteToBox(hDlg,id,section)

<:s><:#P36333158,P969933>declare getprofile(section, item);

<:s><:#P36333158,P969933>define filename "amiskdw4.sam"

<:s><:#P36333158,P969933>define dlgbox "amiskdw4.dlg"

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function LoadMenu()

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>g_hgloss = strcat$("hgloss", filename)

<:s><:#P36333158,P969933>allocglobalvar(g_hgloss, 1)

<:s><:#P36333158,P969933>if getglobalvar$(g_hgloss) = ""

<:s><:#P36333158,P969933>    hgloss = glossaryopen(strcat$(getamidirectory$(), filename))

<:s><:#P36333158,P969933>    setglobalvar(g_hgloss, hgloss)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>menu = getprofile("Menus", "Menu") ' &Help

<:s><:#P36333158,P969933>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"

<:s><:#P36333158,P969933>item1 = getprofile("Menus", "Item1") ' &On

<:s><:#P36333158,P969933>item2 = getprofile("Menus", "Item2") ' O&ff

<:s><:#P36333158,P969933>item3 = getprofile("Menus", "Item3") ' &Main Menu...

<:s><:#P36333158,P969933>item4 = getprofile("Menus", "Item4") ' &About SwitchKit...

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>AllocGlobalVar("SKON",1)

<:s><:#P36333158,P969933>macfile = GetRunningMacroFile$()

<:s><:#P36333158,P969933>DeleteMenuItem(1,menu,item)

<:s><:#P36333158,P969933>InsertCascadeMenu(1,  menu , 7, item)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>AddCascadeMenuItem(1, menu,item,item1, "{macfile}!SKMain()","")

<:s><:#P36333158,P969933>AddCascadeMenuItem(1, menu, item,item2, "{macfile}!Off()","")

<:s><:#P36333158,P969933>AddCascadeMenuItem(1,menu, item, "-", "", "")

<:s><:#P36333158,P969933>AddCascadeMenuItem(1,menu, item, item4, "{macfile}!MainMenu", "")

<:s><:#P36333158,P969933>AddCascadeMenuItem(1, menu,item,"-", "","")

<:s><:#P36333158,P969933>AddCascadeMenuItem(1,menu,item,"&About SwitchKit...", "{macfile}!aboutsk","")

<:s><:#P36333158,P969933>CheckMenuItem(1, Menu,Item, item2,1)

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function getprofile(section, key)

<:s><:#P36333158,P969933>data = glossarylookup(getglobalvar$(strcat$("hgloss", filename)), strcat$(section, key))

<:s><:#P36333158,P969933>q = left$("""", 1)

<:s><:#P36333158,P969933>if left$(data, 1) = q

<:s><:#P36333158,P969933>    data = strfield$(data, 2, q)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>if right$(data, 1) = q

<:s><:#P36333158,P969933>    data = strfield$(data, 1, q)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>return data

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function LoadOnKeys()    'need to change this for other switch

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>macfile = GetRunningMacroFile$()

<:s><:#P36333158,P969933>OnKey(<[>F2],0, "{macfile}!ReadTopLevel(F2)")

<:s><:#P36333158,P969933>OnKey(<[>F3],0, "{macfile}!ReadTopLevel(F3)")

<:s><:#P36333158,P969933>OnKey(<[>F4],0, "{macfile}!ReadTopLevel(F4)")

<:s><:#P36333158,P969933>OnKey(<[>F5],0, "{macfile}!ReadTopLevel(F5)")

<:s><:#P36333158,P969933>OnKey(<[>F6],0, "{macfile}!ReadTopLevel(F6)")

<:s><:#P36333158,P969933>OnKey(<[>F7],0, "{macfile}!ReadTopLevel(F7)")

<:s><:#P36333158,P969933>OnKey(<[>F8],0, "{macfile}!ReadTopLevel(F8)")

<:s><:#P36333158,P969933>OnKey(<[>F9],0, "{macfile}!ReadTopLevel(F9)")

<:s><:#P36333158,P969933>OnKey(<[>F10],0, "{macfile}!ReadTopLevel(F10)")

<:s><:#P36333158,P969933>OnKey(<[>F11],0, "{macfile}!ReadTopLevel(F11)")

<:s><:#P36333158,P969933>OnKey(<[>F12],0, "{macfile}!ReadTopLevel(F12)")

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function skmain()                        'This is the main function

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>if GetOpenFileCount() << 1

<:s><:#P36333158,P969933>    message(getprofile("Msg", "msg1"))

<:s><:#P36333158,P969933>    exit function

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>SetGlobalVar("SKON",1)                'Flag for future switchkits to see it this one running

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>menu = getprofile("Menus", "Menu") ' &Help

<:s><:#P36333158,P969933>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"

<:s><:#P36333158,P969933>item1 = getprofile("Menus", "Item1") ' &On

<:s><:#P36333158,P969933>item2 = getprofile("Menus", "Item2") ' O&ff

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>CheckMenuItem(1, Menu,Item, item1,1)

<:s><:#P36333158,P969933>CheckMenuItem(1, Menu,Item, item2,0)

<:s><:#P36333158,P969933>AllocGlobalVar("AccKeys",30)

<:s><:#P36333158,P969933>AllocGlobalVar("levelflag",1)

<:s><:#P36333158,P969933>SetGlobalVar("levelflag",1)

<:s><:#P36333158,P969933>macfile = GetRunningMacroFile$()

<:s><:#P36333158,P969933>SetDlgCallBack(0, "{macfile}!Initialize")

<:s><:#P36333158,P969933>SetDlgCallBack(25,"{macfile}!EnterKeyProc")

<:s><:#P36333158,P969933>SetDlgCallBack(9000, "{macfile}!L9000")

<:s><:#P36333158,P969933>SetDlgCallBack(9003, "{macfile}!L9003")

<:s><:#P36333158,P969933>LoadOnKeys()

<:s><:#P36333158,P969933>LoadOnKeyKS()

<:s><:#P36333158,P969933>FreeGlobalVar("hDlg")

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function Initialize(hDlg,id,val)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>allocglobalvar("hDlg",1)

<:s><:#P36333158,P969933>SetGlobalVar("hDlg",hDlg)

<:s><:#P36333158,P969933>'hctrl = GetDlgItem(hDlg,9003 )         'disable the number list box

<:s><:#P36333158,P969933>'EnableWindow(hdlg, hctrl, 0)

<:s><:#P36333158,P969933><+!>DlgEnableControl(hdlg, 9003, 0)

<:s><:#P36333158,P969933><-!>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function LoadOnKeyKS()

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>macfile=getrunningmacrofile$()

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>ct = 1

<:s><:#P36333158,P969933>ignorekeyboard(1)

<:s><:#P36333158,P969933>while "" != Assign(&stat,Getprofile("KeyboardShortcuts",ct))

<:s><:#P36333158,P969933>    keysc = StrField$(stat,1,"~")            'this gets CTRL+F4

<:s><:#P36333158,P969933>    section = StrField$(stat,2,"~")            'this gets  End and Save

<:s><:#P36333158,P969933>    newkeysc =  GetOnkeyEquiv(keysc)        'Returns CTRLF4 in a from suitable for Onkeys

<:s><:#P36333158,P969933>    text = section

<:s><:#P36333158,P969933>    Onkey(newkeysc,0,"{macfile}!test(""{text}"")")

<:s><:#P36333158,P969933>    ct = ct + 1

<:s><:#P36333158,P969933>wend

<:s><:#P36333158,P969933>ignorekeyboard(0)

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function packstr(str)                    'Utility function to replace spaces with underscores

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>    newstr=""

<:s><:#P36333158,P969933>    l = len(str)

<:s><:#P36333158,P969933>    hit = 0

<:s><:#P36333158,P969933>    for i = 1 to l

<:s><:#P36333158,P969933>        char =  Mid$(str,i,1)

<:s><:#P36333158,P969933>        if char = " "

<:s><:#P36333158,P969933>            then char = "_"

<:s><:#P36333158,P969933>            hit = 1

<:s><:#P36333158,P969933>        endif

<:s><:#P36333158,P969933>        newstr = strcat$(newstr,char)

<:s><:#P36333158,P969933>    next

<:s><:#P36333158,P969933>    'message(newstr)

<:s><:#P36333158,P969933>    if hit = 1

<:s><:#P36333158,P969933>        return(newstr)

<:s><:#P36333158,P969933>    else

<:s><:#P36333158,P969933>        return(str)

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function unpackstr(str)                'utility function to replace underscores withs spaces

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>newstr=""

<:s><:#P36333158,P969933>l = len(str)

<:s><:#P36333158,P969933>hit = 0

<:s><:#P36333158,P969933>for i = 1 to l

<:s><:#P36333158,P969933>    char =  Mid$(str,i,1)

<:s><:#P36333158,P969933>    if char = "_"

<:s><:#P36333158,P969933>        then char = " "

<:s><:#P36333158,P969933>        hit = 1

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>    newstr = strcat$(newstr,char)

<:s><:#P36333158,P969933>next

<:s><:#P36333158,P969933>if hit = 1

<:s><:#P36333158,P969933>    return(newstr)

<:s><:#P36333158,P969933>else

<:s><:#P36333158,P969933>    return(str)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function test(param)                                'KsOnKey Proc

<:s><:#P36333158,P969933>ignorekeyboard(1)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>macfile= getrunningmacrofile$()

<:s><:#P36333158,P969933>SetDlgCallBack(0, "{macfile}!test2")                  'Used to get hdlg to call writetobox function

<:s><:#P36333158,P969933>SetDlgCallBack(25,"{macfile}!EnterKeyProc")

<:s><:#P36333158,P969933>SetDlgCallBack(9000, "{macfile}!L9000")

<:s><:#P36333158,P969933>SetDlgCallBack(9003, "{macfile}!L9003")

<:s><:#P36333158,P969933>allocglobalvar("section",1)

<:s><:#P36333158,P969933>'section = unpackstr(param)

<:s><:#P36333158,P969933>section = param                        'dont need this anymore

<:s><:#P36333158,P969933>setglobalvar("section",section)

<:s><:#P36333158,P969933>box = dialogbox(".", "SK")

<:s><:#P36333158,P969933>if box = 0

<:s><:#P36333158,P969933>    setglobalvar("levelflag",1)        'ESC from box set this back to 1 so that box will show on next call

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>SetDlgCallBack(9000, "{MacFile}!L9000")

<:s><:#P36333158,P969933>SetDlgCallBack(25,"{macfile}!EnterKeyProc")

<:s><:#P36333158,P969933>ignorekeyboard(0)

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function test2(hDlg,id,val)                'might need to do L callbacks now

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>id = 0                            'initialize - dont really need here

<:s><:#P36333158,P969933>section = getglobalvar$("section")        'get section from global variable

<:s><:#P36333158,P969933>level = WriteToBox(hDlg,0,section)            'send section to lookup and write to dlg box

<:s><:#P36333158,P969933>if level = 0                    'new

<:s><:#P36333158,P969933>    SetGlobalVar("levelflag",0)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function FillBox(id,array)

<:s><:#P36333158,P969933>FillEdit(id,&array)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function GetHotKeyOld(strdata)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>hotkeypos = strchr(1,strdata, "&")

<:s><:#P36333158,P969933>hotkey = Mid$(strdata, hotkeypos + 1,1)

<:s><:#P36333158,P969933>if (hotkey = "" )

<:s><:#P36333158,P969933>    return (-1)

<:s><:#P36333158,P969933>else

<:s><:#P36333158,P969933>    return (hotkey)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function GetHotKey(strdata)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>hotkey = Strfield$(strdata,1"-")

<:s><:#P36333158,P969933>if (hotkey = "" )

<:s><:#P36333158,P969933>    return ""

<:s><:#P36333158,P969933>elseif (hotkey = -1)

<:s><:#P36333158,P969933>    return ""

<:s><:#P36333158,P969933>else

<:s><:#P36333158,P969933>    return (hotkey)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P1939866>function RemoveAmpersand(showntext)                  'Utility function to cleanup and parse help string

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>    badchars= "&"

<:s><:#P36333158,P969933>    char= badchars

<:s><:#P36333158,P969933>    if strchr(1, showntext, char) = -1

<:s><:#P36333158,P969933>        return showntext

<:s><:#P36333158,P969933>    else

<:s><:#P36333158,P969933>        dim part(10)

<:s><:#P36333158,P969933>        if left$(showntext,1) = badchars

<:s><:#P36333158,P969933>            newtext = mid$(showntext,2,30)

<:s><:#P36333158,P969933>            return newtext

<:s><:#P36333158,P969933>        else

<:s><:#P36333158,P969933>            x = 1

<:s><:#P36333158,P969933>            part(x) =strfield$(showntext, x, char)

<:s><:#P36333158,P969933>            if part(x) = -1 or part(x) = ""

<:s><:#P36333158,P969933>                return showntext

<:s><:#P36333158,P969933>            endif

<:s><:#P36333158,P969933>            newtext=strcat$(newtext, part(x))

<:s><:#P36333158,P969933>            return showntext

<:s><:#P36333158,P969933>        endif

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function mainmenu()

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>    if  GetGlobalVar$("SKON") <<<;> 1        ' if off then turn on before show main menu

<:s><:#P36333158,P969933>        g_hgloss = strcat$("hgloss", filename)

<:s><:#P36333158,P969933>        allocglobalvar(g_hgloss, 1)

<:s><:#P36333158,P969933>        if getglobalvar$(g_hgloss) = ""

<:s><:#P36333158,P969933>        hgloss = glossaryopen(strcat$(getamidirectory$(), filename))

<:s><:#P36333158,P969933>        setglobalvar(g_hgloss, hgloss)

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>        skmain()                'this will set global on

<:s><:#P36333158,P969933>        ReadTopLevel("MM")        'display main menu

<:s><:#P36333158,P969933>    else

<:s><:#P36333158,P969933>        ReadTopLevel("MM")        'sk is on already just show main menu

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P1939866>function ReadTopLevel(key)                    'Given key reads ini file to find items for 1st level

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>macfile = GetRunningMacroFile$()

<:s><:#P36333158,P969933>SetDlgCallBack(0,"{macfile}!Initialize")

<:s><:#P36333158,P969933>SetDlgCallBack(9000, "{MacFile}!L9000")

<:s><:#P36333158,P969933>SetDlgCallBack(25,"{macfile}!EnterKeyProc")

<:s><:#P36333158,P969933>SetDlgCallBack(9003, "{macfile}!L9003")

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>AllocGlobalVar("gkey", 1)

<:s><:#P36333158,P969933>SetGlobalVar("gkey",key)

<:s><:#P36333158,P969933>SetGlobalVar("levelflag",1)                'will need this for F4 - ctrl s -F4 combinations

<:s><:#P36333158,P969933>strdata = Getprofile("OnKeys",key)

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>ct = 2                                    'skip the first it is the title name

<:s><:#P36333158,P969933>dim strtok(20)

<:s><:#P36333158,P969933>dim dlgkeys(20)

<:s><:#P36333158,P969933>while -1 != Assign(&stat, StrField$(strdata,ct,"~"))        'each token from keys key of onkeys section

<:s><:#P36333158,P969933>    hotkey = GetHotKey(stat)                    'get the hot key

<:s><:#P36333158,P969933>    SetGlobalArray("AccKeys", ct - 1,hotkey)            'store accellerators in global array

<:s><:#P36333158,P969933>    FillEdit(9003, ct - 1)

<:s><:#P36333158,P969933>    ct = ct + 1

<:s><:#P36333158,P969933>    FillEdit(9000,stat)

<:s><:#P36333158,P969933>wend

<:s><:#P36333158,P969933>title = gettitle()

<:s><:#P36333158,P969933>title = strcat$(GetGlobalVar$("gkey"),":  ",title)

<:s><:#P36333158,P969933>FillEdit(1000,title)

<:s><:#P36333158,P969933><:R1,11,1,720,1,3420,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>box = dialogbox(".", "SK")

<:s><:#P36333158,P969933>if box <<<;> 1

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>macfile = GetRunningMacroFile$()

<:s><:#P36333158,P969933>SetDlgCallBack(9000, "{MacFile}!L9000")

<:s><:#P36333158,P969933>SetDlgCallBack(25,"{macfile}!EnterKeyProc")

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function GetTitle()                        'Returns onkey keys

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>key= GetGlobalVar$("gkey")

<:s><:#P36333158,P969933>strdata = Getprofile("OnKeys",key)

<:s><:#P36333158,P969933>section = StrField$(strdata,1,"~")

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>return section

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>                                    'Edit this function at your own risk

@Function@<:s><:#P36333158,P969933>function WriteToBox(hDlg,key2,section)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>'handle = GetDlgItem(hdlg, 9004)

<:s><:#P36333158,P969933>'handle2  = GetDlgItem(hdlg, 9000)

<:s><:#P36333158,P969933>'handle3 = GetDlgItem(hdlg, 9003)

<:s><:#P36333158,P969933>'SetDlgItemText(hDlg,1001, "")                    'Clear main box

<:s><:#P36333158,P969933>'SendMessage(handle, LB_ResetContent, 0, 0)            'this no works

<:s><:#P36333158,P969933><+!>DlgClearControl(hdlg, 9004)

<:s><:#P36333158,P969933><-!>defstr stat;

<:s><:#P36333158,P969933> key2 = chr$(key2)

<:s><:#P36333158,P969933>dim data(45)                            'maximum number of help items in list box

<:s><:#P36333158,P969933>ct = 1

<:s><:#P36333158,P969933>LoadText(section,&data)                        'get the stuff

<:s><:#P36333158,P969933>asize = ArraySize(&data)

<:s><:#P36333158,P969933>if (Getprofile(section,"level") = 0)        'SUBLEVEL

<:s><:#P36333158,P969933>    'SendMessage(handle2, LB_ResetContent, 0, 0)        'clear right  box

<:s><:#P36333158,P969933>    'SendMessage(handle3, LB_ResetContent, 0, 0)        'clear left box

<:s><:#P36333158,P969933>    <+!>DlgClearControl(hdlg, 9000)

<:s><:#P36333158,P969933>    <-!>DlgClearControl(hdlg, 9003)

<:s><:#P36333158,P969933>    for i = 1 to asize                        'replace with a do while

<:s><:#P36333158,P969933>        if data(i) <<<;> ""

<:s><:#P36333158,P969933>            SetDlgItemText(hDlg,9000, data(i))        'Put ith ini line in  right box

<:s><:#P36333158,P969933>            SetDlgItemText(hDlg,9003, ct)        'fill left box with numbers

<:s><:#P36333158,P969933>            dlgnum = 48 + ct                'load corresponding dlgkey

<:s><:#P36333158,P969933>            'LoadDlgKeyInterupts(dlgnum)

<:s><:#P36333158,P969933>            ct = ct + 1

<:s><:#P36333158,P969933>        else

<:s><:#P36333158,P969933>            i = asize                     'Quit

<:s><:#P36333158,P969933>        endif

<:s><:#P36333158,P969933>    next

<:s><:#P36333158,P969933>    return 1                            'flag that says there is still more stuff to do

<:s><:#P36333158,P969933>else

<:s><:#P36333158,P969933>    stuff = ""

<:s><:#P36333158,P969933>    LoadKS(hdlg,section)

<:s><:#P36333158,P969933>    for i = 1 to asize                            'this is not  a sublevel

<:s><:#P36333158,P969933>        if data(i) <<<;> ""

<:s><:#P36333158,P969933>            'stuff = strcat$(stuff,data(i),Chr$(10),Chr$(13))           'Add CR LF to each string

<:s><:#P36333158,P969933>            'SetDlgItemText(hDlg,1001, stuff)             'so that goes nicely in static text box

<:s><:#P36333158,P969933>            sectiontext = stripit(section)

<:s><:#P36333158,P969933>            SetDlgItemText(hDlg,1000, sectiontext)

<:s><:#P36333158,P969933>            SetDlgItemText(hDlg,9004, data(i))

<:s><:#P36333158,P969933>        else

<:s><:#P36333158,P969933>            i = asize                                  'Quit

<:s><:#P36333158,P969933>        endif

<:s><:#P36333158,P969933>    next

<:s><:#P36333158,P969933>    return 0                    'this is it. Last level. Make enterkeyproc shut box down

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function LoadKS(hdlg,section)            'writes the keyboard shortcut to the dlg box

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>SetDlgItemText(Hdlg, 1008,"")

<:s><:#P36333158,P969933>ks = Getprofile(Section,"KS")

<:s><:#P36333158,P969933>if ks <<<;> ""

<:s><:#P36333158,P969933>    SetDlgItemText(Hdlg, 1008,ks)

<:s><:#P36333158,P1939866>    SetDlgItemText(Hdlg, 1001,"Keyboard Shortcut-")    'Static text that was deleted when no shortcuts

<:s><:#P36333158,P969933>       else

<:s><:#P36333158,P969933>    SetDlgItemText(Hdlg, 1001,"")

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function LoadText(section,data)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>ct = 1

<:s><:#P36333158,P969933>while "" != Assign(&stat,Getprofile(section,ct));

<:s><:#P36333158,P969933>    *data(ct) = stat;

<:s><:#P36333158,P969933>    ct = ct + 1

<:s><:#P36333158,P969933>wend

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P1939866>function StripIt(text)        'use to strip off tag before reserved wod names that dont pass as arguments

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>if Instr(0, text,"tag")

<:s><:#P36333158,P969933>    return mid$(text,4,len(text) - 2)    'assue tag which is 3

<:s><:#P36333158,P969933>else

<:s><:#P36333158,P969933>    return text

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>function LoadDlgKeyInterupts(dlgnum)            'Key is the first level index

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>macfile = getrunningmacrofile$()

<:s><:#P36333158,P969933>'DlgKeyInterrupt(dlgnum, "{macfile}!dlgtst")

<:s><:#P36333158,P969933>DlgKeyInterrupt(dlgnum, "{macfile}!dlgkeyproc")

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function  DlgTst(hDlg,key)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>defstr selstring;

<:s><:#P36333158,P969933>key = key - 48                        'VK for 1 is 48: convert to equivelent index value

<:s><:#P36333158,P969933>'message(key)

<:s><:#P36333158,P969933>'handle1 = GetDlgItem(hDlg,9000)

<:s><:#P36333158,P969933>'handle2 = GetDlgItem(hDlg,9003)

<:s><:#P36333158,P969933>key = key - 1                                'index is 0 based

<:s><:#P36333158,P969933>'SendMessage(handle1,LB_SETCURSEL,key ,0)            'Select LB contents for right box

<:s><:#P36333158,P969933>'SendMessage(handle2,LB_SETCURSEL,key ,0)            'Match box to the left

<:s><:#P36333158,P969933><+!>DlgSetListBoxIndex(hdlg, 9000, key)

<:s><:#P36333158,P969933><+!>DlgSetListBoxIndex(hdlg, 9003, key)

<:s><:#P36333158,P969933><-!>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function DlgKeyProc(hDlg,key)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>Dim point(2)

<:s><:#P36333158,P969933>defstr selstring;

<:s><:#P36333158,P969933>key = chr$(key)

<:s><:#P36333158,P969933>'message(key)

<:s><:#P36333158,P969933>for x = 1 to 30

<:s><:#P36333158,P969933>    hit = GetGlobalArray$("AccKeys",x)

<:s><:#P36333158,P969933>    if ucase$(hit) = ucase$(key)

<:s><:#P36333158,P969933>        break                            'stop numbering you found the hit

<:s><:#P36333158,P969933>    endif

<:s><:#P36333158,P969933>next

<:s><:#P36333158,P969933>'handle1 = GetDlgItem(hDlg,9000)

<:s><:#P36333158,P969933>'SendMessage(handle1,LB_SETCURSEL, (x - 1),0)        'Select LB contents for right box

<:s><:#P36333158,P969933><+!>DlgSetListBoxIndex(hdlg, 9000, (x - 1))

<:s><:#P36333158,P969933><-!>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P1939866>function L9003(hDlg,id,val)                    'If clicked on selects matching index in 9000 box

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>defstr selstring;

<:s><:#P36333158,P969933>'handle1 = GetDlgItem(hDlg,9003)

<:s><:#P36333158,P969933>'handle2 = GetDlgItem(hDlg,9000)

<:s><:#P36333158,P969933>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)

<:s><:#P36333158,P969933><+!>indx = DlgGetListBoxIndex(hdlg, 9003)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933><-!>'SendMessage(handle2,LB_SETCURSEL,indx ,0)

<:s><:#P36333158,P969933><+!>DlgSetListBoxIndex(hdlg, 9000, indx)

<:s><:#P36333158,P969933><-!>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function L9000(hDlg,id,val)                    'Selects index then writes to box

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>ignorekeyboard(2)

<:s><:#P36333158,P969933>defstr selstring;

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>'handle1 = GetDlgItem(hDlg,9000)

<:s><:#P36333158,P969933>'handle2 = GetDlgItem(hDlg,9003)

<:s><:#P36333158,P969933>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)

<:s><:#P36333158,P969933><+!>indx = DlgGetListBoxIndex(hdlg, 9000)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933><-!>'SendMessage(handle2,LB_SETCURSEL,indx ,0)

<:s><:#P36333158,P969933><+!>DlgSetListBoxIndex(hdlg, 9003, indx)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933><-!>'SendMessage(handle1,LB_GetText,indx,&selstring)

<:s><:#P36333158,P969933><+!>selstring = DlgGetListBoxLine$(hdlg, 9000, indx)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933><-!>selstring = strfield$(selstring,2,"-")

<:s><:#P36333158,P969933>'match=Sendmessage(handle,LB_FindString,0,val)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>level=WriteToBox(hDlg,id,selstring)

<:s><:#P36333158,P969933>if level = 0

<:s><:#P36333158,P969933>    SetGlobalVar("levelflag",0)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>ignorekeyboard(0)

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function EnterKeyProc(hDlg,Id,val)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>defstr selstring;

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>if getglobalvar$("levelflag") = 0            'someone said to shut it down next time

<:s><:#P36333158,P969933>    sendkeys("<[>ESC]")                'shut down the box

<:s><:#P36333158,P969933>    SetGlobalVar("levelflag",1)        'prime it for next time. assume that will allways have 1 level

<:s><:#P36333158,P969933>    exit function

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>'handle1 = GetDlgItem(hDlg,9000)

<:s><:#P36333158,P969933>'indx=Sendmessage(handle1,LB_GetCurSel,0,0)        'To select the first help item

<:s><:#P36333158,P969933><+!>indx = DlgGetListBoxIndex(hdlg, 9000)

<:s><:#P36333158,P969933><-!>'level = 0        'what does this do?

<:s><:#P36333158,P969933>if indx <<<;> -1

<:s><:#P36333158,P969933>    'SendMessage(handle1,LB_GetText,indx,&selstring)

<:s><:#P36333158,P969933>    <+!>selstring = DlgGetListBoxLine$(hdlg, id, indx)

<:s><:#P36333158,P969933>    <-!>selstring = strfield$(selstring,2,"-")

<:s><:#P36333158,P969933>    level =WriteToBox(hDlg,id,selstring)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>if level = 0

<:s><:#P36333158,P969933>    SetGlobalVar("levelflag",0)

<:s><:#P36333158,P969933>endif

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function DoNextLevel(section,newdata)

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>nextlevel = Getprofile(section,nextlevel)

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>ct = 2

<:s><:#P36333158,P969933>dim strtok(10)

<:s><:#P36333158,P969933>dim dlgkeys(10)

<:s><:#P36333158,P969933>'while -1 != Assign(&stat, StrField$(section,ct,"~"))        'each token from keys key of onkeys section

<:s><:#P36333158,P969933>    strtok(ct) = stat

<:s><:#P36333158,P969933>    'dlgkeys(ct - 1) = Left$(Lcase$(stat),1)             'load onkey keys. start at 1

<:s><:#P36333158,P969933>    dlgnum = 49 + (ct - 2)                    'do virtual keys

<:s><:#P36333158,P969933>    LoadDlgKeyInterupts(dlgnum)

<:s><:#P36333158,P969933>    ct = ct + 1

<:s><:#P36333158,P969933>            FillEdit(9003, (ct - 2))

<:s><:#P36333158,P969933>'wend

<:s><:#P36333158,P969933>FillBox(9000,&strtok)

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function Off()                        'Disable SwitchKit

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>menu = getprofile("Menus", "Menu") ' &Help

<:s><:#P36333158,P969933>item = getprofile("Menus", "Menuitem") ' For &DisplayWrite Users"

<:s><:#P36333158,P969933>item1 = getprofile("Menus", "Item1") ' &On

<:s><:#P36333158,P969933>item2 = getprofile("Menus", "Item2") ' O&ff

<:s><:#P36333158,P969933>ignorekeyboard(1)

<:s><:#P36333158,P969933>defstr stat;

<:s><:#P36333158,P969933>SetGlobalVar("SKON",0)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>CheckMenuItem(1, Menu,Item, item1,0)

<:s><:#P36333158,P969933>CheckMenuItem(1, Menu,Item, item2,1)

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>OnKey(<[>F2],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F3],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F4],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F5],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F6],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F7],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F8],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F9],0, "")

<:s><:#P36333158,P969933>OnKey(<[>F10],0, "")

<:s><:#P36333158,P969933>       ct = 1                ' changed from ct + 2

<:s><:#P36333158,P969933>while "" != Assign(&stat,Getprofile("KeyboardShortcuts",ct))

<:s><:#P36333158,P969933>    keysc = StrField$(stat,1,"~")

<:s><:#P36333158,P969933>    newkeysc =  GetOnkeyEquiv(keysc)

<:s><:#P36333158,P969933>    Onkey(newkeysc,0,"")

<:s><:#P36333158,P969933>    ct = ct + 1

<:s><:#P36333158,P969933>wend

<:s><:#P36333158,P969933>glossaryclose(getglobalvar$(strcat$("hgloss", filename)))

<:s><:#P36333158,P969933>freeglobalvar(strcat$("hgloss", filename))

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>ignorekeyboard(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>Function GetOnkeyEquiv(keysc)        'returns onkey equiv for shortcut key

<:s><:#P36333158,P969933>hourglass(1)

<:s><:#P36333158,P969933>upper = ucase$(keysc)

<:s><:#P36333158,P969933>switch upper

<:s><:#P36333158,P969933>case("ALT1")

<:s><:#P36333158,P969933>    return(<[>alt1])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("ALT2")

<:s><:#P36333158,P969933>    return(<[>alt2])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("ALT7")

<:s><:#P36333158,P969933>    return(<[>alt7])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("ALT8")

<:s><:#P36333158,P969933>    return(<[>alt8])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLA")

<:s><:#P36333158,P969933>    return(<[>ctrla])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLB")

<:s><:#P36333158,P969933>    return(<[>ctrlb])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLC")

<:s><:#P36333158,P969933>    return(<[>ctrlc])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLD")

<:s><:#P36333158,P969933>    return(<[>ctrld])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLE")

<:s><:#P36333158,P969933>    return(<[>ctrle])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF")

<:s><:#P36333158,P969933>    return(<[>ctrlf])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLG")

<:s><:#P36333158,P969933>    return(<[>ctrlg])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLH")

<:s><:#P36333158,P969933>    return(<[>ctrlh])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLI")

<:s><:#P36333158,P969933>    return(<[>ctrli])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLJ")

<:s><:#P36333158,P969933>    return(<[>ctrlj])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLK")

<:s><:#P36333158,P969933>    return(<[>ctrlk])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLL")

<:s><:#P36333158,P969933>    return(<[>ctrll])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLM")

<:s><:#P36333158,P969933>    return(<[>ctrlm])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLN")

<:s><:#P36333158,P969933>    return(<[>ctrln])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLO")

<:s><:#P36333158,P969933>    return(<[>ctrlo])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLP")

<:s><:#P36333158,P969933>    return(<[>ctrlp])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLQ")

<:s><:#P36333158,P969933>    return(<[>ctrlq])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLR")

<:s><:#P36333158,P969933>    return(<[>ctrlr])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLS")

<:s><:#P36333158,P969933>    return(<[>ctrls])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLT")

<:s><:#P36333158,P969933>    return(<[>ctrlt])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLU")

<:s><:#P36333158,P969933>    return(<[>ctrlu])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLV")

<:s><:#P36333158,P969933>    return(<[>ctrlv])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLW")

<:s><:#P36333158,P969933>    return(<[>ctrlw])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLX")

<:s><:#P36333158,P969933>    return(<[>ctrlx])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLY")

<:s><:#P36333158,P969933>    return(<[>ctrly])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF1")

<:s><:#P36333158,P969933>    return(<[>ctrlf1])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF2")

<:s><:#P36333158,P969933>    return(<[>ctrlf2])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF4")

<:s><:#P36333158,P969933>    return(<[>ctrlf4])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF5")

<:s><:#P36333158,P969933>    return(<[>ctrlf5])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF6")

<:s><:#P36333158,P969933>    return(<[>ctrlf6])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF7")

<:s><:#P36333158,P969933>    return(<[>ctrlf7])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF8")

<:s><:#P36333158,P969933>    return(<[>ctrlf8])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("F3")

<:s><:#P36333158,P969933>    return(<[>f3])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("F9")

<:s><:#P36333158,P969933>    return(<[>f9])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("F10")

<:s><:#P36333158,P969933>    return(<[>f10])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("F11")

<:s><:#P36333158,P969933>    return(<[>f11])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("F12")

<:s><:#P36333158,P969933>    return(<[>f12])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>case("CTRLF9")

<:s><:#P36333158,P969933>    return(<[>ctrlf9])

<:s><:#P36333158,P969933>    break

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>endswitch

<:s><:#P36333158,P969933>hourglass(0)

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

@Function@<:s><:#P36333158,P969933>function aboutsk()

<:s><:#P36333158,P969933>box = dialogbox(".","about")

<:s><:#P36333158,P969933>end function

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>DIALOG    SK

<:s><:#P36333158,P969933>-2134376448    10    24    38    300    123    ""    ""    "DisplayWrite SwitchKit"

<:s><:#P36333158,P969933>FONT    8    "Helv"

<:s><:#P36333158,P969933>26    22    99    79    9000    1352728577    "listbox"    ""    0

<:s><:#P36333158,P969933>217    200    33    13    25    1342308353    "button"    "Default"    0

<:s><:#P36333158,P969933>7    22    16    79    9003    1352663041    "listbox"    ""    0

<:s><:#P36333158,P969933>195    104    17    12    1006    1342177290    "static"    "filename.bmp"    0

<:s><:#P36333158,P969933>7    11    40    8    1004    1342177280    "static"    "Options:"    0

<:s><:#P36333158,P969933>127    11    45    8    1005    1342177280    "static"    "Ami Pro Help:"    0

<:s><:#P36333158,P969933>132    22    166    79    9004    1352728577    "listbox"    ""    0

<:s><:#P36333158,P969933>6    107    64    8    1001    1342177280    "static"    "Keyboard Shortcut-"    0

<:s><:#P36333158,P969933>72    107    38    10    1008    1342177280    "static"    ""    0

<:s><:#P36333158,P969933>260    5    34    13    1    1342373888    "button"    "Done"    0

<:s><:#P36333158,P969933>END DIALOG

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>7    2    29    8    1003    1342177280    "static"    "Feature:"    0

<:s><:#P36333158,P969933>127    107    66    9    1007    1342177280    "static"    "Ami Pro SmartIcon-"    0

<:s><:#P36333158,P969933>38    2    65    8    1000    1342177280    "static"    ""    0

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>DIALOG    about

<:s><:#P36333158,P969933>-2134376448    7    84    26    134    90    ""    ""    "Ami Pro"

<:s><:#P36333158,P969933>FONT    8    "Helv"

<:s><:#P36333158,P969933>5    6    122    10    1000    1342177281    "static"    "Ami Pro SwitchKit"    0

<:s><:#P36333158,P1939866>5    16    122    10    1001    1342177281    "static"    "for DisplayWrite Users 1993"    0

<:s><:#P36333158,P1939866>5    26    122    10    1002    1342177281    "static"    "Lotus Development Corporation"    0

<:s><:#P36333158,P969933>5    36    122    10    1003    1342177281    "static"    "DisplayWrite 1986 by"    0

<:s><:#P36333158,P969933>5    46    122    10    1004    1342177281    "static"    "IBM Corporation"    0

<:s><:#P36333158,P969933>5    56    122    10    1007    1342177281    "static"    "All rights Reserved."    0

<:s><:#P36333158,P969933>47    70    40    14    1    1342373889    "button"    "OK"    0

<:s><:#P36333158,P969933>END DIALOG

<:s><:#P36333158,P969933>

<:s><:#P36333158,P969933>
>

[Embedded]
00043778
>
[macsum4] 33 313
LoadMenu 0 0 10 30
getprofile 1113 2 3 60
LoadOnKeys 1523 0 2 72
skmain 2264 0 6 89
Initialize 3081 3 1 119
LoadOnKeyKS 3264 0 8 129
packstr 3819 1 6 147
unpackstr 4346 1 6 169
test 4877 1 4 190
test2 5398 3 3 212
FillBox 5678 2 1 223
GetHotKeyOld 5764 1 3 227
GetHotKey 6059 1 2 239
RemoveAmpersand 6353 1 6 252
mainmenu 6990 0 3 277
ReadTopLevel 7438 1 10 297
GetTitle 8512 0 4 334
WriteToBox 8751 3 9 344
LoadKS 9914 2 2 394
LoadText 10237 2 3 407
StripIt 10521 1 1 418
LoadDlgKeyInterupts 10742 1 3 428
DlgTst 10941 2 2 437
DlgKeyProc 11171 2 5 452
L9003 11636 3 3 470
L9000 11832 3 5 483
EnterKeyProc 12273 3 5 512
DoNextLevel 12819 2 7 537
Off 13303 0 9 556
GetOnkeyEquiv 14496 1 2 592
aboutsk 18446 0 2 728
SK 18533 0 65535 732
about 19125 0 65535 752
[macse]
14 LoadMenu
29 0 LoadMenu
17 1
0 296 1
17 2
29 1 g_hgloss
0 16 "hgloss" "amiskdw4.sam"
13
8 1
17 3
0 271 "{1}" 1
17 4
0 265 "{1}"
13
7 ""
18 0
11 00000276
17 5
29 2 hgloss
0 798
13
0 16 [X] "amiskdw4.sam"
13
0 302 [X]
13
8 2
17 6
0 264 "{1}" "{2}"
17 8
29 3 menu
16 getprofile "Menus" "Menu"
13
8 3
17 9
29 4 item
16 getprofile "Menus" "Menuitem"
13
8 4
17 10
29 5 item1
16 getprofile "Menus" "Item1"
13
8 5
17 11
29 6 item2
16 getprofile "Menus" "Item2"
13
8 6
17 12
29 7 item3
16 getprofile "Menus" "Item3"
13
8 7
17 13
29 8 item4
16 getprofile "Menus" "Item4"
13
8 8
17 15
0 271 "SKON" 1
17 16
29 9 macfile
0 802
13
8 9
17 17
0 520 1 "{3}" "{4}"
17 18
0 528 1 "{3}" 7 "{4}"
17 20
0 525 1 "{3}" "{4}" "{5}" "{9}!SKMain()" ""
17 21
0 525 1 "{3}" "{4}" "{6}" "{9}!Off()" ""
17 22
0 525 1 "{3}" "{4}" "-" "" ""
17 23
0 525 1 "{3}" "{4}" "{8}" "{9}!MainMenu" ""
17 24
0 525 1 "{3}" "{4}" "-" "" ""
17 25
0 525 1 "{3}" "{4}" "&About SwitchKit..." "{9}!aboutsk" ""
17 26
0 518 1 "{3}" "{4}" "{6}" 1
17 27
0 296 0
6 0
15
17 28
9
14 getprofile
29 0 section
29 1 key
29 2 getprofile
17 1
29 3 data
0 16 "hgloss" "amiskdw4.sam"
13
0 265 [X]
13
0 16 "{0}" "{1}"
13
0 303 [X] [X]
13
8 3
17 2
29 4 q
0 806 """" 1
13
8 4
17 3
0 806 "{3}" 1
13
6 4
18 0
11 00000289
17 4
0 20 "{3}" 2 "{4}"
13
8 3
17 6
0 807 "{3}" 1
13
6 4
18 0
11 00000373
17 7
0 20 "{3}" 1 "{4}"
13
8 3
17 9
6 3
15
9
6 2
15
17 10
9
14 LoadOnKeys
29 0 LoadOnKeys
17 1
0 296 1
17 2
29 1 macfile
0 802
13
8 1
17 3
32 2 101 32854 7  "{1}!ReadTopLevel(F2)" 113 0 1
17 4
32 2 101 32854 7  "{1}!ReadTopLevel(F3)" 114 0 1
17 5
32 2 101 32854 7  "{1}!ReadTopLevel(F4)" 115 0 1
17 6
32 2 101 32854 7  "{1}!ReadTopLevel(F5)" 116 0 1
17 7
32 2 101 32854 7  "{1}!ReadTopLevel(F6)" 117 0 1
17 8
32 2 101 32854 7  "{1}!ReadTopLevel(F7)" 118 0 1
17 9
32 2 101 32854 7  "{1}!ReadTopLevel(F8)" 119 0 1
17 10
32 2 101 32854 7  "{1}!ReadTopLevel(F9)" 120 0 1
17 11
32 2 101 32854 7  "{1}!ReadTopLevel(F10)" 121 0 1
17 12
32 2 101 32854 7  "{1}!ReadTopLevel(F11)" 122 0 1
17 13
32 2 101 32854 7  "{1}!ReadTopLevel(F12)" 123 0 1
17 14
0 296 0
6 0
15
17 15
9
14 skmain
29 0 skmain
17 1
0 296 1
17 2
0 1050
13
5 1
18 5
11 00000140
17 3
16 getprofile "Msg" "msg1"
13
0 3 [X]
6 0
15
9
17 7
0 264 "SKON" 1
17 9
29 1 menu
16 getprofile "Menus" "Menu"
13
8 1
17 10
29 2 item
16 getprofile "Menus" "Menuitem"
13
8 2
17 11
29 3 item1
16 getprofile "Menus" "Item1"
13
8 3
17 12
29 4 item2
16 getprofile "Menus" "Item2"
13
8 4
17 14
0 518 1 "{1}" "{2}" "{3}" 1
17 15
0 518 1 "{1}" "{2}" "{4}" 0
17 16
0 271 "AccKeys" 30
17 17
0 271 "levelflag" 1
17 18
0 264 "levelflag" 1
17 19
29 5 macfile
0 802
13
8 5
17 20
0 41 0 "{5}!Initialize"
17 21
0 41 25 "{5}!EnterKeyProc"
17 22
0 41 9000 "{5}!L9000"
17 23
0 41 9003 "{5}!L9003"
17 24
16 LoadOnKeys
17 25
16 LoadOnKeyKS
17 26
0 266 "hDlg"
17 27
0 296 0
6 0
15
17 28
9
14 Initialize
29 0 hDlg
29 1 id
29 2 val
29 3 Initialize
17 1
0 296 1
17 2
0 271 "hDlg" 1
17 3
0 264 "hDlg" "{0}"
17 6
0 53 "{0}" 9003 0
17 7
0 296 0
6 3
15
17 8
9
14 LoadOnKeyKS
29 0 LoadOnKeyKS
17 1
0 296 1
17 2
29 1 macfile
0 802
13
8 1
17 3
29 2 stat
17 4
29 3 ct
5 1
8 3
17 5
0 32 1
17 6
7 ""
16 Getprofile "KeyboardShortcuts" "{3}"
13
0 805 &2 [X]
13
18 1
11 00000505
17 7
29 4 keysc
0 20 "{2}" 1 "~"
13
8 4
17 8
29 5 section
0 20 "{2}" 2 "~"
13
8 5
17 9
29 6 newkeysc
16 GetOnkeyEquiv "{4}"
13
8 6
17 10
29 7 text
6 5
8 7
17 11
32 2 101 32854 7  "{1}!test(""{7}"")" "{6}" 0 1
17 12
6 3
5 1
3 0
8 3
10 00000141
17 14
0 32 0
17 15
0 296 0
6 0
15
17 16
9
14 packstr
29 0 str
29 1 packstr
17 1
0 296 1
17 2
29 2 newstr
7 ""
8 2
17 3
29 3 l
0 14 "{0}"
13
8 3
17 4
29 4 hit
5 0
8 4
29 5 i
5 1
8 5
17 5
6 3
6 5
18 2
12 00000241
10 00000405
5 1
6 5
3 0
8 5
10 00000160
17 6
29 6 char
0 15 "{0}" "{5}" 1
13
8 6
17 7
6 6
7 " "
18 0
11 00000358
17 8
7 "_"
8 6
17 9
5 1
8 4
17 11
0 16 "{2}" "{6}"
13
8 2
10 00000208
17 14
6 4
5 1
18 0
11 00000473
17 15
6 2
15
9
10 00000492
17 17
6 0
15
9
17 19
0 296 0
6 1
15
17 20
9
14 unpackstr
29 0 str
29 1 unpackstr
17 1
0 296 1
17 2
29 2 newstr
7 ""
8 2
17 3
29 3 l
0 14 "{0}"
13
8 3
17 4
29 4 hit
5 0
8 4
29 5 i
5 1
8 5
17 5
6 3
6 5
18 2
12 00000245
10 00000409
5 1
6 5
3 0
8 5
10 00000164
17 6
29 6 char
0 15 "{0}" "{5}" 1
13
8 6
17 7
6 6
7 "_"
18 0
11 00000362
17 8
7 " "
8 6
17 9
5 1
8 4
17 11
0 16 "{2}" "{6}"
13
8 2
10 00000212
17 13
6 4
5 1
18 0
11 00000477
17 14
6 2
15
9
10 00000496
17 16
6 0
15
9
17 18
0 296 0
6 1
15
17 19
9
14 test
29 0 param
29 1 test
17 1
0 32 1
17 2
0 296 1
17 3
29 2 macfile
0 802
13
8 2
17 4
0 41 0 "{2}!test2"
17 5
0 41 25 "{2}!EnterKeyProc"
17 6
0 41 9000 "{2}!L9000"
17 7
0 41 9003 "{2}!L9003"
17 8
0 271 "section" 1
17 10
29 3 section
6 0
8 3
17 11
0 264 "section" "{3}"
17 12
29 4 box
0 26 "." "SK"
13
8 4
17 13
6 4
5 0
18 0
11 00000406
17 14
0 264 "levelflag" 1
17 16
0 41 9000 "{2}!L9000"
17 17
0 41 25 "{2}!EnterKeyProc"
17 18
0 32 0
17 19
0 296 0
6 1
15
17 20
9
14 test2
29 0 hDlg
29 1 id
29 2 val
29 3 test2
17 1
0 296 1
17 2
5 0
8 1
17 3
29 4 section
0 265 "section"
13
8 4
17 4
29 5 level
16 WriteToBox "{0}" 0 "{4}"
13
8 5
17 5
6 5
5 0
18 0
11 00000247
17 6
0 264 "levelflag" 0
17 8
0 296 0
6 3
15
17 9
9
14 FillBox
29 0 id
29 1 array
29 2 FillBox
17 1
0 31 "{0}" &1
6 2
15
17 2
9
14 GetHotKeyOld
29 0 strdata
29 1 GetHotKeyOld
17 1
0 296 1
17 2
29 2 hotkeypos
0 13 1 "{0}" "&"
13
8 2
17 3
29 3 hotkey
6 2
5 1
3 0
0 15 "{0}" [X] 1
13
8 3
17 4
6 3
7 ""
18 0
11 00000243
17 5
5 -1
15
9
10 00000261
17 7
6 3
15
9
17 9
0 296 0
6 1
15
17 10
9
14 GetHotKey
29 0 strdata
29 1 GetHotKey
17 1
0 296 1
17 2
29 2 hotkey
0 20 "{0}" 1 "-"
13
8 2
17 3
6 2
7 ""
18 0
11 00000173
17 4
7 ""
15
9
10 00000259
17 5
6 2
5 -1
18 0
11 00000241
17 6
7 ""
15
9
10 00000259
17 8
6 2
15
9
17 10
0 296 0
6 1
15
17 11
9
14 RemoveAmpersand
29 0 showntext
29 1 RemoveAmpersand
17 1
0 296 1
17 2
29 2 badchars
7 "&"
8 2
17 3
29 3 char
6 2
8 3
17 4
0 13 1 "{0}" "{3}"
13
5 -1
18 0
11 00000219
17 5
6 0
15
9
10 00000602
17 7
5 10
29 4 part
21 4 [X]
17 8
0 806 "{0}" 1
13
6 2
18 0
11 00000379
17 9
29 5 newtext
0 15 "{0}" 2 30
13
8 5
17 10
6 5
15
9
10 00000602
17 12
29 6 x
5 1
8 6
17 13
6 6
0 20 "{0}" "{6}" "{3}"
13
23 4
17 14
6 6
22 4
5 -1
18 0
6 6
22 4
7 ""
18 0
1 2
11 00000540
17 15
6 0
15
9
17 17
6 6
22 4
0 16 "{5}" [X]
13
8 5
17 18
6 0
15
9
17 21
0 296 0
6 1
15
17 22
9
14 mainmenu
29 0 mainmenu
17 1
0 296 1
17 2
0 265 "SKON"
13
5 1
18 1
11 00000384
17 3
29 1 g_hgloss
0 16 "hgloss" "amiskdw4.sam"
13
8 1
17 4
0 271 "{1}" 1
17 5
0 265 "{1}"
13
7 ""
18 0
11 00000324
17 6
29 2 hgloss
0 798
13
0 16 [X] "amiskdw4.sam"
13
0 302 [X]
13
8 2
17 7
0 264 "{1}" "{2}"
17 10
16 skmain
17 11
16 ReadTopLevel "MM"
10 00000413
17 13
16 ReadTopLevel "MM"
17 15
0 296 0
6 0
15
17 16
9
14 ReadTopLevel
29 0 key
29 1 ReadTopLevel
17 1
0 296 1
17 2
29 2 macfile
0 802
13
8 2
17 3
0 41 0 "{2}!Initialize"
17 4
0 41 9000 "{2}!L9000"
17 5
0 41 25 "{2}!EnterKeyProc"
17 6
0 41 9003 "{2}!L9003"
17 10
0 271 "gkey" 1
17 11
0 264 "gkey" "{0}"
17 12
0 264 "levelflag" 1
17 13
29 3 strdata
16 Getprofile "OnKeys" "{0}"
13
8 3
17 14
29 4 stat
17 15
29 5 ct
5 2
8 5
17 16
5 20
29 6 strtok
21 6 [X]
17 17
5 20
29 7 dlgkeys
21 7 [X]
17 18
5 -1
0 20 "{3}" "{5}" "~"
13
0 805 &4 [X]
13
18 1
11 00000750
17 19
29 8 hotkey
16 GetHotKey "{4}"
13
8 8
17 20
6 5
5 1
3 1
0 272 "AccKeys" [X] "{8}"
17 21
6 5
5 1
3 1
0 31 9003 [X]
17 22
6 5
5 1
3 0
8 5
17 23
0 31 9000 "{4}"
10 00000475
17 25
29 9 title
16 gettitle
13
8 9
17 26
0 265 "gkey"
13
0 16 [X] ":  " "{9}"
13
8 9
17 27
0 31 1000 "{9}"
17 28
29 10 box
0 26 "." "SK"
13
8 10
17 29
6 10
5 1
18 1
11 00000951
17 31
0 802
13
8 2
17 32
0 41 9000 "{2}!L9000"
17 33
0 41 25 "{2}!EnterKeyProc"
17 34
0 296 0
6 1
15
17 35
9
14 GetTitle
29 0 GetTitle
17 1
0 296 1
17 2
29 1 key
0 265 "gkey"
13
8 1
17 3
29 2 strdata
16 Getprofile "OnKeys" "{1}"
13
8 2
17 4
29 3 section
0 20 "{2}" 1 "~"
13
8 3
17 5
0 296 0
17 6
6 3
15
9
6 0
15
17 7
9
14 WriteToBox
29 0 hDlg
29 1 key2
29 2 section
29 3 WriteToBox
17 1
0 296 1
17 7
0 54 "{0}" 9004
17 8
29 4 stat
17 9
0 39 "{1}"
13
8 1
17 10
5 45
29 5 data
21 5 [X]
17 11
29 6 ct
5 1
8 6
17 12
16 LoadText "{2}" &5
17 13
29 7 asize
0 1046 &5
13
8 7
17 14
16 Getprofile "{2}" "level"
13
5 0
18 0
11 00000745
17 17
0 54 "{0}" 9000
17 18
0 54 "{0}" 9003
29 8 i
5 1
8 8
17 19
6 7
6 8
18 2
12 00000490
10 00000713
5 1
6 8
3 0
8 8
10 00000408
17 20
6 8
22 5
7 ""
18 1
11 00000683
17 21
6 8
22 5
0 43 "{0}" 9000 [X]
17 22
0 43 "{0}" 9003 "{6}"
17 23
29 9 dlgnum
5 48
6 6
3 0
8 9
17 25
6 6
5 1
3 0
8 6
10 00000700
17 27
6 7
8 8
10 00000457
17 30
5 1
15
9
10 00001128
17 32
29 10 stuff
7 ""
8 10
17 33
16 LoadKS "{0}" "{2}"
5 1
8 8
17 34
6 7
6 8
18 2
12 00000899
10 00001109
5 1
6 8
3 0
8 8
10 00000817
17 35
6 8
22 5
7 ""
18 1
11 00001079
17 38
29 11 sectiontext
16 stripit "{2}"
13
8 11
17 39
0 43 "{0}" 1000 "{11}"
17 40
6 8
22 5
0 43 "{0}" 9004 [X]
10 00001096
17 42
6 7
8 8
10 00000866
17 45
5 0
15
9
17 47
0 296 0
6 3
15
17 48
9
14 LoadKS
29 0 hdlg
29 1 section
29 2 LoadKS
17 1
0 296 1
17 2
0 43 "{0}" 1008 ""
17 3
29 3 ks
16 Getprofile "{1}" "KS"
13
8 3
17 4
6 3
7 ""
18 1
11 00000262
17 5
0 43 "{0}" 1008 "{3}"
17 6
0 43 "{0}" 1001 "Keyboard Shortcut-"
10 00000288
17 8
0 43 "{0}" 1001 ""
17 10
0 296 0
6 2
15
17 11
9
14 LoadText
29 0 section
29 1 data
29 2 LoadText
17 1
0 296 1
17 2
29 3 stat
17 3
29 4 ct
5 1
8 4
17 4
7 ""
16 Getprofile "{0}" "{4}"
13
0 805 &3 [X]
13
18 1
11 00000251
17 5
6 4
6 3
23 1
17 6
6 4
5 1
3 0
8 4
10 00000110
17 8
0 296 0
6 2
15
17 9
9
14 StripIt
29 0 text
29 1 StripIt
17 1
0 296 1
17 2
0 808 0 "{0}" "tag"
13
11 00000170
17 3
0 14 "{0}"
13
5 2
3 1
0 15 "{0}" 4 [X]
13
15
9
10 00000188
17 5
6 0
15
9
17 7
0 296 0
6 1
15
17 8
9
14 LoadDlgKeyInterupts
29 0 dlgnum
29 1 LoadDlgKeyInterupts
17 1
0 296 1
17 2
29 2 stat
17 3
29 3 macfile
0 802
13
8 3
17 5
0 47 "{0}" "{3}!dlgkeyproc"
17 6
0 296 0
6 1
15
17 7
9
14 DlgTst
29 0 hDlg
29 1 key
29 2 DlgTst
17 1
0 296 1
17 2
29 3 selstring
17 3
6 1
5 48
3 1
8 1
17 7
6 1
5 1
3 1
8 1
17 10
0 62 "{0}" 9000 "{1}"
17 11
0 62 "{0}" 9003 "{1}"
17 12
0 296 0
6 2
15
17 13
9
14 DlgKeyProc
29 0 hDlg
29 1 key
29 2 DlgKeyProc
17 1
0 296 1
17 2
5 2
29 3 point
21 3 [X]
17 3
29 4 selstring
17 4
0 39 "{1}"
13
8 1
29 5 x
5 1
8 5
17 6
5 30
6 5
18 2
12 00000250
10 00000387
5 1
6 5
3 0
8 5
10 00000168
17 7
29 6 hit
0 273 "AccKeys" "{5}"
13
8 6
17 8
0 18 "{6}"
13
0 18 "{1}"
13
18 0
11 00000374
17 9
10 00000387
10 00000217
17 14
6 5
5 1
3 1
0 62 "{0}" 9000 [X]
17 15
0 296 0
6 2
15
17 16
9
14 L9003
29 0 hDlg
29 1 id
29 2 val
29 3 L9003
17 1
0 296 1
17 2
29 4 selstring
17 6
29 5 indx
0 61 "{0}" 9003
13
8 5
17 9
0 62 "{0}" 9000 "{5}"
17 10
0 296 0
6 3
15
17 11
9
14 L9000
29 0 hDlg
29 1 id
29 2 val
29 3 L9000
17 1
0 296 1
17 2
0 32 2
17 3
29 4 selstring
17 4
29 5 stat
17 8
29 6 indx
0 61 "{0}" 9000
13
8 6
17 11
0 62 "{0}" 9003 "{6}"
17 15
0 63 "{0}" 9000 "{6}"
13
8 4
17 17
0 20 "{4}" 2 "-"
13
8 4
17 21
29 7 level
16 WriteToBox "{0}" "{1}" "{4}"
13
8 7
17 22
6 7
5 0
18 0
11 00000391
17 23
0 264 "levelflag" 0
17 25
0 32 0
17 26
0 296 0
6 3
15
17 27
9
14 EnterKeyProc
29 0 hDlg
29 1 Id
29 2 val
29 3 EnterKeyProc
17 1
0 296 1
17 2
29 4 selstring
17 3
29 5 stat
17 4
0 265 "levelflag"
13
5 0
18 0
11 00000231
17 5
0 36 "[27]"
17 6
0 264 "levelflag" 1
6 3
15
9
17 11
29 6 indx
0 61 "{0}" 9000
13
8 6
17 13
6 6
5 -1
18 1
11 00000447
17 15
0 63 "{0}" "{1}" "{6}"
13
8 4
17 16
0 20 "{4}" 2 "-"
13
8 4
17 17
29 7 level
16 WriteToBox "{0}" "{1}" "{4}"
13
8 7
17 19
6 7
5 0
18 0
11 00000511
17 20
0 264 "levelflag" 0
17 22
0 296 0
6 3
15
17 23
9
14 DoNextLevel
29 0 section
29 1 newdata
29 2 DoNextLevel
17 1
0 296 1
17 2
29 3 nextlevel
16 Getprofile "{0}" "{3}"
13
8 3
17 3
29 4 stat
17 4
29 5 ct
5 2
8 5
17 5
5 10
29 6 strtok
21 6 [X]
17 6
5 10
29 7 dlgkeys
21 7 [X]
17 8
6 5
6 4
23 6
17 10
29 8 dlgnum
5 49
6 5
5 2
3 1
3 0
8 8
17 11
16 LoadDlgKeyInterupts "{8}"
17 12
6 5
5 1
3 0
8 5
17 13
6 5
5 2
3 1
0 31 9003 [X]
17 15
16 FillBox 9000 &6
17 16
0 296 0
6 2
15
17 17
9
14 Off
29 0 Off
17 1
0 296 1
17 2
29 1 menu
16 getprofile "Menus" "Menu"
13
8 1
17 3
29 2 item
16 getprofile "Menus" "Menuitem"
13
8 2
17 4
29 3 item1
16 getprofile "Menus" "Item1"
13
8 3
17 5
29 4 item2
16 getprofile "Menus" "Item2"
13
8 4
17 6
0 32 1
17 7
29 5 stat
17 8
0 264 "SKON" 0
17 10
0 518 1 "{1}" "{2}" "{3}" 0
17 11
0 518 1 "{1}" "{2}" "{4}" 1
17 13
32 2 101 32854 7  "" 113 0 1
17 14
32 2 101 32854 7  "" 114 0 1
17 15
32 2 101 32854 7  "" 115 0 1
17 16
32 2 101 32854 7  "" 116 0 1
17 17
32 2 101 32854 7  "" 117 0 1
17 18
32 2 101 32854 7  "" 118 0 1
17 19
32 2 101 32854 7  "" 119 0 1
17 20
32 2 101 32854 7  "" 120 0 1
17 21
32 2 101 32854 7  "" 121 0 1
17 22
29 6 ct
5 1
8 6
17 23
7 ""
16 Getprofile "KeyboardShortcuts" "{6}"
13
0 805 &5 [X]
13
18 1
11 00001024
17 24
29 7 keysc
0 20 "{5}" 1 "~"
13
8 7
17 25
29 8 newkeysc
16 GetOnkeyEquiv "{7}"
13
8 8
17 26
32 2 101 32854 7  "" "{8}" 0 1
17 27
6 6
5 1
3 0
8 6
10 00000749
17 29
0 16 "hgloss" "amiskdw4.sam"
13
0 265 [X]
13
0 304 [X]
17 30
0 16 "hgloss" "amiskdw4.sam"
13
0 266 [X]
17 31
0 296 0
17 32
0 32 0
6 0
15
17 33
9
14 GetOnkeyEquiv
29 0 keysc
29 1 GetOnkeyEquiv
17 1
0 296 1
17 2
29 2 upper
0 18 "{0}"
13
8 2
17 3
7 "ALT1"
6 2
18 0
11 00000197
17 5
5 8241
15
9
17 6
10 00003913
10 00003913
7 "ALT2"
6 2
18 0
11 00000284
17 8
5 8242
15
9
17 9
10 00003913
10 00003913
7 "ALT7"
6 2
18 0
11 00000373
17 11
5 8247
15
9
17 12
10 00003913
10 00003913
7 "ALT8"
6 2
18 0
11 00000462
17 14
5 8248
15
9
17 15
10 00003913
10 00003913
7 "CTRLA"
6 2
18 0
11 00000553
17 17
5 16449
15
9
17 18
10 00003913
10 00003913
7 "CTRLB"
6 2
18 0
11 00000644
17 20
5 16450
15
9
17 21
10 00003913
10 00003913
7 "CTRLC"
6 2
18 0
11 00000735
17 23
5 16451
15
9
17 24
10 00003913
10 00003913
7 "CTRLD"
6 2
18 0
11 00000826
17 26
5 16452
15
9
17 27
10 00003913
10 00003913
7 "CTRLE"
6 2
18 0
11 00000917
17 29
5 16453
15
9
17 30
10 00003913
10 00003913
7 "CTRLF"
6 2
18 0
11 00001008
17 32
5 16454
15
9
17 33
10 00003913
10 00003913
7 "CTRLG"
6 2
18 0
11 00001099
17 35
5 16455
15
9
17 36
10 00003913
10 00003913
7 "CTRLH"
6 2
18 0
11 00001190
17 38
5 16456
15
9
17 39
10 00003913
10 00003913
7 "CTRLI"
6 2
18 0
11 00001281
17 41
5 16457
15
9
17 42
10 00003913
10 00003913
7 "CTRLJ"
6 2
18 0
11 00001372
17 44
5 16458
15
9
17 45
10 00003913
10 00003913
7 "CTRLK"
6 2
18 0
11 00001463
17 47
5 16459
15
9
17 48
10 00003913
10 00003913
7 "CTRLL"
6 2
18 0
11 00001554
17 50
5 16460
15
9
17 51
10 00003913
10 00003913
7 "CTRLM"
6 2
18 0
11 00001645
17 53
5 16461
15
9
17 54
10 00003913
10 00003913
7 "CTRLN"
6 2
18 0
11 00001736
17 56
5 16462
15
9
17 57
10 00003913
10 00003913
7 "CTRLO"
6 2
18 0
11 00001827
17 59
5 16463
15
9
17 60
10 00003913
10 00003913
7 "CTRLP"
6 2
18 0
11 00001918
17 62
5 16464
15
9
17 63
10 00003913
10 00003913
7 "CTRLQ"
6 2
18 0
11 00002009
17 65
5 16465
15
9
17 66
10 00003913
10 00003913
7 "CTRLR"
6 2
18 0
11 00002100
17 68
5 16466
15
9
17 69
10 00003913
10 00003913
7 "CTRLS"
6 2
18 0
11 00002191
17 71
5 16467
15
9
17 72
10 00003913
10 00003913
7 "CTRLT"
6 2
18 0
11 00002282
17 74
5 16468
15
9
17 75
10 00003913
10 00003913
7 "CTRLU"
6 2
18 0
11 00002373
17 77
5 16469
15
9
17 78
10 00003913
10 00003913
7 "CTRLV"
6 2
18 0
11 00002464
17 80
5 16470
15
9
17 81
10 00003913
10 00003913
7 "CTRLW"
6 2
18 0
11 00002555
17 83
5 16471
15
9
17 84
10 00003913
10 00003913
7 "CTRLX"
6 2
18 0
11 00002646
17 86
5 16472
15
9
17 87
10 00003913
10 00003913
7 "CTRLY"
6 2
18 0
11 00002737
17 89
5 16473
15
9
17 90
10 00003913
10 00003913
7 "CTRLF1"
6 2
18 0
11 00002829
17 92
5 16496
15
9
17 93
10 00003913
10 00003913
7 "CTRLF2"
6 2
18 0
11 00002921
17 95
5 16497
15
9
17 96
10 00003913
10 00003913
7 "CTRLF4"
6 2
18 0
11 00003013
17 98
5 16499
15
9
17 99
10 00003913
10 00003913
7 "CTRLF5"
6 2
18 0
11 00003107
17 101
5 16500
15
9
17 102
10 00003913
10 00003913
7 "CTRLF6"
6 2
18 0
11 00003201
17 104
5 16501
15
9
17 105
10 00003913
10 00003913
7 "CTRLF7"
6 2
18 0
11 00003295
17 107
5 16502
15
9
17 108
10 00003913
10 00003913
7 "CTRLF8"
6 2
18 0
11 00003389
17 110
5 16503
15
9
17 111
10 00003913
10 00003913
7 "F3"
6 2
18 0
11 00003477
17 113
5 114
15
9
17 114
10 00003913
10 00003913
7 "F9"
6 2
18 0
11 00003565
17 116
5 120
15
9
17 117
10 00003913
10 00003913
7 "F10"
6 2
18 0
11 00003654
17 119
5 121
15
9
17 120
10 00003913
10 00003913
7 "F11"
6 2
18 0
11 00003743
17 122
5 122
15
9
17 123
10 00003913
10 00003913
7 "F12"
6 2
18 0
11 00003832
17 125
5 123
15
9
17 126
10 00003913
10 00003913
7 "CTRLF9"
6 2
18 0
11 00003913
17 128
5 16504
15
9
17 129
10 00003913
17 132
0 296 0
6 1
15
17 133
9
14 aboutsk
29 0 aboutsk
17 1
29 1 box
0 26 "." "about"
13
8 1
6 0
15
17 2
9
DIALOG SK
-2134376448 10 24 38 300 123 "" "" "DisplayWrite SwitchKit"
FONT 8 "Helv"
26 22 99 79 9000 1352728577 "listbox" "" 0
217 200 33 13 25 1342308353 "button" "Default" 0
7 22 16 79 9003 1352663041 "listbox" "" 0
195 104 17 12 1006 1342177290 "static" "filename.bmp" 0
7 11 40 8 1004 1342177280 "static" "Options:" 0
127 11 45 8 1005 1342177280 "static" "Ami Pro Help:" 0
132 22 166 79 9004 1352728577 "listbox" "" 0
6 107 64 8 1001 1342177280 "static" "Keyboard Shortcut-" 0
72 107 38 10 1008 1342177280 "static" "" 0
260 5 34 13 1 1342373888 "button" "Done" 0
DIALOG about
-2134376448 7 84 26 134 90 "" "" "Ami Pro"
FONT 8 "Helv"
5 6 122 10 1000 1342177281 "static" "Ami Pro SwitchKit" 0
5 16 122 10 1001 1342177281 "static" "for DisplayWrite Users 1993" 0
5 26 122 10 1002 1342177281 "static" "Lotus Development Corporation" 0
5 36 122 10 1003 1342177281 "static" "DisplayWrite 1986 by" 0
5 46 122 10 1004 1342177281 "static" "IBM Corporation" 0
5 56 122 10 1007 1342177281 "static" "All rights Reserved." 0
47 70 40 14 1 1342373889 "button" "OK" 0
00043803