Windoware/WINDOWARE_1_6.iso/macros/apmac10/env.smm

INI File | 1991-12-30 | 4KB | 427 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]
    Quickly print an evelope from a shaded address.




    689045243
    3
    688344439
    34
    1
    91
    645
    3
    3






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        Courier
        200
        0
        32768
    [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]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Function
    3
    [fnt]
        Courier
        200
        0
        32769
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Header
    4
    [fnt]
        Tms Rmn
        200
        0
        49153
    [algn]
        4
        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]
        272
        1
        3
        .
        ,
        $
    Header
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        720
        1080
        1
        1252
        1440
        2
        1
        0
        1
        1
        2
        1
        720
        10800
        14
        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
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1252
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1252
        12240
        1
        1440
        0
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
@Header@<:X3,0;GetDocInfo$(1)>ENV.SMM<:X~3,0;GetDocInfo$(1)>

@Header@<:X3,0;Description>Quickly print an evelope from a shaded address.<:X~3,0;Description>

@Header@By:  Todd E. Fuder, <:X3,0;EditDate %Dd>Thursday, October 24, 1991<:X~3,0;EditDate %Dd> at
<:X3,0;EditDate %T6>4:17 pm<:X~3,0;EditDate %T6>

@Header@
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14760
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14940
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
@Header@Revision Number <:X3,0;NumEdits>1<:X~3,0;NumEdits>

@Header@<:P10,0,Page > of <:X3,16384;NumPages>1<:X~3,16384;NumPages>

>
[elay]
[l1]
    0
[edoc]
@Function@<:#202,10080>FUNCTION Envelope()

singlestep(0)

<:#202,10080>DEFSTR Address;

<:#202,10080>EnvStyle = "~ENV.STY"                    'Envelope Style Sheet to Use

WHILE ("" = Assign(&Address, CurShade$()))    'Prompt while address not shaded

<:#202,10080>    UserControl("Shade the address, then choose Resume...")

<:#202,10080>WEND

<:#202,10080>Copy()                            'Copy address to clipboard

<:#202,10080>New(EnvStyle, 1, 0)                    'Open new envelope style sheet

<:#202,10080>Paste()                            'Paste address from clipboard

<:#202,10080>FilePrint(1, 1, 9999, 1537)                'Print envelope

<:#202,10080>FileChanged(1, 0)                        'Make file changed flag "clean"

<:#202,10080>FileClose()                            'Close envelope window

@Function@<:#202,10080>END FUNCTION

>

[Embedded]
00003434
>
[macsum] 1
Envelope 0 0 3 0
[macse]
14 Envelope
0 4 0
17 2
29 1 Address
17 3
29 2 EnvStyle
7 "~ENV.STY"
8 2
17 4
7 ""
0 24
13
0 805 &1 [X]
13
18 0
11 00000206
17 5
0 7 "Shade the address, then choose Resume..."
10 00000080
17 7
2 154 1
17 8
2 101 1 "{2}" 1 0
17 9
2 155 1
17 10
2 111 1 1 1 9999 1537
17 11
0 34 1 0
17 12
2 147 1
6 0
15
17 13
9
00003459