/* playDVDdopus.rexx by jPV */

OPTIONS RESULTS
ADDRESS DOPUS.1

dopus request '"Select DVD title to play" 1|2|3|4|5|6|7|8|9|other|Cancel'

valinta=rc
if valinta=10 then do
  dopus getstring '"Title number?" "" Cancel'
  if dopusrc=1 then exit
  valinta=result
end
if valinta=0 then do
  exit
end


ADDRESS COMMAND 'Utils:Media/MPlayer/MPlayer DVD_DEVICE=ide.device:2 -fs -framedrop -slang fi -dvd 'valinta

exit