c     some graphics routines
c
      SUBROUTINE finish(ipage)
C
C Routine to draw the plotter-frame edge, add time and date,
c and call frame.
C
      implicit none
      include 'itg.par'
      include 'itg.cmn'  ! only need date
c     include 'post.cmn'

      character*39 str
      integer ipage

      call setzer
      CALL PLOTIT (    0,    0,0)
      CALL PLOTIT (32767,    0,1)
      CALL PLOTIT (32767,32767,1)
      CALL PLOTIT (    0,32767,1)
      CALL PLOTIT (    0,    0,1)

      write(str,102) date,ipage
 102  format(a30,'     ',i2)
      call plchlq(.99,.02,str,10.,0.,1.)

      call frame
      ipage=ipage+1

      RETURN

      end