REBOL [
    Title: "Broadcast "
    Date: 1-Oct-2001
    Version: 1.0.0
    File: %facebroadcast.r
    Author: "Norman Deppenbroek"
    Purpose: "UDP broadcast example"
    Email: nodep@dds.nl
    Category: [tcp net]
]

data: "1101001011110000" ; port 54000 binary notation as text to bc

forever [

    connection: open udp://255.255.255.255:54000
    set-modes connection [ broadcast: true ]

    insert connection data
    print [ now/date "*" now/time ]
    close connection
    wait 0:15:0 ; wait 15 minutes for next broadcast
]