home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / asimcd30.dms / in.adf / ARexx_Samples / AsimTunes / select_disc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-06-17  |  357 b   |  24 lines
  1. /*  This example will demonstrate the use of the select_disc 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_discs
  12. if rc ~= 0 then do
  13.     say 'Failed with 'rc'.'
  14.     exit
  15. end
  16.  
  17.  
  18. we_want = result
  19.  
  20. select_disc we_want 
  21. say "Loaded disc #" we_want "."
  22.  
  23. exit
  24.