procedure SAssign(var T: packed array [Tlow..Thigh: Integer] of Char;
                    S: packed array [Slow..Shigh: Integer] of Char);
   EXTERNAL;
{*USER*
        -- String Package Module --
 Assign string "S" to string "T". If SLn(S) > SLn(T), S is truncated
to the length of T. If T is greater, and T is a Type "1" string, T is
padded with nulls.
.NOTE
 If the source string "S" is a Type "1" string, its length is determined
by the rightmost non-null character.
.end note
}