sound/siren1.bas

   1 SCREEN 1\r
   2 CLS\r
   3 a = 40\r
   4 1\r
   5 SOUND a, .3\r
   6 SOUND 200, 1\r
   7 a = a + 100\r
   8 IF a > 1000 THEN GOTO 2\r
   9 GOTO 1\r
  10 2\r
  11 SOUND a, .3\r
  12 SOUND 500, .2\r
  13 a = a - 10\r
  14 IF a < 200 THEN GOTO 1\r
  15 GOTO 2\r
  16 \r