Annotation 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	james	19	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