OPTIONS NODATE NONUMBER PS=60 LS=72;

FILENAME GRAPH 'DOW.PS';
GOPTIONS GSFNAME=GRAPH
HSIZE=6IN VSIZE=5IN
GSFLEN=132
GSFMODE=APPEND
DEVICE=PS ROTATE;

/* create the data set HILO                  */
/* structure the data set so that each value */
/* of DOW is in a separate observation       */

DATA hilo;
   INPUT date date7. @18 high low close;
   FORMAT date date7.;
   dow=high;  OUTPUT;
   dow=low;   OUTPUT;
   dow=close; OUTPUT;
   DROP high low close;
   CARDS;
03AUG81  3219.3  955.48  940.45  946.25
04AUG81  2938.5  951.39  937.40  945.97
05AUG81  4177.8  958.81  942.16  953.58
06AUG81  3975.7  961.47  947.30  952.91
07AUG81  3884.3  954.15  938.45  942.54
10AUG81  2937.7  948.82  935.88  943.68
11AUG81  5262.9  955.48  939.50  949.30
12AUG81  4005.2  955.86  942.26  945.21
13AUG81  3680.8  952.91  938.55  944.35
14AUG81  3714.1  947.77  933.79  936.93
17AUG81  3432.7  939.40  924.37  926.75
18AUG81  4396.7  932.74  916.38  924.37
19AUG81  3517.3  932.08  918.38  926.46
20AUG81  3811.9  935.31  923.52  928.37
21AUG81  2625.9  930.65  917.14  920.57
24AUG81  4736.1  917.43  896.97  900.11
25AUG81  4714.4  904.30  887.46  901.83
26AUG81  3279.6  908.39  893.65  899.26
27AUG81  3676.1  900.49  883.66  889.08
28AUG81  3024.2  898.78  884.80  892.22
;
TITLE1 H=1CM 'Dow Jones High-Low-Close';
TITLE2 H=.5CM 'August, 1981';
FOOTNOTE J=r 'Seminar 9';

SYMBOL INTERPOL=hiloctj  /* high-low plot with closing */
       WIDTH=2;          /* width of join line         */

AXIS1 ORDER=('02AUG81'd to '30AUG81'd by week)
      LABEL=none
      MAJOR=(height=.5CM)
      MINOR=(number=6 height=.25CM)
      OFFSET=(.25CM)  WIDTH=3;
AXIS2 ORDER=(880 to 970 by 10)
      LABEL=none
      MAJOR=(height=.5CM)
      MINOR=(number=4 height=.25CM)
      OFFSET=(.25CM)  WIDTH=3;
PROC GPLOT DATA=hilo;
   PLOT dow*date / frame haxis=axis1 vaxis=axis2;
RUN;