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