48 lines
2.5 KiB
Plaintext
48 lines
2.5 KiB
Plaintext
//has graphics
|
|
|
|
void EndTsk()
|
|
{
|
|
Sound(0);
|
|
Exit;
|
|
}
|
|
|
|
|
|
$PI,"<PI 3>",3$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void Song()
|
|
{
|
|
Fs->end_task_cb=&EndTsk;
|
|
music_tempo=2.5;
|
|
try {
|
|
while (!ScanKey) {
|
|
Play("3eDGqGeEGEBqAAeEBetCFB",
|
|
"Thanks,\0 \0 \0 God\0 for\0 \0 abun\0 \0 \0dance.\r\n\0 \0 \0 \0 \0");
|
|
Play("eDGqGeEGEBqAAeEBetCFB",
|
|
"Thanks,\0 \0 \0 God\0 for\0 \0 abun\0 \0 \0dance.\r\n\0 \0 \0 \0 \0");
|
|
PutGrElem($IB,"<IB 3>",3$,$IS,"<IS 3>",3$);
|
|
PutS("\r\n\r\n\r\n\r\n\r\n\r\n\r\n");
|
|
Play("BBBqFeAGqDeBDDFDCqE",
|
|
" \0 \0 \0Well,\0 I\0 guess, \0 \0that \0now \0it's\0 time\0 to\0 eat.\r\n\0 \0");
|
|
Play("etBBBqFeAGqDeBDDFDCqE",
|
|
" \0 \0 \0Well,\0 I\0 guess, \0 \0that \0now \0it's\0 time\0 to\0 eat.\r\n\0 \0");
|
|
}
|
|
} catch
|
|
Fs->catch_except=TRUE;
|
|
Sound(0);
|
|
}
|
|
|
|
Song;
|
|
E $ $ / /
|
|
4
|
|
4 3 3 * * " " " " " " ( / . . 5 5 7 7 /
|
|
/
|
|
% ' , , 2 2 2 2 . . ( ( % ' / + / ( 2 & * * 0 0 * $ ' ' . - $
|
|
/ 4 4 / / ) ) $ $
|
|
,
|
|
, 1 1 + 0 /
|
|
" / 3 1 1 * * % % # # * * 3 3 2 4
|
|
/
|
|
/ ( ( ' ' . . 5 / / / ' & $ # & 1 1 2 2
|
|
, , ! " , ) # ! - % !
|
|
! ! , # 4 3 3 0 0 7 7 8 þÿÿÿ 8 þÿÿÿ0 0 -
|
|
-
|
|
! # # ! ' ! ' 1 |