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