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 "Edit", 7, 90 330 60 30
  button "Close", 6, 160 330 60 30, cancel
  link "Daily Bible Verse", 8, 270 10 80 25
}
dialog vv {
  title "Bible Verse"
  size -1 -1 800 95
  edit "" 1, 10 10 780 50, hsbar, autohs, multi, read
  button "Close", 2, 60 65 650 25, cancel
}
dialog ev {
  title "Edit Verse"
  size -1 -1 800 95
  edit "" 1, 10 10 780 50, hsbar, autohs, multi
  button "Cancel", 2, 440 65 300 25,cancel
  button "Save", 3, 70 65 300 25
}
on *:DIALOG:bv:sclick:3:{ 
  set %bible $did(bv,1).text 
  write bible.txt %bible
  did -a bv 4 %bible
  did -r $dname 1
}
on *:dialog:bv:sclick:8:{
  /run http://www.thedailybibleverse.org/
}
on *:DIALOG:bv:sclick:5:{   
  /dialog -m vv vv
  did -a vv 1 $did(bv,4).seltext
}
on *:DIALOG:bv:sclick:7:{   
  set %bvl $did(bv,4,1).sel
  /dialog -m ev ev
  did -a ev 1 $did(bv,4).seltext
}  
on *:DIALOG:ev:sclick:3:{   
  set %bible $did(ev,1).text 
  /write -l $+ $(%bvl,2) bible.txt %bible
  .timer -m 1 100 did -d bv 4 %bvl
  .timer -m 1 200 did -a bv 4 %bible
  .timer -m 1 500 /dialog -x ev ev
}
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 
  } 
}