      SUBROUTINE BELL(N)
***** *************************************************************** 
*
*-----N piepjes laten horen
*
*---- J.P.M. Witte, LUW, 130594
*     Laatste herziening: 230694
*
***** *************************************************************** 
*
      CHARACTER*1 C1
*
      C1=CHAR(7)
      DO 10 I=1,N
         WRITE(6,901)' ',C1
10    CONTINUE
*
      RETURN
901   FORMAT('+',2A1)
*
      END