Thanks dave heres is the code:
ACTIVATE_RELAY:

LOW MUTE ' Activate MUTE

select case RELAY

case 1 : PORTD = %10000000
PAUSE 500
case 2 : PORTD = %01000000
PAUSE 500
case 3 : PORTD = %00100000
PAUSE 500
case 4 : PORTD = %00010000
PAUSE 500
end select

GOSUB SHOW_INPUT
HIGH MUTE
IF RELAY_FLAG = 0 THEN GOTO MAIN

RETURN

SHOW_INPUT:

select case RELAY

case 1 : LCDOUT $FE, $C0,"DVD 5.1 "
case 2 : LCDOUT $FE, $C0,"USB DAC1"
case 3 : LCDOUT $FE, $C0,"USB DAC2"
case 4 : LCDOUT $FE, $C0,"CD "
end select
RETURN
Let me give it a try I guess it should work now.