home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 February
/
PCWK0297.iso
/
lotus
/
english
/
lotus003.dsk
/
AUTOSTY.SMM
< prev
next >
Wrap
INI File
|
1995-10-20
|
23KB
|
2,160 lines
[ver]
4
[sty]
[charset]
82
ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
5
5
Arial
2818
1030
514
514
1026
LotusWP Type
514
774
1286
517
1027
257
257
257
257
257
Times New Roman
514
774
1029
517
1027
MS Sans Serif
2818
1030
514
514
1026
[recfile]
4
1
3
12
1440
1440
[revisions]
0
[prn]
HP LaserJet 4 Plus/4M Plus
[port]
LPT1:
[lnopts]
2
Body Text
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
814211484
1
807846022
68
7
0
0
0
0
0
[docopts]
5
2
[GramStyle]
[lang]
1
[fopts]
0
1
0
0
Continued on next page...
Continued from previous page...
[tag]
Footer
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
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Footer
0
0
[tag]
Header
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
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Header
0
0
[tag]
Title
1
[fnt]
Arial
360
0
49153
[algn]
4
1
0
0
0
[spc]
33
0
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
0
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
16
1
2
.
,
$
Title
0
0
[tag]
Subhead
1
[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
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
16
1
2
.
,
$
Subhead
0
0
[tag]
Number List
1
[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
10
10
1
[spec]
0
0
<*:>.
0
1
1
0
16
0
0
[nfmt]
16
1
2
.
,
$
Number List
0
0
[tag]
Bullet 1
1
[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
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Bullet
1
[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
10
10
1
[spec]
0
0
<*0>
0
1
1
0
0
0
0
[nfmt]
16
1
2
.
,
$
Bullet
0
0
[tag]
Body Single
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
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Body Text
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
10
10
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]
1
13184
0
14400
12240
15840
0
1
3
1 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]
>
[hrght]
[lyfrm]
1
11136
0
0
12240
1440
0
1
3
1 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]
>
[elay]
[lay]
1
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]
1
13184
0
14400
12240
15840
0
1
3
1 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]
>
[hrght]
[lyfrm]
1
11136
0
0
12240
1440
0
1
3
1 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]
>
[elay]
[l1]
1
[edoc]
declares and defines
' PMM 8.2.95 Define GetParent
<+@>define HFONT "Setfont:hFont"
<+@>
<+@>define WM_SETFONT 0x30
<+@>define WM_USER 0x0400
<+@>define BM_SETCHECK 0x0401
<+@>
declare fillboxfields(target);
declare torchfields(target);
declare initcapit(string);
function main()
singlestep(0)
hourglass(1)
ignorekeyboard(2)
rmac=getrunningmacrofile$()
'burn power fields if entry is in AMIPRO2.INI
burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")
if burnfields = 1
<+@> torchfields("as_")
<+@> exit function
elseif burnfields = ""
<+@> writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")
endif
datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
gotocmd(3,"","")
<+@>gotocmd(2,"","") 'dez 5/23/94; go back to tof
cnt = GetPowerFieldCount(0)
if (0 != cnt)
<+@> L1="Type the information that you want to appear each time "
<+@> L2="you create this type of document. Choose OK to insert this information "
<+@> L3="into the current document only. "
<+@> L4=""
<+@> helptext="{L1}{L2}{L3}{L4}"
<+@> filledit(1050, helptext)
<+@> result=fillboxfields("as_def")
<+@> if result=0 or result = 2
<+@> goto blowout
<+@> endif
<+@> L1="Type the information you want to appear "
<+@> L2="in this document."
<+@> helptext="{L1}{L2}{L3}{L4}"
<+@> filledit(1050, helptext)
<+@> result = fillboxfields("as_user")
<+@> if result=0 or result = 2
<+@> goto blowout
<+@> endif
else
<+@>' message("No fields")
endif
blowout:
torchfields("as_")
mark="as_starttext"
result=MarkBookMark(mark, 4002 )
if result = 1
<+@> MarkBookMark(mark, 4004 )
endif
DocInfo("" "" 1 )
hourglass(0)
end function
FUNCTION fillboxfields(target)
onerror blowout
cnt = GetPowerFieldCount(0)
if cnt = 0
<+@> exit function
endif
rmac=getrunningmacrofile$()
allocglobalvar("target", 1)
setglobalvar("target", target)
dim fields(cnt)
dim globvars(1)
dim echovars(1)
numglobs=0
GetPowerFields(0, &fields)
'load &globvars
mergefieldspresent=0
for i = 1 to cnt
<+@> pftype = StrField$(fields(i), 2, ",") 'get the power field type
<+@> if pftype=12 'there is a merge field in the doc.
<+@> mergefieldspresent=1
<+@> endif
<+@> pffield = StrField$(fields(i), 3, ",") 'get the power field
<+@> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
<+@> showtype=strfield$(varname, 6, "_")
<+@> if lcase$(showtype)="address2"
<+@> secondaddressline=1
<+@> endif
<+@> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
<+@> targlen=len(target)
<+@> if left$(varname, targlen)=target and showtype != "echo"
<+@> numglobs=numglobs+1
<+@> result=arrayinsert(&globvars, numglobs, fields(i))
<+@> if result = 0
<+@> goto blowout
<+@> arrayinsert(&echovars, numglobs, echovar)
<+@> endif
<+@> endif
<+@>next
'determine if we have any suitable PFs
if numglobs=0
<+@>' message(target)
<+@> fillboxfields = 3 'this attempt failed, but don't blow out completely
<+@> exit function
endif
'fill dialog box with labels & pre-build
allocglobalvar("numglobs", 1)
setglobalvar("numglobs", numglobs)
<+@>arraysort(&globvars, 3, "_") 'sort the array on varnum
for i = 1 to numglobs
<+@> pffield = StrField$(globvars(i), 3, ",") 'get the power field
<+@> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
<+@> quotechar=chr$(34)
<+@> varlabel=StrField$(globvars(i), 2, quotechar) 'get the label for the variable
<+@> showtype=strfield$(varname, 6, "_")
<+@> profilestringstuff=""
<+@> if showtype != (-1) and showtype != "echo" and showtype != ""
<+@> profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")
<+@> if lcase$(showtype) = "address1" and secondaddressline !=1
<+@> address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
<+@> if address2 != ""
<+@> profilestringstuff=strcat$(profilestringstuff, ", " address2)
<+@> endif
<+@> endif
<+@> endif
<+@> allocglobalvar(varname, 1)
<+@> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
<+@> allocglobalvar(echovar, 1)
<+@> if lcase$(left$(varlabel, 5)) = "type "
<+@> lenwithouttype=len(varlabel) - 5
<+@> varlabel=right$(varlabel, lenwithouttype)
<+@> endif
<+@> if lcase$(right$(varlabel, 5)) = " here"
<+@> lenwithouthere=len(varlabel) - 5
<+@> varlabel=left$(varlabel, lenwithouthere)
<+@> endif
<+@> varlabel=initcapit(varlabel)
<+@> filledit(1000 + i, "{varlabel}:")
<+@> filledit(8000 + i, profilestringstuff)
next
box=dialogbox(".", "autostyle")
<+@>fillboxfields = box 'set this function's return value to the ID returned by the box
if box= 0 or box =2
<+@> goto blowout
endif
'set global vars & update fields
for i = 1 to numglobs
<+@> contents=getdialogfield$(8000 +i)
<+@> pfid = StrField$(globvars(i), 1, ",") 'get the power field id
<+@> pftype = StrField$(globvars(i), 2, ",") 'get the power field type
<+@> pffield = StrField$(globvars(i), 3, ",") 'get the power field
<+@> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
<+@> echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
<+@> setglobalvar(echovar, contents)
<+@> setglobalvar(varname, contents)
<+@> if mergefieldspresent=1
<+@> result=GoToPowerField(pfid, pftype)
<+@>' FieldUpdate(pfid, pftype, pffield)
<+@> FieldEvaluate()
<+@> endif
next
if mergefieldspresent = 0
<+@> fieldupdateall()
endif
blowout:
<+@> call torchfields(target)
<+@> call freeglobs(target)
<+@> freeglobalvar("target")
<+@> freeglobalvar("numglobs")
END FUNCTION
FUNCTION freeglobs(target)
targlen=len(target)
numglobs=getglobalvarcount()
dim globnuke(numglobs)
getglobalvarnames(&globnuke)
for i = 1 to numglobs
<+@> if left$(globnuke(i), targlen)=target
<+@> freeglobalvar(globnuke(i))
<+@> endif
next
end function
FUNCTION torchfields(target)
'singlestep(0)
cnt = GetPowerFieldCount(0)
if (0 != cnt)
<+@> dim fields(cnt)
<+@> GetPowerFields(0, &fields)
<+@> for i = 1 to cnt
<+@> pfid = StrField$(fields(i), 1, ",")
<+@> pftype = StrField$(fields(i), 2, ",")
<+@> pffield = StrField$(fields(i), 3, ",") 'get the power field
<+@> varname=StrField$(pffield, 3, " ") 'get the name of the variable in the PF
<+@> targlen=len(target)
<+@> if left$(varname, targlen)=target
<+@> FieldRemove(pfid, pftype);
<+@> endif
<+@> next
else
<+@>' message("No fields")
endif
END FUNCTION
function initcapit(string)
if instr(0, " SSN ", string) != 0
<+@> initcapit=string
<+@> exit function
endif
firstchar=left$(string, 1)
restchars=lcase$(right$(string, (len(string) - 1)))
initcapit=strcat$(firstchar, restchars)
end function
<+@>DIALOG autostyle
<+@>-2134376448 22 115 57 231 185 "" "" "Style Sheet Information"
<+@>FONT 8 "Helv"
<+@>78 6 91 12 8001 1350631552 "edit" "" 0
<+@>78 21 91 12 8002 1350631552 "edit" "" 0
<+@>78 36 91 12 8003 1350631552 "edit" "" 0
<+@>78 51 91 12 8004 1350631552 "edit" "" 0
<+@>78 66 91 12 8005 1350631552 "edit" "" 0
<+@>78 81 91 12 8006 1350631552 "edit" "" 0
<+@>78 96 91 12 8007 1350631552 "edit" "" 0
<+@>78 111 91 12 8008 1350631552 "edit" "" 0
<+@>78 126 91 12 8009 1350631552 "edit" "" 0
<+@>173 5 53 14 1 1342373889 "button" "OK" 0
<+@>173 22 53 14 2 1342373888 "button" "Cancel" 0
<+@>3 8 75 9 1001 1342177280 "static" "" 0
<+@>3 23 75 9 1002 1342177280 "static" "" 0
<+@>3 38 75 9 1003 1342177280 "static" "" 0
<+@>3 53 75 9 1004 1342177280 "static" "" 0
<+@>3 68 75 9 1005 1342177280 "static" "" 0
<+@>3 83 75 9 1006 1342177280 "static" "" 0
<+@>3 98 75 9 1007 1342177280 "static" "" 0
<+@>3 113 75 9 1008 1342177280 "static" "" 0
<+@>3 128 75 9 1009 1342177280 "static" "" 0
<+@>3 143 222 36 1050 1342177280 "static" "" 0
<+@>3 143 219 36 1060 1342177280 "static" "" 0
END DIALOG
>
[Embedded]
00014447
>
[macsum4] 6 61
main 0 0 12 14
fillboxfields 1558 1 26 70
freeglobs 5618 1 5 195
torchfields 6012 1 9 207
initcapit 6661 1 3 228
autostyle 6974 0 65535 238
[macse]
14 main
29 0 main
17 1
0 4 0
17 2
0 1681 1
17 3
0 32 2
17 4
29 1 rmac
0 802
13
8 1
17 6
29 2 burnfields
0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
13
8 2
17 7
6 2
5 1
18 0
11 00000269
17 8
16 torchfields "as_"
6 0
15
9
10 00000368
17 10
6 2
7 ""
18 0
11 00000368
17 11
0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
17 13
29 3 datagood
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 3
17 14
0 1631 3 "" ""
17 15
0 1631 2 "" ""
17 16
29 4 cnt
0 1304 0
13
8 4
17 18
5 0
6 4
18 1
11 00001326
17 19
29 5 L1
7 "Type the information that you want to appear each time "
8 5
17 20
29 6 L2
7 "you create this type of document. Choose OK to insert this information "
8 6
17 21
29 7 L3
7 "into the current document only. "
8 7
17 22
29 8 L4
7 ""
8 8
17 23
29 9 helptext
7 "{5}{6}{7}{8}"
8 9
17 24
0 31 1050 "{9}"
17 26
29 10 result
16 fillboxfields "as_def"
13
8 10
17 27
6 10
5 0
18 0
6 10
5 2
18 0
1 2
11 00001042
17 28
10 00001326
17 31
7 "Type the information you want to appear "
8 5
17 32
7 "in this document."
8 6
17 33
7 "{5}{6}{7}{8}"
8 9
17 34
0 31 1050 "{9}"
17 36
16 fillboxfields "as_user"
13
8 10
17 37
6 10
5 0
18 0
6 10
5 2
18 0
1 2
11 00001313
17 38
10 00001326
10 00001326
17 46
16 torchfields "as_"
17 47
29 11 mark
7 "as_starttext"
8 11
17 48
0 1658 "{11}" 4002
13
8 10
17 49
6 10
5 1
18 0
11 00001499
17 50
0 1658 "{11}" 4004
17 52
0 1551 "" "" 1
17 53
0 1681 0
6 0
15
17 54
9
14 fillboxfields
29 0 target
29 1 fillboxfields
17 2
20 00003932
17 3
29 2 cnt
0 1304 0
13
8 2
17 5
6 2
5 0
18 0
11 00000152
6 1
15
9
17 9
29 3 rmac
0 802
13
8 3
17 10
0 271 "target" 1
17 11
0 264 "target" "{0}"
17 12
6 2
29 4 fields
21 4 [X]
17 13
5 1
29 5 globvars
21 5 [X]
17 14
5 1
29 6 echovars
21 6 [X]
17 15
29 7 numglobs
5 0
8 7
17 16
0 1305 0 &4
17 18
29 8 mergefieldspresent
5 0
8 8
29 9 i
5 1
8 9
17 20
6 2
6 9
18 2
12 00000542
10 00001436
5 1
6 9
3 0
8 9
10 00000460
17 21
29 10 pftype
6 9
22 4
0 20 [X] 2 ","
13
8 10
17 22
6 10
5 12
18 0
11 00000655
17 23
5 1
8 8
17 25
29 11 pffield
6 9
22 4
0 20 [X] 3 ","
13
8 11
17 26
29 12 varname
0 20 "{11}" 3 " "
13
8 12
17 27
29 13 showtype
0 20 "{12}" 6 "_"
13
8 13
17 28
0 17 "{13}"
13
7 "address2"
18 0
11 00000917
17 29
29 14 secondaddressline
5 1
8 14
17 31
29 15 echovar
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 32
29 16 targlen
0 14 "{0}"
13
8 16
17 33
0 806 "{12}" "{16}"
13
6 0
18 0
6 13
7 "echo"
18 1
1 1
11 00001423
17 34
6 7
5 1
3 0
8 7
17 35
29 17 result
6 9
22 4
0 1041 &5 "{7}" [X]
13
8 17
17 36
6 17
5 0
18 0
11 00001423
17 37
10 00003932
17 38
0 1041 &6 "{7}" "{15}"
10 00000509
17 45
6 7
5 0
18 0
11 00001501
17 47
5 3
8 1
6 1
15
9
17 52
0 271 "numglobs" 1
17 53
0 264 "numglobs" "{7}"
17 54
0 1043 &5 3 "_"
5 1
8 9
17 56
6 7
6 9
18 2
12 00001675
10 00003045
5 1
6 9
3 0
8 9
10 00001593
17 57
6 9
22 5
0 20 [X] 3 ","
13
8 11
17 58
0 20 "{11}" 3 " "
13
8 12
17 59
29 18 quotechar
0 39 34
13
8 18
17 60
29 19 varlabel
6 9
22 5
0 20 [X] 2 "{18}"
13
8 19
17 61
0 20 "{12}" 6 "_"
13
8 13
17 62
29 20 profilestringstuff
7 ""
8 20
17 63
6 13
5 -1
18 1
6 13
7 "echo"
18 1
6 13
7 ""
18 1
1 1
1 1
11 00002335
17 64
0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
13
8 20
17 65
0 17 "{13}"
13
7 "address1"
18 0
6 14
5 1
18 1
1 1
11 00002335
17 66
29 21 address2
0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
13
8 21
17 67
6 21
7 ""
18 1
11 00002335
17 68
0 16 "{20}" ", " "{21}"
13
8 20
17 72
0 271 "{12}" 1
17 73
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 74
0 271 "{15}" 1
17 75
0 806 "{19}" 5
13
0 17 [X]
13
7 "type "
18 0
11 00002738
17 76
29 22 lenwithouttype
0 14 "{19}"
13
5 5
3 1
8 22
17 77
0 807 "{19}" "{22}"
13
8 19
17 79
0 807 "{19}" 5
13
0 17 [X]
13
7 " here"
18 0
11 00002909
17 80
29 23 lenwithouthere
0 14 "{19}"
13
5 5
3 1
8 23
17 81
0 806 "{19}" "{23}"
13
8 19
17 83
16 initcapit "{19}"
13
8 19
17 84
5 1000
6 9
3 0
0 31 [X] "{19}:"
17 85
5 8000
6 9
3 0
0 31 [X] "{20}"
10 00001642
17 89
29 24 box
0 26 "." "autostyle"
13
8 24
17 91
6 24
8 1
17 92
6 24
5 0
18 0
6 24
5 2
18 0
1 2
11 00003192
17 93
10 00003932
5 1
8 9
17 96
6 7
6 9
18 2
12 00003284
10 00003879
5 1
6 9
3 0
8 9
10 00003202
17 97
29 25 contents
5 8000
6 9
3 0
0 27 [X]
13
8 25
17 98
29 26 pfid
6 9
22 5
0 20 [X] 1 ","
13
8 26
17 99
6 9
22 5
0 20 [X] 2 ","
13
8 10
17 100
6 9
22 5
0 20 [X] 3 ","
13
8 11
17 101
0 20 "{11}" 3 " "
13
8 12
17 102
0 20 "{12}" 1 "_"
13
0 20 "{12}" 2 "_"
13
0 20 "{12}" 3 "_"
13
0 20 "{12}" 4 "_"
13
0 20 "{12}" 5 "_"
13
0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
13
8 15
17 103
0 264 "{15}" "{25}"
17 104
0 264 "{12}" "{25}"
17 105
6 8
5 1
18 0
11 00003866
17 106
0 1306 "{26}" "{10}"
13
8 17
17 108
2 571 1
10 00003251
17 111
6 8
5 0
18 0
11 00003932
17 112
0 1633
17 116
16 torchfields "{0}"
17 117
16 freeglobs "{0}"
17 118
0 266 "target"
17 119
0 266 "numglobs"
6 1
15
17 122
9
14 freeglobs
29 0 target
29 1 freeglobs
17 1
29 2 targlen
0 14 "{0}"
13
8 2
17 2
29 3 numglobs
0 299
13
8 3
17 3
6 3
29 4 globnuke
21 4 [X]
17 4
0 300 &4
29 5 i
5 1
8 5
17 5
6 3
6 5
18 2
12 00000272
10 00000375
5 1
6 5
3 0
8 5
10 00000191
17 6
6 5
22 4
0 806 [X] "{2}"
13
6 0
18 0
11 00000362
17 7
6 5
22 4
0 266 [X]
10 00000239
6 1
15
17 10
9
14 torchfields
29 0 target
29 1 torchfields
17 2
29 2 cnt
0 1304 0
13
8 2
17 3
5 0
6 2
18 1
11 00000630
17 4
6 2
29 3 fields
21 3 [X]
17 5
0 1305 0 &3
29 4 i
5 1
8 4
17 6
6 2
6 4
18 2
12 00000269
10 00000617
5 1
6 4
3 0
8 4
10 00000188
17 7
29 5 pfid
6 4
22 3
0 20 [X] 1 ","
13
8 5
17 8
29 6 pftype
6 4
22 3
0 20 [X] 2 ","
13
8 6
17 9
29 7 pffield
6 4
22 3
0 20 [X] 3 ","
13
8 7
17 10
29 8 varname
0 20 "{7}" 3 " "
13
8 8
17 11
29 9 targlen
0 14 "{0}"
13
8 9
17 12
0 806 "{8}" "{9}"
13
6 0
18 0
11 00000604
17 13
0 1323 "{5}" "{6}"
10 00000236
10 00000630
6 1
15
17 19
9
14 initcapit
29 0 string
29 1 initcapit
17 1
0 808 0 " SSN " "{0}"
13
5 0
18 1
11 00000128
17 2
6 0
8 1
6 1
15
9
17 5
29 2 firstchar
0 806 "{0}" 1
13
8 2
17 6
29 3 restchars
0 14 "{0}"
13
5 1
3 1
0 807 "{0}" [X]
13
0 17 [X]
13
8 3
17 7
0 16 "{2}" "{3}"
13
8 1
6 1
15
17 8
9
DIALOG autostyle
-2134376448 22 115 57 231 185 "" "" "Style Sheet Information"
FONT 8 "Helv"
78 6 91 12 8001 1350631552 "edit" "" 0
78 21 91 12 8002 1350631552 "edit" "" 0
78 36 91 12 8003 1350631552 "edit" "" 0
78 51 91 12 8004 1350631552 "edit" "" 0
78 66 91 12 8005 1350631552 "edit" "" 0
78 81 91 12 8006 1350631552 "edit" "" 0
78 96 91 12 8007 1350631552 "edit" "" 0
78 111 91 12 8008 1350631552 "edit" "" 0
78 126 91 12 8009 1350631552 "edit" "" 0
173 5 53 14 1 1342373889 "button" "OK" 0
173 22 53 14 2 1342373888 "button" "Cancel" 0
3 8 75 9 1001 1342177280 "static" "" 0
3 23 75 9 1002 1342177280 "static" "" 0
3 38 75 9 1003 1342177280 "static" "" 0
3 53 75 9 1004 1342177280 "static" "" 0
3 68 75 9 1005 1342177280 "static" "" 0
3 83 75 9 1006 1342177280 "static" "" 0
3 98 75 9 1007 1342177280 "static" "" 0
3 113 75 9 1008 1342177280 "static" "" 0
3 128 75 9 1009 1342177280 "static" "" 0
3 143 222 36 1050 1342177280 "static" "" 0
3 143 219 36 1060 1342177280 "static" "" 0
00014472
