DIM b% 30, t% 10, s% 100

b%!00 = 0    :REM cs
b%!04 = 0    :REM secs
b%!08 = 0    :REM mins
b%!12 = 12   :REM hours

REPEAT
INPUT "Year: "b%!24

b%!20 = 12    :REM month
REM day
 FOR b%!16 = 24 TO 31
  SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
  SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
  PRINT time$
 NEXT

b%!24 += 1
b%!20 = 1    :REM month
REM day
 FOR b%!16 = 1 TO 7
  SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
  SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
  PRINT time$
 NEXT

PRINT
UNTIL 0