Piper's Pit BBS/FTP: ibm 0020 - 0029/ibm0020-0029/ibm0028.tar/ibm0028/AMWP-2.ZIP/MACROS.ZIP/MACNEW.SMM

INI File | 1990-05-02 | 6.2 KB | 833 lines

[ver]
    4
[sty]

[files]
[prn]
    PCL / HP LaserJet
[lang]
    1
[desc]
    Runs  when a specified style sheet is chosen when creating a new file.  This macro doesn't do much.  Use as an example.




    641683098
    11
    641336165
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Body Single
    3
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    First Indent
    4
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        161
        1
        0
        360
        0
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Justified
    5
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        232
        1
        0
        0
        0
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    First Bullet
    6
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        65
        1
        720
        0
        360
    [spc]
        17
        273
        1
        144
        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]
        280
        1
        3
        .
        ,
        $
[tag]
    Second Bullet
    7
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        65
        1
        1080
        0
        360
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*1>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Indented 1
    8
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        193
        1
        1080
        0
        0
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Indented 2
    9
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        193
        1
        1440
        0
        0
    [spc]
        17
        273
        1
        144
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Line Above
    11
    [fnt]
        Courier
        240
        0
        32768
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        288
        0
        1
        100
    [brk]
        4
    [line]
        5
        0
        1
        0
        1
        2
        1
        92
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[tag]
    Bold & Center
    12
    [fnt]
        Courier
        240
        0
        32769
    [algn]
        228
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        280
        1
        3
        .
        ,
        $
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        2
        1
        0
        1
        1
        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
        1
        1
        3
        1
        0
        0
        0
    [frmlay]
        1440
        12240
        1
        1440
        0
        1
        0
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        1
        1
        3
        1
        0
        0
        0
    [frmlay]
        15840
        12240
        1
        1440
        0
        1
        14400
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[edoc]
'

' NewFun - perform various macro functions when a file is first

'    created.  This macro was designed to run directly from the

'    File/New menu.

'

FUNCTION newfun()

DECLARE    TypeToFrom(p1, p2)

if (new)

    ' OK  a new file blank file has been created.  Get the

    ' StyleSheet name and then decide what to do.

    sty = GetDocDesc$(DDStylesheet)

'********************************************************

' Put the style you want to use in place of ~MEMO1.STY'

'********************************************************

    if (ucase$(sty) = "~MEMO1.STY")

        ' Its a memo, get the whoto and whofrom then type

        ' that into the file for them.


        macpath = GetProfileString$("", "macrodir")

        stat = DialogBox("{macpath}\tofrom.ext", "tofrom")

        if (1 = stat)

            whoto = GetDialogField$(8000)

            whofrom = GetDialogField$(8001)

            TypeToFrom(whoto, whofrom)

        elseif (-1 = stat)

            message("Error finding the dialog box")

        endif

    endif

endif


END FUNCTION<:p<* >>

'

' TypeToFrom - type in to and from.  This first line will contain

'    the date.

'

FUNCTION TypeToFrom(tox, fromx)

SetStyle("Date")

InsertDate(Today, UMDY)

Type("<[>enter]<[>enter]")

@Date@
SetStyle("To")

Type("TO: {tox}<[>enter]")


SetStyle("From")

Type("FROM: {fromx}<[>enter]")

SetStyle("Body Text")

Type("<[>enter]")

END FUNCTION



>
[macsum] 2
newfun 0 0 6 5
TypeToFrom 363 2 1 35
[macse]
14 newfun
24 101
13
11 00000351
0 279 3
13
8 1
0 18 "{1}"
13
7 "~MEMO1.STY"
18 0
11 00000351
0 286 "" "macrodir"
13
8 2
0 26 "{2}\tofrom.ext" "tofrom"
13
8 3
5 1
6 3
18 0
11 00000285
0 27 8000
13
8 4
0 27 8001
13
8 5
16 TypeToFrom "{4}" "{5}"
10 00000351
5 -1
6 3
18 0
11 00000351
0 3 "Error finding the dialog box"
6 0
15
9
14 TypeToFrom
0 289 "Date"
2 165 1 2 66
0 6 "[13][13]"
0 289 "To"
0 6 "TO: {0}[13]"
0 289 "From"
0 6 "FROM: {1}[13]"
0 289 "Body Text"
0 6 "[13]"
6 2
15
9
00005796