daytime.bac

REM *********************************************************************************************
REM *
REM * Program to read a DAYTIME server at TCP port 13
REM *
REM * Ported from my Scriptbasic demo - (c) Peter van Eerten
REM *
REM *********************************************************************************************
REM *
REM * Below you will find public time servers. Use any of these to test the
REM * program, or install your own timeserver with inetd.
REM *
REM * See also http://www.boulder.nist.gov/timefreq/service/time-servers.html
REM *
REM * time-a.nist.gov 129.6.15.28 NIST, Gaithersburg, Maryland
REM * time-b.nist.gov 129.6.15.29 NIST, Gaithersburg, Maryland
REM * time-a.timefreq.bldrdoc.gov 132.163.4.101 NIST, Boulder, Colorado
REM * time-b.timefreq.bldrdoc.gov 132.163.4.102 NIST, Boulder, Colorado
REM * time-c.timefreq.bldrdoc.gov 132.163.4.103 NIST, Boulder, Colorado
REM * utcnist.colorado.edu 128.138.140.44 University of Colorado, Boulder
REM * time.nist.gov 192.43.244.18 NCAR, Boulder, Colorado
REM * time-nw.nist.gov 131.107.1.10 Microsoft, Redmond, Washington
REM * nist1.datum.com 63.149.208.50 Datum, San Jose, California
REM * nist1-dc.glassey.com 216.200.93.8 Abovenet, Virginia
REM * nist1-ny.glassey.com 208.184.49.9 Abovenet, New York City
REM * nist1-sj.glassey.com 207.126.103.204 Abovenet, San Jose, California
REM * nist1.aol-ca.truetime.com 207.200.81.113 TrueTime, AOL facility, Sunnyvale, California
REM * nist1.aol-va.truetime.com 205.188.185.33 TrueTime, AOL facility, Virginia
REM *
REM *********************************************************************************************

REM Initialize
serveraddress$ = "time.nist.gov"
serverport = 13

PRINT NL$, "Demonstrate BaCon using networking.", NL$
PRINT NL$, "Trying to retrieve DAYTIME from " & serveraddress$ & " at port " & STR$(serverport) & ":" & NL$ & NL$

REM Make connection to the timeserver
OPEN serveraddress$ & ":" & STR$(serverport) FOR NETWORK AS daytime

REM Get result
RECEIVE result$ FROM daytime

REM Print result or error on the console
PRINT "---> retrieved time: ", result$, NL$

CLOSE NETWORK daytime