Files
TempleOS-Rijn/TempleOS/Apps/MusicOrgan/Examples/service.CPP
T
2018-09-08 21:45:45 +02:00

33 lines
752 B
C++

//7 has words
U0 Song()
{
CTask *task;
Fs->task_end_cb=&SndTaskEndCB;
MusicSettingsRst;
music_tempo= 2.480;
music_stacatto_factor= 0.902;
try {
task=PopUpViewStr(
"$LK,"Matthew,20:28","BF:Matthew,20:28"$\n"
"$LK,"Mark,10:45","BF:Mark,10:45"$\n"
"$LK,"John,13:14","BF:John,13:14"$\n"
);
TaskWait(task);
SetWinHorz(Fs->win_left,Fs->win_right,task);
SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
while (!ScanKey) {
"$$FG,GREEN$$Jesus talking...\n$$FG$$";
Play("M6/8");
Play("3eAACADAADACAR",
" \0 \0I \0 \0came \0 \0 \0to \0 \0serve.\n\0 \0 \0");
Play("AACADAADACAR",
" \0 \0I \0 \0give \0 \0 \0my \0 \0word.\n\0 \0 \0");
Play("FGetFEGABCDAC2qG3sECEC");
}
} catch
CatchAll;
Snd(0);
}
Song;