#include <tigcclib.h>

unsigned char balle[] =
{0x3C,0x7E,0xFF,0xFF,0xFF,0xFF,0x7E,0x3C};

unsigned short raquette[] =
{0x7FFE,0xFFFF,0xFFFF,0x7FFE,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000};

void draw(int x, int y) {
  Sprite8(x, y, 8, balle, LCD_MEM, SPRT_XOR);
}
void erase(int x, int y) {
  Sprite8(x, y, 8, balle, LCD_MEM, SPRT_OR);
}
short ran(void)
{
  short r=random (2);
  if (r==0) r=-1;
  return r;
}
void _main(void)
{
  int x=(LCD_WIDTH-1)/2,y=(LCD_HEIGHT-1)/2,F=0,rposx=55;
  short var_hor = ran(), var_ver = ran(),i=0,t=10000;
  INT_HANDLER Intrs [AUTO_INT_COUNT];
  for (F = FIRST_AUTO_INT; F <= LAST_AUTO_INT; F++)
  {
    Intrs [F - FIRST_AUTO_INT] = GetIntVec (AUTO_INT (F));
    SetIntVec (AUTO_INT (F), DUMMY_HANDLER);
  }
  ClrScr ();
  draw(x, y);
  erase(x ,y);
  while (!_keytest (RR_ESC))
  {
    draw(x, y);
    Sprite16(rposx, 96, 16, raquette, LCD_MEM, SPRT_XOR);
    x+=var_hor ; y+=var_ver;

    if(x+8 > LCD_WIDTH-1)
    var_hor = -1;
    else if(y+8 > LCD_HEIGHT-1)
    goto fin;
    else if(x < 0)
    var_hor = 1;
    if(y < 0)
    var_ver = 1;

    if(_keytest (RR_UP))
    t-=100;
    else if(_keytest (RR_DOWN))
    t+=100;

    else if(_keytest (RR_LEFT))
    rposx-=2;
    else if(_keytest (RR_RIGHT))
    rposx+=2;

    if(rposx > LCD_WIDTH-16)
    rposx=LCD_WIDTH-16;
    else if(rposx <0)
    rposx=0;

    if(y+8 > 96 && y+8< 100 && x+8 >= rposx && x+8 <= rposx+20)
    var_ver = -1;

    erase(x ,y);
    Sprite16(rposx, 96, 16, raquette, LCD_MEM, SPRT_OR);
    for (i=0; i<t; i++);
  }
fin:
for (F = FIRST_AUTO_INT; F <= LAST_AUTO_INT; F++)
SetIntVec (AUTO_INT (F), Intrs [F - FIRST_AUTO_INT]);
}