1 ON ERROR GOTO 111
5 CLS
6 SCREEN 1:CIRCLE(X,X),X:BEEP:CIRCLE(X,X),X,1:BEEP:SCREEN 0,0,0:WIDTH 80
10 SCREEN 9
11 FOR X = 1 TO 5000
12 CIRCLE(222,233),X,X : PLAY"L64 T233N0" +STR$(X)
13 PRINT X:NEXT X,TIMER
111 SCREEN 0,0,0:ON ERROR GOTO 0:GOTO 12