C     .TITLE TTIME
C
C  19 MAY 72 - PAUL HENDERSON
C
1     CALL TIME (IMIN,ISEC,IOFF)
      DO 2 K=1,30
2     WRITE (4,999) IMIN,ISEC
      IOFF=1
      DO 3 K=1,2000
3     CONTINUE
      WRITE (4,999) IMIN,ISEC
      STOP
999   FORMAT (2I4)
      END