*
*  Source machine generated by GadToolsBox V2.0
*  which is (c) Copyright 1991-1993 Jaba Development
*
*  GUI Designed by : -- Unnamed --
*

    include 'exec/types.i'
    include 'intuition/intuition.i'
    include 'intuition/classes.i'
    include 'intuition/classusr.i'
    include 'intuition/imageclass.i'
    include 'intuition/gadgetclass.i'
    include 'libraries/gadtools.i'
    include 'graphics/displayinfo.i'
    include 'graphics/gfxbase.i'

    XREF    _GadToolsBase
    XREF    _IntuitionBase
    XREF    _GfxBase
    XREF    _SysBase

OpenScreenTagList    EQU    -612
OpenWindowTagList    EQU    -606
CloseScreen          EQU    -66
CloseWindow          EQU    -72
PrintIText           EQU    -216
LockPubScreen        EQU    -510
UnlockPubScreen      EQU    -516
SetMenuStrip         EQU    -264
ClearMenuStrip       EQU    -54
GetVisualInfoA       EQU    -126
FreeVisualInfo       EQU    -132
CreateContext        EQU    -114
CreateGadgetA        EQU    -30
GT_RefreshWindow     EQU    -84
FreeGadgets          EQU    -36
CreateMenusA         EQU    -48
LayoutMenusA         EQU    -66
FreeMenus            EQU    -54
OpenDiskFont         EQU    -30
CloseFont            EQU    -78
DrawBevelBoxA        EQU    -120
FreeClass            EQU    -714
NewObjectA           EQU    -636
DisposeObject        EQU    -642
TextLength           EQU    -54
CopyMem              EQU    -624
FindTagItem          EQU    -30
IntuiTextLength      EQU    -330
Forbid               EQU    -132
Permit               EQU    -138

GD_Gadget00                            EQU    0
GD_Gadget10                            EQU    1
GD_Gadget20                            EQU    2
GD_Gadget30                            EQU    3
GD_Gadget40                            EQU    4
GD_Gadget50                            EQU    5
GD_Gadget60                            EQU    6
GD_Gadget70                            EQU    7
GD_Gadget80                            EQU    8
GD_Gadget90                            EQU    9
GD_Gadget100                           EQU    10
GD_Gadget110                           EQU    11
GD_Gadget120                           EQU    12
GD_Gadget130                           EQU    13
GD_Gadget140                           EQU    14
GD_Gadget150                           EQU    15
GD_Gadget160                           EQU    16
GD_Gadget170                           EQU    17
GD_Gadget180                           EQU    18
GD_Gadget190                           EQU    19
GD_Gadget200                           EQU    20
GD_Gadget210                           EQU    21
GD_Gadget220                           EQU    22

Scr:
    DC.L    0
VisualInfo:
    DC.L    0
PubScreenName:
    DC.L    WBName
WBName:
    DC.B    'Workbench',0
    CNOP  0,2
Project0Wnd:
    DC.L    0
Project0GList:
    DC.L    0
Project0Gadgets:
    DCB.L    23,0
BufNewGad:
    DC.W    0,0,0,0
    DC.L    0,0
    DC.W    0
    DC.L    0,0,0
TD:
    DC.L    TAG_DONE
Project0Left:
    DC.W    113
Project0Top:
    DC.W    11
Project0Width:
    DC.W    419
Project0Height:
    DC.W    169

Project0GTypes:
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    CYCLE_KIND
    DC.W    CYCLE_KIND
    DC.W    CYCLE_KIND
    DC.W    STRING_KIND
    DC.W    STRING_KIND
    DC.W    BUTTON_KIND
    DC.W    BUTTON_KIND
    DC.W    STRING_KIND
    DC.W    BUTTON_KIND
    DC.W    BUTTON_KIND
    DC.W    STRING_KIND
    DC.W    CYCLE_KIND
    DC.W    CHECKBOX_KIND

Project0NGads:
    DC.W    225,3,180,13
    DC.L    Gadget00Text,0
    DC.W    GD_Gadget00
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,18,180,13
    DC.L    Gadget10Text,0
    DC.W    GD_Gadget10
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,33,180,13
    DC.L    Gadget20Text,0
    DC.W    GD_Gadget20
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,48,180,13
    DC.L    Gadget30Text,0
    DC.W    GD_Gadget30
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,63,180,13
    DC.L    Gadget40Text,0
    DC.W    GD_Gadget40
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,78,180,13
    DC.L    Gadget50Text,0
    DC.W    GD_Gadget50
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,93,180,13
    DC.L    Gadget60Text,0
    DC.W    GD_Gadget60
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,108,180,13
    DC.L    Gadget70Text,0
    DC.W    GD_Gadget70
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,123,180,13
    DC.L    Gadget80Text,0
    DC.W    GD_Gadget80
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    225,138,180,13
    DC.L    Gadget90Text,0
    DC.W    GD_Gadget90
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    46,3,142,13
    DC.L    Gadget100Text,0
    DC.W    GD_Gadget100
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    62,33,126,13
    DC.L    Gadget110Text,0
    DC.W    GD_Gadget110
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    62,48,126,13
    DC.L    Gadget120Text,0
    DC.W    GD_Gadget120
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    62,18,44,13
    DC.L    Gadget130Text,0
    DC.W    GD_Gadget130
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    144,18,44,13
    DC.L    Gadget140Text,0
    DC.W    GD_Gadget140
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    7,93,81,13
    DC.L    Gadget150Text,0
    DC.W    GD_Gadget150
    DC.L    PLACETEXT_IN,0,0
    DC.W    107,93,81,13
    DC.L    Gadget160Text,0
    DC.W    GD_Gadget160
    DC.L    PLACETEXT_IN,0,0
    DC.W    62,108,126,13
    DC.L    Gadget170Text,0
    DC.W    GD_Gadget170
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    7,138,165,13
    DC.L    Gadget180Text,0
    DC.W    GD_Gadget180
    DC.L    PLACETEXT_IN,0,0
    DC.W    7,152,165,13
    DC.L    Gadget190Text,0
    DC.W    GD_Gadget190
    DC.L    PLACETEXT_IN,0,0
    DC.W    225,153,180,12
    DC.L    Gadget200Text,0
    DC.W    GD_Gadget200
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    46,63,142,13
    DC.L    Gadget210Text,0
    DC.W    GD_Gadget210
    DC.L    PLACETEXT_LEFT,0,0
    DC.W    151,80,26,11
    DC.L    Gadget220Text,0
    DC.W    GD_Gadget220
    DC.L    PLACETEXT_LEFT,0,0

Project0GTags:
    DC.L    GTST_String,Gadget00String
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget10String
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget20String
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget30String
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget40String
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTST_MaxChars,20
    DC.L    TAG_DONE
    DC.L    GTCY_Labels,Gadget100Labels
    DC.L    TAG_DONE
    DC.L    GTCY_Labels,Gadget110Labels
    DC.L    TAG_DONE
    DC.L    GTCY_Labels,Gadget120Labels
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget130String
    DC.L    GTST_MaxChars,3
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget140String
    DC.L    GTST_MaxChars,3
    DC.L    TAG_DONE
    DC.L    TAG_DONE
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget170String
    DC.L    GTST_MaxChars,30
    DC.L    TAG_DONE
    DC.L    TAG_DONE
    DC.L    TAG_DONE
    DC.L    GTST_String,Gadget200String
    DC.L    GTST_MaxChars,30
    DC.L    TAG_DONE
    DC.L    GTCY_Labels,Gadget210Labels
    DC.L    TAG_DONE
    DC.L    GTCB_Checked,1
    DC.L    TAG_DONE


Gadget00String:
    DC.B    'l 40000 0 2 s|',0
    CNOP    0,2

Gadget10String:
    DC.B    'a 40000|',0
    CNOP    0,2

Gadget20String:
    DC.B    'd 40000|',0
    CNOP    0,2

Gadget30String:
    DC.B    'L oi 40000|',0
    CNOP    0,2

Gadget40String:
    DC.B    'cd:|dir|',0
    CNOP    0,2

Gadget130String:
    DC.B    'BBB',0
    CNOP    0,2

Gadget140String:
    DC.B    '222',0
    CNOP    0,2

Gadget170String:
    DC.B    'S:BM.Prefs',0
    CNOP    0,2

Gadget200String:
    DC.B    ':C/BeerMon',0
    CNOP    0,2

Gadget00Text:
    DC.B    'F1',0

Gadget10Text:
    DC.B    'F2',0

Gadget20Text:
    DC.B    'F3',0

Gadget30Text:
    DC.B    'F4',0

Gadget40Text:
    DC.B    'F5',0

Gadget50Text:
    DC.B    'F6',0

Gadget60Text:
    DC.B    'F7',0

Gadget70Text:
    DC.B    'F8',0

Gadget80Text:
    DC.B    'F9',0

Gadget90Text:
    DC.B    'F10',0

Gadget100Text:
    DC.B    'Mode',0

Gadget110Text:
    DC.B    'Keymap',0

Gadget120Text:
    DC.B    'Repeat',0

Gadget130Text:
    DC.B    'Col0  ',0

Gadget140Text:
    DC.B    '1',0

Gadget150Text:
    DC.B    'Load',0

Gadget160Text:
    DC.B    'Save',0

Gadget170Text:
    DC.B    'Prefs ',0

Gadget180Text:
    DC.B    'Cancel',0

Gadget190Text:
    DC.B    'Modify BeerMon',0

Gadget200Text:
    DC.B    'Path',0

Gadget210Text:
    DC.B    'CPU ',0

Gadget220Text:
    DC.B    'Disk Verification',0

    CNOP    0,2

Gadget100Labels:
    DC.L    Gadget100Lab0
    DC.L    Gadget100Lab1
    DC.L    Gadget100Lab2
    DC.L    Gadget100Lab3
    DC.L    Gadget100Lab4
    DC.L    0

Gadget110Labels:
    DC.L    Gadget110Lab0
    DC.L    Gadget110Lab1
    DC.L    0

Gadget120Labels:
    DC.L    Gadget120Lab0
    DC.L    Gadget120Lab1
    DC.L    Gadget120Lab2
    DC.L    0

Gadget210Labels:
    DC.L    Gadget210Lab0
    DC.L    Gadget210Lab1
    DC.L    0

Gadget100Lab0:    DC.B    'PAL [640×256]',0
Gadget100Lab1:    DC.B    'PAL [640×512]',0
Gadget100Lab2:    DC.B    'NTSC [640×200]',0
Gadget100Lab3:    DC.B    'NTSC [640×400]',0
Gadget100Lab4:    DC.B    'VGA [640×480]',0

    CNOP    0,2

Gadget110Lab0:    DC.B    'German',0
Gadget110Lab1:    DC.B    'American',0

    CNOP    0,2

Gadget120Lab0:    DC.B    'Fast',0
Gadget120Lab1:    DC.B    'Medium',0
Gadget120Lab2:    DC.B    'Slow',0

    CNOP    0,2

Gadget210Lab0:    DC.B    'Standard',0
Gadget210Lab1:    DC.B    'Economy',0

    CNOP    0,2

topaz8:
    DC.L    topazFName8
    DC.W    8
    DC.B    $00,$01

topazFName8:
    DC.B    'topaz.font',0
    CNOP    0,2

Project0WindowTags:
Project0L:
    DC.L    WA_Left,0
Project0T:
    DC.L    WA_Top,0
Project0W:
    DC.L    WA_Width,0
Project0H:
    DC.L    WA_Height,0
    DC.L    WA_IDCMP,STRINGIDCMP!CYCLEIDCMP!BUTTONIDCMP!CHECKBOXIDCMP!IDCMP_REFRESHWINDOW
    DC.L    WA_Flags,WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_SMART_REFRESH!WFLG_ACTIVATE!WFLG_RMBTRAP
Project0WG:
    DC.L    WA_Gadgets,0
    DC.L    WA_Title,Project0WTitle
    DC.L    WA_ScreenTitle,Project0STitle
    DC.L    TAG_DONE

Project0WTitle:
    DC.B    'BeerMon Preferences Editor V0.14',0
    CNOP    0,2

Project0STitle:
    DC.B    'Written By Carnivore/BeerMacht',0
    CNOP    0,2

SetupScreen
    movem.l d1-d3/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    move.l  PubScreenName,a0
    jsr     LockPubScreen(a6)
    move.l  d0,Scr
    tst.l   d0
    beq     SError
    move.l  Scr,a0
    move.l  _GadToolsBase,a6
    lea.l   TD,a1
    jsr     GetVisualInfoA(a6)
    move.l  d0,VisualInfo
    tst.l   d0
    beq     VError
    moveq   #0,d0
SDone:
    movem.l (sp)+,d1-d3/a0-a2/a6
    rts
SError:
    moveq   #1,d0
    bra.s   SDone
VError:
    moveq   #2,d0
    bra.s   SDone

CloseDownScreen:
    movem.l d0-d1/a0-a1/a6,-(sp)
    move.l  _GadToolsBase,a6
    move.l  VisualInfo,a0
    cmpa.l  #0,a0
    beq.s   NoVis
    jsr     FreeVisualInfo(a6)
    move.l  #0,VisualInfo
NoVis:
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    move.l  Scr,a1
    cmpa.l  #0,a1
    beq.s   NoScr
    jsr     UnlockPubScreen(a6)
    move.l  #0,Scr
NoScr:
    movem.l (sp)+,d0-d1/a0-a1/a6
    rts

    XDEF    OpenProject0Window

OpenProject0Window:
    movem.l d1-d4/a0-a4/a6,-(sp)
    move.l  Scr,a0
    moveq   #0,d3
    moveq   #0,d2
    move.b  sc_WBorLeft(a0),d2
    move.l  sc_Font(a0),a1
    move.w  ta_YSize(a1),d3
    addq.w  #1,d3
    add.b   sc_WBorTop(a0),d3
    move.l  _GadToolsBase,a6
    lea.l   Project0GList,a0
    jsr     CreateContext(a6)
    move.l  d0,a3
    tst.l   d0
    beq     Project0CError
    movem.w d2-d3,-(sp)
    moveq   #0,d3
    lea.l   Project0GTags,a4
Project0GL:
    move.l  _SysBase,a6
    lea.l   Project0NGads,a0
    move.l  d3,d0
    mulu    #gng_SIZEOF,d0
    add.l   d0,a0
    lea.l   BufNewGad,a1
    moveq   #gng_SIZEOF,d0
    jsr     CopyMem(a6)
    lea.l   BufNewGad,a0
    move.l  VisualInfo,gng_VisualInfo(a0)
    move.l  #topaz8,gng_TextAttr(a0)
    move.w  gng_LeftEdge(a0),d0
    add.w   (sp),d0
    move.w  d0,gng_LeftEdge(a0)
    move.w  gng_TopEdge(a0),d0
    add.w   2(sp),d0
    move.w  d0,gng_TopEdge(a0)
    move.l  _GadToolsBase,a6
    lea.l   Project0GTypes,a0
    moveq   #0,d0
    move.l  d3,d1
    asl.l   #1,d1
    add.l   d1,a0
    move.w  (a0),d0
    move.l  a3,a0
    lea.l   BufNewGad,a1
    move.l  a4,a2
    jsr     CreateGadgetA(a6)
    tst.l   d0
    bne.s    Project0COK
    movem.w (sp)+,d2-d3
    bra     Project0CError
Project0COK:
    move.l  d0,a3
    move.l  d3,d0
    asl.l   #2,d0
    lea.l   Project0Gadgets,a0
    add.l   d0,a0
    move.l  a3,(a0)
Project0TL:
    tst.l   (a4)
    beq.s   Project0DN
    addq.w  #8,a4
    bra.s   Project0TL
Project0DN:
    addq.w  #4,a4
    addq.w  #1,d3
    cmp.w   #Project0_CNT,d3
    bmi     Project0GL
    movem.w (sp)+,d2-d3
    move.l  Project0GList,Project0WG+4
    moveq   #0,d0
    move.w  Project0Left,d0
    move.l  d0,Project0L+4
    move.w  Project0Top,d0
    move.l  d0,Project0T+4
    move.w  Project0Width,d0
    move.l  d0,Project0W+4
    move.w  Project0Height,d0
    add.w   d3,d0
    move.l  d0,Project0H+4
    move.l  _IntuitionBase,a6
    suba.l  a0,a0
    lea.l   Project0WindowTags,a1
    jsr     OpenWindowTagList(a6)
    move.l  d0,Project0Wnd
    tst.l   d0
    beq     Project0WError
    move.l  _GadToolsBase,a6
    move.l  Project0Wnd,a0
    suba.l  a1,a1
    jsr     GT_RefreshWindow(a6)
    moveq   #0,d0
Project0Done:
    movem.l (sp)+,d1-d4/a0-a4/a6
    rts
Project0CError:
    moveq   #1,d0
    bra.s   Project0Done
Project0GError:
    moveq   #2,d0
    bra.s   Project0Done
Project0WError:
    moveq   #4,d0
    bra.s   Project0Done

CloseProject0Window:
    movem.l d0-d1/a0-a2/a6,-(sp)
    move.l  _IntuitionBase,a6
    move.l  Project0Wnd,a0
    cmpa.l  #0,a0
    beq     Project0NWnd
    jsr     CloseWindow(a6)
    move.l  #0,Project0Wnd
Project0NWnd:
    move.l  _GadToolsBase,a6
    move.l  Project0GList,a0
    cmpa.l  #0,a0
    beq     Project0NGad
    jsr     FreeGadgets(a6)
    move.l  #0,Project0GList
Project0NGad:
    movem.l (sp)+,d0-d1/a0-a2/a6
    rts


    end