'{$STAMP BS2}

'Make crazy randomized sound
i var byte          'Loop counter
r1 var word         'Random #

for i = 1 to 20     'Loop 20 times
  random r1         'Create a random #
  r1 = r1 / 31      'Make # smaller
  freqout 9,70,r1   'Make short random tone
next