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

28 lines
699 B
Plaintext

void EndTsk()
{
Sound(0);
Exit;
}
void Song()
{
Fs->end_task_cb=&EndTsk;
music_tempo=2.5;
try {
while (!ScanKey) {
Play("3qAAsG2G3G2G3qGF2eG3FqEetCBA",
"Let's \0ask \0Mike\0 \0 \0 \0y; \0Hates \0 \0every\0thing.\r\n\0 \0 \0 \0");
Play("qAAsG2G3G2G3qGF2eG3FqEetCBA",
"Let's \0ask \0Mike\0 \0 \0 \0y; \0Hates \0 \0every\0thing.\r\n\0 \0 \0 \0");
Play("2eG3GqE2eG3FqF2sG3G2G3GqAetGEBqD",
"What \0do \0YOU \0 \0 \0know. \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\r\n\0");
Play("2eG3GqE2eG3FqF2sG3G2G3GqAetGEBqD",
"What \0do \0YOU \0 \0 \0know. \0 \0 \0 \0 \0 \0It's \0 \0kosh\0er!\r\n\0");
}
} catch
Fs->catch_except=TRUE;
Sound(0);
}
Song;