cat euc.f
euc(u,v) /* Evaluates the greatest common factor of u and v */
/* returns a 1 if that is the gcf, otherwise, returns a 0   */
char *u, *v ;
{       char *i, *j, *a, *z, *malloc() ;
        i = malloc(15) ;
        j = malloc(15) ;
        a = malloc(15) ;
        z = malloc(15) ;
        copy(u,j) ;
        copy(v,i) ;
        if strcmp(u,v) > 0)
        {       copy(u,i) ;
                copy(v,j) ;
        }
        copy(one,a) ;
        while (strcmp(a,xero) > 0 )
        {       copy(i,a) ;
                residue(a,j) ;
                copy(j,z) ;
                copy(a,j) ;
                copy(z,i) ;
        }
        if(strcmp(z,one) = 0 ) return(1) ;
        else return(0) ;
}
$