PROGRAM TESTBEEP
      USE IFPORT

      INTEGER*4 I4C,I4D,I4E,I4F,I4G,I4A,I4H
      I4C=262
      I4D=294
      I4E=330
      I4F=349
      I4G=392
      I4A=440
      I4H=494

      WRITE(*,*) '440Hz(500ms)...'
      CALL BEEPQQ(440,500)
           CALL SLEEPQQ(500)
      WRITE(*,*) '440Hz(500ms)...'
      CALL BEEPQQ(440,500)
           CALL SLEEPQQ(500)
      WRITE(*,*) '440Hz(500ms)...'
      CALL BEEPQQ(440,500)
           CALL SLEEPQQ(500)
      WRITE(*,*) '880Hz(1000ms)...'
      CALL BEEPQQ(880,1000)
           CALL SLEEPQQ(500)

      WRITE(*,*) 'Song of Tulips Flower'
      CALL BEEPQQ(I4C,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4D,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4E,1000)
           CALL SLEEPQQ(1000)
      CALL BEEPQQ(I4C,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4D,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4E,1000)
           CALL SLEEPQQ(1000)
      CALL BEEPQQ(I4G,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4E,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4D,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4C,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4D,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4E,500)
           CALL SLEEPQQ(500)
      CALL BEEPQQ(I4D,1000)
           CALL SLEEPQQ(1000)

      END PROGRAM TESTBEEP