BYTE BELL (2)
	DATA BELL /0,"007/
	CALL VTANS (5)
	DO 100 I=1,10
		DO 100 J=0,4
			CALL VTLED (5,J)
			CALL WAIT (100,1,IDS)
  100			CONTINUE
	DO 200 I=1,10
		DO 200 J=4,0,-1
			CALL VTLED (5,J)
			CALL WAIT (100,1,IDS)
  200			CONTINUE
	DO 300 I=1,10
		DO 250 J=1,4
			IF ((J.EQ.1).OR.(J.EQ.4)) WRITE (5,9000) BELL
			CALL VTLED (5,J)
			CALL WAIT (150,1,IDS)
			CALL VTLED (5,0)
  250			CONTINUE
 9000	FORMAT (2A1)
		DO 300 J=3,2,-1
			CALL VTLED (5,J)
			CALL WAIT (150,1,IDS)
			CALL VTLED (5,0)
  300			CONTINUE
	END