NewScreenStructure:
	dc.w	0,0	;screen XY origin relative to View
	dc.w	320,200	;screen width and height
	dc.w	4	;screen depth (number of bitplanes)
	dc.b	0,7	;detail and block pens
	dc.w	NULL	;display modes for this screen
	dc.w	CUSTOMSCREEN	;screen type
	dc.l	TOPAZ80	;pointer to default screen font
	dc.l	NewScreenName	;screen title
	dc.l	NULL	;first in list of custom screen gadgets
	dc.l	NULL	;pointer to custom BitMap structure
NewScreenName:
	dc.b	'Sample Intuition Program',0
	cnop 0,2

Palette:
	dc.w	$0000	;color #0
	dc.w	$0FFF	;color #1
	dc.w	$0900	;color #2
	dc.w	$0F00	;color #3
	dc.w	$0877	;color #4
	dc.w	$0EEE	;color #5
	dc.w	$0A6E	;color #6
	dc.w	$0F71	;color #7
	dc.w	$0FA2	;color #8
	dc.w	$0FF2	;color #9
	dc.w	$0D39	;color #10
	dc.w	$03B0	;color #11
	dc.w	$0080	;color #12
	dc.w	$00C8	;color #13
	dc.w	$00DE	;color #14
	dc.w	$00AF	;color #15
PaletteColorCount equ (*-Palette)/2

NewWindowStructure1:
	dc.w	0,14	;window XY origin relative to TopLeft of screen
	dc.w	320,138	;window width and height
	dc.b	4,5	;detail and block pens
	dc.l	NEWSIZE+MOUSEBUTTONS+GADGETDOWN+GADGETUP+MENUPICK+CLOSEWINDOW+DISKINSERTED+DISKREMOVED+ACTIVEWINDOW+INACTIVEWINDOW	;IDCMP flags
	dc.l	WINDOWSIZING+WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE+ACTIVATE+NOCAREREFRESH	;other window flags
	dc.l	GadgetList1	;first gadget in gadget list
	dc.l	NULL	;custom CHECKMARK imagery
	dc.l	NewWindowName1	;window title
	dc.l	NULL	;custom screen pointer
	dc.l	NULL	;custom bitmap
	dc.w	5,5	;minimum width and height
	dc.w	-1,-1	;maximum width and height
	dc.w	CUSTOMSCREEN	;destination screen type
NewWindowName1:
	dc.b	'Window Of Gadgets',0
	cnop 0,2
GadgetList1:
Gadget1:
	dc.l	Gadget2	;next gadget
	dc.w	28,64	;origin XY of hit box relative to window TopLeft
	dc.w	22,11	;hit box width and height
	dc.w	GADGHIMAGE+GADGIMAGE	;gadget flags
	dc.w	RELVERIFY	;activation flags
	dc.w	BOOLGADGET	;gadget type flags
	dc.l	Image1	;gadget border or image to be rendered
	dc.l	Image2	;alternate imagery for selection
	dc.l	NULL	;first IntuiText structure
	dc.l	NULL	;gadget mutual-exclude long word
	dc.l	NULL	;SpecialInfo structure
	dc.w	NULL	;user-definable data
	dc.l	NULL	;pointer to user-definable data
Image1:
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.w	22,11	;Image width and height in pixels
	dc.w	2	;number of bitplanes in Image
	dc.l	ImageData1	;pointer to ImageData
	dc.b	$0003,$0000	;PlanePick and PlaneOnOff
	dc.l	NULL	;next Image structure
	section ChipData,data,chip
ImageData1:
	dc.w	$FFFF,$FC00,$C000,$0C00,$C030,$0C00,$C0F0,$0C00
	dc.w	$C3FF,$CC00,$CFFF,$CC00,$C3FF,$CC00,$C0F0,$0C00
	dc.w	$C030,$0C00,$C000,$0C00,$FFFF,$FC00,$0000,$0000
	dc.w	$3FFF,$F000,$3FFF,$F000,$3FFF,$F000,$3FFF,$F000
	dc.w	$3FFF,$F000,$3FFF,$F000,$3FFF,$F000,$3FFF,$F000
	dc.w	$3FFF,$F000,$0000,$0000
	section WordData,data
Image2:
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.w	22,11	;Image width and height in pixels
	dc.w	2	;number of bitplanes in Image
	dc.l	ImageData2	;pointer to ImageData
	dc.b	$0003,$0000	;PlanePick and PlaneOnOff
	dc.l	NULL	;next Image structure
	section ChipData,data,chip
ImageData2:
	dc.w	$FFFF,$FC00,$C000,$0C00,$C030,$0C00,$C03C,$0C00
	dc.w	$CFFF,$0C00,$CFFF,$CC00,$CFFF,$0C00,$C03C,$0C00
	dc.w	$C030,$0C00,$C000,$0C00,$FFFF,$FC00,$0000,$0000
	dc.w	$3FFF,$F000,$3FFF,$F000,$3FFF,$F000,$3FFF,$F000
	dc.w	$3FFF,$F000,$3FFF,$F000,$3FFF,$F000,$3FFF,$F000
	dc.w	$3FFF,$F000,$0000,$0000
	section WordData,data
Gadget2:
	dc.l	Gadget3	;next gadget
	dc.w	23,105	;origin XY of hit box relative to window TopLeft
	dc.w	269,8	;hit box width and height
	dc.w	NULL	;gadget flags
	dc.w	RELVERIFY+STRINGCENTER	;activation flags
	dc.w	STRGADGET	;gadget type flags
	dc.l	Border1	;gadget border or image to be rendered
	dc.l	NULL	;alternate imagery for selection
	dc.l	NULL	;first IntuiText structure
	dc.l	NULL	;gadget mutual-exclude long word
	dc.l	Gadget2SInfo	;SpecialInfo structure
	dc.w	NULL	;user-definable data
	dc.l	NULL	;pointer to user-definable data
Gadget2SInfo:
	dc.l	Gadget2SIBuff	;buffer where text will be edited
	dc.l	NULL	;optional undo buffer
	dc.w	0	;character position in buffer
	dc.w	45	;maximum number of characters to allow
	dc.w	0	;first displayed character buffer position
	dc.w	0,0,0,0,0	;Intuition initialized and maintained variables
	dc.l	0	;Rastport of gadget
	dc.l	0	;initial value for integer gadgets
	dc.l	NULL	;alternate keymap (fill in if you set the flag)
Gadget2SIBuff:
	dc.b	'This is a string gadget.',0
PWstringlen	set	*-Gadget2SIBuff
	dcb.b 45-PWstringlen,0
	cnop 0,2
Border1:
	dc.w	-1,-1	;XY origin relative to container TopLeft
	dc.b	6,0,RP_JAM1	;front pen, back pen and drawmode
	dc.b	5	;number of XY vectors
	dc.l	BorderVectors1	;pointer to XY vectors
	dc.l	NULL	;next border in list
BorderVectors1:
	dc.w	0,0
	dc.w	270,0
	dc.w	270,9
	dc.w	0,9
	dc.w	0,0
Gadget3:
	dc.l	NULL	;next gadget
	dc.w	83,26	;origin XY of hit box relative to window TopLeft
	dc.w	210,68	;hit box width and height
	dc.w	NULL	;gadget flags
	dc.w	RELVERIFY	;activation flags
	dc.w	PROPGADGET	;gadget type flags
	dc.l	Image3	;gadget border or image to be rendered
	dc.l	NULL	;alternate imagery for selection
	dc.l	NULL	;first IntuiText structure
	dc.l	NULL	;gadget mutual-exclude long word
	dc.l	Gadget3SInfo	;SpecialInfo structure
	dc.w	NULL	;user-definable data
	dc.l	NULL	;pointer to user-definable data
Gadget3SInfo:
	dc.w	AUTOKNOB+FREEHORIZ+FREEVERT	;PropInfo flags
	dc.w	31682,30037	;horizontal and vertical pot values
	dc.w	16383,16383	;horizontal and vertical body values
	dc.w	0,0,0,0,0,0	;Intuition initialized and maintained variables
Image3:
	dc.w	73,22	;XY origin relative to container TopLeft
	dc.w	51,16	;Image width and height in pixels
	dc.w	0	;number of bitplanes in Image
	dc.l	NULL	;pointer to ImageData
	dc.b	$0000,$0000	;PlanePick and PlaneOnOff
	dc.l	NULL	;next Image structure
MenuList1:
Menu1:
	dc.l	NULL	;next Menu structure
	dc.w	10,0	;XY origin of Menu hit box relative to screen TopLeft
	dc.w	103,0	;Menu hit box width and height
	dc.w	MENUENABLED	;Menu flags
	dc.l	Menu1Name	;text of Menu name
	dc.l	MenuItem1	;MenuItem linked list pointer
	dc.w	0,0,0,0	;Intuition mystery variables
Menu1Name:
	dc.b	'Project Menu',0
	cnop 0,2
MenuItem1:
	dc.l	MenuItem2	;next MenuItem structure
	dc.w	0,0	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	80,8	;hit box width and height
	dc.w	ITEMTEXT+ITEMENABLED+HIGHBOX	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	IText1	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	NULL	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	NULL	;SubItem list
	dc.w	MENUNULL	;filled in by Intuition for drag selections
IText1:
	dc.b	3,5,RP_COMPLEMENT,0	;front and back text pens, drawmode and fill byte
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.l	TOPAZ80	;font pointer or NULL for default
	dc.l	ITextText1	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText1:
	dc.b	'MenuItem 1',0
	cnop 0,2
MenuItem2:
	dc.l	MenuItem3	;next MenuItem structure
	dc.w	0,8	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	80,8	;hit box width and height
	dc.w	ITEMTEXT+ITEMENABLED+HIGHCOMP	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	IText2	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	NULL	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	SubItem1	;SubItem list
	dc.w	MENUNULL	;filled in by Intuition for drag selections
IText2:
	dc.b	4,2,RP_COMPLEMENT,0	;front and back text pens, drawmode and fill byte
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.l	TOPAZ80	;font pointer or NULL for default
	dc.l	ITextText2	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText2:
	dc.b	'MenuItem 2',0
	cnop 0,2
SubItem1:
	dc.l	SubItem2	;next SubItem structure
	dc.w	65,-1	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	112,8	;hit box width and height
	dc.w	ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	IText3	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	'S'	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	NULL	;no SubItem list for SubItems
	dc.w	MENUNULL	;filled in by Intuition for drag selections
IText3:
	dc.b	3,1,RP_COMPLEMENT,0	;front and back text pens, drawmode and fill byte
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.l	TOPAZ80	;font pointer or NULL for default
	dc.l	ITextText3	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText3:
	dc.b	'SubItem 1',0
	cnop 0,2
SubItem2:
	dc.l	NULL	;next SubItem structure
	dc.w	65,7	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	112,8	;hit box width and height
	dc.w	CHECKIT+ITEMTEXT+MENUTOGGLE+ITEMENABLED+HIGHCOMP+CHECKED	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	IText4	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	NULL	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	NULL	;no SubItem list for SubItems
	dc.w	MENUNULL	;filled in by Intuition for drag selections
IText4:
	dc.b	7,4,RP_JAM2,0	;front and back text pens, drawmode and fill byte
	dc.w	19,0	;XY origin relative to container TopLeft
	dc.l	TOPAZ80	;font pointer or NULL for default
	dc.l	ITextText4	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText4:
	dc.b	'SubItem 2',0
	cnop 0,2
MenuItem3:
	dc.l	NULL	;next MenuItem structure
	dc.w	0,16	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	80,40	;hit box width and height
	dc.w	ITEMTEXT+ITEMENABLED+HIGHCOMP	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	IText5	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	NULL	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	SubItem3	;SubItem list
	dc.w	MENUNULL	;filled in by Intuition for drag selections
IText5:
	dc.b	4,2,RP_COMPLEMENT,0	;front and back text pens, drawmode and fill byte
	dc.w	0,15	;XY origin relative to container TopLeft
	dc.l	TOPAZ80	;font pointer or NULL for default
	dc.l	ITextText5	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText5:
	dc.b	'MenuItem 3',0
	cnop 0,2
SubItem3:
	dc.l	NULL	;next SubItem structure
	dc.w	65,-1	;XY of Item hitbox relative to TopLeft of parent hitbox
	dc.w	47,86	;hit box width and height
	dc.w	ITEMENABLED+HIGHCOMP	;Item flags
	dc.l	0	;each bit mutually-excludes a same-level Item
	dc.l	Image4	;Item render  (IntuiText or Image or NULL)
	dc.l	NULL	;Select render
	dc.b	NULL	;alternate command-key
	dc.b	NULL	;fill byte
	dc.l	NULL	;no SubItem list for SubItems
	dc.w	MENUNULL	;filled in by Intuition for drag selections
Image4:
	dc.w	0,0	;XY origin relative to container TopLeft
	dc.w	47,86	;Image width and height in pixels
	dc.w	4	;number of bitplanes in Image
	dc.l	ImageData4	;pointer to ImageData
	dc.b	$000F,$0000	;PlanePick and PlaneOnOff
	dc.l	NULL	;next Image structure
	section ChipData,data,chip
ImageData4:
	dc.w	$0000,$0000,$0000,$0000,$0700,$0000,$0000,$1800
	dc.w	$0000,$0000,$6000,$0000,$0000,$8000,$0000,$0001
	dc.w	$0000,$0000,$0002,$0000,$0000,$0004,$0380,$0000
	dc.w	$0008,$07C0,$0000,$0008,$07C0,$0000,$0000,$07C0
	dc.w	$0000,$0000,$0380,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0003,$0000,$0000,$0007,$0000,$0000
	dc.w	$003B,$0000,$0000,$003B,$0000,$0000,$003B,$0000
	dc.w	$0000,$003B,$0000,$0000,$0010,$0000,$0000,$000F
	dc.w	$0000,$0000,$000F,$0000,$0000,$000F,$0000,$0000
	dc.w	$000F,$0000,$0000,$000F,$0000,$0000,$020F,$0000
	dc.w	$0000,$020F,$0000,$0000,$020F,$0000,$0000,$020F
	dc.w	$0000,$0000,$020F,$0000,$0000,$020F,$1000,$0000
	dc.w	$030F,$1000,$0000,$01CF,$2000,$0000,$03FF,$F000
	dc.w	$0000,$03FE,$0000,$0000,$003F,$F000,$0000,$03FF
	dc.w	$0000,$0000,$001F,$F000,$0000,$03FF,$8000,$0000
	dc.w	$0107,$E000,$0000,$0000,$0000,$0000,$0030,$0000
	dc.w	$0000,$0020,$0000,$0000,$0060,$0000,$0000,$0060
	dc.w	$0000,$0000,$0040,$0000,$0000,$00C0,$0000,$0000
	dc.w	$0080,$0000,$0000,$0180,$0000,$0000,$0300,$0000
	dc.w	$0000,$0600,$0000,$0000,$0C00,$0000,$0000,$1818
	dc.w	$0000,$0000,$3030,$0000,$0000,$6073,$0000,$0000
	dc.w	$C0E0,$4000,$0001,$81E0,$0000,$0001,$0700,$0800
	dc.w	$0003,$0C00,$0400,$0002,$1800,$0000,$0006,$1000
	dc.w	$0100,$000A,$1000,$0100,$000A,$0000,$0100,$001A
	dc.w	$0000,$0100,$003B,$0000,$0100,$0069,$0000,$0100
	dc.w	$00D8,$8000,$0300,$059C,$6000,$0600,$0338,$3000
	dc.w	$1C00,$0210,$1F83,$F800,$1E20,$07FF,$8600,$2740
	dc.w	$0000,$1C00,$0100,$0000,$F800,$0000,$0FFF,$E000
	dc.w	$4000,$01FF,$0000,$0000,$0000,$0000,$0800,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$001E
	dc.w	$0000,$0000,$003F,$0000,$0000,$003F,$0000,$0000
	dc.w	$003F,$0000,$0000,$003F,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$003F
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$000F,$0000,$0000,$000F,$0000,$0000,$000F
	dc.w	$0000,$0000,$000F,$0000,$0000,$000F,$0000,$0000
	dc.w	$000F,$0000,$0000,$000F,$0000,$0000,$000F,$0000
	dc.w	$0000,$000F,$0000,$0000,$000F,$0000,$0000,$000F
	dc.w	$0000,$0000,$000F,$0000,$0000,$000F,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0018,$0000,$0000,$0030,$0000,$0000,$0070
	dc.w	$0000,$0000,$00E0,$0000,$0000,$01E0,$0000,$0000
	dc.w	$0700,$0000,$0000,$0C00,$0000,$0000,$1800,$0000
	dc.w	$0004,$1000,$0000,$0008,$1000,$0000,$0008,$0000
	dc.w	$0000,$0008,$0000,$0000,$0008,$0000,$0000,$0008
	dc.w	$0000,$0000,$0018,$0000,$0000,$041C,$0000,$0000
	dc.w	$0038,$0000,$0000,$0010,$0000,$0000,$1820,$0000
	dc.w	$0600,$2740,$0000,$1C00,$0100,$0000,$F800,$0000
	dc.w	$0FFF,$E000,$4000,$01FF,$0000,$0000,$0000,$0000
	dc.w	$0800,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$00FF,$8000,$0000
	dc.w	$0700,$7000,$0000,$1800,$0C00,$0000,$6000,$0300
	dc.w	$0000,$8080,$0080,$0001,$03E0,$0040,$0002,$0FF0
	dc.w	$0020,$0004,$0FF0,$0010,$0008,$1FF0,$0008,$0008
	dc.w	$1FF0,$0008,$0010,$1FF0,$0004,$0010,$1FE0,$0004
	dc.w	$0020,$0FC0,$0002,$0020,$0200,$0002,$0020,$0000
	dc.w	$0002,$0020,$0000,$0002,$0020,$0000,$0002,$0020
	dc.w	$003B,$0002,$0020,$003B,$0002,$0010,$003F,$0004
	dc.w	$0010,$0000,$0004,$0008,$003F,$0008,$0008,$003F
	dc.w	$0008,$0004,$003F,$0010,$0002,$003F,$0020,$0001
	dc.w	$003F,$0040,$0000,$800F,$0080,$0000,$600F,$0300
	dc.w	$0000,$180F,$0400,$0000,$040F,$0800,$0000,$040F
	dc.w	$0800,$0000,$020F,$1000,$0000,$020F,$1000,$0000
	dc.w	$020F,$1000,$0000,$020F,$1000,$0000,$020F,$1000
	dc.w	$0000,$020F,$1000,$0000,$030F,$1000,$0000,$03CF
	dc.w	$2000,$0000,$03FF,$F000,$0000,$03E7,$8000,$0000
	dc.w	$00FF,$F000,$0000,$03C3,$C000,$0000,$007F,$F000
	dc.w	$0000,$0387,$E000,$0000,$01FF,$E000,$0000,$0020
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0018,$0000,$0000,$0030,$0000
	dc.w	$0000,$0070,$0000,$0000,$00E0,$0000,$0000,$01E0
	dc.w	$0000,$0000,$0700,$0000,$0000,$0C00,$0000,$0000
	dc.w	$1800,$0000,$0004,$1000,$0000,$0008,$1000,$0000
	dc.w	$0008,$0000,$0000,$0008,$0000,$0000,$0008,$0000
	dc.w	$0000,$0008,$0000,$0000,$0018,$0000,$0000,$041C
	dc.w	$0000,$0000,$0038,$0000,$0000,$0010,$0000,$0000
	dc.w	$1820,$0000,$0600,$2740,$0000,$1C00,$0100,$0000
	dc.w	$F800,$0000,$0FFF,$E000,$4000,$01FF,$0000,$0000
	dc.w	$0000,$0000,$8800,$0000,$0000,$C000,$0000,$0000
	dc.w	$C000,$0000,$0000,$8000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0030,$0000,$0000
	dc.w	$0030,$0000,$0000,$0030,$0000,$0000,$0030,$0000
	dc.w	$0000,$0030,$0000,$0000,$0030,$0000,$0000,$0030
	dc.w	$0000,$0000,$0030,$0000,$0000,$0030,$0000,$0000
	dc.w	$0030,$0000,$0000,$0030,$0000,$0000,$0030,$0000
	dc.w	$0000,$0030,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	dc.w	$0000,$0000,$0000,$0000,$003F,$0000,$0000,$003F
	dc.w	$0000,$0000,$007F,$0000,$0000,$007E,$0000,$0000
	dc.w	$007E,$0000,$0000,$00FE,$0000,$0000,$00FC,$0000
	dc.w	$0000,$01FC,$0000,$0000,$03F8,$0000,$0000,$07F8
	dc.w	$0000,$0000,$0FF0,$0000,$0000,$1FE7,$0000,$0000
	dc.w	$3FCF,$E000,$0000,$7F8F,$F800,$0000,$FF1F,$FC00
	dc.w	$0001,$FE1F,$FE00,$0001,$F803,$FF00,$0003,$F000
	dc.w	$7F80,$0003,$E000,$1F80,$0003,$E000,$0FC0,$0017
	dc.w	$E000,$0FC0,$0037,$E000,$07C0,$0077,$E000,$07C0
	dc.w	$00F7,$E000,$07C0,$01F7,$E000,$0FC0,$03E7,$F000
	dc.w	$0FC0,$03E3,$F000,$1F80,$07C3,$FC00,$7F80,$0FE1
	dc.w	$FF83,$FF00,$07C0,$FFFF,$F800,$1880,$7FFF,$E000
	dc.w	$3E80,$3FFF,$0000,$3F00,$0000,$0000,$3E00,$0000
	dc.w	$0000,$7C00,$0000,$0000,$7000,$0000,$0000,$2000
	dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	section WordData,data
IntuiTextList1:
IText6:
	dc.b	3,0,RP_JAM2,0	;front and back text pens, drawmode and fill byte
	dc.w	18,40	;XY origin relative to container TopLeft
	dc.l	NULL	;font pointer or NULL for default
	dc.l	ITextText6	;pointer to text
	dc.l	IText7	;next IntuiText structure
ITextText6:
	dc.b	'Image',0
	cnop 0,2
IText7:
	dc.b	3,0,RP_JAM2,0	;front and back text pens, drawmode and fill byte
	dc.w	15,50	;XY origin relative to container TopLeft
	dc.l	NULL	;font pointer or NULL for default
	dc.l	ITextText7	;pointer to text
	dc.l	IText8	;next IntuiText structure
ITextText7:
	dc.b	'Gadget',0
	cnop 0,2
IText8:
	dc.b	6,0,RP_JAM2,0	;front and back text pens, drawmode and fill byte
	dc.w	111,16	;XY origin relative to container TopLeft
	dc.l	NULL	;font pointer or NULL for default
	dc.l	ITextText8	;pointer to text
	dc.l	IText9	;next IntuiText structure
ITextText8:
	dc.b	'Proportional Gadget',0
	cnop 0,2
IText9:
	dc.b	7,0,RP_JAM2,0	;front and back text pens, drawmode and fill byte
	dc.w	22,123	;XY origin relative to container TopLeft
	dc.l	NULL	;font pointer or NULL for default
	dc.l	ITextText9	;pointer to text
	dc.l	NULL	;next IntuiText structure
ITextText9:
	dc.b	'Gadget events echo messages to CLI',0
	cnop 0,2

TOPAZ80:
	dc.l	TOPAZname
	dc.w	TOPAZ_EIGHTY
	dc.b	0,0
TOPAZname:
	dc.b	'topaz.font',0
	cnop 0,2

;enter with address of Gadget or MenuItem in D0
  section Main,code
HandleEvent:
  lea     EventTable,a0       ;point to the vector list
EventLoop:
  move.l  (a0)+,d1            ;are we done?
  beq.s   return              ;return if no match
  cmp.l   d1,d0               ;is this the object that got chosen?
  movea.l (a0)+,a1            ;(grab the execution vector)
  bne.s   EventLoop           ;no-continue looking
  jmp     (a1)                ;go do the code
return:
  rts
  section LongData,data
EventTable:
	dc.l	SubItem3,HandleMenus
	dc.l	MenuItem3,HandleMenus
	dc.l	SubItem2,HandleMenus
	dc.l	SubItem1,HandleMenus
	dc.l	MenuItem2,HandleMenus
	dc.l	MenuItem1,HandleMenus
	dc.l	Gadget3,HandlePropGadget
	dc.l	Gadget2,HandleStringGadget
	dc.l	Gadget1,HandleBooleanGadget
	dc.l	0

; end of PowerWindows source generation