function send( nRecipient, sMessage )
    for n,sModem in ipairs( peripheral.getNames() ) do
        if isOpen( sModem ) then
            peripheral.call( sModem, "transmit", nRecipient, os.getComputerID(), sMessage )
            return true
        end
    end
    error( "No open sides" )
end