Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/value_pie.cdd-plot
There are 4 other files named value_pie.cdd-plot in the archive. Click here to see a list.
FDIFVG2HLF5FIINDEXF0FSTRINGSES 0FDFN0TITLE2 0FJFT0TITLE1F[FtG
FeFPF!Fi0F~GF!GP 0GBYGFJF!G XHGG'G, 0FDG+0Z G'G1VSG7GQHHFDG@G'F
G'FH#H=F5FDH3G,F5FDIH{HPF!F
DECLARE STRING VECTOR STRINGS, TITLES
DECLARE REAL VECTOR VALUES
DECLARE INDEX
ENTRY 0 (TITLE2 : STRING, TITLE1 : STRING)
    BEGIN
	TITLES (1) = TITLE1

	TITLES (2) = "BY"
	TITLES (3) = TITLE2
    END
RING, VS)
    BEGIN
	INDEX = SEARCH (Z, STRINGS)
	IF INDEX EQ 0
	    INDEX = SIZE (VALUES) + 1
	STRINGS (INDEX) = Z
	VALUES (INDEX) = VALUES (INDEX) + VS
    END
ENTRY 2
    BEGIN
	PLOT DRAW_PIE 0 (TITLES, STRINGS, VALUES)
    END
END_PLOT