Liren Large Software Subsidy 18/18.iso/w/w252/4.ddi/MACROS.CMZ/MERGDATA.SMM

INI File | 1993-10-28 | 61.1 KB | 4,611 lines

[ver]
    4
[sty]
    ~cdefaul.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    HP LaserJet III
[lang]
    1
[desc]





    745042461
    8
    682298912
    97
    20
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    4
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    8
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[tag]
    Function
    9
    [fnt]
        Courier
        200
        0
        32769
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Header
    11
    [fnt]
        Tms Rmn
        200
        0
        49153
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Header
    0
    0
[tag]
    Footnote
    12
    [fnt]
        Courier
        200
        0
        32768
    [algn]
        1
        1
        0
        720
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>
        0
        1
        1
        256
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Footnote
    0
    0
[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
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
<+B>Callback Merge - By: Peter S. Housley

<+B>Lotus Development Corp. - @1991

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]

>
[elay]
[l1]
    0
[pg]
    20
    43 0 10 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    88 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    133 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    178 0 15 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    223 0 18 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    268 0 21 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    312 0 17 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    357 0 27 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    402 0 11 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    447 0 30 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    492 0 68 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    537 0 24 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    582 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    627 0 5 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    672 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    717 0 39 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    762 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    807 0 41 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    852 0 56 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
    880 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#284,9360>

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

<:#284,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

<:#284,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)

<:#284,9360>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)

<:#284,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)

<:#284,9360>define    SetFocus()        DllCall("user,SetFocus,HH",%1)

<:#284,9360>

<:#284,9360>'Global Variables

<:#284,9360>'    1000 = Total Number of Records

<:#284,9360>'    1100 = Function Location

<:#284,9360>'    1200 = Field Seperator

<:#284,9360>'    1300 = Record Seperator

<:#284,9360>'    1400 = Free

<:#284,9360>'    1500 = Free

<:#284,9360>'    Fieldinfo = Field Information

<:#284,9360>'    Fieldnames = Field Names, 1 = Total Number of Fields

<:#284,9360>

<:#284,9360>function menus()

<:#284,9360>TitleBarMsg("Adding MergData to File/Merge menu")

<:#284,9360>rmac=getrunningmacrofile$()

<:#284,9360>deletemenuitem(1,"╬─╝■(&F)","║╧▓ó(&G)...")

<:#284,9360>deletemenuitem(1,"╬─╝■(&F)", "║╧▓ó(&G)")

<:#284,9360>insertcascademenu(1, "╬─╝■(&F)", 13, "║╧▓ó(&G)")

<:#284,9360>addcascademenuitem(1, "╬─╝■(&F)", "║╧▓ó(&G)", "&Print...", 110, "Print Merge")

<:#568,9360>addcascademenuitem(1, "╬─╝■(&F)", "║╧▓ó(&G)", "&Create/Edit...", "{rmac}!mergedata", "Create/ Edit Merge Data File")

<:#284,9360>addcascademenuitem(1, "╬─╝■(&F)", "║╧▓ó(&G)", "-", "", "")

<:#568,9360>addcascademenuitem(1, "╬─╝■(&F)", "║╧▓ó(&G)", "E&xit MergeData", "{rmac}!getout", "Exit Merge Macro")

<:#284,9360>TitleBarMsg("")

<:#284,9360>TitleBarMsg("Ami Pro")

<:#284,9360>end function

<:#284,9360>

<:#284,9360>

<:#284,9360>function mergedata()

<:#284,9360>allocglobalvar(1100,1)

<:#284,9360>allocglobalvar(1000,1)

<:#284,9360>{rmac}=getrunningmacrofile$()

<:#284,9360>start:

<:#284,9360>setglobalvar(1100,"1")

<:#284,9360>x=getopenfilecount()

<:#284,9360>if x<<1

<:#284,9360>    Message("A Data file must be displayed.")

<:#284,9360>    testout=3

<:#284,9360>    goto gtfo

<:#284,9360>endif

<:#284,9360>call getfields()

<:#284,9360>testout=getglobalvar$(1100)

<:#284,9360>gtfo:

<:#284,9360>if testout=3

<:#284,9360>    pause(010)

<:#284,9360>    freeglobalvar("Fieldnames")

<:#284,9360>    freeglobalvar("Fieldinfo")

<:#284,9360>    freeglobalvar(1000)

<:#284,9360>    freeglobalvar(1100)

<:#284,9360>    freeglobalvar(1300)

<:#284,9360>    freeglobalvar(1200)

<:#284,9360>    freeglobalvar(1400)

<:#284,9360>    freeglobalvar(1500)

<:#284,9360>    sendkeys("<[>ESC]")

<:#284,9360>    exit function

<:#284,9360>elseif testout=6

<:#284,9360>    freeglobalvar(1100)

<:#284,9360>    sendkeys("<[>esc]")

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>call getdata()

<:#284,9360>setdlgcallback(23,"{rmac}!CallUp")

<:#284,9360>setdlgcallback(24,"{rmac}!CallDown")

<:#284,9360>setdlgcallback(21,"{rmac}!Writedata")

<:#284,9360>setdlgcallback(4, "{rmac}!leave")

<:#284,9360>setdlgcallback(25,"{rmac}!PgUp")

<:#284,9360>setdlgcallback(26,"{rmac}!PgDn")

<:#284,9360>setdlgcallback(27,"{rmac}!Gotofield")

<:#284,9360>setdlgcallback(28,"{rmac}!gotonextrec")

<:#284,9360>setdlgcallback(29,"{rmac}!gotoprevrec")

<:#284,9360>setdlgcallback(30,"{rmac}!find")

<:#284,9360>setdlgcallback(31,"{rmac}!addrecord")

<:#284,9360>setdlgcallback(32,"{rmac}!deleterec")

<:#284,9360>setdlgcallback(33,"{rmac}!clearrec")

<:#284,9360>setglobalvar(1000,"10")

<:#284,9360>setglobalvar(1100,"2")

<:#284,9360>testout=getglobalarray$("Fieldnames",1)

<:#284,9360>if testout << 10

<:#284,9360>    notenough=10 - testout

<:#284,9360>    setdlgcallback(0, "{rmac}!GreyMovement")

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>f=i - 999

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>filledit (i,postfield)

<:#284,9360>filledit (i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>filename=getopenfilename$()

<:#284,9360>if filename=""

<:#284,9360>    filename="Untitled"

<:#284,9360>endif

<:#284,9360>filledit(1012,filename)

<:#284,9360>totalfields=getglobalarray$("Fieldnames", 1)

<:#284,9360>filledit(1013, "Fields 1 to 10 of {totalfields}")

<:#284,9360>box=dialogbox(".","MainBox")

<:#284,9360>hdlg=0

<:#284,9360>call leave(hdlg)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function callup(hdlg)

<:#284,9360>ignorekeyboard(1)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>last=getglobalvar$(1000)

<:#284,9360>for i = 1 to 10

<:#284,9360>dlgfield=i + 8000

<:#284,9360>first=last - 10

<:#284,9360>fieldnum=first + i

<:#284,9360>info=getdlgitemtext(hdlg,dlgfield)

<:#284,9360>setglobalarray("Fieldinfo", fieldnum ,info)

<:#284,9360>next

<:#284,9360>if last - 11 << 0

<:#284,9360>    BEEP()

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>setglobalvar(1000,last - 1)

<:#284,9360>newlast=last - 11

<:#284,9360>for i=1001 to 1010

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>ignorekeyboard(0)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function calldown(hdlg)

<:#284,9360>ignorekeyboard(1)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>last=getglobalvar$(1000)

<:#284,9360>for i = 1 to 10

<:#284,9360>dlgfield=i + 8000

<:#284,9360>first=last - 10

<:#284,9360>fieldnum=first + i

<:#284,9360>info=getdlgitemtext(hdlg,dlgfield)

<:#284,9360>setglobalarray("Fieldinfo", fieldnum ,info)

<:#284,9360>next

<:#284,9360>testme=getglobalarray$("Fieldnames",1)

<:#284,9360>if last + 1 <;>= testme + 1

<:#284,9360>    BEEP()

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>setglobalvar(1000,last + 1)

<:#284,9360>newlast=last + 1 - 10

<:#284,9360>for i=1001 to 1010

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>ignorekeyboard(0)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function PgUp(Hdlg)

<:#284,9360>ignorekeyboard(1)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>last=getglobalvar$(1000)

<:#284,9360>for i = 1 to 10

<:#284,9360>dlgfield=i + 8000

<:#284,9360>first=last - 10

<:#284,9360>fieldnum=first + i

<:#284,9360>info=getdlgitemtext(hdlg,dlgfield)

<:#284,9360>setglobalarray("Fieldinfo", fieldnum ,info)

<:#284,9360>next

<:#284,9360>if last - 10 << 10

<:#284,9360>    newlast=0

<:#284,9360>else

<:#284,9360>    newlast=last - 20

<:#284,9360>endif

<:#284,9360>setglobalvar(1000,newlast + 10)

<:#284,9360>for i=1001 to 1010

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>ignorekeyboard(0)

<:#284,9360>ed1=getdlgitem(hdlg,8001)

<:#284,9360>setfocus(ed1)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function PgDn(Hdlg)

<:#284,9360>ignorekeyboard(1)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>last=getglobalvar$(1000)

<:#284,9360>for i = 1 to 10

<:#284,9360>dlgfield=i + 8000

<:#284,9360>first=last - 10

<:#284,9360>fieldnum=first + i

<:#284,9360>info=getdlgitemtext(hdlg,dlgfield)

<:#284,9360>setglobalarray("Fieldinfo", fieldnum ,info)

<:#284,9360>next

<:#284,9360>testme=getglobalarray$("Fieldnames",1)

<:#284,9360>if last + 10 <;> testme

<:#284,9360>    newlast=testme - 10

<:#284,9360>else

<:#284,9360>    newlast=last

<:#284,9360>endif

<:#284,9360>setglobalvar(1000,newlast + 10)

<:#284,9360>for i=1001 to 1010

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>ignorekeyboard(0)

<:#284,9360>ed1=getdlgitem(hdlg,8001)

<:#284,9360>setfocus(ed1)

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function gotofield(hdlg)

<:#284,9360>X=getglobalarray$("Fieldnames",1)

<:#284,9360>numfields=X

<:#284,9360>for i=2 to x + 1

<:#284,9360>temp=getglobalarray$("Fieldnames", i)

<:#284,9360>filledit(9000, temp)

<:#284,9360>next

<:#284,9360>box=dialogbox(".","Gotofield")

<:#284,9360>if box<<<;>1 then

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>lookfor=getdialogfield$(9000)

<:#284,9360>for i=2 to x + 1

<:#284,9360>temp=getglobalarray$("Fieldnames", i)

<:#284,9360>if temp = lookfor

<:#284,9360>    last=i - 2

<:#284,9360>    goto gotoit

<:#284,9360>endif

<:#284,9360>next

<:#284,9360>gotoit:

<:#284,9360>testme=getglobalarray$("Fieldnames",1)

<:#284,9360>if last << 10

<:#284,9360>    if last - 10 << 10

<:#284,9360>        newlast=0

<:#284,9360>    else

<:#284,9360>        newlast=last - 20

<:#284,9360>    endif

<:#284,9360>else

<:#284,9360>    if last + 10 <;> testme

<:#284,9360>        newlast=testme - 10

<:#284,9360>    else

<:#284,9360>        newlast=last

<:#284,9360>    endif

<:#284,9360>endif

<:#284,9360>setglobal:

<:#284,9360>setglobalvar(1000,newlast + 10)

<:#284,9360>for i=1001 to 1010

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>ignorekeyboard(0)

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function getfields()

<:#284,9360>dim field(40)

<:#284,9360>Type ("<[>CtrlHome]")

<:#284,9360>Type("<[>Home]<[>Shiftend]")

<:#284,9360>Char=curshade$()

<:#284,9360>If Len(Char)<<<;>2

<:#568,9360>    result = Multidecide("This is not an Ami Pro records file.  Do you wish to create one?", 36)

<:#284,9360>    if result=6

<:#284,9360>        call makemerge()

<:#284,9360>        exit function

<:#284,9360>    else

<:#284,9360>        setglobalvar(1100, "3")

<:#284,9360>    endif

<:#284,9360>Exit Function

<:#284,9360>Endif

<:#284,9360>Sep=mid$(Char,1,1)

<:#284,9360>Rec=Mid$(Char,2,1)

<:#284,9360>Type ("<[>Home]<[>Down]<[>ShiftCtrlDown]")

<:#284,9360>Char=Curshade$()

<:#284,9360>x=1

<:#284,9360>While (1)

<:#284,9360>    Temp=StrField$(Char,x,{sep})

<:#284,9360>            If Temp<<<;>""

<:#284,9360>             Field(x)=Temp

<:#284,9360>            X=x+1

<:#284,9360>

<:#284,9360>        Else ' done With All Field Names, Now Subtract Rec Delim From Last Field

<:#284,9360>            Vart=0

<:#284,9360>            X=x - 1

<:#284,9360>            Total=x

<:#284,9360>            Temp=Field(x)

<:#284,9360>            Vart = Len(Temp) - 1

<:#284,9360>            Field(x)=Mid$(Temp,1,Vart)

<:#284,9360>                Break

<:#284,9360>        Endif

<:#284,9360>Wend

<:#284,9360>AllocGlobalVar("FieldNames",X+1)

<:#284,9360>AllocGlobalVar(1100,1)

<:#284,9360>AllocGlobalvar(1200,1)

<:#284,9360>AllocGlobalvar(1300,1)

<:#284,9360>AllocGlobalvar(1400,1)

<:#284,9360>setglobalvar(1400, "")

<:#284,9360>setglobalvar(1200, sep)

<:#284,9360>setglobalvar(1300, rec)

<:#284,9360>SetGlobalArray("Fieldnames",1,x)

<:#284,9360>Freeglobalvar("Fieldinfo")

<:#284,9360>Allocglobalvar("Fieldinfo", X + 1)

<:#284,9360>for i=1 to x

<:#284,9360>setglobalarray("Fieldinfo", X, " ")

<:#284,9360>next

<:#284,9360>For p=1 to x

<:#284,9360>SetGlobalarray("Fieldnames",p+1,Field(p))

<:#284,9360>Next

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function writedata(hdlg)

<:#284,9360>zz=0

<:#284,9360>ed1=getdlgitem(hdlg,8001)

<:#284,9360>setfocus(ed1)

<:#284,9360>sep=getglobalvar$(1200)

<:#284,9360>rec=getglobalvar$(1300)

<:#284,9360>last=getglobalvar$(1000)

<:#284,9360>X=getglobalarray$("Fieldnames",1)

<:#284,9360>if X << 10

<:#284,9360>    notenough=10 -x

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>for i = 1 to 10 - notenough

<:#284,9360>dlgfield=i + 8000

<:#284,9360>first=last - 10

<:#284,9360>fieldnum=first + i

<:#284,9360>info=getdlgitemtext(hdlg,dlgfield)

<:#284,9360>setglobalarray("Fieldinfo", fieldnum ,info)

<:#284,9360>next

<:#284,9360>testout=getglobalvar$(1100)

<:#284,9360>for i =1 to X - 1

<:#284,9360>temp=getglobalarray$("Fieldinfo",I)

<:#284,9360>

<:#284,9360>if testout=4

<:#284,9360>    if temp=""

<:#284,9360>        zz=zz+1

<:#284,9360>        temp=strcat$("Extra ","{zz}")

<:#284,9360>    endif

<:#284,9360>    setglobalarray("Fieldnames", i +1, temp)

<:#284,9360>endif

<:#284,9360>type("{temp}{sep}")

<:#284,9360>next

<:#284,9360>temp=getglobalarray$("Fieldinfo",X)

<:#284,9360>type ("{temp}{rec}<[>enter]")

<:#284,9360>if testout=4

<:#284,9360>    if temp=""

<:#284,9360>        zz=zz+1

<:#284,9360>        temp=strcat$("Extra ","{zz}")

<:#284,9360>    endif

<:#284,9360>    setglobalarray("Fieldnames", x + 1, temp)

<:#284,9360>    setglobalvar(1100, "4")

<:#284,9360>    call addrecord(hdlg)

<:#284,9360>endif

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function getdata(hdlg)

<:#284,9360>dim field(40)

<:#284,9360>ed1=getdlgitem(hdlg,8001)

<:#284,9360>setfocus(ed1)

<:#284,9360>sep=getglobalvar$(1200)

<:#284,9360>rec=getglobalvar$(1300)

<:#284,9360>type("<[>ctrldown]<[>ctrlup]<[>ctrlshiftdown]")

<:#284,9360>Char=Curshade$()

<:#284,9360>lastfield=getglobalarray$("Fieldnames",1)

<:#284,9360>for x=1 to lastfield

<:#284,9360>    Temp=StrField$(Char,x,{sep})

<:#284,9360>        if temp=""

<:#284,9360>            temp=" "

<:#284,9360>        endif

<:#284,9360>    check=getglobalarray$("Fieldnames",x + 1)

<:#284,9360>        if temp=check

<:#284,9360>            checktest=getglobalvar$(1100)

<:#284,9360>            if checktest=1

<:#284,9360>                setglobalvar(1100, "5")

<:#284,9360>                exit function

<:#284,9360>            else

<:#284,9360>                setglobalvar(1100, "2")

<:#284,9360>                call gotonextrec(hdlg)

<:#284,9360>            exit function

<:#284,9360>            endif

<:#284,9360>        endif

<:#284,9360>    Field(x)=Temp

<:#284,9360>    next

<:#284,9360>    Vart=0

<:#284,9360>    X=x - 1

<:#284,9360>    total=x

<:#284,9360>    Temp=Field(x)

<:#284,9360>    Vart = Len(Temp) - 1

<:#284,9360>    Field(x)=Mid$(Temp,1,Vart)

<:#284,9360>

<:#284,9360>for i=1 to x

<:#284,9360>setglobalarray("Fieldinfo",i,field(i))

<:#284,9360>next

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function gotonextrec(hdlg)

<:#284,9360>testme=getglobalarray$("fieldinfo",2)

<:#284,9360>if testme=""

<:#284,9360>    type("<[>ctrldown]")

<:#284,9360>else

<:#284,9360>    type("<[>ctrldown]<[>ctrlup]")

<:#284,9360>endif

<:#284,9360>call getdata(hdlg)

<:#284,9360>numfields = getglobalarray$("Fieldnames",1)

<:#284,9360>setglobalvar(1000, "10")

<:#284,9360>testout=getglobalarray$("Fieldnames",1)

<:#284,9360>if testout << 10

<:#284,9360>    notenough=10 - testout

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>x = i - 999

<:#284,9360>f = 0 + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=0 + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function gotoprevrec(hdlg)

<:#284,9360>testme=getglobalarray$("fieldinfo",2)

<:#284,9360>if testme=""

<:#284,9360>    type("<[>ctrlup]")

<:#284,9360>else

<:#284,9360>    type("<[>ctrlup]<[>ctrlup]")

<:#284,9360>endif

<:#284,9360>call getdata(hdlg)

<:#284,9360>checktest=getglobalvar$(1100)

<:#284,9360>if checktest=5

<:#284,9360>    beep()

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>numfields = getglobalarray$("Fieldnames",1)

<:#284,9360>setglobalvar(1000,"10")

<:#284,9360>testout=getglobalarray$("Fieldnames",1)

<:#284,9360>if testout << 10

<:#284,9360>    notenough=10 - testout

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>x = i - 999

<:#284,9360>f = 0 + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=0 + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function addrecord(hdlg)

<:#284,9360>testout=getglobalvar$(1100)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>if testout=3

<:#284,9360>    type("<[>ctrldown]")

<:#284,9360>elseif testout=5

<:#284,9360>    type("<[>ctrldown]")

<:#284,9360>elseif testout=4

<:#284,9360>    setglobalvar(1100, "3")

<:#284,9360>    type ("<[>ctrldown]")

<:#284,9360>    goto start

<:#284,9360>elseif testout=7

<:#284,9360>    call ungreycreate(hdlg)

<:#284,9360>    setglobalvar(1100, "4")

<:#284,9360>else

<:#284,9360>    type("<[>ctrldown]<[>ctrlup]")

<:#284,9360>endif

<:#284,9360>    call writedata(hdlg)

<:#284,9360>start:

<:#284,9360>for i=1 to numfields

<:#284,9360>    setglobalarray("Fieldinfo",i,"")

<:#284,9360>next

<:#284,9360>setglobalvar(1000,"10")

<:#284,9360>if numfields<<10

<:#284,9360>    notenough=10 - numfields

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>newlast=0

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function deleterec(hdlg)

<:#284,9360>cur=curshade$()

<:#284,9360>if cur=""

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>type("<[>del]<[>del]")

<:#284,9360>call gotonextrec(hdlg)

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>Function leave(hdlg)

<:#284,9360>freeglobalvar("Fieldnames")

<:#284,9360>freeglobalvar("Fieldinfo")

<:#284,9360>freeglobalvar(1000)

<:#284,9360>setglobalvar(1100, "6")

<:#284,9360>freeglobalvar(1200)

<:#284,9360>freeglobalvar(1300)

<:#284,9360>freeglobalvar(1400)

<:#284,9360>freeglobalvar(1500)

<:#284,9360>docname=getopenfilename$()

<:#284,9360>if docname<<<;>""

<:#284,9360>    result=multidecide("Save Changes to {docname}",35)

<:#284,9360>else

<:#284,9360>    save()

<:#284,9360>endif

<:#284,9360>if result=6

<:#284,9360>    save()

<:#284,9360>elseif result=7

<:#284,9360>    filechanged(1,0)

<:#284,9360>elseif result=2

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>fileclose()

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function getout()

<:#284,9360>freeglobalvar("Fieldinfo")

<:#284,9360>freeglobalvar("Fieldnames")

<:#284,9360>freeglobalvar(1000)

<:#284,9360>freeglobalvar(1100)

<:#284,9360>freeglobalvar(1300)

<:#284,9360>freeglobalvar(1200)

<:#284,9360>freeglobalvar(1400)

<:#284,9360>freeglobalvar(1500)

<:#284,9360>deletemenuitem(1, "╬─╝■(&F)", "║╧▓ó(&G)")

<:#284,9360>insertmenuitem(1, "╬─╝■(&F)", 13, "║╧▓ó(&G)...", 110)

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function find(hdlg)

<:#284,9360>rmac=getrunningmacrofile$()

<:#284,9360>X=getglobalarray$("Fieldnames",1)

<:#284,9360>numfields=X

<:#284,9360>for i=2 to x + 1

<:#284,9360>temp=getglobalarray$("Fieldnames", i)

<:#284,9360>filledit(9500, temp)

<:#284,9360>next

<:#284,9360>filledit(53, TRUE)

<:#284,9360>box=dialogbox(".","search")

<:#284,9360>if box=1

<:#284,9360>    call search(hdlg)

<:#284,9360>endif

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function search(hdlg)

<:#284,9360>dim info(100)

<:#284,9360>hourglass(1)

<:#284,9360>r=0

<:#284,9360>field1=getdialogfield$(9500)

<:#284,9360>search1=getdialogfield$(8000)

<:#284,9360>where=getdialogfield$(53)

<:#284,9360>start:

<:#284,9360>if where=0

<:#284,9360>    t=16384

<:#284,9360>    type("<[>ctrldown]")

<:#284,9360>else

<:#284,9360>    type("<[>ctrlhome]")

<:#284,9360>    t=8192 + 16384

<:#284,9360>endif

<:#284,9360>if r <;> 0

<:#284,9360>    hourglass(0)

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>result=replace(0, 0, t, search1, "")

<:#284,9360>if result= -7

<:#284,9360>    hourglass(0)

<:#284,9360>    message("No records match criteria")

<:#284,9360>    exit function

<:#284,9360>elseif result<<<;>1

<:#284,9360>    message("Search could not be started.")

<:#284,9360>    hourglass(0)

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>type("<[>ctrldown]<[>ctrlup]<[>ctrlshiftdown]")

<:#284,9360>sep=getglobalvar$(1200)

<:#284,9360>rec=getglobalvar$(1300)

<:#284,9360>Char=Curshade$()

<:#284,9360>lastrec=getglobalarray$("Fieldnames",1)

<:#284,9360>for x=1 to lastrec - 1

<:#284,9360>    Temp=StrField$(Char,x,{sep})

<:#284,9360>            if temp=""

<:#284,9360>                temp=" "

<:#284,9360>            endif

<:#284,9360>             info(x)=Temp

<:#284,9360>next

<:#284,9360>Vart=0

<:#284,9360>X=x - 1

<:#284,9360>Total=x

<:#284,9360>Temp=info(x)

<:#284,9360>Vart = Len(Temp) - 1

<:#284,9360>info(x)=Mid$(Temp,1,Vart)

<:#284,9360>for i=1 to x

<:#284,9360>fieldcheck=getglobalarray$("Fieldnames", i + 1)

<:#284,9360>if field1=fieldcheck

<:#284,9360>    goto chekfield

<:#284,9360>endif

<:#284,9360>next

<:#284,9360>type("<[>ctrldown]<[>ctrlup]")

<:#284,9360>goto start

<:#284,9360>chekfield:

<:#284,9360>string=info(i)

<:#284,9360>testit = Ucase$("{string}")

<:#284,9360>search=UCASE$("{search1}")

<:#284,9360>testforit=instr(0, "{testit}", "{search}")

<:#284,9360>if testforit=0

<:#284,9360>    type("<[>ctrldown]<[>ctrlup]")

<:#284,9360>    goto start

<:#284,9360>endif

<:#284,9360>type ("<[>ctrldown]<[>ctrlup]<[>ctrlup]")

<:#284,9360>hourglass(0)

<:#284,9360>call gotonextrec(hdlg)

<:#284,9360>r=1

<:#284,9360>end function

<:#284,9360>

<:#284,9360><:><:>function makemerge()

<:#284,9360>rmac=getrunningmacrofile$()

<:#284,9360>tt=getopenfilecount()

<:#284,9360>if tt<;>8 then

<:#284,9360>    message("Cannot open more than 9 M.D.I. Windows")

<:#284,9360>endif

<:#284,9360>new("~basic.sty", 0, 0)

<:#284,9360>setglobalvar(1100,"7")

<:#284,9360>filledit (8002,"~")

<:#284,9360>filledit (8003,"|")

<:#284,9360>filledit (8001,"11")

<:#284,9360>box=dialogbox(".","mrgdef")

<:#284,9360>if {box}<<<;>1

<:#284,9360>    setglobalvar(1100,"3")

<:#284,9360>    exit function

<:#284,9360>endif

<:#284,9360>dim fields(20)

<:#284,9360>{Fdelm}=getdialogfield$(8002)

<:#284,9360>{Rdelm}=getdialogfield$(8003)

<:#284,9360>total=getdialogfield$(8001)

<:#284,9360>Allocglobalvar(1200, 1)

<:#284,9360>Allocglobalvar(1300, 1)

<:#284,9360>setglobalvar(1200, {fdelm})

<:#284,9360>setglobalvar(1300, {rdelm})

<:#284,9360>Allocglobalvar("Fieldnames", total + 1)

<:#284,9360>Allocglobalvar("Fieldinfo", total)

<:#284,9360>setglobalarray("Fieldnames",1 , total)

<:#284,9360>type ("{Fdelm}{Rdelm}<[>enter]")

<:#284,9360>if total<<10

<:#284,9360>    setdlgcallback(0, "{rmac}!greymovement")

<:#284,9360>endif

<:#284,9360>for i=1 to total

<:#284,9360>    setglobalarray("Fieldnames", i +1, "Field #{i}")

<:#284,9360>next

<:#284,9360>{rmac}=getrunningmacrofile$()

<:#284,9360>setdlgcallback(4,"{rmac}!leave")

<:#284,9360>setdlgcallback(23,"{rmac}!CallUp")

<:#284,9360>setdlgcallback(24,"{rmac}!CallDown")

<:#284,9360>setdlgcallback(21,"{rmac}!Writedata")

<:#284,9360>setdlgcallback(25,"{rmac}!PgUp")

<:#284,9360>setdlgcallback(26,"{rmac}!PgDn")

<:#284,9360>setdlgcallback(27,"{rmac}!Gotofield")

<:#284,9360>setdlgcallback(28,"{rmac}!gotonextrec")

<:#284,9360>setdlgcallback(29,"{rmac}!gotoprevrec")

<:#284,9360>setdlgcallback(30,"{rmac}!find")

<:#284,9360>setdlgcallback(31,"{rmac}!addrecord")

<:#284,9360>setdlgcallback(32,"{rmac}!deleterec")

<:#284,9360>setglobalvar(1000,"10")

<:#284,9360>testout=getglobalarray$("Fieldnames",1)

<:#284,9360>if testout << 10

<:#284,9360>    notenough=10 - testout

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>f=i - 999

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>filledit (i,postfield)

<:#284,9360>next

<:#284,9360>filename=getopenfilename$()

<:#284,9360>if filename=""

<:#284,9360>    filename="Untitled"

<:#284,9360>endif

<:#284,9360>filledit(1012,filename)

<:#284,9360>totalfields=getglobalarray$("Fieldnames", 1)

<:#284,9360>filledit(1013, "Fields 1 to 10 of {totalfields}")

<:#284,9360>setdlgcallback(0,"{rmac}!greycreate")

<:#284,9360>box=dialogbox(".","MainBox")

<:#284,9360>hdlg=0

<:#284,9360>call leave(hdlg)

<:#284,9360>sendkeys("<[>ESC]")

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function greycreate(hdlg)

<:#284,9360>enablewindow(getdlgitem(Hdlg,32), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 21), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 29), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 28), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 27), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 30), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 33), 0)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function ungreycreate(hdlg)

<:#284,9360>enablewindow(getdlgitem(Hdlg,32), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 21), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 29), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 28), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 27), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 30), 1)

<:#284,9360>enablewindow(getdlgitem(hdlg, 33), 1)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function greymovement(hdlg)

<:#284,9360>enablewindow(getdlgitem(hdlg, 23), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 24), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg, 25), 0)

<:#284,9360>enablewindow(getdlgitem(hdlg,26), 0)

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function mergprint()

<:#284,9360>sendkeys("<[>esc]")

<:#284,9360>merge

<:#284,9360>end function

<:#284,9360>

<:#284,9360>function clearrec(hdlg)

<:#284,9360>numfields=getglobalarray$("fieldnames",1)

<:#284,9360>for i=1 to numfields

<:#284,9360>    setglobalarray("Fieldinfo",i,"")

<:#284,9360>next

<:#284,9360>setglobalvar(1000,"10")

<:#284,9360>if numfields<<10

<:#284,9360>    notenough=10 - numfields

<:#284,9360>else

<:#284,9360>    notenough=0

<:#284,9360>endif

<:#284,9360>newlast=0

<:#284,9360>for i=1001 to 1010 - notenough

<:#284,9360>x = i - 999

<:#284,9360>f = newlast + x

<:#284,9360>postfield=getglobalarray$("Fieldnames",f)

<:#284,9360>postinfo=getglobalarray$("Fieldinfo",f - 1)

<:#284,9360>setdlgitemtext(hdlg, i, postfield)

<:#284,9360>setdlgitemtext(hdlg, i + 7000, postinfo)

<:#284,9360>next

<:#284,9360>first=newlast + 1

<:#284,9360>last=first + 9

<:#284,9360>setdlgitemtext(hdlg, 1013,"Fields {first} to {last} of {numfields}")

<:#284,9360>type ("<[>ctrldown]")

<:#284,9360>end function

<:#284,9360>

<:#284,9360>

<:#284,9360>

<:#284,9360>

<:#284,9360>DIALOG MainBox

<:#284,9360>-2134376448 37 7 14 304 170 "" "" "Merge Fields"

<:#284,9360>FONT 8 "Helv"

<:#284,9360>94 10 144 12 8001 1350762624 "edit" "" 0

<:#284,9360>94 24 144 12 8002 1350631552 "edit" "" 0

<:#284,9360>94 38 144 12 8003 1350631552 "edit" "" 0

<:#284,9360>94 52 144 12 8004 1350631552 "edit" "" 0

<:#284,9360>94 66 144 12 8005 1350631552 "edit" "" 0

<:#284,9360>94 80 144 12 8006 1350631552 "edit" "" 0

<:#284,9360>94 94 144 12 8007 1350631552 "edit" "" 0

<:#284,9360>94 108 144 12 8008 1350631552 "edit" "" 0

<:#284,9360>94 122 144 12 8009 1350631552 "edit" "" 0

<:#284,9360>94 136 144 12 8010 1350762624 "edit" "" 0

<:#284,9360>258 6 40 14 31 1342373889 "button" "&Add" 0

<:#284,9360>258 22 40 14 32 1342373888 "button" "Dele&te" 0

<:#284,9360>258 38 40 14 21 1342373888 "button" "U&pdate" 0

<:#284,9360>258 54 40 14 33 1342373888 "button" "&Clear" 0

<:#284,9360>258 70 40 14 4 1342373888 "button" "&Exit" 0

<:#284,9360>258 106 18 14 29 1342373888 "button" "<<<<" 0

<:#284,9360>280 106 18 14 28 1342373888 "button" "<;><;>" 0

<:#284,9360>258 90 18 14 25 1342373888 "button" "&Up" 0

<:#284,9360>280 90 18 14 26 1342373888 "button" "&Dn" 0

<:#284,9360>258 122 40 14 27 1342373888 "button" "Fie&ld..." 0

<:#284,9360>258 138 40 14 30 1342373888 "button" "&Find..." 0

<:#284,9360>240 6 12 12 23 1342308352 "button" "<;><;>" 0

<:#284,9360>240 139 12 12 24 1342308352 "button" "<<<<" 0

<:#284,9360>6 156 38 8 1011 1342177280 "static" "File name: " 0

<:#284,9360>12 12 78 8 1001 1342177282 "static" "" 0

<:#284,9360>12 26 78 8 1002 1342177282 "static" "" 0

<:#284,9360>12 40 78 8 1003 1342177282 "static" "" 0

<:#284,9360>12 54 78 8 1004 1342177282 "static" "" 0

<:#284,9360>12 68 78 8 1005 1342177282 "static" "" 0

<:#284,9360>12 82 78 8 1006 1342177282 "static" "" 0

<:#284,9360>12 96 78 8 1007 1342177282 "static" "" 0

<:#284,9360>12 110 78 8 1008 1342177282 "static" "" 0

<:#284,9360>12 124 78 8 1009 1342177282 "static" "" 0

<:#284,9360>12 138 78 8 1010 1342177282 "static" "" 0

<:#284,9360>218 156 80 8 1013 1342177282 "static" "" 0

<:#284,9360>50 156 164 8 1012 1342177280 "static" "" 0

<:#284,9360>6 2 246 150 10 1342177287 "button" "" 0

<:#284,9360>END DIALOG

<:#284,9360>

<:#284,9360>DIALOG GotoField

<:#284,9360>-2134376448 4 136 30 144 90 "" "" "Go To Field"

<:#284,9360>FONT 8 "Helv"

<:#284,9360>6 14 86 72 9000 1352728579 "listbox" "" 0

<:#284,9360>98 4 40 14 1 1342373889 "button" "&Go To" 0

<:#284,9360>98 20 40 14 2 1342373888 "button" "Cancel" 0

<:#284,9360>6 4 86 8 1000 1342177280 "static" "Available fields:" 0

<:#284,9360>END DIALOG

<:#284,9360>

<:#284,9360>DIALOG Search

<:#284,9360>-2134376448 6 60 32 248 40 "" "" "Find"

<:#284,9360>FONT 8 "Helv"

<:#284,9360>6 6 88 45 9500 1344471043 "combobox" "" 0

<:#284,9360>102 6 94 12 8000 1350631552 "edit" "" 0

<:#284,9360>6 22 190 12 53 1342242819 "button" "Beginning of database" 0

<:#284,9360>202 4 40 14 1 1342242817 "button" "Find" 0

<:#284,9360>202 20 40 14 2 1342242816 "button" "Cancel" 0

<:#284,9360>96 8 4 8 1000 1342177280 "static" "=" 0

<:#284,9360>END DIALOG

<:#284,9360>

<:#284,9360>DIALOG mrgdef

<:#284,9360>-2134376448 10 88 26 146 76 "" "" "Create Record File"

<:#284,9360>FONT 8 "Helv"

<:#284,9360>66 4 22 12 8001 1350762624 "edit" "" 0

<:#284,9360>66 18 12 12 8002 1350631552 "edit" "" 0

<:#284,9360>66 32 12 12 8003 1350631552 "edit" "" 0

<:#284,9360>100 4 40 14 1 1342373889 "button" "Create" 0

<:#284,9360>100 20 40 14 2 1342373888 "button" "Cancel" 0

<:#284,9360>6 8 54 8 1001 1342177280 "static" "&Total fields:" 0

<:#284,9360>6 22 50 8 1002 1342177280 "static" "&Field delimiter:" 0

<:#284,9360>6 36 60 8 1003 1342177280 "static" "&Record delimiter: " 0

<:#284,9360>8 56 76 10 1004 1342177281 "static" "$, #, !, %, (, ), ~, |, -" 0

<:#284,9360>4 46 88 24 20 1342177287 "button" "Suggested Delimiters" 0

<:#284,9360>END DIALOG

<:#284,9360>

>

[Embedded]
00040454
>
[macsum] 28
menus 0 0 2 18
mergedata 682 0 13 33
callup 2124 1 13 108
calldown 2932 1 14 139
PgUp 3795 1 14 171
PgDn 4667 1 15 204
gotofield 5574 1 14 238
getfields 6774 0 12 288
writedata 7981 1 15 343
getdata 9068 1 14 389
gotonextrec 9964 1 12 429
gotoprevrec 10666 1 13 459
addrecord 11439 1 12 494
deleterec 12460 1 2 536
leave 12581 1 3 545
getout 12979 0 1 570
find 13185 1 7 583
search 13508 1 21 598
makemerge 14933 0 16 668
greycreate 16560 1 1 742
ungreycreate 16979 1 1 752
greymovement 17400 1 1 762
mergprint 17653 0 1 769
clearrec 17700 1 11 774
MainBox 18389 0 -1 803
GotoField 20145 0 -1 845
Search 20424 0 -1 854
mrgdef 20781 0 -1 865
[macse]
14 menus
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Adding MergData to File/Merge menu"
0 802
13
8 1
0 520 1 "╬─╝■(&F)" "║╧▓ó(&G)..."
0 520 1 "╬─╝■(&F)" "║╧▓ó(&G)"
0 528 1 "╬─╝■(&F)" 13 "║╧▓ó(&G)"
0 525 1 "╬─╝■(&F)" "║╧▓ó(&G)" "&Print..." 110 "Print Merge"
0 525 1 "╬─╝■(&F)" "║╧▓ó(&G)" "&Create/Edit..." "{1}!mergedata" "Create/ Edit Merge Data File"
0 525 1 "╬─╝■(&F)" "║╧▓ó(&G)" "-" "" ""
0 525 1 "╬─╝■(&F)" "║╧▓ó(&G)" "E&xit MergeData" "{1}!getout" "Exit Merge Macro"
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
6 0
15
9
14 mergedata
0 271 1100 1
0 271 1000 1
0 802
13
8 1
0 264 1100 "1"
0 1050
13
8 2
6 2
5 1
18 5
11 00000181
0 3 "A Data file must be displayed."
5 3
8 3
10 00000216
16 getfields
0 265 1100
13
8 3
6 3
5 3
18 0
11 00000405
0 274 010
0 266 "Fieldnames"
0 266 "Fieldinfo"
0 266 1000
0 266 1100
0 266 1300
0 266 1200
0 266 1400
0 266 1500
0 36 "[27]"
6 0
15
9
10 00000471
6 3
5 6
18 0
11 00000471
0 266 1100
0 36 "[27]"
6 0
15
9
16 getdata
0 41 23 "{1}!CallUp"
0 41 24 "{1}!CallDown"
0 41 21 "{1}!Writedata"
0 41 4 "{1}!leave"
0 41 25 "{1}!PgUp"
0 41 26 "{1}!PgDn"
0 41 27 "{1}!Gotofield"
0 41 28 "{1}!gotonextrec"
0 41 29 "{1}!gotoprevrec"
0 41 30 "{1}!find"
0 41 31 "{1}!addrecord"
0 41 32 "{1}!deleterec"
0 41 33 "{1}!clearrec"
0 264 1000 "10"
0 264 1100 "2"
0 273 "Fieldnames" 1
13
8 3
6 3
5 10
18 5
11 00000942
5 10
6 3
3 1
8 4
0 41 0 "{1}!GreyMovement"
10 00000952
5 0
8 4
5 1001
8 5
5 1010
6 4
3 1
6 5
18 2
12 00001053
10 00001222
5 1
6 5
3 0
8 5
10 00000965
6 5
5 999
3 1
8 6
0 273 "Fieldnames" "{6}"
13
8 7
6 6
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 8
0 31 "{5}" "{7}"
6 5
5 7000
3 0
0 31 [X] "{8}"
10 00001020
0 267
13
8 9
6 9
7 ""
18 0
11 00001287
7 "Untitled"
8 9
0 31 1012 "{9}"
0 273 "Fieldnames" 1
13
8 10
0 31 1013 "Fields 1 to 10 of {10}"
0 26 "." "MainBox"
13
8 11
5 0
8 12
16 leave "{12}"
6 0
15
9
14 callup
0 32 1
0 273 "fieldnames" 1
13
8 2
0 265 1000
13
8 3
5 1
8 4
5 10
6 4
18 2
12 00000157
10 00000292
5 1
6 4
3 0
8 4
10 00000081
6 4
5 8000
3 0
8 5
6 3
5 10
3 1
8 6
6 6
6 4
3 0
8 7
0 42 "{0}" "{5}"
13
8 8
0 272 "Fieldinfo" "{7}" "{8}"
10 00000124
6 3
5 11
3 1
5 0
18 5
11 00000351
0 801
6 1
15
9
6 3
5 1
3 1
0 264 1000 [X]
6 3
5 11
3 1
8 9
5 1001
8 4
5 1010
6 4
18 2
12 00000494
10 00000704
5 1
6 4
3 0
8 4
10 00000416
6 4
5 999
3 1
8 10
6 9
6 10
3 0
8 11
0 273 "Fieldnames" "{11}"
13
8 12
6 11
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 13
0 43 "{0}" "{4}" "{12}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{13}"
10 00000461
6 9
5 1
3 0
8 6
6 6
5 9
3 0
8 3
0 43 "{0}" 1013 "Fields {6} to {3} of {2}"
0 32 0
6 1
15
9
14 calldown
0 32 1
0 273 "fieldnames" 1
13
8 2
0 265 1000
13
8 3
5 1
8 4
5 10
6 4
18 2
12 00000159
10 00000294
5 1
6 4
3 0
8 4
10 00000083
6 4
5 8000
3 0
8 5
6 3
5 10
3 1
8 6
6 6
6 4
3 0
8 7
0 42 "{0}" "{5}"
13
8 8
0 272 "Fieldinfo" "{7}" "{8}"
10 00000126
0 273 "Fieldnames" 1
13
8 9
6 3
5 1
3 0
6 9
5 1
3 0
18 2
11 00000393
0 801
6 1
15
9
6 3
5 1
3 0
0 264 1000 [X]
6 3
5 1
3 0
5 10
3 1
8 10
5 1001
8 4
5 1010
6 4
18 2
12 00000547
10 00000758
5 1
6 4
3 0
8 4
10 00000469
6 4
5 999
3 1
8 11
6 10
6 11
3 0
8 12
0 273 "Fieldnames" "{12}"
13
8 13
6 12
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 14
0 43 "{0}" "{4}" "{13}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{14}"
10 00000514
6 10
5 1
3 0
8 6
6 6
5 9
3 0
8 3
0 43 "{0}" 1013 "Fields {6} to {3} of {2}"
0 32 0
6 1
15
9
14 PgUp
0 32 1
0 273 "fieldnames" 1
13
8 2
0 265 1000
13
8 3
5 1
8 4
5 10
6 4
18 2
12 00000155
10 00000290
5 1
6 4
3 0
8 4
10 00000079
6 4
5 8000
3 0
8 5
6 3
5 10
3 1
8 6
6 6
6 4
3 0
8 7
0 42 "{0}" "{5}"
13
8 8
0 272 "Fieldinfo" "{7}" "{8}"
10 00000122
6 3
5 10
3 1
5 10
18 5
11 00000354
5 0
8 9
10 00000375
6 3
5 20
3 1
8 9
6 9
5 10
3 0
0 264 1000 [X]
5 1001
8 4
5 1010
6 4
18 2
12 00000498
10 00000708
5 1
6 4
3 0
8 4
10 00000420
6 4
5 999
3 1
8 10
6 9
6 10
3 0
8 11
0 273 "Fieldnames" "{11}"
13
8 12
6 11
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 13
0 43 "{0}" "{4}" "{12}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{13}"
10 00000465
6 9
5 1
3 0
8 6
6 6
5 9
3 0
8 3
0 43 "{0}" 1013 "Fields {6} to {3} of {2}"
0 32 0
0 44 "{0}" 8001
13
8 14
0 284 "user,SetFocus,HH" "{14}"
6 1
15
9
14 PgDn
0 32 1
0 273 "fieldnames" 1
13
8 2
0 265 1000
13
8 3
5 1
8 4
5 10
6 4
18 2
12 00000155
10 00000290
5 1
6 4
3 0
8 4
10 00000079
6 4
5 8000
3 0
8 5
6 3
5 10
3 1
8 6
6 6
6 4
3 0
8 7
0 42 "{0}" "{5}"
13
8 8
0 272 "Fieldinfo" "{7}" "{8}"
10 00000122
0 273 "Fieldnames" 1
13
8 9
6 3
5 10
3 0
6 9
18 3
11 00000396
6 9
5 10
3 1
8 10
10 00000407
6 3
8 10
6 10
5 10
3 0
0 264 1000 [X]
5 1001
8 4
5 1010
6 4
18 2
12 00000531
10 00000742
5 1
6 4
3 0
8 4
10 00000453
6 4
5 999
3 1
8 11
6 10
6 11
3 0
8 12
0 273 "Fieldnames" "{12}"
13
8 13
6 12
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 14
0 43 "{0}" "{4}" "{13}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{14}"
10 00000498
6 10
5 1
3 0
8 6
6 6
5 9
3 0
8 3
0 43 "{0}" 1013 "Fields {6} to {3} of {2}"
0 32 0
0 44 "{0}" 8001
13
8 15
0 284 "user,SetFocus,HH" "{15}"
6 1
15
9
14 gotofield
0 273 "Fieldnames" 1
13
8 2
6 2
8 3
5 2
8 4
6 2
5 1
3 0
6 4
18 2
12 00000150
10 00000215
5 1
6 4
3 0
8 4
10 00000065
0 273 "Fieldnames" "{4}"
13
8 5
0 31 9000 "{5}"
10 00000117
0 26 "." "Gotofield"
13
8 6
6 6
5 1
18 1
11 00000287
6 1
15
9
0 27 9000
13
8 7
5 2
8 4
6 2
5 1
3 0
6 4
18 2
12 00000402
10 00000512
5 1
6 4
3 0
8 4
10 00000317
0 273 "Fieldnames" "{4}"
13
8 5
6 5
6 7
18 0
11 00000499
6 4
5 2
3 1
8 8
10 00000512
10 00000369
0 273 "Fieldnames" 1
13
8 9
6 8
5 10
18 5
11 00000673
6 8
5 10
3 1
5 10
18 5
11 00000638
5 0
8 10
10 00000660
6 8
5 20
3 1
8 10
10 00000759
6 8
5 10
3 0
6 9
18 3
11 00000748
6 9
5 10
3 1
8 10
10 00000759
6 8
8 10
6 10
5 10
3 0
0 264 1000 [X]
5 1001
8 4
5 1010
6 4
18 2
12 00000883
10 00001092
5 1
6 4
3 0
8 4
10 00000805
6 4
5 999
3 1
8 2
6 10
6 2
3 0
8 11
0 273 "Fieldnames" "{11}"
13
8 12
6 11
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 13
0 43 "{0}" "{4}" "{12}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{13}"
10 00000850
6 10
5 1
3 0
8 14
6 14
5 9
3 0
8 8
0 43 "{0}" 1013 "Fields {14} to {8} of {3}"
0 32 0
6 1
15
9
14 getfields
5 40
21 1 [X]
0 6 "[16420]"
0 6 "[36][4131]"
0 24
13
8 2
0 14 "{2}"
13
5 2
18 1
11 00000299
0 21 "This is not an Ami Pro records file.  Do you wish to create one?" 36
13
8 3
6 3
5 6
18 0
11 00000271
16 makemerge
6 0
15
9
10 00000287
0 264 1100 "3"
6 0
15
9
0 15 "{2}" 1 1
13
8 4
0 15 "{2}" 2 1
13
8 5
0 6 "[36][40][20520]"
0 24
13
8 2
5 1
8 6
5 1
11 00000675
0 20 "{2}" "{6}" "{4}"
13
8 7
6 7
7 ""
18 1
11 00000527
6 6
6 7
23 1
6 6
5 1
3 0
8 6
10 00000662
5 0
8 8
6 6
5 1
3 1
8 6
6 6
8 9
6 6
22 1
8 7
0 14 "{7}"
13
5 1
3 1
8 8
6 6
0 15 "{7}" 1 "{8}"
13
23 1
10 00000675
10 00000397
6 6
5 1
3 0
0 271 "FieldNames" [X]
0 271 1100 1
0 271 1200 1
0 271 1300 1
0 271 1400 1
0 264 1400 ""
0 264 1200 "{4}"
0 264 1300 "{5}"
0 272 "Fieldnames" 1 "{6}"
0 266 "Fieldinfo"
6 6
5 1
3 0
0 271 "Fieldinfo" [X]
5 1
8 10
6 6
6 10
18 2
12 00000995
10 00001037
5 1
6 10
3 0
8 10
10 00000917
0 272 "Fieldinfo" "{6}" " "
10 00000960
5 1
8 11
6 6
6 11
18 2
12 00001126
10 00001195
5 1
6 11
3 0
8 11
10 00001048
6 11
5 1
3 0
6 11
22 1
0 272 "Fieldnames" [X] [X]
10 00001091
6 0
15
9
14 writedata
5 0
8 2
0 44 "{0}" 8001
13
8 3
0 284 "user,SetFocus,HH" "{3}"
0 265 1200
13
8 4
0 265 1300
13
8 5
0 265 1000
13
8 6
0 273 "Fieldnames" 1
13
8 7
6 7
5 10
18 5
11 00000240
5 10
6 7
3 1
8 8
10 00000250
5 0
8 8
5 1
8 9
5 10
6 8
3 1
6 9
18 2
12 00000346
10 00000489
5 1
6 9
3 0
8 9
10 00000260
6 9
5 8000
3 0
8 10
6 6
5 10
3 1
8 11
6 11
6 9
3 0
8 12
0 42 "{0}" "{10}"
13
8 13
0 272 "Fieldinfo" "{12}" "{13}"
10 00000313
0 265 1100
13
8 14
5 1
8 9
6 7
5 1
3 1
6 9
18 2
12 00000606
10 00000827
5 1
6 9
3 0
8 9
10 00000521
0 273 "Fieldinfo" "{9}"
13
8 15
6 14
5 4
18 0
11 00000799
6 15
7 ""
18 0
11 00000753
6 2
5 1
3 0
8 2
0 16 "Extra " "{2}"
13
8 15
6 9
5 1
3 0
0 272 "Fieldnames" [X] "{15}"
0 6 "{15}{4}"
10 00000573
0 273 "Fieldinfo" "{7}"
13
8 15
0 6 "{15}{5}[13]"
6 14
5 4
18 0
11 00001075
6 15
7 ""
18 0
11 00000993
6 2
5 1
3 0
8 2
0 16 "Extra " "{2}"
13
8 15
6 7
5 1
3 0
0 272 "Fieldnames" [X] "{15}"
0 264 1100 "4"
16 addrecord "{0}"
6 1
15
9
14 getdata
5 40
21 2 [X]
0 44 "{0}" 8001
13
8 3
0 284 "user,SetFocus,HH" "{3}"
0 265 1200
13
8 4
0 265 1300
13
8 5
0 6 "[16424][16422][20520]"
0 24
13
8 6
0 273 "Fieldnames" 1
13
8 7
5 1
8 8
6 7
6 8
18 2
12 00000288
10 00000614
5 1
6 8
3 0
8 8
10 00000213
0 20 "{6}" "{8}" "{4}"
13
8 9
6 9
7 ""
18 0
11 00000363
7 " "
8 9
6 8
5 1
3 0
0 273 "Fieldnames" [X]
13
8 10
6 9
6 10
18 0
11 00000585
0 265 1100
13
8 11
6 11
5 1
18 0
11 00000535
0 264 1100 "5"
6 1
15
9
10 00000585
0 264 1100 "2"
16 gotonextrec "{0}"
6 1
15
9
6 8
6 9
23 2
10 00000255
5 0
8 12
6 8
5 1
3 1
8 8
6 8
8 13
6 8
22 2
8 9
0 14 "{9}"
13
5 1
3 1
8 12
6 8
0 15 "{9}" 1 "{12}"
13
23 2
5 1
8 14
6 8
6 14
18 2
12 00000829
10 00000884
5 1
6 14
3 0
8 14
10 00000751
6 14
22 2
0 272 "Fieldinfo" "{14}" [X]
10 00000794
6 1
15
9
14 gotonextrec
0 273 "fieldinfo" 2
13
8 2
6 2
7 ""
18 0
11 00000104
0 6 "[16424]"
10 00000126
0 6 "[16424][16422]"
16 getdata "{0}"
0 273 "Fieldnames" 1
13
8 3
0 264 1000 "10"
0 273 "Fieldnames" 1
13
8 4
6 4
5 10
18 5
11 00000287
5 10
6 4
3 1
8 5
10 00000297
5 0
8 5
5 1001
8 6
5 1010
6 5
3 1
6 6
18 2
12 00000398
10 00000601
5 1
6 6
3 0
8 6
10 00000310
6 6
5 999
3 1
8 7
5 0
6 7
3 0
8 8
0 273 "Fieldnames" "{8}"
13
8 9
6 8
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 10
0 43 "{0}" "{6}" "{9}"
6 6
5 7000
3 0
0 43 "{0}" [X] "{10}"
10 00000365
5 0
5 1
3 0
8 11
6 11
5 9
3 0
8 12
0 43 "{0}" 1013 "Fields {11} to {12} of {3}"
6 1
15
9
14 gotoprevrec
0 273 "fieldinfo" 2
13
8 2
6 2
7 ""
18 0
11 00000104
0 6 "[16422]"
10 00000126
0 6 "[16422][16422]"
16 getdata "{0}"
0 265 1100
13
8 3
6 3
5 5
18 0
11 00000213
0 801
6 1
15
9
0 273 "Fieldnames" 1
13
8 4
0 264 1000 "10"
0 273 "Fieldnames" 1
13
8 5
6 5
5 10
18 5
11 00000356
5 10
6 5
3 1
8 6
10 00000366
5 0
8 6
5 1001
8 7
5 1010
6 6
3 1
6 7
18 2
12 00000467
10 00000672
5 1
6 7
3 0
8 7
10 00000379
6 7
5 999
3 1
8 8
5 0
6 8
3 0
8 9
0 273 "Fieldnames" "{9}"
13
8 10
6 9
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 11
0 43 "{0}" "{7}" "{10}"
6 7
5 7000
3 0
0 43 "{0}" [X] "{11}"
10 00000434
5 0
5 1
3 0
8 12
6 12
5 9
3 0
8 13
0 43 "{0}" 1013 "Fields {12} to {13} of {4}"
6 1
15
9
14 addrecord
0 265 1100
13
8 2
0 273 "fieldnames" 1
13
8 3
6 2
5 3
18 0
11 00000123
0 6 "[16424]"
10 00000369
6 2
5 5
18 0
11 00000180
0 6 "[16424]"
10 00000369
6 2
5 4
18 0
11 00000266
0 264 1100 "3"
0 6 "[16424]"
10 00000389
10 00000369
6 2
5 7
18 0
11 00000347
16 ungreycreate "{0}"
0 264 1100 "4"
10 00000369
0 6 "[16424][16422]"
16 writedata "{0}"
5 1
8 4
6 3
6 4
18 2
12 00000474
10 00000515
5 1
6 4
3 0
8 4
10 00000399
0 272 "Fieldinfo" "{4}" ""
10 00000441
0 264 1000 "10"
6 3
5 10
18 5
11 00000596
5 10
6 3
3 1
8 5
10 00000606
5 0
8 5
5 0
8 6
5 1001
8 4
5 1010
6 5
3 1
6 4
18 2
12 00000717
10 00000920
5 1
6 4
3 0
8 4
10 00000629
6 4
5 999
3 1
8 7
6 6
6 7
3 0
8 8
0 273 "Fieldnames" "{8}"
13
8 9
6 8
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 10
0 43 "{0}" "{4}" "{9}"
6 4
5 7000
3 0
0 43 "{0}" [X] "{10}"
10 00000684
6 6
5 1
3 0
8 11
6 11
5 9
3 0
8 12
0 43 "{0}" 1013 "Fields {11} to {12} of {3}"
6 1
15
9
14 deleterec
0 24
13
8 2
6 2
7 ""
18 0
11 00000071
6 1
15
9
0 6 "[46][46]"
16 gotonextrec "{0}"
6 1
15
9
14 leave
0 266 "Fieldnames"
0 266 "Fieldinfo"
0 266 1000
0 264 1100 "6"
0 266 1200
0 266 1300
0 266 1400
0 266 1500
0 267
13
8 2
6 2
7 ""
18 1
11 00000224
0 21 "Save Changes to {2}" 35
13
8 3
10 00000233
2 103 1
6 3
5 6
18 0
11 00000284
2 103 1
10 00000377
6 3
5 7
18 0
11 00000336
0 34 1 0
10 00000377
6 3
5 2
18 0
11 00000377
6 1
15
9
2 147 1
6 1
15
9
14 getout
0 266 "Fieldinfo"
0 266 "Fieldnames"
0 266 1000
0 266 1100
0 266 1300
0 266 1200
0 266 1400
0 266 1500
0 520 1 "╬─╝■(&F)" "║╧▓ó(&G)"
0 527 1 "╬─╝■(&F)" 13 "║╧▓ó(&G)..." 110
6 0
15
9
14 find
0 802
13
8 2
0 273 "Fieldnames" 1
13
8 3
6 3
8 4
5 2
8 5
6 3
5 1
3 0
6 5
18 2
12 00000161
10 00000226
5 1
6 5
3 0
8 5
10 00000076
0 273 "Fieldnames" "{5}"
13
8 6
0 31 9500 "{6}"
10 00000128
0 31 53 1
0 26 "." "search"
13
8 7
6 7
5 1
18 0
11 00000311
16 search "{0}"
6 1
15
9
14 search
5 100
21 2 [X]
0 296 1
5 0
8 3
0 27 9500
13
8 4
0 27 8000
13
8 5
0 27 53
13
8 6
6 6
5 0
18 0
11 00000176
5 16384
8 7
0 6 "[16424]"
10 00000218
0 6 "[16420]"
5 8192
5 16384
3 0
8 7
6 3
5 0
18 3
11 00000268
0 296 0
6 1
15
9
2 488 1 0 0 "{7}" "{5}" ""
13
8 8
6 8
5 -7
18 0
11 00000402
0 296 0
0 3 "No records match criteria"
6 1
15
9
10 00000488
6 8
5 1
18 1
11 00000488
0 3 "Search could not be started."
0 296 0
6 1
15
9
0 6 "[16424][16422][20520]"
0 265 1200
13
8 9
0 265 1300
13
8 10
0 24
13
8 11
0 273 "Fieldnames" 1
13
8 12
5 1
8 13
6 12
5 1
3 1
6 13
18 2
12 00000708
10 00000819
5 1
6 13
3 0
8 13
10 00000619
0 20 "{11}" "{13}" "{9}"
13
8 14
6 14
7 ""
18 0
11 00000788
7 " "
8 14
6 13
6 14
23 2
10 00000673
5 0
8 15
6 13
5 1
3 1
8 13
6 13
8 16
6 13
22 2
8 14
0 14 "{14}"
13
5 1
3 1
8 15
6 13
0 15 "{14}" 1 "{15}"
13
23 2
5 1
8 17
6 13
6 17
18 2
12 00001043
10 00001149
5 1
6 17
3 0
8 17
10 00000964
6 17
5 1
3 0
0 273 "Fieldnames" [X]
13
8 18
6 4
6 18
18 0
11 00001136
10 00001184
10 00001008
0 6 "[16424][16422]"
10 00000105
6 17
22 2
8 19
0 18 "{19}"
13
8 20
0 18 "{5}"
13
8 1
0 808 0 "{20}" "{1}"
13
8 21
6 21
5 0
18 0
11 00001343
0 6 "[16424][16422]"
10 00000105
0 6 "[16424][16422][16422]"
0 296 0
16 gotonextrec "{0}"
5 1
8 3
6 1
15
9
14 makemerge
0 802
13
8 1
0 1050
13
8 2
6 2
5 8
18 3
11 00000122
0 3 "Cannot open more than 9 M.D.I. Windows"
2 101 1 "~basic.sty" 0 0
0 264 1100 "7"
0 31 8002 "~"
0 31 8003 "|"
0 31 8001 "11"
0 26 "." "mrgdef"
13
8 3
6 3
5 1
18 1
11 00000295
0 264 1100 "3"
6 0
15
9
5 20
21 4 [X]
0 27 8002
13
8 5
0 27 8003
13
8 6
0 27 8001
13
8 7
0 271 1200 1
0 271 1300 1
0 264 1200 "{5}"
0 264 1300 "{6}"
6 7
5 1
3 0
0 271 "Fieldnames" [X]
0 271 "Fieldinfo" "{7}"
0 272 "Fieldnames" 1 "{7}"
0 6 "{5}{6}[13]"
6 7
5 10
18 5
11 00000602
0 41 0 "{1}!greymovement"
5 1
8 8
6 7
6 8
18 2
12 00000687
10 00000752
5 1
6 8
3 0
8 8
10 00000612
6 8
5 1
3 0
0 272 "Fieldnames" [X] "Field #{8}"
10 00000654
0 802
13
8 1
0 41 4 "{1}!leave"
0 41 23 "{1}!CallUp"
0 41 24 "{1}!CallDown"
0 41 21 "{1}!Writedata"
0 41 25 "{1}!PgUp"
0 41 26 "{1}!PgDn"
0 41 27 "{1}!Gotofield"
0 41 28 "{1}!gotonextrec"
0 41 29 "{1}!gotoprevrec"
0 41 30 "{1}!find"
0 41 31 "{1}!addrecord"
0 41 32 "{1}!deleterec"
0 264 1000 "10"
0 273 "Fieldnames" 1
13
8 9
6 9
5 10
18 5
11 00001161
5 10
6 9
3 1
8 10
10 00001172
5 0
8 10
5 1001
8 8
5 1010
6 10
3 1
6 8
18 2
12 00001274
10 00001366
5 1
6 8
3 0
8 8
10 00001185
6 8
5 999
3 1
8 11
0 273 "Fieldnames" "{11}"
13
8 12
0 31 "{8}" "{12}"
10 00001241
0 267
13
8 13
6 13
7 ""
18 0
11 00001434
7 "Untitled"
8 13
0 31 1012 "{13}"
0 273 "Fieldnames" 1
13
8 14
0 31 1013 "Fields 1 to 10 of {14}"
0 41 0 "{1}!greycreate"
0 26 "." "MainBox"
13
8 3
5 0
8 15
16 leave "{15}"
0 36 "[27]"
6 0
15
9
14 greycreate
0 44 "{0}" 32
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 21
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 29
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 28
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 27
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 30
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 33
13
0 284 "user,EnableWindow,HHH" [X] 0
6 1
15
9
14 ungreycreate
0 44 "{0}" 32
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 21
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 29
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 28
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 27
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 30
13
0 284 "user,EnableWindow,HHH" [X] 1
0 44 "{0}" 33
13
0 284 "user,EnableWindow,HHH" [X] 1
6 1
15
9
14 greymovement
0 44 "{0}" 23
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 24
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 25
13
0 284 "user,EnableWindow,HHH" [X] 0
0 44 "{0}" 26
13
0 284 "user,EnableWindow,HHH" [X] 0
6 1
15
9
14 mergprint
0 36 "[27]"
24 110
6 0
15
9
14 clearrec
0 273 "fieldnames" 1
13
8 2
5 1
8 3
6 2
6 3
18 2
12 00000129
10 00000170
5 1
6 3
3 0
8 3
10 00000054
0 272 "Fieldinfo" "{3}" ""
10 00000096
0 264 1000 "10"
6 2
5 10
18 5
11 00000251
5 10
6 2
3 1
8 4
10 00000261
5 0
8 4
5 0
8 5
5 1001
8 3
5 1010
6 4
3 1
6 3
18 2
12 00000372
10 00000573
5 1
6 3
3 0
8 3
10 00000284
6 3
5 999
3 1
8 6
6 5
6 6
3 0
8 7
0 273 "Fieldnames" "{7}"
13
8 8
6 7
5 1
3 1
0 273 "Fieldinfo" [X]
13
8 9
0 43 "{0}" "{3}" "{8}"
6 3
5 7000
3 0
0 43 "{0}" [X] "{9}"
10 00000339
6 5
5 1
3 0
8 10
6 10
5 9
3 0
8 11
0 43 "{0}" 1013 "Fields {10} to {11} of {2}"
0 6 "[16424]"
6 1
15
9
DIALOG MainBox
-2134376448 37 7 14 304 170 "" "" "Merge Fields"
FONT 8 "Helv"
94 10 144 12 8001 1350762624 "edit" "" 0
94 24 144 12 8002 1350631552 "edit" "" 0
94 38 144 12 8003 1350631552 "edit" "" 0
94 52 144 12 8004 1350631552 "edit" "" 0
94 66 144 12 8005 1350631552 "edit" "" 0
94 80 144 12 8006 1350631552 "edit" "" 0
94 94 144 12 8007 1350631552 "edit" "" 0
94 108 144 12 8008 1350631552 "edit" "" 0
94 122 144 12 8009 1350631552 "edit" "" 0
94 136 144 12 8010 1350762624 "edit" "" 0
258 6 40 14 31 1342373889 "button" "&Add" 0
258 22 40 14 32 1342373888 "button" "Dele&te" 0
258 38 40 14 21 1342373888 "button" "U&pdate" 0
258 54 40 14 33 1342373888 "button" "&Clear" 0
258 70 40 14 4 1342373888 "button" "&Exit" 0
258 106 18 14 29 1342373888 "button" "<<" 0
280 106 18 14 28 1342373888 "button" ">>" 0
258 90 18 14 25 1342373888 "button" "&Up" 0
280 90 18 14 26 1342373888 "button" "&Dn" 0
258 122 40 14 27 1342373888 "button" "Fie&ld..." 0
258 138 40 14 30 1342373888 "button" "&Find..." 0
240 6 12 12 23 1342308352 "button" ">>" 0
240 139 12 12 24 1342308352 "button" "<<" 0
6 156 38 8 1011 1342177280 "static" "File name: " 0
12 12 78 8 1001 1342177282 "static" "" 0
12 26 78 8 1002 1342177282 "static" "" 0
12 40 78 8 1003 1342177282 "static" "" 0
12 54 78 8 1004 1342177282 "static" "" 0
12 68 78 8 1005 1342177282 "static" "" 0
12 82 78 8 1006 1342177282 "static" "" 0
12 96 78 8 1007 1342177282 "static" "" 0
12 110 78 8 1008 1342177282 "static" "" 0
12 124 78 8 1009 1342177282 "static" "" 0
12 138 78 8 1010 1342177282 "static" "" 0
218 156 80 8 1013 1342177282 "static" "" 0
50 156 164 8 1012 1342177280 "static" "" 0
6 2 246 150 10 1342177287 "button" "" 0
DIALOG GotoField
-2134376448 4 136 30 144 90 "" "" "Go To Field"
FONT 8 "Helv"
6 14 86 72 9000 1352728579 "listbox" "" 0
98 4 40 14 1 1342373889 "button" "&Go To" 0
98 20 40 14 2 1342373888 "button" "Cancel" 0
6 4 86 8 1000 1342177280 "static" "Available fields:" 0
DIALOG Search
-2134376448 6 60 32 248 40 "" "" "Find"
FONT 8 "Helv"
6 6 88 45 9500 1344471043 "combobox" "" 0
102 6 94 12 8000 1350631552 "edit" "" 0
6 22 190 12 53 1342242819 "button" "Beginning of database" 0
202 4 40 14 1 1342242817 "button" "Find" 0
202 20 40 14 2 1342242816 "button" "Cancel" 0
96 8 4 8 1000 1342177280 "static" "=" 0
DIALOG mrgdef
-2134376448 10 88 26 146 76 "" "" "Create Record File"
FONT 8 "Helv"
66 4 22 12 8001 1350762624 "edit" "" 0
66 18 12 12 8002 1350631552 "edit" "" 0
66 32 12 12 8003 1350631552 "edit" "" 0
100 4 40 14 1 1342373889 "button" "Create" 0
100 20 40 14 2 1342373888 "button" "Cancel" 0
6 8 54 8 1001 1342177280 "static" "&Total fields:" 0
6 22 50 8 1002 1342177280 "static" "&Field delimiter:" 0
6 36 60 8 1003 1342177280 "static" "&Record delimiter: " 0
8 56 76 10 1004 1342177281 "static" "$, #, !, %, (, ), ~, |, -" 0
4 46 88 24 20 1342177287 "button" "Suggested Delimiters" 0
00040479