Ok Heres Version 2 Of The Bible Passage System. I redid the whole Script I gave it a diff look And Diff options. Copy'paste into a new remote click either in ur menubar or in a channel to open. If You Still Want Version 1 you can get it from this link. http://www.mywebs.biz/Uploads/V1BiblePassageDialog.txt

Heres A pic of my Version 2.

I hope you all like version 2..
Enjoy....

dialog bp2 {
  title "Bible Passage System V2.0"
  size -1 -1 187 127
  option dbu
  box "Old Testament Book's", 1, 2 2 63 62
  combo 2, 6 11 55 50, size vsbar
  box "New Testament Book's", 3, 68 2 63 62
  combo 4, 72 11 55 50, size vsbar
  box "Chapter  /  Verse", 5, 134 2 52 30
  edit "", 6, 138 11 21 9, read autohs center
  edit "", 7, 162 11 21 9, read autohs center
  button ">", 10, 149 21 10 8, flat
  button "<", 8, 138 21 10 8, flat
  button ">", 9, 173 21 10 8, flat
  button "<", 11, 162 21 10 8, flat
  box "Old/New On/Off", 12, 134 34 52 30
  radio "Old Test On", 13, 139 43 40 9
  radio "New Test On", 14, 139 53 42 9
  box "Bible Passage", 15, 2 65 184 61
  button "Clip", 17, 31 113 20 10, flat
  button "Msg", 18, 58 113 20 10, flat
  button "Find", 19, 84 113 20 10, flat
  button "Back", 20, 110 113 20 10, flat
  button "Next", 21, 135 113 20 10, flat
  button "Exit", 22, 161 113 20 10, flat cancel
  button "Clear", 23, 6 113 20 10, flat
  list 16, 6 73 176 38, size vsbar
}
alias bp2 { dialog $iif($dialog(bp2),-v,-md) bp2 bp2 }
menu menubar,channel {
  .Bible Passage System V2.0:{ bp2 }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Bible Passage System V2.0 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1?15,1?0,1?0,1? ?ט?Ǯ0??X׻ ?0,1?15,1?14,1?)?
}
on *:dialog:bp2:close:0:{ unset %biblebooks* %newt %oldt %chaptern %versen %1passage }
on *:dialog:bp2:init:0:{
  inc %chaptern 1
  inc %versen 1
  did -ra bp2 6 %chaptern
  did -ra bp2 7 %versen
  if (!%biblebooks) { set %biblebooks Genesis Exodus Leviticus Numbers Deuteronomy Joshua Ruth 1Samuel 2Samuel 1Kings 2Kings 1Chronicles 2Chronicles Ezra Nehemiah Esther Job Psalm Proverbs Ecclesiastes Songofsolomon Isaiah Jeremiah Lamentations Ezekiel Daniel Joel Amos Obadiah Jonah Micah Nahum Habakkuk Zephaniah Haggai Zechariah Malachi }
  if (!%biblebooks2) { set %biblebooks2 Matthew Mark Luke John Acts Romans 1Corinthians 2Corinthians Galatians Ephesians Philippians Colossians 1Thessalonians 2Thessalonians 1Timothy 2Timothy Titus Philemon Hebrews James 1Peter 2Peter 1John 2John 3John Jude Revelation }
  var %otb = $gettok(%biblebooks,1-,32)
  var %boo = $numtok(%otb,32), %oh = 1
  while ( %oh <= %boo ) {
    did -a bp2 2 $gettok(%otb,%oh,32)
    inc %oh
  }
  var %ntb = $gettok(%biblebooks2,1-,32)
  var %bo = $numtok(%ntb,32), %ooh = 1
  while ( %ooh <= %bo ) {
    did -a bp2 4 $gettok(%ntb,%ooh,32)
    inc %ooh
  }
  if (%oldt) { did -c bp2 13 | did -e bp2 2  }
  if (!%oldt) { did -b bp2 2 | did -u bp2 13 }
  if (%newt) { did -c bp2 14 | did -e bp2 4 }
  if (!%newt) { did -b bp2 4 | did -u bp2 14 }
  if (%chaptern <= 1) { did -b bp2 8 }
  if (%versen <= 1) { did -b bp2 11,20 }
}
on *:dialog:bp2:sclick:*:{
  if ($did == 13) { set %oldt on | did -c bp2 13 | did -e bp2 2 | unset %newt | did -u bp2 14 | did -b bp2 4 }
  if ($did == 14) { set %newt on | did -c bp2 14 | did -e bp2 4 | unset %oldt | did -u bp2 13 | did -b bp2 2 }
  if ($did == 10) { inc %chaptern 1 | did -ra bp2 6 %chaptern | did - $+ $iif(%chaptern >= 1,e) bp2 8 | did -r bp2 16 }
  if ($did == 8) { dec %chaptern 1 | did -ra bp2 6 %chaptern | did - $+ $iif(%chaptern <= 1,b,e) bp2 8 | did -r bp2 16 }
  if ($did == 9) { inc %versen 1 | did -ra bp2 7 %versen | did - $+ $iif(%versen >= 1,e) bp2 11,20 | did -r bp2 16 }
  if ($did == 11) { dec %versen 1 | did -ra bp2 7 %versen | did - $+ $iif(%versen <= 1,b,e) bp2 11,20 | did -r bp2 16 }
  if ($did == 23) { did -r bp2 16 | unset %1passage }
  if ($did == 17) { clipboard %1passage }
  if ($did == 18) {
    if (!%1passage) {
      noop $input(No Passage To Message,uwo,Error)
    }
    elseif (!%newt) {
      msg $active 14,1[12,1?0,1:: Book $did(2).text ::12,1?14,1]14,1[12,1?0,1:: Chapter $did(6).text ::12,1?14,1]14,1[12,1?0,1:: %1passage ::12,1?14,1]14,1[12,1?0,1:: Bible Script By :: Napa182 0,1::12,1?14,1] 
    }
    elseif (!%oldt) {
      msg $active 14,1[12,1?0,1:: Book $did(4).text ::12,1?14,1]14,1[12,1?0,1:: Chapter $did(6).text ::12,1?14,1]14,1[12,1?0,1:: %1passage ::12,1?14,1]14,1[12,1?0,1:: Bible Script By :: Napa182 0,1::12,1?14,1] 
    }
  }
  if ($did == 19) {
    unset %next
    if (!%newt) && (!%oldt) {
      noop $input(Please Pick Either An Old Or New Testament Book,uwo,Error)
    }
    elseif (!%oldt) {
      if (!$did(4).seltext) {
        noop $input(Please Pick Either An New Testament Book,uwo,Error)
      }
      else {
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(4).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
    }
    elseif (!%newt) {
      if (!$did(2).seltext) {
        noop $input(Please Pick Either An Old Testament Book,uwo,Error)
      }
      else {
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(2).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
    }
  }
  if ($did == 21) { 
    set %next on
    if (!%newt) && (!%oldt) {
      noop $input(Please Pick Either An Old Or New Testament Book,uwo,Error)
    }
    elseif (!%oldt) {
      if (%notfound) {
        unset %notfound
        set %versen 1
        inc %chaptern 1
        did -ra bp2 7 %versen
        did -ra bp2 6 %chaptern
        did - $+ $iif(%versen <= 1,b,e) bp2 11,20
        did - $+ $iif(%chaptern <= 1,b,e) bp2 8
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(4).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
      else {
        if (!%notfound) {
          inc %versen 1
          did -ra bp2 7 %versen
          did - $+ $iif(%versen >= 1,e) bp2 11,20
          if (!%oldt) {
            if ($sock(bverse)) .sockclose bverse
            did -r bp2 16
            set %verse $did(4).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
            sockopen bverse bibleresources.bible.com 80
          }
        }
      }
    }
    elseif (!%newt) {
      if (%notfound) {
        unset %notfound
        set %versen 1
        inc %chaptern 1
        did -ra bp2 7 %versen
        did -ra bp2 6 %chaptern
        did - $+ $iif(%versen <= 1,b,e) bp2 11,20
        did - $+ $iif(%chaptern <= 1,b,e) bp2 8
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(2).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
      else {
        if (!%notfound) {
          inc %versen 1
          did -ra bp2 7 %versen
          did - $+ $iif(%versen >= 1,e) bp2 11,20
          if ($sock(bverse)) .sockclose bverse
          did -r bp2 16
          set %verse $did(2).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
          sockopen bverse bibleresources.bible.com 80
        }
      }
    }
  }
  if ($did == 20) {
    if (!%newt) && (!%oldt) {
      noop $input(Please Pick Either An Old Or New Testament Book,uwo,Error)
    }
    else {
      dec %versen 1
      did -ra bp2 7 %versen
      did - $+ $iif(%versen <= 1,b,e) bp2 11,20
      if (!%oldt) {
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(4).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
      elseif (!%newt) {
        if ($sock(bverse)) .sockclose bverse
        did -r bp2 16
        set %verse $did(2).seltext $+ $chr(43) $+ $did(6).text $+ $chr(37) $+ 3A $+ $did(7).text
        sockopen bverse bibleresources.bible.com 80
      }
    }
  }
  if ($did == 2) { 
    did -r bp2 4,16 
    set %chaptern 1
    set %versen 1
    did -ra bp2 6 %chaptern
    did -ra bp2 7 %versen
    did - $+ $iif(%versen <= 1,b,e) bp2 11,20
    did - $+ $iif(%chaptern <= 1,b,e) bp2 8
    var %ntb = $gettok(%biblebooks2,1-,32)
    var %bo = $numtok(%ntb,32), %ooh = 1
    while ( %ooh <= %bo ) {
      did -a bp2 4 $gettok(%ntb,%ooh,32)
      inc %ooh
    }
  }
  if ($did == 4) { 
    did -r bp2 2,16 
    set %chaptern 1
    set %versen 1
    did -ra bp2 6 %chaptern
    did -ra bp2 7 %versen
    did - $+ $iif(%versen <= 1,b,e) bp2 11,20
    did - $+ $iif(%chaptern <= 1,b,e) bp2 8
    var %otb = $gettok(%biblebooks,1-,32)
    var %boo = $numtok(%otb,32), %oh = 1
    while ( %oh <= %boo ) {
      did -a bp2 2 $gettok(%otb,%oh,32)
      inc %oh
    }   
  }
}
on *:SOCKOPEN:bverse: {
  sockwrite -nt $sockname GET /passagesearchresults.php?passage1= $+ %verse $+ &version1=9 HTTP/1.1
  sockwrite -nt $sockname Host: bibleresources.bible.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:bverse: {
  if ($sockerr) {
    echo -a Socket Error: $sockname
  }
  else { 
    var %bible
    sockread %bible
    if (%next) && (*not found* iswm %Bible) {
      set %notfound on
      did -ra bp2 16 Please Click Next To Go To The Next Chapter.
      unset %verse %next
      sockclose bverse
    }
    elseif (!%next) && (*not found* iswm %Bible) {
      set %notfound on
      did -ra bp2 16 Sorry No Such Bible Passage.
      unset %verse  
      sockclose bverse
    }
    if (*<sup id=* iswm %bible ) {
      var %passage Verse $htmlfree(%bible)
      set %1passage Verse $htmlfree(%bible)
      var %passage $instok(%passage,|,10,32)
      var %passage $instok(%passage,|,20,32)
      var %passage $instok(%passage,|,30,32)
      var %passage $instok(%passage,|,40,32)
      var %passage $instok(%passage,|,50,32)
      var %wbible = $gettok(%passage,1-,124)
      var %o = $numtok(%wbible,124), %ot = 1
      while ( %ot <= %o ) {
        did -a bp2 16 $gettok(%passage,%ot,124)
        inc %ot
        unset %verse %next
        sockclose bverse
      }    
    }
  }
}
alias htmlfree { 
  var %b,%p 
  %p = $regsub($1-,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%b)
  %b = $remove(%b,&nbsp;) 
  return %b 
}