TempleOS-Rijn/TempleOS/Apps/MusicOrgan/Examples/josh.CPP

//7 has graphics





$SP,"<1>",1$




U0 Song()
{
  CTask *task;
  Fs->task_end_cb=&SndTaskEndCB;
  MusicSettingsRst;
  music_tempo= 2.480;
  music_stacatto_factor= 0.814;
  try {
  task=PopUpViewStr(
    "$LK,"Psalms,18:26","BF:Psalms,18:26"$ Try other translations.\n"
    "$LK,"Numbers,11:1","BF:Numbers,11:1"$ Read the whole chapter.\n"
    "$LK,"1 Kings,22:1","BF:1 Kings,22:1"$ Read the whole chapter.\n"
    );
  TaskWait(task);
  SetWinHorz(Fs->win_left,Fs->win_right,task);
  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
  while (!ScanKey) {
	Play("3sCACAeABqAeFAetDF2GeG3FqG2G",
		"$$CL$$Oh, \0 \0my \0 \0 \0 \0Gosh!\n\0 \0 \0 \0 \0You \0 \0 \0lied!\n\0$$FG,GREEN$$God talking...\n$$FG$$\0");
	Play("3sCACAeABqAeFAetDF2GeG3FqG2G",
		"$$FG,RED$$Just \0 \0 \0 \0 \0 \0joshed.\n\0 \0 \0Shhh. \0 \0 \0 \0Con\0fide.\n\0 \0");
	Spaces(40);
	PutSprite($IB,"<1>",1$);
	Play("3eDCqD2G3etE2G3GqDDeGAqD",
		"\nI \0am \0God.\n\0 \0I \0 \0can \0lie.\n\0 \0 \0 \0 \0");
	Play("eDCqD2G3etE2G3GqDDeGAqD",
		"I \0am \0God.\n\0 \0I \0 \0can \0lie.$$FG$$\n\0 \0 \0 \0 \0");
  }
  } catch
    CatchAll;
  Snd(0);
}

Song;

:7ôÿÿÿÜÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ