! Positions the cursor to the desired column on a line. Given no argument,
! simply reports column position.
procedure eve_column(desired)
     
     local the_column,
	   ans,
	   save_it,
     	   the_arg;
     
     if desired = "" then
     	the_column := str(current_column);
     	message("Current column is " + the_column);
     	return;
     else
     	the_arg := int(desired);
	if the_arg <= 0 then message("Column number must be positive");
     		endif;
     	the_column := current_column;
     	if the_arg < the_column then
     	       	cursor_horizontal(the_arg - the_column);
     	else
	   	save_it := mark(none);
     		cursor_horizontal(the_arg - the_column);
		if get_info(current_window,"beyond_eol") then
		  message("That would move cursor beyond end of line.");
		  ans := read_line("Extend line? [Y/N]");
		  edit(ans,upper);          
     		  if substr(ans,1,1) = "N" then position(save_it); endif;
     	     	endif;
     	endif;
     endif;
     update(current_window);  ! To force column info to be current
     the_column := str(current_column);
     message("Current column is " + the_column);
     endprocedure;
     procedure tpu$local_init
     eve$arg1_column := eve$arg1_buffer;
     endprocedure;