Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/ha.tco
There is 1 other file named ha.tco in the archive. Click here to see a list.
!;HA - Macro to bring all or part of a file into the text buffer	!
!;leaving form feeds intact.						!
+0[0 [1			!;Save possible argument and Q-regs. 0 & 1.!
.U1			!;Save pointer!
Q0"E 999999999U0'	!;If no argument, set to infinity!
Q0<^N"L 0;'		!;If EOF, we're done!
   ^E"L ZJ 12I$'	!;Insert form feed if necessary!
   A>			!;Bring in one more page and loop!
Q1J			!;Restore pointer!
]1 ]0			!;Restore Q-regs.!