PDP-10 Archive: datatrieve/vt240/housekeep.cdd-plot from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt240/housekeep.cdd-plot

There are 4 other files named housekeep.cdd-plot in the archive. Click here to see a list.

)GFFOFHFFFF%F-F5FA 0F 0F< 0F![2JF( 0 0F/@.@:ZS(m0(l0)1(l33)2(l66)3(l100))@;@Z
 0%F8s[0,0](EA[0,0][767,479]S1I(D)M0(AL0)1(AH0L50S50)2(AH300L50S50)3(AH0L100S0)) 0FDp[0,0]T(A0S1)t(s1I0)w(vi(w)s0P1)FeFb 0Fds(e)FZFWFvFmFs 0

Fps(m 0(l0)1(l0)2(l0)3(l0))G

GGG 0G
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(AH300L50S50)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