and need a diversion, right now this provided some self amusement for a few minutes.
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()