ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	subroutine plt1(mxsl,rmax,mey,ycal,fycaly,lycaly,flag)
c
c	argument
	integer mxsl,rmax
	integer fycaly,lycaly
	real*4 mey(mxsl),ycal(mxsl)
c	local
	integer j,k,i
	real*4 miny, maxy
	real*4 wrk1(500)
	character*20 tit
	character ans*1,filename*9,dev*80
	logical ok
c
       dev='Mac1';ok=.true.
c
10	if(ok)call plsdev(dev)
c
c	
	miny=9999.;maxy=-9999.
	do k=fycaly,lycaly
	    if(mey(k).ne.flag.and.mey(k).gt.maxy)maxy=mey(k)
	    if(mey(k).ne.flag.and.mey(k).lt.miny)miny=mey(k)
	    wrk1(k)=real(k)
	enddo
c
c initialize plplot
	call plinit()
c set lable color
	call plcol(15)   !color box and lables
c define the viewport one column by one rows
	call plssub(1,1)
	call plenv(real(fycaly),real(lycaly),miny,maxy,0,2)
	call pllab('BioYear','Y','Mean Curve and fit')
c	step=-12.
	call plcol(1)   !color box and lables
c	write(tit(1:20),'(i5)')nboot
c	call plmtex('rv',step,1.07,0.0,tit)
c	step=-6.
c	call plmtex('rv',step,1.07,0.0,'Reps')
	call plline(lycaly,wrk1,mey)
	call plcol(2)   !color box and lables
	call plline(lycaly,wrk1,ycal)
	call plend()
c	
       ans='C '
	dev='Mac1'
       write(*,'(/1x,''|************* plot options menu ***************|'')')
       write(*,'(1x,''|-----------------------------------------------|'')')
       write(*,'(1x,''|       [s]ave   <[c]ontinue>   [r]eplot        |'')') 
       write(*,'(1x,''|_______________________________________________|'')')
       write(*,'(/1x,'' enter option number > '',$)')
       read(*,'(a1)')ans
       if((ans.eq.'S').or.(ans.eq.'s'))then
         dev='psc';ok=.false.;filename='fig11.ps'
	  call plsdev(dev)
         call plsfnam(filename)
         goto 10
       elseif((ans.eq.'R').or.(ans.eq.'r'))then
         ok=.true.
         goto 10
       elseif((ans.eq.'C').or.(ans.eq.'c').or.(ans.eq.' ').or.
     *                             (ans.eq.'Y').or.(ans.eq.'y'))then
         return
	endif
c
	return
	end
c
