Contents of /territories/Source/Utilities/TestDate2

DIM b% 100, t% 10

INPUT"Territory number: "z%
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	DIM b% 100, t% 10
2
3	INPUT"Territory number: "z%
4	PRINT
5
6	REPEAT
7	INPUT LINE "Format string: "f$
8	?t% = 3
9	SYS"OS_Word", 14, t%
10	SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, f$ TO r$
11	PRINT"Result: " + r$ + ""
12	PRINT
13	UNTIL 0