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

Contents of /territories/Source/Utilities/Week

Parent Directory Parent Directory | Revision Log Revision Log


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

1 DIM b% 30, t% 10, s% 100
2
3 b%!00 = 0 :REM cs
4 b%!04 = 0 :REM secs
5 b%!08 = 0 :REM mins
6 b%!12 = 12 :REM hours
7
8 REPEAT
9 INPUT "Year: "b%!24
10
11 b%!20 = 12 :REM month
12 REM day
13 FOR b%!16 = 24 TO 31
14 SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
15 SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
16 PRINT time$
17 NEXT
18
19 b%!24 += 1
20 b%!20 = 1 :REM month
21 REM day
22 FOR b%!16 = 1 TO 7
23 SYS"Territory_ConvertOrdinalsToTime", -1, t%, b%
24 SYS"Territory_ConvertDateAndTime", -1, t%, s%, 100, "%w3, %dy %m3 %ce%yr is week %wk" TO time$
25 PRINT time$
26 NEXT
27
28 PRINT
29 UNTIL 0

  ViewVC Help
Powered by ViewVC 1.1.26