home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 033 / atcp40de.zip / SYNCLOCK < prev    next >
AmigaDOS Script File  |  1994-05-27  |  719b  |  32 lines
  1. .KEY HOST/A,SAVE/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: SynClock,v 3.1 1994/05/27 07:08:39 jraja Exp $
  6. ; $VER: SynClock 3.1 (27.5.1993)
  7.  
  8. ; Set your amiga clock from host in network.
  9. ;    if someone finds a way to get DAY
  10. ;    locale (in)dependent way, (and fast)
  11. ;    please tell me   (too@cs.hut.fi)
  12.  
  13. Assign >NIL: TCP: exists
  14. if warn
  15.     echo TCP: not mounted.
  16.     quit 10
  17. endif
  18.  
  19. rx "Address 'COMMAND'; months='JanFebMarAprMayJunJulAugSepOctNovDec' +
  20.     If ~Open(dt, 'TCP:{HOST}/daytime', 'R') Then +
  21.         Do; Say '*** Service not present'; Exit 10; End +
  22.     d = readln(dt) +
  23.     tim = SubWord(d, 4, 1) +
  24.     month=(Pos(SubWord(d, 2, 1), months) + 2) / 3 +
  25.     Date TIME tim DATE SubWord(d, 3, 1)'-'month'-'SubStr(d, 23, 2)
  26.  
  27.  
  28. If {SAVE} 
  29. SetClock SAVE
  30. EndIf
  31.  
  32.