;====================================================
;
;	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>	savepic.asm
;	> Save into the file 'picfile' a picture of
;	the current screen delimited by the area
;	(18,5);(100,50)
;====================================================
;--------------------- 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
	jsr	api92::ClearScreen
	lea	win1(PC),a0
	jsr	api92::draw_sWindow
	jsr	api92::WaitKey
	jsr	api92::ClearScreen
	lea	win1(PC),a0
	jsr	api92::draw_sWindow2
	jsr	api92::WaitKey
	jsr	api92::ClearScreen
	lea	win2(PC),a0
	jsr	api92::draw_sAnimedWindow2
	jsr	api92::WaitKey
	rts
;------------------- Program Data -------------------
win2	dc.b	70			;timer
win1	dc.b	50+OX,40+OY,189+OX,80+OY,"Example of Window",0
_comment dc.b	"Draw some windows using jsr calls",0
;-------------------- End of program ------------------
	end