home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / sound / mrmpeg / getahi.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-12-17  |  458 b   |  19 lines
  1. /* GetAHI.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_Disabled        = 0x80423661
  6.  
  7. text ID AHID MUIA_Disabled 1
  8. text ID AHID
  9. address command 'GetAHIModeID 'X2D(right(result, 8))' >PIPE:MPEG_AHI'
  10. if open('AHIMode', 'PIPE:MPEG_AHI', 'r') = 1 then do
  11.   temp = readln('AHIMode')
  12.   if left(temp, 2) = '0x' then do
  13.     text ID AHID LABEL "\033b\033r"temp
  14.   end
  15. end
  16. else request ID WARN GADGETS '"OK"' '"No AHI device available."'
  17. text ID AHID MUIA_Disabled 0
  18. return
  19.