Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/macros/ct.tec
There is 1 other file named ct.tec in the archive. Click here to see a list.
!CT - Clears the screen on a MINIBEE or ADM3, then does an HT!

[0 ETU0 1ET      !Save Q0, set literal type-out, force any pending output!
:^o33,1^T :^o105,1^T !<esc>E  (Clear screen on a Minibee)!
:^o32,1^T            !Control-Z  (Clear screen on an ADM)!
:^o15,1^T            !CR to clear the other terminal's stuff!
Q0ET ]0 HT           !Restore type-out mode, restore Q0, do an HT!