Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/gigi/shade.cdd-plot
There are 3 other files named shade.cdd-plot in the archive. Click here to see a list.
{\*
ie\5\0\.Y\AXIS\P \  \!YSP^

\=\l]]E]K^\99\;HOUSEKEEP\C\0]4W(I1S\*0]D)V\0^\
CTOR	XS,YS
XIS, CNT
ENTRY 0
    BEGIN
		PLOT HOUSEKEEP 4
	PLOT LABEL 9 (XS, YS, Y_AXIS)
	SORT (XS,YS)
	PRINT "P", LXY (XS(1), YS(1)), "W(I1S", LY(Y_AXIS), ")V"
		INCR CNT OVER XS
	    PRINT LXY(XS(CNT), YS(CNT))
		PLOT HOUSEKEEP 2
    END
END_PLOT