Procedure Snice (var s: packed array [lo..hi: integer] of char );
   EXTERNAL;
{*USER*
  Convert a type 0 or type 1 string to upper case on the first character and
  lower case on the following characters. Alpha characters are the only
  converted characters.  Numbers and special characters are left as is.
}