home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / asimware / techsupport / files / asimcdfs_arexxsamples.lha / ARexx_Samples / DiscChanger / cdda_partial_track.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-23  |  560b  |  36 lines
  1. /*  This example will demonstrate the use of the cdda_partial_track command
  2.     in DiscChanger.
  3.  
  4.     (C)1995 Asimware Innovations Inc.                             */
  5.  
  6.  
  7. options results
  8. address "DiscChanger_ARexx"
  9.  
  10. cdda_first_track
  11. if rc ~= 0 then do
  12.     say 'Failed with 'rc'.'
  13.     exit
  14. end
  15.  
  16. track = result
  17. say 'Setting track 'track' to reference half of its track.'
  18.  
  19.  
  20. cdda_track_length track
  21. if rc ~= 0 then do
  22.     say 'Failed with 'rc'.'
  23.     exit
  24.     end
  25. framelen = result
  26.  
  27.  
  28.  
  29. cdda_partial_track track 0 framelen/2
  30. if rc ~= 0 then do
  31.     say 'Failed with 'rc'.'
  32.     exit
  33. end
  34.  
  35. exit
  36.