blob: b5cf44b6ed65cfa077f52f4367aa1410427e1853 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
! driver for testing function *julday*
INTEGER im id iy julday ;
INTEGER i n := 1 16 ;
INTEGER m01 d01 y01
m02 d02 y02
m03 d03 y03
m04 d04 y04
m05 d05 y05
m06 d06 y06
m07 d07 y07
m08 d08 y08
m09 d09 y09
m10 d10 y10
m11 d11 y11
m12 d12 y12
m13 d13 y13
m14 d14 y14
m15 d15 y15
m16 d16 y16 :=
12 31 -1
01 01 1
10 14 1582
10 15 1582
01 17 1706
04 14 1865
04 18 1906
05 07 1915
07 20 1923
05 23 1934
07 22 1934
04 03 1936
05 06 1937
07 26 1956
06 05 1976
05 23 1968 ;
STRING
s01 s02 s03 s04 s05 s06 s07 s08 s09 s10 s11 s12 s13 s14 s15 s16 :=
"End of millennium"
"One day later"
"Day before Gregorian calendar"
"Gregorian calendar adopted"
"Benjamin Franklin born"
"Abraham Lincoln shot"
"San Francisco earthquake"
"Sinking of the Lusitania"
"Pancho Villa assassinated"
"Bonnie and Clyde eliminated"
"John Dillinger shot"
"Bruno Hauptman electrocuted"
"Hindenburg disaster"
"Sinking of the Andrea Doria"
"Teton dam collapse"
"Julian Day 2440000" ;
PROCEDURE julday ;
WHILE i n <= DO
EVALUATE im id iy := m01 d01 y01 ;
julday :: <<im>> <<id>> <<iy>> >>julday<< ;
ECHO "Date=" im id iy "Julday=" julday "Remark=" s01 ;
EVALUATE
d01 d02 d03 d04 d05 d06 d07 d08 d09 d10 d11 d12 d13 d14 d15 d16 :=
d02 d03 d04 d05 d06 d07 d08 d09 d10 d11 d12 d13 d14 d15 d16 d01 ;
EVALUATE
m01 m02 m03 m04 m05 m06 m07 m08 m09 m10 m11 m12 m13 m14 m15 m16 :=
m02 m03 m04 m05 m06 m07 m08 m09 m10 m11 m12 m13 m14 m15 m16 m01 ;
EVALUATE
y01 y02 y03 y04 y05 y06 y07 y08 y09 y10 y11 y12 y13 y14 y15 y16 :=
y02 y03 y04 y05 y06 y07 y08 y09 y10 y11 y12 y13 y14 y15 y16 y01 ;
EVALUATE
s01 s02 s03 s04 s05 s06 s07 s08 s09 s10 s11 s12 s13 s14 s15 s16 :=
s02 s03 s04 s05 s06 s07 s08 s09 s10 s11 s12 s13 s14 s15 s16 s01 ;
EVALUATE i := i 1 + ;
ENDWHILE ;
QUIT " Program *xjulday* XREF " .
|
