Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/housekeep.cdd-plot
There are 4 other files named housekeep.cdd-plot in the archive. Click here to see a list.
h(BBIBCBBBB%B-B9 0B 0B< 0B!B( 0
 0%B/s[0,0](EA[0,0][767,479]S1I(D)M0(AL0)1(AH0L50S50)2(AH300L50S50)3(AH0L100S0))	 0"B;p[0,0]@.@:ZS(m0(l0)1(l33)2(l66)3(l100))@;@ZT(A0S1)t(s1I0)w(vi(w)s0P1)B`B\ 0B_s(e)BTBQBrBhBo 0

Bjs(m 0(l0)1(l0)2(l0)3(l0))CB|CC
0BC 0C
! 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)M0(AL0)1(AH0L50S50)2(AH300L50S50)3(AH0L100S0))",
$"p[0,0]@.@:ZS(m0(l0)1(l33)2(l66)3(l100))@;@ZT(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
ENTRY 4 PRINT CLRSCR, ENTER_REGIS(0), "w(i3s0)t(s1)@Z"
END_PLOT