home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / CDTools / S / ExtractCDID.awebrx < prev    next >
Text File  |  1999-10-07  |  430b  |  19 lines
  1. /* */
  2.  
  3. options results
  4. call addlib('rexxsupport.library',0,-30,0)
  5. call addlib('rexxdossupport.library',0,-30,0)
  6. options failat 21
  7. ExtractPath = 'RAM:'
  8. CDName = 'AACD03:'
  9. Archive = CDName'AACD/CDROM/CDIDs/CDIDs.lha'
  10.  
  11. parse arg ID
  12.  
  13. address command 'LhA -I -q e' Archive 'Disks/'ID ExtractPath
  14. if RC = 0 then msg = ID' is now in RAM:'
  15. else msg = 'An error occurred extracting 'ID
  16. 'request title "Amiga Active CD" "'msg'" "OK"'
  17. exit
  18.  
  19.