Function Digits(w:Word;
  		radix:integer):Integer;
   EXTERNAL;
{*USER*
 Function returns the number of digits in the input word, assuming
the input radix. UNSIGNED input only!
}