IonicWind Software

Hi folks,

Pity this doesn't get to the sound card - it would scare the living daylights out of anybody ..  ;D


openconsole
cls

Declare "kernel32",Beep(Frequency as Int, Msec as Int)

w = 0
for i = 1 to 400
  w = w + 5
  If w = 360 then w = 0
  b = 2 * 3.141 * w / 360
  f = sin(b) * 400 + 500
  Beep (f,10)
next i

do:until inkey$<>""
closeconsole
end


all the best, :)

Graham