TempleOS-Rijn/Apps/Psalmody/Examples/partake.CPP

//8 has graphics
$SP,"<1>",BI=1$






U0 Song()
{
  Fs->task_end_cb=&SndTaskEndCB;
  music.tempo=2.5;
  try {
  while (!ScanKey) {
    Play("3eDGqGeEGEBqAAeEBetCFB",
	"Thank \0 \0You, \0God \0 \0for \0a\0bun\0 \0dance.\n\0 \0 \0 \0 \0");
    Sprite($IB,"<1>",BI=1$);
    "%h8c",'\n';
    Play("eDGqGeEGEBqAAeEBetCFB",
	"Thank \0 \0You, \0God \0 \0for \0a\0bun\0 \0dance.\n\0 \0 \0 \0 \0");
    Sprite($IB,"<1>",BI=1$);
    "%h7c",'\n';
    Play("BBBqFeAGqDeBDDFDCqE",
	" \0 \0 \0Well, \0I \0guess, \0 \0that \0now \0it's \0time \0to \0eat.\n\0 \0");
    Play("etBBBqFeAGqDeBDDFDCqE",
	    " \0 \0 \0Well, \0I \0guess, \0 \0that \0now \0it's \0time \0to \0eat.\n\0 \0");
  }
  } catch
    PutExcept;
  Snd(0);
}

Song;



$
$/
/
4

43
3 *
 *""
"""
"



(
/. 
. 5
57
7/

/
%

',
,2
22
2.
.(
(%
'/
+/
(2

&*
*0
0*

$ 
 '
'.
-$

/4
4
/

/)
)$
$
,

,1
1+
0/


"	/


31
1*
*%
%#
#*
*3
32
4
/

/(
( 
 '
'.
.5
//
/'
& 
  
 $

#&1
12	
2
,
,! 
",
)

#

!
 -
%!


!

  
! ,
#


43
30 
0 7
78þÿÿÿ
8þÿÿÿ0	
0	-

-

!

#
#!'
!'1