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