TempleOS-Rijn/Accts/TS/TAD/MusicOrgan/shield.CPP

//7 has graphics


$SP,"<1>",BI=1$


U0 Song()
{
  CTask *task;
  Fs->task_end_cb=&SndTaskEndCB;
  music_tempo=2.5;
  try {
    task=PopUpViewStr(
	  "$LK,"Ephesians,6:11",A="BF:Ephesians,6:11"$\n"
	  "$LK,"Matthew,5:10",A="BF:Matthew,5:10"$\n"
	  "$LK,"2 Corinthians,6:7",A="BF:2 Corinthians,6:7"$\n"
	  );
    TaskWait(task);
    SetWinHorz(Fs->win_left,Fs->win_right,task);
    SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
    while (!ScanKey) {
      Play("3qDCDeEGBDetBBFqDeDB",
	    "God, \0my \0breast \0plate, \0 \0won't \0be \0put \0to \0shame.\n\0 \0 \0 \0");
      NewLine;
      Sprite($IB,"<1>",BI=1$);
      NewLine(5);
      Play("qDCDeEGBDetBBFqDeDB",
	    "God, \0my \0breast \0plate, \0 \0won't \0be \0put \0to \0shame.\n\0 \0 \0 \0");
      NewLine;
      Sprite($IB,"<1>",BI=1$);
      NewLine(5);
      Play("FAetAFDeDFqAetDFBeDFetFDEqD",
	    "Mocked \0 \0 \0a \0lit\0tle, \0 \0 \0badge \0 \0of \0 \0 \0cour\0 \0 \0age.\n\0");
      Play("eFAetAFDeDFqAetDFBeDFetFDEqD",
	    "Mocked \0 \0 \0a \0lit\0tle, \0 \0 \0badge \0 \0of \0 \0 \0cour\0 \0 \0age.\n\0");
    }
  } catch
    PutExcept;
  Snd(0);
}

Song;
¢"*&úÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ