5 lines
218 B
Text
5 lines
218 B
Text
LocalSubmit[ScheduledTask[
|
|
EmitSound[Sound[Table[{
|
|
SoundNote["C",750/1000,"TubularBells"],SoundNote[None,500/1000,"TubularBells"]
|
|
},Mod[Round[Total[DateList[][[{4,5}]]{2,1/30}]],8,1]]]]
|
|
,DateObject[{_,_,_,_,_,30|0}]]]
|