800 Great Letters/greatBear.iso/refcd/referenz/refer.smm

INI File | 1995-01-11 | 5KB | 406 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP DeskJet Family
[port]
    LPT1:
[lang]
    1
[desc]
    Run ReferenZing from Ami Tools menu




    780690229
    64
    672763988
    472
    4
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        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
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [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
        0
        1
        0
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
    [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
        0
        1
        14400
        1440
        0
        1
        0
        1
        1
        1
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    4
    18 0 6 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    56 0 16 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    57 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    57 0 5 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#260,9360>REFERINS installs macros to the Tools Menu.

<:#260,9360>

<:#260,9360>REFERENZING is the Tools / ReferenZing menu item.

<:#260,9360>

<:#520,9360>This macro should be installed under Tools/User  Setup as the macro to run at program load, or should be called from the current autoload macro.  Instalh.smm will do this for you.

<:#260,9360>

<:#260,9360>

<:#260,9360><+!>FUNCTION REFERINS()<-!>

<:#260,9360>

<:#260,9360>M1 = GetRunningMacroFile$()

<:#260,9360>M1 = strcat$ (M1, "!REFER")

<:#260,9360>

<:#260,9360>DeleteMenuItem (1, "Too&ls", "&Great Bear Referenzing")

<:#260,9360>AddMenuItem (1, "Too&ls", "&Great Bear Referenzing", M1 )

<:#260,9360>

<:#260,9360><+!>END FUNCTION<-!>

<:#260,9360>

<**><:p<* >>

<:#260,9360><+!>FUNCTION REFER()<-!>

<:#520,9360>DEFINE FindWindow()    DLLCall("user,FindWindow,HCC", %1, %2)

<:#520,9360>DEFINE WinExec()    DLLCall("kernel,WinExec,HCH", %1, %2)

<:#520,9360>DEFINE SendMessage()    DLLCall("user,SendMessage,JHHHJ", %1, %2, %3, %4)

<:#520,9360>DEFINE GetAmiWindow()    DLLCall("user,GetActiveWindow,H")

<:#260,9360>

WndTitle = "ReferenZing"

<:#260,9360>hWnd = FindWindow(0, WndTitle)

<:#260,9360>IF (hWnd <;> 0)

<:#260,9360>ActivateApp(WndTitle)

<:#260,9360>GOTO ReferMHExit

<:#260,9360>ENDIF

<:#260,9360>

<:#260,9360>QUOTEDIR = GetProfileString$("ReferenZing", "Path", "win.ini")

<:#260,9360>IF (LEN(QUOTEDIR) = 0)

<:#780,9360>    Message("Can't find Referenzing Version 1.0.  Path not found in WIN.INI. You must run Referenzing at least once before running this macro.")

<:#520,9360>    EXIT FUNCTION

<:#260,9360>ENDIF

<:#520,9360>    QUOTEEXE = strcat$(QUOTEDIR, "\DRS.EXE")

<:#260,9360>

<:#260,9360>hQUOTE = WinExec(QUOTEEXE, 1)

<:#260,9360>

<:#260,9360>IF (hQUOTE << 32)

<:#520,9360>    Message("Can't load Referenzing Version 1.0. {QUOTEEXE}")

<:#520,9360>    EXIT FUNCTION

<:#260,9360>ENDIF

<:#260,9360>

<:#260,9360>hWnd = FindWindow(0, WndTitle)

<:#260,9360>L = AppIsRunning(WndTitle)

<:#520,9360>IF L = 0    Message("Can't find ReferenZing Version 1.0 window.")

<:#260,9360>EXIT FUNCTION

<:#260,9360>ELSE

<:#260,9360>ActivateApp(WndTitle)

<:#260,9360>ENDIF

<:#260,9360>

<:#260,9360>ReferMHExit:

<:#260,9360>

<:#260,9360><+!>END FUNCTION<-!>

<:p<* >>

>

[Embedded]
00004114
>
[macsum] 2
REFERINS 0 0 2 7
REFER 165 0 7 18
[macse]
14 REFERINS
0 802
13
8 1
0 16 "{1}" "!REFER"
13
8 1
0 520 1 "Too&ls" "&Great Bear Referenzing"
0 516 1 "Too&ls" "&Great Bear Referenzing" "{1}"
6 0
15
9
14 REFER
7 "ReferenZing"
8 1
0 284 "user,FindWindow,HCC" 0 "{1}"
13
8 2
6 2
5 0
18 3
11 00000132
0 38 "{1}"
10 00000719
0 286 "ReferenZing" "Path" "win.ini"
13
8 3
0 14 "{3}"
13
5 0
18 0
11 00000368
0 3 "Can't find Referenzing Version 1.0.  Path not found in WIN.INI. You must run Referenzing at least once before running this macro."
6 0
15
9
0 16 "{3}" "\DRS.EXE"
13
8 4
0 284 "kernel,WinExec,HCH" "{4}" 1
13
8 5
6 5
5 32
18 5
11 00000534
0 3 "Can't load Referenzing Version 1.0. {4}"
6 0
15
9
0 284 "user,FindWindow,HCC" 0 "{1}"
13
8 2
0 1032 "{1}"
13
8 6
6 6
5 0
18 0
11 00000707
0 3 "Can't find ReferenZing Version 1.0 window."
6 0
15
9
10 00000719
0 38 "{1}"
6 0
15
9
00004139