program mktitles
c
      dimension iasf(13)
      data iasf/13*1/
c
      call opngks
      call gsclip(0)
      call gsasf(iasf)
      call gsfais(1)
c      
      call lexcon(itest   ,8HTESTRUN ,ntestrun)
      call lexcon(ncall   ,8HNCALL   ,nncall)
      call readlx(5,ierr)                                       
      if (ierr.ne.1) then
        write(6,"(' ')")
        write(6,"(' >>> getinp readlx ierr=',i10)") ierr           
        write(6,"(' ')")
        stop 'readlx'
      endif
      write(6,"('mktitles: itest = ',i2,' ncall=',i2)") itest,ncall
c
c Note FIN and FOU are in secs, assuming 24 fr/sec. So 1.sec = 24 fr
c Since we will record at 8 f/s, the 1.sec = 24 fr will be 3 secs
c
      call slsetr('FIN',1.0)
      call slsetr('FOU',1.0)
c     call slsetr('TM2',1.0)
      call slsetr('TM2',0.)
      call slsetr('FGR',.7)
      call slsetr('FGG',.8)
      call slsetr('FGB',0.)
      do i=1,ncall
        call ftitle(itest)
      enddo
c
      call clsgks
      stop
      end