subr xrt_options_cb
 errormess,'nothing happens yet'
 endsubr
 ;========================================================