/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / dateconv / !DateConv / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 14 f4 20 44 61 | 74 65 20 43 6f 6e 76 65 |..... Da|te Conve|
|00000010| 72 74 65 72 0d 00 14 39 | f4 20 43 6f 6e 76 65 72 |rter...9|. Conver|
|00000020| 74 73 20 44 61 79 2f 4d | 6f 6e 74 68 2f 59 65 61 |ts Day/M|onth/Yea|
|00000030| 72 20 64 61 74 65 73 20 | 74 6f 20 64 65 63 69 6d |r dates |to decim|
|00000040| 61 6c 20 79 65 61 72 20 | 64 61 74 65 73 0d 00 1e |al year |dates...|
|00000050| 40 f4 20 57 72 69 74 74 | 65 6e 20 62 79 20 44 61 |@. Writt|en by Da|
|00000060| 76 69 64 20 26 20 43 68 | 72 69 73 20 57 61 72 64 |vid & Ch|ris Ward|
|00000070| 20 77 69 74 68 20 68 65 | 6c 70 20 66 72 6f 6d 20 | with he|lp from |
|00000080| 52 6f 64 64 79 20 53 69 | 6d 70 73 6f 6e 0d 00 28 |Roddy Si|mpson..(|
|00000090| 11 f4 20 4f 6e 20 32 33 | 2f 30 31 2f 39 36 0d 00 |.. On 23|/01/96..|
|000000a0| 32 12 f4 20 56 65 72 73 | 69 6f 6e 20 30 2e 30 31 |2.. Vers|ion 0.01|
|000000b0| 0d 00 3c 21 f4 20 54 68 | 69 73 20 69 73 20 61 20 |..<!. Th|is is a |
|000000c0| 46 52 45 45 57 41 52 45 | 20 50 52 4f 47 52 41 4d |FREEWARE| PROGRAM|
|000000d0| 2e 0d 00 46 05 3a 0d 00 | 50 0d f2 57 69 6d 70 49 |...F.:..|P..WimpI|
|000000e0| 6e 69 74 0d 00 5a 0e c8 | 95 20 ac 20 51 75 69 74 |nit..Z..|. . Quit|
|000000f0| 25 0d 00 64 13 20 20 f2 | 4d 61 69 6e 57 69 6d 70 |%..d.  .|MainWimp|
|00000100| 50 6f 6c 6c 0d 00 6e 05 | ce 0d 00 78 12 f2 43 6c |Poll..n.|...x..Cl|
|00000110| 6f 73 65 44 6f 77 6e 54 | 61 73 6b 0d 00 82 05 e0 |oseDownT|ask.....|
|00000120| 0d 00 8c 05 3a 0d 00 96 | 13 dd f2 45 72 72 6f 72 |....:...|...Error|
|00000130| 28 45 72 72 6f 72 24 29 | 0d 00 a0 0b 40 25 3d 26 |(Error$)|....@%=&|
|00000140| 39 30 41 0d 00 aa 0f 21 | 42 6c 6f 63 6b 25 3d 32 |90A....!|Block%=2|
|00000150| 35 35 0d 00 b4 19 24 28 | 42 6c 6f 63 6b 25 2b 34 |55....$(|Block%+4|
|00000160| 29 3d 45 72 72 6f 72 24 | 2b bd 30 0d 00 be 2a c8 |)=Error$|+.0...*.|
|00000170| 99 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 |."Wimp_R|eportErr|
|00000180| 6f 72 22 2c 42 6c 6f 63 | 6b 25 2c 31 2c 41 70 70 |or",Bloc|k%,1,App|
|00000190| 4e 61 6d 65 24 0d 00 c8 | 12 f2 43 6c 6f 73 65 44 |Name$...|..CloseD|
|000001a0| 6f 77 6e 54 61 73 6b 0d | 00 d2 05 e0 0d 00 dc 05 |ownTask.|........|
|000001b0| e1 0d 00 e6 05 3a 0d 00 | f0 16 dd f2 4c 6f 61 64 |.....:..|....Load|
|000001c0| 54 65 6d 70 6c 61 74 65 | 46 69 6c 65 0d 00 fa 23 |Template|File...#|
|000001d0| de 20 49 6e 64 69 72 65 | 63 74 65 64 44 61 74 61 |. Indire|ctedData|
|000001e0| 25 20 33 39 30 2c 20 4e | 61 6d 65 25 20 31 31 0d |% 390, N|ame% 11.|
|000001f0| 01 04 35 c8 99 22 57 69 | 6d 70 5f 4f 70 65 6e 54 |..5.."Wi|mp_OpenT|
|00000200| 65 6d 70 6c 61 74 65 22 | 2c 2c 22 3c 44 43 6f 6e |emplate"|,,"<DCon|
|00000210| 43 61 6c 63 24 44 69 72 | 3e 2e 54 65 6d 70 6c 61 |Calc$Dir|>.Templa|
|00000220| 74 65 73 22 0d 01 0e 11 | 24 4e 61 6d 65 25 3d 22 |tes"....|$Name%="|
|00000230| 4d 61 69 6e 22 0d 01 18 | 50 c8 99 22 57 69 6d 70 |Main"...|P.."Wimp|
|00000240| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000250| 42 6c 6f 63 6b 25 2c 49 | 6e 64 69 72 65 63 74 65 |Block%,I|ndirecte|
|00000260| 64 44 61 74 61 25 2c 49 | 6e 64 69 72 65 63 74 65 |dData%,I|ndirecte|
|00000270| 64 44 61 74 61 25 2b 35 | 30 30 2c 2d 31 2c 4e 61 |dData%+5|00,-1,Na|
|00000280| 6d 65 25 2c 30 0d 01 22 | 2c c8 99 22 57 69 6d 70 |me%,0.."|,.."Wimp|
|00000290| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000002a0| 42 6c 6f 63 6b 25 20 b8 | 20 57 48 61 6e 64 6c 65 |Block% .| WHandle|
|000002b0| 25 0d 01 2c 1a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |%..,..."|Wimp_Clo|
|000002c0| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 01 36 05 e1 |seTempla|te"..6..|
|000002d0| 0d 01 40 05 3a 0d 01 4a | 0e dd f2 57 69 6d 70 49 |..@.:..J|...WimpI|
|000002e0| 6e 69 74 0d 01 54 11 de | 20 42 6c 6f 63 6b 25 20 |nit..T..| Block% |
|000002f0| 32 30 30 30 0d 01 5e 0b | 51 75 69 74 25 3d a3 0d |2000..^.|Quit%=..|
|00000300| 01 68 1d 41 70 70 4e 61 | 6d 65 24 3d 22 44 61 74 |.h.AppNa|me$="Dat|
|00000310| 65 20 43 6f 6e 76 65 72 | 74 65 72 22 0d 01 72 2e |e Conver|ter"..r.|
|00000320| c8 99 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |.."Wimp_|Initiali|
|00000330| 73 65 22 2c 32 30 30 2c | 26 34 42 35 33 34 31 35 |se",200,|&4B53415|
|00000340| 34 2c 41 70 70 4e 61 6d | 65 24 0d 01 7c 32 ee 20 |4,AppNam|e$..|2. |
|00000350| 85 20 f2 45 72 72 6f 72 | 28 f6 24 2b 22 20 61 74 |. .Error|(.$+" at|
|00000360| 20 6c 69 6e 65 20 22 2b | c3 9e 29 3a f2 43 6c 6f | line "+|..):.Clo|
|00000370| 73 65 44 6f 77 6e 54 61 | 73 6b 3a e0 0d 01 86 15 |seDownTa|sk:.....|
|00000380| f2 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 46 69 6c |.LoadTem|plateFil|
|00000390| 65 0d 01 90 21 44 61 74 | 65 53 74 25 3d a4 49 6e |e...!Dat|eSt%=.In|
|000003a0| 69 74 49 63 6f 6e 28 57 | 48 61 6e 64 6c 65 25 2c |itIcon(W|Handle%,|
|000003b0| 31 29 0d 01 9a 14 21 42 | 6c 6f 63 6b 25 3d 57 48 |1)....!B|lock%=WH|
|000003c0| 61 6e 64 6c 65 25 0d 01 | a4 23 c8 99 22 57 69 6d |andle%..|.#.."Wim|
|000003d0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|000003e0| 22 2c 2c 42 6c 6f 63 6b | 25 0d 01 ae 20 c8 99 20 |",,Block|%... .. |
|000003f0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000400| 22 2c 2c 42 6c 6f 63 6b | 25 0d 01 b8 13 f2 64 61 |",,Block|%.....da|
|00000410| 74 61 63 6f 6c 6c 65 63 | 74 28 31 29 0d 01 c2 0f |tacollec|t(1)....|
|00000420| 4e 75 6d 62 65 72 3d 39 | 39 39 39 0d 01 cc 17 f2 |Number=9|999.....|
|00000430| 53 65 74 49 63 6f 6e 73 | 28 32 2c 4e 75 6d 62 65 |SetIcons|(2,Numbe|
|00000440| 72 29 0d 01 d6 05 e1 0d | 01 e0 05 3a 0d 01 ea 12 |r)......|...:....|
|00000450| dd f2 4d 61 69 6e 57 69 | 6d 70 50 6f 6c 6c 0d 01 |..MainWi|mpPoll..|
|00000460| f4 24 c8 99 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |.$.."Wim|p_Poll",|
|00000470| 30 2c 42 6c 6f 63 6b 25 | 20 b8 20 52 65 61 73 6f |0,Block%| . Reaso|
|00000480| 6e 25 0d 01 fe 10 c8 8e | 20 52 65 61 73 6f 6e 25 |n%......| Reason%|
|00000490| 20 ca 0d 02 08 2e 20 20 | 20 20 20 c9 20 32 20 20 | .....  |   . 2  |
|000004a0| 20 20 3a 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |  : .. "|Wimp_Ope|
|000004b0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 42 6c 6f 63 6b 25 |nWindow"|,,Block%|
|000004c0| 0d 02 12 37 20 20 20 20 | 20 c9 20 33 20 20 20 20 |...7    | . 3    |
|000004d0| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |: .. "Wi|mp_Close|
|000004e0| 57 69 6e 64 6f 77 22 2c | 2c 42 6c 6f 63 6b 25 3a |Window",|,Block%:|
|000004f0| 51 75 69 74 25 3d b9 0d | 02 1c 3a 20 20 20 20 20 |Quit%=..|..:     |
|00000500| c9 20 38 20 20 20 20 3a | 20 e7 20 42 6c 6f 63 6b |. 8    :| . Block|
|00000510| 25 21 32 34 3d 31 33 20 | 8c 20 f2 64 61 74 61 63 |%!24=13 |. .datac|
|00000520| 6f 6c 6c 65 63 74 28 42 | 6c 6f 63 6b 25 21 31 36 |ollect(B|lock%!16|
|00000530| 29 0d 02 26 1f 20 20 20 | 20 20 c9 20 31 37 2c 31 |)..&.   |  . 17,1|
|00000540| 38 3a c8 8e 20 42 6c 6f | 63 6b 25 21 31 36 20 ca |8:.. Blo|ck%!16 .|
|00000550| 0d 02 30 19 20 20 20 20 | 20 20 20 20 20 20 c9 20 |..0.    |      . |
|00000560| 30 3a 51 75 69 74 25 3d | b9 0d 02 3a 0f 20 20 20 |0:Quit%=|...:.   |
|00000570| 20 20 20 20 20 20 20 cb | 0d 02 44 05 cb 0d 02 4e |       .|..D....N|
|00000580| 05 e1 0d 02 58 05 3a 0d | 02 62 18 dd f2 64 61 74 |....X.:.|.b...dat|
|00000590| 61 63 6f 6c 6c 65 63 74 | 28 49 63 6f 6e 25 29 0d |acollect|(Icon%).|
|000005a0| 02 6c 1e 44 61 74 65 53 | 24 3d a4 47 65 74 53 74 |.l.DateS|$=.GetSt|
|000005b0| 72 69 6e 67 28 44 61 74 | 65 53 74 25 29 0d 02 76 |ring(Dat|eSt%)..v|
|000005c0| 30 e7 20 a9 28 44 61 74 | 65 53 24 29 3c 3e 31 30 |0. .(Dat|eS$)<>10|
|000005d0| 20 8c 20 f2 57 72 6f 6e | 67 44 61 74 65 28 22 64 | . .Wron|gDate("d|
|000005e0| 64 2f 6d 6d 2f 79 79 79 | 79 22 29 3a e1 0d 02 80 |d/mm/yyy|y"):....|
|000005f0| 34 e7 20 c1 44 61 74 65 | 53 24 2c 33 2c 31 29 3c |4. .Date|S$,3,1)<|
|00000600| 3e 22 2f 22 20 8c 20 f2 | 57 72 6f 6e 67 44 61 74 |>"/" . .|WrongDat|
|00000610| 65 28 22 64 64 2f 6d 6d | 2f 79 79 79 79 22 29 3a |e("dd/mm|/yyyy"):|
|00000620| e1 0d 02 8a 34 e7 20 c1 | 44 61 74 65 53 24 2c 36 |....4. .|DateS$,6|
|00000630| 2c 31 29 3c 3e 22 2f 22 | 20 8c 20 f2 57 72 6f 6e |,1)<>"/"| . .Wron|
|00000640| 67 44 61 74 65 28 22 64 | 64 2f 6d 6d 2f 79 79 79 |gDate("d|d/mm/yyy|
|00000650| 79 22 29 3a e1 0d 02 94 | 0f e3 20 69 25 3d 31 20 |y"):....|.. i%=1 |
|00000660| b8 20 31 30 0d 02 9e 0f | 20 20 e7 20 69 25 3c 3e |. 10....|  . i%<>|
|00000670| 33 20 8c 0d 02 a8 11 20 | 20 20 20 e7 20 69 25 3c |3 ..... |   . i%<|
|00000680| 3e 36 20 8c 0d 02 b2 52 | 20 20 20 20 20 20 e7 20 |>6 ....R|      . |
|00000690| 97 28 c1 44 61 74 65 53 | 24 2c 69 25 2c 31 29 29 |.(.DateS|$,i%,1))|
|000006a0| 3c 34 38 20 84 20 97 28 | c1 44 61 74 65 53 24 2c |<48 . .(|.DateS$,|
|000006b0| 69 25 2c 31 29 29 3e 35 | 37 20 8c 20 f2 57 72 6f |i%,1))>5|7 . .Wro|
|000006c0| 6e 67 44 61 74 65 28 22 | 64 64 2f 6d 6d 2f 79 79 |ngDate("|dd/mm/yy|
|000006d0| 79 79 22 29 3a e1 0d 02 | bc 09 20 20 20 20 cd 0d |yy"):...|..    ..|
|000006e0| 02 c6 07 20 20 cd 0d 02 | d0 05 ed 0d 02 da 15 44 |...  ...|.......D|
|000006f0| 61 79 24 3d c1 44 61 74 | 65 53 24 2c 31 2c 32 29 |ay$=.Dat|eS$,1,2)|
|00000700| 0d 02 e4 17 4d 6f 6e 74 | 68 24 3d c1 44 61 74 65 |....Mont|h$=.Date|
|00000710| 53 24 2c 34 2c 32 29 0d | 02 ee 16 59 65 61 72 24 |S$,4,2).|...Year$|
|00000720| 3d c1 44 61 74 65 53 24 | 2c 37 2c 34 29 0d 02 f8 |=.DateS$|,7,4)...|
|00000730| 10 44 61 79 25 3d bb 28 | 44 61 79 24 29 0d 03 02 |.Day%=.(|Day$)...|
|00000740| 14 4d 6f 6e 74 68 25 3d | bb 28 4d 6f 6e 74 68 24 |.Month%=|.(Month$|
|00000750| 29 0d 03 0c 12 59 65 61 | 72 25 3d bb 28 59 65 61 |)....Yea|r%=.(Yea|
|00000760| 72 24 29 0d 03 16 2d e7 | 20 4d 6f 6e 74 68 25 3e |r$)...-.| Month%>|
|00000770| 31 32 20 8c 20 f2 57 72 | 6f 6e 67 44 61 74 65 28 |12 . .Wr|ongDate(|
|00000780| 22 4d 6f 6e 74 68 20 65 | 72 72 6f 72 22 29 3a e1 |"Month e|rror"):.|
|00000790| 0d 03 20 38 e7 20 94 28 | 28 59 65 61 72 25 2f 34 |.. 8. .(|(Year%/4|
|000007a0| 29 2d 28 a8 28 59 65 61 | 72 25 2f 34 29 29 29 3e |)-(.(Yea|r%/4)))>|
|000007b0| 30 2e 30 31 20 8c 20 4c | 65 61 70 25 3d 30 20 8b |0.01 . L|eap%=0 .|
|000007c0| 20 4c 65 61 70 25 3d 31 | 0d 03 2a 34 e7 20 4d 6f | Leap%=1|..*4. Mo|
|000007d0| 6e 74 68 25 3d 30 20 84 | 20 44 61 79 25 3c 31 20 |nth%=0 .| Day%<1 |
|000007e0| 8c f2 57 72 6f 6e 67 44 | 61 74 65 28 22 4e 6f 20 |..WrongD|ate("No |
|000007f0| 73 75 63 68 20 64 61 79 | 22 29 3a e1 0d 03 2b 5f |such day|"):...+_|
|00000800| e7 20 4d 6f 6e 74 68 25 | 3d 31 20 80 20 44 61 79 |. Month%|=1 . Day|
|00000810| 25 3c 3d 33 31 20 8c 20 | 44 61 79 43 6f 75 6e 74 |%<=31 . |DayCount|
|00000820| 25 3d 44 61 79 25 20 8b | 20 e7 20 44 61 79 25 3e |%=Day% .| . Day%>|
|00000830| 33 31 20 80 20 4d 6f 6e | 74 68 25 3d 31 20 8c 20 |31 . Mon|th%=1 . |
|00000840| f2 57 72 6f 6e 67 44 61 | 74 65 28 22 4e 6f 20 73 |.WrongDa|te("No s|
|00000850| 75 63 68 20 64 61 79 22 | 29 3a e1 0d 03 34 6e e7 |uch day"|):...4n.|
|00000860| 20 4d 6f 6e 74 68 25 3d | 32 20 80 20 44 61 79 25 | Month%=|2 . Day%|
|00000870| 3c 3d 32 38 2b 4c 65 61 | 70 25 20 8c 20 44 61 79 |<=28+Lea|p% . Day|
|00000880| 43 6f 75 6e 74 25 3d 33 | 31 2b 44 61 79 25 20 8b |Count%=3|1+Day% .|
|00000890| 20 e7 20 44 61 79 25 3e | 32 38 2b 4c 65 61 70 25 | . Day%>|28+Leap%|
|000008a0| 20 80 20 4d 6f 6e 74 68 | 25 3d 32 20 8c 20 f2 57 | . Month|%=2 . .W|
|000008b0| 72 6f 6e 67 44 61 74 65 | 28 22 4e 6f 20 73 75 63 |rongDate|("No suc|
|000008c0| 68 20 64 61 79 22 29 3a | e1 0d 03 3e 68 e7 20 4d |h day"):|...>h. M|
|000008d0| 6f 6e 74 68 25 3d 33 20 | 80 20 44 61 79 25 3c 3d |onth%=3 |. Day%<=|
|000008e0| 33 31 20 8c 20 44 61 79 | 43 6f 75 6e 74 25 3d 35 |31 . Day|Count%=5|
|000008f0| 39 2b 44 61 79 25 2b 4c | 65 61 70 25 20 8b 20 e7 |9+Day%+L|eap% . .|
|00000900| 20 44 61 79 25 3e 33 31 | 20 80 20 4d 6f 6e 74 68 | Day%>31| . Month|
|00000910| 25 3d 33 20 8c 20 f2 57 | 72 6f 6e 67 44 61 74 65 |%=3 . .W|rongDate|
|00000920| 28 22 4e 6f 20 73 75 63 | 68 20 64 61 79 22 29 3a |("No suc|h day"):|
|00000930| e1 0d 03 48 68 e7 20 4d | 6f 6e 74 68 25 3d 34 20 |...Hh. M|onth%=4 |
|00000940| 80 20 44 61 79 25 3c 3d | 33 30 20 8c 20 44 61 79 |. Day%<=|30 . Day|
|00000950| 43 6f 75 6e 74 25 3d 39 | 30 2b 44 61 79 25 2b 4c |Count%=9|0+Day%+L|
|00000960| 65 61 70 25 20 8b 20 e7 | 20 44 61 79 25 3e 33 30 |eap% . .| Day%>30|
|00000970| 20 80 20 4d 6f 6e 74 68 | 25 3d 34 20 8c 20 f2 57 | . Month|%=4 . .W|
|00000980| 72 6f 6e 67 44 61 74 65 | 28 22 4e 6f 20 73 75 63 |rongDate|("No suc|
|00000990| 68 20 64 61 79 22 29 3a | e1 0d 03 52 69 e7 20 4d |h day"):|...Ri. M|
|000009a0| 6f 6e 74 68 25 3d 35 20 | 80 20 44 61 79 25 3c 3d |onth%=5 |. Day%<=|
|000009b0| 33 31 20 8c 20 44 61 79 | 43 6f 75 6e 74 25 3d 31 |31 . Day|Count%=1|
|000009c0| 32 30 2b 44 61 79 25 2b | 4c 65 61 70 25 20 8b 20 |20+Day%+|Leap% . |
|000009d0| e7 20 44 61 79 25 3e 33 | 31 20 80 20 4d 6f 6e 74 |. Day%>3|1 . Mont|
|000009e0| 68 25 3d 35 20 8c 20 f2 | 57 72 6f 6e 67 44 61 74 |h%=5 . .|WrongDat|
|000009f0| 65 28 22 4e 6f 20 73 75 | 63 68 20 64 61 79 22 29 |e("No su|ch day")|
|00000a00| 3a e1 0d 03 5c 69 e7 20 | 4d 6f 6e 74 68 25 3d 36 |:...\i. |Month%=6|
|00000a10| 20 80 20 44 61 79 25 3c | 3d 33 30 20 8c 20 44 61 | . Day%<|=30 . Da|
|00000a20| 79 43 6f 75 6e 74 25 3d | 31 35 31 2b 44 61 79 25 |yCount%=|151+Day%|
|00000a30| 2b 4c 65 61 70 25 20 8b | 20 e7 20 44 61 79 25 3e |+Leap% .| . Day%>|
|00000a40| 33 30 20 80 20 4d 6f 6e | 74 68 25 3d 36 20 8c 20 |30 . Mon|th%=6 . |
|00000a50| f2 57 72 6f 6e 67 44 61 | 74 65 28 22 4e 6f 20 73 |.WrongDa|te("No s|
|00000a60| 75 63 68 20 64 61 79 22 | 29 3a e1 0d 03 66 69 e7 |uch day"|):...fi.|
|00000a70| 20 4d 6f 6e 74 68 25 3d | 37 20 80 20 44 61 79 25 | Month%=|7 . Day%|
|00000a80| 3c 3d 33 31 20 8c 20 44 | 61 79 43 6f 75 6e 74 25 |<=31 . D|ayCount%|
|00000a90| 3d 31 38 31 2b 44 61 79 | 25 2b 4c 65 61 70 25 20 |=181+Day|%+Leap% |
|00000aa0| 8b 20 e7 20 44 61 79 25 | 3e 33 31 20 80 20 4d 6f |. . Day%|>31 . Mo|
|00000ab0| 6e 74 68 25 3d 37 20 8c | 20 f2 57 72 6f 6e 67 44 |nth%=7 .| .WrongD|
|00000ac0| 61 74 65 28 22 4e 6f 20 | 73 75 63 68 20 64 61 79 |ate("No |such day|
|00000ad0| 22 29 3a e1 0d 03 70 69 | e7 20 4d 6f 6e 74 68 25 |"):...pi|. Month%|
|00000ae0| 3d 38 20 80 20 44 61 79 | 25 3c 3d 33 31 20 8c 20 |=8 . Day|%<=31 . |
|00000af0| 44 61 79 43 6f 75 6e 74 | 25 3d 32 31 32 2b 44 61 |DayCount|%=212+Da|
|00000b00| 79 25 2b 4c 65 61 70 25 | 20 8b 20 e7 20 44 61 79 |y%+Leap%| . . Day|
|00000b10| 25 3e 33 31 20 80 20 4d | 6f 6e 74 68 25 3d 38 20 |%>31 . M|onth%=8 |
|00000b20| 8c 20 f2 57 72 6f 6e 67 | 44 61 74 65 28 22 4e 6f |. .Wrong|Date("No|
|00000b30| 20 73 75 63 68 20 64 61 | 79 22 29 3a e1 0d 03 7a | such da|y"):...z|
|00000b40| 69 e7 20 4d 6f 6e 74 68 | 25 3d 39 20 80 20 44 61 |i. Month|%=9 . Da|
|00000b50| 79 25 3c 3d 33 30 20 8c | 20 44 61 79 43 6f 75 6e |y%<=30 .| DayCoun|
|00000b60| 74 25 3d 32 34 33 2b 44 | 61 79 25 2b 4c 65 61 70 |t%=243+D|ay%+Leap|
|00000b70| 25 20 8b 20 e7 20 44 61 | 79 25 3e 33 30 20 80 20 |% . . Da|y%>30 . |
|00000b80| 4d 6f 6e 74 68 25 3d 39 | 20 8c 20 f2 57 72 6f 6e |Month%=9| . .Wron|
|00000b90| 67 44 61 74 65 28 22 4e | 6f 20 73 75 63 68 20 64 |gDate("N|o such d|
|00000ba0| 61 79 22 29 3a e1 0d 03 | 84 6b e7 20 4d 6f 6e 74 |ay"):...|.k. Mont|
|00000bb0| 68 25 3d 31 30 20 80 20 | 44 61 79 25 3c 3d 33 31 |h%=10 . |Day%<=31|
|00000bc0| 20 8c 20 44 61 79 43 6f | 75 6e 74 25 3d 32 37 33 | . DayCo|unt%=273|
|00000bd0| 2b 44 61 79 25 2b 4c 65 | 61 70 25 20 8b 20 e7 20 |+Day%+Le|ap% . . |
|00000be0| 44 61 79 25 3e 33 31 20 | 80 20 4d 6f 6e 74 68 25 |Day%>31 |. Month%|
|00000bf0| 3d 31 30 20 8c 20 f2 57 | 72 6f 6e 67 44 61 74 65 |=10 . .W|rongDate|
|00000c00| 28 22 4e 6f 20 73 75 63 | 68 20 64 61 79 22 29 3a |("No suc|h day"):|
|00000c10| e1 0d 03 8e 6b e7 20 4d | 6f 6e 74 68 25 3d 31 31 |....k. M|onth%=11|
|00000c20| 20 80 20 44 61 79 25 3c | 3d 33 30 20 8c 20 44 61 | . Day%<|=30 . Da|
|00000c30| 79 43 6f 75 6e 74 25 3d | 33 30 34 2b 44 61 79 25 |yCount%=|304+Day%|
|00000c40| 2b 4c 65 61 70 25 20 8b | 20 e7 20 44 61 79 25 3e |+Leap% .| . Day%>|
|00000c50| 33 30 20 80 20 4d 6f 6e | 74 68 25 3d 31 31 20 8c |30 . Mon|th%=11 .|
|00000c60| 20 f2 57 72 6f 6e 67 44 | 61 74 65 28 22 4e 6f 20 | .WrongD|ate("No |
|00000c70| 73 75 63 68 20 64 61 79 | 22 29 3a e1 0d 03 98 6b |such day|"):....k|
|00000c80| e7 20 4d 6f 6e 74 68 25 | 3d 31 32 20 80 20 44 61 |. Month%|=12 . Da|
|00000c90| 79 25 3c 3d 33 31 20 8c | 20 44 61 79 43 6f 75 6e |y%<=31 .| DayCoun|
|00000ca0| 74 25 3d 33 33 34 2b 44 | 61 79 25 2b 4c 65 61 70 |t%=334+D|ay%+Leap|
|00000cb0| 25 20 8b 20 e7 20 44 61 | 79 25 3e 33 31 20 80 20 |% . . Da|y%>31 . |
|00000cc0| 4d 6f 6e 74 68 25 3d 31 | 32 20 8c 20 f2 57 72 6f |Month%=1|2 . .Wro|
|00000cd0| 6e 67 44 61 74 65 28 22 | 4e 6f 20 73 75 63 68 20 |ngDate("|No such |
|00000ce0| 64 61 79 22 29 3a e1 0d | 03 a2 28 4e 75 6d 62 65 |day"):..|..(Numbe|
|00000cf0| 72 3d 59 65 61 72 25 2b | 44 61 79 43 6f 75 6e 74 |r=Year%+|DayCount|
|00000d00| 25 2f 28 33 36 35 2b 31 | 2b 4c 65 61 70 25 29 0d |%/(365+1|+Leap%).|
|00000d10| 03 ac 25 f2 53 65 74 49 | 63 6f 6e 73 54 65 78 74 |..%.SetI|consText|
|00000d20| 28 32 2c a4 63 6f 6e 76 | 65 72 74 28 4e 75 6d 62 |(2,.conv|ert(Numb|
|00000d30| 65 72 29 29 0d 03 b6 2b | c8 99 22 57 69 6d 70 5f |er))...+|.."Wimp_|
|00000d40| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 22 2c 2c 42 |RedrawWi|ndow",,B|
|00000d50| 6c 6f 63 6b 25 20 b8 20 | 52 65 61 73 6f 6e 25 0d |lock% . |Reason%.|
|00000d60| 03 c0 0e c8 95 20 52 65 | 61 73 6f 6e 25 0d 03 ca |..... Re|ason%...|
|00000d70| 2d 20 20 c8 99 22 57 69 | 6d 70 5f 47 65 74 52 65 |-  .."Wi|mp_GetRe|
|00000d80| 63 74 61 6e 67 6c 65 22 | 2c 2c 42 6c 6f 63 6b 25 |ctangle"|,,Block%|
|00000d90| 20 b8 20 52 65 61 73 6f | 6e 25 0d 03 d4 05 ce 0d | . Reaso|n%......|
|00000da0| 03 de 05 e1 0d 03 e8 05 | 3a 0d 03 f2 19 dd f2 57 |........|:......W|
|00000db0| 72 6f 6e 67 44 61 74 65 | 28 4d 65 73 73 61 67 65 |rongDate|(Message|
|00000dc0| 24 29 0d 03 fc 1d f2 53 | 65 74 49 63 6f 6e 73 54 |$).....S|etIconsT|
|00000dd0| 65 78 74 28 32 2c 4d 65 | 73 73 61 67 65 24 29 0d |ext(2,Me|ssage$).|
|00000de0| 04 06 2b c8 99 22 57 69 | 6d 70 5f 52 65 64 72 61 |..+.."Wi|mp_Redra|
|00000df0| 77 57 69 6e 64 6f 77 22 | 2c 2c 42 6c 6f 63 6b 25 |wWindow"|,,Block%|
|00000e00| 20 b8 20 52 65 61 73 6f | 6e 25 0d 04 10 0e c8 95 | . Reaso|n%......|
|00000e10| 20 52 65 61 73 6f 6e 25 | 0d 04 1a 2d 20 20 c8 99 | Reason%|...-  ..|
|00000e20| 22 57 69 6d 70 5f 47 65 | 74 52 65 63 74 61 6e 67 |"Wimp_Ge|tRectang|
|00000e30| 6c 65 22 2c 2c 42 6c 6f | 63 6b 25 20 b8 20 52 65 |le",,Blo|ck% . Re|
|00000e40| 61 73 6f 6e 25 0d 04 24 | 05 ce 0d 04 2e 05 e1 0d |ason%..$|........|
|00000e50| 04 38 05 3a 0d 04 42 13 | dd f2 43 6c 6f 73 65 44 |.8.:..B.|..CloseD|
|00000e60| 6f 77 6e 54 61 73 6b 0d | 04 4c 16 c8 99 22 57 69 |ownTask.|.L..."Wi|
|00000e70| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 0d 04 56 |mp_Close|Down"..V|
|00000e80| 05 e1 0d 04 60 05 3a 0d | 04 6a 19 dd f2 53 65 74 |....`.:.|.j...Set|
|00000e90| 49 63 6f 6e 73 28 49 63 | 6f 6e 25 2c 56 61 6c 29 |Icons(Ic|on%,Val)|
|00000ea0| 0d 04 74 23 21 42 6c 6f | 63 6b 25 3d 57 48 61 6e |..t#!Blo|ck%=WHan|
|00000eb0| 64 6c 65 25 3a 42 6c 6f | 63 6b 25 21 34 3d 49 63 |dle%:Blo|ck%!4=Ic|
|00000ec0| 6f 6e 25 0d 04 7e 21 c8 | 99 22 57 69 6d 70 5f 47 |on%..~!.|."Wimp_G|
|00000ed0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 42 6c |etIconSt|ate",,Bl|
|00000ee0| 6f 63 6b 25 0d 04 88 17 | 24 28 42 6c 6f 63 6b 25 |ock%....|$(Block%|
|00000ef0| 21 32 38 29 3d c3 28 56 | 61 6c 29 0d 04 92 05 e1 |!28)=.(V|al).....|
|00000f00| 0d 04 9c 05 3a 0d 04 a6 | 1e dd f2 53 65 74 49 63 |....:...|...SetIc|
|00000f10| 6f 6e 73 54 65 78 74 28 | 49 63 6f 6e 25 2c 56 61 |onsText(|Icon%,Va|
|00000f20| 6c 24 29 0d 04 b0 23 21 | 42 6c 6f 63 6b 25 3d 57 |l$)...#!|Block%=W|
|00000f30| 48 61 6e 64 6c 65 25 3a | 42 6c 6f 63 6b 25 21 34 |Handle%:|Block%!4|
|00000f40| 3d 49 63 6f 6e 25 0d 04 | ba 21 c8 99 22 57 69 6d |=Icon%..|.!.."Wim|
|00000f50| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00000f60| 2c 42 6c 6f 63 6b 25 0d | 04 c4 15 24 28 42 6c 6f |,Block%.|...$(Blo|
|00000f70| 63 6b 25 21 32 38 29 3d | 56 61 6c 24 0d 04 ce 05 |ck%!28)=|Val$....|
|00000f80| e1 0d 04 d8 05 3a 0d 04 | e2 3b dd a4 47 65 74 53 |.....:..|.;..GetS|
|00000f90| 74 72 69 6e 67 28 61 25 | 29 3a 61 24 3d 22 22 3a |tring(a%|):a$="":|
|00000fa0| c8 95 20 3f 61 25 3e 3d | 33 32 3a 61 24 2b 3d bd |.. ?a%>=|32:a$+=.|
|00000fb0| 28 3f 61 25 29 3a 61 25 | 2b 3d 31 3a ce 3a 3d 61 |(?a%):a%|+=1:.:=a|
|00000fc0| 24 0d 04 ec 05 3a 0d 04 | f6 15 dd 20 a4 63 6f 6e |$....:..|... .con|
|00000fd0| 76 65 72 74 28 76 61 6c | 75 65 29 0d 05 00 2b 3d |vert(val|ue)...+=|
|00000fe0| 20 c3 28 a8 20 28 76 61 | 6c 75 65 29 29 2b 22 2e | .(. (va|lue))+".|
|00000ff0| 22 2b c2 c3 28 a8 28 76 | 61 6c 75 65 2a 31 30 30 |"+..(.(v|alue*100|
|00001000| 30 29 29 2c 33 29 0d 05 | 0a 05 3a 0d 05 14 56 dd |0)),3)..|..:...V.|
|00001010| a4 49 6e 69 74 49 63 6f | 6e 28 77 25 2c 69 25 29 |.InitIco|n(w%,i%)|
|00001020| 3a 42 6c 6f 63 6b 25 21 | 30 3d 77 25 3a 42 6c 6f |:Block%!|0=w%:Blo|
|00001030| 63 6b 25 21 34 3d 69 25 | 3a c8 99 22 57 69 6d 70 |ck%!4=i%|:.."Wimp|
|00001040| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001050| 42 6c 6f 63 6b 25 3a 3d | 42 6c 6f 63 6b 25 21 32 |Block%:=|Block%!2|
|00001060| 38 0d 05 1e 05 3a 0d ff |                         |8....:..|        |
+--------+-------------------------+-------------------------+--------+--------+