*hand27.txt;

data ca88air;
 infile 'a:\CA88AIR.TXT';
 input O3 CO NO3 SO4 TEMP HUMID DATE STATION $ MONTH;
 format date date7.;
cards;
PROC PRINT;
RUN;
          options nodate nonumber  ;
          GOPTIONS BORDER reset;
*********************************************************************************;
title1; title2; title3; footnote;
*doesn't fit on page;
proc gchart data=ca88air;
 title1 h=4 'Block Chart of Average Carbon Monxide';
 footnote j=l h=4 f=simplex 'Figure 1.4.3a';
 block month / sumvar=co type=mean
               group=station discrete;
 pattern1 c=blue v=x1;
run;
*********************************************************************************;
title1; title2; title3; footnote;
goptions vpos=80 hpos=200 htext=2;
proc gchart data=ca88air;
 title1 h=4 'Block Chart of Average Carbon Monoxide';
 footnote j=l h=4 f=simplex 'Figure 1.4.3b';
 block month / sumvar=co type=mean
               group=station discrete;
run;
*********************************************************************************;
title1; title2; title3; footnote;
goptions vsize=6 hsize=6 htext=1 vpos=80 hpos=200;
proc gchart data=ca88air;
 title1 h=4 'Block Chart of Average Carbon Monoxide';
 footnote j=l h=4 f=simplex 'Figure 1.4.3b';
 block month / sumvar=co type=mean
               group=station discrete ;
run;
**********************************************************************************;
title1; title2; title3; footnote;
proc gslide;
title1 'Figure 3.2.1  title1 defaults: h=2 f=swiss';
title4 h=2 f=none     'title4 with h=2 & f=none     (hardware font)';
title5 h=2 f=simplex  'title5 with h=2 & f=simplex  (Software font)';
run;
quit;
**********************************************************************************;
title1; title2; title3; footnote;
proc gslide;
title1 'Figure 3.2.2';
title2 h=3 font=swissb 'swissb' color=red f=cartog 'J K L M N';
title3 h=1 f=simplex 'H1' h=2 'H2' h=4 'H4';
run;
**********************************************************************************;
title1; title2; title3; footnote;
proc gslide;
title1 h=1.5 justify=left 'Figure 3.2.3'
       justify=l    'second line on left which is a long segment'
       j=l          'third line on title1'
       j=center     'fourth center top'
       j=c          'fifth in conflict with second'
       j=right      'sixth top right';
title2 'This is the second title';
run;
**********************************************************************************;
title1; title2; title3; footnote;
goptions htext=2;
proc gplot data=ca88air;
plot o3 * month;
title1 '1988 Air Quality Data - Ozone';
title2 angle=90 'OZONE levels at three locations';
title3 angle=90 ' ';
footnote1 angle=-90 rotate=90 'Figure 3.2.4a';
run;
**********************************************************************************;
title1; title2; title3; footnote;
goptions htext=2;
axis1 label = (f=simplex angle=90 ' '
               j=c angle=90 'Ozone levels at three locations'
               j=c angle=-90 rotate=90 'Figure 3.2.4b' );


proc gplot data=ca88air;
plot o3 * month / vaxis=axis1;
title1 '1988 Air Quality Data - Ozone';
footnote1 ;
run;
**********************************************************************************;
title1; title2; title3; footnote;
proc gslide;
title1 h=6 'Figure 3.2.5';
title2 f=duplex
       h=6 'Volume is m'
       h=4 move=(+0,+2) '3'
       h=6 move=(+0,-2) 'of H'
       h=4 move=(+0,-2) '2'
       h=6 move=(+0,+2) 'O';
run;
**********************************************************************************;
title1; title2; title3; footnote;
options nobyline;
goptions htext=2;
proc gplot data=ca88air nocache;
 by station;
 plot o3 * month;
 symbol1 v=dot i=join l=1;
 title1 '1988 Air Quality Data - Ozone';
 title2 h=2 f=simplex 'Plots separated by #byvar1';
 title3 h=2 f=simplex 'OZONE levels at #byval(station)';
 footnote1 j=l h=2 f=simplex 'Figure 3.2.6';
run;