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

Annotation of /territories/Source/Utilities/Week

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (hide 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 james 19 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