show vari Str_arg
inquire char  vari Str_arg text "NEW ATOM NAME::"
rename atom Str_arg select atom number $1 end
return