!					!
! FTNREV - REVISION HISTORY BLOCK	!
! MAINTENANCE TECO MACRO FOR .FTN FILES.!
!					!
!	!!X01.02!!			!
! X01.02 - PRESERVE FORM-FEED FLAG (^E)	!
!					!

EP:@ER%LB:[201,5]REVBLK.TEC%"S

!					!
! READ THE FILE INTO Q-REG 5 AND	!
! EXECUTE IT.  THE ITERATION LOOP IS	!
! REQUIRED TO MAKE SURE THE WHOLE FILE	!
! IS READ INTO THE Q-REG.  IF THE LOOP	!
! IS REQUIRED, LOADING WILL BE VERY SLOW!
!					!
! NOTE:  THIS ROUTINE ASSUMES THAT	!
! REVBLK.TEC TERMINATES WITH A FORM-FEED!
! CHARACTER.  IF IT DOESN'T, THE STATUS	!
! OF THE FORM-FEED FLAG (^E) OF THE	!
! ORIGINAL INPUT FILE WILL BE LOST.	!
!					!

[3 ZJ ZU3 [5 ^EU5 A Q3,ZX5 Q3,ZK
^E"F <1:A; Q3,Z:X5 Q3,ZK ^E"T 0;' > '

!					!
! IF THE INPUT FILE DIDN'T HAVE A FORM-	!
! FEED AT THE END, DO ONE MORE APPEND	!
! TO RESET THE FORM-FEED FLAG (^E).	!
!					!

Q5"F :A^[ Q3,ZK '

!					!
! SAVE THE COMMENT CHARACTER IN Q-REG X	!
! AND EXECUTE THE MACRO.		!
!					!

[X @^UX%C% @EI%% M5^[

]X ]5 ]3' @ER%%