RosettaCodeData/Task/Metronome/AppleScript/metronome.applescript
2023-07-01 13:44:08 -04:00

6 lines
181 B
AppleScript

set bpm to the text returned of (display dialog "How many beats per minute?" default answer 60)
set pauseBetweenBeeps to (60 / bpm)
repeat
beep
delay pauseBetweenBeeps
end repeat