C     .TITLE TPULSE
C
C  11 DEC 76 (PDH) CHANGE TO REPLAY ONLY ROUTINE
C   4 MAR 76 (PDH) CHECK IT OUT WITH F4
C   3 MAR 76 (PDH) CONTINUE CHECK-OUT OF NEW PULSE
C  19 FEB 76 (PDH) CONVERT TO 'DSPLAY' AND NEW PULSE
C  25 FEB 74 - PAUL HENDERSON
C
C  TEST PROGRAM FOR SUBROUTINE 'PULSE'.
C
   1  CALL CLEAR (0)
      CALL DSPLAY (0,3000,IERR,IGET)
C
C  FIND HOW MANY FRAMES ARE RECORDED ON DISK
C
      CALL PULSE (1,ICOUNT)
      WRITE (4,99) ICOUNT
C
   2  CALL PULSE (IDUM,ICOUNT)
      GO TO 2
  99  FORMAT (I6,7H FRAMES)
      END