6 lines
No EOL
190 B
Text
6 lines
No EOL
190 B
Text
$if Truncate = undefined then
|
|
$let Truncate = defined
|
|
Function Truncate~%% (value&)
|
|
Truncate~%% = (value& > 0) * (((value& < 256) * value&) + ((value& > 255) * 255))
|
|
End Function
|
|
$end if |