!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  Miscellaneous TPU procedures:
!  generate a Fortran continuation of the current statement
!  generate a Fortran comment
!!      continuation and comment both indent appropriately for the current
!!      TPU left-margin setting (e.g., as set by CJC_INDENT).
!  move the cursor position to the top, middle, or bottom of the screen
!  move the cursor position forward or back a specified number of lines
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROCEDURE  cjc_fortran_cont

LOCAL   count , topcnt ;

 	split_line ;
	copy_text ( "     &		" ) ;

        count  :=  9 ;
        topcnt :=  get_info ( CURRENT_BUFFER , "LEFT_MARGIN" ) ;

        loop
            exitif ( count >= topcnt ) ;
            copy_text ( ' ' ) ;
            count  :=  count + 1

        endloop ;

ENDPROCEDURE;





PROCEDURE  cjc_fortran_comment

LOCAL   count , topcnt ;

 	split_line ;
        copy_text ( "C......." ) ;
        count  :=  9 ;
        topcnt :=  get_info ( CURRENT_BUFFER , "LEFT_MARGIN" ) ;

        loop
            exitif ( count >= topcnt ) ;
            copy_text ( '.' ) ;
            count  :=  count + 1

        endloop ;

        copy_text ( '   ' ) ;

ENDPROCEDURE;



PROCEDURE  cjc_top_move ;

	cursor_vertical ( get_info ( current_window , "visible_top" )
		- get_info ( current_window , "current_row" ) ) ;

ENDPROCEDURE;



PROCEDURE  	cjc_bottom_move ;

	cursor_vertical ( get_info ( current_window , "visible_bottom" )
		- get_info ( current_window , "current_row" ) ) ;

ENDPROCEDURE;



PROCEDURE  cjc_middle_move ;

	cursor_vertical ( ( get_info ( current_window , "visible_bottom" )
		+ get_info ( current_window , "visible_top" ) ) / 2
		- get_info ( current_window , "current_row" ) ) ;

ENDPROCEDURE;



PROCEDURE  cjc_jump_vertical

LOCAL   total ;

   if  eve$prompt_number ( "" , total ,
            "Enter number of lines to jump:  " ,
            "No response given. "
            )   then
      move_vertical ( total ) ;
      eve$position_in_middle ( mark ( NONE ) ) ;
   endif ;

ENDPROCEDURE