# CQ, a general call in International Morse code (ITU-R M.1677-1). No composer; the words are the arranger's. https://lab.glossema.dev/play/morse-cq
# grid: unit 60ms, bar 2040ms
# One tone, 698 Hz (F5), keyed on and off.
# Dit 60 ms, dah 180 ms.
# Spaces: 60 ms between the elements of a letter, 180 ms between letters, 420 ms between words.
# Each word is one bar: CQ CQ DE ROUTER ROUTER K.
# The call is sent twice, with 2460 ms of silence between the two calls (a word space, then a listening bar of 2040 ms).

# ---- Call 1 of 2 ----
:put "CQ";
# bar 1
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # Q dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 420ms; # word space

:put "CQ";
# bar 2
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # Q dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 1080ms
:put "DE";
# bar 3
:beep frequency=698 length=180ms; # D dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # D dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # D dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 3480ms
:put "ROUTER";
# bar 4
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # U dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # T dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 420ms; # word space

:put "ROUTER";
# bar 5
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # U dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # T dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 960ms
:put "K";
# bar 6
:beep frequency=698 length=180ms; # K dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # K dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # K dah
:delay 180ms;
:delay 420ms; # word space

# ---- Listening ----
# grid: unit 60ms, bar 2040ms
# bar 7
:delay 2040ms; # listening

# ---- Call 2 of 2 ----
:put "CQ";
# bar 8
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # Q dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 420ms; # word space

:put "CQ";
# bar 9
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # C dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # C dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # Q dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # Q dah
:delay 180ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 1080ms
:put "DE";
# bar 10
:beep frequency=698 length=180ms; # D dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # D dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # D dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 3480ms
:put "ROUTER";
# bar 11
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # U dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # T dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 420ms; # word space

:put "ROUTER";
# bar 12
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=180ms; # O dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=60ms; # U dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # U dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=180ms; # T dah
:delay 180ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # E dit
:delay 60ms;
:delay 180ms; # letter space
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # R dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # R dit
:delay 60ms;
:delay 420ms; # word space

# grid: unit 60ms, bar 960ms
:put "K";
# bar 13
:beep frequency=698 length=180ms; # K dah
:delay 180ms;
:delay 60ms;
:beep frequency=698 length=60ms; # K dit
:delay 60ms;
:delay 60ms;
:beep frequency=698 length=180ms; # K dah
:delay 180ms;
:delay 420ms; # word space