{
{     This procedure will chain through any given KJL thread and return
{  individual KJL entries, until the thread is exhausted.
{
{  JMP$GET_NEXT_ENTRY (DONE, KJL_THD, NEXT_ENTRY)
{
{  DONE: (output) Indicates whether or not thread is exhausted.
{
{  KJL_THD: (input) The thread to search.
{
{  NEXT_ENTRY: (output) The individual kjl entry ordinal.
{
