home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma51.dms / ma51.adf / AmiTCP_demo_40.lha / AmiTCP-4.0 / bin / SynClock < prev    next >
Encoding:
AmigaDOS Script File  |  1994-05-27  |  719 b   |  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.