IR DevCode, KeyCode, IR_Int
Print "Press and HOLD the mute button to scan for a compatible code."
Print "Release MUTE button immediately when prompted."
Print "Remote will memorize code even if battery is removed."
Print
Print "Waiting for valid code....."
Print
Do
If DevCode=128 Then
Print
Print "Release MUTE key now!"
Print
Print "Device code is 128."
Print "Key codes:"
Print
Print "POWER: 250"
Print " UP: 50"
Print " DOWN: 210"
Print " LEFT: 42"
Print "RIGHT: 26"
Print " MUTE: 218"
Print "AV/TV: 66"
IR Close
End
EndIf
Loop

End

Sub IR_Int
Print "*";
End Sub

TEST:
IR DevCode, KeyCode, IR_Int2
Print "IR keycode tester."
Print
Print "Press any key......"
Do:Loop

HUNT:
IR DevCode, KeyCode, IR_Int2
Do:Loop

End

Sub IR_Int2
Print "DevCode: " DevCode ", KeyCode: " KeyCode
End Sub