rafi

menu * {
  Bible Verses:/dialog -m bv bv
}
dialog bv {
  title "Bible Verses" 
  size -1 -1 360 380
  text "Bible Verses", 100, 5 5 80 15, center
  edit "", 1, 20 40 300 20,  multi, autohs
  box "New Bible Verse", 2, 15 25 310 45
  button "Add Verse", 3, 20 85 70 20 
  list 4, 20 120 300 200, vsbar
  button "View", 5, 20 330 60 30
  button "Close", 6, 90 330 60 30, cancel
}
dialog vv {
  title "Bible Verse"
  size -1 -1 800 71
  list 1, 10 10 780 40, hsbar
  button "Close", 2, 60 43 650 25, cancel
}
on *:dialog:bv:sclick:70:timer 1 1 /dialog -m bv bv
on *:DIALOG:bv:sclick:3:{ 
  set %bible $did(bv,1).text 
  write bible.txt %bible
  did -a bv 4 %bible
}
on *:DIALOG:bv:sclick:5:{   
  /dialog -m vv vv
  did -a vv 1 $did(bv,4).seltext
}  
on *:DIALOG:bv:init:0:{ 
  var %bible.read 1 
  while (%bible.read <= $lines(bible.txt)) { 
    did -a bv 4 $read(bible.txt,%bible.read) 
    inc %bible.read 1 
  } 
}