;====================================================
;
;	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>	slctfil1.asm
;	> A amazing example that shows how simple it
;	it to show a Open File dialog box.
;====================================================
;--------------------- Includes ---------------------
	include "tios.h"
	include	"api92.h"
	include "api92cst.h"
	xdef	_ti89
OX	equ	-40
OY	equ	-20
;------------ Start of assembly program -------------
	xdef	_main
	xdef	_comment
_main
	lea	winOpenDialog(PC),a0
	jsr	api92::draw_sWindow2
	moveq.w	#1,d0
	jsr	api92::SetFont
	lea	SelectFileHeader(PC),a0
	jsr	api92::SelectFileComponent
	rts
;------------------- Program Data -------------------
SelectFileHeader:
	dc.w	70+OX,42+OY	;X,Y
	dc.w	5		;Nb Item per page
	dc.w	100		;Width of the component
	dc.w	0		;Current Folder
	dc.b	%00011001,0	;Flags
	dc.l	0		;api92CB_Filter
	dc.l	0		;api92CB_lvKeyDown
	dc.l	0		;api92CB_lvKey
	dc.l	0		;api92CB_lvOnSelect
	dc.l	0		;api92CB_lvDrawItem
winOpenDialog
	dc.b	40+OX,30+OY,199+OX,95+OY,"Open Dialog",0
_comment dc.b	"Select File - Ex1",0
;-------------------- End of program ------------------
	end