Shareware Overload/ShartewareOverload.cdr/windows/amimacro.zip/PACK.SMM

INI File | 1990-06-08 | 9KB | 1,182 lines

[ver]
    4
[sty]

[files]
[prn]
    PCL / HP LaserJet
[lang]
    1
[desc]





    644861065
    9
    644702399
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        481
        1
        0
        0
        0
    [spc]
        17
        288
        1
        0
        288
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        9
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Body Single
    3
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        481
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        288
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Bullet 1
    4
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        65
        1
        360
        360
        360
    [spc]
        17
        273
        1
        0
        144
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Bullet 2
    5
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        65
        1
        720
        360
        360
    [spc]
        17
        273
        1
        0
        144
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0
        <*0>
        29284
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Indent 1
    6
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        449
        1
        720
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Indent 2
    7
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        449
        1
        1080
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Number List
    8
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        321
        1
        360
        360
        360
    [spc]
        17
        273
        1
        0
        144
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0
        <*:>:
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    To/From/Date
    9
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Regarding
    11
    [fnt]
        ITC Galliard
        220
        0
        49152
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        273
        1
        360
        360
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        2
        2
        20
        20
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[tag]
    Title
    12
    [fnt]
        Swiss
        280
        0
        16384
    [algn]
        225
        1
        0
        0
        0
    [spc]
        17
        288
        1
        0
        288
        1
        100
    [brk]
        4
    [line]
        10
        0
        1
        0
        1
        2
        3
        20
        112
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
[lay]
    Standard
    516
    [rght]
        16834
        11907
        2
        1440
        1701
        2
        1701
        1440
        2
        1
        0
        2
        0
        2
        1
        1440
        10465
        5
        1
        725
        1
        1445
        1
        2885
        1
        4325
        1
        5765
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        11905
        1701
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        1701
        11905
        1
        1440
        73
        2
        357
        1440
        2
        1
        0
        1
        1
        0
        1
        1440
        10465
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        15133
        11905
        16834
        1
        1
        3
        1
        5
        0
        0
    [frmlay]
        16834
        11905
        1
        1440
        357
        2
        15206
        1440
        2
        1
        0
        1
        1
        0
        1
        1440
        10465
        0
    [txt]
>
[elay]
[l1]
    0
[edoc]
FUNCTION packr()

mp=GetMacPath$()

box=Strcat$(mp, "pack.ext")

start:

obj=DialogBox(box, "Files")

SWITCH obj

    case -1

         Message("Dialog-Box Not Found!")

        EXIT FUNCTION

    case 0

        EXIT FUNCTION

    case 1

        firstname=GetDialogField$(8002)

        company=GetDialogField$(8003)

        GOTO makesearch

ENDSWITCH

makesearch:

pid=DDEInitiate("packrat2" "system")

IF (0=pid)

    exec("packrat2.exe","")

    pid=DDEInitiate("packrat2" "system")

    IF (0=pid)

        Message("Cannot start PacRat, Bye...")

        EXIT FUNCTION

    ENDIF

ENDIF

DDEExecute(pid, "<[><[>SEARCH(P,{firstname},{company})]")

hits=DDEReceive$(pid, "TOTAL")

IF (hits=0)

    x=Decide("No matches found. Make another search?")

    IF(x=0)

        EXIT FUNCTION

    ELSEIF(x=1)

        GOTO start

    ENDIF

ELSEIF (hits<<>>1)

    GOTO cont

ENDIF

cont:

match=DDEReceive$(pid, "ITEM")

n1=strfield$(match, 2, "    ")

n2=strfield$(match, 4, "    ")

n3=strfield$(match, 7, "    ")

n4=strfield$(match, 3, "    ")

n5=strfield$(match, 10, "    ")

n6=strfield$(match, 8, "    ")

n7=strfield$(match, 9, "    ")

n8=strfield$(match, 11, "    ")

IF (n2="")

    n1b=n1

ELSEIF (n2<<>>"")

    n1b=strcat$(n1, ", {n2}")

ENDIF

FillList(n1b)

FillList(n3)

FillList(n4)

FillList(n5)

FillList(n6)

FillList(n7)

FillList(n8)

FillEdit(8001, hits)

subj=DialogBox(box, "Files2")

IF (n1b="")

    f2=""

ELSEIF (n1b<<>>"")

    f2=StrCat$(n1b, "<[>ENTER]")

ENDIF

IF (n3="")

    f3=""

ELSEIF (n3<<>>"")

    f3=StrCat$(n3, "<[>ENTER]")

ENDIF

IF (n4="")

    f4=""

ELSEIF (n4<<>>"")

    f4=StrCat$(n4, "<[>ENTER]")

ENDIF

IF (n5="")

    f5=""

ELSEIF (n5<<>>"")

    f5=StrCat$(n5, "<[>ENTER]")

ENDIF

IF (n6="")

    f6=""

ELSEIF (n6<<>>"")

    f6=StrCat$(n6, "<[>ENTER]")

ENDIF

IF (n7="")

    f7=""

ELSEIF (n7<<>>"")

    f7=StrCat$(n7, "<[>ENTER]")

ENDIF

IF (n8="")

    f8=""

ELSEIF (n8<<>>"")

    f8=StrCat$(n8, "<[>ENTER]")

ENDIF

SWITCH subj

    case 2

        DDETerminate(pid)

        EXIT FUNCTION

    case 3

        GOTO start

    case 4

        DDEReceive$(pid, "DEC")

        GOTO cont

    case 5

        DDEReceive$(pid, "INC")

        GOTO cont

    case 6

        TYPE("{f2}{f3}{f4}{f5}{f6}{f7}{f8}")

        GOTO closing

ENDSWITCH

closing:

DDETerminate(pid)

END FUNCTION


>
[macsum] 1
packr 0 0 27 0
[macse]
14 packr
0 295
13
8 1
0 16 "{1}" "pack.ext"
13
8 2
0 26 "{2}" "Files"
13
8 3
5 -1
6 3
18 0
11 00000171
0 3 "Dialog-Box Not Found!"
6 0
15
9
10 00000307
5 0
6 3
18 0
11 00000225
6 0
15
9
10 00000307
5 1
6 3
18 0
11 00000307
0 27 8002
13
8 4
0 27 8003
13
8 5
10 00000307
0 8 "packrat2" "system"
13
8 6
5 0
6 6
18 0
11 00000504
0 22 "packrat2.exe" ""
0 8 "packrat2" "system"
13
8 6
5 0
6 6
18 0
11 00000504
0 3 "Cannot start PacRat, Bye..."
6 0
15
9
0 11 "{6}" "[[SEARCH(P,{4},{5})]"
0 10 "{6}" "TOTAL"
13
8 7
6 7
5 0
18 0
11 00000761
0 2 "No matches found. Make another search?"
13
8 8
6 8
5 0
18 0
11 00000706
6 0
15
9
10 00000748
6 8
5 1
18 0
11 00000748
10 00000058
10 00000803
6 7
5 1
18 1
11 00000803
10 00000803
0 10 "{6}" "ITEM"
13
8 9
0 20 "{9}" 2 "    "
13
8 10
0 20 "{9}" 4 "    "
13
8 11
0 20 "{9}" 7 "    "
13
8 12
0 20 "{9}" 3 "    "
13
8 13
0 20 "{9}" 10 "    "
13
8 14
0 20 "{9}" 8 "    "
13
8 15
0 20 "{9}" 9 "    "
13
8 16
0 20 "{9}" 11 "    "
13
8 17
6 11
7 ""
18 0
11 00001113
6 10
8 18
10 00001176
6 11
7 ""
18 1
11 00001176
0 16 "{10}" ", {11}"
13
8 18
0 25 "{18}"
0 25 "{12}"
0 25 "{13}"
0 25 "{14}"
0 25 "{15}"
0 25 "{16}"
0 25 "{17}"
0 31 8001 "{7}"
0 26 "{2}" "Files2"
13
8 19
6 18
7 ""
18 0
11 00001371
7 ""
8 20
10 00001432
6 18
7 ""
18 1
11 00001432
0 16 "{18}" "[13]"
13
8 20
6 12
7 ""
18 0
11 00001488
7 ""
8 21
10 00001549
6 12
7 ""
18 1
11 00001549
0 16 "{12}" "[13]"
13
8 21
6 13
7 ""
18 0
11 00001605
7 ""
8 22
10 00001666
6 13
7 ""
18 1
11 00001666
0 16 "{13}" "[13]"
13
8 22
6 14
7 ""
18 0
11 00001722
7 ""
8 23
10 00001783
6 14
7 ""
18 1
11 00001783
0 16 "{14}" "[13]"
13
8 23
6 15
7 ""
18 0
11 00001839
7 ""
8 24
10 00001900
6 15
7 ""
18 1
11 00001900
0 16 "{15}" "[13]"
13
8 24
6 16
7 ""
18 0
11 00001956
7 ""
8 25
10 00002017
6 16
7 ""
18 1
11 00002017
0 16 "{16}" "[13]"
13
8 25
6 17
7 ""
18 0
11 00002073
7 ""
8 26
10 00002134
6 17
7 ""
18 1
11 00002134
0 16 "{17}" "[13]"
13
8 26
5 2
6 19
18 0
11 00002200
0 9 "{6}"
6 0
15
9
10 00002483
5 3
6 19
18 0
11 00002256
10 00000058
10 00002483
5 4
6 19
18 0
11 00002330
0 10 "{6}" "DEC"
10 00000803
10 00002483
5 5
6 19
18 0
11 00002404
0 10 "{6}" "INC"
10 00000803
10 00002483
5 6
6 19
18 0
11 00002483
0 6 "{20}{21}{22}{23}{24}{25}{26}"
10 00002483
0 9 "{6}"
6 0
15
9
00006558