home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / Opty / Arexx / Jump.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  754 b   |  35 lines
  1. /*
  2. ** Script that show how jump is working
  3. */
  4.  
  5. options results
  6. options failat 5
  7. address 'OPTYCDPLAYER'
  8.  
  9. if ~show('l','rexxsupport.library') then do
  10.     addlib('rexxsupport.library',0,-30,0)
  11. end
  12.  
  13. status                /* getting play status */
  14. ret=rc
  15. if ret>0 & ret<4 then do    /* if not nodisk and not datadisk */
  16.  
  17.   if ret=2 | ret=3 then do    /* if stopped or paused */
  18.     playpause                /* then play it */
  19.   end
  20.  
  21.   call Delay(250)        /* waiting 5 secs */
  22.   'jump 10'            /* jumping 10 secs ahead */
  23.   call Delay(250)        /* waiting 5 secs */
  24.   'jump -20'            /* jumping 20 secs back */
  25.  
  26.   if ret=2 then do        /* if initially stopped */
  27.     stop                /* then stop it */
  28.   end
  29.  
  30.   if ret=3 then do        /* if initially paused */
  31.     playpause                /* then pause it */
  32.   end
  33.  
  34. end
  35.