PC World Komputer 1998 July & August/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS029.DSK/LABEL.SMM

INI File | 1992-06-17 | 57KB | 3,876 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Automates _LABEL.STY, providing the engine for Avery label-building



    noautorun
    708845799
    66
    703895045
    3823
    13
    1663
    14877
    51
    53






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Body Text
    2
    [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 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]
    Function
    4
    [fnt]
        Arial
        240
        0
        16385
    [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]
    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
        200
        0
        49152
    [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
        0

        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
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[tag]
    Header
    9
    [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
        .
        ,
        $
    Header
    0
    0
[tag]
    Footer
    11
    [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
        .
        ,
        $
    Footer
    0
    0
[tag]
    Outline1
    12
    [fnt]
        Times New Roman
        240
        0
        49153
    [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
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline1
    0
    0
[tag]
    Outline2
    0
    [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
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    0
    [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
        3

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    0
    [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
        4

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Bullet
    0
    [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]
    Outline6
    0
    [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
        6

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline6
    0
    0
[tag]
    Outline7
    0
    [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
        7

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline7
    0
    0
[tag]
    Outline8
    0
    [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
        8

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline8
    0
    0
[tag]
    Outline9
    0
    [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
        9

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline9
    0
    0
[tag]
    Outline10
    0
    [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
        10

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline10
    0
    0
[tag]
    Outline11
    0
    [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
        11

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline11
    0
    0
[tag]
    Outline12
    0
    [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
        12

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline12
    0
    0
[tag]
    Outline13
    0
    [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
        13

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline13
    0
    0
[tag]
    Outline14
    0
    [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
        14

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline14
    0
    0
[tag]
    Outline5
    0
    [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
        5

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Outline5
    0
    0
[tag]
    Footnote
    0
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [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]
        280
        1
        2
        .
        ,
        $
    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
        2
        2
        4680
        3
        9360
    [txt]
@[e-mail]    <*7><*7>Page <:P10,0,> of <:X3,0;NumPages>11<:X~3,0;NumPages>    <:Db>
<:b<*!>>

>
    [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]
@Footer@
>
[elay]
[l1]
    0
[edoc]
@Outline1@<:#293,9360><:f240,BArial,0,0,255>'Declares and defines<:f>

@Outline2@<:#284,9360>declare losezeros(num);

@Outline2@<:#284,9360>declare roundtotwo(num);

@Outline2@<:#284,9360>declare converttounits(num);

@Outline2@<:#284,9360>declare zeromin(num);

@Outline2@<:#284,9360>declare getdatafile();

@Outline2@<:#284,9360>declare freeglobs();

@Outline2@<:#284,9360>declare customem();

@Outline2@<:#284,9360>declare twips(num);

@Outline2@<:#284,9360>declare LetterSize(labelindrt, labelindtop);

@Outline2@<:#284,9360>declare A4Size(labelindrt, labelindtop);

@Outline2@<:#284,9360>declare ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth);

@Outline2@<:#284,9360>Declare PrinterType();

@Outline2@<:#284,9360>Declare GetCurrentCountry();

@Outline2@<:#284,9360>declare getmergedescfile();

@Outline2@<:#284,9360>declare GetNumLabelKeys(labelnumkey);

@Outline2@<:#284,9360>Define CurPrinterName()    GetInfo(62)

@Outline2@<:#284,9360>Define ShowWindow()        DllCall("User,ShowWindow,AHH",%1,%2)

@Outline2@<:#284,9360>Define GetActiveWindow()    DllCall("User,GetActiveWindow,H")

@Outline2@<:#284,9360>Define SetFocus()        DllCall("User,SetFocus,HH", %1)

@Outline2@<:#284,9360>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

@Outline2@<:#284,9360>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

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

@Outline2@<:#284,9360>define    HFONT    "Setfont:hFont"

@Outline2@<:#568,9360>define    SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

@Outline2@<:#284,9360>define    WM_SETFONT    0x30

@Outline2@<:#568,9360>define CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

@Outline2@<:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

@Outline2@<:#284,9360>define HELP_CONTEXT    0x0001

@Outline2@<:#284,9360>define VK_F1            112

@Outline2@<:#284,9360>define NoMouseAdj        1

@Outline1@<:#284,9360>function label()

@Outline2@<:#284,9360>'verify this is a clean untitled

@Outline3@<:#284,9360>if GetOpenFileName$() !="" or Filechanged(0,0) != 0

@Outline3@<:#568,9360>    message("This macro is for the _LABEL style sheet.  To use it, choose File/New and leave Run macro selected.")

@Outline3@<:#284,9360>    exit function

@Outline3@<:#284,9360>endif

@Outline2@<:f240,BArial,0,0,255><:f>hourglass(1)

@Outline2@ignorekeyboard(2)

@Outline2@<:f240,BArial,0,0,255>'font handling

@Outline3@<:#284,9360>AllocGlobalVar(HFONT, 1)

@Outline3@<:#284,9360>SetGlobalVar(HFONT, 0)

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'collect initial info<:f>

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

@Outline3@<:#284,9360>allocglobalvar("units", 1)

@Outline3@<:#284,9360>allocglobalvar("inifile", 1)

@Outline3@<:#284,9360>inifile="AMILABEL.INI"

@Outline3@<:#284,9360>labelheadings=getprofilestring$("LabelTypes", "Headings", inifile)

@Outline3@<:#284,9360>if labelheadings = ""

@Outline4@<:#284,9360>    inipath = GetAmiDirectory$()

@Outline4@<:#284,9360>    inipathfile=strcat$(inipath, inifile)

@Outline4@<:#284,9360>    labelheadings=getprofilestring$("LabelTypes", "Headings", inipathfile)

@Outline4@<:#284,9360>    if labelheadings = ""

@Outline4@<:#284,9360>        inipath = GetMacPath$()

@Outline4@<:#284,9360>        inipathfile=strcat$(inipath, inifile)

@Outline4@<:#284,9360>        labelheadings=getprofilestring$("LabelTypes", "Headings", inipathfile)

@Outline4@<:#284,9360>        if labelheadings = ""

@Outline4@<:#284,9360>            message ("Cannot locate AMILABEL.INI")

@Outline4@<:#284,9360>            exit function

@Outline4@<:#284,9360>        endif

@Outline4@<:#284,9360>    endif

@Outline4@<:#284,9360>    inifile = inipathfile

@Outline4@<:#284,9360>endif

@Outline3@<:#284,9360>setglobalvar("inifile", inifile)

@Outline3@<:#284,9360><:f240,BArial,0,0,255>'unithandler<:f>

@Outline4@<:#284,9360>unittoshow=Getprofilestring$("LabelTypes", "Units", inifile)

@Outline4@<:#284,9360>if unittoshow=""

@Outline4@<:#284,9360>    Writeprofilestring("LabelTypes", "Units", "in.", inifile)

@Outline4@<:#284,9360>    unittoshow="in."

@Outline4@<:#284,9360>endif

@Outline4@<:#284,9360>setglobalvar("units", unittoshow)

@Outline3@<:#284,9360>'decide which labels to use (printer type and country settings)

@Outline4@<:#284,9360>printer=getprofilestring$("AmiProOwner", "PrefPrinter", inifile)<:Zfineadj2><:Z~fineadj2>

@Outline4@<:#284,9360>if printer=""

@Outline4@<:#284,9360>    printer=PrinterType()

@Outline4@<:#284,9360>endif

@Outline4@<:#284,9360>Country=getprofilestring$("AmiProOwner", "PrefCountry", inifile)<:Zfineadj21><:Z~fineadj21>

@Outline4@<:#284,9360>if country= ""

@Outline4@<:#284,9360>    country=GetCurrentCountry()

@Outline4@<:#284,9360>endif

@Outline4@<:#852,9360>a4countries="United Kingdom, Austria, Belgium (Dutch), Belguim (French), Denmark, Finland, France, Germany, Iceland, Ireland, Netherlands, Norway, Portugal, Spain, Switzerland (French), Switzerland (German), Switzerland (Italian)"

@Outline4@<:#284,9360>if printer="Laser" and country="United States"

@Outline4@<:#284,9360>    labelstouse="8.5"" x 11"""

@Outline4@<:#284,9360>elseif printer = "Dot Matrix" and <:f240,2Times New Roman,255,0,0>
<:f>country ="United States"

@Outline4@<:#284,9360>    labelstouse="Continuous"

@Outline4@<:#284,9360>elseif printer="Laser" and instr(0, a4countries, country)

@Outline4@<:#284,9360>    labelstouse="A4"

@Outline4@<:#284,9360>elseif printer = "Dot Matrix" and instr(0, a4countries, country)

@Outline4@<:#284,9360>    labelstouse="UK Contin. French Contin."

@Outline4@<:#284,9360>else

@Outline4@<:#284,9360>    labelstouse="8.5"" x 11"" Continuous"

@Outline4@<:#284,9360>endif

@Outline4@<:#284,9360>labelstouse = strcat$(labelstouse, " Custom")

@Outline3@<:#284,9360>maxlabelskey=getprofilestring$("LabelTypes", "NextCustomLabelKey", inifile)

@Outline4@<:#284,9360>if maxlabelskey = ""

@Outline4@<:#284,9360>    maxlabelskey = "Label95"

@Outline4@<:#284,9360>    writeprofilestring("LabelTypes", "NextCustomLabelKey", maxlabelskey, inifile)

@Outline4@<:#284,9360>endif

@Outline2@<:#284,9360>StatusBarMsg("Loading label types...")

@Outline3@<:#284,9360><:f240,BArial,0,0,255>'singlestep(1)<:f>

@Outline3@<:#284,9360>hourglass(1)

@Outline3@<:#284,9360>maxlabels = GetNumLabelKeys(maxlabelskey)

@Outline3@<:#284,9360>ret=chr$(13)

@Outline3@<:#284,9360>dim labels(maxlabels)

@Outline3@<:#284,9360>'message (labelstouse)

@Outline3@<:#284,9360>for i=1 to maxlabels

@Outline3@<:#284,9360>    labelline=strcat$("Label", i)

@Outline3@<:#284,9360>    labellinetext=getprofilestring$("LabelTypes", labelline, inifile)

@Outline3@<:#284,9360>    labelpagetype=strfield$(labellinetext, 11, ",")

@Outline3@<:#284,9360>    if len(labellinetext) << 10

@Outline3@<:#284,9360>        break

@Outline3@<:#284,9360>    endif

@Outline3@<:f240,2Times New Roman,255,0,0>    if instr(0, labelstouse, labelpagetyp<:f240,2Times New Roman,255,0,0>e)
<:f>

@Outline3@<:#284,9360>        numlabels = numlabels + 1

@Outline3@<:#284,9360>        labels(numlabels)=strcat$(labellinetext, "~" , i)

@Outline3@<:#284,9360>        statusbarmsg("Loading label {numlabels}")

@Outline3@    else

@Outline3@        statusbarmsg("Checking label {i}")

@Outline3@<:#284,9360><:f240,2Times New Roman,255,0,0>    endif<:f>

@Outline3@<:#284,9360>next

@Outline3@<:#284,9360>'message("{i}; {numlabels}; {labels(i)}")

@Outline3@<:#284,9360><:f240,BArial,0,0,255>'tidyup<:f>

@Outline4@<:#284,9360><:f240,BArial,0,0,255>'result=ArrayDelete(&labels, i)<:f>

@Outline4@<:#284,9360><:f240,BArial,0,0,255>'if result != 1<:f>

@Outline4@<:#284,9360><:f240,BArial,0,0,255>'    message("Couldn't remove last item from array")<:f>

@Outline4@<:#284,9360><:f240,BArial,0,0,255>'endif<:f>

@Outline2@<:#284,9360>'message (numlabels)

@Outline2@<:#284,9360>StatusBarMsg("Sorting labels...")

@Outline3@<:#284,9360><:f240,BArial,0,0,255>'load the list boxes<:f>

@Outline3@<:#289,9360>for fieldtosorton=1 to 2    <:f240,BArial,0,0,255>'go through this 2x to fill both list boxes<:f>

@Outline3@<:#284,9360>    if fieldtosorton = 1

@Outline3@<:#284,9360>        StatusBarMsg("Sorting by part number...")

@Outline3@<:#284,9360>    else

@Outline3@<:#284,9360>        StatusBarMsg("Sorting by label type...")

@Outline3@<:#284,9360>    endif

@Outline3@<:#284,9360><:f240,BArial,0,0,255>'    result=ArraySort(&labels, fieldtosorton, ",")<:f>

@Outline3@<:#284,9360>    dim displayfield(numlabels)

@Outline3@<:#289,9360>    whichfieldtouse=1    <:f240,BArial,0,0,255>'1 is the part number<:f>

@Outline3@<:#289,9360>    whichotherfieldtouse=2    <:f240,BArial,0,0,255>'2 is the description<:f>

@Outline3@<:#284,9360>    for i = 1 to numlabels

@Outline3@<:#284,9360>        field1=strfield$(Labels(i), whichfieldtouse, ",")

@Outline3@<:#284,9360>        field2=strfield$(Labels(i), whichotherfieldtouse, ",")

@Outline3@<:#284,9360>        recnum=strfield$(Labels(i), 2, "~")

@Outline3@<:#289,9360>        <:f240,BArial,0,0,255>'check to make sure this is a valid (non-empty) record)<:f>

@Outline4@<:#284,9360>spacestilde="                                                                                              ~"

@Outline4@<:#284,9360>    if recnum <;> 0

@Outline4@<:#284,9360>        if fieldtosorton = 1

@Outline4@<:#284,9360>            texttoinsert=strcat$(field1, " - ", field2, spacestilde , recnum)

@Outline4@<:#284,9360>            statusbarmsg("Loading part number {field1}")

@Outline4@<:#284,9360>        else

@Outline4@<:#284,9360>            texttoinsert=strcat$(field2, " - ", field1, spacestilde , recnum)

@Outline4@<:#284,9360>            statusbarmsg("Loading description {field2}")

@Outline4@<:#284,9360>        endif

@Outline4@<:#284,9360>        ArrayInsert(&displayfield, i, texttoinsert)

@Outline4@<:#284,9360>    endif

@Outline3@<:#284,9360>    next

@Outline3@<:#284,9360>'message (recnum)

@Outline3@<:#284,9360>    if fieldtosorton = 1

@Outline3@<:#284,9360>        filledit(9000, &displayfield)

@Outline3@<:#284,9360>    elseif fieldtosorton=2

@Outline3@<:#284,9360>        filledit(9002, &displayfield)

@Outline3@<:#284,9360>    endif

@Outline3@<:#284,9360>next

@Outline2@<:#284,9360>filledit(20, True)

@Outline2@<:#284,9360>StatusBarMsg("Preparing labels for display...")

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'set callbacks and fill 1st heightwidth<:f>

@Outline3@<:#284,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helper")

@Outline3@<:#284,9360>SetDlgCallBack(9000,"{rmac}!heightwidthcallback")

@Outline3@<:#284,9360>SetDlgCallBack(9002,"{rmac}!heightwidthcallback")

@Outline3@<:#284,9360>SetDlgCallBack(24,"{rmac}!unitbutton")

@Outline3@<:#284,9360>SetDlgCallBack(20,"{rmac}!sorttype")

@Outline3@<:#284,9360>SetDlgCallBack(0,"{rmac}!prebuild")

@Outline3@<:#284,9360>StatusBarMsg("")

@Outline3@<:#284,9360>hourglass(0)

@Outline2@<:#284,9360>box=dialogbox(".", "labeltest")

@Outline3@<:#284,9360>if box=0 or box =2

@Outline3@<:#284,9360>    freeglobs()

@Outline3@<:#284,9360>    exit function

@Outline3@<:#284,9360>elseif box=4

@Outline3@<:#284,9360>    customem()

@Outline3@<:#284,9360>    freeglobs()

@Outline3@<:#284,9360>    exit function

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'find their labeldata<:f>

@Outline3@<:#284,9360>if getdialogfield$(20) = True

@Outline3@<:#284,9360>    labelchosen=getdialogfield$(9002)

@Outline3@<:#284,9360>elseif getdialogfield$(20) = False

@Outline3@<:#284,9360>    labelchosen=getdialogfield$(9000)

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>key=strfield$(labelchosen, 2, "~")

@Outline3@<:#284,9360>labelnumchosen=ArraySearch(&labels, key, 2, "~")

@Outline3@<:#284,9360>labeldata=labels(labelnumchosen)

@Outline3@<:#289,9360>labeldata=strfield$(labeldata, 1, "~")    <:f240,BArial,0,0,255>'chop off the key<:f>

@Outline3@<:#284,9360>switch box

@Outline3@<:#284,9360>    case 1

@Outline3@<:#284,9360>        call mergem(labeldata)

@Outline3@<:#284,9360>    case 3

@Outline3@<:#284,9360>        call manualem(labeldata)

@Outline3@<:#284,9360>endswitch

@Outline2@<:#284,9360>freeglobs()

@Outline2@<:#284,9360>'font bailout

@Outline3@<:#284,9360>font = GetGlobalVar$(HFONT)        ' If we created

@Outline3@<:#284,9360>if (0 != font)                ' the font.

@Outline3@<:#284,9360>    DeleteObject(font)        ' Delete it

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>allocglobalvar(hfont, 1)

@Outline3@<:#284,9360>freeglobalvar(HFONT)

@Outline2@hourglass(0)

@Outline2@end function

@Outline1@<:#284,9360>function freeglobs()

@Outline2@<:#284,9360>freeglobalvar("units")

@Outline2@<:#284,9360>freeglobalvar("inifile")

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function unitbutton(Hdlg,id,dummy)

@Outline2@<:#284,9360>ignorekeyboard(2)

@Outline2@<:#284,9360>unittoshow=getglobalvar$("units")

@Outline2@<:#284,9360>switch unittoshow

@Outline3@<:#284,9360>    case "in."

@Outline3@<:#284,9360>        newunit="cm."

@Outline3@<:#284,9360>    case "cm."

@Outline3@<:#284,9360>        newunit="picas"

@Outline3@<:#284,9360>    case "picas"

@Outline3@<:#284,9360>        newunit="pt."

@Outline3@<:#284,9360>    case "pt."

@Outline3@<:#284,9360>        newunit="in."

@Outline3@<:#284,9360>endswitch

@Outline2@<:#284,9360>inifile=Getglobalvar$("inifile")

@Outline2@<:#284,9360>Writeprofilestring("LabelTypes", "Units", newunit, inifile)

@Outline2@<:#284,9360>setglobalvar("units", newunit)

@Outline2@<:#284,9360>setdlgitemtext(hdlg, id, newunit)

@Outline2@<:#284,9360>if getdlgitemtext(hdlg, 20) = True

@Outline2@<:#284,9360>    call heightwidthcallback(hdlg, 9002, dummy)

@Outline2@<:#284,9360>else

@Outline2@<:#284,9360>    call heightwidthcallback(hdlg, 9000, dummy)

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function helper()

@Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>prohWnd = FindWindow("AmiProWndA", 0)

@Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#284,9360>helpfile = strcat$(GetAmiDirectory$(), "amipro.hlp")

@Outline2@<:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,><:#289,9360>helpnum = 139         <:f240,BArial,0,0,255>'or the pane you want to display (151 is Undo)<:f>

@Outline2@<:R><:#284,9360>WinHelp (prohWnd, helpfile, HELP_CONTEXT, helpnum)

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function prebuild(Hdlg,id,dummy)

@Outline2@<:#284,9360>id=20

@Outline2@<:#284,9360>call sorttype(Hdlg,id,dummy)

@Outline2@<:#284,9360>id=9002

@Outline2@<:#284,9360>call heightwidthcallback(Hdlg,id,dummy)

@Outline2@<:#284,9360>setdlgitemtext(hdlg, 24, Getglobalvar$("units"))

@Outline2@<:#284,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")

@Outline3@<:#284,9360>if (Font)

@Outline3@<:#284,9360>    hctl = GetDlgItem(hDlg, 9000)

@Outline3@<:#284,9360>    hctl2 = GetDlgItem(hDlg, 9002)

@Outline3@<:#284,9360>    hctl3 = GetDlgItem(hDlg, 1002)

@Outline3@<:#284,9360>    hctl4 = GetDlgItem(hDlg, 1004)

@Outline3@<:#284,9360>    SendMessage(hctl, WM_SETFONT, font, 0)

@Outline3@<:#284,9360>    SendMessage(hctl2, WM_SETFONT, font, 0)

@Outline3@<:#284,9360>    SendMessage(hctl3, WM_SETFONT, font, 0)

@Outline3@<:#284,9360>    SendMessage(hctl4, WM_SETFONT, font, 0)

@Outline3@<:#284,9360>    SetGlobalVar(HFONT, Font)

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function sorttype(Hdlg,id,dummy)

@Outline2@<:#284,9360>sortbylabeltype=getdlgitemtext(hdlg, id)

@Outline2@<:#284,9360>if sortbylabeltype=1

@Outline2@<:#284,9360>    ShowWindow(GetDlgItem(Hdlg,9002), 1)

@Outline2@<:#284,9360>    ShowWindow(GetDlgItem(Hdlg,9000), 0)

@Outline2@<:#284,9360>    id=9002

@Outline2@<:#284,9360>    call heightwidthcallback(Hdlg,id,dummy)

@Outline2@<:#284,9360>else

@Outline2@<:#284,9360>    ShowWindow(GetDlgItem(Hdlg,9000), 1)

@Outline2@<:#284,9360>    ShowWindow(GetDlgItem(Hdlg,9002), 0)

@Outline2@<:#284,9360>    id=9000

@Outline2@<:#284,9360>    call heightwidthcallback(Hdlg,id,dummy)

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function heightwidthcallback(Hdlg,id,dummy)

@Outline2@<:#284,9360>ignorekeyboard(2)

@Outline2@<:#284,9360>inifile="AMILABEL.INI"

@Outline2@<:#284,9360>labelchosen=getdlgitemtext(hdlg, id)

@Outline2@<:#284,9360>key=strfield$(labelchosen, 2, "~");

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'labelnumchosen=ArraySearch(*labels, key, 2, "~")<:f>

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'labeldata=labels(labelnumchosen)<:f>

@Outline2@<:#284,9360>labelline=strcat$("Label",key)

@Outline2@<:#284,9360>labeldata=GetProfileString$("LabelTypes", labelline, inifile)

@Outline2@<:#284,9360>height=strfield$(labeldata, 3, ",")

@Outline2@<:#284,9360>    height=converttounits(height)

@Outline2@<:#284,9360>    height=roundtotwo(height)

@Outline2@<:#284,9360>width=strfield$(labeldata, 4, ",")

@Outline2@<:#284,9360>    width=converttounits(width)

@Outline2@<:#284,9360>    width=roundtotwo(width)

@Outline2@<:#284,9360>heightwidth=strcat$(height, " x ", width )

@Outline2@<:#284,9360>setdlgitemtext(hdlg, 1002, heightwidth)

@Outline2@<:#284,9360>labelpagetype=strfield$(labeldata, 11, ",")

@Outline2@<:#284,9360>setdlgitemtext(hdlg, 1004, labelpagetype)

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function losezeros(num)

@Outline2@<:#284,9360>if IsNumeric(num) != 1 or instr(0, num, ".") = 0

@Outline2@<:#284,9360>    losezeros=num

@Outline2@<:#284,9360>    exit function

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>while (Right$(num, 1) =0)

@Outline2@<:#284,9360>    num = left$(num, (len(num) - 1))

@Outline2@<:#284,9360>wend

@Outline2@<:#284,9360>if right$(num, 1) = "."

@Outline2@<:#284,9360>    num=left$(num, (len(num) - 1))

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>losezeros=num

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function roundtotwo(num)

@Outline2@<:#284,9360>roundtotwo=FormatNum$("", "", 2, (round(num * 100))/100)

@Outline2@<:#284,9360><:>end function

@Outline1@<:#284,9360>function converttounits(num)

@Outline2@<:#284,9360>unittoshow=getglobalvar$("units")

@Outline2@<:#284,9360>switch unittoshow

@Outline2@<:#284,9360>    case "in."

@Outline2@<:#289,9360>        <:f240,BArial,0,0,255>'Avery data is in inches; no conversion is necessary<:f>

@Outline2@<:#284,9360>        newnum=num

@Outline2@<:#284,9360>    case "cm."

@Outline2@<:#284,9360>        newnum=2.54 * num

@Outline2@<:#284,9360>    case "picas"

@Outline2@<:#284,9360>        newnum=6 * num

@Outline2@<:#284,9360>    case "pt."

@Outline2@<:#284,9360>        newnum=72 * num

@Outline2@<:#284,9360>endswitch

@Outline2@<:#284,9360>converttounits=newnum

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function GetNumLabelKeys(labelnumkey)

@Outline2@<:#284,9360>lenthiskeynum = len(labelnumkey) - 5

@Outline2@<:#284,9360>thiskeynum = right$(labelnumkey, lenthiskeynum)

@Outline2@<:#284,9360>GetNumLabelKeys = thiskeynum + 1

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function mergem(labeldata)

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'parse labeldata<:f>

@Outline3@<:#284,9360>labelheight=strfield$(labeldata, 3, ",")

@Outline3@<:#284,9360>labelwidth=strfield$(labeldata, 4, ",")

@Outline3@<:#284,9360>numacross=strfield$(labeldata, 5, ",")

@Outline3@<:#284,9360>numdown=strfield$(labeldata, 6, ",")

@Outline3@<:#284,9360>topmarg=strfield$(labeldata, 7, ",")

@Outline3@<:#284,9360>sidemarg=strfield$(labeldata, 8, ",")

@Outline3@<:#284,9360>horizpitch=strfield$(labeldata, 9, ",")

@Outline3@<:#284,9360>vertpitch=strfield$(labeldata, 10, ",")

@Outline3@<:#284,9360>if vertpitch="-"

@Outline3@<:#284,9360>    vertpitch = labelheight

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>if horizpitch="-"

@Outline3@<:#284,9360>    horizpitch = labelwidth

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'fine-adjust constants<:f>

@Outline3@<:#284,9360>inifile=getglobalvar$("inifile")

@Outline3@<:#284,9360>fineright=getprofilestring$("AmiProOwner", "FineRightMargin", inifile)<:Zfineadj><:Z~fineadj>

@Outline3@<:#284,9360>if fineright=""

@Outline3@<:#284,9360>    fineright= 0.125

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>fineindrt=getprofilestring$("AmiProOwner", "FineIndRight", inifile)<:Zfineadj1><:Z~fineadj1>

@Outline3@<:#284,9360>if fineindrt= ""

@Outline3@<:#284,9360>    fineindrt= 0.25

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>fineindtop=getprofilestring$("AmiProOwner", "FineIndTop", inifile)<:Zfineadj11><:Z~fineadj11>

@Outline3@<:#284,9360>if fineindrt = ""

@Outline3@<:#284,9360>    fineindtop = 0.25

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'make pro info<:f>

@Outline3@<:#284,9360>labelindrt=Twips(zeromin(sidemarg - fineindrt))

@Outline3@<:#284,9360>labelindtop=Twips(zeromin(topmarg - fineindtop))

@Outline3@<:#284,9360>protop=twips(0)

@Outline3@<:#284,9360>proleft=twips(0)

@Outline3@<:#284,9360>proright=twips(fineright + zeromin((horizpitch - labelwidth)))

@Outline3@<:#284,9360>probottom=twips(zeromin(vertpitch - labelheight))

@Outline3@<:#284,9360>proheight=twips(vertpitch)

@Outline3@<:#284,9360>prowidth=twips(horizpitch)

@Outline3@<:#284,9360>righttab=twips((labelwidth - fineright))

@Outline3@<:#284,9360>centertab=righttab / 2

@Outline3@<:#284,9360>firstlefttab=centertab / 3

@Outline3@<:#284,9360>secondlefttab =firstlefttab * 2

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'change the page layout<:f>

@Outline3@<:#284,9360>LayoutMode()

@Outline3@<:#284,9360>ModLayoutInit(512)

@Outline3@<:#568,9360>ModLayoutRightPage(proleft, protop, proright, probottom, 1 0 1 proleft, righttab, 4 1 firstlefttab 1 secondlefttab  2 centertab 3 righttab)

@Outline3@<:#568,9360>ModLayoutRightHeader(proleft, 0, proright, 0 1 0 1 proleft, righttab, 4 1 firstlefttab 1 secondlefttab 2 centertab 3 righttab)

@Outline3@<:#568,9360>ModLayoutRightFooter(proleft, 0, proright, 0 1 0 1 proleft, righttab,  4 1 firstlefttab 1 secondlefttab 2 centertab 3 righttab)

@Outline3@<:#284,9360>ModLayoutPageSize(proheight, prowidth, 1, 7)

@Outline3@<:#284,9360>ModLayoutFinish()

@Outline2@<:#284,9360>prohwnd=GetActiveWindow()

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

@Outline2@<:#284,9360>runlater("{rmac}!AmiUIGray(3, 0)", 0.1)

@Outline2@<:#284,9360>runlater("{rmac}!AmiUIGray(4, 0)", 0.1)

@Outline2@<:#284,9360>pause(005)

@Outline2@<:#284,9360>SelectMergeDataFile

@Outline2@<:#284,9360>pause(001)

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'InsertMerge<:f>

@Outline2@<:#284,9360>datafile=getdatafile()

@Outline2@<:#284,9360>if datafile != ""

@Outline2@<:#284,9360>    descfile = GetMergeDescFile()

@Outline2@<:#284,9360>    MergeMacro(24 datafile descfile numacross numdown labelindrt labelindtop )

@Outline2@<:#284,9360>    mergeAction(mergestop)

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>setfocus(prohwnd)

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function manualem(labeldata)

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'parse labeldata<:f>

@Outline3@<:#284,9360>labelheight=strfield$(labeldata, 3, ",")

@Outline3@<:#284,9360>labelwidth=strfield$(labeldata, 4, ",")

@Outline3@<:#284,9360>numacross=strfield$(labeldata, 5, ",")

@Outline3@<:#284,9360>numdown=strfield$(labeldata, 6, ",")

@Outline3@<:#284,9360>topmarg=strfield$(labeldata, 7, ",")

@Outline3@<:#284,9360>sidemarg=strfield$(labeldata, 8, ",")

@Outline3@<:#284,9360>horizpitch=strfield$(labeldata, 9, ",")

@Outline3@<:#284,9360>vertpitch=strfield$(labeldata, 10, ",")

@Outline3@<:#284,9360>labelpagetype=strfield$(labeldata, 11, ",")

@Outline3@<:#284,9360>if vertpitch="-"

@Outline3@<:#284,9360>    vertpitch = labelheight

@Outline3@<:#284,9360>endif

@Outline3@<:#284,9360>if horizpitch="-"

@Outline3@<:#284,9360>    horizpitch = labelwidth

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'fine-adjust constants<:f><:f240,BArial,0,0,255>
<:f>

@Outline3@<:#284,9360>fineright= 0.125

@Outline3@<:#284,9360>fineindrt= 0.125

@Outline3@<:#284,9360>fineindtop = 0

@Outline3@<:#284,9360>finewidth= 0.5 / numacross

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'make pro info<:f>

@Outline3@<:#284,9360>labelindrt=Twips(zeromin(sidemarg + fineindrt))

@Outline3@<:#284,9360>labelindtop=Twips(zeromin(topmarg - fineindtop))

@Outline3@<:#284,9360>protop=twips(0)

@Outline3@<:#284,9360>proleft=twips(0)

@Outline3@<:#284,9360>proright=twips(fineright + zeromin((horizpitch - labelwidth)))

@Outline3@<:#284,9360>probottom=twips(zeromin(vertpitch - labelheight))

@Outline3@<:#284,9360>proheight=twips(labelheight)

@Outline3@<:#284,9360>prowidth=twips(zeromin(labelwidth - finewidth))

@Outline3@<:#284,9360>righttab=twips((labelwidth - fineright))

@Outline3@<:#284,9360>centertab=righttab / 2

@Outline3@<:#284,9360>firstlefttab=centertab / 3

@Outline3@<:#284,9360>secondlefttab =firstlefttab * 2

@Outline3@<:#284,9360>manualpageheight = Twips(vertpitch)

@Outline3@<:#284,9360>carrierwidth = Twips((2 * sidemarg) + (horizpitch * numacross))

@Outline2@<:#284,9360>if labelpagetype="A4"

@Outline3@<:#284,9360>    A4Size(labelindrt, labelindtop)

@Outline3@<:#284,9360>    Tables(1, 0, NumAcross, NumDown)

@Outline3@<:#568,9360>    TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, Off, NoMouseAdj)

@Outline2@<:#284,9360>elseif labelpagetype="Continuous"

@Outline3@<:#284,9360>    ManualSize(labelindrt, labelindtop, (manualpageheight + labelindtop), carrierwidth)

@Outline3@<:#284,9360>if NumAcross <;> 1

@Outline3@<:#284,9360>    Tables(1, 0, NumAcross, 1)

@Outline3@<:#284,9360>    TableLayout(2, 0, prowidth, proright, ProHeight, 0, 0, 0, 0, 0, Off, NoMouseAdj)

@Outline3@<:#284,9360>endif

@Outline2@<:#289,9360>else    <:f240,BArial,0,0,255>'pagetype = 8.5 x 11<:f>

@Outline3@<:#284,9360>    LetterSize(labelindrt, labelindtop)

@Outline3@<:#284,9360>    Tables(1, 0, NumAcross, NumDown)

@Outline3@<:#568,9360>    TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, Off, NoMouseAdj)

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'message("Manual module not complete")<:f>

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function A4Size(labelindrt, labelindtop)

@Outline2@<:#284,9360>ModLayoutInit(512  )

@Outline2@<:#568,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 1 0 1 labelindrt 11908 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  )

@Outline2@<:#284,9360>ModLayoutPageSize(16833 11908 1 4  )

@Outline2@<:#284,9360>ModLayoutRightHeader(labelindrt 0 0 0 1 0 1 labelindrt 11908 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutRightFooter(labelindrt 0 0 0 1 0 1 labelindrt 11908 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutFinish( )

@Outline2@<:#284,9360>END FUNCTION

@Outline1@<:#284,9360>function LetterSize(labelindrt, labelindtop)

@Outline2@<:#284,9360>ModLayoutInit(512  )

@Outline2@<:#568,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 1 0 1 labelindrt 12240 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  )

@Outline2@<:#284,9360>ModLayoutPageSize(15840 12240 1 1  )

@Outline2@<:#284,9360>ModLayoutRightHeader(labelindrt 0 0 0 1 0 1 labelindrt 12240 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutRightFooter(labelindrt 0 0 0 1 0 1 labelindrt 12240 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutFinish( )

@Outline2@<:#284,9360>END FUNCTION

@Outline1@<:#284,9360>function ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth)

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'set page width as carrier width, height as label pitch<:f>

@Outline2@<:#284,9360>ModLayoutInit(512  )

@Outline2@<:#568,9360>ModLayoutRightPage(labelindrt labelindtop 0 0 1 0 1 labelindrt carrierwidth 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  )

@Outline2@<:#284,9360>ModLayoutPageSize(manualpageheight carrierwidth 1 1  )

@Outline2@<:#284,9360>ModLayoutRightHeader(labelindrt 0 0 0 1 0 1 labelindrt carrierwidth 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutRightFooter(labelindrt 0 0 0 1 0 1 labelindrt carrierwidth 2 2 4680 3 9360  )

@Outline2@<:#284,9360>ModLayoutFinish( )

@Outline2@<:#284,9360>END FUNCTION

@Outline1@<:#284,9360>function customem()

@Outline2@<:#284,9360>ModifyLayout

@Outline2@<:#284,9360>SelectMergeDataFile

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function zeromin(num)

@Outline2@<:#284,9360>if num << 0

@Outline2@<:#284,9360>    num = 0

@Outline2@<:#284,9360>endif

@Outline2@<:#284,9360>zeromin=num

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function twips(num)

@Outline2@<:#284,9360>twips = num * 1440

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>Function getdatafile()

@Outline2@<:#284,9360>MergeOpts = GetInfo(165)

@Outline2@<:#284,9360>GetDataFile = StrField$(MergeOpts,8,",")

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>Function getmergedescfile()

@Outline2@<:#284,9360>MergeOpts = GetInfo(165)

@Outline2@<:#284,9360>GetMergeDescFile = StrField$(MergeOpts,10,",")

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>Function PrinterType()

@Outline2@<:#284,9360>printer=CurPrinterName()

@Outline2@<:#284,9360>DriverAndPort=GetProfileString$("devices", printer)

@Outline2@<:#284,9360>driver=UCASE$(strfield$(DriverAndPort, 1, ","))

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'Lasers<:f>

@Outline3@<:#573,9360>if instr(0, "CANON10E  HPDSKJET  HPPCL  HPPCL5A  HPPLOT  IBM4019  LBPII  LBPIII  PAINTJET  PSCRIPT  THINKJET  TI850", driver) != 0    <:f240,BArial,0,0,255>'put complete driver names here<:f>

@Outline3@<:#284,9360>    PrinterType="Laser"

@Outline3@<:#289,9360>elseif instr(0, driver, "PCL") != 0    <:f240,BArial,0,0,255>'detail partial names like this<:f>

@Outline3@<:#284,9360>    PrinterType="Laser"

@Outline3@<:#284,9360>elseif instr(0, driver, "JET") != 0

@Outline3@<:#284,9360>    PrinterType="Laser"

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'Dot Matrix<:f>

@Outline3@<:#852,9360>elseif instr(0, "CIT24US CIT9US EPSON24 EPSON9 FUJI24 FUJI9 IBMGRX NEC24PIN OKI24 OKI9 OKI9IBM PANSON24 PANSON9 PROPRINT PROPRN24 QWIII TTY", driver) != 0

@Outline3@<:#284,9360>    PrinterType="Dot Matrix"

@Outline3@<:#284,9360>else

@Outline2@<:#284,9360><:f240,BArial,0,0,255>'Other<:f>

@Outline3@<:#284,9360>    PrinterType=driver

@Outline3@<:#284,9360>endif

@Outline2@<:#284,9360>END FUNCTION

@Outline1@<:#284,9360>Function GetCurrentCountry()

@Outline2@<:#284,9360>GetCurrentCountry=GetProfileString$("intl", "sCountry")

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>function AmiUIGray(ID, State)

@Outline2@<:#284,9360>hdlg = getactivewindow()

@Outline2@<:#284,9360>idnew = GetDlgItem(Hdlg, ID)

@Outline2@<:#284,9360>enablewindow(idnew, state)

@Outline2@<:#284,9360>end function

@Outline1@<:#284,9360>DIALOG    labeltest

@Outline2@<:#284,9360>-2134376448    13    83    31    191    120    ""    "AmiDialog"    "Labels"

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

@Outline2@<:#284,9360>4    12    132    78    9000    1352728579    "listbox"    ""    0

@Outline2@<:#284,9360>4    12    132    78    9002    1352728579    "listbox"    ""    0

@Outline2@<:#284,9360>144    4    38    14    1    1342373889    "button"    "&Merge"    0

@Outline2@<:#284,9360>144    22    38    14    3    1342373888    "button"    "Ma&nual"    0

@Outline2@<:#284,9360>144    40    38    14    4    1342373888    "button"    "&Custom"    0

@Outline2@<:#284,9360>144    66    38    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#284,9360>108    94    26    12    24    1342373888    "button"    "in."    0

@Outline2@<:#284,9360>4    108    74    10    20    1342242819    "button"    "&Sort by label type"    0

@Outline2@<:#284,9360>4    96    44    8    1001    1342177280    "static"    "Dimensions:"    0

@Outline2@<:#284,9360>46    96    60    8    1002    1342177280    "static"    "heightwidth"    0

@Outline2@<:#284,9360>6    2    38    8    1000    1342177280    "static"    "&Labels:"    0

@Outline2@<:#284,9360>108    108    38    10    1003    1342177280    "static"    "&Page type:"    0

@Outline2@<:#284,9360>146    108    42    10    1004    1342177280    "static"    "Continuous"    0

@Outline2@<:#284,9360>END DIALOG

>

[Embedded]
00043016
>
[macsum] 25
label 0 0 35 31
freeglobs 4482 0 1 209
unitbutton 4540 3 4 213
helper 5079 0 4 236
prebuild 5258 3 6 242
sorttype 5850 3 2 261
heightwidthcallback 6278 3 10 275
losezeros 6768 1 1 295
roundtotwo 7111 1 1 308
converttounits 7209 1 3 311
GetNumLabelKeys 7521 1 3 326
mergem 7632 1 29 331
manualem 9392 1 28 398
A4Size 10844 2 1 452
LetterSize 11153 2 1 460
ManualSize 11466 4 1 468
customem 11779 0 1 477
zeromin 11820 1 1 481
twips 11893 1 1 487
getdatafile 11938 0 2 490
getmergedescfile 12014 0 2 494
PrinterType 12096 0 4 498
GetCurrentCountry 12762 0 1 517
AmiUIGray 12830 2 3 520
labeltest 12967 0 -1 525
[macse]
14 label
0 267
13
7 ""
18 1
0 34 0 0
13
5 0
18 1
1 2
11 00000195
0 3 "This macro is for the _LABEL style sheet.  To use it, choose File/New and leave Run macro selected."
6 0
15
9
0 296 1
0 32 2
0 271 "Setfont:hFont" 1
0 264 "Setfont:hFont" 0
0 802
13
8 1
0 271 "units" 1
0 271 "inifile" 1
7 "AMILABEL.INI"
8 2
0 286 "LabelTypes" "Headings" "{2}"
13
8 3
6 3
7 ""
18 0
11 00000707
0 798
13
8 4
0 16 "{4}" "{2}"
13
8 5
0 286 "LabelTypes" "Headings" "{5}"
13
8 3
6 3
7 ""
18 0
11 00000697
0 295
13
8 4
0 16 "{4}" "{2}"
13
8 5
0 286 "LabelTypes" "Headings" "{5}"
13
8 3
6 3
7 ""
18 0
11 00000697
0 3 "Cannot locate AMILABEL.INI"
6 0
15
9
6 5
8 2
0 264 "inifile" "{2}"
0 286 "LabelTypes" "Units" "{2}"
13
8 6
6 6
7 ""
18 0
11 00000857
0 287 "LabelTypes" "Units" "in." "{2}"
7 "in."
8 6
0 264 "units" "{6}"
0 286 "AmiProOwner" "PrefPrinter" "{2}"
13
8 7
6 7
7 ""
18 0
11 00000983
16 PrinterType
13
8 7
0 286 "AmiProOwner" "PrefCountry" "{2}"
13
8 8
6 8
7 ""
18 0
11 00001094
16 GetCurrentCountry
13
8 8
7 "United Kingdom, Austria, Belgium (Dutch), Belguim (French), Denmark, Finland, France, Germany, Iceland, Ireland, Netherlands, Norway, Portugal, Spain, Switzerland (French), Switzerland (German), Switzerland (Italian)"
8 9
6 7
7 "Laser"
18 0
6 8
7 "United States"
18 0
1 1
11 00001428
7 "8.5"" x 11"""
8 10
10 00001785
6 7
7 "Dot Matrix"
18 0
6 8
7 "United States"
18 0
1 1
11 00001538
7 "Continuous"
8 10
10 00001785
6 7
7 "Laser"
18 0
0 808 0 "{9}" "{8}"
13
1 1
11 00001630
7 "A4"
8 10
10 00001785
6 7
7 "Dot Matrix"
18 0
0 808 0 "{9}" "{8}"
13
1 1
11 00001750
7 "UK Contin. French Contin."
8 10
10 00001785
7 "8.5"" x 11"" Continuous"
8 10
0 16 "{10}" " Custom"
13
8 10
0 286 "LabelTypes" "NextCustomLabelKey" "{2}"
13
8 11
6 11
7 ""
18 0
11 00001979
7 "Label95"
8 11
0 287 "LabelTypes" "NextCustomLabelKey" "{11}" "{2}"
0 789 "Loading label types..."
0 296 1
16 GetNumLabelKeys "{11}"
13
8 12
0 39 13
13
8 13
6 12
21 14 [X]
5 1
8 15
6 12
6 15
18 2
12 00002183
10 00002528
5 1
6 15
3 0
8 15
10 00002104
0 16 "Label" "{15}"
13
8 16
0 286 "LabelTypes" "{16}" "{2}"
13
8 17
0 20 "{17}" 11 ","
13
8 18
0 14 "{17}"
13
5 10
18 5
11 00002342
10 00002528
0 808 0 "{10}" "{18}"
13
11 00002486
6 19
5 1
3 0
8 19
6 19
0 16 "{17}" "~" "{15}"
13
23 14
0 789 "Loading label {19}"
10 00002515
0 789 "Checking label {15}"
10 00002148
0 789 "Sorting labels..."
5 1
8 20
5 2
6 20
18 2
12 00002644
10 00003515
5 1
6 20
3 0
8 20
10 00002566
6 20
5 1
18 0
11 00002722
0 789 "Sorting by part number..."
10 00002756
0 789 "Sorting by label type..."
6 19
21 21 [X]
5 1
8 22
5 2
8 23
5 1
8 15
6 19
6 15
18 2
12 00002885
10 00003399
5 1
6 15
3 0
8 15
10 00002806
6 15
22 14
0 20 [X] "{22}" ","
13
8 24
6 15
22 14
0 20 [X] "{23}" ","
13
8 25
6 15
22 14
0 20 [X] 2 "~"
13
8 26
7 "                                                                                              ~"
8 27
6 26
5 0
18 3
11 00003386
6 20
5 1
18 0
11 00003276
0 16 "{24}" " - " "{25}" "{27}" "{26}"
13
8 28
0 789 "Loading part number {24}"
10 00003360
0 16 "{25}" " - " "{24}" "{27}" "{26}"
13
8 28
0 789 "Loading description {25}"
0 1041 &21 "{15}" "{28}"
10 00002850
6 20
5 1
18 0
11 00003457
0 31 9000 &21
10 00003502
6 20
5 2
18 0
11 00003502
0 31 9002 &21
10 00002609
0 31 20 1
0 789 "Preparing labels for display..."
0 47 112 "{1}!helper"
0 41 9000 "{1}!heightwidthcallback"
0 41 9002 "{1}!heightwidthcallback"
0 41 24 "{1}!unitbutton"
0 41 20 "{1}!sorttype"
0 41 0 "{1}!prebuild"
0 789 ""
0 296 0
0 26 "." "labeltest"
13
8 29
6 29
5 0
18 0
6 29
5 2
18 0
1 2
11 00003879
16 freeglobs
6 0
15
9
10 00003948
6 29
5 4
18 0
11 00003948
16 customem
16 freeglobs
6 0
15
9
0 27 20
13
5 1
18 0
11 00004019
0 27 9002
13
8 30
10 00004077
0 27 20
13
5 0
18 0
11 00004077
0 27 9000
13
8 30
0 20 "{30}" 2 "~"
13
8 31
0 1044 &14 "{31}" 2 "~"
13
8 32
6 32
22 14
8 33
0 20 "{33}" 1 "~"
13
8 33
5 1
6 29
18 0
11 00004250
16 mergem "{33}"
10 00004300
5 3
6 29
18 0
11 00004300
16 manualem "{33}"
16 freeglobs
0 265 "Setfont:hFont"
13
8 34
5 0
6 34
18 1
11 00004413
0 284 "gdi,DeleteObject,HH" "{34}"
0 271 "Setfont:hFont" 1
0 266 "Setfont:hFont"
0 296 0
6 0
15
9
14 freeglobs
0 266 "units"
0 266 "inifile"
6 0
15
9
14 unitbutton
0 32 2
0 265 "units"
13
8 4
7 "in."
6 4
18 0
11 00000107
7 "cm."
8 5
10 00000278
7 "cm."
6 4
18 0
11 00000169
7 "picas"
8 5
10 00000278
7 "picas"
6 4
18 0
11 00000231
7 "pt."
8 5
10 00000278
7 "pt."
6 4
18 0
11 00000278
7 "in."
8 5
0 265 "inifile"
13
8 6
0 287 "LabelTypes" "Units" "{5}" "{6}"
0 264 "units" "{5}"
0 43 "{0}" "{1}" "{5}"
0 42 "{0}" 20
13
5 1
18 0
11 00000486
16 heightwidthcallback "{0}" 9002 "{2}"
10 00000527
16 heightwidthcallback "{0}" 9000 "{2}"
6 3
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "amipro.hlp"
13
8 2
5 139
8 3
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}"
6 0
15
9
14 prebuild
5 20
8 1
16 sorttype "{0}" "{1}" "{2}"
5 9002
8 1
16 heightwidthcallback "{0}" "{1}" "{2}"
0 265 "units"
13
0 43 "{0}" 24 [X]
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 4
6 4
11 00000580
0 44 "{0}" 9000
13
8 5
0 44 "{0}" 9002
13
8 6
0 44 "{0}" 1002
13
8 7
0 44 "{0}" 1004
13
8 8
0 284 "user,SendMessage,HHHHJ" "{5}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{4}" 0
0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{4}" 0
0 264 "Setfont:hFont" "{4}"
6 3
15
9
14 sorttype
0 42 "{0}" "{1}"
13
8 4
6 4
5 1
18 0
11 00000249
0 44 "{0}" 9002
13
0 284 "User,ShowWindow,AHH" [X] 1
0 44 "{0}" 9000
13
0 284 "User,ShowWindow,AHH" [X] 0
5 9002
8 1
16 heightwidthcallback "{0}" "{1}" "{2}"
10 00000416
0 44 "{0}" 9000
13
0 284 "User,ShowWindow,AHH" [X] 1
0 44 "{0}" 9002
13
0 284 "User,ShowWindow,AHH" [X] 0
5 9000
8 1
16 heightwidthcallback "{0}" "{1}" "{2}"
6 3
15
9
14 heightwidthcallback
0 32 2
7 "AMILABEL.INI"
8 4
0 42 "{0}" "{1}"
13
8 5
0 20 "{5}" 2 "~"
13
8 6
0 16 "Label" "{6}"
13
8 7
0 286 "LabelTypes" "{7}" "{4}"
13
8 8
0 20 "{8}" 3 ","
13
8 9
16 converttounits "{9}"
13
8 9
16 roundtotwo "{9}"
13
8 9
0 20 "{8}" 4 ","
13
8 10
16 converttounits "{10}"
13
8 10
16 roundtotwo "{10}"
13
8 10
0 16 "{9}" " x " "{10}"
13
8 11
0 43 "{0}" 1002 "{11}"
0 20 "{8}" 11 ","
13
8 12
0 43 "{0}" 1004 "{12}"
6 3
15
9
14 losezeros
0 277 "{0}"
13
5 1
18 1
0 808 0 "{0}" "."
13
5 0
18 0
1 2
11 00000116
6 0
8 1
6 1
15
9
0 807 "{0}" 1
13
5 0
18 0
11 00000224
0 14 "{0}"
13
5 1
3 1
0 806 "{0}" [X]
13
8 0
10 00000116
0 807 "{0}" 1
13
7 "."
18 0
11 00000321
0 14 "{0}"
13
5 1
3 1
0 806 "{0}" [X]
13
8 0
6 0
8 1
6 1
15
9
14 roundtotwo
6 0
5 100
4 0
0 786 [X]
13
5 100
4 1
0 19 "" "" 2 [X]
13
8 1
6 1
15
9
14 converttounits
0 265 "units"
13
8 2
7 "in."
6 2
18 0
11 00000099
6 0
8 3
10 00000290
7 "cm."
6 2
18 0
11 00000168
5 2.54
6 0
4 0
8 3
10 00000290
7 "picas"
6 2
18 0
11 00000236
5 6
6 0
4 0
8 3
10 00000290
7 "pt."
6 2
18 0
11 00000290
5 72
6 0
4 0
8 3
6 3
8 1
6 1
15
9
14 GetNumLabelKeys
0 14 "{0}"
13
5 5
3 1
8 2
0 807 "{0}" "{2}"
13
8 3
6 3
5 1
3 0
8 1
6 1
15
9
14 mergem
0 20 "{0}" 3 ","
13
8 2
0 20 "{0}" 4 ","
13
8 3
0 20 "{0}" 5 ","
13
8 4
0 20 "{0}" 6 ","
13
8 5
0 20 "{0}" 7 ","
13
8 6
0 20 "{0}" 8 ","
13
8 7
0 20 "{0}" 9 ","
13
8 8
0 20 "{0}" 10 ","
13
8 9
6 9
7 "-"
18 0
11 00000269
6 2
8 9
6 8
7 "-"
18 0
11 00000310
6 3
8 8
0 265 "inifile"
13
8 10
0 286 "AmiProOwner" "FineRightMargin" "{10}"
13
8 11
6 11
7 ""
18 0
11 00000439
5 0.125
8 11
0 286 "AmiProOwner" "FineIndRight" "{10}"
13
8 12
6 12
7 ""
18 0
11 00000537
5 0.25
8 12
0 286 "AmiProOwner" "FineIndTop" "{10}"
13
8 13
6 12
7 ""
18 0
11 00000633
5 0.25
8 13
6 7
6 12
3 1
16 zeromin [X]
13
16 Twips [X]
13
8 14
6 6
6 13
3 1
16 zeromin [X]
13
16 Twips [X]
13
8 15
16 twips 0
13
8 16
16 twips 0
13
8 17
6 8
6 3
3 1
6 11
16 zeromin [X]
13
3 0
16 twips [X]
13
8 18
6 9
6 2
3 1
16 zeromin [X]
13
16 twips [X]
13
8 19
16 twips "{9}"
13
8 20
16 twips "{8}"
13
8 21
6 3
6 11
3 1
16 twips [X]
13
8 22
6 22
5 2
4 1
8 23
6 23
5 3
4 1
8 24
6 24
5 2
4 0
8 25
2 210 1
2 361 1 512
2 363 1 "{17}" "{16}" "{18}" "{19}" 1 0 1 "{17}" "{22}" 4 1 "{24}" 1 "{25}" 2 "{23}" 3 "{22}"
2 364 1 "{17}" 0 "{18}" 0 1 0 1 "{17}" "{22}" 4 1 "{24}" 1 "{25}" 2 "{23}" 3 "{22}"
2 365 1 "{17}" 0 "{18}" 0 1 0 1 "{17}" "{22}" 4 1 "{24}" 1 "{25}" 2 "{23}" 3 "{22}"
2 362 1 "{20}" "{21}" 1 7
2 376 1
0 284 "User,GetActiveWindow,H"
13
8 26
0 802
13
8 27
0 285 "{27}!AmiUIGray(3, 0)" 0.1
0 285 "{27}!AmiUIGray(4, 0)" 0.1
0 274 005
24 788
0 274 001
16 getdatafile
13
8 28
6 28
7 ""
18 1
11 00001715
16 GetMergeDescFile
13
8 29
2 110 4 24 "{28}" "{29}" "{4}" "{5}" "{14}" "{15}"
2 116 1 4
0 284 "User,SetFocus,HH" "{26}"
6 1
15
9
14 manualem
0 20 "{0}" 3 ","
13
8 2
0 20 "{0}" 4 ","
13
8 3
0 20 "{0}" 5 ","
13
8 4
0 20 "{0}" 6 ","
13
8 5
0 20 "{0}" 7 ","
13
8 6
0 20 "{0}" 8 ","
13
8 7
0 20 "{0}" 9 ","
13
8 8
0 20 "{0}" 10 ","
13
8 9
0 20 "{0}" 11 ","
13
8 10
6 9
7 "-"
18 0
11 00000300
6 2
8 9
6 8
7 "-"
18 0
11 00000341
6 3
8 8
5 0.125
8 11
5 0.125
8 12
5 0
8 13
5 0.5
6 4
4 1
8 14
6 7
6 12
3 0
16 zeromin [X]
13
16 Twips [X]
13
8 15
6 6
6 13
3 1
16 zeromin [X]
13
16 Twips [X]
13
8 16
16 twips 0
13
8 17
16 twips 0
13
8 18
6 8
6 3
3 1
6 11
16 zeromin [X]
13
3 0
16 twips [X]
13
8 19
6 9
6 2
3 1
16 zeromin [X]
13
16 twips [X]
13
8 20
16 twips "{2}"
13
8 21
6 3
6 14
3 1
16 zeromin [X]
13
16 twips [X]
13
8 22
6 3
6 11
3 1
16 twips [X]
13
8 23
6 23
5 2
4 1
8 24
6 24
5 3
4 1
8 25
6 25
5 2
4 0
8 26
16 Twips "{9}"
13
8 27
5 2
6 7
4 0
6 8
6 4
4 0
3 0
16 Twips [X]
13
8 28
6 10
7 "A4"
18 0
11 00001124
16 A4Size "{15}" "{16}"
2 457 1 1 0 "{4}" "{5}"
2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1
10 00001440
6 10
7 "Continuous"
18 0
11 00001333
6 27
6 16
3 0
16 ManualSize "{15}" "{16}" [X] "{28}"
6 4
5 1
18 3
11 00001320
2 457 1 1 0 "{4}" 1
2 626 1 2 0 "{22}" "{19}" "{21}" 0 0 0 0 0 0 1
10 00001440
16 LetterSize "{15}" "{16}"
2 457 1 1 0 "{4}" "{5}"
2 626 1 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1
6 1
15
9
14 A4Size
2 361 1 512
2 363 1 "{0}" "{1}" 0 0 1 0 1 "{0}" 11908 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
2 362 1 16833 11908 1 4
2 364 1 "{0}" 0 0 0 1 0 1 "{0}" 11908 2 2 4680 3 9360
2 365 1 "{0}" 0 0 0 1 0 1 "{0}" 11908 2 2 4680 3 9360
2 376 1
6 2
15
9
14 LetterSize
2 361 1 512
2 363 1 "{0}" "{1}" 0 0 1 0 1 "{0}" 12240 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
2 362 1 15840 12240 1 1
2 364 1 "{0}" 0 0 0 1 0 1 "{0}" 12240 2 2 4680 3 9360
2 365 1 "{0}" 0 0 0 1 0 1 "{0}" 12240 2 2 4680 3 9360
2 376 1
6 2
15
9
14 ManualSize
2 361 1 512
2 363 1 "{0}" "{1}" 0 0 1 0 1 "{0}" "{3}" 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
2 362 1 "{2}" "{3}" 1 1
2 364 1 "{0}" 0 0 0 1 0 1 "{0}" "{3}" 2 2 4680 3 9360
2 365 1 "{0}" 0 0 0 1 0 1 "{0}" "{3}" 2 2 4680 3 9360
2 376 1
6 4
15
9
14 customem
24 352
24 788
6 0
15
9
14 zeromin
6 0
5 0
18 5
11 00000051
5 0
8 0
6 0
8 1
6 1
15
9
14 twips
6 0
5 1440
4 0
8 1
6 1
15
9
14 getdatafile
0 1313 165
13
8 1
0 20 "{1}" 8 ","
13
8 0
6 0
15
9
14 getmergedescfile
0 1313 165
13
8 1
0 20 "{1}" 10 ","
13
8 0
6 0
15
9
14 PrinterType
0 1313 62
13
8 1
0 286 "devices" "{1}"
13
8 2
0 20 "{2}" 1 ","
13
0 18 [X]
13
8 3
0 808 0 "CANON10E  HPDSKJET  HPPCL  HPPCL5A  HPPLOT  IBM4019  LBPII  LBPIII  PAINTJET  PSCRIPT  THINKJET  TI850" "{3}"
13
5 0
18 1
11 00000286
7 "Laser"
8 0
10 00000654
0 808 0 "{3}" "PCL"
13
5 0
18 1
11 00000364
7 "Laser"
8 0
10 00000654
0 808 0 "{3}" "JET"
13
5 0
18 1
11 00000442
7 "Laser"
8 0
10 00000654
0 808 0 "CIT24US CIT9US EPSON24 EPSON9 FUJI24 FUJI9 IBMGRX NEC24PIN OKI24 OKI9 OKI9IBM PANSON24 PANSON9 PROPRINT PROPRN24 QWIII TTY" "{3}"
13
5 0
18 1
11 00000644
7 "Dot Matrix"
8 0
10 00000654
6 3
8 0
6 0
15
9
14 GetCurrentCountry
0 286 "intl" "sCountry"
13
8 0
6 0
15
9
14 AmiUIGray
0 284 "User,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 284 "user,EnableWindow,HHH" "{4}" "{1}"
6 2
15
9
DIALOG labeltest
-2134376448 13 83 31 191 120 "" "AmiDialog" "Labels"
FONT 8 "Helv"
4 12 132 78 9000 1352728579 "listbox" "" 0
4 12 132 78 9002 1352728579 "listbox" "" 0
144 4 38 14 1 1342373889 "button" "&Merge" 0
144 22 38 14 3 1342373888 "button" "Ma&nual" 0
144 40 38 14 4 1342373888 "button" "&Custom" 0
144 66 38 14 2 1342373888 "button" "Cancel" 0
108 94 26 12 24 1342373888 "button" "in." 0
4 108 74 10 20 1342242819 "button" "&Sort by label type" 0
4 96 44 8 1001 1342177280 "static" "Dimensions:" 0
46 96 60 8 1002 1342177280 "static" "heightwidth" 0
6 2 38 8 1000 1342177280 "static" "&Labels:" 0
108 108 38 10 1003 1342177280 "static" "&Page type:" 0
146 108 42 10 1004 1342177280 "static" "Continuous" 0
00043041