PROCEDURE	cjc_find_fortran_label

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  TPU procedure to find the next FORTRAN label in the current direction
!  and position the cursor there.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

LOCAL	pat ,
	where ;

ON_ERROR

	message ( "NO MORE LABELS in the current direction" ) ;

ENDON_ERROR ;

	pat  :=   ( LINE_BEGIN &
			(           any ( '0123456789' )
			| ( ' ' &   any ( '0123456789' ) )
			| ( '  ' &  any ( '0123456789' ) )
			| ( '   ' & any ( '0123456789' ) )
			) ) ;

	if ( mark ( NONE ) = beginning_of ( search ( LINE_BEGIN , REVERSE ) ) )
		then
		if ( current_direction = FORWARD )  then move_vertical ( 1 ) ;
 		else move_vertical ( -1 ) ;
		endif ;
	endif ;
	position ( search ( pat , CURRENT_DIRECTION ) ) ;

ENDPROCEDURE ;