void test_open(void)
  {
	char name[10]="DDD.rso";
	byte handle;
	char boucle[100];
	char buffer[100];
	char buffer1[100];
	long length;


	handle=COP_Fopen(name,"w");
	if(handle==0) 
	 {
		COP_DrawText(1,1,"Erreur write");
		COP_Wait(1000);
		exit();
	 }
	
	COP_Strcpy(buffer,"abcdefghijklmnopqrst");

	length=COP_Fwrite(handle,buffer,20);

	COP_Fclose(handle);


	handle=COP_Fopen(name,"r");
	if(handle==0) 
	 {
		COP_DrawText(1,1,"Erreur read");
		COP_Wait(1000);
		exit();
	 }

	do 
	 {
		length=COP_Fread(handle,buffer1,5);
		if(length>0)
		 {
			COP_DrawText(1,1,buffer1);
			COP_Wait(2000);
		 }
		else
		 {
			COP_DrawText(1,1,"No more bytes ...");
			COP_Wait(2000);
		 }
	 }
	while(length>0);
	
	COP_Fclose(handle);
  }

void test_file(void)
 {
	char name[10]="zzzz.txt";
	char buffer[100];
	char boucle[100];
	byte handle;
	long length;
	int  value;

	COP_Malloc(buffer,6);
	COP_Malloc(boucle,100);

/*	handle=COP_Fopen(name,"w"); */

	handle=COP_FopenWrite(name);

	if(handle>0)
	  {
		COP_DrawText(1,1,"handle >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"handle =0");
		COP_Wait(2000);
	  }
		
	COP_NumtoString(handle,boucle);
	COP_DrawText(1,1,boucle);
	COP_Wait(2000);

	COP_Strcpy(buffer,"abcdefg");
	COP_DrawText(1,1,buffer);
	COP_Wait(2000);
	length=COP_Fwrite(handle,buffer,6);
	if(length>0)
	  {
		COP_DrawText(1,1,"length >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"length =0");
		COP_Wait(2000);
	  }
	COP_NumtoString(length,boucle);
	COP_DrawText(1,1,boucle);
	COP_Wait(2000);

	COP_Strcpy(buffer,"hijklmn");
	COP_DrawText(1,1,buffer);
	COP_Wait(2000);
	length=COP_Fwrite(handle,buffer,6);
	if(length>0)
	  {
		COP_DrawText(1,1,"length >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"length =0");
		COP_Wait(2000);
	  }
	COP_NumtoString(length,boucle);
	COP_DrawText(1,1,boucle);
	COP_Wait(2000);
	
	COP_Fclose(handle);


	/*handle=COP_Fopen(name,"r");*/

	COP_DrawText(1,1,name);
	COP_Wait(2000);
	handle=COP_FopenRead(name);

	if(handle>0)
	  {
		COP_DrawText(1,1,"handle >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"handle =0");
		COP_Wait(2000);
	  }
	
	length=COP_Fread(handle,buffer,6);
	if(length>0)
	  {
		COP_DrawText(1,1,"length >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"length =0");
		COP_Wait(2000);
	  }
	COP_NumtoString(length,boucle);
	COP_DrawText(1,1,boucle);
	COP_Wait(2000);
	COP_DrawText(1,1,buffer);
	COP_Wait(2000);
	
	length=COP_Fread(handle,buffer,6);
	if(length>0)
	  {
		COP_DrawText(1,1,"length >0");
		COP_Wait(2000);
	  }
	else
	  {
		COP_DrawText(1,1,"length =0");
		COP_Wait(2000);
	  }
	COP_NumtoString(length,boucle);
	COP_DrawText(1,1,boucle);
	COP_Wait(2000);
	COP_DrawText(1,1,buffer);
	COP_Wait(2000);
	
	COP_Fclose(handle);
	
 }

task main()
 {
	test_open();
	/*	test_file();*/
 }