/ APDL Public Domain 1 / APDL_PD1A.iso / deskutils / _m_z / plan94

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | b0 01 00 00 10 02 00 00 |Archive.|........|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 50 6c 61 6e 39 34 | 00 00 00 00 ff ff ff ff |.!Plan94|........|
|00000070| 45 fd ff ff e6 4c 69 07 | 00 00 00 00 ff ff ff ff |E....Li.|........|
|00000080| 8c 01 00 80 82 21 42 4f | 4f 54 00 00 2c 00 00 00 |.....!BO|OT..,...|
|00000090| 40 00 00 00 44 eb ff ff | 00 d6 ef c1 03 00 22 de |@...D...|......".|
|000000a0| 40 00 00 00 24 00 00 00 | 82 21 48 45 4c 50 00 00 |@...$...|.!HELP..|
|000000b0| 2c 00 00 00 3d 00 00 00 | 44 ff ff ff b4 33 49 fd |,...=...|D....3I.|
|000000c0| 03 00 41 f3 3d 00 00 00 | 88 00 00 00 82 21 52 75 |..A.=...|.....!Ru|
|000000d0| 6e 00 04 00 2c 00 00 00 | a8 00 00 00 45 eb ff ff |n...,...|....E...|
|000000e0| 92 bc ea 8b 03 00 6a 7c | a8 00 00 00 e9 00 00 00 |......j||........|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 00 23 4a 00 00 |.!RunIma|ge..#J..|
|00000100| 45 fb ff ff 32 c0 ea 8b | 03 00 94 ea 23 4a 00 00 |E...2...|....#J..|
|00000110| b5 01 00 00 82 21 53 70 | 72 69 74 65 73 00 00 00 |.....!Sp|rites...|
|00000120| e0 02 00 00 44 f9 ff ff | 60 9a 49 fd 03 00 9a ab |....D...|`.I.....|
|00000130| e0 02 00 00 fc 4b 00 00 | 82 39 34 00 c3 00 04 00 |.....K..|.94.....|
|00000140| 2c 00 00 00 08 9a 00 00 | 00 00 00 00 00 00 00 00 |,.......|........|
|00000150| 03 00 58 b6 08 9a 00 00 | 00 4f 00 00 82 39 35 00 |..X.....|.O...95.|
|00000160| c3 00 04 00 2c 00 00 00 | 08 9a 00 00 00 00 00 00 |....,...|........|
|00000170| 00 00 00 00 03 00 c2 4e | 08 9a 00 00 2c e9 00 00 |.......N|....,...|
|00000180| 82 49 63 6f 6e 00 04 00 | 2c 00 00 00 b5 03 00 00 |.Icon...|,.......|
|00000190| 44 ff ff ff ef ea 4d fd | 03 00 85 04 b5 03 00 00 |D.....M.|........|
|000001a0| 58 83 01 00 82 54 65 6d | 70 6c 61 74 65 73 00 00 |X....Tem|plates..|
|000001b0| 1f 07 00 00 44 ec ff ff | ee 88 49 fd 03 00 3d 9d |....D...|..I...=.|
|000001c0| 1f 07 00 00 31 87 01 00 | 00 00 00 00 c3 00 04 00 |....1...|........|
|000001d0| 2c 00 00 00 00 00 00 00 | 18 00 00 00 d4 ff ff ff |,.......|........|
|000001e0| 6c 00 00 00 00 00 00 00 | 21 fe 1c 07 00 00 00 00 |l.......|!.......|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 44 01 00 00 |........|....D...|
|00000210| 46 69 6c 65 44 61 74 61 | 82 21 42 4f 4f 54 00 00 |FileData|.!BOOT..|
|00000220| 2c 00 00 00 40 00 00 00 | 44 eb ff ff 00 d6 ef c1 |,...@...|D.......|
|00000230| 03 00 22 de 7c 41 2e 53 | 2e 4a 2e 52 4f 53 53 0a |..".|A.S|.J.ROSS.|
|00000240| 7c 42 4f 4f 54 20 46 4f | 52 20 59 45 41 52 20 50 ||BOOT FO|R YEAR P|
|00000250| 4c 41 4e 0a 0a 49 63 6f | 6e 53 70 72 69 74 65 73 |LAN..Ico|nSprites|
|00000260| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|00000270| 69 74 65 73 46 69 6c 65 | 44 61 74 61 82 21 48 45 |itesFile|Data.!HE|
|00000280| 4c 50 00 00 2c 00 00 00 | 3d 00 00 00 44 ff ff ff |LP..,...|=...D...|
|00000290| b4 33 49 fd 03 00 41 f3 | 21 48 45 4c 50 20 46 49 |.3I...A.|!HELP FI|
|000002a0| 4c 45 0a 0a 54 48 49 53 | 20 50 52 4f 47 52 41 4d |LE..THIS| PROGRAM|
|000002b0| 20 57 41 53 20 57 52 49 | 54 54 45 4e 20 42 59 20 | WAS WRI|TTEN BY |
|000002c0| 41 2e 53 2e 4a 2e 0a 0a | 20 a9 20 41 2e 53 2e 4a |A.S.J...| . A.S.J|
|000002d0| 2e 52 4f 53 53 46 69 6c | 65 44 61 74 61 82 21 52 |.ROSSFil|eData.!R|
|000002e0| 75 6e 00 04 00 2c 00 00 | 00 a8 00 00 00 45 eb ff |un...,..|.....E..|
|000002f0| ff 92 bc ea 8b 03 00 6a | 7c 0a 7c 41 2e 53 2e 4a |.......j||.|A.S.J|
|00000300| 2e 0a 7c 52 55 4e 20 66 | 6f 72 20 21 59 65 61 72 |..|RUN f|or !Year|
|00000310| 2d 50 6c 61 6e 20 44 69 | 61 72 79 0a 7c 0a 53 65 |-Plan Di|ary.|.Se|
|00000320| 74 20 59 65 61 72 50 6c | 61 6e 24 44 69 72 20 3c |t YearPl|an$Dir <|
|00000330| 4f 62 65 79 24 44 69 72 | 3e 0a 52 4d 45 6e 73 75 |Obey$Dir|>.RMEnsu|
|00000340| 72 65 20 43 6f 6c 6f 75 | 72 54 72 61 6e 73 20 30 |re Colou|rTrans 0|
|00000350| 2e 35 32 20 2f 3c 50 6c | 61 6e 39 34 24 44 69 72 |.52 /<Pl|an94$Dir|
|00000360| 3e 2e 43 6f 6c 6f 75 72 | 73 30 35 32 0a 57 69 6d |>.Colour|s052.Wim|
|00000370| 70 73 6c 6f 74 20 2d 6d | 69 6e 20 39 30 6b 20 2d |pslot -m|in 90k -|
|00000380| 6d 61 78 20 39 30 6b 0a | 72 75 6e 20 3c 4f 62 65 |max 90k.|run <Obe|
|00000390| 79 24 64 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |y$dir>.!|RunImage|
|000003a0| 0a 46 69 6c 65 44 61 74 | 61 82 21 52 75 6e 49 6d |.FileDat|a.!RunIm|
|000003b0| 61 67 65 00 00 23 4a 00 | 00 45 fb ff ff 32 c0 ea |age..#J.|.E...2..|
|000003c0| 8b 03 00 94 ea 0d 00 01 | 04 0d 00 02 04 0d 00 03 |........|........|
|000003d0| 21 f4 20 21 20 52 55 4e | 49 4d 41 47 45 20 46 4f |!. ! RUN|IMAGE FO|
|000003e0| 52 20 50 4c 41 4e 39 34 | 20 44 49 41 52 59 0d 00 |R PLAN94| DIARY..|
|000003f0| 04 10 f4 20 41 2e 53 2e | 4a 2e 52 4f 53 53 0d 00 |... A.S.|J.ROSS..|
|00000400| 05 04 0d 00 06 04 0d 00 | 07 04 0d 00 08 04 0d 00 |........|........|
|00000410| 09 0d f2 69 6e 69 74 69 | 61 74 65 0d 00 0a 21 ee |...initi|ate...!.|
|00000420| 20 85 20 65 78 69 74 3d | a4 63 68 65 63 6b 28 f6 | . exit=|.check(.|
|00000430| 24 2b 22 2c 20 45 58 49 | 54 3f 22 29 0d 00 0b 0c |$+", EXI|T?")....|
|00000440| c8 95 20 ac 65 78 69 74 | 0d 00 0c 22 c8 99 22 57 |.. .exit|...".."W|
|00000450| 69 6d 70 5f 50 6f 6c 6c | 22 2c 31 2c 62 6c 6b 25 |imp_Poll|",1,blk%|
|00000460| 20 b8 20 72 65 61 73 6f | 6e 25 0d 00 0d 10 c8 8e | . reaso|n%......|
|00000470| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 00 0e 0f c9 20 | reason%| ...... |
|00000480| 31 3a f2 72 65 64 72 61 | 77 0d 00 0f 13 c9 20 32 |1:.redra|w..... 2|
|00000490| 3a f2 6f 70 65 6e 77 69 | 6e 64 6f 77 0d 00 10 1b |:.openwi|ndow....|
|000004a0| c9 20 33 3a f2 63 6c 6f | 73 65 77 69 6e 64 6f 77 |. 3:.clo|sewindow|
|000004b0| 28 21 62 6c 6b 25 29 0d | 00 11 33 c9 20 36 3a f2 |(!blk%).|..3. 6:.|
|000004c0| 63 6c 69 63 6b 28 21 62 | 6c 6b 25 2c 62 6c 6b 25 |click(!b|lk%,blk%|
|000004d0| 21 34 2c 62 6c 6b 25 21 | 38 2c 62 6c 6b 25 21 31 |!4,blk%!|8,blk%!1|
|000004e0| 32 2c 62 6c 6b 25 21 31 | 36 29 0d 00 12 13 c9 20 |2,blk%!1|6)..... |
|000004f0| 37 3a f2 64 65 63 6f 64 | 65 64 72 61 67 0d 00 13 |7:.decod|edrag...|
|00000500| 29 c9 20 38 3a f2 6b 65 | 79 28 21 62 6c 6b 25 2c |). 8:.ke|y(!blk%,|
|00000510| 62 6c 6b 25 21 34 2c 62 | 6c 6b 25 21 38 2c 62 6c |blk%!4,b|lk%!8,bl|
|00000520| 6b 25 21 32 34 29 0d 00 | 14 13 c9 20 39 3a f2 6d |k%!24)..|... 9:.m|
|00000530| 65 6e 75 73 65 6c 65 63 | 74 0d 00 15 2b c9 20 31 |enuselec|t...+. 1|
|00000540| 37 2c 31 38 3a f2 6d 65 | 73 73 61 67 65 28 62 6c |7,18:.me|ssage(bl|
|00000550| 6b 25 21 34 2c 62 6c 6b | 25 21 38 2c 62 6c 6b 25 |k%!4,blk|%!8,blk%|
|00000560| 21 31 36 29 0d 00 16 05 | cb 0d 00 17 05 ce 0d 00 |!16)....|........|
|00000570| 18 0e f2 63 6c 6f 73 65 | 64 6f 77 6e 0d 00 19 0f |...close|down....|
|00000580| dd 20 f2 69 6e 69 74 69 | 61 74 65 0d 00 1a 0f 6d |. .initi|ate....m|
|00000590| 62 6c 65 6e 25 3d 31 30 | 30 30 0d 00 1b 2a de 20 |blen%=10|00...*. |
|000005a0| 62 6c 6b 25 20 32 30 30 | 30 2c 20 6d 65 6e 75 62 |blk% 200|0, menub|
|000005b0| 75 66 66 65 72 25 20 6d | 62 6c 65 6e 25 2c 71 25 |uffer% m|blen%,q%|
|000005c0| 20 32 35 36 0d 00 1c 30 | de 20 6d 6f 6e 74 68 24 | 256...0|. month$|
|000005d0| 28 31 32 29 2c 6d 6c 25 | 28 31 32 29 2c 73 64 25 |(12),ml%|(12),sd%|
|000005e0| 28 31 32 29 2c 64 61 79 | 24 28 36 29 2c 64 63 25 |(12),day|$(6),dc%|
|000005f0| 28 31 33 29 0d 00 1d 12 | 74 65 78 74 73 69 7a 65 |(13)....|textsize|
|00000600| 25 3d 32 31 2a 35 0d 00 | 1e 1f 64 69 61 72 79 6c |%=21*5..|..diaryl|
|00000610| 65 6e 25 3d 28 31 2b 74 | 65 78 74 73 69 7a 65 25 |en%=(1+t|extsize%|
|00000620| 29 2a 33 37 32 0d 00 1f | 2d de 20 64 69 61 72 79 |)*372...|-. diary|
|00000630| 25 20 64 69 61 72 79 6c | 65 6e 25 2c 74 65 78 74 |% diaryl|en%,text|
|00000640| 62 75 66 66 25 20 74 65 | 78 74 73 69 7a 65 25 2b |buff% te|xtsize%+|
|00000650| 33 30 0d 00 20 14 74 65 | 78 74 25 3d 64 69 61 72 |30.. .te|xt%=diar|
|00000660| 79 25 2b 33 37 32 0d 00 | 21 7d 6d 6f 6e 74 68 24 |y%+372..|!}month$|
|00000670| 28 29 3d 22 22 2c 22 4a | 61 6e 75 61 72 79 22 2c |()="","J|anuary",|
|00000680| 22 46 65 62 72 75 61 72 | 79 22 2c 22 4d 61 72 63 |"Februar|y","Marc|
|00000690| 68 22 2c 22 41 70 72 69 | 6c 22 2c 22 4d 61 79 22 |h","Apri|l","May"|
|000006a0| 2c 22 4a 75 6e 65 22 2c | 22 4a 75 6c 79 22 2c 22 |,"June",|"July","|
|000006b0| 41 75 67 75 73 74 22 2c | 22 53 65 70 74 65 6d 62 |August",|"Septemb|
|000006c0| 65 72 22 2c 22 4f 63 74 | 6f 62 65 72 22 2c 22 4e |er","Oct|ober","N|
|000006d0| 6f 76 65 6d 62 65 72 22 | 2c 22 44 65 63 65 6d 62 |ovember"|,"Decemb|
|000006e0| 65 72 22 0d 00 22 2f 6d | 6c 25 28 29 3d 30 2c 33 |er".."/m|l%()=0,3|
|000006f0| 31 2c 32 38 2c 33 31 2c | 33 30 2c 33 31 2c 33 30 |1,28,31,|30,31,30|
|00000700| 2c 33 31 2c 33 31 2c 33 | 30 2c 33 31 2c 33 30 2c |,31,31,3|0,31,30,|
|00000710| 33 31 0d 00 23 34 64 61 | 79 24 28 29 3d 22 53 75 |31..#4da|y$()="Su|
|00000720| 6e 22 2c 22 4d 6f 6e 22 | 2c 22 54 75 65 22 2c 22 |n","Mon"|,"Tue","|
|00000730| 57 65 64 22 2c 22 54 68 | 75 22 2c 22 46 72 69 22 |Wed","Th|u","Fri"|
|00000740| 2c 22 53 61 74 22 0d 00 | 24 2b 64 63 25 28 29 3d |,"Sat"..|$+dc%()=|
|00000750| 30 2c 31 2c 32 2c 33 2c | 34 2c 35 2c 38 2c 39 2c |0,1,2,3,|4,5,8,9,|
|00000760| 31 30 2c 31 31 2c 31 32 | 2c 31 33 2c 31 34 2c 31 |10,11,12|,13,14,1|
|00000770| 35 0d 00 25 10 24 62 6c | 6b 25 3d 22 54 41 53 4b |5..%.$bl|k%="TASK|
|00000780| 22 0d 00 26 15 70 72 6f | 67 72 61 6d 24 3d 22 50 |"..&.pro|gram$="P|
|00000790| 6c 61 6e 39 34 22 0d 00 | 27 35 c8 99 22 57 69 6d |lan94"..|'5.."Wim|
|000007a0| 70 5f 49 6e 69 74 69 61 | 6c 69 73 65 22 2c 32 30 |p_Initia|lise",20|
|000007b0| 30 2c 21 62 6c 6b 25 2c | 70 72 6f 67 72 61 6d 24 |0,!blk%,|program$|
|000007c0| 20 b8 20 2c 6d 79 74 61 | 73 6b 25 0d 00 28 16 24 | . ,myta|sk%..(.$|
|000007d0| 71 25 3d 22 79 65 61 72 | 70 6c 61 6e 24 44 69 72 |q%="year|plan$Dir|
|000007e0| 22 0d 00 29 2f c8 99 22 | 4f 53 5f 52 65 61 64 56 |"..)/.."|OS_ReadV|
|000007f0| 61 72 56 61 6c 22 2c 71 | 25 2c 62 6c 6b 25 2c 31 |arVal",q|%,blk%,1|
|00000800| 30 30 30 2c 30 2c 33 20 | b8 20 2c 2c 6c 65 6e 25 |000,0,3 |. ,,len%|
|00000810| 0d 00 2a 10 62 6c 6b 25 | 3f 6c 65 6e 25 3d 31 33 |..*.blk%|?len%=13|
|00000820| 0d 00 2b 0e 64 69 72 24 | 3d 24 62 6c 6b 25 0d 00 |..+.dir$|=$blk%..|
|00000830| 2c 32 69 63 6f 6e 62 61 | 72 25 3d a4 63 72 69 63 |,2iconba|r%=.cric|
|00000840| 6f 6e 28 2d 31 2c 30 2c | 30 2c 36 38 2c 36 38 2c |on(-1,0,|0,68,68,|
|00000850| 26 32 30 30 32 2c 22 21 | 50 6c 61 6e 39 34 22 29 |&2002,"!|Plan94")|
|00000860| 0d 00 2d 0b 21 62 6c 6b | 25 3d 31 0d 00 2e 17 c8 |..-.!blk|%=1.....|
|00000870| 99 22 4f 53 5f 57 6f 72 | 64 22 2c 31 34 2c 62 6c |."OS_Wor|d",14,bl|
|00000880| 6b 25 0d 00 2f 1a 74 68 | 69 73 79 65 61 72 25 3d |k%../.th|isyear%=|
|00000890| bb 28 c3 7e 28 3f 62 6c | 6b 25 29 29 0d 00 30 1c |.(.~(?bl|k%))..0.|
|000008a0| 74 68 69 73 6d 6f 6e 74 | 68 25 3d bb 28 c3 7e 28 |thismont|h%=.(.~(|
|000008b0| 62 6c 6b 25 3f 31 29 29 | 0d 00 31 1b 74 68 69 73 |blk%?1))|..1.this|
|000008c0| 64 61 74 65 25 3d bb 28 | c3 7e 28 62 6c 6b 25 3f |date%=.(|.~(blk%?|
|000008d0| 32 29 29 0d 00 32 16 63 | 64 61 74 65 25 3d 30 3a |2))..2.c|date%=0:|
|000008e0| 63 6d 6f 6e 74 68 25 3d | 30 0d 00 33 2c c8 99 22 |cmonth%=|0..3,.."|
|000008f0| 57 69 6d 70 5f 4f 70 65 | 6e 54 65 6d 70 6c 61 74 |Wimp_Ope|nTemplat|
|00000900| 65 22 2c 2c 64 69 72 24 | 2b 22 2e 54 65 6d 70 6c |e",,dir$|+".Templ|
|00000910| 61 74 65 73 22 0d 00 34 | 23 6d 61 69 6e 25 3d a4 |ates"..4|#main%=.|
|00000920| 6c 6f 61 64 74 65 6d 70 | 6c 61 74 65 28 22 6d 61 |loadtemp|late("ma|
|00000930| 69 6e 22 2c 31 32 38 29 | 0d 00 35 1e 73 61 76 65 |in",128)|..5.save|
|00000940| 66 66 66 31 25 3d a4 73 | 61 76 65 77 69 6e 64 28 |fff1%=.s|avewind(|
|00000950| 22 66 66 66 22 29 0d 00 | 36 1e 73 61 76 65 66 66 |"fff")..|6.saveff|
|00000960| 66 32 25 3d a4 73 61 76 | 65 77 69 6e 64 28 22 66 |f2%=.sav|ewind("f|
|00000970| 66 66 22 29 0d 00 37 1d | 73 61 76 65 61 66 66 25 |ff")..7.|saveaff%|
|00000980| 3d a4 73 61 76 65 77 69 | 6e 64 28 22 61 66 66 22 |=.savewi|nd("aff"|
|00000990| 29 0d 00 38 23 69 6e 66 | 6f 25 3d a4 6c 6f 61 64 |)..8#inf|o%=.load|
|000009a0| 74 65 6d 70 6c 61 74 65 | 28 22 69 6e 66 6f 22 2c |template|("info",|
|000009b0| 32 35 36 29 0d 00 39 23 | 65 64 69 74 25 3d a4 6c |256)..9#|edit%=.l|
|000009c0| 6f 61 64 74 65 6d 70 6c | 61 74 65 28 22 65 64 69 |oadtempl|ate("edi|
|000009d0| 74 22 2c 35 31 32 29 0d | 00 3a 29 66 69 6c 65 6e |t",512).|.:)filen|
|000009e0| 61 6d 65 66 66 66 31 25 | 3d a4 67 65 74 66 69 6c |amefff1%|=.getfil|
|000009f0| 65 6e 61 6d 65 28 73 61 | 76 65 66 66 66 31 25 29 |ename(sa|vefff1%)|
|00000a00| 0d 00 3b 29 66 69 6c 65 | 6e 61 6d 65 66 66 66 32 |..;)file|namefff2|
|00000a10| 25 3d a4 67 65 74 66 69 | 6c 65 6e 61 6d 65 28 73 |%=.getfi|lename(s|
|00000a20| 61 76 65 66 66 66 32 25 | 29 0d 00 3c 27 66 69 6c |avefff2%|)..<'fil|
|00000a30| 65 6e 61 6d 65 61 66 66 | 25 3d a4 67 65 74 66 69 |enameaff|%=.getfi|
|00000a40| 6c 65 6e 61 6d 65 28 73 | 61 76 65 61 66 66 25 29 |lename(s|aveaff%)|
|00000a50| 0d 00 3d 1a c8 99 22 57 | 69 6d 70 5f 43 6c 6f 73 |..=..."W|imp_Clos|
|00000a60| 65 54 65 6d 70 6c 61 74 | 65 22 0d 00 3e 18 6d 65 |eTemplat|e"..>.me|
|00000a70| 6e 75 70 74 72 25 3d 6d | 65 6e 75 62 75 66 66 65 |nuptr%=m|enubuffe|
|00000a80| 72 25 0d 00 3f 2e 6d 65 | 6e 75 62 61 72 25 3d a4 |r%..?.me|nubar%=.|
|00000a90| 63 72 6d 65 6e 75 28 22 | 44 69 61 72 79 2c 49 6e |crmenu("|Diary,In|
|00000aa0| 66 6f 3e 2c 69 6e 66 6f | 25 2c 51 75 69 74 22 29 |fo>,info|%,Quit")|
|00000ab0| 0d 00 40 1b 62 61 72 68 | 65 69 67 68 74 25 3d 69 |..@.barh|eight%=i|
|00000ac0| 74 65 6d 73 25 2a 34 34 | 2b 39 36 0d 00 41 3c 63 |tems%*44|+96..A<c|
|00000ad0| 6f 6c 6d 65 6e 75 25 3d | a4 63 72 6d 65 6e 75 28 |olmenu%=|.crmenu(|
|00000ae0| 22 57 69 64 74 68 20 6f | 66 20 43 6f 6c 75 6d 6e |"Width o|f Column|
|00000af0| 73 2c 4e 6f 72 6d 61 6c | 2c 42 6c 6f 64 64 79 20 |s,Normal|,Bloddy |
|00000b00| 57 69 64 65 2c 22 29 0d | 00 42 3e 79 65 61 72 6d |Wide,").|.B>yearm|
|00000b10| 65 6e 75 25 3d a4 63 72 | 6d 65 6e 75 28 22 59 65 |enu%=.cr|menu("Ye|
|00000b20| 61 72 2c 22 2b c3 28 74 | 68 69 73 79 65 61 72 25 |ar,"+.(t|hisyear%|
|00000b30| 29 2b 22 2c 22 2b c3 28 | 74 68 69 73 79 65 61 72 |)+","+.(|thisyear|
|00000b40| 25 2b 31 29 29 0d 00 43 | 4a 6d 61 69 6e 6d 65 6e |%+1))..C|Jmainmen|
|00000b50| 75 25 3d a4 63 72 6d 65 | 6e 75 28 22 59 65 61 72 |u%=.crme|nu("Year|
|00000b60| 20 50 6c 61 6e 2c 59 65 | 61 72 3e 2c 79 65 61 72 | Plan,Ye|ar>,year|
|00000b70| 6d 65 6e 75 25 2c 43 6f | 6c 75 6d 6e 73 3e 2d 2c |menu%,Co|lumns>-,|
|00000b80| 63 6f 6c 6d 65 6e 75 25 | 2c 4c 6f 61 64 22 29 0d |colmenu%|,Load").|
|00000b90| 00 44 48 6d 6f 6e 74 68 | 6d 65 6e 75 25 3d a4 63 |.DHmonth|menu%=.c|
|00000ba0| 72 6d 65 6e 75 28 22 4d | 6f 6e 74 68 2c 54 65 78 |rmenu("M|onth,Tex|
|00000bb0| 74 20 66 69 6c 65 3e 2c | 73 61 76 65 66 66 66 32 |t file>,|savefff2|
|00000bc0| 25 2c 44 72 61 77 20 66 | 69 6c 65 3e 2c 73 61 76 |%,Draw f|ile>,sav|
|00000bd0| 65 61 66 66 25 22 29 0d | 00 45 3e 73 61 76 65 6d |eaff%").|.E>savem|
|00000be0| 65 6e 75 25 3d a4 63 72 | 6d 65 6e 75 28 22 53 61 |enu%=.cr|menu("Sa|
|00000bf0| 76 65 2c 44 61 79 3e 2c | 73 61 76 65 66 66 66 31 |ve,Day>,|savefff1|
|00000c00| 25 2c 4d 6f 6e 74 68 3e | 2c 6d 6f 6e 74 68 6d 65 |%,Month>|,monthme|
|00000c10| 6e 75 25 22 29 0d 00 46 | 3b 65 64 69 74 6d 65 6e |nu%")..F|;editmen|
|00000c20| 75 25 3d a4 63 72 6d 65 | 6e 75 28 22 59 65 61 72 |u%=.crme|nu("Year|
|00000c30| 20 50 6c 61 6e 2c 45 78 | 70 6f 72 74 3e 2d 2c 73 | Plan,Ex|port>-,s|
|00000c40| 61 76 65 6d 65 6e 75 25 | 2c 43 6c 65 61 72 22 29 |avemenu%|,Clear")|
|00000c50| 0d 00 47 0c 79 65 61 72 | 25 3d 2d 31 0d 00 48 0c |..G.year|%=-1..H.|
|00000c60| f2 6e 65 77 6d 6f 64 65 | 0d 00 49 0a 65 78 69 74 |.newmode|..I.exit|
|00000c70| 3d a3 0d 00 4a 0c 62 6f | 78 68 25 3d 34 38 0d 00 |=...J.bo|xh%=48..|
|00000c80| 4b 0f 63 6f 6c 77 69 64 | 74 68 25 3d 31 0d 00 4c |K.colwid|th%=1..L|
|00000c90| 0e f2 73 65 74 65 78 74 | 65 6e 74 0d 00 4d 1b 74 |..setext|ent..M.t|
|00000ca0| 65 78 74 6f 66 66 25 3d | 28 62 6f 78 68 25 2d 33 |extoff%=|(boxh%-3|
|00000cb0| 32 29 2f 32 2b 34 0d 00 | 4e 0d 74 66 74 25 3d 26 |2)/2+4..|N.tft%=&|
|00000cc0| 46 46 46 0d 00 4f 0d 64 | 66 74 25 3d 26 41 46 46 |FFF..O.d|ft%=&AFF|
|00000cd0| 0d 00 50 1d f2 74 69 63 | 6b 28 63 6f 6c 6d 65 6e |..P..tic|k(colmen|
|00000ce0| 75 25 2c 63 6f 6c 77 69 | 64 74 68 25 29 0d 00 51 |u%,colwi|dth%)..Q|
|00000cf0| 17 f2 73 65 74 79 65 61 | 72 28 74 68 69 73 79 65 |..setyea|r(thisye|
|00000d00| 61 72 25 29 0d 00 52 44 | e7 20 a4 6c 6f 61 64 28 |ar%)..RD|. .load(|
|00000d10| 74 68 69 73 79 65 61 72 | 25 29 3d a3 20 8c 20 f2 |thisyear|%)=. . .|
|00000d20| 77 61 72 6e 28 22 43 61 | 6e 6e 6f 74 20 6c 6f 61 |warn("Ca|nnot loa|
|00000d30| 64 20 59 65 61 72 20 50 | 6c 61 6e 22 29 3a f2 63 |d Year P|lan"):.c|
|00000d40| 6c 6f 73 65 64 6f 77 6e | 0d 00 53 0d 61 63 74 69 |losedown|..S.acti|
|00000d50| 76 65 25 3d a3 0d 00 54 | 05 e1 0d 00 55 1a dd 20 |ve%=...T|....U.. |
|00000d60| a4 73 61 76 65 77 69 6e | 64 28 66 69 6c 65 74 79 |.savewin|d(filety|
|00000d70| 70 65 24 29 0d 00 56 0f | de 20 62 75 66 66 25 20 |pe$)..V.|. buff% |
|00000d80| 33 30 30 0d 00 57 39 c8 | 99 22 57 69 6d 70 5f 4c |300..W9.|."Wimp_L|
|00000d90| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000da0| 6b 25 2c 62 75 66 66 25 | 2c 62 75 66 66 25 2b 33 |k%,buff%|,buff%+3|
|00000db0| 30 30 2c 2d 31 2c 22 73 | 61 76 65 22 0d 00 58 23 |00,-1,"s|ave"..X#|
|00000dc0| 24 28 62 6c 6b 25 2b 38 | 38 2b 32 30 29 3d 22 66 |$(blk%+8|8+20)="f|
|00000dd0| 69 6c 65 5f 22 2b 66 69 | 6c 65 74 79 70 65 24 0d |ile_"+fi|letype$.|
|00000de0| 00 59 27 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |.Y'.."Wi|mp_Creat|
|00000df0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6b 25 20 b8 |eWindow"|,,blk% .|
|00000e00| 20 77 69 6e 64 25 0d 00 | 5a 0a 3d 77 69 6e 64 25 | wind%..|Z.=wind%|
|00000e10| 0d 00 5b 19 dd 20 a4 67 | 65 74 66 69 6c 65 6e 61 |..[.. .g|etfilena|
|00000e20| 6d 65 28 21 62 6c 6b 25 | 29 0d 00 5c 0c 62 6c 6b |me(!blk%|)..\.blk|
|00000e30| 25 21 34 3d 31 0d 00 5d | 1f c8 99 22 57 69 6d 70 |%!4=1..]|..."Wimp|
|00000e40| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000e50| 62 6c 6b 25 0d 00 5e 0c | 3d 62 6c 6b 25 21 32 38 |blk%..^.|=blk%!28|
|00000e60| 0d 00 5f 18 dd 20 f2 77 | 69 6e 64 6f 77 69 6e 66 |.._.. .w|indowinf|
|00000e70| 6f 28 21 62 6c 6b 25 29 | 0d 00 60 20 c8 99 22 57 |o(!blk%)|..` .."W|
|00000e80| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 49 6e 66 |imp_GetW|indowInf|
|00000e90| 6f 22 2c 2c 62 6c 6b 25 | 0d 00 61 16 77 78 25 3d |o",,blk%|..a.wx%=|
|00000ea0| 62 6c 6b 25 21 34 2d 62 | 6c 6b 25 21 32 30 0d 00 |blk%!4-b|lk%!20..|
|00000eb0| 62 17 77 79 25 3d 62 6c | 6b 25 21 31 36 2d 62 6c |b.wy%=bl|k%!16-bl|
|00000ec0| 6b 25 21 32 34 0d 00 63 | 05 e1 0d 00 64 15 dd 20 |k%!24..c|....d.. |
|00000ed0| f2 6e 65 77 65 64 69 74 | 28 78 25 2c 79 25 29 0d |.newedit|(x%,y%).|
|00000ee0| 00 65 16 f2 77 69 6e 64 | 6f 77 69 6e 66 6f 28 6d |.e..wind|owinfo(m|
|00000ef0| 61 69 6e 25 29 0d 00 66 | 0b 78 25 2d 3d 77 78 25 |ain%)..f|.x%-=wx%|
|00000f00| 0d 00 67 0b 79 25 2d 3d | 77 79 25 0d 00 68 11 f2 |..g.y%-=|wy%..h..|
|00000f10| 61 6c 74 65 72 28 78 25 | 2c 79 25 29 0d 00 69 16 |alter(x%|,y%)..i.|
|00000f20| e7 20 78 25 3e 3d 31 20 | 80 20 78 25 3c 3d 31 32 |. x%>=1 |. x%<=12|
|00000f30| 20 8c 0d 00 6a 2b e7 20 | 79 25 3e 3d 73 64 25 28 | ...j+. |y%>=sd%(|
|00000f40| 78 25 29 20 80 20 79 25 | 3c 3d 73 64 25 28 78 25 |x%) . y%|<=sd%(x%|
|00000f50| 29 2b 6d 6c 25 28 78 25 | 29 2d 31 20 8c 0d 00 6b |)+ml%(x%|)-1 ...k|
|00000f60| 15 64 25 3d 28 79 25 2d | 73 64 25 28 78 25 29 29 |.d%=(y%-|sd%(x%))|
|00000f70| 2b 31 0d 00 6c 09 6d 25 | 3d 78 25 0d 00 6d 10 f2 |+1..l.m%|=x%..m..|
|00000f80| 65 64 69 74 28 64 25 2c | 6d 25 29 0d 00 6e 05 cd |edit(d%,|m%)..n..|
|00000f90| 0d 00 6f 05 cd 0d 00 70 | 05 e1 0d 00 71 12 dd 20 |..o....p|....q.. |
|00000fa0| f2 65 64 69 74 28 64 25 | 2c 6d 25 29 0d 00 72 15 |.edit(d%|,m%)..r.|
|00000fb0| e7 20 63 64 61 74 65 25 | 3e 30 20 8c 20 f2 67 65 |. cdate%|>0 . .ge|
|00000fc0| 74 0d 00 73 0d 63 64 61 | 74 65 25 3d 64 25 0d 00 |t..s.cda|te%=d%..|
|00000fd0| 74 0e 63 6d 6f 6e 74 68 | 25 3d 6d 25 0d 00 75 08 |t.cmonth|%=m%..u.|
|00000fe0| f2 73 65 74 0d 00 76 0f | 21 62 6c 6b 25 3d 65 64 |.set..v.|!blk%=ed|
|00000ff0| 69 74 25 0d 00 77 20 c8 | 99 22 57 69 6d 70 5f 47 |it%..w .|."Wimp_G|
|00001000| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 62 |etWindow|Info",,b|
|00001010| 6c 6b 25 0d 00 78 5d 74 | 69 74 6c 65 24 3d 64 61 |lk%..x]t|itle$=da|
|00001020| 79 24 28 28 73 64 25 28 | 63 6d 6f 6e 74 68 25 29 |y$((sd%(|cmonth%)|
|00001030| 2b 63 64 61 74 65 25 2d | 31 29 83 37 29 2b 22 20 |+cdate%-|1).7)+" |
|00001040| 22 2b c3 28 63 64 61 74 | 65 25 29 2b 22 20 22 2b |"+.(cdat|e%)+" "+|
|00001050| c0 6d 6f 6e 74 68 24 28 | 63 6d 6f 6e 74 68 25 29 |.month$(|cmonth%)|
|00001060| 2c 33 29 2b 22 20 22 2b | c3 28 79 65 61 72 25 29 |,3)+" "+|.(year%)|
|00001070| 0d 00 79 15 24 28 62 6c | 6b 25 21 37 36 29 3d 74 |..y.$(bl|k%!76)=t|
|00001080| 69 74 6c 65 24 0d 00 7a | 0e 62 6c 6b 25 21 32 38 |itle$..z|.blk%!28|
|00001090| 3d 2d 31 0d 00 7b 1d c8 | 99 22 57 69 6d 70 5f 4f |=-1..{..|."Wimp_O|
|000010a0| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 25 |penWindo|w",,blk%|
|000010b0| 0d 00 7c 30 c8 99 22 57 | 69 6d 70 5f 53 65 74 43 |..|0.."W|imp_SetC|
|000010c0| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 22 2c 21 62 |aretPosi|tion",!b|
|000010d0| 6c 6b 25 2c 30 2c 2d 31 | 2c 2d 31 2c 2d 31 2c 30 |lk%,0,-1|,-1,-1,0|
|000010e0| 0d 00 7d 14 f2 6e 65 77 | 74 69 74 6c 65 28 21 62 |..}..new|title(!b|
|000010f0| 6c 6b 25 29 0d 00 7e 05 | e1 0d 00 7f 0a dd 20 f2 |lk%)..~.|...... .|
|00001100| 73 65 74 0d 00 80 0e e3 | 20 69 25 3d 30 20 b8 20 |set.....| i%=0 . |
|00001110| 34 0d 00 81 0f 21 62 6c | 6b 25 3d 65 64 69 74 25 |4....!bl|k%=edit%|
|00001120| 0d 00 82 0d 62 6c 6b 25 | 21 34 3d 69 25 0d 00 83 |....blk%|!4=i%...|
|00001130| 1f c8 99 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |..."Wimp|_GetIcon|
|00001140| 53 74 61 74 65 22 2c 2c | 62 6c 6b 25 0d 00 84 22 |State",,|blk%..."|
|00001150| 6c 69 6e 65 24 3d a4 6c | 69 6e 65 28 63 64 61 74 |line$=.l|ine(cdat|
|00001160| 65 25 2c 63 6d 6f 6e 74 | 68 25 2c 69 25 29 0d 00 |e%,cmont|h%,i%)..|
|00001170| 85 19 e7 20 6c 69 6e 65 | 24 3c 3e 24 28 62 6c 6b |... line|$<>$(blk|
|00001180| 25 21 32 38 29 20 8c 0d | 00 86 14 24 28 62 6c 6b |%!28) ..|...$(blk|
|00001190| 25 21 32 38 29 3d 6c 69 | 6e 65 24 0d 00 87 0c 62 |%!28)=li|ne$....b|
|000011a0| 6c 6b 25 21 38 3d 30 0d | 00 88 0d 62 6c 6b 25 21 |lk%!8=0.|...blk%!|
|000011b0| 31 32 3d 30 0d 00 89 1f | c8 99 22 57 69 6d 70 5f |12=0....|.."Wimp_|
|000011c0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|000011d0| 6c 6b 25 0d 00 8a 05 cd | 0d 00 8b 08 ed 20 69 25 |lk%.....|..... i%|
|000011e0| 0d 00 8c 25 68 69 67 68 | 63 6f 6c 25 3d a4 66 6c |...%high|col%=.fl|
|000011f0| 61 67 28 63 64 61 74 65 | 25 2c 63 6d 6f 6e 74 68 |ag(cdate|%,cmonth|
|00001200| 25 29 80 31 35 0d 00 8d | 0f e3 20 61 25 3d 30 20 |%).15...|.. a%=0 |
|00001210| b8 20 31 33 0d 00 8e 28 | f2 73 65 74 66 63 28 65 |. 13...(|.setfc(e|
|00001220| 64 69 74 25 2c 61 25 2b | 39 2c 31 2d 28 61 25 3d |dit%,a%+|9,1-(a%=|
|00001230| 68 69 67 68 63 6f 6c 25 | 29 2a 36 29 0d 00 8f 08 |highcol%|)*6)....|
|00001240| ed 20 61 25 0d 00 90 12 | 74 68 69 73 63 68 61 6e |. a%....|thischan|
|00001250| 67 65 64 25 3d a3 0d 00 | 91 05 e1 0d 00 92 0a dd |ged%=...|........|
|00001260| 20 f2 67 65 74 0d 00 93 | 0e e3 20 69 25 3d 30 20 | .get...|.. i%=0 |
|00001270| b8 20 34 0d 00 94 0f 21 | 62 6c 6b 25 3d 65 64 69 |. 4....!|blk%=edi|
|00001280| 74 25 0d 00 95 0d 62 6c | 6b 25 21 34 3d 69 25 0d |t%....bl|k%!4=i%.|
|00001290| 00 96 1f c8 99 22 57 69 | 6d 70 5f 47 65 74 49 63 |....."Wi|mp_GetIc|
|000012a0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6b 25 0d 00 |onState"|,,blk%..|
|000012b0| 97 2c e7 20 a4 6c 69 6e | 65 28 63 64 61 74 65 25 |.,. .lin|e(cdate%|
|000012c0| 2c 63 6d 6f 6e 74 68 25 | 2c 69 25 29 3c 3e 24 28 |,cmonth%|,i%)<>$(|
|000012d0| 62 6c 6b 25 21 32 38 29 | 20 8c 0d 00 98 0e 63 68 |blk%!28)| .....ch|
|000012e0| 61 6e 67 65 64 25 3d b9 | 0d 00 99 12 74 68 69 73 |anged%=.|....this|
|000012f0| 63 68 61 6e 67 65 64 25 | 3d b9 0d 00 9a 28 f2 73 |changed%|=....(.s|
|00001300| 74 6f 72 65 28 63 64 61 | 74 65 25 2c 63 6d 6f 6e |tore(cda|te%,cmon|
|00001310| 74 68 25 2c 69 25 2c 24 | 28 62 6c 6b 25 21 32 38 |th%,i%,$|(blk%!28|
|00001320| 29 29 0d 00 9b 05 cd 0d | 00 9c 08 ed 20 69 25 0d |))......|.... i%.|
|00001330| 00 9d 2c e7 20 74 68 69 | 73 63 68 61 6e 67 65 64 |..,. thi|schanged|
|00001340| 25 20 8c 20 f2 75 70 64 | 61 74 65 28 63 64 61 74 |% . .upd|ate(cdat|
|00001350| 65 25 2c 63 6d 6f 6e 74 | 68 25 29 0d 00 9e 12 74 |e%,cmont|h%)....t|
|00001360| 68 69 73 63 68 61 6e 67 | 65 64 25 3d a3 0d 00 9f |hischang|ed%=....|
|00001370| 05 e1 0d 00 a0 14 dd 20 | f2 75 70 64 61 74 65 28 |....... |.update(|
|00001380| 64 25 2c 6d 25 29 0d 00 | a1 0f 77 78 25 3d 30 3a |d%,m%)..|..wx%=0:|
|00001390| 77 79 25 3d 30 0d 00 a2 | 20 6d 69 6e 79 25 3d a4 |wy%=0...| miny%=.|
|000013a0| 79 28 64 25 2d 31 2b 73 | 64 25 28 6d 25 29 29 2d |y(d%-1+s|d%(m%))-|
|000013b0| 62 6f 78 68 25 0d 00 a3 | 4a c8 99 22 57 69 6d 70 |boxh%...|J.."Wimp|
|000013c0| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 6d 61 |_ForceRe|draw",ma|
|000013d0| 69 6e 25 2c a4 78 28 6d | 25 29 2b 32 2c 6d 69 6e |in%,.x(m|%)+2,min|
|000013e0| 79 25 2b 34 2c a4 78 28 | 6d 25 29 2b 62 6f 78 77 |y%+4,.x(|m%)+boxw|
|000013f0| 25 2d 32 2c 6d 69 6e 79 | 25 2b 62 6f 78 68 25 0d |%-2,miny|%+boxh%.|
|00001400| 00 a4 05 e1 0d 00 a5 10 | dd 20 a4 6c 6f 61 64 28 |........|. .load(|
|00001410| 79 72 25 29 0d 00 a6 0b | 6c 6f 61 64 25 3d a3 0d |yr%)....|load%=..|
|00001420| 00 a7 32 c8 99 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |..2.."OS|_File",5|
|00001430| 2c 64 69 72 24 2b 22 2e | 22 2b c3 28 79 72 25 29 |,dir$+".|"+.(yr%)|
|00001440| 20 b8 20 65 78 69 73 74 | 25 2c 2c 2c 2c 6c 65 6e | . exist|%,,,,len|
|00001450| 25 0d 00 a8 10 e7 20 65 | 78 69 73 74 25 3d 31 20 |%..... e|xist%=1 |
|00001460| 8c 0d 00 a9 17 e7 20 6c | 65 6e 25 3c 3e 64 69 61 |...... l|en%<>dia|
|00001470| 72 79 6c 65 6e 25 20 8c | 0d 00 aa 1f f2 65 72 72 |rylen% .|.....err|
|00001480| 6f 72 28 22 43 61 6e 6e | 6f 74 20 6c 6f 61 64 20 |or("Cann|ot load |
|00001490| 64 69 61 72 79 22 29 0d | 00 ab 05 cc 0d 00 ac 2a |diary").|.......*|
|000014a0| c8 99 22 4f 53 5f 46 69 | 6c 65 22 2c 32 35 35 2c |.."OS_Fi|le",255,|
|000014b0| 64 69 72 24 2b 22 2e 22 | 2b c3 28 79 72 25 29 2c |dir$+"."|+.(yr%),|
|000014c0| 64 69 61 72 79 25 0d 00 | ad 0b 6c 6f 61 64 25 3d |diary%..|..load%=|
|000014d0| b9 0d 00 ae 05 cd 0d 00 | af 05 cc 0d 00 b0 3b e7 |........|......;.|
|000014e0| 20 a4 63 68 65 63 6b 28 | 22 59 65 61 72 20 50 6c | .check(|"Year Pl|
|000014f0| 61 6e 20 64 6f 65 73 20 | 6e 6f 74 20 65 78 69 73 |an does |not exis|
|00001500| 74 2c 20 63 72 65 61 74 | 65 20 6e 65 77 20 6f 6e |t, creat|e new on|
|00001510| 65 3f 22 29 20 8c 0d 00 | b1 14 c8 99 22 48 6f 75 |e?") ...|...."Hou|
|00001520| 72 67 6c 61 73 73 5f 4f | 6e 22 0d 00 b2 11 f2 73 |rglass_O|n".....s|
|00001530| 65 74 79 65 61 72 28 79 | 72 25 29 0d 00 b3 08 64 |etyear(y|r%)....d|
|00001540| 25 3d 31 0d 00 b4 08 6d | 25 3d 31 0d 00 b5 0c c8 |%=1....m|%=1.....|
|00001550| 95 20 6d 25 3c 31 33 0d | 00 b6 08 74 25 3d 30 0d |. m%<13.|...t%=0.|
|00001560| 00 b7 38 e7 20 28 28 64 | 25 2b 73 64 25 28 6d 25 |..8. ((d|%+sd%(m%|
|00001570| 29 2d 31 29 83 37 29 3d | 30 20 84 20 28 28 64 25 |)-1).7)=|0 . ((d%|
|00001580| 2b 73 64 25 28 6d 25 29 | 2d 31 29 83 37 3d 36 29 |+sd%(m%)|-1).7=6)|
|00001590| 20 8c 20 74 25 3d 31 0d | 00 b8 24 e7 20 28 64 25 | . t%=1.|..$. (d%|
|000015a0| 3d 32 35 20 84 20 64 25 | 3d 32 36 29 20 80 20 6d |=25 . d%|=26) . m|
|000015b0| 25 3d 31 32 20 8c 20 74 | 25 3d 32 0d 00 b9 18 e7 |%=12 . t|%=2.....|
|000015c0| 20 64 25 3d 31 20 80 20 | 6d 25 3d 31 20 8c 20 74 | d%=1 . |m%=1 . t|
|000015d0| 25 3d 32 0d 00 ba 16 f2 | 73 65 74 66 6c 61 67 28 |%=2.....|setflag(|
|000015e0| 64 25 2c 6d 25 2c 74 25 | 29 0d 00 bb 0e e3 20 6c |d%,m%,t%|)..... l|
|000015f0| 25 3d 30 20 b8 20 34 0d | 00 bc 17 f2 73 74 6f 72 |%=0 . 4.|....stor|
|00001600| 65 28 64 25 2c 6d 25 2c | 6c 25 2c 22 22 29 0d 00 |e(d%,m%,|l%,"")..|
|00001610| bd 08 ed 20 6c 25 0d 00 | be 09 64 25 2b 3d 31 0d |... l%..|..d%+=1.|
|00001620| 00 bf 1d e7 20 64 25 3e | 6d 6c 25 28 6d 25 29 20 |.... d%>|ml%(m%) |
|00001630| 8c 20 64 25 3d 31 3a 6d | 25 2b 3d 31 0d 00 c0 05 |. d%=1:m|%+=1....|
|00001640| ce 0d 00 c1 0e f2 73 61 | 76 65 28 79 72 25 29 0d |......sa|ve(yr%).|
|00001650| 00 c2 15 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |....."Ho|urglass_|
|00001660| 4f 66 66 22 0d 00 c3 0b | 6c 6f 61 64 25 3d b9 0d |Off"....|load%=..|
|00001670| 00 c4 05 cd 0d 00 c5 05 | cd 0d 00 c6 18 e7 20 6c |........|...... l|
|00001680| 6f 61 64 25 20 8c 20 63 | 68 61 6e 67 65 64 25 3d |oad% . c|hanged%=|
|00001690| a3 0d 00 c7 0a 3d 6c 6f | 61 64 25 0d 00 c8 18 dd |.....=lo|ad%.....|
|000016a0| 20 f2 73 65 74 66 6c 61 | 67 28 64 25 2c 6d 25 2c | .setfla|g(d%,m%,|
|000016b0| 66 25 29 0d 00 c9 20 64 | 69 61 72 79 25 3f 28 28 |f%)... d|iary%?((|
|000016c0| 64 25 2d 31 29 2b 28 6d | 25 2d 31 29 2a 33 31 29 |d%-1)+(m|%-1)*31)|
|000016d0| 3d 66 25 0d 00 ca 05 e1 | 0d 00 cb 12 dd 20 a4 66 |=f%.....|..... .f|
|000016e0| 6c 61 67 28 64 25 2c 6d | 25 29 0d 00 cc 1e 3d 64 |lag(d%,m|%)....=d|
|000016f0| 69 61 72 79 25 3f 28 28 | 64 25 2d 31 29 2b 28 6d |iary%?((|d%-1)+(m|
|00001700| 25 2d 31 29 2a 33 31 29 | 0d 00 cd 14 dd 20 f2 65 |%-1)*31)|..... .e|
|00001710| 72 72 6f 72 28 65 72 72 | 6f 72 24 29 0d 00 ce 15 |rror(err|or$)....|
|00001720| 64 25 3d a4 63 68 65 63 | 6b 28 65 72 72 6f 72 24 |d%=.chec|k(error$|
|00001730| 29 0d 00 cf 05 e1 0d 00 | d0 12 dd 20 f2 73 61 76 |).......|... .sav|
|00001740| 65 28 79 65 61 72 25 29 | 0d 00 d1 08 f2 67 65 74 |e(year%)|.....get|
|00001750| 0d 00 d2 3f c8 99 22 4f | 53 5f 46 69 6c 65 22 2c |...?.."O|S_File",|
|00001760| 30 2c 64 69 72 24 2b 22 | 2e 22 2b c3 28 79 65 61 |0,dir$+"|."+.(yea|
|00001770| 72 25 29 2c 30 2c 30 2c | 64 69 61 72 79 25 2c 64 |r%),0,0,|diary%,d|
|00001780| 69 61 72 79 6c 65 6e 25 | 2b 64 69 61 72 79 25 0d |iarylen%|+diary%.|
|00001790| 00 d3 0e 63 68 61 6e 67 | 65 64 25 3d a3 0d 00 d4 |...chang|ed%=....|
|000017a0| 05 e1 0d 00 d5 10 dd 20 | f2 73 65 74 65 78 74 65 |....... |.setexte|
|000017b0| 6e 74 0d 00 d6 12 c8 8e | 20 63 6f 6c 77 69 64 74 |nt......| colwidt|
|000017c0| 68 25 20 ca 0d 00 d7 12 | c9 20 30 20 3a 20 62 6f |h% .....|. 0 : bo|
|000017d0| 78 77 25 3d 36 34 0d 00 | d8 13 c9 20 31 20 3a 20 |xw%=64..|... 1 : |
|000017e0| 62 6f 78 77 25 3d 31 32 | 38 0d 00 d9 13 c9 20 32 |boxw%=12|8..... 2|
|000017f0| 20 3a 20 62 6f 78 77 25 | 3d 31 37 36 0d 00 da 13 | : boxw%|=176....|
|00001800| c9 20 33 20 3a 20 62 6f | 78 77 25 3d 32 35 36 0d |. 3 : bo|xw%=256.|
|00001810| 00 db 13 c9 20 34 20 3a | 20 62 6f 78 77 25 3d 33 |.... 4 :| boxw%=3|
|00001820| 38 34 0d 00 dc 05 cb 0d | 00 dd 12 21 62 6c 6b 25 |84......|...!blk%|
|00001830| 3d 62 6f 78 77 25 2d 38 | 34 0d 00 de 19 62 6c 6b |=boxw%-8|4....blk|
|00001840| 25 21 34 3d 2d 28 62 6f | 78 68 25 2a 33 38 2b 31 |%!4=-(bo|xh%*38+1|
|00001850| 32 29 0d 00 df 16 62 6c | 6b 25 21 38 3d 31 33 2a |2)....bl|k%!8=13*|
|00001860| 62 6f 78 77 25 2b 38 32 | 0d 00 e0 11 62 6c 6b 25 |boxw%+82|....blk%|
|00001870| 21 31 32 3d 62 6f 78 68 | 25 0d 00 e1 21 c8 99 22 |!12=boxh|%...!.."|
|00001880| 57 69 6d 70 5f 53 65 74 | 45 78 74 65 6e 74 22 2c |Wimp_Set|Extent",|
|00001890| 6d 61 69 6e 25 2c 62 6c | 6b 25 0d 00 e2 05 e1 0d |main%,bl|k%......|
|000018a0| 00 e3 13 dd 20 f2 73 65 | 74 79 65 61 72 28 6e 79 |.... .se|tyear(ny|
|000018b0| 25 29 0d 00 e4 22 f2 74 | 69 63 6b 28 79 65 61 72 |%)...".t|ick(year|
|000018c0| 6d 65 6e 75 25 2c 6e 79 | 25 2d 74 68 69 73 79 65 |menu%,ny|%-thisye|
|000018d0| 61 72 25 29 0d 00 e5 12 | e7 20 79 65 61 72 25 3c |ar%)....|. year%<|
|000018e0| 3e 6e 79 25 20 8c 0d 00 | e6 0d 79 65 61 72 25 3d |>ny% ...|..year%=|
|000018f0| 6e 79 25 0d 00 e7 0f 21 | 62 6c 6b 25 3d 6d 61 69 |ny%....!|blk%=mai|
|00001900| 6e 25 0d 00 e8 20 c8 99 | 22 57 69 6d 70 5f 47 65 |n%... ..|"Wimp_Ge|
|00001910| 74 57 69 6e 64 6f 77 49 | 6e 66 6f 22 2c 2c 62 6c |tWindowI|nfo",,bl|
|00001920| 6b 25 0d 00 e9 24 24 28 | 62 6c 6b 25 21 37 36 29 |k%...$$(|blk%!76)|
|00001930| 3d 22 59 65 61 72 20 50 | 6c 61 6e 20 22 2b c3 28 |="Year P|lan "+.(|
|00001940| 79 65 61 72 25 29 0d 00 | ea 2b e7 20 28 79 65 61 |year%)..|.+. (yea|
|00001950| 72 25 20 83 20 34 29 3d | 30 20 8c 20 6d 6c 25 28 |r% . 4)=|0 . ml%(|
|00001960| 32 29 3d 32 39 20 8b 20 | 6d 6c 25 28 32 29 3d 32 |2)=29 . |ml%(2)=2|
|00001970| 38 0d 00 eb 28 73 64 25 | 28 31 29 3d 28 28 79 65 |8...(sd%|(1)=((ye|
|00001980| 61 72 25 2b 28 28 79 65 | 61 72 25 2d 31 29 20 81 |ar%+((ye|ar%-1) .|
|00001990| 20 34 29 2b 31 29 83 37 | 29 0d 00 ec 0f e3 20 6d | 4)+1).7|)..... m|
|000019a0| 25 3d 32 20 b8 20 31 32 | 0d 00 ed 23 73 64 25 28 |%=2 . 12|...#sd%(|
|000019b0| 6d 25 29 3d 28 73 64 25 | 28 6d 25 2d 31 29 2b 6d |m%)=(sd%|(m%-1)+m|
|000019c0| 6c 25 28 6d 25 2d 31 29 | 29 83 37 0d 00 ee 08 ed |l%(m%-1)|).7.....|
|000019d0| 20 6d 25 0d 00 ef 05 cd | 0d 00 f0 05 e1 0d 00 f1 | m%.....|........|
|000019e0| 11 dd 20 f2 64 65 63 6f | 64 65 64 72 61 67 0d 00 |.. .deco|dedrag..|
|000019f0| f2 12 c8 8e 20 64 72 61 | 67 77 69 6e 64 25 20 ca |.... dra|gwind% .|
|00001a00| 0d 00 f3 0f c9 20 73 61 | 76 65 66 66 66 31 25 0d |..... sa|vefff1%.|
|00001a10| 00 f4 0f f2 63 72 65 61 | 74 65 74 65 78 74 0d 00 |....crea|tetext..|
|00001a20| f5 0f 73 69 7a 65 25 3d | a4 73 69 7a 65 0d 00 f6 |..size%=|.size...|
|00001a30| 12 66 69 6c 65 74 79 70 | 65 25 3d 74 66 74 25 0d |.filetyp|e%=tft%.|
|00001a40| 00 f7 1b 66 69 6c 65 6e | 61 6d 65 25 3d 66 69 6c |...filen|ame%=fil|
|00001a50| 65 6e 61 6d 65 66 66 66 | 31 25 0d 00 f8 0f c9 20 |enamefff|1%..... |
|00001a60| 73 61 76 65 66 66 66 32 | 25 0d 00 f9 0b 73 69 7a |savefff2|%....siz|
|00001a70| 65 25 3d 30 0d 00 fa 12 | 66 69 6c 65 74 79 70 65 |e%=0....|filetype|
|00001a80| 25 3d 74 66 74 25 0d 00 | fb 1b 66 69 6c 65 6e 61 |%=tft%..|..filena|
|00001a90| 6d 65 25 3d 66 69 6c 65 | 6e 61 6d 65 66 66 66 32 |me%=file|namefff2|
|00001aa0| 25 0d 00 fc 0e c9 20 73 | 61 76 65 61 66 66 25 0d |%..... s|aveaff%.|
|00001ab0| 00 fd 0b 73 69 7a 65 25 | 3d 30 0d 00 fe 12 66 69 |...size%|=0....fi|
|00001ac0| 6c 65 74 79 70 65 25 3d | 64 66 74 25 0d 00 ff 1a |letype%=|dft%....|
|00001ad0| 66 69 6c 65 6e 61 6d 65 | 25 3d 66 69 6c 65 6e 61 |filename|%=filena|
|00001ae0| 6d 65 61 66 66 25 0d 01 | 00 05 cb 0d 01 01 1b c8 |meaff%..|........|
|00001af0| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e |."Wimp_C|reateMen|
|00001b00| 75 22 2c 2c 2d 31 0d 01 | 02 21 c8 99 22 57 69 6d |u",,-1..|.!.."Wim|
|00001b10| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|00001b20| 22 2c 2c 62 6c 6b 25 0d | 01 03 12 62 6c 6b 25 21 |",,blk%.|...blk%!|
|00001b30| 33 32 3d 62 6c 6b 25 21 | 34 0d 01 04 11 62 6c 6b |32=blk%!|4....blk|
|00001b40| 25 21 32 38 3d 21 62 6c | 6b 25 0d 01 05 13 62 6c |%!28=!bl|k%....bl|
|00001b50| 6b 25 21 32 34 3d 62 6c | 6b 25 21 31 36 0d 01 06 |k%!24=bl|k%!16...|
|00001b60| 13 62 6c 6b 25 21 32 30 | 3d 62 6c 6b 25 21 31 32 |.blk%!20|=blk%!12|
|00001b70| 0d 01 07 0d 62 6c 6b 25 | 21 31 36 3d 31 0d 01 08 |....blk%|!16=1...|
|00001b80| 0d 62 6c 6b 25 21 31 32 | 3d 30 0d 01 09 11 62 6c |.blk%!12|=0....bl|
|00001b90| 6b 25 21 33 36 3d 73 69 | 7a 65 25 0d 01 0a 15 62 |k%!36=si|ze%....b|
|00001ba0| 6c 6b 25 21 34 30 3d 66 | 69 6c 65 74 79 70 65 25 |lk%!40=f|iletype%|
|00001bb0| 0d 01 0b 26 24 28 62 6c | 6b 25 2b 34 34 29 3d a4 |...&$(bl|k%+44)=.|
|00001bc0| 6c 61 73 74 62 69 74 28 | 24 66 69 6c 65 6e 61 6d |lastbit(|$filenam|
|00001bd0| 65 25 29 2b bd 30 0d 01 | 0c 0c 21 62 6c 6b 25 3d |e%)+.0..|..!blk%=|
|00001be0| 36 30 0d 01 0d 30 c8 99 | 22 57 69 6d 70 5f 53 65 |60...0..|"Wimp_Se|
|00001bf0| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 6c |ndMessag|e",17,bl|
|00001c00| 6b 25 2c 62 6c 6b 25 21 | 32 30 2c 62 6c 6b 25 21 |k%,blk%!|20,blk%!|
|00001c10| 32 34 0d 01 0e 0c 74 72 | 61 6e 73 25 3d 30 0d 01 |24....tr|ans%=0..|
|00001c20| 0f 05 e1 0d 01 10 0b dd | 20 a4 73 69 7a 65 0d 01 |........| .size..|
|00001c30| 11 1e 3d 74 65 78 74 73 | 69 7a 65 25 2b 28 a9 28 |..=texts|ize%+(.(|
|00001c40| 74 69 74 6c 65 24 29 2b | 31 29 2a 32 0d 01 12 11 |title$)+|1)*2....|
|00001c50| dd 20 f2 63 72 65 61 74 | 65 74 65 78 74 0d 01 13 |. .creat|etext...|
|00001c60| 18 6f 66 66 25 3d 28 a9 | 28 74 69 74 6c 65 24 29 |.off%=(.|(title$)|
|00001c70| 2b 31 29 2a 32 0d 01 14 | 19 24 74 65 78 74 62 75 |+1)*2...|.$textbu|
|00001c80| 66 66 25 3d 74 69 74 6c | 65 24 2b bd 31 30 0d 01 |ff%=titl|e$+.10..|
|00001c90| 15 30 24 28 74 65 78 74 | 62 75 66 66 25 2b a9 28 |.0$(text|buff%+.(|
|00001ca0| 74 69 74 6c 65 24 29 2b | 31 29 3d c4 a9 28 74 69 |title$)+|1)=..(ti|
|00001cb0| 74 6c 65 24 29 2c 22 7e | 22 29 2b bd 31 30 0d 01 |tle$),"~|")+.10..|
|00001cc0| 16 0e e3 20 69 25 3d 30 | 20 b8 20 34 0d 01 17 0f |... i%=0| . 4....|
|00001cd0| 21 62 6c 6b 25 3d 65 64 | 69 74 25 0d 01 18 0d 62 |!blk%=ed|it%....b|
|00001ce0| 6c 6b 25 21 34 3d 69 25 | 0d 01 19 1f c8 99 22 57 |lk%!4=i%|......"W|
|00001cf0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00001d00| 22 2c 2c 62 6c 6b 25 0d | 01 1a 41 24 28 74 65 78 |",,blk%.|..A$(tex|
|00001d10| 74 62 75 66 66 25 2b 69 | 25 2a 32 31 2b 6f 66 66 |tbuff%+i|%*21+off|
|00001d20| 25 29 3d 24 28 62 6c 6b | 25 21 32 38 29 2b c4 32 |%)=$(blk|%!28)+.2|
|00001d30| 30 2d a9 28 24 28 62 6c | 6b 25 21 32 38 29 29 2c |0-.($(bl|k%!28)),|
|00001d40| 22 20 22 29 2b bd 31 30 | 0d 01 1b 08 ed 20 69 25 |" ")+.10|..... i%|
|00001d50| 0d 01 1c 05 e1 0d 01 1d | 15 dd 20 a4 6c 61 73 74 |........|.. .last|
|00001d60| 62 69 74 28 66 69 6c 65 | 24 29 0d 01 1e 12 c8 95 |bit(file|$)......|
|00001d70| 20 a7 66 69 6c 65 24 2c | 22 2e 22 29 0d 01 1f 1f | .file$,|".")....|
|00001d80| 66 69 6c 65 24 3d c1 66 | 69 6c 65 24 2c a7 66 69 |file$=.f|ile$,.fi|
|00001d90| 6c 65 24 2c 22 2e 22 29 | 2b 31 29 0d 01 20 05 ce |le$,".")|+1).. ..|
|00001da0| 0d 01 21 0a 3d 66 69 6c | 65 24 0d 01 22 22 dd 20 |..!.=fil|e$.."". |
|00001db0| f2 6b 65 79 28 77 69 6e | 64 25 2c 69 63 6f 6e 25 |.key(win|d%,icon%|
|00001dc0| 2c 78 70 6f 73 25 2c 6b | 65 79 25 29 0d 01 23 46 |,xpos%,k|ey%)..#F|
|00001dd0| e7 20 28 77 69 6e 64 25 | 3d 73 61 76 65 66 66 66 |. (wind%|=savefff|
|00001de0| 31 25 20 84 20 77 69 6e | 64 25 3d 73 61 76 65 66 |1% . win|d%=savef|
|00001df0| 66 66 32 25 20 84 20 77 | 69 6e 64 25 3d 73 61 76 |ff2% . w|ind%=sav|
|00001e00| 65 61 66 66 25 29 20 80 | 20 6b 65 79 25 3d 31 33 |eaff%) .| key%=13|
|00001e10| 20 8c 0d 01 24 0e c8 8e | 20 77 69 6e 64 25 20 ca | ...$...| wind% .|
|00001e20| 0d 01 25 2d c9 20 73 61 | 76 65 66 66 66 31 25 20 |..%-. sa|vefff1% |
|00001e30| 3a 20 f2 73 61 76 65 74 | 65 78 74 28 24 66 69 6c |: .savet|ext($fil|
|00001e40| 65 6e 61 6d 65 66 66 66 | 31 25 2c 30 29 0d 01 26 |enamefff|1%,0)..&|
|00001e50| 31 c9 20 73 61 76 65 66 | 66 66 32 25 20 3a 20 f2 |1. savef|ff2% : .|
|00001e60| 73 61 76 65 6d 6f 6e 74 | 68 66 66 66 28 24 66 69 |savemont|hfff($fi|
|00001e70| 6c 65 6e 61 6d 65 66 66 | 66 32 25 2c 30 29 0d 01 |lenameff|f2%,0)..|
|00001e80| 27 2f c9 20 73 61 76 65 | 61 66 66 25 20 3a 20 f2 |'/. save|aff% : .|
|00001e90| 73 61 76 65 6d 6f 6e 74 | 68 61 66 66 28 24 66 69 |savemont|haff($fi|
|00001ea0| 6c 65 6e 61 6d 65 61 66 | 66 25 2c 30 29 0d 01 28 |lenameaf|f%,0)..(|
|00001eb0| 05 cb 0d 01 29 05 cc 0d | 01 2a 13 e7 20 77 69 6e |....)...|.*.. win|
|00001ec0| 64 25 3d 65 64 69 74 25 | 20 8c 0d 01 2b 0d c8 8e |d%=edit%| ...+...|
|00001ed0| 20 6b 65 79 25 20 ca 0d | 01 2c 16 c9 20 26 31 38 | key% ..|.,.. &18|
|00001ee0| 46 20 3a 20 f2 6d 6f 76 | 65 28 2d 31 29 0d 01 2d |F : .mov|e(-1)..-|
|00001ef0| 18 c9 20 26 31 38 45 2c | 31 33 20 3a 20 f2 6d 6f |.. &18E,|13 : .mo|
|00001f00| 76 65 28 31 29 0d 01 2e | 05 cb 0d 01 2f 05 cc 0d |ve(1)...|..../...|
|00001f10| 01 30 1c c8 99 22 57 69 | 6d 70 5f 50 72 6f 63 65 |.0..."Wi|mp_Proce|
|00001f20| 73 73 4b 65 79 22 2c 6b | 65 79 25 0d 01 31 05 cd |ssKey",k|ey%..1..|
|00001f30| 0d 01 32 05 cd 0d 01 33 | 05 e1 0d 01 34 11 dd 20 |..2....3|....4.. |
|00001f40| f2 6d 6f 76 65 28 69 6e | 63 25 29 0d 01 35 25 e7 |.move(in|c%)..5%.|
|00001f50| 20 69 63 6f 6e 25 2b 69 | 6e 63 25 3e 3d 30 20 80 | icon%+i|nc%>=0 .|
|00001f60| 20 69 63 6f 6e 25 2b 69 | 6e 63 25 3c 3d 34 20 8c | icon%+i|nc%<=4 .|
|00001f70| 0d 01 36 0f 69 63 6f 6e | 25 2b 3d 69 6e 63 25 0d |..6.icon|%+=inc%.|
|00001f80| 01 37 37 c8 99 22 57 69 | 6d 70 5f 53 65 74 43 61 |.77.."Wi|mp_SetCa|
|00001f90| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 77 69 6e |retPosit|ion",win|
|00001fa0| 64 25 2c 69 63 6f 6e 25 | 2c 78 70 6f 73 25 2c 30 |d%,icon%|,xpos%,0|
|00001fb0| 2c 2d 31 2c 2d 31 0d 01 | 38 05 cd 0d 01 39 08 f2 |,-1,-1..|8....9..|
|00001fc0| 67 65 74 0d 01 3a 05 e1 | 0d 01 3b 1a dd 20 f2 73 |get..:..|..;.. .s|
|00001fd0| 61 76 65 74 65 78 74 28 | 66 69 6c 65 24 2c 6f 6b |avetext(|file$,ok|
|00001fe0| 25 29 0d 01 3c 0c 73 61 | 76 65 64 25 3d a3 0d 01 |%)..<.sa|ved%=...|
|00001ff0| 3d 0f e7 20 a4 6e 61 6d | 65 6f 6b 20 8c 0d 01 3e |=.. .nam|eok ...>|
|00002000| 0f f2 63 72 65 61 74 65 | 74 65 78 74 0d 01 3f 1b |..create|text..?.|
|00002010| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00002020| 6e 75 22 2c 2c 2d 31 0d | 01 40 39 c8 99 22 4f 53 |nu",,-1.|.@9.."OS|
|00002030| 5f 46 69 6c 65 22 2c 31 | 30 2c 66 69 6c 65 24 2c |_File",1|0,file$,|
|00002040| 74 66 74 25 2c 30 2c 74 | 65 78 74 62 75 66 66 25 |tft%,0,t|extbuff%|
|00002050| 2c 74 65 78 74 62 75 66 | 66 25 2b a4 73 69 7a 65 |,textbuf|f%+.size|
|00002060| 0d 01 41 2a e7 20 a7 66 | 69 6c 65 24 2c 22 3c 22 |..A*. .f|ile$,"<"|
|00002070| 29 3d 30 20 8c 20 24 66 | 69 6c 65 6e 61 6d 65 66 |)=0 . $f|ilenamef|
|00002080| 66 66 31 25 3d 66 69 6c | 65 24 0d 01 42 0c 73 61 |ff1%=fil|e$..B.sa|
|00002090| 76 65 64 25 3d b9 0d 01 | 43 05 cd 0d 01 44 05 e1 |ved%=...|C....D..|
|000020a0| 0d 01 45 1e dd 20 f2 73 | 61 76 65 6d 6f 6e 74 68 |..E.. .s|avemonth|
|000020b0| 61 66 66 28 66 69 6c 65 | 24 2c 6f 6b 25 29 0d 01 |aff(file|$,ok%)..|
|000020c0| 46 14 c8 99 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |F..."Hou|rglass_O|
|000020d0| 6e 22 0d 01 47 12 6f 78 | 25 3d 31 32 38 3a 6f 79 |n"..G.ox|%=128:oy|
|000020e0| 25 3d 36 34 0d 01 48 0c | 73 61 76 65 64 25 3d a3 |%=64..H.|saved%=.|
|000020f0| 0d 01 49 0f e7 20 a4 6e | 61 6d 65 6f 6b 20 8c 0d |..I.. .n|ameok ..|
|00002100| 01 4a 1b c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |.J..."Wi|mp_Creat|
|00002110| 65 4d 65 6e 75 22 2c 2c | 2d 31 0d 01 4b 11 66 69 |eMenu",,|-1..K.fi|
|00002120| 6c 65 3d ae 28 66 69 6c | 65 24 29 0d 01 4c 0e e7 |le=.(fil|e$)..L..|
|00002130| 20 66 69 6c 65 3d 30 20 | 8c 0d 01 4d 1e f2 72 65 | file=0 |...M..re|
|00002140| 70 6f 72 74 28 22 43 61 | 6e 27 74 20 6f 70 65 6e |port("Ca|n't open|
|00002150| 20 66 69 6c 65 22 29 0d | 01 4e 05 cc 0d 01 4f 0b | file").|.N....O.|
|00002160| f2 68 65 61 64 65 72 0d | 01 50 09 f2 66 6f 6e 74 |.header.|.P..font|
|00002170| 0d 01 51 08 79 25 3d 35 | 0d 01 52 13 78 25 3d 73 |..Q.y%=5|..R.x%=s|
|00002180| 64 25 28 63 6d 6f 6e 74 | 68 25 29 0d 01 53 0b 78 |d%(cmont|h%)..S.x|
|00002190| 73 25 3d 32 35 36 0d 01 | 54 0b 79 73 25 3d 32 30 |s%=256..|T.ys%=20|
|000021a0| 30 0d 01 55 40 f2 74 65 | 78 74 28 6d 6f 6e 74 68 |0..U@.te|xt(month|
|000021b0| 24 28 63 6d 6f 6e 74 68 | 25 29 2c 33 2e 35 2a 78 |$(cmonth|%),3.5*x|
|000021c0| 73 25 2b 6f 78 25 2c 28 | 79 25 2b 31 29 2a 79 73 |s%+ox%,(|y%+1)*ys|
|000021d0| 25 2b 39 36 2b 6f 79 25 | 2c 33 32 2c 33 32 2c 31 |%+96+oy%|,32,32,1|
|000021e0| 29 0d 01 56 0e e3 20 64 | 25 3d 30 20 b8 20 36 0d |)..V.. d|%=0 . 6.|
|000021f0| 01 57 3f 20 20 f2 74 65 | 78 74 28 64 61 79 24 28 |.W?  .te|xt(day$(|
|00002200| 64 25 29 2c 28 64 25 2b | 2e 35 29 2a 78 73 25 2b |d%),(d%+|.5)*xs%+|
|00002210| 6f 78 25 2c 28 79 25 2b | 31 29 2a 79 73 25 2b 31 |ox%,(y%+|1)*ys%+1|
|00002220| 36 2b 6f 79 25 2c 33 32 | 2c 31 36 2c 31 29 0d 01 |6+oy%,32|,16,1)..|
|00002230| 58 08 ed 20 64 25 0d 01 | 59 19 e3 20 64 25 3d 31 |X.. d%..|Y.. d%=1|
|00002240| 20 b8 20 6d 6c 25 28 63 | 6d 6f 6e 74 68 25 29 0d | . ml%(c|month%).|
|00002250| 01 5a 2a 20 20 f2 71 75 | 61 64 28 78 25 2a 78 73 |.Z*  .qu|ad(x%*xs|
|00002260| 25 2b 6f 78 25 2c 79 25 | 2a 79 73 25 2b 6f 79 25 |%+ox%,y%|*ys%+oy%|
|00002270| 2c 78 73 25 2c 79 73 25 | 29 0d 01 5b 39 20 20 f2 |,xs%,ys%|)..[9  .|
|00002280| 74 65 78 74 28 c3 28 64 | 25 29 2c 78 25 2a 78 73 |text(.(d|%),x%*xs|
|00002290| 25 2b 38 2b 6f 78 25 2c | 28 79 25 2b 31 29 2a 79 |%+8+ox%,|(y%+1)*y|
|000022a0| 73 25 2d 33 32 2b 6f 79 | 25 2c 31 34 2c 31 34 2c |s%-32+oy|%,14,14,|
|000022b0| 30 29 0d 01 5c 10 20 20 | e3 20 69 25 3d 30 20 b8 |0)..\.  |. i%=0 .|
|000022c0| 20 34 0d 01 5d 22 20 20 | 20 20 6c 69 6e 65 24 3d | 4..]"  |  line$=|
|000022d0| a4 6c 69 6e 65 28 64 25 | 2c 63 6d 6f 6e 74 68 25 |.line(d%|,cmonth%|
|000022e0| 2c 69 25 29 0d 01 5e 4e | 20 20 20 20 e7 20 a9 6c |,i%)..^N|    . .l|
|000022f0| 69 6e 65 24 20 8c 20 f2 | 74 65 78 74 28 6c 69 6e |ine$ . .|text(lin|
|00002300| 65 24 2c 78 25 2a 78 73 | 25 2b 38 2b 6f 78 25 2c |e$,x%*xs|%+8+ox%,|
|00002310| 28 79 25 2b 31 29 2a 79 | 73 25 2d 28 69 25 2a 32 |(y%+1)*y|s%-(i%*2|
|00002320| 38 2b 36 38 29 2b 6f 79 | 25 2c 31 30 2c 31 30 2c |8+68)+oy|%,10,10,|
|00002330| 30 29 0d 01 5f 0a 20 20 | ed 20 69 25 0d 01 60 0b |0).._.  |. i%..`.|
|00002340| 20 20 78 25 2b 3d 31 0d | 01 61 19 20 20 e7 20 78 |  x%+=1.|.a.  . x|
|00002350| 25 3e 36 20 8c 20 78 25 | 3d 30 3a 79 25 2d 3d 31 |%>6 . x%|=0:y%-=1|
|00002360| 0d 01 62 08 ed 20 64 25 | 0d 01 63 09 f2 74 61 69 |..b.. d%|..c..tai|
|00002370| 6c 0d 01 64 29 e7 20 a7 | 66 69 6c 65 24 2c 22 3c |l..d). .|file$,"<|
|00002380| 22 29 3d 30 20 8c 20 24 | 66 69 6c 65 6e 61 6d 65 |")=0 . $|filename|
|00002390| 61 66 66 25 3d 66 69 6c | 65 24 0d 01 65 11 a2 23 |aff%=fil|e$..e..#|
|000023a0| 66 69 6c 65 3d 8f 23 66 | 69 6c 65 0d 01 66 10 73 |file=.#f|ile..f.s|
|000023b0| 69 7a 65 25 3d a2 23 66 | 69 6c 65 0d 01 67 0a d9 |ize%=.#f|ile..g..|
|000023c0| 23 66 69 6c 65 0d 01 68 | 1c f2 73 65 74 66 69 6c |#file..h|..setfil|
|000023d0| 65 74 79 70 65 28 66 69 | 6c 65 24 2c 64 66 74 25 |etype(fi|le$,dft%|
|000023e0| 29 0d 01 69 0c 73 61 76 | 65 64 25 3d b9 0d 01 6a |)..i.sav|ed%=...j|
|000023f0| 05 cd 0d 01 6b 05 cd 0d | 01 6c 15 c8 99 22 48 6f |....k...|.l..."Ho|
|00002400| 75 72 67 6c 61 73 73 5f | 4f 66 66 22 0d 01 6d 05 |urglass_|Off"..m.|
|00002410| e1 0d 01 6e 13 f4 20 53 | 55 42 52 4f 55 54 49 4e |...n.. S|UBROUTIN|
|00002420| 45 53 20 31 0d 01 6f 0b | dd 20 f2 66 6f 6e 74 0d |ES 1..o.|. .font.|
|00002430| 01 70 11 73 74 61 72 74 | 25 3d 8f 23 66 69 6c 65 |.p.start|%=.#file|
|00002440| 0d 01 71 09 f2 77 28 30 | 29 0d 01 72 09 f2 77 28 |..q..w(0|)..r..w(|
|00002450| 30 29 0d 01 73 0c d5 23 | 66 69 6c 65 2c 31 0d 01 |0)..s..#|file,1..|
|00002460| 74 1b 66 6f 6e 74 24 3d | 22 48 6f 6d 65 72 74 6f |t.font$=|"Homerto|
|00002470| 6e 2e 4d 65 64 69 75 6d | 22 0d 01 75 0f f2 73 74 |n.Medium|"..u..st|
|00002480| 30 28 66 6f 6e 74 24 29 | 0d 01 76 26 f2 73 65 74 |0(font$)|..v&.set|
|00002490| 77 6f 72 64 28 73 74 61 | 72 74 25 2b 34 2c 28 8f |word(sta|rt%+4,(.|
|000024a0| 23 66 69 6c 65 29 2d 73 | 74 61 72 74 25 29 0d 01 |#file)-s|tart%)..|
|000024b0| 77 05 e1 0d 01 78 28 dd | 20 f2 74 65 78 74 28 74 |w....x(.| .text(t|
|000024c0| 65 78 74 24 2c 78 30 25 | 2c 79 30 25 2c 73 78 25 |ext$,x0%|,y0%,sx%|
|000024d0| 2c 73 79 25 2c 74 79 70 | 65 25 29 0d 01 79 32 c8 |,sy%,typ|e%)..y2.|
|000024e0| 99 22 46 6f 6e 74 5f 46 | 69 6e 64 46 6f 6e 74 22 |."Font_F|indFont"|
|000024f0| 2c 2c 66 6f 6e 74 24 2c | 73 78 25 2a 31 36 2c 73 |,,font$,|sx%*16,s|
|00002500| 79 25 2a 31 36 20 b8 20 | 68 61 6e 64 25 0d 01 7a |y%*16 . |hand%..z|
|00002510| 31 c8 99 22 46 6f 6e 74 | 5f 53 74 72 69 6e 67 42 |1.."Font|_StringB|
|00002520| 42 6f 78 22 2c 2c 74 65 | 78 74 24 20 b8 20 2c 6c |Box",,te|xt$ . ,l|
|00002530| 78 25 2c 6c 79 25 2c 6d | 78 25 2c 6d 79 25 0d 01 |x%,ly%,m|x%,my%..|
|00002540| 7b 34 c8 99 22 46 6f 6e | 74 5f 43 6f 6e 76 65 72 |{4.."Fon|t_Conver|
|00002550| 74 74 6f 4f 53 22 2c 2c | 6c 78 25 2a 32 35 36 2c |ttoOS",,|lx%*256,|
|00002560| 6c 79 25 2a 32 35 36 20 | b8 20 2c 6c 78 25 2c 6c |ly%*256 |. ,lx%,l|
|00002570| 79 25 0d 01 7c 34 c8 99 | 22 46 6f 6e 74 5f 43 6f |y%..|4..|"Font_Co|
|00002580| 6e 76 65 72 74 74 6f 4f | 53 22 2c 2c 6d 78 25 2a |nverttoO|S",,mx%*|
|00002590| 32 35 36 2c 6d 79 25 2a | 32 35 36 20 b8 20 2c 6d |256,my%*|256 . ,m|
|000025a0| 78 25 2c 6d 79 25 0d 01 | 7d 0f 78 30 25 3d 78 30 |x%,my%..|}.x0%=x0|
|000025b0| 25 2a 32 35 36 0d 01 7e | 0f 79 30 25 3d 79 30 25 |%*256..~|.y0%=y0%|
|000025c0| 2a 32 35 36 0d 01 7f 20 | e7 20 74 79 70 65 25 3d |*256... |. type%=|
|000025d0| 31 20 8c 20 78 30 25 2d | 3d 28 6d 78 25 2d 6c 78 |1 . x0%-|=(mx%-lx|
|000025e0| 25 29 2f 32 0d 01 80 11 | 73 74 61 72 74 25 3d 8f |%)/2....|start%=.|
|000025f0| 23 66 69 6c 65 0d 01 81 | 09 f2 77 28 31 29 0d 01 |#file...|..w(1)..|
|00002600| 82 09 f2 77 28 30 29 0d | 01 83 2f f2 73 65 74 62 |...w(0).|../.setb|
|00002610| 6f 75 6e 64 73 28 78 30 | 25 2b 6c 78 25 2c 79 30 |ounds(x0|%+lx%,y0|
|00002620| 25 2b 6c 79 25 2c 78 30 | 25 2b 6d 78 25 2c 79 30 |%+ly%,x0|%+mx%,y0|
|00002630| 25 2b 6d 79 25 29 0d 01 | 84 09 f2 77 28 30 29 0d |%+my%)..|...w(0).|
|00002640| 01 85 11 f2 77 28 26 46 | 46 46 46 46 46 30 30 29 |....w(&F|FFFFF00)|
|00002650| 0d 01 86 09 f2 77 28 31 | 29 0d 01 87 0f f2 77 28 |.....w(1|).....w(|
|00002660| 73 78 25 2a 36 34 30 29 | 0d 01 88 0f f2 77 28 73 |sx%*640)|.....w(s|
|00002670| 79 25 2a 36 34 30 29 0d | 01 89 0b f2 77 28 78 30 |y%*640).|....w(x0|
|00002680| 25 29 0d 01 8a 0b f2 77 | 28 79 30 25 29 0d 01 8b |%).....w|(y0%)...|
|00002690| 0f f2 73 74 30 28 74 65 | 78 74 24 29 0d 01 8c 26 |..st0(te|xt$)...&|
|000026a0| f2 73 65 74 77 6f 72 64 | 28 73 74 61 72 74 25 2b |.setword|(start%+|
|000026b0| 34 2c 28 8f 23 66 69 6c | 65 29 2d 73 74 61 72 74 |4,(.#fil|e)-start|
|000026c0| 25 29 0d 01 8d 05 e1 0d | 01 8e 1c dd 20 f2 71 75 |%)......|.... .qu|
|000026d0| 61 64 28 78 30 25 2c 79 | 30 25 2c 78 31 25 2c 79 |ad(x0%,y|0%,x1%,y|
|000026e0| 31 25 29 0d 01 8f 0f 78 | 30 25 3d 78 30 25 2a 32 |1%)....x|0%=x0%*2|
|000026f0| 35 36 0d 01 90 0f 78 31 | 25 3d 78 31 25 2a 32 35 |56....x1|%=x1%*25|
|00002700| 36 0d 01 91 0f 79 30 25 | 3d 79 30 25 2a 32 35 36 |6....y0%|=y0%*256|
|00002710| 0d 01 92 0f 79 31 25 3d | 79 31 25 2a 32 35 36 0d |....y1%=|y1%*256.|
|00002720| 01 93 11 73 74 61 72 74 | 25 3d 8f 23 66 69 6c 65 |...start|%=.#file|
|00002730| 0d 01 94 09 f2 77 28 32 | 29 0d 01 95 09 f2 77 28 |.....w(2|).....w(|
|00002740| 30 29 0d 01 96 27 f2 73 | 65 74 62 6f 75 6e 64 73 |0)...'.s|etbounds|
|00002750| 28 78 30 25 2c 79 30 25 | 2c 78 30 25 2b 78 31 25 |(x0%,y0%|,x0%+x1%|
|00002760| 2c 79 30 25 2b 79 31 25 | 29 0d 01 97 15 f2 77 28 |,y0%+y1%|).....w(|
|00002770| 2d 31 29 3a f4 20 66 69 | 6c 6c 20 63 6f 6c 0d 01 |-1):. fi|ll col..|
|00002780| 98 15 f2 77 28 30 29 20 | 3a f4 20 6c 69 6e 65 20 |...w(0) |:. line |
|00002790| 63 6f 6c 0d 01 99 09 f2 | 77 28 30 29 0d 01 9a 11 |col.....|w(0)....|
|000027a0| f2 77 28 26 32 30 31 30 | 30 30 34 30 29 0d 01 9b |.w(&2010|0040)...|
|000027b0| 09 f2 77 28 32 29 0d 01 | 9c 14 f2 70 6c 6f 74 28 |..w(2)..|...plot(|
|000027c0| 78 30 25 2c 79 30 25 2c | 38 29 0d 01 9d 18 f2 70 |x0%,y0%,|8).....p|
|000027d0| 6c 6f 74 28 78 30 25 2b | 78 31 25 2c 79 30 25 2c |lot(x0%+|x1%,y0%,|
|000027e0| 38 29 0d 01 9e 1c f2 70 | 6c 6f 74 28 78 30 25 2b |8).....p|lot(x0%+|
|000027f0| 78 31 25 2c 79 30 25 2b | 79 31 25 2c 38 29 0d 01 |x1%,y0%+|y1%,8)..|
|00002800| 9f 18 f2 70 6c 6f 74 28 | 78 30 25 2c 79 30 25 2b |...plot(|x0%,y0%+|
|00002810| 79 31 25 2c 38 29 0d 01 | a0 14 f2 70 6c 6f 74 28 |y1%,8)..|...plot(|
|00002820| 78 30 25 2c 79 30 25 2c | 35 29 0d 01 a1 09 f2 77 |x0%,y0%,|5).....w|
|00002830| 28 30 29 0d 01 a2 26 f2 | 73 65 74 77 6f 72 64 28 |(0)...&.|setword(|
|00002840| 73 74 61 72 74 25 2b 34 | 2c 28 8f 23 66 69 6c 65 |start%+4|,(.#file|
|00002850| 29 2d 73 74 61 72 74 25 | 29 0d 01 a3 05 e1 0d 01 |)-start%|).......|
|00002860| a4 11 dd 20 f2 73 74 30 | 28 74 65 78 74 24 29 0d |... .st0|(text$).|
|00002870| 01 a5 11 d5 23 66 69 6c | 65 2c 74 65 78 74 24 3b |....#fil|e,text$;|
|00002880| 0d 01 a6 0c d5 23 66 69 | 6c 65 2c 30 0d 01 a7 15 |.....#fi|le,0....|
|00002890| c8 95 20 28 28 8f 23 66 | 69 6c 65 29 83 34 29 3e |.. ((.#f|ile).4)>|
|000028a0| 30 0d 01 a8 0c d5 23 66 | 69 6c 65 2c 30 0d 01 a9 |0.....#f|ile,0...|
|000028b0| 05 ce 0d 01 aa 05 e1 0d | 01 ab 15 dd 20 f2 73 65 |........|.... .se|
|000028c0| 74 77 6f 72 64 28 70 25 | 2c 77 25 29 0d 01 ac 10 |tword(p%|,w%)....|
|000028d0| 74 65 6d 70 25 3d 8f 23 | 66 69 6c 65 0d 01 ad 0d |temp%=.#|file....|
|000028e0| cf 23 66 69 6c 65 3d 70 | 25 0d 01 ae 0a f2 77 28 |.#file=p|%.....w(|
|000028f0| 77 25 29 0d 01 af 10 cf | 23 66 69 6c 65 3d 74 65 |w%).....|#file=te|
|00002900| 6d 70 25 0d 01 b0 05 e1 | 0d 01 b1 15 dd 20 f2 70 |mp%.....|..... .p|
|00002910| 6c 6f 74 28 78 25 2c 79 | 25 2c 74 25 29 0d 01 b2 |lot(x%,y|%,t%)...|
|00002920| 0a f2 77 28 78 25 29 0d | 01 b3 0a f2 77 28 79 25 |..w(x%).|....w(y%|
|00002930| 29 0d 01 b4 0a f2 77 28 | 74 25 29 0d 01 b5 05 e1 |).....w(|t%).....|
|00002940| 0d 01 b6 0d dd 20 f2 68 | 65 61 64 65 72 0d 01 b7 |..... .h|eader...|
|00002950| 12 d5 23 66 69 6c 65 2c | 22 44 72 61 77 22 3b 0d |..#file,|"Draw";.|
|00002960| 01 b8 0b f2 77 28 32 30 | 31 29 0d 01 b9 09 f2 77 |....w(20|1).....w|
|00002970| 28 30 29 0d 01 ba 1a d5 | 23 66 69 6c 65 2c 22 41 |(0).....|#file,"A|
|00002980| 72 63 44 72 61 77 20 20 | 20 20 20 22 3b 0d 01 bb |rcDraw  |   ";...|
|00002990| 0f 6d 69 6e 78 25 3d 31 | 3c 3c 33 30 0d 01 bc 0f |.minx%=1|<<30....|
|000029a0| 6d 69 6e 79 25 3d 31 3c | 3c 33 30 0d 01 bd 0f 6d |miny%=1<|<30....m|
|000029b0| 61 78 78 25 3d 31 3c 3c | 33 31 0d 01 be 0f 6d 61 |axx%=1<<|31....ma|
|000029c0| 78 79 25 3d 31 3c 3c 33 | 31 0d 01 bf 15 62 6f 75 |xy%=1<<3|1....bou|
|000029d0| 6e 64 73 70 74 72 25 3d | 8f 23 66 69 6c 65 0d 01 |ndsptr%=|.#file..|
|000029e0| c0 09 f2 77 28 30 29 0d | 01 c1 09 f2 77 28 30 29 |...w(0).|....w(0)|
|000029f0| 0d 01 c2 09 f2 77 28 30 | 29 0d 01 c3 09 f2 77 28 |.....w(0|).....w(|
|00002a00| 30 29 0d 01 c4 05 e1 0d | 01 c5 0b dd 20 f2 74 61 |0)......|.... .ta|
|00002a10| 69 6c 0d 01 c6 10 74 65 | 6d 70 25 3d 8f 23 66 69 |il....te|mp%=.#fi|
|00002a20| 6c 65 0d 01 c7 15 cf 23 | 66 69 6c 65 3d 62 6f 75 |le.....#|file=bou|
|00002a30| 6e 64 73 70 74 72 25 0d | 01 c8 0d f2 77 28 6d 69 |ndsptr%.|....w(mi|
|00002a40| 6e 78 25 29 0d 01 c9 0d | f2 77 28 6d 69 6e 79 25 |nx%)....|.w(miny%|
|00002a50| 29 0d 01 ca 0d f2 77 28 | 6d 61 78 78 25 29 0d 01 |).....w(|maxx%)..|
|00002a60| cb 0d f2 77 28 6d 61 78 | 79 25 29 0d 01 cc 10 cf |...w(max|y%).....|
|00002a70| 23 66 69 6c 65 3d 74 65 | 6d 70 25 0d 01 cd 05 e1 |#file=te|mp%.....|
|00002a80| 0d 01 ce 21 dd 20 f2 73 | 65 74 62 6f 75 6e 64 73 |...!. .s|etbounds|
|00002a90| 28 78 30 25 2c 79 30 25 | 2c 78 31 25 2c 79 31 25 |(x0%,y0%|,x1%,y1%|
|00002aa0| 29 0d 01 cf 0b f2 77 28 | 78 30 25 29 0d 01 d0 0b |).....w(|x0%)....|
|00002ab0| f2 77 28 79 30 25 29 0d | 01 d1 0b f2 77 28 78 31 |.w(y0%).|....w(x1|
|00002ac0| 25 29 0d 01 d2 0b f2 77 | 28 79 31 25 29 0d 01 d3 |%).....w|(y1%)...|
|00002ad0| 1b e7 20 78 30 25 3c 6d | 69 6e 78 25 20 8c 20 6d |.. x0%<m|inx% . m|
|00002ae0| 69 6e 78 25 3d 78 30 25 | 0d 01 d4 1b e7 20 79 30 |inx%=x0%|..... y0|
|00002af0| 25 3c 6d 69 6e 79 25 20 | 8c 20 6d 69 6e 79 25 3d |%<miny% |. miny%=|
|00002b00| 79 30 25 0d 01 d5 1b e7 | 20 78 31 25 3e 6d 61 78 |y0%.....| x1%>max|
|00002b10| 78 25 20 8c 20 6d 61 78 | 78 25 3d 78 31 25 0d 01 |x% . max|x%=x1%..|
|00002b20| d6 1b e7 20 79 31 25 3e | 6d 61 78 79 25 20 8c 20 |... y1%>|maxy% . |
|00002b30| 6d 61 78 79 25 3d 79 31 | 25 0d 01 d7 05 e1 0d 01 |maxy%=y1|%.......|
|00002b40| d8 0f dd 20 f2 77 28 21 | 62 6c 6b 25 29 0d 01 d9 |... .w(!|blk%)...|
|00002b50| 0e e3 20 61 25 3d 30 20 | b8 20 33 0d 01 da 14 20 |.. a%=0 |. 3.... |
|00002b60| 20 d5 23 66 69 6c 65 2c | 62 6c 6b 25 3f 61 25 0d | .#file,|blk%?a%.|
|00002b70| 01 db 08 ed 20 61 25 0d | 01 dc 05 e1 0d 01 dd 1e |.... a%.|........|
|00002b80| dd 20 f2 73 61 76 65 6d | 6f 6e 74 68 66 66 66 28 |. .savem|onthfff(|
|00002b90| 66 69 6c 65 24 2c 6f 6b | 25 29 0d 01 de 0c 73 61 |file$,ok|%)....sa|
|00002ba0| 76 65 64 25 3d a3 0d 01 | df 0f e7 20 a4 6e 61 6d |ved%=...|... .nam|
|00002bb0| 65 6f 6b 20 8c 0d 01 e0 | 1b c8 99 22 57 69 6d 70 |eok ....|..."Wimp|
|00002bc0| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 2d 31 |_CreateM|enu",,-1|
|00002bd0| 0d 01 e1 11 66 69 6c 65 | 3d ae 28 66 69 6c 65 24 |....file|=.(file$|
|00002be0| 29 0d 01 e2 0e e7 20 66 | 69 6c 65 3d 30 20 8c 0d |)..... f|ile=0 ..|
|00002bf0| 01 e3 25 f2 72 65 70 6f | 72 74 28 22 43 61 6e 6e |..%.repo|rt("Cann|
|00002c00| 6f 74 20 63 72 65 61 74 | 65 20 74 65 78 74 66 69 |ot creat|e textfi|
|00002c10| 6c 65 22 29 0d 01 e4 05 | cc 0d 01 e5 29 d5 23 66 |le")....|....).#f|
|00002c20| 69 6c 65 2c c4 28 32 37 | 2d a9 6d 6f 6e 74 68 24 |ile,.(27|-.month$|
|00002c30| 28 63 6d 6f 6e 74 68 25 | 29 29 2f 32 2c 22 20 22 |(cmonth%|))/2," "|
|00002c40| 29 3b 0d 01 e6 1a d5 23 | 66 69 6c 65 2c 6d 6f 6e |);.....#|file,mon|
|00002c50| 74 68 24 28 63 6d 6f 6e | 74 68 25 29 0d 01 e7 0d |th$(cmon|th%)....|
|00002c60| d5 23 66 69 6c 65 2c 31 | 30 0d 01 e8 19 e3 20 64 |.#file,1|0..... d|
|00002c70| 25 3d 31 20 b8 20 6d 6c | 25 28 63 6d 6f 6e 74 68 |%=1 . ml|%(cmonth|
|00002c80| 25 29 0d 01 e9 27 d5 23 | 66 69 6c 65 2c 64 61 79 |%)...'.#|file,day|
|00002c90| 24 28 28 64 25 2b 73 64 | 25 28 63 6d 6f 6e 74 68 |$((d%+sd|%(cmonth|
|00002ca0| 25 29 2d 31 29 83 37 29 | 3b 0d 01 ea 17 e7 20 64 |%)-1).7)|;..... d|
|00002cb0| 25 3c 31 30 20 8c 20 d5 | 23 66 69 6c 65 2c 33 32 |%<10 . .|#file,32|
|00002cc0| 0d 01 eb 0d d5 23 66 69 | 6c 65 2c 33 32 0d 01 ec |.....#fi|le,32...|
|00002cd0| 11 d5 23 66 69 6c 65 2c | c3 28 64 25 29 3b 0d 01 |..#file,|.(d%);..|
|00002ce0| ed 0d d5 23 66 69 6c 65 | 2c 33 32 0d 01 ee 09 73 |...#file|,32....s|
|00002cf0| 24 3d 22 22 0d 01 ef 08 | 63 25 3d a3 0d 01 f0 0e |$=""....|c%=.....|
|00002d00| e3 20 61 25 3d 30 20 b8 | 20 34 0d 01 f1 1b 6c 24 |. a%=0 .| 4....l$|
|00002d10| 3d a4 6c 69 6e 65 28 64 | 25 2c 63 6d 6f 6e 74 68 |=.line(d|%,cmonth|
|00002d20| 25 2c 61 25 29 0d 01 f2 | 0b e7 20 a9 6c 24 20 8c |%,a%)...|.. .l$ .|
|00002d30| 0d 01 f3 13 e7 20 63 25 | 20 8c 20 73 24 2b 3d 22 |..... c%| . s$+="|
|00002d40| 2c 20 22 0d 01 f4 0a 73 | 24 2b 3d 6c 24 0d 01 f5 |, "....s|$+=l$...|
|00002d50| 08 63 25 3d b9 0d 01 f6 | 05 cd 0d 01 f7 08 ed 20 |.c%=....|....... |
|00002d60| 61 25 0d 01 f8 0d d5 23 | 66 69 6c 65 2c 73 24 0d |a%.....#|file,s$.|
|00002d70| 01 f9 08 ed 20 64 25 0d | 01 fa 0a d9 23 66 69 6c |.... d%.|....#fil|
|00002d80| 65 0d 01 fb 1c f2 73 65 | 74 66 69 6c 65 74 79 70 |e.....se|tfiletyp|
|00002d90| 65 28 66 69 6c 65 24 2c | 74 66 74 25 29 0d 01 fc |e(file$,|tft%)...|
|00002da0| 2a e7 20 a7 66 69 6c 65 | 24 2c 22 3c 22 29 3d 30 |*. .file|$,"<")=0|
|00002db0| 20 8c 20 24 66 69 6c 65 | 6e 61 6d 65 66 66 66 32 | . $file|namefff2|
|00002dc0| 25 3d 66 69 6c 65 24 0d | 01 fd 0c 73 61 76 65 64 |%=file$.|...saved|
|00002dd0| 25 3d b9 0d 01 fe 05 cd | 0d 01 ff 05 cd 0d 02 00 |%=......|........|
|00002de0| 05 e1 0d 02 01 0d dd 20 | a4 6e 61 6d 65 6f 6b 0d |....... |.nameok.|
|00002df0| 02 02 0d 72 65 73 75 6c | 74 25 3d b9 0d 02 03 28 |...resul|t%=....(|
|00002e00| e7 20 a7 66 69 6c 65 24 | 2c 22 3a 22 29 2b a7 66 |. .file$|,":")+.f|
|00002e10| 69 6c 65 24 2c 22 2e 22 | 29 3d 30 20 80 20 ac 6f |ile$,"."|)=0 . .o|
|00002e20| 6b 25 20 8c 0d 02 04 48 | f2 72 65 70 6f 72 74 28 |k% ....H|.report(|
|00002e30| 22 54 6f 20 73 61 76 65 | 2c 20 64 72 61 67 20 59 |"To save|, drag Y|
|00002e40| 65 61 72 20 50 6c 61 6e | 20 69 63 6f 6e 20 74 6f |ear Plan| icon to|
|00002e50| 20 61 20 64 69 72 65 63 | 74 6f 72 79 20 76 69 65 | a direc|tory vie|
|00002e60| 77 65 72 20 22 2b 66 69 | 6c 65 24 29 0d 02 05 0d |wer "+fi|le$)....|
|00002e70| 72 65 73 75 6c 74 25 3d | a3 0d 02 06 05 cd 0d 02 |result%=|........|
|00002e80| 07 0c 3d 72 65 73 75 6c | 74 25 0d 02 08 0d dd 20 |..=resul|t%..... |
|00002e90| f2 72 65 64 72 61 77 0d | 02 09 16 f2 77 69 6e 64 |.redraw.|....wind|
|00002ea0| 6f 77 69 6e 66 6f 28 6d | 61 69 6e 25 29 0d 02 0a |owinfo(m|ain%)...|
|00002eb0| 27 c8 99 22 57 69 6d 70 | 5f 52 65 64 72 61 77 57 |'.."Wimp|_RedrawW|
|00002ec0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 25 20 b8 20 6d |indow",,|blk% . m|
|00002ed0| 6f 72 65 25 0d 02 0b 0c | c8 95 20 6d 6f 72 65 25 |ore%....|.. more%|
|00002ee0| 0d 02 0c 13 e7 20 21 62 | 6c 6b 25 3d 6d 61 69 6e |..... !b|lk%=main|
|00002ef0| 25 20 8c 0d 02 0d 15 6d | 69 6e 78 25 3d 62 6c 6b |% .....m|inx%=blk|
|00002f00| 25 21 32 38 2d 77 78 25 | 0d 02 0e 15 6d 69 6e 79 |%!28-wx%|....miny|
|00002f10| 25 3d 62 6c 6b 25 21 34 | 30 2d 77 79 25 0d 02 0f |%=blk%!4|0-wy%...|
|00002f20| 1f 6d 61 78 78 25 3d 28 | 62 6c 6b 25 21 33 36 2d |.maxx%=(|blk%!36-|
|00002f30| 77 78 25 29 2b 62 6f 78 | 77 25 2d 31 0d 02 10 21 |wx%)+box|w%-1...!|
|00002f40| 6d 61 78 79 25 3d 28 62 | 6c 6b 25 21 33 32 2d 77 |maxy%=(b|lk%!32-w|
|00002f50| 79 25 29 2d 28 62 6f 78 | 68 25 2b 31 29 0d 02 11 |y%)-(box|h%+1)...|
|00002f60| 0e 74 6f 70 25 3d 6d 61 | 78 79 25 0d 02 12 17 f2 |.top%=ma|xy%.....|
|00002f70| 61 6c 74 65 72 28 6d 69 | 6e 78 25 2c 6d 69 6e 79 |alter(mi|nx%,miny|
|00002f80| 25 29 0d 02 13 17 f2 61 | 6c 74 65 72 28 6d 61 78 |%).....a|lter(max|
|00002f90| 78 25 2c 6d 61 78 79 25 | 29 0d 02 14 18 c8 99 22 |x%,maxy%|)......"|
|00002fa0| 57 69 6d 70 5f 53 65 74 | 43 6f 6c 6f 75 72 22 2c |Wimp_Set|Colour",|
|00002fb0| 37 0d 02 15 16 e3 20 78 | 25 3d 6d 69 6e 78 25 20 |7..... x|%=minx% |
|00002fc0| b8 20 6d 61 78 78 25 0d | 02 16 2c e7 20 28 74 6f |. maxx%.|..,. (to|
|00002fd0| 70 25 3c 30 20 84 20 6d | 61 78 79 25 3e 33 37 29 |p%<0 . m|axy%>37)|
|00002fe0| 20 80 20 78 25 3e 3d 31 | 20 80 20 78 25 3c 3d 31 | . x%>=1| . x%<=1|
|00002ff0| 32 20 8c 0d 02 17 2b e7 | 20 63 6f 6c 77 69 64 74 |2 ....+.| colwidt|
|00003000| 68 25 3c 32 20 8c 20 63 | 25 3d 33 20 8b 20 63 25 |h%<2 . c|%=3 . c%|
|00003010| 3d a9 28 6d 6f 6e 74 68 | 24 28 78 25 29 29 0d 02 |=.(month|$(x%))..|
|00003020| 18 3a ec 20 a4 78 28 78 | 25 29 2b 28 62 6f 78 77 |.:. .x(x|%)+(boxw|
|00003030| 25 2d 63 25 2a 31 36 29 | 2f 32 2c a4 79 28 2d 31 |%-c%*16)|/2,.y(-1|
|00003040| 2d 28 6d 61 78 79 25 3e | 33 37 29 2a 33 38 29 2d |-(maxy%>|37)*38)-|
|00003050| 74 65 78 74 6f 66 66 25 | 0d 02 19 14 f1 c0 6d 6f |textoff%|......mo|
|00003060| 6e 74 68 24 28 78 25 29 | 2c 63 25 29 0d 02 1a 05 |nth$(x%)|,c%)....|
|00003070| cd 0d 02 1b 16 e3 20 79 | 25 3d 6d 69 6e 79 25 20 |...... y|%=miny% |
|00003080| b8 20 6d 61 78 79 25 0d | 02 1c 16 e7 20 78 25 3e |. maxy%.|.... x%>|
|00003090| 3d 31 20 80 20 78 25 3c | 3d 31 32 20 8c 0d 02 1d |=1 . x%<|=12 ....|
|000030a0| 2b e7 20 79 25 3e 3d 73 | 64 25 28 78 25 29 20 80 |+. y%>=s|d%(x%) .|
|000030b0| 20 79 25 3c 3d 73 64 25 | 28 78 25 29 2b 6d 6c 25 | y%<=sd%|(x%)+ml%|
|000030c0| 28 78 25 29 2d 31 20 8c | 0d 02 1e 15 64 25 3d 28 |(x%)-1 .|....d%=(|
|000030d0| 79 25 2d 73 64 25 28 78 | 25 29 29 2b 31 0d 02 1f |y%-sd%(x|%))+1...|
|000030e0| 09 6d 25 3d 78 25 0d 02 | 20 16 66 6c 61 67 25 3d |.m%=x%..| .flag%=|
|000030f0| a4 66 6c 61 67 28 64 25 | 2c 6d 25 29 0d 02 21 16 |.flag(d%|,m%)..!.|
|00003100| 63 6f 6c 25 3d 64 63 25 | 28 66 6c 61 67 25 80 31 |col%=dc%|(flag%.1|
|00003110| 35 29 0d 02 22 0e e7 20 | 63 6f 6c 25 3e 30 20 8c |5)..".. |col%>0 .|
|00003120| 0d 02 23 1b c8 99 22 57 | 69 6d 70 5f 53 65 74 43 |..#..."W|imp_SetC|
|00003130| 6f 6c 6f 75 72 22 2c 63 | 6f 6c 25 0d 02 24 26 c8 |olour",c|ol%..$&.|
|00003140| 93 20 c8 90 20 a4 78 28 | 78 25 29 2c a4 79 28 79 |. .. .x(|x%),.y(y|
|00003150| 25 29 2c 62 6f 78 77 25 | 2d 32 2c 2d 62 6f 78 68 |%),boxw%|-2,-boxh|
|00003160| 25 0d 02 25 24 e7 20 63 | 6f 6c 25 3c 3e 37 20 8c |%..%$. c|ol%<>7 .|
|00003170| 20 c8 99 22 57 69 6d 70 | 5f 53 65 74 43 6f 6c 6f | .."Wimp|_SetColo|
|00003180| 75 72 22 2c 37 0d 02 26 | 05 cd 0d 02 27 36 e7 20 |ur",7..&|....'6. |
|00003190| 64 25 3d 74 68 69 73 64 | 61 74 65 25 20 80 20 6d |d%=thisd|ate% . m|
|000031a0| 25 3d 74 68 69 73 6d 6f | 6e 74 68 25 20 80 20 79 |%=thismo|nth% . y|
|000031b0| 65 61 72 25 3d 74 68 69 | 73 79 65 61 72 25 20 8c |ear%=thi|syear% .|
|000031c0| 0d 02 28 19 c8 99 22 57 | 69 6d 70 5f 53 65 74 43 |..(..."W|imp_SetC|
|000031d0| 6f 6c 6f 75 72 22 2c 31 | 31 0d 02 29 28 c8 93 20 |olour",1|1..)(.. |
|000031e0| a4 78 28 78 25 29 2b 32 | 2c a4 79 28 79 25 29 2d |.x(x%)+2|,.y(y%)-|
|000031f0| 34 2c 62 6f 78 77 25 2d | 36 2c 38 2d 62 6f 78 68 |4,boxw%-|6,8-boxh|
|00003200| 25 0d 02 2a 18 c8 99 22 | 57 69 6d 70 5f 53 65 74 |%..*..."|Wimp_Set|
|00003210| 43 6f 6c 6f 75 72 22 2c | 37 0d 02 2b 05 cd 0d 02 |Colour",|7..+....|
|00003220| 2c 23 c8 93 20 a4 78 28 | 78 25 29 2c a4 79 28 79 |,#.. .x(|x%),.y(y|
|00003230| 25 29 2c 62 6f 78 77 25 | 2d 32 2c 2d 62 6f 78 68 |%),boxw%|-2,-boxh|
|00003240| 25 0d 02 2d 1e ec 20 a4 | 78 28 78 25 29 2b 34 2c |%..-.. .|x(x%)+4,|
|00003250| a4 79 28 79 25 29 2d 74 | 65 78 74 6f 66 66 25 0d |.y(y%)-t|extoff%.|
|00003260| 02 2e 12 e7 20 64 25 3c | 31 30 20 8c 20 ef 20 33 |.... d%<|10 . . 3|
|00003270| 32 0d 02 2f 0b f1 c3 28 | 64 25 29 3b 0d 02 30 18 |2../...(|d%);..0.|
|00003280| 74 65 78 74 24 3d a4 6c | 69 6e 65 28 64 25 2c 6d |text$=.l|ine(d%,m|
|00003290| 25 2c 30 29 0d 02 31 11 | e7 20 74 65 78 74 24 3c |%,0)..1.|. text$<|
|000032a0| 3e 22 22 20 8c 0d 02 32 | 34 e7 20 63 6f 6c 77 69 |>"" ...2|4. colwi|
|000032b0| 64 74 68 25 3d 30 20 8c | 20 ef 20 34 32 20 8b 20 |dth%=0 .| . 42 . |
|000032c0| f1 22 20 22 3b c0 74 65 | 78 74 24 2c 28 62 6f 78 |." ";.te|xt$,(box|
|000032d0| 77 25 3e 3e 34 29 2d 34 | 29 0d 02 33 05 cd 0d 02 |w%>>4)-4|)..3....|
|000032e0| 34 05 cd 0d 02 35 05 cc | 0d 02 36 27 e7 20 28 78 |4....5..|..6'. (x|
|000032f0| 25 3d 30 20 84 20 78 25 | 3d 31 33 29 20 80 20 79 |%=0 . x%|=13) . y|
|00003300| 25 3e 3d 30 20 80 20 79 | 25 3c 3d 33 36 20 8c 0d |%>=0 . y|%<=36 ..|
|00003310| 02 37 3b ec 20 a4 78 28 | 78 25 29 2d 28 62 6f 78 |.7;. .x(|x%)-(box|
|00003320| 77 25 2d 36 38 29 2a 28 | 78 25 3d 30 29 2d 28 31 |w%-68)*(|x%=0)-(1|
|00003330| 38 2a 28 78 25 3d 31 33 | 29 29 2c a4 79 28 79 25 |8*(x%=13|)),.y(y%|
|00003340| 29 2d 74 65 78 74 6f 66 | 66 25 0d 02 38 0f f1 64 |)-textof|f%..8..d|
|00003350| 61 79 24 28 79 25 83 37 | 29 0d 02 39 05 cd 0d 02 |ay$(y%.7|)..9....|
|00003360| 3a 05 cd 0d 02 3b 08 ed | 20 79 25 0d 02 3c 08 ed |:....;..| y%..<..|
|00003370| 20 78 25 0d 02 3d 05 cd | 0d 02 3e 27 c8 99 22 57 | x%..=..|..>'.."W|
|00003380| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00003390| 22 2c 2c 62 6c 6b 25 20 | b8 20 6d 6f 72 65 25 0d |",,blk% |. more%.|
|000033a0| 02 3f 05 ce 0d 02 40 05 | e1 0d 02 41 15 dd 20 a4 |.?....@.|...A.. .|
|000033b0| 6c 69 6e 65 28 64 25 2c | 6d 25 2c 6c 25 29 0d 02 |line(d%,|m%,l%)..|
|000033c0| 42 30 3d 24 28 74 65 78 | 74 25 2b 28 28 6d 25 2d |B0=$(tex|t%+((m%-|
|000033d0| 31 29 2a 33 31 2b 28 64 | 25 2d 31 29 29 2a 74 65 |1)*31+(d|%-1))*te|
|000033e0| 78 74 73 69 7a 65 25 2b | 6c 25 2a 32 31 29 0d 02 |xtsize%+|l%*21)..|
|000033f0| 43 1c dd 20 f2 73 74 6f | 72 65 28 64 25 2c 6d 25 |C.. .sto|re(d%,m%|
|00003400| 2c 6c 25 2c 74 65 78 74 | 24 29 0d 02 44 35 24 28 |,l%,text|$)..D5$(|
|00003410| 74 65 78 74 25 2b 28 28 | 6d 25 2d 31 29 2a 33 31 |text%+((|m%-1)*31|
|00003420| 2b 28 64 25 2d 31 29 29 | 2a 74 65 78 74 73 69 7a |+(d%-1))|*textsiz|
|00003430| 65 25 2b 6c 25 2a 32 31 | 29 3d 74 65 78 74 24 0d |e%+l%*21|)=text$.|
|00003440| 02 45 05 e1 0d 02 46 0c | dd 20 a4 78 28 78 25 29 |.E....F.|. .x(x%)|
|00003450| 0d 02 47 11 3d 78 25 2a | 62 6f 78 77 25 2b 77 78 |..G.=x%*|boxw%+wx|
|00003460| 25 0d 02 48 0c dd 20 a4 | 79 28 79 25 29 0d 02 49 |%..H.. .|y(y%)..I|
|00003470| 15 3d 28 77 79 25 2d 79 | 25 2a 62 6f 78 68 25 29 |.=(wy%-y|%*boxh%)|
|00003480| 2d 34 0d 02 4a 17 dd 20 | f2 61 6c 74 65 72 28 f8 |-4..J.. |.alter(.|
|00003490| 20 78 25 2c f8 20 79 25 | 29 0d 02 4b 11 78 25 3d | x%,. y%|)..K.x%=|
|000034a0| 78 25 20 81 20 62 6f 78 | 77 25 0d 02 4c 18 79 25 |x% . box|w%..L.y%|
|000034b0| 3d 2d 28 28 79 25 2b 34 | 29 20 81 20 62 6f 78 68 |=-((y%+4|) . boxh|
|000034c0| 25 29 0d 02 4d 05 e1 0d | 02 4e 19 dd 20 f2 63 6c |%)..M...|.N.. .cl|
|000034d0| 6f 73 65 77 69 6e 64 6f | 77 28 21 62 6c 6b 25 29 |osewindo|w(!blk%)|
|000034e0| 0d 02 4f 18 e7 20 21 62 | 6c 6b 25 3d 65 64 69 74 |..O.. !b|lk%=edit|
|000034f0| 25 20 8c 20 f2 67 65 74 | 0d 02 50 1e c8 99 22 57 |% . .get|..P..."W|
|00003500| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00003510| 2c 2c 62 6c 6b 25 0d 02 | 51 27 e7 20 21 62 6c 6b |,,blk%..|Q'. !blk|
|00003520| 25 3d 6d 61 69 6e 25 20 | 8c 20 f2 63 6c 6f 73 65 |%=main% |. .close|
|00003530| 77 69 6e 64 6f 77 28 65 | 64 69 74 25 29 0d 02 52 |window(e|dit%)..R|
|00003540| 05 e1 0d 02 53 10 dd 20 | f2 63 6c 6f 73 65 64 6f |....S.. |.closedo|
|00003550| 77 6e 0d 02 54 1e c8 99 | 22 57 69 6d 70 5f 43 6c |wn..T...|"Wimp_Cl|
|00003560| 6f 73 65 44 6f 77 6e 22 | 2c 6d 79 74 61 73 6b 25 |oseDown"|,mytask%|
|00003570| 0d 02 55 05 e0 0d 02 56 | 13 f4 20 53 55 42 52 4f |..U....V|.. SUBRO|
|00003580| 55 54 49 4e 45 53 20 32 | 0d 02 57 10 dd 20 f2 6d |UTINES 2|..W.. .m|
|00003590| 6f 75 73 65 69 6e 66 6f | 0d 02 58 21 c8 99 22 57 |ouseinfo|..X!.."W|
|000035a0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000035b0| 66 6f 22 2c 2c 62 6c 6b | 25 0d 02 59 0d 6d 78 25 |fo",,blk|%..Y.mx%|
|000035c0| 3d 21 62 6c 6b 25 0d 02 | 5a 0e 6d 79 25 3d 62 6c |=!blk%..|Z.my%=bl|
|000035d0| 6b 25 21 34 0d 02 5b 0f | 62 75 74 25 3d 62 6c 6b |k%!4..[.|but%=blk|
|000035e0| 25 21 38 0d 02 5c 11 77 | 69 6e 64 25 3d 62 6c 6b |%!8..\.w|ind%=blk|
|000035f0| 25 21 31 32 0d 02 5d 11 | 69 63 6f 6e 25 3d 62 6c |%!12..].|icon%=bl|
|00003600| 6b 25 21 31 36 0d 02 5e | 05 e1 0d 02 5f 11 dd 20 |k%!16..^|...._.. |
|00003610| f2 6d 65 6e 75 73 65 6c | 65 63 74 0d 02 60 12 c8 |.menusel|ect..`..|
|00003620| 8e 20 6f 70 65 6e 6d 65 | 6e 75 25 20 ca 0d 02 61 |. openme|nu% ...a|
|00003630| 0e c9 20 6d 65 6e 75 62 | 61 72 25 0d 02 62 0e c8 |.. menub|ar%..b..|
|00003640| 8e 20 21 62 6c 6b 25 20 | ca 0d 02 63 0f c9 20 31 |. !blk% |...c.. 1|
|00003650| 20 3a 20 f2 71 75 69 74 | 0d 02 64 05 cb 0d 02 65 | : .quit|..d....e|
|00003660| 0f c9 20 6d 61 69 6e 6d | 65 6e 75 25 0d 02 66 0e |.. mainm|enu%..f.|
|00003670| c8 8e 20 21 62 6c 6b 25 | 20 ca 0d 02 67 07 c9 20 |.. !blk%| ...g.. |
|00003680| 30 0d 02 68 2b e7 20 62 | 6c 6b 25 21 34 3e 3d 30 |0..h+. b|lk%!4>=0|
|00003690| 20 80 20 62 6c 6b 25 21 | 34 3c 3e 79 65 61 72 25 | . blk%!|4<>year%|
|000036a0| 2d 74 68 69 73 79 65 61 | 72 25 20 8c 0d 02 69 18 |-thisyea|r% ...i.|
|000036b0| 6e 79 25 3d 74 68 69 73 | 79 65 61 72 25 2b 62 6c |ny%=this|year%+bl|
|000036c0| 6b 25 21 34 0d 02 6a 10 | f2 73 61 76 65 28 79 65 |k%!4..j.|.save(ye|
|000036d0| 61 72 25 29 0d 02 6b 11 | f2 73 65 74 79 65 61 72 |ar%)..k.|.setyear|
|000036e0| 28 6e 79 25 29 0d 02 6c | 15 64 75 6d 25 3d a4 6c |(ny%)..l|.dum%=.l|
|000036f0| 6f 61 64 28 79 65 61 72 | 25 29 0d 02 6d 24 f2 74 |oad(year|%)..m$.t|
|00003700| 69 63 6b 28 79 65 61 72 | 6d 65 6e 75 25 2c 79 65 |ick(year|menu%,ye|
|00003710| 61 72 25 2d 74 68 69 73 | 79 65 61 72 25 29 0d 02 |ar%-this|year%)..|
|00003720| 6e 0f 21 62 6c 6b 25 3d | 65 64 69 74 25 0d 02 6f |n.!blk%=|edit%..o|
|00003730| 1e c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |..."Wimp|_CloseWi|
|00003740| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 25 0d 02 70 0f 21 |ndow",,b|lk%..p.!|
|00003750| 62 6c 6b 25 3d 6d 61 69 | 6e 25 0d 02 71 0b f2 72 |blk%=mai|n%..q..r|
|00003760| 65 64 72 61 77 0d 02 72 | 05 cd 0d 02 73 07 c9 20 |edraw..r|....s.. |
|00003770| 31 0d 02 74 25 e7 20 62 | 6c 6b 25 21 34 3e 3d 30 |1..t%. b|lk%!4>=0|
|00003780| 20 80 20 62 6c 6b 25 21 | 34 3c 3e 63 6f 6c 77 69 | . blk%!|4<>colwi|
|00003790| 64 74 68 25 20 8c 0d 02 | 75 1a f2 74 69 63 6b 28 |dth% ...|u..tick(|
|000037a0| 63 6f 6c 6d 65 6e 75 25 | 2c 62 6c 6b 25 21 34 29 |colmenu%|,blk%!4)|
|000037b0| 0d 02 76 14 63 6f 6c 77 | 69 64 74 68 25 3d 62 6c |..v.colw|idth%=bl|
|000037c0| 6b 25 21 34 0d 02 77 0e | f2 73 65 74 65 78 74 65 |k%!4..w.|.setexte|
|000037d0| 6e 74 0d 02 78 0f 21 62 | 6c 6b 25 3d 6d 61 69 6e |nt..x.!b|lk%=main|
|000037e0| 25 0d 02 79 21 c8 99 22 | 57 69 6d 70 5f 47 65 74 |%..y!.."|Wimp_Get|
|000037f0| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00003800| 6b 25 0d 02 7a 1d c8 99 | 22 57 69 6d 70 5f 4f 70 |k%..z...|"Wimp_Op|
|00003810| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6b 25 0d |enWindow|",,blk%.|
|00003820| 02 7b 0b f2 72 65 64 72 | 61 77 0d 02 7c 05 cd 0d |.{..redr|aw..|...|
|00003830| 02 7d 16 c9 20 32 20 3a | 20 f2 73 61 76 65 28 79 |.}.. 2 :| .save(y|
|00003840| 65 61 72 25 29 0d 02 7e | 07 c9 20 33 0d 02 7f 13 |ear%)..~|.. 3....|
|00003850| 64 25 3d a4 6c 6f 61 64 | 28 79 65 61 72 25 29 0d |d%=.load|(year%).|
|00003860| 02 80 0f 21 62 6c 6b 25 | 3d 6d 61 69 6e 25 0d 02 |...!blk%|=main%..|
|00003870| 81 0b f2 72 65 64 72 61 | 77 0d 02 82 05 cb 0d 02 |...redra|w.......|
|00003880| 83 0f c9 20 65 64 69 74 | 6d 65 6e 75 25 0d 02 84 |... edit|menu%...|
|00003890| 0e c8 8e 20 21 62 6c 6b | 25 20 ca 0d 02 85 07 c9 |... !blk|% ......|
|000038a0| 20 31 0d 02 86 0e e3 20 | 69 25 3d 30 20 b8 20 34 | 1..... |i%=0 . 4|
|000038b0| 0d 02 87 0f 21 62 6c 6b | 25 3d 65 64 69 74 25 0d |....!blk|%=edit%.|
|000038c0| 02 88 0d 62 6c 6b 25 21 | 34 3d 69 25 0d 02 89 1f |...blk%!|4=i%....|
|000038d0| c8 99 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |.."Wimp_|GetIconS|
|000038e0| 74 61 74 65 22 2c 2c 62 | 6c 6b 25 0d 02 8a 0c 62 |tate",,b|lk%....b|
|000038f0| 6c 6b 25 21 38 3d 30 0d | 02 8b 0d 62 6c 6b 25 21 |lk%!8=0.|...blk%!|
|00003900| 31 32 3d 30 0d 02 8c 11 | 24 28 62 6c 6b 25 21 32 |12=0....|$(blk%!2|
|00003910| 38 29 3d 22 22 0d 02 8d | 1f c8 99 22 57 69 6d 70 |8)=""...|..."Wimp|
|00003920| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00003930| 62 6c 6b 25 0d 02 8e 08 | ed 20 69 25 0d 02 8f 08 |blk%....|. i%....|
|00003940| f2 67 65 74 0d 02 90 05 | cb 0d 02 91 05 cb 0d 02 |.get....|........|
|00003950| 92 0e f2 6d 6f 75 73 65 | 69 6e 66 6f 0d 02 93 3b |...mouse|info...;|
|00003960| e7 20 62 75 74 25 3d 31 | 20 8c 20 c8 99 22 57 69 |. but%=1| . .."Wi|
|00003970| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00003980| 6f 70 65 6e 6d 65 6e 75 | 25 2c 6d 65 6e 75 78 25 |openmenu|%,menux%|
|00003990| 2c 6d 65 6e 75 79 25 0d | 02 94 05 e1 0d 02 95 0b |,menuy%.|........|
|000039a0| dd 20 f2 71 75 69 74 0d | 02 96 41 e7 20 63 68 61 |. .quit.|..A. cha|
|000039b0| 6e 67 65 64 25 20 8c 20 | e7 20 a4 63 68 65 63 6b |nged% . |. .check|
|000039c0| 28 22 53 61 76 65 20 59 | 65 61 72 20 50 6c 61 6e |("Save Y|ear Plan|
|000039d0| 20 66 69 72 73 74 3f 22 | 29 20 8c 20 f2 73 61 76 | first?"|) . .sav|
|000039e0| 65 28 79 65 61 72 25 29 | 0d 02 97 0e f2 63 6c 6f |e(year%)|.....clo|
|000039f0| 73 65 64 6f 77 6e 0d 02 | 98 05 e1 0d 02 99 26 dd |sedown..|......&.|
|00003a00| 20 f2 63 6c 69 63 6b 28 | 6d 78 25 2c 6d 79 25 2c | .click(|mx%,my%,|
|00003a10| 62 75 74 25 2c 77 69 6e | 64 25 2c 69 63 6f 6e 25 |but%,win|d%,icon%|
|00003a20| 29 0d 02 9a 0e c8 8e 20 | 77 69 6e 64 25 20 ca 0d |)...... |wind% ..|
|00003a30| 02 9b 08 c9 20 2d 32 0d | 02 9c 0d c8 8e 20 62 75 |.... -2.|..... bu|
|00003a40| 74 25 20 ca 0d 02 9d 28 | c9 20 32 20 3a 20 f2 6d |t% ....(|. 2 : .m|
|00003a50| 65 6e 75 28 6d 65 6e 75 | 62 61 72 25 2c 6d 78 25 |enu(menu|bar%,mx%|
|00003a60| 2c 62 61 72 68 65 69 67 | 68 74 25 29 0d 02 9e 16 |,barheig|ht%)....|
|00003a70| c9 20 34 20 3a 20 f2 6f | 70 65 6e 28 6d 61 69 6e |. 4 : .o|pen(main|
|00003a80| 25 29 0d 02 9f 05 cb 0d | 02 a0 0b c9 20 6d 61 69 |%)......|.... mai|
|00003a90| 6e 25 0d 02 a1 0d c8 8e | 20 62 75 74 25 20 ca 0d |n%......| but% ..|
|00003aa0| 02 a2 22 c9 20 32 20 3a | 20 f2 6d 65 6e 75 28 6d |..". 2 :| .menu(m|
|00003ab0| 61 69 6e 6d 65 6e 75 25 | 2c 6d 78 25 2c 6d 79 25 |ainmenu%|,mx%,my%|
|00003ac0| 29 0d 02 a3 1b c9 20 34 | 20 3a 20 f2 6e 65 77 65 |)..... 4| : .newe|
|00003ad0| 64 69 74 28 6d 78 25 2c | 6d 79 25 29 0d 02 a4 05 |dit(mx%,|my%)....|
|00003ae0| cb 0d 02 a5 0b c9 20 65 | 64 69 74 25 0d 02 a6 0d |...... e|dit%....|
|00003af0| c8 8e 20 62 75 74 25 20 | ca 0d 02 a7 09 c9 20 34 |.. but% |...... 4|
|00003b00| 2c 31 0d 02 a8 1c e7 20 | 69 63 6f 6e 25 3e 3d 39 |,1..... |icon%>=9|
|00003b10| 20 80 20 69 63 6f 6e 25 | 3c 3d 32 32 20 8c 0d 02 | . icon%|<=22 ...|
|00003b20| a9 10 63 6f 6c 25 3d 69 | 63 6f 6e 25 2d 39 0d 02 |..col%=i|con%-9..|
|00003b30| aa 16 e7 20 63 6f 6c 25 | 3c 3e 68 69 67 68 63 6f |... col%|<>highco|
|00003b40| 6c 25 20 8c 0d 02 ab 21 | f2 73 65 74 66 6c 61 67 |l% ....!|.setflag|
|00003b50| 28 63 64 61 74 65 25 2c | 63 6d 6f 6e 74 68 25 2c |(cdate%,|cmonth%,|
|00003b60| 63 6f 6c 25 29 0d 02 ac | 1e f2 73 65 74 66 63 28 |col%)...|..setfc(|
|00003b70| 65 64 69 74 25 2c 68 69 | 67 68 63 6f 6c 25 2b 39 |edit%,hi|ghcol%+9|
|00003b80| 2c 31 29 0d 02 ad 11 68 | 69 67 68 63 6f 6c 25 3d |,1)....h|ighcol%=|
|00003b90| 63 6f 6c 25 0d 02 ae 1e | f2 73 65 74 66 63 28 65 |col%....|.setfc(e|
|00003ba0| 64 69 74 25 2c 68 69 67 | 68 63 6f 6c 25 2b 39 2c |dit%,hig|hcol%+9,|
|00003bb0| 37 29 0d 02 af 1b f2 75 | 70 64 61 74 65 28 63 64 |7).....u|pdate(cd|
|00003bc0| 61 74 65 25 2c 63 6d 6f | 6e 74 68 25 29 0d 02 b0 |ate%,cmo|nth%)...|
|00003bd0| 0e 63 68 61 6e 67 65 64 | 25 3d b9 0d 02 b1 05 cd |.changed|%=......|
|00003be0| 0d 02 b2 05 cd 0d 02 b3 | 22 c9 20 32 20 3a 20 f2 |........|". 2 : .|
|00003bf0| 6d 65 6e 75 28 65 64 69 | 74 6d 65 6e 75 25 2c 6d |menu(edi|tmenu%,m|
|00003c00| 78 25 2c 6d 79 25 29 0d | 02 b4 05 cb 0d 02 b5 22 |x%,my%).|......."|
|00003c10| c9 20 73 61 76 65 66 66 | 66 31 25 2c 73 61 76 65 |. saveff|f1%,save|
|00003c20| 66 66 66 32 25 2c 73 61 | 76 65 61 66 66 25 0d 02 |fff2%,sa|veaff%..|
|00003c30| b6 0e c8 8e 20 69 63 6f | 6e 25 20 ca 0d 02 b7 07 |.... ico|n% .....|
|00003c40| c9 20 32 0d 02 b8 0e c8 | 8e 20 77 69 6e 64 25 20 |. 2.....|. wind% |
|00003c50| ca 0d 02 b9 2d c9 20 73 | 61 76 65 66 66 66 31 25 |....-. s|avefff1%|
|00003c60| 20 3a 20 f2 73 61 76 65 | 74 65 78 74 28 24 66 69 | : .save|text($fi|
|00003c70| 6c 65 6e 61 6d 65 66 66 | 66 31 25 2c 30 29 0d 02 |lenameff|f1%,0)..|
|00003c80| ba 31 c9 20 73 61 76 65 | 66 66 66 32 25 20 3a 20 |.1. save|fff2% : |
|00003c90| f2 73 61 76 65 6d 6f 6e | 74 68 66 66 66 28 24 66 |.savemon|thfff($f|
|00003ca0| 69 6c 65 6e 61 6d 65 66 | 66 66 32 25 2c 30 29 0d |ilenamef|ff2%,0).|
|00003cb0| 02 bb 2f c9 20 73 61 76 | 65 61 66 66 25 20 3a 20 |../. sav|eaff% : |
|00003cc0| f2 73 61 76 65 6d 6f 6e | 74 68 61 66 66 28 24 66 |.savemon|thaff($f|
|00003cd0| 69 6c 65 6e 61 6d 65 61 | 66 66 25 2c 30 29 0d 02 |ilenamea|ff%,0)..|
|00003ce0| bc 05 cb 0d 02 bd 21 c9 | 20 30 20 3a 20 f2 73 74 |......!.| 0 : .st|
|00003cf0| 61 72 74 64 72 61 67 28 | 77 69 6e 64 25 2c 69 63 |artdrag(|wind%,ic|
|00003d00| 6f 6e 25 29 0d 02 be 05 | cb 0d 02 bf 05 cb 0d 02 |on%)....|........|
|00003d10| c0 05 e1 0d 02 c1 1d dd | 20 f2 73 74 61 72 74 64 |........| .startd|
|00003d20| 72 61 67 28 77 69 6e 64 | 25 2c 69 63 6f 6e 25 29 |rag(wind|%,icon%)|
|00003d30| 0d 02 c2 13 64 72 61 67 | 77 69 6e 64 25 3d 77 69 |....drag|wind%=wi|
|00003d40| 6e 64 25 0d 02 c3 13 64 | 72 61 67 69 63 6f 6e 25 |nd%....d|ragicon%|
|00003d50| 3d 69 63 6f 6e 25 0d 02 | c4 0f 21 62 6c 6b 25 3d |=icon%..|..!blk%=|
|00003d60| 77 69 6e 64 25 0d 02 c5 | 21 c8 99 22 57 69 6d 70 |wind%...|!.."Wimp|
|00003d70| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00003d80| 2c 2c 62 6c 6b 25 0d 02 | c6 16 79 73 25 3d 62 6c |,,blk%..|..ys%=bl|
|00003d90| 6b 25 21 31 36 2d 62 6c | 6b 25 21 38 0d 02 c7 0d |k%!16-bl|k%!8....|
|00003da0| 78 25 3d 62 6c 6b 25 21 | 34 0d 02 c8 0d 79 25 3d |x%=blk%!|4....y%=|
|00003db0| 62 6c 6b 25 21 38 0d 02 | c9 10 62 6c 6b 25 21 34 |blk%!8..|..blk%!4|
|00003dc0| 3d 69 63 6f 6e 25 0d 02 | ca 1f c8 99 22 57 69 6d |=icon%..|...."Wim|
|00003dd0| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00003de0| 2c 62 6c 6b 25 0d 02 cb | 0b 21 62 6c 6b 25 3d 30 |,blk%...|.!blk%=0|
|00003df0| 0d 02 cc 0c 62 6c 6b 25 | 21 34 3d 35 0d 02 cd 0e |....blk%|!4=5....|
|00003e00| 62 6c 6b 25 21 38 2b 3d | 78 25 0d 02 ce 13 62 6c |blk%!8+=|x%....bl|
|00003e10| 6b 25 21 31 32 2b 3d 79 | 25 2b 79 73 25 0d 02 cf |k%!12+=y|%+ys%...|
|00003e20| 0f 62 6c 6b 25 21 31 36 | 2b 3d 78 25 0d 02 d0 13 |.blk%!16|+=x%....|
|00003e30| 62 6c 6b 25 21 32 30 2b | 3d 79 25 2b 79 73 25 0d |blk%!20+|=y%+ys%.|
|00003e40| 02 d1 0d 62 6c 6b 25 21 | 32 34 3d 30 0d 02 d2 0d |...blk%!|24=0....|
|00003e50| 62 6c 6b 25 21 32 38 3d | 30 0d 02 d3 10 62 6c 6b |blk%!28=|0....blk|
|00003e60| 25 21 33 32 3d 73 63 78 | 25 0d 02 d4 10 62 6c 6b |%!32=scx|%....blk|
|00003e70| 25 21 33 36 3d 73 63 79 | 25 0d 02 d5 1a c8 99 22 |%!36=scy|%......"|
|00003e80| 57 69 6d 70 5f 44 72 61 | 67 42 6f 78 22 2c 2c 62 |Wimp_Dra|gBox",,b|
|00003e90| 6c 6b 25 0d 02 d6 05 e1 | 0d 02 d7 18 dd 20 f2 6d |lk%.....|..... .m|
|00003ea0| 65 6e 75 28 64 61 74 61 | 25 2c 78 25 2c 79 25 29 |enu(data|%,x%,y%)|
|00003eb0| 0d 02 d8 13 6f 70 65 6e | 6d 65 6e 75 25 3d 64 61 |....open|menu%=da|
|00003ec0| 74 61 25 0d 02 d9 19 78 | 25 3d 78 25 2d 28 64 61 |ta%....x|%=x%-(da|
|00003ed0| 74 61 25 21 31 36 29 2f | 32 2d 31 36 0d 02 da 24 |ta%!16)/|2-16...$|
|00003ee0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |.."Wimp_|CreateMe|
|00003ef0| 6e 75 22 2c 2c 64 61 74 | 61 25 2c 78 25 2c 79 25 |nu",,dat|a%,x%,y%|
|00003f00| 0d 02 db 0d 6d 65 6e 75 | 78 25 3d 78 25 0d 02 dc |....menu|x%=x%...|
|00003f10| 0d 6d 65 6e 75 79 25 3d | 79 25 0d 02 dd 05 e1 0d |.menuy%=|y%......|
|00003f20| 02 de 23 dd 20 f2 6d 65 | 73 73 61 67 65 28 74 61 |..#. .me|ssage(ta|
|00003f30| 73 6b 25 2c 72 65 66 25 | 2c 6d 65 73 73 61 67 65 |sk%,ref%|,message|
|00003f40| 25 29 0d 02 df 11 c8 8e | 20 6d 65 73 73 61 67 65 |%)......| message|
|00003f50| 25 20 ca 0d 02 e0 0f c9 | 20 30 20 3a 20 f2 71 75 |% ......| 0 : .qu|
|00003f60| 69 74 0d 02 e1 07 c9 20 | 32 0d 02 e2 12 c8 8e 20 |it..... |2...... |
|00003f70| 64 72 61 67 77 69 6e 64 | 25 20 ca 0d 02 e3 2d c9 |dragwind|% ....-.|
|00003f80| 20 73 61 76 65 66 66 66 | 31 25 3a f2 73 61 76 65 | savefff|1%:.save|
|00003f90| 74 65 78 74 28 a4 73 74 | 72 69 6e 67 28 62 6c 6b |text(.st|ring(blk|
|00003fa0| 25 2b 34 34 29 2c b9 29 | 0d 02 e4 31 c9 20 73 61 |%+44),.)|...1. sa|
|00003fb0| 76 65 66 66 66 32 25 3a | f2 73 61 76 65 6d 6f 6e |vefff2%:|.savemon|
|00003fc0| 74 68 66 66 66 28 a4 73 | 74 72 69 6e 67 28 62 6c |thfff(.s|tring(bl|
|00003fd0| 6b 25 2b 34 34 29 2c b9 | 29 0d 02 e5 30 c9 20 73 |k%+44),.|)...0. s|
|00003fe0| 61 76 65 61 66 66 25 3a | f2 73 61 76 65 6d 6f 6e |aveaff%:|.savemon|
|00003ff0| 74 68 61 66 66 28 a4 73 | 74 72 69 6e 67 28 62 6c |thaff(.s|tring(bl|
|00004000| 6b 25 2b 34 34 29 2c b9 | 29 0d 02 e6 05 cb 0d 02 |k%+44),.|).......|
|00004010| e7 0e e7 20 73 61 76 65 | 64 25 20 8c 0d 02 e8 21 |... save|d% ....!|
|00004020| c8 99 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |.."Wimp_|GetPoint|
|00004030| 65 72 49 6e 66 6f 22 2c | 2c 62 6c 6b 25 0d 02 e9 |erInfo",|,blk%...|
|00004040| 13 62 6c 6b 25 21 32 30 | 3d 62 6c 6b 25 21 31 32 |.blk%!20|=blk%!12|
|00004050| 0d 02 ea 13 62 6c 6b 25 | 21 32 34 3d 62 6c 6b 25 |....blk%|!24=blk%|
|00004060| 21 31 36 0d 02 eb 11 62 | 6c 6b 25 21 32 38 3d 21 |!16....b|lk%!28=!|
|00004070| 62 6c 6b 25 0d 02 ec 12 | 62 6c 6b 25 21 33 32 3d |blk%....|blk%!32=|
|00004080| 62 6c 6b 25 21 34 0d 02 | ed 11 62 6c 6b 25 21 33 |blk%!4..|..blk%!3|
|00004090| 36 3d 73 69 7a 65 25 0d | 02 ee 15 62 6c 6b 25 21 |6=size%.|...blk%!|
|000040a0| 34 30 3d 66 69 6c 65 74 | 79 70 65 25 0d 02 ef 27 |40=filet|ype%...'|
|000040b0| 21 62 6c 6b 25 3d 34 38 | 2b 28 a9 28 a4 73 74 72 |!blk%=48|+(.(.str|
|000040c0| 69 6e 67 28 62 6c 6b 25 | 2b 34 34 29 29 2b 33 29 |ing(blk%|+44))+3)|
|000040d0| 80 ac 33 0d 02 f0 10 f2 | 72 65 70 6c 79 28 31 37 |..3.....|reply(17|
|000040e0| 2c 33 29 0d 02 f1 05 cd | 0d 02 f2 07 c9 20 36 0d |,3).....|..... 6.|
|000040f0| 02 f3 1b e7 20 64 72 61 | 67 77 69 6e 64 25 3d 73 |.... dra|gwind%=s|
|00004100| 61 76 65 66 66 66 31 25 | 20 8c 0d 02 f4 16 74 6f |avefff1%| .....to|
|00004110| 67 6f 25 3d a4 73 69 7a | 65 2d 74 72 61 6e 73 25 |go%=.siz|e-trans%|
|00004120| 0d 02 f5 23 e7 20 74 6f | 67 6f 25 3e 62 6c 6b 25 |...#. to|go%>blk%|
|00004130| 21 32 34 20 8c 20 74 6f | 67 6f 25 3d 62 6c 6b 25 |!24 . to|go%=blk%|
|00004140| 21 32 34 0d 02 f6 47 c8 | 99 22 57 69 6d 70 5f 54 |!24...G.|."Wimp_T|
|00004150| 72 61 6e 73 66 65 72 42 | 6c 6f 63 6b 22 2c 6d 79 |ransferB|lock",my|
|00004160| 74 61 73 6b 25 2c 74 65 | 78 74 62 75 66 66 25 2b |task%,te|xtbuff%+|
|00004170| 74 72 61 6e 73 25 2c 74 | 61 73 6b 25 2c 62 6c 6b |trans%,t|ask%,blk|
|00004180| 25 21 32 30 2c 74 6f 67 | 6f 25 0d 02 f7 11 62 6c |%!20,tog|o%....bl|
|00004190| 6b 25 21 32 34 3d 74 6f | 67 6f 25 0d 02 f8 10 f2 |k%!24=to|go%.....|
|000041a0| 72 65 70 6c 79 28 31 38 | 2c 37 29 0d 02 f9 11 74 |reply(18|,7)....t|
|000041b0| 72 61 6e 73 25 2b 3d 74 | 6f 67 6f 25 0d 02 fa 05 |rans%+=t|ogo%....|
|000041c0| cd 0d 02 fb 17 c9 20 26 | 34 30 30 43 31 20 3a 20 |...... &|400C1 : |
|000041d0| f2 6e 65 77 6d 6f 64 65 | 0d 02 fc 05 cb 0d 02 fd |.newmode|........|
|000041e0| 05 e1 0d 02 fe 04 0d 02 | ff 1b dd 20 f2 72 65 70 |........|... .rep|
|000041f0| 6c 79 28 74 79 70 65 25 | 2c 72 65 61 73 6f 6e 25 |ly(type%|,reason%|
|00004200| 29 0d 03 00 10 62 6c 6b | 25 21 31 32 3d 72 65 66 |)....blk|%!12=ref|
|00004210| 25 0d 03 01 13 62 6c 6b | 25 21 31 36 3d 72 65 61 |%....blk|%!16=rea|
|00004220| 73 6f 6e 25 0d 03 02 29 | c8 99 22 57 69 6d 70 5f |son%...)|.."Wimp_|
|00004230| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 74 79 70 |SendMess|age",typ|
|00004240| 65 25 2c 62 6c 6b 25 2c | 74 61 73 6b 25 0d 03 03 |e%,blk%,|task%...|
|00004250| 05 e1 0d 03 04 04 0d 03 | 05 0e dd 20 f2 6e 65 77 |........|... .new|
|00004260| 6d 6f 64 65 0d 03 06 0c | 21 62 6c 6b 25 3d 31 31 |mode....|!blk%=11|
|00004270| 0d 03 07 0d 62 6c 6b 25 | 21 34 3d 31 32 0d 03 08 |....blk%|!4=12...|
|00004280| 0d 62 6c 6b 25 21 38 3d | 2d 31 0d 03 09 25 c8 99 |.blk%!8=|-1...%..|
|00004290| 22 4f 53 5f 52 65 61 64 | 56 64 75 56 61 72 69 61 |"OS_Read|VduVaria|
|000042a0| 62 6c 65 73 22 2c 62 6c | 6b 25 2c 62 6c 6b 25 0d |bles",bl|k%,blk%.|
|000042b0| 03 0a 14 73 63 78 25 3d | 28 21 62 6c 6b 25 2b 31 |...scx%=|(!blk%+1|
|000042c0| 29 2a 32 0d 03 0b 15 73 | 63 79 25 3d 28 62 6c 6b |)*2....s|cy%=(blk|
|000042d0| 25 21 34 2b 31 29 2a 34 | 0d 03 0c 05 e1 0d 03 0d |%!4+1)*4|........|
|000042e0| 04 0d 03 0e 21 dd 20 a4 | 6c 6f 61 64 74 65 6d 70 |....!. .|loadtemp|
|000042f0| 6c 61 74 65 28 74 69 74 | 6c 65 24 2c 73 69 7a 65 |late(tit|le$,size|
|00004300| 25 29 0d 03 0f 11 de 20 | 62 75 66 66 25 20 73 69 |%)..... |buff% si|
|00004310| 7a 65 25 0d 03 10 3b c8 | 99 22 57 69 6d 70 5f 4c |ze%...;.|."Wimp_L|
|00004320| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00004330| 6b 25 2c 62 75 66 66 25 | 2c 62 75 66 66 25 2b 73 |k%,buff%|,buff%+s|
|00004340| 69 7a 65 25 2c 2d 31 2c | 74 69 74 6c 65 24 0d 03 |ize%,-1,|title$..|
|00004350| 11 27 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.'.."Wim|p_Create|
|00004360| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6b 25 20 b8 20 |Window",|,blk% . |
|00004370| 77 69 6e 64 25 0d 03 12 | 0a 3d 77 69 6e 64 25 0d |wind%...|.=wind%.|
|00004380| 03 13 04 0d 03 14 18 dd | 20 f2 74 69 63 6b 28 6d |........| .tick(m|
|00004390| 65 6e 75 25 2c 74 69 63 | 6b 25 29 0d 03 15 0e 70 |enu%,tic|k%)....p|
|000043a0| 25 3d 6d 65 6e 75 25 2b | 34 0d 03 16 09 61 25 3d |%=menu%+|4....a%=|
|000043b0| 2d 31 0d 03 17 05 f5 0d | 03 18 0a 70 25 2b 3d 32 |-1......|...p%+=2|
|000043c0| 34 0d 03 19 09 61 25 2b | 3d 31 0d 03 1a 29 e7 20 |4....a%+|=1...). |
|000043d0| 61 25 3d 74 69 63 6b 25 | 20 8c 20 21 70 25 3d 21 |a%=tick%| . !p%=!|
|000043e0| 70 25 20 84 31 20 8b 20 | 21 70 25 3d 21 70 25 20 |p% .1 . |!p%=!p% |
|000043f0| 80 ac 31 0d 03 1b 0f fd | 20 21 70 25 20 80 20 26 |..1.....| !p% . &|
|00004400| 38 30 0d 03 1c 05 e1 0d | 03 1d 04 0d 03 1e 14 dd |80......|........|
|00004410| 20 a4 63 72 6d 65 6e 75 | 28 74 65 78 74 24 29 0d | .crmenu|(text$).|
|00004420| 03 1f 14 6f 6c 64 70 74 | 72 25 3d 6d 65 6e 75 70 |...oldpt|r%=menup|
|00004430| 74 72 25 0d 03 20 0c 69 | 74 65 6d 73 25 3d 30 0d |tr%.. .i|tems%=0.|
|00004440| 03 21 0e 74 65 78 74 24 | 2b 3d 22 2c 22 0d 03 22 |.!.text$|+=",".."|
|00004450| 1b 74 69 74 6c 65 24 3d | a4 6e 65 78 74 77 6f 72 |.title$=|.nextwor|
|00004460| 64 28 74 65 78 74 24 29 | 0d 03 23 14 24 6d 65 6e |d(text$)|..#.$men|
|00004470| 75 70 74 72 25 3d 74 69 | 74 6c 65 24 0d 03 24 10 |uptr%=ti|tle$..$.|
|00004480| 6d 61 78 25 3d a9 74 69 | 74 6c 65 24 0d 03 25 16 |max%=.ti|tle$..%.|
|00004490| 6d 65 6e 75 70 74 72 25 | 21 31 32 3d 26 37 30 32 |menuptr%|!12=&702|
|000044a0| 30 37 0d 03 26 12 6d 65 | 6e 75 70 74 72 25 21 32 |07..&.me|nuptr%!2|
|000044b0| 30 3d 34 34 0d 03 27 11 | 6d 65 6e 75 70 74 72 25 |0=44..'.|menuptr%|
|000044c0| 21 32 34 3d 30 0d 03 28 | 0f 6d 65 6e 75 70 74 72 |!24=0..(|.menuptr|
|000044d0| 25 2b 3d 34 0d 03 29 10 | c8 95 20 74 65 78 74 24 |%+=4..).|.. text$|
|000044e0| 3c 3e 22 22 0d 03 2a 0d | 69 74 65 6d 73 25 2b 3d |<>""..*.|items%+=|
|000044f0| 31 0d 03 2b 10 6d 65 6e | 75 70 74 72 25 2b 3d 32 |1..+.men|uptr%+=2|
|00004500| 34 0d 03 2c 0f 21 6d 65 | 6e 75 70 74 72 25 3d 30 |4..,.!me|nuptr%=0|
|00004510| 0d 03 2d 10 6d 65 6e 75 | 70 74 72 25 21 34 3d 30 |..-.menu|ptr%!4=0|
|00004520| 0d 03 2e 1a 77 6f 72 64 | 24 3d a4 6e 65 78 74 77 |....word|$=.nextw|
|00004530| 6f 72 64 28 74 65 78 74 | 24 29 0d 03 2f 18 74 6f |ord(text|$)../.to|
|00004540| 6b 65 6e 24 3d a4 74 6f | 6b 65 6e 28 77 6f 72 64 |ken$=.to|ken(word|
|00004550| 24 29 0d 03 30 11 c8 95 | 20 74 6f 6b 65 6e 24 3c |$)..0...| token$<|
|00004560| 3e 22 22 0d 03 31 0f c8 | 8e 20 74 6f 6b 65 6e 24 |>""..1..|. token$|
|00004570| 20 ca 0d 03 32 2a c9 20 | 22 3e 22 20 3a 20 6d 65 | ...2*. |">" : me|
|00004580| 6e 75 70 74 72 25 21 34 | 3d a0 28 a4 6e 65 78 74 |nuptr%!4|=.(.next|
|00004590| 77 6f 72 64 28 74 65 78 | 74 24 29 29 0d 03 33 23 |word(tex|t$))..3#|
|000045a0| c9 20 22 2f 22 20 3a 20 | 21 6d 65 6e 75 70 74 72 |. "/" : |!menuptr|
|000045b0| 25 3d 21 6d 65 6e 75 70 | 74 72 25 20 84 20 31 0d |%=!menup|tr% . 1.|
|000045c0| 03 34 23 c9 20 22 2d 22 | 20 3a 20 21 6d 65 6e 75 |.4#. "-"| : !menu|
|000045d0| 70 74 72 25 3d 21 6d 65 | 6e 75 70 74 72 25 20 84 |ptr%=!me|nuptr% .|
|000045e0| 20 32 0d 03 35 23 c9 20 | 22 21 22 20 3a 20 21 6d | 2..5#. |"!" : !m|
|000045f0| 65 6e 75 70 74 72 25 3d | 21 6d 65 6e 75 70 74 72 |enuptr%=|!menuptr|
|00004600| 25 20 84 20 34 0d 03 36 | 05 cb 0d 03 37 18 74 6f |% . 4..6|....7.to|
|00004610| 6b 65 6e 24 3d a4 74 6f | 6b 65 6e 28 77 6f 72 64 |ken$=.to|ken(word|
|00004620| 24 29 0d 03 38 05 ce 0d | 03 39 1f 6d 65 6e 75 70 |$)..8...|.9.menup|
|00004630| 74 72 25 21 38 3d 28 37 | 3c 3c 32 34 29 20 84 20 |tr%!8=(7|<<24) . |
|00004640| 25 31 30 30 30 31 0d 03 | 3a 22 e7 20 21 6d 65 6e |%10001..|:". !men|
|00004650| 75 70 74 72 25 20 80 20 | 34 20 84 20 74 6f 6b 65 |uptr% . |4 . toke|
|00004660| 6e 24 3d 22 23 22 20 8c | 0d 03 3b 20 6d 65 6e 75 |n$="#" .|..; menu|
|00004670| 70 74 72 25 21 38 3d 6d | 65 6e 75 70 74 72 25 21 |ptr%!8=m|enuptr%!|
|00004680| 38 20 84 20 31 3c 3c 38 | 0d 03 3c 23 6d 65 6e 75 |8 . 1<<8|..<#menu|
|00004690| 70 74 72 25 21 31 32 3d | a0 28 a4 6e 65 78 74 77 |ptr%!12=|.(.nextw|
|000046a0| 6f 72 64 28 74 65 78 74 | 24 29 29 0d 03 3d 12 6d |ord(text|$))..=.m|
|000046b0| 65 6e 75 70 74 72 25 21 | 31 36 3d 2d 31 0d 03 3e |enuptr%!|16=-1..>|
|000046c0| 18 6d 65 6e 75 70 74 72 | 25 21 32 30 3d a0 28 77 |.menuptr|%!20=.(w|
|000046d0| 6f 72 64 24 29 0d 03 3f | 3d e7 20 6d 65 6e 75 70 |ord$)..?|=. menup|
|000046e0| 74 72 25 21 32 30 3e 6d | 61 78 25 20 80 20 28 21 |tr%!20>m|ax% . (!|
|000046f0| 6d 65 6e 75 70 74 72 25 | 20 80 20 34 29 3d 30 20 |menuptr%| . 4)=0 |
|00004700| 8c 20 6d 61 78 25 3d 6d | 65 6e 75 70 74 72 25 21 |. max%=m|enuptr%!|
|00004710| 32 30 0d 03 40 05 cc 0d | 03 41 18 24 28 6d 65 6e |20..@...|.A.$(men|
|00004720| 75 70 74 72 25 2b 31 32 | 29 3d 77 6f 72 64 24 0d |uptr%+12|)=word$.|
|00004730| 03 42 1f e7 20 a9 77 6f | 72 64 24 3e 6d 61 78 25 |.B.. .wo|rd$>max%|
|00004740| 20 8c 20 6d 61 78 25 3d | a9 77 6f 72 64 24 0d 03 | . max%=|.word$..|
|00004750| 43 05 cd 0d 03 44 05 ce | 0d 03 45 1d 21 6d 65 6e |C....D..|..E.!men|
|00004760| 75 70 74 72 25 3d 21 6d | 65 6e 75 70 74 72 25 20 |uptr%=!m|enuptr% |
|00004770| 84 20 26 38 30 0d 03 46 | 10 6d 65 6e 75 70 74 72 |. &80..F|.menuptr|
|00004780| 25 2b 3d 32 34 0d 03 47 | 18 6f 6c 64 70 74 72 25 |%+=24..G|.oldptr%|
|00004790| 21 31 36 3d 6d 61 78 25 | 2a 31 36 2b 38 0d 03 48 |!16=max%|*16+8..H|
|000047a0| 0c 3d 6f 6c 64 70 74 72 | 25 0d 03 49 15 dd 20 a4 |.=oldptr|%..I.. .|
|000047b0| 74 6f 6b 65 6e 28 f8 20 | 77 6f 72 64 24 29 0d 03 |token(. |word$)..|
|000047c0| 4a 0d 74 6f 6b 65 6e 24 | 3d 22 22 0d 03 4b 19 e7 |J.token$|=""..K..|
|000047d0| 20 a7 22 3e 2f 21 23 2d | 22 2c c2 77 6f 72 64 24 | .">/!#-|",.word$|
|000047e0| 29 29 20 8c 0d 03 4c 14 | 74 6f 6b 65 6e 24 3d c2 |)) ...L.|token$=.|
|000047f0| 77 6f 72 64 24 2c 31 29 | 0d 03 4d 1a 77 6f 72 64 |word$,1)|..M.word|
|00004800| 24 3d c0 77 6f 72 64 24 | 2c a9 77 6f 72 64 24 2d |$=.word$|,.word$-|
|00004810| 31 29 0d 03 4e 05 cd 0d | 03 4f 0b 3d 74 6f 6b 65 |1)..N...|.O.=toke|
|00004820| 6e 24 0d 03 50 18 dd 20 | a4 6e 65 78 74 77 6f 72 |n$..P.. |.nextwor|
|00004830| 64 28 f8 20 74 65 78 74 | 24 29 0d 03 51 10 ea 20 |d(. text|$)..Q.. |
|00004840| 77 6f 72 64 24 2c 70 6f | 73 25 0d 03 52 14 70 6f |word$,po|s%..R.po|
|00004850| 73 25 3d a7 74 65 78 74 | 24 2c 22 2c 22 29 0d 03 |s%=.text|$,",")..|
|00004860| 53 18 77 6f 72 64 24 3d | c0 74 65 78 74 24 2c 70 |S.word$=|.text$,p|
|00004870| 6f 73 25 2d 31 29 0d 03 | 54 18 74 65 78 74 24 3d |os%-1)..|T.text$=|
|00004880| c1 74 65 78 74 24 2c 70 | 6f 73 25 2b 31 29 0d 03 |.text$,p|os%+1)..|
|00004890| 55 0a 3d 77 6f 72 64 24 | 0d 03 56 45 dd 20 a4 63 |U.=word$|..VE. .c|
|000048a0| 72 69 63 6f 6e 28 21 62 | 6c 6b 25 2c 62 6c 6b 25 |ricon(!b|lk%,blk%|
|000048b0| 21 34 2c 62 6c 6b 25 21 | 38 2c 62 6c 6b 25 21 31 |!4,blk%!|8,blk%!1|
|000048c0| 32 2c 62 6c 6b 25 21 31 | 36 2c 62 6c 6b 25 21 32 |2,blk%!1|6,blk%!2|
|000048d0| 30 2c 24 28 62 6c 6b 25 | 2b 32 34 29 29 0d 03 57 |0,$(blk%|+24))..W|
|000048e0| 25 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |%.."Wimp|_CreateI|
|000048f0| 63 6f 6e 22 2c 2c 62 6c | 6b 25 20 b8 20 69 63 6f |con",,bl|k% . ico|
|00004900| 6e 25 0d 03 58 0a 3d 69 | 63 6f 6e 25 0d 03 59 16 |n%..X.=i|con%..Y.|
|00004910| dd 20 a4 63 68 65 63 6b | 28 6d 65 73 73 61 67 65 |. .check|(message|
|00004920| 24 29 0d 03 5a 17 c8 99 | 22 57 69 6d 70 5f 44 72 |$)..Z...|"Wimp_Dr|
|00004930| 61 67 42 6f 78 22 2c 2c | 30 0d 03 5b 0b 21 62 6c |agBox",,|0..[.!bl|
|00004940| 6b 25 3d 30 0d 03 5c 16 | 24 28 62 6c 6b 25 2b 34 |k%=0..\.|$(blk%+4|
|00004950| 29 3d 6d 65 73 73 61 67 | 65 24 0d 03 5d 44 c8 99 |)=messag|e$..]D..|
|00004960| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00004970| 72 22 2c 62 6c 6b 25 2c | 31 39 2c 22 4d 65 73 73 |r",blk%,|19,"Mess|
|00004980| 61 67 65 20 66 72 6f 6d | 20 22 2b 70 72 6f 67 72 |age from| "+progr|
|00004990| 61 6d 24 20 b8 20 2c 61 | 6e 73 77 65 72 25 0d 03 |am$ . ,a|nswer%..|
|000049a0| 5e 19 e7 20 61 6e 73 77 | 65 72 25 3d 31 20 8c 20 |^.. answ|er%=1 . |
|000049b0| 3d b9 20 8b 20 3d a3 0d | 03 5f 11 dd 20 a4 73 74 |=. . =..|._.. .st|
|000049c0| 72 69 6e 67 28 62 25 29 | 0d 03 60 08 ea 20 73 24 |ring(b%)|..`.. s$|
|000049d0| 0d 03 61 09 73 24 3d 22 | 22 0d 03 62 0d c8 95 20 |..a.s$="|"..b... |
|000049e0| 3f 62 25 3e 33 31 0d 03 | 63 0e 73 24 2b 3d bd 28 |?b%>31..|c.s$+=.(|
|000049f0| 3f 62 25 29 0d 03 64 09 | 62 25 2b 3d 31 0d 03 65 |?b%)..d.|b%+=1..e|
|00004a00| 05 ce 0d 03 66 07 3d 73 | 24 0d 03 67 17 dd 20 f2 |....f.=s|$..g.. .|
|00004a10| 72 65 70 6f 72 74 28 6d | 65 73 73 61 67 65 24 29 |report(m|essage$)|
|00004a20| 0d 03 68 17 c8 99 22 57 | 69 6d 70 5f 44 72 61 67 |..h..."W|imp_Drag|
|00004a30| 42 6f 78 22 2c 2c 30 0d | 03 69 0b 21 62 6c 6b 25 |Box",,0.|.i.!blk%|
|00004a40| 3d 30 0d 03 6a 16 24 28 | 62 6c 6b 25 2b 34 29 3d |=0..j.$(|blk%+4)=|
|00004a50| 6d 65 73 73 61 67 65 24 | 0d 03 6b 28 c8 99 22 57 |message$|..k(.."W|
|00004a60| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00004a70| 2c 62 6c 6b 25 2c 31 2c | 70 72 6f 67 72 61 6d 24 |,blk%,1,|program$|
|00004a80| 0d 03 6c 05 e1 0d 03 6d | 12 dd 20 f2 6f 70 65 6e |..l....m|.. .open|
|00004a90| 28 77 69 6e 64 25 29 0d | 03 6e 0f 21 62 6c 6b 25 |(wind%).|.n.!blk%|
|00004aa0| 3d 77 69 6e 64 25 0d 03 | 6f 21 c8 99 22 57 69 6d |=wind%..|o!.."Wim|
|00004ab0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00004ac0| 22 2c 2c 62 6c 6b 25 0d | 03 70 0e 62 6c 6b 25 21 |",,blk%.|.p.blk%!|
|00004ad0| 32 38 3d 2d 31 0d 03 71 | 0f f2 6f 70 65 6e 77 69 |28=-1..q|..openwi|
|00004ae0| 6e 64 6f 77 0d 03 72 10 | e7 20 ac 61 63 74 69 76 |ndow..r.|. .activ|
|00004af0| 65 25 20 8c 0d 03 73 0d | 61 63 74 69 76 65 25 3d |e% ...s.|active%=|
|00004b00| b9 0d 03 74 1d 24 66 69 | 6c 65 6e 61 6d 65 66 66 |...t.$fi|lenameff|
|00004b10| 66 31 25 3d 22 54 65 78 | 74 46 69 6c 65 22 0d 03 |f1%="Tex|tFile"..|
|00004b20| 75 1d 24 66 69 6c 65 6e | 61 6d 65 66 66 66 32 25 |u.$filen|amefff2%|
|00004b30| 3d 22 54 65 78 74 46 69 | 6c 65 22 0d 03 76 1c 24 |="TextFi|le"..v.$|
|00004b40| 66 69 6c 65 6e 61 6d 65 | 61 66 66 25 3d 22 44 72 |filename|aff%="Dr|
|00004b50| 61 77 46 69 6c 65 22 0d | 03 77 05 cd 0d 03 78 05 |awFile".|.w....x.|
|00004b60| e1 0d 03 79 11 dd 20 f2 | 6f 70 65 6e 77 69 6e 64 |...y.. .|openwind|
|00004b70| 6f 77 0d 03 7a 1d c8 99 | 22 57 69 6d 70 5f 4f 70 |ow..z...|"Wimp_Op|
|00004b80| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6b 25 0d |enWindow|",,blk%.|
|00004b90| 03 7b 05 e1 0d 03 7c 27 | dd 20 f2 73 65 6c 65 63 |.{....|'|. .selec|
|00004ba0| 74 69 63 6f 6e 28 21 62 | 6c 6b 25 2c 62 6c 6b 25 |ticon(!b|lk%,blk%|
|00004bb0| 21 34 2c 73 65 6c 65 63 | 74 25 29 0d 03 7d 1f c8 |!4,selec|t%)..}..|
|00004bc0| 99 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 |."Wimp_G|etIconSt|
|00004bd0| 61 74 65 22 2c 2c 62 6c | 6b 25 0d 03 7e 27 e7 20 |ate",,bl|k%..~'. |
|00004be0| 73 65 6c 65 63 74 25 20 | 8c 20 62 6c 6b 25 21 38 |select% |. blk%!8|
|00004bf0| 3d 31 3c 3c 32 31 20 8b | 20 62 6c 6b 25 21 38 3d |=1<<21 .| blk%!8=|
|00004c00| 30 0d 03 7f 11 62 6c 6b | 25 21 31 32 3d 31 3c 3c |0....blk|%!12=1<<|
|00004c10| 32 31 0d 03 80 3f e7 20 | 28 62 6c 6b 25 21 32 34 |21...?. |(blk%!24|
|00004c20| 20 80 20 62 6c 6b 25 21 | 31 32 29 3c 3e 62 6c 6b | . blk%!|12)<>blk|
|00004c30| 25 21 38 20 8c 20 c8 99 | 22 57 69 6d 70 5f 53 65 |%!8 . ..|"Wimp_Se|
|00004c40| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6b |tIconSta|te",,blk|
|00004c50| 25 0d 03 81 05 e1 0d 03 | 82 1f dd 20 f2 73 65 74 |%.......|... .set|
|00004c60| 66 63 28 21 62 6c 6b 25 | 2c 62 6c 6b 25 21 34 2c |fc(!blk%|,blk%!4,|
|00004c70| 63 6f 6c 25 29 0d 03 83 | 1f c8 99 22 57 69 6d 70 |col%)...|..."Wimp|
|00004c80| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00004c90| 62 6c 6b 25 0d 03 84 13 | 62 6c 6b 25 21 38 3d 63 |blk%....|blk%!8=c|
|00004ca0| 6f 6c 25 3c 3c 32 34 0d | 03 85 12 62 6c 6b 25 21 |ol%<<24.|...blk%!|
|00004cb0| 31 32 3d 31 35 3c 3c 32 | 34 0d 03 86 3f e7 20 28 |12=15<<2|4...?. (|
|00004cc0| 62 6c 6b 25 21 32 34 20 | 80 20 62 6c 6b 25 21 31 |blk%!24 |. blk%!1|
|00004cd0| 32 29 3c 3e 62 6c 6b 25 | 21 38 20 8c 20 c8 99 22 |2)<>blk%|!8 . .."|
|00004ce0| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00004cf0| 65 22 2c 2c 62 6c 6b 25 | 0d 03 87 05 e1 0d 03 88 |e",,blk%|........|
|00004d00| 23 dd 20 f2 73 65 74 66 | 69 6c 65 74 79 70 65 28 |#. .setf|iletype(|
|00004d10| 66 69 6c 65 24 2c 66 69 | 6c 65 74 79 70 65 25 29 |file$,fi|letype%)|
|00004d20| 0d 03 89 23 c8 99 22 4f | 53 5f 46 69 6c 65 22 2c |...#.."O|S_File",|
|00004d30| 26 31 32 2c 66 69 6c 65 | 24 2c 66 69 6c 65 74 79 |&12,file|$,filety|
|00004d40| 70 65 25 0d 03 8a 05 e1 | 0d 03 8b 16 dd 20 f2 6e |pe%.....|..... .n|
|00004d50| 65 77 74 69 74 6c 65 28 | 21 62 6c 6b 25 29 0d 03 |ewtitle(|!blk%)..|
|00004d60| 8c 23 c8 99 22 57 69 6d | 70 5f 47 65 74 57 69 6e |.#.."Wim|p_GetWin|
|00004d70| 64 6f 77 4f 75 74 6c 69 | 6e 65 22 2c 2c 62 6c 6b |dowOutli|ne",,blk|
|00004d80| 25 0d 03 8d 3d c8 99 22 | 57 69 6d 70 5f 46 6f 72 |%...=.."|Wimp_For|
|00004d90| 63 65 52 65 64 72 61 77 | 22 2c 2d 31 2c 62 6c 6b |ceRedraw|",-1,blk|
|00004da0| 25 21 34 2c 62 6c 6b 25 | 21 31 36 2d 34 34 2c 62 |%!4,blk%|!16-44,b|
|00004db0| 6c 6b 25 21 31 32 2c 62 | 6c 6b 25 21 31 36 0d 03 |lk%!12,b|lk%!16..|
|00004dc0| 8e 05 e1 0d 03 8f 05 e1 | 0d 03 90 05 e1 0d 03 91 |........|........|
|00004dd0| 05 e1 0d 03 92 14 f4 20 | 45 4e 44 20 4f 46 20 50 |....... |END OF P|
|00004de0| 52 4f 47 52 41 4d 0d ff | 46 69 6c 65 44 61 74 61 |ROGRAM..|FileData|
|00004df0| 82 21 53 70 72 69 74 65 | 73 00 00 00 e0 02 00 00 |.!Sprite|s.......|
|00004e00| 44 f9 ff ff 60 9a 49 fd | 03 00 9a ab 01 00 00 00 |D...`.I.|........|
|00004e10| 10 00 00 00 e4 02 00 00 | d4 02 00 00 21 70 6c 61 |........|....!pla|
|00004e20| 6e 39 34 00 00 00 00 00 | 04 00 00 00 10 00 00 00 |n94.....|........|
|00004e30| 00 00 00 00 07 00 00 00 | 2c 00 00 00 80 01 00 00 |........|,.......|
|00004e40| 0c 00 00 00 00 77 77 77 | 77 77 77 77 77 77 77 77 |.....www|wwwwwwww|
|00004e50| 77 77 77 07 00 00 00 00 | 00 07 00 00 00 00 00 00 |www.....|........|
|00004e60| 00 00 00 00 00 00 00 57 | 00 00 00 00 00 07 00 00 |.......W|........|
|00004e70| 00 00 00 00 00 00 00 00 | 00 00 00 57 05 00 00 00 |........|...W....|
|00004e80| 40 07 00 00 00 00 00 00 | 00 00 00 00 00 00 00 57 |@.......|.......W|
|00004e90| 05 00 00 00 77 07 00 00 | 00 bb bb 00 00 00 bb 00 |....w...|........|
|00004ea0| 00 00 00 57 05 00 00 00 | 77 07 00 00 b0 0b b0 0b |...W....|w.......|
|00004eb0| 00 b0 bb 00 00 00 00 57 | 05 00 00 00 40 07 00 00 |.......W|....@...|
|00004ec0| b0 0b b0 0b 00 bb bb 00 | 00 00 00 57 05 00 00 00 |........|...W....|
|00004ed0| 00 07 00 00 00 bb bb 0b | b0 0b bb 00 00 00 00 57 |........|.......W|
|00004ee0| 05 00 00 00 00 07 00 00 | 00 00 b0 0b b0 bb bb 0b |........|........|
|00004ef0| 00 00 00 57 05 00 00 00 | 40 07 00 00 00 00 bb 00 |...W....|@.......|
|00004f00| 00 00 bb 00 00 00 00 57 | 05 00 00 00 77 07 00 00 |.......W|....w...|
|00004f10| 00 bb 0b 00 00 00 bb 00 | 00 00 00 57 05 00 00 00 |........|...W....|
|00004f20| 77 07 00 00 00 00 00 00 | 00 00 00 00 00 00 00 57 |w.......|.......W|
|00004f30| 05 00 00 00 40 07 00 00 | 00 00 00 00 00 00 00 00 |....@...|........|
|00004f40| 00 00 00 57 05 00 00 00 | 00 07 00 00 00 00 00 00 |...W....|........|
|00004f50| 00 00 00 00 00 00 00 57 | 05 00 00 00 00 77 77 77 |.......W|.....www|
|00004f60| 77 77 77 77 77 77 77 77 | 77 77 77 57 05 00 00 00 |wwwwwwww|wwwW....|
|00004f70| 00 50 55 55 55 55 55 55 | 55 55 55 55 55 55 55 55 |.PUUUUUU|UUUUUUUU|
|00004f80| 05 00 00 00 00 00 55 55 | 55 55 55 55 55 55 55 55 |......UU|UUUUUUUU|
|00004f90| 55 55 55 55 05 00 00 00 | 00 ff ff ff ff ff ff ff |UUUU....|........|
|00004fa0| ff ff ff ff ff ff ff 0f | 00 ff ff ff 00 ff ff ff |........|........|
|00004fb0| ff ff ff ff ff ff ff ff | ff ff ff ff 00 ff ff ff |........|........|
|00004fc0| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004fd0| 0f ff ff ff 00 ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004fe0| ff ff ff ff 0f ff ff ff | 00 ff ff ff ff ff ff ff |........|........|
|00004ff0| ff ff ff ff ff ff ff ff | 0f ff ff ff 00 ff ff ff |........|........|
|00005000| ff ff ff ff ff ff ff ff | ff ff ff ff 0f ff ff ff |........|........|
|00005010| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005020| 0f ff ff ff 00 ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005030| ff ff ff ff 0f ff ff ff | 00 ff ff ff ff ff ff ff |........|........|
|00005040| ff ff ff ff ff ff ff ff | 0f ff ff ff 00 ff ff ff |........|........|
|00005050| ff ff ff ff ff ff ff ff | ff ff ff ff 0f ff ff ff |........|........|
|00005060| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005070| 0f ff ff ff 00 ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005080| ff ff ff ff 0f ff ff ff | 00 ff ff ff ff ff ff ff |........|........|
|00005090| ff ff ff ff ff ff ff ff | 0f ff ff ff 00 ff ff ff |........|........|
|000050a0| ff ff ff ff ff ff ff ff | ff ff ff ff 0f ff ff ff |........|........|
|000050b0| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000050c0| 0f ff ff ff 00 f0 ff ff | ff ff ff ff ff ff ff ff |........|........|
|000050d0| ff ff ff ff 0f ff ff ff | 00 00 ff ff ff ff ff ff |........|........|
|000050e0| ff ff ff ff ff ff ff ff | 0f ff ff ff 46 69 6c 65 |........|....File|
|000050f0| 44 61 74 61 82 39 34 00 | c3 00 04 00 2c 00 00 00 |Data.94.|....,...|
|00005100| 08 9a 00 00 00 00 00 00 | 00 00 00 00 03 00 58 b6 |........|......X.|
|00005110| 02 01 00 00 00 00 00 01 | 01 00 00 00 00 00 01 01 |........|........|
|00005120| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 01 00 00 |........|........|
|00005130| 00 00 00 01 01 00 00 00 | 00 00 01 01 00 00 00 00 |........|........|
|00005140| 00 01 01 00 00 00 00 00 | 01 01 00 01 6f 6e 00 00 |........|....on..|
|00005150| 00 00 01 01 00 00 00 00 | 00 01 01 00 00 00 00 00 |........|........|
|00005160| 01 01 00 00 00 00 00 01 | 01 00 00 00 00 00 01 01 |........|........|
|00005170| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 01 00 00 |........|........|
|00005180| 00 00 00 01 01 00 00 00 | 00 00 01 99 01 00 00 00 |........|........|
|00005190| 00 00 01 01 00 00 00 00 | 00 01 01 00 00 00 00 00 |........|........|
|000051a0| 01 01 00 00 00 00 00 01 | 01 00 00 00 00 00 01 01 |........|........|
|000051b0| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 01 00 00 |........|........|
|000051c0| 00 00 00 01 01 00 00 00 | 00 25 00 01 01 00 00 00 |........|.%......|
|000051d0| 00 00 01 01 00 00 00 00 | 00 01 01 00 00 00 00 00 |........|........|
|000051e0| 01 01 00 00 00 00 00 01 | 01 00 00 00 00 00 01 01 |........|........|
|000051f0| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 01 00 00 |........|........|
|00005200| 00 00 00 01 01 00 00 00 | 00 00 01 01 00 00 00 00 |........|........|
|00005210| 00 01 01 00 00 00 00 00 | 01 01 00 00 00 00 00 01 |........|........|
|00005220| 01 00 00 00 00 00 31 01 | 01 00 00 00 00 00 01 01 |......1.|........|
|00005230| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 01 00 00 |........|........|
|00005240| 00 00 00 01 01 00 00 00 | 00 00 01 01 00 00 00 00 |........|........|
|00005250| 00 01 01 00 00 00 00 00 | 01 01 00 00 00 00 00 01 |........|........|
|00005260| 01 00 00 00 69 00 00 01 | 01 00 00 00 00 00 01 01 |....i...|........|
|00005270| 00 00 00 00 00 01 01 00 | 00 00 00 00 01 02 02 00 |........|........|
|00005280| 00 00 00 01 0d 27 24 28 | 69 5f 66 6c 61 67 73 25 |.....'$(|i_flags%|
|00005290| 2b 32 38 2b 31 32 2b 32 | 34 0d 31 34 29 3d 22 46 |+28+12+2|4.14)="F|
|000052a0| 67 20 63 6f 6c 6f 75 72 | 22 0d 20 94 27 24 0d 69 |g colour|". .'$.i|
|000052b0| 5f 66 6c 61 67 73 25 2b | 32 38 2b 31 32 2b 32 34 |_flags%+|28+12+24|
|000052c0| 2a 31 35 0d 3d 22 42 67 | 20 63 6f 6c 6f 75 72 22 |*15.="Bg| colour"|
|000052d0| 0d 20 9e 34 e7 66 6c 61 | 0d 73 25 80 26 30 32 8c |. .4.fla|.s%.&02.|
|000052e0| 24 28 69 5f 66 6c 61 67 | 73 25 2b 32 38 0d 31 32 |$(i_flag|s%+28.12|
|000052f0| 2b 32 34 2a 31 34 29 3d | 22 45 4f 52 20 63 6f 6c |+24*14)=|"EOR col|
|00005300| 6f 75 0d 22 0d 20 a8 34 | e7 66 6c 61 67 73 25 80 |ou.". .4|.flags%.|
|00005310| 26 32 30 8b 24 28 69 0d | 66 6c 61 67 73 25 2b 32 |&20.$(i.|flags%+2|
|00005320| 38 2b 31 32 2b 32 34 2a | 31 35 29 3d 0d 45 4f 52 |8+12+24*|15)=.EOR|
|00005330| 20 63 6f 6c 6f 75 72 22 | 0d 20 b2 10 e7 66 6c 61 | colour"|. ...fla|
|00005340| 67 0d 25 80 26 34 30 8c | 0d 20 bc 1c 69 5f 66 6c |g.%.&40.|. ..i_fl|
|00005350| 61 67 73 25 3f 28 0d 38 | 2b 31 31 2b 32 34 2a 31 |ags%?(.8|+11+24*1|
|00005360| 34 29 3d 37 0d 20 c6 1c | 69 5f 66 0d 61 67 73 25 |4)=7. ..|i_f.ags%|
|00005370| 3f 28 32 38 2b 31 31 2b | 32 34 2a 31 35 29 3d 37 |?(28+11+|24*15)=7|
|00005380| 0d 20 d0 2b f2 73 68 61 | 64 65 28 69 5f 66 6c 61 |. .+.sha|de(i_fla|
|00005390| 67 73 25 2c 31 0d 29 3a | f2 73 68 61 64 65 28 69 |gs%,1.):|.shade(i|
|000053a0| 5f 66 6c 61 67 73 25 2c | 31 35 0d 0d 20 da 05 cc |_flags%,|15.. ...|
|000053b0| 0d 20 e4 35 69 5f 66 6c | 61 67 73 25 3f 28 32 0d |. .5i_fl|ags%?(2.|
|000053c0| 2b 31 31 2b 32 34 2a 31 | 34 29 3d a4 66 6f 72 65 |+11+24*1|4)=.fore|
|000053d0| 62 61 63 6b 0d 28 66 6c | 61 67 73 25 3e 3e 32 34 |back.(fl|ags%>>24|
|000053e0| 29 80 26 46 29 0d 20 ee | 35 0d 5f 66 6c 61 67 73 |).&F). .|5._flags|
|000053f0| 25 3f 28 32 38 2b 31 31 | 2b 32 34 2a 31 35 0d 3d |%?(28+11|+24*15.=|
|00005400| a4 66 6f 72 65 62 61 63 | 6b 28 28 66 6c 61 67 73 |.forebac|k((flags|
|00005410| 25 3e 3e 0d 38 29 80 26 | 46 29 0d 20 f8 05 cd 0d |%>>.8).&|F). ....|
|00005420| 21 02 17 f2 65 6e 63 6f | 0d 65 6d 65 6e 75 28 69 |!...enco|.emenu(i|
|00005430| 5f 65 73 67 25 29 0d 21 | 0c 0b c9 69 5f 0d 73 67 |_esg%).!|...i_.sg|
|00005440| 25 0d 21 16 22 f2 74 69 | 63 6b 28 69 5f 65 73 67 |%.!.".ti|ck(i_esg|
|00005450| 25 2c 0d 66 6c 61 67 73 | 25 3e 3e 31 36 29 80 26 |%,.flags|%>>16).&|
|00005460| 30 46 29 0d 21 20 0e 0d | 69 5f 62 75 74 74 6f 6e |0F).! ..|i_button|
|00005470| 25 0d 21 2a 25 f2 74 69 | 63 6b 28 69 0d 62 75 74 |%.!*%.ti|ck(i.but|
|00005480| 74 6f 6e 25 2c 28 66 6c | 61 67 73 25 3e 3e 31 32 |ton%,(fl|ags%>>12|
|00005490| 29 0d 26 30 46 29 0d 21 | 34 0f c9 77 5f 67 65 6e |).&0F).!|4..w_gen|
|000054a0| 65 72 61 6c 25 0d 0d 3e | 24 e7 63 75 72 72 65 6e |eral%..>|$.curren|
|000054b0| 74 77 69 6e 64 6f 77 25 | 3d 2d 31 0d 3d a3 3a f4 |twindow%|=-1.=.:.|
|000054c0| 20 64 65 6c 65 74 65 64 | 21 0d 21 48 27 24 6d 62 | deleted|!.!H'$mb|
|000054d0| 0d 77 69 64 65 6e 74 25 | 3d 77 69 64 65 6e 74 24 |.wident%|=wident$|
|000054e0| 28 63 75 72 72 0d 6e 74 | 77 69 6e 64 6f 77 25 29 |(curr.nt|window%)|
|000054f0| 0d 21 52 0c f2 67 65 74 | 63 75 0d 69 0d 21 5c 37 |.!R..get|cu.i.!\7|
|00005500| e7 66 6c 61 67 73 25 80 | 26 38 30 30 30 30 30 0d |.flags%.|&800000.|
|00005510| 63 75 72 72 65 6e 74 69 | 63 6f 6e 25 3d 2d 31 3a |currenti|con%=-1:|
|00005520| f4 20 68 61 0d 20 62 65 | 65 6e 20 64 65 6c 65 74 |. ha. be|en delet|
|00005530| 65 64 21 0d 21 66 16 e7 | 63 0d 72 72 65 6e 74 69 |ed!.!f..|c.rrenti|
|00005540| 63 6f 6e 25 3c 3e 2d 31 | 8c 0d 21 70 3f 24 0d 77 |con%<>-1|..!p?$.w|
|00005550| 5f 67 65 6e 65 72 61 6c | 25 21 28 32 38 2b 32 34 |_general|%!(28+24|
|00005560| 2a 31 2b 0d 32 29 2b a9 | 22 41 6d 65 6e 64 20 69 |*1+.2)+.|"Amend i|
|00005570| 63 6f 6e 20 22 29 3d 22 | 0d 22 2b c3 63 75 72 72 |con ")="|."+.curr|
|00005580| 65 6e 74 69 63 6f 6e 25 | 0d 21 7a 41 24 0d 77 5f |enticon%|.!zA$.w_|
|00005590| 67 65 6e 65 72 61 6c 25 | 21 28 32 38 2b 32 34 2a |general%|!(28+24*|
|000055a0| 32 2b 0d 32 29 2b a9 22 | 52 65 6e 75 6d 62 65 72 |2+.2)+."|Renumber|
|000055b0| 20 20 20 22 29 3d 22 0d | 22 2b c3 bb 24 6d 62 5f |   ")=".|"+..$mb_|
|000055c0| 72 65 6e 75 6d 62 65 72 | 25 0d 21 84 0d f2 65 6e |renumber|%.!...en|
|000055d0| 63 6f 64 65 6d 65 6e 75 | 28 69 5f 66 6c 61 67 73 |codemenu|(i_flags|
|000055e0| 25 0d 0d 21 8e 1a f2 65 | 6e 63 6f 64 65 6d 65 6e |%..!...e|ncodemen|
|000055f0| 75 28 69 5f 62 75 0d 74 | 6f 6e 25 29 0d 21 98 31 |u(i_bu.t|on%).!.1|
|00005600| cc 24 28 77 5f 67 65 6e | 65 72 61 0d 25 21 28 32 |.$(w_gen|era.%!(2|
|00005610| 38 2b 32 34 2a 31 2b 31 | 32 29 2b a9 22 41 6d 65 |8+24*1+1|2)+."Ame|
|00005620| 0d 64 20 69 63 6f 6e 20 | 22 29 3d 22 22 0d 21 a2 |.d icon |")="".!.|
|00005630| 30 24 28 77 5f 0d 65 6e | 65 72 61 6c 25 21 28 32 |0$(w_.en|eral%!(2|
|00005640| 38 2b 32 34 2a 32 2b 31 | 32 29 0d a9 22 52 65 6e |8+24*2+1|2).."Ren|
|00005650| 75 6d 62 65 72 20 20 20 | 22 29 3d 22 22 0d 21 0d |umber   |")="".!.|
|00005660| 23 e3 49 25 3d 31 b8 34 | 3a f2 73 68 61 64 65 28 |#.I%=1.4|:.shade(|
|00005670| 77 5f 67 65 0d 65 72 61 | 6c 25 2c 49 25 29 3a ed |w_ge.era|l%,I%):.|
|00005680| 0d 21 b6 05 cd 0d 21 c0 | 19 0d 65 6e 63 6f 64 65 |.!....!.|..encode|
|00005690| 6d 65 6e 75 28 77 5f 66 | 6c 61 67 73 25 29 0d 21 |menu(w_f|lags%).!|
|000056a0| ca 28 24 6d 62 5f 77 6f | 72 6b 61 72 65 61 30 25 |.($mb_wo|rkarea0%|
|000056b0| 3d c3 28 0d 25 21 34 34 | 29 2b 22 2c 22 2b c3 28 |=.(.%!44|)+","+.(|
|000056c0| 71 25 21 34 38 29 0d 21 | 0d 28 24 6d 62 5f 77 6f |q%!48).!|.($mb_wo|
|000056d0| 72 6b 61 72 65 61 31 25 | 3d c3 28 71 25 0d 35 32 |rkarea1%|=.(q%.52|
|000056e0| 29 2b 22 2c 22 2b c3 28 | 71 25 21 35 36 29 0d 21 |)+","+.(|q%!56).!|
|000056f0| de 1c 0d 6d 62 5f 6d 69 | 6e 78 25 3d c3 28 71 25 |...mb_mi|nx%=.(q%|
|00005700| 21 37 32 80 26 46 46 0d | 46 29 0d 21 e8 1a 24 6d |!72.&FF.|F).!..$m|
|00005710| 62 5f 6d 69 6e 79 25 3d | c3 28 71 25 0d 37 32 3e |b_miny%=|.(q%.72>|
|00005720| 3e 31 36 29 0d 21 f2 28 | 6d 77 78 30 25 3d 71 25 |>16).!.(|mwx0%=q%|
|00005730| 21 0d 30 3a 6d 77 79 30 | 25 3d 71 25 21 32 34 2b |!.0:mwy0|%=q%!24+|
|00005740| 28 71 25 21 38 2d 0d 25 | 21 31 36 29 0d 21 fc 28 |(q%!8-.%|!16).!.(|
|00005750| 6d 77 78 31 25 3d 71 25 | 21 32 30 0d 28 71 25 21 |mwx1%=q%|!20.(q%!|
|00005760| 31 32 2d 71 25 21 34 29 | 3a 6d 77 79 31 25 3d 71 |12-q%!4)|:mwy1%=q|
|00005770| 0d 21 32 34 0d 22 06 16 | f2 65 6e 63 6f 64 65 70 |.!24."..|.encodep|
|00005780| 61 6c 6d 65 6e 0d 28 2d | 31 29 0d 22 10 14 49 25 |almen.(-|1)."..I%|
|00005790| 3d 77 5f 63 6f 6c 6f 75 | 72 73 0d 2b 32 38 0d 22 |=w_colou|rs.+28."|
|000057a0| 1a 3a e3 4a 25 3d 71 25 | 2b 33 36 b8 71 25 2b 0d |.:.J%=q%|+36.q%+.|
|000057b0| 32 3a 49 25 3f 31 31 3d | 28 3f 4a 25 3c 3c 34 29 |2:I%?11=|(?J%<<4)|
|000057c0| 84 75 6e 63 0d 6c 6f 75 | 72 25 28 3f 4a 25 29 3a |.unc.lou|r%(?J%):|
|000057d0| 49 25 2b 3d 32 34 3a ed | 0d 0d 24 0d c9 77 5f 66 |I%+=24:.|..$..w_f|
|000057e0| 6c 61 67 73 25 0d 22 2e | 1f 21 71 25 3d 68 0d 6e |lags%.".|.!q%=h.n|
|000057f0| 64 6c 65 25 28 63 75 72 | 72 65 6e 74 77 69 6e 64 |dle%(cur|rentwind|
|00005800| 6f 77 25 0d 0d 22 38 1e | c8 99 22 57 69 6d 70 5f |ow%.."8.|.."Wimp_|
|00005810| 47 65 74 57 69 6e 64 6f | 0d 49 6e 66 6f 22 2c 2c |GetWindo|.Info",,|
|00005820| 71 25 0d 22 42 0b e3 49 | 25 3d 30 b8 37 0d 22 4c |q%."B..I|%=0.7."L|
|00005830| 25 e7 71 25 21 33 32 80 | 28 31 3c 3c 49 25 29 8c |%.q%!32.|(1<<I%).|
|00005840| f2 74 0d 63 6b 28 77 5f | 66 6c 61 67 73 25 2c 49 |.t.ck(w_|flags%,I|
|00005850| 25 29 0d 22 56 05 ed 0d | 22 60 23 e7 71 25 21 33 |%)."V...|"`#.q%!3|
|00005860| 32 80 28 33 3c 3c 38 29 | 8c f2 74 69 0d 6b 28 77 |2.(3<<8)|..ti.k(w|
|00005870| 5f 66 6c 61 67 73 25 2c | 38 29 0d 22 6a 33 e7 71 |_flags%,|8)."j3.q|
|00005880| 25 0d 33 32 80 28 31 3c | 3c 31 30 29 8c f2 74 69 |%.32.(1<|<10)..ti|
|00005890| 63 6b 28 77 5f 66 0d 61 | 67 73 25 2c 39 29 3a f4 |ck(w_f.a|gs%,9):.|
|000058a0| 20 72 65 61 6c 20 63 6f | 6c 6f 75 0d 73 0d 22 74 | real co|lou.s."t|
|000058b0| 33 e7 71 25 21 33 32 80 | 28 31 3c 3c 31 31 29 8c |3.q%!32.|(1<<11).|
|000058c0| 0d 74 69 63 6b 28 77 5f | 66 6c 61 67 73 25 2c 31 |.tick(w_|flags%,1|
|000058d0| 30 29 3a f4 20 0d 61 63 | 6b 20 77 69 6e 64 6f 77 |0):. .ac|k window|
|000058e0| 0d 22 7e 31 e7 71 25 21 | 33 32 0d 28 31 3c 3c 31 |."~1.q%!|32.(1<<1|
|000058f0| 32 29 8c f2 74 69 63 6b | 28 77 5f 66 6c 61 67 0d |2)..tick|(w_flag.|
|00005900| 25 2c 31 31 29 3a f4 20 | 67 72 61 62 20 6b 65 79 |%,11):. |grab key|
|00005910| 73 0d 22 88 0d f2 65 6e | 63 6f 64 65 6d 65 6e 75 |s."...en|codemenu|
|00005920| 28 74 5f 66 6c 61 67 73 | 25 0d 0d 22 92 15 e7 63 |(t_flags|%.."...c|
|00005930| 75 72 72 65 6e 74 69 63 | 6f 6e 25 3d 2d 31 0d 0d |urrentic|on%=-1..|
|00005940| 22 9c 27 66 6c 61 67 73 | 25 3d 71 25 21 36 34 3a |".'flags|%=q%!64:|
|00005950| f2 65 6e 0d 6f 64 65 6d | 65 6e 75 28 69 5f 62 75 |.en.odem|enu(i_bu|
|00005960| 74 74 6f 6e 25 29 0d 22 | 0d 18 cc f2 73 68 61 64 |tton%)."|....shad|
|00005970| 65 28 77 5f 66 6c 61 67 | 73 25 2c 31 32 0d 0d 22 |e(w_flag|s%,12.."|
|00005980| b0 05 cd 0d 22 ba 0d e3 | 49 25 3d 31 34 b8 32 30 |...."...|I%=14.20|
|00005990| 0d 22 0d 2d e7 71 25 21 | 33 32 80 28 31 3c 3c 28 |.".-.q%!|32.(1<<(|
|000059a0| 49 25 2b 32 34 2d 31 0d | 29 29 8c f2 74 69 63 6b |I%+24-1.|))..tick|
|000059b0| 28 77 5f 66 6c 61 67 73 | 25 2c 49 25 0d 0d 22 ce |(w_flags|%,I%..".|
|000059c0| 05 ed 0d 22 d8 15 e7 71 | 25 21 33 32 80 26 38 30 |..."...q|%!32.&80|
|000059d0| 30 0d 30 30 30 30 8c 0d | 22 e2 16 f2 74 69 63 6b |0.0000..|"...tick|
|000059e0| 28 77 5f 66 6c 61 0d 73 | 25 2c 31 33 29 0d 22 ec |(w_fla.s|%,13).".|
|000059f0| 16 f2 73 68 61 64 65 28 | 77 5f 66 0d 61 67 73 25 |..shade(|w_f.ags%|
|00005a00| 2c 30 29 0d 22 f6 16 f2 | 73 68 61 64 65 28 77 5f |,0)."...|shade(w_|
|00005a10| 0d 6c 61 67 73 25 2c 32 | 29 0d 23 00 16 f2 73 68 |.lags%,2|).#...sh|
|00005a20| 61 64 65 28 77 0d 66 6c | 61 67 73 25 2c 33 29 0d |ade(w.fl|ags%,3).|
|00005a30| 23 0a 16 f2 73 68 61 64 | 65 28 0d 5f 66 6c 61 67 |#...shad|e(._flag|
|00005a40| 73 25 2c 37 29 0d 23 14 | 05 cc 0d 23 1e 23 e3 0d |s%,7).#.|...#.#..|
|00005a50| 25 3d 31 34 b8 32 30 3a | f2 73 68 61 64 65 28 77 |%=14.20:|.shade(w|
|00005a60| 5f 66 6c 61 0d 73 25 2c | 49 25 29 3a ed 0d 23 28 |_fla.s%,|I%):..#(|
|00005a70| 05 cd 0d 23 32 0d c9 74 | 5f 0d 6c 61 67 73 25 0d |...#2..t|_.lags%.|
|00005a80| 23 3c 30 71 25 21 36 30 | 3d 71 25 21 36 30 0d 26 |#<0q%!60|=q%!60.&|
|00005a90| 32 34 3a f4 20 6d 75 73 | 74 20 62 65 20 66 69 6c |24:. mus|t be fil|
|00005aa0| 6c 65 64 0d 77 69 74 68 | 20 62 6f 72 64 65 72 0d |led.with| border.|
|00005ab0| 23 46 3b f2 65 6e 63 6f | 0d 65 69 63 6f 6e 28 74 |#F;.enco|.eicon(t|
|00005ac0| 5f 66 6c 61 67 73 25 2c | 36 2c 71 25 21 0d 30 2c |_flags%,|6,q%!.0,|
|00005ad0| 71 25 2b 37 36 2c 74 62 | 5f 74 65 78 74 25 2c 74 |q%+76,tb|_text%,t|
|00005ae0| 62 5f 0d 70 72 69 74 65 | 25 29 0d 23 50 17 24 74 |b_.prite|%).#P.$t|
|00005af0| 62 5f 62 75 66 66 65 0d | 73 69 7a 65 25 3d c3 4c |b_buffe.|size%=.L|
|00005b00| 25 0d 23 5a 21 e7 71 25 | 21 36 30 80 0d 31 30 30 |%.#Z!.q%|!60..100|
|00005b10| 8c f2 74 69 63 6b 28 74 | 5f 66 6c 61 67 73 25 2c |..tick(t|_flags%,|
|00005b20| 37 0d 0d 23 64 21 e7 71 | 25 21 36 30 80 26 32 30 |7..#d!.q|%!60.&20|
|00005b30| 30 8c f2 74 69 63 0d 28 | 74 5f 66 6c 61 67 73 25 |0..tic.(|t_flags%|
|00005b40| 2c 38 29 0d 23 6e 0e c9 | 77 5f 73 0d 72 6f 6c 6c |,8).#n..|w_s.roll|
|00005b50| 25 0d 23 78 0c f2 67 65 | 74 63 75 72 77 0d 23 82 |%.#x..ge|tcurw.#.|
|00005b60| 0d e7 66 6c 61 67 73 25 | 80 26 31 30 30 8c f2 74 |..flags%|.&100..t|
|00005b70| 69 63 6b 28 77 0d 73 63 | 72 6f 6c 6c 25 2c 30 29 |ick(w.sc|roll%,0)|
|00005b80| 0d 23 8c 23 e7 66 6c 61 | 67 73 0d 80 26 32 30 30 |.#.#.fla|gs..&200|
|00005b90| 8c f2 74 69 63 6b 28 77 | 5f 73 63 72 6f 6c 6c 0d |..tick(w|_scroll.|
|00005ba0| 2c 31 29 0d 23 96 0e c9 | 6d 5f 73 70 72 69 74 65 |,1).#...|m_sprite|
|00005bb0| 25 0d 23 a0 0d 73 24 3d | 73 70 72 69 74 65 6e 24 |%.#..s$=|spriten$|
|00005bc0| 28 63 75 72 72 65 6e 74 | 73 0d 72 69 74 65 25 29 |(current|s.rite%)|
|00005bd0| 0d 23 aa 3f e7 75 6e 64 | 6f 6e 61 6d 65 24 0d 3e |.#.?.und|oname$.>|
|00005be0| 73 24 84 75 6e 64 6f 73 | 63 72 65 65 6e 25 3c 3e |s$.undos|creen%<>|
|00005bf0| 65 64 69 0d 62 75 66 66 | 65 72 25 8c f2 73 68 61 |edi.buff|er%..sha|
|00005c00| 64 65 28 6d 5f 73 70 72 | 0d 74 65 25 2c 30 29 0d |de(m_spr|.te%,0).|
|00005c10| 23 b4 24 f2 67 65 74 73 | 70 72 69 74 65 0d 79 28 |#.$.gets|prite.y(|
|00005c20| 63 75 72 72 65 6e 74 73 | 70 72 69 74 65 25 2c 30 |currents|prite%,0|
|00005c30| 2c 30 0d 0d 23 be 25 e7 | 73 70 72 63 6f 6c 6f 75 |,0..#.%.|sprcolou|
|00005c40| 72 25 3d 31 36 8c f2 0d | 69 63 6b 28 6d 5f 73 70 |r%=16...|ick(m_sp|
|00005c50| 72 69 74 65 25 2c 32 29 | 0d 23 c8 0e 0d 68 61 73 |rite%,2)|.#...has|
|00005c60| 6d 61 73 6b 25 8c 0d 23 | d2 17 f2 73 68 61 64 65 |mask%..#|...shade|
|00005c70| 28 0d 5f 73 70 72 69 74 | 65 25 2c 33 29 0d 23 dc |(._sprit|e%,3).#.|
|00005c80| 18 cc f2 73 68 61 0d 65 | 28 6d 5f 73 70 72 69 74 |...sha.e|(m_sprit|
|00005c90| 65 25 2c 32 29 0d 23 e6 | 17 f2 73 0d 61 64 65 28 |e%,2).#.|..s.ade(|
|00005ca0| 6d 5f 73 70 72 69 74 65 | 25 2c 34 29 0d 23 f0 05 |m_sprite|%,4).#..|
|00005cb0| 0d 0d 23 fa 15 63 25 3d | 63 75 72 72 65 6e 74 73 |..#..c%=|currents|
|00005cc0| 70 72 69 74 65 0d 0d 24 | 04 31 24 73 70 72 62 75 |prite..$|.1$sprbu|
|00005cd0| 66 66 25 3d c3 73 70 72 | 78 73 0d 61 6c 65 25 28 |ff%=.spr|xs.ale%(|
|00005ce0| 63 25 29 2b 22 78 22 2b | c3 73 70 72 79 73 63 0d |c%)+"x"+|.sprysc.|
|00005cf0| 6c 65 25 28 63 25 29 0d | 24 0e 1e f2 65 6e 63 6f |le%(c%).|$...enco|
|00005d00| 64 65 70 61 0d 6d 65 6e | 75 28 73 70 72 63 6f 6c |depa.men|u(sprcol|
|00005d10| 6f 75 72 25 29 0d 24 18 | 12 0d 6d 5f 73 70 72 69 |our%).$.|..m_spri|
|00005d20| 74 65 6c 69 73 74 25 0d | 24 22 2a 24 6d 62 0d 63 |telist%.|$"*$mb.c|
|00005d30| 72 73 70 72 69 74 65 25 | 3d 22 22 3a 24 6d 62 5f |rsprite%|="":$mb_|
|00005d40| 73 70 72 0d 74 65 66 25 | 3d 73 70 72 69 74 65 66 |spr.tef%|=spritef|
|00005d50| 24 0d 24 2c 13 69 66 6c | 0d 67 73 25 3d 26 34 30 |$.$,.ifl|.gs%=&40|
|00005d60| 30 30 30 30 0d 24 36 25 | e7 69 63 6f 6e 0d 3c 3e |0000.$6%|.icon.<>|
|00005d70| 2d 31 8c f2 67 65 74 69 | 28 68 61 6e 64 6c 65 25 |-1..geti|(handle%|
|00005d80| 2c 69 0d 6f 6e 25 84 31 | 29 0d 24 40 15 e7 69 66 |,i.on%.1|).$@..if|
|00005d90| 6c 61 67 73 25 80 26 0d | 30 30 30 30 30 8c 0d 24 |lags%.&.|00000..$|
|00005da0| 4a 1b f2 73 68 61 64 65 | 28 6d 5f 73 0d 72 69 74 |J..shade|(m_s.rit|
|00005db0| 65 6c 69 73 74 25 2c 33 | 29 0d 24 54 1b f2 73 68 |elist%,3|).$T..sh|
|00005dc0| 61 0d 65 28 6d 5f 73 70 | 72 69 74 65 6c 69 73 74 |a.e(m_sp|ritelist|
|00005dd0| 25 2c 34 29 0d 24 0d 05 | cc 0d 24 68 2d 72 65 6e |%,4).$..|..$h-ren|
|00005de0| 61 6d 65 73 70 72 69 74 | 65 24 3d 0d 69 63 6f 6e |amesprit|e$=.icon|
|00005df0| 73 74 72 69 6e 67 28 69 | 66 6c 61 67 73 25 2c 69 |string(i|flags%,i|
|00005e00| 0d 61 74 61 25 29 0d 24 | 72 1f 24 6d 62 5f 72 6e |.ata%).$|r.$mb_rn|
|00005e10| 73 70 72 69 74 0d 25 3d | 72 65 6e 61 6d 65 73 70 |sprit.%=|renamesp|
|00005e20| 72 69 74 65 24 0d 24 7c | 05 cd 0d 24 86 35 c8 99 |rite$.$||...$.5..|
|00005e30| 22 57 69 6d 70 5f 57 68 | 69 63 68 49 63 6f 6e 0d |"Wimp_Wh|ichIcon.|
|00005e40| 2c 73 70 72 69 74 65 6c | 69 73 74 25 2c 71 25 2c |,spritel|ist%,q%,|
|00005e50| 26 32 30 30 0d 30 31 2c | 26 32 30 30 30 30 31 0d |&200.01,|&200001.|
|00005e60| 24 90 23 e7 21 71 25 3d | 2d 0d 8c f2 73 68 61 64 |$.#.!q%=|-...shad|
|00005e70| 65 28 6d 5f 73 70 72 69 | 74 65 6c 69 73 74 0d 2c |e(m_spri|telist.,|
|00005e80| 32 29 0d 24 9a 2b e7 21 | 71 25 3d 2d 31 84 71 25 |2).$.+.!|q%=-1.q%|
|00005e90| 21 34 3d 0d 31 8c f2 73 | 68 61 64 65 28 6d 5f 73 |!4=.1..s|hade(m_s|
|00005ea0| 70 72 69 74 65 6c 69 73 | 0d 25 2c 31 29 0d 24 a4 |pritelis|.%,1).$.|
|00005eb0| 05 cb 0d 24 ae 06 3d b9 | 0d 24 b8 04 0d 0d c2 13 |...$..=.|.$......|
|00005ec0| dd f2 73 68 61 64 65 28 | 6d 68 25 2c 49 25 29 0d |..shade(|mh%,I%).|
|00005ed0| 24 cc 0d 6d 68 25 21 28 | 32 38 2b 38 2b 32 34 2a |$..mh%!(|28+8+24*|
|00005ee0| 49 25 29 3d 6d 68 25 0d | 28 32 38 2b 38 2b 32 34 |I%)=mh%.|(28+8+24|
|00005ef0| 2a 49 25 29 84 26 34 30 | 30 30 30 30 0d e1 0d 24 |*I%).&40|0000...$|
|00005f00| d6 04 0d 24 e0 12 dd f2 | 74 69 63 6b 28 6d 68 25 |...$....|tick(mh%|
|00005f10| 2c 0d 25 29 0d 24 ea 27 | 6d 68 25 21 28 32 38 2b |,.%).$.'|mh%!(28+|
|00005f20| 32 34 2a 49 25 29 0d 6d | 68 25 21 28 32 38 2b 32 |24*I%).m|h%!(28+2|
|00005f30| 34 2a 49 25 29 84 26 30 | 31 3a e1 0d 24 f4 04 0d |4*I%).&0|1:..$...|
|00005f40| 24 fe 13 dd f2 73 65 6c | 65 63 74 28 68 25 2c 69 |$....sel|ect(h%,i|
|00005f50| 0d 29 0d 25 08 47 21 71 | 25 3d 68 25 3a 71 25 21 |.).%.G!q|%=h%:q%!|
|00005f60| 34 3d 69 25 3a 0d 25 21 | 38 3d 26 32 30 30 30 30 |4=i%:.%!|8=&20000|
|00005f70| 30 3a 71 25 21 31 32 3d | 26 32 0d 30 30 30 30 3a |0:q%!12=|&2.0000:|
|00005f80| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 0d |.."Wimp_|SetIcon.|
|00005f90| 74 61 74 65 22 2c 2c 71 | 25 0d 25 12 05 e1 0d 25 |tate",,q|%.%....%|
|00005fa0| 1c 04 0d 25 0d 15 dd f2 | 64 65 73 65 6c 65 63 74 |...%....|deselect|
|00005fb0| 28 68 25 2c 69 25 29 0d | 25 0d 41 21 71 25 3d 68 |(h%,i%).|%.A!q%=h|
|00005fc0| 25 3a 71 25 21 34 3d 69 | 25 3a 71 25 21 38 0d 30 |%:q%!4=i|%:q%!8.0|
|00005fd0| 3a 71 25 21 31 32 3d 26 | 32 30 30 30 30 30 3a c8 |:q%!12=&|200000:.|
|00005fe0| 99 22 57 0d 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."W.mp_S|etIconSt|
|00005ff0| 61 74 65 22 2c 2c 71 25 | 0d 25 3a 05 e1 0d 25 44 |ate",,q%|.%:...%D|
|00006000| 04 0d 25 4e 3c dd f2 65 | 6e 63 6f 64 65 0d 63 6f |..%N<..e|ncode.co|
|00006010| 6e 28 69 63 6f 6e 6d 65 | 6e 75 25 2c 6e 6d 65 6e |n(iconme|nu%,nmen|
|00006020| 75 25 0d 66 6c 61 67 73 | 25 2c 71 25 2c 69 74 65 |u%.flags|%,q%,ite|
|00006030| 78 74 25 2c 69 73 70 0d | 69 74 65 25 29 0d 25 58 |xt%,isp.|ite%).%X|
|00006040| 22 e7 69 5f 66 6f 6e 74 | 25 3c 30 8c 0d 73 68 61 |".i_font|%<0..sha|
|00006050| 64 65 28 69 63 6f 6e 6d | 65 6e 75 25 2c 36 29 0d |de(iconm|enu%,6).|
|00006060| 25 0d 1b 24 69 74 65 78 | 74 25 3d 22 22 3a 24 69 |%..$itex|t%="":$i|
|00006070| 73 70 72 69 74 65 0d 3d | 22 22 0d 25 6c 2e e7 66 |sprite.=|"".%l..f|
|00006080| 6c 61 67 73 25 80 26 30 | 31 8c 24 0d 74 65 78 74 |lags%.&0|1.$.text|
|00006090| 25 3d a4 69 63 6f 6e 73 | 74 72 69 6e 67 28 66 6c |%=.icons|tring(fl|
|000060a0| 0d 67 73 25 2c 71 25 29 | 0d 25 76 36 e7 28 66 6c |.gs%,q%)|.%v6.(fl|
|000060b0| 61 67 73 25 80 0d 30 33 | 29 3d 26 30 32 8c 24 69 |ags%..03|)=&02.$i|
|000060c0| 73 70 72 69 74 65 25 3d | a4 69 0d 6f 6e 73 74 72 |sprite%=|.i.onstr|
|000060d0| 69 6e 67 28 66 6c 61 67 | 73 25 2c 71 25 29 0d 0d |ing(flag|s%,q%)..|
|000060e0| 80 33 e7 66 6c 61 67 73 | 25 80 26 31 30 30 8c 4c |.3.flags|%.&100.L|
|000060f0| 25 3d 71 25 0d 38 8b 4c | 25 3d 31 32 3a f4 20 72 |%=q%.8.L|%=12:. r|
|00006100| 65 74 75 72 6e 65 64 20 | 74 0d 20 63 61 6c 6c 65 |eturned |t. calle|
|00006110| 72 0d 25 8a 18 49 25 3d | 69 63 6f 6e 6d 65 0d 75 |r.%..I%=|iconme.u|
|00006120| 25 2b 32 38 3a 4a 25 3d | 31 0d 25 94 2a e3 69 74 |%+28:J%=|1.%.*.it|
|00006130| 65 6d 25 0d 30 b8 6e 6d | 65 6e 75 25 3a e7 66 6c |em%.0.nm|enu%:.fl|
|00006140| 61 67 73 25 80 4a 25 8c | 0d 49 25 3d 21 49 25 84 |ags%.J%.|.I%=!I%.|
|00006150| 26 30 31 0d 25 9e 13 49 | 25 2b 3d 32 34 0d 4a 25 |&01.%..I|%+=24.J%|
|00006160| 2b 3d 4a 25 3a ed 0d 25 | a8 05 e1 0d 25 b2 04 0d |+=J%:..%|....%...|
|00006170| 25 bc 0d dd f2 64 65 63 | 6f 64 65 6d 65 6e 75 28 |%....dec|odemenu(|
|00006180| 6d 65 6e 75 68 61 6e 0d | 6c 65 25 2c 6d 65 6e 75 |menuhan.|le%,menu|
|00006190| 73 25 29 0d 25 c6 12 c8 | 8e 6d 65 6e 0d 68 61 6e |s%).%...|.men.han|
|000061a0| 64 6c 65 25 ca 0d 25 d0 | 0e c9 6d 61 69 6e 6d 65 |dle%..%.|..mainme|
|000061b0| 6e 0d 25 0d 25 da 0e c8 | 8e 21 6d 65 6e 75 73 25 |n.%.%...|.!menus%|
|000061c0| ca 0d 25 e4 11 c9 0d 3a | f4 20 69 6e 66 6f 20 62 |..%....:|. info b|
|000061d0| 6f 78 0d 25 ee 12 c9 31 | 3a f2 67 0d 74 70 6f 69 |ox.%...1|:.g.tpoi|
|000061e0| 6e 74 65 72 0d 25 f8 1f | f2 63 68 65 63 6b 69 64 |nter.%..|.checkid|
|000061f0| 0d 6e 74 28 24 6d 62 5f | 77 69 64 65 6e 74 25 2c |.nt($mb_|wident%,|
|00006200| 22 22 29 0d 26 0d 35 f2 | 63 72 65 61 74 65 77 69 |"").&.5.|createwi|
|00006210| 6e 64 6f 77 28 6d 6f 75 | 73 65 0d 25 2d 31 30 30 |ndow(mou|se.%-100|
|00006220| 2c 6d 6f 75 73 65 79 25 | 2b 31 36 2c 24 6d 62 0d |,mousey%|+16,$mb.|
|00006230| 77 69 64 65 6e 74 25 29 | 0d 26 0c 36 f4 20 20 20 |wident%)|.&.6.   |
|00006240| 20 20 57 48 0d 4e 20 31 | 3a 50 52 4f 43 73 70 72 |  WH.N 1|:PROCspr|
|00006250| 69 74 65 69 6e 66 6f 3a | 50 0d 4f 43 66 72 6f 6e |iteinfo:|P.OCfron|
|00006260| 74 28 73 70 72 69 74 65 | 6c 69 73 74 25 29 0d 26 |t(sprite|list%).&|
|00006270| 16 42 f4 20 20 20 20 20 | 57 48 45 4e 20 32 3a 50 |.B.     |WHEN 2:P|
|00006280| 52 4f 43 0d 6e 63 6f 64 | 65 70 61 6c 28 30 2c 31 |ROC.ncod|epal(0,1|
|00006290| 35 29 3a 50 52 4f 43 66 | 0d 6f 6e 74 28 70 61 6c |5):PROCf|.ont(pal|
|000062a0| 65 74 74 65 25 29 3a 50 | 52 4f 43 68 74 0d 61 6c |ette%):P|ROCht.al|
|000062b0| 0d 26 20 25 c9 32 3a f2 | 6c 6f 61 64 74 65 6d 70 |.& %.2:.|loadtemp|
|000062c0| 6c 61 0d 65 73 28 24 6d | 62 5f 74 65 6d 70 6c 61 |la.es($m|b_templa|
|000062d0| 74 65 73 25 29 0d 26 0d | 21 c9 33 3a f2 63 68 65 |tes%).&.|!.3:.che|
|000062e0| 63 6b 66 75 6c 6c 28 24 | 6d 62 5f 74 0d 6d 70 6c |ckfull($|mb_t.mpl|
|000062f0| 61 74 65 73 25 29 0d 26 | 34 24 f2 73 61 76 65 74 |ates%).&|4$.savet|
|00006300| 65 0d 70 6c 61 74 65 73 | 28 24 6d 62 5f 74 65 6d |e.plates|($mb_tem|
|00006310| 70 6c 61 74 65 73 0d 2c | b9 29 0d 26 3e 10 c9 34 |plates.,|.).&>..4|
|00006320| 3a f2 66 69 6e 69 73 68 | 3a e0 0d 0d 48 05 cb 0d |:.finish|:...H...|
|00006330| 26 52 0f c9 77 5f 67 65 | 6e 65 72 61 6c 25 0d 26 |&R..w_ge|neral%.&|
|00006340| 0d 0e c8 8e 21 6d 65 6e | 75 73 25 ca 0d 26 66 0f |....!men|us%..&f.|
|00006350| c9 30 3a f2 67 0d 74 63 | 75 72 77 0d 26 70 25 6d |.0:.g.tc|urw.&p%m|
|00006360| 78 25 3d 6d 6d 6f 75 73 | 65 78 0d 2d 62 78 25 3a |x%=mmous|ex.-bx%:|
|00006370| 6d 79 25 3d 6d 6d 6f 75 | 73 65 79 25 2d 62 79 0d |my%=mmou|sey%-by.|
|00006380| 0d 26 7a 1f 69 78 25 3d | 64 65 66 61 75 6c 74 25 |.&z.ix%=|default%|
|00006390| 21 39 36 2d 0d 65 66 61 | 75 6c 74 25 21 38 38 0d |!96-.efa|ult%!88.|
|000063a0| 26 84 20 69 79 25 3d 64 | 65 0d 61 75 6c 74 25 21 |&. iy%=d|e.ault%!|
|000063b0| 31 30 30 2d 64 65 66 61 | 75 6c 74 25 21 39 0d 0d |100-defa|ult%!9..|
|000063c0| 26 8e 3f 71 25 21 34 3d | 6d 78 25 2d 69 78 25 2f |&.?q%!4=|mx%-ix%/|
|000063d0| 32 3a 71 0d 21 38 3d 6d | 79 25 2d 69 79 25 2f 32 |2:q.!8=m|y%-iy%/2|
|000063e0| 3a 71 25 21 31 32 3d 71 | 0d 21 34 2b 69 78 25 3a |:q%!12=q|.!4+ix%:|
|000063f0| 71 25 21 31 36 3d 71 25 | 21 38 2b 69 79 0d 0d 26 |q%!16=q%|!8+iy..&|
+--------+-------------------------+-------------------------+--------+--------+