Annotation of /territories/Source/Utilities/TestDate

DIM b% 100, t% 10

?t% = 3
SYS"OS_Word", 14, t%

INPUT"Territory number: "z%
PRINT

SYS"Territory_ConvertStandardDateAndTime", z%, t%, b%, 100 TO r$
PRINT"Standard date and time: " + r$ + ""

SYS"Territory_ConvertStandardDate", z%, t%, b%, 100 TO r$
PRINT"Standard date: " + r$ + ""

SYS"Territory_ConvertStandardTime", z%, t%, b%, 100 TO r$
PRINT"Standard time: " + r$ + ""

SYS"Territory_ConvertTimeToOrdinals", z%, t%, b%
PRINT"Ordinals: centiseconds = "+STR$(b%!00)
PRINT"               seconds = "+STR$(b%!04)
PRINT"               minutes = "+STR$(b%!08)
PRINT"                 hours = "+STR$(b%!12)
PRINT"                   day = "+STR$(b%!16)
PRINT"                 month = "+STR$(b%!20)
PRINT"                  year = "+STR$(b%!24)
PRINT"           day of week = "+STR$(b%!28)
PRINT"           day of year = "+STR$(b%!32)

PRINT

PRINT"Converting 5-byte time to string to ordinals:"
SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, "%w3, %dy-%m3-%ce%yr.%24:%mi:%se" TO r$
PRINT"String: " + r$ + ""
SYS"Territory_ConvertTimeStringToOrdinals", z%, 3, r$, b%
PRINT"Ordinals: centiseconds = "+STR$(b%!00)
PRINT"               seconds = "+STR$(b%!04)
PRINT"               minutes = "+STR$(b%!08)
PRINT"                 hours = "+STR$(b%!12)
PRINT"                   day = "+STR$(b%!16)
PRINT"                 month = "+STR$(b%!20)
PRINT"                  year = "+STR$(b%!24)

PRINT

 REPEAT
  INPUT LINE "Format string: "f$
  ?t% = 3
  SYS"OS_Word", 14, t%
  SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, f$ TO r$
  PRINT"Result: " + r$ + ""
  PRINT
 UNTIL 0

1	james	19	DIM b% 100, t% 10
2
3			?t% = 3
4			SYS"OS_Word", 14, t%
5
6			INPUT"Territory number: "z%
7			PRINT
8
9			SYS"Territory_ConvertStandardDateAndTime", z%, t%, b%, 100 TO r$
10			PRINT"Standard date and time: " + r$ + ""
11
12			SYS"Territory_ConvertStandardDate", z%, t%, b%, 100 TO r$
13			PRINT"Standard date: " + r$ + ""
14
15			SYS"Territory_ConvertStandardTime", z%, t%, b%, 100 TO r$
16			PRINT"Standard time: " + r$ + ""
17
18			SYS"Territory_ConvertTimeToOrdinals", z%, t%, b%
19			PRINT"Ordinals: centiseconds = "+STR$(b%!00)
20			PRINT" seconds = "+STR$(b%!04)
21			PRINT" minutes = "+STR$(b%!08)
22			PRINT" hours = "+STR$(b%!12)
23			PRINT" day = "+STR$(b%!16)
24			PRINT" month = "+STR$(b%!20)
25			PRINT" year = "+STR$(b%!24)
26			PRINT" day of week = "+STR$(b%!28)
27			PRINT" day of year = "+STR$(b%!32)
28
29			PRINT
30
31			PRINT"Converting 5-byte time to string to ordinals:"
32			SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, "%w3, %dy-%m3-%ce%yr.%24:%mi:%se" TO r$
33			PRINT"String: " + r$ + ""
34			SYS"Territory_ConvertTimeStringToOrdinals", z%, 3, r$, b%
35			PRINT"Ordinals: centiseconds = "+STR$(b%!00)
36			PRINT" seconds = "+STR$(b%!04)
37			PRINT" minutes = "+STR$(b%!08)
38			PRINT" hours = "+STR$(b%!12)
39			PRINT" day = "+STR$(b%!16)
40			PRINT" month = "+STR$(b%!20)
41			PRINT" year = "+STR$(b%!24)
42
43			PRINT
44
45			REPEAT
46			INPUT LINE "Format string: "f$
47			?t% = 3
48			SYS"OS_Word", 14, t%
49			SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, f$ TO r$
50			PRINT"Result: " + r$ + ""
51			PRINT
52			UNTIL 0
53