!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!	If the select-range is active, write it;
!	else write the current buffer
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROCEDURE cjc_write_whatever ;

if ( eve$x_select_position = 0 )  then eve_write_file ( "" ) ;
else write_file ( select_range ) ;
endif ;

ENDPROCEDURE ;