code-browser/F90Mapper/base36.c

char *base36(n)
     /* Returns a character string representing an integer in base 36 */
int n;
{
    char *base = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    int  i, l;
    char buffer,num[500];
    static char rev[500]; 
    i = strlen(base);
    l=0;
    while ( n > i-1 ) {
     num[l]=base[n-i*(n/i)];
     ++l;
     n = n/i;
    }
    num[l]=base[n];
    rev[l+1]='\0';
    for (i=0;l>=0;--l){
     rev[i]=num[l];
     ++i;
    }
    return(rev);
}

1	char *base36(n)
2	/* Returns a character string representing an integer in base 36 */
3	int n;
4	{
5	char *base = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
6	int i, l;
7	char buffer,num[500];
8	static char rev[500];
9	i = strlen(base);
10	l=0;
11	while ( n > i-1 ) {
12	num[l]=base[n-i*(n/i)];
13	++l;
14	n = n/i;
15	}
16	num[l]=base[n];
17	rev[l+1]='\0';
18	for (i=0;l>=0;--l){
19	rev[i]=num[l];
20	++i;
21	}
22	return(rev);
23	}
24