/* GetAHI.rexx */

options results; address MrMPEG

MUIA_Disabled		= 0x80423661

text ID AHID MUIA_Disabled 1
text ID AHID
address command 'GetAHIModeID 'X2D(right(result, 8))' >PIPE:MPEG_AHI'
if open('AHIMode', 'PIPE:MPEG_AHI', 'r') = 1 then do
  temp = readln('AHIMode')
  if left(temp, 2) = '0x' then do
    text ID AHID LABEL "\033b\033r"temp
  end
end
else request ID WARN GADGETS '"OK"' '"No AHI device available."'
text ID AHID MUIA_Disabled 0
return