home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / SCDPLAY.LHA / SCDPlayer / Rexx / Repeat1.scdp < prev    next >
Encoding:
Text File  |  1996-09-07  |  410 b   |  35 lines
  1. /* Skandalfo CD Player ARexx script 
  2. ** Repeat-1-track mode.
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. STATUS
  8. ST=RESULT
  9.  
  10. IF ST~=PLAYING THEN RETURN
  11.  
  12. PLAYINGTRACK
  13. TR=RESULT
  14.  
  15. FLAG=1
  16.  
  17. PLAYTRACK TR
  18. USERACTION
  19.  
  20. DO WHILE FLAG
  21.     ADDRESS COMMAND Delay 500
  22.     
  23.     USERACTION
  24.     UA=RESULT
  25.     
  26.     IF UA~=0 THEN RETURN
  27.     
  28.     STATUS
  29.     ST=RESULT
  30.     
  31.     IF ST=NODISK THEN FLAG=0
  32.     
  33.     IF ST=STOPPED THEN PLAYTRACK TR
  34.     
  35.     END