/***************************************************************

                  SUBROUTINE FILEASSIGN

 FILEASSIGN ASSIGNS AN UNUSED FILE IDENTIFICATION NUMBER TO A
 USER VARIABLE

***************************************************************/

 fileassign( int *filenumber )

{
 
 int minassign = 302, maxassign = 490;
 int ifound=0;

 int i = minassign;
 while ( i < maxassign && ftrack[i] != 0 )
  i++;

 if ( i < maxassign ) {
  ifound = 1;
  *filenumber = i;
 }

 else printf("Cannot assign file number, all values between %d",
             " and %d are in use.\n",minassign,maxassign);

 return ifound;

}