/* Lesson 8-2 */
 /*    File Name = chart01.sas   06/12/97   */

data kodukai;
  infile 'kodukai.dat';
  input seibetsu $ jitaku $ kodukai;

proc print data=kodukai(obs=10);
run;
proc chart data=kodukai;
  hbar kodukai;
run;
proc chart data=kodukai;
  vbar kodukai;
run;