WEB NTP [timeoffset [, ntpserver$]]

web ntp 0,"uk.pool.ntp.org"

Console capture (with A_G comments after <<):

RUN
Pico-W_OWeather v2 for TBS.BAS Started 01-04-2000 at 11:22:26 (local - before NTP)
02-04-2000 00:00:00
01-10-2000 00:00:00
ntp address 103.126.53.123
got ntp response: 07/03/2023 11:22:26
07-03-2023  11:22:26
.
.
.
11:25:00 Flag ON                        <<Flag is set at 11:25:00 (Pico-W TIME$), calls for NTP
02-04-2000 00:00:00
01-10-2000 00:00:00
ntp address 162.159.200.123
got ntp response: 07/03/2023 11:24:59   <<NTP responds and resets Pico-W TIME$ to 11:24:59
07-03-2023  11:24:59
11:24:59 Flag OFF                       <<Pico-W's TIME$ passes 11:25:00 so calls for another NTP (about 1 second after the last one)
11:25:00 Flag ON
02-04-2000 00:00:00
01-10-2000 00:00:00
ntp address 162.159.200.123
got ntp response: 07/03/2023 11:25:00   <<NTP responds and resets Pico-W's TIME$ to 11:25:00
11:25:01 Flag OFF
.
.
.

'Pico-W_OWeather v1a for TBS.BAS
 OPTION EXPLICIT
 OPTION DEFAULT Integer
 
 dim String Version = "Pico-W_OWeather v2 for TBS.BAS"
 
 'OPTION WIFI MySSID, MyPassword   'This OPTION is held in flash until changed or re-flashed
 'OPTION WIFI "***********", "***********"
 
 Const True = 1
 Const False = 0
 
 'Flags:
 dim Integer Fl.NewPeriod = False
 
 DATE$ = "01-04-2000"
 ' Tassyjim - March 2023
 DIM Integer Tzone = 10  'Jim's code adds DST when appropriate AEST (11 for DST)
 
 Print Version; " Started ";DATE$;" at "; Time$; " (local - before NTP)"
 Get_NTP   'Get initial values from NTP
 
 SETTICK 10000, NewTime, 1
 
 'MAIN LOOP'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 do
   'Watchdog 60000   'ZZZ leave out until code is in use
   if mid$(TIME$,7,2)="00" and VAL(mid$(TIME$,4,2)) Mod 5=0 and not Fl.NewPeriod Then 'A new 5 minute
     Fl.NewPeriod = True
     Timer = 0
     print
     print time$; " Flag ON"
do: Loop while timer < 250
     Get_NTP
   End If  'A new 5 min
   
   if mid$(TIME$,7,2)<> "00" and Fl.NewPeriod Then '1 second after start of the new minute
     print time$; " Flag OFF"
     Fl.NewPeriod = False
   End IF
 Loop
 'main loop'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
sub NewTime
 print ".";   'just a heartbeat
End Sub
 
Sub Get_NTP
 local string TempDate, TempTime
 local Integer Tmp
 ' NTP Timeout loop by TassyJim
 Tmp = 0
 TempDate = Date$'Trying to preserve values in case NTP fails (old values OK for now)
 TempTime = TIME$
 DATE$ = "01-04-2000"
 DO
   ON ERROR SKIP
   
   'web ntp 11,"uk.pool.ntp.org"
   WEB NTP Tzone+DST(),"au.pool.ntp.org"
   
   if MM.ERRMSG$ <> "" then
     print MM.ERRMSG$; " skipped"
     DAte$ = TempDate
     Time$ = TempTime
     Exit Do
   End If
   IF DATE$ = "01-04-2000" THEN
     PRINT "NTP Timed out. Tmp = ";Tmp
     PRINT #1, "NTP Timed out"
   End If
   INC Tmp
 LOOP UNTIL DATE$ <>"01-04-2000" OR Tmp > 4
 'NTP automatically sets DATE$ and TIME$
 
 If Tmp > 4 then DAte$ = TempDate
 print Date$; "  "; Time$
End Sub 'Get_NTP
 
FUNCTION DST()  'Ex TassyJim
 LOCAL integer daynumnow, aprstart, octstart, dst1, dst2
 local string dateNow$
 
 dateNow$ = DATE$
 daynumnow = EPOCH(datenow$+" 00:00:00")/86400
 aprstart = EPOCH("01-04-"+MID$(dateNow$,7,4)+" 00:00:00")/86400
 dst1 = 3-(aprstart MOD 7)
 dst1 = aprstart+dst1 ' first sunday in april in current year
 
 octstart = EPOCH("01-10-"+MID$(dateNow$,7,4)+" 00:00:00")/86400
 dst2 = 3-(octstart MOD 7)
 dst2 = octstart+ dst2 ' first sunday in october in current year
 
 PRINT DATETIME$(dst1*86400) ' for debug
 PRINT DATETIME$(dst2*86400)
 IF daynumnow < dst1 OR daynumnow >= dst2 THEN ' swap for northern hemisphere
   dst = 1
 ELSE
   dst = 0
 ENDIF
END FUNCTION 'DST
 '
 '
 '