1
s = s + 1       ' speed
PRINT s; "x"

FOR a = 100 TO 1000 STEP s
  SOUND a, .1
NEXT a

FOR a = 1000 TO 100 STEP -s
  SOUND a, .1
NEXT a

GOTO 1