U0 SongPuppet(CTask *task,I64 passes)
{
  CDbgInfo *dbg_info;
  I64 i,start,end,rip,last_rip;
  CHashFun *tmpf=NULL;
  for (i=0; i<250 && TaskValidate(task); i++)
  {
    if (tmpf=HashFind("Song",task->hash_table,HTT_FUN))
      break;
    Sleep(1);
  }
  if (tmpf && (dbg_info=tmpf->dbg_info))
  {
    start=dbg_info->body[0];
    end  =dbg_info->body[dbg_info->max_line+1-dbg_info->min_line];
    last_rip=0;
    while (TRUE)
    {
      i=0;
      while (TaskValidate(task) && (rip=TaskCaller(task,i++)))
      {
        if (start<=rip<end)
        {
          if (rip<last_rip && --passes<=0)
            return;
          last_rip=rip;
        }
      }
      Sleep(1);
    }
  }
}

U0 JukeSongPuppet(CTask *juke_task,I64 passes,I64 song_num,U8 *name)
{
  Bool found;
  CTask *task;
  I64 i;
  if (FileExtDot(name))
    FileExtRem(name);
  BirthWait(&juke_task->popup_task);
  TaskWait(juke_task->popup_task);
  PostMsg(juke_task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP+SCF_CTRL);
  TaskWait(juke_task->popup_task);
  for (i=0; i<song_num; i++)
  {
    PostMsg(juke_task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
    TaskWait(juke_task->popup_task);
  }
  PostMsg(juke_task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
  TaskWait(juke_task->popup_task);
  Sleep(500);
  found=FALSE;
  task=Fs->next_task;
  while (task!=Fs)
  {
    if (!StrCmp(task->task_title,name))
    {
      found=TRUE;
      break;
    }
    task=task->next_task;
  }
  if (found)  //Position cursor on song title during song
  {
    TaskWait(juke_task->popup_task);
    PostMsg(juke_task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_UP+SCF_CTRL);
    TaskWait(juke_task->popup_task);
    for (i=0; i<song_num; i++)
    {
      PostMsg(juke_task->popup_task,MSG_KEY_DOWN_UP,0,SC_CURSOR_RIGHT);
      TaskWait(juke_task->popup_task);
    }
    SongPuppet(task,passes);
  }
  Kill(task);
}

public U0 JukeSongsPuppet(U8 *dirname="~/Psalmody",I64 passes=2,
                          I64 start_song=0,I64 end_song=I64_MAX)
{//Help make music video by puppeting JukeBox task.
  I64 i;
  CDirEntry *tmpde,*tmpde1;
  CTask *juke_task=User("JukeBox(0x%X);\n",dirname);
  F64 t0;
  Cd(dirname);
  tmpde1=FilesFind("*",FUF_RECURSE|FUF_JUST_TXT|FUF_JUST_FILES);
  for (tmpde=tmpde1,i=0; tmpde && i<start_song; i++)
    tmpde=tmpde->next;
  if (scrncast.record)
    t0=scrncast.t0_tS;
  else
    t0=tS;
  for (i=start_song; tmpde && i<end_song; i++)
  {
    "%12.6fs %s\n",tS-t0,tmpde->full_name;
    JukeSongPuppet(juke_task,passes,i,tmpde->name);
    tmpde=tmpde->next;
  }
  DirTreeDel(tmpde1);
  Kill(juke_task);
}