graphset;
_plegstr="money\000interest\000prices\000bip";
_pmcolor ={0,0,0,0,0,0,0,0,15};
_pcolor={14,2,12,1,0};
_pnumht = 0.2;
_paxht = 0.22;
_pgrid = {0,0};
_plwidth = {7};
_pdate = ""; 
_pnumht = 0.25;
_pltype ={6};
ylabel("");        /* Y axis label */
xlabel("");        /* X axis label ret = tkf2eps("irf.tkf", "eps.tkf""); */
xtics(1,malags,1,0);
_plegctl={2 3 4 4};
_ptek = "pic.tkf";




t = seqa(1,1,malags+1);
zero_line = zeros(1,rows(t))';

begwind;
window(2,2,0);
setwind(1);
title("Response of Money");
xy(t,irf_rm~zero_line);
setwind(2);
title("Response of Interest");
xy(t,irf_ri~zero_line);
setwind(3);
title("Response of Prices");
xy(t,irf_rp~zero_line);
setwind(4);
title("Response of BIP");
xy(t,irf_ry~zero_line);
endwind;