2 ON ERROR GOTO 50000
3 CLS
5 FOR X = 32200 TO 1 STEP -10
10 SOUND X,.01
15 LOCATE 15,15
20 SOUND 23999,.01/(X*1000)
25 PRINT X
30 NEXT X
50000 X = (VAL)