home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS029.DSK
/
MAKELABL.SMM
< prev
next >
Wrap
INI File
|
1992-05-18
|
15KB
|
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