pro sp
set_plot,'tek'
device,/tek4014
return
end