/[james]/territories/Source/Utilities/TestDate2
ViewVC logotype

Contents of /territories/Source/Utilities/TestDate2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (show annotations) (download)
Tue Feb 11 11:05:25 2003 UTC (21 years, 10 months ago) by james
File size: 238 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26