home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c / calendar / !Calendar / !RunImage < prev    next >
Unknown  |  1995-03-04  |  20.3 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 3c | 43 61 6c 65 6e 64 61 72 |..... ><|Calendar|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 17 f4 20 41 75 74 | 68 6f 72 20 20 44 61 6c |.... Aut|hor Dal|
|00000030| 65 20 43 61 73 73 0d 00 | 1e 20 f4 20 20 20 20 20 |e Cass..|. . |
|00000040| 20 20 20 20 a9 20 53 46 | 43 20 4a 61 6e 75 61 72 | . SF|C Januar|
|00000050| 79 20 31 39 39 32 0d 00 | 28 04 0d 00 32 10 ee 20 |y 1992..|(...2.. |
|00000060| 85 20 f2 65 72 72 6f 72 | 3a e0 0d 00 3c 1d 52 6f |. .error|:...<.Ro|
|00000070| 6f 74 24 20 3d 20 22 3c | 43 61 6c 65 6e 64 61 72 |ot$ = "<|Calendar|
|00000080| 24 44 69 72 3e 2e 22 0d | 00 46 17 54 69 74 6c 65 |$Dir>.".|.F.Title|
|00000090| 24 20 3d 20 22 43 61 6c | 65 6e 64 61 72 22 0d 00 |$ = "Cal|endar"..|
|000000a0| 50 04 0d 00 5a 1b c8 9b | 20 52 6f 6f 74 24 20 2b |P...Z...| Root$ +|
|000000b0| 20 22 4d 65 6e 75 4d 61 | 6e 61 67 65 22 0d 00 64 | "MenuMa|nage"..d|
|000000c0| 1b c8 9b 20 52 6f 6f 74 | 24 20 2b 20 22 49 63 6f |... Root|$ + "Ico|
|000000d0| 6e 4d 61 6e 61 67 65 22 | 0d 00 6e 1a c8 9b 20 52 |nManage"|..n... R|
|000000e0| 6f 6f 74 24 20 2b 20 22 | 49 6d 70 4d 61 6e 61 67 |oot$ + "|ImpManag|
|000000f0| 65 22 0d 00 78 04 0d 00 | 82 1f de 20 54 61 73 6b |e"..x...|... Task|
|00000100| 49 64 25 20 34 3a 24 54 | 61 73 6b 49 64 25 3d 22 |Id% 4:$T|askId%="|
|00000110| 54 41 53 4b 22 0d 00 8c | 3f c8 99 20 22 57 69 6d |TASK"...|?.. "Wim|
|00000120| 70 5f 49 6e 69 74 69 61 | 6c 69 73 65 22 2c 32 30 |p_Initia|lise",20|
|00000130| 30 2c 21 54 61 73 6b 49 | 64 25 2c 22 43 61 6c 65 |0,!TaskI|d%,"Cale|
|00000140| 6e 64 61 72 20 4d 61 6b | 65 72 22 20 b8 20 2c 74 |ndar Mak|er" . ,t|
|00000150| 61 73 6b 25 0d 00 96 04 | 0d 00 a0 10 f2 67 65 74 |ask%....|.....get|
|00000160| 6d 6f 64 65 69 6e 66 6f | 0d 00 aa 04 0d 00 b4 1f |modeinfo|........|
|00000170| f2 49 6e 69 74 69 61 6c | 69 73 65 49 63 6f 6e 4d |.Initial|iseIconM|
|00000180| 61 6e 61 67 65 72 28 20 | 32 20 29 0d 00 be 04 0d |anager( |2 ).....|
|00000190| 00 c8 32 de 20 71 25 20 | 36 2a 31 30 32 34 20 20 |..2. q% |6*1024 |
|000001a0| 3a f4 20 4d 61 69 6e 20 | 77 6f 72 6b 73 70 61 63 |:. Main |workspac|
|000001b0| 65 20 66 6f 72 20 77 69 | 6e 64 6f 77 73 20 65 74 |e for wi|ndows et|
|000001c0| 63 0d 00 d2 04 0d 00 dc | 14 49 63 6f 6e 73 49 6e |c.......|.IconsIn|
|000001d0| 4d 61 69 6e 20 3d 20 35 | 30 0d 00 e6 14 49 63 6f |Main = 5|0....Ico|
|000001e0| 6e 73 49 6e 49 6e 66 6f | 20 3d 20 31 36 0d 00 f0 |nsInInfo| = 16...|
|000001f0| 04 0d 00 fa 2f c8 99 20 | 22 57 69 6d 70 5f 4f 70 |..../.. |"Wimp_Op|
|00000200| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 52 6f 6f |enTempla|te",,Roo|
|00000210| 74 24 20 2b 20 22 54 65 | 6d 70 6c 61 74 65 73 22 |t$ + "Te|mplates"|
|00000220| 0d 01 04 39 20 20 20 f2 | 4c 6f 61 64 57 69 6e 64 |...9 .|LoadWind|
|00000230| 6f 77 44 65 66 69 6e 69 | 74 69 6f 6e 28 20 6d 61 |owDefini|tion( ma|
|00000240| 69 6e 2c 20 22 4d 61 69 | 6e 22 2c 20 49 63 6f 6e |in, "Mai|n", Icon|
|00000250| 73 49 6e 4d 61 69 6e 20 | 29 0d 01 0e 39 20 20 20 |sInMain |)...9 |
|00000260| f2 4c 6f 61 64 57 69 6e | 64 6f 77 44 65 66 69 6e |.LoadWin|dowDefin|
|00000270| 69 74 69 6f 6e 28 20 69 | 6e 66 6f 2c 20 22 49 6e |ition( i|nfo, "In|
|00000280| 66 6f 22 2c 20 49 63 6f | 6e 73 49 6e 49 6e 66 6f |fo", Ico|nsInInfo|
|00000290| 20 29 0d 01 18 1b c8 99 | 20 22 57 69 6d 70 5f 43 | )......| "Wimp_C|
|000002a0| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 01 22 |loseTemp|late".."|
|000002b0| 04 0d 01 2c 2e f2 44 65 | 63 6c 61 72 65 49 63 6f |...,..De|clareIco|
|000002c0| 6e 73 49 6e 57 69 6e 64 | 6f 77 28 20 6d 61 69 6e |nsInWind|ow( main|
|000002d0| 2c 20 49 63 6f 6e 73 49 | 6e 4d 61 69 6e 20 29 0d |, IconsI|nMain ).|
|000002e0| 01 36 2e f2 44 65 63 6c | 61 72 65 49 63 6f 6e 73 |.6..Decl|areIcons|
|000002f0| 49 6e 57 69 6e 64 6f 77 | 28 20 69 6e 66 6f 2c 20 |InWindow|( info, |
|00000300| 49 63 6f 6e 73 49 6e 49 | 6e 66 6f 20 29 0d 01 40 |IconsInI|nfo )..@|
|00000310| 04 0d 01 4a 0e f2 43 6f | 6e 73 74 61 6e 74 73 0d |...J..Co|nstants.|
|00000320| 01 54 04 0d 01 5e 23 f2 | 47 65 74 49 63 6f 6e 73 |.T...^#.|GetIcons|
|00000330| 28 20 52 6f 6f 74 24 20 | 2b 20 22 21 53 70 72 69 |( Root$ |+ "!Spri|
|00000340| 74 65 73 22 20 29 0d 01 | 68 3f 42 61 72 20 3d 20 |tes" )..|h?Bar = |
|00000350| a4 43 72 65 61 74 65 49 | 63 6f 6e 28 20 49 63 6f |.CreateI|con( Ico|
|00000360| 6e 42 61 72 2c 20 30 2c | 30 2c 34 38 2c 36 38 2c |nBar, 0,|0,48,68,|
|00000370| 26 33 31 30 32 2c 31 2c | 22 21 43 61 6c 65 6e 64 |&3102,1,|"!Calend|
|00000380| 61 72 22 20 29 0d 01 72 | 04 0d 01 7c 22 f2 49 6e |ar" )..r|...|".In|
|00000390| 69 74 69 61 6c 69 73 65 | 4d 65 6e 75 4d 61 6e 61 |itialise|MenuMana|
|000003a0| 67 65 72 28 20 26 31 30 | 30 20 29 0d 01 86 38 f2 |ger( &10|0 )...8.|
|000003b0| 43 72 65 61 74 65 4d 65 | 6e 75 28 22 43 61 6c 65 |CreateMe|nu("Cale|
|000003c0| 6e 64 61 72 2c 49 6e 66 | 6f 3e 69 6e 66 6f 2c 51 |ndar,Inf|o>info,Q|
|000003d0| 75 69 74 22 2c 20 49 63 | 6f 6e 42 61 72 4d 65 6e |uit", Ic|onBarMen|
|000003e0| 75 20 29 0d 01 90 04 0d | 01 9a 45 dc 20 4a 61 6e |u ).....|..E. Jan|
|000003f0| 75 61 72 79 2c 33 31 2c | 46 65 62 72 75 61 72 79 |uary,31,|February|
|00000400| 2c 32 38 2c 4d 61 72 63 | 68 2c 33 31 2c 41 70 72 |,28,Marc|h,31,Apr|
|00000410| 69 6c 2c 33 30 2c 4d 61 | 79 2c 33 31 2c 4a 75 6e |il,30,Ma|y,31,Jun|
|00000420| 65 2c 33 30 2c 4a 75 6c | 79 2c 33 31 0d 01 a4 3f |e,30,Jul|y,31...?|
|00000430| dc 20 41 75 67 75 73 74 | 2c 33 31 2c 53 65 70 74 |. August|,31,Sept|
|00000440| 65 6d 62 65 72 2c 33 30 | 2c 4f 63 74 6f 62 65 72 |ember,30|,October|
|00000450| 2c 33 31 2c 4e 6f 76 65 | 6d 62 65 72 2c 33 30 2c |,31,Nove|mber,30,|
|00000460| 44 65 63 65 6d 62 65 72 | 2c 33 31 0d 01 ae 3e dc |December|,31...>.|
|00000470| 20 53 75 6e 64 61 79 2c | 4d 6f 6e 64 61 79 2c 54 | Sunday,|Monday,T|
|00000480| 75 65 73 64 61 79 2c 57 | 65 64 6e 65 73 64 61 79 |uesday,W|ednesday|
|00000490| 2c 54 68 75 72 73 64 61 | 79 2c 46 72 69 64 61 79 |,Thursda|y,Friday|
|000004a0| 2c 53 61 74 75 72 64 61 | 79 0d 01 b8 39 de 20 4d |,Saturda|y...9. M|
|000004b0| 6f 6e 74 68 24 28 31 32 | 29 2c 20 44 61 79 73 49 |onth$(12|), DaysI|
|000004c0| 6e 4d 6f 6e 74 68 25 28 | 31 32 29 2c 20 43 61 6c |nMonth%(|12), Cal|
|000004d0| 65 6e 64 61 72 24 28 20 | 31 31 2c 20 35 2c 20 36 |endar$( |11, 5, 6|
|000004e0| 20 29 0d 01 c2 23 de 20 | 44 61 79 24 28 38 29 2c | )...#. |Day$(8),|
|000004f0| 20 44 61 79 4f 66 57 65 | 65 6b 25 28 20 31 31 2c | DayOfWe|ek%( 11,|
|00000500| 20 34 31 20 29 0d 01 cc | 0a f7 20 8d 74 5a 41 0d | 41 )...|.. .tZA.|
|00000510| 01 d6 0f e3 20 4d 25 3d | 31 20 b8 20 31 32 0d 01 |.... M%=|1 . 12..|
|00000520| e0 24 20 20 20 f3 20 4d | 6f 6e 74 68 24 28 4d 25 |.$ . M|onth$(M%|
|00000530| 29 2c 44 61 79 73 49 6e | 4d 6f 6e 74 68 25 28 4d |),DaysIn|Month%(M|
|00000540| 25 29 0d 01 ea 05 ed 0d | 01 f4 0d 44 61 79 24 28 |%)......|...Day$(|
|00000550| 29 3d 22 22 0d 01 fe 0e | e3 20 44 25 3d 31 20 b8 |)=""....|. D%=1 .|
|00000560| 20 37 0d 02 08 11 20 20 | 20 f3 20 44 61 79 24 28 | 7.... | . Day$(|
|00000570| 44 25 29 0d 02 12 05 ed | 0d 02 1c 04 0d 02 26 1b |D%).....|......&.|
|00000580| 43 75 72 72 65 6e 74 59 | 65 61 72 20 3d 20 a4 54 |CurrentY|ear = .T|
|00000590| 68 69 73 59 65 61 72 0d | 02 30 15 43 75 72 72 65 |hisYear.|.0.Curre|
|000005a0| 6e 74 4d 6f 6e 74 68 25 | 20 3d 20 31 0d 02 3a 1a |ntMonth%| = 1..:.|
|000005b0| 43 75 72 72 65 6e 74 53 | 74 61 72 74 4d 6f 6e 74 |CurrentS|tartMont|
|000005c0| 68 25 20 3d 20 31 0d 02 | 44 19 43 75 72 72 65 6e |h% = 1..|D.Curren|
|000005d0| 74 45 6e 64 4d 6f 6e 74 | 68 25 20 3d 20 31 32 0d |tEndMont|h% = 12.|
|000005e0| 02 4e 12 54 65 6d 70 6c | 61 74 65 24 20 3d 20 22 |.N.Templ|ate$ = "|
|000005f0| 22 0d 02 58 16 46 75 6c | 6c 54 65 6d 70 6c 61 74 |"..X.Ful|lTemplat|
|00000600| 65 24 20 3d 20 22 22 0d | 02 62 2f 4e 6f 74 68 69 |e$ = "".|.b/Nothi|
|00000610| 6e 67 4c 6f 61 64 65 64 | 24 20 3d 20 22 44 72 6f |ngLoaded|$ = "Dro|
|00000620| 70 20 53 74 79 6c 65 20 | 44 6f 63 75 6d 65 6e 74 |p Style |Document|
|00000630| 20 48 65 72 65 22 0d 02 | 6c 1a 50 72 65 66 69 78 | Here"..|l.Prefix|
|00000640| 24 3d 22 3a 49 6d 70 72 | 65 73 73 69 6f 6e 2e 22 |$=":Impr|ession."|
|00000650| 0d 02 76 10 44 6f 72 6d | 61 6e 74 20 20 3d 20 30 |..v.Dorm|ant = 0|
|00000660| 0d 02 80 10 4c 6f 61 64 | 65 64 20 20 20 3d 20 31 |....Load|ed = 1|
|00000670| 0d 02 8a 10 4c 6f 61 64 | 69 6e 67 20 20 3d 20 32 |....Load|ing = 2|
|00000680| 0d 02 94 10 4d 65 72 67 | 69 6e 67 20 20 3d 20 33 |....Merg|ing = 3|
|00000690| 0d 02 9e 10 50 72 69 6e | 74 69 6e 67 20 3d 20 34 |....Prin|ting = 4|
|000006a0| 0d 02 a8 10 50 61 75 73 | 65 64 20 20 20 3d 20 35 |....Paus|ed = 5|
|000006b0| 0d 02 b2 14 53 74 61 74 | 65 25 20 3d 20 44 6f 72 |....Stat|e% = Dor|
|000006c0| 6d 61 6e 74 0d 02 bc 0f | f2 55 70 64 61 74 65 49 |mant....|.UpdateI|
|000006d0| 6e 66 6f 0d 02 c6 04 0d | 02 d0 0d 71 75 69 74 25 |nfo.....|...quit%|
|000006e0| 20 3d 20 a3 0d 02 da 04 | 0d 02 e4 2e f2 49 6e 69 | = .....|.....Ini|
|000006f0| 74 69 61 6c 69 73 65 49 | 6d 70 75 6c 73 65 28 20 |tialiseI|mpulse( |
|00000700| 52 6f 6f 74 24 2c 20 74 | 61 73 6b 25 2c 20 54 69 |Root$, t|ask%, Ti|
|00000710| 74 6c 65 24 20 29 0d 02 | ee 2a f2 4d 61 6b 65 4d |tle$ )..|.*.MakeM|
|00000720| 65 74 68 6f 64 28 20 30 | 2c 20 43 72 65 61 74 65 |ethod( 0|, Create|
|00000730| 2c 20 22 43 72 65 61 74 | 65 22 2c 20 22 22 20 29 |, "Creat|e", "" )|
|00000740| 0d 02 f8 2a f2 4d 61 6b | 65 4d 65 74 68 6f 64 28 |...*.Mak|eMethod(|
|00000750| 20 30 2c 20 43 61 6e 63 | 65 6c 2c 20 22 43 61 6e | 0, Canc|el, "Can|
|00000760| 63 65 6c 22 2c 20 22 22 | 20 29 0d 03 02 4b f2 4d |cel", ""| )...K.M|
|00000770| 61 6b 65 4d 65 74 68 6f | 64 28 20 30 2c 20 47 65 |akeMetho|d( 0, Ge|
|00000780| 74 44 61 74 65 2c 20 22 | 47 65 74 44 61 74 65 22 |tDate, "|GetDate"|
|00000790| 2c 20 22 4d 6f 6e 74 68 | 2f 4b 2c 57 65 65 6b 2f |, "Month|/K,Week/|
|000007a0| 4b 2f 45 2c 44 61 79 2f | 4b 2c 46 6f 72 6d 61 74 |K/E,Day/|K,Format|
|000007b0| 2f 4b 22 20 29 0d 03 0c | 2e f2 4d 61 6b 65 4d 65 |/K" )...|..MakeMe|
|000007c0| 74 68 6f 64 28 20 30 2c | 20 47 65 74 4d 6f 6e 74 |thod( 0,| GetMont|
|000007d0| 68 2c 20 22 47 65 74 4d | 6f 6e 74 68 22 2c 20 22 |h, "GetM|onth", "|
|000007e0| 22 20 29 0d 03 16 2c f2 | 4d 61 6b 65 4d 65 74 68 |" )...,.|MakeMeth|
|000007f0| 6f 64 28 20 30 2c 20 47 | 65 74 59 65 61 72 2c 20 |od( 0, G|etYear, |
|00000800| 22 47 65 74 59 65 61 72 | 22 2c 20 22 22 20 29 0d |"GetYear|", "" ).|
|00000810| 03 20 30 f2 4d 61 6b 65 | 4d 65 74 68 6f 64 28 20 |. 0.Make|Method( |
|00000820| 30 2c 20 4e 65 78 74 4d | 6f 6e 74 68 2c 20 22 4e |0, NextM|onth, "N|
|00000830| 65 78 74 4d 6f 6e 74 68 | 22 2c 20 22 22 20 29 0d |extMonth|", "" ).|
|00000840| 03 2a 26 f2 4d 61 6b 65 | 4d 65 74 68 6f 64 28 20 |.*&.Make|Method( |
|00000850| 30 2c 20 51 75 69 74 2c | 20 22 51 75 69 74 22 2c |0, Quit,| "Quit",|
|00000860| 20 22 22 20 29 0d 03 34 | 51 f2 4d 61 6b 65 4d 65 | "" )..4|Q.MakeMe|
|00000870| 74 68 6f 64 28 20 30 2c | 20 53 65 74 4f 70 74 69 |thod( 0,| SetOpti|
|00000880| 6f 6e 2c 20 22 53 65 74 | 4f 70 74 69 6f 6e 22 2c |on, "Set|Option",|
|00000890| 20 22 50 72 69 6e 74 2f | 4b 2c 55 73 65 4d 6f 6e | "Print/|K,UseMon|
|000008a0| 74 68 2f 4b 2c 50 61 75 | 73 65 2f 4b 2c 4b 65 65 |th/K,Pau|se/K,Kee|
|000008b0| 70 2f 4b 22 20 29 0d 03 | 3e 36 f2 4d 61 6b 65 4d |p/K" )..|>6.MakeM|
|000008c0| 65 74 68 6f 64 28 20 30 | 2c 20 53 65 74 50 72 65 |ethod( 0|, SetPre|
|000008d0| 66 69 78 2c 20 22 53 65 | 74 50 72 65 66 69 78 22 |fix, "Se|tPrefix"|
|000008e0| 2c 20 22 4e 61 6d 65 2f | 41 22 20 29 0d 03 48 4a |, "Name/|A" )..HJ|
|000008f0| f2 4d 61 6b 65 4d 65 74 | 68 6f 64 28 20 30 2c 20 |.MakeMet|hod( 0, |
|00000900| 53 65 74 2c 20 22 53 65 | 74 22 2c 20 22 4d 6f 6e |Set, "Se|t", "Mon|
|00000910| 74 68 2f 4b 2c 59 65 61 | 72 2f 4b 2c 53 74 61 72 |th/K,Yea|r/K,Star|
|00000920| 74 4d 6f 6e 74 68 2f 4b | 2c 45 6e 64 4d 6f 6e 74 |tMonth/K|,EndMont|
|00000930| 68 2f 4b 22 20 29 0d 03 | 52 12 f2 57 69 6e 64 75 |h/K" )..|R..Windu|
|00000940| 70 4d 65 74 68 6f 64 73 | 0d 03 5c 04 0d 03 66 10 |pMethods|..\...f.|
|00000950| de 20 42 6c 6f 63 6b 25 | 20 32 35 36 0d 03 70 04 |. Block%| 256..p.|
|00000960| 0d 03 7a 0e ee 20 85 20 | f2 65 72 72 6f 72 0d 03 |..z.. . |.error..|
|00000970| 84 05 f5 0d 03 8e 0c 20 | 20 20 f2 50 6f 6c 6c 0d |....... | .Poll.|
|00000980| 03 98 0b fd 20 71 75 69 | 74 25 0d 03 a2 0e f2 43 |.... qui|t%.....C|
|00000990| 6c 6f 73 65 44 6f 77 6e | 0d 03 ac 05 e0 0d 03 b6 |loseDown|........|
|000009a0| 04 0d 03 c0 0b dd 20 f2 | 50 6f 6c 6c 0d 03 ca 0a |...... .|Poll....|
|000009b0| ea 20 4e 6f 77 25 0d 03 | d4 1b 20 20 20 e7 20 53 |. Now%..|.. . S|
|000009c0| 74 61 74 65 25 20 3d 20 | 4d 65 72 67 69 6e 67 20 |tate% = |Merging |
|000009d0| 8c 0d 03 de 2a 20 20 20 | 20 20 20 c8 99 20 22 4f |....* | .. "O|
|000009e0| 53 5f 52 65 61 64 4d 6f | 6e 6f 74 6f 6e 69 63 54 |S_ReadMo|notonicT|
|000009f0| 69 6d 65 22 20 b8 20 4e | 6f 77 25 0d 03 e8 41 20 |ime" . N|ow%...A |
|00000a00| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 50 6f | .. |"Wimp_Po|
|00000a10| 6c 6c 49 64 6c 65 22 2c | 25 31 31 30 30 30 30 30 |llIdle",|%1100000|
|00000a20| 31 30 30 30 30 30 2c 71 | 25 2c 4e 6f 77 25 2b 35 |100000,q|%,Now%+5|
|00000a30| 30 30 20 b8 20 52 65 61 | 73 6f 6e 25 0d 03 f2 08 |00 . Rea|son%....|
|00000a40| 20 20 20 cc 0d 03 fc 34 | 20 20 20 20 20 20 c8 99 | ....4| ..|
|00000a50| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 25 31 31 | "Wimp_P|oll",%11|
|00000a60| 30 30 30 30 30 31 30 30 | 30 30 31 2c 71 25 20 b8 |00000100|001,q% .|
|00000a70| 20 52 65 61 73 6f 6e 25 | 0d 04 06 08 20 20 20 cd | Reason%|.... .|
|00000a80| 0d 04 10 3b 20 20 20 f2 | 49 6d 70 5f 44 65 63 6f |...; .|Imp_Deco|
|00000a90| 64 65 28 20 52 65 61 73 | 6f 6e 25 2c 20 4d 65 74 |de( Reas|on%, Met|
|00000aa0| 68 6f 64 54 6f 6b 65 6e | 25 2c 20 50 61 72 61 6d |hodToken|%, Param|
|00000ab0| 73 25 2c 20 53 69 7a 65 | 25 20 29 0d 04 1a 13 20 |s%, Size|% ).... |
|00000ac0| 20 20 c8 8e 20 52 65 61 | 73 6f 6e 25 20 ca 0d 04 | .. Rea|son% ...|
|00000ad0| 24 0b 20 20 20 c9 20 30 | 3a 0d 04 2e 1e 20 20 20 |$. . 0|:.... |
|00000ae0| 20 20 20 e7 20 53 74 61 | 74 65 25 20 3d 20 4d 65 | . Sta|te% = Me|
|00000af0| 72 67 69 6e 67 20 8c 0d | 04 38 1d 20 20 20 20 20 |rging ..|.8. |
|00000b00| 20 20 20 20 53 74 61 74 | 65 25 20 3d 20 44 6f 72 | Stat|e% = Dor|
|00000b10| 6d 61 6e 74 0d 04 42 2e | 20 20 20 20 20 20 20 20 |mant..B.| |
|00000b20| 20 f2 44 65 73 65 6c 65 | 63 74 49 63 6f 6e 28 20 | .Desele|ctIcon( |
|00000b30| 6d 61 69 6e 2c 20 43 72 | 65 61 74 65 49 63 6f 6e |main, Cr|eateIcon|
|00000b40| 20 29 0d 04 4c 40 20 20 | 20 20 20 20 20 20 20 f2 | )..L@ | .|
|00000b50| 4d 6f 64 69 66 79 49 63 | 6f 6e 54 65 78 74 28 20 |ModifyIc|onText( |
|00000b60| 6d 61 69 6e 2c 20 4c 6f | 61 64 65 64 49 63 6f 6e |main, Lo|adedIcon|
|00000b70| 2c 20 4e 6f 74 68 69 6e | 67 4c 6f 61 64 65 64 24 |, Nothin|gLoaded$|
|00000b80| 20 29 0d 04 56 55 20 20 | 20 20 20 20 20 20 20 f2 | )..VU | .|
|00000b90| 45 72 72 6f 72 28 20 22 | 49 6d 70 72 65 73 73 69 |Error( "|Impressi|
|00000ba0| 6f 6e 20 69 73 20 6e 6f | 74 20 72 65 73 70 6f 6e |on is no|t respon|
|00000bb0| 64 69 6e 67 20 74 6f 20 | 74 68 65 20 64 6f 63 75 |ding to |the docu|
|00000bc0| 6d 65 6e 74 20 27 22 2b | 54 65 6d 70 6c 61 74 65 |ment '"+|Template|
|00000bd0| 24 2b 22 27 22 20 29 0d | 04 60 39 20 20 20 20 20 |$+"'" ).|.`9 |
|00000be0| 20 20 20 20 f2 53 65 6e | 64 43 6f 6d 6d 61 6e 64 | .Sen|dCommand|
|00000bf0| 28 20 50 72 65 66 69 78 | 24 2b 54 65 6d 70 6c 61 |( Prefix|$+Templa|
|00000c00| 74 65 24 2b 22 20 45 64 | 69 74 20 4f 6e 22 20 29 |te$+" Ed|it On" )|
|00000c10| 0d 04 6a 0b 20 20 20 20 | 20 20 cd 0d 04 74 04 0d |..j. | ...t..|
|00000c20| 04 7e 0b 20 20 20 c9 20 | 31 3a 0d 04 88 16 20 20 |.~. . |1:.... |
|00000c30| 20 20 20 20 f2 72 65 64 | 72 61 77 28 21 71 25 29 | .red|raw(!q%)|
|00000c40| 0d 04 92 04 0d 04 9c 0b | 20 20 20 c9 20 32 3a 0d |........| . 2:.|
|00000c50| 04 a6 13 20 20 20 20 20 | 20 f2 6f 70 65 6e 28 71 |... | .open(q|
|00000c60| 25 29 0d 04 b0 04 0d 04 | ba 0b 20 20 20 c9 20 33 |%)......|.. . 3|
|00000c70| 3a 0d 04 c4 15 20 20 20 | 20 20 20 f2 63 6c 6f 73 |:.... | .clos|
|00000c80| 65 28 21 71 25 29 0d 04 | ce 04 0d 04 d8 0b 20 20 |e(!q%)..|...... |
|00000c90| 20 c9 20 34 3a 0d 04 e2 | 1a 20 20 20 20 20 20 f2 | . 4:...|. .|
|00000ca0| 4c 65 61 76 65 57 69 6e | 64 6f 77 28 71 25 29 0d |LeaveWin|dow(q%).|
|00000cb0| 04 ec 04 0d 04 f6 0b 20 | 20 20 c9 20 36 3a 0d 05 |....... | . 6:..|
|00000cc0| 00 16 20 20 20 20 20 20 | f2 62 75 74 74 6f 6e 73 |.. |.buttons|
|00000cd0| 28 71 25 29 0d 05 0a 04 | 0d 05 14 0b 20 20 20 c9 |(q%)....|.... .|
|00000ce0| 20 38 3a 0d 05 1e 19 20 | 20 20 20 20 20 f2 4b 65 | 8:.... | .Ke|
|00000cf0| 79 50 72 65 73 73 65 64 | 28 71 25 29 0d 05 28 04 |yPressed|(q%)..(.|
|00000d00| 0d 05 32 0b 20 20 20 c9 | 20 39 3a 0d 05 3c 19 20 |..2. .| 9:..<. |
|00000d10| 20 20 20 20 20 f2 4d 65 | 6e 75 53 65 6c 65 63 74 | .Me|nuSelect|
|00000d20| 28 71 25 29 0d 05 46 04 | 0d 05 50 2d 20 20 20 c9 |(q%)..F.|..P- .|
|00000d30| 20 55 73 65 72 5f 4d 65 | 73 73 61 67 65 2c 20 55 | User_Me|ssage, U|
|00000d40| 73 65 72 5f 4d 65 73 73 | 61 67 65 5f 52 65 63 6f |ser_Mess|age_Reco|
|00000d50| 72 64 65 64 3a 0d 05 5a | 16 20 20 20 20 20 20 f2 |rded:..Z|. .|
|00000d60| 72 65 63 65 69 76 65 28 | 71 25 29 0d 05 64 04 0d |receive(|q%)..d..|
|00000d70| 05 6e 22 20 20 20 c9 20 | 55 73 65 72 5f 4d 65 73 |.n" . |User_Mes|
|00000d80| 73 61 67 65 5f 41 63 6b | 6e 6f 77 6c 65 64 67 65 |sage_Ack|nowledge|
|00000d90| 3a 0d 05 78 39 20 20 20 | 20 20 20 f4 20 49 6d 70 |:..x9 | . Imp|
|00000da0| 72 65 73 73 69 6f 6e 20 | 6e 6f 74 20 72 75 6e 6e |ression |not runn|
|00000db0| 69 6e 67 20 73 6f 20 44 | 61 74 61 4f 70 65 6e 20 |ing so D|ataOpen |
|00000dc0| 63 6f 6d 65 73 20 68 65 | 72 65 0d 05 82 21 20 20 |comes he|re...! |
|00000dd0| 20 20 20 20 e7 20 71 25 | 21 38 20 3d 20 44 61 74 | . q%|!8 = Dat|
|00000de0| 61 4f 70 65 6e 52 65 66 | 25 20 8c 0d 05 8c 35 20 |aOpenRef|% ....5 |
|00000df0| 20 20 20 20 20 20 20 20 | c8 99 20 22 57 69 6d 70 | |.. "Wimp|
|00000e00| 5f 53 74 61 72 74 54 61 | 73 6b 22 2c 22 52 55 4e |_StartTa|sk","RUN|
|00000e10| 20 22 2b 46 75 6c 6c 54 | 65 6d 70 6c 61 74 65 24 | "+FullT|emplate$|
|00000e20| 0d 05 96 1d 20 20 20 20 | 20 20 20 20 20 53 74 61 |.... | Sta|
|00000e30| 74 65 25 20 3d 20 4c 6f | 61 64 69 6e 67 0d 05 a0 |te% = Lo|ading...|
|00000e40| 0b 20 20 20 20 20 20 cd | 0d 05 aa 04 0d 05 b4 2a |. .|.......*|
|00000e50| 20 20 20 c9 20 49 6d 70 | 75 6c 73 65 5f 43 6f 6d | . Imp|ulse_Com|
|00000e60| 6d 61 6e 64 2c 20 49 6d | 70 75 6c 73 65 5f 52 65 |mand, Im|pulse_Re|
|00000e70| 71 75 65 73 74 3a 0d 05 | be 2c 20 20 20 20 20 20 |quest:..|., |
|00000e80| f2 44 6f 43 6f 6d 6d 61 | 6e 64 28 20 4d 65 74 68 |.DoComma|nd( Meth|
|00000e90| 6f 64 54 6f 6b 65 6e 25 | 2c 20 50 61 72 61 6d 73 |odToken%|, Params|
|00000ea0| 25 29 0d 05 c8 04 0d 05 | d2 1a 20 20 20 c9 20 49 |%)......|.. . I|
|00000eb0| 6d 70 75 6c 73 65 5f 53 | 65 6e 64 44 61 74 61 3a |mpulse_S|endData:|
|00000ec0| 0d 05 dc 41 20 20 20 20 | 20 20 e7 20 28 4d 65 74 |...A | . (Met|
|00000ed0| 68 6f 64 54 6f 6b 65 6e | 25 20 3c 3e 20 a4 43 75 |hodToken|% <> .Cu|
|00000ee0| 72 72 65 6e 74 54 78 54 | 61 67 29 20 84 20 ac 20 |rrentTxT|ag) . . |
|00000ef0| a4 49 6e 54 72 61 6e 73 | 6d 69 73 73 69 6f 6e 20 |.InTrans|mission |
|00000f00| 8c 0d 05 e6 35 20 20 20 | 20 20 20 20 20 20 85 20 |....5 | . |
|00000f10| 32 30 30 2c 22 52 65 71 | 75 65 73 74 20 74 6f 20 |200,"Req|uest to |
|00000f20| 74 72 61 6e 73 6d 69 74 | 20 75 6e 6b 6e 6f 77 6e |transmit| unknown|
|00000f30| 20 64 61 74 61 22 0d 05 | f0 0b 20 20 20 20 20 20 | data"..|.. |
|00000f40| cc 0d 05 fa 23 20 20 20 | 20 20 20 20 20 20 f2 54 |....# | .T|
|00000f50| 72 61 6e 73 6d 69 74 44 | 61 74 61 28 20 53 69 7a |ransmitD|ata( Siz|
|00000f60| 65 25 20 29 0d 06 04 0b | 20 20 20 20 20 20 cd 0d |e% )....| ..|
|00000f70| 06 0e 04 0d 06 18 17 20 | 20 20 c9 20 49 6d 70 75 |....... | . Impu|
|00000f80| 6c 73 65 5f 52 65 70 6c | 79 3a 0d 06 22 23 20 20 |lse_Repl|y:.."# |
|00000f90| 20 20 20 20 c8 8e 20 a4 | 54 65 72 6d 69 6e 61 74 | .. .|Terminat|
|00000fa0| 65 28 24 50 61 72 61 6d | 73 25 29 20 ca 0d 06 2c |e($Param|s%) ...,|
|00000fb0| 18 20 20 20 20 20 20 c9 | 20 22 4d 65 72 67 65 44 |. .| "MergeD|
|00000fc0| 6f 6e 65 22 3a 0d 06 36 | 33 20 20 20 20 20 20 20 |one":..6|3 |
|00000fd0| 20 20 e7 20 a4 49 63 6f | 6e 53 65 6c 65 63 74 65 | . .Ico|nSelecte|
|00000fe0| 64 28 20 6d 61 69 6e 2c | 20 50 61 75 73 65 4f 70 |d( main,| PauseOp|
|00000ff0| 74 69 6f 6e 20 29 20 8c | 0d 06 40 31 20 20 20 20 |tion ) .|..@1 |
|00001000| 20 20 20 20 20 20 20 20 | f2 44 65 73 65 6c 65 63 | |.Deselec|
|00001010| 74 49 63 6f 6e 28 20 6d | 61 69 6e 2c 20 43 72 65 |tIcon( m|ain, Cre|
|00001020| 61 74 65 49 63 6f 6e 20 | 29 0d 06 4a 3d 20 20 20 |ateIcon |)..J= |
|00001030| 20 20 20 20 20 20 20 20 | 20 f2 4d 6f 64 69 66 79 | | .Modify|
|00001040| 49 63 6f 6e 54 65 78 74 | 28 20 6d 61 69 6e 2c 20 |IconText|( main, |
|00001050| 43 72 65 61 74 65 49 63 | 6f 6e 2c 20 22 52 65 73 |CreateIc|on, "Res|
|00001060| 75 6d 65 22 20 29 0d 06 | 54 1f 20 20 20 20 20 20 |ume" )..|T. |
|00001070| 20 20 20 20 20 20 53 74 | 61 74 65 25 20 3d 20 50 | St|ate% = P|
|00001080| 61 75 73 65 64 0d 06 5e | 22 20 20 20 20 20 20 20 |aused..^|" |
|00001090| 20 20 20 20 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 | .. |"Hourgla|
|000010a0| 73 73 5f 4f 66 66 22 0d | 06 68 0e 20 20 20 20 20 |ss_Off".|.h. |
|000010b0| 20 20 20 20 cc 0d 06 72 | 36 20 20 20 20 20 20 20 | ...r|6 |
|000010c0| 20 20 20 20 20 e7 20 a4 | 49 63 6f 6e 53 65 6c 65 | . .|IconSele|
|000010d0| 63 74 65 64 28 20 6d 61 | 69 6e 2c 20 50 72 69 6e |cted( ma|in, Prin|
|000010e0| 74 4f 70 74 69 6f 6e 20 | 29 20 8c 0d 06 7c 24 20 |tOption |) ...|$ |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 53 74 | | St|
|00001100| 61 74 65 25 20 3d 20 50 | 72 69 6e 74 69 6e 67 0d |ate% = P|rinting.|
|00001110| 06 86 46 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..F | |
|00001120| 20 20 f2 53 65 6e 64 52 | 65 71 75 65 73 74 28 50 | .SendR|equest(P|
|00001130| 72 65 66 69 78 24 2b 54 | 65 6d 70 6c 61 74 65 24 |refix$+T|emplate$|
|00001140| 2b 22 20 50 72 69 6e 74 | 22 2c a4 4e 65 78 74 54 |+" Print|",.NextT|
|00001150| 78 54 61 67 29 0d 06 90 | 11 20 20 20 20 20 20 20 |xTag)...|. |
|00001160| 20 20 20 20 20 cc 0d 06 | 9a 20 20 20 20 20 20 20 | ...|. |
|00001170| 20 20 20 20 20 20 20 20 | 20 f2 54 65 73 74 46 6f | | .TestFo|
|00001180| 72 42 61 74 63 68 0d 06 | a4 11 20 20 20 20 20 20 |rBatch..|.. |
|00001190| 20 20 20 20 20 20 cd 0d | 06 ae 0e 20 20 20 20 20 | ..|... |
|000011a0| 20 20 20 20 cd 0d 06 b8 | 04 0d 06 c2 17 20 20 20 | ....|..... |
|000011b0| 20 20 20 c9 20 22 50 72 | 69 6e 74 44 6f 6e 65 22 | . "Pr|intDone"|
|000011c0| 0d 06 cc 1c 20 20 20 20 | 20 20 20 20 20 53 74 61 |.... | Sta|
|000011d0| 74 65 25 20 3d 20 4c 6f | 61 64 65 64 0d 06 d6 1a |te% = Lo|aded....|
|000011e0| 20 20 20 20 20 20 20 20 | 20 f2 54 65 73 74 46 6f | | .TestFo|
|000011f0| 72 42 61 74 63 68 0d 06 | e0 04 0d 06 ea 0b 20 20 |rBatch..|...... |
|00001200| 20 20 20 20 cb 0d 06 f4 | 04 0d 06 fe 08 20 20 20 | ....|..... |
|00001210| cb 0d 07 08 05 e1 0d 07 | 12 04 0d 07 1c 2f 20 20 |........|...../ |
|00001220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001230| 20 20 20 20 20 20 20 20 | 20 28 2a 2d 2d 2d 2d 2d | | (*-----|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2a | 29 0d 07 26 04 0d 07 30 |-------*|)..&...0|
|00001250| 13 dd 20 f2 54 65 73 74 | 46 6f 72 42 61 74 63 68 |.. .Test|ForBatch|
|00001260| 0d 07 3a 41 e7 20 ac 20 | 45 6e 64 4d 6f 6e 74 68 |..:A. . |EndMonth|
|00001270| 50 61 73 73 65 64 25 20 | 80 20 a4 49 63 6f 6e 53 |Passed% |. .IconS|
|00001280| 65 6c 65 63 74 65 64 28 | 20 6d 61 69 6e 2c 20 55 |elected(| main, U|
|00001290| 73 65 4d 6f 6e 74 68 4f | 70 74 69 6f 6e 20 29 20 |seMonthO|ption ) |
|000012a0| 8c 0d 07 44 33 20 20 20 | f2 53 65 6e 64 43 6f 6d |...D3 |.SendCom|
|000012b0| 6d 61 6e 64 28 20 50 72 | 65 66 69 78 24 2b 54 65 |mand( Pr|efix$+Te|
|000012c0| 6d 70 6c 61 74 65 24 2b | 22 20 45 64 69 74 20 4f |mplate$+|" Edit O|
|000012d0| 6e 22 20 29 0d 07 4e 34 | 20 20 20 f2 53 65 6e 64 |n" )..N4| .Send|
|000012e0| 43 6f 6d 6d 61 6e 64 28 | 20 50 72 65 66 69 78 24 |Command(| Prefix$|
|000012f0| 2b 54 65 6d 70 6c 61 74 | 65 24 2b 22 20 45 64 69 |+Templat|e$+" Edi|
|00001300| 74 20 4f 66 66 22 20 29 | 0d 07 58 19 20 20 20 c8 |t Off" )|..X. .|
|00001310| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|00001320| 22 0d 07 62 17 20 20 20 | f2 45 6e 74 65 72 4d 65 |"..b. |.EnterMe|
|00001330| 72 67 65 53 74 61 74 65 | 0d 07 6c 05 cc 0d 07 76 |rgeState|..l....v|
|00001340| 18 20 20 20 f2 54 69 64 | 79 55 70 41 66 74 65 72 |. .Tid|yUpAfter|
|00001350| 4d 65 72 67 65 0d 07 80 | 05 cd 0d 07 8a 05 e1 0d |Merge...|........|
|00001360| 07 94 04 0d 07 9e 2f 20 | 20 20 20 20 20 20 20 20 |....../ | |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001380| 20 20 28 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*----|--------|
|00001390| 2a 29 0d 07 a8 04 0d 07 | b2 17 dd 20 f2 54 69 64 |*)......|... .Tid|
|000013a0| 79 55 70 41 66 74 65 72 | 4d 65 72 67 65 0d 07 bc |yUpAfter|Merge...|
|000013b0| 29 e7 20 a4 49 63 6f 6e | 53 65 6c 65 63 74 65 64 |). .Icon|Selected|
|000013c0| 28 20 6d 61 69 6e 2c 20 | 4b 65 65 70 4f 70 74 69 |( main, |KeepOpti|
|000013d0| 6f 6e 20 29 20 8c 0d 07 | c6 36 20 20 20 f2 53 65 |on ) ...|.6 .Se|
|000013e0| 6e 64 43 6f 6d 6d 61 6e | 64 28 20 50 72 65 66 69 |ndComman|d( Prefi|
|000013f0| 78 24 2b 54 65 6d 70 6c | 61 74 65 24 2b 22 20 43 |x$+Templ|ate$+" C|
|00001400| 6c 65 61 72 4d 65 72 67 | 65 22 20 29 0d 07 d0 17 |learMerg|e" )....|
|00001410| 20 20 20 53 74 61 74 65 | 25 20 3d 20 44 6f 72 6d | State|% = Dorm|
|00001420| 61 6e 74 0d 07 da 3a 20 | 20 20 f2 4d 6f 64 69 66 |ant...: | .Modif|
|00001430| 79 49 63 6f 6e 54 65 78 | 74 28 20 6d 61 69 6e 2c |yIconTex|t( main,|
|00001440| 20 4c 6f 61 64 65 64 49 | 63 6f 6e 2c 20 4e 6f 74 | LoadedI|con, Not|
|00001450| 68 69 6e 67 4c 6f 61 64 | 65 64 24 20 29 0d 07 e4 |hingLoad|ed$ )...|
|00001460| 05 cc 0d 07 ee 16 20 20 | 20 53 74 61 74 65 25 20 |...... | State% |
|00001470| 3d 20 4c 6f 61 64 65 64 | 0d 07 f8 05 cd 0d 08 02 |= Loaded|........|
|00001480| 30 f2 53 65 6e 64 43 6f | 6d 6d 61 6e 64 28 20 50 |0.SendCo|mmand( P|
|00001490| 72 65 66 69 78 24 2b 54 | 65 6d 70 6c 61 74 65 24 |refix$+T|emplate$|
|000014a0| 2b 22 20 45 64 69 74 20 | 4f 6e 22 20 29 0d 08 0c |+" Edit |On" )...|
|000014b0| 31 f2 4d 6f 64 69 66 79 | 49 63 6f 6e 54 65 78 74 |1.Modify|IconText|
|000014c0| 28 20 6d 61 69 6e 2c 20 | 43 72 65 61 74 65 49 63 |( main, |CreateIc|
|000014d0| 6f 6e 2c 20 22 43 72 65 | 61 74 65 22 20 29 0d 08 |on, "Cre|ate" )..|
|000014e0| 16 25 f2 44 65 73 65 6c | 65 63 74 49 63 6f 6e 28 |.%.Desel|ectIcon(|
|000014f0| 20 6d 61 69 6e 2c 20 43 | 72 65 61 74 65 49 63 6f | main, C|reateIco|
|00001500| 6e 20 29 0d 08 20 16 c8 | 99 20 22 48 6f 75 72 67 |n ).. ..|. "Hourg|
|00001510| 6c 61 73 73 5f 4f 66 66 | 22 0d 08 2a 05 e1 0d 08 |lass_Off|"..*....|
|00001520| 34 04 0d 08 3e 2f 20 20 | 20 20 20 20 20 20 20 20 |4...>/ | |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001540| 20 28 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a | (*-----|-------*|
|00001550| 29 0d 08 48 04 0d 08 52 | 14 dd 20 a4 43 72 65 61 |)..H...R|.. .Crea|
|00001560| 74 65 50 72 65 73 73 65 | 64 0d 08 5c 0f c8 8e 20 |tePresse|d..\... |
|00001570| 53 74 61 74 65 25 20 ca | 0d 08 5d 0e c9 20 44 6f |State% .|..].. Do|
|00001580| 72 6d 61 6e 74 3a 0d 08 | 5e 63 20 20 20 f2 45 72 |rmant:..|^c .Er|
|00001590| 72 6f 72 28 20 22 59 6f | 75 20 6d 75 73 74 20 64 |ror( "Yo|u must d|
|000015a0| 72 6f 70 20 61 20 53 74 | 79 6c 65 20 64 6f 63 75 |rop a St|yle docu|
|000015b0| 6d 65 6e 74 20 6f 6e 74 | 6f 20 74 68 69 73 20 77 |ment ont|o this w|
|000015c0| 69 6e 64 6f 77 20 62 65 | 66 6f 72 65 20 79 6f 75 |indow be|fore you|
|000015d0| 20 63 61 6e 20 63 72 65 | 61 74 65 20 61 20 63 61 | can cre|ate a ca|
|000015e0| 6c 65 6e 64 61 72 22 20 | 29 0d 08 5f 04 0d 08 66 |lendar" |).._...f|
|000015f0| 0d c9 20 4c 6f 61 64 65 | 64 3a 0d 08 70 12 20 20 |.. Loade|d:..p. |
|00001600| 20 f2 53 74 61 72 74 4d | 65 72 67 65 0d 08 7a 04 | .StartM|erge..z.|
|00001610| 0d 08 84 0d c9 20 50 61 | 75 73 65 64 3a 0d 08 8e |..... Pa|used:...|
|00001620| 2d 20 20 20 e7 20 a4 49 | 63 6f 6e 53 65 6c 65 63 |- . .I|conSelec|
|00001630| 74 65 64 28 20 6d 61 69 | 6e 2c 20 50 72 69 6e 74 |ted( mai|n, Print|
|00001640| 4f 70 74 69 6f 6e 20 29 | 20 8c 0d 08 98 1b 20 20 |Option )| ..... |
|00001650| 20 20 20 20 53 74 61 74 | 65 25 20 3d 20 50 72 69 | Stat|e% = Pri|
|00001660| 6e 74 69 6e 67 0d 08 a2 | 3d 20 20 20 20 20 20 f2 |nting...|= .|
|00001670| 53 65 6e 64 52 65 71 75 | 65 73 74 28 50 72 65 66 |SendRequ|est(Pref|
|00001680| 69 78 24 2b 54 65 6d 70 | 6c 61 74 65 24 2b 22 20 |ix$+Temp|late$+" |
|00001690| 50 72 69 6e 74 22 2c a4 | 4e 65 78 74 54 78 54 61 |Print",.|NextTxTa|
|000016a0| 67 29 0d 08 ac 08 20 20 | 20 cc 0d 08 b6 17 20 20 |g).... | ..... |
|000016b0| 20 20 20 20 f2 54 65 73 | 74 46 6f 72 42 61 74 63 | .Tes|tForBatc|
|000016c0| 68 0d 08 c0 08 20 20 20 | cd 0d 08 ca 04 0d 08 d4 |h.... |........|
|000016d0| 05 7f 0d 08 de 09 20 20 | 20 3d a3 0d 08 e8 04 0d |...... | =......|
|000016e0| 08 f2 05 cb 0d 08 fc 06 | 3d b9 0d 09 06 04 0d 09 |........|=.......|
|000016f0| 10 2f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |./ | |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 2a 2d | | (*-|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 29 0d 09 1a |--------|---*)...|
|00001720| 04 0d 09 24 16 dd 20 f2 | 45 6e 74 65 72 4d 65 72 |...$.. .|EnterMer|
|00001730| 67 65 53 74 61 74 65 0d | 09 2e 15 c8 99 20 22 48 |geState.|..... "H|
|00001740| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 09 38 14 |ourglass|_On"..8.|
|00001750| 53 74 61 74 65 25 20 3d | 20 4d 65 72 67 69 6e 67 |State% =| Merging|
|00001760| 0d 09 42 23 f2 53 65 6c | 65 63 74 49 63 6f 6e 28 |..B#.Sel|ectIcon(|
|00001770| 20 6d 61 69 6e 2c 20 43 | 72 65 61 74 65 49 63 6f | main, C|reateIco|
|00001780| 6e 20 29 0d 09 4c 3a f2 | 53 65 6e 64 52 65 71 75 |n )..L:.|SendRequ|
|00001790| 65 73 74 28 20 50 72 65 | 66 69 78 24 2b 54 65 6d |est( Pre|fix$+Tem|
|000017a0| 70 6c 61 74 65 24 2b 22 | 20 4d 65 72 67 65 22 2c |plate$+"| Merge",|
|000017b0| 20 a4 4e 65 78 74 54 78 | 54 61 67 20 29 0d 09 56 | .NextTx|Tag )..V|
|000017c0| 05 e1 0d 09 60 04 0d 09 | 6a 2f 20 20 20 20 20 20 |....`...|j/ |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000017e0| 20 20 20 20 20 28 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*-|--------|
|000017f0| 2d 2d 2d 2a 29 0d 09 74 | 04 0d 09 7e 12 dd 20 f2 |---*)..t|...~.. .|
|00001800| 72 65 63 65 69 76 65 28 | 71 25 29 0d 09 88 0e c8 |receive(|q%).....|
|00001810| 8e 20 71 25 21 31 36 20 | ca 0d 09 92 13 c9 20 4d |. q%!16 |...... M|
|00001820| 65 73 73 61 67 65 5f 51 | 75 69 74 3a 0d 09 9c 0e |essage_Q|uit:....|
|00001830| 20 20 20 71 75 69 74 25 | 3d b9 0d 09 a6 04 0d 09 | quit%|=.......|
|00001840| b0 17 c9 20 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |... Mess|age_Data|
|00001850| 4c 6f 61 64 3a 0d 09 ba | 2d 20 20 20 46 75 6c 6c |Load:...|- Full|
|00001860| 54 65 6d 70 6c 61 74 65 | 24 20 3d 20 a4 54 65 72 |Template|$ = .Ter|
|00001870| 6d 69 6e 61 74 65 28 20 | 24 28 71 25 2b 34 34 29 |minate( |$(q%+44)|
|00001880| 20 29 0d 09 c4 3a 20 20 | 20 e7 20 a4 49 6d 70 72 | )...: | . .Impr|
|00001890| 65 73 73 69 6f 6e 44 6f | 63 75 6d 65 6e 74 28 20 |essionDo|cument( |
|000018a0| 46 75 6c 6c 54 65 6d 70 | 6c 61 74 65 24 2c 20 54 |FullTemp|late$, T|
|000018b0| 65 6d 70 6c 61 74 65 24 | 20 29 20 8c 0d 09 ce 22 |emplate$| ) ...."|
|000018c0| 20 20 20 20 20 20 71 25 | 21 31 36 20 3d 20 4d 65 | q%|!16 = Me|
|000018d0| 73 73 61 67 65 5f 44 61 | 74 61 4f 70 65 6e 0d 09 |ssage_Da|taOpen..|
|000018e0| d8 13 20 20 20 20 20 20 | 71 25 21 33 36 20 3d 20 |.. |q%!36 = |
|000018f0| 30 0d 09 e2 3a 20 20 20 | 20 20 20 c8 99 20 22 57 |0...: | .. "W|
|00001900| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00001910| 2c 55 73 65 72 5f 4d 65 | 73 73 61 67 65 5f 52 65 |,User_Me|ssage_Re|
|00001920| 63 6f 72 64 65 64 2c 71 | 25 2c 30 0d 09 ec 1d 20 |corded,q|%,0.... |
|00001930| 20 20 20 20 20 44 61 74 | 61 4f 70 65 6e 52 65 66 | Dat|aOpenRef|
|00001940| 25 20 3d 20 71 25 21 38 | 0d 09 f6 08 20 20 20 cc |% = q%!8|.... .|
|00001950| 0d 0a 00 25 20 20 20 20 | 20 20 71 25 21 31 36 20 |...% | q%!16 |
|00001960| 3d 20 4d 65 73 73 61 67 | 65 5f 44 61 74 61 4c 6f |= Messag|e_DataLo|
|00001970| 61 64 41 63 6b 0d 0a 0a | 3d 20 20 20 20 20 20 c8 |adAck...|= .|
|00001980| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00001990| 61 67 65 22 2c 55 73 65 | 72 5f 4d 65 73 73 61 67 |age",Use|r_Messag|
|000019a0| 65 5f 41 63 6b 6e 6f 77 | 6c 65 64 67 65 2c 71 25 |e_Acknow|ledge,q%|
|000019b0| 2c 30 0d 0a 14 08 20 20 | 20 cd 0d 0a 1e 04 0d 0a |,0.... | .......|
|000019c0| 28 04 0d 0a 32 1a c9 20 | 4d 65 73 73 61 67 65 5f |(...2.. |Message_|
|000019d0| 44 61 74 61 4c 6f 61 64 | 41 63 6b 3a 0d 0a 3c 1f |DataLoad|Ack:..<.|
|000019e0| 20 20 20 e7 20 71 25 21 | 31 32 20 3d 20 44 61 74 | . q%!|12 = Dat|
|000019f0| 61 4f 70 65 6e 52 65 66 | 25 20 8c 0d 0a 46 39 20 |aOpenRef|% ...F9 |
|00001a00| 20 20 20 20 20 f4 20 49 | 6d 70 72 65 73 73 69 6f | . I|mpressio|
|00001a10| 6e 20 61 6c 72 65 61 64 | 79 20 6c 6f 61 64 65 64 |n alread|y loaded|
|00001a20| 20 26 20 64 6f 63 75 6d | 65 6e 74 20 61 63 63 65 | & docum|ent acce|
|00001a30| 70 74 65 64 0d 0a 50 19 | 20 20 20 20 20 20 f2 53 |pted..P.| .S|
|00001a40| 65 74 4c 6f 61 64 65 64 | 53 74 61 74 65 0d 0a 5a |etLoaded|State..Z|
|00001a50| 08 20 20 20 cd 0d 0a 64 | 04 0d 0a 6e 1d c9 20 4d |. ...d|...n.. M|
|00001a60| 65 73 73 61 67 65 5f 54 | 61 73 6b 49 6e 69 74 69 |essage_T|askIniti|
|00001a70| 61 6c 69 73 65 3a 0d 0a | 78 47 20 20 20 e7 20 28 |alise:..|xG . (|
|00001a80| 53 74 61 74 65 25 20 3d | 20 4c 6f 61 64 69 6e 67 |State% =| Loading|
|00001a90| 29 20 80 20 28 a4 54 65 | 72 6d 69 6e 61 74 65 28 |) . (.Te|rminate(|
|00001aa0| 20 24 28 71 25 2b 32 38 | 29 20 29 20 3d 20 22 49 | $(q%+28|) ) = "I|
|00001ab0| 6d 70 72 65 73 73 69 6f | 6e 22 29 20 8c 0d 0a 82 |mpressio|n") ....|
|00001ac0| 34 20 20 20 20 20 20 f4 | 20 49 6d 70 72 65 73 73 |4 .| Impress|
|00001ad0| 69 6f 6e 20 6c 6f 61 64 | 65 64 20 62 79 20 75 73 |ion load|ed by us|
|00001ae0| 20 72 75 6e 6e 69 6e 67 | 20 64 6f 63 75 6d 65 6e | running| documen|
|00001af0| 74 0d 0a 8c 19 20 20 20 | 20 20 20 f2 53 65 74 4c |t.... | .SetL|
|00001b00| 6f 61 64 65 64 53 74 61 | 74 65 0d 0a 96 08 20 20 |oadedSta|te.... |
|00001b10| 20 cd 0d 0a a0 04 0d 0a | aa 05 cb 0d 0a b4 05 e1 | .......|........|
|00001b20| 0d 0a be 04 0d 0a c8 2f | 20 20 20 20 20 20 20 20 |......./| |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b40| 20 20 20 28 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*---|--------|
|00001b50| 2d 2a 29 0d 0a d2 04 0d | 0a dc 15 dd 20 f2 53 65 |-*).....|.... .Se|
|00001b60| 74 4c 6f 61 64 65 64 53 | 74 61 74 65 0d 0a e6 36 |tLoadedS|tate...6|
|00001b70| f2 4d 6f 64 69 66 79 49 | 63 6f 6e 54 65 78 74 28 |.ModifyI|conText(|
|00001b80| 20 6d 61 69 6e 2c 20 4c | 6f 61 64 65 64 49 63 6f | main, L|oadedIco|
|00001b90| 6e 2c 20 46 75 6c 6c 54 | 65 6d 70 6c 61 74 65 24 |n, FullT|emplate$|
|00001ba0| 20 29 0d 0a f0 13 53 74 | 61 74 65 25 20 3d 20 4c | )....St|ate% = L|
|00001bb0| 6f 61 64 65 64 0d 0a fa | 15 f2 50 75 74 4f 6e 54 |oaded...|..PutOnT|
|00001bc0| 6f 70 28 20 6d 61 69 6e | 20 29 0d 0b 04 05 e1 0d |op( main| )......|
|00001bd0| 0b 0e 04 0d 0b 18 2f 20 | 20 20 20 20 20 20 20 20 |....../ | |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001bf0| 20 20 28 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*----|--------|
|00001c00| 2a 29 0d 0b 22 04 0d 0b | 2c 21 dd 20 f2 44 6f 43 |*).."...|,!. .DoC|
|00001c10| 6f 6d 6d 61 6e 64 28 4d | 65 74 68 6f 64 25 2c 50 |ommand(M|ethod%,P|
|00001c20| 61 72 61 6d 73 25 29 0d | 0b 36 11 ea 20 4f 70 74 |arams%).|.6.. Opt|
|00001c30| 69 6f 6e 24 2c 4f 6e 25 | 0d 0b 40 10 c8 8e 20 4d |ion$,On%|..@... M|
|00001c40| 65 74 68 6f 64 25 20 ca | 0d 0b 4a 0b c9 20 51 75 |ethod% .|..J.. Qu|
|00001c50| 69 74 3a 0d 0b 54 0e 20 | 20 20 71 75 69 74 25 3d |it:..T. | quit%=|
|00001c60| b9 0d 0b 5e 08 20 20 20 | e1 0d 0b 68 04 0d 0b 72 |...^. |...h...r|
|00001c70| 10 c9 20 53 65 74 4f 70 | 74 69 6f 6e 3a 0d 0b 7c |.. SetOp|tion:..||
|00001c80| 18 20 20 20 e7 20 50 61 | 72 61 6d 73 25 20 3c 3e |. . Pa|rams% <>|
|00001c90| 20 2d 31 20 8c 0d 0b 86 | 14 20 20 20 20 20 20 e3 | -1 ....|. .|
|00001ca0| 20 49 25 3d 30 20 b8 20 | 33 0d 0b 90 45 20 20 20 | I%=0 . |3...E |
|00001cb0| 20 20 20 20 20 20 e7 20 | a4 47 65 74 53 74 72 69 | . |.GetStri|
|00001cc0| 6e 67 28 50 61 72 61 6d | 73 25 2c 49 25 2c 4f 70 |ng(Param|s%,I%,Op|
|00001cd0| 74 69 6f 6e 24 29 20 80 | 20 a4 4f 6e 4f 66 66 28 |tion$) .| .OnOff(|
|00001ce0| 4f 70 74 69 6f 6e 24 2c | 4f 6e 25 29 20 8c 0d 0b |Option$,|On%) ...|
|00001cf0| 9a 17 20 20 20 20 20 20 | 20 20 20 20 20 20 e7 20 |.. | . |
|00001d00| 4f 6e 25 20 8c 0d 0b a4 | 2c 20 20 20 20 20 20 20 |On% ....|, |
|00001d10| 20 20 20 20 20 20 20 20 | f2 53 65 6c 65 63 74 49 | |.SelectI|
|00001d20| 63 6f 6e 28 20 6d 61 69 | 6e 2c 20 49 25 2b 31 20 |con( mai|n, I%+1 |
|00001d30| 29 0d 0b ae 11 20 20 20 | 20 20 20 20 20 20 20 20 |).... | |
|00001d40| 20 cc 0d 0b b8 2e 20 20 | 20 20 20 20 20 20 20 20 | ..... | |
|00001d50| 20 20 20 20 20 f2 44 65 | 73 65 6c 65 63 74 49 63 | .De|selectIc|
|00001d60| 6f 6e 28 20 6d 61 69 6e | 2c 20 49 25 2b 31 20 29 |on( main|, I%+1 )|
|00001d70| 0d 0b c2 11 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00001d80| cd 0d 0b cc 0e 20 20 20 | 20 20 20 20 20 20 cd 0d |..... | ..|
|00001d90| 0b d6 0b 20 20 20 20 20 | 20 ed 0d 0b e0 08 20 20 |... | ..... |
|00001da0| 20 cd 0d 0b ea 04 0d 0b | f4 0d c9 20 43 72 65 61 | .......|... Crea|
|00001db0| 74 65 3a 0d 0b fe 19 20 | 20 20 e7 20 a4 43 72 65 |te:.... | . .Cre|
|00001dc0| 61 74 65 50 72 65 73 73 | 65 64 20 8c 0d 0c 08 08 |atePress|ed .....|
|00001dd0| 20 20 20 cd 0d 0c 12 04 | 0d 0c 1c 0d c9 20 43 61 | .....|..... Ca|
|00001de0| 6e 63 65 6c 3a 0d 0c 26 | 15 20 20 20 f2 43 61 6e |ncel:..&|. .Can|
|00001df0| 63 65 6c 50 72 65 73 73 | 65 64 0d 0c 30 04 0d 0c |celPress|ed..0...|
|00001e00| 3a 10 c9 20 53 65 74 50 | 72 65 66 69 78 3a 0d 0c |:.. SetP|refix:..|
|00001e10| 44 2a 20 20 20 e7 20 a4 | 47 65 74 53 74 72 69 6e |D* . .|GetStrin|
|00001e20| 67 28 20 50 61 72 61 6d | 73 25 2c 30 2c 50 72 65 |g( Param|s%,0,Pre|
|00001e30| 66 69 78 24 20 29 20 8c | 0d 0c 4e 08 20 20 20 cd |fix$ ) .|..N. .|
|00001e40| 0d 0c 58 04 0d 0c 62 05 | 7f 0d 0c 6c 22 20 20 20 |..X...b.|...l" |
|00001e50| f2 44 6f 52 65 71 75 65 | 73 74 28 4d 65 74 68 6f |.DoReque|st(Metho|
|00001e60| 64 25 2c 50 61 72 61 6d | 73 25 29 0d 0c 76 04 0d |d%,Param|s%)..v..|
|00001e70| 0c 80 05 cb 0d 0c 8a 05 | e1 0d 0c 94 04 0d 0c 9e |........|........|
|00001e80| 2f 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |/ | |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 2d 2d | | (*--|
|00001ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 29 0d 0c a8 04 |--------|--*)....|
|00001eb0| 0d 0c b2 21 dd 20 f2 44 | 6f 52 65 71 75 65 73 74 |...!. .D|oRequest|
|00001ec0| 28 4d 65 74 68 6f 64 25 | 2c 50 61 72 61 6d 73 25 |(Method%|,Params%|
|00001ed0| 29 0d 0c bc 35 ea 20 53 | 69 7a 65 25 2c 4d 6f 6e |)...5. S|ize%,Mon|
|00001ee0| 74 68 24 2c 57 65 65 6b | 25 2c 44 61 79 25 2c 44 |th$,Week|%,Day%,D|
|00001ef0| 61 79 24 2c 46 6f 72 6d | 61 74 24 2c 44 61 74 4c |ay$,Form|at$,DatL|
|00001f00| 65 6e 67 74 68 25 0d 0c | c6 3d 24 42 6c 6f 63 6b |ength%..|.=$Block|
|00001f10| 25 20 3d 20 22 22 20 20 | 3a f4 20 49 6e 20 63 61 |% = "" |:. In ca|
|00001f20| 73 65 20 74 68 65 72 65 | 20 69 73 20 61 6e 20 65 |se there| is an e|
|00001f30| 72 72 6f 72 20 69 6e 20 | 74 68 65 20 63 6f 6d 6d |rror in |the comm|
|00001f40| 61 6e 64 0d 0c d0 10 c8 | 8e 20 4d 65 74 68 6f 64 |and.....|. Method|
|00001f50| 25 20 ca 0d 0c da 0a c9 | 20 53 65 74 3a 0d 0c e4 |% ......| Set:...|
|00001f60| 18 20 20 20 e7 20 50 61 | 72 61 6d 73 25 20 3c 3e |. . Pa|rams% <>|
|00001f70| 20 2d 31 20 8c 0d 0c ee | 2a 20 20 20 20 20 20 e7 | -1 ....|* .|
|00001f80| 20 a4 47 65 74 53 74 72 | 69 6e 67 28 50 61 72 61 | .GetStr|ing(Para|
|00001f90| 6d 73 25 2c 30 2c 4d 6f | 6e 74 68 24 29 20 8c 0d |ms%,0,Mo|nth$) ..|
|00001fa0| 0c f8 2f 20 20 20 20 20 | 20 20 20 20 e7 20 a4 4d |../ | . .M|
|00001fb0| 6f 6e 74 68 28 20 4d 6f | 6e 74 68 24 2c 20 43 75 |onth( Mo|nth$, Cu|
|00001fc0| 72 72 65 6e 74 4d 6f 6e | 74 68 25 29 20 8c 0d 0d |rrentMon|th%) ...|
|00001fd0| 02 0e 20 20 20 20 20 20 | 20 20 20 cd 0d 0d 0c 0b |.. | .....|
|00001fe0| 20 20 20 20 20 20 cd 0d | 0d 16 2f 20 20 20 20 20 | ..|../ |
|00001ff0| 20 e7 20 a4 47 65 74 53 | 74 72 69 6e 67 28 20 50 | . .GetS|tring( P|
|00002000| 61 72 61 6d 73 25 2c 20 | 31 2c 20 4f 70 74 69 6f |arams%, |1, Optio|
|00002010| 6e 24 20 29 20 8c 0d 0d | 20 37 20 20 20 20 20 20 |n$ ) ...| 7 |
|00002020| 20 20 20 f2 4d 6f 64 69 | 66 79 49 63 6f 6e 54 65 | .Modi|fyIconTe|
|00002030| 78 74 28 20 6d 61 69 6e | 2c 20 59 65 61 72 49 63 |xt( main|, YearIc|
|00002040| 6f 6e 2c 20 4f 70 74 69 | 6f 6e 24 20 29 0d 0d 2a |on, Opti|on$ )..*|
|00002050| 0b 20 20 20 20 20 20 cd | 0d 0d 34 2f 20 20 20 20 |. .|..4/ |
|00002060| 20 20 e7 20 a4 47 65 74 | 53 74 72 69 6e 67 28 20 | . .Get|String( |
|00002070| 50 61 72 61 6d 73 25 2c | 20 32 2c 20 4f 70 74 69 |Params%,| 2, Opti|
|00002080| 6f 6e 24 20 29 20 8c 0d | 0d 3e 35 20 20 20 20 20 |on$ ) ..|.>5 |
|00002090| 20 20 20 20 e7 20 a4 4d | 6f 6e 74 68 28 20 4f 70 | . .M|onth( Op|
|000020a0| 74 69 6f 6e 24 2c 20 43 | 75 72 72 65 6e 74 53 74 |tion$, C|urrentSt|
|000020b0| 61 72 74 4d 6f 6e 74 68 | 25 29 20 8c 0d 0d 48 1b |artMonth|%) ...H.|
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 55 70 64 | | .Upd|
|000020d0| 61 74 65 49 6e 66 6f 0d | 0d 52 0e 20 20 20 20 20 |ateInfo.|.R. |
|000020e0| 20 20 20 20 cd 0d 0d 5c | 0b 20 20 20 20 20 20 cd | ...\|. .|
|000020f0| 0d 0d 66 2f 20 20 20 20 | 20 20 e7 20 a4 47 65 74 |..f/ | . .Get|
|00002100| 53 74 72 69 6e 67 28 20 | 50 61 72 61 6d 73 25 2c |String( |Params%,|
|00002110| 20 33 2c 20 4f 70 74 69 | 6f 6e 24 20 29 20 8c 0d | 3, Opti|on$ ) ..|
|00002120| 0d 70 33 20 20 20 20 20 | 20 20 20 20 e7 20 a4 4d |.p3 | . .M|
|00002130| 6f 6e 74 68 28 20 4f 70 | 74 69 6f 6e 24 2c 20 43 |onth( Op|tion$, C|
|00002140| 75 72 72 65 6e 74 45 6e | 64 4d 6f 6e 74 68 25 29 |urrentEn|dMonth%)|
|00002150| 20 8c 0d 0d 7a 1b 20 20 | 20 20 20 20 20 20 20 20 | ...z. | |
|00002160| 20 20 f2 55 70 64 61 74 | 65 49 6e 66 6f 0d 0d 84 | .Updat|eInfo...|
|00002170| 0e 20 20 20 20 20 20 20 | 20 20 cd 0d 0d 8e 0b 20 |. | ..... |
|00002180| 20 20 20 20 20 cd 0d 0d | 98 08 20 20 20 cd 0d 0d | ...|.. ...|
|00002190| a2 04 0d 0d ac 0e c9 20 | 47 65 74 59 65 61 72 3a |....... |GetYear:|
|000021a0| 0d 0d b6 2f 20 20 20 24 | 42 6c 6f 63 6b 25 20 3d |.../ $|Block% =|
|000021b0| 20 a4 47 65 74 49 63 6f | 6e 54 65 78 74 28 20 6d | .GetIco|nText( m|
|000021c0| 61 69 6e 2c 20 59 65 61 | 72 49 63 6f 6e 20 29 0d |ain, Yea|rIcon ).|
|000021d0| 0d c0 04 0d 0d ca 0f c9 | 20 47 65 74 4d 6f 6e 74 |........| GetMont|
|000021e0| 68 3a 0d 0d d4 28 20 20 | 20 24 42 6c 6f 63 6b 25 |h:...( | $Block%|
|000021f0| 20 3d 20 4d 6f 6e 74 68 | 24 28 20 43 75 72 72 65 | = Month|$( Curre|
|00002200| 6e 74 4d 6f 6e 74 68 25 | 20 29 0d 0d de 04 0d 0d |ntMonth%| )......|
|00002210| e8 0e c9 20 47 65 74 44 | 61 74 65 3a 0d 0d f2 1f |... GetD|ate:....|
|00002220| 20 20 20 24 42 6c 6f 63 | 6b 25 20 3d 20 22 53 79 | $Bloc|k% = "Sy|
|00002230| 6e 74 61 78 20 45 72 72 | 6f 72 22 0d 0d fc 18 20 |ntax Err|or".... |
|00002240| 20 20 e7 20 50 61 72 61 | 6d 73 25 20 3c 3e 20 2d | . Para|ms% <> -|
|00002250| 31 20 8c 0d 0e 06 2f 20 | 20 20 20 20 20 e7 20 a4 |1 ..../ | . .|
|00002260| 47 65 74 53 74 72 69 6e | 67 28 20 50 61 72 61 6d |GetStrin|g( Param|
|00002270| 73 25 2c 20 33 2c 20 46 | 6f 72 6d 61 74 24 20 29 |s%, 3, F|ormat$ )|
|00002280| 20 8c 0d 0e 10 22 20 20 | 20 20 20 20 20 20 20 44 | ...." | D|
|00002290| 61 79 4c 65 6e 67 74 68 | 25 20 3d 20 bb 46 6f 72 |ayLength|% = .For|
|000022a0| 6d 61 74 24 0d 0e 1a 0b | 20 20 20 20 20 20 cc 0d |mat$....| ..|
|000022b0| 0e 24 1b 20 20 20 20 20 | 20 20 20 20 44 61 79 4c |.$. | DayL|
|000022c0| 65 6e 67 74 68 25 20 3d | 20 30 0d 0e 2e 0b 20 20 |ength% =| 0.... |
|000022d0| 20 20 20 20 cd 0d 0e 38 | 47 20 20 20 20 20 20 e7 | ...8|G .|
|000022e0| 20 a4 47 65 74 53 74 72 | 69 6e 67 28 20 50 61 72 | .GetStr|ing( Par|
|000022f0| 61 6d 73 25 2c 20 30 2c | 20 4d 6f 6e 74 68 24 20 |ams%, 0,| Month$ |
|00002300| 29 20 80 20 a4 4d 6f 6e | 74 68 28 20 4d 6f 6e 74 |) . .Mon|th( Mont|
|00002310| 68 24 2c 20 4d 6f 6e 74 | 68 25 20 29 0d 0e 42 2f |h$, Mont|h% )..B/|
|00002320| 20 20 20 20 20 20 20 20 | 20 e7 20 a4 47 65 74 56 | | . .GetV|
|00002330| 61 6c 75 65 28 20 50 61 | 72 61 6d 73 25 2c 20 31 |alue( Pa|rams%, 1|
|00002340| 2c 20 57 65 65 6b 25 20 | 29 20 8c 0d 0e 4c 1d 20 |, Week% |) ...L. |
|00002350| 20 20 20 20 20 20 20 20 | 20 20 20 e7 20 57 65 65 | | . Wee|
|00002360| 6b 25 20 3e 20 36 20 8c | 0d 0e 56 1c 20 20 20 20 |k% > 6 .|..V. |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 57 65 65 6b 25 | | Week%|
|00002380| 20 3d 20 36 0d 0e 60 11 | 20 20 20 20 20 20 20 20 | = 6..`.| |
|00002390| 20 20 20 20 cd 0d 0e 6a | 30 20 20 20 20 20 20 20 | ...j|0 |
|000023a0| 20 20 20 20 20 e7 20 a4 | 47 65 74 53 74 72 69 6e | . .|GetStrin|
|000023b0| 67 28 20 50 61 72 61 6d | 73 25 2c 32 2c 44 61 79 |g( Param|s%,2,Day|
|000023c0| 24 20 29 20 8c 0d 0e 74 | 29 20 20 20 20 20 20 20 |$ ) ...t|) |
|000023d0| 20 20 20 20 20 20 20 20 | e7 20 a4 44 61 79 28 20 | |. .Day( |
|000023e0| 44 61 79 24 2c 20 44 61 | 79 25 20 29 20 8c 0d 0e |Day$, Da|y% ) ...|
|000023f0| 7e 28 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |~( | |
|00002400| 20 20 20 20 e7 20 44 61 | 79 4c 65 6e 67 74 68 25 | . Da|yLength%|
|00002410| 20 3d 20 30 20 8c 0d 0e | 88 43 20 20 20 20 20 20 | = 0 ...|.C |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 24 | | $|
|00002430| 42 6c 6f 63 6b 25 3d 43 | 61 6c 65 6e 64 61 72 24 |Block%=C|alendar$|
|00002440| 28 4d 6f 6e 74 68 25 2d | 31 2c 57 65 65 6b 25 2d |(Month%-|1,Week%-|
|00002450| 31 2c 44 61 79 25 2d 31 | 29 0d 0e 92 17 20 20 20 |1,Day%-1|).... |
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 cc | | .|
|00002470| 0d 0e 9c 4b 20 20 20 20 | 20 20 20 20 20 20 20 20 |...K | |
|00002480| 20 20 20 20 20 20 20 20 | 20 24 42 6c 6f 63 6b 25 | | $Block%|
|00002490| 3d a4 44 61 79 4f 66 57 | 65 65 6b 28 4d 6f 6e 74 |=.DayOfW|eek(Mont|
|000024a0| 68 25 2c 57 65 65 6b 25 | 2c 44 61 79 25 2d 31 2c |h%,Week%|,Day%-1,|
|000024b0| 44 61 79 4c 65 6e 67 74 | 68 25 29 0d 0e a6 17 20 |DayLengt|h%).... |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024d0| 20 cd 0d 0e b0 14 20 20 | 20 20 20 20 20 20 20 20 | ..... | |
|000024e0| 20 20 20 20 20 cd 0d 0e | ba 11 20 20 20 20 20 20 | ...|.. |
|000024f0| 20 20 20 20 20 20 cc 0d | 0e c4 1d 20 20 20 20 20 | ..|... |
|00002500| 20 20 20 20 20 20 20 20 | 20 20 24 42 6c 6f 63 6b | | $Block|
|00002510| 25 3d 22 22 0d 0e ce 25 | 20 20 20 20 20 20 20 20 |%=""...%| |
|00002520| 20 20 20 20 20 20 20 e7 | 20 44 61 79 4c 65 6e 67 | .| DayLeng|
|00002530| 74 68 25 20 3d 20 30 20 | 8c 0d 0e d8 22 20 20 20 |th% = 0 |...." |
|00002540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 e3 | | .|
|00002550| 20 44 61 79 25 3d 30 20 | b8 20 35 0d 0e e2 4a 20 | Day%=0 |. 5...J |
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002570| 20 20 20 20 24 42 6c 6f | 63 6b 25 2b 3d 43 61 6c | $Blo|ck%+=Cal|
|00002580| 65 6e 64 61 72 24 28 4d | 6f 6e 74 68 25 2d 31 2c |endar$(M|onth%-1,|
|00002590| 57 65 65 6b 25 2d 31 2c | 44 61 79 25 29 2b 22 7b |Week%-1,|Day%)+"{|
|000025a0| 74 61 62 7d 22 0d 0e ec | 17 20 20 20 20 20 20 20 |tab}"...|. |
|000025b0| 20 20 20 20 20 20 20 20 | 20 20 20 ed 0d 0e f6 3c | | ....<|
|000025c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025d0| 20 20 24 42 6c 6f 63 6b | 25 2b 3d 43 61 6c 65 6e | $Block|%+=Calen|
|000025e0| 64 61 72 24 28 4d 6f 6e | 74 68 25 2d 31 2c 57 65 |dar$(Mon|th%-1,We|
|000025f0| 65 6b 25 2d 31 2c 36 29 | 0d 0f 00 14 20 20 20 20 |ek%-1,6)|.... |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 cc 0d 0f 0a 22 | | ...."|
|00002610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002620| 20 20 e3 20 44 61 79 25 | 3d 30 20 b8 20 35 0d 0f | . Day%|=0 . 5..|
|00002630| 14 52 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.R | |
|00002640| 20 20 20 20 20 20 20 24 | 42 6c 6f 63 6b 25 2b 3d | $|Block%+=|
|00002650| a4 44 61 79 4f 66 57 65 | 65 6b 28 4d 6f 6e 74 68 |.DayOfWe|ek(Month|
|00002660| 25 2c 57 65 65 6b 25 2c | 44 61 79 25 2c 44 61 79 |%,Week%,|Day%,Day|
|00002670| 4c 65 6e 67 74 68 25 29 | 2b 22 7b 74 61 62 7d 22 |Length%)|+"{tab}"|
|00002680| 0d 0f 1e 17 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|00002690| 20 20 20 20 20 20 ed 0d | 0f 28 47 20 20 20 20 20 | ..|.(G |
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 24 42 6c | | $Bl|
|000026b0| 6f 63 6b 25 2b 3d a4 44 | 61 79 4f 66 57 65 65 6b |ock%+=.D|ayOfWeek|
|000026c0| 28 4d 6f 6e 74 68 25 2c | 57 65 65 6b 25 2c 44 61 |(Month%,|Week%,Da|
|000026d0| 79 25 2c 44 61 79 4c 65 | 6e 67 74 68 25 29 0d 0f |y%,DayLe|ngth%)..|
|000026e0| 32 14 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2. | |
|000026f0| 20 cd 0d 0f 3c 11 20 20 | 20 20 20 20 20 20 20 20 | ...<. | |
|00002700| 20 20 cd 0d 0f 46 0e 20 | 20 20 20 20 20 20 20 20 | ...F. | |
|00002710| cd 0d 0f 50 0b 20 20 20 | 20 20 20 cd 0d 0f 5a 08 |...P. | ...Z.|
|00002720| 20 20 20 cd 0d 0f 64 04 | 0d 0f 6e 10 c9 20 4e 65 | ...d.|..n.. Ne|
|00002730| 78 74 4d 6f 6e 74 68 3a | 0d 0f 78 1f 20 20 20 f2 |xtMonth:|..x. .|
|00002740| 4e 65 78 74 28 20 43 75 | 72 72 65 6e 74 4d 6f 6e |Next( Cu|rrentMon|
|00002750| 74 68 25 2c 20 31 29 0d | 0f 82 04 0d 0f 8c 05 cb |th%, 1).|........|
|00002760| 0d 0f 96 13 24 42 6c 6f | 63 6b 25 2b 3d bd 31 33 |....$Blo|ck%+=.13|
|00002770| 2b bd 30 0d 0f a0 14 53 | 69 7a 65 25 20 3d 20 a9 |+.0....S|ize% = .|
|00002780| 24 42 6c 6f 63 6b 25 0d | 0f aa 12 42 6c 6f 63 6b |$Block%.|...Block|
|00002790| 25 3f 53 69 7a 65 25 3d | 30 0d 0f b4 29 f2 53 65 |%?Size%=|0...).Se|
|000027a0| 74 75 70 54 72 61 6e 73 | 6d 69 73 73 69 6f 6e 28 |tupTrans|mission(|
|000027b0| 20 42 6c 6f 63 6b 25 2c | 20 53 69 7a 65 25 2b 31 | Block%,| Size%+1|
|000027c0| 20 29 0d 0f be 24 f2 53 | 65 6e 64 52 65 70 6c 79 | )...$.S|endReply|
|000027d0| 28 20 54 69 74 6c 65 24 | 2c 20 a4 4e 65 78 74 54 |( Title$|, .NextT|
|000027e0| 78 54 61 67 20 29 0d 0f | c8 05 e1 0d 0f d2 04 0d |xTag )..|........|
|000027f0| 0f dc 2f 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |../ | |
|00002800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 2a | | (*|
|00002810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 29 0d 0f |--------|----*)..|
|00002820| e6 04 0d 0f f0 30 dd 20 | a4 44 61 79 4f 66 57 65 |.....0. |.DayOfWe|
|00002830| 65 6b 28 20 4d 6f 6e 74 | 68 25 2c 20 57 65 65 6b |ek( Mont|h%, Week|
|00002840| 25 2c 20 44 61 79 25 2c | 20 4c 65 6e 67 74 68 25 |%, Day%,| Length%|
|00002850| 20 29 0d 0f fa 3b 3d c0 | 20 44 61 79 24 28 44 61 | )...;=.| Day$(Da|
|00002860| 79 4f 66 57 65 65 6b 25 | 28 4d 6f 6e 74 68 25 2d |yOfWeek%|(Month%-|
|00002870| 31 2c 28 57 65 65 6b 25 | 2d 31 29 2a 37 2b 44 61 |1,(Week%|-1)*7+Da|
|00002880| 79 25 29 29 2c 4c 65 6e | 67 74 68 25 29 0d 10 04 |y%)),Len|gth%)...|
|00002890| 04 0d 10 0e 04 0d 10 18 | 2f 20 20 20 20 20 20 20 |........|/ |
|000028a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028b0| 20 20 20 20 28 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*--|--------|
|000028c0| 2d 2d 2a 29 0d 10 22 04 | 0d 10 2c 1e dd 20 a4 4f |--*)..".|..,.. .O|
|000028d0| 6e 4f 66 66 28 20 4f 70 | 74 69 6f 6e 24 2c 20 f8 |nOff( Op|tion$, .|
|000028e0| 20 4f 6e 25 20 29 0d 10 | 36 1e e7 20 a7 22 6f 6e | On% )..|6.. ."on|
|000028f0| 4f 6e 6f 4e 4f 4e 22 2c | 4f 70 74 69 6f 6e 24 29 |OnoNON",|Option$)|
|00002900| 3e 30 20 8c 0d 10 40 0e | 20 20 20 4f 6e 25 20 3d |>0 ...@.| On% =|
|00002910| 20 b9 0d 10 4a 09 20 20 | 20 3d b9 0d 10 54 05 cd | ...J. | =...T..|
|00002920| 0d 10 5e 2e e7 20 a7 22 | 6f 66 66 4f 66 66 6f 46 |..^.. ."|offOffoF|
|00002930| 66 4f 46 66 6f 66 46 4f | 66 46 6f 46 46 4f 46 46 |fOFfofFO|fFoFFOFF|
|00002940| 22 2c 4f 70 74 69 6f 6e | 24 29 3e 30 20 8c 0d 10 |",Option|$)>0 ...|
|00002950| 68 0e 20 20 20 4f 6e 25 | 20 3d 20 a3 0d 10 72 09 |h. On%| = ...r.|
|00002960| 20 20 20 3d b9 0d 10 7c | 05 cd 0d 10 86 06 3d a3 | =...||......=.|
|00002970| 0d 10 90 04 0d 10 9a 2f | 20 20 20 20 20 20 20 20 |......./| |
|00002980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002990| 20 20 20 28 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*---|--------|
|000029a0| 2d 2a 29 0d 10 a4 04 0d | 10 ae 20 dd 20 a4 4d 6f |-*).....|.. . .Mo|
|000029b0| 6e 74 68 28 20 4d 6f 6e | 74 68 24 2c 20 f8 20 4d |nth( Mon|th$, . M|
|000029c0| 6f 6e 74 68 25 20 29 0d | 10 b8 32 e7 20 28 43 75 |onth% ).|..2. (Cu|
|000029d0| 72 72 65 6e 74 4d 6f 6e | 74 68 25 20 3c 20 31 29 |rrentMon|th% < 1)|
|000029e0| 20 84 20 28 43 75 72 72 | 65 6e 74 4d 6f 6e 74 68 | . (Curr|entMonth|
|000029f0| 25 20 3e 20 31 32 29 20 | 8c 0d 10 c2 18 20 20 20 |% > 12) |..... |
|00002a00| 43 75 72 72 65 6e 74 4d | 6f 6e 74 68 25 20 3d 20 |CurrentM|onth% = |
|00002a10| 31 0d 10 cc 05 cd 0d 10 | d6 1a e7 20 4d 6f 6e 74 |1.......|... Mont|
|00002a20| 68 24 20 3d 20 22 43 75 | 72 72 65 6e 74 22 20 8c |h$ = "Cu|rrent" .|
|00002a30| 0d 10 e0 1d 20 20 20 4d | 6f 6e 74 68 25 20 3d 20 |.... M|onth% = |
|00002a40| 43 75 72 72 65 6e 74 4d | 6f 6e 74 68 25 0d 10 ea |CurrentM|onth%...|
|00002a50| 09 20 20 20 3d b9 0d 10 | f4 05 cd 0d 10 fe 17 e7 |. =...|........|
|00002a60| 20 4d 6f 6e 74 68 24 20 | 3d 20 22 4e 65 78 74 22 | Month$ |= "Next"|
|00002a70| 20 8c 0d 11 08 20 20 20 | 20 f2 4e 65 78 74 28 20 | .... | .Next( |
|00002a80| 43 75 72 72 65 6e 74 4d | 6f 6e 74 68 25 2c 20 31 |CurrentM|onth%, 1|
|00002a90| 20 29 0d 11 12 1d 20 20 | 20 4d 6f 6e 74 68 25 20 | ).... | Month% |
|00002aa0| 3d 20 43 75 72 72 65 6e | 74 4d 6f 6e 74 68 25 0d |= Curren|tMonth%.|
|00002ab0| 11 1c 09 20 20 20 3d b9 | 0d 11 26 05 cd 0d 11 30 |... =.|..&....0|
|00002ac0| 16 4d 6f 6e 74 68 25 20 | 3d 20 bb 28 4d 6f 6e 74 |.Month% |= .(Mont|
|00002ad0| 68 24 29 0d 11 3a 14 e7 | 20 4d 6f 6e 74 68 25 3c |h$)..:..| Month%<|
|00002ae0| 3e 30 20 8c 20 3d b9 0d | 11 44 0c 4d 6f 6e 74 68 |>0 . =..|.D.Month|
|00002af0| 25 3d 31 0d 11 4e 12 c8 | 95 20 4d 6f 6e 74 68 25 |%=1..N..|. Month%|
|00002b00| 20 3c 20 31 33 0d 11 58 | 24 20 20 20 e7 20 a7 4d | < 13..X|$ . .M|
|00002b10| 6f 6e 74 68 24 28 4d 6f | 6e 74 68 25 29 2c 4d 6f |onth$(Mo|nth%),Mo|
|00002b20| 6e 74 68 24 29 3e 30 20 | 8c 0d 11 62 0c 20 20 20 |nth$)>0 |...b. |
|00002b30| 20 20 20 3d b9 0d 11 6c | 08 20 20 20 cd 0d 11 76 | =...l|. ...v|
|00002b40| 10 20 20 20 4d 6f 6e 74 | 68 25 2b 3d 31 0d 11 80 |. Mont|h%+=1...|
|00002b50| 05 ce 0d 11 8a 06 3d a3 | 0d 11 94 04 0d 11 9e 2f |......=.|......./|
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b70| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 2d 2d 2d | | (*---|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 29 0d 11 a8 04 0d |--------|-*).....|
|00002b90| 11 b2 1a dd 20 a4 44 61 | 79 28 20 44 61 79 24 2c |.... .Da|y( Day$,|
|00002ba0| 20 f8 20 44 61 79 25 20 | 29 0d 11 bc 12 44 61 79 | . Day% |)....Day|
|00002bb0| 25 20 3d 20 bb 28 44 61 | 79 24 29 0d 11 c6 12 e7 |% = .(Da|y$).....|
|00002bc0| 20 44 61 79 25 3c 3e 30 | 20 8c 20 3d b9 0d 11 d0 | Day%<>0| . =....|
|00002bd0| 0a 44 61 79 25 3d 31 0d | 11 da 0f c8 95 20 44 61 |.Day%=1.|..... Da|
|00002be0| 79 25 20 3c 20 38 0d 11 | e4 1e 20 20 20 e7 20 a7 |y% < 8..|.. . .|
|00002bf0| 44 61 79 24 28 44 61 79 | 25 29 2c 44 61 79 24 29 |Day$(Day|%),Day$)|
|00002c00| 3e 30 20 8c 0d 11 ee 0c | 20 20 20 20 20 20 3d b9 |>0 .....| =.|
|00002c10| 0d 11 f8 08 20 20 20 cd | 0d 12 02 0e 20 20 20 44 |.... .|.... D|
|00002c20| 61 79 25 2b 3d 31 0d 12 | 0c 05 ce 0d 12 16 06 3d |ay%+=1..|.......=|
|00002c30| a3 0d 12 20 04 0d 12 2a | 2f 20 20 20 20 20 20 20 |... ...*|/ |
|00002c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c50| 20 20 20 20 28 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*--|--------|
|00002c60| 2d 2d 2a 29 0d 12 34 04 | 0d 12 3e 15 dd 20 f2 4b |--*)..4.|..>.. .K|
|00002c70| 65 79 50 72 65 73 73 65 | 64 28 71 25 29 0d 12 48 |eyPresse|d(q%)..H|
|00002c80| 1c ea 20 63 25 2c 57 69 | 6e 64 6f 77 25 2c 49 63 |.. c%,Wi|ndow%,Ic|
|00002c90| 6f 6e 25 2c 69 63 6f 6e | 25 0d 12 52 11 57 69 6e |on%,icon|%..R.Win|
|00002ca0| 64 6f 77 25 20 3d 20 21 | 71 25 0d 12 5c 10 69 63 |dow% = !|q%..\.ic|
|00002cb0| 6f 6e 25 20 3d 20 71 25 | 21 34 0d 12 66 10 4b 65 |on% = q%|!4..f.Ke|
|00002cc0| 79 25 20 3d 20 71 25 21 | 32 34 0d 12 70 10 c8 8e |y% = q%!|24..p...|
|00002cd0| 20 57 69 6e 64 6f 77 25 | 20 ca 0d 12 7a 0b c9 20 | Window%| ...z.. |
|00002ce0| 6d 61 69 6e 3a 0d 12 84 | 10 20 20 20 c8 8e 20 4b |main:...|. .. K|
|00002cf0| 65 79 25 20 ca 0d 12 8e | 0c 20 20 20 c9 20 31 33 |ey% ....|. . 13|
|00002d00| 3a 0d 12 98 35 20 20 20 | 20 20 20 e7 20 a4 43 72 |:...5 | . .Cr|
|00002d10| 65 61 74 65 50 72 65 73 | 73 65 64 20 84 20 a4 48 |eatePres|sed . .H|
|00002d20| 61 73 49 6e 70 75 74 46 | 6f 63 75 73 28 6d 61 69 |asInputF|ocus(mai|
|00002d30| 6e 29 20 8c 20 e1 0d 12 | a2 04 0d 12 ac 08 20 20 |n) . ...|...... |
|00002d40| 20 cb 0d 12 b6 04 0d 12 | c0 05 cb 0d 12 ca 1d c8 | .......|........|
|00002d50| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00002d60| 65 79 22 2c 4b 65 79 25 | 0d 12 d4 05 e1 0d 12 de |ey",Key%|........|
|00002d70| 04 0d 12 e8 2f 20 20 20 | 20 20 20 20 20 20 20 20 |..../ | |
|00002d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d90| 28 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 29 |(*------|------*)|
|00002da0| 0d 12 f2 04 0d 12 fc 1c | f4 20 50 6f 69 6e 74 65 |........|. Pointe|
|00002db0| 72 20 6c 65 61 76 69 6e | 67 20 77 69 6e 64 6f 77 |r leavin|g window|
|00002dc0| 0d 13 06 16 dd 20 f2 4c | 65 61 76 65 57 69 6e 64 |..... .L|eaveWind|
|00002dd0| 6f 77 28 71 25 29 0d 13 | 10 0d c8 8e 20 71 25 21 |ow(q%)..|.... q%!|
|00002de0| 30 20 ca 0d 13 1a 0b c9 | 20 69 6e 66 6f 3a 0d 13 |0 ......| info:..|
|00002df0| 24 10 20 20 20 71 25 21 | 30 3d 69 6e 66 6f 0d 13 |$. q%!|0=info..|
|00002e00| 2e 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 43 6c |. .. |"Wimp_Cl|
|00002e10| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 0d 13 |oseWindo|w",,q%..|
|00002e20| 38 04 0d 13 42 05 cb 0d | 13 4c 05 e1 0d 13 56 04 |8...B...|.L....V.|
|00002e30| 0d 13 60 2f 20 20 20 20 | 20 20 20 20 20 20 20 20 |..`/ | |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00002e50| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 29 0d |*-------|-----*).|
|00002e60| 13 6a 04 0d 13 74 1a f4 | 20 6d 6f 75 73 65 20 62 |.j...t..| mouse b|
|00002e70| 75 74 74 6f 6e 20 70 72 | 65 73 73 65 64 0d 13 7e |utton pr|essed..~|
|00002e80| 12 dd 20 f2 62 75 74 74 | 6f 6e 73 28 71 25 29 0d |.. .butt|ons(q%).|
|00002e90| 13 88 2c ea 20 57 69 6e | 64 6f 77 25 2c 49 63 6f |..,. Win|dow%,Ico|
|00002ea0| 6e 25 2c 69 63 6f 6e 25 | 2c 42 75 74 74 6f 6e 25 |n%,icon%|,Button%|
|00002eb0| 2c 44 69 72 65 63 74 69 | 6f 6e 25 0d 13 92 0f 69 |,Directi|on%....i|
|00002ec0| 63 6f 6e 25 3d 71 25 21 | 31 36 0d 13 9c 11 57 69 |con%=q%!|16....Wi|
|00002ed0| 6e 64 6f 77 25 3d 71 25 | 21 31 32 0d 13 a6 10 42 |ndow%=q%|!12....B|
|00002ee0| 75 74 74 6f 6e 25 3d 71 | 25 21 38 0d 13 b0 27 49 |utton%=q|%!8...'I|
|00002ef0| 63 6f 6e 25 3d a4 57 69 | 6d 70 54 6f 4d 69 6e 65 |con%=.Wi|mpToMine|
|00002f00| 28 20 57 69 6e 64 6f 77 | 25 2c 20 69 63 6f 6e 25 |( Window|%, icon%|
|00002f10| 20 29 0d 13 ba 10 c8 8e | 20 57 69 6e 64 6f 77 25 | )......| Window%|
|00002f20| 20 ca 0d 13 c4 14 c9 20 | 49 63 6f 6e 42 61 72 57 | ...... |IconBarW|
|00002f30| 69 6e 64 6f 77 3a 0d 13 | ce 13 20 20 20 c8 8e 20 |indow:..|.. .. |
|00002f40| 42 75 74 74 6f 6e 25 20 | ca 0d 13 d8 10 20 20 20 |Button% |..... |
|00002f50| c9 20 53 65 6c 65 63 74 | 3a 0d 13 e2 1b 20 20 20 |. Select|:.... |
|00002f60| 20 20 20 f2 50 75 74 4f | 6e 54 6f 70 28 20 6d 61 | .PutO|nTop( ma|
|00002f70| 69 6e 20 29 0d 13 ec 04 | 0d 13 f6 0e 20 20 20 c9 |in )....|.... .|
|00002f80| 20 4d 65 6e 75 3a 0d 14 | 00 2c 20 20 20 20 20 20 | Menu:..|., |
|00002f90| f2 44 72 61 77 4d 65 6e | 75 28 20 49 63 6f 6e 42 |.DrawMen|u( IconB|
|00002fa0| 61 72 4d 65 6e 75 2c 20 | 71 25 21 30 2c 20 39 36 |arMenu, |q%!0, 96|
|00002fb0| 20 29 0d 14 0a 04 0d 14 | 14 08 20 20 20 cb 0d 14 | )......|.. ...|
|00002fc0| 1e 04 0d 14 28 0b c9 20 | 6d 61 69 6e 3a 0d 14 32 |....(.. |main:..2|
|00002fd0| 13 20 20 20 c8 8e 20 42 | 75 74 74 6f 6e 25 20 ca |. .. B|utton% .|
|00002fe0| 0d 14 3c 17 20 20 20 c9 | 20 53 65 6c 65 63 74 2c |..<. .| Select,|
|00002ff0| 41 64 6a 75 73 74 3a 0d | 14 46 1e 20 20 20 20 20 |Adjust:.|.F. |
|00003000| 20 e7 20 42 75 74 74 6f | 6e 25 20 3d 20 53 65 6c | . Butto|n% = Sel|
|00003010| 65 63 74 20 8c 0d 14 50 | 1b 20 20 20 20 20 20 20 |ect ...P|. |
|00003020| 20 20 44 69 72 65 63 74 | 69 6f 6e 25 20 3d 20 31 | Direct|ion% = 1|
|00003030| 0d 14 5a 0b 20 20 20 20 | 20 20 cc 0d 14 64 1c 20 |..Z. | ...d. |
|00003040| 20 20 20 20 20 20 20 20 | 44 69 72 65 63 74 69 6f | |Directio|
|00003050| 6e 25 20 3d 20 2d 31 0d | 14 6e 0b 20 20 20 20 20 |n% = -1.|.n. |
|00003060| 20 cd 0d 14 78 14 20 20 | 20 20 20 20 c8 8e 20 49 | ...x. | .. I|
|00003070| 63 6f 6e 25 20 ca 0d 14 | 82 1a 20 20 20 20 20 20 |con% ...|.. |
|00003080| c9 20 44 69 72 65 63 74 | 6f 72 79 49 63 6f 6e 3a |. Direct|oryIcon:|
|00003090| 0d 14 8c 5f 20 20 20 20 | 20 20 20 20 20 ff 28 20 |..._ | .( |
|000030a0| 22 53 65 74 20 41 6c 69 | 61 73 24 4f 70 65 6e 46 |"Set Ali|as$OpenF|
|000030b0| 69 6c 65 72 20 22 2b 51 | 75 6f 74 65 24 2b 22 46 |iler "+Q|uote$+"F|
|000030c0| 69 6c 65 72 5f 4f 70 65 | 6e 44 69 72 20 3c 43 61 |iler_Ope|nDir <Ca|
|000030d0| 6c 65 6e 64 61 72 24 44 | 69 72 3e 2e 43 61 6c 65 |lendar$D|ir>.Cale|
|000030e0| 6e 64 61 72 73 22 2b 51 | 75 6f 74 65 24 20 29 0d |ndars"+Q|uote$ ).|
|000030f0| 14 96 1d 20 20 20 20 20 | 20 20 20 20 ff 28 20 22 |... | .( "|
|00003100| 4f 70 65 6e 46 69 6c 65 | 72 22 20 29 0d 14 a0 36 |OpenFile|r" )...6|
|00003110| 20 20 20 20 20 20 20 20 | 20 ff 28 20 22 53 65 74 | | .( "Set|
|00003120| 20 41 6c 69 61 73 24 4f | 70 65 6e 46 69 6c 65 72 | Alias$O|penFiler|
|00003130| 20 22 2b 51 75 6f 74 65 | 24 2b 51 75 6f 74 65 24 | "+Quote|$+Quote$|
|00003140| 20 29 0d 14 aa 04 0d 14 | b4 17 20 20 20 20 20 20 | )......|.. |
|00003150| c9 20 43 72 65 61 74 65 | 49 63 6f 6e 3a 0d 14 be |. Create|Icon:...|
|00003160| 1f 20 20 20 20 20 20 20 | 20 20 e7 20 a4 43 72 65 |. | . .Cre|
|00003170| 61 74 65 50 72 65 73 73 | 65 64 20 8c 0d 14 c8 0e |atePress|ed .....|
|00003180| 20 20 20 20 20 20 20 20 | 20 cd 0d 14 d2 04 0d 14 | | .......|
|00003190| dc 18 20 20 20 20 20 20 | c9 20 53 74 61 72 74 55 |.. |. StartU|
|000031a0| 70 49 63 6f 6e 3a 0d 14 | e6 34 20 20 20 20 20 20 |pIcon:..|.4 |
|000031b0| 20 20 20 f2 4e 65 78 74 | 28 20 43 75 72 72 65 6e | .Next|( Curren|
|000031c0| 74 53 74 61 72 74 4d 6f | 6e 74 68 25 2c 20 44 69 |tStartMo|nth%, Di|
|000031d0| 72 65 63 74 69 6f 6e 25 | 20 29 0d 14 f0 36 20 20 |rection%| )...6 |
|000031e0| 20 20 20 20 20 20 20 e7 | 20 43 75 72 72 65 6e 74 | .| Current|
|000031f0| 45 6e 64 4d 6f 6e 74 68 | 25 20 3c 20 43 75 72 72 |EndMonth|% < Curr|
|00003200| 65 6e 74 53 74 61 72 74 | 4d 6f 6e 74 68 25 20 8c |entStart|Month% .|
|00003210| 0d 14 fa 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |...5 | |
|00003220| 43 75 72 72 65 6e 74 45 | 6e 64 4d 6f 6e 74 68 25 |CurrentE|ndMonth%|
|00003230| 20 3d 20 43 75 72 72 65 | 6e 74 53 74 61 72 74 4d | = Curre|ntStartM|
|00003240| 6f 6e 74 68 25 0d 15 04 | 0e 20 20 20 20 20 20 20 |onth%...|. |
|00003250| 20 20 cd 0d 15 0e 18 20 | 20 20 20 20 20 20 20 20 | ..... | |
|00003260| f2 55 70 64 61 74 65 49 | 6e 66 6f 0d 15 18 04 0d |.UpdateI|nfo.....|
|00003270| 15 22 1a 20 20 20 20 20 | 20 c9 20 53 74 61 72 74 |.". | . Start|
|00003280| 44 6f 77 6e 49 63 6f 6e | 3a 0d 15 2c 35 20 20 20 |DownIcon|:..,5 |
|00003290| 20 20 20 20 20 20 f2 4e | 65 78 74 28 20 43 75 72 | .N|ext( Cur|
|000032a0| 72 65 6e 74 53 74 61 72 | 74 4d 6f 6e 74 68 25 2c |rentStar|tMonth%,|
|000032b0| 20 2d 44 69 72 65 63 74 | 69 6f 6e 25 20 29 0d 15 | -Direct|ion% )..|
|000032c0| 36 36 20 20 20 20 20 20 | 20 20 20 e7 20 43 75 72 |66 | . Cur|
|000032d0| 72 65 6e 74 45 6e 64 4d | 6f 6e 74 68 25 20 3c 20 |rentEndM|onth% < |
|000032e0| 43 75 72 72 65 6e 74 53 | 74 61 72 74 4d 6f 6e 74 |CurrentS|tartMont|
|000032f0| 68 25 20 8c 0d 15 40 35 | 20 20 20 20 20 20 20 20 |h% ...@5| |
|00003300| 20 20 20 20 43 75 72 72 | 65 6e 74 45 6e 64 4d 6f | Curr|entEndMo|
|00003310| 6e 74 68 25 20 3d 20 43 | 75 72 72 65 6e 74 53 74 |nth% = C|urrentSt|
|00003320| 61 72 74 4d 6f 6e 74 68 | 25 0d 15 4a 0e 20 20 20 |artMonth|%..J. |
|00003330| 20 20 20 20 20 20 cd 0d | 15 54 18 20 20 20 20 20 | ..|.T. |
|00003340| 20 20 20 20 f2 55 70 64 | 61 74 65 49 6e 66 6f 0d | .Upd|ateInfo.|
|00003350| 15 5e 04 0d 15 68 16 20 | 20 20 20 20 20 c9 20 45 |.^...h. | . E|
|00003360| 6e 64 55 70 49 63 6f 6e | 3a 0d 15 72 32 20 20 20 |ndUpIcon|:..r2 |
|00003370| 20 20 20 20 20 20 f2 4e | 65 78 74 28 20 43 75 72 | .N|ext( Cur|
|00003380| 72 65 6e 74 45 6e 64 4d | 6f 6e 74 68 25 2c 20 44 |rentEndM|onth%, D|
|00003390| 69 72 65 63 74 69 6f 6e | 25 20 29 0d 15 7c 18 20 |irection|% )..|. |
|000033a0| 20 20 20 20 20 20 20 20 | f2 55 70 64 61 74 65 49 | |.UpdateI|
|000033b0| 6e 66 6f 0d 15 86 04 0d | 15 90 18 20 20 20 20 20 |nfo.....|... |
|000033c0| 20 c9 20 45 6e 64 44 6f | 77 6e 49 63 6f 6e 3a 0d | . EndDo|wnIcon:.|
|000033d0| 15 9a 33 20 20 20 20 20 | 20 20 20 20 f2 4e 65 78 |..3 | .Nex|
|000033e0| 74 28 20 43 75 72 72 65 | 6e 74 45 6e 64 4d 6f 6e |t( Curre|ntEndMon|
|000033f0| 74 68 25 2c 20 2d 44 69 | 72 65 63 74 69 6f 6e 25 |th%, -Di|rection%|
|00003400| 20 29 0d 15 a4 18 20 20 | 20 20 20 20 20 20 20 f2 | ).... | .|
|00003410| 55 70 64 61 74 65 49 6e | 66 6f 0d 15 ae 04 0d 15 |UpdateIn|fo......|
|00003420| b8 17 20 20 20 20 20 20 | c9 20 59 65 61 72 55 70 |.. |. YearUp|
|00003430| 49 63 6f 6e 3a 0d 15 c2 | 26 20 20 20 20 20 20 20 |Icon:...|& |
|00003440| 20 20 43 75 72 72 65 6e | 74 59 65 61 72 20 2b 3d | Curren|tYear +=|
|00003450| 20 44 69 72 65 63 74 69 | 6f 6e 25 0d 15 cc 18 20 | Directi|on%.... |
|00003460| 20 20 20 20 20 20 20 20 | f2 55 70 64 61 74 65 49 | |.UpdateI|
|00003470| 6e 66 6f 0d 15 d6 04 0d | 15 e0 19 20 20 20 20 20 |nfo.....|... |
|00003480| 20 c9 20 59 65 61 72 44 | 6f 77 6e 49 63 6f 6e 3a | . YearD|ownIcon:|
|00003490| 0d 15 ea 26 20 20 20 20 | 20 20 20 20 20 43 75 72 |...& | Cur|
|000034a0| 72 65 6e 74 59 65 61 72 | 20 2d 3d 20 44 69 72 65 |rentYear| -= Dire|
|000034b0| 63 74 69 6f 6e 25 0d 15 | f4 18 20 20 20 20 20 20 |ction%..|.. |
|000034c0| 20 20 20 f2 55 70 64 61 | 74 65 49 6e 66 6f 0d 15 | .Upda|teInfo..|
|000034d0| fe 04 0d 16 08 17 20 20 | 20 20 20 20 c9 20 43 61 |...... | . Ca|
|000034e0| 6e 63 65 6c 49 63 6f 6e | 3a 0d 16 12 1b 20 20 20 |ncelIcon|:.... |
|000034f0| 20 20 20 20 20 20 f2 43 | 61 6e 63 65 6c 50 72 65 | .C|ancelPre|
|00003500| 73 73 65 64 0d 16 1c 04 | 0d 16 26 0b 20 20 20 20 |ssed....|..&. |
|00003510| 20 20 cb 0d 16 30 04 0d | 16 3a 08 20 20 20 cb 0d | ...0..|.:. ..|
|00003520| 16 44 04 0d 16 4e 05 cb | 0d 16 58 05 e1 0d 16 62 |.D...N..|..X....b|
|00003530| 04 0d 16 6c 2f 20 20 20 | 20 20 20 20 20 20 20 20 |...l/ | |
|00003540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003550| 28 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 29 |(*------|------*)|
|00003560| 0d 16 76 04 0d 16 80 14 | dd 20 f2 43 61 6e 63 65 |..v.....|. .Cance|
|00003570| 6c 50 72 65 73 73 65 64 | 0d 16 8a 25 f2 44 65 73 |lPressed|...%.Des|
|00003580| 65 6c 65 63 74 49 63 6f | 6e 28 20 6d 61 69 6e 2c |electIco|n( main,|
|00003590| 20 43 61 6e 63 65 6c 49 | 63 6f 6e 20 29 0d 16 94 | CancelI|con )...|
|000035a0| 25 f2 44 65 73 65 6c 65 | 63 74 49 63 6f 6e 28 20 |%.Desele|ctIcon( |
|000035b0| 6d 61 69 6e 2c 20 43 72 | 65 61 74 65 49 63 6f 6e |main, Cr|eateIcon|
|000035c0| 20 29 0d 16 9e 31 f2 4d | 6f 64 69 66 79 49 63 6f | )...1.M|odifyIco|
|000035d0| 6e 54 65 78 74 28 20 6d | 61 69 6e 2c 20 43 72 65 |nText( m|ain, Cre|
|000035e0| 61 74 65 49 63 6f 6e 2c | 20 22 43 72 65 61 74 65 |ateIcon,| "Create|
|000035f0| 22 20 29 0d 16 a8 18 c8 | 99 20 22 48 6f 75 72 67 |" ).....|. "Hourg|
|00003600| 6c 61 73 73 5f 53 6d 61 | 73 68 22 0d 16 b2 0f c8 |lass_Sma|sh".....|
|00003610| 8e 20 53 74 61 74 65 25 | 20 ca 0d 16 bc 26 c9 20 |. State%| ....&. |
|00003620| 4d 65 72 67 69 6e 67 2c | 50 61 75 73 65 64 2c 50 |Merging,|Paused,P|
|00003630| 72 69 6e 74 69 6e 67 2c | 4c 6f 61 64 69 6e 67 3a |rinting,|Loading:|
|00003640| 0d 16 c6 33 20 20 20 f2 | 53 65 6e 64 43 6f 6d 6d |...3 .|SendComm|
|00003650| 61 6e 64 28 20 50 72 65 | 66 69 78 24 2b 54 65 6d |and( Pre|fix$+Tem|
|00003660| 70 6c 61 74 65 24 2b 22 | 20 45 64 69 74 20 4f 6e |plate$+"| Edit On|
|00003670| 22 20 29 0d 16 d0 16 20 | 20 20 53 74 61 74 65 25 |" ).... | State%|
|00003680| 20 3d 20 4c 6f 61 64 65 | 64 0d 16 da 04 0d 16 e4 | = Loade|d.......|
|00003690| 05 cb 0d 16 ee 05 e1 0d | 16 f8 04 0d 17 02 2f 20 |........|....../ |
|000036a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036b0| 20 20 20 20 20 20 20 20 | 20 20 28 2a 2d 2d 2d 2d | | (*----|
|000036c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 29 0d 17 0c 04 0d 17 |--------|*)......|
|000036d0| 16 23 dd 20 f2 4e 65 78 | 74 28 20 f8 20 4d 6f 6e |.#. .Nex|t( . Mon|
|000036e0| 74 68 25 2c 20 49 6e 63 | 72 65 6d 65 6e 74 25 20 |th%, Inc|rement% |
|000036f0| 29 0d 17 20 45 e7 20 28 | 4d 6f 6e 74 68 25 2b 49 |).. E. (|Month%+I|
|00003700| 6e 63 72 65 6d 65 6e 74 | 25 3e 31 32 29 20 84 20 |ncrement|%>12) . |
|00003710| 28 4d 6f 6e 74 68 25 2b | 49 6e 63 72 65 6d 65 6e |(Month%+|Incremen|
|00003720| 74 25 3e 43 75 72 72 65 | 6e 74 45 6e 64 4d 6f 6e |t%>Curre|ntEndMon|
|00003730| 74 68 25 29 20 8c 0d 17 | 2a 1a 20 20 20 45 6e 64 |th%) ...|*. End|
|00003740| 4d 6f 6e 74 68 50 61 73 | 73 65 64 25 20 3d 20 b9 |MonthPas|sed% = .|
|00003750| 0d 17 34 05 cd 0d 17 3e | 30 4d 6f 6e 74 68 25 20 |..4....>|0Month% |
|00003760| 3d 20 28 4d 6f 6e 74 68 | 25 20 2b 20 31 31 20 2b |= (Month|% + 11 +|
|00003770| 20 49 6e 63 72 65 6d 65 | 6e 74 25 29 20 83 20 31 | Increme|nt%) . 1|
|00003780| 32 20 2b 20 31 0d 17 48 | 05 e1 0d 17 52 04 0d 17 |2 + 1..H|....R...|
|00003790| 5c 2f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |\/ | |
|000037a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 2a 2d | | (*-|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 29 0d 17 66 |--------|---*)..f|
|000037c0| 04 0d 17 70 11 dd 20 f2 | 55 70 64 61 74 65 49 6e |...p.. .|UpdateIn|
|000037d0| 66 6f 0d 17 7a 33 f2 4d | 6f 64 69 66 79 49 63 6f |fo..z3.M|odifyIco|
|000037e0| 6e 54 65 78 74 28 20 6d | 61 69 6e 2c 20 59 65 61 |nText( m|ain, Yea|
|000037f0| 72 49 63 6f 6e 2c 20 c3 | 43 75 72 72 65 6e 74 59 |rIcon, .|CurrentY|
|00003800| 65 61 72 20 29 0d 17 84 | 43 f2 4d 6f 64 69 66 79 |ear )...|C.Modify|
|00003810| 49 63 6f 6e 54 65 78 74 | 28 20 6d 61 69 6e 2c 20 |IconText|( main, |
|00003820| 53 74 61 72 74 4d 6f 6e | 74 68 2c 20 4d 6f 6e 74 |StartMon|th, Mont|
|00003830| 68 24 28 43 75 72 72 65 | 6e 74 53 74 61 72 74 4d |h$(Curre|ntStartM|
|00003840| 6f 6e 74 68 25 29 20 29 | 0d 17 8e 3f f2 4d 6f 64 |onth%) )|...?.Mod|
|00003850| 69 66 79 49 63 6f 6e 54 | 65 78 74 28 20 6d 61 69 |ifyIconT|ext( mai|
|00003860| 6e 2c 20 45 6e 64 4d 6f | 6e 74 68 2c 20 4d 6f 6e |n, EndMo|nth, Mon|
|00003870| 74 68 24 28 43 75 72 72 | 65 6e 74 45 6e 64 4d 6f |th$(Curr|entEndMo|
|00003880| 6e 74 68 25 29 20 29 0d | 17 98 05 e1 0d 17 a2 04 |nth%) ).|........|
|00003890| 0d 17 ac 2f 20 20 20 20 | 20 20 20 20 20 20 20 20 |.../ | |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|000038b0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 29 0d |*-------|-----*).|
|000038c0| 17 b6 04 0d 17 c0 15 dd | 20 f2 4d 65 6e 75 53 65 |........| .MenuSe|
|000038d0| 6c 65 63 74 28 71 25 29 | 0d 17 ca 23 ea 20 41 64 |lect(q%)|...#. Ad|
|000038e0| 6a 75 73 74 50 72 65 73 | 73 65 64 25 2c 54 69 63 |justPres|sed%,Tic|
|000038f0| 6b 25 2c 53 75 62 4d 65 | 6e 75 25 0d 17 d4 10 53 |k%,SubMe|nu%....S|
|00003900| 75 62 4d 65 6e 75 25 3d | 21 71 25 0d 17 de 3f c8 |ubMenu%=|!q%...?.|
|00003910| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00003920| 65 72 49 6e 66 6f 22 2c | 2c 71 25 3a 41 64 6a 75 |erInfo",|,q%:Adju|
|00003930| 73 74 50 72 65 73 73 65 | 64 25 20 3d 20 28 71 25 |stPresse|d% = (q%|
|00003940| 21 38 3d 41 64 6a 75 73 | 74 29 0d 17 e8 15 c8 8e |!8=Adjus|t)......|
|00003950| 20 43 75 72 72 65 6e 74 | 4d 65 6e 75 25 20 ca 0d | Current|Menu% ..|
|00003960| 17 f2 12 c9 20 49 63 6f | 6e 42 61 72 4d 65 6e 75 |.... Ico|nBarMenu|
|00003970| 3a 0d 17 fc 14 20 20 20 | c8 8e 20 53 75 62 4d 65 |:.... |.. SubMe|
|00003980| 6e 75 25 20 ca 0d 18 06 | 0b 20 20 20 c9 20 31 3a |nu% ....|. . 1:|
|00003990| 0d 18 10 11 20 20 20 20 | 20 20 71 75 69 74 25 3d |.... | quit%=|
|000039a0| b9 0d 18 1a 04 0d 18 24 | 08 20 20 20 cb 0d 18 2e |.......$|. ....|
|000039b0| 04 0d 18 38 05 cb 0d 18 | 42 05 e1 0d 18 4c 04 0d |...8....|B....L..|
|000039c0| 18 56 1e dd 20 f2 44 72 | 61 77 4d 65 6e 75 28 20 |.V.. .Dr|awMenu( |
|000039d0| 6d 65 6e 75 25 2c 20 78 | 2c 20 79 20 29 0d 18 60 |menu%, x|, y )..`|
|000039e0| 16 43 75 72 72 65 6e 74 | 4d 65 6e 75 25 3d 6d 65 |.Current|Menu%=me|
|000039f0| 6e 75 25 0d 18 6a 19 e7 | 20 6d 65 6e 75 25 3d 49 |nu%..j..| menu%=I|
|00003a00| 63 6f 6e 42 61 72 4d 65 | 6e 75 20 8c 0d 18 74 39 |conBarMe|nu ...t9|
|00003a10| 20 20 20 4d 65 6e 75 58 | 25 3d 78 2d 28 28 6d 65 | MenuX|%=x-((me|
|00003a20| 6e 75 25 21 2d 34 29 2a | 63 78 25 29 2f 32 3a 4d |nu%!-4)*|cx%)/2:M|
|00003a30| 65 6e 75 59 25 3d 79 2b | 28 6d 65 6e 75 25 21 2d |enuY%=y+|(menu%!-|
|00003a40| 38 29 2a 34 34 0d 18 7e | 05 cc 0d 18 88 2f 20 20 |8)*44..~|...../ |
|00003a50| 20 4d 65 6e 75 58 25 3d | 78 2d 28 28 6d 65 6e 75 | MenuX%=|x-((menu|
|00003a60| 25 21 2d 34 29 2a 63 78 | 25 29 2f 32 3a 4d 65 6e |%!-4)*cx|%)/2:Men|
|00003a70| 75 59 25 3d 79 2b 63 79 | 25 0d 18 92 05 cd 0d 18 |uY%=y+cy|%.......|
|00003a80| 9c 2d c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.-.. "Wi|mp_Creat|
|00003a90| 65 4d 65 6e 75 22 2c 2c | 6d 65 6e 75 25 2c 4d 65 |eMenu",,|menu%,Me|
|00003aa0| 6e 75 58 25 2c 4d 65 6e | 75 59 25 0d 18 a6 05 e1 |nuX%,Men|uY%.....|
|00003ab0| 0d 18 b0 04 0d 18 ba 14 | dd 20 f2 6f 70 65 6e 28 |........|. .open(|
|00003ac0| 20 62 6c 6f 63 6b 20 29 | 0d 18 c4 1f c8 99 20 22 | block )|...... "|
|00003ad0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00003ae0| 2c 2c 62 6c 6f 63 6b 0d | 18 ce 05 e1 0d 18 d8 04 |,,block.|........|
|00003af0| 0d 18 e2 1d dd 20 f2 63 | 6c 6f 73 65 28 20 57 69 |..... .c|lose( Wi|
|00003b00| 6e 64 6f 77 48 61 6e 64 | 6c 65 25 20 29 0d 18 ec |ndowHand|le% )...|
|00003b10| 0e ea 20 69 25 2c 20 44 | 6f 6e 65 0d 18 f6 16 c8 |.. i%, D|one.....|
|00003b20| 8e 20 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 25 20 |. Window|Handle% |
|00003b30| ca 0d 19 00 0b c9 20 6d | 61 69 6e 3a 0d 19 0a 18 |...... m|ain:....|
|00003b40| 20 20 20 21 71 25 3d 57 | 69 6e 64 6f 77 48 61 6e | !q%=W|indowHan|
|00003b50| 64 6c 65 25 0d 19 14 20 | 20 20 20 c8 99 20 22 57 |dle%... | .. "W|
|00003b60| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003b70| 2c 2c 71 25 0d 19 1e 04 | 0d 19 28 05 cb 0d 19 32 |,,q%....|..(....2|
|00003b80| 04 0d 19 3c 05 e1 0d 19 | 46 04 0d 19 50 10 dd 20 |...<....|F...P.. |
|00003b90| f2 43 6f 6e 73 74 61 6e | 74 73 0d 19 5a 1f f4 20 |.Constan|ts..Z.. |
|00003ba0| 50 72 65 64 65 66 69 6e | 65 64 20 57 69 6e 64 6f |Predefin|ed Windo|
|00003bb0| 77 20 48 61 6e 64 6c 65 | 73 0d 19 64 17 49 63 6f |w Handle|s..d.Ico|
|00003bc0| 6e 42 61 72 20 20 20 20 | 20 20 20 20 3d 20 2d 31 |nBar | = -1|
|00003bd0| 0d 19 6e 17 49 63 6f 6e | 42 61 72 57 69 6e 64 6f |..n.Icon|BarWindo|
|00003be0| 77 20 20 3d 20 2d 32 0d | 19 78 04 0d 19 82 1d f4 |w = -2.|.x......|
|00003bf0| 20 50 72 65 64 65 66 69 | 6e 65 64 20 49 63 6f 6e | Predefi|ned Icon|
|00003c00| 20 48 61 6e 64 6c 65 73 | 0d 19 8c 17 57 6f 72 6b | Handles|....Work|
|00003c10| 41 72 65 61 20 20 20 20 | 20 20 20 3d 20 2d 31 0d |Area | = -1.|
|00003c20| 19 96 17 42 61 63 6b 49 | 63 6f 6e 20 20 20 20 20 |...BackI|con |
|00003c30| 20 20 3d 20 2d 32 0d 19 | a0 17 43 6c 6f 73 65 49 | = -2..|..CloseI|
|00003c40| 63 6f 6e 20 20 20 20 20 | 20 3d 20 2d 33 0d 19 aa |con | = -3...|
|00003c50| 17 54 69 74 6c 65 42 61 | 72 20 20 20 20 20 20 20 |.TitleBa|r |
|00003c60| 3d 20 2d 34 0d 19 b4 17 | 54 6f 67 67 6c 65 53 69 |= -4....|ToggleSi|
|00003c70| 7a 65 49 63 6f 6e 20 3d | 20 2d 35 0d 19 be 17 53 |zeIcon =| -5....S|
|00003c80| 63 72 6f 6c 6c 55 70 20 | 20 20 20 20 20 20 3d 20 |crollUp | = |
|00003c90| 2d 36 0d 19 c8 17 56 65 | 72 74 69 63 61 6c 53 6c |-6....Ve|rticalSl|
|00003ca0| 69 64 65 72 20 3d 20 2d | 37 0d 19 d2 17 53 63 72 |ider = -|7....Scr|
|00003cb0| 6f 6c 6c 44 6f 77 6e 20 | 20 20 20 20 3d 20 2d 38 |ollDown | = -8|
|00003cc0| 0d 19 dc 17 41 64 6a 75 | 73 74 53 69 7a 65 20 20 |....Adju|stSize |
|00003cd0| 20 20 20 3d 20 2d 39 0d | 19 e6 18 53 63 72 6f 6c | = -9.|...Scrol|
|00003ce0| 6c 4c 65 66 74 20 20 20 | 20 20 3d 20 2d 31 30 0d |lLeft | = -10.|
|00003cf0| 19 f0 19 48 6f 72 69 7a | 6f 6e 74 61 6c 53 6c 69 |...Horiz|ontalSli|
|00003d00| 64 65 72 3d 20 2d 31 31 | 0d 19 fa 18 53 63 72 6f |der= -11|....Scro|
|00003d10| 6c 6c 52 69 67 68 74 20 | 20 20 20 3d 20 2d 31 32 |llRight | = -12|
|00003d20| 0d 1a 04 04 0d 1a 0e 1b | 41 64 6a 75 73 74 20 20 |........|Adjust |
|00003d30| 20 20 20 20 20 20 20 3d | 20 31 20 3c 3c 20 30 0d | =| 1 << 0.|
|00003d40| 1a 18 1b 4d 65 6e 75 20 | 20 20 20 20 20 20 20 20 |...Menu | |
|00003d50| 20 20 3d 20 31 20 3c 3c | 20 31 0d 1a 22 1b 53 65 | = 1 <<| 1..".Se|
|00003d60| 6c 65 63 74 20 20 20 20 | 20 20 20 20 20 3d 20 31 |lect | = 1|
|00003d70| 20 3c 3c 20 32 0d 1a 2c | 1b 41 64 6a 75 73 74 44 | << 2..,|.AdjustD|
|00003d80| 72 61 67 20 20 20 20 20 | 3d 20 31 20 3c 3c 20 34 |rag |= 1 << 4|
|00003d90| 0d 1a 36 1b 53 65 6c 65 | 63 74 44 72 61 67 20 20 |..6.Sele|ctDrag |
|00003da0| 20 20 20 3d 20 31 20 3c | 3c 20 36 0d 1a 40 04 0d | = 1 <|< 6..@..|
|00003db0| 1a 4a 1b 4d 65 73 73 61 | 67 65 5f 51 75 69 74 20 |.J.Messa|ge_Quit |
|00003dc0| 20 20 20 20 20 20 20 3d | 20 30 0d 1a 54 1b 4d 65 | =| 0..T.Me|
|00003dd0| 73 73 61 67 65 5f 44 61 | 74 61 53 61 76 65 20 20 |ssage_Da|taSave |
|00003de0| 20 20 3d 20 31 0d 1a 5e | 1b 4d 65 73 73 61 67 65 | = 1..^|.Message|
|00003df0| 5f 44 61 74 61 53 61 76 | 65 41 63 6b 20 3d 20 32 |_DataSav|eAck = 2|
|00003e00| 0d 1a 68 1b 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |..h.Mess|age_Data|
|00003e10| 4c 6f 61 64 20 20 20 20 | 3d 20 33 0d 1a 72 1b 4d |Load |= 3..r.M|
|00003e20| 65 73 73 61 67 65 5f 44 | 61 74 61 4c 6f 61 64 41 |essage_D|ataLoadA|
|00003e30| 63 6b 20 3d 20 34 0d 1a | 7c 1b 4d 65 73 73 61 67 |ck = 4..||.Messag|
|00003e40| 65 5f 44 61 74 61 4f 70 | 65 6e 20 20 20 20 3d 20 |e_DataOp|en = |
|00003e50| 35 0d 1a 86 23 4d 65 73 | 73 61 67 65 5f 54 61 73 |5...#Mes|sage_Tas|
|00003e60| 6b 49 6e 69 74 69 61 6c | 69 73 65 20 3d 20 26 34 |kInitial|ise = &4|
|00003e70| 30 30 43 32 0d 1a 90 04 | 0d 1a 9a 20 55 73 65 72 |00C2....|... User|
|00003e80| 5f 44 72 61 67 5f 42 6f | 78 20 20 20 20 20 20 20 |_Drag_Bo|x |
|00003e90| 20 20 20 20 20 3d 20 37 | 0d 1a a4 21 55 73 65 72 | = 7|...!User|
|00003ea0| 5f 4d 65 73 73 61 67 65 | 20 20 20 20 20 20 20 20 |_Message| |
|00003eb0| 20 20 20 20 20 3d 20 31 | 37 0d 1a ae 21 55 73 65 | = 1|7...!Use|
|00003ec0| 72 5f 4d 65 73 73 61 67 | 65 5f 52 65 63 6f 72 64 |r_Messag|e_Record|
|00003ed0| 65 64 20 20 20 20 3d 20 | 31 38 0d 1a b8 21 55 73 |ed = |18...!Us|
|00003ee0| 65 72 5f 4d 65 73 73 61 | 67 65 5f 41 63 6b 6e 6f |er_Messa|ge_Ackno|
|00003ef0| 77 6c 65 64 67 65 20 3d | 20 31 39 0d 1a c2 04 0d |wledge =| 19.....|
|00003f00| 1a cc 10 f4 20 49 63 6f | 6e 20 6e 61 6d 65 73 0d |.... Ico|n names.|
|00003f10| 1a d6 16 4e 6f 74 55 73 | 65 64 20 20 20 20 20 20 |...NotUs|ed |
|00003f20| 20 20 3d 20 30 0d 1a e0 | 04 0d 1a ea 16 56 65 72 | = 0...|.....Ver|
|00003f30| 73 69 6f 6e 20 20 20 20 | 20 20 20 20 3d 20 31 0d |sion | = 1.|
|00003f40| 1a f4 29 f2 44 65 63 6c | 61 72 65 57 69 6d 70 4d |..).Decl|areWimpM|
|00003f50| 69 6e 65 28 20 69 6e 66 | 6f 2c 20 31 35 2c 20 56 |ine( inf|o, 15, V|
|00003f60| 65 72 73 69 6f 6e 20 29 | 0d 1a fe 04 0d 1b 08 16 |ersion )|........|
|00003f70| 50 72 69 6e 74 4f 70 74 | 69 6f 6e 20 20 20 20 3d |PrintOpt|ion =|
|00003f80| 20 31 0d 1b 12 16 55 73 | 65 4d 6f 6e 74 68 4f 70 | 1....Us|eMonthOp|
|00003f90| 74 69 6f 6e 20 3d 20 32 | 0d 1b 1c 16 50 61 75 73 |tion = 2|....Paus|
|00003fa0| 65 4f 70 74 69 6f 6e 20 | 20 20 20 3d 20 33 0d 1b |eOption | = 3..|
|00003fb0| 26 16 4b 65 65 70 4f 70 | 74 69 6f 6e 20 20 20 20 |&.KeepOp|tion |
|00003fc0| 20 3d 20 34 0d 1b 30 16 | 59 65 61 72 49 63 6f 6e | = 4..0.|YearIcon|
|00003fd0| 20 20 20 20 20 20 20 3d | 20 35 0d 1b 3a 16 53 74 | =| 5..:.St|
|00003fe0| 61 72 74 4d 6f 6e 74 68 | 20 20 20 20 20 3d 20 36 |artMonth| = 6|
|00003ff0| 0d 1b 44 16 45 6e 64 4d | 6f 6e 74 68 20 20 20 20 |..D.EndM|onth |
|00004000| 20 20 20 3d 20 37 0d 1b | 4e 16 43 72 65 61 74 65 | = 7..|N.Create|
|00004010| 49 63 6f 6e 20 20 20 20 | 20 3d 20 38 0d 1b 58 16 |Icon | = 8..X.|
|00004020| 53 74 61 72 74 55 70 49 | 63 6f 6e 20 20 20 20 3d |StartUpI|con =|
|00004030| 20 39 0d 1b 62 17 53 74 | 61 72 74 44 6f 77 6e 49 | 9..b.St|artDownI|
|00004040| 63 6f 6e 20 20 3d 20 31 | 30 0d 1b 6c 17 45 6e 64 |con = 1|0..l.End|
|00004050| 55 70 49 63 6f 6e 20 20 | 20 20 20 20 3d 20 31 31 |UpIcon | = 11|
|00004060| 0d 1b 76 17 45 6e 64 44 | 6f 77 6e 49 63 6f 6e 20 |..v.EndD|ownIcon |
|00004070| 20 20 20 3d 20 31 32 0d | 1b 80 17 59 65 61 72 55 | = 12.|...YearU|
|00004080| 70 49 63 6f 6e 20 20 20 | 20 20 3d 20 31 33 0d 1b |pIcon | = 13..|
|00004090| 8a 17 59 65 61 72 44 6f | 77 6e 49 63 6f 6e 20 20 |..YearDo|wnIcon |
|000040a0| 20 3d 20 31 34 0d 1b 94 | 17 44 69 72 65 63 74 6f | = 14...|.Directo|
|000040b0| 72 79 49 63 6f 6e 20 20 | 3d 20 31 35 0d 1b 9e 17 |ryIcon |= 15....|
|000040c0| 43 61 6e 63 65 6c 49 63 | 6f 6e 20 20 20 20 20 3d |CancelIc|on =|
|000040d0| 20 31 36 0d 1b a8 17 4c | 6f 61 64 65 64 49 63 6f | 16....L|oadedIco|
|000040e0| 6e 20 20 20 20 20 3d 20 | 31 37 0d 1b b2 04 0d 1b |n = |17......|
|000040f0| bc 2a f2 44 65 63 6c 61 | 72 65 57 69 6d 70 4d 69 |.*.Decla|reWimpMi|
|00004100| 6e 65 28 20 6d 61 69 6e | 2c 20 32 2c 20 20 59 65 |ne( main|, 2, Ye|
|00004110| 61 72 49 63 6f 6e 20 29 | 0d 1b c6 2c f2 44 65 63 |arIcon )|...,.Dec|
|00004120| 6c 61 72 65 57 69 6d 70 | 4d 69 6e 65 28 20 6d 61 |lareWimp|Mine( ma|
|00004130| 69 6e 2c 20 33 2c 20 20 | 53 74 61 72 74 4d 6f 6e |in, 3, |StartMon|
|00004140| 74 68 20 29 0d 1b d0 2a | f2 44 65 63 6c 61 72 65 |th )...*|.Declare|
|00004150| 57 69 6d 70 4d 69 6e 65 | 28 20 6d 61 69 6e 2c 20 |WimpMine|( main, |
|00004160| 34 2c 20 20 45 6e 64 4d | 6f 6e 74 68 20 29 0d 1b |4, EndM|onth )..|
|00004170| da 2c f2 44 65 63 6c 61 | 72 65 57 69 6d 70 4d 69 |.,.Decla|reWimpMi|
|00004180| 6e 65 28 20 6d 61 69 6e | 2c 20 38 2c 20 20 43 72 |ne( main|, 8, Cr|
|00004190| 65 61 74 65 49 63 6f 6e | 20 29 0d 1b e4 2d f2 44 |eateIcon| )...-.D|
|000041a0| 65 63 6c 61 72 65 57 69 | 6d 70 4d 69 6e 65 28 20 |eclareWi|mpMine( |
|000041b0| 6d 61 69 6e 2c 20 31 31 | 2c 20 53 74 61 72 74 55 |main, 11|, StartU|
|000041c0| 70 49 63 6f 6e 20 29 0d | 1b ee 2f f2 44 65 63 6c |pIcon ).|../.Decl|
|000041d0| 61 72 65 57 69 6d 70 4d | 69 6e 65 28 20 6d 61 69 |areWimpM|ine( mai|
|000041e0| 6e 2c 20 31 32 2c 20 53 | 74 61 72 74 44 6f 77 6e |n, 12, S|tartDown|
|000041f0| 49 63 6f 6e 20 29 0d 1b | f8 2b f2 44 65 63 6c 61 |Icon )..|.+.Decla|
|00004200| 72 65 57 69 6d 70 4d 69 | 6e 65 28 20 6d 61 69 6e |reWimpMi|ne( main|
|00004210| 2c 20 31 33 2c 20 45 6e | 64 55 70 49 63 6f 6e 20 |, 13, En|dUpIcon |
|00004220| 29 0d 1c 02 2d f2 44 65 | 63 6c 61 72 65 57 69 6d |)...-.De|clareWim|
|00004230| 70 4d 69 6e 65 28 20 6d | 61 69 6e 2c 20 31 34 2c |pMine( m|ain, 14,|
|00004240| 20 45 6e 64 44 6f 77 6e | 49 63 6f 6e 20 29 0d 1c | EndDown|Icon )..|
|00004250| 0c 2c f2 44 65 63 6c 61 | 72 65 57 69 6d 70 4d 69 |.,.Decla|reWimpMi|
|00004260| 6e 65 28 20 6d 61 69 6e | 2c 20 31 35 2c 20 59 65 |ne( main|, 15, Ye|
|00004270| 61 72 55 70 49 63 6f 6e | 20 29 0d 1c 16 2e f2 44 |arUpIcon| ).....D|
|00004280| 65 63 6c 61 72 65 57 69 | 6d 70 4d 69 6e 65 28 20 |eclareWi|mpMine( |
|00004290| 6d 61 69 6e 2c 20 31 36 | 2c 20 59 65 61 72 44 6f |main, 16|, YearDo|
|000042a0| 77 6e 49 63 6f 6e 20 29 | 0d 1c 20 2e f2 44 65 63 |wnIcon )|.. ..Dec|
|000042b0| 6c 61 72 65 57 69 6d 70 | 4d 69 6e 65 28 20 6d 61 |lareWimp|Mine( ma|
|000042c0| 69 6e 2c 20 39 2c 20 44 | 69 72 65 63 74 6f 72 79 |in, 9, D|irectory|
|000042d0| 49 63 6f 6e 20 29 0d 1c | 2a 2c f2 44 65 63 6c 61 |Icon )..|*,.Decla|
|000042e0| 72 65 57 69 6d 70 4d 69 | 6e 65 28 20 6d 61 69 6e |reWimpMi|ne( main|
|000042f0| 2c 20 31 2c 20 20 43 61 | 6e 63 65 6c 49 63 6f 6e |, 1, Ca|ncelIcon|
|00004300| 20 29 0d 1c 34 2c f2 44 | 65 63 6c 61 72 65 57 69 | )..4,.D|eclareWi|
|00004310| 6d 70 4d 69 6e 65 28 20 | 6d 61 69 6e 2c 20 33 35 |mpMine( |main, 35|
|00004320| 2c 20 4c 6f 61 64 65 64 | 49 63 6f 6e 20 29 0d 1c |, Loaded|Icon )..|
|00004330| 3e 2d f2 44 65 63 6c 61 | 72 65 57 69 6d 70 4d 69 |>-.Decla|reWimpMi|
|00004340| 6e 65 28 20 6d 61 69 6e | 2c 20 33 37 2c 20 50 72 |ne( main|, 37, Pr|
|00004350| 69 6e 74 4f 70 74 69 6f | 6e 20 29 0d 1c 48 30 f2 |intOptio|n )..H0.|
|00004360| 44 65 63 6c 61 72 65 57 | 69 6d 70 4d 69 6e 65 28 |DeclareW|impMine(|
|00004370| 20 6d 61 69 6e 2c 20 33 | 38 2c 20 55 73 65 4d 6f | main, 3|8, UseMo|
|00004380| 6e 74 68 4f 70 74 69 6f | 6e 20 29 0d 1c 52 2c f2 |nthOptio|n )..R,.|
|00004390| 44 65 63 6c 61 72 65 57 | 69 6d 70 4d 69 6e 65 28 |DeclareW|impMine(|
|000043a0| 20 6d 61 69 6e 2c 20 33 | 39 2c 20 4b 65 65 70 4f | main, 3|9, KeepO|
|000043b0| 70 74 69 6f 6e 20 29 0d | 1c 5c 2d f2 44 65 63 6c |ption ).|.\-.Decl|
|000043c0| 61 72 65 57 69 6d 70 4d | 69 6e 65 28 20 6d 61 69 |areWimpM|ine( mai|
|000043d0| 6e 2c 20 34 34 2c 20 50 | 61 75 73 65 4f 70 74 69 |n, 44, P|auseOpti|
|000043e0| 6f 6e 20 29 0d 1c 66 04 | 0d 1c 70 0f 51 75 6f 74 |on )..f.|..p.Quot|
|000043f0| 65 24 3d 22 22 22 22 0d | 1c 7a 05 e1 0d 1c 84 04 |e$="""".|.z......|
|00004400| 0d 1c 8e 0c dd 20 f2 65 | 72 72 6f 72 0d 1c 98 0c |..... .e|rror....|
|00004410| ea 20 52 65 70 6c 79 25 | 0d 1c a2 19 c8 99 20 22 |. Reply%|...... "|
|00004420| 57 69 6d 70 5f 44 72 61 | 67 42 6f 78 22 2c 2c 2d |Wimp_Dra|gBox",,-|
|00004430| 31 0d 1c ac 09 21 71 25 | 3d 9f 0d 1c b6 42 24 28 |1....!q%|=....B$(|
|00004440| 71 25 2b 34 29 3d f6 24 | 2b 22 20 61 74 20 6c 69 |q%+4)=.$|+" at li|
|00004450| 6e 65 20 22 2b c3 9e 2b | 22 20 4f 4b 20 74 6f 20 |ne "+..+|" OK to |
|00004460| 43 6f 6e 74 69 6e 75 65 | 2c 20 43 61 6e 63 65 6c |Continue|, Cancel|
|00004470| 20 74 6f 20 51 75 69 74 | 22 2b bd 30 0d 1c c0 31 | to Quit|"+.0...1|
|00004480| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00004490| 72 72 6f 72 22 2c 71 25 | 2c 25 31 31 2c 54 69 74 |rror",q%|,%11,Tit|
|000044a0| 6c 65 24 20 b8 20 2c 52 | 65 70 6c 79 25 0d 1c ca |le$ . ,R|eply%...|
|000044b0| 10 e7 20 52 65 70 6c 79 | 25 3d 32 20 8c 0d 1c d4 |.. Reply|%=2 ....|
|000044c0| 11 20 20 20 f2 43 6c 6f | 73 65 44 6f 77 6e 0d 1c |. .Clo|seDown..|
|000044d0| de 08 20 20 20 e0 0d 1c | e8 05 cd 0d 1c f2 05 e1 |.. ...|........|
|000044e0| 0d 1c fc 04 0d 1d 06 12 | dd 20 f2 45 72 72 6f 72 |........|. .Error|
|000044f0| 28 20 45 24 20 29 0d 1d | 10 0e 24 28 71 25 2b 34 |( E$ )..|..$(q%+4|
|00004500| 29 3d 45 24 0d 1d 1a 09 | 21 71 25 3d 30 0d 1d 24 |)=E$....|!q%=0..$|
|00004510| 25 c8 99 20 22 57 69 6d | 70 5f 52 65 70 6f 72 74 |%.. "Wim|p_Report|
|00004520| 45 72 72 6f 72 22 2c 71 | 25 2c 31 2c 54 69 74 6c |Error",q|%,1,Titl|
|00004530| 65 24 0d 1d 2e 05 e1 0d | 1d 38 04 0d 1d 42 10 dd |e$......|.8...B..|
|00004540| 20 f2 43 6c 6f 73 65 44 | 6f 77 6e 0d 1d 4c 26 c8 | .CloseD|own..L&.|
|00004550| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|00004560| 6e 22 2c 74 61 73 6b 25 | 2c 21 54 61 73 6b 49 64 |n",task%|,!TaskId|
|00004570| 25 0d 1d 56 20 c8 99 20 | 22 49 6d 70 75 6c 73 65 |%..V .. |"Impulse|
|00004580| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 74 61 73 6b |_CloseDo|wn",task|
|00004590| 25 0d 1d 60 05 e1 0d 1d | 6a 04 0d 1d 74 11 dd f2 |%..`....|j...t...|
|000045a0| 67 65 74 6d 6f 64 65 69 | 6e 66 6f 0d 1d 7e 17 de |getmodei|nfo..~..|
|000045b0| 20 69 6e 76 25 20 32 38 | 2c 20 6f 75 74 76 25 20 | inv% 28|, outv% |
|000045c0| 32 38 0d 1d 88 31 69 6e | 76 25 21 30 3d 34 20 20 |28...1in|v%!0=4 |
|000045d0| 20 20 20 20 20 3a f4 20 | 68 6f 72 69 7a 6f 6e 74 | :. |horizont|
|000045e0| 61 6c 20 70 69 78 65 6c | 20 72 65 73 6f 6c 75 74 |al pixel| resolut|
|000045f0| 69 6f 6e 0d 1d 92 2c 69 | 6e 76 25 21 34 3d 35 20 |ion...,i|nv%!4=5 |
|00004600| 20 20 20 20 20 20 3a f4 | 20 76 65 72 74 69 63 61 | :.| vertica|
|00004610| 6c 20 20 20 20 20 22 20 | 20 20 20 20 20 20 22 0d |l " | ".|
|00004620| 1d 9c 32 69 6e 76 25 21 | 38 3d 36 20 20 20 20 20 |..2inv%!|8=6 |
|00004630| 20 20 3a f4 20 6e 75 6d | 62 65 72 20 6f 66 20 62 | :. num|ber of b|
|00004640| 79 74 65 73 20 6f 6e 20 | 70 69 78 65 6c 20 72 6f |ytes on |pixel ro|
|00004650| 77 0d 1d a6 40 69 6e 76 | 25 21 31 32 3d 37 20 20 |w...@inv|%!12=7 |
|00004660| 20 20 20 20 3a f4 20 6e | 75 6d 62 65 72 20 6f 66 | :. n|umber of|
|00004670| 20 62 79 74 65 73 20 6f | 6e 65 20 73 63 72 65 65 | bytes o|ne scree|
|00004680| 6e 20 62 75 66 66 65 72 | 20 6f 63 63 75 70 69 65 |n buffer| occupie|
|00004690| 73 0d 1d b0 17 69 6e 76 | 25 21 31 36 3d 31 31 20 |s....inv|%!16=11 |
|000046a0| 20 20 20 20 3a f4 20 3f | 0d 1d ba 17 69 6e 76 25 | :. ?|....inv%|
|000046b0| 21 32 30 3d 31 32 20 20 | 20 20 20 3a f4 20 3f 0d |!20=12 | :. ?.|
|000046c0| 1d c4 0e 69 6e 76 25 21 | 32 34 3d 2d 31 0d 1d ce |...inv%!|24=-1...|
|000046d0| 26 c8 99 22 4f 53 5f 52 | 65 61 64 56 64 75 56 61 |&.."OS_R|eadVduVa|
|000046e0| 72 69 61 62 6c 65 73 22 | 2c 69 6e 76 25 2c 6f 75 |riables"|,inv%,ou|
|000046f0| 74 76 25 0d 1d d8 14 64 | 78 25 3d 31 3c 3c 28 6f |tv%....d|x%=1<<(o|
|00004700| 75 74 76 25 21 30 29 0d | 1d e2 14 64 79 25 3d 31 |utv%!0).|...dy%=1|
|00004710| 3c 3c 28 6f 75 74 76 25 | 21 34 29 0d 1d ec 17 63 |<<(outv%|!4)....c|
|00004720| 78 25 3d 64 78 25 2a 38 | 3a 63 79 25 3d 64 79 25 |x%=dx%*8|:cy%=dy%|
|00004730| 2a 38 0d 1d f6 11 79 6f | 25 3d 63 79 25 2b 63 79 |*8....yo|%=cy%+cy|
|00004740| 25 2f 38 0d 1e 00 14 6c | 69 6e 65 6c 65 6e 25 3d |%/8....l|inelen%=|
|00004750| 6f 75 74 76 25 21 38 0d | 1e 0a 18 73 63 72 65 65 |outv%!8.|...scree|
|00004760| 6e 73 69 7a 65 25 3d 6f | 75 74 76 25 21 31 32 0d |nsize%=o|utv%!12.|
|00004770| 1e 14 1b 73 63 72 78 31 | 25 3d 28 6f 75 74 76 25 |...scrx1|%=(outv%|
|00004780| 21 31 36 2b 31 29 2a 64 | 78 25 0d 1e 1e 1b 73 63 |!16+1)*d|x%....sc|
|00004790| 72 79 31 25 3d 28 6f 75 | 74 76 25 21 32 30 2b 31 |ry1%=(ou|tv%!20+1|
|000047a0| 29 2a 64 79 25 0d 1e 28 | 05 e1 0d 1e 32 04 0d 1e |)*dy%..(|....2...|
|000047b0| 3c 39 dd 20 f2 4c 6f 61 | 64 57 69 6e 64 6f 77 44 |<9. .Loa|dWindowD|
|000047c0| 65 66 69 6e 69 74 69 6f | 6e 28 20 f8 20 48 61 6e |efinitio|n( . Han|
|000047d0| 64 6c 65 25 2c 20 4e 61 | 6d 65 24 2c 20 49 63 6f |dle%, Na|me$, Ico|
|000047e0| 6e 73 49 6e 25 20 29 0d | 1e 46 11 ea 20 53 69 7a |nsIn% ).|.F.. Siz|
|000047f0| 65 25 2c 4e 61 6d 65 25 | 0d 1e 50 1b 53 69 7a 65 |e%,Name%|..P.Size|
|00004800| 25 20 3d 20 49 63 6f 6e | 73 49 6e 25 2a 33 32 2b |% = Icon|sIn%*32+|
|00004810| 31 30 30 0d 1e 5a 11 de | 20 57 6f 72 6b 25 20 53 |100..Z..| Work% S|
|00004820| 69 7a 65 25 0d 1e 64 0e | de 20 4e 61 6d 65 25 20 |ize%..d.|. Name% |
|00004830| 31 32 0d 1e 6e 12 24 4e | 61 6d 65 25 20 3d 20 4e |12..n.$N|ame% = N|
|00004840| 61 6d 65 24 0d 1e 78 3b | c8 99 20 22 57 69 6d 70 |ame$..x;|.. "Wimp|
|00004850| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00004860| 71 25 2c 57 6f 72 6b 25 | 2c 57 6f 72 6b 25 2b 53 |q%,Work%|,Work%+S|
|00004870| 69 7a 65 25 2c 2d 31 2c | 4e 61 6d 65 25 2c 30 0d |ize%,-1,|Name%,0.|
|00004880| 1e 82 28 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..(.. "W|imp_Crea|
|00004890| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|000048a0| 48 61 6e 64 6c 65 25 0d | 1e 8c 05 e1 0d 1e 96 04 |Handle%.|........|
|000048b0| 0d 1e a0 11 dd 20 f2 53 | 74 61 72 74 4d 65 72 67 |..... .S|tartMerg|
|000048c0| 65 0d 1e aa 14 ea 20 59 | 65 61 72 25 2c 59 25 2c |e..... Y|ear%,Y%,|
|000048d0| 57 25 2c 44 25 0d 1e b4 | 34 46 75 6c 6c 54 65 6d |W%,D%...|4FullTem|
|000048e0| 70 6c 61 74 65 24 20 3d | 20 a4 47 65 74 49 63 6f |plate$ =| .GetIco|
|000048f0| 6e 54 65 78 74 28 20 6d | 61 69 6e 2c 20 4c 6f 61 |nText( m|ain, Loa|
|00004900| 64 65 64 49 63 6f 6e 20 | 29 0d 1e be 37 e7 20 a4 |dedIcon |)...7. .|
|00004910| 49 6d 70 72 65 73 73 69 | 6f 6e 44 6f 63 75 6d 65 |Impressi|onDocume|
|00004920| 6e 74 28 20 46 75 6c 6c | 54 65 6d 70 6c 61 74 65 |nt( Full|Template|
|00004930| 24 2c 20 54 65 6d 70 6c | 61 74 65 24 20 29 20 8c |$, Templ|ate$ ) .|
|00004940| 0d 1e c8 1a 20 20 20 45 | 6e 64 4d 6f 6e 74 68 50 |.... E|ndMonthP|
|00004950| 61 73 73 65 64 25 20 3d | 20 a3 0d 1e d2 29 20 20 |assed% =| ....) |
|00004960| 20 43 75 72 72 65 6e 74 | 4d 6f 6e 74 68 25 20 3d | Current|Month% =|
|00004970| 20 43 75 72 72 65 6e 74 | 53 74 61 72 74 4d 6f 6e | Current|StartMon|
|00004980| 74 68 25 0d 1e dc 2e 20 | 20 20 59 65 61 72 25 20 |th%.... | Year% |
|00004990| 3d 20 bb a4 47 65 74 49 | 63 6f 6e 54 65 78 74 28 |= ..GetI|conText(|
|000049a0| 20 6d 61 69 6e 2c 20 59 | 65 61 72 49 63 6f 6e 20 | main, Y|earIcon |
|000049b0| 29 0d 1e e6 17 20 20 20 | 44 61 79 4f 66 57 65 65 |).... |DayOfWee|
|000049c0| 6b 25 28 29 20 3d 20 30 | 0d 1e f0 17 20 20 20 43 |k%() = 0|.... C|
|000049d0| 61 6c 65 6e 64 61 72 24 | 28 29 20 3d 20 22 22 0d |alendar$|() = "".|
|000049e0| 1e fa 1d 20 20 20 f2 4d | 61 6b 65 43 61 6c 65 6e |... .M|akeCalen|
|000049f0| 64 61 72 28 20 59 65 61 | 72 25 20 29 0d 1f 04 34 |dar( Yea|r% )...4|
|00004a00| 20 20 20 f2 53 65 6e 64 | 43 6f 6d 6d 61 6e 64 28 | .Send|Command(|
|00004a10| 20 50 72 65 66 69 78 24 | 2b 54 65 6d 70 6c 61 74 | Prefix$|+Templat|
|00004a20| 65 24 2b 22 20 45 64 69 | 74 20 4f 66 66 22 20 29 |e$+" Edi|t Off" )|
|00004a30| 0d 1f 0e 17 20 20 20 f2 | 45 6e 74 65 72 4d 65 72 |.... .|EnterMer|
|00004a40| 67 65 53 74 61 74 65 0d | 1f 18 05 cd 0d 1f 22 05 |geState.|......".|
|00004a50| e1 0d 1f 2c 04 0d 1f 36 | 1c dd 20 a4 54 68 69 73 |...,...6|.. .This|
|00004a60| 59 65 61 72 20 3d 20 bb | c1 91 24 2c 31 32 2c 34 |Year = .|..$,12,4|
|00004a70| 29 0d 1f 40 04 0d 1f 4a | 1c dd 20 f2 4d 61 6b 65 |)..@...J|.. .Make|
|00004a80| 43 61 6c 65 6e 64 61 72 | 28 20 59 65 61 72 25 20 |Calendar|( Year% |
|00004a90| 29 0d 1f 54 2b ea 20 50 | 6f 73 69 74 69 6f 6e 25 |)..T+. P|osition%|
|00004aa0| 2c 53 74 61 72 74 44 61 | 79 25 2c 4d 6f 6e 74 68 |,StartDa|y%,Month|
|00004ab0| 25 2c 44 61 79 25 2c 57 | 65 65 6b 25 0d 1f 5e 29 |%,Day%,W|eek%..^)|
|00004ac0| 53 74 61 72 74 44 61 79 | 25 3d a4 5a 65 6c 6c 65 |StartDay|%=.Zelle|
|00004ad0| 72 73 43 6f 6e 67 72 75 | 65 6e 63 65 28 20 59 65 |rsCongru|ence( Ye|
|00004ae0| 61 72 25 20 29 0d 1f 68 | 15 e3 20 4d 6f 6e 74 68 |ar% )..h|.. Month|
|00004af0| 25 20 3d 20 31 20 b8 20 | 31 32 0d 1f 72 14 20 20 |% = 1 . |12..r. |
|00004b00| 20 50 6f 73 69 74 69 6f | 6e 25 20 3d 20 30 0d 1f | Positio|n% = 0..|
|00004b10| 7c 17 20 20 20 c8 95 20 | 53 74 61 72 74 44 61 79 ||. .. |StartDay|
|00004b20| 25 20 3e 20 30 0d 1f 86 | 16 20 20 20 20 20 20 50 |% > 0...|. P|
|00004b30| 6f 73 69 74 69 6f 6e 25 | 2b 3d 31 0d 1f 90 16 20 |osition%|+=1.... |
|00004b40| 20 20 20 20 20 53 74 61 | 72 74 44 61 79 25 2d 3d | Sta|rtDay%-=|
|00004b50| 31 0d 1f 9a 08 20 20 20 | ce 0d 1f a4 0e 20 20 20 |1.... |..... |
|00004b60| 57 65 65 6b 25 3d 30 0d | 1f ae 28 20 20 20 e3 20 |Week%=0.|..( . |
|00004b70| 44 61 79 25 20 3d 20 31 | 20 b8 20 44 61 79 73 49 |Day% = 1| . DaysI|
|00004b80| 6e 4d 6f 6e 74 68 25 28 | 4d 6f 6e 74 68 25 29 0d |nMonth%(|Month%).|
|00004b90| 1f b8 38 20 20 20 20 20 | 20 43 61 6c 65 6e 64 61 |..8 | Calenda|
|00004ba0| 72 24 28 20 4d 6f 6e 74 | 68 25 2d 31 2c 20 57 65 |r$( Mont|h%-1, We|
|00004bb0| 65 6b 25 2c 20 50 6f 73 | 69 74 69 6f 6e 25 29 20 |ek%, Pos|ition%) |
|00004bc0| 3d 20 c3 44 61 79 25 0d | 1f c2 36 20 20 20 20 20 |= .Day%.|..6 |
|00004bd0| 20 44 61 79 4f 66 57 65 | 65 6b 25 28 20 4d 6f 6e | DayOfWe|ek%( Mon|
|00004be0| 74 68 25 2d 31 2c 20 44 | 61 79 25 2d 31 20 29 20 |th%-1, D|ay%-1 ) |
|00004bf0| 3d 20 50 6f 73 69 74 69 | 6f 6e 25 2b 31 0d 1f cc |= Positi|on%+1...|
|00004c00| 1b 20 20 20 20 20 20 e7 | 20 50 6f 73 69 74 69 6f |. .| Positio|
|00004c10| 6e 25 20 3d 20 36 20 8c | 0d 1f d6 1b 20 20 20 20 |n% = 6 .|.... |
|00004c20| 20 20 20 20 20 50 6f 73 | 69 74 69 6f 6e 25 20 3d | Pos|ition% =|
|00004c30| 20 2d 31 0d 1f e0 15 20 | 20 20 20 20 20 20 20 20 | -1.... | |
|00004c40| 57 65 65 6b 25 2b 3d 31 | 0d 1f ea 0b 20 20 20 20 |Week%+=1|.... |
|00004c50| 20 20 cd 0d 1f f4 16 20 | 20 20 20 20 20 50 6f 73 | ..... | Pos|
|00004c60| 69 74 69 6f 6e 25 2b 3d | 31 0d 1f fe 08 20 20 20 |ition%+=|1.... |
|00004c70| ed 0d 20 08 20 20 20 20 | 53 74 61 72 74 44 61 79 |.. . |StartDay|
|00004c80| 25 20 3d 20 50 6f 73 69 | 74 69 6f 6e 25 20 83 20 |% = Posi|tion% . |
|00004c90| 37 0d 20 12 05 ed 0d 20 | 1c 05 e1 0d 20 26 04 0d |7. .... |.... &..|
|00004ca0| 20 30 20 dd 20 a4 5a 65 | 6c 6c 65 72 73 43 6f 6e | 0 . .Ze|llersCon|
|00004cb0| 67 72 75 65 6e 63 65 28 | 20 59 65 61 72 20 29 0d |gruence(| Year ).|
|00004cc0| 20 3a 12 ea 20 4c 65 61 | 70 2c 43 65 6e 74 75 72 | :.. Lea|p,Centur|
|00004cd0| 79 0d 20 44 12 e7 20 59 | 65 61 72 20 3c 20 31 30 |y. D.. Y|ear < 10|
|00004ce0| 30 20 8c 0d 20 4e 13 20 | 20 20 43 65 6e 74 75 72 |0 .. N. | Centur|
|00004cf0| 79 20 3d 20 31 39 0d 20 | 58 05 cc 0d 20 62 1b 20 |y = 19. |X... b. |
|00004d00| 20 20 43 65 6e 74 75 72 | 79 20 3d 20 59 65 61 72 | Centur|y = Year|
|00004d10| 20 81 20 31 30 30 0d 20 | 6c 05 cd 0d 20 76 15 59 | . 100. |l... v.Y|
|00004d20| 65 61 72 20 3d 20 59 65 | 61 72 20 83 20 31 30 30 |ear = Ye|ar . 100|
|00004d30| 0d 20 80 3c e7 20 28 59 | 65 61 72 20 83 20 34 20 |. .<. (Y|ear . 4 |
|00004d40| 3d 20 30 29 20 80 20 28 | 20 28 59 65 61 72 20 3c |= 0) . (| (Year <|
|00004d50| 3e 20 30 29 20 84 20 28 | 43 65 6e 74 75 72 79 20 |> 0) . (|Century |
|00004d60| 83 20 34 20 3d 20 30 29 | 20 29 20 8c 0d 20 8a 1b |. 4 = 0)| ) .. ..|
|00004d70| 20 20 20 44 61 79 73 49 | 6e 4d 6f 6e 74 68 25 28 | DaysI|nMonth%(|
|00004d80| 32 29 20 3d 20 32 39 0d | 20 94 05 cc 0d 20 9e 1b |2) = 29.| .... ..|
|00004d90| 20 20 20 44 61 79 73 49 | 6e 4d 6f 6e 74 68 25 28 | DaysI|nMonth%(|
|00004da0| 32 29 20 3d 20 32 38 0d | 20 a8 05 cd 0d 20 b2 0d |2) = 28.| .... ..|
|00004db0| 59 65 61 72 20 2d 3d 20 | 31 0d 20 bc 3f 3d 28 32 |Year -= |1. .?=(2|
|00004dc0| 39 20 2b 20 59 65 61 72 | 20 2b 20 28 59 65 61 72 |9 + Year| + (Year|
|00004dd0| 20 81 20 34 29 20 2b 20 | 28 43 65 6e 74 75 72 79 | . 4) + |(Century|
|00004de0| 20 81 20 34 29 20 2d 20 | 32 20 2a 20 43 65 6e 74 | . 4) - |2 * Cent|
|00004df0| 75 72 79 29 20 83 20 37 | 0d 20 c6 05 3a 0d 20 d0 |ury) . 7|. ..:. .|
|00004e00| 16 dd 20 a4 4c 65 61 66 | 4f 66 28 20 46 69 6c 65 |.. .Leaf|Of( File|
|00004e10| 24 20 29 0d 20 da 12 c8 | 95 20 a7 46 69 6c 65 24 |$ ). ...|. .File$|
|00004e20| 2c 22 2e 22 29 0d 20 e4 | 21 20 20 46 69 6c 65 24 |,"."). .|! File$|
|00004e30| 3d c1 46 69 6c 65 24 2c | a7 46 69 6c 65 24 2c 22 |=.File$,|.File$,"|
|00004e40| 2e 22 29 2b 31 29 0d 20 | ee 05 ce 0d 20 f8 19 3d |.")+1). |.... ..=|
|00004e50| 20 a4 54 65 72 6d 69 6e | 61 74 65 28 20 46 69 6c | .Termin|ate( Fil|
|00004e60| 65 24 20 29 0d 21 02 05 | 3a 0d 21 0c 18 dd 20 a4 |e$ ).!..|:.!... .|
|00004e70| 4c 65 6e 67 74 68 4f 66 | 28 20 46 69 6c 65 24 20 |LengthOf|( File$ |
|00004e80| 29 0d 21 16 0d ea 20 4c | 65 6e 67 74 68 25 0d 21 |).!... L|ength%.!|
|00004e90| 20 26 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 35 | &.. "OS|_File",5|
|00004ea0| 2c 46 69 6c 65 24 20 b8 | 20 2c 2c 2c 2c 4c 65 6e |,File$ .| ,,,,Len|
|00004eb0| 67 74 68 25 0d 21 2a 0d | 3d 20 4c 65 6e 67 74 68 |gth%.!*.|= Length|
|00004ec0| 25 0d 21 34 05 3a 0d 21 | 3e 16 dd 20 a4 54 65 72 |%.!4.:.!|>.. .Ter|
|00004ed0| 6d 69 6e 61 74 65 28 20 | 53 24 20 29 0d 21 48 08 |minate( |S$ ).!H.|
|00004ee0| ea 20 50 25 0d 21 52 08 | 50 25 3d 31 0d 21 5c 14 |. P%.!R.|P%=1.!\.|
|00004ef0| c8 95 20 c1 53 24 2c 50 | 25 2c 31 29 3e bd 33 32 |.. .S$,P|%,1)>.32|
|00004f00| 0d 21 66 0c 20 20 20 50 | 25 2b 3d 31 0d 21 70 05 |.!f. P|%+=1.!p.|
|00004f10| ce 0d 21 7a 0f 3d 20 c0 | 53 24 2c 50 25 2d 31 29 |..!z.= .|S$,P%-1)|
|00004f20| 0d 21 84 05 3a 0d 21 8e | 1a dd 20 a4 4f 62 6a 65 |.!..:.!.|.. .Obje|
|00004f30| 63 74 54 79 70 65 28 20 | 46 69 6c 65 24 20 29 0d |ctType( |File$ ).|
|00004f40| 21 98 0b ea 20 54 79 70 | 65 25 0d 21 a2 21 c8 99 |!... Typ|e%.!.!..|
|00004f50| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 35 2c 46 69 | "OS_Fil|e",15,Fi|
|00004f60| 6c 65 24 20 b8 20 54 79 | 70 65 25 0d 21 ac 0a 3d |le$ . Ty|pe%.!..=|
|00004f70| 54 79 70 65 25 0d 21 b6 | 04 0d 21 c0 2b dd 20 a4 |Type%.!.|..!.+. .|
|00004f80| 49 6d 70 72 65 73 73 69 | 6f 6e 44 6f 63 75 6d 65 |Impressi|onDocume|
|00004f90| 6e 74 28 20 46 69 6c 65 | 24 2c 20 f8 20 4e 61 6d |nt( File|$, . Nam|
|00004fa0| 65 24 20 29 0d 21 ca 22 | f4 20 46 69 6c 65 24 20 |e$ ).!."|. File$ |
|00004fb0| 3d 20 46 4e 54 65 72 6d | 69 6e 61 74 65 28 20 46 |= FNTerm|inate( F|
|00004fc0| 69 6c 65 24 20 29 0d 21 | d4 1d c8 8e 20 a4 4f 62 |ile$ ).!|.... .Ob|
|00004fd0| 6a 65 63 74 54 79 70 65 | 28 20 46 69 6c 65 24 20 |jectType|( File$ |
|00004fe0| 29 20 ca 0d 21 de 08 c9 | 20 30 3a 0d 21 e8 28 20 |) ..!...| 0:.!.( |
|00004ff0| 20 20 f2 45 72 72 6f 72 | 28 20 46 69 6c 65 24 2b | .Error|( File$+|
|00005000| 22 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |" does n|ot exist|
|00005010| 22 20 29 0d 21 f2 0a 20 | 20 20 3d 20 a3 0d 21 fc |" ).!.. | = ..!.|
|00005020| 04 0d 22 06 08 c9 20 31 | 3a 0d 22 10 31 20 20 20 |.."... 1|:.".1 |
|00005030| f2 45 72 72 6f 72 28 20 | 46 69 6c 65 24 2b 22 20 |.Error( |File$+" |
|00005040| 69 73 20 6e 6f 74 20 61 | 20 53 74 79 6c 65 20 64 |is not a| Style d|
|00005050| 6f 63 75 6d 65 6e 74 22 | 20 29 0d 22 1a 0a 20 20 |ocument"| ).".. |
|00005060| 20 3d 20 a3 0d 22 24 04 | 0d 22 2e 08 c9 20 32 3a | = .."$.|."... 2:|
|00005070| 0d 22 38 30 20 20 20 e7 | 20 a4 4f 62 6a 65 63 74 |."80 .| .Object|
|00005080| 54 79 70 65 28 20 46 69 | 6c 65 24 2b 22 2e 21 44 |Type( Fi|le$+".!D|
|00005090| 6f 63 44 61 74 61 22 20 | 29 20 3c 3e 20 31 20 8c |ocData" |) <> 1 .|
|000050a0| 0d 22 42 34 20 20 20 20 | 20 20 f2 45 72 72 6f 72 |."B4 | .Error|
|000050b0| 28 20 46 69 6c 65 24 2b | 22 20 69 73 20 6e 6f 74 |( File$+|" is not|
|000050c0| 20 61 20 53 74 79 6c 65 | 20 64 6f 63 75 6d 65 6e | a Style| documen|
|000050d0| 74 22 20 29 0d 22 4c 0d | 20 20 20 20 20 20 3d 20 |t" )."L.| = |
|000050e0| a3 0d 22 56 08 20 20 20 | cd 0d 22 60 04 0d 22 6a |.."V. |.."`.."j|
|000050f0| 05 cb 0d 22 74 21 4e 61 | 6d 65 24 20 3d 20 c1 20 |..."t!Na|me$ = . |
|00005100| a4 4c 65 61 66 4f 66 28 | 46 69 6c 65 24 29 2c 20 |.LeafOf(|File$), |
|00005110| 32 20 29 0d 22 7e 07 3d | 20 b9 0d ff |2 )."~.=| ... |
+--------+-------------------------+-------------------------+--------+--------+