PC World Komputer 1997 February/PCWK0297.iso/lotus/english/lotus003.dsk/BUILTIN5.SMM

INI File | 1994-07-01 | 31KB | 2,385 lines

[ver]
    4
[sty]

[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    4
    5

    257
    257
    257
    257
    257
    Courier
    1538
    2308
    514
    517
    1028
    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]





    772842334
    26
    743391099
    117
    0
    0
    0
    0
    0






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

    1
[docopts]
    5
    0
[GramStyle]

[tag]
    Body Text
    1
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        0
        1
        0
        0
        1
        100
    [brk]
        36
    [line]
        8
        0
        1
        0
        0
        1
        1
        144
        144
        1
    [spec]
        0
        32452

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

    8
    1
    360
    1
    720
    1
    1080
    1
    1440
    1
    1800
    1
    2160
    1
    2880
    1
    4320
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        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
        1
        0
        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
        1
        0
        0
        0
        0
        1
        1440
        10800
        0
    [txt]
<:s><:#P30670848,P786432>

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

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

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

<:#P30670848,P786432>if (.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>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5GetPowerFieldPage(id, type)

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

<:#P30670848,P786432>    _$$5GetPowerFieldPage = .PageNo

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5PhysicalToLogical(page)

<:#P30670848,P786432>return page + .Document.Number.PageNo

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5GetFmtPageStr(page)

<:#P30670848,P786432>basepage = .Document.Number.PageNo

<:#P30670848,P786432>endpage = .Document.Number.EndPage

<:#P30670848,P786432>if (page <;> endpage)

<:#P30670848,P786432>    return .Document.DoFormat(page - basepage, 0)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return .Document.DoFormat(page, 0)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>FUNCTION _$$5GetMarkText()

<:#P30670848,P786432>retval = ""

<:#P30670848,P786432>dim resp(10)

<:#P30670848,P786432>.Push()

<:#P30670848,P786432>respcnt = .Text.Get(Object, 0, 0, 0, 0, 0, &resp)

<:#P30670848,P786432>if ((respcnt <;> 0) AND ("Text" = resp(1)))

<:#P30670848,P786432>    .Text.Backward(Object, 1, 0)

<:#P30670848,P786432>    respcnt = .Text.Get(Object, 0, 0, 0, 0, 0, &resp)

<:#P30670848,P786432>endif

<:#P30670848,P786432>if (respcnt <;> 0)

<:#P30670848,P786432>    fribtype = resp(1)

<:#P30670848,P786432>    switch fribtype

<:#P30670848,P786432>    case "Text"

<:#P30670848,P786432>        break;

<:#P30670848,P786432>    case "EOP"

<:#P30670848,P786432>        break;

<:#P30670848,P786432>    default

<:#P30670848,P786432>        retval = fribtype

<:#P30670848,P786432>        if (respcnt <;> 3)

<:#P30670848,P786432>            'retval = strcat$(retval, ",", resp(4))

<:#P30670848,P786432>            retval = resp(4)

<:#P30670848,P786432>        endif

<:#P30670848,P786432>    endswitch

<:#P30670848,P786432>endif

<:#P30670848,P786432>.Pop()

<:#P30670848,P786432>return retval;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5GetBookMarkPage(name)

<:#P30670848,P786432>page = 0

<:#P30670848,P786432>id = .Document.Bookmark.Find(Marker, name)

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

<:#P30670848,P786432>    page = .Pageno

<:#P30670848,P786432>    UnStack(3)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return page

<:#P30670848,P786432>

<:#P30670848,P786432>

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FieldRemove(pfname, x)

<:#P30670848,P786432>stat = 0

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>  _$$5FieldRemove = .Destroy()

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

<:#P30670848,P786432>    stat = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return stat;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>

<:#P30670848,P786432>

<:#P30670848,P786432>FUNCTION _$$5LineNumber(which, style, custom)

<:#P30670848,P786432>BeginChange()

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

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

<:#P30670848,P786432>        .Type = 1

<:#P30670848,P786432>    else

<:#P30670848,P786432>        if (which & 1)

<:#P30670848,P786432>            .Type = 2

<:#P30670848,P786432>        else

<:#P30670848,P786432>            .Type = 3

<:#P30670848,P786432>        endif

<:#P30670848,P786432>        .Name = style

<:#P30670848,P786432>        if (which & 2)

<:#P30670848,P786432>            .Separator = 1

<:#P30670848,P786432>        elseif (which & 4)

<:#P30670848,P786432>            .Separator = 2

<:#P30670848,P786432>        elseif (which & 8)

<:#P30670848,P786432>            .Separator = 5

<:#P30670848,P786432>        else

<:#P30670848,P786432>            .Separator = custom

<:#P30670848,P786432>        endif

<:#P30670848,P786432>        if (which & 16)

<:#P30670848,P786432>            .Reset = 1

<:#P30670848,P786432>        else

<:#P30670848,P786432>            .Reset = 0

<:#P30670848,P786432>        endif

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    _$$5LineNumber = 1

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5InsertNote(txt)

<:#P30670848,P786432>.InsertNote()

<:#P30670848,P786432>Type(txt)

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5InsertDocInfoField(style, which)

<:#P30670848,P786432>_$$5InsertDocInfoField = 1

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>    .InsertDocInfo("Filename")

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

<:#P30670848,P786432>    .InsertDocInfo("Path")

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

<:#P30670848,P786432>    .InsertDocInfo("Style Sheet")

<:#P30670848,P786432>elseif (6 = which)

<:#P30670848,P786432>    .InsertDocInfo("Total Revisions")

<:#P30670848,P786432>elseif (7 = which)

<:#P30670848,P786432>    .InsertField("Description")

<:#P30670848,P786432>elseif ((8 <<= which) AND (which <<= 15))

<:#P30670848,P786432>    .InsertDocInfo(strcat$("DocField", which - 7))

<:#P30670848,P786432>else

<:#P30670848,P786432>    _$$5InsertDocInfoField = 0

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5ModifySelect(nm)

<:#P30670848,P786432>SetGlobalVar("__MODIFY_SELECT__", nm)

<:#P30670848,P786432>return 1

<:#P30670848,P786432>END FUNCTION

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

<:#P30670848,P786432>if (boolval)

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5SaveAsNewStyle(name, with, macname, run, desc)

<:#P30670848,P786432>.Document.Foundry.ContentName = with

<:#P30670848,P786432>.UserInterface.UIDocument.MacroObj.NewOpt = run

<:#P30670848,P786432>.UserInterface.UIDocument.MacroObj.NewName = macname

<:#P30670848,P786432>.UserInterface.UIDocument.Info.Description = desc

<:#P30670848,P786432>_$$5SaveAsNewStyle = .SaveAsStyleSheet(name, "Ami Pro", 0)

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

<:#P30670848,P786432>.UserInterface.UIDocument.StyleName = 0

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

<:#P30670848,P786432>.UserInterface.UIDocument.SheetFullPath = name

<:#P30670848,P786432>.Document.Foundry.Retention = 1

<:#P30670848,P786432>.Document.Foundry.ContentName = 1

<:#P30670848,P786432>.UserInterface.UIDocument.FullPath = ""

<:#P30670848,P786432>.UserInterface.UIDocument.Info.Description = ""

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432><:I0,0,0,0>FUNCTION __$SetColorOnly(color)

<:#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>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P1572864><:I0,0,0,0>FUNCTION _$$5SetFrameDefaults(bw, tt, pt, unts, st, bt, dt, lm, bm, tm, rm, slft, stop, srt, sbot, scol, r)

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>    .LeftAmt = TwipsToUnits(lm)

<:#P30670848,P786432>    .RightAmt = TwipsToUnits(rm)

<:#P30670848,P786432>    .Top = TwipsToUnits(tm)

<:#P30670848,P786432>    .Bottom = TwipsToUnits(bm)

<:#P30670848,P786432>    '.LeftExt = .Left / 3

<:#P30670848,P786432>    '.RightExt = .Right / 3

<:#P30670848,P786432>    '.TopExt = .Top / 3

<:#P30670848,P786432>    '.BottomExt = .Bottom / 3

<:#P30670848,P786432>    if (dt & 128)

<:#P30670848,P786432>        .Wrap = 1

<:#P30670848,P786432>    elseif (dt & 131072)

<:#P30670848,P786432>        .Wrap = 2

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .Wrap = 3

<:#P30670848,P786432>    endif

<:#P30670848,P786432>'.Scripting = 0

<:#P30670848,P786432>'.Script = ""

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

<:#P30670848,P786432>        .JoinFlag = 1

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .JoinFlag = 3

<:#P30670848,P786432>        .Percentage = r

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    '.BackGround = __$TestBit(dt & 64)

<:#P30670848,P786432>

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

<:#P30670848,P786432>        .Position = 50

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

<:#P30670848,P786432>        .Position = 0

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

<:#P30670848,P786432>        .Position = 100

<:#P30670848,P786432>    elseif (5 = pt)

<:#P30670848,P786432>        .Position = 75

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .Position = 25

<:#P30670848,P786432>    endif

<:#P30670848,P786432>

<:#P30670848,P786432>    .ID = tt

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

<:#P30670848,P786432>        .ShadowX = TwipsToUnits(srt);

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .ShadowX = 0 - TwipsToUnits(slft);

<:#P30670848,P786432>    endif

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

<:#P30670848,P786432>        .ShadowY = TwipsToUnits(sbot);

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .ShadowY = 0 - TwipsToUnits(stop);

<:#P30670848,P786432>    endif

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

<:#P30670848,P786432>        .Sides = 15

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .Sides = bw / 2

<:#P30670848,P786432>    endif

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

<:#P30670848,P786432>    __$SetColorOnly(scol)

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

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

<:#P30670848,P786432>    __$SetColorOnly(st)

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

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

<:#P30670848,P786432>    __$SetColorOnly(bt)

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

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return 1

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>

<:#P30670848,P786432>FUNCTION _$$5CatSlash(path)

<:#P30670848,P786432>if ("HP/Motif" = GetInfo(1))

<:#P30670848,P786432>    return strcat$(path, "/")

<:#P30670848,P786432>endif

<:#P30670848,P786432>return strcat$(path, "\")

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5GotoPowerField(name, dontcare)

<:#P30670848,P786432>return .Document.Foundry.Marker(name).GoTo()

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FieldUpdate(id, typ, fld)

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>.Formula = fld

<:#P30670848,P786432>.Expand(0)

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

<:#P30670848,P786432>_$$5FieldUpdate = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FieldLock(id, lock)

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>.RevLock = lock

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

<:#P30670848,P786432>_$$5FieldLock = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FieldAuto(id, auto)

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>.LoadOpt = auto

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

<:#P30670848,P786432>_$$5FieldAuto = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION GotoPower(fwd)

<:#P30670848,P786432>if (.GotoObject("PowerField", fwd))

<:#P30670848,P786432>return .Text.DoMarks("PowerField");

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FieldNext()

<:#P30670848,P786432>return GotoPower(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>FUNCTION _$$5FieldPrev()

<:#P30670848,P786432>return GoToPower(0)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5Generate(which)

<:#P30670848,P786432>if ((101 = which) or (100 = which))

<:#P30670848,P786432>.GenerateTOC()

<:#P30670848,P786432>endif

<:#P30670848,P786432>if ((102 = which) or (100 = which))

<:#P30670848,P786432>.GenerateIndex()

<:#P30670848,P786432>endif

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5PrintSetup(prt, port, qname)

<:#P30670848,P786432>BeginChange()

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

<:#P30670848,P786432>    .Stream = port

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

<:#P30670848,P786432>        .Extra = qname

<:#P30670848,P786432>    else

<:#P30670848,P786432>        .Extra = ""

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    .Name = prt

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

<:#P30670848,P786432>    _$$5PrintSetup = 1

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P1572864>FUNCTION _$$5OutlineStyle(count, sty, lev, opt, bt,s2,l2,o2,b2, s3,l3,o3,b3,s4,l4,o4,b4,s5,l5,o5,b5,s6,l6,o6,b6)

<:#P30670848,P786432>idx = 1

<:#P30670848,P786432>BeginChange()

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

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

<:#P30670848,P786432>        .Style(*sty(idx)).Stack()

<:#P30670848,P786432>        .Level = *lev(idx)

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

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

<:#P30670848,P786432>        .Cumulative = __$TestBit(*opt(idx) & 8)

<:#P30670848,P786432>        .Document.UndoOpt = 0

<:#P30670848,P786432>        .Clear()

<:#P30670848,P786432>        .Text.Document.UndoOpt = 0

<:#P30670848,P786432>        .Revision.Type = 0

<:#P30670848,P786432>        .Document.UndoOpt = 1

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

<:#P30670848,P786432>        idx = idx + 4

<:#P30670848,P786432>    next

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5ConnectCells()

<:#P30670848,P786432>stat = -2

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

<:#P30670848,P786432>    stat = 1

<:#P30670848,P786432>    BeginChange()

<:#P30670848,P786432>    if  (QueryVerb(45))

<:#P30670848,P786432>        .Connect()

<:#P30670848,P786432>    elseif (QueryVerb(46))

<:#P30670848,P786432>        .Disconnect()

<:#P30670848,P786432>    else

<:#P30670848,P786432>        stat = -7

<:#P30670848,P786432>    endif

<:#P30670848,P786432>    EndChange(1)

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

<:#P30670848,P786432>endif

<:#P30670848,P786432>return stat;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5BringFrameToFront()

<:#P30670848,P786432>BeginChange()

<:#P30670848,P786432>if (.Frame.Layout.Style.Stack())

<:#P30670848,P786432>    .DoStart()

<:#P30670848,P786432>else

<:#P30670848,P786432>    Abort(450);

<:#P30670848,P786432>endif

<:#P30670848,P786432>EndChange(1)

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5SendFrameToBack()

<:#P30670848,P786432>if (.Frame.Layout.Style.Stack())

<:#P30670848,P786432>    .End()

<:#P30670848,P786432>else

<:#P30670848,P786432>    Abort(450)

<:#P30670848,P786432>endif

<:#P30670848,P786432>return 1;

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5FileManagement()

<:#P30670848,P786432>if ("OS2" = GetInfo(1))

<:#P30670848,P786432>    _FileManagement()

<:#P30670848,P786432>else

<:#P30670848,P786432>    _NoCanDo()

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>FUNCTION _$$5DraftMode()

<:#P30670848,P786432>if (2 != .Window.ViewType)

<:#P30670848,P786432>    _$$5DraftMode = 1

<:#P30670848,P786432>    _DraftMode()

<:#P30670848,P786432>endif

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>

<:#P30670848,P786432>FUNCTION _$$5CursorPosition()

<:#P30670848,P786432>x = round(.text.focusx / 3276.8)

<:#P30670848,P786432>y = round(.text.focusy / 3276.8)

<:#P30670848,P786432>return "{x},-{y}"

<:#P30670848,P786432>END FUNCTION

<:#P30670848,P786432>
>

[Embedded]
00019180
>
[macsum4] 32 533
__$SetColor 0 1 1 2
_$$5GetPowerFieldPage 415 2 1 13
_$$5PhysicalToLogical 590 1 1 19
_$$5GetFmtPageStr 712 1 3 22
_$$5GetMarkText 994 0 5 31
_$$5GetBookMarkPage 1652 1 3 58
_$$5FieldRemove 1910 2 2 69
_$$5LineNumber 2165 3 1 83
_$$5InsertNote 2861 1 1 116
_$$5InsertDocInfoField 2979 2 1 121
_$$5ModifySelect 3651 1 1 141
__$TestBit 3779 1 1 145
_$$5SaveAsNewStyle 3883 5 1 150
__$SetColorOnly 4414 1 1 165
_$$5SetFrameDefaults 4791 17 1 174
_$$5CatSlash 6505 1 1 246
_$$5GotoPowerField 6689 2 1 252
_$$5FieldUpdate 6828 3 1 255
_$$5FieldLock 7057 2 1 265
_$$5FieldAuto 7256 2 1 274
GotoPower 7454 1 1 283
_$$5FieldNext 7607 0 1 288
_$$5FieldPrev 7696 0 1 292
_$$5Generate 7785 1 1 295
_$$5PrintSetup 8019 3 1 304
_$$5OutlineStyle 8329 25 3 319
_$$5ConnectCells 9250 0 2 341
_$$5BringFrameToFront 9587 0 1 358
_$$5SendFrameToBack 9781 0 1 368
_$$5FileManagement 9945 0 1 376
_$$5DraftMode 10099 0 1 383
_$$5CursorPosition 10229 0 3 390
[macse]
14 __$SetColor
29 0 color
29 1 __$SetColor
17 1
33 53
13
11 00000396
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 10
9
14 _$$5GetPowerFieldPage
29 0 id
29 1 type
29 2 _$$5GetPowerFieldPage
17 1
33 2 84 317 (  "{0}" )
13
11 00000157
17 2
31 7
13
8 2
17 3
0 69 3
6 2
15
17 5
9
14 _$$5PhysicalToLogical
29 0 page
29 1 _$$5PhysicalToLogical
17 1
6 0
31 2 151 7
13
3 0
15
9
6 1
15
17 2
9
14 _$$5GetFmtPageStr
29 0 page
29 1 _$$5GetFmtPageStr
17 1
29 2 basepage
31 2 151 7
13
8 2
17 2
29 3 endpage
31 2 151 365
13
8 3
17 3
6 0
6 3
18 3
11 00000227
17 4
6 0
6 2
3 1
32 1 2 82  [X] 0
13
15
9
17 6
32 1 2 82  "{0}" 0
13
15
9
6 1
15
17 7
9
14 _$$5GetMarkText
29 0 _$$5GetMarkText
17 1
29 1 retval
7 ""
8 1
17 2
5 10
29 2 resp
21 2 [X]
17 3
32 0 42
17 4
29 3 respcnt
32 1 18 61  10 0 0 0 0 0 &2
13
8 3
17 5
6 3
5 0
18 3
7 "Text"
5 1
22 2
18 0
1 1
11 00000315
17 6
32 1 18 39  10 1 0
17 7
32 1 18 61  10 0 0 0 0 0 &2
13
8 3
17 9
6 3
5 0
18 3
11 00000604
17 10
29 4 fribtype
5 1
22 2
8 4
17 11
7 "Text"
6 4
18 0
11 00000462
17 13
10 00000604
10 00000604
7 "EOP"
6 4
18 0
11 00000528
17 15
10 00000604
10 00000604
17 17
6 4
8 1
17 18
6 3
5 3
18 3
11 00000604
17 20
5 4
22 2
8 1
17 24
32 0 43
17 25
6 1
15
9
6 0
15
17 26
9
14 _$$5GetBookMarkPage
29 0 name
29 1 _$$5GetBookMarkPage
17 1
29 2 page
5 0
8 2
17 2
29 3 id
32 2 2 309 93  317 "{0}"
13
8 3
17 3
33 2 84 317 (  "{3}" )
13
11 00000221
17 4
31 7
13
8 2
17 5
0 69 3
17 7
6 2
15
9
6 1
15
17 10
9
14 _$$5FieldRemove
29 0 pfname
29 1 x
29 2 _$$5FieldRemove
17 1
29 3 stat
5 0
8 3
17 2
0 49
17 3
33 2 84 317 (  "{0}" )
13
11 00000204
17 4
32 0 22
13
8 2
17 5
0 69 3
17 6
5 1
8 3
17 8
0 50 1
17 9
6 3
15
9
6 2
15
17 10
9
14 _$$5LineNumber
29 0 which
29 1 style
29 2 custom
29 3 _$$5LineNumber
17 1
0 49
17 2
33 2 37
13
11 00000643
17 3
6 0
5 0
18 0
11 00000189
17 4
5 1
30 141
10 00000611
17 6
6 0
5 1
25 1
11 00000256
17 7
5 2
30 141
10 00000275
17 9
5 3
30 141
17 11
6 1
30 29
17 12
6 0
5 2
25 1
11 00000363
17 13
5 1
30 229
10 00000521
17 14
6 0
5 4
25 1
11 00000432
17 15
5 2
30 229
10 00000521
17 16
6 0
5 8
25 1
11 00000501
17 17
5 5
30 229
10 00000521
17 19
6 2
30 229
17 21
6 0
5 16
25 1
11 00000591
17 22
5 1
30 234
10 00000611
17 24
5 0
30 234
17 27
5 1
8 3
17 28
0 69 2
17 30
0 50 1
17 31
5 1
15
9
6 3
15
17 32
9
14 _$$5InsertNote
29 0 txt
29 1 _$$5InsertNote
17 1
34 0 33
17 2
0 6 "{0}"
17 3
5 1
15
9
6 1
15
17 4
9
14 _$$5InsertDocInfoField
29 0 style
29 1 which
29 2 _$$5InsertDocInfoField
17 1
5 1
8 2
17 2
0 49
17 3
5 1
6 1
18 0
11 00000182
17 4
34 0 50 "Filename"
10 00000638
17 5
5 2
6 1
18 0
11 00000252
17 6
34 0 50 "Path"
10 00000638
17 7
5 3
6 1
18 0
11 00000329
17 8
34 0 50 "Style Sheet"
10 00000638
17 9
5 6
6 1
18 0
11 00000411
17 10
34 0 50 "Total Revisions"
10 00000638
17 11
5 7
6 1
18 0
11 00000490
17 12
34 0 34 "Description"
10 00000638
17 13
5 8
6 1
18 4
6 1
5 15
18 4
1 1
11 00000621
17 14
6 1
5 7
3 1
0 16 "DocField" [X]
13
34 0 50 [X]
10 00000638
17 16
5 0
8 2
17 18
0 50 1
6 2
15
17 19
9
14 _$$5ModifySelect
29 0 nm
29 1 _$$5ModifySelect
17 1
0 264 "__MODIFY_SELECT__" "{0}"
17 2
5 1
15
9
6 1
15
17 3
9
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 _$$5SaveAsNewStyle
29 0 name
29 1 with
29 2 macname
29 3 run
29 4 desc
29 5 _$$5SaveAsNewStyle
17 1
6 1
30 2 84 106
17 2
6 3
30 101 -32741 57 -32676
17 3
6 2
30 101 -32741 57 -32675
17 4
6 4
30 101 -32741 210 162
17 5
34 0 46 "{0}" "Ami Pro" 0
13
8 5
17 6
5 1
30 101 -32741 37
17 7
5 0
30 101 -32741 9
17 8
5 1
30 101 -32741 232
17 9
6 0
30 101 -32741 284
17 10
5 1
30 2 84 105
17 11
5 1
30 2 84 106
17 12
7 ""
30 101 -32741 281
17 13
7 ""
30 101 -32741 210 162
6 5
15
17 14
9
14 __$SetColorOnly
29 0 color
29 1 __$SetColorOnly
17 1
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 77
17 2
6 0
5 16776960
25 1
5 256
4 1
8 0
17 3
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 78
17 4
6 0
5 65280
25 1
5 256
4 1
8 0
17 5
6 0
5 255
25 1
5 256
6 0
5 255
25 1
4 0
3 0
30 79
17 6
5 0
30 80
6 1
15
17 7
9
14 _$$5SetFrameDefaults
29 0 bw
29 1 tt
29 2 pt
29 3 unts
29 4 st
29 5 bt
29 6 dt
29 7 lm
29 8 bm
29 9 tm
29 10 rm
29 11 slft
29 12 stop
29 13 srt
29 14 sbot
29 15 scol
29 16 r
29 17 _$$5SetFrameDefaults
17 1
0 49
17 2
33 101 45 405
13
11 00001660
17 3
5 32768
5 10
4 1
6 7
4 0
30 14
17 4
5 32768
5 10
4 1
6 10
4 0
30 16
17 5
5 32768
5 10
4 1
6 9
4 0
30 15
17 6
5 32768
5 10
4 1
6 8
4 0
30 17
17 11
6 6
5 128
25 1
11 00000517
17 12
5 1
30 74
10 00000609
17 13
6 6
5 131072
25 1
11 00000590
17 14
5 2
30 74
10 00000609
17 16
5 3
30 74
17 20
5 0
6 16
18 0
11 00000678
17 21
5 1
30 83
10 00000718
17 23
5 3
30 83
17 24
6 16
30 135
17 28
5 1
6 2
18 0
11 00000788
17 29
5 50
30 103
10 00001019
17 30
5 2
6 2
18 0
11 00000857
17 31
5 0
30 103
10 00001019
17 32
5 3
6 2
18 0
11 00000928
17 33
5 100
30 103
10 00001019
17 34
5 5
6 2
18 0
11 00000998
17 35
5 75
30 103
10 00001019
17 37
5 25
30 103
17 40
6 1
30 42
17 41
5 0
6 13
18 1
11 00001137
17 42
5 32768
5 10
4 1
6 13
4 0
30 -32765
10 00001196
17 44
5 0
5 32768
5 10
4 1
6 11
4 0
3 1
30 -32765
17 46
5 0
6 14
18 1
11 00001295
17 47
5 32768
5 10
4 1
6 14
4 0
30 -32764
10 00001354
17 49
5 0
5 32768
5 10
4 1
6 12
4 0
3 1
30 -32764
17 51
5 1
6 0
18 0
11 00001424
17 52
5 15
30 100
10 00001454
17 54
6 0
5 2
4 1
30 100
17 56
33 53
17 57
16 __$SetColorOnly "{15}"
17 58
0 69 1
17 59
33 99
17 60
16 __$SetColorOnly "{4}"
17 61
0 69 1
17 62
33 156
17 63
16 __$SetColorOnly "{5}"
17 64
0 69 1
17 65
0 69 3
17 67
0 50 1
17 68
5 1
15
9
6 17
15
17 69
9
14 _$$5CatSlash
29 0 path
29 1 _$$5CatSlash
17 1
7 "HP/Motif"
0 1313 1
13
18 0
11 00000133
17 2
0 16 "{0}" "/"
13
15
9
17 4
0 16 "{0}" "\"
13
15
9
6 1
15
17 5
9
14 _$$5GotoPowerField
29 0 name
29 1 dontcare
29 2 _$$5GotoPowerField
17 1
32 6 2 84 317 (  "{0}" ) 71
13
15
9
6 2
15
17 2
9
14 _$$5FieldUpdate
29 0 id
29 1 typ
29 2 fld
29 3 _$$5FieldUpdate
17 1
0 49
17 2
33 2 84 317 (  "{0}" )
13
11 00000197
17 3
6 2
30 312
17 4
32 0 49 0
17 5
0 69 3
17 6
5 1
8 3
17 8
0 50 1
6 3
15
17 9
9
14 _$$5FieldLock
29 0 id
29 1 lock
29 2 _$$5FieldLock
17 1
0 49
17 2
33 2 84 317 (  "{0}" )
13
11 00000167
17 3
6 1
30 291
17 4
0 69 3
17 5
5 1
8 2
17 7
0 50 1
6 2
15
17 8
9
14 _$$5FieldAuto
29 0 id
29 1 auto
29 2 _$$5FieldAuto
17 1
0 49
17 2
33 2 84 317 (  "{0}" )
13
11 00000166
17 3
6 1
30 54
17 4
0 69 3
17 5
5 1
8 2
17 7
0 50 1
6 2
15
17 8
9
14 GotoPower
29 0 fwd
29 1 GotoPower
17 1
34 0 48 "PowerField" "{0}"
13
11 00000135
17 2
32 1 18 110  "PowerField"
13
15
9
6 1
15
17 4
9
14 _$$5FieldNext
29 0 _$$5FieldNext
17 1
16 GotoPower 1
13
15
9
6 0
15
17 2
9
14 _$$5FieldPrev
29 0 _$$5FieldPrev
17 1
16 GoToPower 0
13
15
9
6 0
15
17 2
9
14 _$$5Generate
29 0 which
29 1 _$$5Generate
17 1
5 101
6 0
18 0
5 100
6 0
18 0
1 2
11 00000123
17 2
34 0 41
17 4
5 102
6 0
18 0
5 100
6 0
18 0
1 2
11 00000198
17 5
34 0 40
17 7
5 1
15
9
6 1
15
17 8
9
14 _$$5PrintSetup
29 0 prt
29 1 port
29 2 qname
29 3 _$$5PrintSetup
17 1
0 49
17 2
33 2 91
13
11 00000276
17 3
6 1
30 34
17 4
5 3
0 52
13
18 0
11 00000207
17 5
6 2
30 80
10 00000226
17 7
7 ""
30 80
17 9
6 0
30 29
17 10
0 69 2
17 11
5 1
8 3
17 13
0 50 1
6 3
15
17 14
9
14 _$$5OutlineStyle
29 0 count
29 1 sty
29 2 lev
29 3 opt
29 4 bt
29 5 s2
29 6 l2
29 7 o2
29 8 b2
29 9 s3
29 10 l3
29 11 o3
29 12 b3
29 13 s4
29 14 l4
29 15 o4
29 16 b4
29 17 s5
29 18 l5
29 19 o5
29 20 b5
29 21 s6
29 22 l6
29 23 o6
29 24 b6
29 25 _$$5OutlineStyle
17 1
29 26 idx
5 1
8 26
17 2
0 49
17 3
33 2 84
13
11 00000886
29 27 i
5 1
8 27
17 4
6 0
6 27
18 2
12 00000468
10 00000871
5 1
6 27
3 0
8 27
10 00000384
17 5
6 26
22 1
33 9 (  [X] )
17 6
6 26
22 2
30 113
17 7
6 26
22 3
5 2
25 1
16 __$TestBit [X]
13
30 250
17 8
6 26
22 3
5 4
25 1
16 __$TestBit [X]
13
30 251
17 9
6 26
22 3
5 8
25 1
16 __$TestBit [X]
13
30 252
17 10
5 0
30 2 48
17 11
32 0 62
17 12
5 0
30 18 2 48
17 13
5 0
30 196 141
17 14
5 1
30 2 48
17 15
0 69 1
17 16
6 26
5 4
3 0
8 26
10 00000433
17 18
0 69 2
17 20
0 50 1
6 25
15
17 21
9
14 _$$5ConnectCells
29 0 _$$5ConnectCells
17 1
29 1 stat
5 -2
8 1
17 2
33 23
13
11 00000299
17 3
5 1
8 1
17 4
0 49
17 5
0 81 45
13
11 00000191
17 6
32 0 45
10 00000269
17 7
0 81 46
13
11 00000251
17 8
32 0 46
10 00000269
17 10
5 -7
8 1
17 12
0 50 1
17 13
0 69 1
17 15
6 1
15
9
6 0
15
17 16
9
14 _$$5BringFrameToFront
29 0 _$$5BringFrameToFront
17 1
0 49
17 2
33 8 6 9
13
11 00000128
17 3
32 0 36
10 00000144
17 5
0 51 450
17 7
0 50 1
17 8
5 1
15
9
6 0
15
17 9
9
14 _$$5SendFrameToBack
29 0 _$$5SendFrameToBack
17 1
33 8 6 9
13
11 00000112
17 2
32 0 37
10 00000128
17 4
0 51 450
17 6
5 1
15
9
6 0
15
17 7
9
14 _$$5FileManagement
29 0 _$$5FileManagement
17 1
7 "OS2"
0 1313 1
13
18 0
11 00000124
17 2
2 108 1
10 00000136
17 4
0 78
6 0
15
17 6
9
14 _$$5DraftMode
29 0 _$$5DraftMode
17 1
5 2
31 3 21
13
18 1
11 00000112
17 2
5 1
8 0
17 3
2 211 1
6 0
15
17 5
9
14 _$$5CursorPosition
29 0 _$$5CursorPosition
17 1
29 1 x
31 18 335
13
5 3276.8
4 1
0 786 [X]
13
8 1
17 2
29 2 y
31 18 336
13
5 3276.8
4 1
0 786 [X]
13
8 2
17 3
7 "{1},-{2}"
15
9
6 0
15
17 4
9
00019205