//8 special
U8 *bible;
I64 size;

U0 TaskEndCB()
{
  Snd(0);
  Free(bible);
  Exit;
}

#define LEN 256

U0 PutVerse()
{
  U8 *ch;
  I64 *start;

  DocClear;
  start=GetTSC/16%size;
  if (start>size-LEN) start=size-LEN;
  ch=bible[start+LEN-1];
  bible[start+LEN-1]=0;
  "%s",bible+start;
  bible[start+LEN-1]=ch;
}

U0 Song()
{
  CTask *task;
  U8 *bible_filename=Define("ST_BIBLE_FILE");
  Fs->task_end_cb=&TaskEndCB;
  music_tempo=2.5;
  bible=FileRead(bible_filename,&size);
  "$$WW+H,1$$";
  try {
  task=PopUpViewStr(
    "$$WW,1$$This shows a random passage based on "
    "the time at the moment this song was run.  "
    "Talk to God as an offering, then run $MA+A-X+PU,"AfterEgypt","Cd(\"::/TempleOS/Apps/AfterEgypt\");;#include \"Run\"\\n"$ if you "
    "want God to talk some more.  The $LK+PU,"Holy Spirit","FI:::/TempleOS/Apps/HolySpirit/HSNotes.TXT"$ can "
    "puppet you.\n");
  TaskWait(task);
  SetWinHorz(Fs->win_left,Fs->win_right,task);
  SetWinVert(Fs->win_bottom+3,Fs->win_bottom+15,task);
  DocRecalc(DocPut(task)); //Reformat word-wrap with new window size.
  while (!ScanKey) {
	PutVerse;
	Play("3qAeABCBqCetABBqCetAAREE2G");
	Play("3qAeABCBqCetABBqCetAAREE2G");
	Play("3eDRRRqGReRRGGGGqE");
	Play("eDRRRqGReRRGGGGqE");
  }
  } catch
    CatchAll;
  Snd(0);
  Free(bible);
}

Song;