PackageLoader fileInPackage: 'Sockets'.

Eval [
    | msg socket datagram addr |

    addr := Sockets.SocketAddress byName: '127.0.0.1'.
    socket := Sockets.DatagramSocket local: '127.0.0.1' port: 5000.
    datagram := Sockets.Datagram new.
    datagram port: 1313.
    datagram address: addr.

    "SLTM"
    msg := #(2 0 0 1 0 0 0 0 0 0 0
             15 193 232 197 7 0 17
             128 247 248 249 250 251
             252 253 254 ) asByteArray.

    datagram data: msg.
    socket nextPut: datagram.

    "TRA"
    msg := #(2 0 0 1 0 0 0 0 0 0 0 6 192 232 197 7 0 23) asByteArray.
    datagram data: msg.
    socket nextPut: datagram.
]