void f_seqs(void)	//242
{
	unsigned char buff[400],buff1[250],buff2[100],buff3[100],buff4[100],buff5[100],buff6[300];
	unsigned int ii,nbelem,data_dim;
	unsigned long mem_allowed;
	HANDLE seqs_file;
	input_argptr++;
	(*(fonc[*(input_argptr)]))();
	strcpy(buff1,get_in_my_stack());	//var à faire évoluer
	(*(fonc[*(input_argptr)]))();
	strcpy(buff2,get_in_my_stack());	//start
	(*(fonc[*(input_argptr)]))();
	strcpy(buff3,get_in_my_stack());	//end
	(*(fonc[*(input_argptr)]))();
	strcpy(buff4,get_in_my_stack());	//step
	(*(fonc[*(input_argptr)]))();
	strcpy(buff5,get_in_my_stack());	//string de la variable tibasic de sortie
	(*(fonc[*(input_argptr)]))();
	strcpy(buff6,get_in_my_stack());	//expression à évaluer
	seqs_file=0;
	sprintf(buff,"seqs_fc%d()",nb_seqs);
	push_in_my_stack(buff);
	//my_fputc(unsigned char c,HANDLE h)
	//unsigned char my_fputs(unsigned char *str,HANDLE h)
	//HANDLE my_fopen_type(unsigned char *file_str,unsigned long *mem_allowed,unsigned char type)
	//unsigned char my_fclose(HANDLE h,unsigned char type)
	//if(nb_seqs==0) 
	if(isarchi(buff5)) unarchiv(buff5);
	if(isarchi("seqsh")) unarchiv("seqsh");
	if(seqs_handle==0)
	{
		is_included_seqsh=1;
		seqs_handle=my_fopen_type2("seqsh",nb_seqs_quantity*1000+200,TEXT_TAG);
		if(seqs_handle==0) my_exit("\nMem error in seqsh");
		my_fputc(0,seqs_handle);	//fputc (0, fout);//bookmark
		my_fputc (3, seqs_handle);//fputc (3, fout);//bookmark
		my_fputc (0x20, seqs_handle);//fputc (0x20, fout);		//début de la première ligne
	}	

	sprintf(buff,"unsigned int seqs_fc%d(void){",nb_seqs);
	my_fputline_and_enter(buff,seqs_handle);

	sprintf(buff,"long data_dim,nbelem,ii; unsigned char *p_eval;HANDLE handle;data_dim=0;nbelem=0;",nb_seqs);
	my_fputline_and_enter(buff,seqs_handle);

	sprintf(buff,"for(%s=%s;%s!=(%s+%s);%s+=%s){", buff1,buff2 , buff1,buff3,buff4 , buff1,buff4);
	my_fputline_and_enter(buff,seqs_handle);

	sprintf(buff,"p_eval=(%s);", buff6);
	my_fputline_and_enter(buff,seqs_handle);

	my_fputline_and_enter("data_dim+=(strlen(p_eval)+3);",seqs_handle);

	my_fputline_and_enter("push_zstr(p_eval); nbelem++;}",seqs_handle);

	sprintf(buff,"if(isarchi(%s)==1) unarchiv(%s);",buff5,buff5);
	my_fputline_and_enter(buff,seqs_handle);

	sprintf(buff,"handle=CreateFile_with_specified_size (%s,data_dim+10);",buff5);
	my_fputline_and_enter(buff,seqs_handle);
	
	sprintf(buff,"if(handle==0){printf(%c%cMemory error in seqs()%c);ngetchx();return 0;}",'"','\n','"');
	my_fputline_and_enter(buff,seqs_handle);
	
	my_fputline_and_enter("AppendCharToFile(handle,END_TAG);",seqs_handle);
	
	my_fputline_and_enter("for(ii=0;ii<nbelem;ii++)",seqs_handle);
	my_fputline_and_enter("{",seqs_handle);
	my_fputline_and_enter("p_eval=GetStrnArg(top_estack);",seqs_handle);
	my_fputline_and_enter("AppendCharToFile(handle,0);",seqs_handle);
	my_fputline_and_enter("AppendBlockToFile(handle,p_eval,strlen(p_eval)+1);",seqs_handle);
	my_fputline_and_enter("AppendCharToFile(handle,STR_TAG);}",seqs_handle);
	my_fputline_and_enter("CloseFile_type (handle,LIST_TAG);",seqs_handle);
	my_fputline_and_enter("return nbelem;",seqs_handle);
	my_fputline_and_enter("}",seqs_handle);
		
	nb_seqs++;
	
	if(nb_seqs>=nb_seqs_quantity)	//fin du fichier, fermeture
	{
		my_fputc (0x00, seqs_handle);	//fin de la derniere ligne (20 pour un ligne pas en derniere position)
		my_fputc (0xE0, seqs_handle);	//TEXT_TAG
		my_fclose (seqs_handle,TEXT_TAG);//if(fout) fclose (fout);
	}
	else	//alors nouvelle ligne pour espacement avec la fonction suivante
	{
		my_fputc (0x0D, seqs_handle);//fputc (0x0D, fout);	//fin de la ligne
		my_fputc (0x20, seqs_handle);//fputc (0x20, fout);	//pas de bookmark pour la 2eme ligne
	}
}

unsigned int f_seqs_(long *ii,long star,long end,long step,