' #express$=command$(-1)
' #for i - 1 to len(express$)
' # if mid$(express$,i,1) = " " then char$=char$+mid$(express$,i+1,1)
' #next i

book$="Genesis"
chap$="1"
verse$="1"
outa=0
n$="1"
chang$="0"
print "Welcome to BIB[le] V1 by Page Telegram. This program uses the YLT Bible.": print "L=[Book,chapter,verse] I=Book, #=Chapter, :=Verse, [1..9: context], [SHIFT]+[PGu]/[PGd], [ESC]=exit"
do

select case ucase$(inkey$)
 case "H"
  cls
  print "Welcome to BIB[le] V1 by Page Telegram. This program uses the YLT Bible. [H]ome"
  print "L=[Book,chapter,verse] I=Book, #=Chapter, :=Verse, [1..9: context], [SHIFT]+[PGu]/[PGd], [ESC]=exit"  
  chang$="1"
 case chr$(27) outa=1
 case "1":n$="1":chang$="1"
 case "2":n$="2":chang$="1"
 case "3":n$="3":chang$="1"
 case "4":n$="4":chang$="1"
 case "5":n$="5":chang$="1"
 case "6":n$="6":chang$="1"
 case "7":n$="7":chang$="1"
 case "8":n$="8":chang$="1"
 case "9":n$="9":chang$="1"
 case "#": input "What Chapter>", chap$:chang$="1"
 case ":": input "What Verse>", verse$:chang$="1"
 case "I": input "What Book>", book$:chang$="1"
 case "V": shell "cat ylt.txt | grep -n"+n$+" " + full$:chang$="1" 
 case chr$(13): shell "cat ylt.txt | grep -n" + n$ + " " + full$ : chang$="1" 
 case "L" 
   print "[Book, chapter, verse] >";
   input book$,chap$,verse$: shell "cat ylt.txt | grep -n" + n$ + " " + full$
   chang$ = "1"
end select

full$ = "'"+book$ + " " + chap$ + ":" + verse$+chr$(9)+"'"

if chang$="1" then
 print full$ + " in context of -/+ " + n$ 
 chang$="0"
end if

loop until outa = 1
system