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