home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-02-29 | 3.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 14 2a 7c 73 74 | 61 72 74 20 43 61 6c 65 |....*|st|art Cale|
|00000010| 6e 64 61 72 0d 00 02 17 | 2a 7c 21 43 41 4c 45 4e |ndar....|*|!CALEN|
|00000020| 44 41 52 20 4c 69 62 72 | 61 72 79 0d 00 03 07 2a |DAR Libr|ary....*|
|00000030| 7c 21 0d 00 04 34 2a 7c | 21 56 65 72 73 69 6f 6e ||!...4*||!Version|
|00000040| 20 31 2e 32 30 20 2d 20 | 28 43 29 20 49 61 6e 20 | 1.20 - |(C) Ian |
|00000050| 50 61 6c 6d 65 72 2c 20 | 31 73 74 20 4d 61 72 63 |Palmer, |1st Marc|
|00000060| 68 20 31 39 39 33 0d 00 | 05 08 2a 7c 21 20 0d 00 |h 1993..|..*|! ..|
|00000070| 06 46 2a 7c 21 54 68 69 | 73 20 6c 69 62 72 61 72 |.F*|!Thi|s librar|
|00000080| 79 20 63 6f 6e 74 61 69 | 6e 73 20 73 65 76 65 72 |y contai|ns sever|
|00000090| 61 6c 20 72 6f 75 74 69 | 6e 65 73 20 72 65 6c 61 |al routi|nes rela|
|000000a0| 74 65 64 20 74 6f 20 74 | 68 65 20 63 61 6c 65 6e |ted to t|he calen|
|000000b0| 64 61 72 2e 0d 00 07 48 | 2a 7c 21 49 6e 20 61 6c |dar....H|*|!In al|
|000000c0| 6c 20 63 61 73 65 73 20 | 6d 6f 6e 74 68 73 20 61 |l cases |months a|
|000000d0| 72 65 20 6e 75 6d 62 65 | 72 65 64 20 66 72 6f 6d |re numbe|red from|
|000000e0| 20 31 20 74 6f 20 31 32 | 20 28 31 20 3d 20 4a 61 | 1 to 12| (1 = Ja|
|000000f0| 6e 75 61 72 79 2c 20 65 | 74 63 2e 29 0d 00 08 3a |nuary, e|tc.)...:|
|00000100| 2a 7c 21 61 6e 64 20 79 | 65 61 72 73 20 61 72 65 |*|!and y|ears are|
|00000110| 20 74 68 65 20 66 75 6c | 6c 20 41 2e 44 2e 20 79 | the ful|l A.D. y|
|00000120| 65 61 72 2c 20 28 65 67 | 2e 20 31 39 39 33 2c 20 |ear, (eg|. 1993, |
|00000130| 65 74 63 2e 29 2e 0d 00 | 09 04 0d 00 0a 13 2a 7c |etc.)...|......*||
|00000140| 73 74 6f 70 20 43 61 6c | 65 6e 64 61 72 0d 00 0b |stop Cal|endar...|
|00000150| 19 2a 7c 73 74 61 72 74 | 20 46 4e 64 61 79 5f 6f |.*|start| FNday_o|
|00000160| 66 5f 77 65 65 6b 0d 00 | 0c 2a 2a 7c 21 46 4e 64 |f_week..|.**|!FNd|
|00000170| 61 79 5f 6f 66 5f 77 65 | 65 6b 28 20 64 61 79 20 |ay_of_we|ek( day |
|00000180| 2c 20 6d 6f 6e 74 68 20 | 2c 20 79 65 61 72 20 29 |, month |, year )|
|00000190| 0d 00 0d 07 2a 7c 21 0d | 00 0e 4c 2a 7c 21 52 65 |....*|!.|..L*|!Re|
|000001a0| 74 75 72 6e 73 20 74 68 | 65 20 64 61 79 20 6f 66 |turns th|e day of|
|000001b0| 20 74 68 65 20 77 65 65 | 6b 20 66 6f 72 20 61 20 | the wee|k for a |
|000001c0| 67 69 76 65 6e 20 64 61 | 74 65 20 3a 20 31 20 3d |given da|te : 1 =|
|000001d0| 20 53 75 6e 2c 20 32 20 | 3d 20 4d 6f 6e 2c 20 65 | Sun, 2 |= Mon, e|
|000001e0| 74 63 2e 0d 00 0f 1b dd | a4 64 61 79 5f 6f 66 5f |tc......|.day_of_|
|000001f0| 77 65 65 6b 28 44 25 2c | 4d 25 2c 59 25 29 0d 00 |week(D%,|M%,Y%)..|
|00000200| 10 35 ea 20 51 25 2c 4e | 25 2c 58 25 3a 4e 25 3d |.5. Q%,N|%,X%:N%=|
|00000210| 4d 25 3a 58 25 3d 59 25 | 3a e7 20 4d 25 3c 3d 32 |M%:X%=Y%|:. M%<=2|
|00000220| 20 8c 20 4e 25 3d 4d 25 | 2b 31 32 3a 58 25 3d 59 | . N%=M%|+12:X%=Y|
|00000230| 25 2d 31 0d 00 11 3c 51 | 25 3d 28 44 25 2b 32 2e |%-1...<Q|%=(D%+2.|
|00000240| 36 2a 28 4e 25 2b 31 29 | 2b 58 25 2b 28 58 25 20 |6*(N%+1)|+X%+(X% |
|00000250| 81 20 34 29 2d 28 58 25 | 20 81 20 31 30 30 29 2b |. 4)-(X%| . 100)+|
|00000260| 28 58 25 20 81 20 34 30 | 30 29 29 20 83 20 37 0d |(X% . 40|0)) . 7.|
|00000270| 00 12 3c e7 20 59 25 3c | 31 37 35 32 20 84 20 28 |..<. Y%<|1752 . (|
|00000280| 59 25 3d 31 37 35 32 20 | 80 20 28 4d 25 3c 39 20 |Y%=1752 |. (M%<9 |
|00000290| 84 20 28 4d 25 3d 39 20 | 80 20 44 25 3c 33 29 29 |. (M%=9 |. D%<3))|
|000002a0| 29 20 8c 20 51 25 3d 51 | 25 2d 33 0d 00 13 14 e7 |) . Q%=Q|%-3.....|
|000002b0| 20 51 25 3c 31 20 8c 20 | 51 25 3d 51 25 2b 37 0d | Q%<1 . |Q%=Q%+7.|
|000002c0| 00 14 25 e7 20 ac 28 a4 | 64 61 74 65 5f 76 61 6c |..%. .(.|date_val|
|000002d0| 69 64 28 44 25 2c 4d 25 | 2c 59 25 29 29 20 8c 20 |id(D%,M%|,Y%)) . |
|000002e0| 51 25 3d 30 0d 00 15 07 | 3d 51 25 0d 00 16 04 0d |Q%=0....|=Q%.....|
|000002f0| 00 17 18 2a 7c 73 74 6f | 70 20 46 4e 64 61 79 5f |...*|sto|p FNday_|
|00000300| 6f 66 5f 77 65 65 6b 0d | 00 18 1d 2a 7c 73 74 61 |of_week.|...*|sta|
|00000310| 72 74 20 46 4e 77 65 65 | 6b 5f 64 61 79 5f 73 74 |rt FNwee|k_day_st|
|00000320| 72 69 6e 67 0d 00 19 27 | 2a 7c 21 46 4e 77 65 65 |ring...'|*|!FNwee|
|00000330| 6b 5f 64 61 79 5f 73 74 | 72 69 6e 67 28 20 64 61 |k_day_st|ring( da|
|00000340| 79 5f 6f 66 5f 77 65 65 | 6b 20 29 0d 00 1a 07 2a |y_of_wee|k )....*|
|00000350| 7c 21 0d 00 1b 47 2a 7c | 21 52 65 74 75 72 6e 73 ||!...G*||!Returns|
|00000360| 20 61 20 74 68 72 65 65 | 20 6c 65 74 74 65 72 20 | a three| letter |
|00000370| 76 65 72 73 69 6f 6e 20 | 6f 66 20 61 20 64 61 79 |version |of a day|
|00000380| 20 6f 66 20 74 68 65 20 | 77 65 65 6b 20 28 31 20 | of the |week (1 |
|00000390| 2d 3e 20 22 53 75 6e 22 | 2c 0d 00 1c 18 2a 7c 21 |-> "Sun"|,....*|!|
|000003a0| 32 20 2d 3e 20 22 4d 6f | 6e 22 2c 20 65 74 63 2e |2 -> "Mo|n", etc.|
|000003b0| 29 0d 00 1d 19 dd a4 77 | 65 65 6b 5f 64 61 79 5f |)......w|eek_day_|
|000003c0| 73 74 72 69 6e 67 28 4e | 25 29 0d 00 1e 1a e7 20 |string(N|%)..... |
|000003d0| 4e 25 3c 31 20 84 20 4e | 25 3e 37 20 8c 20 3d 22 |N%<1 . N|%>7 . ="|
|000003e0| 2a 2a 2a 22 0d 00 1f 2b | 3d c1 22 53 75 6e 4d 6f |***"...+|=."SunMo|
|000003f0| 6e 54 75 65 57 65 64 54 | 68 75 46 72 69 53 61 74 |nTueWedT|huFriSat|
|00000400| 22 2c 28 4e 25 2d 31 29 | 2a 33 2b 31 2c 33 29 0d |",(N%-1)|*3+1,3).|
|00000410| 00 20 04 0d 00 21 1c 2a | 7c 73 74 6f 70 20 46 4e |. ...!.*||stop FN|
|00000420| 77 65 65 6b 5f 64 61 79 | 5f 73 74 72 69 6e 67 0d |week_day|_string.|
|00000430| 00 22 1a 2a 7c 73 74 61 | 72 74 20 46 4e 6d 6f 6e |.".*|sta|rt FNmon|
|00000440| 74 68 5f 73 74 72 69 6e | 67 0d 00 23 25 2a 7c 21 |th_strin|g..#%*|!|
|00000450| 46 4e 6d 6f 6e 74 68 5f | 73 74 72 69 6e 67 28 20 |FNmonth_|string( |
|00000460| 6d 6f 6e 74 68 5f 6e 75 | 6d 62 65 72 20 29 0d 00 |month_nu|mber )..|
|00000470| 24 07 2a 7c 21 0d 00 25 | 4f 2a 7c 21 52 65 74 75 |$.*|!..%|O*|!Retu|
|00000480| 72 6e 73 20 61 20 74 68 | 72 65 65 20 6c 65 74 74 |rns a th|ree lett|
|00000490| 65 72 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 61 20 |er versi|on of a |
|000004a0| 6d 6f 6e 74 68 20 28 31 | 20 2d 3e 20 22 4a 61 6e |month (1| -> "Jan|
|000004b0| 22 2c 20 32 20 2d 3e 20 | 22 46 65 62 22 2c 20 65 |", 2 -> |"Feb", e|
|000004c0| 74 63 2e 29 0d 00 26 16 | dd a4 6d 6f 6e 74 68 5f |tc.)..&.|..month_|
|000004d0| 73 74 72 69 6e 67 28 4e | 25 29 0d 00 27 1b e7 20 |string(N|%)..'.. |
|000004e0| 4e 25 3c 31 20 84 20 4e | 25 3e 31 32 20 8c 20 3d |N%<1 . N|%>12 . =|
|000004f0| 22 2a 2a 2a 22 0d 00 28 | 3a 3d c1 22 4a 61 6e 46 |"***"..(|:=."JanF|
|00000500| 65 62 4d 61 72 41 70 72 | 4d 61 79 4a 75 6e 4a 75 |ebMarApr|MayJunJu|
|00000510| 6c 41 75 67 53 65 70 4f | 63 74 4e 6f 76 44 65 63 |lAugSepO|ctNovDec|
|00000520| 22 2c 28 4e 25 2d 31 29 | 2a 33 2b 31 2c 33 29 0d |",(N%-1)|*3+1,3).|
|00000530| 00 29 04 0d 00 2a 19 2a | 7c 73 74 6f 70 20 46 4e |.)...*.*||stop FN|
|00000540| 6d 6f 6e 74 68 5f 73 74 | 72 69 6e 67 0d 00 2b 19 |month_st|ring..+.|
|00000550| 2a 7c 73 74 61 72 74 20 | 46 4e 64 61 74 65 5f 73 |*|start |FNdate_s|
|00000560| 74 72 69 6e 67 0d 00 2c | 2a 2a 7c 21 46 4e 64 61 |tring..,|**|!FNda|
|00000570| 74 65 5f 73 74 72 69 6e | 67 28 20 64 61 79 20 2c |te_strin|g( day ,|
|00000580| 20 6d 6f 6e 74 68 20 2c | 20 79 65 61 72 20 29 0d | month ,| year ).|
|00000590| 00 2d 07 2a 7c 21 0d 00 | 2e 46 2a 7c 21 47 69 76 |.-.*|!..|.F*|!Giv|
|000005a0| 65 6e 20 61 20 64 61 74 | 65 2c 20 72 65 74 75 72 |en a dat|e, retur|
|000005b0| 6e 73 20 61 20 73 74 72 | 69 6e 67 20 76 65 72 73 |ns a str|ing vers|
|000005c0| 69 6f 6e 20 65 67 2e 20 | 46 4e 66 75 6c 6c 28 31 |ion eg. |FNfull(1|
|000005d0| 38 2c 31 30 2c 31 39 39 | 31 29 20 3a 0d 00 2f 18 |8,10,199|1) :../.|
|000005e0| 2a 7c 21 46 72 69 20 31 | 38 74 68 20 4f 63 74 20 |*|!Fri 1|8th Oct |
|000005f0| 31 39 39 31 0d 00 30 1b | dd a4 64 61 74 65 5f 73 |1991..0.|..date_s|
|00000600| 74 72 69 6e 67 28 44 25 | 2c 4d 25 2c 59 25 29 0d |tring(D%|,M%,Y%).|
|00000610| 00 31 28 ea 20 51 25 2c | 52 24 2c 4e 25 3a 51 25 |.1(. Q%,|R$,N%:Q%|
|00000620| 3d a4 64 61 79 5f 6f 66 | 5f 77 65 65 6b 28 44 25 |=.day_of|_week(D%|
|00000630| 2c 4d 25 2c 59 25 29 0d | 00 32 2f 52 24 3d a4 77 |,M%,Y%).|.2/R$=.w|
|00000640| 65 65 6b 5f 64 61 79 5f | 73 74 72 69 6e 67 28 51 |eek_day_|string(Q|
|00000650| 25 29 2b 22 20 22 3a e7 | 20 44 25 3c 31 30 20 52 |%)+" ":.| D%<10 R|
|00000660| 24 2b 3d 22 20 22 0d 00 | 33 72 52 24 2b 3d c3 28 |$+=" "..|3rR$+=.(|
|00000670| 44 25 29 3a 4e 25 3d 44 | 25 20 83 20 31 30 3a e7 |D%):N%=D|% . 10:.|
|00000680| 20 4e 25 3d 31 20 80 20 | 44 25 3c 3e 31 31 20 52 | N%=1 . |D%<>11 R|
|00000690| 24 2b 3d 22 73 74 22 3a | 8b 20 e7 20 4e 25 3d 32 |$+="st":|. . N%=2|
|000006a0| 20 80 20 44 25 3c 3e 31 | 32 20 52 24 2b 3d 22 6e | . D%<>1|2 R$+="n|
|000006b0| 64 22 3a 8b 20 e7 20 4e | 25 3d 33 20 80 20 44 25 |d":. . N|%=3 . D%|
|000006c0| 3c 3e 31 33 20 52 24 2b | 3d 22 72 64 22 3a 8b 20 |<>13 R$+|="rd":. |
|000006d0| 52 24 2b 3d 22 74 68 22 | 0d 00 34 27 52 24 2b 3d |R$+="th"|..4'R$+=|
|000006e0| 22 20 22 2b a4 6d 6f 6e | 74 68 5f 73 74 72 69 6e |" "+.mon|th_strin|
|000006f0| 67 28 4d 25 29 2b 22 20 | 22 2b c3 28 59 25 29 0d |g(M%)+" |"+.(Y%).|
|00000700| 00 35 07 3d 52 24 0d 00 | 36 04 0d 00 37 18 2a 7c |.5.=R$..|6...7.*||
|00000710| 73 74 6f 70 20 46 4e 64 | 61 74 65 5f 73 74 72 69 |stop FNd|ate_stri|
|00000720| 6e 67 0d 00 38 18 2a 7c | 73 74 61 72 74 20 46 4e |ng..8.*||start FN|
|00000730| 64 61 74 65 5f 76 61 6c | 69 64 0d 00 39 29 2a 7c |date_val|id..9)*||
|00000740| 21 46 4e 64 61 74 65 5f | 76 61 6c 69 64 28 20 64 |!FNdate_|valid( d|
|00000750| 61 79 20 2c 20 6d 6f 6e | 74 68 20 2c 20 79 65 61 |ay , mon|th , yea|
|00000760| 72 20 29 0d 00 3a 07 2a | 7c 21 0d 00 3b 3f 2a 7c |r )..:.*||!..;?*||
|00000770| 21 47 69 76 65 6e 20 61 | 20 64 61 74 65 20 72 65 |!Given a| date re|
|00000780| 74 75 72 6e 73 20 61 20 | 62 6f 6f 6c 65 61 6e 20 |turns a |boolean |
|00000790| 76 61 6c 75 65 20 54 52 | 55 45 20 64 61 74 65 20 |value TR|UE date |
|000007a0| 69 73 20 76 61 6c 69 64 | 2c 0d 00 3c 1f 2a 7c 21 |is valid|,..<.*|!|
|000007b0| 46 41 4c 53 45 20 64 61 | 74 65 20 69 73 20 6e 6f |FALSE da|te is no|
|000007c0| 74 20 76 61 6c 69 64 2e | 0d 00 3d 1a dd a4 64 61 |t valid.|..=...da|
|000007d0| 74 65 5f 76 61 6c 69 64 | 28 44 25 2c 4d 25 2c 59 |te_valid|(D%,M%,Y|
|000007e0| 25 29 0d 00 3e 2f e7 20 | 44 25 3e 33 30 20 80 20 |%)..>/. |D%>30 . |
|000007f0| 28 4d 25 3d 34 20 84 20 | 4d 25 3d 36 20 84 20 4d |(M%=4 . |M%=6 . M|
|00000800| 25 3d 39 20 84 20 4d 25 | 3d 31 31 29 20 8c 20 3d |%=9 . M%|=11) . =|
|00000810| a3 0d 00 3f 18 e7 20 44 | 25 3e 33 31 20 84 20 4d |...?.. D|%>31 . M|
|00000820| 25 3e 31 32 20 8c 20 3d | a3 0d 00 40 17 e7 20 4d |%>12 . =|...@.. M|
|00000830| 25 3d 32 20 80 20 44 25 | 3e 32 39 20 8c 20 3d a3 |%=2 . D%|>29 . =.|
|00000840| 0d 00 41 25 e7 20 4d 25 | 3d 32 20 80 20 44 25 3d |..A%. M%|=2 . D%=|
|00000850| 32 39 20 80 20 28 59 25 | 20 83 20 34 29 3c 3e 30 |29 . (Y%| . 4)<>0|
|00000860| 20 8c 20 3d a3 0d 00 42 | 35 e7 20 4d 25 3d 32 20 | . =...B|5. M%=2 |
|00000870| 80 20 44 25 3d 32 39 20 | 80 20 28 59 25 20 83 20 |. D%=29 |. (Y% . |
|00000880| 31 30 30 29 3d 30 20 80 | 20 28 59 25 20 83 20 34 |100)=0 .| (Y% . 4|
|00000890| 30 30 29 3e 30 20 8c 20 | 3d a3 0d 00 43 28 e7 20 |00)>0 . |=...C(. |
|000008a0| 59 25 3d 31 37 35 32 20 | 80 20 4d 25 3d 39 20 80 |Y%=1752 |. M%=9 .|
|000008b0| 20 44 25 3e 32 20 80 20 | 44 25 3c 31 34 20 8c 20 | D%>2 . |D%<14 . |
|000008c0| 3d a3 0d 00 44 06 3d b9 | 0d 00 45 04 0d 00 46 17 |=...D.=.|..E...F.|
|000008d0| 2a 7c 73 74 6f 70 20 46 | 4e 64 61 74 65 5f 76 61 |*|stop F|Ndate_va|
|000008e0| 6c 69 64 0d 00 47 1a 2a | 7c 73 74 61 72 74 20 46 |lid..G.*||start F|
|000008f0| 4e 64 61 79 73 5f 69 6e | 5f 79 65 61 72 0d 00 48 |Ndays_in|_year..H|
|00000900| 1d 2a 7c 21 46 4e 64 61 | 79 73 5f 69 6e 5f 79 65 |.*|!FNda|ys_in_ye|
|00000910| 61 72 28 20 79 65 61 72 | 20 29 0d 00 49 07 2a 7c |ar( year| )..I.*||
|00000920| 21 0d 00 4a 3e 2a 7c 21 | 47 69 76 65 6e 20 61 20 |!..J>*|!|Given a |
|00000930| 79 65 61 72 2c 20 72 65 | 74 75 72 6e 73 20 6e 75 |year, re|turns nu|
|00000940| 6d 62 65 72 20 6f 66 20 | 64 61 79 73 20 69 6e 20 |mber of |days in |
|00000950| 74 68 65 20 67 69 76 65 | 6e 20 79 65 61 72 2e 0d |the give|n year..|
|00000960| 00 4b 16 dd a4 64 61 79 | 73 5f 69 6e 5f 79 65 61 |.K...day|s_in_yea|
|00000970| 72 28 59 25 29 0d 00 4c | 14 e7 20 59 25 3d 31 37 |r(Y%)..L|.. Y%=17|
|00000980| 35 32 20 8c 20 3d 33 35 | 35 0d 00 4d 17 3d 33 36 |52 . =35|5..M.=36|
|00000990| 35 2d a4 6c 65 61 70 5f | 79 65 61 72 28 59 25 29 |5-.leap_|year(Y%)|
|000009a0| 0d 00 4e 04 0d 00 4f 19 | 2a 7c 73 74 6f 70 20 46 |..N...O.|*|stop F|
|000009b0| 4e 64 61 79 73 5f 69 6e | 5f 79 65 61 72 0d 00 50 |Ndays_in|_year..P|
|000009c0| 17 2a 7c 73 74 61 72 74 | 20 46 4e 6c 65 61 70 5f |.*|start| FNleap_|
|000009d0| 79 65 61 72 0d 00 51 1a | 2a 7c 21 46 4e 6c 65 61 |year..Q.|*|!FNlea|
|000009e0| 70 5f 79 65 61 72 28 20 | 79 65 61 72 20 29 0d 00 |p_year( |year )..|
|000009f0| 52 07 2a 7c 21 0d 00 53 | 37 2a 7c 21 54 52 55 45 |R.*|!..S|7*|!TRUE|
|00000a00| 20 69 66 20 67 69 76 65 | 6e 20 79 65 61 72 20 69 | if give|n year i|
|00000a10| 73 20 61 20 6c 65 61 70 | 20 79 65 61 72 2c 20 46 |s a leap| year, F|
|00000a20| 41 4c 53 45 20 69 66 20 | 6e 6f 74 2e 0d 00 54 13 |ALSE if |not...T.|
|00000a30| dd a4 6c 65 61 70 5f 79 | 65 61 72 28 59 25 29 0d |..leap_y|ear(Y%).|
|00000a40| 00 55 31 3d 28 28 59 25 | 20 83 20 34 29 3d 30 20 |.U1=((Y%| . 4)=0 |
|00000a50| 80 20 28 28 59 25 20 83 | 20 31 30 30 29 3e 30 20 |. ((Y% .| 100)>0 |
|00000a60| 84 20 28 59 25 20 83 20 | 34 30 30 29 3d 30 29 29 |. (Y% . |400)=0))|
|00000a70| 0d 00 56 04 0d 00 57 16 | 2a 7c 73 74 6f 70 20 46 |..V...W.|*|stop F|
|00000a80| 4e 6c 65 61 70 5f 79 65 | 61 72 0d 00 58 19 2a 7c |Nleap_ye|ar..X.*||
|00000a90| 73 74 61 72 74 20 46 4e | 64 61 79 5f 6f 66 5f 79 |start FN|day_of_y|
|00000aa0| 65 61 72 0d 00 59 2a 2a | 7c 21 46 4e 64 61 79 5f |ear..Y**||!FNday_|
|00000ab0| 6f 66 5f 79 65 61 72 28 | 20 64 61 79 20 2c 20 6d |of_year(| day , m|
|00000ac0| 6f 6e 74 68 20 2c 20 79 | 65 61 72 20 29 0d 00 5a |onth , y|ear )..Z|
|00000ad0| 07 2a 7c 21 0d 00 5b 43 | 2a 7c 21 47 69 76 65 6e |.*|!..[C|*|!Given|
|00000ae0| 20 61 20 64 61 74 65 2c | 20 72 65 74 75 72 6e 73 | a date,| returns|
|00000af0| 20 74 68 65 20 77 68 61 | 74 20 64 61 79 20 6f 66 | the wha|t day of|
|00000b00| 20 74 68 61 74 20 79 65 | 61 72 20 74 68 61 74 20 | that ye|ar that |
|00000b10| 64 61 74 65 20 69 73 0d | 00 5c 15 2a 7c 21 28 69 |date is.|.\.*|!(i|
|00000b20| 65 2e 20 31 20 74 6f 20 | 33 36 36 29 0d 00 5d 1b |e. 1 to |366)..].|
|00000b30| dd a4 64 61 79 5f 6f 66 | 5f 79 65 61 72 28 44 25 |..day_of|_year(D%|
|00000b40| 2c 4d 25 2c 59 25 29 0d | 00 5e b8 3d 44 25 2d 33 |,M%,Y%).|.^.=D%-3|
|00000b50| 31 2a 28 4d 25 3e 31 29 | 2d 32 38 2a 28 4d 25 3e |1*(M%>1)|-28*(M%>|
|00000b60| 32 29 2d 33 31 2a 28 4d | 25 3e 33 29 2d 33 30 2a |2)-31*(M|%>3)-30*|
|00000b70| 28 4d 25 3e 34 29 2d 33 | 31 2a 28 4d 25 3e 35 29 |(M%>4)-3|1*(M%>5)|
|00000b80| 2d 33 30 2a 28 4d 25 3e | 36 29 2d 33 31 2a 28 4d |-30*(M%>|6)-31*(M|
|00000b90| 25 3e 37 29 2d 33 31 2a | 28 4d 25 3e 38 29 2d 33 |%>7)-31*|(M%>8)-3|
|00000ba0| 30 2a 28 4d 25 3e 39 29 | 2d 33 31 2a 28 4d 25 3e |0*(M%>9)|-31*(M%>|
|00000bb0| 31 30 29 2d 33 30 2a 28 | 4d 25 3e 31 31 29 2d 28 |10)-30*(|M%>11)-(|
|00000bc0| 28 4d 25 3e 32 29 20 80 | 20 a4 6c 65 61 70 5f 79 |(M%>2) .| .leap_y|
|00000bd0| 65 61 72 28 59 25 29 29 | 2b 31 31 2a 28 59 25 3d |ear(Y%))|+11*(Y%=|
|00000be0| 31 37 35 32 20 80 20 28 | 28 4d 25 3d 39 20 80 20 |1752 . (|(M%=9 . |
|00000bf0| 44 25 3e 31 33 29 20 84 | 20 4d 25 3e 39 29 29 0d |D%>13) .| M%>9)).|
|00000c00| 00 5f 04 0d 00 60 18 2a | 7c 73 74 6f 70 20 46 4e |._...`.*||stop FN|
|00000c10| 64 61 79 5f 6f 66 5f 79 | 65 61 72 0d 00 61 1a 2a |day_of_y|ear..a.*|
|00000c20| 7c 73 74 61 72 74 20 46 | 4e 64 61 79 73 5f 62 65 ||start F|Ndays_be|
|00000c30| 74 77 65 65 6e 0d 00 62 | 46 2a 7c 21 46 4e 64 61 |tween..b|F*|!FNda|
|00000c40| 79 73 5f 62 65 74 77 65 | 65 6e 28 20 64 61 79 31 |ys_betwe|en( day1|
|00000c50| 20 2c 20 6d 6f 6e 74 68 | 31 20 2c 20 79 65 61 72 | , month|1 , year|
|00000c60| 31 20 2c 20 64 61 79 32 | 20 2c 20 6d 6f 6e 74 68 |1 , day2| , month|
|00000c70| 32 20 2c 20 79 65 61 72 | 32 20 29 0d 00 63 48 2a |2 , year|2 )..cH*|
|00000c80| 7c 21 47 69 76 65 6e 20 | 74 77 6f 20 64 61 74 65 ||!Given |two date|
|00000c90| 73 2c 20 74 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |s, this |function|
|00000ca0| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 6e 75 6d | returns| the num|
|00000cb0| 62 65 72 20 6f 66 20 64 | 61 79 73 20 62 65 74 77 |ber of d|ays betw|
|00000cc0| 65 65 6e 0d 00 64 48 2a | 7c 21 74 68 65 6d 2e 20 |een..dH*||!them. |
|00000cd0| 49 66 20 74 68 65 20 66 | 69 72 73 74 20 64 61 74 |If the f|irst dat|
|00000ce0| 65 20 69 73 20 61 66 74 | 65 72 20 74 68 65 20 73 |e is aft|er the s|
|00000cf0| 65 63 6f 6e 64 2c 20 74 | 68 65 6e 20 74 68 65 20 |econd, t|hen the |
|00000d00| 72 65 73 75 6c 74 20 77 | 69 6c 6c 0d 00 65 13 2a |result w|ill..e.*|
|00000d10| 7c 21 62 65 20 6e 65 67 | 61 74 69 76 65 2e 0d 00 ||!be neg|ative...|
|00000d20| 66 25 dd a4 64 61 79 73 | 5f 62 65 74 77 65 65 6e |f%..days|_between|
|00000d30| 28 44 25 2c 4d 25 2c 59 | 25 2c 64 25 2c 6d 25 2c |(D%,M%,Y|%,d%,m%,|
|00000d40| 79 25 29 0d 00 67 1b ea | 20 41 25 2c 42 25 2c 54 |y%)..g..| A%,B%,T|
|00000d50| 25 2c 4e 25 3a 54 25 3d | 30 3a 4e 25 3d 31 0d 00 |%,N%:T%=|0:N%=1..|
|00000d60| 68 5a e7 20 79 25 3c 59 | 25 20 84 20 28 59 25 3d |hZ. y%<Y|% . (Y%=|
|00000d70| 79 25 20 80 20 6d 25 3c | 4d 25 29 20 84 20 28 59 |y% . m%<|M%) . (Y|
|00000d80| 25 3d 79 25 20 80 20 6d | 25 3d 4d 25 20 80 20 64 |%=y% . m|%=M% . d|
|00000d90| 25 3c 44 25 29 20 8c 20 | 4e 25 3d 2d 31 3a c8 94 |%<D%) . |N%=-1:..|
|00000da0| 20 44 25 2c 64 25 3a c8 | 94 20 4d 25 2c 6d 25 3a | D%,d%:.|. M%,m%:|
|00000db0| c8 94 20 59 25 2c 79 25 | 0d 00 69 38 e7 20 59 25 |.. Y%,y%|..i8. Y%|
|00000dc0| 3c 79 25 20 8c 20 e3 20 | 41 25 3d 59 25 20 b8 20 |<y% . . |A%=Y% . |
|00000dd0| 28 79 25 2d 31 29 3a 54 | 25 3d 54 25 2b a4 64 61 |(y%-1):T|%=T%+.da|
|00000de0| 79 73 5f 69 6e 5f 79 65 | 61 72 28 41 25 29 3a ed |ys_in_ye|ar(A%):.|
|00000df0| 0d 00 6a 3a 3d 4e 25 2a | 28 54 25 2b a4 64 61 79 |..j:=N%*|(T%+.day|
|00000e00| 5f 6f 66 5f 79 65 61 72 | 28 64 25 2c 6d 25 2c 79 |_of_year|(d%,m%,y|
|00000e10| 25 29 2d a4 64 61 79 5f | 6f 66 5f 79 65 61 72 28 |%)-.day_|of_year(|
|00000e20| 44 25 2c 4d 25 2c 59 25 | 29 29 0d 00 6b 04 0d 00 |D%,M%,Y%|))..k...|
|00000e30| 6c 19 2a 7c 73 74 6f 70 | 20 46 4e 64 61 79 73 5f |l.*|stop| FNdays_|
|00000e40| 62 65 74 77 65 65 6e 0d | 00 6d 1b 2a 7c 73 74 61 |between.|.m.*|sta|
|00000e50| 72 74 20 50 52 4f 43 74 | 6f 64 61 79 73 5f 64 61 |rt PROCt|odays_da|
|00000e60| 74 65 0d 00 6e 2d 2a 7c | 21 50 52 4f 43 74 6f 64 |te..n-*||!PROCtod|
|00000e70| 61 79 73 5f 64 61 74 65 | 28 20 64 61 74 65 20 2c |ays_date|( date ,|
|00000e80| 20 6d 6f 6e 74 68 20 2c | 20 79 65 61 72 20 29 0d | month ,| year ).|
|00000e90| 00 6f 07 2a 7c 21 0d 00 | 70 51 2a 7c 21 46 69 6c |.o.*|!..|pQ*|!Fil|
|00000ea0| 6c 73 20 74 68 65 20 74 | 68 72 65 65 20 76 61 72 |ls the t|hree var|
|00000eb0| 69 61 62 6c 65 73 20 70 | 61 73 73 65 64 20 74 6f |iables p|assed to|
|00000ec0| 20 69 74 20 77 69 74 68 | 20 74 6f 64 61 79 27 73 | it with| today's|
|00000ed0| 20 64 61 74 65 2c 20 74 | 61 6b 65 6e 20 66 72 6f | date, t|aken fro|
|00000ee0| 6d 20 54 49 4d 45 24 0d | 00 71 21 dd f2 74 6f 64 |m TIME$.|.q!..tod|
|00000ef0| 61 79 73 5f 64 61 74 65 | 28 f8 20 44 25 2c f8 20 |ays_date|(. D%,. |
|00000f00| 4d 25 2c f8 20 59 25 29 | 0d 00 72 1e 44 25 3d bb |M%,. Y%)|..r.D%=.|
|00000f10| 28 c1 91 24 2c 35 29 29 | 3a 59 25 3d bb 28 c1 91 |(..$,5))|:Y%=.(..|
|00000f20| 24 2c 31 32 29 29 0d 00 | 73 40 4d 25 3d 28 a7 22 |$,12))..|s@M%=(."|
|00000f30| 4a 61 6e 46 65 62 4d 61 | 72 41 70 72 4d 61 79 4a |JanFebMa|rAprMayJ|
|00000f40| 75 6e 4a 75 6c 41 75 67 | 53 65 70 4f 63 74 4e 6f |unJulAug|SepOctNo|
|00000f50| 76 44 65 63 22 2c c1 91 | 24 2c 38 2c 33 29 29 2b |vDec",..|$,8,3))+|
|00000f60| 32 29 20 81 20 33 0d 00 | 74 05 e1 0d 00 75 04 0d |2) . 3..|t....u..|
|00000f70| 00 76 1a 2a 7c 73 74 6f | 70 20 50 52 4f 43 74 6f |.v.*|sto|p PROCto|
|00000f80| 64 61 79 73 5f 64 61 74 | 65 0d ff |days_dat|e.. |
+--------+-------------------------+-------------------------+--------+--------+
