TempleOS-Rijn/LT/Apps/MusicOrgan/Examples/including.CPZ

//has graphics

void EndTsk()
{
  Sound(0);
  Exit;
}

$PI,"<PI 4>",4$




void Song()
{
  Fs->end_task_cb=&EndTsk;
  music_tempo=2.5;
  try {
  PutS("$$WW+H,1$$");
  while (!ScanKey) {
    Play("3etBEAqGetGGF2qG3etCGEsAEAEqEC",
	"St. \0Paul, \0 \0let \0 \0 \0me \0in.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
    Play("etBEAqGetGGF2qG3etCGEsAEAEqEC",
	"St. \0Paul, \0 \0let \0 \0 \0me \0in.\r\n\0 \0 \0 \0 \0 \0 \0 \0 \0 \0");
    Play("GCFBE",
	"God's \0 \0big \0 \0tent.\r\n\0");
    PutGrElem($IB,"<IB 4>",4$,$IS,"<IS 4>",4$);
    PutS("\r\n\r\n\r\n\r\n");
    Play("2eG3AqDG",
	" \0 \0 \0God's \0");
    Play("GCFBE",
	    " \0 \0big \0 \0tent.\r\n\0");
    PutS("       ");
    PutGrElem($IB,"<IB 4>",4$,$IS,"<IS 4>",4$);
    PutS("\r\n\r\n\r\n\r\n");
    Play("2eG3AqDG",
	    " \0 \0 \0 \0");
    PutS("$$FG,GREEN$$(St. Paul was a missionary who welcomed non-Jews.  He made tents while preaching.)\r\n$$FG$$");
  }
  } catch
    Fs->catch_except=TRUE;
  Sound(0);
}

Song;
,	Byÿÿÿÿyÿÿÿÿ€€LKCÿÿÿÿCÿÿÿÿ8_cZ
g
^a]Zgc]]ICEA
B?>=:C
8‚‚yüÿÿÿyüÿÿÿyýÿÿÿyýÿÿÿAþÿÿÿAþÿÿÿ5^eKN‚64