; Compile the file plot05.pro, which contains two IDL procedures
; named "BOX" and "BARGRAPH". 

.r plot05.pro

; Define variables.

@plot01

; Load a colorful color table.

LOADCT, 39

; As in the previous example, the PLOT procedure is used to draw
; the axes and to establish the scaling using the NODATA keyword.

PLOT, year, CHINOOK, YRANGE = [MIN(allpts),MAX(allpts)], $
    TITLE = 'Salmon Populations', /NODATA, XRANGE = [year(0), 1990]	

; Retrieve the y value of the bottom X-axis and store it in
; the variable minval. Pass this variable to the BARGRAPH procedure.

minval = !Y.CRANGE(0)

BARGRAPH, minval