6 lines
218 B
Text
6 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}]]]
|