/*
** Script that show how jump is working
*/

options results
options failat 5
address 'OPTYCDPLAYER'

if ~show('l','rexxsupport.library') then do
	addlib('rexxsupport.library',0,-30,0)
end

status			    /* getting play status */
ret=rc
if ret>0 & ret<4 then do    /* if not nodisk and not datadisk */

  if ret=2 | ret=3 then do	/* if stopped or paused */
    playpause			    /* then play it */
  end

  call Delay(250)		/* waiting 5 secs */
  'jump 10'			/* jumping 10 secs ahead */
  call Delay(250)		/* waiting 5 secs */
  'jump -20'			/* jumping 20 secs back */

  if ret=2 then do		/* if initially stopped */
    stop			    /* then stop it */
  end

  if ret=3 then do		/* if initially paused */
    playpause			    /* then pause it */
  end

end