Files
TempleOS-Rijn/LT/Apps/MusicOrgan/Examples/knewest.CPZ
T
2018-09-08 21:45:20 +02:00

21 lines
300 B
Plaintext

//star
void EndTsk()
{
Sound(0);
Exit;
}
void Song()
{
Fs->end_task_cb=&EndTsk;
music_tempo=2.5;
while (TRUE) {
Play("qCqFeDEetDCCetCCCqDqAqC");
Play("qCqFeDEetDCCetCCCqDqAqC");
Play("qFqEetFAFqAqDeGAqEeBC");
Play("qFqEetFAFqAqDeGAqEeBC");
}
}
Song;