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