;====================================================
;
;	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>	iengine.asm
;	> It is an example of the very powerful
;	InterfaceEngine function of Api92/Api89
;====================================================


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

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

;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
OX	equ	-40
OY	equ	-20
;#else
	xdef	_ti92plus
;#endif
;#endif

;#ifdef TI89
;#else
OX	equ	0
OY	equ	0
;#endif



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

	xdef	_main
	xdef	_comment

_main
	lea	ie_Data(PC),a0
	jsr	api92::InterfaceEngine

	rts



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

ie_Data:
	dc.b	IE_ANIMEDWIN2,50,50+OX,30+OY,189+OX,90+OY,"IE Example",0
	dc.b	IE_SETFONT,0
	dc.b	IE_STRING,54+OX,45+OY,"Here is a small example of",0
	dc.b	IE_STRING,54+OX,51+OY,"the Interface Engine",0
	dc.b	IE_SETFONT,1
	dc.b	IE_STRING,60,60,"Useful !",0
	dc.b	IE_WAITKEY
	dc.b	IE_END

_comment dc.b	"InterfaceEngine Demo",0

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

	end