pro anafocus,a,sharp,norm,title=title

sharpfocus,a,sharp,norm

plotfocus,sharp,0,tit=title

ans=' '
print,format='($,"Do You want a hard-copy (Y/N)? ")'
read,"$(A)",ans
if (strupcase(ans) eq 'Y') then plotfocus,sharp,1,tit=title

;save,sharp,norm,file=seq+'.focus'

end