#define USE_TI89
#define USE_TI92PLUS
#define USE_V200
#define OPTIMIZE_ROM_CALLS
#define SAVE_SCREEN
#include <tigcclib.h>
//#include "AnimChat.c"
#define MILIEU 35
int x,y,a;
void attend(short);
static BITMAP chip1={32,32,{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x00,0x00,0x03,0x00,0x00,0x00,0x04,0x10,0x00,0x00,0x08,0xFC,0x00,0x00,0x0F,0x02,0x00,0x01,0x10,0xF4,0x00,0x03,0x28,0x08,0x00,0x02,0x7E,0x2E,0x00,0x00,0xF0,0x0E,0x00,0x00,0xF0,0x04,0x00,0x03,0xF8,0x24,0x00,0x03,0xFE,0x18,0x00,0x03,0xCF,0x90,0x00,0x02,0xCE,0x60,0x00,0x00,0xF8,0xC0,0x00,0x02,0x1F,0x20,0x00,0x03,0xFB,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}};
static BITMAP chip2={32,32,{0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x00,0x00,0x03,0x00,0x00,0x00,0x04,0xF0,0x00,0x00,0x0F,0xFC,0x00,0x00,0x0F,0x02,0x00,0x01,0x10,0xF4,0x00,0x03,0xEF,0x28,0x00,0x03,0xFF,0x2E,0x00,0x01,0xFF,0xAE,0x00,0x01,0xFC,0x84,0x00,0x03,0xFC,0x24,0x00,0x03,0xFE,0x18,0x00,0x03,0xCF,0x90,0x00,0x03,0xCE,0x60,0x00,0x01,0xF8,0xC0,0x00,0x03,0xFF,0xE0,0x00,0x03,0xFB,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00}};
BITMAP *Pchat[]={&chip1,&chip2};
void _main(void)
{
if (!GrayMode (GRAY_ON)) return;
SetPlane(0);
ClrScr();
SetPlane(1);
ClrScr();
x=0;
y=10;
SetPlane(1);
printf("ok")
ngetchx();
for (x=3,a=0;x<163;x+=8)
{
clrscr();
BitmapPut(x, y, Pchat[a], &(SCR_RECT){{0, 0, 159, 99}}, A_REPLACE);
if(x>=MILIEU) {SetPlane(0); BitmapPut(35, y, Pchat[1], &(SCR_RECT){{0, 0, 159, 99}}, A_REPLACE); SetPlane(1);}
if ((++a)==2)a=0;
attend(20);
}
GrayMode(GRAY_OFF);
return;
}
asm("attend: movem.l %d0-%d3,-(%sp)
move.w (20,%sp),%d2
move.l #31,%d1
move.l #31,%d3
_wl2_: move.w #1551,%d0
_wl1_: rol.l %d3,%d1
dbra %d0,_wl1_
dbra %d2,_wl2_
movem.l (%sp)+,%d0-%d3
rts" );