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

FiFpF!Fm 0 0FsFREQUENCYGGF!G P 0G
OFGFUF!GXHhG(0FIG-0THEFSTRINGG3GNH>FCG<G(F
!yHH0H%Morethan100Cslices,bepreparedtowait.H)G(FeF5FC 0IIHqF!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 (THE_STRING : STRING)
    BEGIN
	INDEX = SEARCH (THE_STRING, 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) = THE_STRING
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, FREQS)
    END
END_PLOT