59 lines
2.1 KiB
Plaintext
59 lines
2.1 KiB
Plaintext
//has graphics
|
|
|
|
$PI,"<heart>",1$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void EndTsk()
|
|
{
|
|
Sound(0);
|
|
Exit;
|
|
}
|
|
|
|
void Song()
|
|
{
|
|
TssStruct *tss;
|
|
Fs->end_task_cb=&EndTsk;
|
|
music_tempo=2.5;
|
|
try {
|
|
tss=PopUpViewStr(
|
|
"$$WW,1$$$$LK-A,\"BF:Matthew,22:35\"$$\r\n\r\n"
|
|
"How many people hear \"Love God with all heart "
|
|
"mind and soul; and neighbor as self\" but walk "
|
|
"away thinking \"Love neighbor with all heart "
|
|
"mind and soul?\"\r\n"
|
|
);
|
|
WaitTskIdle(tss);
|
|
tss->win_right=Fs->win_right;
|
|
tss->win_left=Fs->win_left;
|
|
tss->win_top=Fs->win_bottom+3;
|
|
tss->win_bottom=tss->win_top+12;
|
|
while (!ScanKey) {
|
|
Play("3qFeA2G3qBeGBqEetDCBqEeFF",
|
|
"First, \0lo\0ve \0God \0with \0 \0ALL \0$$FG,RED$$heart$$FG$$, \0mind \0and \0soul.\r\n\0 \0 \0");
|
|
PutGrElem($IB,"<heart>",1$,$IS,"<heart>",1$);
|
|
PutS("$$CM,0,6$$");
|
|
Play("qFeA2G3qBeGBqEetDCBqEeFF",
|
|
"First, \0lo\0ve \0God \0with \0 \0ALL \0$$FG,RED$$heart$$FG$$, \0mind \0and \0soul.\r\n\0 \0 \0");
|
|
PutGrElem($IB,"<heart>",1$,$IS,"<heart>",1$);
|
|
PutS("$$CM,0,6$$");
|
|
Play("GBsADADqE2G3eCDqG2sG3B2G3BetBDB",
|
|
"What's \0 \0 \0 \0 \0 \0left? \0 \0I \0don't \0know.\r\n\0 \0 \0 \0 \0 \0 \0 \0");
|
|
Play("eGBsADADqE2G3eCDqG2sG3B2G3BetBDB",
|
|
"What's \0 \0 \0 \0 \0 \0left? \0 \0I \0don't \0know.\r\n\0 \0 \0 \0 \0 \0 \0 \0");
|
|
}
|
|
} catch
|
|
Fs->catch_except=TRUE;
|
|
Sound(0);
|
|
}
|
|
|
|
Song;
|
|
|
|
+ + & & $ $
|
|
|
|
|
|
( # & # $ " ! # ( # $ ! " " " $ # " ! |