Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/pie.cdd-plot
There are 4 other files named pie.cdd-plot in the archive. Click here to see a list.
FII'FZG.Hl0FOFM0TITLE10FCFS0TITLE2F5FHINDEXFvG

FiFpF!Fm 0 0FsFREQUENCYGGF!G P 0G
OFGFUF!GXHgG(0FIG-0ZG2GMH=FCG<G(FIIHpF!F
DECLARE STRING VECTOR STRINGS, TITLES
CTOR FREQS
DECLARE INDEX
DECLARE STRING TITLE1, TITLE2
TRING)
    BEGIN
QUENCY"

	TITLES (2) = "OF"

	TITLES (3) = TITLE
    END
ENTRY 1 (Z : STRING)
    BEGIN
	INDEX = SEARCH (Z, STRINGS)
	IF INDEX EQ 0
	    BEGIN
		INDEX = SIZE (STRINGS) + 1


		IF INDEX EQ 100 THEN
		    BEGIN
			PRINT "%More than 100 slices, be prepared to wait."
		    END
		STRINGS (INDEX) = Z
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, FREQS)
    END
END_PLOT