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