PC go! 1996 January/Image.iso/pcgo/demo/lotus/lwp95gr/lotus001.dsk/BUILTIN4.SMM

INI File | 1994-06-27 | 36.8 KB | 2,883 lines

[ver]
    4
[sty]
    _default.sty
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    5
    5
    Courier
    1538
    2308
    514
    517
    1028
    Helvetica
    257
    257
    257
    257
    257

    257
    257
    257
    257
    257
    Times New Roman
    514
    774
    1029
    517
    1027
    Helv
    2818
    1029
    514
    770
    1026
[revisions]
    0
[recfile]


    1
    1
    3
    8
    0
    0
[lang]
    1
[desc]





    772492543
    62
    739646967
    227
    0
    0
    0
    0
    0






    0
[sequence]
    0
    0
    0
    0
    0
[prn]
    HP LaserJet IIISi PostScript
[port]
    LPT3:
[fopts]
    0
    1
    0
    0
[lnopts]
    2

    1
[docopts]
    0
    0
[GramStyle]

[tag]
    Header
    1
    [fnt]
        Courier
        280
        255
        32769
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        0
        1
        144
        144
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        0
        1
        2
        .
        ,
        $
    Header
    0
    0
[tag]
    Body Text
    1
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        0
        1
        0
        0
        1
        100
    [brk]
        32
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        0
        1
        2
        .
        ,
        $

    22
    1
    360
    1
    720
    1
    1080
    1
    1440
    1
    1800
    1
    2160
    1
    2520
    1
    2880
    1
    3240
    1
    3600
    1
    3960
    1
    4320
    1
    4680
    1
    5040
    1
    5400
    1
    5760
    1
    6480
    1
    7200
    1
    7935
    1
    8640
    1
    9360
    1
    10080
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [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
        792
        1
        14472
        1440
        0
        1
        0
        0
        0
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
<:s><:#P30670848,P786432>

>
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        12240
        1440
        0
        1
        1
        1 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        0
        0
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
<:s><:#P30670848,P786432>

>
[elay]
[l1]
    0
[edoc]
<:#P30670848,P786432>'define TWIPSPERUNIT 3276.8

<:#P30670848,P786432>'define TwipsToUnits(twip) ((32768 / 10) * %1)

@Header@<:#P30670848,P912261>FUNCTION __$TestBit(boolval)

<:#P30670848,P786432>if (boolval)

<:#P30670848,P786432>    __$TestBit = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION __$SetColor(color)

<:#P30670848,P786432>.color.Stack()

<:#P30670848,P786432>.Red = (color & 0xff) + (256 * (color & 0xff))

<:#P30670848,P786432>color = (color & 0xFFFF00) / 256

<:#P30670848,P786432>.Green = (color & 0xff) + (256 * (color & 0xff))

<:#P30670848,P786432>color = (color & 0xFF00) / 256

<:#P30670848,P786432>.Blue = (color & 0xff) + (256 * (color & 0xff))

<:#P30670848,P786432>.Extra = 0

<:#P30670848,P786432>.UnStack(1)

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION __$GetColor(colorp)

<:#P30670848,P786432>.color.Stack()

<:#P30670848,P786432>red = .Red

<:#P30670848,P786432>green = .Green

<:#P30670848,P786432>blue = .blue

<:#P30670848,P786432>color = (.Red & 0xff00) / 256

<:#P30670848,P786432>color = color + (green & 0xff00)

<:#P30670848,P786432>color = color + ((blue & 0xff00) * 256);

<:#P30670848,P1572864>' color = .Red / 256 + (.Green & 0xff00) + ((.Blue & 0xff00) * 256);

<:#P30670848,P786432>*colorp = color;

<:#P30670848,P786432>.UnStack(1)

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P2736783>FUNCTION _$$4CreateDescriptionFile(filename, ftype, fields, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, z)

<:#P30670848,P786432>parmcnt = GetPassedParmCnt()

<:#P30670848,P786432>if (parmcnt <;> 17)

<:#P30670848,P1572864>    Message("Warning!  There is a 15 field maximun for this function.")

<:#P30670848,P786432>endif

<:#P30670848,P786432>oldrep = .Application.Preferences.Replacement

<:#P30670848,P786432>.Application.Preferences.Replacement = 0

<:#P30670848,P786432>.RawNewCmd(.UserInterface.Preferences.StyleSheet, "Ami Pro")

<:#P30670848,P786432>type("{ftype}<[>enter]")

<:#P30670848,P786432>parmcnt = parmcnt - 2

<:#P30670848,P786432>temp = arraysize(&fields)    ' See if they indirected the first one

<:#P30670848,P786432>if (temp <;> parmcnt)

<:#P30670848,P786432>    parmcnt = temp        ' Yes

<:#P30670848,P786432>endif

<:#P30670848,P786432>

<:#P30670848,P786432>for i = 1 to parmcnt

<:#P30670848,P786432>    temp = *fields(i)

<:#P30670848,P786432>    type("{temp}<[>enter]")

<:#P30670848,P786432>next

<:#P30670848,P786432>.SaveAsCmd(filename, "Ami Pro")

<:#P30670848,P786432>if (oldrep != 0)

<:#P30670848,P786432>    .Application.Preferences.Replacement = oldrep

<:#P30670848,P786432>endif

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4OpenDataFile(fname, app)

<:#P30670848,P786432>oldrep = .Application.Preferences.Replacement

<:#P30670848,P786432>.Application.Preferences.Replacement = 0

<:#P30670848,P786432>_$$4OpenDataFile = .OpenCmd(fname, "Ami Pro")

<:#P30670848,P786432>if (oldrep != 0)

<:#P30670848,P786432>    .Application.Preferences.Replacement = oldrep

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4OpenMergeFile(fname, opt, app)

<:#P30670848,P786432>.Application.Preferences.Replacement = __$TestBit(opt & 1)

<:#P30670848,P786432>_$$4OpenMergeFile = .OpenCmd(fname, "Ami Pro")

<:#P30670848,P786432>InsertMerge

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4SelectDataFile(fname, desc)

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>.UserInterface.UIDocument.Merge.Stack()

<:#P30670848,P786432>.Record = fname

<:#P30670848,P786432>.Description = desc

<:#P30670848,P786432>if (0 = desc)

<:#P30670848,P786432>.FilterName = "Ami Pro"

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UnStack(3)

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4Merge(flag, recfile, descfile)

<:#P30670848,P786432>if (3 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, descfile)

<:#P30670848,P786432>elseif (2 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, 0)

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UserInterface.UIDocument.Merge.OptionFlag = 1

<:#P30670848,P786432>.MergeCmd(36)        ' CMDVERB_START

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4Merge(flag, recfile, descfile)

<:#P30670848,P786432>if (3 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, descfile)

<:#P30670848,P786432>elseif (2 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, 0)

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UserInterface.UIDocument.Merge.OptionFlag = 1

<:#P30670848,P786432>return .MergeCmd(36)        ' CMDVERB_START

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P1824522>FUNCTION _$$4MergeToFile(flag, recfile, outfile, descfile)

<:#P30670848,P786432>if (4 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, descfile)

<:#P30670848,P786432>elseif (3 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, 0)

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UserInterface.Merge.Name = outfile

<:#P30670848,P786432>.UserInterface.UIDocument.Merge.OptionFlag = 4

<:#P30670848,P786432>return .MergeCmd(36)        ' CMDVERB_START

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4MergeMacro(flag, recfile, descfile)

<:#P30670848,P786432>if (3 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, descfile)

<:#P30670848,P786432>elseif (2 = GetPassedParmCnt())

<:#P30670848,P786432>    _$$4SelectDataFile(recfile, 0)

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UserInterface.UIDocument.Merge.OptionFlag = 32

<:#P30670848,P786432>return .MergeCmd(36)        ' CMDVERB_START

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4MergeAction(act)

<:#P30670848,P786432>_$$4MergeAction = 1

<:#P30670848,P786432>if (1 = act) ' print and view next

<:#P30670848,P786432>    .Print()

<:#P30670848,P786432>endif

<:#P30670848,P786432>if ((1 = act) or (2 = act)) ' print/skip and view next

<:#P30670848,P786432>    if (.MergeCmd(72))    ' CMDVERB_NEXT

<:#P30670848,P786432>        .MergeCmd(44)    ' CMDVERB_UPDATE

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .MergeCmd(37)    ' CMDVERB_END

<:#P30670848,P786432>        _$$4MergeAction = 0

<:#P30670848,P786432>    endif

<:#P30670848,P786432>elseif (act = 3) ' print the rest

<:#P30670848,P786432>.MergeCmd(32772)

<:#P30670848,P786432>    _$$4MergeAction = 0

<:#P30670848,P786432>elseif (act = 4) ' stop the merge

<:#P30670848,P786432>    .MergeCmd(37)        ' CMDVERB_END

<:#P30670848,P786432>    _$$4MergeAction = 0

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4GetViewLevel()

<:#P30670848,P786432>if (.Window.Stack())

<:#P30670848,P786432>    if (1 = .Fit)

<:#P30670848,P786432>        _$$4GetViewLevel = 201        'Full page

<:#P30670848,P786432>    elseif (100 = .ViewLevel)

<:#P30670848,P786432>        _$$4GetViewLevel = 203        ' Standard

<:#P30670848,P786432>    elseif (200 = .ViewLevel)

<:#P30670848,P786432>        _$$4GetViewLevel = 204        ' Enlarged

<:#P30670848,P786432>    else

<:#P30670848,P786432>        _$$4GetViewLevel = 202        ' Custom

<:#P30670848,P786432>    endif

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4GetMode()

<:#P30670848,P786432>_$$4Getmode = 1                    ' Assume layout

<:#P30670848,P786432>if (.Window.Stack())

<:#P30670848,P786432>    pres = .ViewType

<:#P30670848,P786432>    if (pres & 8)

<:#P30670848,P786432>        _$$4GetMode = 48        ' Outline

<:#P30670848,P786432>    elseif (pres & 2)

<:#P30670848,P786432>        _$$4GetMode = 16        ' Draft

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    .UnStack(1)

<:#P30670848,P786432>endif

<:#P30670848,P786432>if (.Table.Stack())

<:#P30670848,P786432>    _$$4GetMode = _$$4GetMode | 128

<:#P30670848,P786432>    .UnStack(1)

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4MarkBookMark(name, fun)

<:#P30670848,P786432>stat = -2;

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>if (4003 = fun)        ' add

<:#P30670848,P786432>    .Text.Stack()

<:#P30670848,P786432>    _TEMP_ = .Mark("BookMark")

<:#P30670848,P786432>    .UnStack(1)

<:#P30670848,P786432>    .Document.BookMark.Stack()

<:#P30670848,P786432>    stat = .Add(name, _TEMP_)

<:#P30670848,P786432>    .UnStack(2)

<:#P30670848,P786432>    if (0 = stat)

<:#P30670848,P786432>        stat = -2;

<:#P30670848,P786432>        if (.Document.Foundry.Marker(_TEMP_).Stack())

<:#P30670848,P786432>            .Destroy()

<:#P30670848,P786432>            .UnStack(3)

<:#P30670848,P786432>        endif

<:#P30670848,P786432>    endif

<:#P30670848,P786432>elseif (4004 = fun)        ' Delete

<:#P30670848,P786432>    .Document.BookMark.Stack()

<:#P30670848,P786432>    _TEMP_ = .Find(name)

<:#P30670848,P786432>    if ((-1 != _TEMP_) AND ("" != _TEMP_))

<:#P30670848,P786432>        .Remove(name)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    .UnStack(2)

<:#P30670848,P786432>    if (-1 != _TEMP_)

<:#P30670848,P786432>        if (.Document.Foundry.Marker(_TEMP_).Stack())

<:#P30670848,P786432>            .Destroy()

<:#P30670848,P786432>stat = 1;

<:#P30670848,P786432>            .UnStack(3)

<:#P30670848,P786432>        endif

<:#P30670848,P786432>    endif

<:#P30670848,P786432>elseif (4002 = fun)        ' Goto

<:#P30670848,P786432>_TEMP_ = .Document.BookMark.Find(name)

<:#P30670848,P786432>if (1 = .Document.Foundry.Marker(_TEMP_).GoTo())

<:#P30670848,P786432>    stat = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return stat;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4SetDefOptions(opt, hotzone)

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>.UserInterface.Preferences.Stack()

<:#P30670848,P786432>.PrintOpt = __$TestBit(opt & 4)

<:#P30670848,P786432>.Size = -32767

<:#P30670848,P786432>if (opt & 64)

<:#P30670848,P786432>    .Snapshot = 1

<:#P30670848,P786432>elseif (opt & 16)

<:#P30670848,P786432>    .Snapshot = 3

<:#P30670848,P786432>else

<:#P30670848,P786432>    .Snapshot = 2

<:#P30670848,P786432>endif

<:#P30670848,P786432>.UnStack(2)

<:#P30670848,P786432>.Document.Options.Stack()

<:#P30670848,P786432>.Hyphen = hotzone

<:#P30670848,P786432>.Widow = __$TestBit(opt & 2)

<:#P30670848,P786432>.Kerning = __$TestBit(opt & 1)

<:#P30670848,P786432>.Paragraph = __$TestBit(opt & 128)

<:#P30670848,P786432>.ColumnNum = __$TestBit(opt & 256)

<:#P30670848,P786432>.UnStack(2)

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return 1

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION GetSome(keys)

<:#P30670848,P786432>temp = .Text.ViewLev;

<:#P30670848,P1572864>.Text.ViewLev = temp & 0xfffc        ' Caret and selection not visible

<:#P30670848,P786432>.Push()

<:#P30670848,P786432>type(keys)

<:#P30670848,P786432>GetSome = CurShade$()

<:#P30670848,P786432>.Pop()

<:#P30670848,P786432>.Text.ViewLev = temp                        ' Restore view

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4GetTextBeforeCursor()

<:#P30670848,P786432>return GetSome("<[>ctrlshiftup]")

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4CurChar()

<:#P30670848,P786432>return GetSome("<[>shiftright]")

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4TypeOver(over)

<:#P30670848,P786432>if (0 = GetPassedParmCnt())

<:#P30670848,P786432>    over = .Application.Preferences.Insertion

<:#P30670848,P786432>endif

<:#P30670848,P786432>if (over)

<:#P30670848,P786432>    over = 0

<:#P30670848,P786432>else

<:#P30670848,P786432>    over = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>.Application.Preferences.Insertion = over

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4ChangeLanguage(path, newlang, curlang)

<:#P30670848,P786432>.UserInterface.Preferences.Language = newlang;

<:#P30670848,P786432>.UserInterface.UIDocument.Language = curlang;

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION __$FlipBit(bit)

<:#P30670848,P786432>if (bit)

<:#P30670848,P786432>    __$FlipBit = 0

<:#P30670848,P786432>else

<:#P30670848,P786432>    __$FlipBit = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4SpellCheck(opts)

<:#P30670848,P786432>.UserInterface.Preferences.Stack()

<:#P30670848,P786432>.Start = __$TestBit(opts & 1)

<:#P30670848,P786432>.Stream = __$TestBit(opts & 2)

<:#P30670848,P786432>.Word = __$FlipBit(opts & 4)

<:#P30670848,P786432>.NumberType = __$FlipBit(opts & 8)

<:#P30670848,P786432>.Caps = __$FlipBit(opts & 16)

<:#P30670848,P786432>.Alternative = __$FlipBit(opts & 64)

<:#P30670848,P786432>.UnStack(2)

<:#P30670848,P786432>Spell()

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4AssignMacroToFile(om, cm, flg)

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>.UserInterface.UIDocument.MacroObj.Stack()

<:#P30670848,P786432>.LoadName = om

<:#P30670848,P786432>.ExitName = cm

<:#P30670848,P786432>.LoadOpt = __$TestBit(flg & 2)

<:#P30670848,P786432>.Exit = __$TestBit(flg & 4)

<:#P30670848,P786432>.UnStack(3)

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>

@Header@<:#P30670848,P912261>FUNCTION _$$4ChangeShortcutKey(fname, key, state)

<:#P30670848,P786432>key = asc(key)                    ' Turn it into a number

<:#P30670848,P786432>slen = len(state)                ' Determine loop count

<:#P30670848,P786432>while (slen <;> 0)

<:#P30670848,P786432>    c = Left$(state, 1)        ' Pluck off the next one

<:#P30670848,P786432>    if ("C" = UCASE$(c))

<:#P30670848,P786432>        key = key | 0x4000

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    if ("A" = UCASE$(c))

<:#P30670848,P786432>        key = key | 0x2000

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    if ("S" = UCASE$(C))

<:#P30670848,P786432>        key = key | 0x1000

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    slen = slen - 1

<:#P30670848,P786432>    state = Right$(state, slen)        ' Shift the string over

<:#P30670848,P786432>wend

<:#P30670848,P786432>OnKey(key, 0, fname)

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4FieldShow(show)

<:#P30670848,P786432>if (0 = GetPassedParmCnt())            ' Toggle?

<:#P30670848,P786432>    show = __$FlipBit(.UserInterface.WinView.Field)

<:#P30670848,P786432>endif

<:#P30670848,P786432>if (show != .UserInterface.WinView.Field)

<:#P30670848,P786432>    BeginChange()

<:#P30670848,P786432>    .UserInterface.WinView.Field = show

<:#P30670848,P786432>    .Document.Foundry.Revert("PowerField")

<:#P30670848,P786432>    EndChange(1)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return show;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P1824522>FUNCTION _$$4Replace(sattr, dattr, flg, findstr, repstr)

<:#P30670848,P786432>if (.Application.Search.Stack())

<:#P30670848,P786432>    if (.Font.Stack())

<:#P30670848,P786432>        .Clear()

<:#P30670848,P786432>        if (0 != sattr)

<:#P30670848,P786432>            .Bold = __$TestBit(sattr & 4)

<:#P30670848,P786432>            .Italic = __$TestBit(sattr & 8)

<:#P30670848,P786432>            .Underline = __$TestBit(sattr & 16)

<:#P30670848,P786432>            .SmallCaps = __$TestBit(sattr & 32768)

<:#P30670848,P786432>        endif

<:#P30670848,P786432>        .UnStack(1)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    if (.Font2.Stack())

<:#P30670848,P786432>        .Clear()

<:#P30670848,P786432>        if (0 != dattr)

<:#P30670848,P786432>            .Bold = __$TestBit(dattr & 4)

<:#P30670848,P786432>            .Italic = __$TestBit(dattr & 8)

<:#P30670848,P786432>            .Underline = __$TestBit(dattr & 16)

<:#P30670848,P786432>            .SmallCaps = __$TestBit(dattr & 32768)

<:#P30670848,P786432>        endif

<:#P30670848,P786432>        .Unstack(1)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    .Word = __$TestBit(flg & 4)                    ' Whole word

<:#P30670848,P786432>    .Case = __$TestBit(flg & 1)                    ' Exact case

<:#P30670848,P786432>    .Attributes = __$TestBit(flg & 64)        ' Find exact attr

<:#P30670848,P786432>    .ReplaceCase = __$TestBit(flg & 16)        ' Replace exact case

<:#P30670848,P786432>    .ReplaceAttrs = __$TestBit(flg & 32)    ' Replace exact attr

<:#P30670848,P786432>    if (flg & 8)

<:#P30670848,P786432>        .Application.Search.DirectionUp = 1

<:#P30670848,P786432>        .Application.Search.Stream = 0

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .Application.Search.DirectionUp = 0

<:#P30670848,P786432>        .Start = __$TestBit(flg & 8192)

<:#P30670848,P786432>        .Stream = __$TestBit(flg & 16384)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    .TextName = 1

<:#P30670848,P786432>    .ID = findstr

<:#P30670848,P786432>    .Replacement = repstr

<:#P30670848,P786432>    .UnStack(2)

<:#P30670848,P786432>endif

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>if (flg & 1024)

<:#P30670848,P786432>    stat = .ReplaceAll()

<:#P30670848,P786432>else

<:#P30670848,P786432>    if (flg & 8192)

<:#P30670848,P786432>        .Push()

<:#P30670848,P786432>        .DoStart(Stream)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    _$TEMP$_ = .Text.Mark("")

<:#P30670848,P786432>    stat = .Forward(Search, 18, 0, _$TEMP$_)

<:#P30670848,P786432>    .Document.Foundry.Marker(_$TEMP$_).Stack()

<:#P30670848,P786432>    .Destroy()

<:#P30670848,P786432>    .UnStack(3)

<:#P30670848,P786432>    if (flg & 8192)

<:#P30670848,P786432>        if (stat)

<:#P30670848,P786432>            .Pull()

<:#P30670848,P786432>        else

<:#P30670848,P786432>            .Pop()

<:#P30670848,P786432>        endif

<:#P30670848,P786432>    endif

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return stat

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4AtEof()

<:#P30670848,P786432>return .Text.EndOfStream

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P1824522>FUNCTION _$$4SetMasterFiles(sz, cnt, files,f2,f3,f4,f5, f6,f7,f8,f9,f10,f11,f12,f13,f14,f15)

<:#P30670848,P786432>if (.UserInterface.UIDocument.Master.Stack())

<:#P30670848,P786432>    .Clear()

<:#P30670848,P786432>    cnt = ArraySize(&files)

<:#P30670848,P786432>    for i = 1 to cnt

<:#P30670848,P786432>        .Add(files(i))

<:#P30670848,P786432>    next

<:#P30670848,P786432>    .UnStack(3)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return 1

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4SetTOCFile(fname)

<:#P30670848,P786432>.UserInterface.UIDocument.TableOfContents.LastDocPath = fname

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4SetIndexFile(seps, fname)

<:#P30670848,P786432>if (.UserInterface.UIDocument.Index.Stack())

<:#P30670848,P786432>    .Separator = __$TestBit(seps & 1)

<:#P30670848,P786432>    .LastDocPath = fname

<:#P30670848,P786432>    UnStack(3)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return 1

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4ImportPicture(app, fname, ext, copyimage)

<:#P30670848,P786432>return .InsertCmd(fname, app)

<:#P30670848,P786432>END FUNCTION

@Header@<:#P30670848,P912261>FUNCTION _$$4MasterFile(files)

<:#P30670848,P786432>x = 0

<:#P30670848,P786432>if (.UserInterface.UIDocument.Master.Stack())

<:#P30670848,P786432>    if (0 = GetPassedParmCnt())

<:#P30670848,P786432>        dim myfiles(20)

<:#P30670848,P786432>        x = SendPrimitive(32, &myfiles)

<:#P30670848,P786432>    else

<:#P30670848,P786432>        x = SendPrimitive(32, &files)

<:#P30670848,P786432>    endif

<:#P30670848,P786432>endif

<:#P30670848,P786432>return x

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

@Header@<:#P30670848,P912261>FUNCTION _$$4TableGetRange(srow, scol, erow, ecol)

<:#P30670848,P786432>if (.Table.Stack());

<:#P30670848,P786432>    *srow = .FocusRow;

<:#P30670848,P786432>    *erow = .FocusRow2;

<:#P30670848,P786432>    *scol = .FocusCol;

<:#P30670848,P786432>    *ecol = .FocusCol2;

<:#P30670848,P786432>    _$$4TableGetRange = 1

<:#P30670848,P786432>    .UnStack(1)

<:#P30670848,P786432>else

<:#P30670848,P786432>    _$$4TableGetRange = 0

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:s><:#P30670848,P786432>
>

[Embedded]
00023795
>
[macsum4] 34 530
__$TestBit 0 1 1 2
__$SetColor 104 1 1 7
__$GetColor 501 1 5 17
_$$4CreateDescriptionFile 867 18 5 29
_$$4OpenDataFile 1820 2 2 54
_$$4OpenMergeFile 2064 3 1 62
_$$4SelectDataFile 2264 2 1 67
_$$4Merge 2539 3 1 79
_$$4Merge 2850 3 1 88
_$$4MergeToFile 3172 4 1 97
_$$4MergeMacro 3546 3 1 107
_$$4MergeAction 3879 1 1 116
_$$4GetViewLevel 4346 0 1 136
_$$4GetMode 4677 0 2 149
_$$4MarkBookMark 5017 2 3 165
_$$4SetDefOptions 5991 2 1 205
GetSome 6661 1 2 228
_$$4GetTextBeforeCursor 6889 0 1 237
_$$4CurChar 7004 0 1 240
_$$4TypeOver 7094 1 1 243
_$$4ChangeLanguage 7340 3 1 255
__$FlipBit 7519 1 1 260
_$$4SpellCheck 7648 1 1 267
_$$4AssignMacroToFile 8102 3 1 279
_$$4ChangeShortcutKey 8409 3 3 291
_$$4FieldShow 9028 1 1 311
_$$4Replace 9355 5 3 323
_$$4AtEof 11183 0 1 387
_$$4SetMasterFiles 11259 17 2 390
_$$4SetTOCFile 11753 1 1 401
_$$4SetIndexFile 11878 2 1 405
_$$4ImportPicture 12113 4 1 413
_$$4MasterFile 12262 1 3 416
_$$4TableGetRange 12562 4 1 429
[macse]
14 __$TestBit
29 0 boolval
29 1 __$TestBit
17 1
6 0
11 00000086
17 2
5 1
8 1
6 1
15
17 4
9
14 __$SetColor
29 0 color
29 1 __$SetColor
17 1
33 53
17 2
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 77
17 3
6 0
5 16776960
25 1
5 256
4 1
8 0
17 4
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 78
17 5
6 0
5 65280
25 1
5 256
4 1
8 0
17 6
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 79
17 7
5 0
30 80
17 8
0 69 1
6 1
15
17 9
9
14 __$GetColor
29 0 colorp
29 1 __$GetColor
17 1
33 53
17 2
29 2 red
31 77
13
8 2
17 3
29 3 green
31 78
13
8 3
17 4
29 4 blue
31 79
13
8 4
17 5
29 5 color
31 77
13
5 65280
25 1
5 256
4 1
8 5
17 6
6 5
6 3
5 65280
25 1
3 0
8 5
17 7
6 5
6 4
5 65280
25 1
5 256
4 0
3 0
8 5
17 9
6 5
28 0
17 10
0 69 1
6 1
15
17 11
9
14 _$$4CreateDescriptionFile
29 0 filename
29 1 ftype
29 2 fields
29 3 f2
29 4 f3
29 5 f4
29 6 f5
29 7 f6
29 8 f7
29 9 f8
29 10 f9
29 11 f10
29 12 f11
29 13 f12
29 14 f13
29 15 f14
29 16 f15
29 17 z
29 18 _$$4CreateDescriptionFile
17 1
29 19 parmcnt
0 52
13
8 19
17 2
6 19
5 17
18 3
11 00000395
17 3
0 3 "Warning!  There is a 15 field maximun for this function."
17 5
29 20 oldrep
31 1 45 41
13
8 20
17 6
5 0
30 1 45 41
17 7
31 101 45 235
13
34 0 17 [X] "Ami Pro"
17 8
0 6 "{1}[13]"
17 9
6 19
5 2
3 1
8 19
17 10
29 21 temp
0 1046 &2
13
8 21
17 11
6 21
6 19
18 3
11 00000654
17 12
6 21
8 19
29 22 i
5 1
8 22
17 15
6 19
6 22
18 2
12 00000760
10 00000821
5 1
6 22
3 0
8 22
10 00000674
17 16
6 22
22 2
8 21
17 17
0 6 "{21}[13]"
10 00000725
17 19
34 0 6 "{0}" "Ami Pro"
17 20
6 20
5 0
18 1
11 00000914
17 21
6 20
30 1 45 41
17 23
5 1
15
9
6 18
15
17 24
9
14 _$$4OpenDataFile
29 0 fname
29 1 app
29 2 _$$4OpenDataFile
17 1
29 3 oldrep
31 1 45 41
13
8 3
17 2
5 0
30 1 45 41
17 3
34 0 3 "{0}" "Ami Pro"
13
8 2
17 4
6 3
5 0
18 1
11 00000226
17 5
6 3
30 1 45 41
6 2
15
17 7
9
14 _$$4OpenMergeFile
29 0 fname
29 1 opt
29 2 app
29 3 _$$4OpenMergeFile
17 1
6 1
5 1
25 1
16 __$TestBit [X]
13
30 1 45 41
17 2
34 0 3 "{0}" "Ami Pro"
13
8 3
24 182
6 3
15
17 4
9
14 _$$4SelectDataFile
29 0 fname
29 1 desc
29 2 _$$4SelectDataFile
17 1
0 49
17 2
33 101 -32741 221
17 3
6 0
30 223
17 4
6 1
30 162
17 5
5 0
6 1
18 0
11 00000209
17 6
7 "Ami Pro"
30 181
17 8
0 69 3
17 9
0 50 1
17 10
5 1
15
9
6 2
15
17 11
9
14 _$$4Merge
29 0 flag
29 1 recfile
29 2 descfile
29 3 _$$4Merge
17 1
5 3
0 52
13
18 0
11 00000164
17 2
16 _$$4SelectDataFile "{1}" "{2}"
10 00000241
17 3
5 2
0 52
13
18 0
11 00000241
17 4
16 _$$4SelectDataFile "{1}" 0
17 6
5 1
30 101 -32741 221 130
17 7
34 0 16 36
6 3
15
17 8
9
14 _$$4Merge
29 0 flag
29 1 recfile
29 2 descfile
29 3 _$$4Merge
17 1
5 3
0 52
13
18 0
11 00000164
17 2
16 _$$4SelectDataFile "{1}" "{2}"
10 00000241
17 3
5 2
0 52
13
18 0
11 00000241
17 4
16 _$$4SelectDataFile "{1}" 0
17 6
5 1
30 101 -32741 221 130
17 7
34 0 16 36
13
15
9
6 3
15
17 8
9
14 _$$4MergeToFile
29 0 flag
29 1 recfile
29 2 outfile
29 3 descfile
29 4 _$$4MergeToFile
17 1
5 4
0 52
13
18 0
11 00000190
17 2
16 _$$4SelectDataFile "{1}" "{3}"
10 00000267
17 3
5 3
0 52
13
18 0
11 00000267
17 4
16 _$$4SelectDataFile "{1}" 0
17 6
6 2
30 101 221 29
17 7
5 4
30 101 -32741 221 130
17 8
34 0 16 36
13
15
9
6 4
15
17 9
9
14 _$$4MergeMacro
29 0 flag
29 1 recfile
29 2 descfile
29 3 _$$4MergeMacro
17 1
5 3
0 52
13
18 0
11 00000174
17 2
16 _$$4SelectDataFile "{1}" "{2}"
10 00000251
17 3
5 2
0 52
13
18 0
11 00000251
17 4
16 _$$4SelectDataFile "{1}" 0
17 6
5 32
30 101 -32741 221 130
17 7
34 0 16 36
13
15
9
6 3
15
17 8
9
14 _$$4MergeAction
29 0 act
29 1 _$$4MergeAction
17 1
5 1
8 1
17 2
5 1
6 0
18 0
11 00000118
17 3
34 0 15
17 5
5 1
6 0
18 0
5 2
6 0
18 0
1 2
11 00000288
17 6
34 0 16 72
13
11 00000240
17 7
34 0 16 44
10 00000275
17 9
34 0 16 37
17 10
5 0
8 1
10 00000448
17 12
6 0
5 3
18 0
11 00000376
17 13
34 0 16 32772
17 14
5 0
8 1
10 00000448
17 15
6 0
5 4
18 0
11 00000448
17 16
34 0 16 37
17 17
5 0
8 1
6 1
15
17 19
9
14 _$$4GetViewLevel
29 0 _$$4GetViewLevel
17 1
33 3
13
11 00000312
17 2
5 1
31 85
13
18 0
11 00000146
17 3
5 201
8 0
10 00000312
17 4
5 100
31 20
13
18 0
11 00000220
17 5
5 203
8 0
10 00000312
17 6
5 200
31 20
13
18 0
11 00000294
17 7
5 204
8 0
10 00000312
17 9
5 202
8 0
6 0
15
17 12
9
14 _$$4GetMode
29 0 _$$4GetMode
17 1
5 1
8 0
17 2
33 3
13
11 00000244
17 3
29 1 pres
31 21
13
8 1
17 4
6 1
5 8
25 1
11 00000178
17 5
5 48
8 0
10 00000230
17 6
6 1
5 2
25 1
11 00000230
17 7
5 16
8 0
17 9
0 69 1
17 11
33 23
13
11 00000321
17 12
6 0
5 128
25 2
8 0
17 13
0 69 1
6 0
15
17 15
9
14 _$$4MarkBookMark
29 0 name
29 1 fun
29 2 _$$4MarkBookMark
17 1
29 3 stat
5 -2
8 3
17 2
0 49
17 3
5 4003
6 1
18 0
11 00000432
17 4
33 18
17 5
29 4 _TEMP_
32 0 68 "BookMark"
13
8 4
17 6
0 69 1
17 7
33 2 309
17 8
32 0 7 "{0}" "{4}"
13
8 3
17 9
0 69 2
17 10
5 0
6 3
18 0
11 00000419
17 11
5 -2
8 3
17 12
33 2 84 317 (  "{4}" )
13
11 00000419
17 13
32 0 22
17 14
0 69 3
10 00000921
17 17
5 4004
6 1
18 0
11 00000762
17 18
33 2 309
17 19
32 0 93 "{0}"
13
8 4
17 20
5 -1
6 4
18 1
7 ""
6 4
18 1
1 1
11 00000600
17 21
32 0 8 "{0}"
17 23
0 69 2
17 24
5 -1
6 4
18 1
11 00000749
17 25
33 2 84 317 (  "{4}" )
13
11 00000749
17 26
32 0 22
17 27
5 1
8 3
17 28
0 69 3
10 00000921
17 31
5 4002
6 1
18 0
11 00000921
17 32
32 2 2 309 93  "{0}"
13
8 4
17 33
5 1
32 6 2 84 317 (  "{4}" ) 71
13
18 0
11 00000921
17 34
5 1
8 3
17 37
0 50 1
17 38
6 3
15
9
6 2
15
17 39
9
14 _$$4SetDefOptions
29 0 opt
29 1 hotzone
29 2 _$$4SetDefOptions
17 1
0 49
17 2
33 101 45
17 3
6 0
5 4
25 1
16 __$TestBit [X]
13
30 62
17 4
5 -32767
30 30
17 5
6 0
5 64
25 1
11 00000243
17 6
5 1
30 206
10 00000331
17 7
6 0
5 16
25 1
11 00000311
17 8
5 3
30 206
10 00000331
17 10
5 2
30 206
17 12
0 69 2
17 13
33 2 130
17 14
6 1
30 131
17 15
6 0
5 2
25 1
16 __$TestBit [X]
13
30 132
17 16
6 0
5 1
25 1
16 __$TestBit [X]
13
30 133
17 17
6 0
5 128
25 1
16 __$TestBit [X]
13
30 35
17 18
6 0
5 256
25 1
16 __$TestBit [X]
13
30 43
17 19
0 69 2
17 20
0 50 1
17 21
5 1
15
9
6 2
15
17 22
9
14 GetSome
29 0 keys
29 1 GetSome
17 1
29 2 temp
31 18 70
13
8 2
17 2
6 2
5 65532
25 1
30 18 70
17 3
32 0 42
17 4
0 6 "{0}"
17 5
16 _$$3CurShade$
13
8 1
17 6
32 0 43
17 7
6 2
30 18 70
6 1
15
17 8
9
14 _$$4GetTextBeforeCursor
29 0 _$$4GetTextBeforeCursor
17 1
16 GetSome "[20518]"
13
15
9
6 0
15
17 2
9
14 _$$4CurChar
29 0 _$$4CurChar
17 1
16 GetSome "[4135]"
13
15
9
6 0
15
17 2
9
14 _$$4TypeOver
29 0 over
29 1 _$$4TypeOver
17 1
5 0
0 52
13
18 0
11 00000115
17 2
31 1 45 323
13
8 0
17 4
6 0
11 00000168
17 5
5 0
8 0
10 00000184
17 7
5 1
8 0
17 9
6 0
30 1 45 323
17 10
5 1
15
9
6 1
15
17 11
9
14 _$$4ChangeLanguage
29 0 path
29 1 newlang
29 2 curlang
29 3 _$$4ChangeLanguage
17 1
6 1
30 101 45 237
17 2
6 2
30 101 -32741 237
17 3
5 1
15
9
6 3
15
17 4
9
14 __$FlipBit
29 0 bit
29 1 __$FlipBit
17 1
6 0
11 00000095
17 2
5 0
8 1
10 00000111
17 4
5 1
8 1
6 1
15
17 6
9
14 _$$4SpellCheck
29 0 opts
29 1 _$$4SpellCheck
17 1
33 101 45
17 2
6 0
5 1
25 1
16 __$TestBit [X]
13
30 231
17 3
6 0
5 2
25 1
16 __$TestBit [X]
13
30 34
17 4
6 0
5 4
25 1
16 __$FlipBit [X]
13
30 38
17 5
6 0
5 8
25 1
16 __$FlipBit [X]
13
30 151
17 6
6 0
5 16
25 1
16 __$FlipBit [X]
13
30 267
17 7
6 0
5 64
25 1
16 __$FlipBit [X]
13
30 266
17 8
0 69 2
17 9
2 475 0
17 10
5 1
15
9
6 1
15
17 11
9
14 _$$4AssignMacroToFile
29 0 om
29 1 cm
29 2 flg
29 3 _$$4AssignMacroToFile
17 1
0 49
17 2
33 101 -32741 57
17 3
6 0
30 119
17 4
6 1
30 120
17 5
6 2
5 2
25 1
16 __$TestBit [X]
13
30 54
17 6
6 2
5 4
25 1
16 __$TestBit [X]
13
30 55
17 7
0 69 3
17 8
0 50 1
6 3
15
17 9
9
14 _$$4ChangeShortcutKey
29 0 fname
29 1 key
29 2 state
29 3 _$$4ChangeShortcutKey
17 1
0 40 "{1}"
13
8 1
17 2
29 4 slen
0 14 "{2}"
13
8 4
17 3
6 4
5 0
18 3
11 00000538
17 4
29 5 c
0 806 "{2}" 1
13
8 5
17 5
7 "C"
0 18 "{5}"
13
18 0
11 00000305
17 6
6 1
5 16384
25 2
8 1
17 8
7 "A"
0 18 "{5}"
13
18 0
11 00000383
17 9
6 1
5 8192
25 2
8 1
17 11
7 "S"
0 18 "{5}"
13
18 0
11 00000463
17 12
6 1
5 4096
25 2
8 1
17 14
6 4
5 1
3 1
8 4
17 15
0 807 "{2}" "{4}"
13
8 2
10 00000153
17 17
32 2 101 -32682 7  "{0}" "{1}" 0 1
17 18
5 1
15
9
6 3
15
17 19
9
14 _$$4FieldShow
29 0 show
29 1 _$$4FieldShow
17 1
5 0
0 52
13
18 0
11 00000146
17 2
31 101 -32745 329
13
16 __$FlipBit [X]
13
8 0
17 4
6 0
31 101 -32745 329
13
18 1
11 00000289
17 5
0 49
17 6
6 0
30 101 -32745 329
17 7
32 2 2 84 65  "PowerField"
17 8
0 50 1
17 10
6 0
15
9
6 1
15
17 11
9
14 _$$4Replace
29 0 sattr
29 1 dattr
29 2 flg
29 3 findstr
29 4 repstr
29 5 _$$4Replace
17 1
33 1 217
13
11 00001341
17 2
33 28
13
11 00000439
17 3
32 0 62
17 4
5 0
6 0
18 1
11 00000424
17 5
6 0
5 4
25 1
16 __$TestBit [X]
13
30 31
17 6
6 0
5 8
25 1
16 __$TestBit [X]
13
30 32
17 7
6 0
5 16
25 1
16 __$TestBit [X]
13
30 33
17 8
6 0
5 32768
25 1
16 __$TestBit [X]
13
30 172
17 10
0 69 1
17 12
33 215
13
11 00000757
17 13
32 0 62
17 14
5 0
6 1
18 1
11 00000742
17 15
6 1
5 4
25 1
16 __$TestBit [X]
13
30 31
17 16
6 1
5 8
25 1
16 __$TestBit [X]
13
30 32
17 17
6 1
5 16
25 1
16 __$TestBit [X]
13
30 33
17 18
6 1
5 32768
25 1
16 __$TestBit [X]
13
30 172
17 20
0 69 1
17 22
6 2
5 4
25 1
16 __$TestBit [X]
13
30 38
17 23
6 2
5 1
25 1
16 __$TestBit [X]
13
30 167
17 24
6 2
5 64
25 1
16 __$TestBit [X]
13
30 218
17 25
6 2
5 16
25 1
16 __$TestBit [X]
13
30 219
17 26
6 2
5 32
25 1
16 __$TestBit [X]
13
30 220
17 27
6 2
5 8
25 1
11 00001129
17 28
5 1
30 1 217 182
17 29
5 0
30 1 217 34
10 00001269
17 31
5 0
30 1 217 182
17 32
6 2
5 8192
25 1
16 __$TestBit [X]
13
30 231
17 33
6 2
5 16384
25 1
16 __$TestBit [X]
13
30 34
17 35
5 1
30 18
17 36
6 3
30 42
17 37
6 4
30 41
17 38
0 69 2
17 40
0 49
17 41
6 2
5 1024
25 1
11 00001442
17 42
29 6 stat
34 0 54
13
8 6
10 00001775
17 44
6 2
5 8192
25 1
11 00001516
17 45
32 0 42
17 46
32 0 36 34
17 48
29 7 _$TEMP$_
32 1 18 68  ""
13
8 7
17 49
32 0 38 217 18 0 "{7}"
13
8 6
17 50
33 2 84 317 (  "{7}" )
17 51
32 0 22
17 52
0 69 3
17 53
6 2
5 8192
25 1
11 00001775
17 54
6 6
11 00001759
17 55
32 0 98
10 00001775
17 57
32 0 43
17 61
0 50 1
17 62
6 6
15
9
6 5
15
17 63
9
14 _$$4AtEof
29 0 _$$4AtEof
17 1
31 18 342
13
15
9
6 0
15
17 2
9
14 _$$4SetMasterFiles
29 0 sz
29 1 cnt
29 2 files
29 3 f2
29 4 f3
29 5 f4
29 6 f5
29 7 f6
29 8 f7
29 9 f8
29 10 f9
29 11 f10
29 12 f11
29 13 f12
29 14 f13
29 15 f14
29 16 f15
29 17 _$$4SetMasterFiles
17 1
33 101 -32741 127
13
11 00000456
17 2
32 0 62
17 3
0 1046 &2
13
8 1
29 18 i
5 1
8 18
17 4
6 1
6 18
18 2
12 00000407
10 00000442
5 1
6 18
3 0
8 18
10 00000323
17 5
32 0 7 "{2}" (
10 00000372
17 7
0 69 3
17 9
5 1
15
9
6 17
15
17 10
9
14 _$$4SetTOCFile
29 0 fname
29 1 _$$4SetTOCFile
17 1
6 0
30 101 -32741 207 -32747
17 2
5 1
15
9
6 1
15
17 3
9
14 _$$4SetIndexFile
29 0 seps
29 1 fname
29 2 _$$4SetIndexFile
17 1
33 101 -32741 259
13
11 00000199
17 2
6 0
5 1
25 1
16 __$TestBit [X]
13
30 229
17 3
6 1
30 -32747
17 4
0 69 3
17 6
5 1
15
9
6 2
15
17 7
9
14 _$$4ImportPicture
29 0 app
29 1 fname
29 2 ext
29 3 copyimage
29 4 _$$4ImportPicture
17 1
34 0 5 "{1}" "{0}"
13
15
9
6 4
15
17 2
9
14 _$$4MasterFile
29 0 files
29 1 _$$4MasterFile
17 1
29 2 x
5 0
8 2
17 2
33 101 -32741 127
13
11 00000262
17 3
5 0
0 52
13
18 0
11 00000235
17 4
5 20
29 3 myfiles
21 3 [X]
17 5
0 59 32 &3
13
8 2
10 00000262
17 7
0 59 32 &0
13
8 2
17 10
6 2
15
9
6 1
15
17 11
9
14 _$$4TableGetRange
29 0 srow
29 1 scol
29 2 erow
29 3 ecol
29 4 _$$4TableGetRange
17 1
33 23
13
11 00000260
17 2
31 333
13
28 0
17 3
31 362
13
28 2
17 4
31 334
13
28 1
17 5
31 363
13
28 3
17 6
5 1
8 4
17 7
0 69 1
10 00000276
17 9
5 0
8 4
6 4
15
17 11
9
00023820