;====================================================
;
;	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>	progresb.asm
;	> This is an example showing the use of
;	the progress bar
;====================================================
;--------------------- Includes ---------------------
	include "tios.h"
	include	"api92.h"
	include "api92cst.h"
OX	equ	0
OY	equ	0
;------------ Start of assembly program -------------
	xdef	_main
	xdef	_comment
_main
	lea	ieInterface(PC),a0
	jsr	api92::InterfaceEngine
	move.w	#199,d0		;nb laps
	lea	ProgressBarHeader(PC),a0
	clr.w	(a0)
\loop	jsr	api92::ProgressBarComponent
	add.w	#1,(a0)
	move.w	#2000,d1
\wait	dbra.s	d1,\wait
	dbra.s	d0,\loop
	jsr	api92::WaitKey
	
	rts
;------------------- Program Data -------------------
ProgressBarHeader:
	dc.w	0		;Current value
	dc.w	82+OX,66+OY	;X,Y
	dc.w	10		;nb square
	dc.w	200		;Max Value
ieInterface
	dc.b	IE_WIN2,50+OX,40+OY,189+OX,80+OY,"ProgressBar Example",0
	dc.b	IE_SETFONT,0
	dc.b	IE_STRING,80+OX,58+OY,"Please Wait...",0
	dc.b	IE_SOLIDRECT,80+OX,64+OY,162+OX,72+OY
	dc.b	IE_END
_comment dc.b	"ProgressBar Demo",0
;-------------------- End of program ------------------
	end