;====================================================
;
;	Api92/Api89 Example Source Code
;
;	(c) NeXO Software, Ibrahim - Benoit SCHERRER
;	e-mail : p.c.scherrer@wanadoo.fr
;	web : http://perso.wanadoo.fr/scherrer/ben/
;
;	File>	menu_2.asm
;	> this example of the Menu component shows
;	the use of the mnuItemProperties buffer 
;	and the mnuShortCut buffer
;====================================================


;--------------------- Includes ---------------------

	include "tios.h"
	include	"api92.h"
	include "api92cst.h"

;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
;#else
	xdef	_ti92plus
;#endif
;#endif


;------------ Start of assembly program -------------

	xdef	_main
	xdef	_comment

_main:	moveq.w	#0,d0
	jsr	api92::SetFont

	lea	MenuHeader(PC),a0
	lea	MenuData(PC),a1
	jsr	api92::MenuComponent

	rts



;------------------- Program Data -------------------

MenuHeader:
	dc.w	10			;Number of Items
	dc.w	20,12			;X,Y
	dc.w	0			;reserved
	dc.w	74			;Width of the menu
	dc.b	%00000110		;flags
	dc.b	0
	dc.l	0			;api92CB_mnuKeys
	dc.l	0			;api92CB_mnuDrawItem
	dc.l	MenuItemProperties	;api92_mnuItemProperties
	dc.l	MenuShortCut		;api92_mnuShortCut


MenuData:
	dc.b	"Lock/Unlock",0
	dc.b	"Hide/Show",0
	dc.b	"-",0
	dc.b	"Copy",0
	dc.b	"Move",0
	dc.b	"Rename",0
	dc.b	"Delete",0
	dc.b	"New Folder",0
	dc.b	"-",0
	dc.b	"Exit",0


MenuShortCut:
	dc.w	57			;X offset
	dc.b	127,"L",0
	dc.b	127,"H",0
	dc.b	0
	dc.b	127,"C",0
	dc.b	127,"M",0
	dc.b	127,"R",0
	dc.b	127,"D",0
	dc.b	127,"N",0
	dc.b	0
	dc.b	"ESC",0

MenuItemProperties:
	dc.b	0,0,1,1,1,7,3,0,1,1


_comment dc.b	"Menu Demo 2",0

;-------------------- End of program ------------------

	end