� * Day Find *
� 7:� wk$(6):@%=0
� W%=0 � 6:� wk$(W%):�
(� �
2�'"Year (from 1753) ",Y%
<� Y%>1752:�
F�'"Month (1-12) ",M%
P� M%>0 � M%<13
Z,days=�julian(1,M%+1,Y%)-�julian(1,M%,Y%)
d�
n�'"Day (1-"days")";
x� D%:� D%>0 � D%<=days
�1�'D%�1M%�1Y%" is a " wk$(�julian(D%,M%,Y%)�7)
�� �
�>� Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
�l� �julian(D%,M%,Y%)=�(30.57*M%)+�(365.25*Y%-395.25)+(Y%-1)�400-(Y%-1)�100+D%+(M%>2)+(M%>2 � � �leap(Y%))
�5� �leap(Y%)=((Y%�400)=0)�((Y%�100)<>0)�((Y%�4)=0)
�

00000000  0d 00 0a 12 f4 20 2a 20  44 61 79 20 46 69 6e 64  |..... * Day Find|
00000010  20 2a 0d 00 14 15 eb 20  37 3a de 20 77 6b 24 28  | *..... 7:. wk$(|
00000020  36 29 3a 40 25 3d 30 0d  00 1e 1a e3 20 57 25 3d  |6):@%=0..... W%=|
00000030  30 20 b8 20 36 3a f3 20  77 6b 24 28 57 25 29 3a  |0 . 6:. wk$(W%):|
00000040  ed 0d 00 28 07 f5 20 f5  0d 00 32 1c e8 27 22 59  |...(.. ...2..'"Y|
00000050  65 61 72 20 28 66 72 6f  6d 20 31 37 35 33 29 20  |ear (from 1753) |
00000060  22 2c 59 25 0d 00 3c 0f  fd 20 59 25 3e 31 37 35  |",Y%..<.. Y%>175|
00000070  32 3a f5 0d 00 46 18 e8  27 22 4d 6f 6e 74 68 20  |2:...F..'"Month |
00000080  28 31 2d 31 32 29 20 22  2c 4d 25 0d 00 50 12 fd  |(1-12) ",M%..P..|
00000090  20 4d 25 3e 30 20 80 20  4d 25 3c 31 33 0d 00 5a  | M%>0 . M%<13..Z|
000000a0  2c 64 61 79 73 3d a4 6a  75 6c 69 61 6e 28 31 2c  |,days=.julian(1,|
000000b0  4d 25 2b 31 2c 59 25 29  2d a4 6a 75 6c 69 61 6e  |M%+1,Y%)-.julian|
000000c0  28 31 2c 4d 25 2c 59 25  29 0d 00 64 05 f5 0d 00  |(1,M%,Y%)..d....|
000000d0  6e 17 f1 27 22 44 61 79  20 28 31 2d 22 64 61 79  |n..'"Day (1-"day|
000000e0  73 22 29 22 3b 0d 00 78  1a e8 20 44 25 3a fd 20  |s")";..x.. D%:. |
000000f0  44 25 3e 30 20 80 20 44  25 3c 3d 64 61 79 73 0d  |D%>0 . D%<=days.|
00000100  00 82 31 f1 27 44 25 89  31 4d 25 89 31 59 25 22  |..1.'D%.1M%.1Y%"|
00000110  20 69 73 20 61 20 22 20  77 6b 24 28 a4 6a 75 6c  | is a " wk$(.jul|
00000120  69 61 6e 28 44 25 2c 4d  25 2c 59 25 29 83 37 29  |ian(D%,M%,Y%).7)|
00000130  0d 00 8c 07 fd 20 a3 0d  00 96 3e dc 20 53 75 6e  |..... ....>. Sun|
00000140  64 61 79 2c 4d 6f 6e 64  61 79 2c 54 75 65 73 64  |day,Monday,Tuesd|
00000150  61 79 2c 57 65 64 6e 65  73 64 61 79 2c 54 68 75  |ay,Wednesday,Thu|
00000160  72 73 64 61 79 2c 46 72  69 64 61 79 2c 53 61 74  |rsday,Friday,Sat|
00000170  75 72 64 61 79 0d 00 a0  6c dd 20 a4 6a 75 6c 69  |urday...l. .juli|
00000180  61 6e 28 44 25 2c 4d 25  2c 59 25 29 3d a8 28 33  |an(D%,M%,Y%)=.(3|
00000190  30 2e 35 37 2a 4d 25 29  2b a8 28 33 36 35 2e 32  |0.57*M%)+.(365.2|
000001a0  35 2a 59 25 2d 33 39 35  2e 32 35 29 2b 28 59 25  |5*Y%-395.25)+(Y%|
000001b0  2d 31 29 81 34 30 30 2d  28 59 25 2d 31 29 81 31  |-1).400-(Y%-1).1|
000001c0  30 30 2b 44 25 2b 28 4d  25 3e 32 29 2b 28 4d 25  |00+D%+(M%>2)+(M%|
000001d0  3e 32 20 80 20 ac 20 a4  6c 65 61 70 28 59 25 29  |>2 . . .leap(Y%)|
000001e0  29 0d 00 aa 35 dd 20 a4  6c 65 61 70 28 59 25 29  |)...5. .leap(Y%)|
000001f0  3d 28 28 59 25 83 34 30  30 29 3d 30 29 84 28 28  |=((Y%.400)=0).((|
00000200  59 25 83 31 30 30 29 3c  3e 30 29 80 28 28 59 25  |Y%.100)<>0).((Y%|
00000210  83 34 29 3d 30 29 0d ff                           |.4)=0)..|
00000218