home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-10-24 | 14.0 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 0f f4 20 3e 43 | 61 6c 65 6e 64 4a 43 0d |..... >C|alendJC.|
|00000010| 00 14 1f ee 20 85 20 eb | 20 31 35 3a f6 3a f1 22 |.... . .| 15:.:."|
|00000020| 20 61 74 20 6c 69 6e 65 | 20 22 3b 9e 3a e0 0d 00 | at line| ";.:...|
|00000030| 1e 15 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |.... "Ho|urglass_|
|00000040| 4f 6e 22 0d 00 28 38 76 | 65 72 73 69 6f 6e 24 3d |On"..(8v|ersion$=|
|00000050| 22 31 2e 30 31 20 28 32 | 31 20 73 65 70 74 65 6d |"1.01 (2|1 septem|
|00000060| 62 65 72 20 31 39 39 33 | 29 22 3a 74 61 73 6b 24 |ber 1993|)":task$|
|00000070| 3d 22 43 61 6c 65 6e 64 | 4a 43 22 0d 00 32 37 c8 |="Calend|JC"..27.|
|00000080| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|00000090| 73 65 22 2c 32 30 30 2c | 26 34 42 35 33 34 31 35 |se",200,|&4B53415|
|000000a0| 34 2c 74 61 73 6b 24 20 | b8 20 2c 6d 79 74 61 73 |4,task$ |. ,mytas|
|000000b0| 6b 25 0d 00 3c 1a 71 75 | 69 74 25 3d a3 3a de 20 |k%..<.qu|it%=.:. |
|000000c0| 62 75 66 66 65 72 25 20 | 26 35 30 30 0d 00 46 40 |buffer% |&500..F@|
|000000d0| 66 6f 6e 74 73 65 6c 65 | 63 74 65 64 25 3d 2d 31 |fontsele|cted%=-1|
|000000e0| 3a 79 63 61 6c 25 3d 33 | 36 30 3a 70 72 65 66 69 |:ycal%=3|60:prefi|
|000000f0| 78 24 3d 22 3c 43 61 6c | 65 6e 64 4a 43 24 44 69 |x$="<Cal|endJC$Di|
|00000100| 72 3e 2e 43 61 6c 65 6e | 64 73 2e 22 0d 00 50 1d |r>.Calen|ds."..P.|
|00000110| 69 62 25 3d a4 69 63 6f | 6e 62 61 72 28 22 21 43 |ib%=.ico|nbar("!C|
|00000120| 61 6c 65 6e 64 4a 43 22 | 29 0d 00 5a 10 f2 69 6e |alendJC"|)..Z..in|
|00000130| 69 74 77 69 6e 64 6f 77 | 73 0d 00 64 0e f2 69 6e |itwindow|s..d..in|
|00000140| 69 74 6d 65 6e 75 73 0d | 00 6e 0d f2 69 6e 69 74 |itmenus.|.n..init|
|00000150| 64 72 61 77 0d 00 78 11 | f2 69 6e 69 74 63 61 6c |draw..x.|.initcal|
|00000160| 65 6e 64 61 72 0d 00 82 | 0c de 20 62 25 20 32 35 |endar...|.. b% 25|
|00000170| 36 0d 00 8c 0e ee 20 85 | 20 f2 65 72 72 6f 72 0d |6..... .| .error.|
|00000180| 00 96 16 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|00000190| 5f 4f 66 66 22 0d 00 a0 | 05 f5 0d 00 aa 2c 20 20 |_Off"...|....., |
|000001a0| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 25 |.. "Wimp|_Poll",%|
|000001b0| 31 31 30 30 31 31 2c 62 | 25 20 b8 20 72 65 61 73 |110011,b|% . reas|
|000001c0| 6f 6e 25 2c 62 25 0d 00 | b4 12 20 20 c8 8e 20 72 |on%,b%..|.. .. r|
|000001d0| 65 61 73 6f 6e 25 20 ca | 0d 00 be 25 20 20 c9 20 |eason% .|...% . |
|000001e0| 32 20 3a 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |2 : .. "|Wimp_Ope|
|000001f0| 6e 57 69 6e 64 6f 77 22 | 20 2c 2c 62 25 0d 00 c8 |nWindow"| ,,b%...|
|00000200| 25 20 20 c9 20 33 20 3a | 20 c8 99 20 22 57 69 6d |% . 3 :| .. "Wim|
|00000210| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00000220| 62 25 0d 00 d2 32 20 20 | c9 20 36 20 3a 20 f2 63 |b%...2 |. 6 : .c|
|00000230| 68 65 63 6b 6d 6f 75 73 | 65 28 21 62 25 2c 62 25 |heckmous|e(!b%,b%|
|00000240| 21 34 2c 62 25 21 38 2c | 62 25 21 31 32 2c 62 25 |!4,b%!8,|b%!12,b%|
|00000250| 21 31 36 29 0d 00 dc 16 | 20 20 c9 20 37 20 3a 20 |!16)....| . 7 : |
|00000260| f2 64 72 61 67 5f 73 74 | 6f 70 0d 00 e6 17 20 20 |.drag_st|op.... |
|00000270| c9 20 38 20 3a 20 f2 70 | 72 6f 63 65 73 73 6b 65 |. 8 : .p|rocesske|
|00000280| 79 0d 00 f0 13 20 20 c9 | 20 39 20 3a 20 f2 73 65 |y.... .| 9 : .se|
|00000290| 6c 65 63 74 0d 00 fa 18 | 20 20 c9 20 31 37 2c 31 |lect....| . 17,1|
|000002a0| 38 20 3a 20 f2 6d 65 73 | 73 61 67 65 0d 01 04 07 |8 : .mes|sage....|
|000002b0| 20 20 cb 0d 01 0e 0b fd | 20 71 75 69 74 25 0d 01 | ......| quit%..|
|000002c0| 18 29 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.).. "Wi|mp_Close|
|000002d0| 44 6f 77 6e 22 2c 6d 79 | 74 61 73 6b 25 2c 26 34 |Down",my|task%,&4|
|000002e0| 42 35 33 34 31 35 34 0d | 01 22 05 e0 0d 01 2c 04 |B534154.|."....,.|
|000002f0| 0d 01 36 10 dd f2 70 72 | 6f 63 65 73 73 6b 65 79 |..6...pr|ocesskey|
|00000300| 0d 01 40 25 e7 20 21 62 | 25 3d 73 61 76 65 68 61 |..@%. !b|%=saveha|
|00000310| 6e 64 6c 65 25 20 80 20 | 69 63 6f 6e 25 3d 30 20 |ndle% . |icon%=0 |
|00000320| f2 73 61 76 65 0d 01 4a | 05 e1 0d 01 54 04 0d 01 |.save..J|....T...|
|00000330| 5e 0c dd 20 f2 65 72 72 | 6f 72 0d 01 68 12 e7 20 |^.. .err|or..h.. |
|00000340| 63 25 3c 3e 30 20 8c 20 | d9 23 63 25 0d 01 72 12 |c%<>0 . |.#c%..r.|
|00000350| e7 20 69 25 3c 3e 30 20 | 8c 20 d9 23 69 25 0d 01 |. i%<>0 |. .#i%..|
|00000360| 7c 0b ea 20 77 68 61 74 | 25 0d 01 86 30 21 62 75 ||.. what|%...0!bu|
|00000370| 66 66 65 72 25 3d 9f 3a | 24 28 62 75 66 66 65 72 |ffer%=.:|$(buffer|
|00000380| 25 2b 34 29 3d f6 24 2b | 22 20 61 74 20 6c 69 6e |%+4)=.$+|" at lin|
|00000390| 65 20 22 2b c3 9e 2b bd | 30 0d 01 90 32 c8 99 20 |e "+..+.|0...2.. |
|000003a0| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|000003b0| 72 22 2c 62 75 66 66 65 | 72 25 2c 33 2c 74 61 73 |r",buffe|r%,3,tas|
|000003c0| 6b 24 20 b8 20 2c 77 68 | 61 74 25 0d 01 9a 33 e7 |k$ . ,wh|at%...3.|
|000003d0| 20 77 68 61 74 25 3d 32 | 20 c8 99 20 22 57 69 6d | what%=2| .. "Wim|
|000003e0| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 6d 79 74 |p_CloseD|own",myt|
|000003f0| 61 73 6b 25 2c 26 34 42 | 35 33 34 31 35 34 0d 01 |ask%,&4B|534154..|
|00000400| a4 05 e1 0d 01 ae 04 0d | 01 b8 12 dd 20 a4 69 63 |........|.... .ic|
|00000410| 6f 6e 62 61 72 28 69 24 | 29 0d 01 c2 0c de 20 69 |onbar(i$|)..... i|
|00000420| 63 25 20 33 35 0d 01 cc | 49 21 69 63 25 3d 2d 31 |c% 35...|I!ic%=-1|
|00000430| 3a 69 63 25 21 34 3d 30 | 3a 69 63 25 21 38 3d 30 |:ic%!4=0|:ic%!8=0|
|00000440| 3a 69 63 25 21 31 32 3d | 39 30 3a 69 63 25 21 31 |:ic%!12=|90:ic%!1|
|00000450| 36 3d 36 34 3a 69 63 25 | 21 32 30 3d 26 33 30 30 |6=64:ic%|!20=&300|
|00000460| 32 3a 24 28 69 63 25 2b | 32 34 29 3d 69 24 0d 01 |2:$(ic%+|24)=i$..|
|00000470| d6 23 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.#.. "Wi|mp_Creat|
|00000480| 65 49 63 6f 6e 22 2c 2c | 69 63 25 20 b8 20 69 63 |eIcon",,|ic% . ic|
|00000490| 25 0d 01 e0 08 3d 69 63 | 25 0d 01 ea 04 0d 01 f4 |%....=ic|%.......|
|000004a0| 12 dd 20 f2 69 6e 69 74 | 77 69 6e 64 6f 77 73 0d |.. .init|windows.|
|000004b0| 01 fe 10 6c 65 6e 69 6e | 64 25 3d 26 34 30 30 0d |...lenin|d%=&400.|
|000004c0| 02 08 2e de 20 74 65 6d | 70 6c 61 74 65 73 25 20 |.... tem|plates% |
|000004d0| 26 34 30 30 2c 69 6e 64 | 25 20 6c 65 6e 69 6e 64 |&400,ind|% lenind|
|000004e0| 25 2c 69 63 6f 6e 69 6e | 66 25 20 33 32 0d 02 12 |%,iconin|f% 32...|
|000004f0| 36 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |6.. "Wim|p_OpenTe|
|00000500| 6d 70 6c 61 74 65 22 2c | 2c 22 3c 43 61 6c 65 6e |mplate",|,"<Calen|
|00000510| 64 4a 43 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |dJC$Dir>|.Templat|
|00000520| 65 73 22 0d 02 1c 25 73 | 61 76 65 68 61 6e 64 6c |es"...%s|avehandl|
|00000530| 65 25 3d a4 63 72 65 61 | 74 65 77 69 6e 64 6f 77 |e%=.crea|tewindow|
|00000540| 28 22 73 61 76 65 22 29 | 0d 02 26 25 69 6e 66 6f |("save")|..&%info|
|00000550| 68 61 6e 64 6c 65 25 3d | a4 63 72 65 61 74 65 77 |handle%=|.createw|
|00000560| 69 6e 64 6f 77 28 22 69 | 6e 66 6f 22 29 0d 02 30 |indow("i|nfo")..0|
|00000570| 1b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |... "Wim|p_CloseT|
|00000580| 65 6d 70 6c 61 74 65 22 | 0d 02 3a 26 74 65 78 74 |emplate"|..:&text|
|00000590| 73 61 76 65 25 3d a4 74 | 65 78 74 61 64 64 72 28 |save%=.t|extaddr(|
|000005a0| 73 61 76 65 68 61 6e 64 | 6c 65 25 2c 30 29 0d 02 |savehand|le%,0)..|
|000005b0| 44 27 24 a4 74 65 78 74 | 61 64 64 72 28 69 6e 66 |D'$.text|addr(inf|
|000005c0| 6f 68 61 6e 64 6c 65 25 | 2c 31 32 29 3d 76 65 72 |ohandle%|,12)=ver|
|000005d0| 73 69 6f 6e 24 0d 02 4e | 05 e1 0d 02 58 04 0d 02 |sion$..N|....X...|
|000005e0| 62 1a dd 20 a4 63 72 65 | 61 74 65 77 69 6e 64 6f |b.. .cre|atewindo|
|000005f0| 77 28 6e 61 6d 65 24 29 | 0d 02 6c 0d ea 20 68 61 |w(name$)|..l.. ha|
|00000600| 6e 64 6c 65 25 0d 02 76 | 4c c8 99 20 22 57 69 6d |ndle%..v|L.. "Wim|
|00000610| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00000620| 2c 74 65 6d 70 6c 61 74 | 65 73 25 2c 69 6e 64 25 |,templat|es%,ind%|
|00000630| 2c 69 6e 64 25 2b 6c 65 | 6e 69 6e 64 25 2c 2d 31 |,ind%+le|nind%,-1|
|00000640| 2c 6e 61 6d 65 24 2c 30 | 20 b8 20 2c 2c 69 6e 64 |,name$,0| . ,,ind|
|00000650| 25 0d 02 80 30 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%...0.. |"Wimp_Cr|
|00000660| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 74 65 6d |eateWind|ow",,tem|
|00000670| 70 6c 61 74 65 73 25 20 | b8 20 68 61 6e 64 6c 65 |plates% |. handle|
|00000680| 25 0d 02 8a 0c 3d 68 61 | 6e 64 6c 65 25 0d 02 94 |%....=ha|ndle%...|
|00000690| 04 0d 02 9e 1e dd 20 a4 | 74 65 78 74 61 64 64 72 |...... .|textaddr|
|000006a0| 28 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 29 0d |(handle%|,icon%).|
|000006b0| 02 a8 1f f2 67 65 74 69 | 63 6f 6e 69 6e 66 6f 28 |....geti|coninfo(|
|000006c0| 68 61 6e 64 6c 65 25 2c | 69 63 6f 6e 25 29 0d 02 |handle%,|icon%)..|
|000006d0| b2 10 3d 69 63 6f 6e 69 | 6e 66 25 21 32 38 0d 02 |..=iconi|nf%!28..|
|000006e0| bc 04 0d 02 c6 21 dd 20 | f2 67 65 74 69 63 6f 6e |.....!. |.geticon|
|000006f0| 69 6e 66 6f 28 68 61 6e | 64 6c 65 25 2c 69 63 6f |info(han|dle%,ico|
|00000700| 6e 25 29 0d 02 d0 15 21 | 69 63 6f 6e 69 6e 66 25 |n%)....!|iconinf%|
|00000710| 3d 68 61 6e 64 6c 65 25 | 0d 02 da 14 69 63 6f 6e |=handle%|....icon|
|00000720| 69 6e 66 25 21 34 3d 69 | 63 6f 6e 25 0d 02 e4 24 |inf%!4=i|con%...$|
|00000730| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00000740| 53 74 61 74 65 22 2c 2c | 69 63 6f 6e 69 6e 66 25 |State",,|iconinf%|
|00000750| 0d 02 ee 05 e1 0d 02 f8 | 04 0d 03 02 34 dd 20 f2 |........|....4. .|
|00000760| 63 68 65 63 6b 6d 6f 75 | 73 65 28 6d 6f 75 73 65 |checkmou|se(mouse|
|00000770| 78 25 2c 6d 6f 75 73 65 | 79 25 2c 62 75 25 2c 68 |x%,mouse|y%,bu%,h|
|00000780| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 29 0d 03 0c |andle%,i|con%)...|
|00000790| 2b e7 20 68 61 6e 64 6c | 65 25 3d 73 61 76 65 68 |+. handl|e%=saveh|
|000007a0| 61 6e 64 6c 65 25 20 80 | 20 69 63 6f 6e 25 3d 38 |andle% .| icon%=8|
|000007b0| 20 8c 20 f2 73 61 76 65 | 0d 03 16 2f e7 20 68 61 | . .save|.../. ha|
|000007c0| 6e 64 6c 65 25 3d 73 61 | 76 65 68 61 6e 64 6c 65 |ndle%=sa|vehandle|
|000007d0| 25 20 80 20 69 63 6f 6e | 25 3d 39 20 f2 64 72 61 |% . icon|%=9 .dra|
|000007e0| 67 5f 73 74 61 72 74 0d | 03 20 20 e7 20 68 61 6e |g_start.|. . han|
|000007f0| 64 6c 65 25 3d 2d 32 20 | 80 20 69 63 6f 6e 25 20 |dle%=-2 |. icon% |
|00000800| 3d 20 69 62 25 20 8c 0d | 03 2a 14 e7 20 28 62 75 |= ib% ..|.*.. (bu|
|00000810| 25 20 80 20 31 29 3e 30 | 20 20 8c 0d 03 34 44 20 |% . 1)>0| ...4D |
|00000820| 20 21 62 75 66 66 65 72 | 25 3d 69 6e 66 6f 68 61 | !buffer|%=infoha|
|00000830| 6e 64 6c 65 25 3a 62 75 | 66 66 65 72 25 21 34 3d |ndle%:bu|ffer%!4=|
|00000840| 36 34 30 3a 62 75 66 66 | 65 72 25 21 38 3d 30 3a |640:buff|er%!8=0:|
|00000850| 62 75 66 66 65 72 25 21 | 31 32 3d 31 32 38 30 0d |buffer%!|12=1280.|
|00000860| 03 3e 3e 20 20 62 75 66 | 66 65 72 25 21 31 36 3d |.>> buf|fer%!16=|
|00000870| 33 36 30 3a 62 75 66 66 | 65 72 25 21 32 30 3d 36 |360:buff|er%!20=6|
|00000880| 34 30 3a 62 75 66 66 65 | 72 25 21 32 34 3d 30 3a |40:buffe|r%!24=0:|
|00000890| 62 75 66 66 65 72 25 21 | 32 38 3d 2d 31 0d 03 48 |buffer%!|28=-1..H|
|000008a0| 23 20 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |# .. "W|imp_Open|
|000008b0| 57 69 6e 64 6f 77 22 2c | 2c 62 75 66 66 65 72 25 |Window",|,buffer%|
|000008c0| 0d 03 52 05 cd 0d 03 5c | 3c e7 20 28 62 75 25 20 |..R....\|<. (bu% |
|000008d0| 80 20 32 29 3e 30 20 c8 | 99 20 22 57 69 6d 70 5f |. 2)>0 .|. "Wimp_|
|000008e0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 6d 65 6e |CreateMe|nu",,men|
|000008f0| 75 25 2c 6d 6f 75 73 65 | 78 25 2d 38 30 2c 34 30 |u%,mouse|x%-80,40|
|00000900| 30 0d 03 66 13 e7 20 28 | 62 75 25 20 80 20 34 29 |0..f.. (|bu% . 4)|
|00000910| 3e 30 20 8c 0d 03 70 25 | 70 72 65 66 69 78 24 3d |>0 ...p%|prefix$=|
|00000920| 22 3c 43 61 6c 65 6e 64 | 4a 43 24 44 69 72 3e 2e |"<Calend|JC$Dir>.|
|00000930| 43 61 6c 65 6e 64 73 2e | 22 0d 03 7a 24 3f 63 6c |Calends.|"..z$?cl|
|00000940| 6f 63 6b 25 3d 31 3a c8 | 99 20 22 4f 53 5f 57 6f |ock%=1:.|. "OS_Wo|
|00000950| 72 64 22 2c 31 34 2c 63 | 6c 6f 63 6b 25 0d 03 84 |rd",14,c|lock%...|
|00000960| 18 6d 6f 6e 74 68 25 3d | bb c3 7e 28 63 6c 6f 63 |.month%=|..~(cloc|
|00000970| 6b 25 3f 31 29 0d 03 8e | 38 79 65 61 72 25 3d 31 |k%?1)...|8year%=1|
|00000980| 39 30 30 2b bb c3 7e 28 | 3f 63 6c 6f 63 6b 25 29 |900+..~(|?clock%)|
|00000990| 3a e7 3f 63 6c 6f 63 6b | 25 3c 31 34 37 3a 79 65 |:.?clock|%<147:ye|
|000009a0| 61 72 25 3d 79 65 61 72 | 25 2b 31 30 30 0d 03 98 |ar%=year|%+100...|
|000009b0| 14 24 6d 6f 6e 74 68 69 | 25 3d c3 6d 6f 6e 74 68 |.$monthi|%=.month|
|000009c0| 25 0d 03 a2 12 24 79 65 | 61 72 69 25 3d c3 79 65 |%....$ye|ari%=.ye|
|000009d0| 61 72 25 0d 03 ac 29 24 | 74 65 78 74 73 61 76 65 |ar%...)$|textsave|
|000009e0| 25 3d 70 72 65 66 69 78 | 24 2b c3 6d 6f 6e 74 68 |%=prefix|$+.month|
|000009f0| 25 2b 22 2f 22 2b c3 79 | 65 61 72 25 0d 03 b6 43 |%+"/"+.y|ear%...C|
|00000a00| 20 21 62 75 66 66 65 72 | 25 3d 73 61 76 65 68 61 | !buffer|%=saveha|
|00000a10| 6e 64 6c 65 25 3a 62 75 | 66 66 65 72 25 21 34 3d |ndle%:bu|ffer%!4=|
|00000a20| 39 39 36 3a 62 75 66 66 | 65 72 25 21 38 3d 30 3a |996:buff|er%!8=0:|
|00000a30| 62 75 66 66 65 72 25 21 | 31 32 3d 31 32 38 30 0d |buffer%!|12=1280.|
|00000a40| 03 c0 3d 20 62 75 66 66 | 65 72 25 21 31 36 3d 79 |..= buff|er%!16=y|
|00000a50| 63 61 6c 25 3a 62 75 66 | 66 65 72 25 21 32 30 3d |cal%:buf|fer%!20=|
|00000a60| 30 3a 62 75 66 66 65 72 | 25 21 32 34 3d 30 3a 62 |0:buffer|%!24=0:b|
|00000a70| 75 66 66 65 72 25 21 32 | 38 3d 2d 31 0d 03 c5 23 |uffer%!2|8=-1...#|
|00000a80| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 | .. "Wim|p_CloseW|
|00000a90| 69 6e 64 6f 77 22 2c 2c | 62 75 66 66 65 72 25 0d |indow",,|buffer%.|
|00000aa0| 03 ca 41 20 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |..A .. "|Wimp_Ope|
|00000ab0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 75 66 66 65 72 |nWindow"|,,buffer|
|00000ac0| 25 3a 79 63 61 6c 25 2b | 3d 36 34 3a e7 79 63 61 |%:ycal%+|=64:.yca|
|00000ad0| 6c 25 3e 38 30 30 3a 79 | 63 61 6c 25 3d 33 36 30 |l%>800:y|cal%=360|
|00000ae0| 0d 03 d4 05 cd 0d 03 de | 05 cd 0d 03 e8 05 e1 0d |........|........|
|00000af0| 03 f2 04 0d 03 fc 0f dd | f2 69 6e 69 74 6d 65 6e |........|.initmen|
|00000b00| 75 73 0d 04 06 13 ea 20 | 63 6f 6c 73 2c 66 25 2c |us..... |cols,f%,|
|00000b10| 69 25 2c 6d 25 0d 04 10 | 13 66 6f 6e 74 6c 69 6d |i%,m%...|.fontlim|
|00000b20| 69 74 25 3d 34 35 30 30 | 0d 04 1a 2d de 20 66 6f |it%=4500|...-. fo|
|00000b30| 6e 74 74 25 28 32 35 35 | 29 2c 6d 6f 6e 74 68 69 |ntt%(255|),monthi|
|00000b40| 25 20 31 30 2c 79 65 61 | 72 69 25 20 31 30 2c 75 |% 10,yea|ri% 10,u|
|00000b50| 69 25 20 31 30 0d 04 24 | 28 de 20 66 6f 6e 74 25 |i% 10..$|(. font%|
|00000b60| 20 66 6f 6e 74 6c 69 6d | 69 74 25 3a 66 6f 6e 74 | fontlim|it%:font|
|00000b70| 6c 69 6d 69 74 25 2b 3d | 66 6f 6e 74 25 0d 04 2e |limit%+=|font%...|
|00000b80| 1e 6d 65 6e 75 6c 69 6d | 69 74 25 3d 32 38 2a 34 |.menulim|it%=28*4|
|00000b90| 2b 32 34 2a 28 32 35 36 | 2b 39 29 0d 04 38 22 de |+24*(256|+9)..8".|
|00000ba0| 20 6d 25 20 6d 65 6e 75 | 6c 69 6d 69 74 25 3a 6d | m% menu|limit%:m|
|00000bb0| 65 6e 75 6c 69 6d 69 74 | 25 2b 3d 6d 25 0d 04 42 |enulimit|%+=m%..B|
|00000bc0| 0d 66 63 6f 75 6e 74 25 | 3d 30 0d 04 4c 30 63 6f |.fcount%|=0..L0co|
|00000bd0| 6c 73 25 3d 26 37 30 32 | 30 37 3a 66 25 3d 25 31 |ls%=&702|07:f%=%1|
|00000be0| 31 31 30 30 30 30 30 30 | 30 30 30 30 31 31 30 30 |11000000|00001100|
|00000bf0| 30 30 30 30 30 31 30 30 | 30 31 0d 04 56 49 66 6f |00000100|01..VIfo|
|00000c00| 6e 74 6d 65 6e 75 25 3d | 6d 25 3a 24 6d 25 3d 22 |ntmenu%=|m%:$m%="|
|00000c10| 46 6f 6e 74 22 3a 6d 25 | 21 31 32 3d 63 6f 6c 73 |Font":m%|!12=cols|
|00000c20| 25 3a 6d 25 21 31 36 3d | 36 30 30 3a 6d 25 21 32 |%:m%!16=|600:m%!2|
|00000c30| 30 3d 34 30 3a 6d 25 21 | 32 34 3d 30 3a 6d 25 2b |0=40:m%!|24=0:m%+|
|00000c40| 3d 32 38 0d 04 60 09 20 | 20 20 20 f5 0d 04 6a 39 |=28..`. | ...j9|
|00000c50| 20 20 20 20 c8 99 20 22 | 46 6f 6e 74 5f 4c 69 73 | .. "|Font_Lis|
|00000c60| 74 46 6f 6e 74 73 22 2c | 2c 66 6f 6e 74 25 2c 66 |tFonts",|,font%,f|
|00000c70| 63 6f 75 6e 74 25 2c 2d | 31 20 b8 20 2c 2c 66 63 |count%,-|1 . ,,fc|
|00000c80| 6f 75 6e 74 25 0d 04 74 | 17 20 20 20 20 e7 20 66 |ount%..t|. . f|
|00000c90| 63 6f 75 6e 74 25 3c 3e | 2d 31 20 8c 0d 04 7e 3d |count%<>|-1 ...~=|
|00000ca0| 20 20 20 20 20 20 66 6f | 6e 74 74 25 28 66 63 6f | fo|ntt%(fco|
|00000cb0| 75 6e 74 25 2d 31 29 3d | 66 6f 6e 74 25 3a 21 6d |unt%-1)=|font%:!m|
|00000cc0| 25 3d 30 3a 6d 25 21 34 | 3d 2d 31 3a 6d 25 21 38 |%=0:m%!4|=-1:m%!8|
|00000cd0| 3d 26 37 30 30 33 31 31 | 31 0d 04 88 27 20 20 20 |=&700311|1...' |
|00000ce0| 20 20 20 6d 25 21 31 32 | 3d 66 6f 6e 74 25 3a 6d | m%!12|=font%:m|
|00000cf0| 25 21 31 36 3d 2d 31 3a | 6d 25 21 32 30 3d 34 30 |%!16=-1:|m%!20=40|
|00000d00| 0d 04 92 3f 20 20 20 20 | 20 20 e7 20 24 66 6f 6e |...? | . $fon|
|00000d10| 74 25 3d 22 4f 6c 64 45 | 6e 67 22 3a 66 6f 6e 74 |t%="OldE|ng":font|
|00000d20| 73 65 6c 65 63 74 65 64 | 25 3d 66 63 6f 75 6e 74 |selected|%=fcount|
|00000d30| 25 2d 31 3a 21 6d 25 3d | 31 20 82 20 21 6d 25 0d |%-1:!m%=|1 . !m%.|
|00000d40| 04 9c 30 20 20 20 20 20 | 20 6d 25 2b 3d 32 34 3a |..0 | m%+=24:|
|00000d50| 66 6f 6e 74 25 3d 31 2b | 66 6f 6e 74 25 2b a9 28 |font%=1+|font%+.(|
|00000d60| 24 66 6f 6e 74 25 29 3a | 69 25 3d 69 25 2b 31 0d |$font%):|i%=i%+1.|
|00000d70| 04 a6 09 20 20 20 20 cd | 0d 04 b0 43 20 20 20 20 |... .|...C |
|00000d80| e7 20 66 6f 6e 74 25 3e | 3d 66 6f 6e 74 6c 69 6d |. font%>|=fontlim|
|00000d90| 69 74 25 20 85 20 30 2c | 22 52 65 73 65 72 76 65 |it% . 0,|"Reserve|
|00000da0| 20 6d 6f 72 65 20 73 70 | 61 63 65 20 66 6f 72 20 | more sp|ace for |
|00000db0| 66 6f 6e 74 20 64 61 74 | 61 2e 22 0d 04 ba 14 20 |font dat|a.".... |
|00000dc0| 20 20 20 fd 20 66 63 6f | 75 6e 74 25 3d 2d 31 0d | . fco|unt%=-1.|
|00000dd0| 04 c4 14 20 20 20 20 21 | 28 6d 25 2d 32 34 29 3d |... !|(m%-24)=|
|00000de0| 26 38 30 0d 04 ce 4b 6d | 6f 6e 74 68 6d 65 6e 75 |&80...Km|onthmenu|
|00000df0| 25 3d 6d 25 3a 24 6d 25 | 3d 22 4d 6f 6e 74 68 22 |%=m%:$m%|="Month"|
|00000e00| 3a 6d 25 21 31 32 3d 63 | 6f 6c 73 25 3a 6d 25 21 |:m%!12=c|ols%:m%!|
|00000e10| 31 36 3d 31 32 30 3a 6d | 25 21 32 30 3d 34 30 3a |16=120:m|%!20=40:|
|00000e20| 6d 25 21 32 34 3d 30 3a | 6d 25 2b 3d 32 38 0d 04 |m%!24=0:|m%+=28..|
|00000e30| d8 4c 20 20 20 20 20 21 | 6d 25 3d 26 38 34 3a 6d |.L !|m%=&84:m|
|00000e40| 25 21 34 3d 2d 31 3a 6d | 25 21 38 3d 26 37 30 30 |%!4=-1:m|%!8=&700|
|00000e50| 30 31 30 39 3a 6d 25 21 | 31 32 3d 6d 6f 6e 74 68 |0109:m%!|12=month|
|00000e60| 69 25 3a 6d 25 21 31 36 | 3d 2d 31 3a 6d 25 21 32 |i%:m%!16|=-1:m%!2|
|00000e70| 30 3d 33 3a 6d 25 2b 3d | 32 34 0d 04 e2 49 79 65 |0=3:m%+=|24...Iye|
|00000e80| 61 72 6d 65 6e 75 25 3d | 6d 25 3a 24 6d 25 3d 22 |armenu%=|m%:$m%="|
|00000e90| 59 65 61 72 22 3a 6d 25 | 21 31 32 3d 63 6f 6c 73 |Year":m%|!12=cols|
|00000ea0| 25 3a 6d 25 21 31 36 3d | 31 32 30 3a 6d 25 21 32 |%:m%!16=|120:m%!2|
|00000eb0| 30 3d 34 30 3a 6d 25 21 | 32 34 3d 30 3a 6d 25 2b |0=40:m%!|24=0:m%+|
|00000ec0| 3d 32 38 0d 04 ec 4b 20 | 20 20 20 20 21 6d 25 3d |=28...K | !m%=|
|00000ed0| 26 38 34 3a 6d 25 21 34 | 3d 2d 31 3a 6d 25 21 38 |&84:m%!4|=-1:m%!8|
|00000ee0| 3d 26 37 30 30 30 31 30 | 39 3a 6d 25 21 31 32 3d |=&700010|9:m%!12=|
|00000ef0| 79 65 61 72 69 25 3a 6d | 25 21 31 36 3d 2d 31 3a |yeari%:m|%!16=-1:|
|00000f00| 6d 25 21 32 30 3d 35 3a | 6d 25 2b 3d 32 34 0d 04 |m%!20=5:|m%+=24..|
|00000f10| f6 4e 75 6e 69 74 6d 65 | 6e 75 25 3d 6d 25 3a 24 |.Nunitme|nu%=m%:$|
|00000f20| 6d 25 3d 22 55 6e 69 74 | 20 28 63 6d 29 22 3a 6d |m%="Unit| (cm)":m|
|00000f30| 25 21 31 32 3d 63 6f 6c | 73 25 3a 6d 25 21 31 36 |%!12=col|s%:m%!16|
|00000f40| 3d 31 32 30 3a 6d 25 21 | 32 30 3d 34 30 3a 6d 25 |=120:m%!|20=40:m%|
|00000f50| 21 32 34 3d 30 3a 6d 25 | 2b 3d 32 38 0d 05 00 49 |!24=0:m%|+=28...I|
|00000f60| 20 20 20 20 20 21 6d 25 | 3d 26 38 34 3a 6d 25 21 | !m%|=&84:m%!|
|00000f70| 34 3d 2d 31 3a 6d 25 21 | 38 3d 26 37 30 30 30 31 |4=-1:m%!|8=&70001|
|00000f80| 30 39 3a 6d 25 21 31 32 | 3d 75 69 25 3a 6d 25 21 |09:m%!12|=ui%:m%!|
|00000f90| 31 36 3d 2d 31 3a 6d 25 | 21 32 30 3d 31 30 3a 6d |16=-1:m%|!20=10:m|
|00000fa0| 25 2b 3d 32 34 0d 05 0a | 49 6d 65 6e 75 25 3d 6d |%+=24...|Imenu%=m|
|00000fb0| 25 3a 24 6d 25 3d 22 43 | 61 6c 65 6e 64 61 72 22 |%:$m%="C|alendar"|
|00000fc0| 3a 6d 25 21 31 32 3d 63 | 6f 6c 73 25 3a 6d 25 21 |:m%!12=c|ols%:m%!|
|00000fd0| 31 36 3d 31 30 30 3a 6d | 25 21 32 30 3d 34 30 3a |16=100:m|%!20=40:|
|00000fe0| 6d 25 21 32 34 3d 30 3a | 6d 25 2b 3d 32 38 0d 05 |m%!24=0:|m%+=28..|
|00000ff0| 14 3e 20 20 20 20 20 21 | 6d 25 3d 30 3a 6d 25 21 |.> !|m%=0:m%!|
|00001000| 34 3d 69 6e 66 6f 68 61 | 6e 64 6c 65 25 3a 6d 25 |4=infoha|ndle%:m%|
|00001010| 21 38 3d 66 25 3a 24 28 | 6d 25 2b 31 32 29 3d 22 |!8=f%:$(|m%+12)="|
|00001020| 49 6e 66 6f 22 3a 6d 25 | 2b 3d 32 34 0d 05 1e 3c |Info":m%|+=24...<|
|00001030| 20 20 20 20 20 21 6d 25 | 3d 30 3a 6d 25 21 34 3d | !m%|=0:m%!4=|
|00001040| 66 6f 6e 74 6d 65 6e 75 | 25 3a 6d 25 21 38 3d 66 |fontmenu|%:m%!8=f|
|00001050| 25 3a 24 28 6d 25 2b 31 | 32 29 3d 22 46 6f 6e 74 |%:$(m%+1|2)="Font|
|00001060| 22 3a 6d 25 2b 3d 32 34 | 0d 05 28 3e 20 20 20 20 |":m%+=24|..(> |
|00001070| 20 21 6d 25 3d 30 3a 6d | 25 21 34 3d 6d 6f 6e 74 | !m%=0:m|%!4=mont|
|00001080| 68 6d 65 6e 75 25 3a 6d | 25 21 38 3d 66 25 3a 24 |hmenu%:m|%!8=f%:$|
|00001090| 28 6d 25 2b 31 32 29 3d | 22 4d 6f 6e 74 68 22 3a |(m%+12)=|"Month":|
|000010a0| 6d 25 2b 3d 32 34 0d 05 | 32 3c 20 20 20 20 20 21 |m%+=24..|2< !|
|000010b0| 6d 25 3d 30 3a 6d 25 21 | 34 3d 79 65 61 72 6d 65 |m%=0:m%!|4=yearme|
|000010c0| 6e 75 25 3a 6d 25 21 38 | 3d 66 25 3a 24 28 6d 25 |nu%:m%!8|=f%:$(m%|
|000010d0| 2b 31 32 29 3d 22 59 65 | 61 72 22 3a 6d 25 2b 3d |+12)="Ye|ar":m%+=|
|000010e0| 32 34 0d 05 3c 3c 20 20 | 20 20 20 21 6d 25 3d 30 |24..<< | !m%=0|
|000010f0| 3a 6d 25 21 34 3d 75 6e | 69 74 6d 65 6e 75 25 3a |:m%!4=un|itmenu%:|
|00001100| 6d 25 21 38 3d 66 25 3a | 24 28 6d 25 2b 31 32 29 |m%!8=f%:|$(m%+12)|
|00001110| 3d 22 55 6e 69 74 22 3a | 6d 25 2b 3d 32 34 0d 05 |="Unit":|m%+=24..|
|00001120| 46 3e 20 20 20 20 20 21 | 6d 25 3d 30 3a 6d 25 21 |F> !|m%=0:m%!|
|00001130| 34 3d 73 61 76 65 68 61 | 6e 64 6c 65 25 3a 6d 25 |4=saveha|ndle%:m%|
|00001140| 21 38 3d 66 25 3a 24 28 | 6d 25 2b 31 32 29 3d 22 |!8=f%:$(|m%+12)="|
|00001150| 53 61 76 65 22 3a 6d 25 | 2b 3d 32 34 0d 05 50 37 |Save":m%|+=24..P7|
|00001160| 20 20 20 20 20 21 6d 25 | 3d 26 38 30 3a 6d 25 21 | !m%|=&80:m%!|
|00001170| 34 3d 2d 31 3a 6d 25 21 | 38 3d 66 25 3a 24 28 6d |4=-1:m%!|8=f%:$(m|
|00001180| 25 2b 31 32 29 3d 22 51 | 75 69 74 22 3a 6d 25 2b |%+12)="Q|uit":m%+|
|00001190| 3d 32 34 0d 05 5a 38 e7 | 20 6d 25 3e 3d 6d 65 6e |=24..Z8.| m%>=men|
|000011a0| 75 6c 69 6d 69 74 25 20 | 85 20 30 2c 22 52 65 73 |ulimit% |. 0,"Res|
|000011b0| 65 72 76 65 20 6d 6f 72 | 65 20 73 70 61 63 65 20 |erve mor|e space |
|000011c0| 66 6f 72 20 6d 65 6e 75 | 73 2e 22 0d 05 64 05 e1 |for menu|s."..d..|
|000011d0| 0d 05 6e 04 0d 05 78 0c | dd f2 73 65 6c 65 63 74 |..n...x.|..select|
|000011e0| 0d 05 82 0a 6d 25 3d 21 | 62 25 0d 05 8c 49 e7 20 |....m%=!|b%...I. |
|000011f0| 6d 25 3d 31 20 8c 20 f2 | 74 69 63 6b 28 66 6f 6e |m%=1 . .|tick(fon|
|00001200| 74 73 65 6c 65 63 74 65 | 64 25 29 3a 66 6f 6e 74 |tselecte|d%):font|
|00001210| 73 65 6c 65 63 74 65 64 | 25 3d 62 25 21 34 3a f2 |selected|%=b%!4:.|
|00001220| 74 69 63 6b 28 66 6f 6e | 74 73 65 6c 65 63 74 65 |tick(fon|tselecte|
|00001230| 64 25 29 0d 05 96 0c e7 | 20 6d 25 3d 32 20 8c 0d |d%).....| m%=2 ..|
|00001240| 05 a0 15 20 6d 6f 6e 74 | 68 25 3d bb 24 6d 6f 6e |... mont|h%=.$mon|
|00001250| 74 68 69 25 0d 05 aa 2a | 20 24 74 65 78 74 73 61 |thi%...*| $textsa|
|00001260| 76 65 25 3d 70 72 65 66 | 69 78 24 2b c3 6d 6f 6e |ve%=pref|ix$+.mon|
|00001270| 74 68 25 2b 22 2f 22 2b | c3 79 65 61 72 25 0d 05 |th%+"/"+|.year%..|
|00001280| b4 38 20 21 62 75 66 66 | 65 72 25 3d 73 61 76 65 |.8 !buff|er%=save|
|00001290| 68 61 6e 64 6c 65 25 3a | c8 99 20 22 57 69 6d 70 |handle%:|.. "Wimp|
|000012a0| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|000012b0| 75 66 66 65 72 25 0d 05 | be 05 cd 0d 05 c8 0c e7 |uffer%..|........|
|000012c0| 20 6d 25 3d 33 20 8c 0d | 05 d2 13 20 79 65 61 72 | m%=3 ..|... year|
|000012d0| 25 3d bb 24 79 65 61 72 | 69 25 0d 05 dc 2a 20 24 |%=.$year|i%...* $|
|000012e0| 74 65 78 74 73 61 76 65 | 25 3d 70 72 65 66 69 78 |textsave|%=prefix|
|000012f0| 24 2b c3 6d 6f 6e 74 68 | 25 2b 22 2f 22 2b c3 79 |$+.month|%+"/"+.y|
|00001300| 65 61 72 25 0d 05 e6 38 | 20 21 62 75 66 66 65 72 |ear%...8| !buffer|
|00001310| 25 3d 73 61 76 65 68 61 | 6e 64 6c 65 25 3a c8 99 |%=saveha|ndle%:..|
|00001320| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00001330| 6f 77 22 2c 2c 62 75 66 | 66 65 72 25 0d 05 f0 05 |ow",,buf|fer%....|
|00001340| cd 0d 05 fa 12 e7 20 6d | 25 3d 34 20 75 3d bb 24 |...... m|%=4 u=.$|
|00001350| 75 69 25 0d 06 04 72 e7 | 20 6d 25 3d 35 3a 21 62 |ui%...r.| m%=5:!b|
|00001360| 25 3d 73 61 76 65 68 61 | 6e 64 6c 65 25 3a 62 25 |%=saveha|ndle%:b%|
|00001370| 21 34 3d 31 30 30 30 3a | 62 25 21 38 3d 30 3a 62 |!4=1000:|b%!8=0:b|
|00001380| 25 21 31 32 3d 31 32 38 | 30 3a 62 25 21 31 36 3d |%!12=128|0:b%!16=|
|00001390| 33 36 30 3a 62 25 21 32 | 30 3d 30 3a 62 25 21 32 |360:b%!2|0=0:b%!2|
|000013a0| 34 3d 30 3a 62 25 21 32 | 38 3d 2d 31 3a c8 99 20 |4=0:b%!2|8=-1:.. |
|000013b0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|000013c0| 22 2c 2c 62 25 0d 06 0e | 14 e7 20 6d 25 3d 36 20 |",,b%...|.. m%=6 |
|000013d0| 3a 20 71 75 69 74 25 3d | b9 0d 06 18 20 c8 99 20 |: quit%=|.... .. |
|000013e0| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|000013f0| 49 6e 66 6f 22 2c 2c 62 | 25 0d 06 22 3b e7 20 28 |Info",,b|%..";. (|
|00001400| 62 25 3f 38 20 80 20 31 | 29 3d 31 20 8c 20 c8 99 |b%?8 . 1|)=1 . ..|
|00001410| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001420| 75 22 2c 2c 6d 65 6e 75 | 25 2c 21 62 25 2d 38 30 |u",,menu|%,!b%-80|
|00001430| 2c 34 30 30 0d 06 2c 05 | e1 0d 06 36 04 0d 06 40 |,400..,.|...6...@|
|00001440| 35 dd f2 74 69 63 6b 28 | 61 25 29 3a ea 20 4d 25 |5..tick(|a%):. M%|
|00001450| 3a 4d 25 3d 66 6f 6e 74 | 6d 65 6e 75 25 2b 32 38 |:M%=font|menu%+28|
|00001460| 2b 32 34 2a 61 25 3a 21 | 4d 25 3d 31 82 21 4d 25 |+24*a%:!|M%=1.!M%|
|00001470| 3a e1 0d 06 4a 04 0d 06 | 54 0f dd 20 f2 69 6e 69 |:...J...|T.. .ini|
|00001480| 74 64 72 61 77 0d 06 5e | 0e 6d 61 78 6c 65 76 25 |tdraw..^|.maxlev%|
|00001490| 3d 33 32 0d 06 68 35 de | 20 6c 25 28 6d 61 78 6c |=32..h5.| l%(maxl|
|000014a0| 65 76 25 29 2c 62 25 28 | 6d 61 78 6c 65 76 25 29 |ev%),b%(|maxlev%)|
|000014b0| 2c 72 25 28 6d 61 78 6c | 65 76 25 29 2c 74 25 28 |,r%(maxl|ev%),t%(|
|000014c0| 6d 61 78 6c 65 76 25 29 | 0d 06 72 13 de 20 62 6f |maxlev%)|..r.. bo|
|000014d0| 78 25 28 6d 61 78 6c 65 | 76 25 29 0d 06 7c 15 de |x%(maxle|v%)..|..|
|000014e0| 20 66 69 72 73 74 25 28 | 6d 61 78 6c 65 76 25 29 | first%(|maxlev%)|
|000014f0| 0d 06 86 0e de 20 62 75 | 66 25 20 32 35 36 0d 06 |..... bu|f% 256..|
|00001500| 90 12 62 69 67 25 3d 26 | 37 46 46 46 46 46 46 46 |..big%=&|7FFFFFFF|
|00001510| 0d 06 9a 12 45 46 3d 30 | 2e 35 35 32 32 35 36 39 |....EF=0|.5522569|
|00001520| 34 34 0d 06 a4 0d 69 25 | 3d 30 3a 63 25 3d 30 0d |44....i%|=0:c%=0.|
|00001530| 06 ae 0e 69 6e 63 68 3d | 26 42 34 30 30 0d 06 b8 |...inch=|&B400...|
|00001540| 0d 70 6f 69 6e 74 3d 36 | 34 30 0d 06 c2 0c 63 6d |.point=6|40....cm|
|00001550| 3d 31 38 31 34 30 0d 06 | cc 0c 62 6c 61 63 6b 25 |=18140..|..black%|
|00001560| 3d 30 0d 06 d6 14 77 68 | 69 74 65 25 3d 26 46 46 |=0....wh|ite%=&FF|
|00001570| 46 46 46 46 30 30 0d 06 | e0 0c 6e 6f 6e 65 25 3d |FFFF00..|..none%=|
|00001580| 2d 31 0d 06 ea 05 e1 0d | 06 f4 04 0d 06 fe 12 dd |-1......|........|
|00001590| f2 69 6e 69 74 63 61 6c | 65 6e 64 61 72 0d 07 08 |.initcal|endar...|
|000015a0| 35 de 4a 24 28 36 29 2c | 61 28 36 2b 33 31 29 2c |5.J$(6),|a(6+31),|
|000015b0| 62 28 36 2b 33 31 29 2c | 63 28 36 2b 33 31 29 2c |b(6+31),|c(6+31),|
|000015c0| 64 28 36 2b 33 31 29 2c | 63 6c 6f 63 6b 25 20 31 |d(6+31),|clock% 1|
|000015d0| 30 30 0d 07 12 24 3f 63 | 6c 6f 63 6b 25 3d 31 3a |00...$?c|lock%=1:|
|000015e0| c8 99 20 22 4f 53 5f 57 | 6f 72 64 22 2c 31 34 2c |.. "OS_W|ord",14,|
|000015f0| 63 6c 6f 63 6b 25 0d 07 | 1c 2b 4a 24 28 29 3d 22 |clock%..|.+J$()="|
|00001600| 4c 75 22 2c 22 4d 61 22 | 2c 22 4d 65 22 2c 22 4a |Lu","Ma"|,"Me","J|
|00001610| 65 22 2c 22 56 65 22 2c | 22 53 61 22 2c 22 44 69 |e","Ve",|"Sa","Di|
|00001620| 22 0d 07 26 18 6d 6f 6e | 74 68 25 3d bb c3 7e 28 |"..&.mon|th%=..~(|
|00001630| 63 6c 6f 63 6b 25 3f 31 | 29 0d 07 30 38 79 65 61 |clock%?1|)..08yea|
|00001640| 72 25 3d 31 39 30 30 2b | bb c3 7e 28 3f 63 6c 6f |r%=1900+|..~(?clo|
|00001650| 63 6b 25 29 3a e7 3f 63 | 6c 6f 63 6b 25 3c 31 34 |ck%):.?c|lock%<14|
|00001660| 37 3a 79 65 61 72 25 3d | 79 65 61 72 25 2b 31 30 |7:year%=|year%+10|
|00001670| 30 0d 07 3a 09 75 3d 2e | 35 35 0d 07 44 14 24 6d |0..:.u=.|55..D.$m|
|00001680| 6f 6e 74 68 69 25 3d c3 | 6d 6f 6e 74 68 25 0d 07 |onthi%=.|month%..|
|00001690| 4e 12 24 79 65 61 72 69 | 25 3d c3 79 65 61 72 25 |N.$yeari|%=.year%|
|000016a0| 0d 07 58 0b 24 75 69 25 | 3d c3 75 0d 07 62 29 24 |..X.$ui%|=.u..b)$|
|000016b0| 74 65 78 74 73 61 76 65 | 25 3d 70 72 65 66 69 78 |textsave|%=prefix|
|000016c0| 24 2b c3 6d 6f 6e 74 68 | 25 2b 22 2f 22 2b c3 79 |$+.month|%+"/"+.y|
|000016d0| 65 61 72 25 0d 07 6c 1a | f4 20 46 4f 4e 43 54 49 |ear%..l.|. FONCTI|
|000016e0| 4f 4e 53 20 43 41 4c 45 | 4e 44 52 49 45 52 0d 07 |ONS CALE|NDRIER..|
|000016f0| 76 1d f4 20 44 27 61 70 | 72 65 73 20 6c 65 20 63 |v.. D'ap|res le c|
|00001700| 6f 6d 70 74 65 2d 72 65 | 6e 64 75 0d 07 80 23 f4 |ompte-re|ndu...#.|
|00001710| 20 64 65 20 6c 27 65 63 | 6f 6c 65 20 64 27 65 74 | de l'ec|ole d'et|
|00001720| 65 20 64 27 61 73 74 72 | 6f 6e 6f 6d 69 65 0d 07 |e d'astr|onomie..|
|00001730| 8a 23 f4 20 64 65 20 47 | 72 61 73 73 65 20 32 37 |.#. de G|rasse 27|
|00001740| 20 61 6f 75 74 2f 35 20 | 73 65 70 74 65 6d 62 72 | aout/5 |septembr|
|00001750| 65 0d 07 94 15 f4 20 64 | 65 20 6c 27 61 6e 6e 65 |e..... d|e l'anne|
|00001760| 65 20 31 39 38 30 0d 07 | 9e 1c f4 20 28 43 29 20 |e 1980..|... (C) |
|00001770| 4a 65 61 6e 20 43 6c 61 | 75 64 65 20 50 49 43 41 |Jean Cla|ude PICA|
|00001780| 52 44 0d 07 a8 1d f4 20 | 73 61 6d 65 64 69 20 35 |RD..... |samedi 5|
|00001790| 20 73 65 70 74 65 6d 62 | 72 65 20 31 39 38 37 0d | septemb|re 1987.|
|000017a0| 07 b2 04 0d 07 bc 09 f7 | 20 2b 31 30 0d 07 c6 19 |........| +10....|
|000017b0| de 6c 65 6e 67 68 74 5f | 6f 66 5f 6d 6f 6e 74 68 |.lenght_|of_month|
|000017c0| 25 28 31 32 29 0d 07 d0 | 0f de 6d 6f 6e 74 68 24 |%(12)...|..month$|
|000017d0| 28 31 32 29 0d 07 da 0b | de 6a 73 24 28 36 29 0d |(12)....|.js$(6).|
|000017e0| 07 e4 0c e3 49 25 3d 31 | b8 31 32 0d 07 ee 0f f3 |....I%=1|.12.....|
|000017f0| 6d 6f 6e 74 68 24 28 49 | 25 29 0d 07 f8 05 ed 0d |month$(I|%)......|
|00001800| 08 02 0c e3 49 25 3d 31 | b8 31 32 0d 08 0c 19 f3 |....I%=1|.12.....|
|00001810| 6c 65 6e 67 68 74 5f 6f | 66 5f 6d 6f 6e 74 68 25 |lenght_o|f_month%|
|00001820| 28 49 25 29 0d 08 16 05 | ed 0d 08 20 0b e3 49 25 |(I%)....|... ..I%|
|00001830| 3d 30 b8 36 0d 08 2a 0d | f3 20 6a 73 24 28 49 25 |=0.6..*.|. js$(I%|
|00001840| 29 0d 08 34 05 ed 0d 08 | 3e 05 e1 0d 08 48 72 dc |)..4....|>....Hr.|
|00001850| 20 22 4a 61 6e 76 69 65 | 72 22 2c 22 46 e9 76 72 | "Janvie|r","F.vr|
|00001860| 69 65 72 22 2c 22 4d 61 | 72 73 22 2c 22 41 76 72 |ier","Ma|rs","Avr|
|00001870| 69 6c 22 2c 22 4d 61 69 | 22 2c 22 4a 75 69 6e 22 |il","Mai|","Juin"|
|00001880| 2c 22 4a 75 69 6c 6c 65 | 74 22 2c 22 41 6f fb 74 |,"Juille|t","Ao.t|
|00001890| 22 2c 22 53 65 70 74 65 | 6d 62 72 65 22 2c 22 4f |","Septe|mbre","O|
|000018a0| 63 74 6f 62 72 65 22 2c | 22 4e 6f 76 65 6d 62 72 |ctobre",|"Novembr|
|000018b0| 65 22 2c 22 44 e9 63 65 | 6d 62 72 65 22 0d 08 52 |e","D.ce|mbre"..R|
|000018c0| 28 dc 33 31 2c 32 38 2c | 33 31 2c 33 30 2c 33 31 |(.31,28,|31,30,31|
|000018d0| 2c 33 30 2c 33 31 2c 33 | 31 2c 33 30 2c 33 31 2c |,30,31,3|1,30,31,|
|000018e0| 33 30 2c 33 31 0d 08 5c | 21 dc 20 44 49 4d 2c 6c |30,31..\|!. DIM,l|
|000018f0| 75 6e 2c 6d 61 72 2c 6d | 65 72 2c 6a 65 75 2c 76 |un,mar,m|er,jeu,v|
|00001900| 65 6e 2c 73 61 6d 0d 08 | 66 04 0d 08 70 19 dd 20 |en,sam..|f...p.. |
|00001910| f2 64 72 61 77 66 69 6c | 65 5f 73 74 61 72 74 28 |.drawfil|e_start(|
|00001920| 44 24 29 0d 08 7a 0c 63 | 25 3d ae 28 44 24 29 0d |D$)..z.c|%=.(D$).|
|00001930| 08 84 2c e7 20 63 25 3d | 30 20 8c 20 85 20 31 32 |..,. c%=|0 . . 12|
|00001940| 33 34 2c 22 43 61 6e 27 | 74 20 6f 70 65 6e 20 6f |34,"Can'|t open o|
|00001950| 75 74 70 75 74 20 66 69 | 6c 65 22 0d 08 8e 10 64 |utput fi|le"....d|
|00001960| 72 61 77 66 69 6c 65 24 | 3d 44 24 0d 08 98 28 f2 |rawfile$|=D$...(.|
|00001970| 70 75 74 77 28 26 37 37 | 36 31 37 32 34 34 29 3a |putw(&77|617244):|
|00001980| f2 70 75 74 77 28 32 30 | 31 29 3a f2 70 75 74 77 |.putw(20|1):.putw|
|00001990| 28 30 29 0d 08 a2 17 f2 | 70 75 74 73 31 32 28 22 |(0).....|puts12("|
|000019a0| 4d 61 6b 65 44 72 61 77 | 22 29 0d 08 ac 0b 6c 65 |MakeDraw|")....le|
|000019b0| 76 25 3d 2d 31 0d 08 b6 | 11 f2 68 65 61 64 5f 68 |v%=-1...|..head_h|
|000019c0| 65 72 65 28 b9 29 0d 08 | c0 05 e1 0d 08 ca 05 3a |ere(.)..|.......:|
|000019d0| 0d 08 d4 13 dd 20 f2 64 | 72 61 77 66 69 6c 65 5f |..... .d|rawfile_|
|000019e0| 65 6e 64 0d 08 de 45 e7 | 20 6c 65 76 25 3e 30 20 |end...E.| lev%>0 |
|000019f0| 8c 20 f1 22 57 61 72 6e | 69 6e 67 3a 20 44 72 61 |. ."Warn|ing: Dra|
|00001a00| 77 20 66 69 6c 65 20 63 | 6c 6f 73 65 64 20 77 69 |w file c|losed wi|
|00001a10| 74 68 20 6f 62 6a 65 63 | 74 28 73 29 20 75 6e 66 |th objec|t(s) unf|
|00001a20| 69 6e 69 73 68 65 64 22 | 0d 08 e8 0d f2 68 65 61 |inished"|.....hea|
|00001a30| 64 5f 6e 6f 77 0d 08 f2 | 0d d9 23 63 25 3a 63 25 |d_now...|..#c%:c%|
|00001a40| 3d 30 0d 08 fc 22 ff 28 | 22 53 65 74 54 79 70 65 |=0...".(|"SetType|
|00001a50| 20 22 2b 64 72 61 77 66 | 69 6c 65 24 2b 22 20 41 | "+drawf|ile$+" A|
|00001a60| 46 46 22 29 0d 09 06 05 | e1 0d 09 10 05 3a 0d 09 |FF")....|.....:..|
|00001a70| 1a 2b dd 20 f2 70 61 74 | 68 5f 73 74 61 72 74 28 |.+. .pat|h_start(|
|00001a80| 78 25 2c 79 25 2c 77 69 | 64 74 68 25 2c 6c 63 6f |x%,y%,wi|dth%,lco|
|00001a90| 6c 25 2c 66 63 6f 6c 25 | 29 0d 09 24 0c f2 70 75 |l%,fcol%|)..$..pu|
|00001aa0| 74 77 28 32 29 0d 09 2e | 11 f2 68 65 61 64 5f 68 |tw(2)...|..head_h|
|00001ab0| 65 72 65 28 b9 29 0d 09 | 38 17 f2 70 75 74 77 28 |ere(.)..|8..putw(|
|00001ac0| 66 63 6f 6c 25 29 3a f4 | 20 66 69 6c 6c 0d 09 42 |fcol%):.| fill..B|
|00001ad0| 19 f2 70 75 74 77 28 6c | 63 6f 6c 25 29 3a f4 20 |..putw(l|col%):. |
|00001ae0| 63 6f 6c 6f 75 72 0d 09 | 4c 19 f2 70 75 74 77 28 |colour..|L..putw(|
|00001af0| 77 69 64 74 68 25 29 3a | f4 20 77 69 64 74 68 0d |width%):|. width.|
|00001b00| 09 56 19 f2 70 75 74 77 | 28 30 29 3a f4 20 70 61 |.V..putw|(0):. pa|
|00001b10| 74 68 20 73 74 79 6c 65 | 0d 09 60 15 f2 70 61 74 |th style|..`..pat|
|00001b20| 68 5f 6d 6f 76 65 28 78 | 25 2c 79 25 29 0d 09 6a |h_move(x|%,y%)..j|
|00001b30| 05 e1 0d 09 74 05 3a 0d | 09 7e 17 dd 20 f2 70 61 |....t.:.|.~.. .pa|
|00001b40| 74 68 5f 6d 6f 76 65 28 | 78 25 2c 79 25 29 0d 09 |th_move(|x%,y%)..|
|00001b50| 88 0c f2 70 75 74 77 28 | 32 29 0d 09 92 11 f2 70 |...putw(|2).....p|
|00001b60| 75 74 78 79 28 78 25 2c | 79 25 29 0d 09 9c 05 e1 |utxy(x%,|y%).....|
|00001b70| 0d 09 a6 05 3a 0d 09 b0 | 17 dd 20 f2 70 61 74 68 |....:...|.. .path|
|00001b80| 5f 64 72 61 77 28 78 25 | 2c 79 25 29 0d 09 ba 0c |_draw(x%|,y%)....|
|00001b90| f2 70 75 74 77 28 38 29 | 0d 09 c4 11 f2 70 75 74 |.putw(8)|.....put|
|00001ba0| 78 79 28 78 25 2c 79 25 | 29 0d 09 ce 05 e1 0d 09 |xy(x%,y%|).......|
|00001bb0| d8 05 3a 0d 09 e2 2d dd | 20 f2 70 61 74 68 5f 62 |..:...-.| .path_b|
|00001bc0| 65 7a 69 65 72 28 78 63 | 31 25 2c 79 63 31 25 2c |ezier(xc|1%,yc1%,|
|00001bd0| 78 63 32 25 2c 79 63 32 | 25 2c 78 25 2c 79 25 29 |xc2%,yc2|%,x%,y%)|
|00001be0| 0d 09 ec 0c f2 70 75 74 | 77 28 36 29 0d 09 f6 15 |.....put|w(6)....|
|00001bf0| f2 70 75 74 78 79 28 78 | 63 31 25 2c 79 63 31 25 |.putxy(x|c1%,yc1%|
|00001c00| 29 0d 0a 00 15 f2 70 75 | 74 78 79 28 78 63 32 25 |).....pu|txy(xc2%|
|00001c10| 2c 79 63 32 25 29 0d 0a | 0a 11 f2 70 75 74 78 79 |,yc2%)..|...putxy|
|00001c20| 28 78 25 2c 79 25 29 0d | 0a 14 05 e1 0d 0a 1e 05 |(x%,y%).|........|
|00001c30| 3a 0d 0a 28 11 dd 20 f2 | 70 61 74 68 5f 63 6c 6f |:..(.. .|path_clo|
|00001c40| 73 65 0d 0a 32 0c f2 70 | 75 74 77 28 35 29 0d 0a |se..2..p|utw(5)..|
|00001c50| 3c 05 e1 0d 0a 46 05 3a | 0d 0a 50 0f dd 20 f2 70 |<....F.:|..P.. .p|
|00001c60| 61 74 68 5f 65 6e 64 0d | 0a 5a 0c f2 70 75 74 77 |ath_end.|.Z..putw|
|00001c70| 28 30 29 0d 0a 64 0d f2 | 68 65 61 64 5f 6e 6f 77 |(0)..d..|head_now|
|00001c80| 0d 0a 6e 05 e1 0d 0a 78 | 05 3a 0d 0a 82 2e dd 20 |..n....x|.:..... |
|00001c90| f2 65 6c 6c 69 70 73 65 | 28 78 25 2c 79 25 2c 77 |.ellipse|(x%,y%,w|
|00001ca0| 25 2c 68 25 2c 77 69 64 | 74 68 25 2c 6c 63 6f 6c |%,h%,wid|th%,lcol|
|00001cb0| 25 2c 66 63 6f 6c 25 29 | 0d 0a 8c 2c f2 70 61 74 |%,fcol%)|...,.pat|
|00001cc0| 68 5f 73 74 61 72 74 28 | 78 25 2c 79 25 2d 68 25 |h_start(|x%,y%-h%|
|00001cd0| 2c 77 69 64 74 68 25 2c | 6c 63 6f 6c 25 2c 66 63 |,width%,|lcol%,fc|
|00001ce0| 6f 6c 25 29 0d 0a 96 38 | f2 70 61 74 68 5f 62 65 |ol%)...8|.path_be|
|00001cf0| 7a 69 65 72 28 78 25 2b | 77 25 2a 45 46 2c 79 25 |zier(x%+|w%*EF,y%|
|00001d00| 2d 68 25 2c 78 25 2b 77 | 25 2c 79 25 2d 68 25 2a |-h%,x%+w|%,y%-h%*|
|00001d10| 45 46 2c 78 25 2b 77 25 | 2c 79 25 29 0d 0a a0 38 |EF,x%+w%|,y%)...8|
|00001d20| f2 70 61 74 68 5f 62 65 | 7a 69 65 72 28 78 25 2b |.path_be|zier(x%+|
|00001d30| 77 25 2c 79 25 2b 68 25 | 2a 45 46 2c 78 25 2b 77 |w%,y%+h%|*EF,x%+w|
|00001d40| 25 2a 45 46 2c 79 25 2b | 68 25 2c 78 25 2c 79 25 |%*EF,y%+|h%,x%,y%|
|00001d50| 2b 68 25 29 0d 0a aa 38 | f2 70 61 74 68 5f 62 65 |+h%)...8|.path_be|
|00001d60| 7a 69 65 72 28 78 25 2d | 77 25 2a 45 46 2c 79 25 |zier(x%-|w%*EF,y%|
|00001d70| 2b 68 25 2c 78 25 2d 77 | 25 2c 79 25 2b 68 25 2a |+h%,x%-w|%,y%+h%*|
|00001d80| 45 46 2c 78 25 2d 77 25 | 2c 79 25 29 0d 0a b4 38 |EF,x%-w%|,y%)...8|
|00001d90| f2 70 61 74 68 5f 62 65 | 7a 69 65 72 28 78 25 2d |.path_be|zier(x%-|
|00001da0| 77 25 2c 79 25 2d 68 25 | 2a 45 46 2c 78 25 2d 77 |w%,y%-h%|*EF,x%-w|
|00001db0| 25 2a 45 46 2c 79 25 2d | 68 25 2c 78 25 2c 79 25 |%*EF,y%-|h%,x%,y%|
|00001dc0| 2d 68 25 29 0d 0a be 0f | f2 70 61 74 68 5f 63 6c |-h%)....|.path_cl|
|00001dd0| 6f 73 65 0d 0a c8 0d f2 | 70 61 74 68 5f 65 6e 64 |ose.....|path_end|
|00001de0| 0d 0a d2 05 e1 0d 0a dc | 05 3a 0d 0a e6 12 dd 20 |........|.:..... |
|00001df0| f2 67 72 6f 75 70 5f 73 | 74 61 72 74 0d 0a f0 2d |.group_s|tart...-|
|00001e00| f4 20 67 72 6f 75 70 73 | 20 63 61 6e 6e 6f 74 20 |. groups| cannot |
|00001e10| 62 65 20 6e 65 73 74 65 | 64 20 69 6e 20 74 68 69 |be neste|d in thi|
|00001e20| 73 20 76 65 72 73 69 6f | 6e 0d 0a fa 0c f2 70 75 |s versio|n.....pu|
|00001e30| 74 77 28 36 29 0d 0b 04 | 11 f2 68 65 61 64 5f 68 |tw(6)...|..head_h|
|00001e40| 65 72 65 28 b9 29 0d 0b | 0e 14 f2 70 75 74 73 31 |ere(.)..|...puts1|
|00001e50| 32 28 22 67 72 6f 75 70 | 22 29 0d 0b 18 05 e1 0d |2("group|")......|
|00001e60| 0b 22 05 3a 0d 0b 2c 10 | dd 20 f2 67 72 6f 75 70 |.".:..,.|. .group|
|00001e70| 5f 65 6e 64 0d 0b 36 0d | f2 68 65 61 64 5f 6e 6f |_end..6.|.head_no|
|00001e80| 77 0d 0b 40 05 e1 0d 0b | 4a 05 3a 0d 0b 54 0b dd |w..@....|J.:..T..|
|00001e90| 20 f2 66 6f 6e 74 0d 0b | 5e 0c f2 70 75 74 77 28 | .font..|^..putw(|
|00001ea0| 30 29 0d 0b 68 11 f2 68 | 65 61 64 5f 68 65 72 65 |0)..h..h|ead_here|
|00001eb0| 28 a3 29 0d 0b 72 15 f2 | 70 75 74 73 28 bd 28 31 |(.)..r..|puts(.(1|
|00001ec0| 29 2b 66 6f 6e 74 24 29 | 0d 0b 7c 0a f2 61 6c 69 |)+font$)|..|..ali|
|00001ed0| 67 6e 0d 0b 86 0d f2 68 | 65 61 64 5f 6e 6f 77 0d |gn.....h|ead_now.|
|00001ee0| 0b 90 05 e1 0d 0b 9a 04 | 0d 0b a4 37 dd 20 f2 74 |........|...7. .t|
|00001ef0| 65 78 74 28 78 25 2c 79 | 25 2c 74 65 78 74 24 2c |ext(x%,y|%,text$,|
|00001f00| 78 73 69 7a 65 25 2c 79 | 73 69 7a 65 25 2c 66 6f |xsize%,y|size%,fo|
|00001f10| 6e 74 25 2c 63 6f 6c 25 | 2c 62 63 6f 6c 25 29 0d |nt%,col%|,bcol%).|
|00001f20| 0b ae 0c f2 70 75 74 77 | 28 31 29 0d 0b b8 11 f2 |....putw|(1).....|
|00001f30| 68 65 61 64 5f 68 65 72 | 65 28 a3 29 0d 0b c2 1b |head_her|e(.)....|
|00001f40| f2 70 75 74 78 79 28 78 | 25 2c 79 25 2d 79 73 69 |.putxy(x|%,y%-ysi|
|00001f50| 7a 65 25 2a 2e 35 29 0d | 0b cc 28 f2 70 75 74 78 |ze%*.5).|..(.putx|
|00001f60| 79 28 78 25 2b a9 28 74 | 65 78 74 24 29 2a 78 73 |y(x%+.(t|ext$)*xs|
|00001f70| 69 7a 65 25 2c 79 25 2b | 79 73 69 7a 65 25 29 0d |ize%,y%+|ysize%).|
|00001f80| 0b d6 0f f2 70 75 74 77 | 28 63 6f 6c 25 29 0d 0b |....putw|(col%)..|
|00001f90| e0 10 f2 70 75 74 77 28 | 62 63 6f 6c 25 29 0d 0b |...putw(|bcol%)..|
|00001fa0| ea 10 f2 70 75 74 77 28 | 66 6f 6e 74 25 29 0d 0b |...putw(|font%)..|
|00001fb0| f4 1f f2 70 75 74 77 28 | 78 73 69 7a 65 25 29 3a |...putw(|xsize%):|
|00001fc0| f2 70 75 74 77 28 79 73 | 69 7a 65 25 29 0d 0b fe |.putw(ys|ize%)...|
|00001fd0| 11 f2 70 75 74 78 79 28 | 78 25 2c 79 25 29 0d 0c |..putxy(|x%,y%)..|
|00001fe0| 08 17 f2 70 75 74 73 28 | 74 65 78 74 24 29 3a f2 |...puts(|text$):.|
|00001ff0| 61 6c 69 67 6e 0d 0c 12 | 0d f2 68 65 61 64 5f 6e |align...|..head_n|
|00002000| 6f 77 0d 0c 1c 05 e1 0d | 0c 26 05 3a 0d 0c 30 14 |ow......|.&.:..0.|
|00002010| dd 20 a4 63 6f 6c 28 52 | 25 2c 47 25 2c 42 25 29 |. .col(R|%,G%,B%)|
|00002020| 0d 0c 3a 1e 3d 28 52 25 | 3c 3c 38 29 2b 28 47 25 |..:.=(R%|<<8)+(G%|
|00002030| 3c 3c 31 36 29 2b 28 42 | 25 3c 3c 32 34 29 0d 0c |<<16)+(B|%<<24)..|
|00002040| 44 05 3a 0d 0c 4e 0f dd | 20 f2 70 75 74 77 28 41 |D.:..N..| .putw(A|
|00002050| 25 29 0d 0c 58 11 d5 23 | 63 25 2c 41 25 20 80 20 |%)..X..#|c%,A% . |
|00002060| 26 46 46 0d 0c 62 17 d5 | 23 63 25 2c 28 41 25 3e |&FF..b..|#c%,(A%>|
|00002070| 3e 3e 38 29 20 80 20 26 | 46 46 0d 0c 6c 18 d5 23 |>>8) . &|FF..l..#|
|00002080| 63 25 2c 28 41 25 3e 3e | 3e 31 36 29 20 80 20 26 |c%,(A%>>|>16) . &|
|00002090| 46 46 0d 0c 76 18 d5 23 | 63 25 2c 28 41 25 3e 3e |FF..v..#|c%,(A%>>|
|000020a0| 3e 32 34 29 20 80 20 26 | 46 46 0d 0c 80 05 e1 0d |>24) . &|FF......|
|000020b0| 0c 8a 05 3a 0d 0c 94 11 | dd 20 f2 70 75 74 73 31 |...:....|. .puts1|
|000020c0| 32 28 41 24 29 0d 0c 9e | 08 ea 20 41 25 0d 0c a8 |2(A$)...|.. A%...|
|000020d0| 12 41 24 3d 41 24 2b c4 | 31 32 2c 22 20 22 29 0d |.A$=A$+.|12," ").|
|000020e0| 0c b2 23 e3 20 41 25 3d | 31 20 b8 20 31 32 3a d5 |..#. A%=|1 . 12:.|
|000020f0| 23 63 25 2c 97 28 c1 41 | 24 2c 41 25 2c 31 29 29 |#c%,.(.A|$,A%,1))|
|00002100| 3a ed 0d 0c bc 05 e1 0d | 0c c6 05 3a 0d 0c d0 0f |:.......|...:....|
|00002110| dd 20 f2 70 75 74 73 28 | 41 24 29 0d 0c da 08 ea |. .puts(|A$).....|
|00002120| 20 41 25 0d 0c e4 26 e3 | 20 41 25 3d 31 20 b8 20 | A%...&.| A%=1 . |
|00002130| a9 28 41 24 29 3a d5 23 | 63 25 2c 97 28 c1 41 24 |.(A$):.#|c%,.(.A$|
|00002140| 2c 41 25 2c 31 29 29 3a | ed 0d 0c ee 0a d5 23 63 |,A%,1)):|......#c|
|00002150| 25 2c 30 0d 0c f8 05 e1 | 0d 0d 02 05 3a 0d 0d 0c |%,0.....|....:...|
|00002160| 16 dd 20 f2 68 65 61 64 | 5f 68 65 72 65 28 62 6f |.. .head|_here(bo|
|00002170| 78 25 29 0d 0d 16 56 e7 | 20 6c 65 76 25 3d 6d 61 |x%)...V.| lev%=ma|
|00002180| 78 6c 65 76 25 20 8c 20 | 85 20 31 32 33 34 2c 22 |xlev% . |. 1234,"|
|00002190| 54 6f 6f 20 6d 61 6e 79 | 20 6e 65 73 74 65 64 20 |Too many| nested |
|000021a0| 67 72 6f 75 70 73 2e 20 | 20 45 64 69 74 20 70 72 |groups. | Edit pr|
|000021b0| 6f 67 72 61 6d 20 74 6f | 20 69 6e 63 72 65 61 73 |ogram to| increas|
|000021c0| 65 20 6c 69 6d 69 74 2e | 22 0d 0d 20 0b 6c 65 76 |e limit.|".. .lev|
|000021d0| 25 2b 3d 31 0d 0d 2a 13 | 62 6f 78 25 28 6c 65 76 |%+=1..*.|box%(lev|
|000021e0| 25 29 3d 62 6f 78 25 0d | 0d 34 15 66 69 72 73 74 |%)=box%.|.4.first|
|000021f0| 25 28 6c 65 76 25 29 3d | 8f 23 63 25 0d 0d 3e 17 |%(lev%)=|.#c%..>.|
|00002200| e7 20 6c 65 76 25 3e 30 | 20 8c 20 f2 70 75 74 77 |. lev%>0| . .putw|
|00002210| 28 30 29 0d 0d 48 0c e7 | 20 62 6f 78 25 20 8c 0d |(0)..H..| box% ..|
|00002220| 0d 52 16 20 f2 70 75 74 | 77 28 30 29 3a f2 70 75 |.R. .put|w(0):.pu|
|00002230| 74 77 28 30 29 0d 0d 5c | 16 20 f2 70 75 74 77 28 |tw(0)..\|. .putw(|
|00002240| 30 29 3a f2 70 75 74 77 | 28 30 29 0d 0d 66 05 cd |0):.putw|(0)..f..|
|00002250| 0d 0d 70 1f 6c 25 28 6c | 65 76 25 29 3d 62 69 67 |..p.l%(l|ev%)=big|
|00002260| 25 3a 62 25 28 6c 65 76 | 25 29 3d 62 69 67 25 0d |%:b%(lev|%)=big%.|
|00002270| 0d 7a 21 72 25 28 6c 65 | 76 25 29 3d 2d 62 69 67 |.z!r%(le|v%)=-big|
|00002280| 25 3a 74 25 28 6c 65 76 | 25 29 3d 2d 62 69 67 25 |%:t%(lev|%)=-big%|
|00002290| 0d 0d 84 05 e1 0d 0d 8e | 05 3a 0d 0d 98 0f dd 20 |........|.:..... |
|000022a0| f2 68 65 61 64 5f 6e 6f | 77 0d 0d a2 0a ea 20 65 |.head_no|w..... e|
|000022b0| 6e 64 25 0d 0d ac 4a e7 | 20 6c 65 76 25 3c 30 20 |nd%...J.| lev%<0 |
|000022c0| 8c 20 f1 22 57 61 72 6e | 69 6e 67 3a 20 61 74 74 |. ."Warn|ing: att|
|000022d0| 65 6d 70 74 20 74 6f 20 | 65 6e 64 20 6d 6f 72 65 |empt to |end more|
|000022e0| 20 6f 62 6a 65 63 74 73 | 20 74 68 61 6e 20 77 65 | objects| than we|
|000022f0| 72 65 20 73 74 61 72 74 | 65 64 22 3a e1 0d 0d b6 |re start|ed":....|
|00002300| 0d 65 6e 64 25 3d 8f 23 | 63 25 0d 0d c0 15 cf 23 |.end%=.#|c%.....#|
|00002310| 63 25 3d 66 69 72 73 74 | 25 28 6c 65 76 25 29 0d |c%=first|%(lev%).|
|00002320| 0d ca 29 e7 20 6c 65 76 | 25 3e 30 20 8c 20 f2 70 |..). lev|%>0 . .p|
|00002330| 75 74 77 28 65 6e 64 25 | 2d 66 69 72 73 74 25 28 |utw(end%|-first%(|
|00002340| 6c 65 76 25 29 2b 34 29 | 0d 0d d4 12 e7 20 62 6f |lev%)+4)|..... bo|
|00002350| 78 25 28 6c 65 76 25 29 | 20 8c 0d 0d de 24 20 f2 |x%(lev%)| ....$ .|
|00002360| 70 75 74 77 28 6c 25 28 | 6c 65 76 25 29 29 3a f2 |putw(l%(|lev%)):.|
|00002370| 70 75 74 77 28 62 25 28 | 6c 65 76 25 29 29 0d 0d |putw(b%(|lev%))..|
|00002380| e8 28 20 f2 70 75 74 77 | 28 72 25 28 6c 65 76 25 |.( .putw|(r%(lev%|
|00002390| 29 2b 31 29 3a f2 70 75 | 74 77 28 74 25 28 6c 65 |)+1):.pu|tw(t%(le|
|000023a0| 76 25 29 2b 31 29 0d 0d | f2 05 cd 0d 0d fc 0e e7 |v%)+1)..|........|
|000023b0| 20 6c 65 76 25 3e 30 20 | 8c 0d 0e 06 0c 20 6c 65 | lev%>0 |..... le|
|000023c0| 76 25 2d 3d 31 0d 0e 10 | 30 20 e7 20 6c 25 28 6c |v%-=1...|0 . l%(l|
|000023d0| 65 76 25 2b 31 29 3c 6c | 25 28 6c 65 76 25 29 20 |ev%+1)<l|%(lev%) |
|000023e0| 8c 20 6c 25 28 6c 65 76 | 25 29 3d 6c 25 28 6c 65 |. l%(lev|%)=l%(le|
|000023f0| 76 25 2b 31 29 0d 0e 1a | 30 20 e7 20 62 25 28 6c |v%+1)...|0 . b%(l|
|00002400| 65 76 25 2b 31 29 3c 62 | 25 28 6c 65 76 25 29 20 |ev%+1)<b|%(lev%) |
|00002410| 8c 20 62 25 28 6c 65 76 | 25 29 3d 62 25 28 6c 65 |. b%(lev|%)=b%(le|
|00002420| 76 25 2b 31 29 0d 0e 24 | 30 20 e7 20 72 25 28 6c |v%+1)..$|0 . r%(l|
|00002430| 65 76 25 2b 31 29 3e 72 | 25 28 6c 65 76 25 29 20 |ev%+1)>r|%(lev%) |
|00002440| 8c 20 72 25 28 6c 65 76 | 25 29 3d 72 25 28 6c 65 |. r%(lev|%)=r%(le|
|00002450| 76 25 2b 31 29 0d 0e 2e | 30 20 e7 20 74 25 28 6c |v%+1)...|0 . t%(l|
|00002460| 65 76 25 2b 31 29 3e 74 | 25 28 6c 65 76 25 29 20 |ev%+1)>t|%(lev%) |
|00002470| 8c 20 74 25 28 6c 65 76 | 25 29 3d 74 25 28 6c 65 |. t%(lev|%)=t%(le|
|00002480| 76 25 2b 31 29 0d 0e 38 | 05 cd 0d 0e 42 0d cf 23 |v%+1)..8|....B..#|
|00002490| 63 25 3d 65 6e 64 25 0d | 0e 4c 05 e1 0d 0e 56 05 |c%=end%.|.L....V.|
|000024a0| 3a 0d 0e 60 13 dd 20 f2 | 70 75 74 78 79 28 78 25 |:..`.. .|putxy(x%|
|000024b0| 2c 79 25 29 0d 0e 6a 17 | f2 70 75 74 77 28 78 25 |,y%)..j.|.putw(x%|
|000024c0| 29 3a f2 70 75 74 77 28 | 79 25 29 0d 0e 74 1f e7 |):.putw(|y%)..t..|
|000024d0| 20 78 25 3c 6c 25 28 6c | 65 76 25 29 20 8c 20 6c | x%<l%(l|ev%) . l|
|000024e0| 25 28 6c 65 76 25 29 3d | 78 25 0d 0e 7e 1f e7 20 |%(lev%)=|x%..~.. |
|000024f0| 79 25 3c 62 25 28 6c 65 | 76 25 29 20 8c 20 62 25 |y%<b%(le|v%) . b%|
|00002500| 28 6c 65 76 25 29 3d 79 | 25 0d 0e 88 1f e7 20 78 |(lev%)=y|%..... x|
|00002510| 25 3e 72 25 28 6c 65 76 | 25 29 20 8c 20 72 25 28 |%>r%(lev|%) . r%(|
|00002520| 6c 65 76 25 29 3d 78 25 | 0d 0e 92 1f e7 20 79 25 |lev%)=x%|..... y%|
|00002530| 3e 74 25 28 6c 65 76 25 | 29 20 8c 20 74 25 28 6c |>t%(lev%|) . t%(l|
|00002540| 65 76 25 29 3d 79 25 0d | 0e 9c 05 e1 0d 0e a6 05 |ev%)=y%.|........|
|00002550| 3a 0d 0e b0 0c dd 20 f2 | 61 6c 69 67 6e 0d 0e ba |:..... .|align...|
|00002560| 18 c8 95 20 8f 23 63 25 | 20 80 20 33 3a d5 23 63 |... .#c%| . 3:.#c|
|00002570| 25 2c 30 3a ce 0d 0e c4 | 05 e1 0d 0e ce 05 3a 0d |%,0:....|......:.|
|00002580| 0e d8 0b dd 20 a4 77 6f | 72 64 0d 0e e2 36 3d 9a |.... .wo|rd...6=.|
|00002590| 23 69 25 20 84 20 28 26 | 31 30 30 2a 9a 23 69 25 |#i% . (&|100*.#i%|
|000025a0| 29 20 84 20 28 26 31 30 | 30 30 30 2a 9a 23 69 25 |) . (&10|000*.#i%|
|000025b0| 29 20 84 20 28 28 9a 23 | 69 25 29 3c 3c 32 34 29 |) . ((.#|i%)<<24)|
|000025c0| 0d 0e ec 04 0d 0e f6 19 | f4 20 46 69 6e 64 20 6e |........|. Find n|
|000025d0| 75 6d 62 65 72 20 6f 66 | 20 64 61 79 73 0d 0f 00 |umber of| days...|
|000025e0| 14 f4 20 73 69 6e 63 65 | 20 31 20 31 20 31 35 38 |.. since| 1 1 158|
|000025f0| 33 0d 0f 0a 27 dd a4 64 | 61 79 73 5f 67 72 65 67 |3...'..d|ays_greg|
|00002600| 6f 72 69 65 6e 28 64 61 | 79 25 2c 6d 6f 6e 74 68 |orien(da|y%,month|
|00002610| 25 2c 79 65 61 72 25 29 | 0d 0f 14 07 ea 4e 25 0d |%,year%)|.....N%.|
|00002620| 0f 1e 1e e7 79 65 61 72 | 25 3c 31 35 38 33 84 79 |....year|%<1583.y|
|00002630| 65 61 72 25 3e 34 38 38 | 31 3a 3d 2d 31 0d 0f 28 |ear%>488|1:=-1..(|
|00002640| 1b e7 6d 6f 6e 74 68 25 | 3c 30 84 6d 6f 6e 74 68 |..month%|<0.month|
|00002650| 25 3e 31 32 3a 3d 2d 31 | 0d 0f 32 13 e7 6d 6f 6e |%>12:=-1|..2..mon|
|00002660| 74 68 25 3c 3e 32 8c 8d | 44 46 4f 0d 0f 3c 24 e7 |th%<>2..|DFO..<$.|
|00002670| 64 61 79 25 3d 32 39 80 | a4 6c 65 61 70 5f 79 65 |day%=29.|.leap_ye|
|00002680| 61 72 28 79 65 61 72 25 | 29 3d 30 3a 3d 2d 31 0d |ar(year%|)=0:=-1.|
|00002690| 0f 46 3d 4e 25 3d 33 36 | 35 2a 28 79 65 61 72 25 |.F=N%=36|5*(year%|
|000026a0| 2d 31 35 38 33 29 2b 28 | 79 65 61 72 25 2d 31 35 |-1583)+(|year%-15|
|000026b0| 38 31 29 81 34 2d 79 65 | 61 72 25 81 31 30 30 2b |81).4-ye|ar%.100+|
|000026c0| 79 65 61 72 25 81 34 30 | 30 2b 31 32 0d 0f 50 17 |year%.40|0+12..P.|
|000026d0| 4e 25 3d 4e 25 2b 33 30 | 2a 28 6d 6f 6e 74 68 25 |N%=N%+30|*(month%|
|000026e0| 2d 31 29 0d 0f 5a 27 e7 | 6d 6f 6e 74 68 25 3d 32 |-1)..Z'.|month%=2|
|000026f0| 84 6d 6f 6e 74 68 25 3d | 36 84 6d 6f 6e 74 68 25 |.month%=|6.month%|
|00002700| 3d 37 3a 4e 25 3d 4e 25 | 2b 31 0d 0f 64 15 e7 6d |=7:N%=N%|+1..d..m|
|00002710| 6f 6e 74 68 25 3d 33 3a | 4e 25 3d 4e 25 2d 31 0d |onth%=3:|N%=N%-1.|
|00002720| 0f 6e 15 e7 6d 6f 6e 74 | 68 25 3d 38 3a 4e 25 3d |.n..mont|h%=8:N%=|
|00002730| 4e 25 2b 32 0d 0f 78 1f | e7 6d 6f 6e 74 68 25 3d |N%+2..x.|.month%=|
|00002740| 39 84 6d 6f 6e 74 68 25 | 3d 31 30 3a 4e 25 3d 4e |9.month%|=10:N%=N|
|00002750| 25 2b 33 0d 0f 82 20 e7 | 6d 6f 6e 74 68 25 3d 31 |%+3... .|month%=1|
|00002760| 31 84 6d 6f 6e 74 68 25 | 3d 31 32 3a 4e 25 3d 4e |1.month%|=12:N%=N|
|00002770| 25 2b 34 0d 0f 8c 25 e7 | 6d 6f 6e 74 68 25 3e 32 |%+4...%.|month%>2|
|00002780| 3a 4e 25 3d 4e 25 2b a4 | 6c 65 61 70 5f 79 65 61 |:N%=N%+.|leap_yea|
|00002790| 72 28 79 65 61 72 25 29 | 0d 0f 96 0e 3d 4e 25 2b |r(year%)|....=N%+|
|000027a0| 64 61 79 25 2d 31 0d 0f | a0 05 3a 0d 0f aa 16 dd |day%-1..|..:.....|
|000027b0| a4 6c 65 61 70 5f 79 65 | 61 72 28 79 65 61 72 25 |.leap_ye|ar(year%|
|000027c0| 29 0d 0f b4 16 e7 79 65 | 61 72 25 83 31 30 30 3c |).....ye|ar%.100<|
|000027d0| 3e 30 8c 8d 64 48 4f 0d | 0f be 18 e7 79 65 61 72 |>0..dHO.|....year|
|000027e0| 25 83 34 30 30 3d 30 8c | 3d 2d b9 3a 8b 3d a3 0d |%.400=0.|=-.:.=..|
|000027f0| 0f c8 16 e7 79 65 61 72 | 25 83 34 3d 30 8c 3d 2d |....year|%.4=0.=-|
|00002800| b9 3a 8b 3d a3 0d 0f d2 | 05 3a 0d 0f dc 24 dd a4 |.:.=....|.:...$..|
|00002810| 64 61 79 5f 6f 66 5f 77 | 65 65 6b 28 64 61 79 25 |day_of_w|eek(day%|
|00002820| 2c 6d 6f 6e 74 68 25 2c | 79 65 61 72 25 29 0d 0f |,month%,|year%)..|
|00002830| e6 2d 3d 28 a4 64 61 79 | 73 5f 67 72 65 67 6f 72 |.-=(.day|s_gregor|
|00002840| 69 65 6e 28 64 61 79 25 | 2c 6d 6f 6e 74 68 25 2c |ien(day%|,month%,|
|00002850| 79 65 61 72 25 29 2b 36 | 29 83 37 0d 0f f0 04 0d |year%)+6|).7.....|
|00002860| 0f fa 2c dd f2 64 72 61 | 77 5f 63 61 6c 65 6e 64 |..,..dra|w_calend|
|00002870| 61 72 28 6d 6f 6e 74 68 | 25 2c 79 65 61 72 25 2c |ar(month|%,year%,|
|00002880| 75 2c 66 6f 6e 74 24 2c | 66 24 29 0d 10 04 15 c8 |u,font$,|f$).....|
|00002890| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|000028a0| 0d 10 0e 33 c8 99 20 22 | 46 6f 6e 74 5f 46 69 6e |...3.. "|Font_Fin|
|000028b0| 64 46 6f 6e 74 22 2c 2c | 66 6f 6e 74 24 2c 31 2c |dFont",,|font$,1,|
|000028c0| 31 2c 30 2c 30 20 b8 20 | 66 6f 6e 74 68 61 6e 64 |1,0,0 . |fonthand|
|000028d0| 6c 65 25 0d 10 18 38 6d | 69 6e 78 3d 31 45 36 3a |le%...8m|inx=1E6:|
|000028e0| 6d 69 6e 79 3d 31 45 36 | 3a 6d 61 78 78 3d 2d 31 |miny=1E6|:maxx=-1|
|000028f0| 45 36 3a 6d 61 78 79 3d | 2d 31 45 36 3a 58 3d 2d |E6:maxy=|-1E6:X=-|
|00002900| 31 45 36 3a 59 3d 2d 31 | 45 2d 36 0d 10 22 0b e3 |1E6:Y=-1|E-6.."..|
|00002910| 58 25 3d 30 b8 36 0d 10 | 2c 46 c8 99 20 22 46 6f |X%=0.6..|,F.. "Fo|
|00002920| 6e 74 5f 53 74 72 69 6e | 67 42 42 6f 78 22 2c 66 |nt_Strin|gBBox",f|
|00002930| 6f 6e 74 68 61 6e 64 6c | 65 25 2c 4a 24 28 58 25 |onthandl|e%,J$(X%|
|00002940| 29 20 b8 20 2c 61 28 58 | 25 29 2c 62 28 58 25 29 |) . ,a(X|%),b(X%)|
|00002950| 2c 63 28 58 25 29 2c 64 | 28 58 25 29 0d 10 36 1a |,c(X%),d|(X%)..6.|
|00002960| e7 61 28 58 25 29 3c 6d | 69 6e 78 3a 6d 69 6e 78 |.a(X%)<m|inx:minx|
|00002970| 3d 61 28 58 25 29 0d 10 | 40 1a e7 62 28 58 25 29 |=a(X%)..|@..b(X%)|
|00002980| 3c 6d 69 6e 79 3a 6d 69 | 6e 79 3d 62 28 58 25 29 |<miny:mi|ny=b(X%)|
|00002990| 0d 10 4a 1a e7 63 28 58 | 25 29 3e 6d 61 78 78 3a |..J..c(X|%)>maxx:|
|000029a0| 6d 61 78 78 3d 63 28 58 | 25 29 0d 10 54 1a e7 64 |maxx=c(X|%)..T..d|
|000029b0| 28 58 25 29 3e 6d 61 78 | 79 3a 6d 61 78 79 3d 64 |(X%)>max|y:maxy=d|
|000029c0| 28 58 25 29 0d 10 5e 27 | 64 75 6d 6d 79 3d 63 28 |(X%)..^'|dummy=c(|
|000029d0| 58 25 29 2d 61 28 58 25 | 29 3a e7 20 64 75 6d 6d |X%)-a(X%|):. dumm|
|000029e0| 79 3e 58 3a 58 3d 64 75 | 6d 6d 79 0d 10 68 27 64 |y>X:X=du|mmy..h'd|
|000029f0| 75 6d 6d 79 3d 64 28 58 | 25 29 2d 62 28 58 25 29 |ummy=d(X|%)-b(X%)|
|00002a00| 3a e7 20 64 75 6d 6d 79 | 3e 59 3a 59 3d 64 75 6d |:. dummy|>Y:Y=dum|
|00002a10| 6d 79 0d 10 72 05 ed 0d | 10 7c 0c e3 58 25 3d 37 |my..r...|.|..X%=7|
|00002a20| b8 33 37 0d 10 86 47 c8 | 99 20 22 46 6f 6e 74 5f |.37...G.|. "Font_|
|00002a30| 53 74 72 69 6e 67 42 42 | 6f 78 22 2c 66 6f 6e 74 |StringBB|ox",font|
|00002a40| 68 61 6e 64 6c 65 25 2c | c3 28 58 25 2d 36 29 20 |handle%,|.(X%-6) |
|00002a50| b8 20 2c 61 28 58 25 29 | 2c 62 28 58 25 29 2c 63 |. ,a(X%)|,b(X%),c|
|00002a60| 28 58 25 29 2c 64 28 58 | 25 29 0d 10 90 1a e7 61 |(X%),d(X|%).....a|
|00002a70| 28 58 25 29 3c 6d 69 6e | 78 3a 6d 69 6e 78 3d 61 |(X%)<min|x:minx=a|
|00002a80| 28 58 25 29 0d 10 9a 1a | e7 62 28 58 25 29 3c 6d |(X%)....|.b(X%)<m|
|00002a90| 69 6e 79 3a 6d 69 6e 79 | 3d 62 28 58 25 29 0d 10 |iny:miny|=b(X%)..|
|00002aa0| a4 1a e7 63 28 58 25 29 | 3e 6d 61 78 78 3a 6d 61 |...c(X%)|>maxx:ma|
|00002ab0| 78 78 3d 63 28 58 25 29 | 0d 10 ae 1a e7 64 28 58 |xx=c(X%)|.....d(X|
|00002ac0| 25 29 3e 6d 61 78 79 3a | 6d 61 78 79 3d 64 28 58 |%)>maxy:|maxy=d(X|
|00002ad0| 25 29 0d 10 b8 27 64 75 | 6d 6d 79 3d 63 28 58 25 |%)...'du|mmy=c(X%|
|00002ae0| 29 2d 61 28 58 25 29 3a | e7 20 64 75 6d 6d 79 3e |)-a(X%):|. dummy>|
|00002af0| 58 3a 58 3d 64 75 6d 6d | 79 0d 10 c2 27 64 75 6d |X:X=dumm|y...'dum|
|00002b00| 6d 79 3d 64 28 58 25 29 | 2d 62 28 58 25 29 3a e7 |my=d(X%)|-b(X%):.|
|00002b10| 20 64 75 6d 6d 79 3e 59 | 3a 59 3d 64 75 6d 6d 79 | dummy>Y|:Y=dummy|
|00002b20| 0d 10 cc 05 ed 0d 10 d6 | 17 f2 64 72 61 77 66 69 |........|..drawfi|
|00002b30| 6c 65 5f 73 74 61 72 74 | 28 66 24 29 0d 10 e0 09 |le_start|(f$)....|
|00002b40| f2 66 6f 6e 74 0d 10 ea | 13 68 3d 32 2e 35 2a 75 |.font...|.h=2.5*u|
|00002b50| 3a 76 3d 31 2e 35 2a 75 | 0d 10 f4 32 48 3d 28 31 |:v=1.5*u|...2H=(1|
|00002b60| 30 30 30 2f 31 36 29 2a | 28 68 2a 2e 38 29 2f 58 |000/16)*|(h*.8)/X|
|00002b70| 3a 76 70 6f 73 3d 28 76 | 2d 2e 38 2a 48 2a 59 2a |:vpos=(v|-.8*H*Y*|
|00002b80| 31 36 2f 31 30 30 30 29 | 2f 32 0d 10 fe 1f 78 30 |16/1000)|/2....x0|
|00002b90| 3d 2e 35 2a 63 6d 2b 2e | 32 2a 75 3a 79 30 3d 2e |=.5*cm+.|2*u:y0=.|
|00002ba0| 35 2a 63 6d 2b 2e 32 2a | 75 0d 11 08 10 f2 67 72 |5*cm+.2*|u.....gr|
|00002bb0| 6f 75 70 5f 73 74 61 72 | 74 0d 11 12 25 58 31 3d |oup_star|t...%X1=|
|00002bc0| 37 2a 28 68 2b 2e 32 2a | 75 29 2b 78 30 3a 59 31 |7*(h+.2*|u)+x0:Y1|
|00002bd0| 3d 39 2a 28 76 2b 2e 32 | 2a 75 29 2b 79 30 0d 11 |=9*(v+.2|*u)+y0..|
|00002be0| 1c 3b f2 70 61 74 68 5f | 73 74 61 72 74 28 78 30 |.;.path_|start(x0|
|00002bf0| 2d 2e 32 2a 75 2c 79 30 | 2d 2e 32 2a 75 2c 30 2c |-.2*u,y0|-.2*u,0,|
|00002c00| 62 6c 61 63 6b 25 2c a4 | 63 6f 6c 28 32 30 30 2c |black%,.|col(200,|
|00002c10| 32 30 30 2c 32 30 30 29 | 29 0d 11 26 1a f2 70 61 |200,200)|)..&..pa|
|00002c20| 74 68 5f 64 72 61 77 28 | 78 30 2d 2e 32 2a 75 2c |th_draw(|x0-.2*u,|
|00002c30| 59 31 29 0d 11 30 15 f2 | 70 61 74 68 5f 64 72 61 |Y1)..0..|path_dra|
|00002c40| 77 28 58 31 2c 59 31 29 | 0d 11 3a 1a f2 70 61 74 |w(X1,Y1)|..:..pat|
|00002c50| 68 5f 64 72 61 77 28 58 | 31 2c 79 30 2d 2e 32 2a |h_draw(X|1,y0-.2*|
|00002c60| 75 29 0d 11 44 0f f2 70 | 61 74 68 5f 63 6c 6f 73 |u)..D..p|ath_clos|
|00002c70| 65 0d 11 4e 0d f2 70 61 | 74 68 5f 65 6e 64 0d 11 |e..N..pa|th_end..|
|00002c80| 58 31 f2 70 61 74 68 5f | 73 74 61 72 74 28 78 30 |X1.path_|start(x0|
|00002c90| 2c 37 2a 28 76 2b 2e 32 | 2a 75 29 2b 79 30 2c 30 |,7*(v+.2|*u)+y0,0|
|00002ca0| 2c 62 6c 61 63 6b 25 2c | 77 68 69 74 65 25 29 0d |,black%,|white%).|
|00002cb0| 11 62 25 f2 70 61 74 68 | 5f 64 72 61 77 28 58 31 |.b%.path|_draw(X1|
|00002cc0| 2d 2e 32 2a 75 2c 37 2a | 28 76 2b 2e 32 2a 75 29 |-.2*u,7*|(v+.2*u)|
|00002cd0| 2b 79 30 29 0d 11 6c 2a | f2 70 61 74 68 5f 64 72 |+y0)..l*|.path_dr|
|00002ce0| 61 77 28 58 31 2d 2e 32 | 2a 75 2c 38 2a 28 76 2b |aw(X1-.2|*u,8*(v+|
|00002cf0| 2e 32 2a 75 29 2b 79 30 | 2d 2e 32 2a 75 29 0d 11 |.2*u)+y0|-.2*u)..|
|00002d00| 76 25 f2 70 61 74 68 5f | 64 72 61 77 28 78 30 2c |v%.path_|draw(x0,|
|00002d10| 38 2a 28 76 2b 2e 32 2a | 75 29 2b 79 30 2d 2e 32 |8*(v+.2*|u)+y0-.2|
|00002d20| 2a 75 29 0d 11 80 0f f2 | 70 61 74 68 5f 63 6c 6f |*u).....|path_clo|
|00002d30| 73 65 0d 11 8a 0d f2 70 | 61 74 68 5f 65 6e 64 0d |se.....p|ath_end.|
|00002d40| 11 94 14 64 61 79 25 3d | 31 3a 58 25 3d 30 3a 59 |...day%=|1:X%=0:Y|
|00002d50| 25 3d 35 0d 11 9e 34 e7 | 20 58 25 3c 3e 28 a4 64 |%=5...4.| X%<>(.d|
|00002d60| 61 79 5f 6f 66 5f 77 65 | 65 6b 28 64 61 79 25 2c |ay_of_we|ek(day%,|
|00002d70| 6d 6f 6e 74 68 25 2c 79 | 65 61 72 25 29 2b 36 29 |month%,y|ear%)+6)|
|00002d80| 83 37 8c 8d 54 56 52 0d | 11 a8 27 58 31 3d 58 25 |.7..TVR.|..'X1=X%|
|00002d90| 2a 28 68 2b 2e 32 2a 75 | 29 2b 78 30 3a 59 31 3d |*(h+.2*u|)+x0:Y1=|
|00002da0| 59 25 2a 28 76 2b 2e 32 | 2a 75 29 2b 79 30 0d 11 |Y%*(v+.2|*u)+y0..|
|00002db0| b2 26 63 3d 77 68 69 74 | 65 25 3a e7 58 25 3d 36 |.&c=whit|e%:.X%=6|
|00002dc0| 3a 63 3d a4 63 6f 6c 28 | 32 33 38 2c 32 33 38 2c |:c=.col(|238,238,|
|00002dd0| 31 38 37 29 0d 11 bc 21 | f2 70 61 74 68 5f 73 74 |187)...!|.path_st|
|00002de0| 61 72 74 28 58 31 2c 59 | 31 2c 30 2c 62 6c 61 63 |art(X1,Y|1,0,blac|
|00002df0| 6b 25 2c 63 29 0d 11 c6 | 17 f2 70 61 74 68 5f 64 |k%,c)...|..path_d|
|00002e00| 72 61 77 28 58 31 2b 68 | 2c 59 31 29 0d 11 d0 19 |raw(X1+h|,Y1)....|
|00002e10| f2 70 61 74 68 5f 64 72 | 61 77 28 58 31 2b 68 2c |.path_dr|aw(X1+h,|
|00002e20| 59 31 2b 76 29 0d 11 da | 17 f2 70 61 74 68 5f 64 |Y1+v)...|..path_d|
|00002e30| 72 61 77 28 58 31 2c 59 | 31 2b 76 29 0d 11 e4 0f |raw(X1,Y|1+v)....|
|00002e40| f2 70 61 74 68 5f 63 6c | 6f 73 65 0d 11 ee 0d f2 |.path_cl|ose.....|
|00002e50| 70 61 74 68 5f 65 6e 64 | 0d 11 f8 29 68 70 6f 73 |path_end|...)hpos|
|00002e60| 3d 68 2d 28 68 2a 2e 38 | 29 2f 58 2a 28 63 28 64 |=h-(h*.8|)/X*(c(d|
|00002e70| 61 79 25 2b 36 29 2d 61 | 28 64 61 79 25 2b 36 29 |ay%+6)-a|(day%+6)|
|00002e80| 29 0d 12 02 51 f2 74 65 | 78 74 28 58 25 2a 28 68 |)...Q.te|xt(X%*(h|
|00002e90| 2b 2e 32 2a 75 29 2b 78 | 30 2b 68 70 6f 73 2d 2e |+.2*u)+x|0+hpos-.|
|00002ea0| 34 2a 75 2c 59 25 2a 28 | 76 2b 2e 32 2a 75 29 2b |4*u,Y%*(|v+.2*u)+|
|00002eb0| 79 30 2b 76 70 6f 73 2c | c3 64 61 79 25 2c 48 2c |y0+vpos,|.day%,H,|
|00002ec0| 48 2c 31 2c 62 6c 61 63 | 6b 25 2c 77 68 69 74 65 |H,1,blac|k%,white|
|00002ed0| 25 29 0d 12 0c 6f 64 61 | 79 25 2b 3d 31 3a e7 64 |%)...oda|y%+=1:.d|
|00002ee0| 61 79 25 3e 6c 65 6e 67 | 68 74 5f 6f 66 5f 6d 6f |ay%>leng|ht_of_mo|
|00002ef0| 6e 74 68 25 28 6d 6f 6e | 74 68 25 29 80 6d 6f 6e |nth%(mon|th%).mon|
|00002f00| 74 68 25 3c 3e 32 8c 8d | 54 6a 52 8b e7 64 61 79 |th%<>2..|TjR..day|
|00002f10| 25 3e 6c 65 6e 67 68 74 | 5f 6f 66 5f 6d 6f 6e 74 |%>lenght|_of_mont|
|00002f20| 68 25 28 6d 6f 6e 74 68 | 25 29 2b a4 6c 65 61 70 |h%(month|%)+.leap|
|00002f30| 5f 79 65 61 72 28 79 65 | 61 72 25 29 8c 8d 54 6a |_year(ye|ar%)..Tj|
|00002f40| 52 0d 12 16 16 58 25 2b | 3d 31 3a e7 58 25 3c 3e |R....X%+|=1:.X%<>|
|00002f50| 37 20 8c 8d 74 5e 51 0d | 12 20 14 58 25 3d 30 3a |7 ..t^Q.|. .X%=0:|
|00002f60| 59 25 2d 3d 31 3a e5 8d | 74 5e 51 0d 12 2a 0b e3 |Y%-=1:..|t^Q..*..|
|00002f70| 58 25 3d 30 b8 36 0d 12 | 34 26 58 31 3d 58 25 2a |X%=0.6..|4&X1=X%*|
|00002f80| 28 68 2b 2e 32 2a 75 29 | 2b 78 30 3a 59 31 3d 36 |(h+.2*u)|+x0:Y1=6|
|00002f90| 2a 28 76 2b 2e 32 2a 75 | 29 2b 79 30 0d 12 3e 26 |*(v+.2*u|)+y0..>&|
|00002fa0| 63 3d 77 68 69 74 65 25 | 3a e7 58 25 3d 36 3a 63 |c=white%|:.X%=6:c|
|00002fb0| 3d a4 63 6f 6c 28 32 33 | 38 2c 32 33 38 2c 31 38 |=.col(23|8,238,18|
|00002fc0| 37 29 0d 12 48 21 f2 70 | 61 74 68 5f 73 74 61 72 |7)..H!.p|ath_star|
|00002fd0| 74 28 58 31 2c 59 31 2c | 30 2c 62 6c 61 63 6b 25 |t(X1,Y1,|0,black%|
|00002fe0| 2c 63 29 0d 12 52 17 f2 | 70 61 74 68 5f 64 72 61 |,c)..R..|path_dra|
|00002ff0| 77 28 58 31 2b 68 2c 59 | 31 29 0d 12 5c 19 f2 70 |w(X1+h,Y|1)..\..p|
|00003000| 61 74 68 5f 64 72 61 77 | 28 58 31 2b 68 2c 59 31 |ath_draw|(X1+h,Y1|
|00003010| 2b 76 29 0d 12 66 17 f2 | 70 61 74 68 5f 64 72 61 |+v)..f..|path_dra|
|00003020| 77 28 58 31 2c 59 31 2b | 76 29 0d 12 70 0f f2 70 |w(X1,Y1+|v)..p..p|
|00003030| 61 74 68 5f 63 6c 6f 73 | 65 0d 12 7a 0d f2 70 61 |ath_clos|e..z..pa|
|00003040| 74 68 5f 65 6e 64 0d 12 | 84 25 68 70 6f 73 3d 28 |th_end..|.%hpos=(|
|00003050| 68 2d 28 68 2a 2e 38 29 | 2f 58 2a 28 63 28 58 25 |h-(h*.8)|/X*(c(X%|
|00003060| 29 2d 61 28 58 25 29 29 | 29 2f 32 0d 12 8e 4c f2 |)-a(X%))|)/2...L.|
|00003070| 74 65 78 74 28 58 25 2a | 28 68 2b 2e 32 2a 75 29 |text(X%*|(h+.2*u)|
|00003080| 2b 78 30 2b 68 70 6f 73 | 2c 36 2a 28 76 2b 2e 32 |+x0+hpos|,6*(v+.2|
|00003090| 2a 75 29 2b 79 30 2b 76 | 70 6f 73 2c 4a 24 28 58 |*u)+y0+v|pos,J$(X|
|000030a0| 25 29 2c 48 2c 48 2c 31 | 2c 62 6c 61 63 6b 25 2c |%),H,H,1|,black%,|
|000030b0| 77 68 69 74 65 25 29 0d | 12 98 05 ed 0d 12 a2 36 |white%).|.......6|
|000030c0| c8 99 20 22 46 6f 6e 74 | 5f 53 74 72 69 6e 67 42 |.. "Font|_StringB|
|000030d0| 42 6f 78 22 2c 66 6f 6e | 74 68 61 6e 64 6c 65 25 |Box",fon|thandle%|
|000030e0| 2c c3 79 65 61 72 25 20 | b8 20 2c 61 2c 62 2c 63 |,.year% |. ,a,b,c|
|000030f0| 2c 64 0d 12 ac 5a f2 74 | 65 78 74 28 37 2a 28 68 |,d...Z.t|ext(7*(h|
|00003100| 2b 2e 32 2a 75 29 2b 78 | 30 2d 28 68 2a 2e 38 29 |+.2*u)+x|0-(h*.8)|
|00003110| 2f 58 2a 28 63 2d 61 29 | 2d 2e 36 2a 75 2c 37 2a |/X*(c-a)|-.6*u,7*|
|00003120| 28 76 2b 2e 32 2a 75 29 | 2b 79 30 2b 76 70 6f 73 |(v+.2*u)|+y0+vpos|
|00003130| 2c c3 79 65 61 72 25 2c | 48 2c 48 2c 31 2c 62 6c |,.year%,|H,H,1,bl|
|00003140| 61 63 6b 25 2c 77 68 69 | 74 65 25 29 0d 12 b6 3e |ack%,whi|te%)...>|
|00003150| c8 99 20 22 46 6f 6e 74 | 5f 53 74 72 69 6e 67 42 |.. "Font|_StringB|
|00003160| 42 6f 78 22 2c 66 6f 6e | 74 68 61 6e 64 6c 65 25 |Box",fon|thandle%|
|00003170| 2c 6d 6f 6e 74 68 24 28 | 6d 6f 6e 74 68 25 29 20 |,month$(|month%) |
|00003180| b8 20 2c 61 2c 62 2c 63 | 2c 64 0d 12 c0 48 f2 74 |. ,a,b,c|,d...H.t|
|00003190| 65 78 74 28 78 30 2b 2e | 35 2a 75 2c 37 2a 28 76 |ext(x0+.|5*u,7*(v|
|000031a0| 2b 2e 32 2a 75 29 2b 79 | 30 2b 76 70 6f 73 2c 6d |+.2*u)+y|0+vpos,m|
|000031b0| 6f 6e 74 68 24 28 6d 6f | 6e 74 68 25 29 2c 48 2c |onth$(mo|nth%),H,|
|000031c0| 48 2c 31 2c 62 6c 61 63 | 6b 25 2c 77 68 69 74 65 |H,1,blac|k%,white|
|000031d0| 25 29 0d 12 ca 46 f2 65 | 6c 6c 69 70 73 65 28 78 |%)...F.e|llipse(x|
|000031e0| 30 2b 33 2a 28 68 2b 2e | 32 2a 75 29 2b 68 2f 32 |0+3*(h+.|2*u)+h/2|
|000031f0| 2c 39 2a 28 76 2b 2e 32 | 2a 75 29 2c 2e 33 36 2a |,9*(v+.2|*u),.36*|
|00003200| 75 2c 2e 33 36 2a 75 2c | 30 2c 62 6c 61 63 6b 25 |u,.36*u,|0,black%|
|00003210| 2c 77 68 69 74 65 25 29 | 0d 12 d4 0e f2 67 72 6f |,white%)|.....gro|
|00003220| 75 70 5f 65 6e 64 0d 12 | de 04 0d 12 e8 11 f2 64 |up_end..|.......d|
|00003230| 72 61 77 66 69 6c 65 5f | 65 6e 64 0d 12 f2 14 ff |rawfile_|end.....|
|00003240| 22 46 49 4c 45 52 5f 52 | 55 4e 20 22 2b 66 24 0d |"FILER_R|UN "+f$.|
|00003250| 12 fc 22 c8 99 20 22 46 | 6f 6e 74 5f 4c 6f 73 65 |..".. "F|ont_Lose|
|00003260| 46 6f 6e 74 22 2c 66 6f | 6e 74 68 61 6e 64 6c 65 |Font",fo|nthandle|
|00003270| 25 0d 13 06 16 c8 99 20 | 22 48 6f 75 72 67 6c 61 |%...... |"Hourgla|
|00003280| 73 73 5f 4f 66 66 22 0d | 13 10 05 e1 0d 13 1a 04 |ss_Off".|........|
|00003290| 0d 13 24 0a dd f2 73 61 | 76 65 0d 13 2e 2d e7 20 |..$...sa|ve...-. |
|000032a0| 66 6f 6e 74 73 65 6c 65 | 63 74 65 64 25 3d 2d 31 |fontsele|cted%=-1|
|000032b0| 3a 85 20 31 2c 22 4e 4f | 20 46 4f 4e 54 20 53 45 |:. 1,"NO| FONT SE|
|000032c0| 4c 45 43 54 45 44 22 0d | 13 38 3e e7 a7 24 74 65 |LECTED".|.8>..$te|
|000032d0| 78 74 73 61 76 65 25 2c | 74 61 73 6b 24 29 3c 3e |xtsave%,|task$)<>|
|000032e0| 30 20 8c 20 70 72 65 66 | 69 78 24 3d 22 3c 43 61 |0 . pref|ix$="<Ca|
|000032f0| 6c 65 6e 64 4a 43 24 44 | 69 72 3e 2e 43 61 6c 65 |lendJC$D|ir>.Cale|
|00003300| 6e 64 73 2e 22 0d 13 42 | 48 66 24 3d 22 3c 43 61 |nds."..B|Hf$="<Ca|
|00003310| 6c 65 6e 64 4a 43 24 44 | 69 72 3e 2e 43 61 6c 65 |lendJC$D|ir>.Cale|
|00003320| 6e 64 73 22 3a c8 99 20 | 22 4f 53 5f 46 69 6c 65 |nds":.. |"OS_File|
|00003330| 22 2c 35 2c 66 24 20 b8 | 20 58 25 3a e7 58 25 3d |",5,f$ .| X%:.X%=|
|00003340| 30 20 ff 22 43 44 49 52 | 20 22 2b 66 24 0d 13 4c |0 ."CDIR| "+f$..L|
|00003350| 05 cd 0d 13 56 37 21 62 | 75 66 66 65 72 25 3d 73 |....V7!b|uffer%=s|
|00003360| 61 76 65 68 61 6e 64 6c | 65 25 3a c8 99 20 22 57 |avehandl|e%:.. "W|
|00003370| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003380| 2c 2c 62 75 66 66 65 72 | 25 0d 13 60 47 f2 64 72 |,,buffer|%..`G.dr|
|00003390| 61 77 5f 63 61 6c 65 6e | 64 61 72 28 6d 6f 6e 74 |aw_calen|dar(mont|
|000033a0| 68 25 2c 79 65 61 72 25 | 2c 75 2a 63 6d 2c 24 66 |h%,year%|,u*cm,$f|
|000033b0| 6f 6e 74 74 25 28 66 6f | 6e 74 73 65 6c 65 63 74 |ontt%(fo|ntselect|
|000033c0| 65 64 25 29 2c 24 74 65 | 78 74 73 61 76 65 25 29 |ed%),$te|xtsave%)|
|000033d0| 0d 13 6a 35 6d 6f 6e 74 | 68 25 3d 6d 6f 6e 74 68 |..j5mont|h%=month|
|000033e0| 25 2b 31 3a e7 6d 6f 6e | 74 68 25 3d 31 33 3a 6d |%+1:.mon|th%=13:m|
|000033f0| 6f 6e 74 68 25 3d 31 3a | 79 65 61 72 25 3d 79 65 |onth%=1:|year%=ye|
|00003400| 61 72 25 2b 31 0d 13 74 | 14 24 6d 6f 6e 74 68 69 |ar%+1..t|.$monthi|
|00003410| 25 3d c3 6d 6f 6e 74 68 | 25 0d 13 7e 12 24 79 65 |%=.month|%..~.$ye|
|00003420| 61 72 69 25 3d c3 79 65 | 61 72 25 0d 13 88 29 24 |ari%=.ye|ar%...)$|
|00003430| 74 65 78 74 73 61 76 65 | 25 3d 70 72 65 66 69 78 |textsave|%=prefix|
|00003440| 24 2b c3 6d 6f 6e 74 68 | 25 2b 22 2f 22 2b c3 79 |$+.month|%+"/"+.y|
|00003450| 65 61 72 25 0d 13 92 42 | 21 62 75 66 66 65 72 25 |ear%...B|!buffer%|
|00003460| 3d 73 61 76 65 68 61 6e | 64 6c 65 25 3a 62 75 66 |=savehan|dle%:buf|
|00003470| 66 65 72 25 21 34 3d 39 | 39 36 3a 62 75 66 66 65 |fer%!4=9|96:buffe|
|00003480| 72 25 21 38 3d 30 3a 62 | 75 66 66 65 72 25 21 31 |r%!8=0:b|uffer%!1|
|00003490| 32 3d 31 32 38 30 0d 13 | 9c 40 62 75 66 66 65 72 |2=1280..|.@buffer|
|000034a0| 25 21 31 36 3d 79 63 61 | 6c 25 3a 62 75 66 66 65 |%!16=yca|l%:buffe|
|000034b0| 72 25 21 32 30 3d 79 63 | 61 6c 25 3a 62 75 66 66 |r%!20=yc|al%:buff|
|000034c0| 65 72 25 21 32 34 3d 30 | 3a 62 75 66 66 65 72 25 |er%!24=0|:buffer%|
|000034d0| 21 32 38 3d 2d 31 0d 13 | a6 40 c8 99 20 22 57 69 |!28=-1..|.@.. "Wi|
|000034e0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000034f0| 62 75 66 66 65 72 25 3a | 79 63 61 6c 25 2b 3d 36 |buffer%:|ycal%+=6|
|00003500| 34 3a e7 79 63 61 6c 25 | 3e 38 30 30 3a 79 63 61 |4:.ycal%|>800:yca|
|00003510| 6c 25 3d 33 36 30 0d 13 | b0 05 e1 0d 13 ba 04 0d |l%=360..|........|
|00003520| 13 c4 11 dd 20 f2 64 72 | 61 67 5f 73 74 61 72 74 |.... .dr|ag_start|
|00003530| 0d 13 ce 39 21 62 75 66 | 66 65 72 25 3d 73 61 76 |...9!buf|fer%=sav|
|00003540| 65 68 61 6e 64 6c 65 25 | 3a c8 99 20 22 57 69 6d |ehandle%|:.. "Wim|
|00003550| 70 5f 47 65 74 57 69 6e | 64 6f 77 49 6e 66 6f 22 |p_GetWin|dowInfo"|
|00003560| 2c 2c 62 75 66 66 65 72 | 25 0d 13 d8 31 62 75 66 |,,buffer|%...1buf|
|00003570| 66 65 72 25 21 34 3d 62 | 75 66 66 65 72 25 21 34 |fer%!4=b|uffer%!4|
|00003580| 2b 35 36 3a 62 75 66 66 | 65 72 25 21 38 3d 62 75 |+56:buff|er%!8=bu|
|00003590| 66 66 65 72 25 21 38 2b | 37 38 0d 13 e2 33 62 75 |ffer%!8+|78...3bu|
|000035a0| 66 66 65 72 25 21 31 32 | 3d 62 75 66 66 65 72 25 |ffer%!12|=buffer%|
|000035b0| 21 34 2b 36 38 3a 62 75 | 66 66 65 72 25 21 31 36 |!4+68:bu|ffer%!16|
|000035c0| 3d 62 75 66 66 65 72 25 | 21 38 2b 36 38 0d 13 ec |=buffer%|!8+68...|
|000035d0| 3b c8 99 20 22 44 72 61 | 67 41 53 70 72 69 74 65 |;.. "Dra|gASprite|
|000035e0| 5f 53 74 61 72 74 22 2c | 25 31 30 30 30 31 31 31 |_Start",|%1000111|
|000035f0| 31 2c 31 2c 22 66 69 6c | 65 5f 61 66 66 22 2c 62 |1,1,"fil|e_aff",b|
|00003600| 75 66 66 65 72 25 2b 34 | 0d 13 f6 05 e1 0d 14 00 |uffer%+4|........|
|00003610| 04 0d 14 0a 10 dd 20 f2 | 64 72 61 67 5f 73 74 6f |...... .|drag_sto|
|00003620| 70 0d 14 14 19 c8 99 20 | 22 44 72 61 67 41 53 70 |p...... |"DragASp|
|00003630| 72 69 74 65 5f 53 74 6f | 70 22 0d 14 1e 20 c8 99 |rite_Sto|p"... ..|
|00003640| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00003650| 72 49 6e 66 6f 22 2c 2c | 62 25 0d 14 28 0e 62 25 |rInfo",,|b%..(.b%|
|00003660| 21 33 32 3d 62 25 21 34 | 0d 14 32 0d 62 25 21 32 |!32=b%!4|..2.b%!2|
|00003670| 38 3d 21 62 25 0d 14 3c | 0f 62 25 21 32 34 3d 62 |8=!b%..<|.b%!24=b|
|00003680| 25 21 31 36 0d 14 46 0f | 62 25 21 32 30 3d 62 25 |%!16..F.|b%!20=b%|
|00003690| 21 31 32 0d 14 50 0b 62 | 25 21 31 36 3d 31 0d 14 |!12..P.b|%!16=1..|
|000036a0| 5a 0b 62 25 21 31 32 3d | 30 0d 14 64 0b 62 25 21 |Z.b%!12=|0..d.b%!|
|000036b0| 33 36 3d 30 0d 14 6e 0e | 62 25 21 34 30 3d 26 41 |36=0..n.|b%!40=&A|
|000036c0| 46 46 0d 14 78 0f 24 28 | 62 25 2b 34 34 29 3d 22 |FF..x.$(|b%+44)="|
|000036d0| 22 0d 14 82 0a 21 62 25 | 3d 36 30 0d 14 8c 25 c8 |"....!b%|=60...%.|
|000036e0| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|000036f0| 61 67 65 22 2c 31 37 2c | 62 25 2c 62 25 21 32 30 |age",17,|b%,b%!20|
|00003700| 0d 14 96 05 e1 0d 14 a0 | 04 0d 14 aa 0d dd f2 6d |........|.......m|
|00003710| 65 73 73 61 67 65 0d 14 | b4 0e c8 8e 20 62 25 21 |essage..|.... b%!|
|00003720| 31 36 20 ca 0d 14 be 10 | c9 20 30 3a 20 71 75 69 |16 .....|. 0: qui|
|00003730| 74 25 3d b9 0d 14 c8 07 | c9 20 32 0d 14 d2 40 70 |t%=.....|. 2...@p|
|00003740| 72 65 66 69 78 24 3d a4 | 67 65 74 73 74 72 28 62 |refix$=.|getstr(b|
|00003750| 25 2b 34 34 29 3a 24 74 | 65 78 74 73 61 76 65 25 |%+44):$t|extsave%|
|00003760| 3d 70 72 65 66 69 78 24 | 2b c3 6d 6f 6e 74 68 25 |=prefix$|+.month%|
|00003770| 2b 22 2f 22 2b c3 79 65 | 61 72 25 0d 14 dc 09 f2 |+"/"+.ye|ar%.....|
|00003780| 73 61 76 65 0d 14 e6 05 | cb 0d 14 f0 05 e1 0d 14 |save....|........|
|00003790| fa 04 0d 15 04 11 dd 20 | a4 67 65 74 73 74 72 28 |....... |.getstr(|
|000037a0| 61 25 29 0d 15 0e 08 ea | 20 62 24 0d 15 18 0e c8 |a%).....| b$.....|
|000037b0| 95 20 3f 61 25 3e 3d 33 | 32 0d 15 22 0e 62 24 2b |. ?a%>=3|2..".b$+|
|000037c0| 3d bd 28 3f 61 25 29 0d | 15 2c 09 61 25 2b 3d 31 |=.(?a%).|.,.a%+=1|
|000037d0| 0d 15 36 05 ce 0d 15 40 | 07 3d 62 24 0d ff |..6....@|.=b$.. |
+--------+-------------------------+-------------------------+--------+--------+
