Contents of /territories/Source/Utilities/Week

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
1	DIM b% 30, t% 10, s% 100
2
3	b%!00 = 0 :REM cs
4	b%!04 = 0 :REM secs
5	b%!08 = 0 :REM mins
6	b%!12 = 12 :REM hours
7
8	REPEAT
9	INPUT "Year: "b%!24
10
11	b%!20 = 12 :REM month
12	REM day
13	FOR b%!16 = 24 TO 31
14	SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
15	SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
16	PRINT time$
17	NEXT
18
19	b%!24 += 1
20	b%!20 = 1 :REM month
21	REM day
22	FOR b%!16 = 1 TO 7
23	SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
24	SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
25	PRINT time$
26	NEXT
27
28	PRINT
29	UNTIL 0