DEFINT A-Z 1 FOR a = 100 TO 1000 STEP 3 SOUND a, .05 SOUND 5000 - (a * 2), .1 NEXT a FOR a = 1000 TO 100 STEP -5 SOUND a, .05 SOUND a * 3 + 10, .05 NEXT a GOTO 1