# $language = "VBScript"
# $interface = "1.0"

Sub SendApplicationCommand(shell_command)
    crt.Screen.Send shell_command & VbCr & VbCr
	crt.sleep 1000
End Sub

Sub main

	pon_ni = inputbox("PON NI: [0-15]" )

	
if pon_ni < 8 then
	SendApplicationCommand "/board/i2c/dev_change dev=sw2"  
	crt.sleep 100 
	SendApplicationCommand "/board/i2c/dev_write width=8 addr=0 val=0x" & hex(2 ^ (7 - pon_ni)) &" "
	crt.sleep 10
else
SendApplicationCommand "/board/i2c/dev_change dev=sw3"  
	crt.sleep 100
if pon_ni < 12 then
	
	SendApplicationCommand "/board/i2c/dev_write width=8 addr=0 val=0x" & hex(2 ^ ( pon_ni - 4)) &" "
	crt.sleep 10
else
	SendApplicationCommand "/board/i2c/dev_write width=8 addr=0 val=0x" & hex(2 ^ ( pon_ni - 12)) &" "
	crt.sleep 10


end if

end if
	SendApplicationCommand "/board/i2c/dev_change sfp2 "
	crt.sleep 10
	SendApplicationCommand "/board/i2c/dev_read width=8 addr=0x68"
	crt.sleep 10
	SendApplicationCommand "/board/i2c/dev_read width=8 addr=0x69"
	crt.sleep 10


End Sub