struct COORD
 {
	int x;
	int y;	
 };

struct LINE
 {
	COORD ext1;
	COORD ext2;	
 };

LINE line[10];


void assign(mod int d,int s)
 {
	d=s;
 }

void init_line(mod LINE *l,int index, int x1, int y1,int x2,int y2)
 {
	LINE v;

	assign(v.ext1.x,x1);	
	assign(v.ext1.y,y1);
	
	v.ext2.x=x2;
	v.ext2.y=y2;

	*(l+index)=v;	
 }
  

task main()
 {
	int x;
	int valeur; 
	char buffer[10];
	LINE v;

	inline "arrinit globale_line,0 , 10";
	
	COP_DrawText(1,1,"INIT");
        COP_Wait(1000);

	x=0;

	do
	  {
		init_line(line,x,1,x,60,60-x);
		x++;
	  }
	while(x<10);
	
	for(x=0;x<10;x++)
	 {
		v=line[x];

		COP_LineOut(v.ext1.x, v.ext1.y, v.ext2.x, v.ext2.y, 1);
		COP_Wait(1000);
	 }
	
	COP_DrawText(1,1,"FIN");
        COP_Wait(1000);

	COP_LineOut(1, 1, 20, 20, 1);
	COP_Wait(5000);
 }