An RS-485 Network
loop:
gosub serial_communications
' Add other tasks here.
goto loop
serial_communications:
select case network_state
case "r"
gosub receive_serial_data
case "d"
gosub check_response_delay
case "t"
gosub transmit_serial_data
case else
end select
return