11 lines
306 B
Text
11 lines
306 B
Text
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;
|
|
]
|