program define wwwgr
/*
gr use wwwgr
gr save wwwgr, replace
translator set gph2eps scheme custom1
translator set gph2ps scheme custom1
translator set gph2ps tmargin .25
translator set gph2ps lmargin 0
translate wwwgr.gph wwwgr.ps,   replace mag(145)
*/
graph export wwwgr.ps, logo(off) replace
!gs -q -sDEVICE=jpeg  -sOutputFile=wwwgr.jpg -dNOPAUSE wwwgr.ps -dBATCH 
!gs -q -sDEVICE=pdfwrite -sOutputFile=wwwgr.pdf -dNOPAUSE wwwgr.ps -dBATCH 
!cp wwwgr.jpg ~/public_html/wwwgr.jpg
!cp wwwgr.pdf ~/public_html/wwwgr.pdf
end