10 FOR N = 37 TO 2000 STEP 50
15 PRINT N
20 SOUND N,1
30 NEXT N
40 FOR N= 2000  TO 37 STEP -20
50 PRINT N
60 SOUND N,1
70 NEXT N
80 GOTO 10