private sub command1_click()
input "x=";x
select case x
case is>=0
y=x+2
case 0
y=0
case is=0
y=x+2
elseif x=0
y=0
else
y=x-2
endif
"y=";y
endsub