Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros.cmz/WORKGRUP.SMM

INI File | 1994-08-14 | 20.7 KB | 1,363 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    ╢}▒╥¿├└xªs Ami Pro ¼█├÷ñσÑ≤╕s▓╒íC
    Lotus WPD Tech Support
    Advanced
    Call Backs, Fopens, Freads,
    Autorun
    776976551
    55
    675982393
    948
    7
    951
    6089
    18
    21
    Global Arrays, freads, fopens, CallBacks





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

[ParaNum]
    1
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        720
        1440
        1
        1440
        720
        2
        1
        0
        1
        1
        2
        1
        720
        11520
        5
        1
        720
        1
        1440
        1
        2880
        1
        4320
        1
        5760
    [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
        72
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
<+B><:f280,2Tms Rmn,0,0,0>WorkGrup.smm<:f>

<+B><:f280,2Tms Rmn,0,0,0>Peyton McManus<:f>

<+B><:P10,0,> of <:X3,0;NumPages>4<:X~3,0;NumPages>

5 73 67 63 9000 1352728579 "listbox" "" 0

108 73 67 63 9002 1352728579 "listbox" "" 0

138 3 40 14 1 1342242817 "button" "OK" 0

138 20 40 14 2 1342242816 "button" "Cancel" 0

37 23 90 10 1000 1342177281 "static" "Workgroup Description" 0

20 54 40 15 1002 1342177281 "static" "Open MDI Docs" 0

116 54 55 16 1003 1342177281 "static" "Files in Workgroup" 0

76 92 29 12 53 1342242816 "button" "Add -<;><;>" 0

76 106 29 12 54 1342242816 "button" "<<<<- Del" 0

<+B>END DIALOG<:f280,2Tms Rmn,0,0,0>.smm<:f>

<+B><:f280,2Tms Rmn,0,0,0> June 4, 1991
<:f><:f280,2Tms Rmn,0,0,0>  Page <:P10,0,>

>
    [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
        360
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    7
    42 0 12 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
    87 0 21 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
    132 0 19 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
    177 0 9 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
    222 0 7 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    267 0 52 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
    279 0 10 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]
<:#284,10800>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

<:#284,10800>define SetWindowText()        DllCall("user,SetWindowText,IHC", %1, %2)

<:#284,10800>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)

<:#284,10800>define GetWindowText()        DllCall("user,GetWindowText,HHFH", %1, %2, %3)

<:#284,10800>define WM_USER        1024

<:#284,10800>define LB_SELECTSTRING    WM_USER + 13

<:#284,10800>

<:#284,10800>Declare    Mdi()

<:#284,10800>Declare     GetFiles(Array)

<:#284,10800>Declare    Buildfile(p1,p2)

<:#284,10800>Declare    OnMenu(p1,p2)

<:#284,10800>

@Function@<:#293,10800>Function Workmenu()

<:#284,10800>IF IsNewWave()

<:#284,10800>    Message("Macro not available while running under HP NewWave.")

<:#284,10800>    Exit Function

<:#284,10800>ENDIF

<:#284,10800>' Build the menu bar

<:#289,10800><:f240,2Tms Rmn,0,0,0>Menu = "<:f>└╔«╫(&F)<:f240,2Tms Rmn,0,0,0>"<:f>

<:#284,10800>mpath = GetRunningMacroFile$()

<:#284,10800>cmenu = "&Workgroup"

<:#284,10800>running=onmenu(menu, cmenu)

<:#284,10800>if running = 1

<:#284,10800>    Mdi()

<:#284,10800>else

<:#284,10800>

<:#284,10800>TitleBarMsg("Installing new menu items to the FILE menu")

<:#284,10800>pause(010)

<:#284,10800>deletemenuitem(1, menu, cmenu)

<:#284,10800>insertcascademenu(1, "└╔«╫(&F)", 2, "{Cmenu}")

<:#568,10800>addcascademenuitem(1, Menu, Cmenu, "&Open Workgroup...", "{mpath}!Opengrp", "Open a previously saved workgroup")

<:#568,10800>addcascademenuitem(1, Menu, Cmenu, "&Build Workgroup...", "{mpath}!Mdi", "Build a Workgroup from MDI files")

<:#284,10800>addcascademenuitem(1, Menu, Cmenu, "-", "", "")

<:#568,10800>addcascademenuitem(1, Menu, Cmenu, "E&xit Workgroup", "{mpath}!Quit", "Remove Workgroup from Menu")

<:#284,10800>TitleBarMsg("")

<:#284,10800>TitleBarMsg("Ami Pro")

<:#284,10800>Endif

<:#284,10800>end function

<:#284,10800>

@Function@<:#293,10800><:ZQuit><:Z~Quit>Function Quit()

<:#284,10800>Deletemenuitem(1,"└╔«╫(&F)","&Workgroup")

<:#284,10800>End Function

<:#284,10800>

<:#284,10800>

@Function@<:#293,10800><:Zmdi><:Z~mdi>function mdi()

<:#284,10800>DefStr Name;

<:#284,10800>If GetOpenFileCount() <<1

<:#284,10800>    Message("No files currently open.")

<:#284,10800>    Exit Function

<:#284,10800>Endif

<:#284,10800>macfile=getrunningmacrofile$()

<:#284,10800>Dim LongName(1)

<:#284,10800>Getfiles(&LongName)

<:#284,10800>NumberFiles = ArraySize(&LongName)

<:#284,10800>

<:#284,10800>GvLong=Allocglobalvar("files",GetOpenfileCount())

<:#284,10800>Dim ShortName(NumberFiles)

<:#284,10800>

<:#284,10800>For t=1 to NumberFiles

<:#284,10800>    If -1 != Assign(&Name,Strfield$(LongName(t),2,"^"))

<:#284,10800>        ShortName(t) = Name;

<:#284,10800>        SetGlobalArray("files",T, LongName(T))

<:#284,10800>    Endif

<:#284,10800>Next

<:#284,10800>

<:#284,10800>Filledit(9000,&ShortName)

<:#284,10800>SetDlgCallBack (53,"{macfile}!add")

<:#284,10800>SetDlgCallBack (54,"{Macfile}!Del")

<:#284,10800>Box=Dialogbox(".","Workgroup")

<:#284,10800>If Box<<<;>1

<:#284,10800>    Exit Function

<:#284,10800>Endif

<:#284,10800>descript=getdialogfield$(8010)

<:#284,10800>If 0 = Len(Descript)

<:#284,10800>    If "" = Assign(&Descript, Query$("Please name the workgroup"))

<:#284,10800>        Exit Function

<:#284,10800>    endif

<:#284,10800>Endif

<:#284,10800>Buildfile(descript,NumberFiles)

<:#284,10800>Freeglobalvar("files")

<:#284,10800>End Function

<:#284,10800>

@Function@<:#293,10800><:ZBuildFile><:Z~BuildFile>Function Buildfile(Descript,mdicount)

<:#284,10800>amidir=getamidirectory$()

<:#284,10800>today=now()

<:#284,10800>today="""{today}"""

<:#284,10800>today=mid$(today,2,8)

<:#284,10800>handle=fopen("{amidir}{today}.wkg","w")

<:#284,10800>fputs(handle,descript)

<:#284,10800>For l=1 to mdicount

<:#284,10800>    name=Strfield$(GetGlobalarray$("files", l),3,"^")

<:#284,10800>        if name="save"

<:#284,10800>        full=getglobalarray$("files",l)

<:#284,10800>        drive=right$(strfield$(full,1,":"),1)

<:#284,10800>        rest=strfield$(full,2,":")

<:#284,10800>        Full="{drive}:{rest}"

<:#284,10800>        Fputs(handle,full)

<:#284,10800>        Endif

<:#284,10800>Next

<:#284,10800>Fclose(Handle)

<:#284,10800>End Function

<:#284,10800>

@Function@<:#293,10800><:><:><:ZGetfiles><:Z~Getfiles>Function getfiles(LongName)

<:#284,10800>DefStr Char, Stat;

<:#284,10800>Dim Temp(GetOpenFileCount())

<:#284,10800>GetOpenFileNames(&Temp)

<:#284,10800>For X=1 to GetOpenFileCount()

<:#284,10800>    c=1

<:#284,10800>    FullPath=Temp(x)

<:#284,10800>        If 0 = Assign(&Stat, Instr(0,FullPath,"Untitled"))

<:#284,10800>            Length = len(FullPath)

<:#284,10800>                WHILE "\" != Assign(&Char, MID$(FullPath, Length, 1))

<:#284,10800>                     Length = Length - 1

<:#284,10800>                 WEND

<:#284,10800>            FileName = Right$(FullPath, (len(FullPath) - Length))

<:#284,10800>            Dir = kmid$(FullPath, 1, Length - 1)

<:#284,10800>            AllInfo="{Dir}\^{FileName}^Nope"

<:#284,10800>            ArrayInsert(&LongName,C, AllInfo)

<:#284,10800>            c = c + 1

<:#284,10800>        endif

<:#284,10800>Next

<:#284,10800>End Function

<:#284,10800>

@Function@<:#293,10800><:ZAdd><:Z~Add>Function add(Hdlg,Id,Text)

<:#284,10800>temp=" "

<:#284,10800>name=GetDlgItemText(Hdlg,9000)

<:#284,10800>mdicount=GetOpenFileCount()

<:#284,10800>hListBox = GetDlgItem(Hdlg, 9002)

<:#284,10800>Stat = AppSendMessage(hListBox, LB_SELECTSTRING, -1, Name)

<:#284,10800>'Message(Stat)

<:#284,10800>

<:#284,10800>for t=1 to mdicount

<:#284,10800>    temp=Strfield$(GetGlobalarray$("files", t),2,"^")

<:#284,10800>    if temp=name

<:#284,10800>        found=getglobalarray$("files",t)

<:#284,10800>        temppath=strfield$(found,1,"^")

<:#284,10800>        tempname=strfield$(found,2,"^")

<:#284,10800>        savename="{temppath}^{tempname}^save"

<:#284,10800>        SetGlobalArray ("files",t,savename)

<:#284,10800>        SetDlgItemText(Hdlg,9002,tempname)

<:#284,10800>        Break

<:#284,10800>    Endif

<:#284,10800>Next

<:#284,10800>End Function

<:#284,10800>

@Function@<:#293,10800><:ZDelete><:Z~Delete>Function Del(Hdlg,Id,Text)

<:#284,10800>temp=" "

<:#284,10800>name=GetDlgItemText(Hdlg,9002)

<:#284,10800>mdicount=GetOpenFileCount()

<:#284,10800>for t=1 to mdicount

<:#284,10800>    temp=Strfield$(GetGlobalarray$("files", t),2,"^")

<:#284,10800>    if temp=name

<:#284,10800>        found=getglobalarray$("files",t)

<:#284,10800>        temppath=strfield$(found,1,"^")

<:#284,10800>        tempname=strfield$(found,2,"^")

<:#284,10800>        savename="{temppath}^{tempname}^Nope"

<:#284,10800>        SetGlobalArray ("files",t,savename)

<:#284,10800>        Break

<:#284,10800>    Endif

<:#284,10800>Next

<:#284,10800>Handle=GetDlgItem(Hdlg,9002)

<:#284,10800>AppSendMessage(Handle,0x0405,0,0)

<:#284,10800>

<:#284,10800>For l=1 to mdicount

<:#284,10800>    name=Strfield$(GetGlobalarray$("files", l),3,"^")

<:#284,10800>        if name="save"

<:#284,10800>            short=Strfield$(GetGlobalArray$("files",l),2,"^")

<:#284,10800>            SetDlgItemText(Hdlg,9002,short)

<:#284,10800>        Endif

<:#284,10800>Next

<:#284,10800>End Function

<:#284,10800>

@Function@<:#293,10800><:ZOpengrp><:Z~Opengrp>Function OpenGrp()

<:#284,10800>Dim group(200)

<:#284,10800>dim files(12)

<:#284,10800>t=0

<:#284,10800>Total = 0

<:#284,10800>Amidir=getamidirectory$()

<:#284,10800>FNAME=findfirst$("{amidir}*.wkg","33")

<:#284,10800>

<:#284,10800>While Fname<<<;> ""

<:#284,10800>    Total=Total + 1

<:#284,10800>    handle=Fopen("{amidir}{fname}","r")

<:#284,10800>        if handle=0

<:#284,10800>            Break

<:#284,10800>        Endif

<:#284,10800>    descript=fgets$(handle)

<:#284,10800>    t=t+1

<:#284,10800>    Group(t)="{fname}|{descript}"

<:#284,10800>    Filledit(9000,descript)

<:#284,10800>    Fclose(Handle)

<:#284,10800>    Fname=FindNext$()

<:#284,10800>Wend

<:#284,10800>

<:#284,10800>Filledit(1000,"{Total} Available workgroups")

<:#284,10800>Filledit(50,1)

<:#284,10800>Box=dialogbox(".","opengroup")

<:#284,10800>if box=2

<:#284,10800>    Exit Function

<:#284,10800>Endif

<:#284,10800>getgroup=getdialogfield$(8000)

<:#284,10800>Radio1=GetdialogField$(50)

<:#284,10800>For l=1 to t

<:#284,10800>    test=strfield$(Group(l),2,"|")

<:#284,10800>    if test=getgroup

<:#284,10800>        TarFile=strfield$(group(l),1,"|")

<:#284,10800>        Break

<:#284,10800>    Endif

<:#284,10800>Next

<:#284,10800>IF Box=3

<:#284,10800>    DOSDelFile("{amidir}{TarFile}")

<:#284,10800>    Goto Done

<:#284,10800>Endif

<:#284,10800>Handle=Fopen("{Amidir}{Tarfile}","r")

<:#284,10800>if handle=0

<:#284,10800>    Exit function

<:#284,10800>Endif

<:#284,10800>Line=fgets$(Handle)

<:#284,10800>While (1)

<:#284,10800>    line = Fgets$(Handle)

<:#284,10800>    IF Line = -1

<:#284,10800>        BREAK

<:#284,10800>    ENDIF

<:#284,10800>    Path = Strfield$(line,1,"^")

<:#284,10800>    File = Strfield$(line,2,"^")

<:#284,10800>    Temp = "{path}{File}"

<:#284,10800>    Fileopen("{temp}",1,"AmiPro")

<:#284,10800>        If (Radio1)

<:#284,10800>            Appminimize("{temp}")

<:#284,10800>        Endif

<:#284,10800>Wend

<:#284,10800>Fclose(Handle)

<:#284,10800>Done:

<:#284,10800>End Function

<:#284,10800>

<:#284,10800>

@Function@<:#293,10800>FUNCTION onmenu(menu, item)

<:#284,10800>rmac=getrunningmacrofile$()

<:#284,10800>result=checkmenuitem(1, menu, item, 1)    ' Must checkmenuitem twice so it gets

<:#284,10800>result=checkmenuitem(1, menu, item, 0)    ' correct value without altering item

<:#284,10800>if result=8

<:#284,10800>    onmenu= 1

<:#284,10800>elseif

<:#284,10800>    onmenu= 0

<:#284,10800>endif

<:#284,10800>END FUNCTION

@Function@<:#293,10800>

<:#284,10800>

<:#284,10800>

<:#284,10800>DIALOG opengroup

<:#284,10800>-2134376448 10 78 28 220 116 "" "" "Open Workgroup"

<:#284,10800>FONT 6 "Helv"

<:#284,10800>8 20 160 82 9000 1352859651 "listbox" "" 0

<:#284,10800>172 78 50 12 50 1342373897 "button" "&Minimize" 0

<:#284,10800>172 90 50 12 51 1342177289 "button" "&Full screen" 0

<:#284,10800>8 102 160 10 1000 1342308352 "static" "" 0

<:#284,10800>8 8 72 10 1001 1342177280 "static" "Selected &workgroup:" 0

<:#284,10800>174 40 40 1 1002 1342177285 "static" "text" 0

<:#284,10800>174 6 40 14 1 1342373889 "button" "Open" 0

<:#284,10800>174 22 40 14 2 1342373888 "button" "Cancel" 0

<:#284,10800>174 44 40 14 3 1342373888 "button" "&Remove" 0

<:#284,10800>82 6 86 12 8000 1350762624 "edit" "" 0

<:#284,10800>END DIALOG

<:#284,10800>

<:#284,10800>

<:#284,10800>DIALOG workgroup

<:#284,10800>-2134376448 10 92 26 196 111 "" "" "Build Workgroup"

<:#284,10800>FONT 6 "Helv"

<:#284,10800>6 22 116 12 8010 1350631552 "edit" "" 0

<:#284,10800>6 49 68 61 9000 1352728579 "listbox" "" 0

<:#284,10800>78 49 40 14 53 1342242816 "button" "<;><;> Add <;><;>" 0

<:#284,10800>78 65 40 14 54 1342242816 "button" "<<<< Del <<<<" 0

<:#284,10800>122 49 68 61 9002 1352728579 "listbox" "" 0

<:#284,10800>6 12 78 8 1000 1342308352 "static" "&Workgroup description:" 0

<:#284,10800>6 38 72 8 1002 1342177280 "static" "&Currently open docs:" 0

<:#284,10800>122 38 67 8 1003 1342177280 "static" "&Docs in workgroup:" 0

<:#284,10800>150 4 40 14 1 1342373889 "button" "OK" 0

<:#284,10800>150 20 40 14 2 1342373888 "button" "Cancel" 0

<:#284,10800>END DIALOG

>

[Embedded]
00014384
>
[macsum] 11
Workmenu 0 0 5 12
Quit 883 0 1 39
mdi 937 0 10 44
Buildfile 1700 2 9 82
getfiles 2188 1 11 102
add 2737 3 11 123
Del 3232 3 12 145
OpenGrp 3949 0 19 172
onmenu 5106 2 3 236
opengroup 5290 0 -1 249
workgroup 5868 0 -1 265
[macse]
14 Workmenu
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
7 "└╔«╫(&F)"
8 1
0 802
13
8 2
7 "&Workgroup"
8 3
16 onmenu "{1}" "{3}"
13
8 4
6 4
5 1
18 0
11 00000247
16 Mdi
10 00000871
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Installing new menu items to the FILE menu"
0 274 010
0 520 1 "{1}" "{3}"
0 528 1 "└╔«╫(&F)" 2 "{3}"
0 525 1 "{1}" "{3}" "&Open Workgroup..." "{2}!Opengrp" "Open a previously saved workgroup"
0 525 1 "{1}" "{3}" "&Build Workgroup..." "{2}!Mdi" "Build a Workgroup from MDI files"
0 525 1 "{1}" "{3}" "-" "" ""
0 525 1 "{1}" "{3}" "E&xit Workgroup" "{2}!Quit" "Remove Workgroup from Menu"
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] ""
0 284 "user,GetActiveWindow,H"
13
0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
6 0
15
9
14 Quit
0 520 1 "└╔«╫(&F)" "&Workgroup"
6 0
15
9
14 mdi
0 1050
13
5 1
18 5
11 00000088
0 3 "No files currently open."
6 0
15
9
0 802
13
8 2
5 1
21 3 [X]
16 Getfiles &3
0 1046 &3
13
8 4
0 1050
13
0 271 "files" [X]
13
8 5
6 4
21 6 [X]
5 1
8 7
6 4
6 7
18 2
12 00000295
10 00000434
5 1
6 7
3 0
8 7
10 00000220
5 -1
6 7
22 3
0 20 [X] 2 "^"
13
0 805 &1 [X]
13
18 1
11 00000421
6 7
6 1
23 6
6 7
22 3
0 272 "files" "{7}" [X]
10 00000262
0 31 9000 &6
0 41 53 "{2}!add"
0 41 54 "{2}!Del"
0 26 "." "Workgroup"
13
8 8
6 8
5 1
18 1
11 00000558
6 0
15
9
0 27 8010
13
8 9
5 0
0 14 "{9}"
13
18 0
11 00000710
7 ""
0 1 "Please name the workgroup"
13
0 805 &9 [X]
13
18 0
11 00000710
6 0
15
9
16 Buildfile "{9}" "{4}"
0 266 "files"
6 0
15
9
14 Buildfile
0 798
13
8 3
0 772
13
8 4
7 """{4}"""
8 4
0 15 "{4}" 2 8
13
8 4
0 259 "{3}{4}.wkg" "w"
13
8 5
0 258 "{5}" "{0}"
5 1
8 6
6 1
6 6
18 2
12 00000226
10 00000463
5 1
6 6
3 0
8 6
10 00000151
0 273 "files" "{6}"
13
0 20 [X] 3 "^"
13
8 7
6 7
7 "save"
18 0
11 00000450
0 273 "files" "{6}"
13
8 8
0 20 "{8}" 1 ":"
13
0 807 [X] 1
13
8 9
0 20 "{8}" 2 ":"
13
8 10
7 "{9}:{10}"
8 8
0 258 "{5}" "{8}"
10 00000193
0 260 "{5}"
6 2
15
9
14 getfiles
0 1050
13
21 4 [X]
0 1051 &4
5 1
8 5
0 1050
13
6 5
18 2
12 00000138
10 00000537
5 1
6 5
3 0
8 5
10 00000056
5 1
8 6
6 5
22 4
8 7
5 0
0 808 0 "{7}" "Untitled"
13
0 805 &3 [X]
13
18 0
11 00000524
0 14 "{7}"
13
8 8
7 "\"
0 15 "{7}" "{8}" 1
13
0 805 &2 [X]
13
18 1
11 00000358
6 8
5 1
3 1
8 8
10 00000257
0 14 "{7}"
13
6 8
3 1
0 807 "{7}" [X]
13
8 9
6 8
5 1
3 1
0 133 "{7}" 1 [X]
13
8 10
7 "{10}\^{9}^Nope"
8 11
0 1041 &0 "{6}" "{11}"
6 6
5 1
3 0
8 6
10 00000105
6 1
15
9
14 add
7 " "
8 4
0 42 "{0}" 9000
13
8 5
0 1050
13
8 6
0 44 "{0}" 9002
13
8 7
0 1036 "{7}" 1024 -1 "{5}"
13
8 8
5 1
8 9
6 6
6 9
18 2
12 00000211
10 00000483
5 1
6 9
3 0
8 9
10 00000136
0 273 "files" "{9}"
13
0 20 [X] 2 "^"
13
8 4
6 4
6 5
18 0
11 00000470
0 273 "files" "{9}"
13
8 10
0 20 "{10}" 1 "^"
13
8 11
0 20 "{10}" 2 "^"
13
8 12
7 "{11}^{12}^save"
8 13
0 272 "files" "{9}" "{13}"
0 43 "{0}" 9002 "{12}"
10 00000483
10 00000178
6 3
15
9
14 Del
7 " "
8 4
0 42 "{0}" 9002
13
8 5
0 1050
13
8 6
5 1
8 7
6 6
6 7
18 2
12 00000148
10 00000391
5 1
6 7
3 0
8 7
10 00000073
0 273 "files" "{7}"
13
0 20 [X] 2 "^"
13
8 4
6 4
6 5
18 0
11 00000378
0 273 "files" "{7}"
13
8 8
0 20 "{8}" 1 "^"
13
8 9
0 20 "{8}" 2 "^"
13
8 10
7 "{9}^{10}^Nope"
8 11
0 272 "files" "{7}" "{11}"
10 00000391
10 00000115
0 44 "{0}" 9002
13
8 12
0 1036 "{12}" 1029 0 0
5 1
8 13
6 6
6 13
18 2
12 00000531
10 00000705
5 1
6 13
3 0
8 13
10 00000453
0 273 "files" "{13}"
13
0 20 [X] 3 "^"
13
8 5
6 5
7 "save"
18 0
11 00000692
0 273 "files" "{13}"
13
0 20 [X] 2 "^"
13
8 14
0 43 "{0}" 9002 "{14}"
10 00000496
6 3
15
9
14 OpenGrp
5 200
21 1 [X]
5 12
21 2 [X]
5 0
8 3
5 0
8 4
0 798
13
8 5
0 280 "{5}*.wkg" "33"
13
8 6
6 6
7 ""
18 1
11 00000359
6 4
5 1
3 0
8 4
0 259 "{5}{6}" "r"
13
8 7
6 7
5 0
18 0
11 00000234
10 00000359
0 257 "{7}"
13
8 8
6 3
5 1
3 0
8 3
6 3
7 "{6}|{8}"
23 1
0 31 9000 "{8}"
0 260 "{7}"
0 281
13
8 6
10 00000113
0 31 1000 "{4} Available workgroups"
0 31 50 1
0 26 "." "opengroup"
13
8 9
6 9
5 2
18 0
11 00000480
6 0
15
9
0 27 8000
13
8 10
0 27 50
13
8 11
5 1
8 12
6 3
6 12
18 2
12 00000609
10 00000742
5 1
6 12
3 0
8 12
10 00000531
6 12
22 1
0 20 [X] 2 "|"
13
8 13
6 13
6 10
18 0
11 00000729
6 12
22 1
0 20 [X] 1 "|"
13
8 14
10 00000742
10 00000574
6 9
5 3
18 0
11 00000801
0 779 "{5}{14}"
10 00001145
0 259 "{5}{14}" "r"
13
8 7
6 7
5 0
18 0
11 00000872
6 0
15
9
0 257 "{7}"
13
8 15
5 1
11 00001132
0 257 "{7}"
13
8 15
6 15
5 -1
18 0
11 00000980
10 00001132
0 20 "{15}" 1 "^"
13
8 16
0 20 "{15}" 2 "^"
13
8 17
7 "{16}{17}"
8 18
2 102 1 "{18}" 1 "AmiPro"
6 11
11 00001119
0 1030 "{18}"
10 00000895
0 260 "{7}"
6 0
15
9
14 onmenu
0 802
13
8 3
0 518 1 "{0}" "{1}" 1
13
8 4
0 518 1 "{0}" "{1}" 0
13
8 4
6 4
5 8
18 0
11 00000143
5 1
8 2
10 00000172
6 2
5 0
18 0
11 00000172
6 2
15
9
DIALOG opengroup
-2134376448 10 78 28 220 116 "" "" "Open Workgroup"
FONT 6 "Helv"
8 20 160 82 9000 1352859651 "listbox" "" 0
172 78 50 12 50 1342373897 "button" "&Minimize" 0
172 90 50 12 51 1342177289 "button" "&Full screen" 0
8 102 160 10 1000 1342308352 "static" "" 0
8 8 72 10 1001 1342177280 "static" "Selected &workgroup:" 0
174 40 40 1 1002 1342177285 "static" "text" 0
174 6 40 14 1 1342373889 "button" "Open" 0
174 22 40 14 2 1342373888 "button" "Cancel" 0
174 44 40 14 3 1342373888 "button" "&Remove" 0
82 6 86 12 8000 1350762624 "edit" "" 0
DIALOG workgroup
-2134376448 10 92 26 196 111 "" "" "Build Workgroup"
FONT 6 "Helv"
6 22 116 12 8010 1350631552 "edit" "" 0
6 49 68 61 9000 1352728579 "listbox" "" 0
78 49 40 14 53 1342242816 "button" ">> Add >>" 0
78 65 40 14 54 1342242816 "button" "<< Del <<" 0
122 49 68 61 9002 1352728579 "listbox" "" 0
6 12 78 8 1000 1342308352 "static" "&Workgroup description:" 0
6 38 72 8 1002 1342177280 "static" "&Currently open docs:" 0
122 38 67 8 1003 1342177280 "static" "&Docs in workgroup:" 0
150 4 40 14 1 1342373889 "button" "OK" 0
150 20 40 14 2 1342373888 "button" "Cancel" 0
00014409