Liren Large Software Subsidy 18

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 18 / 18.iso / w / w380 / 3.ddi / STYMACRO.CMZ / MAKELABL.SMM < prev

Wrap

INI File | 1992-05-18 | 14.4 KB | 1,261 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [desc] Saves the current page layout and merge label options for custom label formats with _LABEL.STY 706221204 7 705966305 340 4 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 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] Times New Roman 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] Times New Roman 240 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 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 240 0 16384 [algn] 1 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Outline3 12 [fnt] Times New Roman 240 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 3 0 1 1 0 0 0 0 [nfmt] 272 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 72 72 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] 272 1 2 . , $ Outline4 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] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] @Title@<:#284,9360><:f240,BArial,0,0,255>'Declares and defines<:f> @Subhead@<:#284,9360>define GetMergeOpts() GetInfo(165) @Subhead@<:#284,9360>define GetCurPageLength() GetInfo(83) @Subhead@<:#284,9360>define GetCurPageMargins() GetInfo(233) @Subhead@<:#284,9360>define GetCurPageWidth() GetInfo(84) @Subhead@<:#284,9360>declare TwipsToInches(num); @Subhead@<:#284,9360>declare SetNextCustomLabel(thislabel); @Subhead@<:#284,9360>declare SetNextCustomLabel(thislabel) @Subhead@<:#284,9360>declare SetNextCustomLabelKey(thislabelkey); @Title@<:#284,9360>function makelabel() @Subhead@<:#284,9360>'get this label's num from inifile @Outline3@<:#284,9360>inifile="AMILABEL.INI" @Outline4@<:#284,9360>thislabel=getprofilestring$("LabelTypes", "NextCustomLabel", inifile) @Outline4@<:#284,9360>if thislabel = "" @Outline4@<:#284,9360> thislabel = "0000" @Outline4@<:#284,9360> writeprofilestring("LabelTypes", "NextCustomLabel", thislabel, inifile) @Outline4@<:#284,9360>endif @Outline4@<:#284,9360>thislabelkey=getprofilestring$("LabelTypes", "NextCustomLabelKey", inifile) @Outline4@<:#284,9360>if thislabelkey = "" @Outline4@<:#284,9360> thislabelkey = "Label95" @Outline4@<:#284,9360> writeprofilestring("LabelTypes", "NextCustomLabelKey", thislabelkey, inifile) @Outline4@<:#284,9360>endif @Outline3@<:#284,9360>filledit (1002, thislabel) @Outline3@<:#284,9360>UserInitials = getprofilestring$("AmiPro", "UserInitials", "AMIPRO.INI") @Outline3@<:#284,9360>filledit (8000, strcat$(UserInitials, "'s Custom Label")) @Subhead@<:#284,9360>mergeopts=GetMergeOpts() @Subhead@<:#284,9360>mergedatafile=strfield$(mergeopts, 8, ",") @Subhead@<:#284,9360>if mergedatafile ="" @Outline3@<:#284,9360> ret=chr$(13) @Outline3@<:#284,9360> if decide("This label has no data file associated with it.{ret}Use it anyway?") != 1 @Outline3@<:#284,9360> exit function @Outline3@<:#284,9360> endif @Outline3@<:#284,9360>endif @Subhead@<:#284,9360>box =dialogbox(".", "custlabel") @Outline3@<:#284,9360>if box = 0 or box = 2 @Outline3@<:#284,9360> exit function @Outline3@<:#284,9360>endif @Subhead@<:#284,9360>'fine-adjust constants @Outline3@<:#284,9360>fineright=0.125 @Outline3@<:#284,9360>fineindrt=0.25 @Outline3@<:#284,9360>fineindtop=0.25 @Subhead@<:#284,9360>'collect data from label @Outline3@<:#284,9360>numacross=strfield$(mergeopts, 2, ",") @Outline3@<:#284,9360>numdown=strfield$(mergeopts, 3, ",") @Outline3@<:#284,9360>labelindtop=TwipsToInches(strfield$(mergeopts, 4, ",")) @Outline3@<:#284,9360>labelindrt=TwipsToInches(strfield$(mergeopts, 5, ",")) @Outline3@<:#284,9360>vertpitch=TwipsToInches(GetCurPageLength()) @Outline3@<:#284,9360>horizpitch=TwipsToInches(GetCurPageWidth()) @Outline3@<:#284,9360>proright = TwipsToInches(strfield$(GetCurPageMargins(), 3, ",")) @Outline3@<:#284,9360>probottom = TwipsToInches(strfield$(GetCurPageMargins(), 4, ",")) @Subhead@<:#284,9360>'turn into Avery info @Outline3@<:#284,9360>sidemarg=labelindrt + fineindrt @Outline3@<:#284,9360>topmarg = labelindtop + fineindtop @Outline3@<:#284,9360>labelwidth = (fineright + horizpitch) - proright @Outline3@<:#284,9360>labelheight = vertpitch - probottom @Subhead@<:#284,9360>custname = getdialogfield$(8000) @Subhead@'qmark=chr$(34) 'One of these (") @Subhead@pagetype = "Custom" @Subhead@'pagetype = "8.5{qmark} x 11{qmark}" 'need to make this OK for dot & A4 @Subhead@<:#284,9360>labeldata = strcat$(thislabel, ",", custname, ",", labelheight, ",", labelwidth) @Subhead@<:#284,9360>labeldata = strcat$(labeldata, ",", numacross, ",", numdown, ",", topmarg, ",", sidemarg) @Subhead@<:#284,9360>labeldata = strcat$(labeldata, ",", horizpitch, ",", vertpitch, ",", pagetype) @Subhead@<:#284,9360>nextlabel = SetNextCustomLabel(thislabel) @Subhead@<:#284,9360>nextlabelkey = SetNextCustomLabelkey(thislabelkey) @Subhead@<:#284,9360>writeprofilestring("LabelTypes", "NextCustomLabel", nextlabel, inifile) @Subhead@<:#284,9360>writeprofilestring("LabelTypes", "NextCustomLabelKey", nextlabelkey, inifile) @Subhead@<:#284,9360>writeprofilestring("LabelTypes", ThisLabelKey, labeldata, inifile) @Subhead@<:#284,9360>end function @Title@<:#284,9360>function TwipsToInches(num) @Subhead@<:#284,9360>TwipsToInches = num / 1440 'can Pete give us Round (Num, NumberOfDigits)? @Subhead@<:#284,9360>TwipsToInches = left$(TwipsToInches, 6) @Subhead@<:#284,9360>end function @Title@<:#284,9360>function SetNextCustomLabel(labelnum) @Subhead@<:#284,9360>newnum= labelnum + 1 @Subhead@<:#284,9360>lennewnum = len (newnum) @Subhead@<:#284,9360>for i = 1 to (4 - lennewnum) @Subhead@<:#284,9360> newnum = strcat$("0", newnum) @Subhead@<:#284,9360>next @Subhead@<:#284,9360>SetNextCustomLabel = newnum @Subhead@<:#284,9360>end function @Title@<:#284,9360>function SetNextCustomLabelkey(labelnumkey) @Subhead@<:#284,9360>lenthiskeynum = len(labelnumkey) - 5 @Subhead@<:#284,9360>thiskeynum = right$(labelnumkey, lenthiskeynum) @Subhead@<:#284,9360>nextkeynum = thiskeynum + 1 @Subhead@<:#284,9360>nextkey = strcat$("Label", nextkeynum) @Subhead@<:#284,9360>SetNextCustomLabelKey = nextkey @Subhead@<:#284,9360>end function @Title@<:#284,9360>DIALOG custlabel @Subhead@<:#284,9360>-2134376448 6 60 65 196 38 "" "" "Save As Custom Label" @Subhead@<:#284,9360>FONT 8 "Helv" @Subhead@<:#284,9360>4 21 61 10 1000 1342177280 "static" "&Label description:" 0 @Subhead@<:#284,9360>67 20 80 12 8000 1350631552 "edit" "" 0 @Subhead@<:#284,9360>152 3 40 14 1 1342373889 "button" "OK" 0 @Subhead@<:#284,9360>152 19 40 14 2 1342373888 "button" "Cancel" 0 @Subhead@<:#284,9360>4 6 61 10 1001 1342177280 "static" "&Label number:" 0 @Subhead@<:#284,9360>67 6 61 10 1002 1342177280 "static" "labelnum" 0 @Subhead@<:#284,9360>END DIALOG @Title@<:#284,9360>'samples @Subhead@<:#568,9360>Part Number,Label Type,Label Height,Label Width,Number Across,Number Down,Top Margin,Side Margins,Horiz. Pitch,Vert. Pitch,Page Type @Subhead@<:#284,9360> @Subhead@<:#284,9360>'CurPageMargins=GetCurPageMargins() @Subhead@<:#284,9360>mergeopts 20,3,10,360,0,1,1,c:\amipro\docs\senators.sam,0,,0 @Subhead@<:#284,9360>CurPageLength: 1440 @Subhead@<:#284,9360>CurPageWidth 3960 @Subhead@<:#284,9360>CurPageMargins 0,0,360,0 @Subhead@<:#284,9360> @Subhead@<:#284,9360>mergeopts 1,3,12,1440,1440,1,1,,0,,0 @Subhead@<:#284,9360>CurPageLength: 32767 @Subhead@<:#284,9360>CurPageWidth 12903 @Subhead@<:#284,9360>CurPageMargins 360,0,360,0 @Subhead@<:#284,9360>0000,DEZ's Custom Label,22.7540,9.47010,3,12,1.250,1.250,9.5951,22.754,8.5" x 11" > [Embedded] 00011928 > [macsum] 5 makelabel 0 0 29 9 TwipsToInches 1754 1 1 68 SetNextCustomLabel 1831 1 4 72 SetNextCustomLabelkey 2050 1 5 80 custlabel 2206 0 -1 87 [macse] 14 makelabel 7 "AMILABEL.INI" 8 1 0 286 "LabelTypes" "NextCustomLabel" "{1}" 13 8 2 6 2 7 "" 18 0 11 00000185 7 "0000" 8 2 0 287 "LabelTypes" "NextCustomLabel" "{2}" "{1}" 0 286 "LabelTypes" "NextCustomLabelKey" "{1}" 13 8 3 6 3 7 "" 18 0 11 00000342 7 "Label95" 8 3 0 287 "LabelTypes" "NextCustomLabelKey" "{3}" "{1}" 0 31 1002 "{2}" 0 286 "AmiPro" "UserInitials" "AMIPRO.INI" 13 8 4 0 16 "{4}" "'s Custom Label" 13 0 31 8000 [X] 0 1313 165 13 8 5 0 20 "{5}" 8 "," 13 8 6 6 6 7 "" 18 0 11 00000669 0 39 13 13 8 7 0 2 "This label has no data file associated with it.{7}Use it anyway?" 13 5 1 18 1 11 00000669 6 0 15 9 0 26 "." "custlabel" 13 8 8 6 8 5 0 18 0 6 8 5 2 18 0 1 2 11 00000762 6 0 15 9 5 0.125 8 9 5 0.25 8 10 5 0.25 8 11 0 20 "{5}" 2 "," 13 8 12 0 20 "{5}" 3 "," 13 8 13 0 20 "{5}" 4 "," 13 16 TwipsToInches [X] 13 8 14 0 20 "{5}" 5 "," 13 16 TwipsToInches [X] 13 8 15 0 1313 83 13 16 TwipsToInches [X] 13 8 16 0 1313 84 13 16 TwipsToInches [X] 13 8 17 0 1313 233 13 0 20 [X] 3 "," 13 16 TwipsToInches [X] 13 8 18 0 1313 233 13 0 20 [X] 4 "," 13 16 TwipsToInches [X] 13 8 19 6 15 6 10 3 0 8 20 6 14 6 11 3 0 8 21 6 9 6 17 3 0 6 18 3 1 8 22 6 16 6 19 3 1 8 23 0 27 8000 13 8 24 7 "Custom" 8 25 0 16 "{2}" "," "{24}" "," "{23}" "," "{22}" 13 8 26 0 16 "{26}" "," "{12}" "," "{13}" "," "{21}" "," "{20}" 13 8 26 0 16 "{26}" "," "{17}" "," "{16}" "," "{25}" 13 8 26 16 SetNextCustomLabel "{2}" 13 8 27 16 SetNextCustomLabelkey "{3}" 13 8 28 0 287 "LabelTypes" "NextCustomLabel" "{27}" "{1}" 0 287 "LabelTypes" "NextCustomLabelKey" "{28}" "{1}" 0 287 "LabelTypes" "{3}" "{26}" "{1}" 6 0 15 9 14 TwipsToInches 6 0 5 1440 4 1 8 1 0 806 "{1}" 6 13 8 1 6 1 15 9 14 SetNextCustomLabel 6 0 5 1 3 0 8 2 0 14 "{2}" 13 8 3 5 1 8 4 5 4 6 3 3 1 6 4 18 2 12 00000159 10 00000197 5 1 6 4 3 0 8 4 10 00000074 0 16 "0" "{2}" 13 8 2 10 00000126 6 2 8 1 6 1 15 9 14 SetNextCustomLabelkey 0 14 "{0}" 13 5 5 3 1 8 2 0 807 "{0}" "{2}" 13 8 3 6 3 5 1 3 0 8 4 0 16 "Label" "{4}" 13 8 5 6 5 8 1 6 1 15 9 DIALOG custlabel -2134376448 6 60 65 196 38 "" "" "Save As Custom Label" FONT 8 "Helv" 4 21 61 10 1000 1342177280 "static" "&Label description:" 0 67 20 80 12 8000 1350631552 "edit" "" 0 152 3 40 14 1 1342373889 "button" "OK" 0 152 19 40 14 2 1342373888 "button" "Cancel" 0 4 6 61 10 1001 1342177280 "static" "&Label number:" 0 67 6 61 10 1002 1342177280 "static" "labelnum" 0 00011953