Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/under.tco
There is 1 other file named under.tco in the archive. Click here to see a list.
!;UNDER -- Macro to Process Underscored Text -- March, 1979	!
!;Author: Clive B. Dawson -- Univ. of Texas at Austin		!
!;This macro converts lines containing overstruck characters	!
!;of the form <line1><cr><line2><cr>...<lineN><cr><lf> to the	!
!;form <line2><cr>...<lineN><cr><line1><cr><lf>.  This makes	!
!;underscored text easier to view on a CRT.			!
!;To use, type:							!
!;	.TECO filename						!
!;	*EIunder$$						!

	< N^E<15>^N^E<12>$;	!;Find a CR not followed by a LF!
	  .-1U1			!;Save pointer!
	  0L			!;Go back to beginning of line!
	  .,Q1Xa .,Q1K		!;Save <line1> and delete it!
	  S^E<12>$		!;Move ahead to line feed!
	  R Ga			!;Back over it and insert <line1>!
	>			!;Loop till end of file!
	EX			!;Exit!