home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-02-14 | 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 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 2e 4e 6f 74 68 69 |e$ = "".|.b.Nothi|
|00000610| 6e 67 4c 6f 61 64 65 64 | 24 20 3d 20 22 89 20 49 |ngLoaded|$ = ". I|
|00000620| 6d 70 72 65 73 73 69 6f | 6e 20 44 6f 63 75 6d 65 |mpressio|n Docume|
|00000630| 6e 74 20 88 22 0d 02 6c | 1a 50 72 65 66 69 78 24 |nt ."..l|.Prefix$|
|00000640| 3d 22 3a 49 6d 70 72 65 | 73 73 69 6f 6e 2e 22 0d |=":Impre|ssion.".|
|00000650| 02 76 10 44 6f 72 6d 61 | 6e 74 20 20 3d 20 30 0d |.v.Dorma|nt = 0.|
|00000660| 02 80 10 4c 6f 61 64 65 | 64 20 20 20 3d 20 31 0d |...Loade|d = 1.|
|00000670| 02 8a 10 4c 6f 61 64 69 | 6e 67 20 20 3d 20 32 0d |...Loadi|ng = 2.|
|00000680| 02 94 10 4d 65 72 67 69 | 6e 67 20 20 3d 20 33 0d |...Mergi|ng = 3.|
|00000690| 02 9e 10 50 72 69 6e 74 | 69 6e 67 20 3d 20 34 0d |...Print|ing = 4.|
|000006a0| 02 a8 10 50 61 75 73 65 | 64 20 20 20 3d 20 35 0d |...Pause|d = 5.|
|000006b0| 02 b2 14 53 74 61 74 65 | 25 20 3d 20 44 6f 72 6d |...State|% = Dorm|
|000006c0| 61 6e 74 0d 02 bc 0f f2 | 55 70 64 61 74 65 49 6e |ant.....|UpdateIn|
|000006d0| 66 6f 0d 02 c6 04 0d 02 | d0 0d 71 75 69 74 25 20 |fo......|..quit% |
|000006e0| 3d 20 a3 0d 02 da 04 0d | 02 e4 2e f2 49 6e 69 74 |= ......|....Init|
|000006f0| 69 61 6c 69 73 65 49 6d | 70 75 6c 73 65 28 20 52 |ialiseIm|pulse( R|
|00000700| 6f 6f 74 24 2c 20 74 61 | 73 6b 25 2c 20 54 69 74 |oot$, ta|sk%, Tit|
|00000710| 6c 65 24 20 29 0d 02 ee | 2a f2 4d 61 6b 65 4d 65 |le$ )...|*.MakeMe|
|00000720| 74 68 6f 64 28 20 30 2c | 20 43 72 65 61 74 65 2c |thod( 0,| Create,|
|00000730| 20 22 43 72 65 61 74 65 | 22 2c 20 22 22 20 29 0d | "Create|", "" ).|
|00000740| 02 f8 2a f2 4d 61 6b 65 | 4d 65 74 68 6f 64 28 20 |..*.Make|Method( |
|00000750| 30 2c 20 43 61 6e 63 65 | 6c 2c 20 22 43 61 6e 63 |0, Cance|l, "Canc|
|00000760| 65 6c 22 2c 20 22 22 20 | 29 0d 03 02 4b f2 4d 61 |el", "" |)...K.Ma|
|00000770| 6b 65 4d 65 74 68 6f 64 | 28 20 30 2c 20 47 65 74 |keMethod|( 0, Get|
|00000780| 44 61 74 65 2c 20 22 47 | 65 74 44 61 74 65 22 2c |Date, "G|etDate",|
|00000790| 20 22 4d 6f 6e 74 68 2f | 4b 2c 57 65 65 6b 2f 4b | "Month/|K,Week/K|
|000007a0| 2f 45 2c 44 61 79 2f 4b | 2c 46 6f 72 6d 61 74 2f |/E,Day/K|,Format/|
|000007b0| 4b 22 20 29 0d 03 0c 2e | f2 4d 61 6b 65 4d 65 74 |K" )....|.MakeMet|
|000007c0| 68 6f 64 28 20 30 2c 20 | 47 65 74 4d 6f 6e 74 68 |hod( 0, |GetMonth|
|000007d0| 2c 20 22 47 65 74 4d 6f | 6e 74 68 22 2c 20 22 22 |, "GetMo|nth", ""|
|000007e0| 20 29 0d 03 16 2c f2 4d | 61 6b 65 4d 65 74 68 6f | )...,.M|akeMetho|
|000007f0| 64 28 20 30 2c 20 47 65 | 74 59 65 61 72 2c 20 22 |d( 0, Ge|tYear, "|
|00000800| 47 65 74 59 65 61 72 22 | 2c 20 22 22 20 29 0d 03 |GetYear"|, "" )..|
|00000810| 20 30 f2 4d 61 6b 65 4d | 65 74 68 6f 64 28 20 30 | 0.MakeM|ethod( 0|
|00000820| 2c 20 4e 65 78 74 4d 6f | 6e 74 68 2c 20 22 4e 65 |, NextMo|nth, "Ne|
|00000830| 78 74 4d 6f 6e 74 68 22 | 2c 20 22 22 20 29 0d 03 |xtMonth"|, "" )..|
|00000840| 2a 26 f2 4d 61 6b 65 4d | 65 74 68 6f 64 28 20 30 |*&.MakeM|ethod( 0|
|00000850| 2c 20 51 75 69 74 2c 20 | 22 51 75 69 74 22 2c 20 |, Quit, |"Quit", |
|00000860| 22 22 20 29 0d 03 34 51 | f2 4d 61 6b 65 4d 65 74 |"" )..4Q|.MakeMet|
|00000870| 68 6f 64 28 20 30 2c 20 | 53 65 74 4f 70 74 69 6f |hod( 0, |SetOptio|
|00000880| 6e 2c 20 22 53 65 74 4f | 70 74 69 6f 6e 22 2c 20 |n, "SetO|ption", |
|00000890| 22 50 72 69 6e 74 2f 4b | 2c 55 73 65 4d 6f 6e 74 |"Print/K|,UseMont|
|000008a0| 68 2f 4b 2c 50 61 75 73 | 65 2f 4b 2c 4b 65 65 70 |h/K,Paus|e/K,Keep|
|000008b0| 2f 4b 22 20 29 0d 03 3e | 36 f2 4d 61 6b 65 4d 65 |/K" )..>|6.MakeMe|
|000008c0| 74 68 6f 64 28 20 30 2c | 20 53 65 74 50 72 65 66 |thod( 0,| SetPref|
|000008d0| 69 78 2c 20 22 53 65 74 | 50 72 65 66 69 78 22 2c |ix, "Set|Prefix",|
|000008e0| 20 22 4e 61 6d 65 2f 41 | 22 20 29 0d 03 48 4a f2 | "Name/A|" )..HJ.|
|000008f0| 4d 61 6b 65 4d 65 74 68 | 6f 64 28 20 30 2c 20 53 |MakeMeth|od( 0, S|
|00000900| 65 74 2c 20 22 53 65 74 | 22 2c 20 22 4d 6f 6e 74 |et, "Set|", "Mont|
|00000910| 68 2f 4b 2c 59 65 61 72 | 2f 4b 2c 53 74 61 72 74 |h/K,Year|/K,Start|
|00000920| 4d 6f 6e 74 68 2f 4b 2c | 45 6e 64 4d 6f 6e 74 68 |Month/K,|EndMonth|
|00000930| 2f 4b 22 20 29 0d 03 52 | 12 f2 57 69 6e 64 75 70 |/K" )..R|..Windup|
|00000940| 4d 65 74 68 6f 64 73 0d | 03 5c 04 0d 03 66 10 de |Methods.|.\...f..|
|00000950| 20 42 6c 6f 63 6b 25 20 | 32 35 36 0d 03 70 04 0d | Block% |256..p..|
|00000960| 03 7a 0e ee 20 85 20 f2 | 65 72 72 6f 72 0d 03 84 |.z.. . .|error...|
|00000970| 05 f5 0d 03 8e 0c 20 20 | 20 f2 50 6f 6c 6c 0d 03 |...... | .Poll..|
|00000980| 98 0b fd 20 71 75 69 74 | 25 0d 03 a2 0e f2 43 6c |... quit|%.....Cl|
|00000990| 6f 73 65 44 6f 77 6e 0d | 03 ac 05 e0 0d 03 b6 04 |oseDown.|........|
|000009a0| 0d 03 c0 0b dd 20 f2 50 | 6f 6c 6c 0d 03 ca 0a ea |..... .P|oll.....|
|000009b0| 20 4e 6f 77 25 0d 03 d4 | 1b 20 20 20 e7 20 53 74 | Now%...|. . St|
|000009c0| 61 74 65 25 20 3d 20 4d | 65 72 67 69 6e 67 20 8c |ate% = M|erging .|
|000009d0| 0d 03 de 2a 20 20 20 20 | 20 20 c8 99 20 22 4f 53 |...* | .. "OS|
|000009e0| 5f 52 65 61 64 4d 6f 6e | 6f 74 6f 6e 69 63 54 69 |_ReadMon|otonicTi|
|000009f0| 6d 65 22 20 b8 20 4e 6f | 77 25 0d 03 e8 41 20 20 |me" . No|w%...A |
|00000a00| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c | .. "|Wimp_Pol|
|00000a10| 6c 49 64 6c 65 22 2c 25 | 31 31 30 30 30 30 30 31 |lIdle",%|11000001|
|00000a20| 30 30 30 30 30 2c 71 25 | 2c 4e 6f 77 25 2b 35 30 |00000,q%|,Now%+50|
|00000a30| 30 20 b8 20 52 65 61 73 | 6f 6e 25 0d 03 f2 08 20 |0 . Reas|on%.... |
|00000a40| 20 20 cc 0d 03 fc 34 20 | 20 20 20 20 20 c8 99 20 | ....4 | .. |
|00000a50| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 25 31 31 30 |"Wimp_Po|ll",%110|
|00000a60| 30 30 30 30 31 30 30 30 | 30 31 2c 71 25 20 b8 20 |00001000|01,q% . |
|00000a70| 52 65 61 73 6f 6e 25 0d | 04 06 08 20 20 20 cd 0d |Reason%.|... ..|
|00000a80| 04 10 3b 20 20 20 f2 49 | 6d 70 5f 44 65 63 6f 64 |..; .I|mp_Decod|
|00000a90| 65 28 20 52 65 61 73 6f | 6e 25 2c 20 4d 65 74 68 |e( Reaso|n%, Meth|
|00000aa0| 6f 64 54 6f 6b 65 6e 25 | 2c 20 50 61 72 61 6d 73 |odToken%|, Params|
|00000ab0| 25 2c 20 53 69 7a 65 25 | 20 29 0d 04 1a 13 20 20 |%, Size%| ).... |
|00000ac0| 20 c8 8e 20 52 65 61 73 | 6f 6e 25 20 ca 0d 04 24 | .. Reas|on% ...$|
|00000ad0| 0b 20 20 20 c9 20 30 3a | 0d 04 2e 1e 20 20 20 20 |. . 0:|.... |
|00000ae0| 20 20 e7 20 53 74 61 74 | 65 25 20 3d 20 4d 65 72 | . Stat|e% = Mer|
|00000af0| 67 69 6e 67 20 8c 0d 04 | 38 1d 20 20 20 20 20 20 |ging ...|8. |
|00000b00| 20 20 20 53 74 61 74 65 | 25 20 3d 20 44 6f 72 6d | State|% = Dorm|
|00000b10| 61 6e 74 0d 04 42 2e 20 | 20 20 20 20 20 20 20 20 |ant..B. | |
|00000b20| f2 44 65 73 65 6c 65 63 | 74 49 63 6f 6e 28 20 6d |.Deselec|tIcon( m|
|00000b30| 61 69 6e 2c 20 43 72 65 | 61 74 65 49 63 6f 6e 20 |ain, Cre|ateIcon |
|00000b40| 29 0d 04 4c 40 20 20 20 | 20 20 20 20 20 20 f2 4d |)..L@ | .M|
|00000b50| 6f 64 69 66 79 49 63 6f | 6e 54 65 78 74 28 20 6d |odifyIco|nText( m|
|00000b60| 61 69 6e 2c 20 4c 6f 61 | 64 65 64 49 63 6f 6e 2c |ain, Loa|dedIcon,|
|00000b70| 20 4e 6f 74 68 69 6e 67 | 4c 6f 61 64 65 64 24 20 | Nothing|Loaded$ |
|00000b80| 29 0d 04 56 55 20 20 20 | 20 20 20 20 20 20 f2 45 |)..VU | .E|
|00000b90| 72 72 6f 72 28 20 22 49 | 6d 70 72 65 73 73 69 6f |rror( "I|mpressio|
|00000ba0| 6e 20 69 73 20 6e 6f 74 | 20 72 65 73 70 6f 6e 64 |n is not| respond|
|00000bb0| 69 6e 67 20 74 6f 20 74 | 68 65 20 64 6f 63 75 6d |ing to t|he docum|
|00000bc0| 65 6e 74 20 27 22 2b 54 | 65 6d 70 6c 61 74 65 24 |ent '"+T|emplate$|
|00000bd0| 2b 22 27 22 20 29 0d 04 | 60 39 20 20 20 20 20 20 |+"'" )..|`9 |
|00000be0| 20 20 20 f2 53 65 6e 64 | 43 6f 6d 6d 61 6e 64 28 | .Send|Command(|
|00000bf0| 20 50 72 65 66 69 78 24 | 2b 54 65 6d 70 6c 61 74 | Prefix$|+Templat|
|00000c00| 65 24 2b 22 20 45 64 69 | 74 20 4f 6e 22 20 29 0d |e$+" Edi|t On" ).|
|00000c10| 04 6a 0b 20 20 20 20 20 | 20 cd 0d 04 74 04 0d 04 |.j. | ...t...|
|00000c20| 7e 0b 20 20 20 c9 20 31 | 3a 0d 04 88 16 20 20 20 |~. . 1|:.... |
|00000c30| 20 20 20 f2 72 65 64 72 | 61 77 28 21 71 25 29 0d | .redr|aw(!q%).|
|00000c40| 04 92 04 0d 04 9c 0b 20 | 20 20 c9 20 32 3a 0d 04 |....... | . 2:..|
|00000c50| a6 13 20 20 20 20 20 20 | f2 6f 70 65 6e 28 71 25 |.. |.open(q%|
|00000c60| 29 0d 04 b0 04 0d 04 ba | 0b 20 20 20 c9 20 33 3a |).......|. . 3:|
|00000c70| 0d 04 c4 15 20 20 20 20 | 20 20 f2 63 6c 6f 73 65 |.... | .close|
|00000c80| 28 21 71 25 29 0d 04 ce | 04 0d 04 d8 0b 20 20 20 |(!q%)...|..... |
|00000c90| c9 20 34 3a 0d 04 e2 1a | 20 20 20 20 20 20 f2 4c |. 4:....| .L|
|00000ca0| 65 61 76 65 57 69 6e 64 | 6f 77 28 71 25 29 0d 04 |eaveWind|ow(q%)..|
|00000cb0| ec 04 0d 04 f6 0b 20 20 | 20 c9 20 36 3a 0d 05 00 |...... | . 6:...|
|00000cc0| 16 20 20 20 20 20 20 f2 | 62 75 74 74 6f 6e 73 28 |. .|buttons(|
|00000cd0| 71 25 29 0d 05 0a 04 0d | 05 14 0b 20 20 20 c9 20 |q%).....|... . |
|00000ce0| 38 3a 0d 05 1e 19 20 20 | 20 20 20 20 f2 4b 65 79 |8:.... | .Key|
|00000cf0| 50 72 65 73 73 65 64 28 | 71 25 29 0d 05 28 04 0d |Pressed(|q%)..(..|
|00000d00| 05 32 0b 20 20 20 c9 20 | 39 3a 0d 05 3c 19 20 20 |.2. . |9:..<. |
|00000d10| 20 20 20 20 f2 4d 65 6e | 75 53 65 6c 65 63 74 28 | .Men|uSelect(|
|00000d20| 71 25 29 0d 05 46 04 0d | 05 50 2d 20 20 20 c9 20 |q%)..F..|.P- . |
|00000d30| 55 73 65 72 5f 4d 65 73 | 73 61 67 65 2c 20 55 73 |User_Mes|sage, Us|
|00000d40| 65 72 5f 4d 65 73 73 61 | 67 65 5f 52 65 63 6f 72 |er_Messa|ge_Recor|
|00000d50| 64 65 64 3a 0d 05 5a 16 | 20 20 20 20 20 20 f2 72 |ded:..Z.| .r|
|00000d60| 65 63 65 69 76 65 28 71 | 25 29 0d 05 64 04 0d 05 |eceive(q|%)..d...|
|00000d70| 6e 22 20 20 20 c9 20 55 | 73 65 72 5f 4d 65 73 73 |n" . U|ser_Mess|
|00000d80| 61 67 65 5f 41 63 6b 6e | 6f 77 6c 65 64 67 65 3a |age_Ackn|owledge:|
|00000d90| 0d 05 78 39 20 20 20 20 | 20 20 f4 20 49 6d 70 72 |..x9 | . Impr|
|00000da0| 65 73 73 69 6f 6e 20 6e | 6f 74 20 72 75 6e 6e 69 |ession n|ot runni|
|00000db0| 6e 67 20 73 6f 20 44 61 | 74 61 4f 70 65 6e 20 63 |ng so Da|taOpen c|
|00000dc0| 6f 6d 65 73 20 68 65 72 | 65 0d 05 82 21 20 20 20 |omes her|e...! |
|00000dd0| 20 20 20 e7 20 71 25 21 | 38 20 3d 20 44 61 74 61 | . q%!|8 = Data|
|00000de0| 4f 70 65 6e 52 65 66 25 | 20 8c 0d 05 8c 35 20 20 |OpenRef%| ....5 |
|00000df0| 20 20 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f | .|. "Wimp_|
|00000e00| 53 74 61 72 74 54 61 73 | 6b 22 2c 22 52 55 4e 20 |StartTas|k","RUN |
|00000e10| 22 2b 46 75 6c 6c 54 65 | 6d 70 6c 61 74 65 24 0d |"+FullTe|mplate$.|
|00000e20| 05 96 1d 20 20 20 20 20 | 20 20 20 20 53 74 61 74 |... | Stat|
|00000e30| 65 25 20 3d 20 4c 6f 61 | 64 69 6e 67 0d 05 a0 0b |e% = Loa|ding....|
|00000e40| 20 20 20 20 20 20 cd 0d | 05 aa 04 0d 05 b4 2a 20 | ..|......* |
|00000e50| 20 20 c9 20 49 6d 70 75 | 6c 73 65 5f 43 6f 6d 6d | . Impu|lse_Comm|
|00000e60| 61 6e 64 2c 20 49 6d 70 | 75 6c 73 65 5f 52 65 71 |and, Imp|ulse_Req|
|00000e70| 75 65 73 74 3a 0d 05 be | 2c 20 20 20 20 20 20 f2 |uest:...|, .|
|00000e80| 44 6f 43 6f 6d 6d 61 6e | 64 28 20 4d 65 74 68 6f |DoComman|d( Metho|
|00000e90| 64 54 6f 6b 65 6e 25 2c | 20 50 61 72 61 6d 73 25 |dToken%,| Params%|
|00000ea0| 29 0d 05 c8 04 0d 05 d2 | 1a 20 20 20 c9 20 49 6d |).......|. . Im|
|00000eb0| 70 75 6c 73 65 5f 53 65 | 6e 64 44 61 74 61 3a 0d |pulse_Se|ndData:.|
|00000ec0| 05 dc 41 20 20 20 20 20 | 20 e7 20 28 4d 65 74 68 |..A | . (Meth|
|00000ed0| 6f 64 54 6f 6b 65 6e 25 | 20 3c 3e 20 a4 43 75 72 |odToken%| <> .Cur|
|00000ee0| 72 65 6e 74 54 78 54 61 | 67 29 20 84 20 ac 20 a4 |rentTxTa|g) . . .|
|00000ef0| 49 6e 54 72 61 6e 73 6d | 69 73 73 69 6f 6e 20 8c |InTransm|ission .|
|00000f00| 0d 05 e6 35 20 20 20 20 | 20 20 20 20 20 85 20 32 |...5 | . 2|
|00000f10| 30 30 2c 22 52 65 71 75 | 65 73 74 20 74 6f 20 74 |00,"Requ|est to t|
|00000f20| 72 61 6e 73 6d 69 74 20 | 75 6e 6b 6e 6f 77 6e 20 |ransmit |unknown |
|00000f30| 64 61 74 61 22 0d 05 f0 | 0b 20 20 20 20 20 20 cc |data"...|. .|
|00000f40| 0d 05 fa 23 20 20 20 20 | 20 20 20 20 20 f2 54 72 |...# | .Tr|
|00000f50| 61 6e 73 6d 69 74 44 61 | 74 61 28 20 53 69 7a 65 |ansmitDa|ta( Size|
|00000f60| 25 20 29 0d 06 04 0b 20 | 20 20 20 20 20 cd 0d 06 |% ).... | ...|
|00000f70| 0e 04 0d 06 18 17 20 20 | 20 c9 20 49 6d 70 75 6c |...... | . Impul|
|00000f80| 73 65 5f 52 65 70 6c 79 | 3a 0d 06 22 23 20 20 20 |se_Reply|:.."# |
|00000f90| 20 20 20 c8 8e 20 a4 54 | 65 72 6d 69 6e 61 74 65 | .. .T|erminate|
|00000fa0| 28 24 50 61 72 61 6d 73 | 25 29 20 ca 0d 06 2c 18 |($Params|%) ...,.|
|00000fb0| 20 20 20 20 20 20 c9 20 | 22 4d 65 72 67 65 44 6f | . |"MergeDo|
|00000fc0| 6e 65 22 3a 0d 06 36 33 | 20 20 20 20 20 20 20 20 |ne":..63| |
|00000fd0| 20 e7 20 a4 49 63 6f 6e | 53 65 6c 65 63 74 65 64 | . .Icon|Selected|
|00000fe0| 28 20 6d 61 69 6e 2c 20 | 50 61 75 73 65 4f 70 74 |( main, |PauseOpt|
|00000ff0| 69 6f 6e 20 29 20 8c 0d | 06 40 31 20 20 20 20 20 |ion ) ..|.@1 |
|00001000| 20 20 20 20 20 20 20 f2 | 44 65 73 65 6c 65 63 74 | .|Deselect|
|00001010| 49 63 6f 6e 28 20 6d 61 | 69 6e 2c 20 43 72 65 61 |Icon( ma|in, Crea|
|00001020| 74 65 49 63 6f 6e 20 29 | 0d 06 4a 3d 20 20 20 20 |teIcon )|..J= |
|00001030| 20 20 20 20 20 20 20 20 | f2 4d 6f 64 69 66 79 49 | |.ModifyI|
|00001040| 63 6f 6e 54 65 78 74 28 | 20 6d 61 69 6e 2c 20 43 |conText(| main, C|
|00001050| 72 65 61 74 65 49 63 6f | 6e 2c 20 22 52 65 73 75 |reateIco|n, "Resu|
|00001060| 6d 65 22 20 29 0d 06 54 | 1f 20 20 20 20 20 20 20 |me" )..T|. |
|00001070| 20 20 20 20 20 53 74 61 | 74 65 25 20 3d 20 50 61 | Sta|te% = Pa|
|00001080| 75 73 65 64 0d 06 5e 22 | 20 20 20 20 20 20 20 20 |used..^"| |
|00001090| 20 20 20 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 | .. "|Hourglas|
|000010a0| 73 5f 4f 66 66 22 0d 06 | 68 0e 20 20 20 20 20 20 |s_Off"..|h. |
|000010b0| 20 20 20 cc 0d 06 72 36 | 20 20 20 20 20 20 20 20 | ...r6| |
|000010c0| 20 20 20 20 e7 20 a4 49 | 63 6f 6e 53 65 6c 65 63 | . .I|conSelec|
|000010d0| 74 65 64 28 20 6d 61 69 | 6e 2c 20 50 72 69 6e 74 |ted( mai|n, Print|
|000010e0| 4f 70 74 69 6f 6e 20 29 | 20 8c 0d 06 7c 24 20 20 |Option )| ...|$ |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 74 61 | | Sta|
|00001100| 74 65 25 20 3d 20 50 72 | 69 6e 74 69 6e 67 0d 06 |te% = Pr|inting..|
|00001110| 86 46 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.F | |
|00001120| 20 f2 53 65 6e 64 52 65 | 71 75 65 73 74 28 50 72 | .SendRe|quest(Pr|
|00001130| 65 66 69 78 24 2b 54 65 | 6d 70 6c 61 74 65 24 2b |efix$+Te|mplate$+|
|00001140| 22 20 50 72 69 6e 74 22 | 2c a4 4e 65 78 74 54 78 |" Print"|,.NextTx|
|00001150| 54 61 67 29 0d 06 90 11 | 20 20 20 20 20 20 20 20 |Tag)....| |
|00001160| 20 20 20 20 cc 0d 06 9a | 20 20 20 20 20 20 20 20 | ....| |
|00001170| 20 20 20 20 20 20 20 20 | f2 54 65 73 74 46 6f 72 | |.TestFor|
|00001180| 42 61 74 63 68 0d 06 a4 | 11 20 20 20 20 20 20 20 |Batch...|. |
|00001190| 20 20 20 20 20 cd 0d 06 | ae 0e 20 20 20 20 20 20 | ...|.. |
|000011a0| 20 20 20 cd 0d 06 b8 04 | 0d 06 c2 17 20 20 20 20 | .....|.... |
|000011b0| 20 20 c9 20 22 50 72 69 | 6e 74 44 6f 6e 65 22 0d | . "Pri|ntDone".|
|000011c0| 06 cc 1c 20 20 20 20 20 | 20 20 20 20 53 74 61 74 |... | Stat|
|000011d0| 65 25 20 3d 20 4c 6f 61 | 64 65 64 0d 06 d6 1a 20 |e% = Loa|ded.... |
|000011e0| 20 20 20 20 20 20 20 20 | f2 54 65 73 74 46 6f 72 | |.TestFor|
|000011f0| 42 61 74 63 68 0d 06 e0 | 04 0d 06 ea 0b 20 20 20 |Batch...|..... |
|00001200| 20 20 20 cb 0d 06 f4 04 | 0d 06 fe 08 20 20 20 cb | .....|.... .|
|00001210| 0d 07 08 05 e1 0d 07 12 | 04 0d 07 1c 2f 20 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 | 28 2a 2d 2d 2d 2d 2d 2d | |(*------|
|00001240| 2d 2d 2d 2d 2d 2d 2a 29 | 0d 07 26 04 0d 07 30 13 |------*)|..&...0.|
|00001250| dd 20 f2 54 65 73 74 46 | 6f 72 42 61 74 63 68 0d |. .TestF|orBatch.|
|00001260| 07 3a 41 e7 20 ac 20 45 | 6e 64 4d 6f 6e 74 68 50 |.:A. . E|ndMonthP|
|00001270| 61 73 73 65 64 25 20 80 | 20 a4 49 63 6f 6e 53 65 |assed% .| .IconSe|
|00001280| 6c 65 63 74 65 64 28 20 | 6d 61 69 6e 2c 20 55 73 |lected( |main, Us|
|00001290| 65 4d 6f 6e 74 68 4f 70 | 74 69 6f 6e 20 29 20 8c |eMonthOp|tion ) .|
|000012a0| 0d 07 44 33 20 20 20 f2 | 53 65 6e 64 43 6f 6d 6d |..D3 .|SendComm|
|000012b0| 61 6e 64 28 20 50 72 65 | 66 69 78 24 2b 54 65 6d |and( Pre|fix$+Tem|
|000012c0| 70 6c 61 74 65 24 2b 22 | 20 45 64 69 74 20 4f 6e |plate$+"| Edit On|
|000012d0| 22 20 29 0d 07 4e 34 20 | 20 20 f2 53 65 6e 64 43 |" )..N4 | .SendC|
|000012e0| 6f 6d 6d 61 6e 64 28 20 | 50 72 65 66 69 78 24 2b |ommand( |Prefix$+|
|000012f0| 54 65 6d 70 6c 61 74 65 | 24 2b 22 20 45 64 69 74 |Template|$+" Edit|
|00001300| 20 4f 66 66 22 20 29 0d | 07 58 19 20 20 20 c8 99 | Off" ).|.X. ..|
|00001310| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00001320| 0d 07 62 17 20 20 20 f2 | 45 6e 74 65 72 4d 65 72 |..b. .|EnterMer|
|00001330| 67 65 53 74 61 74 65 0d | 07 6c 05 cc 0d 07 76 18 |geState.|.l....v.|
|00001340| 20 20 20 f2 54 69 64 79 | 55 70 41 66 74 65 72 4d | .Tidy|UpAfterM|
|00001350| 65 72 67 65 0d 07 80 05 | cd 0d 07 8a 05 e1 0d 07 |erge....|........|
|00001360| 94 04 0d 07 9e 2f 20 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 28 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a | (*-----|-------*|
|00001390| 29 0d 07 a8 04 0d 07 b2 | 17 dd 20 f2 54 69 64 79 |).......|.. .Tidy|
|000013a0| 55 70 41 66 74 65 72 4d | 65 72 67 65 0d 07 bc 29 |UpAfterM|erge...)|
|000013b0| e7 20 a4 49 63 6f 6e 53 | 65 6c 65 63 74 65 64 28 |. .IconS|elected(|
|000013c0| 20 6d 61 69 6e 2c 20 4b | 65 65 70 4f 70 74 69 6f | main, K|eepOptio|
|000013d0| 6e 20 29 20 8c 0d 07 c6 | 36 20 20 20 f2 53 65 6e |n ) ....|6 .Sen|
|000013e0| 64 43 6f 6d 6d 61 6e 64 | 28 20 50 72 65 66 69 78 |dCommand|( Prefix|
|000013f0| 24 2b 54 65 6d 70 6c 61 | 74 65 24 2b 22 20 43 6c |$+Templa|te$+" Cl|
|00001400| 65 61 72 4d 65 72 67 65 | 22 20 29 0d 07 d0 17 20 |earMerge|" ).... |
|00001410| 20 20 53 74 61 74 65 25 | 20 3d 20 44 6f 72 6d 61 | State%| = Dorma|
|00001420| 6e 74 0d 07 da 3a 20 20 | 20 f2 4d 6f 64 69 66 79 |nt...: | .Modify|
|00001430| 49 63 6f 6e 54 65 78 74 | 28 20 6d 61 69 6e 2c 20 |IconText|( main, |
|00001440| 4c 6f 61 64 65 64 49 63 | 6f 6e 2c 20 4e 6f 74 68 |LoadedIc|on, Noth|
|00001450| 69 6e 67 4c 6f 61 64 65 | 64 24 20 29 0d 07 e4 05 |ingLoade|d$ )....|
|00001460| cc 0d 07 ee 16 20 20 20 | 53 74 61 74 65 25 20 3d |..... |State% =|
|00001470| 20 4c 6f 61 64 65 64 0d | 07 f8 05 cd 0d 08 02 30 | Loaded.|.......0|
|00001480| f2 53 65 6e 64 43 6f 6d | 6d 61 6e 64 28 20 50 72 |.SendCom|mand( Pr|
|00001490| 65 66 69 78 24 2b 54 65 | 6d 70 6c 61 74 65 24 2b |efix$+Te|mplate$+|
|000014a0| 22 20 45 64 69 74 20 4f | 6e 22 20 29 0d 08 0c 31 |" Edit O|n" )...1|
|000014b0| f2 4d 6f 64 69 66 79 49 | 63 6f 6e 54 65 78 74 28 |.ModifyI|conText(|
|000014c0| 20 6d 61 69 6e 2c 20 43 | 72 65 61 74 65 49 63 6f | main, C|reateIco|
|000014d0| 6e 2c 20 22 43 72 65 61 | 74 65 22 20 29 0d 08 16 |n, "Crea|te" )...|
|000014e0| 25 f2 44 65 73 65 6c 65 | 63 74 49 63 6f 6e 28 20 |%.Desele|ctIcon( |
|000014f0| 6d 61 69 6e 2c 20 43 72 | 65 61 74 65 49 63 6f 6e |main, Cr|eateIcon|
|00001500| 20 29 0d 08 20 16 c8 99 | 20 22 48 6f 75 72 67 6c | ).. ...| "Hourgl|
|00001510| 61 73 73 5f 4f 66 66 22 | 0d 08 2a 05 e1 0d 08 34 |ass_Off"|..*....4|
|00001520| 04 0d 08 3e 2f 20 20 20 | 20 20 20 20 20 20 20 20 |...>/ | |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001540| 28 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 29 |(*------|------*)|
|00001550| 0d 08 48 04 0d 08 52 14 | dd 20 a4 43 72 65 61 74 |..H...R.|. .Creat|
|00001560| 65 50 72 65 73 73 65 64 | 0d 08 5c 0f c8 8e 20 53 |ePressed|..\... S|
|00001570| 74 61 74 65 25 20 ca 0d | 08 5d 0e c9 20 44 6f 72 |tate% ..|.].. Dor|
|00001580| 6d 61 6e 74 3a 0d 08 5e | 69 20 20 20 f2 45 72 72 |mant:..^|i .Err|
|00001590| 6f 72 28 20 22 59 6f 75 | 20 6d 75 73 74 20 64 72 |or( "You| must dr|
|000015a0| 6f 70 20 61 6e 20 49 6d | 70 72 65 73 73 69 6f 6e |op an Im|pression|
|000015b0| 20 64 6f 63 75 6d 65 6e | 74 20 6f 6e 74 6f 20 74 | documen|t onto t|
|000015c0| 68 69 73 20 77 69 6e 64 | 6f 77 20 62 65 66 6f 72 |his wind|ow befor|
|000015d0| 65 20 79 6f 75 20 63 61 | 6e 20 63 72 65 61 74 65 |e you ca|n create|
|000015e0| 20 61 20 63 61 6c 65 6e | 64 61 72 22 20 29 0d 08 | a calen|dar" )..|
|000015f0| 5f 04 0d 08 66 0d c9 20 | 4c 6f 61 64 65 64 3a 0d |_...f.. |Loaded:.|
|00001600| 08 70 12 20 20 20 f2 53 | 74 61 72 74 4d 65 72 67 |.p. .S|tartMerg|
|00001610| 65 0d 08 7a 04 0d 08 84 | 0d c9 20 50 61 75 73 65 |e..z....|.. Pause|
|00001620| 64 3a 0d 08 8e 2d 20 20 | 20 e7 20 a4 49 63 6f 6e |d:...- | . .Icon|
|00001630| 53 65 6c 65 63 74 65 64 | 28 20 6d 61 69 6e 2c 20 |Selected|( main, |
|00001640| 50 72 69 6e 74 4f 70 74 | 69 6f 6e 20 29 20 8c 0d |PrintOpt|ion ) ..|
|00001650| 08 98 1b 20 20 20 20 20 | 20 53 74 61 74 65 25 20 |... | State% |
|00001660| 3d 20 50 72 69 6e 74 69 | 6e 67 0d 08 a2 3d 20 20 |= Printi|ng...= |
|00001670| 20 20 20 20 f2 53 65 6e | 64 52 65 71 75 65 73 74 | .Sen|dRequest|
|00001680| 28 50 72 65 66 69 78 24 | 2b 54 65 6d 70 6c 61 74 |(Prefix$|+Templat|
|00001690| 65 24 2b 22 20 50 72 69 | 6e 74 22 2c a4 4e 65 78 |e$+" Pri|nt",.Nex|
|000016a0| 74 54 78 54 61 67 29 0d | 08 ac 08 20 20 20 cc 0d |tTxTag).|... ..|
|000016b0| 08 b6 17 20 20 20 20 20 | 20 f2 54 65 73 74 46 6f |... | .TestFo|
|000016c0| 72 42 61 74 63 68 0d 08 | c0 08 20 20 20 cd 0d 08 |rBatch..|.. ...|
|000016d0| ca 04 0d 08 d4 05 7f 0d | 08 de 09 20 20 20 3d a3 |........|... =.|
|000016e0| 0d 08 e8 04 0d 08 f2 05 | cb 0d 08 fc 06 3d b9 0d |........|.....=..|
|000016f0| 09 06 04 0d 09 10 2f 20 | 20 20 20 20 20 20 20 20 |....../ | |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001710| 20 20 28 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*----|--------|
|00001720| 2a 29 0d 09 1a 04 0d 09 | 24 16 dd 20 f2 45 6e 74 |*)......|$.. .Ent|
|00001730| 65 72 4d 65 72 67 65 53 | 74 61 74 65 0d 09 2e 15 |erMergeS|tate....|
|00001740| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00001750| 22 0d 09 38 14 53 74 61 | 74 65 25 20 3d 20 4d 65 |"..8.Sta|te% = Me|
|00001760| 72 67 69 6e 67 0d 09 42 | 23 f2 53 65 6c 65 63 74 |rging..B|#.Select|
|00001770| 49 63 6f 6e 28 20 6d 61 | 69 6e 2c 20 43 72 65 61 |Icon( ma|in, Crea|
|00001780| 74 65 49 63 6f 6e 20 29 | 0d 09 4c 3a f2 53 65 6e |teIcon )|..L:.Sen|
|00001790| 64 52 65 71 75 65 73 74 | 28 20 50 72 65 66 69 78 |dRequest|( Prefix|
|000017a0| 24 2b 54 65 6d 70 6c 61 | 74 65 24 2b 22 20 4d 65 |$+Templa|te$+" Me|
|000017b0| 72 67 65 22 2c 20 a4 4e | 65 78 74 54 78 54 61 67 |rge", .N|extTxTag|
|000017c0| 20 29 0d 09 56 05 e1 0d | 09 60 04 0d 09 6a 2f 20 | )..V...|.`...j/ |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 28 2a 2d 2d 2d 2d | | (*----|
|000017f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 29 0d 09 74 04 0d 09 |--------|*)..t...|
|00001800| 7e 12 dd 20 f2 72 65 63 | 65 69 76 65 28 71 25 29 |~.. .rec|eive(q%)|
|00001810| 0d 09 88 0e c8 8e 20 71 | 25 21 31 36 20 ca 0d 09 |...... q|%!16 ...|
|00001820| 92 13 c9 20 4d 65 73 73 | 61 67 65 5f 51 75 69 74 |... Mess|age_Quit|
|00001830| 3a 0d 09 9c 0e 20 20 20 | 71 75 69 74 25 3d b9 0d |:.... |quit%=..|
|00001840| 09 a6 04 0d 09 b0 17 c9 | 20 4d 65 73 73 61 67 65 |........| Message|
|00001850| 5f 44 61 74 61 4c 6f 61 | 64 3a 0d 09 ba 2d 20 20 |_DataLoa|d:...- |
|00001860| 20 46 75 6c 6c 54 65 6d | 70 6c 61 74 65 24 20 3d | FullTem|plate$ =|
|00001870| 20 a4 54 65 72 6d 69 6e | 61 74 65 28 20 24 28 71 | .Termin|ate( $(q|
|00001880| 25 2b 34 34 29 20 29 0d | 09 c4 3a 20 20 20 e7 20 |%+44) ).|..: . |
|00001890| a4 49 6d 70 72 65 73 73 | 69 6f 6e 44 6f 63 75 6d |.Impress|ionDocum|
|000018a0| 65 6e 74 28 20 46 75 6c | 6c 54 65 6d 70 6c 61 74 |ent( Ful|lTemplat|
|000018b0| 65 24 2c 20 54 65 6d 70 | 6c 61 74 65 24 20 29 20 |e$, Temp|late$ ) |
|000018c0| 8c 0d 09 ce 22 20 20 20 | 20 20 20 71 25 21 31 36 |...." | q%!16|
|000018d0| 20 3d 20 4d 65 73 73 61 | 67 65 5f 44 61 74 61 4f | = Messa|ge_DataO|
|000018e0| 70 65 6e 0d 09 d8 13 20 | 20 20 20 20 20 71 25 21 |pen.... | q%!|
|000018f0| 33 36 20 3d 20 30 0d 09 | e2 3a 20 20 20 20 20 20 |36 = 0..|.: |
|00001900| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00001910| 73 61 67 65 22 2c 55 73 | 65 72 5f 4d 65 73 73 61 |sage",Us|er_Messa|
|00001920| 67 65 5f 52 65 63 6f 72 | 64 65 64 2c 71 25 2c 30 |ge_Recor|ded,q%,0|
|00001930| 0d 09 ec 1d 20 20 20 20 | 20 20 44 61 74 61 4f 70 |.... | DataOp|
|00001940| 65 6e 52 65 66 25 20 3d | 20 71 25 21 38 0d 09 f6 |enRef% =| q%!8...|
|00001950| 08 20 20 20 cc 0d 0a 00 | 25 20 20 20 20 20 20 71 |. ....|% q|
|00001960| 25 21 31 36 20 3d 20 4d | 65 73 73 61 67 65 5f 44 |%!16 = M|essage_D|
|00001970| 61 74 61 4c 6f 61 64 41 | 63 6b 0d 0a 0a 3d 20 20 |ataLoadA|ck...= |
|00001980| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e | .. "|Wimp_Sen|
|00001990| 64 4d 65 73 73 61 67 65 | 22 2c 55 73 65 72 5f 4d |dMessage|",User_M|
|000019a0| 65 73 73 61 67 65 5f 41 | 63 6b 6e 6f 77 6c 65 64 |essage_A|cknowled|
|000019b0| 67 65 2c 71 25 2c 30 0d | 0a 14 08 20 20 20 cd 0d |ge,q%,0.|... ..|
|000019c0| 0a 1e 04 0d 0a 28 04 0d | 0a 32 1a c9 20 4d 65 73 |.....(..|.2.. Mes|
|000019d0| 73 61 67 65 5f 44 61 74 | 61 4c 6f 61 64 41 63 6b |sage_Dat|aLoadAck|
|000019e0| 3a 0d 0a 3c 1f 20 20 20 | e7 20 71 25 21 31 32 20 |:..<. |. q%!12 |
|000019f0| 3d 20 44 61 74 61 4f 70 | 65 6e 52 65 66 25 20 8c |= DataOp|enRef% .|
|00001a00| 0d 0a 46 39 20 20 20 20 | 20 20 f4 20 49 6d 70 72 |..F9 | . Impr|
|00001a10| 65 73 73 69 6f 6e 20 61 | 6c 72 65 61 64 79 20 6c |ession a|lready l|
|00001a20| 6f 61 64 65 64 20 26 20 | 64 6f 63 75 6d 65 6e 74 |oaded & |document|
|00001a30| 20 61 63 63 65 70 74 65 | 64 0d 0a 50 19 20 20 20 | accepte|d..P. |
|00001a40| 20 20 20 f2 53 65 74 4c | 6f 61 64 65 64 53 74 61 | .SetL|oadedSta|
|00001a50| 74 65 0d 0a 5a 08 20 20 | 20 cd 0d 0a 64 04 0d 0a |te..Z. | ...d...|
|00001a60| 6e 1d c9 20 4d 65 73 73 | 61 67 65 5f 54 61 73 6b |n.. Mess|age_Task|
|00001a70| 49 6e 69 74 69 61 6c 69 | 73 65 3a 0d 0a 78 47 20 |Initiali|se:..xG |
|00001a80| 20 20 e7 20 28 53 74 61 | 74 65 25 20 3d 20 4c 6f | . (Sta|te% = Lo|
|00001a90| 61 64 69 6e 67 29 20 80 | 20 28 a4 54 65 72 6d 69 |ading) .| (.Termi|
|00001aa0| 6e 61 74 65 28 20 24 28 | 71 25 2b 32 38 29 20 29 |nate( $(|q%+28) )|
|00001ab0| 20 3d 20 22 49 6d 70 72 | 65 73 73 69 6f 6e 22 29 | = "Impr|ession")|
|00001ac0| 20 8c 0d 0a 82 34 20 20 | 20 20 20 20 f4 20 49 6d | ....4 | . Im|
|00001ad0| 70 72 65 73 73 69 6f 6e | 20 6c 6f 61 64 65 64 20 |pression| loaded |
|00001ae0| 62 79 20 75 73 20 72 75 | 6e 6e 69 6e 67 20 64 6f |by us ru|nning do|
|00001af0| 63 75 6d 65 6e 74 0d 0a | 8c 19 20 20 20 20 20 20 |cument..|.. |
|00001b00| f2 53 65 74 4c 6f 61 64 | 65 64 53 74 61 74 65 0d |.SetLoad|edState.|
|00001b10| 0a 96 08 20 20 20 cd 0d | 0a a0 04 0d 0a aa 05 cb |... ..|........|
|00001b20| 0d 0a b4 05 e1 0d 0a be | 04 0d 0a c8 2f 20 20 20 |........|..../ |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b40| 20 20 20 20 20 20 20 20 | 28 2a 2d 2d 2d 2d 2d 2d | |(*------|
|00001b50| 2d 2d 2d 2d 2d 2d 2a 29 | 0d 0a d2 04 0d 0a dc 15 |------*)|........|
|00001b60| dd 20 f2 53 65 74 4c 6f | 61 64 65 64 53 74 61 74 |. .SetLo|adedStat|
|00001b70| 65 0d 0a e6 36 f2 4d 6f | 64 69 66 79 49 63 6f 6e |e...6.Mo|difyIcon|
|00001b80| 54 65 78 74 28 20 6d 61 | 69 6e 2c 20 4c 6f 61 64 |Text( ma|in, Load|
|00001b90| 65 64 49 63 6f 6e 2c 20 | 46 75 6c 6c 54 65 6d 70 |edIcon, |FullTemp|
|00001ba0| 6c 61 74 65 24 20 29 0d | 0a f0 13 53 74 61 74 65 |late$ ).|...State|
|00001bb0| 25 20 3d 20 4c 6f 61 64 | 65 64 0d 0a fa 15 f2 50 |% = Load|ed.....P|
|00001bc0| 75 74 4f 6e 54 6f 70 28 | 20 6d 61 69 6e 20 29 0d |utOnTop(| main ).|
|00001bd0| 0b 04 05 e1 0d 0b 0e 04 | 0d 0b 18 2f 20 20 20 20 |........|.../ |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001bf0| 20 20 20 20 20 20 20 28 | 2a 2d 2d 2d 2d 2d 2d 2d | (|*-------|
|00001c00| 2d 2d 2d 2d 2d 2a 29 0d | 0b 22 04 0d 0b 2c 21 dd |-----*).|."...,!.|
|00001c10| 20 f2 44 6f 43 6f 6d 6d | 61 6e 64 28 4d 65 74 68 | .DoComm|and(Meth|
|00001c20| 6f 64 25 2c 50 61 72 61 | 6d 73 25 29 0d 0b 36 11 |od%,Para|ms%)..6.|
|00001c30| ea 20 4f 70 74 69 6f 6e | 24 2c 4f 6e 25 0d 0b 40 |. Option|$,On%..@|
|00001c40| 10 c8 8e 20 4d 65 74 68 | 6f 64 25 20 ca 0d 0b 4a |... Meth|od% ...J|
|00001c50| 0b c9 20 51 75 69 74 3a | 0d 0b 54 0e 20 20 20 71 |.. Quit:|..T. q|
|00001c60| 75 69 74 25 3d b9 0d 0b | 5e 08 20 20 20 e1 0d 0b |uit%=...|^. ...|
|00001c70| 68 04 0d 0b 72 10 c9 20 | 53 65 74 4f 70 74 69 6f |h...r.. |SetOptio|
|00001c80| 6e 3a 0d 0b 7c 18 20 20 | 20 e7 20 50 61 72 61 6d |n:..|. | . Param|
|00001c90| 73 25 20 3c 3e 20 2d 31 | 20 8c 0d 0b 86 14 20 20 |s% <> -1| ..... |
|00001ca0| 20 20 20 20 e3 20 49 25 | 3d 30 20 b8 20 33 0d 0b | . I%|=0 . 3..|
|00001cb0| 90 45 20 20 20 20 20 20 | 20 20 20 e7 20 a4 47 65 |.E | . .Ge|
|00001cc0| 74 53 74 72 69 6e 67 28 | 50 61 72 61 6d 73 25 2c |tString(|Params%,|
|00001cd0| 49 25 2c 4f 70 74 69 6f | 6e 24 29 20 80 20 a4 4f |I%,Optio|n$) . .O|
|00001ce0| 6e 4f 66 66 28 4f 70 74 | 69 6f 6e 24 2c 4f 6e 25 |nOff(Opt|ion$,On%|
|00001cf0| 29 20 8c 0d 0b 9a 17 20 | 20 20 20 20 20 20 20 20 |) ..... | |
|00001d00| 20 20 20 e7 20 4f 6e 25 | 20 8c 0d 0b a4 2c 20 20 | . On%| ...., |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 53 65 | | .Se|
|00001d20| 6c 65 63 74 49 63 6f 6e | 28 20 6d 61 69 6e 2c 20 |lectIcon|( main, |
|00001d30| 49 25 2b 31 20 29 0d 0b | ae 11 20 20 20 20 20 20 |I%+1 )..|.. |
|00001d40| 20 20 20 20 20 20 cc 0d | 0b b8 2e 20 20 20 20 20 | ..|... |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 f2 44 65 73 65 6c | | .Desel|
|00001d60| 65 63 74 49 63 6f 6e 28 | 20 6d 61 69 6e 2c 20 49 |ectIcon(| main, I|
|00001d70| 25 2b 31 20 29 0d 0b c2 | 11 20 20 20 20 20 20 20 |%+1 )...|. |
|00001d80| 20 20 20 20 20 cd 0d 0b | cc 0e 20 20 20 20 20 20 | ...|.. |
|00001d90| 20 20 20 cd 0d 0b d6 0b | 20 20 20 20 20 20 ed 0d | .....| ..|
|00001da0| 0b e0 08 20 20 20 cd 0d | 0b ea 04 0d 0b f4 0d c9 |... ..|........|
|00001db0| 20 43 72 65 61 74 65 3a | 0d 0b fe 19 20 20 20 e7 | Create:|.... .|
|00001dc0| 20 a4 43 72 65 61 74 65 | 50 72 65 73 73 65 64 20 | .Create|Pressed |
|00001dd0| 8c 0d 0c 08 08 20 20 20 | cd 0d 0c 12 04 0d 0c 1c |..... |........|
|00001de0| 0d c9 20 43 61 6e 63 65 | 6c 3a 0d 0c 26 15 20 20 |.. Cance|l:..&. |
|00001df0| 20 f2 43 61 6e 63 65 6c | 50 72 65 73 73 65 64 0d | .Cancel|Pressed.|
|00001e00| 0c 30 04 0d 0c 3a 10 c9 | 20 53 65 74 50 72 65 66 |.0...:..| SetPref|
|00001e10| 69 78 3a 0d 0c 44 2a 20 | 20 20 e7 20 a4 47 65 74 |ix:..D* | . .Get|
|00001e20| 53 74 72 69 6e 67 28 20 | 50 61 72 61 6d 73 25 2c |String( |Params%,|
|00001e30| 30 2c 50 72 65 66 69 78 | 24 20 29 20 8c 0d 0c 4e |0,Prefix|$ ) ...N|
|00001e40| 08 20 20 20 cd 0d 0c 58 | 04 0d 0c 62 05 7f 0d 0c |. ...X|...b....|
|00001e50| 6c 22 20 20 20 f2 44 6f | 52 65 71 75 65 73 74 28 |l" .Do|Request(|
|00001e60| 4d 65 74 68 6f 64 25 2c | 50 61 72 61 6d 73 25 29 |Method%,|Params%)|
|00001e70| 0d 0c 76 04 0d 0c 80 05 | cb 0d 0c 8a 05 e1 0d 0c |..v.....|........|
|00001e80| 94 04 0d 0c 9e 2f 20 20 | 20 20 20 20 20 20 20 20 |...../ | |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ea0| 20 28 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a | (*-----|-------*|
|00001eb0| 29 0d 0c a8 04 0d 0c b2 | 21 dd 20 f2 44 6f 52 65 |).......|!. .DoRe|
|00001ec0| 71 75 65 73 74 28 4d 65 | 74 68 6f 64 25 2c 50 61 |quest(Me|thod%,Pa|
|00001ed0| 72 61 6d 73 25 29 0d 0c | bc 35 ea 20 53 69 7a 65 |rams%)..|.5. Size|
|00001ee0| 25 2c 4d 6f 6e 74 68 24 | 2c 57 65 65 6b 25 2c 44 |%,Month$|,Week%,D|
|00001ef0| 61 79 25 2c 44 61 79 24 | 2c 46 6f 72 6d 61 74 24 |ay%,Day$|,Format$|
|00001f00| 2c 44 61 74 4c 65 6e 67 | 74 68 25 0d 0c c6 3d 24 |,DatLeng|th%...=$|
|00001f10| 42 6c 6f 63 6b 25 20 3d | 20 22 22 20 20 3a f4 20 |Block% =| "" :. |
|00001f20| 49 6e 20 63 61 73 65 20 | 74 68 65 72 65 20 69 73 |In case |there is|
|00001f30| 20 61 6e 20 65 72 72 6f | 72 20 69 6e 20 74 68 65 | an erro|r in the|
|00001f40| 20 63 6f 6d 6d 61 6e 64 | 0d 0c d0 10 c8 8e 20 4d | command|...... M|
|00001f50| 65 74 68 6f 64 25 20 ca | 0d 0c da 0a c9 20 53 65 |ethod% .|..... Se|
|00001f60| 74 3a 0d 0c e4 18 20 20 | 20 e7 20 50 61 72 61 6d |t:.... | . Param|
|00001f70| 73 25 20 3c 3e 20 2d 31 | 20 8c 0d 0c ee 2a 20 20 |s% <> -1| ....* |
|00001f80| 20 20 20 20 e7 20 a4 47 | 65 74 53 74 72 69 6e 67 | . .G|etString|
|00001f90| 28 50 61 72 61 6d 73 25 | 2c 30 2c 4d 6f 6e 74 68 |(Params%|,0,Month|
|00001fa0| 24 29 20 8c 0d 0c f8 2f | 20 20 20 20 20 20 20 20 |$) ..../| |
|00001fb0| 20 e7 20 a4 4d 6f 6e 74 | 68 28 20 4d 6f 6e 74 68 | . .Mont|h( Month|
|00001fc0| 24 2c 20 43 75 72 72 65 | 6e 74 4d 6f 6e 74 68 25 |$, Curre|ntMonth%|
|00001fd0| 29 20 8c 0d 0d 02 0e 20 | 20 20 20 20 20 20 20 20 |) ..... | |
|00001fe0| cd 0d 0d 0c 0b 20 20 20 | 20 20 20 cd 0d 0d 16 2f |..... | ..../|
|00001ff0| 20 20 20 20 20 20 e7 20 | a4 47 65 74 53 74 72 69 | . |.GetStri|
|00002000| 6e 67 28 20 50 61 72 61 | 6d 73 25 2c 20 31 2c 20 |ng( Para|ms%, 1, |
|00002010| 4f 70 74 69 6f 6e 24 20 | 29 20 8c 0d 0d 20 37 20 |Option$ |) ... 7 |
|00002020| 20 20 20 20 20 20 20 20 | f2 4d 6f 64 69 66 79 49 | |.ModifyI|
|00002030| 63 6f 6e 54 65 78 74 28 | 20 6d 61 69 6e 2c 20 59 |conText(| main, Y|
|00002040| 65 61 72 49 63 6f 6e 2c | 20 4f 70 74 69 6f 6e 24 |earIcon,| Option$|
|00002050| 20 29 0d 0d 2a 0b 20 20 | 20 20 20 20 cd 0d 0d 34 | )..*. | ...4|
|00002060| 2f 20 20 20 20 20 20 e7 | 20 a4 47 65 74 53 74 72 |/ .| .GetStr|
|00002070| 69 6e 67 28 20 50 61 72 | 61 6d 73 25 2c 20 32 2c |ing( Par|ams%, 2,|
|00002080| 20 4f 70 74 69 6f 6e 24 | 20 29 20 8c 0d 0d 3e 35 | Option$| ) ...>5|
|00002090| 20 20 20 20 20 20 20 20 | 20 e7 20 a4 4d 6f 6e 74 | | . .Mont|
|000020a0| 68 28 20 4f 70 74 69 6f | 6e 24 2c 20 43 75 72 72 |h( Optio|n$, Curr|
|000020b0| 65 6e 74 53 74 61 72 74 | 4d 6f 6e 74 68 25 29 20 |entStart|Month%) |
|000020c0| 8c 0d 0d 48 1b 20 20 20 | 20 20 20 20 20 20 20 20 |...H. | |
|000020d0| 20 f2 55 70 64 61 74 65 | 49 6e 66 6f 0d 0d 52 0e | .Update|Info..R.|
|000020e0| 20 20 20 20 20 20 20 20 | 20 cd 0d 0d 5c 0b 20 20 | | ...\. |
|000020f0| 20 20 20 20 cd 0d 0d 66 | 2f 20 20 20 20 20 20 e7 | ...f|/ .|
|00002100| 20 a4 47 65 74 53 74 72 | 69 6e 67 28 20 50 61 72 | .GetStr|ing( Par|
|00002110| 61 6d 73 25 2c 20 33 2c | 20 4f 70 74 69 6f 6e 24 |ams%, 3,| Option$|
|00002120| 20 29 20 8c 0d 0d 70 33 | 20 20 20 20 20 20 20 20 | ) ...p3| |
|00002130| 20 e7 20 a4 4d 6f 6e 74 | 68 28 20 4f 70 74 69 6f | . .Mont|h( Optio|
|00002140| 6e 24 2c 20 43 75 72 72 | 65 6e 74 45 6e 64 4d 6f |n$, Curr|entEndMo|
|00002150| 6e 74 68 25 29 20 8c 0d | 0d 7a 1b 20 20 20 20 20 |nth%) ..|.z. |
|00002160| 20 20 20 20 20 20 20 f2 | 55 70 64 61 74 65 49 6e | .|UpdateIn|
|00002170| 66 6f 0d 0d 84 0e 20 20 | 20 20 20 20 20 20 20 cd |fo.... | .|
|00002180| 0d 0d 8e 0b 20 20 20 20 | 20 20 cd 0d 0d 98 08 20 |.... | ..... |
|00002190| 20 20 cd 0d 0d a2 04 0d | 0d ac 0e c9 20 47 65 74 | ......|.... Get|
|000021a0| 59 65 61 72 3a 0d 0d b6 | 2f 20 20 20 24 42 6c 6f |Year:...|/ $Blo|
|000021b0| 63 6b 25 20 3d 20 a4 47 | 65 74 49 63 6f 6e 54 65 |ck% = .G|etIconTe|
|000021c0| 78 74 28 20 6d 61 69 6e | 2c 20 59 65 61 72 49 63 |xt( main|, YearIc|
|000021d0| 6f 6e 20 29 0d 0d c0 04 | 0d 0d ca 0f c9 20 47 65 |on )....|..... Ge|
|000021e0| 74 4d 6f 6e 74 68 3a 0d | 0d d4 28 20 20 20 24 42 |tMonth:.|..( $B|
|000021f0| 6c 6f 63 6b 25 20 3d 20 | 4d 6f 6e 74 68 24 28 20 |lock% = |Month$( |
|00002200| 43 75 72 72 65 6e 74 4d | 6f 6e 74 68 25 20 29 0d |CurrentM|onth% ).|
|00002210| 0d de 04 0d 0d e8 0e c9 | 20 47 65 74 44 61 74 65 |........| GetDate|
|00002220| 3a 0d 0d f2 1f 20 20 20 | 24 42 6c 6f 63 6b 25 20 |:.... |$Block% |
|00002230| 3d 20 22 53 79 6e 74 61 | 78 20 45 72 72 6f 72 22 |= "Synta|x Error"|
|00002240| 0d 0d fc 18 20 20 20 e7 | 20 50 61 72 61 6d 73 25 |.... .| Params%|
|00002250| 20 3c 3e 20 2d 31 20 8c | 0d 0e 06 2f 20 20 20 20 | <> -1 .|.../ |
|00002260| 20 20 e7 20 a4 47 65 74 | 53 74 72 69 6e 67 28 20 | . .Get|String( |
|00002270| 50 61 72 61 6d 73 25 2c | 20 33 2c 20 46 6f 72 6d |Params%,| 3, Form|
|00002280| 61 74 24 20 29 20 8c 0d | 0e 10 22 20 20 20 20 20 |at$ ) ..|.." |
|00002290| 20 20 20 20 44 61 79 4c | 65 6e 67 74 68 25 20 3d | DayL|ength% =|
|000022a0| 20 bb 46 6f 72 6d 61 74 | 24 0d 0e 1a 0b 20 20 20 | .Format|$.... |
|000022b0| 20 20 20 cc 0d 0e 24 1b | 20 20 20 20 20 20 20 20 | ...$.| |
|000022c0| 20 44 61 79 4c 65 6e 67 | 74 68 25 20 3d 20 30 0d | DayLeng|th% = 0.|
|000022d0| 0e 2e 0b 20 20 20 20 20 | 20 cd 0d 0e 38 47 20 20 |... | ...8G |
|000022e0| 20 20 20 20 e7 20 a4 47 | 65 74 53 74 72 69 6e 67 | . .G|etString|
|000022f0| 28 20 50 61 72 61 6d 73 | 25 2c 20 30 2c 20 4d 6f |( Params|%, 0, Mo|
|00002300| 6e 74 68 24 20 29 20 80 | 20 a4 4d 6f 6e 74 68 28 |nth$ ) .| .Month(|
|00002310| 20 4d 6f 6e 74 68 24 2c | 20 4d 6f 6e 74 68 25 20 | Month$,| Month% |
|00002320| 29 0d 0e 42 2f 20 20 20 | 20 20 20 20 20 20 e7 20 |)..B/ | . |
|00002330| a4 47 65 74 56 61 6c 75 | 65 28 20 50 61 72 61 6d |.GetValu|e( Param|
|00002340| 73 25 2c 20 31 2c 20 57 | 65 65 6b 25 20 29 20 8c |s%, 1, W|eek% ) .|
|00002350| 0d 0e 4c 1d 20 20 20 20 | 20 20 20 20 20 20 20 20 |..L. | |
|00002360| e7 20 57 65 65 6b 25 20 | 3e 20 36 20 8c 0d 0e 56 |. Week% |> 6 ...V|
|00002370| 1c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002380| 57 65 65 6b 25 20 3d 20 | 36 0d 0e 60 11 20 20 20 |Week% = |6..`. |
|00002390| 20 20 20 20 20 20 20 20 | 20 cd 0d 0e 6a 30 20 20 | | ...j0 |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 e7 20 a4 47 65 74 | | . .Get|
|000023b0| 53 74 72 69 6e 67 28 20 | 50 61 72 61 6d 73 25 2c |String( |Params%,|
|000023c0| 32 2c 44 61 79 24 20 29 | 20 8c 0d 0e 74 29 20 20 |2,Day$ )| ...t) |
|000023d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 e7 20 a4 | | . .|
|000023e0| 44 61 79 28 20 44 61 79 | 24 2c 20 44 61 79 25 20 |Day( Day|$, Day% |
|000023f0| 29 20 8c 0d 0e 7e 28 20 | 20 20 20 20 20 20 20 20 |) ...~( | |
|00002400| 20 20 20 20 20 20 20 20 | 20 e7 20 44 61 79 4c 65 | | . DayLe|
|00002410| 6e 67 74 68 25 20 3d 20 | 30 20 8c 0d 0e 88 43 20 |ngth% = |0 ....C |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002430| 20 20 20 20 24 42 6c 6f | 63 6b 25 3d 43 61 6c 65 | $Blo|ck%=Cale|
|00002440| 6e 64 61 72 24 28 4d 6f | 6e 74 68 25 2d 31 2c 57 |ndar$(Mo|nth%-1,W|
|00002450| 65 65 6b 25 2d 31 2c 44 | 61 79 25 2d 31 29 0d 0e |eek%-1,D|ay%-1)..|
|00002460| 92 17 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002470| 20 20 20 20 cc 0d 0e 9c | 4b 20 20 20 20 20 20 20 | ....|K |
|00002480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 24 42 | | $B|
|00002490| 6c 6f 63 6b 25 3d a4 44 | 61 79 4f 66 57 65 65 6b |lock%=.D|ayOfWeek|
|000024a0| 28 4d 6f 6e 74 68 25 2c | 57 65 65 6b 25 2c 44 61 |(Month%,|Week%,Da|
|000024b0| 79 25 2d 31 2c 44 61 79 | 4c 65 6e 67 74 68 25 29 |y%-1,Day|Length%)|
|000024c0| 0d 0e a6 17 20 20 20 20 | 20 20 20 20 20 20 20 20 |.... | |
|000024d0| 20 20 20 20 20 20 cd 0d | 0e b0 14 20 20 20 20 20 | ..|... |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 cd 0d 0e ba 11 20 | | ..... |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 cc 0d 0e c4 1d | | .....|
|00002500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 24 | | $|
|00002510| 42 6c 6f 63 6b 25 3d 22 | 22 0d 0e ce 25 20 20 20 |Block%="|"...% |
|00002520| 20 20 20 20 20 20 20 20 | 20 20 20 20 e7 20 44 61 | | . Da|
|00002530| 79 4c 65 6e 67 74 68 25 | 20 3d 20 30 20 8c 0d 0e |yLength%| = 0 ...|
|00002540| d8 22 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |." | |
|00002550| 20 20 20 20 e3 20 44 61 | 79 25 3d 30 20 b8 20 35 | . Da|y%=0 . 5|
|00002560| 0d 0e e2 4a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...J | |
|00002570| 20 20 20 20 20 20 20 20 | 20 24 42 6c 6f 63 6b 25 | | $Block%|
|00002580| 2b 3d 43 61 6c 65 6e 64 | 61 72 24 28 4d 6f 6e 74 |+=Calend|ar$(Mont|
|00002590| 68 25 2d 31 2c 57 65 65 | 6b 25 2d 31 2c 44 61 79 |h%-1,Wee|k%-1,Day|
|000025a0| 25 29 2b 22 7b 74 61 62 | 7d 22 0d 0e ec 17 20 20 |%)+"{tab|}".... |
|000025b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025c0| ed 0d 0e f6 3c 20 20 20 | 20 20 20 20 20 20 20 20 |....< | |
|000025d0| 20 20 20 20 20 20 20 24 | 42 6c 6f 63 6b 25 2b 3d | $|Block%+=|
|000025e0| 43 61 6c 65 6e 64 61 72 | 24 28 4d 6f 6e 74 68 25 |Calendar|$(Month%|
|000025f0| 2d 31 2c 57 65 65 6b 25 | 2d 31 2c 36 29 0d 0f 00 |-1,Week%|-1,6)...|
|00002600| 14 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002610| cc 0d 0f 0a 22 20 20 20 | 20 20 20 20 20 20 20 20 |...." | |
|00002620| 20 20 20 20 20 20 20 e3 | 20 44 61 79 25 3d 30 20 | .| Day%=0 |
|00002630| b8 20 35 0d 0f 14 52 20 | 20 20 20 20 20 20 20 20 |. 5...R | |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 20 24 42 6c 6f | | $Blo|
|00002650| 63 6b 25 2b 3d a4 44 61 | 79 4f 66 57 65 65 6b 28 |ck%+=.Da|yOfWeek(|
|00002660| 4d 6f 6e 74 68 25 2c 57 | 65 65 6b 25 2c 44 61 79 |Month%,W|eek%,Day|
|00002670| 25 2c 44 61 79 4c 65 6e | 67 74 68 25 29 2b 22 7b |%,DayLen|gth%)+"{|
|00002680| 74 61 62 7d 22 0d 0f 1e | 17 20 20 20 20 20 20 20 |tab}"...|. |
|00002690| 20 20 20 20 20 20 20 20 | 20 20 20 ed 0d 0f 28 47 | | ...(G|
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000026b0| 20 20 24 42 6c 6f 63 6b | 25 2b 3d a4 44 61 79 4f | $Block|%+=.DayO|
|000026c0| 66 57 65 65 6b 28 4d 6f | 6e 74 68 25 2c 57 65 65 |fWeek(Mo|nth%,Wee|
|000026d0| 6b 25 2c 44 61 79 25 2c | 44 61 79 4c 65 6e 67 74 |k%,Day%,|DayLengt|
|000026e0| 68 25 29 0d 0f 32 14 20 | 20 20 20 20 20 20 20 20 |h%)..2. | |
|000026f0| 20 20 20 20 20 20 cd 0d | 0f 3c 11 20 20 20 20 20 | ..|.<. |
|00002700| 20 20 20 20 20 20 20 cd | 0d 0f 46 0e 20 20 20 20 | .|..F. |
|00002710| 20 20 20 20 20 cd 0d 0f | 50 0b 20 20 20 20 20 20 | ...|P. |
|00002720| cd 0d 0f 5a 08 20 20 20 | cd 0d 0f 64 04 0d 0f 6e |...Z. |...d...n|
|00002730| 10 c9 20 4e 65 78 74 4d | 6f 6e 74 68 3a 0d 0f 78 |.. NextM|onth:..x|
|00002740| 1f 20 20 20 f2 4e 65 78 | 74 28 20 43 75 72 72 65 |. .Nex|t( Curre|
|00002750| 6e 74 4d 6f 6e 74 68 25 | 2c 20 31 29 0d 0f 82 04 |ntMonth%|, 1)....|
|00002760| 0d 0f 8c 05 cb 0d 0f 96 | 13 24 42 6c 6f 63 6b 25 |........|.$Block%|
|00002770| 2b 3d bd 31 33 2b bd 30 | 0d 0f a0 14 53 69 7a 65 |+=.13+.0|....Size|
|00002780| 25 20 3d 20 a9 24 42 6c | 6f 63 6b 25 0d 0f aa 12 |% = .$Bl|ock%....|
|00002790| 42 6c 6f 63 6b 25 3f 53 | 69 7a 65 25 3d 30 0d 0f |Block%?S|ize%=0..|
|000027a0| b4 29 f2 53 65 74 75 70 | 54 72 61 6e 73 6d 69 73 |.).Setup|Transmis|
|000027b0| 73 69 6f 6e 28 20 42 6c | 6f 63 6b 25 2c 20 53 69 |sion( Bl|ock%, Si|
|000027c0| 7a 65 25 2b 31 20 29 0d | 0f be 24 f2 53 65 6e 64 |ze%+1 ).|..$.Send|
|000027d0| 52 65 70 6c 79 28 20 54 | 69 74 6c 65 24 2c 20 a4 |Reply( T|itle$, .|
|000027e0| 4e 65 78 74 54 78 54 61 | 67 20 29 0d 0f c8 05 e1 |NextTxTa|g ).....|
|000027f0| 0d 0f d2 04 0d 0f dc 2f | 20 20 20 20 20 20 20 20 |......./| |
|00002800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002810| 20 20 20 28 2a 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*---|--------|
|00002820| 2d 2a 29 0d 0f e6 04 0d | 0f f0 30 dd 20 a4 44 61 |-*).....|..0. .Da|
|00002830| 79 4f 66 57 65 65 6b 28 | 20 4d 6f 6e 74 68 25 2c |yOfWeek(| Month%,|
|00002840| 20 57 65 65 6b 25 2c 20 | 44 61 79 25 2c 20 4c 65 | Week%, |Day%, Le|
|00002850| 6e 67 74 68 25 20 29 0d | 0f fa 3b 3d c0 20 44 61 |ngth% ).|..;=. Da|
|00002860| 79 24 28 44 61 79 4f 66 | 57 65 65 6b 25 28 4d 6f |y$(DayOf|Week%(Mo|
|00002870| 6e 74 68 25 2d 31 2c 28 | 57 65 65 6b 25 2d 31 29 |nth%-1,(|Week%-1)|
|00002880| 2a 37 2b 44 61 79 25 29 | 29 2c 4c 65 6e 67 74 68 |*7+Day%)|),Length|
|00002890| 25 29 0d 10 04 04 0d 10 | 0e 04 0d 10 18 2f 20 20 |%)......|...../ |
|000028a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028b0| 20 20 20 20 20 20 20 20 | 20 28 2a 2d 2d 2d 2d 2d | | (*-----|
|000028c0| 2d 2d 2d 2d 2d 2d 2d 2a | 29 0d 10 22 04 0d 10 2c |-------*|).."...,|
|000028d0| 1e dd 20 a4 4f 6e 4f 66 | 66 28 20 4f 70 74 69 6f |.. .OnOf|f( Optio|
|000028e0| 6e 24 2c 20 f8 20 4f 6e | 25 20 29 0d 10 36 1e e7 |n$, . On|% )..6..|
|000028f0| 20 a7 22 6f 6e 4f 6e 6f | 4e 4f 4e 22 2c 4f 70 74 | ."onOno|NON",Opt|
|00002900| 69 6f 6e 24 29 3e 30 20 | 8c 0d 10 40 0e 20 20 20 |ion$)>0 |...@. |
|00002910| 4f 6e 25 20 3d 20 b9 0d | 10 4a 09 20 20 20 3d b9 |On% = ..|.J. =.|
|00002920| 0d 10 54 05 cd 0d 10 5e | 2e e7 20 a7 22 6f 66 66 |..T....^|.. ."off|
|00002930| 4f 66 66 6f 46 66 4f 46 | 66 6f 66 46 4f 66 46 6f |OffoFfOF|fofFOfFo|
|00002940| 46 46 4f 46 46 22 2c 4f | 70 74 69 6f 6e 24 29 3e |FFOFF",O|ption$)>|
|00002950| 30 20 8c 0d 10 68 0e 20 | 20 20 4f 6e 25 20 3d 20 |0 ...h. | On% = |
|00002960| a3 0d 10 72 09 20 20 20 | 3d b9 0d 10 7c 05 cd 0d |...r. |=...|...|
|00002970| 10 86 06 3d a3 0d 10 90 | 04 0d 10 9a 2f 20 20 20 |...=....|..../ |
|00002980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002990| 20 20 20 20 20 20 20 20 | 28 2a 2d 2d 2d 2d 2d 2d | |(*------|
|000029a0| 2d 2d 2d 2d 2d 2d 2a 29 | 0d 10 a4 04 0d 10 ae 20 |------*)|....... |
|000029b0| dd 20 a4 4d 6f 6e 74 68 | 28 20 4d 6f 6e 74 68 24 |. .Month|( Month$|
|000029c0| 2c 20 f8 20 4d 6f 6e 74 | 68 25 20 29 0d 10 b8 32 |, . Mont|h% )...2|
|000029d0| e7 20 28 43 75 72 72 65 | 6e 74 4d 6f 6e 74 68 25 |. (Curre|ntMonth%|
|000029e0| 20 3c 20 31 29 20 84 20 | 28 43 75 72 72 65 6e 74 | < 1) . |(Current|
|000029f0| 4d 6f 6e 74 68 25 20 3e | 20 31 32 29 20 8c 0d 10 |Month% >| 12) ...|
|00002a00| c2 18 20 20 20 43 75 72 | 72 65 6e 74 4d 6f 6e 74 |.. Cur|rentMont|
|00002a10| 68 25 20 3d 20 31 0d 10 | cc 05 cd 0d 10 d6 1a e7 |h% = 1..|........|
|00002a20| 20 4d 6f 6e 74 68 24 20 | 3d 20 22 43 75 72 72 65 | Month$ |= "Curre|
|00002a30| 6e 74 22 20 8c 0d 10 e0 | 1d 20 20 20 4d 6f 6e 74 |nt" ....|. Mont|
|00002a40| 68 25 20 3d 20 43 75 72 | 72 65 6e 74 4d 6f 6e 74 |h% = Cur|rentMont|
|00002a50| 68 25 0d 10 ea 09 20 20 | 20 3d b9 0d 10 f4 05 cd |h%.... | =......|
|00002a60| 0d 10 fe 17 e7 20 4d 6f | 6e 74 68 24 20 3d 20 22 |..... Mo|nth$ = "|
|00002a70| 4e 65 78 74 22 20 8c 0d | 11 08 20 20 20 20 f2 4e |Next" ..|.. .N|
|00002a80| 65 78 74 28 20 43 75 72 | 72 65 6e 74 4d 6f 6e 74 |ext( Cur|rentMont|
|00002a90| 68 25 2c 20 31 20 29 0d | 11 12 1d 20 20 20 4d 6f |h%, 1 ).|... Mo|
|00002aa0| 6e 74 68 25 20 3d 20 43 | 75 72 72 65 6e 74 4d 6f |nth% = C|urrentMo|
|00002ab0| 6e 74 68 25 0d 11 1c 09 | 20 20 20 3d b9 0d 11 26 |nth%....| =...&|
|00002ac0| 05 cd 0d 11 30 16 4d 6f | 6e 74 68 25 20 3d 20 bb |....0.Mo|nth% = .|
|00002ad0| 28 4d 6f 6e 74 68 24 29 | 0d 11 3a 14 e7 20 4d 6f |(Month$)|..:.. Mo|
|00002ae0| 6e 74 68 25 3c 3e 30 20 | 8c 20 3d b9 0d 11 44 0c |nth%<>0 |. =...D.|
|00002af0| 4d 6f 6e 74 68 25 3d 31 | 0d 11 4e 12 c8 95 20 4d |Month%=1|..N... M|
|00002b00| 6f 6e 74 68 25 20 3c 20 | 31 33 0d 11 58 24 20 20 |onth% < |13..X$ |
|00002b10| 20 e7 20 a7 4d 6f 6e 74 | 68 24 28 4d 6f 6e 74 68 | . .Mont|h$(Month|
|00002b20| 25 29 2c 4d 6f 6e 74 68 | 24 29 3e 30 20 8c 0d 11 |%),Month|$)>0 ...|
|00002b30| 62 0c 20 20 20 20 20 20 | 3d b9 0d 11 6c 08 20 20 |b. |=...l. |
|00002b40| 20 cd 0d 11 76 10 20 20 | 20 4d 6f 6e 74 68 25 2b | ...v. | Month%+|
|00002b50| 3d 31 0d 11 80 05 ce 0d | 11 8a 06 3d a3 0d 11 94 |=1......|...=....|
|00002b60| 04 0d 11 9e 2f 20 20 20 | 20 20 20 20 20 20 20 20 |..../ | |
|00002b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b80| 28 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 29 |(*------|------*)|
|00002b90| 0d 11 a8 04 0d 11 b2 1a | dd 20 a4 44 61 79 28 20 |........|. .Day( |
|00002ba0| 44 61 79 24 2c 20 f8 20 | 44 61 79 25 20 29 0d 11 |Day$, . |Day% )..|
|00002bb0| bc 12 44 61 79 25 20 3d | 20 bb 28 44 61 79 24 29 |..Day% =| .(Day$)|
|00002bc0| 0d 11 c6 12 e7 20 44 61 | 79 25 3c 3e 30 20 8c 20 |..... Da|y%<>0 . |
|00002bd0| 3d b9 0d 11 d0 0a 44 61 | 79 25 3d 31 0d 11 da 0f |=.....Da|y%=1....|
|00002be0| c8 95 20 44 61 79 25 20 | 3c 20 38 0d 11 e4 1e 20 |.. Day% |< 8.... |
|00002bf0| 20 20 e7 20 a7 44 61 79 | 24 28 44 61 79 25 29 2c | . .Day|$(Day%),|
|00002c00| 44 61 79 24 29 3e 30 20 | 8c 0d 11 ee 0c 20 20 20 |Day$)>0 |..... |
|00002c10| 20 20 20 3d b9 0d 11 f8 | 08 20 20 20 cd 0d 12 02 | =....|. ....|
|00002c20| 0e 20 20 20 44 61 79 25 | 2b 3d 31 0d 12 0c 05 ce |. Day%|+=1.....|
|00002c30| 0d 12 16 06 3d a3 0d 12 | 20 04 0d 12 2a 2f 20 20 |....=...| ...*/ |
|00002c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c50| 20 20 20 20 20 20 20 20 | 20 28 2a 2d 2d 2d 2d 2d | | (*-----|
|00002c60| 2d 2d 2d 2d 2d 2d 2d 2a | 29 0d 12 34 04 0d 12 3e |-------*|)..4...>|
|00002c70| 15 dd 20 f2 4b 65 79 50 | 72 65 73 73 65 64 28 71 |.. .KeyP|ressed(q|
|00002c80| 25 29 0d 12 48 1c ea 20 | 63 25 2c 57 69 6e 64 6f |%)..H.. |c%,Windo|
|00002c90| 77 25 2c 49 63 6f 6e 25 | 2c 69 63 6f 6e 25 0d 12 |w%,Icon%|,icon%..|
|00002ca0| 52 11 57 69 6e 64 6f 77 | 25 20 3d 20 21 71 25 0d |R.Window|% = !q%.|
|00002cb0| 12 5c 10 69 63 6f 6e 25 | 20 3d 20 71 25 21 34 0d |.\.icon%| = q%!4.|
|00002cc0| 12 66 10 4b 65 79 25 20 | 3d 20 71 25 21 32 34 0d |.f.Key% |= q%!24.|
|00002cd0| 12 70 10 c8 8e 20 57 69 | 6e 64 6f 77 25 20 ca 0d |.p... Wi|ndow% ..|
|00002ce0| 12 7a 0b c9 20 6d 61 69 | 6e 3a 0d 12 84 10 20 20 |.z.. mai|n:.... |
|00002cf0| 20 c8 8e 20 4b 65 79 25 | 20 ca 0d 12 8e 0c 20 20 | .. Key%| ..... |
|00002d00| 20 c9 20 31 33 3a 0d 12 | 98 35 20 20 20 20 20 20 | . 13:..|.5 |
|00002d10| e7 20 a4 43 72 65 61 74 | 65 50 72 65 73 73 65 64 |. .Creat|ePressed|
|00002d20| 20 84 20 a4 48 61 73 49 | 6e 70 75 74 46 6f 63 75 | . .HasI|nputFocu|
|00002d30| 73 28 6d 61 69 6e 29 20 | 8c 20 e1 0d 12 a2 04 0d |s(main) |. ......|
|00002d40| 12 ac 08 20 20 20 cb 0d | 12 b6 04 0d 12 c0 05 cb |... ..|........|
|00002d50| 0d 12 ca 1d c8 99 20 22 | 57 69 6d 70 5f 50 72 6f |...... "|Wimp_Pro|
|00002d60| 63 65 73 73 4b 65 79 22 | 2c 4b 65 79 25 0d 12 d4 |cessKey"|,Key%...|
|00002d70| 05 e1 0d 12 de 04 0d 12 | e8 2f 20 20 20 20 20 20 |........|./ |
|00002d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d90| 20 20 20 20 20 28 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*-|--------|
|00002da0| 2d 2d 2d 2a 29 0d 12 f2 | 04 0d 12 fc 1c f4 20 50 |---*)...|...... P|
|00002db0| 6f 69 6e 74 65 72 20 6c | 65 61 76 69 6e 67 20 77 |ointer l|eaving w|
|00002dc0| 69 6e 64 6f 77 0d 13 06 | 16 dd 20 f2 4c 65 61 76 |indow...|.. .Leav|
|00002dd0| 65 57 69 6e 64 6f 77 28 | 71 25 29 0d 13 10 0d c8 |eWindow(|q%).....|
|00002de0| 8e 20 71 25 21 30 20 ca | 0d 13 1a 0b c9 20 69 6e |. q%!0 .|..... in|
|00002df0| 66 6f 3a 0d 13 24 10 20 | 20 20 71 25 21 30 3d 69 |fo:..$. | q%!0=i|
|00002e00| 6e 66 6f 0d 13 2e 20 20 | 20 20 c8 99 20 22 57 69 |nfo... | .. "Wi|
|00002e10| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00002e20| 2c 71 25 0d 13 38 04 0d | 13 42 05 cb 0d 13 4c 05 |,q%..8..|.B....L.|
|00002e30| e1 0d 13 56 04 0d 13 60 | 2f 20 20 20 20 20 20 20 |...V...`|/ |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e50| 20 20 20 20 28 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*--|--------|
|00002e60| 2d 2d 2a 29 0d 13 6a 04 | 0d 13 74 1a f4 20 6d 6f |--*)..j.|..t.. mo|
|00002e70| 75 73 65 20 62 75 74 74 | 6f 6e 20 70 72 65 73 73 |use butt|on press|
|00002e80| 65 64 0d 13 7e 12 dd 20 | f2 62 75 74 74 6f 6e 73 |ed..~.. |.buttons|
|00002e90| 28 71 25 29 0d 13 88 2c | ea 20 57 69 6e 64 6f 77 |(q%)...,|. Window|
|00002ea0| 25 2c 49 63 6f 6e 25 2c | 69 63 6f 6e 25 2c 42 75 |%,Icon%,|icon%,Bu|
|00002eb0| 74 74 6f 6e 25 2c 44 69 | 72 65 63 74 69 6f 6e 25 |tton%,Di|rection%|
|00002ec0| 0d 13 92 0f 69 63 6f 6e | 25 3d 71 25 21 31 36 0d |....icon|%=q%!16.|
|00002ed0| 13 9c 11 57 69 6e 64 6f | 77 25 3d 71 25 21 31 32 |...Windo|w%=q%!12|
|00002ee0| 0d 13 a6 10 42 75 74 74 | 6f 6e 25 3d 71 25 21 38 |....Butt|on%=q%!8|
|00002ef0| 0d 13 b0 27 49 63 6f 6e | 25 3d a4 57 69 6d 70 54 |...'Icon|%=.WimpT|
|00002f00| 6f 4d 69 6e 65 28 20 57 | 69 6e 64 6f 77 25 2c 20 |oMine( W|indow%, |
|00002f10| 69 63 6f 6e 25 20 29 0d | 13 ba 10 c8 8e 20 57 69 |icon% ).|..... Wi|
|00002f20| 6e 64 6f 77 25 20 ca 0d | 13 c4 14 c9 20 49 63 6f |ndow% ..|.... Ico|
|00002f30| 6e 42 61 72 57 69 6e 64 | 6f 77 3a 0d 13 ce 13 20 |nBarWind|ow:.... |
|00002f40| 20 20 c8 8e 20 42 75 74 | 74 6f 6e 25 20 ca 0d 13 | .. But|ton% ...|
|00002f50| d8 10 20 20 20 c9 20 53 | 65 6c 65 63 74 3a 0d 13 |.. . S|elect:..|
|00002f60| e2 1b 20 20 20 20 20 20 | f2 50 75 74 4f 6e 54 6f |.. |.PutOnTo|
|00002f70| 70 28 20 6d 61 69 6e 20 | 29 0d 13 ec 04 0d 13 f6 |p( main |).......|
|00002f80| 0e 20 20 20 c9 20 4d 65 | 6e 75 3a 0d 14 00 2c 20 |. . Me|nu:..., |
|00002f90| 20 20 20 20 20 f2 44 72 | 61 77 4d 65 6e 75 28 20 | .Dr|awMenu( |
|00002fa0| 49 63 6f 6e 42 61 72 4d | 65 6e 75 2c 20 71 25 21 |IconBarM|enu, q%!|
|00002fb0| 30 2c 20 39 36 20 29 0d | 14 0a 04 0d 14 14 08 20 |0, 96 ).|....... |
|00002fc0| 20 20 cb 0d 14 1e 04 0d | 14 28 0b c9 20 6d 61 69 | ......|.(.. mai|
|00002fd0| 6e 3a 0d 14 32 13 20 20 | 20 c8 8e 20 42 75 74 74 |n:..2. | .. Butt|
|00002fe0| 6f 6e 25 20 ca 0d 14 3c | 17 20 20 20 c9 20 53 65 |on% ...<|. . Se|
|00002ff0| 6c 65 63 74 2c 41 64 6a | 75 73 74 3a 0d 14 46 1e |lect,Adj|ust:..F.|
|00003000| 20 20 20 20 20 20 e7 20 | 42 75 74 74 6f 6e 25 20 | . |Button% |
|00003010| 3d 20 53 65 6c 65 63 74 | 20 8c 0d 14 50 1b 20 20 |= Select| ...P. |
|00003020| 20 20 20 20 20 20 20 44 | 69 72 65 63 74 69 6f 6e | D|irection|
|00003030| 25 20 3d 20 31 0d 14 5a | 0b 20 20 20 20 20 20 cc |% = 1..Z|. .|
|00003040| 0d 14 64 1c 20 20 20 20 | 20 20 20 20 20 44 69 72 |..d. | Dir|
|00003050| 65 63 74 69 6f 6e 25 20 | 3d 20 2d 31 0d 14 6e 0b |ection% |= -1..n.|
|00003060| 20 20 20 20 20 20 cd 0d | 14 78 14 20 20 20 20 20 | ..|.x. |
|00003070| 20 c8 8e 20 49 63 6f 6e | 25 20 ca 0d 14 82 1a 20 | .. Icon|% ..... |
|00003080| 20 20 20 20 20 c9 20 44 | 69 72 65 63 74 6f 72 79 | . D|irectory|
|00003090| 49 63 6f 6e 3a 0d 14 8c | 5f 20 20 20 20 20 20 20 |Icon:...|_ |
|000030a0| 20 20 ff 28 20 22 53 65 | 74 20 41 6c 69 61 73 24 | .( "Se|t Alias$|
|000030b0| 4f 70 65 6e 46 69 6c 65 | 72 20 22 2b 51 75 6f 74 |OpenFile|r "+Quot|
|000030c0| 65 24 2b 22 46 69 6c 65 | 72 5f 4f 70 65 6e 44 69 |e$+"File|r_OpenDi|
|000030d0| 72 20 3c 43 61 6c 65 6e | 64 61 72 24 44 69 72 3e |r <Calen|dar$Dir>|
|000030e0| 2e 43 61 6c 65 6e 64 61 | 72 73 22 2b 51 75 6f 74 |.Calenda|rs"+Quot|
|000030f0| 65 24 20 29 0d 14 96 1d | 20 20 20 20 20 20 20 20 |e$ )....| |
|00003100| 20 ff 28 20 22 4f 70 65 | 6e 46 69 6c 65 72 22 20 | .( "Ope|nFiler" |
|00003110| 29 0d 14 a0 36 20 20 20 | 20 20 20 20 20 20 ff 28 |)...6 | .(|
|00003120| 20 22 53 65 74 20 41 6c | 69 61 73 24 4f 70 65 6e | "Set Al|ias$Open|
|00003130| 46 69 6c 65 72 20 22 2b | 51 75 6f 74 65 24 2b 51 |Filer "+|Quote$+Q|
|00003140| 75 6f 74 65 24 20 29 0d | 14 aa 04 0d 14 b4 17 20 |uote$ ).|....... |
|00003150| 20 20 20 20 20 c9 20 43 | 72 65 61 74 65 49 63 6f | . C|reateIco|
|00003160| 6e 3a 0d 14 be 1f 20 20 | 20 20 20 20 20 20 20 e7 |n:.... | .|
|00003170| 20 a4 43 72 65 61 74 65 | 50 72 65 73 73 65 64 20 | .Create|Pressed |
|00003180| 8c 0d 14 c8 0e 20 20 20 | 20 20 20 20 20 20 cd 0d |..... | ..|
|00003190| 14 d2 04 0d 14 dc 18 20 | 20 20 20 20 20 c9 20 53 |....... | . S|
|000031a0| 74 61 72 74 55 70 49 63 | 6f 6e 3a 0d 14 e6 34 20 |tartUpIc|on:...4 |
|000031b0| 20 20 20 20 20 20 20 20 | f2 4e 65 78 74 28 20 43 | |.Next( C|
|000031c0| 75 72 72 65 6e 74 53 74 | 61 72 74 4d 6f 6e 74 68 |urrentSt|artMonth|
|000031d0| 25 2c 20 44 69 72 65 63 | 74 69 6f 6e 25 20 29 0d |%, Direc|tion% ).|
|000031e0| 14 f0 36 20 20 20 20 20 | 20 20 20 20 e7 20 43 75 |..6 | . Cu|
|000031f0| 72 72 65 6e 74 45 6e 64 | 4d 6f 6e 74 68 25 20 3c |rrentEnd|Month% <|
|00003200| 20 43 75 72 72 65 6e 74 | 53 74 61 72 74 4d 6f 6e | Current|StartMon|
|00003210| 74 68 25 20 8c 0d 14 fa | 35 20 20 20 20 20 20 20 |th% ....|5 |
|00003220| 20 20 20 20 20 43 75 72 | 72 65 6e 74 45 6e 64 4d | Cur|rentEndM|
|00003230| 6f 6e 74 68 25 20 3d 20 | 43 75 72 72 65 6e 74 53 |onth% = |CurrentS|
|00003240| 74 61 72 74 4d 6f 6e 74 | 68 25 0d 15 04 0e 20 20 |tartMont|h%.... |
|00003250| 20 20 20 20 20 20 20 cd | 0d 15 0e 18 20 20 20 20 | .|.... |
|00003260| 20 20 20 20 20 f2 55 70 | 64 61 74 65 49 6e 66 6f | .Up|dateInfo|
|00003270| 0d 15 18 04 0d 15 22 1a | 20 20 20 20 20 20 c9 20 |......".| . |
|00003280| 53 74 61 72 74 44 6f 77 | 6e 49 63 6f 6e 3a 0d 15 |StartDow|nIcon:..|
|00003290| 2c 35 20 20 20 20 20 20 | 20 20 20 f2 4e 65 78 74 |,5 | .Next|
|000032a0| 28 20 43 75 72 72 65 6e | 74 53 74 61 72 74 4d 6f |( Curren|tStartMo|
|000032b0| 6e 74 68 25 2c 20 2d 44 | 69 72 65 63 74 69 6f 6e |nth%, -D|irection|
|000032c0| 25 20 29 0d 15 36 36 20 | 20 20 20 20 20 20 20 20 |% )..66 | |
|000032d0| e7 20 43 75 72 72 65 6e | 74 45 6e 64 4d 6f 6e 74 |. Curren|tEndMont|
|000032e0| 68 25 20 3c 20 43 75 72 | 72 65 6e 74 53 74 61 72 |h% < Cur|rentStar|
|000032f0| 74 4d 6f 6e 74 68 25 20 | 8c 0d 15 40 35 20 20 20 |tMonth% |...@5 |
|00003300| 20 20 20 20 20 20 20 20 | 20 43 75 72 72 65 6e 74 | | Current|
|00003310| 45 6e 64 4d 6f 6e 74 68 | 25 20 3d 20 43 75 72 72 |EndMonth|% = Curr|
|00003320| 65 6e 74 53 74 61 72 74 | 4d 6f 6e 74 68 25 0d 15 |entStart|Month%..|
|00003330| 4a 0e 20 20 20 20 20 20 | 20 20 20 cd 0d 15 54 18 |J. | ...T.|
|00003340| 20 20 20 20 20 20 20 20 | 20 f2 55 70 64 61 74 65 | | .Update|
|00003350| 49 6e 66 6f 0d 15 5e 04 | 0d 15 68 16 20 20 20 20 |Info..^.|..h. |
|00003360| 20 20 c9 20 45 6e 64 55 | 70 49 63 6f 6e 3a 0d 15 | . EndU|pIcon:..|
|00003370| 72 32 20 20 20 20 20 20 | 20 20 20 f2 4e 65 78 74 |r2 | .Next|
|00003380| 28 20 43 75 72 72 65 6e | 74 45 6e 64 4d 6f 6e 74 |( Curren|tEndMont|
|00003390| 68 25 2c 20 44 69 72 65 | 63 74 69 6f 6e 25 20 29 |h%, Dire|ction% )|
|000033a0| 0d 15 7c 18 20 20 20 20 | 20 20 20 20 20 f2 55 70 |..|. | .Up|
|000033b0| 64 61 74 65 49 6e 66 6f | 0d 15 86 04 0d 15 90 18 |dateInfo|........|
|000033c0| 20 20 20 20 20 20 c9 20 | 45 6e 64 44 6f 77 6e 49 | . |EndDownI|
|000033d0| 63 6f 6e 3a 0d 15 9a 33 | 20 20 20 20 20 20 20 20 |con:...3| |
|000033e0| 20 f2 4e 65 78 74 28 20 | 43 75 72 72 65 6e 74 45 | .Next( |CurrentE|
|000033f0| 6e 64 4d 6f 6e 74 68 25 | 2c 20 2d 44 69 72 65 63 |ndMonth%|, -Direc|
|00003400| 74 69 6f 6e 25 20 29 0d | 15 a4 18 20 20 20 20 20 |tion% ).|... |
|00003410| 20 20 20 20 f2 55 70 64 | 61 74 65 49 6e 66 6f 0d | .Upd|ateInfo.|
|00003420| 15 ae 04 0d 15 b8 17 20 | 20 20 20 20 20 c9 20 59 |....... | . Y|
|00003430| 65 61 72 55 70 49 63 6f | 6e 3a 0d 15 c2 26 20 20 |earUpIco|n:...& |
|00003440| 20 20 20 20 20 20 20 43 | 75 72 72 65 6e 74 59 65 | C|urrentYe|
|00003450| 61 72 20 2b 3d 20 44 69 | 72 65 63 74 69 6f 6e 25 |ar += Di|rection%|
|00003460| 0d 15 cc 18 20 20 20 20 | 20 20 20 20 20 f2 55 70 |.... | .Up|
|00003470| 64 61 74 65 49 6e 66 6f | 0d 15 d6 04 0d 15 e0 19 |dateInfo|........|
|00003480| 20 20 20 20 20 20 c9 20 | 59 65 61 72 44 6f 77 6e | . |YearDown|
|00003490| 49 63 6f 6e 3a 0d 15 ea | 26 20 20 20 20 20 20 20 |Icon:...|& |
|000034a0| 20 20 43 75 72 72 65 6e | 74 59 65 61 72 20 2d 3d | Curren|tYear -=|
|000034b0| 20 44 69 72 65 63 74 69 | 6f 6e 25 0d 15 f4 18 20 | Directi|on%.... |
|000034c0| 20 20 20 20 20 20 20 20 | f2 55 70 64 61 74 65 49 | |.UpdateI|
|000034d0| 6e 66 6f 0d 15 fe 04 0d | 16 08 17 20 20 20 20 20 |nfo.....|... |
|000034e0| 20 c9 20 43 61 6e 63 65 | 6c 49 63 6f 6e 3a 0d 16 | . Cance|lIcon:..|
|000034f0| 12 1b 20 20 20 20 20 20 | 20 20 20 f2 43 61 6e 63 |.. | .Canc|
|00003500| 65 6c 50 72 65 73 73 65 | 64 0d 16 1c 04 0d 16 26 |elPresse|d......&|
|00003510| 0b 20 20 20 20 20 20 cb | 0d 16 30 04 0d 16 3a 08 |. .|..0...:.|
|00003520| 20 20 20 cb 0d 16 44 04 | 0d 16 4e 05 cb 0d 16 58 | ...D.|..N....X|
|00003530| 05 e1 0d 16 62 04 0d 16 | 6c 2f 20 20 20 20 20 20 |....b...|l/ |
|00003540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003550| 20 20 20 20 20 28 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*-|--------|
|00003560| 2d 2d 2d 2a 29 0d 16 76 | 04 0d 16 80 14 dd 20 f2 |---*)..v|...... .|
|00003570| 43 61 6e 63 65 6c 50 72 | 65 73 73 65 64 0d 16 8a |CancelPr|essed...|
|00003580| 25 f2 44 65 73 65 6c 65 | 63 74 49 63 6f 6e 28 20 |%.Desele|ctIcon( |
|00003590| 6d 61 69 6e 2c 20 43 61 | 6e 63 65 6c 49 63 6f 6e |main, Ca|ncelIcon|
|000035a0| 20 29 0d 16 94 25 f2 44 | 65 73 65 6c 65 63 74 49 | )...%.D|eselectI|
|000035b0| 63 6f 6e 28 20 6d 61 69 | 6e 2c 20 43 72 65 61 74 |con( mai|n, Creat|
|000035c0| 65 49 63 6f 6e 20 29 0d | 16 9e 31 f2 4d 6f 64 69 |eIcon ).|..1.Modi|
|000035d0| 66 79 49 63 6f 6e 54 65 | 78 74 28 20 6d 61 69 6e |fyIconTe|xt( main|
|000035e0| 2c 20 43 72 65 61 74 65 | 49 63 6f 6e 2c 20 22 43 |, Create|Icon, "C|
|000035f0| 72 65 61 74 65 22 20 29 | 0d 16 a8 18 c8 99 20 22 |reate" )|...... "|
|00003600| 48 6f 75 72 67 6c 61 73 | 73 5f 53 6d 61 73 68 22 |Hourglas|s_Smash"|
|00003610| 0d 16 b2 0f c8 8e 20 53 | 74 61 74 65 25 20 ca 0d |...... S|tate% ..|
|00003620| 16 bc 26 c9 20 4d 65 72 | 67 69 6e 67 2c 50 61 75 |..&. Mer|ging,Pau|
|00003630| 73 65 64 2c 50 72 69 6e | 74 69 6e 67 2c 4c 6f 61 |sed,Prin|ting,Loa|
|00003640| 64 69 6e 67 3a 0d 16 c6 | 33 20 20 20 f2 53 65 6e |ding:...|3 .Sen|
|00003650| 64 43 6f 6d 6d 61 6e 64 | 28 20 50 72 65 66 69 78 |dCommand|( Prefix|
|00003660| 24 2b 54 65 6d 70 6c 61 | 74 65 24 2b 22 20 45 64 |$+Templa|te$+" Ed|
|00003670| 69 74 20 4f 6e 22 20 29 | 0d 16 d0 16 20 20 20 53 |it On" )|.... S|
|00003680| 74 61 74 65 25 20 3d 20 | 4c 6f 61 64 65 64 0d 16 |tate% = |Loaded..|
|00003690| da 04 0d 16 e4 05 cb 0d | 16 ee 05 e1 0d 16 f8 04 |........|........|
|000036a0| 0d 17 02 2f 20 20 20 20 | 20 20 20 20 20 20 20 20 |.../ | |
|000036b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|000036c0| 2a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2a 29 0d |*-------|-----*).|
|000036d0| 17 0c 04 0d 17 16 23 dd | 20 f2 4e 65 78 74 28 20 |......#.| .Next( |
|000036e0| f8 20 4d 6f 6e 74 68 25 | 2c 20 49 6e 63 72 65 6d |. Month%|, Increm|
|000036f0| 65 6e 74 25 20 29 0d 17 | 20 45 e7 20 28 4d 6f 6e |ent% )..| E. (Mon|
|00003700| 74 68 25 2b 49 6e 63 72 | 65 6d 65 6e 74 25 3e 31 |th%+Incr|ement%>1|
|00003710| 32 29 20 84 20 28 4d 6f | 6e 74 68 25 2b 49 6e 63 |2) . (Mo|nth%+Inc|
|00003720| 72 65 6d 65 6e 74 25 3e | 43 75 72 72 65 6e 74 45 |rement%>|CurrentE|
|00003730| 6e 64 4d 6f 6e 74 68 25 | 29 20 8c 0d 17 2a 1a 20 |ndMonth%|) ...*. |
|00003740| 20 20 45 6e 64 4d 6f 6e | 74 68 50 61 73 73 65 64 | EndMon|thPassed|
|00003750| 25 20 3d 20 b9 0d 17 34 | 05 cd 0d 17 3e 30 4d 6f |% = ...4|....>0Mo|
|00003760| 6e 74 68 25 20 3d 20 28 | 4d 6f 6e 74 68 25 20 2b |nth% = (|Month% +|
|00003770| 20 31 31 20 2b 20 49 6e | 63 72 65 6d 65 6e 74 25 | 11 + In|crement%|
|00003780| 29 20 83 20 31 32 20 2b | 20 31 0d 17 48 05 e1 0d |) . 12 +| 1..H...|
|00003790| 17 52 04 0d 17 5c 2f 20 | 20 20 20 20 20 20 20 20 |.R...\/ | |
|000037a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037b0| 20 20 28 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*----|--------|
|000037c0| 2a 29 0d 17 66 04 0d 17 | 70 11 dd 20 f2 55 70 64 |*)..f...|p.. .Upd|
|000037d0| 61 74 65 49 6e 66 6f 0d | 17 7a 33 f2 4d 6f 64 69 |ateInfo.|.z3.Modi|
|000037e0| 66 79 49 63 6f 6e 54 65 | 78 74 28 20 6d 61 69 6e |fyIconTe|xt( main|
|000037f0| 2c 20 59 65 61 72 49 63 | 6f 6e 2c 20 c3 43 75 72 |, YearIc|on, .Cur|
|00003800| 72 65 6e 74 59 65 61 72 | 20 29 0d 17 84 43 f2 4d |rentYear| )...C.M|
|00003810| 6f 64 69 66 79 49 63 6f | 6e 54 65 78 74 28 20 6d |odifyIco|nText( m|
|00003820| 61 69 6e 2c 20 53 74 61 | 72 74 4d 6f 6e 74 68 2c |ain, Sta|rtMonth,|
|00003830| 20 4d 6f 6e 74 68 24 28 | 43 75 72 72 65 6e 74 53 | Month$(|CurrentS|
|00003840| 74 61 72 74 4d 6f 6e 74 | 68 25 29 20 29 0d 17 8e |tartMont|h%) )...|
|00003850| 3f f2 4d 6f 64 69 66 79 | 49 63 6f 6e 54 65 78 74 |?.Modify|IconText|
|00003860| 28 20 6d 61 69 6e 2c 20 | 45 6e 64 4d 6f 6e 74 68 |( main, |EndMonth|
|00003870| 2c 20 4d 6f 6e 74 68 24 | 28 43 75 72 72 65 6e 74 |, Month$|(Current|
|00003880| 45 6e 64 4d 6f 6e 74 68 | 25 29 20 29 0d 17 98 05 |EndMonth|%) )....|
|00003890| e1 0d 17 a2 04 0d 17 ac | 2f 20 20 20 20 20 20 20 |........|/ |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038b0| 20 20 20 20 28 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | (*--|--------|
|000038c0| 2d 2d 2a 29 0d 17 b6 04 | 0d 17 c0 15 dd 20 f2 4d |--*)....|..... .M|
|000038d0| 65 6e 75 53 65 6c 65 63 | 74 28 71 25 29 0d 17 ca |enuSelec|t(q%)...|
|000038e0| 23 ea 20 41 64 6a 75 73 | 74 50 72 65 73 73 65 64 |#. Adjus|tPressed|
|000038f0| 25 2c 54 69 63 6b 25 2c | 53 75 62 4d 65 6e 75 25 |%,Tick%,|SubMenu%|
|00003900| 0d 17 d4 10 53 75 62 4d | 65 6e 75 25 3d 21 71 25 |....SubM|enu%=!q%|
|00003910| 0d 17 de 3f c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...?.. "|Wimp_Get|
|00003920| 50 6f 69 6e 74 65 72 49 | 6e 66 6f 22 2c 2c 71 25 |PointerI|nfo",,q%|
|00003930| 3a 41 64 6a 75 73 74 50 | 72 65 73 73 65 64 25 20 |:AdjustP|ressed% |
|00003940| 3d 20 28 71 25 21 38 3d | 41 64 6a 75 73 74 29 0d |= (q%!8=|Adjust).|
|00003950| 17 e8 15 c8 8e 20 43 75 | 72 72 65 6e 74 4d 65 6e |..... Cu|rrentMen|
|00003960| 75 25 20 ca 0d 17 f2 12 | c9 20 49 63 6f 6e 42 61 |u% .....|. IconBa|
|00003970| 72 4d 65 6e 75 3a 0d 17 | fc 14 20 20 20 c8 8e 20 |rMenu:..|.. .. |
|00003980| 53 75 62 4d 65 6e 75 25 | 20 ca 0d 18 06 0b 20 20 |SubMenu%| ..... |
|00003990| 20 c9 20 31 3a 0d 18 10 | 11 20 20 20 20 20 20 71 | . 1:...|. q|
|000039a0| 75 69 74 25 3d b9 0d 18 | 1a 04 0d 18 24 08 20 20 |uit%=...|....$. |
|000039b0| 20 cb 0d 18 2e 04 0d 18 | 38 05 cb 0d 18 42 05 e1 | .......|8....B..|
|000039c0| 0d 18 4c 04 0d 18 56 1e | dd 20 f2 44 72 61 77 4d |..L...V.|. .DrawM|
|000039d0| 65 6e 75 28 20 6d 65 6e | 75 25 2c 20 78 2c 20 79 |enu( men|u%, x, y|
|000039e0| 20 29 0d 18 60 16 43 75 | 72 72 65 6e 74 4d 65 6e | )..`.Cu|rrentMen|
|000039f0| 75 25 3d 6d 65 6e 75 25 | 0d 18 6a 19 e7 20 6d 65 |u%=menu%|..j.. me|
|00003a00| 6e 75 25 3d 49 63 6f 6e | 42 61 72 4d 65 6e 75 20 |nu%=Icon|BarMenu |
|00003a10| 8c 0d 18 74 39 20 20 20 | 4d 65 6e 75 58 25 3d 78 |...t9 |MenuX%=x|
|00003a20| 2d 28 28 6d 65 6e 75 25 | 21 2d 34 29 2a 63 78 25 |-((menu%|!-4)*cx%|
|00003a30| 29 2f 32 3a 4d 65 6e 75 | 59 25 3d 79 2b 28 6d 65 |)/2:Menu|Y%=y+(me|
|00003a40| 6e 75 25 21 2d 38 29 2a | 34 34 0d 18 7e 05 cc 0d |nu%!-8)*|44..~...|
|00003a50| 18 88 2f 20 20 20 4d 65 | 6e 75 58 25 3d 78 2d 28 |../ Me|nuX%=x-(|
|00003a60| 28 6d 65 6e 75 25 21 2d | 34 29 2a 63 78 25 29 2f |(menu%!-|4)*cx%)/|
|00003a70| 32 3a 4d 65 6e 75 59 25 | 3d 79 2b 63 79 25 0d 18 |2:MenuY%|=y+cy%..|
|00003a80| 92 05 cd 0d 18 9c 2d c8 | 99 20 22 57 69 6d 70 5f |......-.|. "Wimp_|
|00003a90| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 6d 65 6e |CreateMe|nu",,men|
|00003aa0| 75 25 2c 4d 65 6e 75 58 | 25 2c 4d 65 6e 75 59 25 |u%,MenuX|%,MenuY%|
|00003ab0| 0d 18 a6 05 e1 0d 18 b0 | 04 0d 18 ba 14 dd 20 f2 |........|...... .|
|00003ac0| 6f 70 65 6e 28 20 62 6c | 6f 63 6b 20 29 0d 18 c4 |open( bl|ock )...|
|00003ad0| 1f c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|00003ae0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 18 ce 05 |ndow",,b|lock....|
|00003af0| e1 0d 18 d8 04 0d 18 e2 | 1d dd 20 f2 63 6c 6f 73 |........|.. .clos|
|00003b00| 65 28 20 57 69 6e 64 6f | 77 48 61 6e 64 6c 65 25 |e( Windo|wHandle%|
|00003b10| 20 29 0d 18 ec 0e ea 20 | 69 25 2c 20 44 6f 6e 65 | )..... |i%, Done|
|00003b20| 0d 18 f6 16 c8 8e 20 57 | 69 6e 64 6f 77 48 61 6e |...... W|indowHan|
|00003b30| 64 6c 65 25 20 ca 0d 19 | 00 0b c9 20 6d 61 69 6e |dle% ...|... main|
|00003b40| 3a 0d 19 0a 18 20 20 20 | 21 71 25 3d 57 69 6e 64 |:.... |!q%=Wind|
|00003b50| 6f 77 48 61 6e 64 6c 65 | 25 0d 19 14 20 20 20 20 |owHandle|%... |
|00003b60| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|00003b70| 6e 64 6f 77 22 2c 2c 71 | 25 0d 19 1e 04 0d 19 28 |ndow",,q|%......(|
|00003b80| 05 cb 0d 19 32 04 0d 19 | 3c 05 e1 0d 19 46 04 0d |....2...|<....F..|
|00003b90| 19 50 10 dd 20 f2 43 6f | 6e 73 74 61 6e 74 73 0d |.P.. .Co|nstants.|
|00003ba0| 19 5a 1f f4 20 50 72 65 | 64 65 66 69 6e 65 64 20 |.Z.. Pre|defined |
|00003bb0| 57 69 6e 64 6f 77 20 48 | 61 6e 64 6c 65 73 0d 19 |Window H|andles..|
|00003bc0| 64 17 49 63 6f 6e 42 61 | 72 20 20 20 20 20 20 20 |d.IconBa|r |
|00003bd0| 20 3d 20 2d 31 0d 19 6e | 17 49 63 6f 6e 42 61 72 | = -1..n|.IconBar|
|00003be0| 57 69 6e 64 6f 77 20 20 | 3d 20 2d 32 0d 19 78 04 |Window |= -2..x.|
|00003bf0| 0d 19 82 1d f4 20 50 72 | 65 64 65 66 69 6e 65 64 |..... Pr|edefined|
|00003c00| 20 49 63 6f 6e 20 48 61 | 6e 64 6c 65 73 0d 19 8c | Icon Ha|ndles...|
|00003c10| 17 57 6f 72 6b 41 72 65 | 61 20 20 20 20 20 20 20 |.WorkAre|a |
|00003c20| 3d 20 2d 31 0d 19 96 17 | 42 61 63 6b 49 63 6f 6e |= -1....|BackIcon|
|00003c30| 20 20 20 20 20 20 20 3d | 20 2d 32 0d 19 a0 17 43 | =| -2....C|
|00003c40| 6c 6f 73 65 49 63 6f 6e | 20 20 20 20 20 20 3d 20 |loseIcon| = |
|00003c50| 2d 33 0d 19 aa 17 54 69 | 74 6c 65 42 61 72 20 20 |-3....Ti|tleBar |
|00003c60| 20 20 20 20 20 3d 20 2d | 34 0d 19 b4 17 54 6f 67 | = -|4....Tog|
|00003c70| 67 6c 65 53 69 7a 65 49 | 63 6f 6e 20 3d 20 2d 35 |gleSizeI|con = -5|
|00003c80| 0d 19 be 17 53 63 72 6f | 6c 6c 55 70 20 20 20 20 |....Scro|llUp |
|00003c90| 20 20 20 3d 20 2d 36 0d | 19 c8 17 56 65 72 74 69 | = -6.|...Verti|
|00003ca0| 63 61 6c 53 6c 69 64 65 | 72 20 3d 20 2d 37 0d 19 |calSlide|r = -7..|
|00003cb0| d2 17 53 63 72 6f 6c 6c | 44 6f 77 6e 20 20 20 20 |..Scroll|Down |
|00003cc0| 20 3d 20 2d 38 0d 19 dc | 17 41 64 6a 75 73 74 53 | = -8...|.AdjustS|
|00003cd0| 69 7a 65 20 20 20 20 20 | 3d 20 2d 39 0d 19 e6 18 |ize |= -9....|
|00003ce0| 53 63 72 6f 6c 6c 4c 65 | 66 74 20 20 20 20 20 3d |ScrollLe|ft =|
|00003cf0| 20 2d 31 30 0d 19 f0 19 | 48 6f 72 69 7a 6f 6e 74 | -10....|Horizont|
|00003d00| 61 6c 53 6c 69 64 65 72 | 3d 20 2d 31 31 0d 19 fa |alSlider|= -11...|
|00003d10| 18 53 63 72 6f 6c 6c 52 | 69 67 68 74 20 20 20 20 |.ScrollR|ight |
|00003d20| 3d 20 2d 31 32 0d 1a 04 | 04 0d 1a 0e 1b 41 64 6a |= -12...|.....Adj|
|00003d30| 75 73 74 20 20 20 20 20 | 20 20 20 20 3d 20 31 20 |ust | = 1 |
|00003d40| 3c 3c 20 30 0d 1a 18 1b | 4d 65 6e 75 20 20 20 20 |<< 0....|Menu |
|00003d50| 20 20 20 20 20 20 20 3d | 20 31 20 3c 3c 20 31 0d | =| 1 << 1.|
|00003d60| 1a 22 1b 53 65 6c 65 63 | 74 20 20 20 20 20 20 20 |.".Selec|t |
|00003d70| 20 20 3d 20 31 20 3c 3c | 20 32 0d 1a 2c 1b 41 64 | = 1 <<| 2..,.Ad|
|00003d80| 6a 75 73 74 44 72 61 67 | 20 20 20 20 20 3d 20 31 |justDrag| = 1|
|00003d90| 20 3c 3c 20 34 0d 1a 36 | 1b 53 65 6c 65 63 74 44 | << 4..6|.SelectD|
|00003da0| 72 61 67 20 20 20 20 20 | 3d 20 31 20 3c 3c 20 36 |rag |= 1 << 6|
|00003db0| 0d 1a 40 04 0d 1a 4a 1b | 4d 65 73 73 61 67 65 5f |..@...J.|Message_|
|00003dc0| 51 75 69 74 20 20 20 20 | 20 20 20 20 3d 20 30 0d |Quit | = 0.|
|00003dd0| 1a 54 1b 4d 65 73 73 61 | 67 65 5f 44 61 74 61 53 |.T.Messa|ge_DataS|
|00003de0| 61 76 65 20 20 20 20 3d | 20 31 0d 1a 5e 1b 4d 65 |ave =| 1..^.Me|
|00003df0| 73 73 61 67 65 5f 44 61 | 74 61 53 61 76 65 41 63 |ssage_Da|taSaveAc|
|00003e00| 6b 20 3d 20 32 0d 1a 68 | 1b 4d 65 73 73 61 67 65 |k = 2..h|.Message|
|00003e10| 5f 44 61 74 61 4c 6f 61 | 64 20 20 20 20 3d 20 33 |_DataLoa|d = 3|
|00003e20| 0d 1a 72 1b 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |..r.Mess|age_Data|
|00003e30| 4c 6f 61 64 41 63 6b 20 | 3d 20 34 0d 1a 7c 1b 4d |LoadAck |= 4..|.M|
|00003e40| 65 73 73 61 67 65 5f 44 | 61 74 61 4f 70 65 6e 20 |essage_D|ataOpen |
|00003e50| 20 20 20 3d 20 35 0d 1a | 86 23 4d 65 73 73 61 67 | = 5..|.#Messag|
|00003e60| 65 5f 54 61 73 6b 49 6e | 69 74 69 61 6c 69 73 65 |e_TaskIn|itialise|
|00003e70| 20 3d 20 26 34 30 30 43 | 32 0d 1a 90 04 0d 1a 9a | = &400C|2.......|
|00003e80| 20 55 73 65 72 5f 44 72 | 61 67 5f 42 6f 78 20 20 | User_Dr|ag_Box |
|00003e90| 20 20 20 20 20 20 20 20 | 20 20 3d 20 37 0d 1a a4 | | = 7...|
|00003ea0| 21 55 73 65 72 5f 4d 65 | 73 73 61 67 65 20 20 20 |!User_Me|ssage |
|00003eb0| 20 20 20 20 20 20 20 20 | 20 20 3d 20 31 37 0d 1a | | = 17..|
|00003ec0| ae 21 55 73 65 72 5f 4d | 65 73 73 61 67 65 5f 52 |.!User_M|essage_R|
|00003ed0| 65 63 6f 72 64 65 64 20 | 20 20 20 3d 20 31 38 0d |ecorded | = 18.|
|00003ee0| 1a b8 21 55 73 65 72 5f | 4d 65 73 73 61 67 65 5f |..!User_|Message_|
|00003ef0| 41 63 6b 6e 6f 77 6c 65 | 64 67 65 20 3d 20 31 39 |Acknowle|dge = 19|
|00003f00| 0d 1a c2 04 0d 1a cc 10 | f4 20 49 63 6f 6e 20 6e |........|. Icon n|
|00003f10| 61 6d 65 73 0d 1a d6 16 | 4e 6f 74 55 73 65 64 20 |ames....|NotUsed |
|00003f20| 20 20 20 20 20 20 20 3d | 20 30 0d 1a e0 04 0d 1a | =| 0......|
|00003f30| ea 16 56 65 72 73 69 6f | 6e 20 20 20 20 20 20 20 |..Versio|n |
|00003f40| 20 3d 20 31 0d 1a f4 29 | f2 44 65 63 6c 61 72 65 | = 1...)|.Declare|
|00003f50| 57 69 6d 70 4d 69 6e 65 | 28 20 69 6e 66 6f 2c 20 |WimpMine|( info, |
|00003f60| 31 35 2c 20 56 65 72 73 | 69 6f 6e 20 29 0d 1a fe |15, Vers|ion )...|
|00003f70| 04 0d 1b 08 16 50 72 69 | 6e 74 4f 70 74 69 6f 6e |.....Pri|ntOption|
|00003f80| 20 20 20 20 3d 20 31 0d | 1b 12 16 55 73 65 4d 6f | = 1.|...UseMo|
|00003f90| 6e 74 68 4f 70 74 69 6f | 6e 20 3d 20 32 0d 1b 1c |nthOptio|n = 2...|
|00003fa0| 16 50 61 75 73 65 4f 70 | 74 69 6f 6e 20 20 20 20 |.PauseOp|tion |
|00003fb0| 3d 20 33 0d 1b 26 16 4b | 65 65 70 4f 70 74 69 6f |= 3..&.K|eepOptio|
|00003fc0| 6e 20 20 20 20 20 3d 20 | 34 0d 1b 30 16 59 65 61 |n = |4..0.Yea|
|00003fd0| 72 49 63 6f 6e 20 20 20 | 20 20 20 20 3d 20 35 0d |rIcon | = 5.|
|00003fe0| 1b 3a 16 53 74 61 72 74 | 4d 6f 6e 74 68 20 20 20 |.:.Start|Month |
|00003ff0| 20 20 3d 20 36 0d 1b 44 | 16 45 6e 64 4d 6f 6e 74 | = 6..D|.EndMont|
|00004000| 68 20 20 20 20 20 20 20 | 3d 20 37 0d 1b 4e 16 43 |h |= 7..N.C|
|00004010| 72 65 61 74 65 49 63 6f | 6e 20 20 20 20 20 3d 20 |reateIco|n = |
|00004020| 38 0d 1b 58 16 53 74 61 | 72 74 55 70 49 63 6f 6e |8..X.Sta|rtUpIcon|
|00004030| 20 20 20 20 3d 20 39 0d | 1b 62 17 53 74 61 72 74 | = 9.|.b.Start|
|00004040| 44 6f 77 6e 49 63 6f 6e | 20 20 3d 20 31 30 0d 1b |DownIcon| = 10..|
|00004050| 6c 17 45 6e 64 55 70 49 | 63 6f 6e 20 20 20 20 20 |l.EndUpI|con |
|00004060| 20 3d 20 31 31 0d 1b 76 | 17 45 6e 64 44 6f 77 6e | = 11..v|.EndDown|
|00004070| 49 63 6f 6e 20 20 20 20 | 3d 20 31 32 0d 1b 80 17 |Icon |= 12....|
|00004080| 59 65 61 72 55 70 49 63 | 6f 6e 20 20 20 20 20 3d |YearUpIc|on =|
|00004090| 20 31 33 0d 1b 8a 17 59 | 65 61 72 44 6f 77 6e 49 | 13....Y|earDownI|
|000040a0| 63 6f 6e 20 20 20 3d 20 | 31 34 0d 1b 94 17 44 69 |con = |14....Di|
|000040b0| 72 65 63 74 6f 72 79 49 | 63 6f 6e 20 20 3d 20 31 |rectoryI|con = 1|
|000040c0| 35 0d 1b 9e 17 43 61 6e | 63 65 6c 49 63 6f 6e 20 |5....Can|celIcon |
|000040d0| 20 20 20 20 3d 20 31 36 | 0d 1b a8 17 4c 6f 61 64 | = 16|....Load|
|000040e0| 65 64 49 63 6f 6e 20 20 | 20 20 20 3d 20 31 37 0d |edIcon | = 17.|
|000040f0| 1b b2 04 0d 1b bc 2a f2 | 44 65 63 6c 61 72 65 57 |......*.|DeclareW|
|00004100| 69 6d 70 4d 69 6e 65 28 | 20 6d 61 69 6e 2c 20 32 |impMine(| main, 2|
|00004110| 2c 20 20 59 65 61 72 49 | 63 6f 6e 20 29 0d 1b c6 |, YearI|con )...|
|00004120| 2c f2 44 65 63 6c 61 72 | 65 57 69 6d 70 4d 69 6e |,.Declar|eWimpMin|
|00004130| 65 28 20 6d 61 69 6e 2c | 20 33 2c 20 20 53 74 61 |e( main,| 3, Sta|
|00004140| 72 74 4d 6f 6e 74 68 20 | 29 0d 1b d0 2a f2 44 65 |rtMonth |)...*.De|
|00004150| 63 6c 61 72 65 57 69 6d | 70 4d 69 6e 65 28 20 6d |clareWim|pMine( m|
|00004160| 61 69 6e 2c 20 34 2c 20 | 20 45 6e 64 4d 6f 6e 74 |ain, 4, | EndMont|
|00004170| 68 20 29 0d 1b da 2c f2 | 44 65 63 6c 61 72 65 57 |h )...,.|DeclareW|
|00004180| 69 6d 70 4d 69 6e 65 28 | 20 6d 61 69 6e 2c 20 38 |impMine(| main, 8|
|00004190| 2c 20 20 43 72 65 61 74 | 65 49 63 6f 6e 20 29 0d |, Creat|eIcon ).|
|000041a0| 1b e4 2d f2 44 65 63 6c | 61 72 65 57 69 6d 70 4d |..-.Decl|areWimpM|
|000041b0| 69 6e 65 28 20 6d 61 69 | 6e 2c 20 31 31 2c 20 53 |ine( mai|n, 11, S|
|000041c0| 74 61 72 74 55 70 49 63 | 6f 6e 20 29 0d 1b ee 2f |tartUpIc|on ).../|
|000041d0| f2 44 65 63 6c 61 72 65 | 57 69 6d 70 4d 69 6e 65 |.Declare|WimpMine|
|000041e0| 28 20 6d 61 69 6e 2c 20 | 31 32 2c 20 53 74 61 72 |( main, |12, Star|
|000041f0| 74 44 6f 77 6e 49 63 6f | 6e 20 29 0d 1b f8 2b f2 |tDownIco|n )...+.|
|00004200| 44 65 63 6c 61 72 65 57 | 69 6d 70 4d 69 6e 65 28 |DeclareW|impMine(|
|00004210| 20 6d 61 69 6e 2c 20 31 | 33 2c 20 45 6e 64 55 70 | main, 1|3, EndUp|
|00004220| 49 63 6f 6e 20 29 0d 1c | 02 2d f2 44 65 63 6c 61 |Icon )..|.-.Decla|
|00004230| 72 65 57 69 6d 70 4d 69 | 6e 65 28 20 6d 61 69 6e |reWimpMi|ne( main|
|00004240| 2c 20 31 34 2c 20 45 6e | 64 44 6f 77 6e 49 63 6f |, 14, En|dDownIco|
|00004250| 6e 20 29 0d 1c 0c 2c f2 | 44 65 63 6c 61 72 65 57 |n )...,.|DeclareW|
|00004260| 69 6d 70 4d 69 6e 65 28 | 20 6d 61 69 6e 2c 20 31 |impMine(| main, 1|
|00004270| 35 2c 20 59 65 61 72 55 | 70 49 63 6f 6e 20 29 0d |5, YearU|pIcon ).|
|00004280| 1c 16 2e f2 44 65 63 6c | 61 72 65 57 69 6d 70 4d |....Decl|areWimpM|
|00004290| 69 6e 65 28 20 6d 61 69 | 6e 2c 20 31 36 2c 20 59 |ine( mai|n, 16, Y|
|000042a0| 65 61 72 44 6f 77 6e 49 | 63 6f 6e 20 29 0d 1c 20 |earDownI|con ).. |
|000042b0| 2e f2 44 65 63 6c 61 72 | 65 57 69 6d 70 4d 69 6e |..Declar|eWimpMin|
|000042c0| 65 28 20 6d 61 69 6e 2c | 20 39 2c 20 44 69 72 65 |e( main,| 9, Dire|
|000042d0| 63 74 6f 72 79 49 63 6f | 6e 20 29 0d 1c 2a 2c f2 |ctoryIco|n )..*,.|
|000042e0| 44 65 63 6c 61 72 65 57 | 69 6d 70 4d 69 6e 65 28 |DeclareW|impMine(|
|000042f0| 20 6d 61 69 6e 2c 20 31 | 2c 20 20 43 61 6e 63 65 | main, 1|, Cance|
|00004300| 6c 49 63 6f 6e 20 29 0d | 1c 34 2c f2 44 65 63 6c |lIcon ).|.4,.Decl|
|00004310| 61 72 65 57 69 6d 70 4d | 69 6e 65 28 20 6d 61 69 |areWimpM|ine( mai|
|00004320| 6e 2c 20 33 35 2c 20 4c | 6f 61 64 65 64 49 63 6f |n, 35, L|oadedIco|
|00004330| 6e 20 29 0d 1c 3e 2d f2 | 44 65 63 6c 61 72 65 57 |n )..>-.|DeclareW|
|00004340| 69 6d 70 4d 69 6e 65 28 | 20 6d 61 69 6e 2c 20 33 |impMine(| main, 3|
|00004350| 37 2c 20 50 72 69 6e 74 | 4f 70 74 69 6f 6e 20 29 |7, Print|Option )|
|00004360| 0d 1c 48 30 f2 44 65 63 | 6c 61 72 65 57 69 6d 70 |..H0.Dec|lareWimp|
|00004370| 4d 69 6e 65 28 20 6d 61 | 69 6e 2c 20 33 38 2c 20 |Mine( ma|in, 38, |
|00004380| 55 73 65 4d 6f 6e 74 68 | 4f 70 74 69 6f 6e 20 29 |UseMonth|Option )|
|00004390| 0d 1c 52 2c f2 44 65 63 | 6c 61 72 65 57 69 6d 70 |..R,.Dec|lareWimp|
|000043a0| 4d 69 6e 65 28 20 6d 61 | 69 6e 2c 20 33 39 2c 20 |Mine( ma|in, 39, |
|000043b0| 4b 65 65 70 4f 70 74 69 | 6f 6e 20 29 0d 1c 5c 2d |KeepOpti|on )..\-|
|000043c0| f2 44 65 63 6c 61 72 65 | 57 69 6d 70 4d 69 6e 65 |.Declare|WimpMine|
|000043d0| 28 20 6d 61 69 6e 2c 20 | 34 34 2c 20 50 61 75 73 |( main, |44, Paus|
|000043e0| 65 4f 70 74 69 6f 6e 20 | 29 0d 1c 66 04 0d 1c 70 |eOption |)..f...p|
|000043f0| 0f 51 75 6f 74 65 24 3d | 22 22 22 22 0d 1c 7a 05 |.Quote$=|""""..z.|
|00004400| e1 0d 1c 84 04 0d 1c 8e | 0c dd 20 f2 65 72 72 6f |........|.. .erro|
|00004410| 72 0d 1c 98 0c ea 20 52 | 65 70 6c 79 25 0d 1c a2 |r..... R|eply%...|
|00004420| 19 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|00004430| 78 22 2c 2c 2d 31 0d 1c | ac 09 21 71 25 3d 9f 0d |x",,-1..|..!q%=..|
|00004440| 1c b6 42 24 28 71 25 2b | 34 29 3d f6 24 2b 22 20 |..B$(q%+|4)=.$+" |
|00004450| 61 74 20 6c 69 6e 65 20 | 22 2b c3 9e 2b 22 20 4f |at line |"+..+" O|
|00004460| 4b 20 74 6f 20 43 6f 6e | 74 69 6e 75 65 2c 20 43 |K to Con|tinue, C|
|00004470| 61 6e 63 65 6c 20 74 6f | 20 51 75 69 74 22 2b bd |ancel to| Quit"+.|
|00004480| 30 0d 1c c0 31 c8 99 20 | 22 57 69 6d 70 5f 52 65 |0...1.. |"Wimp_Re|
|00004490| 70 6f 72 74 45 72 72 6f | 72 22 2c 71 25 2c 25 31 |portErro|r",q%,%1|
|000044a0| 31 2c 54 69 74 6c 65 24 | 20 b8 20 2c 52 65 70 6c |1,Title$| . ,Repl|
|000044b0| 79 25 0d 1c ca 10 e7 20 | 52 65 70 6c 79 25 3d 32 |y%..... |Reply%=2|
|000044c0| 20 8c 0d 1c d4 11 20 20 | 20 f2 43 6c 6f 73 65 44 | ..... | .CloseD|
|000044d0| 6f 77 6e 0d 1c de 08 20 | 20 20 e0 0d 1c e8 05 cd |own.... | ......|
|000044e0| 0d 1c f2 05 e1 0d 1c fc | 04 0d 1d 06 12 dd 20 f2 |........|...... .|
|000044f0| 45 72 72 6f 72 28 20 45 | 24 20 29 0d 1d 10 0e 24 |Error( E|$ )....$|
|00004500| 28 71 25 2b 34 29 3d 45 | 24 0d 1d 1a 09 21 71 25 |(q%+4)=E|$....!q%|
|00004510| 3d 30 0d 1d 24 25 c8 99 | 20 22 57 69 6d 70 5f 52 |=0..$%..| "Wimp_R|
|00004520| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 71 25 2c 31 |eportErr|or",q%,1|
|00004530| 2c 54 69 74 6c 65 24 0d | 1d 2e 05 e1 0d 1d 38 04 |,Title$.|......8.|
|00004540| 0d 1d 42 10 dd 20 f2 43 | 6c 6f 73 65 44 6f 77 6e |..B.. .C|loseDown|
|00004550| 0d 1d 4c 26 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |..L&.. "|Wimp_Clo|
|00004560| 73 65 44 6f 77 6e 22 2c | 74 61 73 6b 25 2c 21 54 |seDown",|task%,!T|
|00004570| 61 73 6b 49 64 25 0d 1d | 56 20 c8 99 20 22 49 6d |askId%..|V .. "Im|
|00004580| 70 75 6c 73 65 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |pulse_Cl|oseDown"|
|00004590| 2c 74 61 73 6b 25 0d 1d | 60 05 e1 0d 1d 6a 04 0d |,task%..|`....j..|
|000045a0| 1d 74 11 dd f2 67 65 74 | 6d 6f 64 65 69 6e 66 6f |.t...get|modeinfo|
|000045b0| 0d 1d 7e 17 de 20 69 6e | 76 25 20 32 38 2c 20 6f |..~.. in|v% 28, o|
|000045c0| 75 74 76 25 20 32 38 0d | 1d 88 31 69 6e 76 25 21 |utv% 28.|..1inv%!|
|000045d0| 30 3d 34 20 20 20 20 20 | 20 20 3a f4 20 68 6f 72 |0=4 | :. hor|
|000045e0| 69 7a 6f 6e 74 61 6c 20 | 70 69 78 65 6c 20 72 65 |izontal |pixel re|
|000045f0| 73 6f 6c 75 74 69 6f 6e | 0d 1d 92 2c 69 6e 76 25 |solution|...,inv%|
|00004600| 21 34 3d 35 20 20 20 20 | 20 20 20 3a f4 20 76 65 |!4=5 | :. ve|
|00004610| 72 74 69 63 61 6c 20 20 | 20 20 20 22 20 20 20 20 |rtical | " |
|00004620| 20 20 20 22 0d 1d 9c 32 | 69 6e 76 25 21 38 3d 36 | "...2|inv%!8=6|
|00004630| 20 20 20 20 20 20 20 3a | f4 20 6e 75 6d 62 65 72 | :|. number|
|00004640| 20 6f 66 20 62 79 74 65 | 73 20 6f 6e 20 70 69 78 | of byte|s on pix|
|00004650| 65 6c 20 72 6f 77 0d 1d | a6 40 69 6e 76 25 21 31 |el row..|.@inv%!1|
|00004660| 32 3d 37 20 20 20 20 20 | 20 3a f4 20 6e 75 6d 62 |2=7 | :. numb|
|00004670| 65 72 20 6f 66 20 62 79 | 74 65 73 20 6f 6e 65 20 |er of by|tes one |
|00004680| 73 63 72 65 65 6e 20 62 | 75 66 66 65 72 20 6f 63 |screen b|uffer oc|
|00004690| 63 75 70 69 65 73 0d 1d | b0 17 69 6e 76 25 21 31 |cupies..|..inv%!1|
|000046a0| 36 3d 31 31 20 20 20 20 | 20 3a f4 20 3f 0d 1d ba |6=11 | :. ?...|
|000046b0| 17 69 6e 76 25 21 32 30 | 3d 31 32 20 20 20 20 20 |.inv%!20|=12 |
|000046c0| 3a f4 20 3f 0d 1d c4 0e | 69 6e 76 25 21 32 34 3d |:. ?....|inv%!24=|
|000046d0| 2d 31 0d 1d ce 26 c8 99 | 22 4f 53 5f 52 65 61 64 |-1...&..|"OS_Read|
|000046e0| 56 64 75 56 61 72 69 61 | 62 6c 65 73 22 2c 69 6e |VduVaria|bles",in|
|000046f0| 76 25 2c 6f 75 74 76 25 | 0d 1d d8 14 64 78 25 3d |v%,outv%|....dx%=|
|00004700| 31 3c 3c 28 6f 75 74 76 | 25 21 30 29 0d 1d e2 14 |1<<(outv|%!0)....|
|00004710| 64 79 25 3d 31 3c 3c 28 | 6f 75 74 76 25 21 34 29 |dy%=1<<(|outv%!4)|
|00004720| 0d 1d ec 17 63 78 25 3d | 64 78 25 2a 38 3a 63 79 |....cx%=|dx%*8:cy|
|00004730| 25 3d 64 79 25 2a 38 0d | 1d f6 11 79 6f 25 3d 63 |%=dy%*8.|...yo%=c|
|00004740| 79 25 2b 63 79 25 2f 38 | 0d 1e 00 14 6c 69 6e 65 |y%+cy%/8|....line|
|00004750| 6c 65 6e 25 3d 6f 75 74 | 76 25 21 38 0d 1e 0a 18 |len%=out|v%!8....|
|00004760| 73 63 72 65 65 6e 73 69 | 7a 65 25 3d 6f 75 74 76 |screensi|ze%=outv|
|00004770| 25 21 31 32 0d 1e 14 1b | 73 63 72 78 31 25 3d 28 |%!12....|scrx1%=(|
|00004780| 6f 75 74 76 25 21 31 36 | 2b 31 29 2a 64 78 25 0d |outv%!16|+1)*dx%.|
|00004790| 1e 1e 1b 73 63 72 79 31 | 25 3d 28 6f 75 74 76 25 |...scry1|%=(outv%|
|000047a0| 21 32 30 2b 31 29 2a 64 | 79 25 0d 1e 28 05 e1 0d |!20+1)*d|y%..(...|
|000047b0| 1e 32 04 0d 1e 3c 39 dd | 20 f2 4c 6f 61 64 57 69 |.2...<9.| .LoadWi|
|000047c0| 6e 64 6f 77 44 65 66 69 | 6e 69 74 69 6f 6e 28 20 |ndowDefi|nition( |
|000047d0| f8 20 48 61 6e 64 6c 65 | 25 2c 20 4e 61 6d 65 24 |. Handle|%, Name$|
|000047e0| 2c 20 49 63 6f 6e 73 49 | 6e 25 20 29 0d 1e 46 11 |, IconsI|n% )..F.|
|000047f0| ea 20 53 69 7a 65 25 2c | 4e 61 6d 65 25 0d 1e 50 |. Size%,|Name%..P|
|00004800| 1b 53 69 7a 65 25 20 3d | 20 49 63 6f 6e 73 49 6e |.Size% =| IconsIn|
|00004810| 25 2a 33 32 2b 31 30 30 | 0d 1e 5a 11 de 20 57 6f |%*32+100|..Z.. Wo|
|00004820| 72 6b 25 20 53 69 7a 65 | 25 0d 1e 64 0e de 20 4e |rk% Size|%..d.. N|
|00004830| 61 6d 65 25 20 31 32 0d | 1e 6e 12 24 4e 61 6d 65 |ame% 12.|.n.$Name|
|00004840| 25 20 3d 20 4e 61 6d 65 | 24 0d 1e 78 3b c8 99 20 |% = Name|$..x;.. |
|00004850| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00004860| 74 65 22 2c 2c 71 25 2c | 57 6f 72 6b 25 2c 57 6f |te",,q%,|Work%,Wo|
|00004870| 72 6b 25 2b 53 69 7a 65 | 25 2c 2d 31 2c 4e 61 6d |rk%+Size|%,-1,Nam|
|00004880| 65 25 2c 30 0d 1e 82 28 | c8 99 20 22 57 69 6d 70 |e%,0...(|.. "Wimp|
|00004890| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000048a0| 71 25 20 b8 20 48 61 6e | 64 6c 65 25 0d 1e 8c 05 |q% . Han|dle%....|
|000048b0| e1 0d 1e 96 04 0d 1e a0 | 11 dd 20 f2 53 74 61 72 |........|.. .Star|
|000048c0| 74 4d 65 72 67 65 0d 1e | aa 14 ea 20 59 65 61 72 |tMerge..|... Year|
|000048d0| 25 2c 59 25 2c 57 25 2c | 44 25 0d 1e b4 34 46 75 |%,Y%,W%,|D%...4Fu|
|000048e0| 6c 6c 54 65 6d 70 6c 61 | 74 65 24 20 3d 20 a4 47 |llTempla|te$ = .G|
|000048f0| 65 74 49 63 6f 6e 54 65 | 78 74 28 20 6d 61 69 6e |etIconTe|xt( main|
|00004900| 2c 20 4c 6f 61 64 65 64 | 49 63 6f 6e 20 29 0d 1e |, Loaded|Icon )..|
|00004910| be 37 e7 20 a4 49 6d 70 | 72 65 73 73 69 6f 6e 44 |.7. .Imp|ressionD|
|00004920| 6f 63 75 6d 65 6e 74 28 | 20 46 75 6c 6c 54 65 6d |ocument(| FullTem|
|00004930| 70 6c 61 74 65 24 2c 20 | 54 65 6d 70 6c 61 74 65 |plate$, |Template|
|00004940| 24 20 29 20 8c 0d 1e c8 | 1a 20 20 20 45 6e 64 4d |$ ) ....|. EndM|
|00004950| 6f 6e 74 68 50 61 73 73 | 65 64 25 20 3d 20 a3 0d |onthPass|ed% = ..|
|00004960| 1e d2 29 20 20 20 43 75 | 72 72 65 6e 74 4d 6f 6e |..) Cu|rrentMon|
|00004970| 74 68 25 20 3d 20 43 75 | 72 72 65 6e 74 53 74 61 |th% = Cu|rrentSta|
|00004980| 72 74 4d 6f 6e 74 68 25 | 0d 1e dc 2e 20 20 20 59 |rtMonth%|.... Y|
|00004990| 65 61 72 25 20 3d 20 bb | a4 47 65 74 49 63 6f 6e |ear% = .|.GetIcon|
|000049a0| 54 65 78 74 28 20 6d 61 | 69 6e 2c 20 59 65 61 72 |Text( ma|in, Year|
|000049b0| 49 63 6f 6e 20 29 0d 1e | e6 17 20 20 20 44 61 79 |Icon )..|.. Day|
|000049c0| 4f 66 57 65 65 6b 25 28 | 29 20 3d 20 30 0d 1e f0 |OfWeek%(|) = 0...|
|000049d0| 17 20 20 20 43 61 6c 65 | 6e 64 61 72 24 28 29 20 |. Cale|ndar$() |
|000049e0| 3d 20 22 22 0d 1e fa 1d | 20 20 20 f2 4d 61 6b 65 |= ""....| .Make|
|000049f0| 43 61 6c 65 6e 64 61 72 | 28 20 59 65 61 72 25 20 |Calendar|( Year% |
|00004a00| 29 0d 1f 04 34 20 20 20 | f2 53 65 6e 64 43 6f 6d |)...4 |.SendCom|
|00004a10| 6d 61 6e 64 28 20 50 72 | 65 66 69 78 24 2b 54 65 |mand( Pr|efix$+Te|
|00004a20| 6d 70 6c 61 74 65 24 2b | 22 20 45 64 69 74 20 4f |mplate$+|" Edit O|
|00004a30| 66 66 22 20 29 0d 1f 0e | 17 20 20 20 f2 45 6e 74 |ff" )...|. .Ent|
|00004a40| 65 72 4d 65 72 67 65 53 | 74 61 74 65 0d 1f 18 05 |erMergeS|tate....|
|00004a50| cd 0d 1f 22 05 e1 0d 1f | 2c 04 0d 1f 36 1c dd 20 |..."....|,...6.. |
|00004a60| a4 54 68 69 73 59 65 61 | 72 20 3d 20 bb c1 91 24 |.ThisYea|r = ...$|
|00004a70| 2c 31 32 2c 34 29 0d 1f | 40 04 0d 1f 4a 1c dd 20 |,12,4)..|@...J.. |
|00004a80| f2 4d 61 6b 65 43 61 6c | 65 6e 64 61 72 28 20 59 |.MakeCal|endar( Y|
|00004a90| 65 61 72 25 20 29 0d 1f | 54 2b ea 20 50 6f 73 69 |ear% )..|T+. Posi|
|00004aa0| 74 69 6f 6e 25 2c 53 74 | 61 72 74 44 61 79 25 2c |tion%,St|artDay%,|
|00004ab0| 4d 6f 6e 74 68 25 2c 44 | 61 79 25 2c 57 65 65 6b |Month%,D|ay%,Week|
|00004ac0| 25 0d 1f 5e 29 53 74 61 | 72 74 44 61 79 25 3d a4 |%..^)Sta|rtDay%=.|
|00004ad0| 5a 65 6c 6c 65 72 73 43 | 6f 6e 67 72 75 65 6e 63 |ZellersC|ongruenc|
|00004ae0| 65 28 20 59 65 61 72 25 | 20 29 0d 1f 68 15 e3 20 |e( Year%| )..h.. |
|00004af0| 4d 6f 6e 74 68 25 20 3d | 20 31 20 b8 20 31 32 0d |Month% =| 1 . 12.|
|00004b00| 1f 72 14 20 20 20 50 6f | 73 69 74 69 6f 6e 25 20 |.r. Po|sition% |
|00004b10| 3d 20 30 0d 1f 7c 17 20 | 20 20 c8 95 20 53 74 61 |= 0..|. | .. Sta|
|00004b20| 72 74 44 61 79 25 20 3e | 20 30 0d 1f 86 16 20 20 |rtDay% >| 0.... |
|00004b30| 20 20 20 20 50 6f 73 69 | 74 69 6f 6e 25 2b 3d 31 | Posi|tion%+=1|
|00004b40| 0d 1f 90 16 20 20 20 20 | 20 20 53 74 61 72 74 44 |.... | StartD|
|00004b50| 61 79 25 2d 3d 31 0d 1f | 9a 08 20 20 20 ce 0d 1f |ay%-=1..|.. ...|
|00004b60| a4 0e 20 20 20 57 65 65 | 6b 25 3d 30 0d 1f ae 28 |.. Wee|k%=0...(|
|00004b70| 20 20 20 e3 20 44 61 79 | 25 20 3d 20 31 20 b8 20 | . Day|% = 1 . |
|00004b80| 44 61 79 73 49 6e 4d 6f | 6e 74 68 25 28 4d 6f 6e |DaysInMo|nth%(Mon|
|00004b90| 74 68 25 29 0d 1f b8 38 | 20 20 20 20 20 20 43 61 |th%)...8| Ca|
|00004ba0| 6c 65 6e 64 61 72 24 28 | 20 4d 6f 6e 74 68 25 2d |lendar$(| Month%-|
|00004bb0| 31 2c 20 57 65 65 6b 25 | 2c 20 50 6f 73 69 74 69 |1, Week%|, Positi|
|00004bc0| 6f 6e 25 29 20 3d 20 c3 | 44 61 79 25 0d 1f c2 36 |on%) = .|Day%...6|
|00004bd0| 20 20 20 20 20 20 44 61 | 79 4f 66 57 65 65 6b 25 | Da|yOfWeek%|
|00004be0| 28 20 4d 6f 6e 74 68 25 | 2d 31 2c 20 44 61 79 25 |( Month%|-1, Day%|
|00004bf0| 2d 31 20 29 20 3d 20 50 | 6f 73 69 74 69 6f 6e 25 |-1 ) = P|osition%|
|00004c00| 2b 31 0d 1f cc 1b 20 20 | 20 20 20 20 e7 20 50 6f |+1.... | . Po|
|00004c10| 73 69 74 69 6f 6e 25 20 | 3d 20 36 20 8c 0d 1f d6 |sition% |= 6 ....|
|00004c20| 1b 20 20 20 20 20 20 20 | 20 20 50 6f 73 69 74 69 |. | Positi|
|00004c30| 6f 6e 25 20 3d 20 2d 31 | 0d 1f e0 15 20 20 20 20 |on% = -1|.... |
|00004c40| 20 20 20 20 20 57 65 65 | 6b 25 2b 3d 31 0d 1f ea | Wee|k%+=1...|
|00004c50| 0b 20 20 20 20 20 20 cd | 0d 1f f4 16 20 20 20 20 |. .|.... |
|00004c60| 20 20 50 6f 73 69 74 69 | 6f 6e 25 2b 3d 31 0d 1f | Positi|on%+=1..|
|00004c70| fe 08 20 20 20 ed 0d 20 | 08 20 20 20 20 53 74 61 |.. .. |. Sta|
|00004c80| 72 74 44 61 79 25 20 3d | 20 50 6f 73 69 74 69 6f |rtDay% =| Positio|
|00004c90| 6e 25 20 83 20 37 0d 20 | 12 05 ed 0d 20 1c 05 e1 |n% . 7. |.... ...|
|00004ca0| 0d 20 26 04 0d 20 30 20 | dd 20 a4 5a 65 6c 6c 65 |. &.. 0 |. .Zelle|
|00004cb0| 72 73 43 6f 6e 67 72 75 | 65 6e 63 65 28 20 59 65 |rsCongru|ence( Ye|
|00004cc0| 61 72 20 29 0d 20 3a 12 | ea 20 4c 65 61 70 2c 43 |ar ). :.|. Leap,C|
|00004cd0| 65 6e 74 75 72 79 0d 20 | 44 12 e7 20 59 65 61 72 |entury. |D.. Year|
|00004ce0| 20 3c 20 31 30 30 20 8c | 0d 20 4e 13 20 20 20 43 | < 100 .|. N. C|
|00004cf0| 65 6e 74 75 72 79 20 3d | 20 31 39 0d 20 58 05 cc |entury =| 19. X..|
|00004d00| 0d 20 62 1b 20 20 20 43 | 65 6e 74 75 72 79 20 3d |. b. C|entury =|
|00004d10| 20 59 65 61 72 20 81 20 | 31 30 30 0d 20 6c 05 cd | Year . |100. l..|
|00004d20| 0d 20 76 15 59 65 61 72 | 20 3d 20 59 65 61 72 20 |. v.Year| = Year |
|00004d30| 83 20 31 30 30 0d 20 80 | 3c e7 20 28 59 65 61 72 |. 100. .|<. (Year|
|00004d40| 20 83 20 34 20 3d 20 30 | 29 20 80 20 28 20 28 59 | . 4 = 0|) . ( (Y|
|00004d50| 65 61 72 20 3c 3e 20 30 | 29 20 84 20 28 43 65 6e |ear <> 0|) . (Cen|
|00004d60| 74 75 72 79 20 83 20 34 | 20 3d 20 30 29 20 29 20 |tury . 4| = 0) ) |
|00004d70| 8c 0d 20 8a 1b 20 20 20 | 44 61 79 73 49 6e 4d 6f |.. .. |DaysInMo|
|00004d80| 6e 74 68 25 28 32 29 20 | 3d 20 32 39 0d 20 94 05 |nth%(2) |= 29. ..|
|00004d90| cc 0d 20 9e 1b 20 20 20 | 44 61 79 73 49 6e 4d 6f |.. .. |DaysInMo|
|00004da0| 6e 74 68 25 28 32 29 20 | 3d 20 32 38 0d 20 a8 05 |nth%(2) |= 28. ..|
|00004db0| cd 0d 20 b2 0d 59 65 61 | 72 20 2d 3d 20 31 0d 20 |.. ..Yea|r -= 1. |
|00004dc0| bc 3f 3d 28 32 39 20 2b | 20 59 65 61 72 20 2b 20 |.?=(29 +| Year + |
|00004dd0| 28 59 65 61 72 20 81 20 | 34 29 20 2b 20 28 43 65 |(Year . |4) + (Ce|
|00004de0| 6e 74 75 72 79 20 81 20 | 34 29 20 2d 20 32 20 2a |ntury . |4) - 2 *|
|00004df0| 20 43 65 6e 74 75 72 79 | 29 20 83 20 37 0d 20 c6 | Century|) . 7. .|
|00004e00| 05 3a 0d 20 d0 16 dd 20 | a4 4c 65 61 66 4f 66 28 |.:. ... |.LeafOf(|
|00004e10| 20 46 69 6c 65 24 20 29 | 0d 20 da 12 c8 95 20 a7 | File$ )|. .... .|
|00004e20| 46 69 6c 65 24 2c 22 2e | 22 29 0d 20 e4 21 20 20 |File$,".|"). .! |
|00004e30| 46 69 6c 65 24 3d c1 46 | 69 6c 65 24 2c a7 46 69 |File$=.F|ile$,.Fi|
|00004e40| 6c 65 24 2c 22 2e 22 29 | 2b 31 29 0d 20 ee 05 ce |le$,".")|+1). ...|
|00004e50| 0d 20 f8 19 3d 20 a4 54 | 65 72 6d 69 6e 61 74 65 |. ..= .T|erminate|
|00004e60| 28 20 46 69 6c 65 24 20 | 29 0d 21 02 05 3a 0d 21 |( File$ |).!..:.!|
|00004e70| 0c 18 dd 20 a4 4c 65 6e | 67 74 68 4f 66 28 20 46 |... .Len|gthOf( F|
|00004e80| 69 6c 65 24 20 29 0d 21 | 16 0d ea 20 4c 65 6e 67 |ile$ ).!|... Leng|
|00004e90| 74 68 25 0d 21 20 26 c8 | 99 20 22 4f 53 5f 46 69 |th%.! &.|. "OS_Fi|
|00004ea0| 6c 65 22 2c 35 2c 46 69 | 6c 65 24 20 b8 20 2c 2c |le",5,Fi|le$ . ,,|
|00004eb0| 2c 2c 4c 65 6e 67 74 68 | 25 0d 21 2a 0d 3d 20 4c |,,Length|%.!*.= L|
|00004ec0| 65 6e 67 74 68 25 0d 21 | 34 05 3a 0d 21 3e 16 dd |ength%.!|4.:.!>..|
|00004ed0| 20 a4 54 65 72 6d 69 6e | 61 74 65 28 20 53 24 20 | .Termin|ate( S$ |
|00004ee0| 29 0d 21 48 08 ea 20 50 | 25 0d 21 52 08 50 25 3d |).!H.. P|%.!R.P%=|
|00004ef0| 31 0d 21 5c 14 c8 95 20 | c1 53 24 2c 50 25 2c 31 |1.!\... |.S$,P%,1|
|00004f00| 29 3e bd 33 32 0d 21 66 | 0c 20 20 20 50 25 2b 3d |)>.32.!f|. P%+=|
|00004f10| 31 0d 21 70 05 ce 0d 21 | 7a 0f 3d 20 c0 53 24 2c |1.!p...!|z.= .S$,|
|00004f20| 50 25 2d 31 29 0d 21 84 | 05 3a 0d 21 8e 1a dd 20 |P%-1).!.|.:.!... |
|00004f30| a4 4f 62 6a 65 63 74 54 | 79 70 65 28 20 46 69 6c |.ObjectT|ype( Fil|
|00004f40| 65 24 20 29 0d 21 98 0b | ea 20 54 79 70 65 25 0d |e$ ).!..|. Type%.|
|00004f50| 21 a2 21 c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |!.!.. "O|S_File",|
|00004f60| 31 35 2c 46 69 6c 65 24 | 20 b8 20 54 79 70 65 25 |15,File$| . Type%|
|00004f70| 0d 21 ac 0a 3d 54 79 70 | 65 25 0d 21 b6 04 0d 21 |.!..=Typ|e%.!...!|
|00004f80| c0 2b dd 20 a4 49 6d 70 | 72 65 73 73 69 6f 6e 44 |.+. .Imp|ressionD|
|00004f90| 6f 63 75 6d 65 6e 74 28 | 20 46 69 6c 65 24 2c 20 |ocument(| File$, |
|00004fa0| f8 20 4e 61 6d 65 24 20 | 29 0d 21 ca 22 f4 20 46 |. Name$ |).!.". F|
|00004fb0| 69 6c 65 24 20 3d 20 46 | 4e 54 65 72 6d 69 6e 61 |ile$ = F|NTermina|
|00004fc0| 74 65 28 20 46 69 6c 65 | 24 20 29 0d 21 d4 1d c8 |te( File|$ ).!...|
|00004fd0| 8e 20 a4 4f 62 6a 65 63 | 74 54 79 70 65 28 20 46 |. .Objec|tType( F|
|00004fe0| 69 6c 65 24 20 29 20 ca | 0d 21 de 08 c9 20 30 3a |ile$ ) .|.!... 0:|
|00004ff0| 0d 21 e8 28 20 20 20 f2 | 45 72 72 6f 72 28 20 46 |.!.( .|Error( F|
|00005000| 69 6c 65 24 2b 22 20 64 | 6f 65 73 20 6e 6f 74 20 |ile$+" d|oes not |
|00005010| 65 78 69 73 74 22 20 29 | 0d 21 f2 0a 20 20 20 3d |exist" )|.!.. =|
|00005020| 20 a3 0d 21 fc 04 0d 22 | 06 08 c9 20 31 3a 0d 22 | ..!..."|... 1:."|
|00005030| 10 37 20 20 20 f2 45 72 | 72 6f 72 28 20 46 69 6c |.7 .Er|ror( Fil|
|00005040| 65 24 2b 22 20 69 73 20 | 6e 6f 74 20 61 6e 20 49 |e$+" is |not an I|
|00005050| 6d 70 72 65 73 73 69 6f | 6e 20 64 6f 63 75 6d 65 |mpressio|n docume|
|00005060| 6e 74 22 20 29 0d 22 1a | 0a 20 20 20 3d 20 a3 0d |nt" ).".|. = ..|
|00005070| 22 24 04 0d 22 2e 08 c9 | 20 32 3a 0d 22 38 30 20 |"$.."...| 2:."80 |
|00005080| 20 20 e7 20 a4 4f 62 6a | 65 63 74 54 79 70 65 28 | . .Obj|ectType(|
|00005090| 20 46 69 6c 65 24 2b 22 | 2e 21 44 6f 63 44 61 74 | File$+"|.!DocDat|
|000050a0| 61 22 20 29 20 3c 3e 20 | 31 20 8c 0d 22 42 3a 20 |a" ) <> |1 .."B: |
|000050b0| 20 20 20 20 20 f2 45 72 | 72 6f 72 28 20 46 69 6c | .Er|ror( Fil|
|000050c0| 65 24 2b 22 20 69 73 20 | 6e 6f 74 20 61 6e 20 49 |e$+" is |not an I|
|000050d0| 6d 70 72 65 73 73 69 6f | 6e 20 64 6f 63 75 6d 65 |mpressio|n docume|
|000050e0| 6e 74 22 20 29 0d 22 4c | 0d 20 20 20 20 20 20 3d |nt" )."L|. =|
|000050f0| 20 a3 0d 22 56 08 20 20 | 20 cd 0d 22 60 04 0d 22 | .."V. | .."`.."|
|00005100| 6a 05 cb 0d 22 74 21 4e | 61 6d 65 24 20 3d 20 c1 |j..."t!N|ame$ = .|
|00005110| 20 a4 4c 65 61 66 4f 66 | 28 46 69 6c 65 24 29 2c | .LeafOf|(File$),|
|00005120| 20 32 20 29 0d 22 7e 07 | 3d 20 b9 0d ff | 2 )."~.|= ... |
+--------+-------------------------+-------------------------+--------+--------+
