pro plotiss2,sharp,prn,title=title

printer=['lpr ','lp ','lp -dmdilj4 '] ;print to: LPS20, LN03 or HPLJ4
if n_elements(prn) eq 0 then prn=0
if NOT keyword_set(title) then title=' '

fqcy=['1 Hz','10 Hz','45 Hz']
frq=[0,1,10,45]
amp=[0,100,400,1000]
opn1=[1,2,5,6]
opn10=[1,13,10,9]
opn45=[1,14,17,18]
opnran=[1,25,22,21]
cls1=[0,3,4,7]
cls10=[0,12,11,8]
cls45=[0,15,16,19]
clsran=[0,24,23,20]

!y.style=16
!p.multi=[0,2,2]
mn=min(sharp,max=mx) & mn=mn/sharp(0,0) & mx=mx/sharp(0,1) 

if (prn gt 0) then begin
  set_plot,'ps'
  pnam=strmid(systime(0),11,8)+'.ps'
  device,/landscape,file=pnam
endif

plot,amp,sharp(0,opn1)/sharp(0,1),tit='SINE-WAVE INPUT; X-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(0,cls1)/sharp(0,0)
oplot,amp,sharp(0,opn10)/sharp(0,1),linestyle=1
oplot,amp,sharp(0,cls10)/sharp(0,0),linestyle=1
oplot,amp,sharp(0,opn45)/sharp(0,1),linestyle=2
oplot,amp,sharp(0,cls45)/sharp(0,0),linestyle=2

plot,amp,sharp(1,opn1)/sharp(1,1),tit='SINE-WAVE INPUT; Y-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(1,cls1)/sharp(1,0)
oplot,amp,sharp(1,opn10)/sharp(1,1),linestyle=1
oplot,amp,sharp(1,cls10)/sharp(1,0),linestyle=1
oplot,amp,sharp(1,opn45)/sharp(1,1),linestyle=2
oplot,amp,sharp(1,cls45)/sharp(1,0),linestyle=2

plot,amp,sharp(0,opnran)/sharp(0,1),tit='RANDOM INPUT (256Hz limited); X-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(0,clsran)/sharp(0,0)

plot,amp,sharp(1,opnran)/sharp(1,1),tit='RANDOM INPUT (256Hz limited); Y-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(1,clsran)/sharp(1,0)

xyouts,/norm,0,1.05,title
for i=0,2 do begin
  plots,/norm,[0+i*0.33,0.1+i*0.33],[-.05,-0.05],linestyle=i
  xyouts,/norm,0.12+i*0.33,-.05,fqcy(i)
endfor

if (prn gt 0) then begin
  device,/close
  set_plot,'x'
  spawn,printer(prn-1)+pnam
endif
!p.multi=0

end