/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsd / dates

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 54 03 00 00 |Archive.|D...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 44 61 74 65 73 00 | 00 00 00 00 ff ff ff ff |.!Dates.|........|
|00000070| 46 ff ff ff e3 95 20 52 | 33 00 00 00 ff ff ff ff |F..... R|3.......|
|00000080| 20 01 00 80 83 21 48 65 | 6c 70 00 20 50 72 6f 67 | ....!He|lp. Prog|
|00000090| 6f 04 00 00 45 ff ff ff | aa 35 53 26 03 00 ad 8d |o...E...|.5S&....|
|000000a0| 87 03 00 00 24 00 00 00 | 82 21 52 75 6e 00 73 20 |....$...|.!Run.s |
|000000b0| 50 72 6f 67 8b 00 00 00 | 44 eb ff ff 03 07 fd 7d |Prog....|D......}|
|000000c0| 03 00 a6 37 8b 00 00 00 | cf 03 00 00 83 21 52 75 |...7....|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 67 | 02 22 00 00 45 fb ff ff |nImage.g|."..E...|
|000000e0| d9 f8 53 26 03 00 00 00 | 99 21 00 00 7e 04 00 00 |..S&....|.!..~...|
|000000f0| 83 21 53 70 72 69 74 65 | 73 00 6f 67 e0 04 00 00 |.!Sprite|s.og....|
|00000100| 44 f9 ff ff e2 90 05 7e | 03 00 ec 0c 77 03 00 00 |D......~|....w...|
|00000110| 3b 26 00 00 82 31 2d 4c | 69 6e 65 00 50 72 6f 67 |;&...1-L|ine.Prog|
|00000120| f4 00 00 00 44 fb ff ff | b3 be 7d 45 03 00 3a 2a |....D...|..}E..:*|
|00000130| f4 00 00 00 d6 29 00 00 | 83 54 65 6d 70 6c 61 74 |.....)..|.Templat|
|00000140| 65 73 00 67 8b 03 00 00 | 44 ec ff ff d1 48 8e 7e |es.g....|D....H.~|
|00000150| 03 00 24 60 52 03 00 00 | ee 2a 00 00 00 74 20 74 |..$`R...|.*...t t|
|00000160| 68 69 73 20 50 72 6f 67 | 72 61 6d 0d 45 ff ff ff |his Prog|ram.E...|
|00000170| fe e9 7f a4 03 00 fa 2b | e5 02 00 00 e9 3e 02 00 |.......+|.....>..|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 83 21 48 65 |....File|Data.!He|
|00000360| 6c 70 00 20 50 72 6f 67 | 6f 04 00 00 45 ff ff ff |lp. Prog|o...E...|
|00000370| aa 35 53 26 03 00 ad 8d | 0a 0a 20 41 20 70 72 61 |.5S&....|.. A pra|
|00000380| 63 74 69 73 65 20 57 69 | 6d 70 20 61 70 70 6c 69 |ctise Wi|mp appli|
|00000390| 63 61 74 69 6f 6e 20 2d | 20 6d 79 20 66 69 72 73 |cation -| my firs|
|000003a0| 74 20 65 76 65 72 2e 0a | 20 53 65 6c 66 20 65 78 |t ever..| Self ex|
|000003b0| 70 6c 61 6e 61 74 6f 72 | 79 20 75 73 61 67 65 2e |planator|y usage.|
|000003c0| 0a 0a 20 61 6e 79 20 63 | 6f 6d 6d 65 6e 74 73 2e |.. any c|omments.|
|000003d0| 90 03 3f 0a 90 04 20 a9 | 20 31 39 39 33 20 41 6c |..?... .| 1993 Al|
|000003e0| 61 6e 20 44 6f 6e 6f 76 | 61 6e 20 53 6f 66 74 77 |an Donov|an Softw|
|000003f0| 61 72 65 20 2d 20 41 6c | 6c 20 72 69 67 68 74 73 |are - Al|l rights|
|00000400| 20 72 65 73 65 72 76 65 | 64 2e 0a 0a 20 90 0b 2f | reserve|d... ../|
|00000410| 7c af 20 af 7c af 90 04 | 5c 0a 20 90 0a 2f 20 7c ||. .|...|\. ../ ||
|00000420| 20 90 03 7c 20 90 05 5c | 20 90 03 2f af af 5c 20 | ..| ..\| ../..\ |
|00000430| 90 07 2f af af 5c 20 7c | 0a 20 90 09 2f 20 20 7c |../..\ ||. ../  ||
|00000440| 20 90 03 7c 20 90 06 7c | 20 20 5c 5f 5f 20 90 08 | ..| ..||  \__ ..|
|00000450| 7c 20 90 04 7c 0a 20 90 | 08 2f 2d 90 03 2b 2d 20 || ..|. .|./-..+- |
|00000460| 20 7c 20 90 06 7c 20 90 | 05 5c 20 2f af af 5c 20 | | ..| .|.\ /..\ |
|00000470| 2d 2b 2d 20 20 2d 2b 2d | 20 90 03 0a 20 90 07 2f |-+-  -+-| ... ../|
|00000480| 20 90 04 7c 20 90 03 7c | 20 90 06 7c 20 90 05 5d | ..| ..|| ..| ..]|
|00000490| 20 5b 20 20 5d 20 20 7c | 20 90 04 7c 20 90 04 0a | [  ]  || ..| ...|
|000004a0| 20 90 05 5f 2f 5f 20 90 | 03 5f 7c 5f 20 5f 7c 5f | .._/_ .|._|_ _|_|
|000004b0| 90 05 2f 20 90 03 5c 5f | 5f 2f 20 5c 5f 5f 2f 20 |../ ..\_|_/ \__/ |
|000004c0| 20 7c 20 90 04 5c 5f 5f | 2f 20 0a 90 03 20 54 68 | | ..\__|/ ... Th|
|000004d0| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 66 72 |is progr|am is fr|
|000004e0| 65 65 77 61 72 65 2e 20 | 20 59 6f 75 20 6d 61 79 |eeware. | You may|
|000004f0| 20 64 69 73 74 72 69 62 | 75 74 65 20 6f 72 0a 20 | distrib|ute or. |
|00000500| 63 6f 70 79 20 69 74 20 | 66 72 65 65 6c 79 2c 20 |copy it |freely, |
|00000510| 73 6f 20 6c 6f 6e 67 20 | 61 73 20 6e 6f 20 61 6c |so long |as no al|
|00000520| 74 65 72 61 74 69 6f 6e | 73 20 61 72 65 20 6d 61 |teration|s are ma|
|00000530| 64 65 0a 20 61 6e 64 20 | 6e 6f 20 63 72 65 64 69 |de. and |no credi|
|00000540| 74 20 74 6f 20 6d 65 20 | 61 73 20 74 68 65 20 61 |t to me |as the a|
|00000550| 75 74 68 6f 72 20 69 73 | 20 72 65 6d 6f 76 65 64 |uthor is| removed|
|00000560| 2e 20 20 49 66 0a 20 79 | 6f 75 20 77 69 73 68 20 |.  If. y|ou wish |
|00000570| 74 6f 20 6d 61 6b 65 20 | 61 6e 79 20 61 6c 74 65 |to make |any alte|
|00000580| 72 61 74 69 6f 6e 73 20 | 6f 72 20 66 69 6e 64 20 |rations |or find |
|00000590| 61 6e 79 20 62 75 67 73 | 2c 0a 20 70 6c 65 61 73 |any bugs|,. pleas|
|000005a0| 65 20 73 65 6e 64 20 74 | 68 65 6d 20 74 6f 20 6d |e send t|hem to m|
|000005b0| 65 20 73 6f 20 74 68 61 | 74 20 63 61 6e 20 69 6e |e so tha|t can in|
|000005c0| 63 6c 75 64 65 20 74 68 | 65 6d 20 69 6e 0a 20 66 |clude th|em in. f|
|000005d0| 75 74 75 72 65 20 76 65 | 72 73 69 6f 6e 73 2e 20 |uture ve|rsions. |
|000005e0| 20 59 6f 75 20 77 69 6c | 6c 2c 20 6f 66 20 63 6f | You wil|l, of co|
|000005f0| 75 72 73 65 2c 20 62 65 | 20 63 72 65 64 69 74 65 |urse, be| credite|
|00000600| 64 2e 0a 20 0a 0a 20 46 | 6f 72 20 66 75 72 74 68 |d.. .. F|or furth|
|00000610| 65 72 20 72 65 6c 65 61 | 73 65 73 2c 20 65 74 63 |er relea|ses, etc|
|00000620| 2e 3a 0a 20 3d 90 1b 0a | 20 90 1c 0a 20 43 6f 6e |.:. =...| ... Con|
|00000630| 74 61 63 74 20 6d 65 20 | 61 74 3a 20 0a 20 90 11 |tact me |at: . ..|
|00000640| 41 6c 61 6e 20 44 6f 6e | 6f 76 61 6e 20 53 6f 66 |Alan Don|ovan Sof|
|00000650| 74 77 61 72 65 0a 20 90 | 11 32 38 20 41 74 74 77 |tware. .|.28 Attw|
|00000660| 6f 6f 64 20 52 6f 61 64 | 0a 20 90 11 53 61 6c 69 |ood Road|. ..Sali|
|00000670| 73 62 75 72 79 0a 20 90 | 11 57 69 6c 74 73 68 69 |sbury. .|.Wiltshi|
|00000680| 72 65 0a 20 90 11 53 50 | 31 20 33 50 52 0a 0a 20 |re. ..SP|1 3PR.. |
|00000690| 6f 72 20 28 64 75 72 69 | 6e 67 20 74 65 72 6d 2d |or (duri|ng term-|
|000006a0| 74 69 6d 65 20 6f 6e 6c | 79 29 20 61 74 3a 0a 0a |time onl|y) at:..|
|000006b0| 20 90 11 50 65 6d 62 72 | 6f 6b 65 20 43 6f 6c 6c | ..Pembr|oke Coll|
|000006c0| 65 67 65 0a 20 90 11 43 | 61 6d 62 72 69 64 67 65 |ege. ..C|ambridge|
|000006d0| 0a 20 90 11 43 42 32 20 | 31 52 46 0a 20 90 09 65 |. ..CB2 |1RF. ..e|
|000006e0| 6d 61 69 6c 3a 20 20 61 | 61 64 31 30 30 31 40 68 |mail:  a|ad1001@h|
|000006f0| 65 72 6d 65 73 2e 63 61 | 6d 2e 61 63 2e 75 6b 46 |ermes.ca|m.ac.ukF|
|00000700| 69 6c 65 44 61 74 61 82 | 21 52 75 6e 00 73 20 50 |ileData.|!Run.s P|
|00000710| 72 6f 67 8b 00 00 00 44 | eb ff ff 03 07 fd 7d 03 |rog....D|......}.|
|00000720| 00 a6 37 0a 7c 20 21 52 | 75 6e 20 66 69 6c 65 20 |..7.| !R|un file |
|00000730| 66 6f 72 20 21 44 61 74 | 65 73 0a 0a 53 65 74 20 |for !Dat|es..Set |
|00000740| 44 61 74 65 73 24 44 69 | 72 20 3c 4f 62 65 79 24 |Dates$Di|r <Obey$|
|00000750| 44 69 72 3e 0a 49 63 6f | 6e 53 70 72 69 74 65 73 |Dir>.Ico|nSprites|
|00000760| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|00000770| 69 74 65 73 0a 57 69 6d | 70 53 6c 6f 74 20 2d 6d |ites.Wim|pSlot -m|
|00000780| 69 6e 20 33 32 4b 20 2d | 6d 61 78 20 33 32 4b 0a |in 32K -|max 32K.|
|00000790| 52 75 6e 20 3c 44 61 74 | 65 73 24 44 69 72 3e 2e |Run <Dat|es$Dir>.|
|000007a0| 21 52 75 6e 49 6d 61 67 | 65 20 25 2a 30 0a 46 69 |!RunImag|e %*0.Fi|
|000007b0| 6c 65 44 61 74 61 83 21 | 52 75 6e 49 6d 61 67 65 |leData.!|RunImage|
|000007c0| 00 67 02 22 00 00 46 fd | ff ff e9 96 20 52 03 00 |.g."..F.|.... R..|
|000007d0| 00 00 0d 00 0a 15 f4 20 | 44 61 74 65 73 20 21 52 |....... |Dates !R|
|000007e0| 75 6e 49 6d 61 67 65 0d | 00 14 12 f4 20 41 6c 61 |unImage.|.... Ala|
|000007f0| 6e 20 44 6f 6e 6f 76 61 | 6e 0d 00 1e 0b f4 20 76 |n Donova|n..... v|
|00000800| 31 2e 30 30 0d 00 28 04 | 0d 00 32 0d de 20 71 25 |1.00..(.|..2.. q%|
|00000810| 20 32 35 30 30 0d 00 3c | 0e 24 71 25 3d 22 54 41 | 2500..<|.$q%="TA|
|00000820| 53 4b 22 0d 00 46 31 c8 | 99 20 22 57 69 6d 70 5f |SK"..F1.|. "Wimp_|
|00000830| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00000840| 21 71 25 2c 22 44 61 74 | 65 73 22 20 b8 20 2c 74 |!q%,"Dat|es" . ,t|
|00000850| 61 73 6b 25 0d 00 50 21 | 76 65 72 73 69 6f 6e 24 |ask%..P!|version$|
|00000860| 3d 22 31 2e 30 30 20 90 | 03 32 30 74 68 2d 4d 61 |="1.00 .|.20th-Ma|
|00000870| 72 2d 39 33 22 0d 00 5a | 0f 63 6c 6f 73 65 64 6f |r-93"..Z|.closedo|
|00000880| 77 6e 3d a3 0d 00 64 41 | de 20 69 6e 64 69 72 65 |wn=...dA|. indire|
|00000890| 63 74 25 20 26 32 30 30 | 2c 20 6d 73 67 62 6c 6b |ct% &200|, msgblk|
|000008a0| 25 20 32 35 36 2c 74 65 | 78 74 24 28 35 30 29 2c |% 256,te|xt$(50),|
|000008b0| 73 65 74 74 69 6e 67 28 | 35 30 29 2c 66 6c 61 67 |setting(|50),flag|
|000008c0| 73 28 35 30 29 0d 00 6e | 2f de 20 73 75 62 6d 65 |s(50)..n|/. subme|
|000008d0| 6e 75 28 35 30 29 2c 72 | 65 66 28 35 30 29 2c 6d |nu(50),r|ef(50),m|
|000008e0| 65 6e 75 70 6f 73 28 32 | 30 29 2c 6d 65 6e 75 25 |enupos(2|0),menu%|
|000008f0| 20 35 31 32 0d 00 78 37 | de 20 6d 6f 6e 74 68 28 | 512..x7|. month(|
|00000900| 31 34 29 20 3a 20 6d 6f | 6e 74 68 28 29 3d 30 2c |14) : mo|nth()=0,|
|00000910| 30 2c 33 2c 33 2c 36 2c | 31 2c 34 2c 36 2c 32 2c |0,3,3,6,|1,4,6,2,|
|00000920| 35 2c 30 2c 33 2c 35 2c | 36 2c 32 0d 00 82 48 de |5,0,3,5,|6,2...H.|
|00000930| 20 64 61 79 24 28 36 29 | 20 3a 20 64 61 79 24 28 | day$(6)| : day$(|
|00000940| 29 3d 22 4d 6f 6e 22 2c | 22 54 75 65 73 22 2c 22 |)="Mon",|"Tues","|
|00000950| 57 65 64 6e 65 73 22 2c | 22 54 68 75 72 73 22 2c |Wednes",|"Thurs",|
|00000960| 22 46 72 69 22 2c 22 53 | 61 74 75 72 22 2c 22 53 |"Fri","S|atur","S|
|00000970| 75 6e 22 0d 00 8c 09 64 | 24 3d 22 22 0d 00 96 13 |un"....d|$=""....|
|00000980| 69 70 74 72 25 3d 69 6e | 64 69 72 65 63 74 25 0d |iptr%=in|direct%.|
|00000990| 00 a0 15 69 65 6e 64 25 | 3d 69 70 74 72 25 2b 26 |...iend%|=iptr%+&|
|000009a0| 32 30 90 03 0d 00 aa 04 | 0d 00 b4 33 c8 99 20 22 |20......|...3.. "|
|000009b0| 57 69 6d 70 5f 4f 70 65 | 6e 54 65 6d 70 6c 61 74 |Wimp_Ope|nTemplat|
|000009c0| 65 22 2c 2c 22 3c 44 61 | 74 65 73 24 44 69 72 3e |e",,"<Da|tes$Dir>|
|000009d0| 2e 54 65 6d 70 6c 61 74 | 65 73 22 0d 00 be 1a f2 |.Templat|es".....|
|000009e0| 6c 6f 61 64 74 65 6d 70 | 6c 61 74 65 28 22 6d 61 |loadtemp|late("ma|
|000009f0| 69 6e 77 22 29 0d 00 c8 | 27 c8 99 20 22 57 69 6d |inw")...|'.. "Wim|
|00000a00| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000a10| 2c 71 25 20 b8 20 6d 61 | 69 6e 77 25 0d 00 d2 1d |,q% . ma|inw%....|
|00000a20| f2 6c 6f 61 64 74 65 6d | 70 6c 61 74 65 28 22 70 |.loadtem|plate("p|
|00000a30| 72 6f 67 49 6e 66 6f 22 | 29 0d 00 dc 26 c8 99 20 |rogInfo"|)...&.. |
|00000a40| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000a50| 6f 77 22 2c 2c 71 25 20 | b8 20 69 6e 66 6f 25 0d |ow",,q% |. info%.|
|00000a60| 00 e6 1b c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..... "W|imp_Clos|
|00000a70| 65 54 65 6d 70 6c 61 74 | 65 22 0d 00 f0 04 0d 00 |eTemplat|e"......|
|00000a80| fa 38 f2 69 63 6f 6e 5f | 70 75 74 64 61 74 61 28 |.8.icon_|putdata(|
|00000a90| 71 25 2c 6d 61 69 6e 77 | 25 2c 33 2c a4 6e 75 6d |q%,mainw|%,3,.num|
|00000aa0| 74 6f 64 61 74 65 28 a0 | 28 c1 91 24 2c 35 2c 32 |todate(.|(..$,5,2|
|00000ab0| 29 90 03 2c 30 29 0d 01 | 04 35 f2 69 63 6f 6e 5f |)..,0)..|.5.icon_|
|00000ac0| 70 75 74 64 61 74 61 28 | 71 25 2c 6d 61 69 6e 77 |putdata(|q%,mainw|
|00000ad0| 25 2c 34 2c a4 66 75 6c | 6c 6d 6f 6e 74 68 28 c1 |%,4,.ful|lmonth(.|
|00000ae0| 91 24 2c 38 2c 33 29 29 | 2c 30 29 0d 01 0e 2a f2 |.$,8,3))|,0)...*.|
|00000af0| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|00000b00| 6d 61 69 6e 77 25 2c 35 | 2c c1 91 24 2c 31 32 2c |mainw%,5|,..$,12,|
|00000b10| 34 29 2c 30 29 0d 01 18 | 28 f2 69 63 6f 6e 5f 70 |4),0)...|(.icon_p|
|00000b20| 75 74 64 61 74 61 28 71 | 25 2c 69 6e 66 6f 25 2c |utdata(q|%,info%,|
|00000b30| 34 2c 76 65 72 73 69 6f | 6e 24 2c 30 29 0d 01 22 |4,versio|n$,0).."|
|00000b40| 04 0d 01 2c 1c f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |...,..op|enwindow|
|00000b50| 28 6d 61 69 6e 77 25 2c | a3 2c 2d 31 29 0d 01 36 |(mainw%,|.,-1)..6|
|00000b60| 2b f2 63 61 72 65 74 5f | 73 65 74 70 6f 73 69 74 |+.caret_|setposit|
|00000b70| 69 6f 6e 28 6d 61 69 6e | 77 25 2c 33 2c 2d 31 2c |ion(main|w%,3,-1,|
|00000b80| 2d 31 2c 2d 31 2c 30 29 | 0d 01 40 09 f2 64 61 74 |-1,-1,0)|..@..dat|
|00000b90| 65 0d 01 4a 04 0d 01 54 | 11 65 72 72 6f 72 5f 66 |e..J...T|.error_f|
|00000ba0| 6c 61 67 25 3d 33 0d 01 | 5e 0e ee 20 85 20 f2 65 |lag%=3..|^.. . .e|
|00000bb0| 72 72 6f 72 0d 01 68 05 | f5 0d 01 72 17 20 20 f2 |rror..h.|...r.  .|
|00000bc0| 61 63 74 69 6f 6e 28 a4 | 70 6f 6c 6c 28 30 29 29 |action(.|poll(0))|
|00000bd0| 0d 01 7c 0f fd 20 63 6c | 6f 73 65 64 6f 77 6e 0d |..|.. cl|osedown.|
|00000be0| 01 86 0e 24 71 25 3d 22 | 54 41 53 4b 22 0d 01 90 |...$q%="|TASK"...|
|00000bf0| 00 22 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.".. "Wi|mp_Close|
|00000c00| 44 6f 77 6e 22 2c 74 61 | 73 6b 25 2c 71 25 21 30 |Down",ta|sk%,q%!0|
|00000c10| 0d 01 9a 05 e0 0d 01 a4 | 04 0d 01 ae 0c dd 20 f2 |........|...... .|
|00000c20| 65 72 72 6f 72 0d 01 b8 | 19 e7 20 b9 20 84 20 65 |error...|.. . . e|
|00000c30| 72 72 6f 72 5f 66 6c 61 | 67 25 3d 33 20 8c 0d 01 |rror_fla|g%=3 ...|
|00000c40| c2 44 20 20 f2 65 72 72 | 6f 72 62 6f 78 28 22 55 |.D  .err|orbox("U|
|00000c50| 6e 65 78 70 65 63 74 65 | 64 20 65 72 72 6f 72 3a |nexpecte|d error:|
|00000c60| 2d 20 22 2b f6 24 2b 22 | 20 49 6e 74 65 72 6e 61 |- "+.$+"| Interna|
|00000c70| 6c 20 65 72 72 6f 72 20 | 63 6f 64 65 20 22 2b c3 |l error |code "+.|
|00000c80| 9e 29 0d 01 cc 05 cc 0d | 01 d6 13 20 20 f2 65 72 |.)......|...  .er|
|00000c90| 72 6f 72 62 6f 78 28 f6 | 24 29 0d 01 e0 05 cd 0d |rorbox(.|$)......|
|00000ca0| 01 ea 11 65 72 72 6f 72 | 5f 66 6c 61 67 25 3d 33 |...error|_flag%=3|
|00000cb0| 0d 01 f4 18 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |...... "|Hourglas|
|00000cc0| 73 5f 53 6d 61 73 68 22 | 0d 01 fe 05 e1 0d 02 08 |s_Smash"|........|
|00000cd0| 04 0d 02 12 0c dd f2 6f | 6b 28 65 24 29 0d 02 1c |.......o|k(e$)...|
|00000ce0| 11 65 72 72 6f 72 5f 66 | 6c 61 67 25 3d 31 0d 02 |.error_f|lag%=1..|
|00000cf0| 26 0a 85 20 31 2c 65 24 | 0d 02 30 05 e1 0d 02 3a |&.. 1,e$|..0....:|
|00000d00| 04 0d 02 44 12 dd f2 65 | 72 72 6f 72 62 6f 78 28 |...D...e|rrorbox(|
|00000d10| 72 24 29 0d 02 4e 08 ea | 20 72 25 0d 02 58 19 21 |r$)..N..| r%..X.!|
|00000d20| 71 25 3d 9f 3a 24 28 71 | 25 2b 34 29 3d 72 24 2b |q%=.:$(q|%+4)=r$+|
|00000d30| bd 28 30 29 0d 02 62 35 | c8 99 20 22 57 69 6d 70 |.(0)..b5|.. "Wimp|
|00000d40| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 71 25 |_ReportE|rror",q%|
|00000d50| 2c 65 72 72 6f 72 5f 66 | 6c 61 67 25 2c 22 44 61 |,error_f|lag%,"Da|
|00000d60| 74 65 73 22 20 b8 20 72 | 25 0d 02 6c 18 e7 20 72 |tes" . r|%..l.. r|
|00000d70| 25 3d 32 20 8c 20 63 6c | 6f 73 65 64 6f 77 6e 3d |%=2 . cl|osedown=|
|00000d80| b9 0d 02 76 05 e1 0d 02 | 80 04 0d 02 8a 3c dd f2 |...v....|.....<..|
|00000d90| 63 6c 69 63 6b 77 69 6e | 64 6f 77 28 6d 6f 75 73 |clickwin|dow(mous|
|00000da0| 65 78 25 2c 6d 6f 75 73 | 65 79 25 2c 62 75 74 74 |ex%,mous|ey%,butt|
|00000db0| 6f 6e 25 2c 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |on%,hand|le%,icon|
|00000dc0| 25 2c 6f 62 25 29 0d 02 | 94 10 c8 8e 20 68 61 6e |%,ob%)..|.... han|
|00000dd0| 64 6c 65 25 20 ca 0d 02 | 9e 2c 20 20 c9 20 6d 61 |dle% ...|.,  . ma|
|00000de0| 69 6e 77 25 20 90 03 3a | f2 63 6c 69 63 6b 6d 61 |inw% ..:|.clickma|
|00000df0| 69 6e 77 28 62 75 74 74 | 6f 6e 25 2c 69 63 6f 6e |inw(butt|on%,icon|
|00000e00| 25 29 0d 02 a8 05 cb 0d | 02 b2 05 e1 0d 02 bc 04 |%)......|........|
|00000e10| 0d 02 c6 1f dd f2 63 6c | 69 63 6b 6d 61 69 6e 77 |......cl|ickmainw|
|00000e20| 28 62 75 74 74 6f 6e 25 | 2c 69 63 6f 6e 25 29 0d |(button%|,icon%).|
|00000e30| 02 d0 12 20 e7 20 62 75 | 74 74 6f 6e 25 3d 32 20 |... . bu|tton%=2 |
|00000e40| 8c 0d 02 da 10 20 20 f2 | 6d 65 6e 75 5f 6d 61 69 |.....  .|menu_mai|
|00000e50| 6e 0d 02 e4 06 20 cd 0d | 02 ee 0b 20 c8 8e 20 b9 |n.... ..|... .. .|
|00000e60| 20 ca 0d 02 f8 23 20 20 | c9 20 28 62 75 74 74 6f | ....#  |. (butto|
|00000e70| 6e 25 20 80 20 34 29 3d | 34 20 80 20 69 63 6f 6e |n% . 4)=|4 . icon|
|00000e80| 25 3c 3e 2d 31 0d 03 02 | 11 20 90 03 c8 8e 20 69 |%<>-1...|. .... i|
|00000e90| 63 6f 6e 25 20 ca 0d 03 | 0c 3c 20 90 04 c9 20 20 |con% ...|.< ...  |
|00000ea0| 33 2c 34 2c 35 3a f2 63 | 61 72 65 74 5f 73 65 74 |3,4,5:.c|aret_set|
|00000eb0| 70 6f 73 69 74 69 6f 6e | 28 6d 61 69 6e 77 25 2c |position|(mainw%,|
|00000ec0| 69 63 6f 6e 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c 30 |icon%,-1|,-1,-1,0|
|00000ed0| 29 0d 03 16 07 20 20 cb | 0d 03 20 06 20 cb 0d 03 |)....  .|.. . ...|
|00000ee0| 2a 05 e1 0d 03 34 04 0d | 03 3e 04 0d 03 48 10 dd |*....4..|.>...H..|
|00000ef0| 20 f2 6d 65 6e 75 5f 6d | 61 69 6e 0d 03 52 09 20 | .menu_m|ain..R. |
|00000f00| 6e 6f 3d 30 0d 03 5c 0d | 20 c8 97 20 78 2c 79 2c |no=0..\.| .. x,y,|
|00000f10| 62 0d 03 66 3e 20 f2 64 | 65 66 69 6e 65 5f 6d 65 |b..f> .d|efine_me|
|00000f20| 6e 75 5f 74 65 78 74 28 | 22 49 6e 66 6f 22 2c 6e |nu_text(|"Info",n|
|00000f30| 6f 2c 30 2c 30 2c 30 2c | 30 2c 26 31 30 30 32 31 |o,0,0,0,|0,&10021|
|00000f40| 2c 69 6e 66 6f 25 2c 30 | 29 3a 6e 6f 2b 3d 31 0d |,info%,0|):no+=1.|
|00000f50| 03 70 3b 20 f2 64 65 66 | 69 6e 65 5f 6d 65 6e 75 |.p; .def|ine_menu|
|00000f60| 5f 74 65 78 74 28 22 51 | 75 69 74 22 2c 6e 6f 2c |_text("Q|uit",no,|
|00000f70| 30 2c 30 2c 30 2c 30 2c | 26 31 30 30 32 31 2c 30 |0,0,0,0,|&10021,0|
|00000f80| 2c 2d 31 29 3a 6e 6f 2b | 3d 31 0d 03 7a 2c 20 f2 |,-1):no+|=1..z, .|
|00000f90| 63 72 65 61 74 65 5f 6d | 65 6e 75 28 22 44 61 79 |create_m|enu("Day|
|00000fa0| 66 69 6e 64 65 72 22 2c | 6e 6f 2c 31 37 30 2c 78 |finder",|no,170,x|
|00000fb0| 2d 36 34 2c 79 29 0d 03 | 84 0f 20 6d 65 6e 75 5f |-64,y)..|.. menu_|
|00000fc0| 6e 72 25 3d 30 0d 03 8e | 16 20 63 6c 61 69 6d 6d |nr%=0...|. claimm|
|00000fd0| 65 6e 75 24 3d 22 6d 61 | 69 6e 22 0d 03 98 05 e1 |enu$="ma|in".....|
|00000fe0| 0d 03 a2 04 0d 03 ac 32 | dd f2 64 65 66 69 6e 65 |.......2|..define|
|00000ff0| 5f 6d 65 6e 75 5f 74 65 | 78 74 28 74 65 78 74 24 |_menu_te|xt(text$|
|00001000| 2c 6e 2c 77 2c 74 2c 64 | 2c 73 2c 66 6c 61 67 73 |,n,w,t,d|,s,flags|
|00001010| 2c 73 6d 2c 6c 29 0d 03 | b6 13 20 74 65 78 74 24 |,sm,l)..|.. text$|
|00001020| 28 6e 29 3d 74 65 78 74 | 24 0d 03 c0 11 20 73 65 |(n)=text|$.... se|
|00001030| 74 74 69 6e 67 28 6e 29 | 3d 30 0d 03 ca 39 20 e7 |tting(n)|=0...9 .|
|00001040| 20 77 20 8c 20 73 65 74 | 74 69 6e 67 28 6e 29 3d | w . set|ting(n)=|
|00001050| 73 65 74 74 69 6e 67 28 | 6e 29 20 84 20 26 30 34 |setting(|n) . &04|
|00001060| 3a 66 6c 61 67 73 3d 66 | 6c 61 67 73 20 84 20 26 |:flags=f|lags . &|
|00001070| 31 30 30 0d 03 d4 26 20 | e7 20 74 20 8c 20 73 65 |100...& |. t . se|
|00001080| 74 74 69 6e 67 28 6e 29 | 3d 73 65 74 74 69 6e 67 |tting(n)|=setting|
|00001090| 28 6e 29 20 84 20 26 30 | 31 0d 03 de 26 20 e7 20 |(n) . &0|1...& . |
|000010a0| 64 20 8c 20 73 65 74 74 | 69 6e 67 28 6e 29 3d 73 |d . sett|ing(n)=s|
|000010b0| 65 74 74 69 6e 67 28 6e | 29 20 84 20 26 30 32 0d |etting(n|) . &02.|
|000010c0| 03 e8 26 20 e7 20 6c 20 | 8c 20 73 65 74 74 69 6e |..& . l |. settin|
|000010d0| 67 28 6e 29 3d 73 65 74 | 74 69 6e 67 28 6e 29 20 |g(n)=set|ting(n) |
|000010e0| 84 20 26 38 30 0d 03 f2 | 20 20 e7 20 73 20 8c 20 |. &80...|  . s . |
|000010f0| 66 6c 61 67 73 3d 66 6c | 61 67 73 20 84 20 26 34 |flags=fl|ags . &4|
|00001100| 30 90 05 0d 03 fc 13 20 | 66 6c 61 67 73 28 6e 29 |0...... |flags(n)|
|00001110| 3d 66 6c 61 67 73 0d 04 | 06 12 20 73 75 62 6d 65 |=flags..|.. subme|
|00001120| 6e 75 28 6e 29 3d 73 6d | 0d 04 10 05 e1 0d 04 1a |nu(n)=sm|........|
|00001130| 04 0d 04 24 26 dd f2 63 | 72 65 61 74 65 5f 6d 65 |...$&..c|reate_me|
|00001140| 6e 75 28 74 69 74 6c 65 | 24 2c 6e 2c 77 69 64 74 |nu(title|$,n,widt|
|00001150| 68 25 2c 78 2c 79 29 0d | 04 2e 0e 20 6d 62 25 3d |h%,x,y).|... mb%=|
|00001160| 6d 65 6e 75 25 0d 04 38 | 0c 20 6d 65 6e 75 73 3d |menu%..8|. menus=|
|00001170| 30 0d 04 42 08 20 71 3d | 30 0d 04 4c 06 20 f5 0d |0..B. q=|0..L. ..|
|00001180| 04 56 18 20 20 6d 65 6e | 75 70 6f 73 28 6d 65 6e |.V.  men|upos(men|
|00001190| 75 73 29 3d 6d 62 25 0d | 04 60 0e 20 20 6d 65 6e |us)=mb%.|.`.  men|
|000011a0| 75 73 2b 3d 31 0d 04 6a | 11 20 20 24 6d 62 25 3d |us+=1..j|.  $mb%=|
|000011b0| 74 69 74 6c 65 24 0d 04 | 74 0e 20 20 6d 62 25 3f |title$..|t.  mb%?|
|000011c0| 31 32 3d 37 0d 04 7e 0e | 20 20 6d 62 25 3f 31 33 |12=7..~.|  mb%?13|
|000011d0| 3d 32 0d 04 88 0e 20 20 | 6d 62 25 3f 31 34 3d 37 |=2....  |mb%?14=7|
|000011e0| 0d 04 92 0e 20 20 6d 62 | 25 3f 31 35 3d 30 0d 04 |....  mb|%?15=0..|
|000011f0| 9c 13 20 20 6d 62 25 21 | 31 36 3d 77 69 64 74 68 |..  mb%!|16=width|
|00001200| 25 0d 04 a6 0f 20 20 6d | 62 25 21 32 30 3d 34 30 |%....  m|b%!20=40|
|00001210| 0d 04 b0 0e 20 20 6d 62 | 25 21 32 34 3d 30 0d 04 |....  mb|%!24=0..|
|00001220| ba 14 20 20 69 74 65 6d | 70 74 72 3d 6d 62 25 2b |..  item|ptr=mb%+|
|00001230| 32 38 0d 04 c4 07 20 20 | f5 0d 04 ce 1b 20 90 03 |28....  |..... ..|
|00001240| 69 74 65 6d 70 74 72 21 | 30 3d 73 65 74 74 69 6e |itemptr!|0=settin|
|00001250| 67 28 71 29 0d 04 d8 17 | 20 90 03 72 65 66 28 71 |g(q)....| ..ref(q|
|00001260| 29 3d 69 74 65 6d 70 74 | 72 2b 34 0d 04 e2 29 20 |)=itempt|r+4...) |
|00001270| 90 03 69 74 65 6d 70 74 | 72 21 38 3d 66 6c 61 67 |..itempt|r!8=flag|
|00001280| 73 28 71 29 20 84 20 30 | 3c 3c 32 38 20 84 20 37 |s(q) . 0|<<28 . 7|
|00001290| 3c 3c 32 34 0d 04 ec 1e | 20 90 03 e7 20 28 66 6c |<<24....| ... (fl|
|000012a0| 61 67 73 28 71 29 20 80 | 20 26 31 30 30 29 3d 30 |ags(q) .| &100)=0|
|000012b0| 20 8c 0d 04 f6 1e 20 90 | 04 24 28 69 74 65 6d 70 | ..... .|.$(itemp|
|000012c0| 74 72 2b 31 32 29 3d 74 | 65 78 74 24 28 71 29 0d |tr+12)=t|ext$(q).|
|000012d0| 05 00 08 20 90 03 cc 0d | 05 0a 1a 20 90 04 70 6f |... ....|... ..po|
|000012e0| 73 3d a7 74 65 78 74 24 | 28 71 29 2c 22 28 22 29 |s=.text$|(q),"(")|
|000012f0| 0d 05 14 26 20 90 04 69 | 74 65 6d 70 74 72 21 31 |...& ..i|temptr!1|
|00001300| 32 3d a0 28 c0 74 65 78 | 74 24 28 71 29 2c 70 6f |2=.(.tex|t$(q),po|
|00001310| 73 2d 31 29 29 0d 05 1e | 15 20 90 04 69 74 65 6d |s-1))...|. ..item|
|00001320| 70 74 72 21 31 36 3d 2d | 31 0d 05 28 30 20 90 04 |ptr!16=-|1..(0 ..|
|00001330| 69 74 65 6d 70 74 72 21 | 32 30 3d a0 28 c2 74 65 |itemptr!|20=.(.te|
|00001340| 78 74 24 28 71 29 2c a9 | 28 74 65 78 74 24 28 71 |xt$(q),.|(text$(q|
|00001350| 29 29 2d 70 6f 73 29 29 | 0d 05 32 08 20 90 03 cd |))-pos))|..2. ...|
|00001360| 0d 05 3c 12 20 90 03 69 | 74 65 6d 70 74 72 2b 3d |..<. ..i|temptr+=|
|00001370| 32 34 0d 05 46 0b 20 90 | 03 71 2b 3d 31 0d 05 50 |24..F. .|.q+=1..P|
|00001380| 1e 20 20 fd 20 28 73 65 | 74 74 69 6e 67 28 71 2d |.  . (se|tting(q-|
|00001390| 31 29 20 80 20 26 38 30 | 29 3e 30 0d 05 5a 11 20 |1) . &80|)>0..Z. |
|000013a0| 20 6d 62 25 3d 69 74 65 | 6d 70 74 72 0d 05 64 23 | mb%=ite|mptr..d#|
|000013b0| 20 20 e7 20 71 3c 3e 6e | 20 8c 20 74 69 74 6c 65 |  . q<>n| . title|
|000013c0| 24 3d 74 65 78 74 24 28 | 71 29 3a 71 2b 3d 31 0d |$=text$(|q):q+=1.|
|000013d0| 05 6e 0a 20 fd 20 71 3d | 6e 0d 05 78 10 20 e3 20 |.n. . q=|n..x. . |
|000013e0| 71 3d 30 20 b8 20 6e 2d | 31 0d 05 82 29 20 20 e7 |q=0 . n-|1...)  .|
|000013f0| 20 73 75 62 6d 65 6e 75 | 28 71 29 3e 30 20 80 20 | submenu|(q)>0 . |
|00001400| 73 75 62 6d 65 6e 75 28 | 71 29 3c 6d 65 6e 75 73 |submenu(|q)<menus|
|00001410| 20 8c 0d 05 8c 22 20 90 | 03 21 72 65 66 28 71 29 | ...." .|.!ref(q)|
|00001420| 3d 6d 65 6e 75 70 6f 73 | 28 73 75 62 6d 65 6e 75 |=menupos|(submenu|
|00001430| 28 71 29 29 0d 05 96 07 | 20 20 cc 0d 05 a0 19 20 |(q))....|  ..... |
|00001440| 90 03 21 72 65 66 28 71 | 29 3d 73 75 62 6d 65 6e |..!ref(q|)=submen|
|00001450| 75 28 71 29 0d 05 aa 07 | 20 20 cd 0d 05 b4 08 20 |u(q)....|  ..... |
|00001460| ed 20 71 0d 05 be 24 20 | c8 99 20 22 57 69 6d 70 |. q...$ |.. "Wimp|
|00001470| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 6d 65 |_CreateM|enu",,me|
|00001480| 6e 75 25 2c 78 2c 79 0d | 05 c8 05 e1 0d 05 d2 04 |nu%,x,y.|........|
|00001490| 0d 05 dc 04 0d 05 e6 1c | dd 20 f2 72 65 64 72 61 |........|. .redra|
|000014a0| 77 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 29 |wwindow(|handle%)|
|000014b0| 0d 05 f0 11 20 71 25 21 | 30 3d 68 61 6e 64 6c 65 |.... q%!|0=handle|
|000014c0| 25 0d 05 fa 0d 20 6d 6f | 72 65 25 3d 2d 31 0d 06 |%.... mo|re%=-1..|
|000014d0| 04 0d 20 c8 95 20 6d 6f | 72 65 25 0d 06 0e 29 20 |.. .. mo|re%...) |
|000014e0| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 52 65 63 | .. "Wim|p_GetRec|
|000014f0| 74 61 6e 67 6c 65 22 2c | 30 2c 71 25 20 b8 20 6d |tangle",|0,q% . m|
|00001500| 6f 72 65 25 0d 06 18 06 | 20 ce 0d 06 22 05 e1 0d |ore%....| ..."...|
|00001510| 06 2c 04 0d 06 36 0e dd | f2 6b 65 79 70 72 65 73 |.,...6..|.keypres|
|00001520| 73 0d 06 40 0a 20 ea 20 | 69 63 25 0d 06 4a 11 20 |s..@. . |ic%..J. |
|00001530| e7 20 71 25 21 34 3c 3e | 2d 31 20 8c 0d 06 54 29 |. q%!4<>|-1 ...T)|
|00001540| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 |  .. "Wi|mp_GetCa|
|00001550| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2c 6d 73 |retPosit|ion",,ms|
|00001560| 67 62 6c 6b 25 0d 06 5e | 13 20 20 69 63 25 3d 6d |gblk%..^|.  ic%=m|
|00001570| 73 67 62 6c 6b 25 21 34 | 0d 06 68 10 20 20 c8 8e |sgblk%!4|..h.  ..|
|00001580| 20 71 25 21 32 34 20 ca | 0d 06 72 26 20 90 03 c9 | q%!24 .|..r& ...|
|00001590| 20 32 37 20 3a 20 c8 99 | 20 22 57 69 6d 70 5f 43 | 27 : ..| "Wimp_C|
|000015a0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 2d 31 0d 06 |reateMen|u",,-1..|
|000015b0| 7c 07 20 20 7f 0d 06 86 | 10 20 90 03 c8 8e 20 71 ||.  ....|. .... q|
|000015c0| 25 21 30 20 ca 0d 06 90 | 00 2d 20 90 04 c9 20 6d |%!0 ....|.- ... m|
|000015d0| 61 69 6e 77 25 20 20 3a | f2 6b 65 79 70 72 65 73 |ainw%  :|.keypres|
|000015e0| 73 5f 6d 61 69 6e 77 28 | 69 63 25 2c 71 25 21 32 |s_mainw(|ic%,q%!2|
|000015f0| 34 29 0d 06 9a 08 20 90 | 03 cb 0d 06 a4 07 20 20 |4).... .|......  |
|00001600| cb 0d 06 ae 06 20 cd 0d | 06 b8 05 e1 0d 06 c2 04 |..... ..|........|
|00001610| 0d 06 cc 20 dd f2 6b 65 | 79 70 72 65 73 73 5f 6d |... ..ke|ypress_m|
|00001620| 61 69 6e 77 28 69 63 6f | 6e 25 2c 6b 65 79 25 29 |ainw(ico|n%,key%)|
|00001630| 0d 06 d6 13 20 6e 65 77 | 69 63 6f 6e 25 3d 69 63 |.... new|icon%=ic|
|00001640| 6f 6e 25 0d 06 e0 0e 20 | c8 8e 20 6b 65 79 25 20 |on%.... |.. key% |
|00001650| ca 0d 06 ea 17 20 20 c9 | 20 31 33 20 20 3a f4 20 |.....  .| 13  :. |
|00001660| 3c 52 45 54 55 52 4e 3e | 0d 06 f4 2c 20 90 03 6e |<RETURN>|..., ..n|
|00001670| 65 77 69 63 6f 6e 25 2b | 3d 31 3a e7 20 6e 65 77 |ewicon%+|=1:. new|
|00001680| 69 63 6f 6e 25 3e 35 20 | 8c 20 6e 65 77 69 63 6f |icon%>5 |. newico|
|00001690| 6e 25 3d 33 0d 06 fe 1b | 20 20 c9 20 26 31 38 45 |n%=3....|  . &18E|
|000016a0| 20 3a f4 20 63 75 72 73 | 6f 72 20 64 6f 77 6e 0d | :. curs|or down.|
|000016b0| 07 08 2c 20 90 03 6e 65 | 77 69 63 6f 6e 25 2b 3d |.., ..ne|wicon%+=|
|000016c0| 31 3a e7 20 6e 65 77 69 | 63 6f 6e 25 3e 35 20 8c |1:. newi|con%>5 .|
|000016d0| 20 6e 65 77 69 63 6f 6e | 25 3d 35 0d 07 12 19 20 | newicon|%=5.... |
|000016e0| 20 c9 20 26 31 38 46 20 | 3a f4 20 63 75 72 73 6f | . &18F |:. curso|
|000016f0| 72 20 75 70 0d 07 1c 2c | 20 90 03 6e 65 77 69 63 |r up...,| ..newic|
|00001700| 6f 6e 25 2d 3d 31 3a e7 | 20 6e 65 77 69 63 6f 6e |on%-=1:.| newicon|
|00001710| 25 3c 33 20 8c 20 6e 65 | 77 69 63 6f 6e 25 3d 33 |%<3 . ne|wicon%=3|
|00001720| 0d 07 26 06 20 cb 0d 07 | 30 18 20 e7 20 69 63 6f |..&. ...|0. . ico|
|00001730| 6e 25 3c 3e 6e 65 77 69 | 63 6f 6e 25 20 8c 0d 07 |n%<>newi|con% ...|
|00001740| 3a 14 20 20 69 63 6f 6e | 25 3d 6e 65 77 69 63 6f |:.  icon|%=newico|
|00001750| 6e 25 0d 07 44 51 20 20 | f2 63 61 72 65 74 5f 73 |n%..DQ  |.caret_s|
|00001760| 65 74 70 6f 73 69 74 69 | 6f 6e 28 6d 61 69 6e 77 |etpositi|on(mainw|
|00001770| 25 2c 69 63 6f 6e 25 2c | 2d 31 2c 2d 31 2c 2d 31 |%,icon%,|-1,-1,-1|
|00001780| 2c a9 28 a4 69 63 6f 6e | 5f 67 65 74 64 61 74 61 |,.(.icon|_getdata|
|00001790| 28 71 25 2c 6d 61 69 6e | 77 25 2c 69 63 6f 6e 25 |(q%,main|w%,icon%|
|000017a0| 29 90 03 0d 07 4e 0b 20 | 20 f2 64 61 74 65 0d 07 |)....N. | .date..|
|000017b0| 58 06 20 cd 0d 07 62 05 | e1 0d 07 6c 04 0d 07 76 |X. ...b.|...l...v|
|000017c0| 04 0d 07 80 1a dd f2 69 | 6e 74 65 72 61 63 74 69 |.......i|nteracti|
|000017d0| 76 65 5f 68 65 6c 70 28 | 71 25 29 0d 07 8a 09 20 |ve_help(|q%).... |
|000017e0| ea 20 74 24 0d 07 94 0f | 20 c8 8e 20 71 25 21 33 |. t$....| .. q%!3|
|000017f0| 32 20 ca 0d 07 9e 0e 20 | 20 c9 20 6d 61 69 6e 77 |2 ..... | . mainw|
|00001800| 25 0d 07 a8 11 20 90 03 | c8 8e 20 71 25 21 33 36 |%.... ..|.. q%!36|
|00001810| 20 ca 0d 07 b2 0b 20 90 | 04 c9 20 33 0d 07 bc 5b | ..... .|.. 3...[|
|00001820| 20 90 05 74 24 3d 22 45 | 6e 74 65 72 20 74 68 65 | ..t$="E|nter the|
|00001830| 20 64 61 74 65 20 6f 66 | 20 74 68 65 20 6d 6f 6e | date of| the mon|
|00001840| 74 68 20 69 6e 20 74 68 | 69 73 20 66 69 65 6c 64 |th in th|is field|
|00001850| 20 2d 20 6e 6f 20 6e 65 | 65 64 20 74 6f 20 73 75 | - no ne|ed to su|
|00001860| 66 66 69 78 20 77 69 74 | 68 20 78 78 74 68 2c 20 |ffix wit|h xxth, |
|00001870| 65 74 63 2e 22 0d 07 c6 | 0b 20 90 04 c9 20 34 0d |etc."...|. ... 4.|
|00001880| 07 d0 52 20 90 05 74 24 | 3d 22 45 6e 74 65 72 20 |..R ..t$|="Enter |
|00001890| 74 68 65 20 6d 6f 6e 74 | 68 20 69 6e 74 6f 20 74 |the mont|h into t|
|000018a0| 68 69 73 20 66 69 65 6c | 64 20 2d 20 33 20 6c 65 |his fiel|d - 3 le|
|000018b0| 74 74 65 72 73 20 69 73 | 20 61 6c 6c 20 74 68 61 |tters is| all tha|
|000018c0| 74 20 69 73 20 72 65 71 | 75 69 72 65 64 2e 22 0d |t is req|uired.".|
|000018d0| 07 da 0b 20 90 04 c9 20 | 35 0d 07 e4 79 20 90 05 |... ... |5...y ..|
|000018e0| 74 24 3d 22 45 6e 74 65 | 72 20 74 68 65 20 79 65 |t$="Ente|r the ye|
|000018f0| 61 72 20 69 6e 74 6f 20 | 74 68 69 73 20 66 69 65 |ar into |this fie|
|00001900| 6c 64 2e 20 49 66 20 6f | 6e 6c 79 20 74 77 6f 20 |ld. If o|nly two |
|00001910| 64 69 67 69 74 73 2c 20 | 69 74 20 69 73 20 61 73 |digits, |it is as|
|00001920| 73 75 6d 65 64 20 74 6f | 20 62 65 20 32 30 74 68 |sumed to| be 20th|
|00001930| 20 63 65 6e 74 75 72 79 | 3b 20 65 2e 67 2e 20 27 | century|; e.g. '|
|00001940| 38 36 20 62 65 63 6f 6d | 65 73 20 31 39 38 36 22 |86 becom|es 1986"|
|00001950| 0d 07 ee 0b 20 90 04 c9 | 20 36 0d 07 f8 69 20 90 |.... ...| 6...i .|
|00001960| 05 74 24 3d 22 54 68 69 | 73 20 66 69 65 6c 64 20 |.t$="Thi|s field |
|00001970| 73 68 6f 77 73 20 74 68 | 65 20 64 61 79 20 6f 66 |shows th|e day of|
|00001980| 20 74 68 65 20 77 65 65 | 6b 20 6f 66 20 74 68 65 | the wee|k of the|
|00001990| 20 61 62 6f 76 65 20 64 | 61 74 65 2e 20 20 49 74 | above d|ate.  It|
|000019a0| 20 69 73 20 62 6c 61 6e | 6b 20 69 66 20 74 68 65 | is blan|k if the|
|000019b0| 20 64 61 74 65 20 69 73 | 20 69 6e 76 61 6c 69 64 | date is| invalid|
|000019c0| 22 0d 08 02 08 20 90 03 | 7f 0d 08 0c 2d 20 90 04 |".... ..|....- ..|
|000019d0| 74 24 3d 22 a9 20 31 39 | 39 33 20 41 6c 61 6e 20 |t$=". 19|93 Alan |
|000019e0| 44 6f 6e 6f 76 61 6e 20 | 2d 20 44 61 74 65 66 69 |Donovan |- Datefi|
|000019f0| 6e 64 65 72 22 0d 08 16 | 08 20 90 03 cb 0d 08 20 |nder"...|. ..... |
|00001a00| 06 20 cb 0d 08 2a 0f 20 | e7 20 74 24 3c 3e 22 22 |. ...*. |. t$<>""|
|00001a10| 20 8c 0d 08 34 10 20 20 | 71 25 21 31 32 3d 71 25 | ...4.  |q%!12=q%|
|00001a20| 21 38 0d 08 3e 10 20 20 | 71 25 21 31 36 3d 26 35 |!8..>.  |q%!16=&5|
|00001a30| 30 33 0d 08 48 14 20 20 | 24 28 71 25 2b 32 30 29 |03..H.  |$(q%+20)|
|00001a40| 3d 74 24 2b bd 30 0d 08 | 52 18 20 20 21 71 25 3d |=t$+.0..|R.  !q%=|
|00001a50| 28 32 35 2b a9 74 24 29 | 20 80 20 ac 20 33 0d 08 |(25+.t$)| . . 3..|
|00001a60| 5c 26 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |\&  .. "|Wimp_Sen|
|00001a70| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 71 25 2c |dMessage|",17,q%,|
|00001a80| 71 25 21 34 0d 08 66 05 | cd 0d 08 70 05 e1 0d 08 |q%!4..f.|...p....|
|00001a90| 7a 04 0d 08 84 4c f4 20 | 2d 90 1a 20 41 70 70 6c |z....L. |-.. Appl|
|00001aa0| 69 63 61 74 69 6f 6e 20 | 52 6f 75 74 69 6e 65 73 |ication |Routines|
|00001ab0| 20 2d 90 16 0d 08 8e 04 | 0d 08 98 12 dd a4 6e 75 | -......|......nu|
|00001ac0| 6d 74 6f 64 61 74 65 28 | 61 29 0d 08 a2 0c 20 61 |mtodate(|a).... a|
|00001ad0| 24 3d c2 c3 61 29 0d 08 | ac 0f 20 c8 8e 20 a0 28 |$=..a)..|.. .. .(|
|00001ae0| 61 24 29 20 ca 0d 08 b6 | 24 20 20 c9 20 30 2c 34 |a$) ....|$  . 0,4|
|00001af0| 2c 35 2c 36 2c 37 2c 38 | 2c 39 20 3a 20 73 75 66 |,5,6,7,8|,9 : suf|
|00001b00| 66 69 78 24 3d 22 74 68 | 22 0d 08 c0 17 20 20 c9 |fix$="th|"....  .|
|00001b10| 20 31 20 3a 73 75 66 66 | 69 78 24 3d 22 73 74 22 | 1 :suff|ix$="st"|
|00001b20| 0d 08 ca 17 20 20 c9 20 | 32 20 3a 73 75 66 66 69 |....  . |2 :suffi|
|00001b30| 78 24 3d 22 6e 64 22 0d | 08 d4 17 20 20 c9 20 33 |x$="nd".|...  . 3|
|00001b40| 20 3a 73 75 66 66 69 78 | 24 3d 22 72 64 22 0d 08 | :suffix|$="rd"..|
|00001b50| de 06 20 cb 0d 08 e8 0f | 3d c3 61 2b 73 75 66 66 |.. .....|=.a+suff|
|00001b60| 69 78 24 0d 08 f2 04 0d | 08 fc 14 dd 20 a4 66 75 |ix$.....|.... .fu|
|00001b70| 6c 6c 6d 6f 6e 74 68 28 | 61 24 29 0d 09 06 19 20 |llmonth(|a$).... |
|00001b80| c8 8e 20 a4 75 70 70 65 | 72 5f 63 61 73 65 28 61 |.. .uppe|r_case(a|
|00001b90| 24 29 20 ca 0d 09 10 18 | 20 20 c9 20 22 4a 41 4e |$) .....|  . "JAN|
|00001ba0| 22 3a 3d 22 4a 61 6e 75 | 61 72 79 22 0d 09 1a 19 |":="Janu|ary"....|
|00001bb0| 20 20 c9 20 22 46 45 42 | 22 3a 3d 22 46 65 62 72 |  . "FEB|":="Febr|
|00001bc0| 75 61 72 79 22 0d 09 24 | 16 20 20 c9 20 22 4d 41 |uary"..$|.  . "MA|
|00001bd0| 52 22 3a 3d 22 4d 61 72 | 63 68 22 0d 09 2e 16 20 |R":="Mar|ch".... |
|00001be0| 20 c9 20 22 41 50 52 22 | 3a 3d 22 41 70 72 69 6c | . "APR"|:="April|
|00001bf0| 22 0d 09 38 14 20 20 c9 | 20 22 4d 41 59 22 3a 3d |"..8.  .| "MAY":=|
|00001c00| 22 4d 61 79 22 0d 09 42 | 15 20 20 c9 20 22 4a 55 |"May"..B|.  . "JU|
|00001c10| 4e 22 3a 3d 22 4a 75 6e | 65 22 0d 09 4c 15 20 20 |N":="Jun|e"..L.  |
|00001c20| c9 20 22 4a 55 4c 22 3a | 3d 22 4a 75 6c 79 22 0d |. "JUL":|="July".|
|00001c30| 09 56 17 20 20 c9 20 22 | 41 55 47 22 3a 3d 22 41 |.V.  . "|AUG":="A|
|00001c40| 75 67 75 73 74 22 0d 09 | 60 1a 20 20 c9 20 22 53 |ugust"..|`.  . "S|
|00001c50| 45 50 22 3a 3d 22 53 65 | 70 74 65 6d 62 65 72 22 |EP":="Se|ptember"|
|00001c60| 0d 09 6a 18 20 20 c9 20 | 22 4f 43 54 22 3a 3d 22 |..j.  . |"OCT":="|
|00001c70| 4f 63 74 6f 62 65 72 22 | 0d 09 74 19 20 20 c9 20 |October"|..t.  . |
|00001c80| 22 4e 4f 56 22 3a 3d 22 | 4e 6f 76 65 6d 62 65 72 |"NOV":="|November|
|00001c90| 22 0d 09 7e 19 20 20 c9 | 20 22 44 45 43 22 3a 3d |"..~.  .| "DEC":=|
|00001ca0| 22 44 65 63 65 6d 62 65 | 72 22 0d 09 88 06 20 7f |"Decembe|r".... .|
|00001cb0| 0d 09 92 09 20 20 3d 22 | 22 0d 09 9c 06 20 cb 0d |....  ="|".... ..|
|00001cc0| 09 a6 04 0d 09 b0 1a dd | 20 a4 75 70 70 65 72 5f |........| .upper_|
|00001cd0| 63 61 73 65 28 73 74 72 | 69 6e 67 24 29 0d 09 ba |case(str|ing$)...|
|00001ce0| 0c 20 ea 20 6c 6f 6f 70 | 25 0d 09 c4 17 20 e7 20 |. . loop|%.... . |
|00001cf0| a9 28 73 74 72 69 6e 67 | 24 29 20 3e 20 30 20 8c |.(string|$) > 0 .|
|00001d00| 0d 09 ce 1e 20 20 e3 20 | 6c 6f 6f 70 25 20 3d 20 |....  . |loop% = |
|00001d10| 31 20 b8 20 a9 28 73 74 | 72 69 6e 67 24 29 0d 09 |1 . .(st|ring$)..|
|00001d20| d8 3a 20 90 03 e7 20 c1 | 73 74 72 69 6e 67 24 2c |.: ... .|string$,|
|00001d30| 6c 6f 6f 70 25 2c 31 29 | 3e 3d 22 61 22 20 80 20 |loop%,1)|>="a" . |
|00001d40| c1 73 74 72 69 6e 67 24 | 2c 6c 6f 6f 70 25 2c 31 |.string$|,loop%,1|
|00001d50| 29 3c 3d 22 7a 22 20 8c | 0d 09 e2 39 20 90 04 c1 |)<="z" .|...9 ...|
|00001d60| 73 74 72 69 6e 67 24 2c | 6c 6f 6f 70 25 2c 31 29 |string$,|loop%,1)|
|00001d70| 20 3d 20 bd 28 97 28 c1 | 73 74 72 69 6e 67 24 2c | = .(.(.|string$,|
|00001d80| 6c 6f 6f 70 25 2c 31 29 | 29 20 80 20 26 44 46 29 |loop%,1)|) . &DF)|
|00001d90| 0d 09 ec 08 20 90 03 cd | 0d 09 f6 0d 20 20 ed 20 |.... ...|....  . |
|00001da0| 6c 6f 6f 70 25 0d 0a 00 | 06 20 cd 0d 0a 0a 0c 3d |loop%...|. .....=|
|00001db0| 73 74 72 69 6e 67 24 0d | 0a 14 04 0d 0a 1e 1a dd |string$.|........|
|00001dc0| 20 a4 6d 6f 6e 74 68 5f | 74 6f 5f 6e 75 6d 62 65 | .month_|to_numbe|
|00001dd0| 72 28 61 24 29 0d 0a 28 | 0c 20 c8 8e 20 61 24 20 |r(a$)..(|. .. a$ |
|00001de0| ca 0d 0a 32 14 20 20 c9 | 20 22 4a 61 6e 75 61 72 |...2.  .| "Januar|
|00001df0| 79 22 3a 3d 31 0d 0a 3c | 15 20 20 c9 20 22 46 65 |y":=1..<|.  . "Fe|
|00001e00| 62 72 75 61 72 79 22 3a | 3d 32 0d 0a 46 12 20 20 |bruary":|=2..F.  |
|00001e10| c9 20 22 4d 61 72 63 68 | 22 3a 3d 33 0d 0a 50 12 |. "March|":=3..P.|
|00001e20| 20 20 c9 20 22 41 70 72 | 69 6c 22 3a 3d 34 0d 0a |  . "Apr|il":=4..|
|00001e30| 5a 10 20 20 c9 20 22 4d | 61 79 22 3a 3d 35 0d 0a |Z.  . "M|ay":=5..|
|00001e40| 64 11 20 20 c9 20 22 4a | 75 6e 65 22 3a 3d 36 0d |d.  . "J|une":=6.|
|00001e50| 0a 6e 11 20 20 c9 20 22 | 4a 75 6c 79 22 3a 3d 37 |.n.  . "|July":=7|
|00001e60| 0d 0a 78 13 20 20 c9 20 | 22 41 75 67 75 73 74 22 |..x.  . |"August"|
|00001e70| 3a 3d 38 0d 0a 82 16 20 | 20 c9 20 22 53 65 70 74 |:=8.... | . "Sept|
|00001e80| 65 6d 62 65 72 22 3a 3d | 39 0d 0a 8c 15 20 20 c9 |ember":=|9....  .|
|00001e90| 20 22 4f 63 74 6f 62 65 | 72 22 3a 3d 31 30 0d 0a | "Octobe|r":=10..|
|00001ea0| 96 16 20 20 c9 20 22 4e | 6f 76 65 6d 62 65 72 22 |..  . "N|ovember"|
|00001eb0| 3a 3d 31 31 0d 0a a0 16 | 20 20 c9 20 22 44 65 63 |:=11....|  . "Dec|
|00001ec0| 65 6d 62 65 72 22 3a 3d | 31 32 0d 0a aa 06 20 7f |ember":=|12.... .|
|00001ed0| 0d 0a b4 08 20 20 3d 30 | 0d 0a be 06 20 cb 0d 0a |....  =0|.... ...|
|00001ee0| c8 04 0d 0a d2 04 0d 0a | dc 04 0d 0a e6 0b dd 20 |........|....... |
|00001ef0| f2 64 61 74 65 0d 0a f0 | 0d 20 76 61 6c 69 64 25 |.date...|. valid%|
|00001f00| 3d b9 0d 0a fa 04 0d 0b | 04 10 20 f4 20 31 73 74 |=.......|.. . 1st|
|00001f10| 20 69 63 6f 6e 3a 0d 0b | 0e 22 20 61 24 3d a4 69 | icon:..|." a$=.i|
|00001f20| 63 6f 6e 5f 67 65 74 64 | 61 74 61 28 71 25 2c 6d |con_getd|ata(q%,m|
|00001f30| 61 69 6e 77 25 2c 33 29 | 0d 0b 18 0d 20 63 6f 75 |ainw%,3)|.... cou|
|00001f40| 6e 74 25 3d 30 0d 0b 22 | 06 20 f5 0d 0b 2c 0f 20 |nt%=0.."|. ...,. |
|00001f50| 20 63 6f 75 6e 74 25 2b | 3d 31 0d 0b 36 1c 20 20 | count%+|=1..6.  |
|00001f60| 63 68 61 72 25 3d 97 28 | c1 61 24 2c 63 6f 75 6e |char%=.(|.a$,coun|
|00001f70| 74 25 2c 31 29 29 0d 0b | 40 1a 20 fd 20 63 68 61 |t%,1))..|@. . cha|
|00001f80| 72 25 3c 34 38 20 84 20 | 63 68 61 72 25 3e 35 37 |r%<48 . |char%>57|
|00001f90| 0d 0b 4a 15 20 61 24 3d | c0 61 24 2c 63 6f 75 6e |..J. a$=|.a$,coun|
|00001fa0| 74 25 2d 31 29 0d 0b 54 | 0e 20 e7 20 61 24 3d 22 |t%-1)..T|. . a$="|
|00001fb0| 22 20 8c 0d 0b 5e 0e 20 | 20 76 61 6c 69 64 25 3d |" ...^. | valid%=|
|00001fc0| a3 0d 0b 68 06 20 cc 0d | 0b 72 1b 20 20 e7 20 a0 |...h. ..|.r.  . .|
|00001fd0| 28 61 24 29 3e 33 31 20 | 8c 20 76 61 6c 69 64 25 |(a$)>31 |. valid%|
|00001fe0| 3d a3 0d 0b 7c 06 20 cd | 0d 0b 86 04 0d 0b 90 00 |=...|. .|........|
|00001ff0| 10 20 f4 20 32 6e 64 20 | 69 63 6f 6e 3a 0d 0b 9a |. . 2nd |icon:...|
|00002000| 08 20 4d 3d 30 0d 0b a4 | 22 20 62 24 3d a4 69 63 |. M=0...|" b$=.ic|
|00002010| 6f 6e 5f 67 65 74 64 61 | 74 61 28 71 25 2c 6d 61 |on_getda|ta(q%,ma|
|00002020| 69 6e 77 25 2c 34 29 0d | 0b ae 13 20 e7 20 97 28 |inw%,4).|... . .(|
|00002030| c0 62 24 29 29 3c 35 37 | 20 8c 0d 0b b8 0e 20 20 |.b$))<57| .....  |
|00002040| 63 6f 75 6e 74 25 3d 30 | 0d 0b c2 07 20 20 f5 0d |count%=0|....  ..|
|00002050| 0b cc 10 20 90 03 63 6f | 75 6e 74 25 2b 3d 31 0d |... ..co|unt%+=1.|
|00002060| 0b d6 1d 20 90 03 63 68 | 61 72 25 3d 97 28 c1 62 |... ..ch|ar%=.(.b|
|00002070| 24 2c 63 6f 75 6e 74 25 | 2c 31 29 29 0d 0b e0 1b |$,count%|,1))....|
|00002080| 20 20 fd 20 63 68 61 72 | 25 3c 34 38 20 84 20 63 |  . char|%<48 . c|
|00002090| 68 61 72 25 3e 35 37 0d | 0b ea 16 20 20 62 24 3d |har%>57.|...  b$=|
|000020a0| c0 62 24 2c 63 6f 75 6e | 74 25 2d 31 29 0d 0b f4 |.b$,coun|t%-1)...|
|000020b0| 0f 20 20 e7 20 62 24 3d | 22 22 20 8c 0d 0b fe 0f |.  . b$=|"" .....|
|000020c0| 20 90 03 76 61 6c 69 64 | 25 3d a3 0d 0c 08 07 20 | ..valid|%=..... |
|000020d0| 20 cc 0d 0c 12 26 20 90 | 03 e7 20 a0 28 62 24 29 | ....& .|.. .(b$)|
|000020e0| 3e 31 32 20 8c 20 76 61 | 6c 69 64 25 3d a3 20 8b |>12 . va|lid%=. .|
|000020f0| 20 4d 3d bb 28 62 24 29 | 0d 0c 1c 07 20 20 cd 0d | M=.(b$)|....  ..|
|00002100| 0c 26 06 20 cc 0d 0c 30 | 1b 20 20 62 24 3d a4 66 |.&. ...0|.  b$=.f|
|00002110| 75 6c 6c 6d 6f 6e 74 68 | 28 c0 62 24 2c 33 29 29 |ullmonth|(.b$,3))|
|00002120| 0d 0c 3a 17 20 20 e7 20 | 62 24 3d 22 22 20 8c 20 |..:.  . |b$="" . |
|00002130| 76 61 6c 69 64 3d a3 0d | 0c 44 06 20 cd 0d 0c 4e |valid=..|.D. ...N|
|00002140| 04 0d 0c 58 10 20 f4 20 | 33 72 64 20 69 63 6f 6e |...X. . |3rd icon|
|00002150| 3a 0d 0c 62 22 20 63 24 | 3d a4 69 63 6f 6e 5f 67 |:..b" c$|=.icon_g|
|00002160| 65 74 64 61 74 61 28 71 | 25 2c 6d 61 69 6e 77 25 |etdata(q|%,mainw%|
|00002170| 2c 35 29 0d 0c 6c 19 20 | e7 20 a9 63 24 3d 32 20 |,5)..l. |. .c$=2 |
|00002180| 8c 20 63 24 3d 22 31 39 | 22 2b 63 24 0d 0c 76 1f |. c$="19|"+c$..v.|
|00002190| 20 e7 20 a9 63 24 3e 34 | 20 84 20 a9 63 24 3c 33 | . .c$>4| . .c$<3|
|000021a0| 20 8c 20 76 61 6c 69 64 | 25 3d a3 0d 0c 80 15 20 | . valid|%=..... |
|000021b0| e3 20 63 6f 75 6e 74 25 | 3d 31 20 b8 20 a9 63 24 |. count%|=1 . .c$|
|000021c0| 0d 0c 8a 1c 20 20 63 68 | 61 72 25 3d 97 28 c1 63 |....  ch|ar%=.(.c|
|000021d0| 24 2c 63 6f 75 6e 74 25 | 2c 31 29 29 0d 0c 94 26 |$,count%|,1))...&|
|000021e0| 20 20 e7 20 63 68 61 72 | 25 3c 34 38 20 84 20 63 |  . char|%<48 . c|
|000021f0| 68 61 72 25 3e 35 37 20 | 8c 20 76 61 6c 69 64 25 |har%>57 |. valid%|
|00002200| 3d a3 0d 0c 9e 0d 20 ed | 20 63 6f 75 6e 74 25 0d |=..... .| count%.|
|00002210| 0c a8 04 0d 0c b2 0f 20 | e7 20 76 61 6c 69 64 25 |....... |. valid%|
|00002220| 20 8c 0d 0c bc 0b 20 20 | 59 3d a0 63 24 0d 0c c6 | .....  |Y=.c$...|
|00002230| 24 20 20 e7 20 4d 3d 30 | 20 8c 20 4d 3d a4 6d 6f |$  . M=0| . M=.mo|
|00002240| 6e 74 68 5f 74 6f 5f 6e | 75 6d 62 65 72 28 62 24 |nth_to_n|umber(b$|
|00002250| 29 0d 0c d0 0b 20 20 44 | 3d a0 61 24 0d 0c da 2e |)....  D|=.a$....|
|00002260| 20 20 e7 20 28 59 20 83 | 20 34 29 3d 30 20 80 20 |  . (Y .| 4)=0 . |
|00002270| 28 59 20 83 20 31 30 30 | 29 3c 3e 30 20 80 20 4d |(Y . 100|)<>0 . M|
|00002280| 3c 33 20 8c 20 4d 2b 3d | 31 32 0d 0c e4 3c 20 20 |<3 . M+=|12...<  |
|00002290| 64 24 3d 64 61 79 24 28 | 28 59 2b a8 28 59 2f 34 |d$=day$(|(Y+.(Y/4|
|000022a0| 29 2d a8 28 59 2f 31 30 | 30 29 2b a8 28 59 2f 34 |)-.(Y/10|0)+.(Y/4|
|000022b0| 30 30 29 2b 6d 6f 6e 74 | 68 28 4d 29 2b 44 2d 32 |00)+mont|h(M)+D-2|
|000022c0| 29 20 83 20 37 29 0d 0c | ee 0f 20 20 64 24 2b 3d |) . 7)..|..  d$+=|
|000022d0| 22 64 61 79 22 0d 0c f8 | 06 20 cc 0d 0d 02 0b 20 |"day"...|. ..... |
|000022e0| 20 64 24 3d 22 22 0d 0d | 0c 06 20 cd 0d 0d 16 47 | d$=""..|.. ....G|
|000022f0| 20 e7 20 64 24 3c 3e a4 | 69 63 6f 6e 5f 67 65 74 | . d$<>.|icon_get|
|00002300| 64 61 74 61 28 71 25 2c | 6d 61 69 6e 77 25 2c 36 |data(q%,|mainw%,6|
|00002310| 29 20 8c 20 f2 69 63 6f | 6e 5f 70 75 74 64 61 74 |) . .ico|n_putdat|
|00002320| 61 28 71 25 2c 6d 61 69 | 6e 77 25 2c 36 2c 64 24 |a(q%,mai|nw%,6,d$|
|00002330| 2c 31 29 0d 0d 20 05 e1 | 0d 0d 2a 04 0d 0d 34 04 |,1).. ..|..*...4.|
|00002340| 0d 0d 3e 04 0d 0d 48 4c | f4 20 2d 90 17 20 57 49 |..>...HL|. -.. WI|
|00002350| 4d 50 20 4c 69 62 72 61 | 72 79 20 52 6f 75 74 69 |MP Libra|ry Routi|
|00002360| 6e 65 73 20 2d 90 18 0d | 0d 52 04 0d 0d 5c 04 0d |nes -...|.R...\..|
|00002370| 0d 66 26 dd f2 6f 70 65 | 6e 77 69 6e 64 6f 77 28 |.f&..ope|nwindow(|
|00002380| 68 61 6e 64 6c 65 25 2c | 66 75 6c 6c 25 2c 66 72 |handle%,|full%,fr|
|00002390| 6f 6e 74 25 29 0d 0d 70 | 10 71 25 21 30 3d 68 61 |ont%)..p|.q%!0=ha|
|000023a0| 6e 64 6c 65 25 0d 0d 7a | 2d e7 20 ac 20 66 75 6c |ndle%..z|-. . ful|
|000023b0| 6c 25 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |l% . .. |"Wimp_Ge|
|000023c0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 30 2c |tWindowS|tate",0,|
|000023d0| 71 25 0d 0d 84 17 e7 20 | 66 72 6f 6e 74 25 20 8c |q%..... |front% .|
|000023e0| 20 71 25 21 32 38 3d 2d | 31 0d 0d 8e 1d c8 99 20 | q%!28=-|1...... |
|000023f0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00002400| 22 2c 30 2c 71 25 0d 0d | 98 05 e1 0d 0d a2 04 0d |",0,q%..|........|
|00002410| 0d ac 1a dd f2 63 6c 6f | 73 65 77 69 6e 64 6f 77 |.....clo|sewindow|
|00002420| 28 68 61 6e 64 6c 65 25 | 29 0d 0d b6 11 20 71 25 |(handle%|).... q%|
|00002430| 21 30 3d 68 61 6e 64 6c | 65 25 0d 0d c0 1f 20 c8 |!0=handl|e%.... .|
|00002440| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00002450| 64 6f 77 22 2c 30 2c 71 | 25 0d 0d ca 10 20 63 6c |dow",0,q|%.... cl|
|00002460| 6f 73 65 64 6f 77 6e 3d | b9 0d 0d d4 05 e1 0d 0d |osedown=|........|
|00002470| de 04 0d 0d e8 11 dd a4 | 70 6f 6c 6c 28 6d 61 73 |........|poll(mas|
|00002480| 6b 25 29 0d 0d f2 20 c8 | 99 20 22 57 69 6d 70 5f |k%)... .|. "Wimp_|
|00002490| 50 6f 6c 6c 22 2c 6d 61 | 73 6b 25 2c 71 25 20 b8 |Poll",ma|sk%,q% .|
|000024a0| 20 61 25 0d 0d fc 07 3d | 61 25 0d 0e 06 04 0d 0e | a%....=|a%......|
|000024b0| 10 13 dd f2 61 63 74 69 | 6f 6e 28 65 76 6e 74 25 |....acti|on(evnt%|
|000024c0| 29 0d 0e 1a 0f 20 c8 8e | 20 65 76 6e 74 25 20 ca |).... ..| evnt% .|
|000024d0| 0d 0e 24 1d 20 20 c9 20 | 31 3a f2 72 65 64 72 61 |..$.  . |1:.redra|
|000024e0| 77 77 69 6e 64 6f 77 28 | 71 25 21 30 29 0d 0e 2e |wwindow(|q%!0)...|
|000024f0| 1f 20 20 c9 20 32 3a f2 | 6f 70 65 6e 77 69 6e 64 |.  . 2:.|openwind|
|00002500| 6f 77 28 71 25 21 30 2c | b9 2c 30 29 0d 0e 38 1c |ow(q%!0,|.,0)..8.|
|00002510| 20 20 c9 20 33 3a f2 63 | 6c 6f 73 65 77 69 6e 64 |  . 3:.c|losewind|
|00002520| 6f 77 28 71 25 21 30 29 | 0d 0e 42 37 20 20 c9 20 |ow(q%!0)|..B7  . |
|00002530| 36 3a f2 63 6c 69 63 6b | 77 69 6e 64 6f 77 28 21 |6:.click|window(!|
|00002540| 71 25 2c 71 25 21 34 2c | 71 25 21 38 2c 71 25 21 |q%,q%!4,|q%!8,q%!|
|00002550| 31 32 2c 71 25 21 31 36 | 2c 71 25 21 32 30 29 0d |12,q%!16|,q%!20).|
|00002560| 0e 4c 13 20 20 c9 20 38 | 3a f2 6b 65 79 70 72 65 |.L.  . 8|:.keypre|
|00002570| 73 73 0d 0e 56 31 20 20 | c9 20 39 3a e7 20 63 6c |ss..V1  |. 9:. cl|
|00002580| 61 69 6d 6d 65 6e 75 24 | 3c 3e 22 22 20 80 20 71 |aimmenu$|<>"" . q|
|00002590| 25 21 30 3d 31 20 8c 20 | 63 6c 6f 73 65 64 6f 77 |%!0=1 . |closedow|
|000025a0| 6e 3d b9 0d 0e 60 1a 20 | 20 c9 20 31 37 2c 31 38 |n=...`. | . 17,18|
|000025b0| 3a f2 72 65 63 65 69 76 | 65 28 71 25 29 0d 0e 6a |:.receiv|e(q%)..j|
|000025c0| 06 20 cb 0d 0e 74 05 e1 | 0d 0e 7e 04 0d 0e 88 11 |. ...t..|..~.....|
|000025d0| dd f2 72 65 63 65 69 76 | 65 28 71 25 29 0d 0e 92 |..receiv|e(q%)...|
|000025e0| 0f 20 c8 8e 20 71 25 21 | 31 36 20 ca 0d 0e 9c 19 |. .. q%!|16 .....|
|000025f0| 20 20 c9 20 30 20 90 04 | 3a 63 6c 6f 73 65 64 6f |  . 0 ..|:closedo|
|00002600| 77 6e 3d b9 0d 0e a6 23 | 20 20 c9 20 26 35 30 32 |wn=....#|  . &502|
|00002610| 20 3a f2 69 6e 74 65 72 | 61 63 74 69 76 65 5f 68 | :.inter|active_h|
|00002620| 65 6c 70 28 71 25 29 0d | 0e b0 06 20 cb 0d 0e ba |elp(q%).|... ....|
|00002630| 05 e1 0d 0e c4 04 0d 0e | ce 26 dd f2 69 63 6f 6e |........|.&..icon|
|00002640| 5f 70 75 74 64 61 74 61 | 28 62 2c 77 68 25 2c 69 |_putdata|(b,wh%,i|
|00002650| 68 25 2c 74 65 78 74 24 | 2c 72 64 29 0d 0e d8 13 |h%,text$|,rd)....|
|00002660| 62 21 30 3d 77 68 25 3a | 62 21 34 3d 69 68 25 0d |b!0=wh%:|b!4=ih%.|
|00002670| 0e e2 1d c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..... "W|imp_GetI|
|00002680| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 0d 0e ec 1b |conState|",,b....|
|00002690| c8 99 20 22 57 69 6d 70 | 5f 44 65 6c 65 74 65 49 |.. "Wimp|_DeleteI|
|000026a0| 63 6f 6e 22 2c 2c 62 0d | 0e f6 1e 62 21 34 3d 77 |con",,b.|...b!4=w|
|000026b0| 68 25 3a 24 28 62 21 32 | 38 29 3d 74 65 78 74 24 |h%:$(b!2|8)=text$|
|000026c0| 3a 62 2b 3d 34 0d 0f 00 | 1b c8 99 20 22 57 69 6d |:b+=4...|... "Wim|
|000026d0| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 2c 62 |p_Create|Icon",,b|
|000026e0| 0d 0f 0a 36 e7 20 72 64 | 20 8c 20 c8 99 20 22 57 |...6. rd| . .. "W|
|000026f0| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|00002700| 2c 62 21 30 2c 62 21 34 | 2c 62 21 38 2c 62 21 31 |,b!0,b!4|,b!8,b!1|
|00002710| 32 2c 62 21 31 36 0d 0f | 14 08 62 2d 3d 34 0d 0f |2,b!16..|..b-=4..|
|00002720| 1e 05 e1 0d 0f 28 04 0d | 0f 32 28 dd a4 69 63 6f |.....(..|.2(..ico|
|00002730| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 77 68 61 |n_getdat|a(q%,wha|
|00002740| 6e 64 6c 65 25 2c 69 68 | 61 6e 64 6c 65 25 29 0d |ndle%,ih|andle%).|
|00002750| 0f 3c 11 71 25 21 30 3d | 77 68 61 6e 64 6c 65 25 |.<.q%!0=|whandle%|
|00002760| 0d 0f 46 11 71 25 21 34 | 3d 69 68 61 6e 64 6c 65 |..F.q%!4|=ihandle|
|00002770| 25 0d 0f 50 1e c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..P... |"Wimp_Ge|
|00002780| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00002790| 0f 5a 0d 3d 24 28 71 25 | 21 32 38 29 0d 0f 64 04 |.Z.=$(q%|!28)..d.|
|000027a0| 0d 0f 6e 45 dd f2 63 61 | 72 65 74 5f 73 65 74 70 |..nE..ca|ret_setp|
|000027b0| 6f 73 69 74 69 6f 6e 28 | 77 68 61 6e 64 6c 65 25 |osition(|whandle%|
|000027c0| 2c 69 68 61 6e 64 6c 65 | 25 2c 78 6f 66 66 25 2c |,ihandle|%,xoff%,|
|000027d0| 79 6f 66 66 25 2c 68 65 | 69 67 68 74 25 2c 69 6e |yoff%,he|ight%,in|
|000027e0| 64 65 78 25 29 0d 0f 78 | 4b c8 99 20 22 57 69 6d |dex%)..x|K.. "Wim|
|000027f0| 70 5f 53 65 74 43 61 72 | 65 74 50 6f 73 69 74 69 |p_SetCar|etPositi|
|00002800| 6f 6e 22 2c 77 68 61 6e | 64 6c 65 25 2c 69 68 61 |on",whan|dle%,iha|
|00002810| 6e 64 6c 65 25 2c 78 6f | 66 66 25 2c 79 6f 66 66 |ndle%,xo|ff%,yoff|
|00002820| 25 2c 68 65 69 67 68 74 | 25 2c 69 6e 64 65 78 25 |%,height|%,index%|
|00002830| 0d 0f 82 05 e1 0d 0f 8c | 04 0d 0f 96 0d dd f2 6e |........|.......n|
|00002840| 65 77 76 61 6c 73 0d 0f | a0 17 67 74 78 3d 71 25 |ewvals..|..gtx=q%|
|00002850| 21 33 36 3a 67 74 79 3d | 71 25 21 34 30 0d 0f aa |!36:gty=|q%!40...|
|00002860| 15 77 62 78 3d 71 25 21 | 34 3a 77 62 79 3d 71 25 |.wbx=q%!|4:wby=q%|
|00002870| 21 38 0d 0f b4 17 77 74 | 78 3d 71 25 21 31 32 3a |!8....wt|x=q%!12:|
|00002880| 77 74 79 3d 71 25 21 31 | 36 0d 0f be 17 78 73 63 |wty=q%!1|6....xsc|
|00002890| 3d 71 25 21 32 30 3a 79 | 73 63 3d 71 25 21 32 34 |=q%!20:y|sc=q%!24|
|000028a0| 0d 0f c8 21 68 70 3d 77 | 74 78 2d 77 62 78 3a 76 |...!hp=w|tx-wbx:v|
|000028b0| 70 3d 77 74 79 2d 77 62 | 79 3a 65 62 78 3d 78 73 |p=wty-wb|y:ebx=xs|
|000028c0| 63 0d 0f d2 21 65 74 78 | 3d 78 73 63 2b 68 70 3a |c...!etx|=xsc+hp:|
|000028d0| 65 74 79 3d 79 73 63 3a | 65 62 79 3d 79 73 63 2d |ety=ysc:|eby=ysc-|
|000028e0| 76 70 0d 0f dc 05 e1 0d | 0f e6 04 0d 0f f0 19 dd |vp......|........|
|000028f0| f2 6c 6f 61 64 74 65 6d | 70 6c 61 74 65 28 6e 61 |.loadtem|plate(na|
|00002900| 6d 65 24 29 0d 0f fa 14 | 20 ea 20 74 79 70 65 25 |me$)....| . type%|
|00002910| 2c 70 6f 73 25 2c 78 25 | 0d 10 04 4d 20 c8 99 20 |,pos%,x%|...M .. |
|00002920| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00002930| 74 65 22 2c 2c 71 25 2c | 69 70 74 72 25 2c 69 65 |te",,q%,|iptr%,ie|
|00002940| 6e 64 25 2c 2d 31 2c 6e | 61 6d 65 24 2c 30 20 b8 |nd%,-1,n|ame$,0 .|
|00002950| 20 74 79 70 65 25 2c 2c | 69 70 74 72 25 2c 90 04 | type%,,|iptr%,..|
|00002960| 70 6f 73 25 0d 10 0e 05 | e1 0d ff 46 69 6c 65 44 |pos%....|...FileD|
|00002970| 61 74 61 83 21 53 70 72 | 69 74 65 73 00 6f 67 e0 |ata.!Spr|ites.og.|
|00002980| 04 00 00 44 f9 ff ff e2 | 90 05 7e 03 00 ec 0c 02 |...D....|..~.....|
|00002990| 00 90 03 10 00 90 03 e4 | 04 00 00 54 03 00 00 21 |........|...T...!|
|000029a0| 64 61 74 65 73 00 90 06 | 04 00 90 03 10 00 90 07 |dates...|........|
|000029b0| 07 00 90 03 ac 00 90 04 | 02 00 00 0c 00 90 04 ff |........|........|
|000029c0| 90 03 00 ff 90 03 00 dd | 90 03 00 dd 90 03 00 bb |........|........|
|000029d0| 90 03 00 bb 90 03 00 99 | 90 03 00 99 90 03 00 77 |........|.......w|
|000029e0| 90 03 00 77 90 03 00 55 | 90 03 00 55 90 03 00 33 |...w...U|...U...3|
|000029f0| 90 03 00 33 90 03 00 90 | 0a 44 99 00 00 44 99 00 |...3....|.D...D..|
|00002a00| ee ee 00 00 ee ee 00 90 | 03 cc 00 90 03 cc 00 00 |........|........|
|00002a10| dd 00 90 03 dd 00 90 03 | ee ee bb 00 ee ee bb 00 |........|........|
|00002a20| 55 88 00 00 55 88 00 00 | ff bb 00 00 ff bb 00 90 |U...U...|........|
|00002a30| 03 bb ff 00 00 bb ff 00 | 90 0f 10 00 44 00 90 0f |........|....D...|
|00002a40| 10 53 34 00 44 00 90 0e | 20 54 13 00 00 44 00 00 |.S4.D...| T...D..|
|00002a50| 20 67 33 77 90 06 02 00 | 00 64 03 00 90 03 44 00 | g3w....|.d....D.|
|00002a60| 00 10 64 25 55 90 05 67 | 00 00 62 15 00 90 04 44 |..d%U..g|..b....D|
|00002a70| 00 90 03 50 03 00 90 04 | 20 26 00 20 67 00 90 05 |...P....| &. g...|
|00002a80| 44 00 00 10 34 00 90 05 | 61 03 00 72 26 00 11 01 |D...4...|a..r&...|
|00002a90| 00 00 44 00 00 10 01 00 | 90 05 54 00 00 75 03 54 |..D.....|..T..u.T|
|00002aa0| 65 67 02 00 44 00 90 08 | 20 16 00 10 77 01 01 00 |eg..D...| ...w...|
|00002ab0| 72 57 00 44 00 90 08 61 | 03 00 20 67 01 00 00 30 |rW.D...a|.. g...0|
|00002ac0| 77 01 44 00 90 08 44 00 | 00 20 67 01 00 00 10 77 |w.D...D.|. g....w|
|00002ad0| 03 44 00 90 07 20 16 00 | 00 10 76 03 00 00 10 77 |.D... ..|..v....w|
|00002ae0| 02 44 00 90 07 61 02 00 | 90 03 73 16 00 00 20 77 |.D...a..|..s... w|
|00002af0| 01 44 00 90 07 45 00 90 | 04 40 67 00 00 61 26 00 |.D...E..|.@g..a&.|
|00002b00| 44 00 90 06 10 16 00 90 | 05 42 36 43 46 01 00 44 |D.......|.B6CF..D|
|00002b10| 00 90 06 30 02 00 90 06 | 10 11 00 90 03 44 00 90 |...0....|.....D..|
|00002b20| 13 44 00 90 11 f0 00 ff | 00 90 0f f0 ff ff 00 ff |.D......|........|
|00002b30| 00 90 0e f0 ff ff 00 00 | ff 00 00 f0 ff 90 08 0f |........|........|
|00002b40| 00 00 ff 0f 00 90 03 ff | 00 00 f0 ff 90 08 00 00 |........|........|
|00002b50| ff ff 00 90 04 ff 00 90 | 03 f0 0f 00 90 04 f0 ff |........|........|
|00002b60| 00 f0 ff 00 90 05 ff 00 | 00 f0 ff 00 90 05 ff 0f |........|........|
|00002b70| 00 ff ff 00 ff 0f 00 00 | ff 00 00 f0 0f 00 90 05 |........|........|
|00002b80| ff 00 00 ff 0f ff 90 03 | 0f 00 ff 00 90 08 f0 ff |........|........|
|00002b90| 00 f0 ff 0f 0f 00 ff ff | 00 ff 00 90 08 ff 0f 00 |........|........|
|00002ba0| f0 ff 0f 00 00 f0 ff 0f | ff 00 90 08 ff 00 00 f0 |........|........|
|00002bb0| ff 0f 00 00 f0 ff 0f ff | 00 90 07 f0 ff 00 00 f0 |........|........|
|00002bc0| ff 0f 00 00 f0 ff 0f ff | 00 90 07 ff 0f 00 90 03 |........|........|
|00002bd0| ff ff 00 00 f0 ff 0f ff | 00 90 07 ff 00 90 04 f0 |........|........|
|00002be0| ff 00 00 ff ff 00 ff 00 | 90 06 f0 ff 00 90 05 ff |........|........|
|00002bf0| 90 04 0f 00 ff 00 90 06 | f0 0f 00 90 06 f0 ff 00 |........|........|
|00002c00| 90 03 ff 00 90 13 ff 00 | 00 80 01 00 00 69 63 5f |........|.....ic_|
|00002c10| 64 61 74 65 73 00 90 04 | 04 00 90 03 10 00 90 07 |dates...|........|
|00002c20| 07 00 90 03 2c 00 90 03 | 2c 00 90 03 0c 00 90 03 |....,...|,.......|
|00002c30| 77 90 11 00 90 03 27 72 | 22 17 11 11 44 90 06 14 |w.....'r|"...D...|
|00002c40| 11 11 27 72 00 90 03 77 | 90 11 00 90 03 17 11 90 |..'r...w|........|
|00002c50| 0e 27 72 00 90 03 17 11 | 90 0e 77 77 00 90 03 17 |.'r.....|..ww....|
|00002c60| 11 90 0e 17 71 00 90 03 | 17 11 90 09 57 13 11 90 |....q...|....W...|
|00002c70| 03 37 73 00 90 03 17 11 | 71 21 76 77 90 03 11 61 |.7s.....|q!vw...a|
|00002c80| 11 90 05 37 73 00 00 77 | 17 11 71 11 17 11 11 72 |...7s..w|..q....r|
|00002c90| 21 16 11 90 05 37 73 00 | 00 77 17 11 90 06 17 71 |!....7s.|.w.....q|
|00002ca0| 77 66 11 90 04 37 73 00 | 90 03 17 11 90 05 61 11 |wf...7s.|......a.|
|00002cb0| 62 11 31 17 11 90 03 17 | 71 00 90 03 17 11 90 05 |b.1.....|q.......|
|00002cc0| 17 11 71 11 11 17 11 90 | 03 17 71 00 90 03 17 11 |..q.....|..q.....|
|00002cd0| 90 04 71 17 11 41 76 67 | 12 11 90 03 77 77 00 90 |..q..Avg|....ww..|
|00002ce0| 03 17 11 90 04 31 11 90 | 09 27 72 00 90 03 17 11 |.....1..|.'r.....|
|00002cf0| 90 0e 77 77 00 90 03 17 | 11 90 0e 27 72 00 90 03 |..ww....|...'r...|
|00002d00| 77 90 11 00 90 03 46 69 | 6c 65 44 61 74 61 82 31 |w.....Fi|leData.1|
|00002d10| 2d 4c 69 6e 65 00 50 72 | 6f 67 f4 00 00 00 44 fb |-Line.Pr|og....D.|
|00002d20| ff ff b3 be 7d 45 03 00 | 3a 2a 0d 00 0a f2 de 6d |....}E..|:*.....m|
|00002d30| 6f 6e 74 68 28 31 34 29 | 2c 64 61 79 24 28 36 29 |onth(14)|,day$(6)|
|00002d40| 3a 6d 6f 6e 74 68 28 29 | 3d 30 2c 30 2c 33 2c 33 |:month()|=0,0,3,3|
|00002d50| 2c 36 2c 31 2c 34 2c 36 | 2c 32 2c 35 2c 30 2c 33 |,6,1,4,6|,2,5,0,3|
|00002d60| 2c 35 2c 36 2c 32 3a 64 | 61 79 24 28 29 3d 22 4d |,5,6,2:d|ay$()="M|
|00002d70| 6f 6e 22 2c 22 54 75 65 | 73 22 2c 22 57 65 64 6e |on","Tue|s","Wedn|
|00002d80| 65 73 22 2c 22 54 68 75 | 72 73 22 2c 22 46 72 69 |es","Thu|rs","Fri|
|00002d90| 22 2c 22 53 61 74 75 72 | 22 2c 22 53 75 6e 22 3a |","Satur|","Sun":|
|00002da0| e8 22 59 65 61 72 20 22 | 59 3a e8 22 4d 6f 6e 74 |."Year "|Y:."Mont|
|00002db0| 68 20 22 4d 3a e8 22 44 | 61 79 20 22 44 3a 4d 2d |h "M:."D|ay "D:M-|
|00002dc0| 3d 31 32 2a 28 28 59 20 | 83 34 29 3d 30 80 28 59 |=12*((Y |.4)=0.(Y|
|00002dd0| 20 83 31 30 30 29 3c 3e | 30 80 4d 3c 33 29 3a f1 | .100)<>|0.M<3):.|
|00002de0| 64 61 79 24 28 28 59 2b | a8 28 59 2f 34 29 2d a8 |day$((Y+|.(Y/4)-.|
|00002df0| 28 59 2f 31 30 30 29 2b | a8 28 59 2f 34 30 30 29 |(Y/100)+|.(Y/400)|
|00002e00| 2b 6d 6f 6e 74 68 28 4d | 29 2b 44 2d 32 29 20 83 |+month(M|)+D-2) .|
|00002e10| 37 29 3b 22 64 61 79 22 | 3a f1 3a f9 0d ff 46 69 |7);"day"|:.:...Fi|
|00002e20| 6c 65 44 61 74 61 83 54 | 65 6d 70 6c 61 74 65 73 |leData.T|emplates|
|00002e30| 00 67 8b 03 00 00 44 ec | ff ff d1 48 8e 7e 03 00 |.g....D.|...H.~..|
|00002e40| 24 60 ff 90 04 00 90 0c | 44 00 90 03 5c 01 00 00 |$`......|D...\...|
|00002e50| 01 00 90 03 6d 61 69 6e | 77 0d 00 90 06 a0 01 00 |....main|w.......|
|00002e60| 00 eb 01 00 00 01 00 90 | 03 70 72 6f 67 49 6e 66 |........|.progInf|
|00002e70| 6f 0d 00 90 07 b8 01 00 | 00 ac 01 00 00 4c 03 00 |o.......|.....L..|
|00002e80| 00 a4 02 00 00 72 00 90 | 03 d0 ff 90 03 85 c4 83 |.....r..|........|
|00002e90| 01 13 00 01 07 07 02 07 | 01 03 01 0c 00 90 06 fc |........|........|
|00002ea0| ff ff 00 05 00 90 06 3d | 00 90 04 30 00 00 01 00 |.......=|...0....|
|00002eb0| 90 07 44 61 79 66 69 6e | 64 65 72 0d 0d 65 08 00 |..Dayfin|der..e..|
|00002ec0| 90 03 94 00 90 03 94 ff | 90 03 f2 00 90 03 b4 ff |........|........|
|00002ed0| 90 03 11 60 00 c7 44 61 | 74 65 3a 0d 6c 65 64 3e |...`..Da|te:.led>|
|00002ee0| 0d 7f 84 00 90 03 60 ff | 90 03 f2 00 90 03 88 ff |......`.|........|
|00002ef0| 90 03 11 60 00 c7 4d 6f | 6e 74 68 3a 0d 65 64 3e |...`..Mo|nth:.ed>|
|00002f00| 0d 7f 94 00 90 03 30 ff | 90 03 f2 00 90 03 50 ff |......0.|......P.|
|00002f10| 90 03 11 60 00 c7 59 65 | 61 72 3a 0d 6c 65 64 3e |...`..Ye|ar:.led>|
|00002f20| 0d 7f f2 00 90 03 8c ff | 90 03 f8 01 00 00 bc ff |........|........|
|00002f30| 90 03 3d 61 00 07 58 01 | 00 00 ff 90 04 0c 00 90 |..=a..X.|........|
|00002f40| 03 f2 00 90 03 58 ff 90 | 03 f8 01 00 00 88 ff 90 |.....X..|........|
|00002f50| 03 3d 61 00 07 59 01 00 | 00 ff 90 04 0c 00 90 03 |.=a..Y..|........|
|00002f60| f2 00 90 03 24 ff 90 03 | f8 01 00 00 54 ff 90 03 |....$...|....T...|
|00002f70| 3d 61 00 07 5a 01 00 00 | ff 90 04 0c 00 90 03 f2 |=a..Z...|........|
|00002f80| 00 90 03 e8 fe ff ff f8 | 01 00 00 18 ff 90 03 3d |........|.......=|
|00002f90| 61 00 07 5b 01 00 00 ff | 90 04 0c 00 90 03 92 00 |a..[....|........|
|00002fa0| 90 03 f0 fe ff ff fc 00 | 90 03 14 ff 90 03 19 60 |........|.......`|
|00002fb0| 00 c7 69 73 20 61 0d 74 | 6c 65 64 3e 0d 7f 0d 90 |..is a.t|led>....|
|00002fc0| 04 9e 01 00 00 70 01 00 | 00 1a 04 00 00 70 02 00 |.....p..|.....p..|
|00002fd0| 90 0a 05 bd 83 01 12 00 | 03 84 07 02 07 01 0c 0e |........|........|
|00002fe0| 0c 00 90 06 fc ff ff 00 | 05 00 90 06 3d 01 00 90 |........|....=...|
|00002ff0| 03 30 00 00 01 00 90 07 | 98 01 00 00 ff 90 04 13 |.0......|........|
|00003000| 00 90 03 0a 00 90 03 a4 | 02 00 00 34 ff 90 03 54 |........|...4...T|
|00003010| 03 00 00 64 ff 90 03 3d | 30 00 b7 0d 4b 0d 74 69 |...d...=|0...K.ti|
|00003020| 74 6c 65 64 3e 0d fe 9a | 00 90 03 a0 ff 90 03 76 |tled>...|.......v|
|00003030| 02 00 00 fc ff 90 03 3d | 61 00 07 ab 01 00 00 ff |.......=|a.......|
|00003040| 90 04 10 00 90 03 9a 00 | 90 03 6c ff 90 03 76 02 |........|..l...v.|
|00003050| 00 00 9c ff 90 03 3d 61 | 00 07 ba 01 00 00 ff 90 |......=a|........|
|00003060| 04 1c 00 90 03 9a 00 90 | 03 38 ff 90 03 76 02 00 |........|.8...v..|
|00003070| 00 68 ff 90 03 3d 61 00 | 07 d6 01 00 00 ff 90 04 |.h...=a.|........|
|00003080| 28 00 90 03 9a 00 90 03 | 04 ff 90 03 76 02 00 00 |(.......|....v...|
|00003090| 34 ff 90 03 3d 61 00 07 | ea 01 00 00 ff 90 04 1e |4...=a..|........|
|000030a0| 00 90 03 3e 00 90 03 b8 | ff 90 03 9a 00 90 03 e0 |...>....|........|
|000030b0| ff 90 03 19 60 00 17 4e | 61 6d 65 3a 0d 6c 65 64 |....`..N|ame:.led|
|000030c0| 3e 0d fe 0e 00 90 03 70 | ff 90 03 9a 00 90 03 98 |>......p|........|
|000030d0| ff 90 03 19 60 00 17 50 | 75 72 70 6f 73 65 3a 0d |....`..P|urpose:.|
|000030e0| 3e 0d fe 1e 00 90 03 3c | ff 90 03 9a 00 90 03 64 |>......<|.......d|
|000030f0| ff 90 03 19 60 00 17 41 | 75 74 68 6f 72 3a 0d 64 |....`..A|uthor:.d|
|00003100| 3e 0d fe 0c 00 90 03 08 | ff 90 03 98 00 90 03 30 |>.......|.......0|
|00003110| ff 90 03 19 60 00 17 56 | 65 72 73 69 6f 6e 3a 0d |....`..V|ersion:.|
|00003120| 3e 0d fe d4 00 90 03 ac | ff 90 03 1e 01 00 00 f4 |>.......|........|
|00003130| ff 90 03 1a 60 00 c7 21 | 64 61 74 65 73 0d 65 64 |....`..!|dates.ed|
|00003140| 3e 0d 7f 41 62 6f 75 74 | 20 74 68 69 73 20 70 72 |>..About| this pr|
|00003150| 6f 67 72 61 6d 0d 20 90 | 05 44 61 79 66 69 6e 64 |ogram. .|.Dayfind|
|00003160| 65 72 0d 47 69 76 65 73 | 20 64 61 79 20 6f 66 20 |er.Gives| day of |
|00003170| 77 65 65 6b 20 66 72 6f | 6d 20 64 61 74 65 0d a9 |week fro|m date..|
|00003180| 20 31 39 39 33 20 41 6c | 61 6e 20 44 6f 6e 6f 76 | 1993 Al|an Donov|
|00003190| 61 6e 0d 0d             |                         |an..    |        |
+--------+-------------------------+-------------------------+--------+--------+