[proc,script4700].cs2

// 4700
[proc,script4700](int $int0)(int)
def_int $int1 = 0;
def_int $int2 = 0;
def_int $int3 = 0;
switch_int (~helper_generic_get_type($int0)) {
	case 0 :
		return(-1);
	case 1, 5 :
		$int3 = ~min(parawidth(~helper_generic_get_string($int0), 140, b12_full), 140);
	case 2 :
		$int3 = ~min(parawidth(~helper_generic_get_string($int0), 140, p12_full), 140);
	case 3 :
		$int1 = parawidth(~helper_generic_get_string($int0), calc(140 / 2), p12_full);
		$int2 = parawidth(~helper_generic_get_string(calc($int0 + 1)), calc(140 - $int1), p12_full);
		$int3 = calc($int1 + $int2);
}
return($int3);