30 LET f = 500 40 SOUND f, .1 50 LET f = f - 2 60 IF f < 37 THEN GOTO 30 70 GOTO 40