procedure Schconcat (var s: packed array [lo..hi: integer] of char;
                         c: char );
   EXTERNAL;
{*USER*
  this procedure concatenates a single character, c, onto the target
  string s.
}