Speaker-Tecno
Posted: Fri Apr 01, 2005 2:40 pm
Code updated For 5.20+
EVERYBODY, CLAP YOUR HANDS !!!
EVERYBODY, CLAP YOUR HANDS !!!
Code: Select all
#Grad2Rad=0.017453
OpenConsole()
ConsoleTitle ("Tecno-Mucke")
repeat
For a=1 To 150 Step 10
Beep_(Int(Sin(a*#Grad2Rad)*1000), 10)
Beep_(Int(Sin(a*#Grad2Rad)*500), 5)
Beep_(Int(Cos(a*#Grad2Rad)*1000), 10)
Next
Delay(40)
For x=1 To 20
Beep_(100+Random (1000),3)
Beep_(100+Random (1000),3)
Next x
Delay(40)
For a=1 To 400 Step 10
Beep_(Int(Sin(a*#Grad2Rad)*1000), 10)
Beep_(Int(Sin(a*#Grad2Rad)*500), 5)
Beep_(Int(Cos(a*#Grad2Rad)*1000), 10)
Next
Delay(40)
For x=1 To 20
Beep_(100+Random (1500),3)
Beep_(100+Random (1000),3)
Next x
Delay(40)
For a=1 To 150 Step 10
Beep_(Int(Sin(a*#Grad2Rad)*2000), 10)
Beep_(Int(Sin(a*#Grad2Rad)*500), 5)
Beep_(Int(Cos(a*#Grad2Rad)*1000), 10)
Next
Delay(20)
For x=1 To 20
Beep_(100+Random (1000),3)
Beep_(100+Random (1000),3)
Next x
Delay(20)
For x=1 To 20
Beep_(100+Random (1500),3)
Beep_(100+Random (1000),3)
Next x
Until Inkey()<>""
CloseConsole()