.KEY SAVE/S
.BRA {
.KET }

; $Id: Atomiclock2,v 1.0 1997/06/17 07:08:39 jmc Exp $
; VER$ 1.0 - requires RX script timeset.rx for local offset
; based upon AMITCP 
; $VER: SynClock 3.1 (27.5.1993)

; Set your amiga clock from host in network.
;  Changed {HOST} to tycho.usno.navy.mil


Assign >NIL: TCP: exists
if warn
    echo TCP: not mounted.
    quit 10
endif

echo ""
echo "                " * * *   A T O M I C L O C K  * * *
echo ""


echo "Attempting to connect to tycho.usno.navy.mil...."

rx "Address 'COMMAND'; months='JanFebMarAprMayJunJulAugSepOctNovDec' +
   If ~Open(dt, 'TCP:tycho.usno.navy.mil/daytime', 'R') Then +
      Do; Say '*** Service not present'; Exit 10; End +
   d = readln(dt) +
   tim = SubWord(d, 4, 1) +
   month=(Pos(SubWord(d, 2, 1), months) + 2) / 3 +
   Date TIME tim DATE SubWord(d, 3, 1)'-'month'-'SubStr(d, 23, 2) +
   SAY  d


; set the local time from UTC based upon offset variable in timeset.rx
rx s:timeset.rexx

If {SAVE} 
SetClock SAVE
EndIf