PROCEDURE get_current_position

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  TPU procedure to report the current position in the message-window:
!  column-number and line-number
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

LOCAL	now ,
	count ;

	count :=  1 ;
	now   :=  mark ( none ) ;
	position ( search ( line_begin, reverse ) ) ;

	loop
    		exitif ( mark ( NONE )
				=  beginning_of ( current_buffer ) ) ;
		move_vertical ( - 1 )  ;
		count  :=  count + 1 ;
	endloop ;

	position ( now ) ;
	message ( "CURRENT POSITION:  line " + str ( count ) +
     		", column "  +  str ( current_column ) ) ;
	return ;

ENDPROCEDURE