Google
 

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/pc350/housekeep.cdd-plot
There are 4 other files named housekeep.cdd-plot in the archive. Click here to see a list.
{*ie\\O\H\\\\%\-\5\A 0\ 0\< 0\!\( 0 0\/@.@:ZS(m0(l0)1(l33)2(l66)3(l100))@;@Z
 0%\8s[0,0](EA[0,0][767,479]S1I(D)M0(AL0)1(AH0L50S50)2(AH340L50S50)3(AH0L100S0)) 0\Dp[0,0]T(A0S1)t(s1I0)w(vi(w)s0P1)\e\b 0\ds(e)\Z\W\v\m\s 0
\ps(m 0(l0)1(l0)2(l0)3(l0))]
]]] 0]
w(i3s0)t(s1)DEFINE PLOT HOUSEKEEP
! Entry regis - set terminal to initial state
ENTRY 0
    BEGIN
    PRINT $, "<", CLRSCR, ENTER_REGIS(1),
"@.@:ZS(m0(l0)1(l33)2(l66)3(l100))@;@Z",
("s[0,0](EA[0,0][767,479]S1I(D)M0(AL0)1(AH0L50S50)2(AH340L50S50)3(AH0L100S0))",
"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