new;
library pgraph;
graphset;

begwind;
window(2,2,0);

tt=seqa(45,1,36);

setwind(1);
_pltype=6|3|4|1; 
_plwidth=2;
_pcolor=1;
_pnumht=.25;
_ptitlht=0.25;
fonts("simplex complex microb simgrma");
/* setup legend */
_plegctl = { 1 3 47 0.051 };
_plegstr = " 1970\0 1980\0 1990\0 2000";
tit1="Hazard rates for ";
scale(45~80,0~0.07); 
xtics(45,80,10,0);
ytics(0,0.070 ,0.01,0);
_plctrl=0;

load h70=haz_70wm;
load h80=haz_80wm;
load h90=haz_90wm;
load h00=haz_00wm;

tit2="CVD";

h70=h70[45:80,1];
h80=h80[45:80,1];
h90=h90[45:80,1];
h00=h00[45:80,1];



title(tit2);
xy(tt,h70~h80~h90~h00); 

nextwind;

tit2="Cancer";
load h70=haz_70wm;
load h80=haz_80wm;
load h90=haz_90wm;
load h00=haz_00wm;

h70=h70[45:80,2];
h80=h80[45:80,2];
h90=h90[45:80,2];
h00=h00[45:80,2];



title(tit2);
xy(tt,h70~h80~h90~h00); 

nextwind;

endwind;