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.!