int BPM, Odd, Time0, Delay;
[Text(0, "Beats per minute: ");
BPM:= IntIn(0);
Odd:= true;
Delay:= 60_000_000/BPM;         \microseconds per beat
repeat  Time0:= GetTime;
        repeat until GetTime-Time0 >= Delay;
        Text(0, if Odd then "tick" else " TOCK^m^j");
        Odd:= not Odd;
until KeyHit;
]