# .+ [Length] < P_STRING '/_, INT New_length >
+
  if New_length <= String->Length
  +
    String->Length = New_length; String->Chars[New_length] = 0
  ;
  else
  +
    Error (ERR_ARRAY_BOUNDS)
  ;
;
