;----- Menu Demo by Libra / The ValidatoR --------------------------------

;-------------------------------------------------------------------------
		include	'df1:s/initlibra'
;-------------------------------------------------------------------------
	OpenWindow	1,NewWindow,0
	InitMenu	1,Menu	

Top:
	CheckGadget	1,Top,Nic,Ed,Nic,Ed

Ed:	CloseWindow	1

End	Edit

Nic:	goto	Top
	


NewWindow:
	dc.w	0,0,180,10
	dc.b	1,2
	dc.l	$700,$100C,0,0,TitleW,0,0
	dc.w	30,40,320,256,1


Menu:	dc.l	0
	dc.w	0
	dc.w	0
	dc.w	8*10+4
	dc.w	0
	dc.w	1
	dc.l	Nazwa
	dc.l	Item
	dc.w	0
	dc.w	0
	dc.w	0
	dc.w	0

Item:	dc.l	0
	dc.w	2
	dc.w	2
	dc.w	8*17
	dc.w	8
	dc.w	$16
	dc.l	0			
	dc.l	tem
	dc.l	tem1	
	dc.b	'Q'
	dc.b	0	
	dc.l	0
	dc.w	0	

tem:	Dc.B	1		;kolor liter
	Dc.B	2		;kolor tla do liter
	Dc.B	1		;tryb rysowania (JAM1 lub JAM2)
	Dc.B	0		;wyzerowac
	Dc.W	0		;lewy rog
	Dc.W	0		;gorny rog
	Dc.L	0		;adres do atrybutow fontow, jakie maja byc uzyte
	Dc.L	napis
	Dc.L	0		;adres nastepnej takiej struktury

tem1:	Dc.B	2		;kolor liter
	Dc.B	1		;kolor tla do liter
	Dc.B	1		;tryb rysowania (JAM1 lub JAM2)
	Dc.B	0		;wyzerowac
	Dc.W	0		;lewy rog
	Dc.W	0		;gorny rog
	Dc.L	0		;adres do atrybutow fontow, jakie maja byc uzyte
	Dc.L	napis
	Dc.L	0		;adres nastepnej takiej struktury

TitleW:	Ztxt	'Super Ekran'
Nazwa:	Ztxt	'Menu1'
Napis:	Ztxt	'Pozycja1'
;----------------------------------------------------------------------------
	section	rr,Code_C
	inclink	'ram:libra.library'