here is something very simple :
 Code:
dim $input
"type your code : " gets $input
$input=trim($input)

if $input
	"your input           : " $input ?
	"your input truncated : " right( $input, -1) ?
else
	"your input is empty" ?
endif


i just added trim to prevent from input with blank at the beginning or the end of the string.
_________________________
Christophe