; Main File Unbekannt

; Erstellt mit GadEd V2.0
; Geschrieben von Michael Neumann und Thomas Patschinski

BUTTON_KIND		EQU 1
CHECKBOX_KIND		EQU 2
INTEGER_KIND		EQU 3
LISTVIEW_KIND		EQU 4
MX_KIND			EQU 5
NUMBER_KIND		EQU 6
CYCLE_KIND		EQU 7
PALETTE_KIND		EQU 8
SCROLLER_KIND		EQU 9
SLIDER_KIND		EQU 11
STRING_KIND		EQU 12
TEXT_KIND		EQU 13
PLACETEXT_LEFT		EQU $1
PLACETEXT_RIGHT		EQU $2
PLACETEXT_ABOVE		EQU $4
PLACETEXT_BELOW		EQU $8
PLACETEXT_IN		EQU $10
NG_HIGHLABEL		EQU $20
NM_TITLE		EQU $1
NM_ITEM			EQU $2
NM_SUB			EQU $3
NM_END			EQU $0
NM_BARLABEL		EQU -1
NM_MENUDISABLED		EQU $1

TAG_DONE		EQU $0
TAG_MORE		EQU $2
TAG_USER		EQU $80000000

GA_TagBase		EQU TAG_USER+$30000
GA_Disabled		EQU GA_TagBase+$e
GA_Immediate		EQU GA_TagBase+$15
GA_RelVerify		EQU GA_TagBase+$16
GA_TabCycle		EQU GA_TagBase+$24

PGA_TagBase		EQU TAG_USER+$31000
PGA_Freedom		EQU PGA_TagBase+1

STRINGA_TagBase		EQU TAG_USER+$32000
STRINGA_ReplaceMode	EQU STRINGA_TagBase+$d
STRINGA_Justification	EQU STRINGA_TagBase+$10
STRINGA_ExitHelp	EQU STRINGA_TagBase+$13

LAYOUTA_TagBase		EQU TAG_USER+$38000
LAYOUTA_Spacing		EQU LAYOUTA_TagBase+$2

GACT_TOGGLESELECT	EQU $100
GACT_STRINGCENTER	EQU $200
GACT_STRINGRIGHT	EQU $400

GFLG_SELECTED		EQU $80

GT_TagBase		EQU TAG_USER+$80000
GTCB_Checked		EQU GT_TagBase+4
GTLV_Labels		EQU GT_TagBase+6
GTLV_ReadOnly		EQU GT_TagBase+7
GTLV_ScrollWidth	EQU GT_TagBase+8
GTLV_ShowSelected	EQU GT_TagBase+53
GTMX_Labels		EQU GT_TagBase+9
GTMX_Spacing		EQU GT_TagBase+61
GTTX_Text		EQU GT_TagBase+11
GTTX_CopyText		EQU GT_TagBase+12
GTTX_Border		EQU GT_TagBase+57
GTNM_Number		EQU GT_TagBase+13
GTNM_Border		EQU GT_TagBase+58
GTCY_Labels		EQU GT_TagBase+14
GTPA_Depth		EQU GT_TagBase+16
GTPA_ColorOffset	EQU GT_TagBase+18
GTPA_IndicatorWidth	EQU GT_TagBase+19
GTPA_IndicatorHeight	EQU GT_TagBase+20
GTSC_Top		EQU GT_TagBase+21
GTSC_Total		EQU GT_TagBase+22
GTSC_Visible		EQU GT_TagBase+23
GTSC_Overlap		EQU GT_TagBase+24
GTSC_Arrows		EQU GT_TagBase+59
GTSL_Min		EQU GT_TagBase+38
GTSL_Max		EQU GT_TagBase+39
GTSL_Level		EQU GT_TagBase+40
GTSL_MaxLevelLen	EQU GT_TagBase+41
GTSL_LevelFormat	EQU GT_TagBase+42
GTSL_LevelPlace		EQU GT_TagBase+43
GTST_String		EQU GT_TagBase+45
GTST_MaxChars		EQU GT_TagBase+46
GTIN_Number		EQU GT_TagBase+47
GTIN_MaxChars		EQU GT_TagBase+48
GTBB_Recessed		EQU GT_TagBase+51
GT_VisualInfo		EQU GT_TagBase+52
GT_Underscore		EQU GT_TagBase+64

SA_TagBase		EQU TAG_USER+33
SA_Top			EQU SA_TagBase+1
SA_Width		EQU SA_TagBase+2
SA_Height		EQU SA_TagBase+3
SA_Depth		EQU SA_TagBase+4
SA_Title		EQU SA_TagBase+7
SA_Font			EQU SA_TagBase+10
SA_DisplayID		EQU SA_TagBase+17
SA_Overscan		EQU SA_TagBase+19
SA_ShowTitle		EQU SA_TagBase+21
SA_Quiet		EQU SA_TagBase+23
SA_AutoScroll		EQU SA_TagBase+24
SA_Pens			EQU SA_TagBase+25
SA_FullPalette		EQU SA_TagBase+26

WA_TagBase		EQU TAG_USER+100
WA_Left			EQU WA_TagBase
WA_Top			EQU WA_TagBase+1
WA_Width		EQU WA_TagBase+2
WA_Height		EQU WA_TagBase+3
WA_IDCMP		EQU WA_TagBase+6
WA_Flags		EQU WA_TagBase+7
WA_Gadgets		EQU WA_TagBase+8
WA_Title		EQU WA_TagBase+10
WA_ScreenTitle		EQU WA_TagBase+11
WA_CustomScreen		EQU WA_TagBase+12
WA_MinWidth		EQU WA_TagBase+14
WA_MinHeight		EQU WA_TagBase+15
WA_MaxWidth		EQU WA_TagBase+16
WA_MaxHeight		EQU WA_TagBase+17
WA_InnerHeight		EQU WA_TagBase+19

MEMF_PUBLIC		EQU $1
MEMF_CLEAR		EQU $10000
MEMF_CHIP		EQU $2
OSCAN_TEXT		EQU $1
RP_JAM1			EQU $0
RP_JAM2			EQU $1
RP_COMPLEMENT		EQU $2
RP_INVERSVID		EQU $4
CHECKIT			EQU $1
MENUTOGGLE		EQU $8
ITEMENABLED		EQU $10
CHECKED			EQU $100
FS_NORMAL		EQU $0
LN_PRED			EQU $4
LN_SIZE			EQU $e
LN_NAME			EQU $a
rp_Font			EQU $34
tf_XSize		EQU $18
tf_YSize		EQU $14
ta_Name			EQU $0
ta_YSize		EQU $4
sc_Width		EQU $c
sc_Height		EQU $e
sc_LeftEdge		EQU $8
sc_TopEdge		EQU $a
sc_ViewPort		EQU $2c
sc_RastPort		EQU $54
sc_Font			EQU $28
ra_MinX			EQU $0
ra_MinY			EQU $2
ra_MaxX			EQU $4
ra_MaxY			EQU $6
ra_SIZEOF		EQU $8
ti_Data			EQU $4
ti_SIZEOF		EQU $8
wd_RPort		EQU $32
it_LeftEdge		EQU $4
it_TopEdge		EQU $6
it_SIZEOF		EQU $14
ig_LeftEdge		EQU $0
ig_TopEdge		EQU $2
ig_Width		EQU $4
ig_Height		EQU $6
ig_Depth		EQU $8
ig_ImageData		EQU $a
ig_SIZEOF		EQU $14
gg_Flags		EQU $c
gg_Activation		EQU $e
gng_VisualInfo		EQU $16
gng_LeftEdge		EQU $0
gng_TopEdge		EQU $2
gng_Width		EQU $4
gng_Height		EQU $6
gng_UserData		EQU $1a
gng_SIZEOF		EQU $1e
MLH_SIZE		EQU $c
LH_TAIL			EQU $4
LH_TAILPRED		EQU $8

TRUE			EQU 1
FALSE			EQU 0

waNewLookMenu		EQU TAG_USER+$30+99
gtNewLookMenu		EQU TAG_USER+$80000+67
tagCheckScaled		EQU TAG_USER+$80000+68
tagMxScaled		EQU TAG_USER+$80000+69
tagNumColors		EQU TAG_USER+$80000+70
tagTitlePlace		EQU TAG_USER+$80000+71
tagFrontPen		EQU TAG_USER+$80000+72
tagBackPen		EQU TAG_USER+$80000+73
tagJustification	EQU TAG_USER+$80000+74
tagFormat		EQU TAG_USER+$80000+75
tagMaxNumberLen		EQU TAG_USER+$80000+76
tagFrameType		EQU TAG_USER+$80000+77
tagMaxPixelLen		EQU TAG_USER+$80000+80
tagClipped		EQU TAG_USER+$80000+85

		XREF	_LVOOpenScreenTagList
		XREF	_LVOGetVisualInfoA
		XREF	_LVODrawBevelBoxA
		XREF	_LVODrawImage
		XREF	_LVOPrintIText
		XREF	_LVOAllocVec
		XREF	_LVOCopyMem
		XREF	_LVOCreateContext
		XREF	_LVOCreateGadgetA
		XREF	_LVOOpenWindowTagList
		XREF	_LVOGT_RefreshWindow
		XREF	_LVOCreateMenusA
		XREF	_LVOLayoutMenusA
		XREF	_LVOSetMenuStrip
		XREF	_LVOClearMenuStrip
		XREF	_LVOFreeMenus
		XREF	_LVOCloseWindow
		XREF	_LVOFreeGadgets
		XREF	_LVOFreeVec
		XREF	_LVOFreeVisualInfo
		XREF	_LVOCloseScreen
		XREF	_LVOFindTagItem
		XREF	_LVOCloneTagItems
		XREF	_LVOFreeTagItems
		XREF	_LVOOpenDiskFont
		XREF	_LVOCloseFont
		XREF	_LVOFilterTagChanges
		XREF	_LVOGetVPModeID
		XREF	_LVOQueryOverscan

		XREF	_SysBase
		XREF	_IntuitionBase
		XREF	_GadToolsBase
		XREF	_UtilityBase
		XREF	_DiskfontBase
		XREF	_GfxBase

		XDEF	Liste_0
		XDEF	Liste_1
		XDEF	ListViewList00_0
		XDEF	ListViewList00_1
		XDEF	G0
		XDEF	GPtrs00
		XDEF	Men
		XDEF	Menu00

		section __MERGED,BSS

Men:
		ds.l	1
Menu00:
		ds.l	1
Congad0:
		ds.l	1
Congad1:
		ds.l	1
W0:
		ds.l	1
W1:
		ds.l	1
S:
		ds.l	1
OwnScreen:
		ds.b	1
		cnop	0,2
Vi:
		ds.l	1
SFont:
		ds.l	1
WFont0:
		ds.l	1
WFont1:
		ds.l	1
OffsetY:
		ds.w	1
TempGadget:
		ds.b	gng_SIZEOF
FontXSize:
		ds.w	1
FontYSize:
		ds.w	1
WinTop:
		ds.w	1
WinLeft:
		ds.w	1
WinWidth:
		ds.w	1
WinHeight:
		ds.w	1
TempIText:
		ds.b	it_SIZEOF
TempImg:
		ds.b	ig_SIZEOF
Rect:
		ds.b	ra_SIZEOF
Liste_0:
		ds.b	MLH_SIZE
Liste_1:
		ds.b	MLH_SIZE
ListViewList00_0:
		ds.b	MLH_SIZE
ListViewList00_1:
		ds.b	MLH_SIZE
G0:
		ds.l	28
GPtrs00:
		ds.l	28

    section __MERGED,DATA

SAttr:
		dc.l	SFontName
		dc.w	8
		dc.b	FS_NORMAL
		dc.b	0
SFontName:
		dc.b	"topaz-classic.font",0
		cnop	0,2

TopazName:
		dc.b	"topaz.font",0,0

Pens:
		dc.w	-1

STags:
		dc.l	SA_Top,0
		dc.l	SA_Pens,Pens
		dc.l	SA_Width,724
		dc.l	SA_Height,564
		dc.l	SA_Depth,2
		dc.l	SA_DisplayID,$00029004
		dc.l	SA_Title,ScreenName
		dc.l	SA_Font,SAttr
		dc.l	SA_FullPalette,TRUE
		dc.l	SA_ShowTitle,TRUE
		dc.l	SA_Overscan,OSCAN_TEXT
		dc.l	TAG_DONE,0
ScreenName:
		dc.b	"Gadget Test Screen",0
		cnop	0,2
MenuTag:
		dc.l	gtNewLookMenu,TRUE,TAG_DONE

; Definitionen für Fenster Proc00

WAttr0:
		dc.l	FontName0
		dc.w	8
		dc.b	FS_NORMAL
		dc.b	0
FontName0:
		dc.b	"topaz-classic.font",0
		cnop	0,2

NewG0:
		dc.w	115,71,67,12
		dc.l	NewGT0_0
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	115,83,67,12
		dc.l	NewGT0_1
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	115,212,234,12
		dc.l	NewGT0_2
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	115,224,234,12
		dc.l	NewGT0_3
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	15,18,92,21
		dc.l	NewGT0_4
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,1
		dc.w	15,39,92,21
		dc.l	NewGT0_5
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,0
		dc.w	107,18,92,21
		dc.l	NewGT0_6
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,2
		dc.w	107,39,92,21
		dc.l	NewGT0_7
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,0
		dc.w	217,17,26,11
		dc.l	NewGT0_8
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	217,28,26,11
		dc.l	NewGT0_9
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	217,39,26,11
		dc.l	NewGT0_10
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	217,50,26,11
		dc.l	NewGT0_11
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	393,30,227,49
		dc.l	NewGT0_12
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_ABOVE!NG_HIGHLABEL
		dc.l	0,0
		dc.w	393,90,227,71
		dc.l	NewGT0_13
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_ABOVE
		dc.l	0,0
		dc.w	248,72,16,8
		dc.l	NewGT0_14
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	230,72,16,8
		dc.l	NewGT0_15
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	89,104,87,10
		dc.l	NewGT0_16
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	89,114,87,10
		dc.l	NewGT0_17
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	61,135,122,12
		dc.l	NewGT0_18
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	61,147,122,12
		dc.l	NewGT0_19
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	83,167,160,19
		dc.l	NewGT0_20
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	83,186,160,19
		dc.l	NewGT0_21
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	332,72,24,73
		dc.l	NewGT0_22
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_BELOW!NG_HIGHLABEL
		dc.l	0,0
		dc.w	356,72,24,73
		dc.l	NewGT0_23
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_BELOW
		dc.l	0,0
		dc.w	311,170,281,17
		dc.l	NewGT0_24
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	311,187,281,17
		dc.l	NewGT0_25
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	441,213,184,11
		dc.l	NewGT0_26
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	441,224,184,11
		dc.l	NewGT0_27
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
NewGT0_0:
		dc.b	"Tel_. Nummer:",0
		cnop	0,2
NewGT0_1:
		dc.b	"_Haus Nummer:",0
		cnop	0,2
NewGT0_2:
		dc.b	"Copyright b_y",0
		cnop	0,2
StringText0_2:
		dc.b	"Thomas Patschinski",0
		cnop	0,2
NewGT0_3:
		dc.b	"Copyright b_y",0
		cnop	0,2
StringText0_3:
		dc.b	"Michael Neumann",0
		cnop	0,2
NewGT0_4:
		dc.b	"Button",0
		cnop	0,2
NewGT0_5:
		dc.b	"_Ok",0
		cnop	0,2
NewGT0_6:
		dc.b	"_Under",0
		cnop	0,2
NewGT0_7:
		dc.b	"Special !",0
		cnop	0,2
NewGT0_8:
		dc.b	"Checkbo_x",0
		cnop	0,2
NewGT0_9:
		dc.b	"_Gfx",0
		cnop	0,2
NewGT0_10:
		dc.b	"Text _Modus",0
		cnop	0,2
NewGT0_11:
		dc.b	"Nicht umschalten",0
		cnop	0,2
NewGT0_12:
		dc.b	"Info Box",0
		cnop	0,2
NewGT0_13:
		dc.b	"Screen Mode:",0
		cnop	0,2
NewGT0_14:
		dc.b	"3.x",0
		cnop	0,2
NewGT0_15:
		dc.b	"",0
		cnop	0,2
NewGT0_16:
		dc.b	"Fast Ram",0
		cnop	0,2
NewGT0_17:
		dc.b	"Chip Ram",0
		cnop	0,2
NewGT0_18:
		dc.b	"Mo_dus",0
		cnop	0,2
NewGT0_19:
		dc.b	"Mo_dus",0
		cnop	0,2
NewGT0_20:
		dc.b	"Farb_wahl",0
		cnop	0,2
NewGT0_21:
		dc.b	"Farb_wahl",0
		cnop	0,2
NewGT0_22:
		dc.b	"Q",0
		cnop	0,2
NewGT0_23:
		dc.b	"Q",0
		cnop	0,2
NewGT0_24:
		dc.b	"Anfang",0
		cnop	0,2
FormatText0_24:
		dc.b	"%ld ",0
		cnop	0,2
NewGT0_25:
		dc.b	"Ende",0
		cnop	0,2
FormatText0_25:
		dc.b	"%ld ",0
		cnop	0,2
NewGT0_26:
		dc.b	"Fix Text",0
		cnop	0,2
StringText0_26:
		dc.b	"GadEd Version 1.10",0
		cnop	0,2
NewGT0_27:
		dc.b	"Fix Text",0
		cnop	0,2
StringText0_27:
		dc.b	"<Empty>",0
		cnop	0,2

Kinds0:
		dc.l	INTEGER_KIND
		dc.l	INTEGER_KIND
		dc.l	STRING_KIND
		dc.l	STRING_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	LISTVIEW_KIND
		dc.l	LISTVIEW_KIND
		dc.l	MX_KIND
		dc.l	MX_KIND
		dc.l	NUMBER_KIND
		dc.l	NUMBER_KIND
		dc.l	CYCLE_KIND
		dc.l	CYCLE_KIND
		dc.l	PALETTE_KIND
		dc.l	PALETTE_KIND
		dc.l	SCROLLER_KIND
		dc.l	SCROLLER_KIND
		dc.l	SLIDER_KIND
		dc.l	SLIDER_KIND
		dc.l	TEXT_KIND
		dc.l	TEXT_KIND

Tags0:
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTIN_Number,4711
		dc.l	STRINGA_ReplaceMode,TRUE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTIN_Number,1
		dc.l	GTIN_MaxChars,7
		dc.l	STRINGA_Justification,GACT_STRINGCENTER
		dc.l	GA_TabCycle,FALSE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTST_String,StringText0_2
		dc.l	STRINGA_ReplaceMode,TRUE
		dc.l	STRINGA_Justification,GACT_STRINGCENTER
		dc.l	GTST_MaxChars,79
		dc.l	GA_Immediate,TRUE
		dc.l	GA_TabCycle,FALSE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTST_String,StringText0_3
		dc.l	GTST_MaxChars,255
		dc.l	GA_TabCycle,FALSE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	TAG_DONE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCB_Checked,TRUE
		dc.l	tagCheckScaled,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCB_Checked,TRUE
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	TAG_DONE
		dc.l	GTLV_ReadOnly,TRUE
		dc.l	GTLV_Labels,Liste_0
		dc.l	LAYOUTA_Spacing,2
		dc.l	TAG_DONE
		dc.l	GTLV_ShowSelected,0
		dc.l	GTLV_ScrollWidth,24
		dc.l	GTLV_Labels,Liste_1
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTMX_Spacing,2
		dc.l	GTMX_Labels,MxText0_0
		dc.l	GA_Disabled,TRUE
		dc.l	tagTitlePlace,PLACETEXT_BELOW
		dc.l	TAG_DONE
		dc.l	GTMX_Spacing,2
		dc.l	GTMX_Labels,MxText0_1
		dc.l	tagMxScaled,TRUE
		dc.l	TAG_DONE
		dc.l	GTNM_Border,TRUE
		dc.l	GTNM_Number,11893096
		dc.l	tagClipped,FALSE
		dc.l	TAG_DONE
		dc.l	GTNM_Border,TRUE
		dc.l	GTNM_Number,1904760
		dc.l	tagFrontPen,2
		dc.l	tagJustification,2		dc.l	tagMaxNumberLen,9
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCY_Labels,CyText0_0
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GA_Disabled,TRUE
		dc.l	GTCY_Labels,CyText0_1
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GA_Disabled,TRUE
		dc.l	GTPA_Depth,2
		dc.l	GTPA_IndicatorHeight,0
		dc.l	GTPA_IndicatorWidth,0
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTPA_Depth,2
		dc.l	GTPA_IndicatorHeight,0
		dc.l	GTPA_IndicatorWidth,0
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	GTSC_Total,10
		dc.l	GTSC_Visible,3
		dc.l	GTSC_Arrows,16
		dc.l	PGA_Freedom,2
		dc.l	GA_RelVerify,TRUE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GTSC_Top,9
		dc.l	GTSC_Total,11
		dc.l	GTSC_Arrows,16
		dc.l	PGA_Freedom,2
		dc.l	TAG_DONE
		dc.l	GTSL_Level,3
		dc.l	GTSL_MaxLevelLen,4
		dc.l	GTSL_LevelFormat,FormatText0_24
		dc.l	GTSL_LevelPlace,PLACETEXT_RIGHT
		dc.l	tagMaxPixelLen,5
		dc.l	tagJustification,1
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	GTSL_Level,15
		dc.l	GTSL_MaxLevelLen,3
		dc.l	GTSL_LevelFormat,FormatText0_25
		dc.l	GTSL_LevelPlace,PLACETEXT_RIGHT
		dc.l	tagJustification,2
		dc.l	TAG_DONE
		dc.l	GTTX_Border,TRUE
		dc.l	GTTX_Text,StringText0_26
		dc.l	GTTX_CopyText,TRUE
		dc.l	tagFrontPen,2
		dc.l	tagBackPen,1
		dc.l	TAG_DONE
		dc.l	GTTX_Border,TRUE
		dc.l	GTTX_Text,StringText0_27
		dc.l	tagJustification,2
		dc.l	tagClipped,FALSE
		dc.l	TAG_DONE
MxText0_0:
		dc.l	MxLab0_0_0
		dc.l	MxLab0_0_1
		dc.l	MxLab0_0_2
		dc.l	MxLab0_0_3
		dc.l	0
MxLab0_0_0:
		dc.b	"_Domino",0
		cnop	0,2
MxLab0_0_1:
		dc.b	"_Pal",0
		cnop	0,2
MxLab0_0_2:
		dc.b	"_Ntsc",0
		cnop	0,2
MxLab0_0_3:
		dc.b	"N_ichts",0
		cnop	0,2
MxText0_1:
		dc.l	MxLab0_1_0
		dc.l	MxLab0_1_1
		dc.l	MxLab0_1_2
		dc.l	MxLab0_1_3
		dc.l	MxLab0_1_4
		dc.l	MxLab0_1_5
		dc.l	MxLab0_1_6
		dc.l	MxLab0_1_7
		dc.l	MxLab0_1_8
		dc.l	0
MxLab0_1_0:
		dc.b	"1",0
		cnop	0,2
MxLab0_1_1:
		dc.b	"2",0
		cnop	0,2
MxLab0_1_2:
		dc.b	"4",0
		cnop	0,2
MxLab0_1_3:
		dc.b	"8",0
		cnop	0,2
MxLab0_1_4:
		dc.b	"16",0
		cnop	0,2
MxLab0_1_5:
		dc.b	"32",0
		cnop	0,2
MxLab0_1_6:
		dc.b	"64",0
		cnop	0,2
MxLab0_1_7:
		dc.b	"128",0
		cnop	0,2
MxLab0_1_8:
		dc.b	"256",0
		cnop	0,2
CyText0_0:
		dc.l	CyLab0_0_0
		dc.l	CyLab0_0_1
		dc.l	CyLab0_0_2
		dc.l	0
CyLab0_0_0:
		dc.b	"Pause",0
		cnop	0,2
CyLab0_0_1:
		dc.b	"Step",0
		cnop	0,2
CyLab0_0_2:
		dc.b	"Run",0
		cnop	0,2
CyText0_1:
		dc.l	CyLab0_1_0
		dc.l	CyLab0_1_1
		dc.l	CyLab0_1_2
		dc.l	0
CyLab0_1_0:
		dc.b	"Pause",0
		cnop	0,2
CyLab0_1_1:
		dc.b	"Step",0
		cnop	0,2
CyLab0_1_2:
		dc.b	"Run",0
		cnop	0,2

WTags0:
		dc.l	WA_CustomScreen,0
		dc.l	WA_Gadgets,0
		dc.l	WA_Left,0
		dc.l	WA_Top,0
		dc.l	WA_Width,0
		dc.l	WA_Height,0
		dc.l	WA_MinWidth,633
		dc.l	WA_MinHeight,243
		dc.l	WA_MaxWidth,633
		dc.l	WA_MaxHeight,243
		dc.l	WA_Title,WinTitel0
		dc.l	WA_IDCMP,$00400078!$00000202
		dc.l	WA_Flags,$0000100E
		dc.l	waNewLookMenu,TRUE
		dc.l	TAG_DONE,0
WinTitel0:
		dc.b	"Gadget Test Fenster1",0
		cnop	0,2

newM0:
		dc.b	NM_TITLE,0
		dc.l	newMT0_0,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_1
		dc.l	newMC0_1
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_3
		dc.l	newMC0_3
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_4
		dc.l	newMC0_4
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_6
		dc.l	newMC0_6
		dc.w	0
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT0_7,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_8
		dc.l	newMC0_8
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_9
		dc.l	newMC0_9
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_10
		dc.l	newMC0_10
		dc.w	0
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT0_11,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_12
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT0_13
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!ITEMENABLED
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT0_15
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_16
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_17
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_18
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_20
		dc.l	0
		dc.w	CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_21
		dc.l	0
		dc.w	CHECKIT
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT0_22,0
		dc.w	NM_MENUDISABLED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_23
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_24
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT0_26
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT0_27
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT0_28
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_END,0
		dc.l	0,0
		dc.w	0
		dc.l	0,0

newMT0_0:
		dc.b	"Projekt",0
		cnop	0,2
newMT0_1:
		dc.b	"About",0
		cnop	0,2
newMC0_1:
		dc.b	"A",0
		cnop	0,2
newMT0_3:
		dc.b	"Load",0
		cnop	0,2
newMC0_3:
		dc.b	"L",0
		cnop	0,2
newMT0_4:
		dc.b	"Save",0
		cnop	0,2
newMC0_4:
		dc.b	"S",0
		cnop	0,2
newMT0_6:
		dc.b	"Quit",0
		cnop	0,2
newMC0_6:
		dc.b	"Q",0
		cnop	0,2
newMT0_7:
		dc.b	"Buffer",0
		cnop	0,2
newMT0_8:
		dc.b	"Cut",0
		cnop	0,2
newMC0_8:
		dc.b	"C",0
		cnop	0,2
newMT0_9:
		dc.b	"Paste",0
		cnop	0,2
newMC0_9:
		dc.b	"P",0
		cnop	0,2
newMT0_10:
		dc.b	"Copy",0
		cnop	0,2
newMC0_10:
		dc.b	"O",0
		cnop	0,2
newMT0_11:
		dc.b	"Settings",0
		cnop	0,2
newMT0_12:
		dc.b	"Special",0
		cnop	0,2
newMT0_13:
		dc.b	"Betatester Info",0
		cnop	0,2
newMT0_15:
		dc.b	"Extendet Features",0
		cnop	0,2
newMT0_16:
		dc.b	"Save Icons",0
		cnop	0,2
newMT0_17:
		dc.b	"Use ENV:",0
		cnop	0,2
newMT0_18:
		dc.b	"Fast Ram",0
		cnop	0,2
newMT0_20:
		dc.b	"Asl Requster",0
		cnop	0,2
newMT0_21:
		dc.b	"OS 3.x",0
		cnop	0,2
newMT0_22:
		dc.b	"Extendet Menu",0
		cnop	0,2
newMT0_23:
		dc.b	"New 1",0
		cnop	0,2
newMT0_24:
		dc.b	"New 2",0
		cnop	0,2
newMT0_26:
		dc.b	"New 3",0
		cnop	0,2
newMT0_27:
		dc.b	"New 3_1",0
		cnop	0,2
newMT0_28:
		dc.b	"New 3_2",0
		cnop	0,2

Bevel0:
		dc.w	7,101,179,27
		dc.w	329,68,55,95
		dc.w	7,68,179,30
		dc.w	7,132,179,31
		dc.w	364,210,264,29
		dc.w	213,13,171,53
		dc.w	7,210,345,29
		dc.w	7,165,240,43
		dc.w	7,13,203,53
		dc.w	188,68,139,95
		dc.w	250,165,378,43
		dc.w	387,13,241,150

BevelTags0:
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE

IText0:
		dc.b	3,2,RP_JAM2,0
		dc.w	267,126
		dc.l	SAttr
		dc.l	ITText0_0,0
		dc.b	1,0,RP_JAM2!RP_INVERSVID,0
		dc.w	283,144
		dc.l	SAttr
		dc.l	ITText0_1,0
		dc.b	1,3,RP_JAM2,0
		dc.w	291,153
		dc.l	SAttr
		dc.l	ITText0_2,0
		dc.b	1,2,RP_JAM2,0
		dc.w	299,135
		dc.l	SAttr
		dc.l	ITText0_3,0

ITText0_0:
		dc.b	"Das ist",0
		cnop	0,2
ITText0_1:
		dc.b	"Intui",0
		cnop	0,2
ITText0_2:
		dc.b	"Text",0
		cnop	0,2
ITText0_3:
		dc.b	"ein",0
		cnop	0,2

ListViewText0_0_0:
		dc.b	"Mode:      Hires Lace",0
		cnop	0,2
ListViewText0_0_1:
		dc.b	"Auflösung: 800x600",0
		cnop	0,2
ListViewText0_0_2:
		dc.b	"Hori. Frq: 81 Hz",0
		cnop	0,2
ListViewText0_0_3:
		dc.b	"Vert. Frq: 57 kHz",0
		cnop	0,2
ListViewText0_0_4:
		dc.b	" ",0
		cnop	0,2
ListViewText0_0_5:
		dc.b	"Special:   Nicht ziehbar",0
		cnop	0,2
ListViewText0_0_6:
		dc.b	"           Kein Genlock",0
		cnop	0,2
ListViewText0_0_7:
		dc.b	"           WB Like",0
		cnop	0,2

ListViewText0_1_0:
		dc.b	"DOMINO:1280x1024",0
		cnop	0,2
ListViewText0_1_1:
		dc.b	"DOMINO:1024x768",0
		cnop	0,2
ListViewText0_1_2:
		dc.b	"DOMINO:800x600",0
		cnop	0,2
ListViewText0_1_3:
		dc.b	"DOMINO:640x480",0
		cnop	0,2
ListViewText0_1_4:
		dc.b	"PAL:Hires",0
		cnop	0,2
ListViewText0_1_5:
		dc.b	"PAL:Hires Lace",0
		cnop	0,2
ListViewText0_1_6:
		dc.b	"PAL:Superhires",0
		cnop	0,2
ListViewText0_1_7:
		dc.b	"PAL:Superhires Lace",0
		cnop	0,2



; Definitionen für Fenster Proc01

WAttr1:
		dc.l	FontName1
		dc.w	8
		dc.b	FS_NORMAL
		dc.b	0
FontName1:
		dc.b	"topaz-classic.font",0
		cnop	0,2

NewG1:
		dc.w	115,71,67,12
		dc.l	NewGT1_0
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	115,83,67,12
		dc.l	NewGT1_1
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	115,212,234,12
		dc.l	NewGT1_2
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	115,224,234,12
		dc.l	NewGT1_3
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	15,18,92,21
		dc.l	NewGT1_4
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,1
		dc.w	15,39,92,21
		dc.l	NewGT1_5
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,0
		dc.w	107,18,92,21
		dc.l	NewGT1_6
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,2
		dc.w	107,39,92,21
		dc.l	NewGT1_7
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_IN
		dc.l	0,0
		dc.w	217,17,26,11
		dc.l	NewGT1_8
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	217,28,26,11
		dc.l	NewGT1_9
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	217,39,26,11
		dc.l	NewGT1_10
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	217,50,26,11
		dc.l	NewGT1_11
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT
		dc.l	0,0
		dc.w	393,30,227,49
		dc.l	NewGT1_12
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_ABOVE!NG_HIGHLABEL
		dc.l	0,0
		dc.w	393,90,227,71
		dc.l	NewGT1_13
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_ABOVE
		dc.l	0,0
		dc.w	248,72,16,8
		dc.l	NewGT1_14
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_RIGHT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	230,72,16,8
		dc.l	NewGT1_15
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	89,104,87,10
		dc.l	NewGT1_16
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	89,114,87,10
		dc.l	NewGT1_17
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	61,135,122,12
		dc.l	NewGT1_18
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	61,147,122,12
		dc.l	NewGT1_19
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	83,167,160,19
		dc.l	NewGT1_20
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	83,186,160,19
		dc.l	NewGT1_21
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	332,72,24,73
		dc.l	NewGT1_22
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_BELOW!NG_HIGHLABEL
		dc.l	0,0
		dc.w	356,72,24,73
		dc.l	NewGT1_23
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_BELOW
		dc.l	0,0
		dc.w	311,170,281,17
		dc.l	NewGT1_24
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	311,187,281,17
		dc.l	NewGT1_25
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
		dc.w	441,213,184,11
		dc.l	NewGT1_26
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT!NG_HIGHLABEL
		dc.l	0,0
		dc.w	441,224,184,11
		dc.l	NewGT1_27
		dc.l	SAttr
		dc.w	0
		dc.l	PLACETEXT_LEFT
		dc.l	0,0
NewGT1_0:
		dc.b	"Tel_. Nummer:",0
		cnop	0,2
NewGT1_1:
		dc.b	"_Haus Nummer:",0
		cnop	0,2
NewGT1_2:
		dc.b	"Copyright b_y",0
		cnop	0,2
StringText1_2:
		dc.b	"Thomas Patschinski",0
		cnop	0,2
NewGT1_3:
		dc.b	"Copyright b_y",0
		cnop	0,2
StringText1_3:
		dc.b	"Michael Neumann",0
		cnop	0,2
NewGT1_4:
		dc.b	"Button",0
		cnop	0,2
NewGT1_5:
		dc.b	"_Ok",0
		cnop	0,2
NewGT1_6:
		dc.b	"_Under",0
		cnop	0,2
NewGT1_7:
		dc.b	"Special !",0
		cnop	0,2
NewGT1_8:
		dc.b	"Checkbo_x",0
		cnop	0,2
NewGT1_9:
		dc.b	"_Gfx",0
		cnop	0,2
NewGT1_10:
		dc.b	"Text _Modus",0
		cnop	0,2
NewGT1_11:
		dc.b	"Nicht umschalten",0
		cnop	0,2
NewGT1_12:
		dc.b	"Info Box",0
		cnop	0,2
NewGT1_13:
		dc.b	"Screen Mode:",0
		cnop	0,2
NewGT1_14:
		dc.b	"3.x",0
		cnop	0,2
NewGT1_15:
		dc.b	"",0
		cnop	0,2
NewGT1_16:
		dc.b	"Fast Ram",0
		cnop	0,2
NewGT1_17:
		dc.b	"Chip Ram",0
		cnop	0,2
NewGT1_18:
		dc.b	"Mo_dus",0
		cnop	0,2
NewGT1_19:
		dc.b	"Mo_dus",0
		cnop	0,2
NewGT1_20:
		dc.b	"Farb_wahl",0
		cnop	0,2
NewGT1_21:
		dc.b	"Farb_wahl",0
		cnop	0,2
NewGT1_22:
		dc.b	"Q",0
		cnop	0,2
NewGT1_23:
		dc.b	"Q",0
		cnop	0,2
NewGT1_24:
		dc.b	"Anfang",0
		cnop	0,2
FormatText1_24:
		dc.b	"%ld ",0
		cnop	0,2
NewGT1_25:
		dc.b	"Ende",0
		cnop	0,2
FormatText1_25:
		dc.b	"%ld ",0
		cnop	0,2
NewGT1_26:
		dc.b	"Fix Text",0
		cnop	0,2
StringText1_26:
		dc.b	"GadEd Version 1.10",0
		cnop	0,2
NewGT1_27:
		dc.b	"Fix Text",0
		cnop	0,2
StringText1_27:
		dc.b	"<Empty>",0
		cnop	0,2

Kinds1:
		dc.l	INTEGER_KIND
		dc.l	INTEGER_KIND
		dc.l	STRING_KIND
		dc.l	STRING_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	BUTTON_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	CHECKBOX_KIND
		dc.l	LISTVIEW_KIND
		dc.l	LISTVIEW_KIND
		dc.l	MX_KIND
		dc.l	MX_KIND
		dc.l	NUMBER_KIND
		dc.l	NUMBER_KIND
		dc.l	CYCLE_KIND
		dc.l	CYCLE_KIND
		dc.l	PALETTE_KIND
		dc.l	PALETTE_KIND
		dc.l	SCROLLER_KIND
		dc.l	SCROLLER_KIND
		dc.l	SLIDER_KIND
		dc.l	SLIDER_KIND
		dc.l	TEXT_KIND
		dc.l	TEXT_KIND

Tags1:
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTIN_Number,4711
		dc.l	STRINGA_ReplaceMode,TRUE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTIN_Number,1
		dc.l	GTIN_MaxChars,7
		dc.l	STRINGA_Justification,GACT_STRINGCENTER
		dc.l	GA_TabCycle,FALSE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTST_String,StringText1_2
		dc.l	STRINGA_ReplaceMode,TRUE
		dc.l	STRINGA_Justification,GACT_STRINGCENTER
		dc.l	GTST_MaxChars,79
		dc.l	GA_Immediate,TRUE
		dc.l	GA_TabCycle,FALSE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTST_String,StringText1_3
		dc.l	GTST_MaxChars,255
		dc.l	GA_TabCycle,FALSE
		dc.l	STRINGA_ExitHelp,TRUE
		dc.l	TAG_DONE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCB_Checked,TRUE
		dc.l	tagCheckScaled,TRUE
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCB_Checked,TRUE
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	TAG_DONE
		dc.l	GTLV_ReadOnly,TRUE
		dc.l	GTLV_Labels,ListViewList00_0
		dc.l	LAYOUTA_Spacing,2
		dc.l	TAG_DONE
		dc.l	GTLV_ShowSelected,0
		dc.l	GTLV_ScrollWidth,24
		dc.l	GTLV_Labels,ListViewList00_1
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTMX_Spacing,2
		dc.l	GTMX_Labels,MxText1_0
		dc.l	GA_Disabled,TRUE
		dc.l	tagTitlePlace,PLACETEXT_BELOW
		dc.l	TAG_DONE
		dc.l	GTMX_Spacing,2
		dc.l	GTMX_Labels,MxText1_1
		dc.l	tagMxScaled,TRUE
		dc.l	TAG_DONE
		dc.l	GTNM_Border,TRUE
		dc.l	GTNM_Number,11893096
		dc.l	tagClipped,FALSE
		dc.l	TAG_DONE
		dc.l	GTNM_Border,TRUE
		dc.l	GTNM_Number,1904760
		dc.l	tagFrontPen,2
		dc.l	tagJustification,2		dc.l	tagMaxNumberLen,9
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTCY_Labels,CyText1_0
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GA_Disabled,TRUE
		dc.l	GTCY_Labels,CyText1_1
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GA_Disabled,TRUE
		dc.l	GTPA_Depth,2
		dc.l	GTPA_IndicatorHeight,0
		dc.l	GTPA_IndicatorWidth,0
		dc.l	TAG_DONE
		dc.l	GT_Underscore
		dc.b	"____"
		dc.l	GTPA_Depth,2
		dc.l	GTPA_IndicatorHeight,0
		dc.l	GTPA_IndicatorWidth,0
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	GTSC_Total,10
		dc.l	GTSC_Visible,3
		dc.l	GTSC_Arrows,16
		dc.l	PGA_Freedom,2
		dc.l	GA_RelVerify,TRUE
		dc.l	GA_Immediate,TRUE
		dc.l	TAG_DONE
		dc.l	GTSC_Top,9
		dc.l	GTSC_Total,11
		dc.l	GTSC_Arrows,16
		dc.l	PGA_Freedom,2
		dc.l	TAG_DONE
		dc.l	GTSL_Level,3
		dc.l	GTSL_MaxLevelLen,4
		dc.l	GTSL_LevelFormat,FormatText1_24
		dc.l	GTSL_LevelPlace,PLACETEXT_RIGHT
		dc.l	tagMaxPixelLen,5
		dc.l	tagJustification,1
		dc.l	TAG_DONE
		dc.l	GA_Disabled,TRUE
		dc.l	GTSL_Level,15
		dc.l	GTSL_MaxLevelLen,3
		dc.l	GTSL_LevelFormat,FormatText1_25
		dc.l	GTSL_LevelPlace,PLACETEXT_RIGHT
		dc.l	tagJustification,2
		dc.l	TAG_DONE
		dc.l	GTTX_Border,TRUE
		dc.l	GTTX_Text,StringText1_26
		dc.l	GTTX_CopyText,TRUE
		dc.l	tagFrontPen,2
		dc.l	tagBackPen,1
		dc.l	TAG_DONE
		dc.l	GTTX_Border,TRUE
		dc.l	GTTX_Text,StringText1_27
		dc.l	tagJustification,2
		dc.l	tagClipped,FALSE
		dc.l	TAG_DONE
MxText1_0:
		dc.l	MxLab1_0_0
		dc.l	MxLab1_0_1
		dc.l	MxLab1_0_2
		dc.l	MxLab1_0_3
		dc.l	0
MxLab1_0_0:
		dc.b	"_Domino",0
		cnop	0,2
MxLab1_0_1:
		dc.b	"_Pal",0
		cnop	0,2
MxLab1_0_2:
		dc.b	"_Ntsc",0
		cnop	0,2
MxLab1_0_3:
		dc.b	"N_ichts",0
		cnop	0,2
MxText1_1:
		dc.l	MxLab1_1_0
		dc.l	MxLab1_1_1
		dc.l	MxLab1_1_2
		dc.l	MxLab1_1_3
		dc.l	MxLab1_1_4
		dc.l	MxLab1_1_5
		dc.l	MxLab1_1_6
		dc.l	MxLab1_1_7
		dc.l	MxLab1_1_8
		dc.l	0
MxLab1_1_0:
		dc.b	"1",0
		cnop	0,2
MxLab1_1_1:
		dc.b	"2",0
		cnop	0,2
MxLab1_1_2:
		dc.b	"4",0
		cnop	0,2
MxLab1_1_3:
		dc.b	"8",0
		cnop	0,2
MxLab1_1_4:
		dc.b	"16",0
		cnop	0,2
MxLab1_1_5:
		dc.b	"32",0
		cnop	0,2
MxLab1_1_6:
		dc.b	"64",0
		cnop	0,2
MxLab1_1_7:
		dc.b	"128",0
		cnop	0,2
MxLab1_1_8:
		dc.b	"256",0
		cnop	0,2
CyText1_0:
		dc.l	CyLab1_0_0
		dc.l	CyLab1_0_1
		dc.l	CyLab1_0_2
		dc.l	0
CyLab1_0_0:
		dc.b	"Pause",0
		cnop	0,2
CyLab1_0_1:
		dc.b	"Step",0
		cnop	0,2
CyLab1_0_2:
		dc.b	"Run",0
		cnop	0,2
CyText1_1:
		dc.l	CyLab1_1_0
		dc.l	CyLab1_1_1
		dc.l	CyLab1_1_2
		dc.l	0
CyLab1_1_0:
		dc.b	"Pause",0
		cnop	0,2
CyLab1_1_1:
		dc.b	"Step",0
		cnop	0,2
CyLab1_1_2:
		dc.b	"Run",0
		cnop	0,2

WTags1:
		dc.l	WA_CustomScreen,0
		dc.l	WA_Gadgets,0
		dc.l	WA_Left,0
		dc.l	WA_Top,0
		dc.l	WA_Width,0
		dc.l	WA_Height,0
		dc.l	WA_MinWidth,633
		dc.l	WA_MinHeight,243
		dc.l	WA_MaxWidth,633
		dc.l	WA_MaxHeight,243
		dc.l	WA_Title,WinTitel1
		dc.l	WA_IDCMP,$00400078!$00000202
		dc.l	WA_Flags,$0000100E
		dc.l	waNewLookMenu,TRUE
		dc.l	TAG_DONE,0
WinTitel1:
		dc.b	"Gadget Test Fenster",0
		cnop	0,2

newM1:
		dc.b	NM_TITLE,0
		dc.l	newMT1_0,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_1
		dc.l	newMC1_1
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_3
		dc.l	newMC1_3
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_4
		dc.l	newMC1_4
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_6
		dc.l	newMC1_6
		dc.w	0
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT1_7,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_8
		dc.l	newMC1_8
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_9
		dc.l	newMC1_9
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_10
		dc.l	newMC1_10
		dc.w	0
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT1_11,0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_12
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT1_13
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!ITEMENABLED
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT1_15
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_16
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_17
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_18
		dc.l	0
		dc.w	MENUTOGGLE!CHECKIT
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_20
		dc.l	0
		dc.w	CHECKIT!CHECKED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_21
		dc.l	0
		dc.w	CHECKIT
		dc.l	0,0
		dc.b	NM_TITLE,0
		dc.l	newMT1_22,0
		dc.w	NM_MENUDISABLED
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_23
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_24
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	NM_BARLABEL
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_ITEM,0
		dc.l	newMT1_26
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT1_27
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_SUB,0
		dc.l	newMT1_28
		dc.l	0
		dc.w	0
		dc.l	0,0
		dc.b	NM_END,0
		dc.l	0,0
		dc.w	0
		dc.l	0,0

newMT1_0:
		dc.b	"Projekt",0
		cnop	0,2
newMT1_1:
		dc.b	"About",0
		cnop	0,2
newMC1_1:
		dc.b	"A",0
		cnop	0,2
newMT1_3:
		dc.b	"Load",0
		cnop	0,2
newMC1_3:
		dc.b	"L",0
		cnop	0,2
newMT1_4:
		dc.b	"Save",0
		cnop	0,2
newMC1_4:
		dc.b	"S",0
		cnop	0,2
newMT1_6:
		dc.b	"Quit",0
		cnop	0,2
newMC1_6:
		dc.b	"Q",0
		cnop	0,2
newMT1_7:
		dc.b	"Buffer",0
		cnop	0,2
newMT1_8:
		dc.b	"Cut",0
		cnop	0,2
newMC1_8:
		dc.b	"C",0
		cnop	0,2
newMT1_9:
		dc.b	"Paste",0
		cnop	0,2
newMC1_9:
		dc.b	"P",0
		cnop	0,2
newMT1_10:
		dc.b	"Copy",0
		cnop	0,2
newMC1_10:
		dc.b	"O",0
		cnop	0,2
newMT1_11:
		dc.b	"Settings",0
		cnop	0,2
newMT1_12:
		dc.b	"Special",0
		cnop	0,2
newMT1_13:
		dc.b	"Betatester Info",0
		cnop	0,2
newMT1_15:
		dc.b	"Extendet Features",0
		cnop	0,2
newMT1_16:
		dc.b	"Save Icons",0
		cnop	0,2
newMT1_17:
		dc.b	"Use ENV:",0
		cnop	0,2
newMT1_18:
		dc.b	"Fast Ram",0
		cnop	0,2
newMT1_20:
		dc.b	"Asl Requster",0
		cnop	0,2
newMT1_21:
		dc.b	"OS 3.x",0
		cnop	0,2
newMT1_22:
		dc.b	"Extendet Menu",0
		cnop	0,2
newMT1_23:
		dc.b	"New 1",0
		cnop	0,2
newMT1_24:
		dc.b	"New 2",0
		cnop	0,2
newMT1_26:
		dc.b	"New 3",0
		cnop	0,2
newMT1_27:
		dc.b	"New 3_1",0
		cnop	0,2
newMT1_28:
		dc.b	"New 3_2",0
		cnop	0,2

Bevel1:
		dc.w	7,101,179,27
		dc.w	329,68,55,95
		dc.w	7,68,179,30
		dc.w	7,132,179,31
		dc.w	364,210,264,29
		dc.w	213,13,171,53
		dc.w	7,210,345,29
		dc.w	7,165,240,43
		dc.w	7,13,203,53
		dc.w	188,68,139,95
		dc.w	250,165,378,43
		dc.w	387,13,241,150

BevelTags1:
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE
		dc.l	GT_VisualInfo,0
		dc.l	TAG_DONE

IText1:
		dc.b	3,2,RP_JAM2,0
		dc.w	267,126
		dc.l	SAttr
		dc.l	ITText1_0,0
		dc.b	1,0,RP_JAM2!RP_INVERSVID,0
		dc.w	283,144
		dc.l	SAttr
		dc.l	ITText1_1,0
		dc.b	1,3,RP_JAM2,0
		dc.w	291,153
		dc.l	SAttr
		dc.l	ITText1_2,0
		dc.b	1,2,RP_JAM2,0
		dc.w	299,135
		dc.l	SAttr
		dc.l	ITText1_3,0

ITText1_0:
		dc.b	"Das ist",0
		cnop	0,2
ITText1_1:
		dc.b	"Intui",0
		cnop	0,2
ITText1_2:
		dc.b	"Text",0
		cnop	0,2
ITText1_3:
		dc.b	"ein",0
		cnop	0,2

ListViewText1_0_0:
		dc.b	"Mode:      Hires Lace",0
		cnop	0,2
ListViewText1_0_1:
		dc.b	"Auflösung: 800x600",0
		cnop	0,2
ListViewText1_0_2:
		dc.b	"Hori. Frq: 81 Hz",0
		cnop	0,2
ListViewText1_0_3:
		dc.b	"Vert. Frq: 57 kHz",0
		cnop	0,2
ListViewText1_0_4:
		dc.b	" ",0
		cnop	0,2
ListViewText1_0_5:
		dc.b	"Special:   Nicht ziehbar",0
		cnop	0,2
ListViewText1_0_6:
		dc.b	"           Kein Genlock",0
		cnop	0,2
ListViewText1_0_7:
		dc.b	"           WB Like",0
		cnop	0,2

ListViewText1_1_0:
		dc.b	"DOMINO:1280x1024",0
		cnop	0,2
ListViewText1_1_1:
		dc.b	"DOMINO:1024x768",0
		cnop	0,2
ListViewText1_1_2:
		dc.b	"DOMINO:800x600",0
		cnop	0,2
ListViewText1_1_3:
		dc.b	"DOMINO:640x480",0
		cnop	0,2
ListViewText1_1_4:
		dc.b	"PAL:Hires",0
		cnop	0,2
ListViewText1_1_5:
		dc.b	"PAL:Hires Lace",0
		cnop	0,2
ListViewText1_1_6:
		dc.b	"PAL:Superhires",0
		cnop	0,2
ListViewText1_1_7:
		dc.b	"PAL:Superhires Lace",0
		cnop	0,2



		section text,CODE

; Übergabeparameter
;  A0 - Liste
;  A1 - Text
;  D0 - Länge des Textes
;
; Rückgabeparameter
;  A0 - Liste
;  D0 - 0=Fehler
;       1=Erfolg

AddNode:
		movem.l	d2-d3/a2-a4/a6,-(sp)
		move.l	#MEMF_PUBLIC!MEMF_CLEAR,d2
		move.l	_SysBase,a6
		move.l	d0,d3
		move.l	a0,a2
		move.l	a1,a3
		moveq	#LN_SIZE,d0
		move.l	d2,d1
		jsr	_LVOAllocVec(a6)
		tst.l	d0
		beq	AllocFail
		move.l	a2,a0
		move.l	d0,a1
		move.l	d0,a4
		addq.l	#LH_TAIL,a0
		move.l	LN_PRED(a0),d0
		move.l	a1,LN_PRED(a0)
		exg	d0,a0
		movem.l	d0/a0,(a1)
		move.l	a1,(a0)
		move.l	d3,d0
		move.l	d2,d1
		jsr	_LVOAllocVec(a6)
		move.l	d0,LN_NAME(a4)
		beq	AllocFail
		move.l	d0,a1
		move.l	a3,a0
		move.l	d3,d0
		jsr	_LVOCopyMem(a6)
		move.l	#TRUE,d0
AllocFail:	move.l	a2,a0
		movem.l	(sp)+,d2-d3/a2-a4/a6
		rts

; Übergabeparameter
;  d0.w - Neu zu berechnender X Wert
;
; Rückgabeparameter
;  d0.w - Neuer X Wert

CalcXValue:
		mulu	FontXSize,d0
		add.w	#4,d0
		divu	#8,d0
		rts

; Übergabeparameter
;  d0.w - Neu zu berechnender X Wert
;
; Rückgabeparameter
;  d0.w - Neuer X Wert

CalcYValue:
		mulu	FontYSize,d0
		add.w	#4,d0
		divu	#8,d0
		rts

; Übergabeparameter
;  d0.w - Width
;  d1.w - Height

CalcFont:
		movem.l	d0-d3/a2,-(sp)
		clr.w	OffsetY
		move.l	S,a0
		lea	sc_RastPort(a0),a1
		move.l	rp_Font(a1),a1
		move.w	tf_XSize(a1),d2
		move.w	d2,FontXSize
		move.w	tf_YSize(a1),d2
		move.w	d2,FontYSize
		lea	SAttr,a2
		move.l	LN_NAME(a1),ta_Name(a2)
		move.w	d2,ta_YSize(a2)
		move.w	d0,d3
		add.w	d1,d3
		tst.w	d3
		beq	CalcFontDone
		bsr	CalcXValue
		exg	d0,d1
		bsr	CalcYValue
		exg	d0,d1
		cmp	sc_Width(a0),d0
		bhi	CalcFontChange
		cmp	sc_Height(a0),d1
		bhi	CalcFontChange
		bra	CalcFontDone
CalcFontChange:	sub.w	#8,d2
		move.w	d2,OffsetY
		move.l	#TopazName,ta_Name(a2)
		move.w	#8,ta_YSize(a2)
		move.w	#8,FontXSize
		move.w	#8,FontYSize
CalcFontDone:	movem.l	(sp)+,d0-d3/a2
		rts

; Übergabeparameter
;  d0.w - Width
;
; Rückgabeparameter
;  d0.w - LeftEdge

CenterX:
		movem.l	d2-d4/a1-a2,-(sp)
		move.w	d0,d4
		move.l	S,a2
		lea	sc_ViewPort(a2),a0
		move.l	_GfxBase,a6
		jsr	_LVOGetVPModeID(a6)
		move.l	d0,a0
		lea	Rect,a1
		move.w	#OSCAN_TEXT,d0
		move.l	_IntuitionBase,a6
		jsr	_LVOQueryOverscan(a6)
		move.w	sc_LeftEdge(a2),d2
		neg.w	d2
		lea	Rect,a0
		move.w	ra_MaxX(a0),d3
		sub.w	ra_MinX(a0),d3
		addq	#1,d3
		sub.w	d4,d3
		asr.w	#1,d3
		add.w	d2,d3
		move.w	d3,d0
		movem.l	(sp)+,d2-d4/a1-a2
		rts

; Übergabeparameter
;  d0.w - Height
;
; Rückgabeparameter
;  d0.w - TopEdge

CenterY:
		movem.l	d2-d4/a1-a2,-(sp)
		move.w	d0,d4
		move.l	S,a2
		lea	sc_ViewPort(a2),a0
		move.l	_GfxBase,a6
		jsr	_LVOGetVPModeID(a6)
		move.l	d0,a0
		lea	Rect,a1
		move.w	#OSCAN_TEXT,d0
		move.l	_IntuitionBase,a6
		jsr	_LVOQueryOverscan(a6)
		move.w	sc_TopEdge(a2),d2
		neg.w	d2
		lea	Rect,a0
		move.w	ra_MaxY(a0),d3
		sub.w	ra_MinY(a0),d3
		addq	#1,d3
		sub.w	d4,d3
		asr.w	#1,d3
		add.w	d2,d3
		move.w	d3,d0
		movem.l	(sp)+,d2-d4/a1-a2
		rts

		XDEF	_InitUnbekannt

; Übergabeparameter
;  a0 - Screen Pointer
;  a1 - UserTag Pointer
;
; Rückgabeparameter
;  d0 - 0=Fehler
;       1=Erfolg

_InitUnbekannt:
		movem.l	d2-d3/a2/a6,-(sp)
		move.l	a1,a2
		move.l	S,d0
		bne	ScreenOut
		move.l	a0,d0
		bne	GotScreen
		move.b	#1,OwnScreen
		lea	SAttr,a0
		move.l	_DiskfontBase,a6
		jsr	_LVOOpenDiskFont(a6)
		move.l	d0,SFont
		beq	ScreenOut
		move.l	_UtilityBase,a6
		lea	STags,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d2
		beq	ScreenFail
		move.l	a2,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d3
		bne	UserOk
		move.l	d2,a0
		jsr	_LVOFreeTagItems(a6)
		bra	ScreenFail
UserOk:		move.l	d3,a0
		move.l	d2,a1
		moveq	#1,d0
		jsr	_LVOFilterTagChanges(a6)
		move.l	d2,a0
STagLoop:	tst.l	(a0)
		beq	STagOut
		adda.l	#ti_SIZEOF,a0
		bra	STagLoop
STagOut:	move.l	#TAG_MORE,(a0)+
		move.l	d3,(a0)
		suba.l	a0,a0
		move.l	d2,a1
		move.l	_IntuitionBase,a6
		jsr	_LVOOpenScreenTagList(a6)
		move.l	d0,S
		move.l	_UtilityBase,a6
		move.l	d2,a0
		jsr	_LVOFreeTagItems(a6)
		move.l	d3,a0
		jsr	_LVOFreeTagItems(a6)
		move.l	S,d0
		beq	ScreenFail
		move.l	d0,a0
		bra	SOffen
GotScreen:	move.b	#0,OwnScreen
		move.l	a0,S
SOffen:		moveq	#0,d0
		moveq	#0,d1
		jsr	CalcFont
		suba.l	a1,a1
		move.l	_GadToolsBase,a6
		jsr	_LVOGetVisualInfoA(a6)
		move.l	d0,Vi
		beq	ScreenFail
		moveq	#1,d0
ScreenOut:	movem.l	(sp)+,d2-d3/a2/a6
		rts
ScreenFail:	jsr	_FreeUnbekannt
		moveq	#0,d0
		bra	ScreenOut

		XDEF	_RefreshProc00

_RefreshProc00:
		movem.l	d2-d5/a2-a4/a6,-(sp)
		move.l	W0,a0
		move.l	a0,d0
		beq	RefreshFail0
		move.l	wd_RPort(a0),a2
		move.l	_GadToolsBase,a6
		lea	BevelTags0,a3
		lea	Bevel0,a4
		move.w	#11,d4
BevelLoop0:	move.l	Vi,4(a3)
		move.w	(a4)+,d0
		jsr	CalcXValue
		exg	d0,d5
		move.w	(a4)+,d0
		jsr	CalcYValue
		move.w	d0,d1
		add.w	OffsetY,d1
		move.w	(a4)+,d0
		jsr	CalcXValue
		move.w	d0,d2
		move.w	(a4)+,d0
		jsr	CalcYValue
		move.w	d0,d3
		exg	d0,d5
		move.l	a2,a0
		move.l	a3,a1
		jsr	_LVODrawBevelBoxA(a6)
RTagLoop0:	tst.l	(a3)
		beq	RTagOut0
		add.l	#ti_SIZEOF,a3
		bra	RTagLoop0
RTagOut0:	add.l	#4,a3
		dbf	d4,BevelLoop0
		move.l	_IntuitionBase,a6
		move.w	#3,d2
		lea	IText0,a4
IntuiLoop0	lea	TempIText,a3
		moveq	#4,d0
IntuiCopyLoop0:	move.l	(a4)+,(a3)+
		dbf	d0,IntuiCopyLoop0
		lea	TempIText,a3
		move.w	it_LeftEdge(a3),d0
		jsr	CalcXValue
		move.w	d0,it_LeftEdge(a3)
		move.w	it_TopEdge(a3),d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,it_TopEdge(a3)
		move.l	a2,a0
		move.l	a3,a1
		moveq	#0,d0
		moveq	#0,d1
		jsr	_LVOPrintIText(a6)
		dbf	d2,IntuiLoop0
RefreshFail0:	movem.l	(sp)+,d2-d5/a2-a4/a6
		rts

		XDEF	_InitProc00Mask

; Übergabeparameter
;  a0 - UserTag Pointer
;
; Rückgabeparameter
;  D0 = Zeiger auf das geöffnete Fenster
;       im Fehlerfall 0

_InitProc00Mask:
		movem.l	d2-d4/a2-a6,-(sp)
		move.l	W0,d0
		bne	InitOut0
		move.l	a0,d4
		lea	WAttr0,a0
		move.l	_DiskfontBase,a6
		jsr	_LVOOpenDiskFont(a6)
		move.l	d0,WFont0
		beq	InitOut0
		lea	Liste_0,a0
		move.l	a0,LH_TAILPRED(a0)
		addq.l	#4,a0
		clr.l	(a0)
		move.l	a0,-(a0)
		lea	Liste_1,a0
		move.l	a0,LH_TAILPRED(a0)
		addq.l	#4,a0
		clr.l	(a0)
		move.l	a0,-(a0)

		lea	Liste_0,a0
		lea	ListViewText0_0_0,a1
		move.l	#22,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_1,a1
		move.l	#19,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_2,a1
		move.l	#17,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_3,a1
		move.l	#18,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_4,a1
		move.l	#2,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_5,a1
		move.l	#25,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_6,a1
		move.l	#24,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_0_7,a1
		move.l	#19,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	Liste_1,a0
		lea	ListViewText0_1_0,a1
		move.l	#17,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_1,a1
		move.l	#16,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_2,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_3,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_4,a1
		move.l	#10,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_5,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_6,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0
		lea	ListViewText0_1_7,a1
		move.l	#20,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail0

		move.l	S,a0
		move.w	#41,WinLeft
		move.w	#120,WinTop
		move.w	#633,d0
		move.w	#243,d1
		jsr	CalcFont
		jsr	CalcXValue
		move.w	d0,WinWidth
		move.w	d1,d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,WinHeight
		move.w	WinWidth,d0
		add.w	WinLeft,d0
		cmp	sc_Width(a0),d0
		bls	NoWChange0
		move.w	sc_Width(a0),d0
		sub.w	WinWidth,d0
		move.w	d0,WinLeft
NoWChange0:	move.w	WinHeight,d0
		add.w	WinTop,d0
;		add.w	OffsetY,d0
		cmp	sc_Height(a0),d0
		bls	NoHChange0
		move.w	sc_Height(a0),d0
		sub.w	WinHeight,d0
		move.w	d0,WinTop
NoHChange0:	lea	Congad0,a0
		move.l	_GadToolsBase,a6
		jsr	_LVOCreateContext(a6)
		move.l	d0,d3
		beq	InitFail0
		move.w	#27,d2
		lea	NewG0,a4
		lea	Tags0,a2
		lea	G0,a3
		lea	Kinds0,a5
		moveq	#0,d4
GadLoop0:	lea	TempGadget,a1
		moveq	#6,d0
GadCopyLoop0:	move.l	(a4)+,(a1)+
		dbf	d0,GadCopyLoop0
		move.w	(a4)+,(a1)+
		lea	TempGadget,a1
		move.l	Vi,gng_VisualInfo(a1)
		move.w	gng_LeftEdge(a1),d0
		jsr	CalcXValue
		move.w	d0,gng_LeftEdge(a1)
		move.w	gng_TopEdge(a1),d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,gng_TopEdge(a1)
		move.w	gng_Width(a1),d0
		jsr	CalcXValue
		move.w	d0,gng_Width(a1)
		move.w	gng_Height(a1),d0
		jsr	CalcYValue
		move.w	d0,gng_Height(a1)
		move.l	(a5),d0
		move.l	d3,a0
		lea	TempGadget,a1
		move.l	_GadToolsBase,a6
		jsr	_LVOCreateGadgetA(a6)
		move.l	d0,d3
		beq	InitFail0
		move.l	d0,(a3)+
		lea	TempGadget,a1
		move.l	d0,a0
		cmpi.l	#BUTTON_KIND,(a5)+
		bne	GadTagLoop0
		cmpi.l	#1,gng_UserData(a1)
		blt	GadTagLoop0
		ori	#GACT_TOGGLESELECT,gg_Activation(a0)
		cmpi.l	#2,gng_UserData(a1)
		blt	GadTagLoop0
		ori	#GFLG_SELECTED,gg_Flags(a0)
GadTagLoop0:	tst	(a2)
		beq	GadTagOut0
		add.l	#ti_SIZEOF,a2
		bra	GadTagLoop0
GadTagOut0:	add.l	#4,a2
		dbf	d2,GadLoop0

		lea	WTags0,a1
		move.l	S,a2
		move.l	a2,4(a1)
		move.l	Congad0,12(a1)
		moveq	#0,d0
		move.w	WinWidth,d0
		jsr	CenterX
		move.l	d0,20(a1)
		move.w	WinHeight,d0
		jsr	CenterY
		move.l	d0,28(a1)
		move.w	WinWidth,d0
		move.l	d0,36(a1)
		move.w	WinHeight,d0
		move.l	d0,44(a1)
		move.l	_UtilityBase,a6
		lea	WTags0,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d2
		beq	InitFail0
		move.l	d4,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d3
		bne	InitUser0
		move.l	d2,a0
		jsr	_LVOFreeTagItems(a6)
		bra	InitFail0
InitUser0:	move.l	d3,a0
		move.l	d2,a1
		moveq	#1,d0
		jsr	_LVOFilterTagChanges(a6)
		move.l	d2,a0
WinTagLoop0:	tst.l	(a0)
		beq	WinTagOut0
		adda.l	#ti_SIZEOF,a0
		bra	WinTagLoop0
WinTagOut0:	move.l	#TAG_MORE,(a0)+
		move.l	d3,(a0)
		move.l	d2,a1
		suba.l	a0,a0
		move.l	_IntuitionBase,a6
		jsr	_LVOOpenWindowTagList(a6)
		move.l	d0,W0
		beq	InitFail0
		move.l	_GadToolsBase,a6
		move.l	d0,a0
		suba.l	a1,a1
		jsr	_LVOGT_RefreshWindow(a6)
		lea	newM0,a0
		suba.l	a1,a1
		jsr	_LVOCreateMenusA(a6)
		move.l	d0,Men
		beq	InitFail0
		move.l	d0,a0
		move.l	Vi,a1
		lea	MenuTag,a2
		jsr	_LVOLayoutMenusA(a6)
		tst.l	d0
		beq	InitFail0
		move.l	_IntuitionBase,a6
		move.l	W0,a0
		move.l	Men,a1
		jsr	_LVOSetMenuStrip(a6)
		tst.l	d0
		beq	InitFail0
		bsr	_RefreshProc00
		move.l	W0,d0
InitOut0:	movem.l	(sp)+,d2-d4/a2-a6
		rts
InitFail0:	jsr	_CloseProc00Mask
		moveq	#0,d0
		bra	InitOut0

; Übergabeparameter
;  D0 - Gadget Nummer
;
; Rückgabeparameter
;  D0 - Zeiger auf das Gadget oder 0

		XDEF	_GetProc00GPtr

_GetProc00GPtr:
		cmpi.l	#27,d0
		bhi	GetFail0
		tst.l	d0
		blt	GetFail0
		lea	G0,a0
		asl.l	#2,d0
		move.l	0(a0,d0.l),d0
		rts
GetFail0:	moveq	#0,d0
		rts

		XDEF	_CloseProc00Mask

_CloseProc00Mask:
		movem.l	d2/a2-a3/a6,-(sp)
		move.l	_IntuitionBase,a6
		move.l	W0,d0
		beq	Close0_0
		move.l	d0,a0
		jsr	_LVOCloseWindow(a6)
		clr.l	W0
Close0_0:	move.l	Men,d0
		beq	Close0_1
		move.l	d0,a2
		move.l	W0,a0
		jsr	_LVOClearMenuStrip(a6)
		move.l	_GadToolsBase,a6
		move.l	a2,a0
		jsr	_LVOFreeMenus(a6)
		clr.l	Men
Close0_1:	move.l	Congad0,d0
		beq	Close0_2
		move.l	d0,a0
		jsr	_LVOFreeGadgets(a6)
		clr.l	Congad0
Close0_2:	move.l	_SysBase,a6
		move.w	#1,d2
		lea	Liste_0,a2
ListViewFree0:	move.l	a2,a0
		move.l	(a0),a1
		move.l	(a1),d0
		beq	RemHead0
		move.l	d0,(a0)
		exg.l	d0,a1
		move.l	a0,LN_PRED(a1)
RemHead0:
		tst.l	d0
		beq	NextListView0
		move.l	d0,a3
		tst.l	LN_NAME(a3)
		beq	NoName0
		move.l	LN_NAME(a3),a1
		jsr	_LVOFreeVec(a6)
NoName0:	move.l	a3,a1
		jsr	_LVOFreeVec(a6)
		bra	ListViewFree0
NextListView0:	adda.l	#MLH_SIZE,a2
		dbf	d2,ListViewFree0
		move.l	_GfxBase,a6
		move.l	WFont0,d0
		beq	Close0_3
		move.l	d0,a1
		jsr	_LVOCloseFont(A6)
		clr.l	WFont0
Close0_3:	movem.l	(sp)+,d2/a2-a3/a6
		rts

		XDEF	_RefreshProc01

_RefreshProc01:
		movem.l	d2-d5/a2-a4/a6,-(sp)
		move.l	W1,a0
		move.l	a0,d0
		beq	RefreshFail1
		move.l	wd_RPort(a0),a2
		move.l	_GadToolsBase,a6
		lea	BevelTags1,a3
		lea	Bevel1,a4
		move.w	#11,d4
BevelLoop1:	move.l	Vi,4(a3)
		move.w	(a4)+,d0
		jsr	CalcXValue
		exg	d0,d5
		move.w	(a4)+,d0
		jsr	CalcYValue
		move.w	d0,d1
		add.w	OffsetY,d1
		move.w	(a4)+,d0
		jsr	CalcXValue
		move.w	d0,d2
		move.w	(a4)+,d0
		jsr	CalcYValue
		move.w	d0,d3
		exg	d0,d5
		move.l	a2,a0
		move.l	a3,a1
		jsr	_LVODrawBevelBoxA(a6)
RTagLoop1:	tst.l	(a3)
		beq	RTagOut1
		add.l	#ti_SIZEOF,a3
		bra	RTagLoop1
RTagOut1:	add.l	#4,a3
		dbf	d4,BevelLoop1
		move.l	_IntuitionBase,a6
		move.w	#3,d2
		lea	IText1,a4
IntuiLoop1	lea	TempIText,a3
		moveq	#4,d0
IntuiCopyLoop1:	move.l	(a4)+,(a3)+
		dbf	d0,IntuiCopyLoop1
		lea	TempIText,a3
		move.w	it_LeftEdge(a3),d0
		jsr	CalcXValue
		move.w	d0,it_LeftEdge(a3)
		move.w	it_TopEdge(a3),d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,it_TopEdge(a3)
		move.l	a2,a0
		move.l	a3,a1
		moveq	#0,d0
		moveq	#0,d1
		jsr	_LVOPrintIText(a6)
		dbf	d2,IntuiLoop1
RefreshFail1:	movem.l	(sp)+,d2-d5/a2-a4/a6
		rts

		XDEF	_InitProc01Mask

; Übergabeparameter
;  a0 - UserTag Pointer
;
; Rückgabeparameter
;  D0 = Zeiger auf das geöffnete Fenster
;       im Fehlerfall 0

_InitProc01Mask:
		movem.l	d2-d4/a2-a6,-(sp)
		move.l	W1,d0
		bne	InitOut1
		move.l	a0,d4
		lea	WAttr1,a0
		move.l	_DiskfontBase,a6
		jsr	_LVOOpenDiskFont(a6)
		move.l	d0,WFont1
		beq	InitOut1
		lea	ListViewList00_0,a0
		move.l	a0,LH_TAILPRED(a0)
		addq.l	#4,a0
		clr.l	(a0)
		move.l	a0,-(a0)
		lea	ListViewList00_1,a0
		move.l	a0,LH_TAILPRED(a0)
		addq.l	#4,a0
		clr.l	(a0)
		move.l	a0,-(a0)

		lea	ListViewList00_0,a0
		lea	ListViewText1_0_0,a1
		move.l	#22,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_1,a1
		move.l	#19,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_2,a1
		move.l	#17,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_3,a1
		move.l	#18,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_4,a1
		move.l	#2,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_5,a1
		move.l	#25,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_6,a1
		move.l	#24,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_0_7,a1
		move.l	#19,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewList00_1,a0
		lea	ListViewText1_1_0,a1
		move.l	#17,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_1,a1
		move.l	#16,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_2,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_3,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_4,a1
		move.l	#10,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_5,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_6,a1
		move.l	#15,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1
		lea	ListViewText1_1_7,a1
		move.l	#20,d0
		jsr	AddNode
		tst.l	d0
		beq	InitFail1

		move.l	S,a0
		move.w	#41,WinLeft
		move.w	#120,WinTop
		move.w	#633,d0
		move.w	#243,d1
		jsr	CalcFont
		jsr	CalcXValue
		move.w	d0,WinWidth
		move.w	d1,d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,WinHeight
		move.w	WinWidth,d0
		add.w	WinLeft,d0
		cmp	sc_Width(a0),d0
		bls	NoWChange1
		move.w	sc_Width(a0),d0
		sub.w	WinWidth,d0
		move.w	d0,WinLeft
NoWChange1:	move.w	WinHeight,d0
		add.w	WinTop,d0
;		add.w	OffsetY,d0
		cmp	sc_Height(a0),d0
		bls	NoHChange1
		move.w	sc_Height(a0),d0
		sub.w	WinHeight,d0
		move.w	d0,WinTop
NoHChange1:	lea	Congad1,a0
		move.l	_GadToolsBase,a6
		jsr	_LVOCreateContext(a6)
		move.l	d0,d3
		beq	InitFail1
		move.w	#27,d2
		lea	NewG1,a4
		lea	Tags1,a2
		lea	GPtrs00,a3
		lea	Kinds1,a5
		moveq	#0,d4
GadLoop1:	lea	TempGadget,a1
		moveq	#6,d0
GadCopyLoop1:	move.l	(a4)+,(a1)+
		dbf	d0,GadCopyLoop1
		move.w	(a4)+,(a1)+
		lea	TempGadget,a1
		move.l	Vi,gng_VisualInfo(a1)
		move.w	gng_LeftEdge(a1),d0
		jsr	CalcXValue
		move.w	d0,gng_LeftEdge(a1)
		move.w	gng_TopEdge(a1),d0
		jsr	CalcYValue
		add.w	OffsetY,d0
		move.w	d0,gng_TopEdge(a1)
		move.w	gng_Width(a1),d0
		jsr	CalcXValue
		move.w	d0,gng_Width(a1)
		move.w	gng_Height(a1),d0
		jsr	CalcYValue
		move.w	d0,gng_Height(a1)
		move.l	(a5),d0
		move.l	d3,a0
		lea	TempGadget,a1
		move.l	_GadToolsBase,a6
		jsr	_LVOCreateGadgetA(a6)
		move.l	d0,d3
		beq	InitFail1
		move.l	d0,(a3)+
		lea	TempGadget,a1
		move.l	d0,a0
		cmpi.l	#BUTTON_KIND,(a5)+
		bne	GadTagLoop1
		cmpi.l	#1,gng_UserData(a1)
		blt	GadTagLoop1
		ori	#GACT_TOGGLESELECT,gg_Activation(a0)
		cmpi.l	#2,gng_UserData(a1)
		blt	GadTagLoop1
		ori	#GFLG_SELECTED,gg_Flags(a0)
GadTagLoop1:	tst	(a2)
		beq	GadTagOut1
		add.l	#ti_SIZEOF,a2
		bra	GadTagLoop1
GadTagOut1:	add.l	#4,a2
		dbf	d2,GadLoop1

		lea	WTags1,a1
		move.l	S,a2
		move.l	a2,4(a1)
		move.l	Congad1,12(a1)
		moveq	#0,d0
		move.w	WinWidth,d0
		jsr	CenterX
		move.l	d0,20(a1)
		move.w	WinHeight,d0
		jsr	CenterY
		move.l	d0,28(a1)
		move.w	WinWidth,d0
		move.l	d0,36(a1)
		move.w	WinHeight,d0
		move.l	d0,44(a1)
		move.l	_UtilityBase,a6
		lea	WTags1,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d2
		beq	InitFail1
		move.l	d4,a0
		jsr	_LVOCloneTagItems(a6)
		move.l	d0,d3
		bne	InitUser1
		move.l	d2,a0
		jsr	_LVOFreeTagItems(a6)
		bra	InitFail1
InitUser1:	move.l	d3,a0
		move.l	d2,a1
		moveq	#1,d0
		jsr	_LVOFilterTagChanges(a6)
		move.l	d2,a0
WinTagLoop1:	tst.l	(a0)
		beq	WinTagOut1
		adda.l	#ti_SIZEOF,a0
		bra	WinTagLoop1
WinTagOut1:	move.l	#TAG_MORE,(a0)+
		move.l	d3,(a0)
		move.l	d2,a1
		suba.l	a0,a0
		move.l	_IntuitionBase,a6
		jsr	_LVOOpenWindowTagList(a6)
		move.l	d0,W1
		beq	InitFail1
		move.l	_GadToolsBase,a6
		move.l	d0,a0
		suba.l	a1,a1
		jsr	_LVOGT_RefreshWindow(a6)
		lea	newM1,a0
		suba.l	a1,a1
		jsr	_LVOCreateMenusA(a6)
		move.l	d0,Menu00
		beq	InitFail1
		move.l	d0,a0
		move.l	Vi,a1
		lea	MenuTag,a2
		jsr	_LVOLayoutMenusA(a6)
		tst.l	d0
		beq	InitFail1
		move.l	_IntuitionBase,a6
		move.l	W1,a0
		move.l	Menu00,a1
		jsr	_LVOSetMenuStrip(a6)
		tst.l	d0
		beq	InitFail1
		bsr	_RefreshProc01
		move.l	W1,d0
InitOut1:	movem.l	(sp)+,d2-d4/a2-a6
		rts
InitFail1:	jsr	_CloseProc01Mask
		moveq	#0,d0
		bra	InitOut1

; Übergabeparameter
;  D0 - Gadget Nummer
;
; Rückgabeparameter
;  D0 - Zeiger auf das Gadget oder 0

		XDEF	_GetProc01GPtr

_GetProc01GPtr:
		cmpi.l	#27,d0
		bhi	GetFail1
		tst.l	d0
		blt	GetFail1
		lea	GPtrs00,a0
		asl.l	#2,d0
		move.l	0(a0,d0.l),d0
		rts
GetFail1:	moveq	#0,d0
		rts

		XDEF	_CloseProc01Mask

_CloseProc01Mask:
		movem.l	d2/a2-a3/a6,-(sp)
		move.l	_IntuitionBase,a6
		move.l	W1,d0
		beq	Close1_0
		move.l	d0,a0
		jsr	_LVOCloseWindow(a6)
		clr.l	W1
Close1_0:	move.l	Menu00,d0
		beq	Close1_1
		move.l	d0,a2
		move.l	W1,a0
		jsr	_LVOClearMenuStrip(a6)
		move.l	_GadToolsBase,a6
		move.l	a2,a0
		jsr	_LVOFreeMenus(a6)
		clr.l	Menu00
Close1_1:	move.l	Congad1,d0
		beq	Close1_2
		move.l	d0,a0
		jsr	_LVOFreeGadgets(a6)
		clr.l	Congad1
Close1_2:	move.l	_SysBase,a6
		move.w	#1,d2
		lea	ListViewList00_0,a2
ListViewFree1:	move.l	a2,a0
		move.l	(a0),a1
		move.l	(a1),d0
		beq	RemHead1
		move.l	d0,(a0)
		exg.l	d0,a1
		move.l	a0,LN_PRED(a1)
RemHead1:
		tst.l	d0
		beq	NextListView1
		move.l	d0,a3
		tst.l	LN_NAME(a3)
		beq	NoName1
		move.l	LN_NAME(a3),a1
		jsr	_LVOFreeVec(a6)
NoName1:	move.l	a3,a1
		jsr	_LVOFreeVec(a6)
		bra	ListViewFree1
NextListView1:	adda.l	#MLH_SIZE,a2
		dbf	d2,ListViewFree1
		move.l	_GfxBase,a6
		move.l	WFont1,d0
		beq	Close1_3
		move.l	d0,a1
		jsr	_LVOCloseFont(A6)
		clr.l	WFont1
Close1_3:	movem.l	(sp)+,d2/a2-a3/a6
		rts

		XDEF	_FreeUnbekannt

_FreeUnbekannt:
		move.l	a6,-(sp)
		jsr	_CloseProc00Mask
		jsr	_CloseProc01Mask
		move.l	Vi,d0
		beq	FreeScreen
		move.l	d0,a0
		move.l	_GadToolsBase,a6
		jsr	_LVOFreeVisualInfo(a6)
		clr.l	Vi
FreeScreen:	tst.b	OwnScreen
		beq	Free0
		move.l	S,d0
		beq	Free0
		move.l	_IntuitionBase,a6
		move.l	d0,a0
		jsr	_LVOCloseScreen(a6)
Free0:		clr.l	S
		move.l	SFont,d0
		beq	Free1
		move.l	_GfxBase,a6
		move.l	d0,a1
		jsr	_LVOCloseFont(a6)
		clr.l	SFont
Free1:		move.l	(sp)+,a6
		rts

		END