Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/vt125/histo.cdd-plot
There are 4 other files named histo.cdd-plot in the archive. Click here to see a list.
H5JdHFHtJ0H;H90YLABEL0H/H?0XLABELH!H4INDEXH\H;HAH5Hf 0HhNUMBERJ

Hn0H5Hs0ZHzII`H/IHnHI0I>HIyJ	H!H/ 0JYJKJUJ H;H5H
DECLARE STRING VECTOR STRINGS
R FREQS
DECLARE INDEX
DECLARE STRING Y_LABEL, X_LABEL
 STRING)
    BEGIN
		X_LABEL = X_LBL

	Y_LABEL = "NUMBER"
    END
ENTRY 1 (Z : STRING)
    BEGIN
	INDEX = SEARCH (Z, STRINGS)
	IF INDEX EQ 0
	    BEGIN
		INDEX = SIZE (STRINGS) + 1
		STRINGS (INDEX) = Z
	    END
	FREQS (INDEX) = FREQS (INDEX) + 1
    END
ENTRY 2
    BEGIN
	PLOT DRAW_BAR 0 (X_LABEL, Y_LABEL, STRINGS, FREQS)
		PLOT DRAW_BAR 2
    END
END_PLOT