[proc,script4193].cs2

// 4193
[proc,script4193](string $string0, int $width0, fontmetrics $fontmetrics1)(string)
def_int $int2 = string_length($string0);
if ($int2 <= 0 | parawidth($string0, 512, $fontmetrics1) <= $width0) {
	return($string0);
}
def_string $string1 = "";
while ($int2 > 1) {
	$int2 = calc($int2 - 1);
	$string1 = append(substring($string0, 0, $int2), "...");
	if (parawidth($string1, 512, $fontmetrics1) <= $width0) {
		return($string1);
	}
}
return(append(substring($string0, 0, 1), "..."));