sound/siren2.bas

   1 DEFINT A-Z\r
   2 1\r
   3 FOR a = 100 TO 1000 STEP 3\r
   4 SOUND a, .05\r
   5 SOUND 5000 - (a * 2), .1\r
   6 NEXT a\r
   7 FOR a = 1000 TO 100 STEP -5\r
   8 SOUND a, .05\r
   9 SOUND a * 3 + 10, .05\r
  10 NEXT a\r
  11 GOTO 1\r
  12 \r