home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 May
/
Pcwk5b98.iso
/
DISK1
/
STY31.CMZ
/
_LABEL.STY
< prev
next >
Wrap
INI File
|
1993-03-14
|
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]
@Header@LABEL.SMM <*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
