Liren Large Software Subsidy 14/14.iso/s/s005/54.ddi/BUILTIN4.SM$/BUILTIN4.SMM

INI File | 1993-11-10 | 38.3 KB | 2,896 lines

[ver]
    4
[sty]
    _default.sty
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    4
    5
    Courier
    1538
    2308
    514
    517
    1028
    Helvetica
    2818
    1030
    514
    770
    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]





    752975410
    53
    739646967
    213
    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
    9
    [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]
        280
        1
        2
        .
        ,
        $
    Header
    0
    0
[tag]
    Body Text
    2
    [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]
        280
        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>

>
    [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
        792
        1440
        0
        1
        0
        0
        0
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]
<:s>

>
[elay]
[lay]
    1
    1537
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        0
        16777215
        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><:#P30670848,P786432>

>
    [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><:#P30670848,P786432>

>
[elay]
[l1]
    1
[edoc]
<:s><:#P30670848,P786432>define TWIPSPERUNIT 3276.8

<:s><:#P30670848,P786432>define TwipsToUnits(twip) (TWIPSPERUNIT * %1)

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

<:s><:#P30670848,P786432>if (boolval)

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>.Extra = 0

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

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

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

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

<:s><:#P30670848,P786432>red = .Red

<:s><:#P30670848,P786432>green = .Green

<:s><:#P30670848,P786432>blue = .blue

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>.OpenCmd(fname, "Ami Pro")

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

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

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

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

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

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

<:s><:#P30670848,P786432>.OpenCmd(fname, "Ami Pro")

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

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

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

<:s><:#P30670848,P786432>BeginChange()

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

<:s><:#P30670848,P786432>.Record = fname

<:s><:#P30670848,P786432>.Description = desc

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

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

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

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

<:s><:#P30670848,P786432>EndChange(1)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>    .Print()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>    pres = .ViewType

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>BeginChange()

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>            .Destroy()

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>            .Destroy()

<:s><:#P30670848,P786432>stat = 1;

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

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

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

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

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

<:s><:#P30670848,P786432>.Document.Foundry.Marker(_TEMP_).GoTo()

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

<:s><:#P30670848,P786432>EndChange(1)

<:s><:#P30670848,P786432>return stat;

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

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

<:s><:#P30670848,P786432>BeginChange()

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

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

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

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

<:s><:#P30670848,P786432>    .Snapshot = 1

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

<:s><:#P30670848,P786432>    .Snapshot = 3

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

<:s><:#P30670848,P786432>    .Snapshot = 2

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

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

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

<:s><:#P30670848,P786432>.Hyphen = hotzone

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

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

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

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

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

<:s><:#P30670848,P786432>EndChange(1)

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

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

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

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

<:s><:#P30670848,P786432>.Text.View = temp & 0xfffc        ' Caret and selection not visible

<:s><:#P30670848,P786432>.Push()

<:s><:#P30670848,P786432>type(keys)

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

<:s><:#P30670848,P786432>.Pop()

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>if (over)

<:s><:#P30670848,P786432>    over = 0

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

<:s><:#P30670848,P786432>    over = 1

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>if (bit)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>Spell()

<:s><:#P30670848,P786432>return 1;

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

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

<:s><:#P30670848,P786432>BeginChange()

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

<:s><:#P30670848,P786432>.LoadName = om

<:s><:#P30670848,P786432>.ExitName = cm

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

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

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

<:s><:#P30670848,P786432>EndChange(1)

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

<:s><:#P30670848,P786432>

<:s><:#P30670848,P786432>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>BeginChange()

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

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

<:s><:#P30670848,P786432>EndChange(1)

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

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

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

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

<:s><:#P30670848,P786432>        .Clear()

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>        .Clear()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>    .Text = 1

<:s><:#P30670848,P786432>    .ID = findstr

<:s><:#P30670848,P786432>    .Replacement = repstr

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

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

<:s><:#P30670848,P786432>BeginChange()

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

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

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

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

<:s><:#P30670848,P786432>        .Push()

<:s><:#P30670848,P786432>        .Start(Stream)

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

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

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

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

<:s><:#P30670848,P786432>    .Destroy()

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

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

<:s><:#P30670848,P786432>        if (stat)

<:s><:#P30670848,P786432>            .Pull()

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

<:s><:#P30670848,P786432>            .Pop()

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

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

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

<:s><:#P30670848,P786432>EndChange(1)

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>    .Clear()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>    .LastDocPath = fname

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>x = 0

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

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

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

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

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

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

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

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

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

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

<:s><:#P30670848,P786432>

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

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

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

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

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

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

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

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

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

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

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

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

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

[Embedded]
00025622
>
[macsum4] 34 530
__$TestBit 0 1 1 2
__$SetColor 104 1 1 7
__$GetColor 501 1 5 17
_$$4CreateDescriptionFile 867 18 5 29
_$$4OpenDataFile 1801 2 2 53
_$$4OpenMergeFile 2036 3 1 61
_$$4SelectDataFile 2227 2 1 66
_$$4Merge 2483 3 1 77
_$$4Merge 2794 3 1 86
_$$4MergeToFile 3105 4 1 95
_$$4MergeMacro 3468 3 1 105
_$$4MergeAction 3801 1 1 114
_$$4GetViewLevel 4268 0 1 134
_$$4GetMode 4599 0 2 147
_$$4MarkBookMark 4925 2 3 162
_$$4SetDefOptions 5854 2 1 200
GetSome 6524 1 2 223
_$$4GetTextBeforeCursor 6752 0 1 232
_$$4CurChar 6867 0 1 235
_$$4TypeOver 6957 1 1 238
_$$4ChangeLanguage 7184 3 1 249
__$FlipBit 7345 1 1 253
_$$4SpellCheck 7474 1 1 260
_$$4AssignMacroToFile 7928 3 1 272
_$$4ChangeShortcutKey 8235 3 3 284
_$$4FieldShow 8835 1 1 303
_$$4Replace 9089 5 3 312
_$$4AtEof 10917 0 1 376
_$$4SetMasterFiles 10993 17 2 379
_$$4SetTOCFile 11487 1 1 390
_$$4SetIndexFile 11594 2 1 393
_$$4ImportPicture 11829 4 1 401
_$$4MasterFile 11967 1 3 404
_$$4TableGetRange 12267 4 1 417
[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
6 18
15
17 23
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"
17 4
6 3
5 0
18 1
11 00000217
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"
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
6 2
15
17 10
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
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
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 00000230
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 10
33 23
13
11 00000307
17 11
6 0
5 128
25 2
8 0
17 12
0 69 1
6 0
15
17 14
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 00000876
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 00000876
17 31
5 4002
6 1
18 0
11 00000876
17 32
32 2 2 309 93  "{0}"
13
8 4
17 33
32 6 2 84 317 (  "{4}" ) 71
17 35
0 50 1
17 36
6 3
15
9
6 2
15
17 37
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
6 1
15
17 10
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
6 3
15
17 3
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
6 3
15
17 18
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
0 49
17 5
6 0
30 101 -32745 329
17 6
32 2 2 84 65  "PowerField"
17 7
0 50 1
6 1
15
17 8
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
6 1
15
17 2
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}"
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
00025647