Page 1 of 1

Beepmania

Posted: Wed Mar 30, 2005 12:43 pm
by Rescator
This is what happens when your brain overload on more serious code,
and need a diversion, right now this provided some self amusement for a few minutes. :lol:

Code: Select all

Procedure AnnoyingBeep()
 Beep_(50,300) : Delay(20)
 Beep_(200,300) : Delay(20)
 Beep_(50,300) : Delay(20)
 Beep_(200,300) : Delay(20)
 Beep_(50,300) : Delay(20)
 Delay(500)
 Beep_(40,300) : Delay(20)
 Beep_(120,300) : Delay(20)
 Beep_(40,300) : Delay(20)
 Beep_(120,300) : Delay(20)
 Beep_(40,300) : Delay(20)
 Delay(500)
 Beep_(50,300) : Delay(20)
 Beep_(200,300) : Delay(20)
 Beep_(50,300) : Delay(20)
 Beep_(200,300) : Delay(20)
 Beep_(50,300) : Delay(20)
 Delay(500)
 Beep_(50,400) : Delay(200)
 Beep_(200,500) : Delay(125)
 Beep_(50,800)
EndProcedure

AnnoyingBeep()
So.. What is "your" PureBasic Beepmania hit song? :lol: