procedure SVAssign(var T: packed array [Tlow..Thigh: Integer] of Char;
                    VAR S: packed array [Slow..Shigh: Integer] of Char);
   EXTERNAL;
{*IDENT* SVAssign -- assign one string to another (BOTH VAR PARAMETERS) }