OS/2 Shareware BBS: 10 Tools/10-Tools.zip/hwi.zip/HWIPBK.DAT/PBKAMDDE.SMM

INI File | 1995-05-10 | 8KB | 589 lines

[ver]
    4
[sty]
    _DEFAULT.STY
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[PanoseFontTable]
    3
    5
    Helvetica
    0
    0
    0
    0
    0
    Helv
    0
    0
    0
    0
    0
    Times New Roman
    0
    0
    0
    0
    0
[revisions]
    0
[recfile]


    1
    1
    3
    8
    0
    0
[lang]
    7
[desc]
    PAB/2 Musterbrief erstellen und vorher aus PAB/2 die Daten der angezeigten Adresse holen.




    800171324
    23
    743875964
    273
    2
    244
    2014
    10
    13






    1
[prn]
    HP LaserJet Series II
[port]
    LPT1.OS2
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Text
    1
[docopts]
    5
    2
[GramStyle]

[lay]
    Standard
    516
    [rght]
        16838
        11905
        1
        720
        1077
        1
        1253
        1440
        2
        1
        0
        1
        0
        2
        1
        720
        10465
        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
    [frght]
    [lyfrm]
        0
        13184
        0
        15761
        11907
        16838
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        16838
        11907
        1
        1440
        360
        1
        15941
        1440
        0
        1
        0
        0
        0
        0
        1
        1440
        10465
        0
    [txt]
@Kopfzeile@<:#P29573120,P943718>Seite <:P11,0,> von <:X3,0;NumPages>2<:X~3,0;NumPages>

>
    [hrght]
    [lyfrm]
        0
        11136
        0
        0
        11907
        1253
        0
        1
        1
        0 0 0 0 0 0 0
        0
        16777215
        0
    [frmlay]
        1253
        11907
        1
        1440
        0
        1
        360
        1440
        0
        1
        0
        0
        0
        0
        1
        1440
        10465
        0
    [txt]
@Kopfzeile@<:#P29573120,P943718><:X3,0;GetDocInfo$(1)>PBKAMDDE.SMM<:X~3,0;GetDocInfo$(1)>

@Kopfzeile@<:#P29573120,P943718><:X3,0;Description>Musterbrief erstellen und vorher aus Pbook/2 die Daten der angezeigten Adresse holen.<:X~3,0;Description>

@Kopfzeile@<:#P29573120,P943718>von: JJA

@Kopfzeile@<:#P29573120,P943718><:X3,0;EditDatum %Dd><<EditDatum<;><:X~3,0;EditDatum %Dd> at <:X3,0;EditDatum %T6><<EditDatum<;><:X~3,0;EditDatum %T6>

@Kopfzeile@<:#P29573120,P943718>

>
[elay]
[l1]
    0
[edoc]
<:#P31932416,P943718>FUNCTION PBKBrief()

<:#P31932416,P943718>

<:#P31932416,P943718>MacroPath = GetMacPath$()

<:#P31932416,P943718>PBOOKAlloc = "{MacroPath}PBKGETA.SMM!PBOOKAllocPBKAddress"

<:#P31932416,P943718>PBOOKGet = "{MacroPath}PBKGETA.SMM!PBOOKGetAddress"

<:#P31932416,P943718>PBOOKFree = "{MacroPath}PBKGETA.SMM!PBOOKFreePBKAddress"

<:#P31932416,P943718>

<:#P31932416,P943718>IgnoreKeyboard(1)

<:#P31932416,P943718>HourGlass(1)

<:#P31932416,P943718>

<:#P31932416,P943718>CALLI PBOOKAlloc() ' allocate memory for address fields

<:#P31932416,P943718>CALLI PBOOKGet() ' get the address fields per dde from PBK/2

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",1)

<:#P31932416,P943718>IF Buffer = "" ' error in receive address fields

<:#P31932416,P943718>    EXIT FUNCTION

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>

<:#P31932416,P943718>' write address

<:#P31932416,P943718>TYPE ("<[>CTRLEnd]<[>Enter]")

<:#P31932416,P943718>' ANREDE

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",19)

<:#P31932416,P943718>TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>' VORNAME

<:#P31932416,P943718> Buffer = GetGlobalArray$("PBKAddress",2)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>' NAME

<:#P31932416,P943718> Buffer = GetGlobalArray$("PBKAddress",1)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>' POSTFACH(6) oder STRASSE(3) mit der dazugehoerigen PLZ

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",6)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]<[>Enter]")

<:#P31932416,P943718>    Buffer = GetGlobalArray$("PBKAddress",7)

<:#P31932416,P943718>    IF Buffer != ""

<:#P31932416,P943718>        TYPE ("{Buffer} ")

<:#P31932416,P943718>    ENDIF

<:#P31932416,P943718>ELSE

<:#P31932416,P943718>    Buffer = GetGlobalArray$("PBKAddress",3)

<:#P31932416,P943718>    TYPE ("{Buffer} ")

<:#P31932416,P943718>    Buffer = GetGlobalArray$("PBKAddress",4)

<:#P31932416,P943718>    TYPE ("{Buffer} ")

<:#P31932416,P943718>    Buffer = GetGlobalArray$("PBKAddress",5)

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>    Buffer = GetGlobalArray$("PBKAddress",7)

<:#P31932416,P943718>    IF Buffer != ""

<:#P31932416,P943718>        TYPE ("{Buffer} ")

<:#P31932416,P943718>    ENDIF

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>' ORT

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",8)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>' LAND

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",11)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}<[>Enter]")

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>TYPE ("<[>Enter]<[>Enter]<[>Enter]")

<:#P31932416,P943718>

<:#P31932416,P943718>' insert date glossary

<:#P31932416,P943718>FieldAdd("CreateDate %Da"   )

<:#P31932416,P943718>TYPE ("<[>Enter]<[>Up]")

<:#P31932416,P943718>RightAlign( )

<:#P31932416,P943718>TYPE ("<[>Down]<[>Enter]<[>Enter]")

<:#P31932416,P943718>

<:#P31932416,P943718>' write reference line

<:#P31932416,P943718>TYPE ("<[>Enter]<[>Enter]<[>Enter]<[>Enter]")

<:#P31932416,P943718>' write letter

<:#P31932416,P943718>' BRIEFANREDE

<:#P31932416,P943718>Buffer = GetGlobalArray$("PBKAddress",20)

<:#P31932416,P943718>IF Buffer != ""

<:#P31932416,P943718>    TYPE ("{Buffer}")

<:#P31932416,P943718>ENDIF

<:#P31932416,P943718>TYPE ("<[>Enter]<[>Enter]")

<:#P31932416,P943718>TYPE ("<[>Enter]<[>Enter]Mit einem netten Gru<\_>")

<:#P31932416,P943718>

<:#P31932416,P943718>

<:#P31932416,P943718>CALLI PBOOKFree() ' free memory of address fields

<:#P31932416,P943718>

<:#P31932416,P943718>HourGlass(0)

<:#P31932416,P943718>IgnoreKeyboard(0)

<:#P31932416,P943718>

<:#P31932416,P943718>END FUNCTION

<:#P31932416,P943718>
>

[Embedded]
00006241
>
[macsum4] 1 9
PBKBrief 0 0 6 0
[macse]
14 PBKBrief
29 0 PBKBrief
17 2
29 1 MacroPath
31 101 45 57
13
16 _$$5CatSlash [X]
13
8 1
17 3
29 2 PBOOKAlloc
7 "{1}PBKGETA.SMM!PBOOKAllocPBKAddress"
8 2
17 4
29 3 PBOOKGet
7 "{1}PBKGETA.SMM!PBOOKGetAddress"
8 3
17 5
29 4 PBOOKFree
7 "{1}PBKGETA.SMM!PBOOKFreePBKAddress"
8 4
17 7
0 32 1
17 8
0 296 1
17 10
16 "{2}"
17 11
16 "{3}"
17 12
29 5 Buffer
0 273 "PBKAddress" 1
13
8 5
17 13
6 5
7 ""
18 0
11 00000459
6 0
15
9
17 18
0 6 "[16419][13]"
17 20
0 273 "PBKAddress" 19
13
8 5
17 21
0 6 "{5}[13]"
17 23
0 273 "PBKAddress" 2
13
8 5
17 24
6 5
7 ""
18 1
11 00000643
17 25
0 6 "{5}[13]"
17 28
0 273 "PBKAddress" 1
13
8 5
17 29
6 5
7 ""
18 1
11 00000740
17 30
0 6 "{5}[13]"
17 33
0 273 "PBKAddress" 6
13
8 5
17 34
6 5
7 ""
18 1
11 00000948
17 35
0 6 "{5}[13][13]"
17 36
0 273 "PBKAddress" 7
13
8 5
17 37
6 5
7 ""
18 1
11 00000935
17 38
0 6 "{5} "
10 00001216
17 41
0 273 "PBKAddress" 3
13
8 5
17 42
0 6 "{5} "
17 43
0 273 "PBKAddress" 4
13
8 5
17 44
0 6 "{5} "
17 45
0 273 "PBKAddress" 5
13
8 5
17 46
0 6 "{5}[13]"
17 47
0 273 "PBKAddress" 7
13
8 5
17 48
6 5
7 ""
18 1
11 00001216
17 49
0 6 "{5} "
17 53
0 273 "PBKAddress" 8
13
8 5
17 54
6 5
7 ""
18 1
11 00001313
17 55
0 6 "{5}[13]"
17 58
0 273 "PBKAddress" 11
13
8 5
17 59
6 5
7 ""
18 1
11 00001411
17 60
0 6 "{5}[13]"
17 62
0 6 "[13][13][13]"
17 65
34 0 34 "CreateDate %Da"
17 66
0 6 "[13][38]"
17 67
2 261 1
17 68
0 6 "[40][13][13]"
17 71
0 6 "[13][13][13][13]"
17 74
0 273 "PBKAddress" 20
13
8 5
17 75
6 5
7 ""
18 1
11 00001662
17 76
0 6 "{5}"
17 78
0 6 "[13][13]"
17 79
0 6 "[13][13]Mit einem netten Gru<\_>"
17 82
16 "{4}"
17 84
0 296 0
17 85
0 32 0
6 0
15
17 87
9
00006266