pro plottime, xf, yf, str, siz, dir, align=align ; savlin = !linetype !linetype = 0 ; xsiz = !d.x_size ysiz = !d.y_size ; if (n_params(0) eq 0) then xyouts, 0.55*xsiz, 0, 'Plot Made '+!stime, /DEVICE if (n_params(0) ge 3) then begin if (n_elements(siz) eq 0) then siz0=0.9 else siz0=siz if (n_elements(dir) eq 0) then dir0=0 else dir0=dir if (n_elements(align) eq 0) then align0=0 else align0=align if (!fancy eq 0) then siz0 = siz0<0.9 xyouts, xf*xsiz, yf*ysiz, str, siz=siz0, orientation=dir0, /DEVICE, align=align0 end ; !linetype = savlin ; return end