procedure SChAssign(var T: packed array [Tlow..Thigh: Integer] of Char;
                      c: Char);
   EXTERNAL;
{*USER*
        -- String Package Module --
Assign character "c" to string "T". If T is Type "0", its length is set to
1, else T is right padded with nulls.
}