home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / asimcd30.dms / in.adf / ARexx_Samples / AsimTunes / set_current_track.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-17  |  400 b   |  23 lines
  1. /*  This example will demonstrate the use of the set_current_track command
  2.     in AsimTunes.
  3.  
  4.     (C)1993-1995 Asimware Innovations Inc.                               */
  5.  
  6.  
  7. options results
  8.  
  9. address "AsimTunes_ARexx"
  10.  
  11. get_num_tracks
  12. if rc ~= 0 then do
  13.     say 'Failed with 'rc'.'
  14.     exit
  15. end
  16.  
  17.  
  18. cur_track = result
  19.  
  20. set_current_track cur_track
  21. say 'Current track is set to' cur_track' (the last track).'
  22. exit
  23.