/* iistr.c */

#include<stdio.h>
#include<string.h>

int int_in_string(a,b)
	int a;
	char *b;
{
	itoa(a,b);
	reverse(b);
}

int itoa(n,s)
	int n;
	char *s;
{
	int i;
	i=0;
	do {
		*s=n%10 + '0';
		s++;
	} while ((n/=10)>0);
	*s='\0';
}

int reverse(s)
	char *s;
{
	int i,j,c;
	for (i=0, j=strlen(s)-1;i<j;i++,j--) {
		c=s[i];
		s[i]=s[j];
		s[j]=c;
	}
}

#define MAXLEN 10

int filename(a,b,n1,n2,n3,fname)
	int a,b;
	char n1[],n2[],n3[],fname[];
{
	char w1[MAXLEN],w2[MAXLEN];
	int i,j;
	int_in_string(a,w1);
	int_in_string(b,w2);
	/* printf("%s\n",w1);
	printf("%s\n",w2);
	printf("%s\n",n1);
	printf("%s\n",n2);
	printf("%s\n",n3);
	printf("%d\n",strlen(w1));
	printf("%d\n",strlen(w2));
	printf("%d\n",strlen(n1));
	printf("%d\n",strlen(n2));
	printf("%d\n",strlen(n3)); */
	for (i=0L,j=0L;i<strlen(n1);++i,++j)
		fname[j]=n1[i];
	for (i=0L;i<strlen(w1);++i,++j)
		fname[j]=w1[i];
	for (i=0L;i<strlen(n2);++i,++j)
		fname[j]=n2[i];
	for (i=0L;i<strlen(w2);++i,++j)
		fname[j]=w2[i];
	for (i=0L;i<strlen(n3);++i,++j)
		fname[j]=n3[i];
	fname[j]='\0';
}

int filename3(a,b,c,n1,n2,n3,fname)
	int a,b,c;
	char n1[],n2[],n3[],fname[];
{
	char w1[MAXLEN],w2[MAXLEN],w3[MAXLEN];
	int i,j;
	int_in_string(a,w1);
	int_in_string(b,w2);
	int_in_string(c,w3);
	for (i=0L,j=0L;i<strlen(n1);++i,++j)
		fname[j]=n1[i];
	for (i=0L;i<strlen(w1);++i,++j)
		fname[j]=w1[i];
	for (i=0L;i<strlen(n2);++i,++j)
		fname[j]=n2[i];
	for (i=0L;i<strlen(w2);++i,++j)
		fname[j]=w2[i];
	for (i=0L;i<strlen(n2);++i,++j)
		fname[j]=n2[i];
	for (i=0L;i<strlen(w3);++i,++j)
		fname[j]=w3[i];
	for (i=0L;i<strlen(n3);++i,++j)
		fname[j]=n3[i];
	fname[j]='\0';
}