/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / funckeys

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 64 02 00 00 54 03 00 00 |Archive.|d...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 46 75 6e 63 4b 65 | 79 73 00 00 ff ff ff ff |.!FuncKe|ys......|
|00000070| 47 ff ff ff e5 be 25 9c | 33 00 00 00 ff ff ff ff |G.....%.|3.......|
|00000080| 20 01 00 80 82 21 42 6f | 6f 74 00 0a ff 90 04 12 | ....!Bo|ot......|
|00000090| 3c 00 00 00 41 eb ff ff | 93 f2 6a ef 03 00 89 c9 |<...A...|..j.....|
|000000a0| 3c 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 90 0a |<...$...|.!Run...|
|000000b0| ff 90 04 12 8b 00 00 00 | 42 eb ff ff f4 9f 5c 0a |........|B.....\.|
|000000c0| 03 00 f2 92 8b 00 00 00 | 84 00 00 00 83 21 52 75 |........|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 12 | 1f 85 00 00 42 fb ff ff |nImage..|....B...|
|000000e0| fb 32 5a ed 03 00 00 00 | 98 83 00 00 33 01 00 00 |.2Z.....|....3...|
|000000f0| 83 21 53 70 72 69 74 65 | 73 00 04 12 3c 04 00 00 |.!Sprite|s...<...|
|00000100| 42 f9 ff ff 86 41 87 57 | 03 00 81 65 d8 02 00 00 |B....A.W|...e....|
|00000110| ef 84 00 00 82 44 65 66 | 61 75 6c 74 73 00 04 12 |.....Def|aults...|
|00000120| 9f 02 00 00 42 ff ff ff | 86 d1 41 ed 03 00 2a b2 |....B...|..A...*.|
|00000130| 9f 02 00 00 eb 87 00 00 | 83 54 65 6d 70 6c 61 74 |........|.Templat|
|00000140| 65 73 00 12 32 21 00 00 | 42 ec ff ff a4 79 5a ed |es..2!..|B....yZ.|
|00000150| 03 00 06 6b f1 1f 00 00 | ae 8a 00 00 00 00 00 6e |...k....|.......n|
|00000160| 02 00 90 0a ff 90 04 12 | 00 00 84 07 02 07 01 0c |........|........|
|00000170| 0e 0c 00 90 06 fc ff ff | 00 05 00 90 b2 39 01 00 |........|.....9..|
|00000180| 82 4b 65 79 44 65 66 73 | 00 00 00 00 ff ff ff ff |.KeyDefs|........|
|00000190| 47 ff ff ff 01 c0 25 9c | 33 00 00 00 ff ff ff ff |G.....%.|3.......|
|000001a0| b0 01 00 80 82 46 75 6e | 63 4b 65 79 73 00 19 00 |.....Fun|cKeys...|
|000001b0| 57 00 00 00 42 eb ff ff | 67 f0 75 eb 03 00 d2 46 |W...B...|g.u....F|
|000001c0| 57 00 00 00 c3 aa 00 00 | 83 54 65 73 74 00 60 ff |W.......|.Test.`.|
|000001d0| 90 03 19 00 e3 00 00 00 | 42 fe ff ff e9 c0 75 eb |........|B.....u.|
|000001e0| 03 00 ea 48 d4 00 00 00 | 3e ab 00 00 00 03 9a 00 |...H....|>.......|
|000001f0| 90 03 60 ff 90 03 19 00 | 00 17 56 65 72 73 69 6f |..`.....|..Versio|
|00000200| 6e 3a 0d 3e 0d fe dc 62 | 65 72 20 64 15 62 73 65 |n:.>...b|er d.bse|
|00000210| 82 4b 65 79 53 74 72 69 | 70 73 00 00 ff ff ff ff |.KeyStri|ps......|
|00000220| 47 ff ff ff 6c c0 25 9c | 33 00 00 00 ff ff ff ff |G...l.%.|3.......|
|00000230| 40 02 00 80 82 45 64 69 | 74 00 00 90 03 56 11 90 |@....Edi|t....V..|
|00000240| 49 03 00 00 42 ff ff ff | 32 28 5a ed 03 00 e2 21 |I...B...|2(Z....!|
|00000250| 49 03 00 00 36 ac 00 00 | 82 49 6d 70 72 65 73 73 |I...6...|.Impress|
|00000260| 69 6f 6e 00 6d 03 00 00 | 42 ff ff ff 7e 77 c1 c2 |ion.m...|B...~w..|
|00000270| 03 00 bb 47 6d 03 00 00 | a3 af 00 00 00 56 11 90 |...Gm...|.....V..|
|00000280| 17 65 00 90 03 56 11 90 | 17 65 00 90 03 56 11 90 |.e...V..|.e...V..|
|00000290| 17 65 00 90 03 56 11 90 | 17 65 00 90 2f cb 0b 8c |.e...V..|.e../...|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 0a ff 90 04 12 | 3c 00 00 00 41 eb ff ff |ot......|<...A...|
|00000370| 93 f2 6a ef 03 00 89 c9 | 7c 20 21 42 6f 6f 74 20 |..j.....|| !Boot |
|00000380| 66 6f 72 20 46 75 6e 63 | 74 69 6f 6e 20 4b 65 79 |for Func|tion Key|
|00000390| 73 0a 7c 0a 49 63 6f 6e | 53 70 72 69 74 65 73 20 |s.|.Icon|Sprites |
|000003a0| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 21 53 70 72 69 |<Obey$Di|r>.!Spri|
|000003b0| 74 65 73 0a 46 69 6c 65 | 44 61 74 61 82 21 52 75 |tes.File|Data.!Ru|
|000003c0| 6e 00 90 0a ff 90 04 12 | 8b 00 00 00 42 eb ff ff |n.......|....B...|
|000003d0| f4 9f 5c 0a 03 00 f2 92 | 7c 20 21 52 75 6e 20 66 |..\.....|| !Run f|
|000003e0| 6f 72 20 46 75 6e 63 74 | 69 6f 6e 20 4b 65 79 73 |or Funct|ion Keys|
|000003f0| 0a 7c 0a 49 63 6f 6e 53 | 70 72 69 74 65 73 20 3c |.|.IconS|prites <|
|00000400| 4f 62 65 79 24 44 69 72 | 3e 2e 21 53 70 72 69 74 |Obey$Dir|>.!Sprit|
|00000410| 65 73 0a 53 65 74 20 46 | 75 6e 63 24 44 69 72 20 |es.Set F|unc$Dir |
|00000420| 3c 4f 62 65 79 24 44 69 | 72 3e 0a 57 69 6d 70 53 |<Obey$Di|r>.WimpS|
|00000430| 6c 6f 74 20 2d 6d 69 6e | 20 36 34 4b 20 2d 6d 61 |lot -min| 64K -ma|
|00000440| 78 20 36 34 4b 0a 52 75 | 6e 20 3c 46 75 6e 63 24 |x 64K.Ru|n <Func$|
|00000450| 44 69 72 3e 2e 21 52 75 | 6e 49 6d 61 67 65 20 25 |Dir>.!Ru|nImage %|
|00000460| 2a 30 0a 46 69 6c 65 44 | 61 74 61 83 21 52 75 6e |*0.FileD|ata.!Run|
|00000470| 49 6d 61 67 65 00 12 1f | 85 00 00 47 fd ff ff 67 |Image...|...G...g|
|00000480| bf 25 9c 03 00 00 00 0d | 00 0a 10 f4 20 3e 21 52 |.%......|.... >!R|
|00000490| 75 6e 49 6d 61 67 65 0d | 00 14 28 f4 20 50 72 6f |unImage.|..(. Pro|
|000004a0| 67 72 61 6d 20 3a 20 46 | 75 6e 63 74 69 6f 6e 20 |gram : F|unction |
|000004b0| 4b 65 79 73 20 43 6f 6e | 74 72 6f 6c 6c 65 72 0d |Keys Con|troller.|
|000004c0| 00 1e 14 f4 20 56 65 72 | 73 69 6f 6e 20 3a 20 31 |.... Ver|sion : 1|
|000004d0| 2e 35 32 0d 00 28 1e f4 | 20 41 75 74 68 6f 72 20 |.52..(..| Author |
|000004e0| 20 3a 20 41 6e 64 72 65 | 77 20 44 20 53 63 6f 74 | : Andre|w D Scot|
|000004f0| 74 0d 00 32 1c f4 20 44 | 61 74 65 20 90 04 3a 20 |t..2.. D|ate ..: |
|00000500| 4a 61 6e 75 61 72 79 20 | 31 39 39 31 0d 00 3c 05 |January |1991..<.|
|00000510| 3a 0d 00 46 12 ee 20 85 | 20 f2 65 72 72 6f 72 20 |:..F.. .| .error |
|00000520| 3a 20 e0 0d 00 50 0a f2 | 73 65 74 75 70 0d 00 5a |: ...P..|setup..Z|
|00000530| 11 f2 6d 65 6e 75 73 28 | 6d 65 6e 75 25 29 0d 00 |..menus(|menu%)..|
|00000540| 64 24 f2 6c 6f 61 64 5f | 46 90 03 28 22 3c 46 75 |d$.load_|F..("<Fu|
|00000550| 6e 63 24 44 69 72 3e 2e | 44 65 66 61 75 6c 74 73 |nc$Dir>.|Defaults|
|00000560| 22 29 0d 00 6e 0e ee 20 | 85 20 f2 65 72 72 6f 72 |")..n.. |. .error|
|00000570| 0d 00 78 09 f2 70 6f 6c | 6c 0d 00 82 05 e0 0d 00 |..x..pol|l.......|
|00000580| 8c 05 3a 0d 00 96 0c dd | 20 f2 73 65 74 75 70 0d |..:.....| .setup.|
|00000590| 00 a0 0b ea 20 6c 6f 6f | 70 25 0d 00 aa 10 6d 61 |.... loo|p%....ma|
|000005a0| 78 77 73 25 3d 26 32 30 | 90 03 0d 00 b4 41 de 20 |xws%=&20|.....A. |
|000005b0| 77 73 25 20 6d 61 78 77 | 73 25 2c 62 6c 6f 63 6b |ws% maxw|s%,block|
|000005c0| 25 20 26 31 30 90 03 2c | 62 75 66 66 65 72 25 20 |% &10..,|buffer% |
|000005d0| 26 31 30 90 03 2c 64 61 | 74 61 25 20 26 33 30 30 |&10..,da|ta% &300|
|000005e0| 2c 6d 65 6e 75 25 20 26 | 34 30 30 0d 00 be 1e de |,menu% &|400.....|
|000005f0| 20 6b 65 79 73 74 72 69 | 70 24 28 31 35 2c 33 29 | keystri|p$(15,3)|
|00000600| 2c 6b 65 79 24 28 31 35 | 29 0d 00 c8 0e 63 75 72 |,key$(15|)....cur|
|00000610| 77 73 25 3d 77 73 25 0d | 00 d2 0b 71 75 69 74 25 |ws%=ws%.|...quit%|
|00000620| 3d a3 0d 00 dc 0c 66 69 | 6c 65 25 3d 2d 31 0d 00 |=.....fi|le%=-1..|
|00000630| e6 10 6d 61 69 6e 5f 6f | 70 65 6e 25 3d a3 0d 00 |..main_o|pen%=...|
|00000640| f0 11 69 6e 70 75 74 5f | 6f 70 65 6e 25 3d a3 0d |..input_|open%=..|
|00000650| 00 fa 0c 72 65 73 65 74 | 25 3d a3 0d 01 04 14 74 |...reset|%=.....t|
|00000660| 6f 74 61 6c 5f 74 6f 5f | 73 65 6e 64 25 3d 30 0d |otal_to_|send%=0.|
|00000670| 01 0e 11 62 79 74 65 73 | 5f 73 65 6e 74 25 3d 30 |...bytes|_sent%=0|
|00000680| 0d 01 18 1a 66 69 6c 65 | 6e 61 6d 65 24 3d 22 3c |....file|name$="<|
|00000690| 55 6e 74 69 74 6c 65 64 | 3e 22 0d 01 22 0d 74 69 |Untitled|>"..".ti|
|000006a0| 74 6c 65 24 3d 22 22 0d | 01 2c 12 64 61 74 61 5f |tle$="".|.,.data_|
|000006b0| 6f 66 66 73 65 74 25 3d | 30 0d 01 36 13 64 72 61 |offset%=|0..6.dra|
|000006c0| 67 5f 77 69 6e 64 6f 77 | 25 3d 2d 31 0d 01 40 11 |g_window|%=-1..@.|
|000006d0| 64 72 61 67 5f 69 63 6f | 6e 25 3d 2d 31 0d 01 4a |drag_ico|n%=-1..J|
|000006e0| 12 24 62 6c 6f 63 6b 25 | 3d 22 54 41 53 4b 22 0d |.$block%|="TASK".|
|000006f0| 01 54 40 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |.T@.. "W|imp_Init|
|00000700| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 62 6c 6f 63 |ialise",|200,bloc|
|00000710| 6b 25 21 30 2c 22 46 75 | 6e 63 74 69 6f 6e 20 4b |k%!0,"Fu|nction K|
|00000720| 65 79 73 22 20 b8 20 2c | 74 61 73 6b 5f 68 25 0d |eys" . ,|task_h%.|
|00000730| 01 5e 35 69 63 6f 6e 5f | 62 61 72 25 3d a4 69 63 |.^5icon_|bar%=.ic|
|00000740| 6f 6e 28 2d 31 2c 30 2c | 30 2c 36 38 2c 36 38 2c |on(-1,0,|0,68,68,|
|00000750| 26 33 31 30 32 2c 31 2c | 22 21 66 75 6e 63 6b 65 |&3102,1,|"!funcke|
|00000760| 79 73 22 29 0d 01 68 32 | c8 99 20 22 57 69 6d 70 |ys")..h2|.. "Wimp|
|00000770| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00000780| 22 3c 46 75 6e 63 24 44 | 69 72 3e 2e 54 65 6d 70 |"<Func$D|ir>.Temp|
|00000790| 6c 61 74 65 73 22 0d 01 | 72 21 77 69 6e 64 6f 77 |lates"..|r!window|
|000007a0| 5f 69 6e 66 6f 25 20 3d | a4 77 69 6e 64 6f 77 28 |_info% =|.window(|
|000007b0| 22 69 6e 66 6f 22 29 0d | 01 7c 22 77 69 6e 64 6f |"info").|.|"windo|
|000007c0| 77 5f 73 61 76 65 31 25 | 3d a4 77 69 6e 64 6f 77 |w_save1%|=.window|
|000007d0| 28 22 73 61 76 65 31 22 | 29 0d 01 86 22 77 69 6e |("save1"|)..."win|
|000007e0| 64 6f 77 5f 73 61 76 65 | 32 25 3d a4 77 69 6e 64 |dow_save|2%=.wind|
|000007f0| 6f 77 28 22 73 61 76 65 | 32 22 29 0d 01 90 00 22 |ow("save|2")...."|
|00000800| 77 69 6e 64 6f 77 5f 73 | 61 76 65 33 25 3d a4 77 |window_s|ave3%=.w|
|00000810| 69 6e 64 6f 77 28 22 73 | 61 76 65 33 22 29 0d 01 |indow("s|ave3")..|
|00000820| 9a 21 77 69 6e 64 6f 77 | 5f 6d 61 69 6e 25 20 3d |.!window|_main% =|
|00000830| a4 77 69 6e 64 6f 77 28 | 22 65 64 69 74 22 29 0d |.window(|"edit").|
|00000840| 01 a4 25 77 69 6e 64 6f | 77 5f 69 6e 70 75 74 25 |..%windo|w_input%|
|00000850| 3d a4 77 69 6e 64 6f 77 | 28 22 6b 65 79 73 74 72 |=.window|("keystr|
|00000860| 69 70 22 29 0d 01 ae 22 | 77 69 6e 64 6f 77 5f 73 |ip")..."|window_s|
|00000870| 6d 61 6c 6c 25 3d a4 77 | 69 6e 64 6f 77 28 22 73 |mall%=.w|indow("s|
|00000880| 6d 61 6c 6c 22 29 0d 01 | b8 28 77 69 6e 64 6f 77 |mall")..|.(window|
|00000890| 5f 6b 65 79 65 64 69 74 | 25 3d a4 77 69 6e 64 6f |_keyedit|%=.windo|
|000008a0| 77 28 22 73 74 72 69 70 | 65 64 69 74 22 29 0d 01 |w("strip|edit")..|
|000008b0| c2 22 77 69 6e 64 6f 77 | 5f 72 65 73 65 74 25 3d |."window|_reset%=|
|000008c0| a4 77 69 6e 64 6f 77 28 | 22 72 65 73 65 74 22 29 |.window(|"reset")|
|000008d0| 0d 01 cc 1b c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |...... "|Wimp_Clo|
|000008e0| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 01 d6 12 f2 |seTempla|te".....|
|000008f0| 72 65 61 64 5f 66 75 6e | 63 6b 65 79 73 0d 01 e0 |read_fun|ckeys...|
|00000900| 12 e3 20 6c 6f 6f 70 25 | 3d 30 20 b8 20 31 35 0d |.. loop%|=0 . 15.|
|00000910| 01 ea 31 20 f2 63 68 61 | 6e 67 65 5f 74 65 78 74 |..1 .cha|nge_text|
|00000920| 28 77 69 6e 64 6f 77 5f | 6d 61 69 6e 25 2c 6c 6f |(window_|main%,lo|
|00000930| 6f 70 25 2c 6b 65 79 24 | 28 6c 6f 6f 70 25 29 29 |op%,key$|(loop%))|
|00000940| 0d 01 f4 0b ed 20 6c 6f | 6f 70 25 0d 01 fe 05 e1 |..... lo|op%.....|
|00000950| 0d 02 08 05 3a 0d 02 12 | 0b dd 20 f2 70 6f 6c 6c |....:...|.. .poll|
|00000960| 0d 02 1c 0d ea 20 72 65 | 61 73 6f 6e 25 0d 02 26 |..... re|ason%..&|
|00000970| 05 f5 0d 02 30 0f 20 e7 | 20 72 65 73 65 74 25 20 |....0. .| reset% |
|00000980| 8c 0d 02 3a 34 20 20 c8 | 99 20 22 57 69 6d 70 5f |...:4  .|. "Wimp_|
|00000990| 50 6f 6c 6c 22 2c 25 31 | 90 03 30 90 04 31 31 30 |Poll",%1|..0..110|
|000009a0| 30 31 30 2c 62 6c 6f 63 | 6b 25 20 b8 20 72 65 61 |010,bloc|k% . rea|
|000009b0| 73 6f 6e 25 0d 02 44 06 | 20 cc 0d 02 4e 34 20 20 |son%..D.| ...N4  |
|000009c0| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 25 |.. "Wimp|_Poll",%|
|000009d0| 31 90 03 30 90 04 31 31 | 30 30 31 31 2c 62 6c 6f |1..0..11|0011,blo|
|000009e0| 63 6b 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 02 58 |ck% . re|ason%..X|
|000009f0| 06 20 cd 0d 02 62 11 20 | c8 8e 20 72 65 61 73 6f |. ...b. |.. reaso|
|00000a00| 6e 25 20 ca 0d 02 6c 1d | 20 20 c9 20 30 20 90 05 |n% ...l.|  . 0 ..|
|00000a10| 3a 20 f2 72 65 73 65 74 | 5f 65 78 70 61 6e 64 0d |: .reset|_expand.|
|00000a20| 02 76 2c 20 20 c9 20 32 | 20 90 05 3a 20 c8 99 20 |.v,  . 2| ..: .. |
|00000a30| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000a40| 22 2c 2c 62 6c 6f 63 6b | 25 0d 02 80 27 20 20 c9 |",,block|%...'  .|
|00000a50| 20 33 20 90 05 3a 20 f2 | 63 6c 6f 73 65 5f 77 69 | 3 ..: .|close_wi|
|00000a60| 6e 64 6f 77 28 62 6c 6f | 63 6b 25 21 30 29 0d 02 |ndow(blo|ck%!0)..|
|00000a70| 8a 3b 20 20 c9 20 36 20 | 90 05 3a 20 f2 62 75 74 |.;  . 6 |..: .but|
|00000a80| 74 6f 6e 5f 63 6c 69 63 | 6b 28 62 6c 6f 63 6b 25 |ton_clic|k(block%|
|00000a90| 21 38 2c 62 6c 6f 63 6b | 25 21 31 32 2c 62 6c 6f |!8,block|%!12,blo|
|00000aa0| 63 6b 25 21 31 36 29 0d | 02 94 0f 20 20 c9 20 37 |ck%!16).|...  . 7|
|00000ab0| 20 90 05 3a 0d 02 9e 27 | 20 90 03 c8 99 20 22 57 | ..:...'| .... "W|
|00000ac0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00000ad0| 66 6f 22 2c 2c 62 6c 6f | 63 6b 25 0d 02 a8 37 20 |fo",,blo|ck%...7 |
|00000ae0| 90 03 f2 64 72 61 67 5f | 62 6f 78 28 62 6c 6f 63 |...drag_|box(bloc|
|00000af0| 6b 25 21 34 2c 62 6c 6f | 63 6b 25 21 38 2c 62 6c |k%!4,blo|ck%!8,bl|
|00000b00| 6f 63 6b 25 21 31 32 2c | 62 6c 6f 63 6b 25 21 31 |ock%!12,|block%!1|
|00000b10| 36 29 0d 02 b2 39 20 20 | c9 20 38 20 90 05 3a 20 |6)...9  |. 8 ..: |
|00000b20| f2 6b 65 79 5f 70 72 65 | 73 73 65 64 28 62 6c 6f |.key_pre|ssed(blo|
|00000b30| 63 6b 25 21 30 2c 62 6c | 6f 63 6b 25 21 34 2c 62 |ck%!0,bl|ock%!4,b|
|00000b40| 6c 6f 63 6b 25 21 32 34 | 29 0d 02 bc 2f 20 20 c9 |lock%!24|).../  .|
|00000b50| 20 39 20 90 05 3a 20 f2 | 6d 65 6e 75 5f 73 65 6c | 9 ..: .|menu_sel|
|00000b60| 65 63 74 28 62 6c 6f 63 | 6b 25 21 30 2c 62 6c 6f |ect(bloc|k%!0,blo|
|00000b70| 63 6b 25 21 34 29 0d 02 | c6 23 20 20 c9 20 31 37 |ck%!4)..|.#  . 17|
|00000b80| 2c 31 38 20 3a 20 f2 72 | 65 63 65 69 76 65 28 62 |,18 : .r|eceive(b|
|00000b90| 6c 6f 63 6b 25 21 31 36 | 29 0d 02 d0 2d 20 20 c9 |lock%!16|)...-  .|
|00000ba0| 20 31 39 20 90 04 3a 20 | f2 73 61 76 65 5f 74 6f | 19 ..: |.save_to|
|00000bb0| 5f 77 69 6d 70 73 63 72 | 61 70 28 62 6c 6f 63 6b |_wimpscr|ap(block|
|00000bc0| 25 21 31 36 29 0d 02 da | 06 20 cb 0d 02 e4 0b fd |%!16)...|. ......|
|00000bd0| 20 71 75 69 74 25 0d 02 | ee 11 f2 72 65 73 65 74 | quit%..|...reset|
|00000be0| 5f 65 78 70 61 6e 64 0d | 02 f8 17 c8 99 20 22 57 |_expand.|..... "W|
|00000bf0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 03 |imp_Clos|eDown"..|
|00000c00| 02 05 e1 0d 03 0c 05 3a | 0d 03 16 1b dd 20 f2 6f |.......:|..... .o|
|00000c10| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 77 69 6e 64 6f |pen_wind|ow(windo|
|00000c20| 77 25 29 0d 03 20 14 62 | 6c 6f 63 6b 25 21 30 3d |w%).. .b|lock%!0=|
|00000c30| 77 69 6e 64 6f 77 25 0d | 03 2a 24 c8 99 20 22 57 |window%.|.*$.. "W|
|00000c40| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|00000c50| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 03 34 20 c8 |te",,blo|ck%..4 .|
|00000c60| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000c70| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 03 3e 05 e1 |ow",,blo|ck%..>..|
|00000c80| 0d 03 48 05 3a 0d 03 52 | 1c dd 20 f2 63 6c 6f 73 |..H.:..R|.. .clos|
|00000c90| 65 5f 77 69 6e 64 6f 77 | 28 77 69 6e 64 6f 77 25 |e_window|(window%|
|00000ca0| 29 0d 03 5c 11 ea 20 6c | 6f 6f 70 25 2c 66 69 6c |)..\.. l|oop%,fil|
|00000cb0| 65 24 0d 03 66 10 c8 8e | 20 77 69 6e 64 6f 77 25 |e$..f...| window%|
|00000cc0| 20 ca 0d 03 70 15 20 c9 | 20 77 69 6e 64 6f 77 5f | ...p. .| window_|
|00000cd0| 6d 61 69 6e 25 20 3a 0d | 03 7a 26 20 20 c8 99 20 |main% :.|.z&  .. |
|00000ce0| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00000cf0| 49 6e 66 6f 22 2c 2c 62 | 6c 6f 63 6b 25 0d 03 84 |Info",,b|lock%...|
|00000d00| 2e 20 20 e7 20 62 6c 6f | 63 6b 25 21 38 3d 31 20 |.  . blo|ck%!8=1 |
|00000d10| 80 20 66 69 6c 65 6e 61 | 6d 65 24 3c 3e 22 3c 55 |. filena|me$<>"<U|
|00000d20| 6e 74 69 74 6c 65 64 3e | 22 20 8c 0d 03 8e 16 20 |ntitled>|" ..... |
|00000d30| 90 03 66 69 6c 65 24 3d | 66 69 6c 65 6e 61 6d 65 |..file$=|filename|
|00000d40| 24 0d 03 98 15 20 90 03 | c8 95 20 a7 66 69 6c 65 |$.... ..|.. .file|
|00000d50| 24 2c 22 2e 22 29 0d 03 | a2 23 20 90 04 66 69 6c |$,".")..|.# ..fil|
|00000d60| 65 24 3d c1 66 69 6c 65 | 24 2c a7 66 69 6c 65 24 |e$=.file|$,.file$|
|00000d70| 2c 22 2e 22 29 2b 31 29 | 0d 03 ac 08 20 90 03 ce |,".")+1)|.... ...|
|00000d80| 0d 03 b6 40 20 90 03 ff | 28 22 46 69 6c 65 72 5f |...@ ...|("Filer_|
|00000d90| 4f 70 65 6e 44 69 72 20 | 22 2b c1 66 69 6c 65 6e |OpenDir |"+.filen|
|00000da0| 61 6d 65 24 2c 31 2c a9 | 28 66 69 6c 65 6e 61 6d |ame$,1,.|(filenam|
|00000db0| 65 24 29 2d a9 28 66 69 | 6c 65 24 29 2d 31 29 29 |e$)-.(fi|le$)-1))|
|00000dc0| 0d 03 c0 07 20 20 cd 0d | 03 ca 12 20 20 6d 61 69 |....  ..|...  mai|
|00000dd0| 6e 5f 6f 70 65 6e 25 3d | a3 0d 03 d4 0f 20 20 6b |n_open%=|.....  k|
|00000de0| 65 79 24 28 29 3d 22 22 | 0d 03 de 14 20 20 e3 20 |ey$()=""|....  . |
|00000df0| 6c 6f 6f 70 25 3d 30 20 | b8 20 31 35 0d 03 e8 2a |loop%=0 |. 15...*|
|00000e00| 20 90 03 f2 63 68 61 6e | 67 65 5f 74 65 78 74 28 | ...chan|ge_text(|
|00000e10| 77 69 6e 64 6f 77 5f 6d | 61 69 6e 25 2c 6c 6f 6f |window_m|ain%,loo|
|00000e20| 70 25 2c 22 22 29 0d 03 | f2 0d 20 20 ed 20 6c 6f |p%,"")..|..  . lo|
|00000e30| 6f 70 25 0d 03 fc 18 20 | c9 20 77 69 6e 64 6f 77 |op%.... |. window|
|00000e40| 5f 6b 65 79 65 64 69 74 | 25 20 3a 0d 04 06 21 20 |_keyedit|% :...! |
|00000e50| 20 f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 77 69 | .open_w|indow(wi|
|00000e60| 6e 64 6f 77 5f 69 6e 70 | 75 74 25 29 0d 04 10 16 |ndow_inp|ut%)....|
|00000e70| 20 c9 20 77 69 6e 64 6f | 77 5f 69 6e 70 75 74 25 | . windo|w_input%|
|00000e80| 20 3a 0d 04 1a 13 20 20 | 69 6e 70 75 74 5f 6f 70 | :....  |input_op|
|00000e90| 65 6e 25 3d a3 0d 04 24 | 05 cb 0d 04 2e 14 62 6c |en%=...$|......bl|
|00000ea0| 6f 63 6b 25 21 30 3d 77 | 69 6e 64 6f 77 25 0d 04 |ock%!0=w|indow%..|
|00000eb0| 38 21 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |8!.. "Wi|mp_Close|
|00000ec0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 25 0d |Window",|,block%.|
|00000ed0| 04 42 05 e1 0d 04 4c 05 | 3a 0d 04 56 2a dd 20 f2 |.B....L.|:..V*. .|
|00000ee0| 62 75 74 74 6f 6e 5f 63 | 6c 69 63 6b 28 62 75 74 |button_c|lick(but|
|00000ef0| 74 6f 6e 25 2c 77 69 6e | 64 6f 77 25 2c 69 63 6f |ton%,win|dow%,ico|
|00000f00| 6e 25 29 0d 04 60 0b ea | 20 6c 6f 6f 70 25 0d 04 |n%)..`..| loop%..|
|00000f10| 6a 10 c8 8e 20 62 75 74 | 74 6f 6e 25 20 ca 0d 04 |j... but|ton% ...|
|00000f20| 74 0a 20 c9 20 31 20 3a | 0d 04 7e 12 20 20 c8 8e |t. . 1 :|..~.  ..|
|00000f30| 20 77 69 6e 64 6f 77 25 | 20 ca 0d 04 88 51 20 90 | window%| ....Q .|
|00000f40| 03 c9 20 77 69 6e 64 6f | 77 5f 73 61 76 65 31 25 |.. windo|w_save1%|
|00000f50| 2c 77 69 6e 64 6f 77 5f | 73 61 76 65 32 25 2c 77 |,window_|save2%,w|
|00000f60| 69 6e 64 6f 77 5f 73 61 | 76 65 33 25 20 3a 20 f2 |indow_sa|ve3% : .|
|00000f70| 73 61 76 65 5f 63 6c 69 | 63 6b 28 31 2c 77 69 6e |save_cli|ck(1,win|
|00000f80| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 04 92 30 20 |dow%,ico|n%)...0 |
|00000f90| 90 03 c9 20 77 69 6e 64 | 6f 77 5f 69 6e 70 75 74 |... wind|ow_input|
|00000fa0| 25 20 90 03 3a 20 f2 69 | 6e 70 75 74 5f 63 6c 69 |% ..: .i|nput_cli|
|00000fb0| 63 6b 28 31 2c 69 63 6f | 6e 25 29 0d 04 9c 30 20 |ck(1,ico|n%)...0 |
|00000fc0| 90 03 c9 20 77 69 6e 64 | 6f 77 5f 72 65 73 65 74 |... wind|ow_reset|
|00000fd0| 25 20 90 03 3a 20 f2 72 | 65 73 65 74 5f 63 6c 69 |% ..: .r|eset_cli|
|00000fe0| 63 6b 28 31 2c 69 63 6f | 6e 25 29 0d 04 a6 32 20 |ck(1,ico|n%)...2 |
|00000ff0| 90 03 c9 20 77 69 6e 64 | 6f 77 5f 6b 65 79 65 64 |... wind|ow_keyed|
|00001000| 69 74 25 20 3a 20 f2 6b | 65 79 65 64 69 74 5f 63 |it% : .k|eyedit_c|
|00001010| 6c 69 63 6b 28 31 2c 69 | 63 6f 6e 25 29 0d 04 b0 |lick(1,i|con%)...|
|00001020| 07 20 20 cb 0d 04 ba 0a | 20 c9 20 32 20 3a 0d 04 |.  .....| . 2 :..|
|00001030| c4 12 20 20 c8 8e 20 77 | 69 6e 64 6f 77 25 20 ca |..  .. w|indow% .|
|00001040| 0d 04 ce 0d 20 90 03 c9 | 20 2d 32 20 3a 0d 04 d8 |.... ...| -2 :...|
|00001050| 43 20 90 04 e7 20 69 63 | 6f 6e 25 3d 69 63 6f 6e |C ... ic|on%=icon|
|00001060| 5f 62 61 72 25 20 8c 20 | f2 63 72 65 61 74 65 5f |_bar% . |.create_|
|00001070| 6d 65 6e 75 28 6d 65 6e | 75 5f 62 61 72 25 2c 62 |menu(men|u_bar%,b|
|00001080| 6c 6f 63 6b 25 21 30 2d | 36 34 2c 31 38 34 29 0d |lock%!0-|64,184).|
|00001090| 04 e2 17 20 90 03 c9 20 | 77 69 6e 64 6f 77 5f 6d |... ... |window_m|
|000010a0| 61 69 6e 25 20 3a 0d 04 | ec 35 20 90 04 f2 63 72 |ain% :..|.5 ...cr|
|000010b0| 65 61 74 65 5f 6d 65 6e | 75 28 6d 65 6e 75 5f 6d |eate_men|u(menu_m|
|000010c0| 61 69 6e 25 2c 62 6c 6f | 63 6b 25 21 30 2d 36 34 |ain%,blo|ck%!0-64|
|000010d0| 2c 62 6c 6f 63 6b 25 21 | 34 29 0d 04 f6 28 20 90 |,block%!|4)...( .|
|000010e0| 03 c9 20 77 69 6e 64 6f | 77 5f 69 6e 70 75 74 25 |.. windo|w_input%|
|000010f0| 2c 77 69 6e 64 6f 77 5f | 6b 65 79 65 64 69 74 25 |,window_|keyedit%|
|00001100| 20 3a 0d 05 00 39 20 90 | 04 f2 63 72 65 61 74 65 | :...9 .|..create|
|00001110| 5f 6d 65 6e 75 28 6d 65 | 6e 75 5f 6b 65 79 73 74 |_menu(me|nu_keyst|
|00001120| 72 69 70 25 2c 62 6c 6f | 63 6b 25 21 30 2d 36 34 |rip%,blo|ck%!0-64|
|00001130| 2c 62 6c 6f 63 6b 25 21 | 34 29 0d 05 0a 07 20 20 |,block%!|4)....  |
|00001140| cb 0d 05 14 0a 20 c9 20 | 34 20 3a 0d 05 1e 12 20 |..... . |4 :.... |
|00001150| 20 c8 8e 20 77 69 6e 64 | 6f 77 25 20 ca 0d 05 28 | .. wind|ow% ...(|
|00001160| 17 20 90 03 c9 20 2d 32 | 20 90 0b 3a 0d 05 32 1b |. ... -2| ..:..2.|
|00001170| 20 90 04 e7 20 69 63 6f | 6e 25 3d 69 63 6f 6e 5f | ... ico|n%=icon_|
|00001180| 62 61 72 25 20 8c 0d 05 | 3c 19 20 90 05 e7 20 6d |bar% ...|<. ... m|
|00001190| 61 69 6e 5f 6f 70 65 6e | 25 3d a3 20 8c 0d 05 46 |ain_open|%=. ...F|
|000011a0| 16 20 90 06 6d 61 69 6e | 5f 6f 70 65 6e 25 3d b9 |. ..main|_open%=.|
|000011b0| 0d 05 50 2d 20 90 06 f2 | 72 65 74 69 74 6c 65 28 |..P- ...|retitle(|
|000011c0| 77 69 6e 64 6f 77 5f 6d | 61 69 6e 25 2c 22 3c 55 |window_m|ain%,"<U|
|000011d0| 6e 74 69 74 6c 65 64 3e | 22 29 0d 05 5a 32 20 90 |ntitled>|")..Z2 .|
|000011e0| 06 f2 63 68 61 6e 67 65 | 5f 74 65 78 74 28 77 69 |..change|_text(wi|
|000011f0| 6e 64 6f 77 5f 73 61 76 | 65 31 25 2c 32 2c 22 46 |ndow_sav|e1%,2,"F|
|00001200| 75 6e 63 4b 65 79 73 22 | 29 0d 05 64 32 20 90 06 |uncKeys"|)..d2 ..|
|00001210| f2 63 68 61 6e 67 65 5f | 74 65 78 74 28 77 69 6e |.change_|text(win|
|00001220| 64 6f 77 5f 73 61 76 65 | 33 25 2c 32 2c 22 46 75 |dow_save|3%,2,"Fu|
|00001230| 6e 63 4b 65 79 73 22 29 | 0d 05 6e 18 20 90 06 f2 |ncKeys")|..n. ...|
|00001240| 72 65 61 64 5f 66 75 6e | 63 6b 65 79 73 0d 05 78 |read_fun|ckeys..x|
|00001250| 18 20 90 06 e3 20 6c 6f | 6f 70 25 3d 30 20 b8 20 |. ... lo|op%=0 . |
|00001260| 31 35 0d 05 82 37 20 90 | 07 f2 63 68 61 6e 67 65 |15...7 .|..change|
|00001270| 5f 74 65 78 74 28 77 69 | 6e 64 6f 77 5f 6d 61 69 |_text(wi|ndow_mai|
|00001280| 6e 25 2c 6c 6f 6f 70 25 | 2c 6b 65 79 24 28 6c 6f |n%,loop%|,key$(lo|
|00001290| 6f 70 25 29 29 0d 05 8c | 11 20 90 06 ed 20 6c 6f |op%))...|. ... lo|
|000012a0| 6f 70 25 0d 05 96 24 20 | 90 06 f2 6f 70 65 6e 5f |op%...$ |...open_|
|000012b0| 77 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 5f 6d 61 |window(w|indow_ma|
|000012c0| 69 6e 25 29 0d 05 a0 27 | 20 90 06 f2 6d 6f 76 65 |in%)...'| ...move|
|000012d0| 5f 63 61 72 65 74 28 77 | 69 6e 64 6f 77 5f 6d 61 |_caret(w|indow_ma|
|000012e0| 69 6e 25 2c 30 2c 30 29 | 0d 05 aa 0a 20 90 05 cd |in%,0,0)|.... ...|
|000012f0| 0d 05 b4 1a 20 90 05 e7 | 20 69 6e 70 75 74 5f 6f |.... ...| input_o|
|00001300| 70 65 6e 25 3d a3 20 8c | 0d 05 be 17 20 90 06 69 |pen%=. .|.... ..i|
|00001310| 6e 70 75 74 5f 6f 70 65 | 6e 25 3d b9 0d 05 c8 30 |nput_ope|n%=....0|
|00001320| 20 90 06 f2 63 68 61 6e | 67 65 5f 74 65 78 74 28 | ...chan|ge_text(|
|00001330| 77 69 6e 64 6f 77 5f 73 | 61 76 65 32 25 2c 32 2c |window_s|ave2%,2,|
|00001340| 22 53 63 72 69 70 74 22 | 29 0d 05 d2 27 20 90 06 |"Script"|)...' ..|
|00001350| e7 20 a4 74 69 63 6b 65 | 64 28 6d 65 6e 75 5f 6b |. .ticke|d(menu_k|
|00001360| 65 79 73 74 72 69 70 25 | 2c 36 29 20 8c 0d 05 dc |eystrip%|,6) ....|
|00001370| 32 20 90 07 f2 72 65 74 | 69 74 6c 65 28 77 69 6e |2 ...ret|itle(win|
|00001380| 64 6f 77 5f 73 6d 61 6c | 6c 25 2c 22 46 75 6e 63 |dow_smal|l%,"Func|
|00001390| 74 69 6f 6e 20 6b 65 79 | 73 22 29 0d 05 e6 0b 20 |tion key|s").... |
|000013a0| 90 06 cc 0d 05 f0 32 20 | 90 07 f2 72 65 74 69 74 |......2 |...retit|
|000013b0| 6c 65 28 77 69 6e 64 6f | 77 5f 69 6e 70 75 74 25 |le(windo|w_input%|
|000013c0| 2c 22 46 75 6e 63 74 69 | 6f 6e 20 6b 65 79 73 22 |,"Functi|on keys"|
|000013d0| 29 0d 05 fa 0b 20 90 06 | cd 0d 06 04 18 20 90 06 |).... ..|..... ..|
|000013e0| e3 20 6c 6f 6f 70 25 3d | 30 20 b8 20 36 33 0d 06 |. loop%=|0 . 63..|
|000013f0| 0e 3d 20 90 07 6b 65 79 | 73 74 72 69 70 24 28 6c |.= ..key|strip$(l|
|00001400| 6f 6f 70 25 20 83 20 31 | 36 2c 6c 6f 6f 70 25 20 |oop% . 1|6,loop% |
|00001410| 81 20 31 36 29 3d 22 46 | 22 2b c3 28 6c 6f 6f 70 |. 16)="F|"+.(loop|
|00001420| 25 20 83 20 31 36 29 0d | 06 18 4f 20 90 07 f2 63 |% . 16).|..O ...c|
|00001430| 68 61 6e 67 65 5f 74 65 | 78 74 28 77 69 6e 64 6f |hange_te|xt(windo|
|00001440| 77 5f 6b 65 79 65 64 69 | 74 25 2c 6c 6f 6f 70 25 |w_keyedi|t%,loop%|
|00001450| 2c 6b 65 79 73 74 72 69 | 70 24 28 6c 6f 6f 70 25 |,keystri|p$(loop%|
|00001460| 20 83 20 31 36 2c 6c 6f | 6f 70 25 20 81 20 31 36 | . 16,lo|op% . 16|
|00001470| 29 29 0d 06 22 11 20 90 | 06 ed 20 6c 6f 6f 70 25 |))..". .|.. loop%|
|00001480| 0d 06 2c 28 20 90 06 f2 | 63 68 61 6e 67 65 5f 6d |..,( ...|change_m|
|00001490| 65 6e 75 28 6d 65 6e 75 | 5f 74 69 74 6c 65 25 2c |enu(menu|_title%,|
|000014a0| 30 2c 22 22 29 0d 06 36 | 1b 20 90 06 f2 75 70 64 |0,"")..6|. ...upd|
|000014b0| 61 74 65 5f 6b 65 79 5f | 73 74 72 69 70 0d 06 40 |ate_key_|strip..@|
|000014c0| 42 20 90 06 e7 20 ac 20 | a4 6f 70 65 6e 28 77 69 |B ... . |.open(wi|
|000014d0| 6e 64 6f 77 5f 6b 65 79 | 65 64 69 74 25 29 20 8c |ndow_key|edit%) .|
|000014e0| 20 f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 77 69 | .open_w|indow(wi|
|000014f0| 6e 64 6f 77 5f 69 6e 70 | 75 74 25 29 0d 06 4a 0a |ndow_inp|ut%)..J.|
|00001500| 20 90 05 cd 0d 06 54 09 | 20 90 04 cd 0d 06 5e 51 | .....T.| .....^Q|
|00001510| 20 90 03 c9 20 77 69 6e | 64 6f 77 5f 73 61 76 65 | ... win|dow_save|
|00001520| 31 25 2c 77 69 6e 64 6f | 77 5f 73 61 76 65 32 25 |1%,windo|w_save2%|
|00001530| 2c 77 69 6e 64 6f 77 5f | 73 61 76 65 33 25 20 3a |,window_|save3% :|
|00001540| 20 f2 73 61 76 65 5f 63 | 6c 69 63 6b 28 34 2c 77 | .save_c|lick(4,w|
|00001550| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 29 0d 06 68 |indow%,i|con%)..h|
|00001560| 30 20 90 03 c9 20 77 69 | 6e 64 6f 77 5f 69 6e 70 |0 ... wi|ndow_inp|
|00001570| 75 74 25 20 90 03 3a 20 | f2 69 6e 70 75 74 5f 63 |ut% ..: |.input_c|
|00001580| 6c 69 63 6b 28 34 2c 69 | 63 6f 6e 25 29 0d 06 72 |lick(4,i|con%)..r|
|00001590| 30 20 90 03 c9 20 77 69 | 6e 64 6f 77 5f 72 65 73 |0 ... wi|ndow_res|
|000015a0| 65 74 25 20 90 03 3a 20 | f2 72 65 73 65 74 5f 63 |et% ..: |.reset_c|
|000015b0| 6c 69 63 6b 28 34 2c 69 | 63 6f 6e 25 29 0d 06 7c |lick(4,i|con%)..||
|000015c0| 32 20 90 03 c9 20 77 69 | 6e 64 6f 77 5f 6b 65 79 |2 ... wi|ndow_key|
|000015d0| 65 64 69 74 25 20 3a 20 | f2 6b 65 79 65 64 69 74 |edit% : |.keyedit|
|000015e0| 5f 63 6c 69 63 6b 28 34 | 2c 69 63 6f 6e 25 29 0d |_click(4|,icon%).|
|000015f0| 06 86 07 20 20 cb 0d 06 | 90 00 0b 20 c9 20 36 34 |...  ...|... . 64|
|00001600| 20 3a 0d 06 9a 12 20 20 | c8 8e 20 77 69 6e 64 6f | :....  |.. windo|
|00001610| 77 25 20 ca 0d 06 a4 66 | 20 90 03 c9 20 77 69 6e |w% ....f| ... win|
|00001620| 64 6f 77 5f 73 61 76 65 | 31 25 2c 77 69 6e 64 6f |dow_save|1%,windo|
|00001630| 77 5f 73 61 76 65 32 25 | 2c 77 69 6e 64 6f 77 5f |w_save2%|,window_|
|00001640| 73 61 76 65 33 25 2c 77 | 69 6e 64 6f 77 5f 6d 61 |save3%,w|indow_ma|
|00001650| 69 6e 25 2c 77 69 6e 64 | 6f 77 5f 6b 65 79 65 64 |in%,wind|ow_keyed|
|00001660| 69 74 25 20 3a 20 f2 64 | 72 61 67 28 77 69 6e 64 |it% : .d|rag(wind|
|00001670| 6f 77 25 2c 69 63 6f 6e | 25 29 0d 06 ae 07 20 20 |ow%,icon|%)....  |
|00001680| cb 0d 06 b8 05 cb 0d 06 | c2 05 e1 0d 06 cc 05 3a |........|.......:|
|00001690| 0d 06 d6 24 dd 20 f2 64 | 72 61 67 5f 62 6f 78 28 |...$. .d|rag_box(|
|000016a0| 78 25 2c 79 25 2c 77 69 | 6e 64 6f 77 25 2c 69 63 |x%,y%,wi|ndow%,ic|
|000016b0| 6f 6e 25 29 0d 06 e0 10 | ea 20 74 65 78 74 24 2c |on%)....|. text$,|
|000016c0| 6e 65 77 24 0d 06 ea 15 | c8 8e 20 64 72 61 67 5f |new$....|.. drag_|
|000016d0| 77 69 6e 64 6f 77 25 20 | ca 0d 06 f4 15 20 c9 20 |window% |..... . |
|000016e0| 77 69 6e 64 6f 77 5f 6d | 61 69 6e 25 20 3a 0d 06 |window_m|ain% :..|
|000016f0| fe 35 20 20 e7 20 77 69 | 6e 64 6f 77 25 3d 77 69 |.5  . wi|ndow%=wi|
|00001700| 6e 64 6f 77 5f 6d 61 69 | 6e 25 20 80 20 69 63 6f |ndow_mai|n% . ico|
|00001710| 6e 25 3e 3d 30 20 80 20 | 69 63 6f 6e 25 3c 3d 31 |n%>=0 . |icon%<=1|
|00001720| 35 20 8c 0d 07 08 4b 20 | 90 03 f2 63 68 61 6e 67 |5 ....K |...chang|
|00001730| 65 5f 74 65 78 74 28 77 | 69 6e 64 6f 77 5f 6d 61 |e_text(w|indow_ma|
|00001740| 69 6e 25 2c 69 63 6f 6e | 25 2c a4 72 65 61 64 5f |in%,icon|%,.read_|
|00001750| 74 65 78 74 28 77 69 6e | 64 6f 77 5f 6d 61 69 6e |text(win|dow_main|
|00001760| 25 2c 64 72 61 67 5f 69 | 63 6f 6e 25 29 29 0d 07 |%,drag_i|con%))..|
|00001770| 12 29 20 90 03 f2 6d 6f | 76 65 5f 63 61 72 65 74 |.) ...mo|ve_caret|
|00001780| 28 77 69 6e 64 6f 77 5f | 6d 61 69 6e 25 2c 69 63 |(window_|main%,ic|
|00001790| 6f 6e 25 2c 2d 32 29 0d | 07 1c 39 20 90 03 e7 20 |on%,-2).|..9 ... |
|000017a0| a6 28 2d 31 29 20 8c 20 | f2 63 68 61 6e 67 65 5f |.(-1) . |.change_|
|000017b0| 74 65 78 74 28 77 69 6e | 64 6f 77 5f 6d 61 69 6e |text(win|dow_main|
|000017c0| 25 2c 64 72 61 67 5f 69 | 63 6f 6e 25 2c 22 22 29 |%,drag_i|con%,"")|
|000017d0| 0d 07 26 07 20 20 cd 0d | 07 30 18 20 c9 20 77 69 |..&.  ..|.0. . wi|
|000017e0| 6e 64 6f 77 5f 6b 65 79 | 65 64 69 74 25 20 3a 0d |ndow_key|edit% :.|
|000017f0| 07 3a 38 20 20 e7 20 77 | 69 6e 64 6f 77 25 3d 77 |.:8  . w|indow%=w|
|00001800| 69 6e 64 6f 77 5f 6b 65 | 79 65 64 69 74 25 20 80 |indow_ke|yedit% .|
|00001810| 20 69 63 6f 6e 25 3e 3d | 30 20 80 20 69 63 6f 6e | icon%>=|0 . icon|
|00001820| 25 3c 3d 36 33 20 8c 0d | 07 44 33 20 90 03 74 65 |%<=63 ..|.D3 ..te|
|00001830| 78 74 24 3d a4 72 65 61 | 64 5f 74 65 78 74 28 77 |xt$=.rea|d_text(w|
|00001840| 69 6e 64 6f 77 5f 6b 65 | 79 65 64 69 74 25 2c 64 |indow_ke|yedit%,d|
|00001850| 72 61 67 5f 69 63 6f 6e | 25 29 0d 07 4e 28 20 90 |rag_icon|%)..N( .|
|00001860| 03 e7 20 a4 69 63 6f 6e | 5f 73 65 74 28 77 69 6e |.. .icon|_set(win|
|00001870| 64 6f 77 5f 6b 65 79 65 | 64 69 74 25 2c 36 36 29 |dow_keye|dit%,66)|
|00001880| 20 8c 0d 07 58 34 20 90 | 04 e7 20 c0 74 65 78 74 | ...X4 .|.. .text|
|00001890| 24 2c 31 29 3d 22 46 22 | 20 8c 20 6e 65 77 24 3d |$,1)="F"| . new$=|
|000018a0| 22 46 22 20 3a 20 74 65 | 78 74 24 3d c1 74 65 78 |"F" : te|xt$=.tex|
|000018b0| 74 24 2c 32 29 0d 07 62 | 0e 20 90 04 c8 8e 20 b9 |t$,2)..b|. .... .|
|000018c0| 20 ca 0d 07 6c 35 20 90 | 05 c9 20 c0 74 65 78 74 | ...l5 .|.. .text|
|000018d0| 24 2c 32 29 3e 3d 22 31 | 30 22 20 80 20 c0 74 65 |$,2)>="1|0" . .te|
|000018e0| 78 74 24 2c 32 29 3c 3d | 22 31 35 22 20 3a 20 6c |xt$,2)<=|"15" : l|
|000018f0| 65 6e 25 3d 32 0d 07 76 | 35 20 90 05 c9 20 c0 74 |en%=2..v|5 ... .t|
|00001900| 65 78 74 24 2c 31 29 3e | 3d 22 30 22 20 20 80 20 |ext$,1)>|="0"  . |
|00001910| c0 74 65 78 74 24 2c 31 | 29 3c 3d 22 39 22 20 20 |.text$,1|)<="9"  |
|00001920| 3a 20 6c 65 6e 25 3d 31 | 0d 07 80 31 20 90 05 c9 |: len%=1|...1 ...|
|00001930| 20 c0 74 65 78 74 24 2c | 35 29 3d 22 50 72 69 6e | .text$,|5)="Prin|
|00001940| 74 22 20 20 3a 20 6c 65 | 6e 25 3d 35 20 3a 20 6e |t"  : le|n%=5 : n|
|00001950| 65 77 24 3d 22 46 22 0d | 07 8a 31 20 90 05 c9 20 |ew$="F".|..1 ... |
|00001960| c0 74 65 78 74 24 2c 33 | 29 3d 22 50 72 74 22 20 |.text$,3|)="Prt" |
|00001970| 90 04 3a 20 6c 65 6e 25 | 3d 33 20 3a 20 6e 65 77 |..: len%|=3 : new|
|00001980| 24 3d 22 46 22 0d 07 94 | 31 20 90 05 c9 20 c0 74 |$="F"...|1 ... .t|
|00001990| 65 78 74 24 2c 34 29 3d | 22 43 6f 70 79 22 20 90 |ext$,4)=|"Copy" .|
|000019a0| 03 3a 20 6c 65 6e 25 3d | 34 20 3a 20 6e 65 77 24 |.: len%=|4 : new$|
|000019b0| 3d 22 46 22 0d 07 9e 31 | 20 90 05 c9 20 c0 74 65 |="F"...1| ... .te|
|000019c0| 78 74 24 2c 33 29 3d 22 | 43 70 79 22 20 90 04 3a |xt$,3)="|Cpy" ..:|
|000019d0| 20 6c 65 6e 25 3d 33 20 | 3a 20 6e 65 77 24 3d 22 | len%=3 |: new$="|
|000019e0| 46 22 0d 07 a8 31 20 90 | 05 c9 20 c0 74 65 78 74 |F"...1 .|.. .text|
|000019f0| 24 2c 36 29 3d 22 49 6e | 73 65 72 74 22 20 3a 20 |$,6)="In|sert" : |
|00001a00| 6c 65 6e 25 3d 36 20 3a | 20 6e 65 77 24 3d 22 46 |len%=6 :| new$="F|
|00001a10| 22 0d 07 b2 2e 20 90 05 | c9 20 c0 74 65 78 74 24 |".... ..|. .text$|
|00001a20| 2c 31 29 3d bd 31 33 36 | 20 20 3a 20 6c 65 6e 25 |,1)=.136|  : len%|
|00001a30| 3d 31 20 3a 20 6e 65 77 | 24 3d 22 46 22 0d 07 bc |=1 : new|$="F"...|
|00001a40| 2e 20 90 05 c9 20 c0 74 | 65 78 74 24 2c 31 29 3d |. ... .t|ext$,1)=|
|00001a50| bd 31 33 37 20 20 3a 20 | 6c 65 6e 25 3d 31 20 3a |.137  : |len%=1 :|
|00001a60| 20 6e 65 77 24 3d 22 46 | 22 0d 07 c6 2e 20 90 05 | new$="F|".... ..|
|00001a70| c9 20 c0 74 65 78 74 24 | 2c 31 29 3d bd 31 33 38 |. .text$|,1)=.138|
|00001a80| 20 20 3a 20 6c 65 6e 25 | 3d 31 20 3a 20 6e 65 77 |  : len%|=1 : new|
|00001a90| 24 3d 22 46 22 0d 07 d0 | 2e 20 90 05 c9 20 c0 74 |$="F"...|. ... .t|
|00001aa0| 65 78 74 24 2c 31 29 3d | bd 31 33 39 20 20 3a 20 |ext$,1)=|.139  : |
|00001ab0| 6c 65 6e 25 3d 31 20 3a | 20 6e 65 77 24 3d 22 46 |len%=1 :| new$="F|
|00001ac0| 22 0d 07 d1 36 20 90 05 | c9 20 74 65 78 74 24 3d |"...6 ..|. text$=|
|00001ad0| 22 22 20 90 10 3a 20 6c | 65 6e 25 3d 30 20 3a 20 |"" ..: l|en%=0 : |
|00001ae0| 6e 65 77 24 3d 22 46 22 | 0d 07 da 26 20 90 05 7f |new$="F"|...& ...|
|00001af0| 20 90 14 3a 20 6c 65 6e | 25 3d 30 0d 07 e4 09 20 | ..: len|%=0.... |
|00001b00| 90 04 cb 0d 07 ee 2d 20 | 90 04 6e 65 77 24 2b 3d |......- |..new$+=|
|00001b10| c3 28 69 63 6f 6e 25 20 | 83 20 31 36 29 2b c1 74 |.(icon% |. 16)+.t|
|00001b20| 65 78 74 24 2c 6c 65 6e | 25 2b 31 2c 31 32 29 0d |ext$,len|%+1,12).|
|00001b30| 07 f8 17 20 90 04 74 65 | 78 74 24 3d c0 6e 65 77 |... ..te|xt$=.new|
|00001b40| 24 2c 31 32 29 0d 08 02 | 08 20 90 03 cd 0d 08 0c |$,12)...|. ......|
|00001b50| 30 20 90 03 f2 63 68 61 | 6e 67 65 5f 74 65 78 74 |0 ...cha|nge_text|
|00001b60| 28 77 69 6e 64 6f 77 5f | 6b 65 79 65 64 69 74 25 |(window_|keyedit%|
|00001b70| 2c 69 63 6f 6e 25 2c 74 | 65 78 74 24 29 0d 08 16 |,icon%,t|ext$)...|
|00001b80| 2c 20 90 03 f2 6d 6f 76 | 65 5f 63 61 72 65 74 28 |, ...mov|e_caret(|
|00001b90| 77 69 6e 64 6f 77 5f 6b | 65 79 65 64 69 74 25 2c |window_k|eyedit%,|
|00001ba0| 69 63 6f 6e 25 2c 2d 32 | 29 0d 08 20 3c 20 90 03 |icon%,-2|).. < ..|
|00001bb0| e7 20 a6 28 2d 31 29 20 | 8c 20 f2 63 68 61 6e 67 |. .(-1) |. .chang|
|00001bc0| 65 5f 74 65 78 74 28 77 | 69 6e 64 6f 77 5f 6b 65 |e_text(w|indow_ke|
|00001bd0| 79 65 64 69 74 25 2c 64 | 72 61 67 5f 69 63 6f 6e |yedit%,d|rag_icon|
|00001be0| 25 2c 22 22 29 0d 08 2a | 07 20 20 cd 0d 08 34 16 |%,"")..*|.  ...4.|
|00001bf0| 20 c9 20 77 69 6e 64 6f | 77 5f 73 61 76 65 31 25 | . windo|w_save1%|
|00001c00| 20 3a 0d 08 3e 20 90 03 | e7 20 77 69 6e 64 6f 77 | :..> ..|. window|
|00001c10| 25 3c 3e 77 69 6e 64 6f | 77 5f 73 61 76 65 31 25 |%<>windo|w_save1%|
|00001c20| 20 8c 0d 08 48 63 20 90 | 03 e7 20 77 69 6e 64 6f | ...Hc .|.. windo|
|00001c30| 77 25 3d 77 69 6e 64 6f | 77 5f 6d 61 69 6e 25 20 |w%=windo|w_main% |
|00001c40| 84 20 77 69 6e 64 6f 77 | 25 3d 77 69 6e 64 6f 77 |. window|%=window|
|00001c50| 5f 69 6e 70 75 74 25 20 | 84 20 77 69 6e 64 6f 77 |_input% |. window|
|00001c60| 25 3d 77 69 6e 64 6f 77 | 5f 6b 65 79 65 64 69 74 |%=window|_keyedit|
|00001c70| 25 20 84 20 69 63 6f 6e | 25 3d 69 63 6f 6e 5f 62 |% . icon|%=icon_b|
|00001c80| 61 72 25 20 8c 0d 08 52 | 39 20 90 04 85 20 31 2c |ar% ...R|9 ... 1,|
|00001c90| 22 43 61 6e 6e 6f 74 20 | 73 61 76 65 20 61 20 46 |"Cannot |save a F|
|00001ca0| 75 6e 63 74 69 6f 6e 20 | 4b 65 79 20 66 69 6c 65 |unction |Key file|
|00001cb0| 20 69 6e 74 6f 20 69 74 | 73 65 6c 66 22 0d 08 5c | into it|self"..\|
|00001cc0| 08 20 90 03 cc 0d 08 66 | 54 20 90 04 f2 73 61 76 |. .....f|T ...sav|
|00001cd0| 65 5f 6d 65 73 73 61 67 | 65 28 78 25 2c 79 25 2c |e_messag|e(x%,y%,|
|00001ce0| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 2c a4 73 |window%,|icon%,.s|
|00001cf0| 69 7a 65 31 2b 31 2c 26 | 46 46 45 2c a4 72 65 61 |ize1+1,&|FFE,.rea|
|00001d00| 64 5f 74 65 78 74 28 77 | 69 6e 64 6f 77 5f 73 61 |d_text(w|indow_sa|
|00001d10| 76 65 31 25 2c 32 29 29 | 0d 08 70 08 20 90 03 cd |ve1%,2))|..p. ...|
|00001d20| 0d 08 7a 07 20 20 cd 0d | 08 84 16 20 c9 20 77 69 |..z.  ..|... . wi|
|00001d30| 6e 64 6f 77 5f 73 61 76 | 65 32 25 20 3a 0d 08 8e |ndow_sav|e2% :...|
|00001d40| 20 90 03 e7 20 77 69 6e | 64 6f 77 25 3c 3e 77 69 | ... win|dow%<>wi|
|00001d50| 6e 64 6f 77 5f 73 61 76 | 65 32 25 20 8c 0d 08 98 |ndow_sav|e2% ....|
|00001d60| 63 20 90 03 e7 20 77 69 | 6e 64 6f 77 25 3d 77 69 |c ... wi|ndow%=wi|
|00001d70| 6e 64 6f 77 5f 6d 61 69 | 6e 25 20 84 20 77 69 6e |ndow_mai|n% . win|
|00001d80| 64 6f 77 25 3d 77 69 6e | 64 6f 77 5f 69 6e 70 75 |dow%=win|dow_inpu|
|00001d90| 74 25 20 84 20 77 69 6e | 64 6f 77 25 3d 77 69 6e |t% . win|dow%=win|
|00001da0| 64 6f 77 5f 6b 65 79 65 | 64 69 74 25 20 84 20 69 |dow_keye|dit% . i|
|00001db0| 63 6f 6e 25 3d 69 63 6f | 6e 5f 62 61 72 25 20 8c |con%=ico|n_bar% .|
|00001dc0| 0d 08 a2 39 20 90 04 85 | 20 31 2c 22 43 61 6e 6e |...9 ...| 1,"Cann|
|00001dd0| 6f 74 20 73 61 76 65 20 | 61 20 46 75 6e 63 74 69 |ot save |a Functi|
|00001de0| 6f 6e 20 4b 65 79 20 66 | 69 6c 65 20 69 6e 74 6f |on Key f|ile into|
|00001df0| 20 69 74 73 65 6c 66 22 | 0d 08 ac 08 20 90 03 cc | itself"|.... ...|
|00001e00| 0d 08 b6 52 20 90 04 f2 | 73 61 76 65 5f 6d 65 73 |...R ...|save_mes|
|00001e10| 73 61 67 65 28 78 25 2c | 79 25 2c 77 69 6e 64 6f |sage(x%,|y%,windo|
|00001e20| 77 25 2c 69 63 6f 6e 25 | 2c a4 73 69 7a 65 32 2c |w%,icon%|,.size2,|
|00001e30| 26 46 90 03 2c a4 72 65 | 61 64 5f 74 65 78 74 28 |&F..,.re|ad_text(|
|00001e40| 77 69 6e 64 6f 77 5f 73 | 61 76 65 32 25 2c 32 29 |window_s|ave2%,2)|
|00001e50| 29 0d 08 c0 08 20 90 03 | cd 0d 08 ca 07 20 20 cd |).... ..|.....  .|
|00001e60| 0d 08 d4 16 20 c9 20 77 | 69 6e 64 6f 77 5f 73 61 |.... . w|indow_sa|
|00001e70| 76 65 33 25 20 3a 0d 08 | de 20 90 03 e7 20 77 69 |ve3% :..|. ... wi|
|00001e80| 6e 64 6f 77 25 3c 3e 77 | 69 6e 64 6f 77 5f 73 61 |ndow%<>w|indow_sa|
|00001e90| 76 65 33 25 20 8c 0d 08 | e8 63 20 90 03 e7 20 77 |ve3% ...|.c ... w|
|00001ea0| 69 6e 64 6f 77 25 3d 77 | 69 6e 64 6f 77 5f 6d 61 |indow%=w|indow_ma|
|00001eb0| 69 6e 25 20 84 20 77 69 | 6e 64 6f 77 25 3d 77 69 |in% . wi|ndow%=wi|
|00001ec0| 6e 64 6f 77 5f 69 6e 70 | 75 74 25 20 84 20 77 69 |ndow_inp|ut% . wi|
|00001ed0| 6e 64 6f 77 25 3d 77 69 | 6e 64 6f 77 5f 6b 65 79 |ndow%=wi|ndow_key|
|00001ee0| 65 64 69 74 25 20 84 20 | 69 63 6f 6e 25 3d 69 63 |edit% . |icon%=ic|
|00001ef0| 6f 6e 5f 62 61 72 25 20 | 8c 0d 08 f2 39 20 90 04 |on_bar% |....9 ..|
|00001f00| 85 20 31 2c 22 43 61 6e | 6e 6f 74 20 73 61 76 65 |. 1,"Can|not save|
|00001f10| 20 61 20 46 75 6e 63 74 | 69 6f 6e 20 4b 65 79 20 | a Funct|ion Key |
|00001f20| 66 69 6c 65 20 69 6e 74 | 6f 20 69 74 73 65 6c 66 |file int|o itself|
|00001f30| 22 0d 08 fc 08 20 90 03 | cc 0d 09 06 54 20 90 04 |".... ..|....T ..|
|00001f40| f2 73 61 76 65 5f 6d 65 | 73 73 61 67 65 28 78 25 |.save_me|ssage(x%|
|00001f50| 2c 79 25 2c 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |,y%,wind|ow%,icon|
|00001f60| 25 2c a4 73 69 7a 65 31 | 2b 31 2c 26 46 45 42 2c |%,.size1|+1,&FEB,|
|00001f70| a4 72 65 61 64 5f 74 65 | 78 74 28 77 69 6e 64 6f |.read_te|xt(windo|
|00001f80| 77 5f 73 61 76 65 33 25 | 2c 32 29 29 0d 09 10 08 |w_save3%|,2))....|
|00001f90| 20 90 03 cd 0d 09 1a 07 | 20 20 cd 0d 09 24 05 cb | .......|  ...$..|
|00001fa0| 0d 09 2e 05 e1 0d 09 38 | 05 3a 0d 09 42 0c dd 20 |.......8|.:..B.. |
|00001fb0| a4 73 69 7a 65 31 0d 09 | 4c 17 ea 20 6c 6f 6f 70 |.size1..|L.. loop|
|00001fc0| 25 2c 73 69 7a 65 25 2c | 74 65 78 74 24 0d 09 56 |%,size%,|text$..V|
|00001fd0| 0b 73 69 7a 65 25 3d 30 | 0d 09 60 12 e3 20 6c 6f |.size%=0|..`.. lo|
|00001fe0| 6f 70 25 3d 30 20 b8 20 | 31 35 0d 09 6a 29 20 74 |op%=0 . |15..j) t|
|00001ff0| 65 78 74 24 3d a4 72 65 | 61 64 5f 74 65 78 74 28 |ext$=.re|ad_text(|
|00002000| 77 69 6e 64 6f 77 5f 6d | 61 69 6e 25 2c 6c 6f 6f |window_m|ain%,loo|
|00002010| 70 25 29 0d 09 74 26 20 | e7 20 74 65 78 74 24 3c |p%)..t& |. text$<|
|00002020| 3e 22 22 20 8c 20 73 69 | 7a 65 25 2b 3d 28 a9 28 |>"" . si|ze%+=(.(|
|00002030| 74 65 78 74 24 29 2b 37 | 29 0d 09 7e 25 20 e7 20 |text$)+7|)..~% . |
|00002040| 74 65 78 74 24 3c 3e 22 | 22 20 80 20 6c 6f 6f 70 |text$<>"|" . loop|
|00002050| 25 3e 39 20 8c 20 73 69 | 7a 65 25 2b 3d 31 0d 09 |%>9 . si|ze%+=1..|
|00002060| 88 0b ed 20 6c 6f 6f 70 | 25 0d 09 92 0a 3d 73 69 |... loop|%....=si|
|00002070| 7a 65 25 0d 09 9c 05 3a | 0d 09 a6 0c dd 20 a4 73 |ze%....:|..... .s|
|00002080| 69 7a 65 32 0d 09 b0 11 | ea 20 6c 6f 6f 70 25 2c |ize2....|. loop%,|
|00002090| 73 69 7a 65 25 0d 09 ba | 16 73 69 7a 65 25 3d 35 |size%...|.size%=5|
|000020a0| 39 2b a9 28 74 69 74 6c | 65 24 29 0d 09 c4 12 e3 |9+.(titl|e$).....|
|000020b0| 20 6c 6f 6f 70 25 3d 30 | 20 b8 20 36 33 0d 09 ce | loop%=0| . 63...|
|000020c0| 31 20 73 69 7a 65 25 2b | 3d a9 28 6b 65 79 73 74 |1 size%+|=.(keyst|
|000020d0| 72 69 70 24 28 6c 6f 6f | 70 25 20 83 20 31 36 2c |rip$(loo|p% . 16,|
|000020e0| 6c 6f 6f 70 25 20 81 20 | 31 36 29 29 2b 37 0d 09 |loop% . |16))+7..|
|000020f0| d8 0b ed 20 6c 6f 6f 70 | 25 0d 09 e2 0a 3d 73 69 |... loop|%....=si|
|00002100| 7a 65 25 0d 09 ec 05 3a | 0d 09 f6 26 dd 20 f2 6b |ze%....:|...&. .k|
|00002110| 65 79 5f 70 72 65 73 73 | 65 64 28 77 69 6e 64 6f |ey_press|ed(windo|
|00002120| 77 25 2c 69 63 6f 6e 25 | 2c 6b 65 79 25 29 0d 0a |w%,icon%|,key%)..|
|00002130| 00 10 c8 8e 20 77 69 6e | 64 6f 77 25 20 ca 0d 0a |.... win|dow% ...|
|00002140| 0a 2c 20 c9 20 77 69 6e | 64 6f 77 5f 6d 61 69 6e |., . win|dow_main|
|00002150| 25 20 3a 20 f2 6d 61 69 | 6e 5f 6b 65 79 73 28 69 |% : .mai|n_keys(i|
|00002160| 63 6f 6e 25 2c 6b 65 79 | 25 29 0d 0a 14 33 20 c9 |con%,key|%)...3 .|
|00002170| 20 77 69 6e 64 6f 77 5f | 6b 65 79 65 64 69 74 25 | window_|keyedit%|
|00002180| 20 3a 20 f2 6b 65 79 73 | 74 72 69 70 5f 6b 65 79 | : .keys|trip_key|
|00002190| 73 28 69 63 6f 6e 25 2c | 6b 65 79 25 29 0d 0a 1e |s(icon%,|key%)...|
|000021a0| 2e 20 c9 20 77 69 6e 64 | 6f 77 5f 72 65 73 65 74 |. . wind|ow_reset|
|000021b0| 25 20 3a 20 f2 72 65 73 | 65 74 5f 6b 65 79 73 28 |% : .res|et_keys(|
|000021c0| 69 63 6f 6e 25 2c 6b 65 | 79 25 29 0d 0a 28 4b 20 |icon%,ke|y%)..(K |
|000021d0| c9 20 77 69 6e 64 6f 77 | 5f 73 61 76 65 31 25 2c |. window|_save1%,|
|000021e0| 77 69 6e 64 6f 77 5f 73 | 61 76 65 32 25 2c 77 69 |window_s|ave2%,wi|
|000021f0| 6e 64 6f 77 5f 73 61 76 | 65 33 25 20 3a 20 f2 73 |ndow_sav|e3% : .s|
|00002200| 61 76 65 5f 6b 65 79 73 | 28 77 69 6e 64 6f 77 25 |ave_keys|(window%|
|00002210| 2c 6b 65 79 25 29 0d 0a | 32 22 20 7f 20 3a 20 c8 |,key%)..|2" . : .|
|00002220| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00002230| 65 79 22 2c 6b 65 79 25 | 0d 0a 3c 05 cb 0d 0a 46 |ey",key%|..<....F|
|00002240| 05 e1 0d 0a 50 05 3a 0d | 0a 5a 22 dd 20 f2 6d 65 |....P.:.|.Z". .me|
|00002250| 6e 75 5f 73 65 6c 65 63 | 74 28 66 69 72 73 74 25 |nu_selec|t(first%|
|00002260| 2c 73 65 63 6f 6e 64 25 | 29 0d 0a 64 13 ea 20 73 |,second%|)..d.. s|
|00002270| 65 6c 65 63 74 25 2c 6c | 6f 6f 70 25 0d 0a 6e 24 |elect%,l|oop%..n$|
|00002280| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00002290| 74 65 72 49 6e 66 6f 22 | 2c 2c 62 6c 6f 63 6b 25 |terInfo"|,,block%|
|000022a0| 0d 0a 78 3b 73 65 6c 65 | 63 74 25 3d 28 62 6c 6f |..x;sele|ct%=(blo|
|000022b0| 63 6b 25 21 38 3d 25 31 | 30 30 29 20 84 20 28 62 |ck%!8=%1|00) . (b|
|000022c0| 6c 6f 63 6b 25 21 38 3d | 25 31 30 29 20 84 20 28 |lock%!8=|%10) . (|
|000022d0| 62 6c 6f 63 6b 25 21 38 | 3d 30 29 0d 0a 82 12 c8 |block%!8|=0).....|
|000022e0| 8e 20 6d 65 6e 75 5f 6e | 75 6d 25 20 ca 0d 0a 8c |. menu_n|um% ....|
|000022f0| 13 20 c9 20 6d 65 6e 75 | 5f 6d 61 69 6e 25 20 3a |. . menu|_main% :|
|00002300| 0d 0a 96 11 20 20 c8 8e | 20 66 69 72 73 74 25 20 |....  ..| first% |
|00002310| ca 0d 0a a0 1a 20 90 03 | c9 20 30 20 3a 20 f2 73 |..... ..|. 0 : .s|
|00002320| 65 74 5f 66 75 6e 63 6b | 65 79 73 0d 0a aa 0c 20 |et_funck|eys.... |
|00002330| 90 03 c9 20 31 20 3a 0d | 0a b4 16 20 90 04 f2 72 |... 1 :.|... ...r|
|00002340| 65 61 64 5f 66 75 6e 63 | 6b 65 79 73 0d 0a be 16 |ead_func|keys....|
|00002350| 20 90 04 e3 20 6c 6f 6f | 70 25 3d 30 20 b8 20 31 | ... loo|p%=0 . 1|
|00002360| 35 0d 0a c8 35 20 90 05 | f2 63 68 61 6e 67 65 5f |5...5 ..|.change_|
|00002370| 74 65 78 74 28 77 69 6e | 64 6f 77 5f 6d 61 69 6e |text(win|dow_main|
|00002380| 25 2c 6c 6f 6f 70 25 2c | 6b 65 79 24 28 6c 6f 6f |%,loop%,|key$(loo|
|00002390| 70 25 29 29 0d 0a d2 0f | 20 90 04 ed 20 6c 6f 6f |p%))....| ... loo|
|000023a0| 70 25 0d 0a dc 0c 20 90 | 03 c9 20 32 20 3a 0d 0a |p%.... .|.. 2 :..|
|000023b0| e6 16 20 90 04 e3 20 6c | 6f 6f 70 25 3d 30 20 b8 |.. ... l|oop%=0 .|
|000023c0| 20 31 35 0d 0a f0 17 20 | 90 05 6b 65 79 24 28 6c | 15.... |..key$(l|
|000023d0| 6f 6f 70 25 29 3d 22 22 | 0d 0a fa 2c 20 90 05 f2 |oop%)=""|..., ...|
|000023e0| 63 68 61 6e 67 65 5f 74 | 65 78 74 28 77 69 6e 64 |change_t|ext(wind|
|000023f0| 6f 77 5f 6d 61 69 6e 25 | 2c 6c 6f 6f 70 25 2c 22 |ow_main%|,loop%,"|
|00002400| 22 29 0d 0b 04 0f 20 90 | 04 ed 20 6c 6f 6f 70 25 |").... .|.. loop%|
|00002410| 0d 0b 0e 0c 20 90 03 c9 | 20 33 20 3a 0d 0b 18 14 |.... ...| 3 :....|
|00002420| 20 90 04 c8 8e 20 73 65 | 63 6f 6e 64 25 20 ca 0d | .... se|cond% ..|
|00002430| 0b 22 0e 20 90 05 c9 20 | 30 20 3a 0d 0b 2c 32 20 |.". ... |0 :..,2 |
|00002440| 90 06 e7 20 a7 a4 72 65 | 61 64 5f 74 65 78 74 28 |... ..re|ad_text(|
|00002450| 77 69 6e 64 6f 77 5f 73 | 61 76 65 31 25 2c 32 29 |window_s|ave1%,2)|
|00002460| 2c 22 2e 22 29 3c 3e 30 | 20 8c 0d 0b 36 56 20 90 |,".")<>0| ...6V .|
|00002470| 07 e7 20 73 65 6c 65 63 | 74 25 20 8c 20 f2 73 61 |.. selec|t% . .sa|
|00002480| 76 65 5f 63 6c 69 63 6b | 28 34 2c 77 69 6e 64 6f |ve_click|(4,windo|
|00002490| 77 5f 73 61 76 65 31 25 | 2c 31 29 20 8b 20 f2 73 |w_save1%|,1) . .s|
|000024a0| 61 76 65 5f 63 6c 69 63 | 6b 28 31 2c 77 69 6e 64 |ave_clic|k(1,wind|
|000024b0| 6f 77 5f 73 61 76 65 31 | 25 2c 31 29 0d 0b 40 0b |ow_save1|%,1)..@.|
|000024c0| 20 90 06 cd 0d 0b 4a 0d | 20 90 05 c9 20 31 3a 0d | .....J.| ... 1:.|
|000024d0| 0b 54 32 20 90 06 e7 20 | a7 a4 72 65 61 64 5f 74 |.T2 ... |..read_t|
|000024e0| 65 78 74 28 77 69 6e 64 | 6f 77 5f 73 61 76 65 33 |ext(wind|ow_save3|
|000024f0| 25 2c 32 29 2c 22 2e 22 | 29 3c 3e 30 20 8c 0d 0b |%,2),"."|)<>0 ...|
|00002500| 5e 56 20 90 07 e7 20 73 | 65 6c 65 63 74 25 20 8c |^V ... s|elect% .|
|00002510| 20 f2 73 61 76 65 5f 63 | 6c 69 63 6b 28 34 2c 77 | .save_c|lick(4,w|
|00002520| 69 6e 64 6f 77 5f 73 61 | 76 65 33 25 2c 31 29 20 |indow_sa|ve3%,1) |
|00002530| 8b 20 f2 73 61 76 65 5f | 63 6c 69 63 6b 28 31 2c |. .save_|click(1,|
|00002540| 77 69 6e 64 6f 77 5f 73 | 61 76 65 33 25 2c 31 29 |window_s|ave3%,1)|
|00002550| 0d 0b 68 0b 20 90 06 cd | 0d 0b 72 09 20 90 04 cb |..h. ...|..r. ...|
|00002560| 0d 0b 7c 07 20 20 cb 0d | 0b 86 17 20 c9 20 6d 65 |..|.  ..|... . me|
|00002570| 6e 75 5f 6b 65 79 73 74 | 72 69 70 25 20 3a 0d 0b |nu_keyst|rip% :..|
|00002580| 90 00 11 20 20 c8 8e 20 | 66 69 72 73 74 25 20 ca |...  .. |first% .|
|00002590| 0d 0b 9a 0c 20 90 03 c9 | 20 30 20 3a 0d 0b a4 15 |.... ...| 0 :....|
|000025a0| 20 90 04 e7 20 73 65 63 | 6f 6e 64 25 3d 30 20 8c | ... sec|ond%=0 .|
|000025b0| 0d 0b ae 2e 20 90 05 74 | 69 74 6c 65 24 3d a4 72 |.... ..t|itle$=.r|
|000025c0| 65 61 64 5f 6d 65 6e 75 | 5f 74 65 78 74 28 6d 65 |ead_menu|_text(me|
|000025d0| 6e 75 5f 74 69 74 6c 65 | 25 2c 30 29 0d 0b b8 3a |nu_title|%,0)...:|
|000025e0| 20 90 05 f2 72 65 74 69 | 74 6c 65 28 77 69 6e 64 | ...reti|tle(wind|
|000025f0| 6f 77 5f 69 6e 70 75 74 | 25 2c 74 69 74 6c 65 24 |ow_input|%,title$|
|00002600| 2b 22 20 3a 20 46 75 6e | 63 74 69 6f 6e 20 6b 65 |+" : Fun|ction ke|
|00002610| 79 73 22 29 0d 0b c2 09 | 20 90 04 cd 0d 0b cc 0c |ys")....| .......|
|00002620| 20 90 03 c9 20 31 20 3a | 0d 0b d6 24 20 90 04 f2 | ... 1 :|...$ ...|
|00002630| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 77 69 6e |close_wi|ndow(win|
|00002640| 64 6f 77 5f 69 6e 70 75 | 74 25 29 0d 0b e0 15 20 |dow_inpu|t%).... |
|00002650| 90 04 69 6e 70 75 74 5f | 6f 70 65 6e 25 3d b9 0d |..input_|open%=..|
|00002660| 0b ea 25 20 90 04 f2 64 | 65 73 65 6c 65 63 74 28 |..% ...d|eselect(|
|00002670| 6d 65 6e 75 5f 6b 65 79 | 73 74 72 69 70 25 2c 36 |menu_key|strip%,6|
|00002680| 2c 31 29 0d 0b f4 25 20 | 90 04 f2 6f 70 65 6e 5f |,1)...% |...open_|
|00002690| 77 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 5f 6b 65 |window(w|indow_ke|
|000026a0| 79 65 64 69 74 25 29 0d | 0b fe 16 20 90 04 e3 20 |yedit%).|... ... |
|000026b0| 6c 6f 6f 70 25 3d 30 20 | b8 20 36 33 0d 0c 08 4d |loop%=0 |. 63...M|
|000026c0| 20 90 05 f2 63 68 61 6e | 67 65 5f 74 65 78 74 28 | ...chan|ge_text(|
|000026d0| 77 69 6e 64 6f 77 5f 6b | 65 79 65 64 69 74 25 2c |window_k|eyedit%,|
|000026e0| 6c 6f 6f 70 25 2c 6b 65 | 79 73 74 72 69 70 24 28 |loop%,ke|ystrip$(|
|000026f0| 6c 6f 6f 70 25 20 83 20 | 31 36 2c 6c 6f 6f 70 25 |loop% . |16,loop%|
|00002700| 20 81 20 31 36 29 29 0d | 0c 12 0f 20 90 04 ed 20 | . 16)).|... ... |
|00002710| 6c 6f 6f 70 25 0d 0c 1c | 29 20 90 04 f2 6d 6f 76 |loop%...|) ...mov|
|00002720| 65 5f 63 61 72 65 74 28 | 77 69 6e 64 6f 77 5f 6b |e_caret(|window_k|
|00002730| 65 79 65 64 69 74 25 2c | 30 2c 2d 32 29 0d 0c 26 |eyedit%,|0,-2)..&|
|00002740| 0c 20 90 03 c9 20 32 20 | 3a 0d 0c 30 23 20 90 04 |. ... 2 |:..0# ..|
|00002750| f2 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 77 69 6e |.open_wi|ndow(win|
|00002760| 64 6f 77 5f 72 65 73 65 | 74 25 29 0d 0c 3a 26 20 |dow_rese|t%)..:& |
|00002770| 90 04 e7 20 a4 69 63 6f | 6e 5f 73 65 74 28 77 69 |... .ico|n_set(wi|
|00002780| 6e 64 6f 77 5f 72 65 73 | 65 74 25 2c 34 29 20 8c |ndow_res|et%,4) .|
|00002790| 0d 0c 44 2b 20 90 05 f2 | 73 65 74 5f 69 63 6f 6e |..D+ ...|set_icon|
|000027a0| 28 77 69 6e 64 6f 77 5f | 72 65 73 65 74 25 2c 30 |(window_|reset%,0|
|000027b0| 2c 31 3c 3c 32 32 2c 31 | 29 0d 0c 4e 2b 20 90 05 |,1<<22,1|)..N+ ..|
|000027c0| f2 73 65 74 5f 69 63 6f | 6e 28 77 69 6e 64 6f 77 |.set_ico|n(window|
|000027d0| 5f 72 65 73 65 74 25 2c | 31 2c 31 3c 3c 32 32 2c |_reset%,|1,1<<22,|
|000027e0| 31 29 0d 0c 58 09 20 90 | 04 cc 0d 0c 62 28 20 90 |1)..X. .|....b( .|
|000027f0| 05 f2 6d 6f 76 65 5f 63 | 61 72 65 74 28 77 69 6e |..move_c|aret(win|
|00002800| 64 6f 77 5f 72 65 73 65 | 74 25 2c 30 2c 2d 31 29 |dow_rese|t%,0,-1)|
|00002810| 0d 0c 6c 2b 20 90 05 f2 | 73 65 74 5f 69 63 6f 6e |..l+ ...|set_icon|
|00002820| 28 77 69 6e 64 6f 77 5f | 72 65 73 65 74 25 2c 30 |(window_|reset%,0|
|00002830| 2c 31 3c 3c 32 32 2c 32 | 29 0d 0c 76 2b 20 90 05 |,1<<22,2|)..v+ ..|
|00002840| f2 73 65 74 5f 69 63 6f | 6e 28 77 69 6e 64 6f 77 |.set_ico|n(window|
|00002850| 5f 72 65 73 65 74 25 2c | 31 2c 31 3c 3c 32 32 2c |_reset%,|1,1<<22,|
|00002860| 32 29 0d 0c 80 09 20 90 | 04 cd 0d 0c 8a 0c 20 90 |2).... .|...... .|
|00002870| 03 c9 20 33 20 3a 0d 0c | 94 28 20 90 04 f2 6c 6f |.. 3 :..|.( ...lo|
|00002880| 61 64 5f 46 90 03 28 22 | 3c 46 75 6e 63 24 44 69 |ad_F..("|<Func$Di|
|00002890| 72 3e 2e 44 65 66 61 75 | 6c 74 73 22 29 0d 0c 9e |r>.Defau|lts")...|
|000028a0| 0c 20 90 03 c9 20 34 20 | 3a 0d 0c a8 2b 20 90 04 |. ... 4 |:...+ ..|
|000028b0| f2 73 61 76 65 5f 46 90 | 03 28 2d 31 2c 22 3c 46 |.save_F.|.(-1,"<F|
|000028c0| 75 6e 63 24 44 69 72 3e | 2e 44 65 66 61 75 6c 74 |unc$Dir>|.Default|
|000028d0| 73 22 29 0d 0c b2 0c 20 | 90 03 c9 20 35 20 3a 0d |s").... |... 5 :.|
|000028e0| 0c bc 30 20 90 04 e7 20 | a7 a4 72 65 61 64 5f 74 |..0 ... |..read_t|
|000028f0| 65 78 74 28 77 69 6e 64 | 6f 77 5f 73 61 76 65 32 |ext(wind|ow_save2|
|00002900| 25 2c 32 29 2c 22 2e 22 | 29 3c 3e 30 20 8c 0d 0c |%,2),"."|)<>0 ...|
|00002910| c6 54 20 90 05 e7 20 73 | 65 6c 65 63 74 25 20 8c |.T ... s|elect% .|
|00002920| 20 f2 73 61 76 65 5f 63 | 6c 69 63 6b 28 34 2c 77 | .save_c|lick(4,w|
|00002930| 69 6e 64 6f 77 5f 73 61 | 76 65 32 25 2c 31 29 20 |indow_sa|ve2%,1) |
|00002940| 8b 20 f2 73 61 76 65 5f | 63 6c 69 63 6b 28 31 2c |. .save_|click(1,|
|00002950| 77 69 6e 64 6f 77 5f 73 | 61 76 65 32 25 2c 31 29 |window_s|ave2%,1)|
|00002960| 0d 0c d0 09 20 90 04 cd | 0d 0c da 0c 20 90 03 c9 |.... ...|.... ...|
|00002970| 20 36 20 3a 0d 0c e4 17 | 20 90 04 e3 20 69 63 6f | 6 :....| ... ico|
|00002980| 6e 25 3d 31 36 20 b8 20 | 31 37 0d 0c ee 2b 20 90 |n%=16 . |17...+ .|
|00002990| 05 e7 20 a4 69 63 6f 6e | 5f 73 65 74 28 77 69 6e |.. .icon|_set(win|
|000029a0| 64 6f 77 5f 69 6e 70 75 | 74 25 2c 69 63 6f 6e 25 |dow_inpu|t%,icon%|
|000029b0| 29 20 8c 0d 0c f8 30 20 | 90 06 f2 73 65 74 5f 69 |) ....0 |...set_i|
|000029c0| 63 6f 6e 28 77 69 6e 64 | 6f 77 5f 73 6d 61 6c 6c |con(wind|ow_small|
|000029d0| 25 2c 69 63 6f 6e 25 2c | 31 3c 3c 32 31 2c 31 29 |%,icon%,|1<<21,1)|
|000029e0| 0d 0d 02 0a 20 90 05 cc | 0d 0d 0c 30 20 90 06 f2 |.... ...|...0 ...|
|000029f0| 73 65 74 5f 69 63 6f 6e | 28 77 69 6e 64 6f 77 5f |set_icon|(window_|
|00002a00| 73 6d 61 6c 6c 25 2c 69 | 63 6f 6e 25 2c 31 3c 3c |small%,i|con%,1<<|
|00002a10| 32 31 2c 32 29 0d 0d 16 | 0a 20 90 05 cd 0d 0d 20 |21,2)...|. ..... |
|00002a20| 0f 20 90 04 ed 20 69 63 | 6f 6e 25 0d 0d 2a 24 20 |. ... ic|on%..*$ |
|00002a30| 90 04 f2 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |...close|_window(|
|00002a40| 77 69 6e 64 6f 77 5f 69 | 6e 70 75 74 25 29 0d 0d |window_i|nput%)..|
|00002a50| 34 27 20 90 04 c8 94 20 | 77 69 6e 64 6f 77 5f 69 |4' .... |window_i|
|00002a60| 6e 70 75 74 25 2c 20 77 | 69 6e 64 6f 77 5f 73 6d |nput%, w|indow_sm|
|00002a70| 61 6c 6c 25 0d 0d 3e 21 | 20 90 04 f2 74 69 63 6b |all%..>!| ...tick|
|00002a80| 28 6d 65 6e 75 5f 6b 65 | 79 73 74 72 69 70 25 2c |(menu_ke|ystrip%,|
|00002a90| 36 2c 33 29 0d 0d 48 25 | 20 90 04 f2 64 65 73 65 |6,3)..H%| ...dese|
|00002aa0| 6c 65 63 74 28 6d 65 6e | 75 5f 6b 65 79 73 74 72 |lect(men|u_keystr|
|00002ab0| 69 70 25 2c 30 2c 33 29 | 0d 0d 52 25 20 90 04 f2 |ip%,0,3)|..R% ...|
|00002ac0| 64 65 73 65 6c 65 63 74 | 28 6d 65 6e 75 5f 6b 65 |deselect|(menu_ke|
|00002ad0| 79 73 74 72 69 70 25 2c | 31 2c 33 29 0d 0d 5c 25 |ystrip%,|1,3)..\%|
|00002ae0| 20 90 04 f2 64 65 73 65 | 6c 65 63 74 28 6d 65 6e | ...dese|lect(men|
|00002af0| 75 5f 6b 65 79 73 74 72 | 69 70 25 2c 32 2c 33 29 |u_keystr|ip%,2,3)|
|00002b00| 0d 0d 66 40 20 90 04 e7 | 20 ac 20 a4 6f 70 65 6e |..f@ ...| . .open|
|00002b10| 28 77 69 6e 64 6f 77 5f | 6b 65 79 65 64 69 74 25 |(window_|keyedit%|
|00002b20| 29 20 8c 20 f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 |) . .ope|n_window|
|00002b30| 28 77 69 6e 64 6f 77 5f | 69 6e 70 75 74 25 29 0d |(window_|input%).|
|00002b40| 0d 70 0c 20 90 03 c9 20 | 37 20 3a 0d 0d 7a 17 20 |.p. ... |7 :..z. |
|00002b50| 90 04 e7 20 73 65 63 6f | 6e 64 25 3c 3e 2d 31 20 |... seco|nd%<>-1 |
|00002b60| 8c 0d 0d 84 26 20 90 05 | f2 74 69 63 6b 28 6d 65 |....& ..|.tick(me|
|00002b70| 6e 75 5f 65 78 70 61 6e | 64 25 2c 73 65 63 6f 6e |nu_expan|d%,secon|
|00002b80| 64 25 2c 33 29 0d 0d 8e | 09 20 90 04 cd 0d 0d 98 |d%,3)...|. ......|
|00002b90| 0c 20 90 03 c9 20 38 20 | 3a 0d 0d a2 14 20 90 04 |. ... 8 |:.... ..|
|00002ba0| c8 8e 20 73 65 63 6f 6e | 64 25 20 ca 0d 0d ac 42 |.. secon|d% ....B|
|00002bb0| 20 90 05 c9 20 30 20 3a | 20 f2 74 69 63 6b 28 6d | ... 0 :| .tick(m|
|00002bc0| 65 6e 75 5f 66 31 31 5f | 66 31 33 25 2c 30 2c 31 |enu_f11_|f13%,0,1|
|00002bd0| 29 20 3a 20 f2 74 69 63 | 6b 28 6d 65 6e 75 5f 66 |) : .tic|k(menu_f|
|00002be0| 31 31 5f 66 31 33 25 2c | 31 2c 32 29 0d 0d b6 42 |11_f13%,|1,2)...B|
|00002bf0| 20 90 05 c9 20 31 20 3a | 20 f2 74 69 63 6b 28 6d | ... 1 :| .tick(m|
|00002c00| 65 6e 75 5f 66 31 31 5f | 66 31 33 25 2c 31 2c 31 |enu_f11_|f13%,1,1|
|00002c10| 29 20 3a 20 f2 74 69 63 | 6b 28 6d 65 6e 75 5f 66 |) : .tic|k(menu_f|
|00002c20| 31 31 5f 66 31 33 25 2c | 30 2c 32 29 0d 0d c0 09 |11_f13%,|0,2)....|
|00002c30| 20 90 04 cb 0d 0d ca 07 | 20 20 cb 0d 0d d4 13 20 | .......|  ..... |
|00002c40| c9 20 6d 65 6e 75 5f 62 | 61 72 25 20 20 3a 0d 0d |. menu_b|ar%  :..|
|00002c50| de 11 20 20 c8 8e 20 66 | 69 72 73 74 25 20 ca 0d |..  .. f|irst% ..|
|00002c60| 0d e8 14 20 90 03 c9 20 | 31 20 3a 20 71 75 69 74 |... ... |1 : quit|
|00002c70| 25 3d b9 0d 0d f2 07 20 | 20 cb 0d 0d fc 05 cb 0d |%=..... | .......|
|00002c80| 0e 06 31 e7 20 73 65 6c | 65 63 74 25 3d a3 20 8c |..1. sel|ect%=. .|
|00002c90| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00002ca0| 4d 65 6e 75 22 2c 2c 6d | 65 6e 75 5f 6e 75 6d 25 |Menu",,m|enu_num%|
|00002cb0| 0d 0e 10 05 e1 0d 0e 1a | 05 3a 0d 0e 24 17 dd 20 |........|.:..$.. |
|00002cc0| f2 72 65 63 65 69 76 65 | 28 72 65 61 73 6f 6e 25 |.receive|(reason%|
|00002cd0| 29 0d 0e 2e 10 c8 8e 20 | 72 65 61 73 6f 6e 25 20 |)...... |reason% |
|00002ce0| ca 0d 0e 38 12 20 c9 20 | 30 20 3a 20 71 75 69 74 |...8. . |0 : quit|
|00002cf0| 25 3d b9 0d 0e 42 5d 20 | c9 20 31 20 3a 20 e7 20 |%=...B] |. 1 : . |
|00002d00| 62 6c 6f 63 6b 25 21 34 | 30 3d 26 46 45 42 20 84 |block%!4|0=&FEB .|
|00002d10| 20 62 6c 6f 63 6b 25 21 | 34 30 3d 26 46 46 45 20 | block%!|40=&FFE |
|00002d20| 84 20 62 6c 6f 63 6b 25 | 21 34 30 3d 26 46 90 03 |. block%|!40=&F..|
|00002d30| 20 8c 20 f2 72 61 6d 5f | 66 65 74 63 68 28 62 6c | . .ram_|fetch(bl|
|00002d40| 6f 63 6b 25 21 34 2c 62 | 6c 6f 63 6b 25 21 38 29 |ock%!4,b|lock%!8)|
|00002d50| 0d 0e 4c 0a 20 c9 20 32 | 20 3a 0d 0e 56 74 20 20 |..L. . 2| :..Vt  |
|00002d60| f2 73 61 76 65 5f 64 72 | 61 67 28 62 6c 6f 63 6b |.save_dr|ag(block|
|00002d70| 25 21 34 2c 62 6c 6f 63 | 6b 25 21 38 2c 62 6c 6f |%!4,bloc|k%!8,blo|
|00002d80| 63 6b 25 21 32 30 2c 62 | 6c 6f 63 6b 25 21 32 34 |ck%!20,b|lock%!24|
|00002d90| 2c 62 6c 6f 63 6b 25 21 | 32 38 2c 62 6c 6f 63 6b |,block%!|28,block|
|00002da0| 25 21 33 32 2c 62 6c 6f | 63 6b 25 21 33 36 2c 62 |%!32,blo|ck%!36,b|
|00002db0| 6c 6f 63 6b 25 21 34 30 | 2c a4 66 69 6c 65 6e 61 |lock%!40|,.filena|
|00002dc0| 6d 65 28 62 6c 6f 63 6b | 25 2b 34 34 29 29 0d 0e |me(block|%+44))..|
|00002dd0| 60 1a 20 20 f2 63 72 65 | 61 74 65 5f 6d 65 6e 75 |`.  .cre|ate_menu|
|00002de0| 28 2d 31 2c 30 2c 30 29 | 0d 0e 6a 79 20 c9 20 33 |(-1,0,0)|..jy . 3|
|00002df0| 20 3a 20 f2 6c 6f 61 64 | 5f 66 69 6c 65 28 62 6c | : .load|_file(bl|
|00002e00| 6f 63 6b 25 21 34 2c 62 | 6c 6f 63 6b 25 21 38 2c |ock%!4,b|lock%!8,|
|00002e10| 62 6c 6f 63 6b 25 21 32 | 30 2c 62 6c 6f 63 6b 25 |block%!2|0,block%|
|00002e20| 21 32 34 2c 62 6c 6f 63 | 6b 25 21 32 38 2c 62 6c |!24,bloc|k%!28,bl|
|00002e30| 6f 63 6b 25 21 33 32 2c | 62 6c 6f 63 6b 25 21 33 |ock%!32,|block%!3|
|00002e40| 36 2c 62 6c 6f 63 6b 25 | 21 34 30 2c a4 66 69 6c |6,block%|!40,.fil|
|00002e50| 65 6e 61 6d 65 28 62 6c | 6f 63 6b 25 2b 34 34 29 |ename(bl|ock%+44)|
|00002e60| 29 0d 0e 74 3f 20 c9 20 | 36 20 3a 20 f2 72 61 6d |)..t? . |6 : .ram|
|00002e70| 5f 74 72 61 6e 73 6d 69 | 74 28 62 6c 6f 63 6b 25 |_transmi|t(block%|
|00002e80| 21 34 2c 62 6c 6f 63 6b | 25 21 38 2c 62 6c 6f 63 |!4,block|%!8,bloc|
|00002e90| 6b 25 21 32 30 2c 62 6c | 6f 63 6b 25 21 32 34 29 |k%!20,bl|ock%!24)|
|00002ea0| 0d 0e 7e 45 20 c9 20 37 | 20 3a 20 f2 72 61 6d 5f |..~E . 7| : .ram_|
|00002eb0| 6c 6f 61 64 28 62 6c 6f | 63 6b 25 21 34 2c 62 6c |load(blo|ck%!4,bl|
|00002ec0| 6f 63 6b 25 21 38 2c 62 | 6c 6f 63 6b 25 21 32 30 |ock%!8,b|lock%!20|
|00002ed0| 2c 62 6c 6f 63 6b 25 21 | 32 34 2c 62 6c 6f 63 6b |,block%!|24,block|
|00002ee0| 25 21 34 30 29 0d 0e 88 | 05 cb 0d 0e 92 05 e1 0d |%!40)...|........|
|00002ef0| 0e 9c 05 3a 0d 0e a6 21 | dd 20 f2 73 61 76 65 5f |...:...!|. .save_|
|00002f00| 74 6f 5f 77 69 6d 70 73 | 63 72 61 70 28 72 65 61 |to_wimps|crap(rea|
|00002f10| 73 6f 6e 25 29 0d 0e b0 | 11 e7 20 72 65 61 73 6f |son%)...|.. reaso|
|00002f20| 6e 25 3d 36 20 8c 0d 0e | ba 39 20 c8 99 20 22 58 |n%=6 ...|.9 .. "X|
|00002f30| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 22 |OS_ReadV|arVal","|
|00002f40| 57 69 6d 70 24 53 63 72 | 61 70 22 2c 2c 2d 31 2c |Wimp$Scr|ap",,-1,|
|00002f50| 30 2c 33 20 b8 20 2c 2c | 65 78 69 73 74 73 25 0d |0,3 . ,,|exists%.|
|00002f60| 0e c4 31 20 e7 20 65 78 | 69 73 74 73 25 3d 30 20 |..1 . ex|ists%=0 |
|00002f70| 8c 20 85 20 31 2c 22 3c | 57 69 6d 70 24 53 63 72 |. . 1,"<|Wimp$Scr|
|00002f80| 61 70 3e 20 6e 6f 74 20 | 64 65 66 69 6e 65 64 22 |ap> not |defined"|
|00002f90| 0d 0e ce 63 20 f2 73 61 | 76 65 5f 64 72 61 67 28 |...c .sa|ve_drag(|
|00002fa0| 6f 6c 64 5f 74 61 73 6b | 25 2c 6f 6c 64 5f 72 65 |old_task|%,old_re|
|00002fb0| 66 25 2c 6f 6c 64 5f 77 | 69 6e 64 6f 77 25 2c 6f |f%,old_w|indow%,o|
|00002fc0| 6c 64 5f 69 63 6f 6e 25 | 2c 6f 6c 64 5f 78 25 2c |ld_icon%|,old_x%,|
|00002fd0| 6f 6c 64 5f 79 25 2c 2d | 31 2c 6f 6c 64 5f 74 79 |old_y%,-|1,old_ty|
|00002fe0| 70 65 25 2c 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |pe%,"<Wi|mp$Scrap|
|00002ff0| 3e 22 29 0d 0e d8 05 cd | 0d 0e e2 05 e1 0d 0e ec |>").....|........|
|00003000| 04 0d 0e f6 3a dd 20 f2 | 73 61 76 65 5f 6d 65 73 |....:. .|save_mes|
|00003010| 73 61 67 65 28 78 25 2c | 79 25 2c 77 69 6e 64 6f |sage(x%,|y%,windo|
|00003020| 77 25 2c 69 63 6f 6e 25 | 2c 73 69 7a 65 25 2c 74 |w%,icon%|,size%,t|
|00003030| 79 70 65 25 2c 66 69 6c | 65 24 29 0d 0f 00 29 62 |ype%,fil|e$)...)b|
|00003040| 6c 6f 63 6b 25 21 30 30 | 3d 28 90 03 34 34 2b a9 |lock%!00|=(..44+.|
|00003050| 28 66 69 6c 65 24 29 2b | 31 29 20 81 20 34 29 2a |(file$)+|1) . 4)*|
|00003060| 34 29 2b 34 0d 0f 0a 0f | 62 6c 6f 63 6b 25 21 31 |4)+4....|block%!1|
|00003070| 32 3d 30 0d 0f 14 0f 62 | 6c 6f 63 6b 25 21 31 36 |2=0....b|lock%!16|
|00003080| 3d 31 0d 0f 1e 15 62 6c | 6f 63 6b 25 21 32 30 3d |=1....bl|ock%!20=|
|00003090| 77 69 6e 64 6f 77 25 0d | 0f 28 13 62 6c 6f 63 6b |window%.|.(.block|
|000030a0| 25 21 32 34 3d 69 63 6f | 6e 25 0d 0f 32 10 62 6c |%!24=ico|n%..2.bl|
|000030b0| 6f 63 6b 25 21 32 38 3d | 78 25 0d 0f 3c 10 62 6c |ock%!28=|x%..<.bl|
|000030c0| 6f 63 6b 25 21 33 32 3d | 79 25 0d 0f 46 13 62 6c |ock%!32=|y%..F.bl|
|000030d0| 6f 63 6b 25 21 33 36 3d | 73 69 7a 65 25 0d 0f 50 |ock%!36=|size%..P|
|000030e0| 13 62 6c 6f 63 6b 25 21 | 34 30 3d 74 79 70 65 25 |.block%!|40=type%|
|000030f0| 0d 0f 5a 12 c8 95 20 a7 | 66 69 6c 65 24 2c 22 2e |..Z... .|file$,".|
|00003100| 22 29 0d 0f 64 20 20 66 | 69 6c 65 24 3d c1 66 69 |")..d  f|ile$=.fi|
|00003110| 6c 65 24 2c a7 66 69 6c | 65 24 2c 22 2e 22 29 2b |le$,.fil|e$,".")+|
|00003120| 31 29 0d 0f 6e 05 ce 0d | 0f 78 19 24 28 62 6c 6f |1)..n...|.x.$(blo|
|00003130| 63 6b 25 2b 34 34 29 3d | 66 69 6c 65 24 2b bd 30 |ck%+44)=|file$+.0|
|00003140| 0d 0f 82 31 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...1.. "|Wimp_Sen|
|00003150| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 6c 6f |dMessage|",17,blo|
|00003160| 63 6b 25 2c 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ck%,wind|ow%,icon|
|00003170| 25 0d 0f 8c 2a 74 6f 74 | 61 6c 5f 74 6f 5f 73 65 |%...*tot|al_to_se|
|00003180| 6e 64 25 3d a4 73 74 6f | 72 65 5f 69 6e 5f 62 75 |nd%=.sto|re_in_bu|
|00003190| 66 66 65 72 28 74 79 70 | 65 25 29 0d 0f 96 11 62 |ffer(typ|e%)....b|
|000031a0| 79 74 65 73 5f 73 65 6e | 74 25 3d 30 0d 0f a0 05 |ytes_sen|t%=0....|
|000031b0| e1 0d 0f aa 05 3a 0d 0f | b4 1d dd 20 a4 73 74 6f |.....:..|... .sto|
|000031c0| 72 65 5f 69 6e 5f 62 75 | 66 66 65 72 28 74 79 70 |re_in_bu|ffer(typ|
|000031d0| 65 25 29 0d 0f be 16 ea | 20 6c 6f 6f 70 25 2c 70 |e%).....| loop%,p|
|000031e0| 74 72 25 2c 74 65 78 74 | 24 0d 0f c8 0a 70 74 72 |tr%,text|$....ptr|
|000031f0| 25 3d 30 0d 0f d2 0e c8 | 8e 20 74 79 70 65 25 20 |%=0.....|. type% |
|00003200| ca 0d 0f dc 12 20 c9 20 | 26 46 45 42 2c 26 46 46 |..... . |&FEB,&FF|
|00003210| 45 20 3a 0d 0f e6 14 20 | 20 e3 20 6c 6f 6f 70 25 |E :.... | . loop%|
|00003220| 3d 30 20 b8 20 31 35 0d | 0f f0 2b 20 90 03 74 65 |=0 . 15.|..+ ..te|
|00003230| 78 74 24 3d a4 72 65 61 | 64 5f 74 65 78 74 28 77 |xt$=.rea|d_text(w|
|00003240| 69 6e 64 6f 77 5f 6d 61 | 69 6e 25 2c 6c 6f 6f 70 |indow_ma|in%,loop|
|00003250| 25 29 0d 0f fa 14 20 90 | 03 e7 20 74 65 78 74 24 |%).... .|.. text$|
|00003260| 3c 3e 22 22 20 8c 0d 10 | 04 27 20 90 04 74 65 78 |<>"" ...|.' ..tex|
|00003270| 74 24 3d 22 2a 4b 65 79 | 22 2b c3 28 6c 6f 6f 70 |t$="*Key|"+.(loop|
|00003280| 25 29 2b 22 20 22 2b 74 | 65 78 74 24 0d 10 0e 28 |%)+" "+t|ext$...(|
|00003290| 20 90 04 70 74 72 25 2b | 3d a4 61 64 64 5f 74 6f | ..ptr%+|=.add_to|
|000032a0| 5f 62 75 66 66 65 72 28 | 74 65 78 74 24 2c 70 74 |_buffer(|text$,pt|
|000032b0| 72 25 29 0d 10 18 08 20 | 90 03 cd 0d 10 22 0d 20 |r%).... |.....". |
|000032c0| 20 ed 20 6c 6f 6f 70 25 | 0d 10 2c 0d 20 c9 20 26 | . loop%|..,. . &|
|000032d0| 46 90 03 20 3a 0d 10 36 | 2e 20 20 70 74 72 25 2b |F.. :..6|.  ptr%+|
|000032e0| 3d a4 61 64 64 5f 74 6f | 5f 62 75 66 66 65 72 28 |=.add_to|_buffer(|
|000032f0| 22 5c 54 49 20 22 2b 74 | 69 74 6c 65 24 2c 70 74 |"\TI "+t|itle$,pt|
|00003300| 72 25 29 0d 10 40 14 20 | 20 e3 20 6c 6f 6f 70 25 |r%)..@. | . loop%|
|00003310| 3d 30 20 b8 20 31 35 0d | 10 4a 46 20 90 03 70 74 |=0 . 15.|.JF ..pt|
|00003320| 72 25 2b 3d a4 61 64 64 | 5f 74 6f 5f 62 75 66 66 |r%+=.add|_to_buff|
|00003330| 65 72 28 22 5c 46 4b 20 | 22 2b c3 6c 6f 6f 70 25 |er("\FK |"+.loop%|
|00003340| 2b 22 20 22 2b 6b 65 79 | 73 74 72 69 70 24 28 6c |+" "+key|strip$(l|
|00003350| 6f 6f 70 25 2c 30 29 2c | 70 74 72 25 29 0d 10 54 |oop%,0),|ptr%)..T|
|00003360| 0d 20 20 ed 20 6c 6f 6f | 70 25 0d 10 5e 14 20 20 |.  . loo|p%..^.  |
|00003370| e3 20 6c 6f 6f 70 25 3d | 30 20 b8 20 31 35 0d 10 |. loop%=|0 . 15..|
|00003380| 68 46 20 90 03 70 74 72 | 25 2b 3d a4 61 64 64 5f |hF ..ptr|%+=.add_|
|00003390| 74 6f 5f 62 75 66 66 65 | 72 28 22 5c 46 53 20 22 |to_buffe|r("\FS "|
|000033a0| 2b c3 6c 6f 6f 70 25 2b | 22 20 22 2b 6b 65 79 73 |+.loop%+|" "+keys|
|000033b0| 74 72 69 70 24 28 6c 6f | 6f 70 25 2c 31 29 2c 70 |trip$(lo|op%,1),p|
|000033c0| 74 72 25 29 0d 10 72 0d | 20 20 ed 20 6c 6f 6f 70 |tr%)..r.|  . loop|
|000033d0| 25 0d 10 7c 14 20 20 e3 | 20 6c 6f 6f 70 25 3d 30 |%..|.  .| loop%=0|
|000033e0| 20 b8 20 31 35 0d 10 86 | 46 20 90 03 70 74 72 25 | . 15...|F ..ptr%|
|000033f0| 2b 3d a4 61 64 64 5f 74 | 6f 5f 62 75 66 66 65 72 |+=.add_t|o_buffer|
|00003400| 28 22 5c 46 43 20 22 2b | c3 6c 6f 6f 70 25 2b 22 |("\FC "+|.loop%+"|
|00003410| 20 22 2b 6b 65 79 73 74 | 72 69 70 24 28 6c 6f 6f | "+keyst|rip$(loo|
|00003420| 70 25 2c 32 29 2c 70 74 | 72 25 29 0d 10 90 00 0d |p%,2),pt|r%).....|
|00003430| 20 20 ed 20 6c 6f 6f 70 | 25 0d 10 9a 14 20 20 e3 |  . loop|%....  .|
|00003440| 20 6c 6f 6f 70 25 3d 30 | 20 b8 20 31 35 0d 10 a4 | loop%=0| . 15...|
|00003450| 46 20 90 03 70 74 72 25 | 2b 3d a4 61 64 64 5f 74 |F ..ptr%|+=.add_t|
|00003460| 6f 5f 62 75 66 66 65 72 | 28 22 5c 46 42 20 22 2b |o_buffer|("\FB "+|
|00003470| c3 6c 6f 6f 70 25 2b 22 | 20 22 2b 6b 65 79 73 74 |.loop%+"| "+keyst|
|00003480| 72 69 70 24 28 6c 6f 6f | 70 25 2c 33 29 2c 70 74 |rip$(loo|p%,3),pt|
|00003490| 72 25 29 0d 10 ae 0d 20 | 20 ed 20 6c 6f 6f 70 25 |r%).... | . loop%|
|000034a0| 0d 10 b8 45 20 20 70 74 | 72 25 2b 3d a4 61 64 64 |...E  pt|r%+=.add|
|000034b0| 5f 74 6f 5f 62 75 66 66 | 65 72 28 22 5c 45 4b 20 |_to_buff|er("\EK |
|000034c0| 22 2b c3 28 a4 74 69 63 | 6b 65 64 28 6d 65 6e 75 |"+.(.tic|ked(menu|
|000034d0| 5f 65 78 70 61 6e 64 25 | 2c 30 29 2a 2d 31 29 2c |_expand%|,0)*-1),|
|000034e0| 70 74 72 25 29 0d 10 c2 | 45 20 20 70 74 72 25 2b |ptr%)...|E  ptr%+|
|000034f0| 3d a4 61 64 64 5f 74 6f | 5f 62 75 66 66 65 72 28 |=.add_to|_buffer(|
|00003500| 22 5c 45 53 20 22 2b c3 | 28 a4 74 69 63 6b 65 64 |"\ES "+.|(.ticked|
|00003510| 28 6d 65 6e 75 5f 65 78 | 70 61 6e 64 25 2c 31 29 |(menu_ex|pand%,1)|
|00003520| 2a 2d 31 29 2c 70 74 72 | 25 29 0d 10 cc 45 20 20 |*-1),ptr|%)...E  |
|00003530| 70 74 72 25 2b 3d a4 61 | 64 64 5f 74 6f 5f 62 75 |ptr%+=.a|dd_to_bu|
|00003540| 66 66 65 72 28 22 5c 45 | 43 20 22 2b c3 28 a4 74 |ffer("\E|C "+.(.t|
|00003550| 69 63 6b 65 64 28 6d 65 | 6e 75 5f 65 78 70 61 6e |icked(me|nu_expan|
|00003560| 64 25 2c 32 29 2a 2d 31 | 29 2c 70 74 72 25 29 0d |d%,2)*-1|),ptr%).|
|00003570| 10 d6 45 20 20 70 74 72 | 25 2b 3d a4 61 64 64 5f |..E  ptr|%+=.add_|
|00003580| 74 6f 5f 62 75 66 66 65 | 72 28 22 5c 45 42 20 22 |to_buffe|r("\EB "|
|00003590| 2b c3 28 a4 74 69 63 6b | 65 64 28 6d 65 6e 75 5f |+.(.tick|ed(menu_|
|000035a0| 65 78 70 61 6e 64 25 2c | 33 29 2a 2d 31 29 2c 70 |expand%,|3)*-1),p|
|000035b0| 74 72 25 29 0d 10 e0 22 | 20 20 e7 20 a4 74 69 63 |tr%)..."|  . .tic|
|000035c0| 6b 65 64 28 6d 65 6e 75 | 5f 66 31 31 5f 66 31 33 |ked(menu|_f11_f13|
|000035d0| 25 2c 30 29 20 8c 0d 10 | ea 29 20 90 03 70 74 72 |%,0) ...|.) ..ptr|
|000035e0| 25 2b 3d a4 61 64 64 5f | 74 6f 5f 62 75 66 66 65 |%+=.add_|to_buffe|
|000035f0| 72 28 22 5c 45 54 20 31 | 22 2c 70 74 72 25 29 0d |r("\ET 1|",ptr%).|
|00003600| 10 f4 07 20 20 cc 0d 10 | fe 29 20 90 03 70 74 72 |...  ...|.) ..ptr|
|00003610| 25 2b 3d a4 61 64 64 5f | 74 6f 5f 62 75 66 66 65 |%+=.add_|to_buffe|
|00003620| 72 28 22 5c 45 54 20 32 | 22 2c 70 74 72 25 29 0d |r("\ET 2|",ptr%).|
|00003630| 11 08 07 20 20 cd 0d 11 | 12 05 cb 0d 11 1c 09 3d |...  ...|.......=|
|00003640| 70 74 72 25 0d 11 26 05 | 3a 0d 11 30 1b dd 20 a4 |ptr%..&.|:..0.. .|
|00003650| 61 64 64 5f 74 6f 5f 62 | 75 66 66 65 72 28 6b 24 |add_to_b|uffer(k$|
|00003660| 2c 62 25 29 0d 11 3a 0b | ea 20 6c 6f 6f 70 25 0d |,b%)..:.|. loop%.|
|00003670| 11 44 0f 62 25 2b 3d 62 | 75 66 66 65 72 25 0d 11 |.D.b%+=b|uffer%..|
|00003680| 4e 15 e3 20 6c 6f 6f 70 | 25 3d 31 20 b8 20 a9 28 |N.. loop|%=1 . .(|
|00003690| 6b 24 29 0d 11 58 21 20 | 62 25 3f 28 6c 6f 6f 70 |k$)..X! |b%?(loop|
|000036a0| 25 2d 31 29 3d 97 28 c1 | 6b 24 2c 6c 6f 6f 70 25 |%-1)=.(.|k$,loop%|
|000036b0| 2c 31 29 29 0d 11 62 0b | ed 20 6c 6f 6f 70 25 0d |,1))..b.|. loop%.|
|000036c0| 11 6c 11 62 25 3f 28 a9 | 28 6b 24 29 29 3d 31 30 |.l.b%?(.|(k$))=10|
|000036d0| 0d 11 76 0c 3d a9 28 6b | 24 29 2b 31 0d 11 80 05 |..v.=.(k|$)+1....|
|000036e0| 3a 0d 11 8a 28 dd 20 f2 | 73 61 76 65 5f 63 6c 69 |:...(. .|save_cli|
|000036f0| 63 6b 28 62 75 74 74 6f | 6e 25 2c 77 69 6e 64 6f |ck(butto|n%,windo|
|00003700| 77 25 2c 69 63 6f 6e 25 | 29 0d 11 94 0e c8 8e 20 |w%,icon%|)...... |
|00003710| 69 63 6f 6e 25 20 ca 0d | 11 9e 0a 20 c9 20 31 20 |icon% ..|... . 1 |
|00003720| 3a 0d 11 a8 12 20 20 c8 | 8e 20 77 69 6e 64 6f 77 |:....  .|. window|
|00003730| 25 20 ca 0d 11 b2 45 20 | 90 03 c9 20 77 69 6e 64 |% ....E |... wind|
|00003740| 6f 77 5f 73 61 76 65 31 | 25 20 3a 20 f2 73 61 76 |ow_save1|% : .sav|
|00003750| 65 5f 66 69 6c 65 28 26 | 46 46 45 2c a4 72 65 61 |e_file(&|FFE,.rea|
|00003760| 64 5f 74 65 78 74 28 77 | 69 6e 64 6f 77 5f 73 61 |d_text(w|indow_sa|
|00003770| 76 65 31 25 2c 32 29 29 | 0d 11 bc 45 20 90 03 c9 |ve1%,2))|...E ...|
|00003780| 20 77 69 6e 64 6f 77 5f | 73 61 76 65 32 25 20 3a | window_|save2% :|
|00003790| 20 f2 73 61 76 65 5f 66 | 69 6c 65 28 26 46 90 03 | .save_f|ile(&F..|
|000037a0| 2c a4 72 65 61 64 5f 74 | 65 78 74 28 77 69 6e 64 |,.read_t|ext(wind|
|000037b0| 6f 77 5f 73 61 76 65 32 | 25 2c 32 29 29 0d 11 c6 |ow_save2|%,2))...|
|000037c0| 45 20 90 03 c9 20 77 69 | 6e 64 6f 77 5f 73 61 76 |E ... wi|ndow_sav|
|000037d0| 65 33 25 20 3a 20 f2 73 | 61 76 65 5f 66 69 6c 65 |e3% : .s|ave_file|
|000037e0| 28 26 46 45 42 2c a4 72 | 65 61 64 5f 74 65 78 74 |(&FEB,.r|ead_text|
|000037f0| 28 77 69 6e 64 6f 77 5f | 73 61 76 65 33 25 2c 32 |(window_|save3%,2|
|00003800| 29 29 0d 11 d0 07 20 20 | cb 0d 11 da 28 20 20 e7 |))....  |....(  .|
|00003810| 20 62 75 74 74 6f 6e 25 | 3d 34 20 8c 20 f2 63 72 | button%|=4 . .cr|
|00003820| 65 61 74 65 5f 6d 65 6e | 75 28 2d 31 2c 30 2c 30 |eate_men|u(-1,0,0|
|00003830| 29 0d 11 e4 05 cb 0d 11 | ee 05 e1 0d 11 f8 05 3a |).......|.......:|
|00003840| 0d 12 02 21 dd 20 f2 69 | 6e 70 75 74 5f 63 6c 69 |...!. .i|nput_cli|
|00003850| 63 6b 28 62 75 74 74 6f | 6e 25 2c 69 63 6f 6e 25 |ck(butto|n%,icon%|
|00003860| 29 0d 12 0c 13 ea 20 6f | 66 66 73 65 74 25 2c 6c |)..... o|ffset%,l|
|00003870| 6f 6f 70 25 0d 12 16 0e | c8 8e 20 69 63 6f 6e 25 |oop%....|.. icon%|
|00003880| 20 ca 0d 12 20 90 03 c9 | 20 31 36 2c 31 37 20 3a | ... ...| 16,17 :|
|00003890| 20 f2 75 70 64 61 74 65 | 5f 6b 65 79 5f 73 74 72 | .update|_key_str|
|000038a0| 69 70 0d 12 2a 08 20 7f | 20 3a 0d 12 34 0f 20 20 |ip..*. .| :..4.  |
|000038b0| 6f 66 66 73 65 74 25 3d | 30 0d 12 3e 3a 20 20 e7 |offset%=|0..>:  .|
|000038c0| 20 a4 69 63 6f 6e 5f 73 | 65 74 28 77 69 6e 64 6f | .icon_s|et(windo|
|000038d0| 77 5f 69 6e 70 75 74 25 | 2c 31 36 29 20 84 20 a6 |w_input%|,16) . .|
|000038e0| 28 2d 31 29 20 8c 20 6f | 66 66 73 65 74 25 2b 3d |(-1) . o|ffset%+=|
|000038f0| 26 31 30 0d 12 48 3a 20 | 20 e7 20 a4 69 63 6f 6e |&10..H: | . .icon|
|00003900| 5f 73 65 74 28 77 69 6e | 64 6f 77 5f 69 6e 70 75 |_set(win|dow_inpu|
|00003910| 74 25 2c 31 37 29 20 84 | 20 a6 28 2d 32 29 20 8c |t%,17) .| .(-2) .|
|00003920| 20 6f 66 66 73 65 74 25 | 2b 3d 26 32 30 0d 12 52 | offset%|+=&20..R|
|00003930| 13 20 20 e3 20 6c 6f 6f | 70 25 3d 30 20 b8 20 33 |.  . loo|p%=0 . 3|
|00003940| 0d 12 5c 26 20 90 03 e7 | 20 a4 74 69 63 6b 65 64 |..\& ...| .ticked|
|00003950| 28 6d 65 6e 75 5f 65 78 | 70 61 6e 64 25 2c 6c 6f |(menu_ex|pand%,lo|
|00003960| 6f 70 25 29 20 8c 0d 12 | 66 20 90 05 c8 99 20 22 |op%) ...|f .... "|
|00003970| 4f 53 5f 42 79 74 65 22 | 2c 32 32 31 2b 6c 6f 6f |OS_Byte"|,221+loo|
|00003980| 70 25 2c 31 0d 12 70 20 | 90 05 c8 99 20 22 4f 53 |p%,1..p |.... "OS|
|00003990| 5f 42 79 74 65 22 2c 32 | 32 35 2b 6c 6f 6f 70 25 |_Byte",2|25+loop%|
|000039a0| 2c 31 0d 12 7a 08 20 90 | 03 cc 0d 12 84 20 90 05 |,1..z. .|..... ..|
|000039b0| c8 99 20 22 4f 53 5f 42 | 79 74 65 22 2c 32 32 31 |.. "OS_B|yte",221|
|000039c0| 2b 6c 6f 6f 70 25 2c 32 | 0d 12 8e 20 90 05 c8 99 |+loop%,2|... ....|
|000039d0| 20 22 4f 53 5f 42 79 74 | 65 22 2c 32 32 35 2b 6c | "OS_Byt|e",225+l|
|000039e0| 6f 6f 70 25 2c 32 0d 12 | 98 08 20 90 03 cd 0d 12 |oop%,2..|.. .....|
|000039f0| a2 0d 20 20 ed 20 6c 6f | 6f 70 25 0d 12 ac 0c 20 |..  . lo|op%.... |
|00003a00| 20 c8 8e 20 b9 20 ca 0d | 12 b6 43 20 90 03 c9 20 | .. . ..|..C ... |
|00003a10| 69 63 6f 6e 25 3e 3d 30 | 20 80 20 69 63 6f 6e 25 |icon%>=0| . icon%|
|00003a20| 3c 31 30 20 3a 20 c8 99 | 20 22 4f 53 5f 42 79 74 |<10 : ..| "OS_Byt|
|00003a30| 65 22 2c 31 33 38 2c 30 | 2c 69 63 6f 6e 25 2b 26 |e",138,0|,icon%+&|
|00003a40| 38 30 2b 6f 66 66 73 65 | 74 25 0d 12 c0 45 20 90 |80+offse|t%...E .|
|00003a50| 03 c9 20 69 63 6f 6e 25 | 3d 31 30 20 90 0e 3a 20 |.. icon%|=10 ..: |
|00003a60| c8 99 20 22 4f 53 5f 42 | 79 74 65 22 2c 31 33 38 |.. "OS_B|yte",138|
|00003a70| 2c 30 2c 69 63 6f 6e 25 | 2b 26 43 30 2b 6f 66 66 |,0,icon%|+&C0+off|
|00003a80| 73 65 74 25 0d 12 ca 1e | 20 90 03 c9 20 69 63 6f |set%....| ... ico|
|00003a90| 6e 25 3e 31 30 20 80 20 | 69 63 6f 6e 25 3c 31 34 |n%>10 . |icon%<14|
|00003aa0| 20 3a 0d 12 d4 24 20 90 | 04 e7 20 a4 74 69 63 6b | :...$ .|.. .tick|
|00003ab0| 65 64 28 6d 65 6e 75 5f | 66 31 31 5f 66 31 33 25 |ed(menu_|f11_f13%|
|00003ac0| 2c 30 29 20 8c 0d 12 de | 2d 20 90 05 c8 99 20 22 |,0) ....|- .... "|
|00003ad0| 4f 53 5f 42 79 74 65 22 | 2c 31 33 38 2c 30 2c 69 |OS_Byte"|,138,0,i|
|00003ae0| 63 6f 6e 25 2b 26 43 30 | 2b 6f 66 66 73 65 74 25 |con%+&C0|+offset%|
|00003af0| 0d 12 e8 09 20 90 04 cc | 0d 12 f2 2d 20 90 05 c8 |.... ...|...- ...|
|00003b00| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 31 33 38 2c |. "OS_By|te",138,|
|00003b10| 30 2c 69 63 6f 6e 25 2b | 26 38 30 2b 6f 66 66 73 |0,icon%+|&80+offs|
|00003b20| 65 74 25 0d 12 fc 09 20 | 90 04 cd 0d 13 06 43 20 |et%.... |......C |
|00003b30| 90 03 c9 20 69 63 6f 6e | 25 3e 31 33 20 80 20 69 |... icon|%>13 . i|
|00003b40| 63 6f 6e 25 3c 31 36 20 | 3a 20 c8 99 20 22 4f 53 |con%<16 |: .. "OS|
|00003b50| 5f 42 79 74 65 22 2c 31 | 33 38 2c 30 2c 69 63 6f |_Byte",1|38,0,ico|
|00003b60| 6e 25 2b 26 38 30 2b 6f | 66 66 73 65 74 25 0d 13 |n%+&80+o|ffset%..|
|00003b70| 10 07 20 20 cb 0d 13 1a | 0e 20 20 72 65 73 65 74 |..  ....|.  reset|
|00003b80| 25 3d b9 0d 13 24 05 cb | 0d 13 2e 05 e1 0d 13 38 |%=...$..|.......8|
|00003b90| 05 3a 0d 13 42 21 dd 20 | f2 72 65 73 65 74 5f 63 |.:..B!. |.reset_c|
|00003ba0| 6c 69 63 6b 28 62 75 74 | 74 6f 6e 25 2c 69 63 6f |lick(but|ton%,ico|
|00003bb0| 6e 25 29 0d 13 4c 48 e7 | 20 28 69 63 6f 6e 25 3e |n%)..LH.| (icon%>|
|00003bc0| 31 20 80 20 69 63 6f 6e | 25 3c 31 30 29 20 84 20 |1 . icon|%<10) . |
|00003bd0| 69 63 6f 6e 25 3e 31 31 | 20 8c 20 f2 73 65 74 5f |icon%>11| . .set_|
|00003be0| 69 63 6f 6e 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |icon(win|dow%,ico|
|00003bf0| 6e 25 2c 31 3c 3c 32 31 | 2c 31 29 0d 13 56 0e c8 |n%,1<<21|,1)..V..|
|00003c00| 8e 20 69 63 6f 6e 25 20 | ca 0d 13 60 0a 20 c9 20 |. icon% |...`. . |
|00003c10| 34 20 3a 0d 13 6a 22 20 | 20 f2 73 65 74 5f 69 63 |4 :..j" | .set_ic|
|00003c20| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 30 2c 31 3c 3c |on(windo|w%,0,1<<|
|00003c30| 32 32 2c 31 29 0d 13 74 | 22 20 20 f2 73 65 74 5f |22,1)..t|"  .set_|
|00003c40| 69 63 6f 6e 28 77 69 6e | 64 6f 77 25 2c 31 2c 31 |icon(win|dow%,1,1|
|00003c50| 3c 3c 32 32 2c 31 29 0d | 13 7e 1a 20 20 f2 6d 6f |<<22,1).|.~.  .mo|
|00003c60| 76 65 5f 63 61 72 65 74 | 28 2d 31 2c 2d 31 2c 30 |ve_caret|(-1,-1,0|
|00003c70| 29 0d 13 88 0a 20 c9 20 | 35 20 3a 0d 13 92 22 20 |).... . |5 :..." |
|00003c80| 20 f2 73 65 74 5f 69 63 | 6f 6e 28 77 69 6e 64 6f | .set_ic|on(windo|
|00003c90| 77 25 2c 30 2c 31 3c 3c | 32 32 2c 32 29 0d 13 9c |w%,0,1<<|22,2)...|
|00003ca0| 22 20 20 f2 73 65 74 5f | 69 63 6f 6e 28 77 69 6e |"  .set_|icon(win|
|00003cb0| 64 6f 77 25 2c 31 2c 31 | 3c 3c 32 32 2c 32 29 0d |dow%,1,1|<<22,2).|
|00003cc0| 13 a6 1f 20 20 f2 6d 6f | 76 65 5f 63 61 72 65 74 |...  .mo|ve_caret|
|00003cd0| 28 77 69 6e 64 6f 77 25 | 2c 30 2c 2d 31 29 0d 13 |(window%|,0,-1)..|
|00003ce0| b0 0a 20 c9 20 32 20 3a | 0d 13 ba 22 20 20 f2 63 |.. . 2 :|..."  .c|
|00003cf0| 6c 6f 73 65 5f 77 69 6e | 64 6f 77 28 77 69 6e 64 |lose_win|dow(wind|
|00003d00| 6f 77 5f 72 65 73 65 74 | 25 29 0d 13 c4 0a 20 c9 |ow_reset|%).... .|
|00003d10| 20 33 20 3a 0d 13 ce 1f | 20 20 f2 72 65 73 65 74 | 3 :....|  .reset|
|00003d20| 5f 6b 65 79 5f 73 74 72 | 69 70 28 62 75 74 74 6f |_key_str|ip(butto|
|00003d30| 6e 25 29 0d 13 d8 05 cb | 0d 13 e2 05 e1 0d 13 ec |n%).....|........|
|00003d40| 05 3a 0d 13 f6 23 dd 20 | f2 6b 65 79 65 64 69 74 |.:...#. |.keyedit|
|00003d50| 5f 63 6c 69 63 6b 28 62 | 75 74 74 6f 6e 25 2c 69 |_click(b|utton%,i|
|00003d60| 63 6f 6e 25 29 0d 14 00 | 0e c8 8e 20 69 63 6f 6e |con%)...|... icon|
|00003d70| 25 20 ca 0d 14 0a 0b 20 | c9 20 36 34 20 3a 0d 14 |% ..... |. 64 :..|
|00003d80| 90 03 20 20 e3 20 6c 6f | 6f 70 25 3d 30 20 b8 20 |..  . lo|op%=0 . |
|00003d90| 36 33 0d 14 1e 49 20 90 | 03 6b 65 79 73 74 72 69 |63...I .|.keystri|
|00003da0| 70 24 28 6c 6f 6f 70 25 | 20 83 20 31 36 2c 6c 6f |p$(loop%| . 16,lo|
|00003db0| 6f 70 25 20 81 20 31 36 | 29 3d a4 72 65 61 64 5f |op% . 16|)=.read_|
|00003dc0| 74 65 78 74 28 77 69 6e | 64 6f 77 5f 6b 65 79 65 |text(win|dow_keye|
|00003dd0| 64 69 74 25 2c 6c 6f 6f | 70 25 29 0d 14 28 0d 20 |dit%,loo|p%)..(. |
|00003de0| 20 ed 20 6c 6f 6f 70 25 | 0d 14 32 17 20 20 f2 75 | . loop%|..2.  .u|
|00003df0| 70 64 61 74 65 5f 6b 65 | 79 5f 73 74 72 69 70 0d |pdate_ke|y_strip.|
|00003e00| 14 3c 0b 20 c9 20 36 35 | 20 3a 0d 14 46 13 20 20 |.<. . 65| :..F.  |
|00003e10| e7 20 62 75 74 74 6f 6e | 25 3d 31 20 8c 0d 14 50 |. button|%=1 ...P|
|00003e20| 15 20 90 03 e3 20 6c 6f | 6f 70 25 3d 30 20 b8 20 |. ... lo|op%=0 . |
|00003e30| 36 33 0d 14 5a 4c 20 90 | 04 f2 63 68 61 6e 67 65 |63..ZL .|..change|
|00003e40| 5f 74 65 78 74 28 77 69 | 6e 64 6f 77 5f 6b 65 79 |_text(wi|ndow_key|
|00003e50| 65 64 69 74 25 2c 6c 6f | 6f 70 25 2c 6b 65 79 73 |edit%,lo|op%,keys|
|00003e60| 74 72 69 70 24 28 6c 6f | 6f 70 25 20 83 20 31 36 |trip$(lo|op% . 16|
|00003e70| 2c 6c 6f 6f 70 25 20 81 | 20 31 36 29 29 0d 14 64 |,loop% .| 16))..d|
|00003e80| 0e 20 90 03 ed 20 6c 6f | 6f 70 25 0d 14 6e 07 20 |. ... lo|op%..n. |
|00003e90| 20 cd 0d 14 78 0a 20 7f | 20 3a 20 e1 0d 14 82 05 | ...x. .| : .....|
|00003ea0| cb 0d 14 8c 11 e7 20 62 | 75 74 74 6f 6e 25 3d 34 |...... b|utton%=4|
|00003eb0| 20 8c 0d 14 96 23 20 f2 | 63 6c 6f 73 65 5f 77 69 | ....# .|close_wi|
|00003ec0| 6e 64 6f 77 28 77 69 6e | 64 6f 77 5f 6b 65 79 65 |ndow(win|dow_keye|
|00003ed0| 64 69 74 25 29 0d 14 a0 | 20 20 f2 6f 70 65 6e 5f |dit%)...|  .open_|
|00003ee0| 77 69 6e 64 6f 77 28 77 | 69 6e 64 6f 77 5f 69 6e |window(w|indow_in|
|00003ef0| 70 75 74 25 29 0d 14 aa | 22 20 f2 64 65 73 65 6c |put%)...|" .desel|
|00003f00| 65 63 74 28 6d 65 6e 75 | 5f 6b 65 79 73 74 72 69 |ect(menu|_keystri|
|00003f10| 70 25 2c 36 2c 32 29 0d | 14 b4 05 cd 0d 14 be 05 |p%,6,2).|........|
|00003f20| e1 0d 14 c8 05 3a 0d 14 | d2 1c dd 20 f2 6d 61 69 |.....:..|... .mai|
|00003f30| 6e 5f 6b 65 79 73 28 69 | 63 6f 6e 25 2c 6b 65 79 |n_keys(i|con%,key|
|00003f40| 25 29 0d 14 dc 0d c8 8e | 20 6b 65 79 25 20 ca 0d |%)......| key% ..|
|00003f50| 14 e6 2a 20 c9 20 26 31 | 45 20 90 05 3a 20 f2 6d |..* . &1|E ..: .m|
|00003f60| 6f 76 65 5f 63 61 72 65 | 74 28 77 69 6e 64 6f 77 |ove_care|t(window|
|00003f70| 25 2c 30 2c 2d 32 29 0d | 14 f0 37 20 c9 20 26 44 |%,0,-2).|..7 . &D|
|00003f80| 2c 26 31 38 45 20 3a 20 | f2 6d 6f 76 65 5f 63 61 |,&18E : |.move_ca|
|00003f90| 72 65 74 28 77 69 6e 64 | 6f 77 25 2c 28 69 63 6f |ret(wind|ow%,(ico|
|00003fa0| 6e 25 2b 31 29 20 83 20 | 31 36 2c 2d 32 29 0d 14 |n%+1) . |16,-2)..|
|00003fb0| fa 38 20 c9 20 26 31 38 | 46 20 90 04 3a 20 f2 6d |.8 . &18|F ..: .m|
|00003fc0| 6f 76 65 5f 63 61 72 65 | 74 28 77 69 6e 64 6f 77 |ove_care|t(window|
|00003fd0| 25 2c 28 69 63 6f 6e 25 | 2b 31 35 29 20 83 20 31 |%,(icon%|+15) . 1|
|00003fe0| 36 2c 2d 32 29 0d 15 04 | 25 20 7f 20 90 04 3a 20 |6,-2)...|% . ..: |
|00003ff0| c8 99 20 22 57 69 6d 70 | 5f 50 72 6f 63 65 73 73 |.. "Wimp|_Process|
|00004000| 4b 65 79 22 2c 6b 65 79 | 25 0d 15 0e 05 cb 0d 15 |Key",key|%.......|
|00004010| 18 05 e1 0d 15 22 05 3a | 0d 15 2c 20 dd 20 f2 6b |.....".:|.., . .k|
|00004020| 65 79 73 74 72 69 70 5f | 6b 65 79 73 28 69 63 6f |eystrip_|keys(ico|
|00004030| 6e 25 2c 6b 65 79 25 29 | 0d 15 36 0d c8 8e 20 6b |n%,key%)|..6... k|
|00004040| 65 79 25 20 ca 0d 15 40 | 38 20 c9 20 26 44 2c 26 |ey% ...@|8 . &D,&|
|00004050| 31 38 45 20 20 3a 20 f2 | 6d 6f 76 65 5f 63 61 72 |18E  : .|move_car|
|00004060| 65 74 28 77 69 6e 64 6f | 77 25 2c 28 69 63 6f 6e |et(windo|w%,(icon|
|00004070| 25 2b 31 29 20 83 20 36 | 34 2c 2d 32 29 0d 15 4a |%+1) . 6|4,-2)..J|
|00004080| 39 20 c9 20 26 31 38 46 | 20 90 05 3a 20 f2 6d 6f |9 . &18F| ..: .mo|
|00004090| 76 65 5f 63 61 72 65 74 | 28 77 69 6e 64 6f 77 25 |ve_caret|(window%|
|000040a0| 2c 28 69 63 6f 6e 25 2b | 36 33 29 20 83 20 36 34 |,(icon%+|63) . 64|
|000040b0| 2c 2d 32 29 0d 15 54 39 | 20 c9 20 26 31 39 43 20 |,-2)..T9| . &19C |
|000040c0| 90 05 3a 20 f2 6d 6f 76 | 65 5f 63 61 72 65 74 28 |..: .mov|e_caret(|
|000040d0| 77 69 6e 64 6f 77 25 2c | 28 69 63 6f 6e 25 2b 34 |window%,|(icon%+4|
|000040e0| 38 29 20 83 20 36 34 2c | 2d 32 29 0d 15 5e 39 20 |8) . 64,|-2)..^9 |
|000040f0| c9 20 26 31 39 44 20 90 | 05 3a 20 f2 6d 6f 76 65 |. &19D .|.: .move|
|00004100| 5f 63 61 72 65 74 28 77 | 69 6e 64 6f 77 25 2c 28 |_caret(w|indow%,(|
|00004110| 69 63 6f 6e 25 2b 31 36 | 29 20 83 20 36 34 2c 2d |icon%+16|) . 64,-|
|00004120| 32 29 0d 15 68 3c 20 c9 | 20 26 31 39 45 20 90 05 |2)..h< .| &19E ..|
|00004130| 3a 20 f2 6d 6f 76 65 5f | 63 61 72 65 74 28 77 69 |: .move_|caret(wi|
|00004140| 6e 64 6f 77 25 2c 28 69 | 63 6f 6e 25 20 81 20 31 |ndow%,(i|con% . 1|
|00004150| 36 29 2a 31 36 2b 31 35 | 2c 2d 32 29 0d 15 72 39 |6)*16+15|,-2)..r9|
|00004160| 20 c9 20 26 31 39 46 20 | 90 05 3a 20 f2 6d 6f 76 | . &19F |..: .mov|
|00004170| 65 5f 63 61 72 65 74 28 | 77 69 6e 64 6f 77 25 2c |e_caret(|window%,|
|00004180| 28 69 63 6f 6e 25 20 81 | 20 31 36 29 2a 31 36 2c |(icon% .| 16)*16,|
|00004190| 2d 32 29 0d 15 7c 2b 20 | c9 20 26 31 45 2c 26 31 |-2)..|+ |. &1E,&1|
|000041a0| 41 46 20 3a 20 f2 6d 6f | 76 65 5f 63 61 72 65 74 |AF : .mo|ve_caret|
|000041b0| 28 77 69 6e 64 6f 77 25 | 2c 30 2c 2d 32 29 0d 15 |(window%|,0,-2)..|
|000041c0| 86 2c 20 c9 20 26 31 41 | 45 20 90 05 3a 20 f2 6d |., . &1A|E ..: .m|
|000041d0| 6f 76 65 5f 63 61 72 65 | 74 28 77 69 6e 64 6f 77 |ove_care|t(window|
|000041e0| 25 2c 36 33 2c 2d 32 29 | 0d 15 90 00 34 20 c9 20 |%,63,-2)|....4 . |
|000041f0| 26 31 42 43 20 90 05 3a | 20 f2 6d 6f 76 65 5f 63 |&1BC ..:| .move_c|
|00004200| 61 72 65 74 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |aret(win|dow%,ico|
|00004210| 6e 25 20 83 20 31 36 2c | 2d 32 29 0d 15 9a 39 20 |n% . 16,|-2)...9 |
|00004220| c9 20 26 31 42 44 20 90 | 05 3a 20 f2 6d 6f 76 65 |. &1BD .|.: .move|
|00004230| 5f 63 61 72 65 74 28 77 | 69 6e 64 6f 77 25 2c 28 |_caret(w|indow%,(|
|00004240| 69 63 6f 6e 25 20 83 20 | 31 36 29 2b 34 38 2c 2d |icon% . |16)+48,-|
|00004250| 32 29 0d 15 a4 26 20 7f | 20 90 05 3a 20 c8 99 20 |2)...& .| ..: .. |
|00004260| 22 57 69 6d 70 5f 50 72 | 6f 63 65 73 73 4b 65 79 |"Wimp_Pr|ocessKey|
|00004270| 22 2c 6b 65 79 25 0d 15 | ae 05 cb 0d 15 b8 05 e1 |",key%..|........|
|00004280| 0d 15 c2 05 3a 0d 15 cc | 1d dd 20 f2 72 65 73 65 |....:...|.. .rese|
|00004290| 74 5f 6b 65 79 73 28 69 | 63 6f 6e 25 2c 6b 65 79 |t_keys(i|con%,key|
|000042a0| 25 29 0d 15 d6 0d c8 8e | 20 6b 65 79 25 20 ca 0d |%)......| key% ..|
|000042b0| 15 e0 12 20 c9 20 26 44 | 20 90 08 3a 0d 15 ea 2b |... . &D| ..:...+|
|000042c0| 20 20 f2 6d 6f 76 65 5f | 63 61 72 65 74 28 77 69 |  .move_|caret(wi|
|000042d0| 6e 64 6f 77 25 2c 28 69 | 63 6f 6e 25 2b 31 29 20 |ndow%,(i|con%+1) |
|000042e0| 83 20 32 2c 2d 31 29 0d | 15 f4 25 20 20 e7 20 69 |. 2,-1).|..%  . i|
|000042f0| 63 6f 6e 25 3d 31 20 8c | 20 f2 72 65 73 65 74 5f |con%=1 .| .reset_|
|00004300| 6b 65 79 5f 73 74 72 69 | 70 28 34 29 0d 15 fe 38 |key_stri|p(4)...8|
|00004310| 20 c9 20 26 31 38 45 2c | 26 31 38 46 20 3a 20 f2 | . &18E,|&18F : .|
|00004320| 6d 6f 76 65 5f 63 61 72 | 65 74 28 77 69 6e 64 6f |move_car|et(windo|
|00004330| 77 25 2c 28 69 63 6f 6e | 25 2b 31 29 20 83 20 32 |w%,(icon|%+1) . 2|
|00004340| 2c 2d 31 29 0d 16 08 27 | 20 7f 20 90 06 3a 20 c8 |,-1)...'| . ..: .|
|00004350| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00004360| 65 79 22 2c 6b 65 79 25 | 0d 16 12 05 cb 0d 16 1c |ey",key%|........|
|00004370| 05 e1 0d 16 26 05 3a 0d | 16 30 1e dd 20 f2 73 61 |....&.:.|.0.. .sa|
|00004380| 76 65 5f 6b 65 79 73 28 | 77 69 6e 64 6f 77 25 2c |ve_keys(|window%,|
|00004390| 6b 65 79 25 29 0d 16 3a | 0d c8 8e 20 6b 65 79 25 |key%)..:|... key%|
|000043a0| 20 ca 0d 16 44 0d 20 c9 | 20 26 44 20 90 03 3a 0d | ...D. .| &D ..:.|
|000043b0| 16 4e 12 20 20 c8 8e 20 | 77 69 6e 64 6f 77 25 20 |.N.  .. |window% |
|000043c0| ca 0d 16 58 18 20 90 03 | c9 20 77 69 6e 64 6f 77 |...X. ..|. window|
|000043d0| 5f 73 61 76 65 31 25 20 | 3a 0d 16 62 34 20 90 04 |_save1% |:..b4 ..|
|000043e0| f2 73 61 76 65 5f 66 69 | 6c 65 28 26 46 46 45 2c |.save_fi|le(&FFE,|
|000043f0| a4 72 65 61 64 5f 74 65 | 78 74 28 77 69 6e 64 6f |.read_te|xt(windo|
|00004400| 77 5f 73 61 76 65 31 25 | 2c 32 29 29 0d 16 6c 18 |w_save1%|,2))..l.|
|00004410| 20 90 03 c9 20 77 69 6e | 64 6f 77 5f 73 61 76 65 | ... win|dow_save|
|00004420| 32 25 20 3a 0d 16 76 34 | 20 90 04 f2 73 61 76 65 |2% :..v4| ...save|
|00004430| 5f 66 69 6c 65 28 26 46 | 90 03 2c a4 72 65 61 64 |_file(&F|..,.read|
|00004440| 5f 74 65 78 74 28 77 69 | 6e 64 6f 77 5f 73 61 76 |_text(wi|ndow_sav|
|00004450| 65 32 25 2c 32 29 29 0d | 16 80 18 20 90 03 c9 20 |e2%,2)).|... ... |
|00004460| 77 69 6e 64 6f 77 5f 73 | 61 76 65 33 25 20 3a 0d |window_s|ave3% :.|
|00004470| 16 8a 34 20 90 04 f2 73 | 61 76 65 5f 66 69 6c 65 |..4 ...s|ave_file|
|00004480| 28 26 46 45 42 2c a4 72 | 65 61 64 5f 74 65 78 74 |(&FEB,.r|ead_text|
|00004490| 28 77 69 6e 64 6f 77 5f | 73 61 76 65 33 25 2c 32 |(window_|save3%,2|
|000044a0| 29 29 0d 16 94 07 20 20 | cb 0d 16 9e 1a 20 20 f2 |))....  |.....  .|
|000044b0| 63 72 65 61 74 65 5f 6d | 65 6e 75 28 2d 31 2c 30 |create_m|enu(-1,0|
|000044c0| 2c 30 29 0d 16 a8 22 20 | 7f 20 3a 20 c8 99 20 22 |,0)..." |. : .. "|
|000044d0| 57 69 6d 70 5f 50 72 6f | 63 65 73 73 4b 65 79 22 |Wimp_Pro|cessKey"|
|000044e0| 2c 6b 65 79 25 0d 16 b2 | 05 cb 0d 16 bc 05 e1 0d |,key%...|........|
|000044f0| 16 c6 05 3a 0d 16 d0 16 | dd 20 a4 77 69 6e 64 6f |...:....|. .windo|
|00004500| 77 28 77 69 6e 64 6f 77 | 24 29 0d 16 da 0d ea 20 |w(window|$)..... |
|00004510| 68 61 6e 64 6c 65 25 0d | 16 e4 4c c8 99 20 22 57 |handle%.|..L.. "W|
|00004520| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00004530| 22 2c 2c 62 6c 6f 63 6b | 25 2c 63 75 72 77 73 25 |",,block|%,curws%|
|00004540| 2c 77 73 25 2b 6d 61 78 | 77 73 25 2c 2d 31 2c 77 |,ws%+max|ws%,-1,w|
|00004550| 69 6e 64 6f 77 24 2c 30 | 20 b8 20 2c 2c 63 75 72 |indow$,0| . ,,cur|
|00004560| 77 73 25 0d 16 ee 2c c8 | 99 20 22 57 69 6d 70 5f |ws%...,.|. "Wimp_|
|00004570| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00004580| 6c 6f 63 6b 25 20 b8 20 | 68 61 6e 64 6c 65 25 0d |lock% . |handle%.|
|00004590| 16 f8 0c 3d 68 61 6e 64 | 6c 65 25 0d 17 02 05 3a |...=hand|le%....:|
|000045a0| 0d 17 0c 14 dd 20 a4 6f | 70 65 6e 28 68 61 6e 64 |..... .o|pen(hand|
|000045b0| 6c 65 25 29 0d 17 16 14 | 62 6c 6f 63 6b 25 21 30 |le%)....|block%!0|
|000045c0| 3d 68 61 6e 64 6c 65 25 | 0d 17 20 24 c8 99 20 22 |=handle%|.. $.. "|
|000045d0| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|000045e0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 17 2a 20 |ate",,bl|ock%..* |
|000045f0| e7 20 28 62 6c 6f 63 6b | 25 21 33 32 20 80 20 31 |. (block|%!32 . 1|
|00004600| 3c 3c 31 36 29 3d 30 20 | 8c 20 3d a3 0d 17 34 06 |<<16)=0 |. =...4.|
|00004610| 3d b9 0d 17 3e 05 3a 0d | 17 48 30 dd 20 a4 69 63 |=...>.:.|.H0. .ic|
|00004620| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 78 25 2c 79 25 |on(windo|w%,x%,y%|
|00004630| 2c 77 25 2c 68 25 2c 66 | 6c 61 67 25 2c 73 70 25 |,w%,h%,f|lag%,sp%|
|00004640| 2c 74 65 78 74 24 29 0d | 17 52 10 ea 20 70 74 72 |,text$).|.R.. ptr|
|00004650| 25 2c 69 63 6f 6e 25 0d | 17 5c 1f e7 20 74 65 78 |%,icon%.|.\.. tex|
|00004660| 74 24 3d 22 22 20 8c 20 | 74 65 78 74 24 3d c4 32 |t$="" . |text$=.2|
|00004670| 35 34 2c bd 30 29 0d 17 | 66 19 70 74 72 25 3d a4 |54,.0)..|f.ptr%=.|
|00004680| 61 64 64 5f 64 61 74 61 | 28 74 65 78 74 24 29 0d |add_data|(text$).|
|00004690| 17 70 13 24 62 6c 6f 63 | 6b 25 3d c4 33 36 2c bd |.p.$bloc|k%=.36,.|
|000046a0| 30 29 0d 17 7a 15 62 6c | 6f 63 6b 25 21 30 30 3d |0)..z.bl|ock%!00=|
|000046b0| 77 69 6e 64 6f 77 25 0d | 17 84 10 62 6c 6f 63 6b |window%.|...block|
|000046c0| 25 21 30 34 3d 78 25 0d | 17 8e 11 62 6c 6f 63 6b |%!04=x%.|...block|
|000046d0| 25 21 30 38 3d 2d 79 25 | 0d 17 98 13 62 6c 6f 63 |%!08=-y%|....bloc|
|000046e0| 6b 25 21 31 32 3d 78 25 | 2b 77 25 0d 17 a2 14 62 |k%!12=x%|+w%....b|
|000046f0| 6c 6f 63 6b 25 21 31 36 | 3d 2d 79 25 2b 68 25 0d |lock%!16|=-y%+h%.|
|00004700| 17 ac 13 62 6c 6f 63 6b | 25 21 32 30 3d 66 6c 61 |...block|%!20=fla|
|00004710| 67 25 0d 17 b6 12 62 6c | 6f 63 6b 25 21 32 34 3d |g%....bl|ock%!24=|
|00004720| 70 74 72 25 0d 17 c0 11 | 62 6c 6f 63 6b 25 21 32 |ptr%....|block%!2|
|00004730| 38 3d 73 70 25 0d 17 ca | 18 62 6c 6f 63 6b 25 21 |8=sp%...|.block%!|
|00004740| 33 32 3d a9 28 74 65 78 | 74 24 29 2b 31 0d 17 d4 |32=.(tex|t$)+1...|
|00004750| 28 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |(.. "Wim|p_Create|
|00004760| 49 63 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |Icon",,b|lock% . |
|00004770| 69 63 6f 6e 25 0d 17 de | 0a 3d 69 63 6f 6e 25 0d |icon%...|.=icon%.|
|00004780| 17 e8 05 3a 0d 17 f2 1f | dd 20 a4 72 65 61 64 5f |...:....|. .read_|
|00004790| 74 65 78 74 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |text(win|dow%,ico|
|000047a0| 6e 25 29 0d 17 fc 14 62 | 6c 6f 63 6b 25 21 30 3d |n%)....b|lock%!0=|
|000047b0| 77 69 6e 64 6f 77 25 0d | 18 06 12 62 6c 6f 63 6b |window%.|...block|
|000047c0| 25 21 34 3d 69 63 6f 6e | 25 0d 18 10 22 c8 99 20 |%!4=icon|%...".. |
|000047d0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000047e0| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 18 1a 11 3d |te",,blo|ck%....=|
|000047f0| 24 28 62 6c 6f 63 6b 25 | 21 32 38 29 0d 18 24 05 |$(block%|!28)..$.|
|00004800| 3a 0d 18 2e 27 dd 20 f2 | 63 68 61 6e 67 65 5f 74 |:...'. .|change_t|
|00004810| 65 78 74 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |ext(wind|ow%,icon|
|00004820| 25 2c 74 65 78 74 24 29 | 0d 18 38 14 62 6c 6f 63 |%,text$)|..8.bloc|
|00004830| 6b 25 21 30 3d 77 69 6e | 64 6f 77 25 0d 18 42 12 |k%!0=win|dow%..B.|
|00004840| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 6f 6e 25 0d 18 |block%!4|=icon%..|
|00004850| 4c 22 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |L".. "Wi|mp_GetIc|
|00004860| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00004870| 0d 18 56 26 24 28 62 6c | 6f 63 6b 25 21 32 38 29 |..V&$(bl|ock%!28)|
|00004880| 3d c0 74 65 78 74 24 2c | 28 62 6c 6f 63 6b 25 21 |=.text$,|(block%!|
|00004890| 33 36 2d 31 29 29 0d 18 | 60 0e 62 6c 6f 63 6b 25 |36-1))..|`.block%|
|000048a0| 21 38 3d 30 0d 18 6a 0f | 62 6c 6f 63 6b 25 21 31 |!8=0..j.|block%!1|
|000048b0| 32 3d 30 0d 18 74 22 c8 | 99 20 22 57 69 6d 70 5f |2=0..t".|. "Wimp_|
|000048c0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|000048d0| 6c 6f 63 6b 25 0d 18 7e | 05 e1 0d 18 88 05 3a 0d |lock%..~|......:.|
|000048e0| 18 92 2b dd 20 f2 73 65 | 74 5f 69 63 6f 6e 28 77 |..+. .se|t_icon(w|
|000048f0| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 62 69 74 |indow%,i|con%,bit|
|00004900| 25 2c 63 68 61 6e 67 65 | 25 29 0d 18 9c 14 62 6c |%,change|%)....bl|
|00004910| 6f 63 6b 25 21 30 3d 77 | 69 6e 64 6f 77 25 0d 18 |ock%!0=w|indow%..|
|00004920| a6 12 62 6c 6f 63 6b 25 | 21 34 3d 69 63 6f 6e 25 |..block%|!4=icon%|
|00004930| 0d 18 b0 10 c8 8e 20 63 | 68 61 6e 67 65 25 20 ca |...... c|hange% .|
|00004940| 0d 18 ba 29 20 c9 20 31 | 20 3a 20 62 6c 6f 63 6b |...) . 1| : block|
|00004950| 25 21 38 3d 62 69 74 25 | 20 3a 20 62 6c 6f 63 6b |%!8=bit%| : block|
|00004960| 25 21 31 32 3d 62 69 74 | 25 0d 18 c4 29 20 c9 20 |%!12=bit|%...) . |
|00004970| 32 20 3a 20 62 6c 6f 63 | 6b 25 21 38 3d 30 20 90 |2 : bloc|k%!8=0 .|
|00004980| 04 3a 20 62 6c 6f 63 6b | 25 21 31 32 3d 62 69 74 |.: block|%!12=bit|
|00004990| 25 0d 18 ce 26 20 c9 20 | 33 20 3a 20 62 6c 6f 63 |%...& . |3 : bloc|
|000049a0| 6b 25 21 38 3d 62 69 74 | 25 20 3a 20 62 6c 6f 63 |k%!8=bit|% : bloc|
|000049b0| 6b 25 21 31 32 3d 30 0d | 18 d8 05 cb 0d 18 e2 22 |k%!12=0.|......."|
|000049c0| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|000049d0| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 18 |State",,|block%..|
|000049e0| ec 05 e1 0d 18 f6 05 3a | 0d 19 00 1e dd 20 a4 69 |.......:|..... .i|
|000049f0| 63 6f 6e 5f 73 65 74 28 | 77 69 6e 64 6f 77 25 2c |con_set(|window%,|
|00004a00| 69 63 6f 6e 25 29 0d 19 | 0a 14 62 6c 6f 63 6b 25 |icon%)..|..block%|
|00004a10| 21 30 3d 77 69 6e 64 6f | 77 25 0d 19 14 12 62 6c |!0=windo|w%....bl|
|00004a20| 6f 63 6b 25 21 34 3d 69 | 63 6f 6e 25 0d 19 1e 22 |ock%!4=i|con%..."|
|00004a30| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00004a40| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 19 |State",,|block%..|
|00004a50| 28 21 e7 20 28 62 6c 6f | 63 6b 25 21 32 34 20 80 |(!. (blo|ck%!24 .|
|00004a60| 20 31 3c 3c 32 31 29 3c | 3e 30 20 8c 20 3d b9 0d | 1<<21)<|>0 . =..|
|00004a70| 19 32 06 3d a3 0d 19 3c | 05 3a 0d 19 46 25 dd 20 |.2.=...<|.:..F%. |
|00004a80| f2 6d 6f 76 65 5f 63 61 | 72 65 74 28 77 69 6e 64 |.move_ca|ret(wind|
|00004a90| 6f 77 25 2c 69 63 6f 6e | 25 2c 70 6f 73 25 29 0d |ow%,icon|%,pos%).|
|00004aa0| 19 50 0c ea 20 69 6e 64 | 65 78 25 0d 19 5a 26 c8 |.P.. ind|ex%..Z&.|
|00004ab0| 99 20 22 57 69 6d 70 5f | 47 65 74 43 61 72 65 74 |. "Wimp_|GetCaret|
|00004ac0| 50 6f 73 69 74 69 6f 6e | 22 2c 2c 62 6c 6f 63 6b |Position|",,block|
|00004ad0| 25 0d 19 64 14 69 6e 64 | 65 78 25 3d 62 6c 6f 63 |%..d.ind|ex%=bloc|
|00004ae0| 6b 25 21 32 30 0d 19 6e | 0d c8 8e 20 70 6f 73 25 |k%!20..n|... pos%|
|00004af0| 20 ca 0d 19 78 0b 20 c9 | 20 2d 31 20 3a 0d 19 82 | ...x. .| -1 :...|
|00004b00| 27 20 20 70 6f 73 25 3d | a9 28 a4 72 65 61 64 5f |'  pos%=|.(.read_|
|00004b10| 74 65 78 74 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |text(win|dow%,ico|
|00004b20| 6e 25 29 29 0d 19 8c 0b | 20 c9 20 2d 32 20 3a 0d |n%))....| . -2 :.|
|00004b30| 19 96 2d 20 20 e7 20 69 | 6e 64 65 78 25 3e a9 28 |..-  . i|ndex%>.(|
|00004b40| a4 72 65 61 64 5f 74 65 | 78 74 28 77 69 6e 64 6f |.read_te|xt(windo|
|00004b50| 77 25 2c 69 63 6f 6e 25 | 29 29 20 8c 0d 19 a0 28 |w%,icon%|)) ....(|
|00004b60| 20 90 03 70 6f 73 25 3d | a9 28 a4 72 65 61 64 5f | ..pos%=|.(.read_|
|00004b70| 74 65 78 74 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |text(win|dow%,ico|
|00004b80| 6e 25 29 29 0d 19 aa 07 | 20 20 cc 0d 19 b4 12 20 |n%))....|  ..... |
|00004b90| 90 03 70 6f 73 25 3d 69 | 6e 64 65 78 25 0d 19 be |..pos%=i|ndex%...|
|00004ba0| 07 20 20 cd 0d 19 c8 05 | cb 0d 19 d2 38 c8 99 20 |.  .....|....8.. |
|00004bb0| 22 57 69 6d 70 5f 53 65 | 74 43 61 72 65 74 50 6f |"Wimp_Se|tCaretPo|
|00004bc0| 73 69 74 69 6f 6e 22 2c | 77 69 6e 64 6f 77 25 2c |sition",|window%,|
|00004bd0| 69 63 6f 6e 25 2c 30 2c | 30 2c 2d 31 2c 70 6f 73 |icon%,0,|0,-1,pos|
|00004be0| 25 0d 19 dc 05 e1 0d 19 | e6 05 3a 0d 19 f0 1a dd |%.......|..:.....|
|00004bf0| 20 f2 64 72 61 67 28 77 | 69 6e 64 6f 77 25 2c 69 | .drag(w|indow%,i|
|00004c00| 63 6f 6e 25 29 0d 19 fa | 0b ea 20 78 25 2c 79 25 |con%)...|.. x%,y%|
|00004c10| 0d 1a 04 14 62 6c 6f 63 | 6b 25 21 30 3d 77 69 6e |....bloc|k%!0=win|
|00004c20| 64 6f 77 25 0d 1a 0e 24 | c8 99 20 22 57 69 6d 70 |dow%...$|.. "Wimp|
|00004c30| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00004c40| 2c 2c 62 6c 6f 63 6b 25 | 0d 1a 18 19 78 25 3d 62 |,,block%|....x%=b|
|00004c50| 6c 6f 63 6b 25 21 34 2d | 62 6c 6f 63 6b 25 21 32 |lock%!4-|block%!2|
|00004c60| 30 0d 1a 22 1a 79 25 3d | 62 6c 6f 63 6b 25 21 31 |0..".y%=|block%!1|
|00004c70| 36 2d 62 6c 6f 63 6b 25 | 21 32 34 0d 1a 2c 12 62 |6-block%|!24..,.b|
|00004c80| 6c 6f 63 6b 25 21 34 3d | 69 63 6f 6e 25 0d 1a 36 |lock%!4=|icon%..6|
|00004c90| 22 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |".. "Wim|p_GetIco|
|00004ca0| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 0d |nState",|,block%.|
|00004cb0| 1a 40 15 62 6c 6f 63 6b | 25 21 30 30 3d 77 69 6e |.@.block|%!00=win|
|00004cc0| 64 6f 77 25 0d 1a 4a 0f | 62 6c 6f 63 6b 25 21 30 |dow%..J.|block%!0|
|00004cd0| 34 3d 35 0d 1a 54 11 62 | 6c 6f 63 6b 25 21 30 38 |4=5..T.b|lock%!08|
|00004ce0| 2b 3d 78 25 0d 1a 5e 11 | 62 6c 6f 63 6b 25 21 31 |+=x%..^.|block%!1|
|00004cf0| 32 2b 3d 79 25 0d 1a 68 | 11 62 6c 6f 63 6b 25 21 |2+=y%..h|.block%!|
|00004d00| 31 36 2b 3d 78 25 0d 1a | 72 11 62 6c 6f 63 6b 25 |16+=x%..|r.block%|
|00004d10| 21 32 30 2b 3d 79 25 0d | 1a 7c 0f 62 6c 6f 63 6b |!20+=y%.|.|.block|
|00004d20| 25 21 32 34 3d 30 0d 1a | 86 0f 62 6c 6f 63 6b 25 |%!24=0..|..block%|
|00004d30| 21 32 38 3d 30 0d 1a 90 | 00 17 62 6c 6f 63 6b 25 |!28=0...|..block%|
|00004d40| 21 33 32 3d 26 37 46 90 | 07 0d 1a 9a 17 62 6c 6f |!32=&7F.|.....blo|
|00004d50| 63 6b 25 21 33 36 3d 26 | 37 46 90 07 0d 1a a4 1d |ck%!36=&|7F......|
|00004d60| c8 99 20 22 57 69 6d 70 | 5f 44 72 61 67 42 6f 78 |.. "Wimp|_DragBox|
|00004d70| 22 2c 2c 62 6c 6f 63 6b | 25 0d 1a ae 18 64 72 61 |",,block|%....dra|
|00004d80| 67 5f 77 69 6e 64 6f 77 | 25 3d 77 69 6e 64 6f 77 |g_window|%=window|
|00004d90| 25 0d 1a b8 14 64 72 61 | 67 5f 69 63 6f 6e 25 3d |%....dra|g_icon%=|
|00004da0| 69 63 6f 6e 25 0d 1a c2 | 05 e1 0d 1a cc 05 3a 0d |icon%...|......:.|
|00004db0| 1a d6 1e dd 20 f2 72 65 | 74 69 74 6c 65 28 77 69 |.... .re|title(wi|
|00004dc0| 6e 64 6f 77 25 2c 74 69 | 74 6c 65 24 29 0d 1a e0 |ndow%,ti|tle$)...|
|00004dd0| 14 62 6c 6f 63 6b 25 21 | 30 3d 77 69 6e 64 6f 77 |.block%!|0=window|
|00004de0| 25 0d 1a ea 23 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...#.. |"Wimp_Ge|
|00004df0| 74 57 69 6e 64 6f 77 49 | 6e 66 6f 22 2c 2c 62 6c |tWindowI|nfo",,bl|
|00004e00| 6f 63 6b 25 0d 1a f4 17 | 24 28 62 6c 6f 63 6b 25 |ock%....|$(block%|
|00004e10| 21 37 36 29 3d 74 69 74 | 6c 65 24 0d 1a fe 1e e7 |!76)=tit|le$.....|
|00004e20| 20 28 62 6c 6f 63 6b 25 | 21 33 32 20 80 20 31 3c | (block%|!32 . 1<|
|00004e30| 3c 31 36 29 3c 3e 30 20 | 8c 0d 1b 08 15 20 62 6c |<16)<>0 |..... bl|
|00004e40| 6f 63 6b 25 21 30 3d 77 | 69 6e 64 6f 77 25 0d 1b |ock%!0=w|indow%..|
|00004e50| 12 22 20 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |." .. "W|imp_Clos|
|00004e60| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00004e70| 0d 1b 1c 1a 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |.... .op|en_windo|
|00004e80| 77 28 77 69 6e 64 6f 77 | 25 29 0d 1b 26 05 cd 0d |w(window|%)..&...|
|00004e90| 1b 30 2d e7 20 77 69 6e | 64 6f 77 25 3d 77 69 6e |.0-. win|dow%=win|
|00004ea0| 64 6f 77 5f 6d 61 69 6e | 25 20 8c 20 66 69 6c 65 |dow_main|% . file|
|00004eb0| 6e 61 6d 65 24 3d 74 69 | 74 6c 65 24 0d 1b 3a 05 |name$=ti|tle$..:.|
|00004ec0| e1 0d 1b 44 05 3a 0d 1b | 4e 13 dd 20 f2 6d 65 6e |...D.:..|N.. .men|
|00004ed0| 75 73 28 61 64 64 72 25 | 29 0d 1b 58 40 ea 20 6d |us(addr%|)..X@. m|
|00004ee0| 61 78 25 2c 74 69 63 6b | 25 2c 64 6f 74 74 65 64 |ax%,tick|%,dotted|
|00004ef0| 25 2c 77 72 69 74 65 25 | 2c 64 65 73 65 6c 65 63 |%,write%|,deselec|
|00004f00| 74 25 2c 73 75 62 25 2c | 70 74 72 25 2c 74 65 78 |t%,sub%,|ptr%,tex|
|00004f10| 74 24 2c 74 69 74 6c 65 | 24 0d 1b 62 05 f5 0d 1b |t$,title|$..b....|
|00004f20| 6c 0b 20 6d 61 78 25 3d | 30 0d 1b 76 13 20 6d 65 |l. max%=|0..v. me|
|00004f30| 6e 75 5f 6f 66 66 73 65 | 74 25 3d 30 0d 1b 80 0d |nu_offse|t%=0....|
|00004f40| 20 f3 20 74 69 74 6c 65 | 24 0d 1b 8a 16 20 e7 20 | . title|$.... . |
|00004f50| 74 69 74 6c 65 24 3c 3e | 22 45 6e 64 22 20 8c 0d |title$<>|"End" ..|
|00004f60| 1b 94 18 20 20 24 61 64 | 64 72 25 3d c0 74 69 74 |...  $ad|dr%=.tit|
|00004f70| 6c 65 24 2c 31 31 29 0d | 1b 9e 10 20 20 61 64 64 |le$,11).|...  add|
|00004f80| 72 25 3f 31 32 3d 37 0d | 1b a8 10 20 20 61 64 64 |r%?12=7.|...  add|
|00004f90| 72 25 3f 31 33 3d 32 0d | 1b b2 10 20 20 61 64 64 |r%?13=2.|...  add|
|00004fa0| 72 25 3f 31 34 3d 37 0d | 1b bc 10 20 20 61 64 64 |r%?14=7.|...  add|
|00004fb0| 72 25 3f 31 35 3d 30 0d | 1b c6 11 20 20 61 64 64 |r%?15=0.|...  add|
|00004fc0| 72 25 21 32 30 3d 34 34 | 0d 1b d0 10 20 20 61 64 |r%!20=44|....  ad|
|00004fd0| 64 72 25 21 32 34 3d 30 | 0d 1b da 16 20 20 6d 65 |dr%!24=0|....  me|
|00004fe0| 6e 75 5f 6f 66 66 73 65 | 74 25 2b 3d 32 38 0d 1b |nu_offse|t%+=28..|
|00004ff0| e4 07 20 20 f5 0d 1b ee | 0e 20 90 03 f3 20 74 69 |..  ....|. ... ti|
|00005000| 63 6b 25 0d 1b f8 14 20 | 90 03 e7 20 74 69 63 6b |ck%.... |... tick|
|00005010| 25 3c 3e 2d 31 20 8c 0d | 1c 02 2d 20 90 04 f3 20 |%<>-1 ..|..- ... |
|00005020| 64 6f 74 74 65 64 25 2c | 77 72 69 74 65 25 2c 64 |dotted%,|write%,d|
|00005030| 65 73 65 6c 65 63 74 25 | 2c 73 75 62 25 2c 74 65 |eselect%|,sub%,te|
|00005040| 78 74 24 0d 1c 0c 1d 20 | 90 04 70 74 72 25 3d a4 |xt$.... |..ptr%=.|
|00005050| 61 64 64 5f 64 61 74 61 | 28 74 65 78 74 24 29 0d |add_data|(text$).|
|00005060| 1c 16 26 20 90 04 f2 6d | 65 6e 75 5f 69 74 65 6d |..& ...m|enu_item|
|00005070| 28 61 64 64 72 25 2b 6d | 65 6e 75 5f 6f 66 66 73 |(addr%+m|enu_offs|
|00005080| 65 74 25 29 0d 1c 20 08 | 20 90 03 cc 0d 1c 2a 22 |et%).. .| .....*"|
|00005090| 20 90 04 70 74 72 25 3d | 61 64 64 72 25 2b 6d 65 | ..ptr%=|addr%+me|
|000050a0| 6e 75 5f 6f 66 66 73 65 | 74 25 2d 32 34 0d 1c 34 |nu_offse|t%-24..4|
|000050b0| 13 20 90 04 70 74 72 25 | 21 30 2b 3d 26 38 30 0d |. ..ptr%|!0+=&80.|
|000050c0| 1c 3e 08 20 90 03 cd 0d | 1c 48 10 20 20 fd 20 74 |.>. ....|.H.  . t|
|000050d0| 69 63 6b 25 3d 2d 31 0d | 1c 52 19 20 20 61 64 64 |ick%=-1.|.R.  add|
|000050e0| 72 25 21 31 36 3d 6d 61 | 78 25 2a 31 36 2b 31 36 |r%!16=ma|x%*16+16|
|000050f0| 0d 1c 5c 11 20 20 c8 8e | 20 74 69 74 6c 65 24 20 |..\.  ..| title$ |
|00005100| ca 0d 1c 66 27 20 90 03 | c9 20 22 53 61 76 65 22 |...f' ..|. "Save"|
|00005110| 20 90 06 3a 20 6d 65 6e | 75 5f 73 61 76 65 25 3d | ..: men|u_save%=|
|00005120| 61 64 64 72 25 0d 1c 70 | 27 20 90 03 c9 20 22 46 |addr%..p|' ... "F|
|00005130| 75 6e 63 20 4b 65 79 73 | 22 20 3a 20 6d 65 6e 75 |unc Keys|" : menu|
|00005140| 5f 6d 61 69 6e 25 3d 61 | 64 64 72 25 0d 1c 7a 28 |_main%=a|ddr%..z(|
|00005150| 20 90 03 c9 20 22 54 69 | 74 6c 65 22 20 90 05 3a | ... "Ti|tle" ..:|
|00005160| 20 6d 65 6e 75 5f 74 69 | 74 6c 65 25 3d 61 64 64 | menu_ti|tle%=add|
|00005170| 72 25 0d 1c 84 29 20 90 | 03 c9 20 22 45 78 70 61 |r%...) .|.. "Expa|
|00005180| 6e 64 22 20 90 04 3a 20 | 6d 65 6e 75 5f 65 78 70 |nd" ..: |menu_exp|
|00005190| 61 6e 64 25 3d 61 64 64 | 72 25 0d 1c 8e 2a 20 90 |and%=add|r%...* .|
|000051a0| 03 c9 20 22 46 31 31 2d | 46 31 33 22 20 90 03 3a |.. "F11-|F13" ..:|
|000051b0| 20 6d 65 6e 75 5f 66 31 | 31 5f 66 31 33 25 3d 61 | menu_f1|1_f13%=a|
|000051c0| 64 64 72 25 0d 1c 98 2b | 20 90 03 c9 20 22 4b 65 |ddr%...+| ... "Ke|
|000051d0| 79 20 53 74 72 69 70 22 | 20 3a 20 6d 65 6e 75 5f |y Strip"| : menu_|
|000051e0| 6b 65 79 73 74 72 69 70 | 25 3d 61 64 64 72 25 0d |keystrip|%=addr%.|
|000051f0| 1c a2 26 20 90 03 c9 20 | 22 46 75 6e 63 4b 65 79 |..& ... |"FuncKey|
|00005200| 73 22 20 20 3a 20 6d 65 | 6e 75 5f 62 61 72 25 3d |s"  : me|nu_bar%=|
|00005210| 61 64 64 72 25 0d 1c ac | 07 20 20 cb 0d 1c b6 06 |addr%...|.  .....|
|00005220| 20 cd 0d 1c c0 18 20 61 | 64 64 72 25 2b 3d 6d 65 | ..... a|ddr%+=me|
|00005230| 6e 75 5f 6f 66 66 73 65 | 74 25 0d 1c ca 12 fd 20 |nu_offse|t%..... |
|00005240| 74 69 74 6c 65 24 3d 22 | 45 6e 64 22 0d 1c d4 27 |title$="|End"...'|
|00005250| f2 63 68 61 6e 67 65 5f | 6d 65 6e 75 28 6d 65 6e |.change_|menu(men|
|00005260| 75 5f 74 69 74 6c 65 25 | 2c 30 2c c4 32 30 2c bd |u_title%|,0,.20,.|
|00005270| 30 29 29 0d 1c de 05 e1 | 0d 1c e8 05 3a 0d 1c f2 |0)).....|....:...|
|00005280| 17 dd 20 f2 6d 65 6e 75 | 5f 69 74 65 6d 28 61 64 |.. .menu|_item(ad|
|00005290| 64 72 25 29 0d 1c fc 0a | ea 20 6c 65 6e 25 0d 1d |dr%)....|. len%..|
|000052a0| 06 11 6c 65 6e 25 3d a9 | 28 24 70 74 72 25 29 0d |..len%=.|($ptr%).|
|000052b0| 1d 10 12 24 61 64 64 72 | 25 3d c4 32 34 2c bd 30 |...$addr|%=.24,.0|
|000052c0| 29 0d 1d 1a 1e e7 20 74 | 69 63 6b 25 3d 31 20 90 |)..... t|ick%=1 .|
|000052d0| 03 8c 20 61 64 64 72 25 | 21 30 2b 3d 26 30 31 0d |.. addr%|!0+=&01.|
|000052e0| 1d 24 1e e7 20 64 6f 74 | 74 65 64 25 3d 31 20 8c |.$.. dot|ted%=1 .|
|000052f0| 20 61 64 64 72 25 21 30 | 2b 3d 26 30 32 0d 1d 2e | addr%!0|+=&02...|
|00005300| 1e e7 20 77 72 69 74 65 | 25 3d 31 20 20 8c 20 61 |.. write|%=1  . a|
|00005310| 64 64 72 25 21 30 2b 3d | 26 30 34 0d 1d 38 10 61 |ddr%!0+=|&04..8.a|
|00005320| 64 64 72 25 21 34 3d 73 | 75 62 25 0d 1d 42 15 61 |ddr%!4=s|ub%..B.a|
|00005330| 64 64 72 25 21 38 3d 26 | 30 37 30 90 03 31 32 31 |ddr%!8=&|070..121|
|00005340| 0d 1d 4c 22 e7 20 64 65 | 73 65 6c 65 63 74 25 3d |..L". de|select%=|
|00005350| 31 20 8c 20 61 64 64 72 | 25 21 38 2b 3d 31 3c 3c |1 . addr|%!8+=1<<|
|00005360| 32 32 0d 1d 56 11 61 64 | 64 72 25 21 31 32 3d 70 |22..V.ad|dr%!12=p|
|00005370| 74 72 25 0d 1d 60 0f 61 | 64 64 72 25 21 31 36 3d |tr%..`.a|ddr%!16=|
|00005380| 2d 31 0d 1d 6a 13 61 64 | 64 72 25 21 32 30 3d 6c |-1..j.ad|dr%!20=l|
|00005390| 65 6e 25 2b 31 0d 1d 74 | 1b e7 20 6c 65 6e 25 3e |en%+1..t|.. len%>|
|000053a0| 6d 61 78 25 20 8c 20 6d | 61 78 25 3d 6c 65 6e 25 |max% . m|ax%=len%|
|000053b0| 0d 1d 7e 14 6d 65 6e 75 | 5f 6f 66 66 73 65 74 25 |..~.menu|_offset%|
|000053c0| 2b 3d 32 34 0d 1d 88 05 | e1 0d 1d 92 05 3a 0d 1d |+=24....|.....:..|
|000053d0| 9c 1f dd 20 f2 63 72 65 | 61 74 65 5f 6d 65 6e 75 |... .cre|ate_menu|
|000053e0| 28 61 64 64 72 25 2c 78 | 25 2c 79 25 29 0d 1d a6 |(addr%,x|%,y%)...|
|000053f0| 13 6d 65 6e 75 5f 6e 75 | 6d 25 3d 61 64 64 72 25 |.menu_nu|m%=addr%|
|00005400| 0d 1d b0 25 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...%.. "|Wimp_Cre|
|00005410| 61 74 65 4d 65 6e 75 22 | 2c 2c 61 64 64 72 25 2c |ateMenu"|,,addr%,|
|00005420| 78 25 2c 79 25 0d 1d ba | 05 e1 0d 1d c4 05 3a 0d |x%,y%...|......:.|
|00005430| 1d ce 21 dd 20 a4 72 65 | 61 64 5f 6d 65 6e 75 5f |..!. .re|ad_menu_|
|00005440| 74 65 78 74 28 61 64 64 | 72 25 2c 6e 75 6d 25 29 |text(add|r%,num%)|
|00005450| 0d 1d d8 15 61 64 64 72 | 25 2b 3d 32 38 2b 32 34 |....addr|%+=28+24|
|00005460| 2a 6e 75 6d 25 0d 1d e2 | 10 3d 24 28 61 64 64 72 |*num%...|.=$(addr|
|00005470| 25 21 31 32 29 0d 1d ec | 05 3a 0d 1d f6 24 dd 20 |%!12)...|.:...$. |
|00005480| f2 63 68 61 6e 67 65 5f | 6d 65 6e 75 28 61 64 64 |.change_|menu(add|
|00005490| 72 25 2c 6e 75 6d 25 2c | 74 65 78 74 24 29 0d 1e |r%,num%,|text$)..|
|000054a0| 00 16 ea 20 6d 61 78 25 | 2c 69 61 64 64 72 25 2c |... max%|,iaddr%,|
|000054b0| 6c 65 6e 25 0d 1e 0a 1b | 69 61 64 64 72 25 3d 61 |len%....|iaddr%=a|
|000054c0| 64 64 72 25 2b 32 38 2b | 32 34 2a 6e 75 6d 25 0d |ddr%+28+|24*num%.|
|000054d0| 1e 14 16 24 28 69 61 64 | 64 72 25 21 31 32 29 3d |...$(iad|dr%!12)=|
|000054e0| 74 65 78 74 24 0d 1e 1e | 1b e7 20 28 69 61 64 64 |text$...|.. (iadd|
|000054f0| 72 25 21 30 20 80 20 25 | 31 30 30 29 3d 30 20 8c |r%!0 . %|100)=0 .|
|00005500| 0d 1e 28 0c 20 6d 61 78 | 25 3d 31 33 0d 1e 32 28 |..(. max|%=13..2(|
|00005510| 20 6c 65 6e 25 3d a9 28 | a4 72 65 61 64 5f 6d 65 | len%=.(|.read_me|
|00005520| 6e 75 5f 74 65 78 74 28 | 61 64 64 72 25 2c 6e 75 |nu_text(|addr%,nu|
|00005530| 6d 25 29 29 0d 1e 3c 1c | 20 e7 20 6c 65 6e 25 3e |m%))..<.| . len%>|
|00005540| 6d 61 78 25 20 8c 20 6d | 61 78 25 3d 6c 65 6e 25 |max% . m|ax%=len%|
|00005550| 0d 1e 46 18 20 61 64 64 | 72 25 21 31 36 3d 6d 61 |..F. add|r%!16=ma|
|00005560| 78 25 2a 31 36 2b 31 36 | 0d 1e 50 05 cd 0d 1e 5a |x%*16+16|..P....Z|
|00005570| 05 e1 0d 1e 64 05 3a 0d | 1e 6e 1f dd 20 f2 74 69 |....d.:.|.n.. .ti|
|00005580| 63 6b 28 61 64 64 72 25 | 2c 6e 75 6d 25 2c 63 68 |ck(addr%|,num%,ch|
|00005590| 61 6e 67 65 25 29 0d 1e | 78 15 61 64 64 72 25 2b |ange%)..|x.addr%+|
|000055a0| 3d 32 38 2b 32 34 2a 6e | 75 6d 25 0d 1e 82 10 c8 |=28+24*n|um%.....|
|000055b0| 8e 20 63 68 61 6e 67 65 | 25 20 ca 0d 1e 8c 20 20 |. change|% ....  |
|000055c0| c9 20 31 20 3a 20 61 64 | 64 72 25 21 30 3d 61 64 |. 1 : ad|dr%!0=ad|
|000055d0| 64 72 25 21 30 20 84 20 | 26 30 31 0d 1e 96 2c 20 |dr%!0 . |&01..., |
|000055e0| c9 20 32 20 3a 20 61 64 | 64 72 25 21 30 3d 61 64 |. 2 : ad|dr%!0=ad|
|000055f0| 64 72 25 21 30 20 80 20 | 28 61 64 64 72 25 21 30 |dr%!0 . |(addr%!0|
|00005600| 20 82 20 26 30 31 29 0d | 1e a0 20 20 c9 20 33 20 | . &01).|..  . 3 |
|00005610| 3a 20 61 64 64 72 25 21 | 30 3d 61 64 64 72 25 21 |: addr%!|0=addr%!|
|00005620| 30 20 82 20 26 30 31 0d | 1e aa 05 cb 0d 1e b4 05 |0 . &01.|........|
|00005630| e1 0d 1e be 05 3a 0d 1e | c8 19 dd 20 a4 74 69 63 |.....:..|... .tic|
|00005640| 6b 65 64 28 61 64 64 72 | 25 2c 6e 75 6d 25 29 0d |ked(addr|%,num%).|
|00005650| 1e d2 15 61 64 64 72 25 | 2b 3d 32 38 2b 32 34 2a |...addr%|+=28+24*|
|00005660| 6e 75 6d 25 0d 1e dc 1b | e7 20 28 61 64 64 72 25 |num%....|. (addr%|
|00005670| 21 30 20 80 20 31 29 3c | 3e 30 20 8c 20 3d b9 0d |!0 . 1)<|>0 . =..|
|00005680| 1e e6 06 3d a3 0d 1e f0 | 05 3a 0d 1e fa 23 dd 20 |...=....|.:...#. |
|00005690| f2 64 65 73 65 6c 65 63 | 74 28 61 64 64 72 25 2c |.deselec|t(addr%,|
|000056a0| 6e 75 6d 25 2c 63 68 61 | 6e 67 65 25 29 0d 1f 04 |num%,cha|nge%)...|
|000056b0| 15 61 64 64 72 25 2b 3d | 32 38 2b 32 34 2a 6e 75 |.addr%+=|28+24*nu|
|000056c0| 6d 25 0d 1f 0e 10 c8 8e | 20 63 68 61 6e 67 65 25 |m%......| change%|
|000056d0| 20 ca 0d 1f 18 22 20 c9 | 20 31 20 3a 20 61 64 64 | ...." .| 1 : add|
|000056e0| 72 25 21 38 3d 61 64 64 | 72 25 21 38 20 84 20 31 |r%!8=add|r%!8 . 1|
|000056f0| 3c 3c 32 32 0d 1f 22 2e | 20 c9 20 32 20 3a 20 61 |<<22..".| . 2 : a|
|00005700| 64 64 72 25 21 38 3d 61 | 64 64 72 25 21 38 20 80 |ddr%!8=a|ddr%!8 .|
|00005710| 20 28 61 64 64 72 25 21 | 38 20 82 20 31 3c 3c 32 | (addr%!|8 . 1<<2|
|00005720| 32 29 0d 1f 2c 22 20 c9 | 20 33 20 3a 20 61 64 64 |2)..," .| 3 : add|
|00005730| 72 25 21 38 3d 61 64 64 | 72 25 21 38 20 82 20 31 |r%!8=add|r%!8 . 1|
|00005740| 3c 3c 32 32 0d 1f 36 05 | cb 0d 1f 40 05 e1 0d 1f |<<22..6.|...@....|
|00005750| 4a 05 3a 0d 1f 54 42 dd | 20 f2 73 61 76 65 5f 64 |J.:..TB.| .save_d|
|00005760| 72 61 67 28 74 61 73 6b | 25 2c 72 65 66 25 2c 77 |rag(task|%,ref%,w|
|00005770| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 78 25 2c |indow%,i|con%,x%,|
|00005780| 79 25 2c 73 69 7a 65 25 | 2c 74 79 70 65 25 2c 66 |y%,size%|,type%,f|
|00005790| 69 6c 65 24 29 0d 1f 5e | 0e c8 8e 20 74 79 70 65 |ile$)..^|... type|
|000057a0| 25 20 ca 0d 1f 68 2f 20 | c9 20 26 46 45 42 2c 26 |% ...h/ |. &FEB,&|
|000057b0| 46 46 45 20 3a 20 f2 73 | 61 76 65 5f 46 46 45 28 |FFE : .s|ave_FFE(|
|000057c0| 73 69 7a 65 25 2c 66 69 | 6c 65 24 2c 74 79 70 65 |size%,fi|le$,type|
|000057d0| 25 29 0d 1f 72 29 20 c9 | 20 26 46 90 03 20 90 06 |%)..r) .| &F.. ..|
|000057e0| 3a 20 f2 73 61 76 65 5f | 46 90 03 28 73 69 7a 65 |: .save_|F..(size|
|000057f0| 25 2c 66 69 6c 65 24 29 | 0d 1f 7c 05 cb 0d 1f 86 |%,file$)|..|.....|
|00005800| 28 62 6c 6f 63 6b 25 21 | 30 3d 28 90 03 34 34 2b |(block%!|0=(..44+|
|00005810| a9 28 66 69 6c 65 24 29 | 2b 31 29 20 81 20 34 29 |.(file$)|+1) . 4)|
|00005820| 2a 34 29 2b 34 0d 1f 90 | 00 0e 62 6c 6f 63 6b 25 |*4)+4...|..block%|
|00005830| 21 34 3d 30 0d 1f 9a 0e | 62 6c 6f 63 6b 25 21 38 |!4=0....|block%!8|
|00005840| 3d 30 0d 1f a4 12 62 6c | 6f 63 6b 25 21 31 32 3d |=0....bl|ock%!12=|
|00005850| 72 65 66 25 0d 1f ae 0f | 62 6c 6f 63 6b 25 21 31 |ref%....|block%!1|
|00005860| 36 3d 33 0d 1f b8 15 62 | 6c 6f 63 6b 25 21 32 30 |6=3....b|lock%!20|
|00005870| 3d 77 69 6e 64 6f 77 25 | 0d 1f c2 13 62 6c 6f 63 |=window%|....bloc|
|00005880| 6b 25 21 32 34 3d 69 63 | 6f 6e 25 0d 1f cc 10 62 |k%!24=ic|on%....b|
|00005890| 6c 6f 63 6b 25 21 32 38 | 3d 78 25 0d 1f d6 10 62 |lock%!28|=x%....b|
|000058a0| 6c 6f 63 6b 25 21 33 32 | 3d 79 25 0d 1f e0 13 62 |lock%!32|=y%....b|
|000058b0| 6c 6f 63 6b 25 21 33 36 | 3d 73 69 7a 65 25 0d 1f |lock%!36|=size%..|
|000058c0| ea 13 62 6c 6f 63 6b 25 | 21 34 30 3d 74 79 70 65 |..block%|!40=type|
|000058d0| 25 0d 1f f4 19 24 28 62 | 6c 6f 63 6b 25 2b 34 34 |%....$(b|lock%+44|
|000058e0| 29 3d 66 69 6c 65 24 2b | bd 30 0d 1f fe 29 c8 99 |)=file$+|.0...)..|
|000058f0| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00005900| 67 65 22 2c 31 37 2c 62 | 6c 6f 63 6b 25 2c 74 61 |ge",17,b|lock%,ta|
|00005910| 73 6b 25 0d 20 08 05 e1 | 0d 20 12 05 3a 0d 20 1c |sk%. ...|. ..:. .|
|00005920| 1d dd 20 f2 73 61 76 65 | 5f 66 69 6c 65 28 74 79 |.. .save|_file(ty|
|00005930| 70 65 25 2c 66 69 6c 65 | 24 29 0d 20 26 4d e7 20 |pe%,file|$). &M. |
|00005940| a7 66 69 6c 65 24 2c 22 | 2e 22 29 3d 30 20 8c 20 |.file$,"|.")=0 . |
|00005950| 85 20 31 2c 22 54 6f 20 | 73 61 76 65 2c 20 64 72 |. 1,"To |save, dr|
|00005960| 61 67 20 74 68 65 20 66 | 69 6c 65 20 69 63 6f 6e |ag the f|ile icon|
|00005970| 20 74 6f 20 61 20 64 69 | 72 65 63 74 6f 72 79 20 | to a di|rectory |
|00005980| 76 69 65 77 65 72 22 0d | 20 30 0e c8 8e 20 74 79 |viewer".| 0... ty|
|00005990| 70 65 25 20 ca 0d 20 3a | 2b 20 c9 20 26 46 45 42 |pe% .. :|+ . &FEB|
|000059a0| 2c 26 46 46 45 20 3a 20 | f2 73 61 76 65 5f 46 46 |,&FFE : |.save_FF|
|000059b0| 45 28 30 2c 66 69 6c 65 | 24 2c 74 79 70 65 25 29 |E(0,file|$,type%)|
|000059c0| 0d 20 44 25 20 c9 20 26 | 46 90 03 20 90 06 3a 20 |. D% . &|F.. ..: |
|000059d0| f2 73 61 76 65 5f 46 90 | 03 28 30 2c 66 69 6c 65 |.save_F.|.(0,file|
|000059e0| 24 29 0d 20 4e 05 cb 0d | 20 58 05 e1 0d 20 62 05 |$). N...| X... b.|
|000059f0| 3a 0d 20 6c 22 dd 20 f2 | 73 61 76 65 5f 46 46 45 |:. l". .|save_FFE|
|00005a00| 28 73 61 66 65 25 2c 66 | 69 6c 65 24 2c 74 79 70 |(safe%,f|ile$,typ|
|00005a10| 65 25 29 0d 20 76 17 ea | 20 66 69 6c 65 25 2c 6c |e%). v..| file%,l|
|00005a20| 6f 6f 70 25 2c 74 65 78 | 74 24 0d 20 80 12 66 69 |oop%,tex|t$. ..fi|
|00005a30| 6c 65 25 3d ae 28 66 69 | 6c 65 24 29 0d 20 8a 12 |le%=.(fi|le$). ..|
|00005a40| e3 20 6c 6f 6f 70 25 3d | 30 20 b8 20 31 35 0d 20 |. loop%=|0 . 15. |
|00005a50| 94 29 20 74 65 78 74 24 | 3d a4 72 65 61 64 5f 74 |.) text$|=.read_t|
|00005a60| 65 78 74 28 77 69 6e 64 | 6f 77 5f 6d 61 69 6e 25 |ext(wind|ow_main%|
|00005a70| 2c 6c 6f 6f 70 25 29 0d | 20 9e 35 20 e7 20 74 65 |,loop%).| .5 . te|
|00005a80| 78 74 24 3c 3e 22 22 20 | 8c 20 d5 23 20 66 69 6c |xt$<>"" |. .# fil|
|00005a90| 65 25 2c 22 2a 4b 65 79 | 22 2b c3 28 6c 6f 6f 70 |e%,"*Key|"+.(loop|
|00005aa0| 25 29 2b 22 20 22 2b 74 | 65 78 74 24 0d 20 a8 0b |%)+" "+t|ext$. ..|
|00005ab0| ed 20 6c 6f 6f 70 25 0d | 20 b2 0c d9 23 20 66 69 |. loop%.| ...# fi|
|00005ac0| 6c 65 25 0d 20 bc 22 ff | 20 22 53 65 74 54 79 70 |le%. .".| "SetTyp|
|00005ad0| 65 20 22 2b 66 69 6c 65 | 24 2b 22 20 22 2b c3 7e |e "+file|$+" "+.~|
|00005ae0| 74 79 70 65 25 0d 20 c6 | 11 e7 20 73 61 66 65 25 |type%. .|.. safe%|
|00005af0| 3c 3e 2d 31 20 8c 0d 20 | d0 28 20 f2 63 68 61 6e |<>-1 .. |.( .chan|
|00005b00| 67 65 5f 74 65 78 74 28 | 77 69 6e 64 6f 77 5f 73 |ge_text(|window_s|
|00005b10| 61 76 65 31 25 2c 32 2c | 66 69 6c 65 24 29 0d 20 |ave1%,2,|file$). |
|00005b20| da 28 20 f2 63 68 61 6e | 67 65 5f 74 65 78 74 28 |.( .chan|ge_text(|
|00005b30| 77 69 6e 64 6f 77 5f 73 | 61 76 65 33 25 2c 32 2c |window_s|ave3%,2,|
|00005b40| 66 69 6c 65 24 29 0d 20 | e4 21 20 f2 72 65 74 69 |file$). |.! .reti|
|00005b50| 74 6c 65 28 77 69 6e 64 | 6f 77 5f 6d 61 69 6e 25 |tle(wind|ow_main%|
|00005b60| 2c 66 69 6c 65 24 29 0d | 20 ee 05 cd 0d 20 f8 05 |,file$).| .... ..|
|00005b70| e1 0d 21 02 05 3a 0d 21 | 0c 1c dd 20 f2 73 61 76 |..!..:.!|... .sav|
|00005b80| 65 5f 46 90 03 28 73 61 | 66 65 25 2c 66 69 6c 65 |e_F..(sa|fe%,file|
|00005b90| 24 29 0d 21 16 11 ea 20 | 66 69 6c 65 25 2c 6c 6f |$).!... |file%,lo|
|00005ba0| 6f 70 25 0d 21 20 12 66 | 69 6c 65 25 3d ae 28 66 |op%.! .f|ile%=.(f|
|00005bb0| 69 6c 65 24 29 0d 21 2a | 1a d5 23 20 66 69 6c 65 |ile$).!*|..# file|
|00005bc0| 25 2c 22 5c 54 49 20 22 | 2b 74 69 74 6c 65 24 0d |%,"\TI "|+title$.|
|00005bd0| 21 34 12 e3 20 6c 6f 6f | 70 25 3d 30 20 b8 20 31 |!4.. loo|p%=0 . 1|
|00005be0| 35 0d 21 3e 32 20 d5 23 | 20 66 69 6c 65 25 2c 22 |5.!>2 .#| file%,"|
|00005bf0| 5c 46 4b 20 22 2b c3 6c | 6f 6f 70 25 2b 22 20 22 |\FK "+.l|oop%+" "|
|00005c00| 2b 6b 65 79 73 74 72 69 | 70 24 28 6c 6f 6f 70 25 |+keystri|p$(loop%|
|00005c10| 2c 30 29 0d 21 48 0b ed | 20 6c 6f 6f 70 25 0d 21 |,0).!H..| loop%.!|
|00005c20| 52 12 e3 20 6c 6f 6f 70 | 25 3d 30 20 b8 20 31 35 |R.. loop|%=0 . 15|
|00005c30| 0d 21 5c 32 20 d5 23 20 | 66 69 6c 65 25 2c 22 5c |.!\2 .# |file%,"\|
|00005c40| 46 53 20 22 2b c3 6c 6f | 6f 70 25 2b 22 20 22 2b |FS "+.lo|op%+" "+|
|00005c50| 6b 65 79 73 74 72 69 70 | 24 28 6c 6f 6f 70 25 2c |keystrip|$(loop%,|
|00005c60| 31 29 0d 21 66 0b ed 20 | 6c 6f 6f 70 25 0d 21 70 |1).!f.. |loop%.!p|
|00005c70| 12 e3 20 6c 6f 6f 70 25 | 3d 30 20 b8 20 31 35 0d |.. loop%|=0 . 15.|
|00005c80| 21 7a 32 20 d5 23 20 66 | 69 6c 65 25 2c 22 5c 46 |!z2 .# f|ile%,"\F|
|00005c90| 43 20 22 2b c3 6c 6f 6f | 70 25 2b 22 20 22 2b 6b |C "+.loo|p%+" "+k|
|00005ca0| 65 79 73 74 72 69 70 24 | 28 6c 6f 6f 70 25 2c 32 |eystrip$|(loop%,2|
|00005cb0| 29 0d 21 84 0b ed 20 6c | 6f 6f 70 25 0d 21 8e 12 |).!... l|oop%.!..|
|00005cc0| e3 20 6c 6f 6f 70 25 3d | 30 20 b8 20 31 35 0d 21 |. loop%=|0 . 15.!|
|00005cd0| 98 32 20 d5 23 20 66 69 | 6c 65 25 2c 22 5c 46 42 |.2 .# fi|le%,"\FB|
|00005ce0| 20 22 2b c3 6c 6f 6f 70 | 25 2b 22 20 22 2b 6b 65 | "+.loop|%+" "+ke|
|00005cf0| 79 73 74 72 69 70 24 28 | 6c 6f 6f 70 25 2c 33 29 |ystrip$(|loop%,3)|
|00005d00| 0d 21 a2 0b ed 20 6c 6f | 6f 70 25 0d 21 ac 31 d5 |.!... lo|op%.!.1.|
|00005d10| 23 20 66 69 6c 65 25 2c | 22 5c 45 4b 20 22 2b c3 |# file%,|"\EK "+.|
|00005d20| 28 a4 74 69 63 6b 65 64 | 28 6d 65 6e 75 5f 65 78 |(.ticked|(menu_ex|
|00005d30| 70 61 6e 64 25 2c 30 29 | 2a 2d 31 29 0d 21 b6 31 |pand%,0)|*-1).!.1|
|00005d40| d5 23 20 66 69 6c 65 25 | 2c 22 5c 45 53 20 22 2b |.# file%|,"\ES "+|
|00005d50| c3 28 a4 74 69 63 6b 65 | 64 28 6d 65 6e 75 5f 65 |.(.ticke|d(menu_e|
|00005d60| 78 70 61 6e 64 25 2c 31 | 29 2a 2d 31 29 0d 21 c0 |xpand%,1|)*-1).!.|
|00005d70| 31 d5 23 20 66 69 6c 65 | 25 2c 22 5c 45 43 20 22 |1.# file|%,"\EC "|
|00005d80| 2b c3 28 a4 74 69 63 6b | 65 64 28 6d 65 6e 75 5f |+.(.tick|ed(menu_|
|00005d90| 65 78 70 61 6e 64 25 2c | 32 29 2a 2d 31 29 0d 21 |expand%,|2)*-1).!|
|00005da0| ca 31 d5 23 20 66 69 6c | 65 25 2c 22 5c 45 42 20 |.1.# fil|e%,"\EB |
|00005db0| 22 2b c3 28 a4 74 69 63 | 6b 65 64 28 6d 65 6e 75 |"+.(.tic|ked(menu|
|00005dc0| 5f 65 78 70 61 6e 64 25 | 2c 33 29 2a 2d 31 29 0d |_expand%|,3)*-1).|
|00005dd0| 21 d4 14 d5 23 20 66 69 | 6c 65 25 2c 22 5c 45 54 |!...# fi|le%,"\ET|
|00005de0| 20 22 3b 0d 21 de 3c e7 | 20 a4 74 69 63 6b 65 64 | ";.!.<.| .ticked|
|00005df0| 28 6d 65 6e 75 5f 66 31 | 31 5f 66 31 33 25 2c 30 |(menu_f1|1_f13%,0|
|00005e00| 29 20 8c 20 d5 23 20 66 | 69 6c 65 25 2c 22 31 22 |) . .# f|ile%,"1"|
|00005e10| 20 8b 20 d5 23 20 66 69 | 6c 65 25 2c 22 32 22 0d | . .# fi|le%,"2".|
|00005e20| 21 e8 0c d9 23 20 66 69 | 6c 65 25 0d 21 f2 1d ff |!...# fi|le%.!...|
|00005e30| 20 22 53 65 74 54 79 70 | 65 20 22 2b 66 69 6c 65 | "SetTyp|e "+file|
|00005e40| 24 2b 22 20 46 90 03 22 | 0d 21 fc 35 e7 20 73 61 |$+" F.."|.!.5. sa|
|00005e50| 66 65 25 3c 3e 2d 31 20 | 8c 20 f2 63 68 61 6e 67 |fe%<>-1 |. .chang|
|00005e60| 65 5f 74 65 78 74 28 77 | 69 6e 64 6f 77 5f 73 61 |e_text(w|indow_sa|
|00005e70| 76 65 32 25 2c 32 2c 66 | 69 6c 65 24 29 0d 22 06 |ve2%,2,f|ile$).".|
|00005e80| 05 e1 0d 22 10 05 3a 0d | 22 1a 42 dd 20 f2 6c 6f |..."..:.|".B. .lo|
|00005e90| 61 64 5f 66 69 6c 65 28 | 74 61 73 6b 25 2c 72 65 |ad_file(|task%,re|
|00005ea0| 66 25 2c 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |f%,windo|w%,icon%|
|00005eb0| 2c 78 25 2c 79 25 2c 73 | 69 7a 65 25 2c 74 79 70 |,x%,y%,s|ize%,typ|
|00005ec0| 65 25 2c 66 69 6c 65 24 | 29 0d 22 24 0e c8 8e 20 |e%,file$|)."$... |
|00005ed0| 74 79 70 65 25 20 ca 0d | 22 2e 12 20 c9 20 26 46 |type% ..|".. . &F|
|00005ee0| 45 42 2c 26 46 46 45 20 | 3a 0d 22 38 16 20 20 f2 |EB,&FFE |:."8.  .|
|00005ef0| 6c 6f 61 64 5f 46 46 45 | 28 66 69 6c 65 24 29 0d |load_FFE|(file$).|
|00005f00| 22 42 0d 20 c9 20 26 46 | 90 03 20 3a 0d 22 4c 16 |"B. . &F|.. :."L.|
|00005f10| 20 20 f2 6c 6f 61 64 5f | 46 90 03 28 66 69 6c 65 |  .load_|F..(file|
|00005f20| 24 29 0d 22 56 0a 20 7f | 20 3a 20 e1 0d 22 60 05 |$)."V. .| : .."`.|
|00005f30| cb 0d 22 6a 31 e7 20 66 | 69 6c 65 24 3d 22 3c 57 |.."j1. f|ile$="<W|
|00005f40| 69 6d 70 24 53 63 72 61 | 70 3e 22 20 8c 20 2a 44 |imp$Scra|p>" . *D|
|00005f50| 65 6c 65 74 65 20 3c 57 | 69 6d 70 24 53 63 72 61 |elete <W|imp$Scra|
|00005f60| 70 3e 0d 22 74 28 62 6c | 6f 63 6b 25 21 30 3d 28 |p>."t(bl|ock%!0=(|
|00005f70| 90 03 34 34 2b a9 28 66 | 69 6c 65 24 29 2b 31 29 |..44+.(f|ile$)+1)|
|00005f80| 20 81 20 34 29 2a 34 29 | 2b 34 0d 22 7e 0e 62 6c | . 4)*4)|+4."~.bl|
|00005f90| 6f 63 6b 25 21 34 3d 30 | 0d 22 88 0e 62 6c 6f 63 |ock%!4=0|."..bloc|
|00005fa0| 6b 25 21 38 3d 30 0d 22 | 92 12 62 6c 6f 63 6b 25 |k%!8=0."|..block%|
|00005fb0| 21 31 32 3d 72 65 66 25 | 0d 22 9c 0f 62 6c 6f 63 |!12=ref%|."..bloc|
|00005fc0| 6b 25 21 31 36 3d 34 0d | 22 a6 15 62 6c 6f 63 6b |k%!16=4.|"..block|
|00005fd0| 25 21 32 30 3d 77 69 6e | 64 6f 77 25 0d 22 b0 13 |%!20=win|dow%."..|
|00005fe0| 62 6c 6f 63 6b 25 21 32 | 34 3d 69 63 6f 6e 25 0d |block%!2|4=icon%.|
|00005ff0| 22 ba 10 62 6c 6f 63 6b | 25 21 32 38 3d 78 25 0d |"..block|%!28=x%.|
|00006000| 22 c4 10 62 6c 6f 63 6b | 25 21 33 32 3d 79 25 0d |"..block|%!32=y%.|
|00006010| 22 ce 13 62 6c 6f 63 6b | 25 21 33 36 3d 73 69 7a |"..block|%!36=siz|
|00006020| 65 25 0d 22 d8 13 62 6c | 6f 63 6b 25 21 34 30 3d |e%."..bl|ock%!40=|
|00006030| 74 79 70 65 25 0d 22 e2 | 19 24 28 62 6c 6f 63 6b |type%.".|.$(block|
|00006040| 25 2b 34 34 29 3d 66 69 | 6c 65 24 2b bd 30 0d 22 |%+44)=fi|le$+.0."|
|00006050| ec 29 c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |.).. "Wi|mp_SendM|
|00006060| 65 73 73 61 67 65 22 2c | 31 37 2c 62 6c 6f 63 6b |essage",|17,block|
|00006070| 25 2c 74 61 73 6b 25 0d | 22 f6 05 e1 0d 23 00 05 |%,task%.|"....#..|
|00006080| 3a 0d 23 0a 16 dd 20 f2 | 6c 6f 61 64 5f 46 46 45 |:.#... .|load_FFE|
|00006090| 28 66 69 6c 65 24 29 0d | 23 14 2c ea 20 66 69 6c |(file$).|#.,. fil|
|000060a0| 65 25 2c 6c 6f 6f 70 25 | 2c 6e 75 6d 25 2c 63 68 |e%,loop%|,num%,ch|
|000060b0| 72 25 2c 6e 65 77 25 2c | 74 65 6d 70 25 2c 74 65 |r%,new%,|temp%,te|
|000060c0| 6d 70 24 0d 23 1e 1e f2 | 6f 70 65 6e 5f 77 69 6e |mp$.#...|open_win|
|000060d0| 64 6f 77 28 77 69 6e 64 | 6f 77 5f 6d 61 69 6e 25 |dow(wind|ow_main%|
|000060e0| 29 0d 23 28 12 66 69 6c | 65 25 3d 8e 28 66 69 6c |).#(.fil|e%=.(fil|
|000060f0| 65 24 29 0d 23 32 12 e3 | 20 6c 6f 6f 70 25 3d 30 |e$).#2..| loop%=0|
|00006100| 20 b8 20 31 35 0d 23 3c | 2f 20 6b 65 79 24 28 6c | . 15.#<|/ key$(l|
|00006110| 6f 6f 70 25 29 3d a4 72 | 65 61 64 5f 74 65 78 74 |oop%)=.r|ead_text|
|00006120| 28 77 69 6e 64 6f 77 5f | 6d 61 69 6e 25 2c 6c 6f |(window_|main%,lo|
|00006130| 6f 70 25 29 0d 23 46 0b | ed 20 6c 6f 6f 70 25 0d |op%).#F.|. loop%.|
|00006140| 23 50 18 6e 65 77 25 3d | 28 c6 8e 28 6b 65 79 24 |#P.new%=|(..(key$|
|00006150| 28 29 29 3d 22 22 29 0d | 23 5a 05 f5 0d 23 64 22 |())="").|#Z...#d"|
|00006160| 20 74 65 6d 70 24 3d bd | 28 a4 73 6b 69 70 5f 63 | temp$=.|(.skip_c|
|00006170| 68 61 72 61 63 74 65 72 | 28 22 20 22 29 29 0d 23 |haracter|(" ")).#|
|00006180| 6e 1d 20 c8 95 20 74 65 | 6d 70 24 3d bd 31 30 20 |n. .. te|mp$=.10 |
|00006190| 84 20 74 65 6d 70 24 3d | 22 2a 22 0d 23 78 23 20 |. temp$=|"*".#x# |
|000061a0| 20 74 65 6d 70 24 3d bd | 28 a4 73 6b 69 70 5f 63 | temp$=.|(.skip_c|
|000061b0| 68 61 72 61 63 74 65 72 | 28 22 20 22 29 29 0d 23 |haracter|(" ")).#|
|000061c0| 82 06 20 ce 0d 23 8c 1b | 20 74 65 6d 70 24 3d bd |.. ..#..| temp$=.|
|000061d0| 28 97 28 74 65 6d 70 24 | 29 20 84 20 33 32 29 0d |(.(temp$|) . 32).|
|000061e0| 23 96 12 20 e3 20 6c 6f | 6f 70 25 3d 31 20 b8 20 |#.. . lo|op%=1 . |
|000061f0| 32 0d 23 a0 1f 20 20 74 | 65 6d 70 24 2b 3d bd 28 |2.#..  t|emp$+=.(|
|00006200| 28 9a 23 20 66 69 6c 65 | 25 29 20 84 20 33 32 29 |(.# file|%) . 32)|
|00006210| 0d 23 aa 0c 20 ed 20 6c | 6f 6f 70 25 0d 23 b4 15 |.#.. . l|oop%.#..|
|00006220| 20 e7 20 74 65 6d 70 24 | 3c 3e 22 6b 65 79 22 20 | . temp$|<>"key" |
|00006230| 8c 0d 23 be 0e 20 20 d9 | 23 20 66 69 6c 65 25 0d |..#..  .|# file%.|
|00006240| 23 c8 30 20 20 85 20 31 | 2c 22 54 68 69 73 20 66 |#.0  . 1|,"This f|
|00006250| 69 6c 65 20 69 73 20 6e | 6f 74 20 61 20 46 75 6e |ile is n|ot a Fun|
|00006260| 63 74 69 6f 6e 20 4b 65 | 79 20 66 69 6c 65 22 0d |ction Ke|y file".|
|00006270| 23 d2 06 20 cd 0d 23 dc | 0d 20 74 65 6d 70 24 3d |#.. ..#.|. temp$=|
|00006280| 22 22 0d 23 e6 1e 20 63 | 68 72 25 3d a4 73 6b 69 |"".#.. c|hr%=.ski|
|00006290| 70 5f 63 68 61 72 61 63 | 74 65 72 28 22 20 22 29 |p_charac|ter(" ")|
|000062a0| 0d 23 f0 19 20 c8 95 20 | 63 68 72 25 3e 34 37 20 |.#.. .. |chr%>47 |
|000062b0| 80 20 63 68 72 25 3c 35 | 38 0d 23 fa 14 20 20 74 |. chr%<5|8.#..  t|
|000062c0| 65 6d 70 24 2b 3d bd 28 | 63 68 72 25 29 0d 24 04 |emp$+=.(|chr%).$.|
|000062d0| 13 20 20 63 68 72 25 3d | 9a 23 20 66 69 6c 65 25 |.  chr%=|.# file%|
|000062e0| 0d 24 0e 06 20 ce 0d 24 | 18 12 20 6e 75 6d 25 3d |.$.. ..$|.. num%=|
|000062f0| bb 28 74 65 6d 70 24 29 | 0d 24 22 19 20 e7 20 6e |.(temp$)|.$". . n|
|00006300| 75 6d 25 3c 30 20 84 20 | 6e 75 6d 25 3e 31 35 20 |um%<0 . |num%>15 |
|00006310| 8c 0d 24 2c 0e 20 20 d9 | 23 20 66 69 6c 65 25 0d |..$,.  .|# file%.|
|00006320| 24 36 2e 20 20 85 20 31 | 2c 22 46 75 6e 63 74 69 |$6.  . 1|,"Functi|
|00006330| 6f 6e 20 6b 65 79 73 20 | 7a 65 72 6f 20 74 6f 20 |on keys |zero to |
|00006340| 66 69 66 74 65 65 6e 20 | 6f 6e 6c 79 22 0d 24 40 |fifteen |only".$@|
|00006350| 06 20 cd 0d 24 4a 12 20 | 6b 65 79 24 28 6e 75 6d |. ..$J. |key$(num|
|00006360| 25 29 3d 22 22 0d 24 54 | 2a 20 e7 20 63 68 72 25 |%)="".$T|* . chr%|
|00006370| 3d 33 32 20 8c 20 63 68 | 72 25 3d a4 73 6b 69 70 |=32 . ch|r%=.skip|
|00006380| 5f 63 68 61 72 61 63 74 | 65 72 28 22 20 22 29 0d |_charact|er(" ").|
|00006390| 24 5e 20 20 c8 95 20 63 | 68 72 25 3c 3e 26 30 41 |$^  .. c|hr%<>&0A|
|000063a0| 20 80 20 ac 20 28 c5 23 | 20 66 69 6c 65 25 29 0d | . . (.#| file%).|
|000063b0| 24 68 19 20 20 6b 65 79 | 24 28 6e 75 6d 25 29 2b |$h.  key|$(num%)+|
|000063c0| 3d bd 28 63 68 72 25 29 | 0d 24 72 13 20 20 63 68 |=.(chr%)|.$r.  ch|
|000063d0| 72 25 3d 9a 23 20 66 69 | 6c 65 25 0d 24 7c 06 20 |r%=.# fi|le%.$|. |
|000063e0| ce 0d 24 86 26 20 e7 20 | 63 68 72 25 3c 3e 26 30 |..$.& . |chr%<>&0|
|000063f0| 41 20 8c 20 6b 65 79 24 | 28 6e 75 6d 25 29 2b 3d |A . key$|(num%)+=|
+--------+-------------------------+-------------------------+--------+--------+