Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/housekeep.cdd-plot
There are 4 other files named housekeep.cdd-plot in the archive. Click here to see a list.
{*ie\\B\;\\\\%\-\5 0\ 0\< 0\!\( 0 0\/@.s[0,0](EA[0,0][767,479]S1I(D)) 0\7p[0,0]T(A0S1)t(s1I0)w(vi(w)s0P1)\X\U 0\Ws(e)\M\J\j\`\g 0
\cs(m 0(l0)1(l0)2(l0)3(l0))]\t\|\x 0\w(i3s0)t(s1)DEFINE PLOT HOUSEKEEP
! Entry regis - set terminal to initial state
ENTRY 0
    BEGIN
    PRINT $, "<", CLRSCR, ENTER_REGIS(1),
"@.s[0,0](EA[0,0][767,479]S1I(D))",
"p[0,0]T(A0S1)t(s1I0)w(vi(w)s0P1)"
    END
! Exit regis
XITREGIS
! Clear regis
ENTRY 1 PRINT "s(e)"
! Map regis to nil, exit regis
ENTRY 3 PRINT "s(m 0(l0)1(l0)2(l0)3(l0))", EXIT_REGIS
 ! Enter regis, leave screen intact, erase nothing on non VT125s
ENTRY 4 PRINT ENTER_REGIS(0), "w(i3s0)t(s1)"
END_PLOT