home *** CD-ROM | disk | FTP | other *** search
Wrap
INI File | 1993-10-14 | 54.2 KB | 4,605 lines
[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 6 5 Arial MT 257 257 257 257 257 Arial 257 257 257 257 257 TimesNewRomanPS 257 257 257 257 257 Helvetica 2818 1029 514 2562 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 773 1029 2309 1027 [revisions] 0 [recfile] * 1 1 3 8 0 0 [lang] 1 [desc] All defines for macros 750625224 0 750620291 84 0 0 0 0 0 1 [prn] QMS-PS 810 [port] NW:\\SPEEDY\QMS [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Single:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Footnote 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 720 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:> 0 1 1 256 0 0 0 [nfmt] 280 1 2 . , $ Footnote 0 0 [tag] Outline5 1 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 5 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline5 0 0 [tag] Outline14 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 14 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline14 0 0 [tag] Outline13 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 13 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline13 0 0 [tag] Outline12 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 12 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline12 0 0 [tag] Outline11 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 11 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline11 0 0 [tag] Outline10 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 10 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline10 0 0 [tag] Outline9 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 9 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline9 0 0 [tag] Outline8 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 8 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline8 0 0 [tag] Outline7 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 7 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline7 0 0 [tag] Outline6 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 6 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Outline6 0 0 [tag] Bullet:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*0> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Outline4 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 4 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline3 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 0 720 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 3 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline3 0 0 [tag] Outline2 1 [fnt] Times New Roman 200 0 49152 [algn] 1 1 216 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 16 0 0 [nfmt] 272 1 3 . , $ Outline2 0 0 [tag] Outline1 1 [fnt] Times New Roman 240 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 72 0 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Outline1 0 0 [tag] Footer:1 18 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Header:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Title:1 1 [fnt] Arial MT 360 0 1 [algn] 4 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Subhead:1 1 [fnt] TimesNewRomanPS 200 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Number List:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 360 360 360 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:>. 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Bullet 1:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Function 1 [fnt] Arial 240 0 1 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 68 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 3 . , $ Body Text 0 0 [tag] Body Text:1 1 [fnt] TimesNewRomanPS 240 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Title 8 [fnt] Helvetica 280 0 49153 [algn] 1 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:>. 0 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*0> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 0 16777215 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 0 16777215 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 0 16777215 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 1 [edoc] @Outline1@<:s><:#P30670848,P943718>'Declares and defines @Outline2@<:s><:#P30670848,P786432><:X3,0;Include "amixlate.sam!label">'JUST RIGHT @Outline3@<:s>define BIGDELIMTER " ~" @Outline3@<:s>define COUNTRIES_A4 "United Kingdom, Austria, Belgium (Dutch), Belguim (French), Denmark, Finland, France, Germany, Iceland, Ireland, Netherlands, Norway, Portugal, Spain, Switzerland (French), Switzerland (German), Switzerland (Italian)" @Outline3@<:s>define COUNTRY_US "United States" @Outline3@<:s>define HELP_PANEL_NUM 6020 @Outline3@<:s>define DECIMALSEP "." @Outline3@<:s>define IDX_LABELCHOICE 3 'change for 1st box selection @Outline3@<:s>define ERR_CANTFINDINI "Cannot locate amilabel.ini" @Outline3@<:s>define ERR_NOTINNEWDOC "This macro is for the _LABEL style sheet. To use it, choose File/New and leave Run macro selected." @Outline3@<:s>define GVAR_INIFILE "inifile" @Outline3@<:s>define GVAR_UNITS "units" @Outline3@<:s>define HYPHEN "-" @Outline3@<:s>define INI_FILE "amilabel.ini" @Outline3@<:s>define INIKEY_LABELTYPES "LabelTypes" @Outline3@<:s>define INIKEY_OWNER "AmiProOwner" @Outline3@<:s>define INISECT_COUNTRY "PrefCountry" @Outline3@<:s>define INISECT_FINEINDRT "FineIndRight" @Outline3@<:s>define INISECT_FINEINDTOP "FineIndTop" @Outline3@<:s>define INISECT_FINERIGHT "FineRightMargin" @Outline3@<:s>define INISECT_HEADINGS "Headings" @Outline3@<:s>define INISECT_NEXTKEY "NextCustomLabelKey" @Outline3@<:s>define INISECT_PRINTER "PrefPrinter" @Outline3@<:s>define INISECT_SHOWPAGEBOX "ShowPageTypeBox" @Outline3@<:s>define INISECT_UNITS "Units" @Outline3@<:s>define INITXT_CENTIMETERS "cm." @Outline3@<:s>define INITXT_INCHES "in." @Outline3@<:s>define INITXT_LABEL "Label" @Outline3@<:s>define INITXT_MAXLABELS "Label95" @Outline3@<:s>define INITXT_PICAS "picas" @Outline3@<:s>define INITXT_POINTS "pt." @Outline3@<:s>define LISTSEP_INI ";" @Outline3@<:s>define LISTSEP_LABELANDNUM " - " @Outline3@<:s>define LISTSEP_LB "~" @Outline3@<:s>define LISTSEP_LENGTHWIDTH " x " @Outline3@<:s>define NULL "" @Outline3@<:s>define PAGETYPE_A4_VERBOSE "A4 Labels" @Outline3@<:s>define PAGETYPE_CONTIN_VERBOSE "Continuous Labels" @Outline3@<:s>define PAGETYPE_EUROCONT_VERBOSE "Continuous Label (European)" @Outline3@<:s>define PAGETYPE_LETTER_VERBOSE "Letter-size Labels" @Outline3@<:s> @Outline3@<:s>define PAGETYPE_A4 "A4" @Outline3@<:s>define PAGETYPE_CONTIN "Continuous" @Outline3@<:s>define PAGETYPE_CUSTOM "Custom" @Outline3@<:s>define PAGETYPE_EUROCONT "UK Contin. French Contin." @Outline3@<:s>define PAGETYPE_LETTER "8.5"" x 11""" @Outline3@<:s>define PAGETYPE_LETTERCONT "8.5"" x 11"" Continuous" @Outline3@<:s>define PRINTERS_DOT "CIT24US CIT9US EPSON24 EPSON9 FUJI24 FUJI9 IBMGRX NEC24PIN OKI24 OKI9 OKI9IBM PANSON24 PANSON9 PROPRINT PROPRN24 QWIII TTY" @Outline3@<:s>define PRINTERS_JET "JET" @Outline3@<:s>define PRINTERS_LASER "CANON10E HPDSKJET HPPCL HPPCL5A HPPLOT IBM4019 LBPII LBPIII PAINTJET PSCRIPT THINKJET TI850" @Outline3@<:s>define PRINTERS_PCL "PCL" @Outline3@<:s>define PRINTTYPE_DOT "Dot Matrix" @Outline3@<:s>define PRINTTYPE_LASER "Laser" @Outline3@<:s>define STATUSMSG_CHECKNUM "Checking label {i}" @Outline3@<:s>define STATUSMSG_LOADDESC "Loading description {field2}" @Outline3@<:s>define STATUSMSG_LOADLABELS "Loading label types..." @Outline3@<:s>define STATUSMSG_LOADNUM "Loading label {numlabels}" @Outline3@<:s>define STATUSMSG_LOADNUM2 "Loading part number {field1}" @Outline3@<:s>define STATUSMSG_PREPDISPLAY "Preparing labels for display..." @Outline3@<:s>define STATUSMSG_SORTLABEL "Sorting labels..." @Outline3@<:s>define STATUSMSG_SORTNUM "Sorting by part number..." @Outline3@<:s>define STATUSMSG_SORTTYPE "Sorting by label type..."<:X~3,0;Include "amixlate.sam!label"> @Outline2@<:s><:#P30670848,P786432>'the rest @Outline3@<:s><:#P30670848,P786432>declare losezeros(num); @Outline3@<:s><:#P30670848,P786432>declare roundtotwo(num); @Outline3@<:s><:#P30670848,P786432>declare converttounits(num); @Outline3@<:s><:#P30670848,P786432>declare zeromin(num); @Outline3@<:s><:#P30670848,P786432>declare getdatafile(); @Outline3@<:s><:#P30670848,P786432>declare freeglobs(); @Outline3@<:s><:#P30670848,P786432>declare customem(); @Outline3@<:s><:#P30670848,P786432>declare twips(num); @Outline3@<:s><:#P30670848,P786432>declare LetterSize(labelindrt, labelindtop); @Outline3@<:s><:#P30670848,P786432>declare A4Size(labelindrt, labelindtop); @Outline3@<:s><:#P30670848,P786432>declare ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth); @Outline3@<:s><:#P30670848,P786432>Declare PrinterType(); @Outline3@<:s><:#P30670848,P786432>Declare GetCurrentCountry(); @Outline3@<:s><:#P30670848,P786432>declare getmergedescfile(); @Outline3@<:s><:#P30670848,P786432>declare GetNumLabelKeys(labelnumkey); @Outline3@<:s><:#P30670848,P786432>Define CurPrinterName() GetInfo(62) @Outline3@<:s><:#P30670848,P786432>define NoMouseAdj 1 @Outline1@<:s><:#P30670848,P943718>function label() @Outline2@<:s><:#P30670848,P786432>'singlestep(0) @Outline2@<:s><:#P30670848,P786432>'verify this is a clean untitled @Outline3@<:s><:#P30670848,P786432>if GetOpenFileName$() !=NULL or Filechanged(0,0) != 0 @Outline3@<:s><:#P30670848,P786432> message(ERR_NOTINNEWDOC) @Outline3@<:s><:#P30670848,P786432> exit function @Outline3@<:s><:#P30670848,P786432>endif @Outline2@<:s><:#P30670848,P786432>'hourglass(1) @Outline2@<:s><:#P30670848,P786432>ignorekeyboard(2) @Outline2@<:s><:#P30670848,P786432>'collect initial info @Outline3@<:s><:#P30670848,P786432>rmac=getrunningmacrofile$() @Outline3@<:s><:#P30670848,P786432>allocglobalvar(GVAR_UNITS, 1) @Outline3@<:s><:#P30670848,P786432>allocglobalvar(GVAR_INIFILE, 1) @Outline3@<:s><:#P30670848,P786432>inifile=INI_FILE @Outline3@<:s><:#P30670848,P786432>labelheadings=getprofilestring$(INIKEY_LABELTYPES, INISECT_HEADINGS, inifile) @Outline3@<:s><:#P30670848,P786432>if labelheadings = NULL @Outline4@<:s><:#P30670848,P786432> amidir=GetAmiDirectory$() @Outline4@<:s><:#P30670848,P786432> inifile=strcat$(amidir, inifile) @Outline4@<:s><:#P30670848,P786432> labelheadings=getprofilestring$(INIKEY_LABELTYPES, INISECT_HEADINGS, inifile) @Outline3@<:s><:#P30670848,P786432> if labelheadings = NULL @Outline4@<:s><:#P30670848,P786432> message (ERR_CANTFINDINI) @Outline4@<:s><:#P30670848,P786432> exit function @Outline4@<:s><:#P30670848,P786432> endif @Outline4@<:s><:#P30670848,P786432>endif @Outline3@<:s>setglobalvar(GVAR_INIFILE, inifile) @Outline3@<:s>'unithandler @Outline4@<:s>unittoshow=Getprofilestring$(INIKEY_LABELTYPES, INISECT_UNITS, inifile) @Outline4@<:s>if unittoshow=NULL @Outline4@<:s> Writeprofilestring(INIKEY_LABELTYPES, INISECT_UNITS, INITXT_INCHES, inifile) @Outline4@<:s> unittoshow=INITXT_INCHES @Outline4@<:s>endif @Outline4@<:s>setglobalvar(GVAR_UNITS, unittoshow) @Outline3@<:s>'decide which labels to use (printer type and country settings) @Outline4@<:s>'printer=getprofilestring$(INIKEY_OWNER, INISECT_PRINTER, inifile)<:Zfineadj2><:Z~fineadj2> <:s> <:s> <:s> <:s> @Outline4@<:s>'if printer=NULL @Outline4@<:s> labelstouse=PrinterType() @Outline4@<:s> if labelstouse=-1 @Outline4@<:s> exit function @Outline4@<:s> endif @Outline4@<:s>'endif @Outline4@<:s>'Country=getprofilestring$(INIKEY_OWNER, INISECT_COUNTRY, inifile)<:ZDDE_BookMark4><:Z~DDE_BookMark4> <:s> <:s> <:s> <:s> @Outline4@<:s>'if country= NULL @Outline4@<:s>' country=GetCurrentCountry() @Outline4@<:s>'endif @Outline4@<:s>'a4countries=COUNTRIES_A4 @Outline4@<:s>'if printer=PRINTTYPE_LASER and country=COUNTRY_US @Outline4@<:s>' labelstouse=PAGETYPE_LETTER @Outline4@<:s>'elseif printer = PRINTTYPE_DOT and country =COUNTRY_US @Outline4@<:s>' labelstouse=PAGETYPE_CONTIN @Outline4@<:s>'elseif printer=PRINTTYPE_LASER and instr(0, a4countries, country) @Outline4@<:s>' labelstouse=PAGETYPE_A4 @Outline4@<:s>'elseif printer = PRINTTYPE_DOT and instr(0, a4countries, country) @Outline4@<:s>' labelstouse=PAGETYPE_EUROCONT @Outline4@<:s>'else @Outline4@<:s>' labelstouse=PAGETYPE_LETTERCONT @Outline4@<:s>'endif @Outline4@<:s>labelstouse = strcat$(labelstouse, PAGETYPE_CUSTOM) @Outline3@<:s>maxlabelskey=getprofilestring$(INIKEY_LABELTYPES, INISECT_NEXTKEY, inifile) @Outline4@<:s>if maxlabelskey = NULL @Outline4@<:s> maxlabelskey = INITXT_MAXLABELS @Outline4@<:s> writeprofilestring(INIKEY_LABELTYPES, INISECT_NEXTKEY, maxlabelskey, inifile) @Outline4@<:s>endif @Outline2@<:s>'StatusBarMsg(STATUSMSG_LOADLABELS) @Outline3@<:s>'hourglass(1) @Outline3@<:s>maxlabels = <:ZDDE_BookMark2>GetNumLabelKeys<:Z~DDE_BookMark2>(maxlabelskey) @Outline3@<:s>ret=chr$(13) @Outline3@<:s>dim labels(maxlabels) @Outline3@<:s>'message (labelstouse) @Outline3@<:s>for i=1 to maxlabels @Outline3@<:s> labelline=strcat$(INITXT_LABEL, i) @Outline3@<:s> labellinetext=getprofilestring$(INIKEY_LABELTYPES, labelline, inifile) @Outline3@<:s> 'if i << 4 @Outline3@<:s> ' message("labelline='{labelline}'") @Outline3@<:s> 'endif @Outline3@<:s> labelpagetype=strfield$(labellinetext, 11, LISTSEP_INI) @Outline3@<:s> 'message("labelpagetype={labelpagetype}") @Outline3@<:s> 'message(PAGETYPE_LETTER) @Outline3@<:s> if len(labellinetext) << 10 @Outline3@<:s> break @Outline3@<:s> endif @Outline3@<:s> if instr(0, labelstouse, labelpagetype) @Outline3@<:s> numlabels = numlabels + 1 @Outline3@<:s> labels(numlabels)=strcat$(labellinetext, LISTSEP_LB , i) @Outline3@<:s> 'StatusBarMsg(STATUSMSG_LOADNUM) @Outline3@<:s> else @Outline3@<:s> 'StatusBarMsg(STATUSMSG_CHECKNUM) @Outline3@<:s> endif @Outline3@<:s>next @Outline3@<:s>'message("{i}; {numlabels}; {labels(i)}") @Outline3@<:s>'tidyup @Outline4@<:s>'result=ArrayDelete(&labels, i) @Outline4@<:s>'if result != 1 @Outline4@<:s>' message("Couldn't remove last item from array") @Outline4@<:s>'endif @Outline2@<:s>'message (numlabels) @Outline2@<:s>'StatusBarMsg(STATUSMSG_SORTLABEL) @Outline3@<:s>'load the list boxes @Outline3@<:s>for fieldtosorton=1 to 2 'go through this 2x to fill both list boxes @Outline3@<:s> if fieldtosorton = 1 @Outline3@<:s> 'StatusBarMsg(STATUSMSG_SORTNUM) @Outline3@<:s> else @Outline3@<:s> 'StatusBarMsg(STATUSMSG_SORTTYPE) @Outline3@<:s> endif @Outline3@<:s> result=ArraySort(&labels, fieldtosorton, LISTSEP_INI) @Outline3@<:s> dim displayfield(numlabels) @Outline3@<:s> whichfieldtouse=1 '1 is the part number @Outline3@<:s> whichotherfieldtouse=2 '2 is the description @Outline3@<:s> for i = 1 to numlabels @Outline3@<:s> field1=strfield$(Labels(i), whichfieldtouse, LISTSEP_INI) @Outline3@<:s> field2=strfield$(Labels(i), whichotherfieldtouse, LISTSEP_INI) @Outline3@<:s> recnum=strfield$(Labels(i), 2, LISTSEP_LB) @Outline3@<:s> 'check to make sure this is a valid (non-empty) record) @Outline4@<:s>spacestilde=BIGDELIMTER @Outline4@<:s> if recnum <;> 0 @Outline4@<:s> if fieldtosorton = 1 @Outline4@<:s> texttoinsert=strcat$(field1, LISTSEP_LABELANDNUM, field2, spacestilde , recnum) @Outline4@<:s> 'StatusBarMsg(STATUSMSG_LOADNUM2) @Outline4@<:s> else @Outline4@<:s> texttoinsert=strcat$(field2, LISTSEP_LABELANDNUM, field1, spacestilde , recnum) @Outline4@<:s> 'StatusBarMsg(STATUSMSG_LOADDESC) @Outline4@<:s> endif @Outline4@<:s> ArrayInsert(&displayfield, i, texttoinsert) @Outline4@<:s> endif @Outline3@<:s> next @Outline3@<:s>'message (recnum) @Outline3@<:s> if fieldtosorton = 1 @Outline3@<:s> filledit(9000, &displayfield) @Outline3@<:s> elseif fieldtosorton=2 @Outline3@<:s> filledit(9002, &displayfield) @Outline3@<:s> endif @Outline3@<:s>next @Outline2@<:s>filledit(20, 1) @Outline2@<:s>'StatusBarMsg(STATUSMSG_PREPDISPLAY) @Outline2@<:s>'set callbacks and fill 1st heightwidth @Outline3@<:s>'DlgKeyInterrupt(VK_F1, "{rmac}!helper") @Outline3@<:s>SetDlgCallBack(9000,"{rmac}!heightwidthcallback") @Outline3@<:s>SetDlgCallBack(9002,"{rmac}!heightwidthcallback") @Outline3@<:s>SetDlgCallBack(24,"{rmac}!unitbutton") @Outline3@<:s>SetDlgCallBack(20,"{rmac}!sorttype") @Outline3@<:s>SetDlgCallBack(25,"{rmac}!helper") @Outline3@<:s>SetDlgCallBack(0,"{rmac}!prebuild") @Outline3@<:s>DlgSetHelpNumber(HELP_PANEL_NUM) @Outline3@<:s>'StatusBarMsg(NULL) @Outline3@<:s>'hourglass(0) @Outline3@<:s>amidir=GetAmiDirectory$() @Outline3@<:s>box=dialogbox("{amidir}label.dlg", "labeltest") @Outline3@<:s>if box=0 @Outline3@<:s> freeglobs() @Outline3@<:s> exit function @Outline3@<:s>elseif box=4 @Outline3@<:s> customem() @Outline3@<:s> freeglobs() @Outline3@<:s> exit function @Outline3@<:s>endif @Outline2@<:s>'find their labeldata @Outline3@<:s>if getdialogfield$(20) = 1 @Outline3@<:s> labelchosen=getdialogfield$(9002) @Outline3@<:s>elseif getdialogfield$(20) = 0 @Outline3@<:s> labelchosen=getdialogfield$(9000) @Outline3@<:s>endif @Outline3@<:s>key=strfield$(labelchosen, 2, LISTSEP_LB) @Outline3@<:s>labelnumchosen=ArraySearch(&labels, key, 2, LISTSEP_LB) @Outline3@<:s>labeldata=labels(labelnumchosen) @Outline3@<:s>labeldata=strfield$(labeldata, 1, LISTSEP_LB) 'chop off the key @Outline3@<:s>switch box @Outline3@<:s> case 1 @Outline3@<:s> call mergem(labeldata) @Outline3@<:s> case 3 @Outline3@<:s> call manualem(labeldata) @Outline3@<:s>endswitch @Outline2@<:s>freeglobs() @Outline2@<:s>'hourglass(0) @Outline2@<:s>end function @Outline1@<:s>function freeglobs() @Outline2@<:s>freeglobalvar(GVAR_UNITS) @Outline2@<:s>freeglobalvar(GVAR_INIFILE) @Outline2@<:s>end function @Outline1@<:s>function unitbutton(Hdlg,id,dummy) @Outline2@<:s>ignorekeyboard(2) @Outline2@<:s>unittoshow=getglobalvar$(GVAR_UNITS) @Outline2@<:s>switch unittoshow @Outline3@<:s> case INITXT_INCHES @Outline3@<:s> newunit=INITXT_CENTIMETERS @Outline3@<:s> case INITXT_CENTIMETERS @Outline3@<:s> newunit=INITXT_PICAS @Outline3@<:s> case INITXT_PICAS @Outline3@<:s> newunit=INITXT_POINTS @Outline3@<:s> case INITXT_POINTS @Outline3@<:s> newunit=INITXT_INCHES @Outline3@<:s>endswitch @Outline2@<:s>inifile=Getglobalvar$(GVAR_INIFILE) @Outline2@<:s>Writeprofilestring(INIKEY_LABELTYPES, INISECT_UNITS, newunit, inifile) @Outline2@<:s>setglobalvar(GVAR_UNITS, newunit) @Outline2@<:s>setdlgitemtext(hdlg, id, newunit) @Outline2@<:s>if getdlgitemtext(hdlg, 20) =1 @Outline2@<:s> call heightwidthcallback(hdlg, 9002, dummy) @Outline2@<:s>else @Outline2@<:s> call heightwidthcallback(hdlg, 9000, dummy) @Outline2@<:s>endif @Outline2@<:s>end function @Outline1@<:s>function helper() @Outline2@<:s><: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,>message("Here's help on labels.") @Outline2@<:s><: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,>end function @Outline1@<:s><: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,>function labelchoiceinit(hdlg, id, value) @Outline2@<:s><: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,>DlgSetListBoxIndex(hdlg, 9000, <:ZDDE_BookMark8>IDX_LABELCHOICE<:Z~DDE_BookMark8>) @Outline2@<:s><: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,>end function @Outline1@<:s>function prebuild(Hdlg,id,dummy) @Outline2@<:s>id=20 @Outline2@<:s>call sorttype(Hdlg,id,dummy) @Outline2@<:s>id=9000 @Outline2@<:s>DlgSetListBoxIndex(hdlg, id, 0) @Outline2@<:s>id=9002 @Outline2@<:s>DlgSetListBoxIndex(hdlg, id, 0) @Outline2@<:s>call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:s>setdlgitemtext(hdlg, 24, Getglobalvar$(GVAR_UNITS)) @Outline2@<:s>dlgsetfocus(hdlg, 9002) @Outline2@<:s>end function @Outline1@<:s>function sorttype(Hdlg,id,dummy) @Outline2@<:s>sortbylabeltype=getdlgitemtext(hdlg, id) @Outline2@<:s>if sortbylabeltype=1 @Outline2@<:s><:ZDDE_BookMark3> DlgHideControl(hdlg, 9002, 0) @Outline2@<:s> DlgHideControl(hdlg, 9000, 1)<:Z~DDE_BookMark3> @Outline2@<:s> 'DlgSetFocus(hdlg, 9002) @Outline2@<:s> DlgSetListBoxIndex(hdlg, 9002, <:ZDDE_BookMark12>0<:Z~DDE_BookMark12>) @Outline2@<:s> id=9000 @Outline2@<:s> call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:s>else @Outline2@<:s> DlgHideControl(hdlg, 9000, 0) @Outline2@<:s> DlgHideControl(hdlg, 9002, 1) @Outline2@<:s><:ZDDE_BookMark9> 'DlgSetFocus(hdlg, 9000)<:Z~DDE_BookMark9> @Outline2@<:s> DlgSetListBoxIndex(hdlg, 9000, <:ZDDE_BookMark15>0<:Z~DDE_BookMark15>) @Outline2@<:s> id=9002 @Outline2@<:s> call heightwidthcallback(Hdlg,id,dummy) @Outline2@<:s>endif @Outline2@<:s>end function @Outline1@<:s>function heightwidthcallback(Hdlg,id,dummy) @Outline2@<:s>ignorekeyboard(2) @Outline2@<:s>inifile=getglobalvar(GVAR_INIFILE) @Outline2@<:s>labelchosen=getdlgitemtext(hdlg, id) @Outline2@<:s>key=strfield$(labelchosen, 2, LISTSEP_LB); @Outline2@<:s>'labelnumchosen=ArraySearch(*labels, key, 2, LISTSEP_LB) @Outline2@<:s>'labeldata=labels(labelnumchosen) @Outline2@<:s>labelline=strcat$(INITXT_LABEL,key) @Outline3@<:s>'message("labelline='{labelline}'") @Outline2@<:s>inikey=INIKEY_LABELTYPES @Outline2@<:s>'labeldata=GetProfileString$(INIKEY_LABELTYPES, labelline, inifile) @Outline2@<:s>labeldata=GetProfileString$(inikey, labelline, inifile) @Outline2@<:s>'message("labeldata='{labeldata}'", "'{inikey},{labelline},{inifile}'") @Outline2@<:s>height=strfield$(labeldata, 3, LISTSEP_INI) @Outline2@<:s> height=converttounits(height) @Outline2@<:s> height=roundtotwo(height) @Outline2@<:s>width=strfield$(labeldata, 4, LISTSEP_INI) @Outline2@<:s> width=converttounits(width) @Outline2@<:s> width=roundtotwo(width) @Outline2@<:s>heightwidth=strcat$(height, LISTSEP_LENGTHWIDTH, width ) @Outline2@<:s>setdlgitemtext(hdlg, 1002, heightwidth) @Outline2@<:s>labelpagetype=strfield$(labeldata, 11, LISTSEP_INI) @Outline2@<:s>setdlgitemtext(hdlg, 1004, labelpagetype) @Outline2@<:s>end function @Outline1@<:s>function losezeros(num) @Outline2@<:s>if IsNumeric(num) != 1 or instr(0, num, DECIMALSEP) = 0 @Outline2@<:s> losezeros=num @Outline2@<:s> exit function @Outline2@<:s>endif @Outline2@<:s>while (Right$(num, 1) =0) @Outline2@<:s> num = left$(num, (len(num) - 1)) @Outline2@<:s>wend @Outline2@<:s>if right$(num, 1) = DECIMALSEP @Outline2@<:s> num=left$(num, (len(num) - 1)) @Outline2@<:s>endif @Outline2@<:s>losezeros=num @Outline2@<:s>end function @Outline1@<:s>function roundtotwo(num) @Outline2@<:s>roundtotwo=FormatNum$(NULL, NULL, 2, (round(num * 100))/100) @Outline2@<:s>end function @Outline1@<:s>function converttounits(num) @Outline2@<:s>unittoshow=getglobalvar$(GVAR_UNITS) @Outline2@<:s>switch unittoshow @Outline2@<:s> case INITXT_INCHES @Outline2@<:s> 'Avery data is in inches; no conversion is necessary @Outline2@<:s> newnum=num @Outline2@<:s> case INITXT_CENTIMETERS @Outline2@<:s> newnum=2.54 * num @Outline2@<:s> case INITXT_PICAS @Outline2@<:s> newnum=6 * num @Outline2@<:s> case INITXT_POINTS @Outline2@<:s> newnum=72 * num @Outline2@<:s>endswitch @Outline2@<:s>converttounits=newnum @Outline2@<:s>end function @Outline1@<:s>function GetNumLabelKeys(labelnumkey) @Outline2@<:s>lenthiskeynum = len(labelnumkey) - 5 @Outline2@<:s>thiskeynum = right$(labelnumkey, lenthiskeynum) @Outline2@<:s>GetNumLabelKeys = thiskeynum + 1 @Outline2@<:s>end function @Outline1@<:s>function manualem(labeldata) @Outline2@<:s>'parse labeldata @Outline3@<:s>labelheight=strfield$(labeldata, 3, LISTSEP_INI) @Outline3@<:s>labelwidth=strfield$(labeldata, 4, LISTSEP_INI) @Outline3@<:s>numacross=strfield$(labeldata, 5, LISTSEP_INI) @Outline3@<:s>numdown=strfield$(labeldata, 6, LISTSEP_INI) @Outline3@<:s>topmarg=strfield$(labeldata, 7, LISTSEP_INI) @Outline3@<:s>sidemarg=strfield$(labeldata, 8, LISTSEP_INI) @Outline3@<:s>horizpitch=strfield$(labeldata, 9, LISTSEP_INI) @Outline3@<:s>vertpitch=strfield$(labeldata, 10, LISTSEP_INI) @Outline3@<:s>labelpagetype=strfield$(labeldata, 11, LISTSEP_INI) @Outline3@<:s>if vertpitch=HYPHEN @Outline3@<:s> vertpitch = labelheight @Outline3@<:s>endif @Outline3@<:s>if horizpitch=HYPHEN @Outline3@<:s> horizpitch = labelwidth @Outline3@<:s>endif @Outline2@<:s>'fine-adjust constants @Outline3@<:s>fineright= 1/8 '0.125 @Outline3@<:s>fineindrt= 1/8 '0.125 @Outline3@<:s>fineindtop = 0 @Outline3@<:s>finewidth= (1/2)/numacross '0.5 / numacross @Outline2@<:s>'make pro info @Outline3@<:s>labelindrt=Twips(zeromin(sidemarg + fineindrt)) @Outline3@<:s>labelindtop=Twips(zeromin(topmarg - fineindtop)) @Outline3@<:s>protop=twips(0) @Outline3@<:s>proleft=twips(0) @Outline3@<:s>proright=twips(fineright + zeromin((horizpitch - labelwidth))) @Outline3@<:s>probottom=twips(zeromin(vertpitch - labelheight)) @Outline3@<:s>proheight=twips(labelheight) @Outline3@<:s>prowidth=twips(zeromin(labelwidth - finewidth)) @Outline3@<:s>righttab=twips((labelwidth - fineright)) @Outline3@<:s>centertab=righttab / 2 @Outline3@<:s>firstlefttab=centertab / 3 @Outline3@<:s>secondlefttab =firstlefttab * 2 @Outline3@<:s>manualpageheight = Twips(vertpitch) @Outline3@<:s>carrierwidth = Twips((2 * sidemarg) + (horizpitch * numacross)) @Outline2@<:s>if labelpagetype=PAGETYPE_A4 @Outline3@<:s> A4Size(labelindrt, labelindtop) @Outline3@<:s> Tables(1, 0, NumAcross, NumDown) @Outline3@<:s> TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, 0, NoMouseAdj) @Outline2@<:s>elseif labelpagetype=PAGETYPE_CONTIN @Outline3@<:s> ManualSize(labelindrt, labelindtop, (manualpageheight + labelindtop), carrierwidth) @Outline3@<:s> if NumAcross <;> 1 @Outline3@<:s> Tables(1, 0, NumAcross, 1) @Outline3@<:s> TableLayout(2, 0, prowidth, proright, ProHeight, 0, 0, 0, 0, 0, 0, NoMouseAdj) @Outline3@<:s> endif @Outline2@<:s>else 'pagetype = 8.5 x 11 @Outline3@<:s> LetterSize(labelindrt, labelindtop) @Outline3@<:s> Tables(1, 0, NumAcross, NumDown) @Outline3@<:s> TableLayout(2, 0, prowidth, proright, ProHeight, probottom, 0, 0, 0, 0, 0, NoMouseAdj) @Outline2@<:s>endif @Outline2@<:s>end function @Outline1@<:s>function A4Size(labelindrt, labelindtop) @Outline2@<:s>ModLayoutInit(512 ) @Outline2@<:s>ModLayoutPageSize(16833 11908 1 4 ) @Outline2@<:s>ModLayoutLeftHeader(labelindrt 0 0 0 1 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftFooter(labelindrt 0 0 0 1 0 1 labelindrt 11908 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftPage(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@<:s>ModLayoutFinish( ) @Outline2@<:s>END FUNCTION @Outline1@<:s>function LetterSize(labelindrt, labelindtop) @Outline2@<:s>'message("{labelindrt}, {labelindtop}") @Outline2@<:s>ModLayoutInit(512 ) @Outline2@<:s>ModLayoutPageSize(15840 12240 1 1 ) @Outline2@<:s>ModLayoutLeftHeader(labelindrt 0 0 0 1 0 1 labelindrt 12240 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftFooter(labelindrt 0 0 0 1 0 1 labelindrt 12240 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftPage(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@<:s>ModLayoutFinish( ) @Outline2@<:s>END FUNCTION <:s> <:s> <:s> <:s> @Outline1@<:s>function ManualSize(labelindrt, labelindtop, manualpageheight, carrierwidth) @Outline2@<:s>'set page width as carrier width, height as label pitch @Outline2@<:s>ModLayoutInit(512 ) @Outline2@<:s>ModLayoutPageSize(manualpageheight carrierwidth 1 1 ) @Outline2@<:s>ModLayoutLeftHeader(labelindrt 0 0 0 1 0 1 labelindrt carrierwidth 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftFooter(labelindrt 0 0 0 1 0 1 labelindrt carrierwidth 2 2 4680 3 9360 ) @Outline2@<:s>ModLayoutLeftPage(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@<:s>ModLayoutFinish( ) @Outline2@<:s>END FUNCTION @Outline1@<:s>function customem() @Outline2@<:s>ModifyLayout @Outline2@<:s>SelectMergeDataFile @Outline2@<:s>end function @Outline1@<:s>function zeromin(num) @Outline2@<:s>if num << 0 @Outline2@<:s> num = 0 @Outline2@<:s>endif @Outline2@<:s>zeromin=num @Outline2@<:s>end function @Outline1@<:s>function twips(num) @Outline2@<:s>twips = num * 1440 @Outline2@<:s>end function @Outline1@<:s>Function PrinterType() @Outline3@<:s>pagetype=GetProfileString$(INIKEY_OWNER, INISECT_SHOWPAGEBOX, getglobalvar(GVAR_INIFILE)) @Outline3@<:s>if pagetype = 0 @Outline3@<:s> return pagetype @Outline3@<:s>endif @Outline3@<:s>filledit(9000, PAGETYPE_A4_VERBOSE) @Outline3@<:s>filledit(9000, PAGETYPE_CONTIN_VERBOSE) @Outline3@<:s>filledit(9000, PAGETYPE_EUROCONT_VERBOSE) @Outline3@<:s>filledit(9000, PAGETYPE_LETTER_VERBOSE) @Outline3@<:s>amidir=GetAmiDirectory$() @Outline3@<:s>rmac=GetRunningmacroFile$() @Outline3@<:s>setdlgcallback(0, "{rmac}!LabelChoiceInit") @Outline2@<:s>box=dialogbox("{amidir}label.dlg", "labelsettings") @Outline2@<:s>if box = 0 @Outline2@<:s> return -1 @Outline2@<:s>else @Outline2@<:s> pagechoice=GetDialogField$(9000) @Outline2@<:s> switch pagechoice @Outline2@<:s> case PAGETYPE_A4_VERBOSE @Outline2@<:s> pagechoice=PAGETYPE_A4 @Outline2@<:s> case PAGETYPE_CONTIN_VERBOSE @Outline2@<:s> pagechoice=PAGETYPE_CONTIN @Outline3@<:s> case PAGETYPE_EUROCONT_VERBOSE @Outline3@<:s> pagechoice=PAGETYPE_EUROCONT @Outline3@<:s> case PAGETYPE_LETTER_VERBOSE @Outline3@<:s> pagechoice=PAGETYPE_LETTER @Outline3@<:s> endswitch @Outline2@<:s> showbox=GetDialogField$(20) @Outline2@<:s> if showbox = 1 @Outline2@<:s> Writeprofilestring(INIKEY_OWNER, INISECT_SHOWPAGEBOX, 0, INI_FILE) @Outline2@<:s> endif @Outline2@<:s> return pagechoice @Outline2@<:s>endif @Outline2@<:s>END FUNCTION @Outline1@<:s>Function GetCurrentCountry() @Outline2@<:s>GetCurrentCountry=GetProfileString$("intl", "sCountry") @Outline2@<:s>end function @Outline2@<:s> > [Embedded] 00041423 > [macsum4] 21 231 label 0 0 31 80 freeglobs 4191 0 1 261 unitbutton 4283 3 4 265 helper 5015 0 1 288 labelchoiceinit 5093 3 1 291 prebuild 5210 3 1 294 sorttype 5548 3 2 305 heightwidthcallback 6019 3 11 323 losezeros 6864 1 1 347 roundtotwo 7283 1 1 360 converttounits 7420 1 3 363 GetNumLabelKeys 7844 1 3 378 manualem 8056 1 28 383 A4Size 10377 2 1 436 LetterSize 10876 2 1 444 ManualSize 11383 4 1 457 customem 11932 0 1 466 zeromin 11994 1 1 470 twips 12115 1 1 476 PrinterType 12194 0 7 479 GetCurrentCountry 13342 0 1 513 [macse] 14 label 29 0 label 17 3 16 _$$2GetOpenFileName$ 13 7 "" 18 1 16 _$$2FileChanged 0 0 13 5 0 18 1 1 2 11 00000251 17 4 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 17 8 0 32 2 17 10 29 1 rmac 0 802 13 8 1 17 11 0 271 "units" 1 17 12 0 271 "inifile" 1 17 13 29 2 inifile 7 "amilabel.ini" 8 2 17 14 29 3 labelheadings 0 286 "LabelTypes" "Headings" "{2}" 13 8 3 17 15 6 3 7 "" 18 0 11 00000716 17 16 29 4 amidir 0 798 13 8 4 17 17 0 16 "{4}" "{2}" 13 8 2 17 18 0 286 "LabelTypes" "Headings" "{2}" 13 8 3 17 19 6 3 7 "" 18 0 11 00000716 17 20 0 3 "Cannot locate amilabel.ini" 6 0 15 9 17 24 0 264 "inifile" "{2}" 17 26 29 5 unittoshow 0 286 "LabelTypes" "Units" "{2}" 13 8 5 17 27 6 5 7 "" 18 0 11 00000918 17 28 0 287 "LabelTypes" "Units" "in." "{2}" 17 29 7 "in." 8 5 17 31 0 264 "units" "{5}" 17 39 29 6 labelstouse 16 PrinterType 13 8 6 17 40 6 6 5 -1 18 0 11 00001045 6 0 15 9 17 64 0 16 "{6}" "Custom" 13 8 6 17 65 29 7 maxlabelskey 0 286 "LabelTypes" "NextCustomLabelKey" "{2}" 13 8 7 17 66 6 7 7 "" 18 0 11 00001286 17 67 7 "Label95" 8 7 17 68 0 287 "LabelTypes" "NextCustomLabelKey" "{7}" "{2}" 17 72 29 8 maxlabels 16 GetNumLabelKeys "{7}" 13 8 8 17 73 29 9 ret 0 39 13 13 8 9 17 74 6 8 29 10 labels 21 10 [X] 29 11 i 5 1 8 11 17 76 6 8 6 11 18 2 12 00001521 10 00001940 5 1 6 11 3 0 8 11 10 00001436 17 77 29 12 labelline 0 16 "Label" "{11}" 13 8 12 17 78 29 13 labellinetext 0 286 "LabelTypes" "{12}" "{2}" 13 8 13 17 82 29 14 labelpagetype 0 20 "{13}" 11 ";" 13 8 14 17 85 0 14 "{13}" 13 5 10 18 5 11 00001774 17 86 10 00001940 17 88 0 808 0 "{6}" "{14}" 13 11 00001927 17 89 29 15 numlabels 6 15 5 1 3 0 8 15 17 90 6 15 0 16 "{13}" "~" "{11}" 13 23 10 10 00001927 10 00001486 29 16 fieldtosorton 5 1 8 16 17 105 5 2 6 16 18 2 12 00002058 10 00003121 5 1 6 16 3 0 8 16 10 00001972 17 106 6 16 5 1 18 0 11 00002109 10 00002109 17 111 29 17 result 0 1043 &10 "{16}" ";" 13 8 17 17 112 6 15 29 18 displayfield 21 18 [X] 17 113 29 19 whichfieldtouse 5 1 8 19 17 114 29 20 whichotherfieldtouse 5 2 8 20 5 1 8 11 17 115 6 15 6 11 18 2 12 00002396 10 00002973 5 1 6 11 3 0 8 11 10 00002309 17 116 29 21 field1 6 11 22 10 0 20 [X] "{19}" ";" 13 8 21 17 117 29 22 field2 6 11 22 10 0 20 [X] "{20}" ";" 13 8 22 17 118 29 23 recnum 6 11 22 10 0 20 [X] 2 "~" 13 8 23 17 120 29 24 spacestilde 7 " ~" 8 24 17 121 6 23 5 0 18 3 11 00002960 17 122 6 16 5 1 18 0 11 00002868 17 123 29 25 texttoinsert 0 16 "{21}" " - " "{22}" "{24}" "{23}" 13 8 25 10 00002926 17 126 0 16 "{22}" " - " "{21}" "{24}" "{23}" 13 8 25 17 129 0 1041 &18 "{11}" "{25}" 10 00002361 17 133 6 16 5 1 18 0 11 00003047 17 134 0 31 9000 &18 10 00003108 17 135 6 16 5 2 18 0 11 00003108 17 136 0 31 9002 &18 10 00002023 17 139 0 31 20 1 17 143 0 41 9000 "{1}!heightwidthcallback" 17 144 0 41 9002 "{1}!heightwidthcallback" 17 145 0 41 24 "{1}!unitbutton" 17 146 0 41 20 "{1}!sorttype" 17 147 0 41 25 "{1}!helper" 17 148 0 41 0 "{1}!prebuild" 17 149 0 73 6020 17 152 0 798 13 8 4 17 153 29 26 box 0 26 "{4}label.dlg" "labeltest" 13 8 26 17 154 6 26 5 0 18 0 11 00003547 17 155 16 freeglobs 6 0 15 9 10 00003640 17 157 6 26 5 4 18 0 11 00003640 17 158 16 customem 17 159 16 freeglobs 6 0 15 9 17 163 0 27 20 13 5 1 18 0 11 00003746 17 164 29 27 labelchosen 0 27 9002 13 8 27 10 00003820 17 165 0 27 20 13 5 0 18 0 11 00003820 17 166 0 27 9000 13 8 27 17 168 29 28 key 0 20 "{27}" 2 "~" 13 8 28 17 169 29 29 labelnumchosen 0 1044 &10 "{28}" 2 "~" 13 8 29 17 170 29 30 labeldata 6 29 22 10 8 30 17 171 0 20 "{30}" 1 "~" 13 8 30 17 172 5 1 6 26 18 0 11 00004091 17 174 16 mergem "{30}" 10 00004149 5 3 6 26 18 0 11 00004149 17 176 16 manualem "{30}" 17 178 16 freeglobs 6 0 15 17 180 9 14 freeglobs 29 0 freeglobs 17 1 0 266 "units" 17 2 0 266 "inifile" 6 0 15 17 3 9 14 unitbutton 29 0 Hdlg 29 1 id 29 2 dummy 29 3 unitbutton 17 1 0 32 2 17 2 29 4 unittoshow 0 265 "units" 13 8 4 17 3 7 "in." 6 4 18 0 11 00000211 17 5 29 5 newunit 7 "cm." 8 5 10 00000401 7 "cm." 6 4 18 0 11 00000279 17 7 7 "picas" 8 5 10 00000401 7 "picas" 6 4 18 0 11 00000347 17 9 7 "pt." 8 5 10 00000401 7 "pt." 6 4 18 0 11 00000401 17 11 7 "in." 8 5 17 13 29 6 inifile 0 265 "inifile" 13 8 6 17 14 0 287 "LabelTypes" "Units" "{5}" "{6}" 17 15 0 264 "units" "{5}" 17 16 0 43 "{0}" "{1}" "{5}" 17 17 0 42 "{0}" 20 13 5 1 18 0 11 00000665 17 18 16 heightwidthcallback "{0}" 9002 "{2}" 10 00000713 17 20 16 heightwidthcallback "{0}" 9000 "{2}" 6 3 15 17 22 9 14 helper 29 0 helper 17 1 0 3 "Here's help on labels." 6 0 15 17 2 9 14 labelchoiceinit 29 0 hdlg 29 1 id 29 2 value 29 3 labelchoiceinit 17 1 0 62 "{0}" 9000 3 6 3 15 17 2 9 14 prebuild 29 0 Hdlg 29 1 id 29 2 dummy 29 3 prebuild 17 1 5 20 8 1 17 2 16 sorttype "{0}" "{1}" "{2}" 17 3 5 9000 8 1 17 4 0 62 "{0}" "{1}" 0 17 5 5 9002 8 1 17 6 0 62 "{0}" "{1}" 0 17 7 16 heightwidthcallback "{0}" "{1}" "{2}" 17 8 0 265 "units" 13 0 43 "{0}" 24 [X] 17 9 0 55 "{0}" 9002 6 3 15 17 10 9 14 sorttype 29 0 Hdlg 29 1 id 29 2 dummy 29 3 sorttype 17 1 29 4 sortbylabeltype 0 42 "{0}" "{1}" 13 8 4 17 2 6 4 5 1 18 0 11 00000305 17 3 0 56 "{0}" 9002 0 17 4 0 56 "{0}" 9000 1 17 6 0 62 "{0}" 9002 0 17 7 5 9000 8 1 17 8 16 heightwidthcallback "{0}" "{1}" "{2}" 10 00000452 17 10 0 56 "{0}" 9000 0 17 11 0 56 "{0}" 9002 1 17 13 0 62 "{0}" 9000 0 17 14 5 9002 8 1 17 15 16 heightwidthcallback "{0}" "{1}" "{2}" 6 3 15 17 17 9 14 heightwidthcallback 29 0 Hdlg 29 1 id 29 2 dummy 29 3 heightwidthcallback 17 1 0 32 2 17 2 29 4 inifile 0 265 "inifile" 13 8 4 17 3 29 5 labelchosen 0 42 "{0}" "{1}" 13 8 5 17 4 29 6 key 0 20 "{5}" 2 "~" 13 8 6 17 7 29 7 labelline 0 16 "Label" "{6}" 13 8 7 17 9 29 8 inikey 7 "LabelTypes" 8 8 17 11 29 9 labeldata 0 286 "{8}" "{7}" "{4}" 13 8 9 17 13 29 10 height 0 20 "{9}" 3 ";" 13 8 10 17 14 16 converttounits "{10}" 13 8 10 17 15 16 roundtotwo "{10}" 13 8 10 17 16 29 11 width 0 20 "{9}" 4 ";" 13 8 11 17 17 16 converttounits "{11}" 13 8 11 17 18 16 roundtotwo "{11}" 13 8 11 17 19 29 12 heightwidth 0 16 "{10}" " x " "{11}" 13 8 12 17 20 0 43 "{0}" 1002 "{12}" 17 21 29 13 labelpagetype 0 20 "{9}" 11 ";" 13 8 13 17 22 0 43 "{0}" 1004 "{13}" 6 3 15 17 23 9 14 losezeros 29 0 num 29 1 losezeros 17 1 0 277 "{0}" 13 5 1 18 1 0 808 0 "{0}" "." 13 5 0 18 0 1 2 11 00000154 17 2 6 0 8 1 6 1 15 9 17 5 0 807 "{0}" 1 13 5 0 18 0 11 00000274 17 6 0 14 "{0}" 13 5 1 3 1 0 806 "{0}" [X] 13 8 0 10 00000154 17 8 0 807 "{0}" 1 13 7 "." 18 0 11 00000383 17 9 0 14 "{0}" 13 5 1 3 1 0 806 "{0}" [X] 13 8 0 17 11 6 0 8 1 6 1 15 17 12 9 14 roundtotwo 29 0 num 29 1 roundtotwo 17 1 6 0 5 100 4 0 0 786 [X] 13 5 100 4 1 0 19 "" "" 2 [X] 13 8 1 6 1 15 17 2 9 14 converttounits 29 0 num 29 1 converttounits 17 1 29 2 unittoshow 0 265 "units" 13 8 2 17 2 7 "in." 6 2 18 0 11 00000178 17 5 29 3 newnum 6 0 8 3 10 00000388 7 "cm." 6 2 18 0 11 00000253 17 7 5 2.54 6 0 4 0 8 3 10 00000388 7 "picas" 6 2 18 0 11 00000327 17 9 5 6 6 0 4 0 8 3 10 00000388 7 "pt." 6 2 18 0 11 00000388 17 11 5 72 6 0 4 0 8 3 17 13 6 3 8 1 6 1 15 17 14 9 14 GetNumLabelKeys 29 0 labelnumkey 29 1 GetNumLabelKeys 17 1 29 2 lenthiskeynum 0 14 "{0}" 13 5 5 3 1 8 2 17 2 29 3 thiskeynum 0 807 "{0}" "{2}" 13 8 3 17 3 6 3 5 1 3 0 8 1 6 1 15 17 4 9 14 manualem 29 0 labeldata 29 1 manualem 17 2 29 2 labelheight 0 20 "{0}" 3 ";" 13 8 2 17 3 29 3 labelwidth 0 20 "{0}" 4 ";" 13 8 3 17 4 29 4 numacross 0 20 "{0}" 5 ";" 13 8 4 17 5 29 5 numdown 0 20 "{0}" 6 ";" 13 8 5 17 6 29 6 topmarg 0 20 "{0}" 7 ";" 13 8 6 17 7 29 7 sidemarg 0 20 "{0}" 8 ";" 13 8 7 17 8 29 8 horizpitch 0 20 "{0}" 9 ";" 13 8 8 17 9 29 9 vertpitch 0 20 "{0}" 10 ";" 13 8 9 17 10 29 10 labelpagetype 0 20 "{0}" 11 ";" 13 8 10 17 11 6 9 7 "-" 18 0 11 00000548 17 12 6 2 8 9 17 14 6 8 7 "-" 18 0 11 00000603 17 15 6 3 8 8 17 18 29 11 fineright 5 1 5 8 4 1 8 11 17 19 29 12 fineindrt 5 1 5 8 4 1 8 12 17 20 29 13 fineindtop 5 0 8 13 17 21 29 14 finewidth 5 1 5 2 4 1 6 4 4 1 8 14 17 23 29 15 labelindrt 6 7 6 12 3 0 16 zeromin [X] 13 16 Twips [X] 13 8 15 17 24 29 16 labelindtop 6 6 6 13 3 1 16 zeromin [X] 13 16 Twips [X] 13 8 16 17 25 29 17 protop 16 twips 0 13 8 17 17 26 29 18 proleft 16 twips 0 13 8 18 17 27 29 19 proright 6 8 6 3 3 1 6 11 16 zeromin [X] 13 3 0 16 twips [X] 13 8 19 17 28 29 20 probottom 6 9 6 2 3 1 16 zeromin [X] 13 16 twips [X] 13 8 20 17 29 29 21 proheight 16 twips "{2}" 13 8 21 17 30 29 22 prowidth 6 3 6 14 3 1 16 zeromin [X] 13 16 twips [X] 13 8 22 17 31 29 23 righttab 6 3 6 11 3 1 16 twips [X] 13 8 23 17 32 29 24 centertab 6 23 5 2 4 1 8 24 17 33 29 25 firstlefttab 6 24 5 3 4 1 8 25 17 34 29 26 secondlefttab 6 25 5 2 4 0 8 26 17 35 29 27 manualpageheight 16 Twips "{9}" 13 8 27 17 36 29 28 carrierwidth 5 2 6 7 4 0 6 8 6 4 4 0 3 0 16 Twips [X] 13 8 28 17 37 6 10 7 "A4" 18 0 11 00001896 17 38 16 A4Size "{15}" "{16}" 17 39 16 _$$2Tables 1 0 "{4}" "{5}" 17 40 16 _$$2TableLayout 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 10 00002302 17 41 6 10 7 "Continuous" 18 0 11 00002157 17 42 6 27 6 16 3 0 16 ManualSize "{15}" "{16}" [X] "{28}" 17 43 6 4 5 1 18 3 11 00002144 17 44 16 _$$2Tables 1 0 "{4}" 1 17 45 16 _$$2TableLayout 2 0 "{22}" "{19}" "{21}" 0 0 0 0 0 0 1 10 00002302 17 48 16 LetterSize "{15}" "{16}" 17 49 16 _$$2Tables 1 0 "{4}" "{5}" 17 50 16 _$$2TableLayout 2 0 "{22}" "{19}" "{21}" "{20}" 0 0 0 0 0 1 6 1 15 17 52 9 14 A4Size 29 0 labelindrt 29 1 labelindtop 29 2 A4Size 17 1 16 _$$3ModLayoutInit 512 17 2 16 _$$3ModLayoutPageSize 16833 11908 1 4 17 3 16 _$$3ModLayoutLeftHeader "{0}" 0 0 0 1 0 1 "{0}" 11908 2 2 4680 3 9360 17 4 16 _$$3ModLayoutLeftFooter "{0}" 0 0 0 1 0 1 "{0}" 11908 2 2 4680 3 9360 17 5 16 _$$3ModLayoutLeftPage "{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 17 6 16 _$$3ModLayoutFinish 6 2 15 17 7 9 14 LetterSize 29 0 labelindrt 29 1 labelindtop 29 2 LetterSize 17 2 16 _$$3ModLayoutInit 512 17 3 16 _$$3ModLayoutPageSize 15840 12240 1 1 17 4 16 _$$3ModLayoutLeftHeader "{0}" 0 0 0 1 0 1 "{0}" 12240 2 2 4680 3 9360 17 5 16 _$$3ModLayoutLeftFooter "{0}" 0 0 0 1 0 1 "{0}" 12240 2 2 4680 3 9360 17 6 16 _$$3ModLayoutLeftPage "{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 17 7 16 _$$3ModLayoutFinish 6 2 15 17 8 9 14 ManualSize 29 0 labelindrt 29 1 labelindtop 29 2 manualpageheight 29 3 carrierwidth 29 4 ManualSize 17 2 16 _$$3ModLayoutInit 512 17 3 16 _$$3ModLayoutPageSize "{2}" "{3}" 1 1 17 4 16 _$$3ModLayoutLeftHeader "{0}" 0 0 0 1 0 1 "{0}" "{3}" 2 2 4680 3 9360 17 5 16 _$$3ModLayoutLeftFooter "{0}" 0 0 0 1 0 1 "{0}" "{3}" 2 2 4680 3 9360 17 6 16 _$$3ModLayoutLeftPage "{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 17 7 16 _$$3ModLayoutFinish 6 4 15 17 8 9 14 customem 29 0 customem 24 352 24 788 6 0 15 17 3 9 14 zeromin 29 0 num 29 1 zeromin 17 1 6 0 5 0 18 5 11 00000087 17 2 5 0 8 0 17 4 6 0 8 1 6 1 15 17 5 9 14 twips 29 0 num 29 1 twips 17 1 6 0 5 1440 4 0 8 1 6 1 15 17 2 9 14 PrinterType 29 0 PrinterType 17 1 29 1 pagetype 0 265 "inifile" 13 0 286 "AmiProOwner" "ShowPageTypeBox" [X] 13 8 1 17 2 6 1 5 0 18 0 11 00000181 17 3 6 1 15 9 17 5 0 31 9000 "A4 Labels" 17 6 0 31 9000 "Continuous Labels" 17 7 0 31 9000 "Continuous Label (European)" 17 8 0 31 9000 "Letter-size Labels" 17 9 29 2 amidir 0 798 13 8 2 17 10 29 3 rmac 0 802 13 8 3 17 11 0 41 0 "{3}!LabelChoiceInit" 17 12 29 4 box 0 26 "{2}label.dlg" "labelsettings" 13 8 4 17 13 6 4 5 0 18 0 11 00000570 17 14 5 -1 15 9 10 00001129 17 16 29 5 pagechoice 0 27 9000 13 8 5 17 17 7 "A4 Labels" 6 5 18 0 11 00000693 17 19 7 "A4" 8 5 10 00000972 7 "Continuous Labels" 6 5 18 0 11 00000781 17 21 7 "Continuous" 8 5 10 00000972 7 "Continuous Label (European)" 6 5 18 0 11 00000894 17 23 7 "UK Contin. French Contin." 8 5 10 00000972 7 "Letter-size Labels" 6 5 18 0 11 00000972 17 25 7 "8.5"" x 11""" 8 5 17 27 29 6 showbox 0 27 20 13 8 6 17 28 6 6 5 1 18 0 11 00001110 17 29 0 287 "AmiProOwner" "ShowPageTypeBox" 0 "amilabel.ini" 17 31 6 5 15 9 6 0 15 17 33 9 14 GetCurrentCountry 29 0 GetCurrentCountry 17 1 0 286 "intl" "sCountry" 13 8 0 6 0 15 17 2 9 00041448