Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
datatrieve/vt100/histo.cdd-plot
There are 4 other files named histo.cdd-plot in the archive. Click here to see a list.
{\5ie\F\s^0\; \90YLABEL0\/ \?0XLABEL\! \4INDEX\\\;\A\5\f 0 \h^
\m0\5 \r0THESTRING\y]]a\/]\m\]0]> \]z^ \!\/ 0^Y^K^U^ \;\5\
DECLARE STRING VECTOR STRINGS
R FREQS
DECLARE INDEX
DECLARE STRING Y_LABEL, X_LABEL
STRING)
BEGIN
X_LABEL = X_LBL
Y_LABEL = ""
END
ENTRY 1 (THE_STRING : STRING)
BEGIN
INDEX = SEARCH (THE_STRING, STRINGS)
IF INDEX EQ 0
BEGIN
INDEX = SIZE (STRINGS) + 1
STRINGS (INDEX) = THE_STRING
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