16 lines
610 B
Plaintext
16 lines
610 B
Plaintext
10 DIM D$(7): FOR I=1 TO 7: READ D$(I): NEXT I
|
|
20 DIM D(12,1): FOR I=0 TO 1: FOR J=1 TO 12: READ D(J,I): NEXT J,I
|
|
30 READ Y: IF Y=0 THEN END ELSE READ M,D
|
|
40 PRINT USING "##/##/####: ";M;D;Y;
|
|
50 C=Y\100: R=Y MOD 100
|
|
60 S=R\12: T=R MOD 12
|
|
70 A=(5*(C AND 3)+2) MOD 7
|
|
80 B=(S+T+(T\4)+A) MOD 7
|
|
90 PRINT D$((B+D-D(M,-(Y MOD 4=0 AND (Y MOD 100<>0 OR Y MOD 400=0)))+7) MOD 7+1)
|
|
100 GOTO 30
|
|
110 DATA Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
|
|
120 DATA 3,7,7,4,2,6,4,1,5,3,7,5
|
|
130 DATA 4,1,7,4,2,6,4,1,5,3,7,5
|
|
140 DATA 1800,1,6, 1875,3,29, 1915,12,7, 1970,12,23
|
|
150 DATA 2043,5,14, 2077,2,12, 2101,4,2, 0
|