: ntp-send ( fd -- ) B{ HEX: 1b 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } "209.114.111.1" 123 udp-send ; CONSTANT: TIME1970 2208988800 : >millis ( integ frac -- millis ) [ TIME1970 - ] [ 32 2^ / ] bi* + 1000 * ; TUPLE: data leap version mode stratum poll precision root-delay root-dispersion ref-id ref-timestamp orig-timestamp recv-timestamp tx-timestamp ; : ntp-recv ( fd -- ntp ) [ wait-for-read ] [ 128 udp-recv ] bi ;