%macro gifinit(fname=c:\graph.gif,rows=40,cols=80,h=600,v=450,dpi=100);

  * top part;
  goptions reset=all;

  filename templog clear ;
  filename templog "&fname" ;

  * initiialize size of .gif file ;
  * goptions hsize=%sysevalf(&v/&dpi)in vsize=%sysevalf(&h/&dpi)in 
           hpos=&cols                 vpos=&rows ;


  * set gif options ;
  goptions dev=gifanim gsfname=templog gsfmode=replace gcopies=0 delay=50 ;

  * style options ;
  goptions vsize=%sysevalf(&v/&dpi)in hsize=%sysevalf(&h/&dpi)in hpos=&cols vpos=&rows 
     ftext=swiss cback=white htext=1
     colors=(black YELLOW GOLD BLUE MAGENTA DAGRAY BROWN) ;


%mend;