Liren Large Software Subsidy 18/18.iso/w/w380/3.ddi/STYMACR2.CMZ/AUTOSTY.SMM

INI File | 1992-06-17 | 37.4 KB | 2,649 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 style sheets that collect information and insert it into new document.



    noautorun
    708845568
    61
    699907907
    3135
    8
    1075
    8246
    29
    31






    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]
    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
        240
        0
        49155
    [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]
    Outline1
    9
    [fnt]
        Arial MT
        240
        0
        16384
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        288
        1
        72
        0
        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
        .
        ,
        $
    Outline1
    0
    0
[tag]
    Outline2
    11
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        216
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline2
    0
    0
[tag]
    Outline3
    12
    [fnt]
        Times New Roman
        200
        0
        49152
    [algn]
        1
        1
        432
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline3
    0
    0
[tag]
    Outline4
    0
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        648
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline4
    0
    0
[tag]
    Outline5
    0
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        864
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline5
    0
    0
[tag]
    Outline6
    0
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        1080
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline6
    0
    0
[tag]
    Outline7
    0
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        1296
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline7
    0
    0
[tag]
    Outline8
    0
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        1512
        0
        0
    [spc]
        33
        244
        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]
        272
        1
        2
        .
        ,
        $
    Outline8
    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
[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
        144
        1
        648
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
Automated Style Sheet Macro     Revision <:db<*&><* >>

Page <:P10,0,> of <:X3,16384;NumPages>6<:X~3,16384;NumPages>    <:db<*!><* >>

>
    [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]
@Outline1@<:#283,9360>declares and defines

@Outline2@<:#240,9360>DEFINE MoveWindow()    DllCall("user,MoveWindow,HHHHHHH",%1,%2,%3,%4,%5,1)

@Outline2@<:#240,9360>DEFINE GetWindowRect()    DllCall("user,GetWindowRect,HHN",%1,%2)

@Outline2@<:#240,9360>DEFINE GetClientRect()    DllCall("user,GetClientRect,HHN",%1,%2)

@Outline2@<:#240,9360>Define ScreenToClient()    DllCall("user,ScreenToClient,HHN", %1, %2)

@Outline2@<:#240,9360>Define ClientToScreen()    DllCall("user,ClientToScreen,HHN", %1, %2)

@Outline2@<:#240,9360>Define ShowWindow()    DllCall("User,ShowWindow,AHH",%1,%2)

@Outline2@<:#240,9360>Define EnableWindow()    DllCall("User,EnableWindow,AHH",%1,%2)

@Outline2@<:#240,9360>define SetFocus()        DllCall("user,SetFocus,HH", %1)

@Outline2@<:#240,9360>define HFONT    "Setfont:hFont"

@Outline2@<:#240,9360>define SendMessage(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)

@Outline2@<:#240,9360>define WM_SETFONT    0x30

@Outline2@<:#240,9360>define WM_USER            0x0400

@Outline2@<:#240,9360>define BM_SETCHECK       0x0401

@Outline2@<:#480,9360>define CreateFont()    DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)

@Outline2@<:#240,9360>define DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)

@Outline2@<:#240,9360>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

@Outline2@<:#240,9360>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)

@Outline2@<:#240,9360>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)

@Outline2@<:#240,9360>define GetWindowText()    DllCall("user,GetWindowText,HHFH", %1, %2, %3)

@Outline2@<:#240,9360>define MapDialogRect()    DllCall("user,MapDialogRect,HHN", %1, %2)

@Outline2@<:#240,9360>declare fillboxfields(target);

@Outline2@<:#240,9360>declare torchfields(target);

@Outline2@<:#240,9360>declare initcapit(string);

@Outline1@<:#283,9360>function main()

@Outline2@'verify this is a clean untitled

@Outline3@if GetOpenFileName$() !="" or Filechanged(0,0) != 0

@Outline3@    message("This macro is for automated style sheets.  To use it, choose File/New and leave Run macro selected.")

@Outline3@    exit function

@Outline3@endif

@Outline2@hourglass(1)

@Outline2@ignorekeyboard(2)

@Outline2@rmac=getrunningmacrofile$()

@Outline2@<:#240,9360>'burn power fields if entry is in AMIPRO2.INI

@Outline3@<:#240,9360>burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")

@Outline3@<:#240,9360>if burnfields = 1

@Outline3@<:#240,9360>    torchfields("as_")

@Outline3@<:#240,9360>    exit function

@Outline3@<:#240,9360>elseif burnfields = ""

@Outline3@<:#240,9360>    writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")

@Outline2@<:#240,9360>if datagood != 1

@Outline2@<:#240,9360>    macpath=GetMacPath$()

@Outline2@<:#240,9360>    collector="{macpath}collect.smm"

@Outline2@<:#240,9360>    calli collector()

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>'font handler

@Outline3@<:#240,9360>AllocGlobalVar(HFONT, 1)

@Outline3@<:#240,9360>SetGlobalVar(HFONT, 0)

@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)

@Outline2@<:#240,9360>if (0 != cnt)

@Outline2@<:#240,9360>    result=fillboxfields("as_def")

@Outline3@<:#240,9360>    if result=0 or result = 2

@Outline3@<:#240,9360>        goto blowout

@Outline3@<:#240,9360>    endif

@Outline2@<:#240,9360>    result = fillboxfields("as_user")

@Outline3@<:#240,9360>    if result=0 or result = 2

@Outline3@<:#240,9360>        goto blowout

@Outline3@<:#240,9360>    endif

@Outline2@<:#240,9360>else

@Outline2@<:#240,9360>'    message("No fields")

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>blowout:

@Outline2@<:#240,9360>torchfields("as_")

@Outline2@<:#240,9360>mark="as_starttext"

@Outline2@<:#240,9360>result=MarkBookMark(mark, 4002  )

@Outline2@<:#240,9360>if result = 1

@Outline2@<:#240,9360>    MarkBookMark(mark, 4004  )

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>'font bailout

@Outline3@<:#240,9360>font = GetGlobalVar$(HFONT)        ' If we created

@Outline3@<:#240,9360>if (0 != font)                ' the font.

@Outline3@<:#240,9360>    DeleteObject(font)        ' Delete it

@Outline3@<:#240,9360>endif

@Outline3@<:#240,9360>freeglobalvar(HFONT)

@Outline2@<:#240,9360>DocInfo(""  ""  1  )

@Outline2@hourglass(0)

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>FUNCTION fillboxfields(target)

@Outline2@<:#240,9360>onerror blowout

@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)

@Outline3@<:#240,9360>if cnt = 0

@Outline3@<:#240,9360>    exit function

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>rmac=getrunningmacrofile$()

@Outline2@<:#240,9360>allocglobalvar("target", 1)

@Outline2@<:#240,9360>setglobalvar("target", target)

@Outline2@<:#240,9360>dim fields(cnt)

@Outline2@<:#240,9360>dim globvars(1)

@Outline2@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0>dim echovars(1)<:f>

@Outline2@<:#240,9360>numglobs=0

@Outline2@<:#240,9360>GetPowerFields(0, &fields)

@Outline2@<:#240,9360>'load &globvars

@Outline3@<:#240,9360>mergefieldspresent=0

@Outline3@<:#240,9360>for i = 1 to cnt

@Outline3@<:#245,9360>    pftype = StrField$(fields(i), 2, ",")        'get the power <+!>field type<-!>

@Outline3@<:#240,9360>    if pftype=12    'there is a merge field in the doc.

@Outline3@<:#240,9360>        mergefieldspresent=1

@Outline3@<:#240,9360>    endif

@Outline3@<:#245,9360>    pffield = StrField$(fields(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#245,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#240,9360>    showtype=strfield$(varname, 6, "_")

@Outline3@<:#240,9360>    if lcase$(showtype)="address2"

@Outline3@<:#240,9360>        secondaddressline=1

@Outline3@<:#240,9360>    endif

@Outline3@<:#490,9360>    <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>

@Outline3@<:#240,9360>    targlen=len(target)

@Outline3@<:#245,9360>    if left$(varname, targlen)=target <:f200,2TimesNewRomanPS,255,0,0>and showtype !=  "echo"<:f>

@Outline3@<:#240,9360>    numglobs=numglobs+1

@Outline3@<:#240,9360>        result=arrayinsert(&globvars, numglobs, fields(i))

@Outline3@<:#240,9360>        if result = 0

@Outline3@<:#240,9360>            goto blowout

@Outline3@<:#245,9360>        <:f200,2TimesNewRomanPS,255,0,0>arrayinsert(&echovars, numglobs, echovar)<:f>

@Outline3@<:#240,9360>        endif

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>'determine if we have any suitable PFs

@Outline4@<:#240,9360>if numglobs=0

@Outline4@<:#240,9360>'    message(target)

@Outline4@<:#240,9360>    fillboxfields = 3 'this attempt failed, but don't blow out completely

@Outline4@<:#240,9360>    exit function

@Outline4@<:#240,9360>endif

@Outline2@<:#240,9360>'fill dialog box with labels & pre-build

@Outline3@<:#240,9360>allocglobalvar("numglobs", 1)

@Outline3@<:#240,9360>setglobalvar("numglobs", numglobs)

@Outline3@<:#240,9360>arraysort(&globvars, 3, "_")                'sort the array on varnum

@Outline3@<:#240,9360>for i = 1 to numglobs

@Outline3@<:#245,9360>    pffield = StrField$(globvars(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#245,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#240,9360>    quotechar=chr$(34)

@Outline3@<:#245,9360>    varlabel=StrField$(globvars(i), 2, quotechar)        'get the <+!>label
<-!>for the variable

@Outline3@<:#240,9360>    showtype=strfield$(varname, 6, "_")

@Outline3@<:#240,9360>    profilestringstuff=""

@Outline3@<:#240,9360>    if showtype != (-1) and showtype != "echo" and showtype != ""

@Outline3@<:#240,9360>        profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")

@Outline3@<:#240,9360>        if lcase$(showtype) = "address1" and secondaddressline !=1

@Outline3@<:#240,9360>            address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")

@Outline3@<:#240,9360>            if address2 != ""

@Outline3@<:#240,9360>                profilestringstuff=strcat$(profilestringstuff, ", " address2)

@Outline3@<:#240,9360>            endif

@Outline3@<:#240,9360>        endif

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>    allocglobalvar(varname, 1)

@Outline3@<:#490,9360>    <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>

@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0>    allocglobalvar(echovar, 1)<:f>

@Outline3@<:#240,9360>    if lcase$(left$(varlabel, 5)) = "type "

@Outline3@<:#240,9360>        lenwithouttype=len(varlabel) - 5

@Outline3@<:#240,9360>        varlabel=right$(varlabel, lenwithouttype)

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>    if lcase$(right$(varlabel, 5)) = " here"

@Outline3@<:#240,9360>        lenwithouthere=len(varlabel) - 5

@Outline3@<:#240,9360>        varlabel=left$(varlabel, lenwithouthere)

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>    varlabel=initcapit(varlabel)

@Outline3@<:#240,9360>    filledit(1000 + i, "{varlabel}:")

@Outline3@<:#240,9360>    filledit(8000 + i, profilestringstuff)

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>SetDlgCallBack(0,"{rmac}!PreBuild")

@Outline3@<:#240,9360>'SetDlgCallBack(23,"{rmac}!savesty")        'keep this only if save as style sheet should be a callback

@Outline2@<:#240,9360>box=dialogbox(".", "autostyle")

@Outline2@<:#240,9360>fillboxfields = box    'set this function's return value to the ID returned by the box

@Outline2@<:#240,9360>if box= 0 or box =2

@Outline2@<:#240,9360>    goto blowout

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>'set global vars & update fields

@Outline3@<:#240,9360>for i = 1 to numglobs

@Outline3@<:#240,9360>    contents=getdialogfield$(8000 +i)

@Outline3@<:#245,9360>    pfid = StrField$(globvars(i), 1, ",")        'get the power <+!>field id<-!>

@Outline3@<:#245,9360>    pftype = StrField$(globvars(i), 2, ",")        'get the power <+!>field type<-!>

@Outline3@<:#245,9360>    pffield = StrField$(globvars(i), 3, ",")        'get the power <+!>field<-!>

@Outline3@<:#245,9360>    varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline3@<:#490,9360>    <:f200,2TimesNewRomanPS,255,0,0>echovar=strcat$(<:f>strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_",<:f200,2TimesNewRomanPS,255,0,0> "echo_"
)<:f>

@Outline3@<:#240,9360><:f200,2TimesNewRomanPS,255,0,0>    setglobalvar(echovar, contents)<:f>

@Outline3@<:#240,9360>    setglobalvar(varname, contents)

@Outline3@<:#240,9360>    if mergefieldspresent=1

@Outline3@<:#240,9360>        result=GoToPowerField(pfid, pftype)

@Outline3@<:#240,9360>'        FieldUpdate(pfid, pftype, pffield)

@Outline3@<:#240,9360>        FieldEvaluate()

@Outline3@<:#240,9360>    endif

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>if mergefieldspresent = 0

@Outline3@<:#240,9360>    fieldupdateall()

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>blowout:

@Outline3@<:#240,9360>    call torchfields(target)

@Outline3@<:#240,9360>    call freeglobs(target)

@Outline3@<:#240,9360>    freeglobalvar("target")

@Outline3@<:#240,9360>    freeglobalvar("numglobs")

@Outline2@<:#240,9360>if box=3

@Outline2@<:#240,9360>    runlater("{rmac}!<:Zbuttoncheck>AmiButtonCheck<:Z~buttoncheck>(25550, 1)", 0.1)

@Outline2@<:#240,9360>    runlater("{rmac}!AmiUIGray(25550, 0)", 0.1)

@Outline2@<:#240,9360>    runlater("{rmac}!AmiUIGray(25551, 0)", 0.1)

@Outline2@<:#240,9360>    runlater("{rmac}!AmiUIGray(25975, 0)", 0.1)

@Outline2@    pause(008)

@Outline2@<:#240,9360>    result = SaveAsNewStyle

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>END FUNCTION

@Outline1@<:#283,9360>function AmiButtonCheck(ID, State)

@Outline2@<:#240,9360>hdlg = getactivewindow()

@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)

@Outline2@<:#240,9360>AppSendMessage(idnew, BM_SETCHECK, state, 0)

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>function AmiUIGray(ID, State)

@Outline2@<:#240,9360>hdlg = getactivewindow()

@Outline2@<:#240,9360>idnew = GetDlgItem(Hdlg, ID)

@Outline2@<:#240,9360>enablewindow(idnew, state)

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>FUNCTION freeglobs(target)

@Outline2@<:#240,9360>'singlestep(0)

@Outline2@<:#240,9360>targlen=len(target)

@Outline2@<:#240,9360>numglobs=getglobalvarcount()

@Outline2@<:#240,9360>dim globnuke(numglobs)

@Outline2@<:#240,9360>getglobalvarnames(&globnuke)

@Outline2@<:#240,9360>for i = 1 to numglobs

@Outline2@<:#240,9360>    if left$(globnuke(i), targlen)=target

@Outline2@<:#240,9360>        freeglobalvar(globnuke(i))

@Outline2@<:#240,9360>    endif

@Outline2@<:#240,9360>next

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>FUNCTION torchfields(target)

@Outline2@<:#240,9360>'singlestep(0)

@Outline2@<:#240,9360>cnt = GetPowerFieldCount(0)

@Outline2@<:#240,9360>if (0 != cnt)

@Outline2@<:#240,9360>    dim fields(cnt)

@Outline2@<:#240,9360>    GetPowerFields(0, &fields)

@Outline2@<:#240,9360>    for i = 1 to cnt

@Outline2@<:#240,9360>        pfid = StrField$(fields(i), 1, ",")

@Outline2@<:#240,9360>        pftype = StrField$(fields(i), 2, ",")

@Outline2@<:#245,9360>        pffield = StrField$(fields(i), 3, ",")        'get the power <+!>field<-!>

@Outline2@<:#245,9360>        varname=StrField$(pffield, 3, " ")        'get the name of the <+!>variable
<-!>in the PF

@Outline2@<:#240,9360>        targlen=len(target)

@Outline2@<:#240,9360>        if left$(varname, targlen)=target

@Outline2@<:#240,9360>            FieldRemove(pfid, pftype);

@Outline2@<:#240,9360>        endif

@Outline2@<:#240,9360>    next

@Outline2@<:#240,9360>else

@Outline2@<:#240,9360>'    message("No fields")

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>END FUNCTION

@Outline1@<:#283,9360>function savesty(Hdlg,id,dummy)    'pitch if not a callback

@Outline2@<:#240,9360>SaveAsNewStyle

@Outline2@<:#240,9360>setfocus(hdlg)

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>Function PreBuild(Hdlg,id,dummy)

@Outline2@<:#240,9360>target=getglobalvar$("target")

@Outline2@<:#240,9360>numglobs=getglobalvar$("numglobs")

@Outline2@<:#240,9360>'font handler

@Outline3@<:#240,9360>Font = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")

@Outline3@<:#240,9360>if (Font)

@Outline3@<:#240,9360>    hctl = GetDlgItem(hDlg, 1050)

@Outline3@<:#240,9360>    hctl2 = GetDlgItem(hDlg, 1060)

@Outline3@<:#240,9360>    SendMessage(hctl, WM_SETFONT, font, 0)

@Outline3@<:#240,9360>    SendMessage(hctl2, WM_SETFONT, font, 0)

@Outline3@<:#240,9360>for i =8000 to 8009

@Outline3@<:#240,9360>    hctl = GetDlgItem(hDlg, i)

@Outline3@<:#240,9360>    SendMessage(hctl, WM_SETFONT, font, 0)

@Outline3@<:#240,9360>next

@Outline3@<:#240,9360>    SetGlobalVar(HFONT, Font)

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>'name the box and show the right buttons and static text

@Outline3@<:#240,9360>CurStyleSheet = GetDocInfo$(3)

@Outline3@<:#240,9360>CurStyleSheet = ucase$(CurStyleSheet)

@Outline3@<:#240,9360>lb=chr$(091)

@Outline3@<:#240,9360>rb=chr$(093)

@Outline3@<:#240,9360>CurStyleSheet = strcat$(lb, CurStyleSheet, rb)

@Outline3@<:#240,9360>if target ="as_def"

@Outline3@<:#240,9360>    TitleBarMsg("Default Information")

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg,3), 1) ' show the save as button

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text

@Outline3@<:#240,9360>    L1="Type the information that you want to appear each time "

@Outline3@<:#240,9360>    L2="you create this type of document.  Choose OK to insert this information "

@Outline3@<:#240,9360>    L3="into the current document only.  Choose Save As to save this "

@Outline3@<:#240,9360>    L4="information to a new style sheet."

@Outline3@<:#240,9360>    helptext="{L1}{L2}{L3}{L4}"

@Outline3@<:#240,9360>    filledit(1050, helptext)

@Outline3@<:#240,9360>else

@Outline3@<:#240,9360>    TitleBarMsg("Optional Information")

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg,3), 0) ' hide the save as button

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg,1060), 0) ' hide the 1060 field static text

@Outline3@<:#240,9360>    L1="Type the information you want to appear "

@Outline3@<:#240,9360>    L2="in this document."

@Outline3@<:#240,9360>    helptext="{L1}{L2}{L3}{L4}"

@Outline3@<:#240,9360>    filledit(1050, helptext)

@Outline3@<:#240,9360>endif

@Outline2@<:#240,9360>'hide static text and edit fields

@Outline3@<:#240,9360>for i = (numglobs + 1) to 9

@Outline3@<:#240,9360>    stid=1000 + i

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg, stid), 0) ' hide the static text field

@Outline3@<:#240,9360>    ebid=8000 + i

@Outline3@<:#240,9360>    ShowWindow(GetDlgItem(Hdlg, ebid), 0) ' hide the edit box

@Outline3@<:#240,9360>next

@Outline2@<:#240,9360>'size the box

@Outline3@<:#240,9360>DIM rect(4)

@Outline3@<:#240,9360>GetWindowRect(hDlg,&rect)

@Outline3@<:#240,9360>x=rect(1)

@Outline3@<:#240,9360>y=rect(2)

@Outline3@<:#240,9360>xL=rect(3)

@Outline3@<:#240,9360>yL=rect(4)

@Outline3@<:#240,9360>MoveBase=24

@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)

@Outline4@<:#240,9360>if target="as_def"

@Outline4@<:#240,9360>    moveshrink=moveshrink + 22

@Outline4@<:#240,9360>    max=145

@Outline4@<:#240,9360>else

@Outline4@<:#240,9360>    moveshrink=moveshrink + 50    'shrink extra amount for less 1050 text

@Outline4@<:#240,9360>    max=217

@Outline4@<:#240,9360>endif

@Outline4@<:#240,9360>if moveshrink <;> max

@Outline4@<:#240,9360>    moveshrink = max

@Outline4@<:#240,9360>endif

@Outline3@<:#240,9360>MoveWindow(hDlg,x,y,xL-x,yL-(y+moveshrink))

@Outline2@<:#240,9360>'move the helptext box

@Outline3@<:#240,9360>hwndCtrl=GetDlgItem(hdlg, 1050)

@Outline3@<:#240,9360>DIM rect2(4)

@Outline3@<:#240,9360>DIM rect3(4)

@Outline3@<:#240,9360>GetWindowRect(hwndCtrl,&rect2)

@Outline3@<:#240,9360>ScreenToClient(hDlg, &rect2)    'convert 1050's screen-relative coordinates to hdlg-relative coordinates

@Outline3@<:#240,9360>GetClientRect(hwndCtrl, &rect3)    'get xL & yL numbers (length & width of 1050)

@Outline3@<:#240,9360>x=rect2(1)

@Outline3@<:#240,9360>y=rect2(2)

@Outline3@<:#240,9360>xL=rect3(3)

@Outline3@<:#240,9360>yL=rect3(4)

@Outline3@<:#240,9360>moveshrink=MoveBase * (9-numglobs)

@Outline4@<:#240,9360>if target="as_def"

@Outline4@<:#240,9360>    max=137

@Outline4@<:#240,9360>else

@Outline4@<:#240,9360>    max=167

@Outline4@<:#240,9360>endif

@Outline4@<:#240,9360>if moveshrink <;> max

@Outline4@<:#240,9360>    moveshrink = max

@Outline4@<:#240,9360>endif

@Outline3@<:#240,9360>MoveWindow(hwndCtrl,x,y-moveshrink,xL,yL)

@Outline2@<:#240,9360>END FUNCTION

@Outline1@<:#283,9360>function initcapit(string)

@Outline2@<:#240,9360>if instr(0, " SSN ", string) != 0

@Outline2@<:#240,9360>    initcapit=string

@Outline2@<:#240,9360>    exit function

@Outline2@<:#240,9360>endif

@Outline2@<:#240,9360>firstchar=left$(string, 1)

@Outline2@<:#240,9360>restchars=lcase$(right$(string, (len(string) - 1)))

@Outline2@<:#240,9360>initcapit=strcat$(firstchar, restchars)

@Outline2@<:#240,9360>end function

@Outline1@<:#283,9360>DIALOG    autostyle

@Outline2@<:#240,9360>-2134376448    23    115    57    231    185    ""    ""    "_LETTER1.STY Information"

@Outline2@<:#240,9360>FONT    8    "Helv"

@Outline2@<:#240,9360>78    6    91    12    8001    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    21    91    12    8002    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    36    91    12    8003    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    51    91    12    8004    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    66    91    12    8005    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    81    91    12    8006    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    96    91    12    8007    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    111    91    12    8008    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>78    126    91    12    8009    1350631552    "edit"    ""    0

@Outline2@<:#240,9360>173    5    53    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#240,9360>173    22    53    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#240,9360>173    39    53    14    3    1342373888    "button"    "Save &As..."    0

@Outline2@<:#240,9360>3    8    75    9    1001    1342177280    "static"    "fld1:"    0

@Outline2@<:#240,9360>3    23    75    9    1002    1342177280    "static"    "fld2:"    0

@Outline2@<:#240,9360>3    38    75    9    1003    1342177280    "static"    "fld3:"    0

@Outline2@<:#240,9360>3    53    75    9    1004    1342177280    "static"    "fld4:"    0

@Outline2@<:#240,9360>3    68    75    9    1005    1342177280    "static"    "fld5:"    0

@Outline2@<:#240,9360>3    83    75    9    1006    1342177280    "static"    "fld6:"    0

@Outline2@<:#240,9360>3    98    75    9    1007    1342177280    "static"    "fld7:"    0

@Outline2@<:#240,9360>3    113    75    9    1008    1342177280    "static"    "fld8:"    0

@Outline2@<:#240,9360>3    128    75    9    1009    1342177280    "static"    "fld9:"    0

@Outline2@<:#240,9360>3    143    222    36    1050    1342177280    "static"    "Default box text"    0

@Outline2@<:#240,9360>3    143    219    36    1060    1342177280    "static"    "User box text"    0

@Outline2@<:#240,9360>END DIALOG

>

[Embedded]
00028408
>
[macsum] 10
main 0 0 10 24
fillboxfields 1179 1 26 79
AmiButtonCheck 4458 2 3 198
AmiUIGray 4584 2 3 203
freeglobs 4721 1 5 208
torchfields 4985 1 9 220
savesty 5424 3 1 240
PreBuild 5488 3 28 244
initcapit 8256 1 3 334
autostyle 8472 0 -1 343
[macse]
14 main
0 267
13
7 ""
18 1
0 34 0 0
13
5 0
18 1
1 2
11 00000194
0 3 "This macro is for automated style sheets.  To use it, choose File/New and leave Run macro selected."
6 0
15
9
0 296 1
0 32 2
0 802
13
8 1
0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
13
8 2
6 2
5 1
18 0
11 00000365
16 torchfields "as_"
6 0
15
9
10 00000450
6 2
7 ""
18 0
11 00000450
0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
13
8 3
6 3
5 1
18 1
11 00000589
0 295
13
8 4
7 "{4}collect.smm"
8 5
16 "{5}"
0 271 "Setfont:hFont" 1
0 264 "Setfont:hFont" 0
0 1304 0
13
8 6
5 0
6 6
18 1
11 00000899
16 fillboxfields "as_def"
13
8 7
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000786
10 00000899
16 fillboxfields "as_user"
13
8 7
6 7
5 0
18 0
6 7
5 2
18 0
1 2
11 00000886
10 00000899
10 00000899
16 torchfields "as_"
7 "as_starttext"
8 8
2 466 1 "{8}" 4002
13
8 7
6 7
5 1
18 0
11 00001022
2 466 1 "{8}" 4004
0 265 "Setfont:hFont"
13
8 9
5 0
6 9
18 1
11 00001118
0 284 "gdi,DeleteObject,HH" "{9}"
0 266 "Setfont:hFont"
2 109 1 "" "" 1
0 296 0
6 0
15
9
14 fillboxfields
20 00002979
0 1304 0
13
8 2
6 2
5 0
18 0
11 00000091
6 1
15
9
0 802
13
8 3
0 271 "target" 1
0 264 "target" "{0}"
6 2
21 4 [X]
5 1
21 5 [X]
5 1
21 6 [X]
5 0
8 7
0 1305 0 &4
5 0
8 8
5 1
8 9
6 2
6 9
18 2
12 00000310
10 00000963
5 1
6 9
3 0
8 9
10 00000235
6 9
22 4
0 20 [X] 2 ","
13
8 10
6 10
5 12
18 0
11 00000388
5 1
8 8
6 9
22 4
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
0 20 "{12}" 6 "_"
13
8 13
0 17 "{13}"
13
7 "address2"
18 0
11 00000544
5 1
8 14
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
0 14 "{0}"
13
8 16
0 806 "{12}" "{16}"
13
6 0
18 0
6 13
7 "echo"
18 1
1 1
11 00000950
6 7
5 1
3 0
8 7
6 9
22 4
0 1041 &5 "{7}" [X]
13
8 17
6 17
5 0
18 0
11 00000950
10 00002979
0 1041 &6 "{7}" "{15}"
10 00000277
6 7
5 0
18 0
11 00001014
5 3
8 1
6 1
15
9
0 271 "numglobs" 1
0 264 "numglobs" "{7}"
0 1043 &5 3 "_"
5 1
8 9
6 7
6 9
18 2
12 00001160
10 00002243
5 1
6 9
3 0
8 9
10 00001085
6 9
22 5
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
0 39 34
13
8 18
6 9
22 5
0 20 [X] 2 "{18}"
13
8 19
0 20 "{12}" 6 "_"
13
8 13
7 ""
8 20
6 13
5 -1
18 1
6 13
7 "echo"
18 1
6 13
7 ""
18 1
1 1
1 1
11 00001661
0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
13
8 20
0 17 "{13}"
13
7 "address1"
18 0
6 14
5 1
18 1
1 1
11 00001661
0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
13
8 21
6 21
7 ""
18 1
11 00001661
0 16 "{20}" ", " "{21}"
13
8 20
0 271 "{12}" 1
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
0 271 "{15}" 1
0 806 "{19}" 5
13
0 17 [X]
13
7 "type "
18 0
11 00002000
0 14 "{19}"
13
5 5
3 1
8 22
0 807 "{19}" "{22}"
13
8 19
0 807 "{19}" 5
13
0 17 [X]
13
7 " here"
18 0
11 00002128
0 14 "{19}"
13
5 5
3 1
8 23
0 806 "{19}" "{23}"
13
8 19
16 initcapit "{19}"
13
8 19
5 1000
6 9
3 0
0 31 [X] "{19}:"
5 8000
6 9
3 0
0 31 [X] "{20}"
10 00001127
0 41 0 "{3}!PreBuild"
0 26 "." "autostyle"
13
8 24
6 24
8 1
6 24
5 0
18 0
6 24
5 2
18 0
1 2
11 00002374
10 00002979
5 1
8 9
6 7
6 9
18 2
12 00002459
10 00002941
5 1
6 9
3 0
8 9
10 00002384
5 8000
6 9
3 0
0 27 [X]
13
8 25
6 9
22 5
0 20 [X] 1 ","
13
8 26
6 9
22 5
0 20 [X] 2 ","
13
8 10
6 9
22 5
0 20 [X] 3 ","
13
8 11
0 20 "{11}" 3 " "
13
8 12
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
0 264 "{15}" "{25}"
0 264 "{12}" "{25}"
6 8
5 1
18 0
11 00002928
0 1306 "{26}" "{10}"
13
8 17
2 571 1
10 00002426
6 8
5 0
18 0
11 00002979
2 267 1
16 torchfields "{0}"
16 freeglobs "{0}"
0 266 "target"
0 266 "numglobs"
6 24
5 3
18 0
11 00003267
0 285 "{3}!AmiButtonCheck(25550, 1)" 0.1
0 285 "{3}!AmiUIGray(25550, 0)" 0.1
0 285 "{3}!AmiUIGray(25551, 0)" 0.1
0 285 "{3}!AmiUIGray(25975, 0)" 0.1
0 274 008
24 305
13
8 17
6 1
15
9
14 AmiButtonCheck
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 1036 "{4}" 1025 "{1}" 0
6 2
15
9
14 AmiUIGray
0 284 "user,GetActiveWindow,H"
13
8 3
0 44 "{3}" "{0}"
13
8 4
0 284 "User,EnableWindow,AHH" "{4}" "{1}"
6 2
15
9
14 freeglobs
0 14 "{0}"
13
8 2
0 299
13
8 3
6 3
21 4 [X]
0 300 &4
5 1
8 5
6 3
6 5
18 2
12 00000161
10 00000252
5 1
6 5
3 0
8 5
10 00000086
6 5
22 4
0 806 [X] "{2}"
13
6 0
18 0
11 00000239
6 5
22 4
0 266 [X]
10 00000128
6 1
15
9
14 torchfields
0 1304 0
13
8 2
5 0
6 2
18 1
11 00000427
6 2
21 3 [X]
0 1305 0 &3
5 1
8 4
6 2
6 4
18 2
12 00000177
10 00000414
5 1
6 4
3 0
8 4
10 00000102
6 4
22 3
0 20 [X] 1 ","
13
8 5
6 4
22 3
0 20 [X] 2 ","
13
8 6
6 4
22 3
0 20 [X] 3 ","
13
8 7
0 20 "{7}" 3 " "
13
8 8
0 14 "{0}"
13
8 9
0 806 "{8}" "{9}"
13
6 0
18 0
11 00000401
2 227 1 "{5}" "{6}"
10 00000144
10 00000427
6 1
15
9
14 savesty
24 305
0 284 "user,SetFocus,HH" "{0}"
6 3
15
9
14 PreBuild
0 265 "target"
13
8 4
0 265 "numglobs"
13
8 5
0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
13
8 6
6 6
11 00000527
0 44 "{0}" 1050
13
8 7
0 44 "{0}" 1060
13
8 8
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
0 284 "user,SendMessage,HHHHJ" "{8}" 48 "{6}" 0
5 8000
8 9
5 8009
6 9
18 2
12 00000409
10 00000498
5 1
6 9
3 0
8 9
10 00000331
0 44 "{0}" "{9}"
13
8 7
0 284 "user,SendMessage,HHHHJ" "{7}" 48 "{6}" 0
10 00000376
0 264 "Setfont:hFont" "{6}"
0 279 3
13
8 10
0 18 "{10}"
13
8 10
0 39 091
13
8 11
0 39 093
13
8 12
0 16 "{11}" "{10}" "{12}"
13
8 10
6 4
7 "as_def"
18 0
11 00001213
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Default Information"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 1
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Type the information that you want to appear each time "
8 13
7 "you create this type of document.  Choose OK to insert this information "
8 14
7 "into the current document only.  Choose Save As to save this "
8 15
7 "information to a new style sheet."
8 16
7 "{13}{14}{15}{16}"
8 17
0 31 1050 "{17}"
10 00001544
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Optional Information"
0 44 "{0}" 3
13
0 284 "User,ShowWindow,AHH" [X] 0
0 44 "{0}" 1060
13
0 284 "User,ShowWindow,AHH" [X] 0
7 "Type the information you want to appear "
8 13
7 "in this document."
8 14
7 "{13}{14}{15}{16}"
8 17
0 31 1050 "{17}"
6 5
5 1
3 0
8 9
5 9
6 9
18 2
12 00001639
10 00001816
5 1
6 9
3 0
8 9
10 00001564
5 1000
6 9
3 0
8 18
0 44 "{0}" "{18}"
13
0 284 "User,ShowWindow,AHH" [X] 0
5 8000
6 9
3 0
8 19
0 44 "{0}" "{19}"
13
0 284 "User,ShowWindow,AHH" [X] 0
10 00001606
5 4
21 20 [X]
0 284 "user,GetWindowRect,HHN" "{0}" &20
5 1
22 20
8 21
5 2
22 20
8 22
5 3
22 20
8 23
5 4
22 20
8 24
5 24
8 25
6 25
5 9
6 5
3 1
4 0
8 26
6 4
7 "as_def"
18 0
11 00002075
6 26
5 22
3 0
8 26
5 145
8 27
10 00002111
6 26
5 50
3 0
8 26
5 217
8 27
6 26
6 27
18 3
11 00002154
6 27
8 26
6 23
6 21
3 1
6 24
6 22
6 26
3 0
3 1
0 284 "user,MoveWindow,HHHHHHH" "{0}" "{21}" "{22}" [X] [X] 1
0 44 "{0}" 1050
13
8 28
5 4
21 29 [X]
5 4
21 30 [X]
0 284 "user,GetWindowRect,HHN" "{28}" &29
0 284 "user,ScreenToClient,HHN" "{0}" &29
0 284 "user,GetClientRect,HHN" "{28}" &30
5 1
22 29
8 21
5 2
22 29
8 22
5 3
22 30
8 23
5 4
22 30
8 24
6 25
5 9
6 5
3 1
4 0
8 26
6 4
7 "as_def"
18 0
11 00002616
5 137
8 27
10 00002629
5 167
8 27
6 26
6 27
18 3
11 00002672
6 27
8 26
6 22
6 26
3 1
0 284 "user,MoveWindow,HHHHHHH" "{28}" "{21}" [X] "{23}" "{24}" 1
6 3
15
9
14 initcapit
0 808 0 " SSN " "{0}"
13
5 0
18 1
11 00000087
6 0
8 1
6 1
15
9
0 806 "{0}" 1
13
8 2
0 14 "{0}"
13
5 1
3 1
0 807 "{0}" [X]
13
0 17 [X]
13
8 3
0 16 "{2}" "{3}"
13
8 1
6 1
15
9
DIALOG autostyle
-2134376448 23 115 57 231 185 "" "" "_LETTER1.STY 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
173 39 53 14 3 1342373888 "button" "Save &As..." 0
3 8 75 9 1001 1342177280 "static" "fld1:" 0
3 23 75 9 1002 1342177280 "static" "fld2:" 0
3 38 75 9 1003 1342177280 "static" "fld3:" 0
3 53 75 9 1004 1342177280 "static" "fld4:" 0
3 68 75 9 1005 1342177280 "static" "fld5:" 0
3 83 75 9 1006 1342177280 "static" "fld6:" 0
3 98 75 9 1007 1342177280 "static" "fld7:" 0
3 113 75 9 1008 1342177280 "static" "fld8:" 0
3 128 75 9 1009 1342177280 "static" "fld9:" 0
3 143 222 36 1050 1342177280 "static" "Default box text" 0
3 143 219 36 1060 1342177280 "static" "User box text" 0
00028433