/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsa / bar / !Bar / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 05 3a 0d 00 1e | 0f f2 69 6e 69 74 69 61 |....:...|..initia|
|00000020| 6c 69 73 65 0d 00 28 0b | 64 65 61 64 25 3d a3 0d |lise..(.|dead%=..|
|00000030| 00 3c 05 3a 0d 00 46 0e | c8 95 20 ac 20 64 65 61 |.<.:..F.|.. . dea|
|00000040| 64 25 0d 00 50 2b 20 20 | c8 99 20 22 57 69 6d 70 |d%..P+  |.. "Wimp|
|00000050| 5f 50 6f 6c 6c 22 2c 26 | 31 43 33 33 2c 62 6c 6f |_Poll",&|1C33,blo|
|00000060| 63 6b 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 00 5a |ck% . re|ason%..Z|
|00000070| 12 20 20 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.  .. re|ason% ..|
|00000080| 00 64 35 20 20 20 20 c9 | 20 32 3a 62 6c 6f 63 6b |.d5    .| 2:block|
|00000090| 25 21 32 38 3d 2d 32 3a | c8 99 20 22 57 69 6d 70 |%!28=-2:|.. "Wimp|
|000000a0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|000000b0| 6f 63 6b 25 0d 00 6e 29 | 20 20 20 20 c9 20 33 3a |ock%..n)|    . 3:|
|000000c0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|000000d0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 00 78 |ndow",,b|lock%..x|
|000000e0| 30 20 20 20 20 c9 20 36 | 3a f2 63 6c 69 63 6b 28 |0    . 6|:.click(|
|000000f0| 62 6c 6f 63 6b 25 21 38 | 2c 62 6c 6f 63 6b 25 21 |block%!8|,block%!|
|00000100| 31 32 2c 62 6c 6f 63 6b | 25 21 31 36 29 0d 00 82 |12,block|%!16)...|
|00000110| 31 20 20 20 20 c9 20 38 | 3a f2 6b 65 79 70 72 65 |1    . 8|:.keypre|
|00000120| 73 73 28 21 62 6c 6f 63 | 6b 25 2c 62 6c 6f 63 6b |ss(!bloc|k%,block|
|00000130| 25 21 34 2c 62 6c 6f 63 | 6b 25 21 32 34 29 0d 00 |%!4,bloc|k%!24)..|
|00000140| 8c 14 20 20 20 20 c9 20 | 37 3a f2 64 72 61 67 67 |..    . |7:.dragg|
|00000150| 65 64 0d 00 96 18 20 20 | 20 20 c9 20 39 3a f2 6d |ed....  |  . 9:.m|
|00000160| 65 6e 75 5f 73 65 6c 65 | 63 74 0d 00 a0 23 20 20 |enu_sele|ct...#  |
|00000170| 20 20 c9 20 31 37 2c 31 | 38 3a f2 6d 65 73 73 61 |  . 17,1|8:.messa|
|00000180| 67 65 28 62 6c 6f 63 6b | 25 21 31 36 29 0d 00 aa |ge(block|%!16)...|
|00000190| 07 20 20 cb 0d 00 b4 05 | ce 0d 00 be 05 3a 0d 00 |.  .....|.....:..|
|000001a0| c8 17 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.... "Wi|mp_Close|
|000001b0| 44 6f 77 6e 22 0d 00 dc | 05 e0 0d 00 e6 05 3a 0d |Down"...|......:.|
|000001c0| 00 f0 11 dd 20 f2 69 6e | 69 74 69 61 6c 69 73 65 |.... .in|itialise|
|000001d0| 0d 00 fa 0f 74 72 61 70 | 5f 6b 65 79 25 3d a3 0d |....trap|_key%=..|
|000001e0| 01 04 10 64 69 72 65 63 | 74 6f 72 79 25 3d 31 0d |...direc|tory%=1.|
|000001f0| 01 0e 12 61 70 70 6c 69 | 63 61 74 69 6f 6e 25 3d |...appli|cation%=|
|00000200| 32 0d 01 18 0b 66 69 6c | 65 25 3d 33 0d 01 22 11 |2....fil|e%=3..".|
|00000210| de 20 62 6c 6f 63 6b 25 | 20 37 34 30 30 0d 01 2c |. block%| 7400..,|
|00000220| 14 de 20 69 6e 64 64 61 | 74 61 25 20 31 31 31 34 |.. indda|ta% 1114|
|00000230| 30 0d 01 36 0f de 20 6d | 65 6e 75 25 20 32 30 30 |0..6.. m|enu% 200|
|00000240| 0d 01 40 0e de 20 6e 61 | 6d 65 25 20 31 33 0d 01 |..@.. na|me% 13..|
|00000250| 4a 05 3a 0d 01 54 2c c8 | 99 20 22 57 69 6d 70 5f |J.:..T,.|. "Wimp_|
|00000260| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00000270| 26 34 42 35 33 34 31 35 | 34 2c 22 42 61 72 22 0d |&4B53415|4,"Bar".|
|00000280| 01 5e 23 ee 20 85 20 f2 | 65 72 72 6f 72 28 f6 24 |.^#. . .|error(.$|
|00000290| 2b 22 20 61 74 20 6c 69 | 6e 65 20 22 2b c3 9e 29 |+" at li|ne "+..)|
|000002a0| 3a e0 0d 01 68 13 f2 6c | 6f 61 64 5f 74 65 6d 70 |:...h..l|oad_temp|
|000002b0| 6c 61 74 65 73 0d 01 72 | 1b f7 20 8d 44 6e 4a 3a |lates..r|.. .DnJ:|
|000002c0| f2 6d 65 6e 75 64 61 74 | 61 28 6d 65 6e 75 25 29 |.menudat|a(menu%)|
|000002d0| 0d 01 7c 14 de 20 66 69 | 6c 65 6e 61 6d 65 73 24 |..|.. fi|lenames$|
|000002e0| 28 31 31 29 0d 01 86 10 | de 20 74 79 70 65 73 25 |(11)....|. types%|
|000002f0| 28 31 31 29 0d 01 90 0e | f2 72 65 61 64 5f 69 6e |(11)....|.read_in|
|00000300| 66 6f 0d 01 9a 10 e3 20 | 69 63 25 3d 30 20 b8 20 |fo..... |ic%=0 . |
|00000310| 31 31 0d 01 a4 22 74 78 | 74 24 3d a4 67 65 74 6c |11..."tx|t$=.getl|
|00000320| 65 61 66 28 66 69 6c 65 | 6e 61 6d 65 73 24 28 69 |eaf(file|names$(i|
|00000330| 63 25 29 29 0d 01 ae 24 | f2 73 65 74 5f 69 63 6f |c%))...$|.set_ico|
|00000340| 6e 5f 74 65 78 74 28 62 | 61 72 77 69 6e 25 2c 69 |n_text(b|arwin%,i|
|00000350| 63 25 2c 74 78 74 24 29 | 0d 01 b8 2d f2 73 65 74 |c%,txt$)|...-.set|
|00000360| 5f 69 63 6f 6e 5f 63 6f | 6c 6f 75 72 28 62 61 72 |_icon_co|lour(bar|
|00000370| 77 69 6e 25 2c 69 63 25 | 2c 74 79 70 65 73 25 28 |win%,ic%|,types%(|
|00000380| 69 63 25 29 29 0d 01 c2 | 05 ed 0d 01 cc 05 3a 0d |ic%))...|......:.|
|00000390| 01 d6 19 f2 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |....open|_window(|
|000003a0| 62 61 72 77 69 6e 25 29 | 0d 01 e0 16 f4 20 77 69 |barwin%)|..... wi|
|000003b0| 6c 6c 20 6f 70 65 6e 20 | 62 65 68 69 6e 64 0d 01 |ll open |behind..|
|000003c0| ea 05 e1 0d 01 f4 05 3a | 0d 01 fe 18 dd 20 f2 65 |.......:|..... .e|
|000003d0| 72 72 6f 72 28 65 72 72 | 6f 72 74 65 78 74 24 29 |rror(err|ortext$)|
|000003e0| 0d 02 08 19 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |...... "|Wimp_Clo|
|000003f0| 73 65 44 6f 77 6e 22 3a | e0 0d 02 12 05 e1 0d 02 |seDown":|........|
|00000400| 1c 05 3a 0d 02 26 1d dd | 20 f2 77 61 72 6e 69 6e |..:..&..| .warnin|
|00000410| 67 28 65 72 72 6f 72 24 | 2c 66 6c 61 67 73 25 29 |g(error$|,flags%)|
|00000420| 0d 02 30 31 6e 61 6d 65 | 24 3d 22 42 61 72 22 3a |..01name|$="Bar":|
|00000430| 21 62 6c 6f 63 6b 25 3d | 32 35 35 3a 24 28 62 6c |!block%=|255:$(bl|
|00000440| 6f 63 6b 25 2b 34 29 3d | 65 72 72 6f 72 24 2b bd |ock%+4)=|error$+.|
|00000450| 30 0d 02 3a 3a c8 99 20 | 22 57 69 6d 70 5f 52 65 |0..::.. |"Wimp_Re|
|00000460| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 6c 6f 63 6b |portErro|r",block|
|00000470| 25 2c 66 6c 61 67 73 25 | 2c 6e 61 6d 65 24 20 b8 |%,flags%|,name$ .|
|00000480| 20 2c 65 72 72 63 6c 69 | 63 6b 25 0d 02 44 05 e1 | ,errcli|ck%..D..|
|00000490| 0d 02 4e 05 3a 0d 02 58 | 23 dd 20 f2 63 6c 69 63 |..N.:..X|#. .clic|
|000004a0| 6b 28 62 75 74 74 6f 6e | 25 2c 77 69 6e 64 6f 77 |k(button|%,window|
|000004b0| 25 2c 69 63 6f 6e 25 29 | 0d 02 62 23 e7 20 77 69 |%,icon%)|..b#. wi|
|000004c0| 6e 64 6f 77 25 3d 62 61 | 72 77 69 6e 25 20 80 20 |ndow%=ba|rwin% . |
|000004d0| 62 75 74 74 6f 6e 25 3d | 34 20 8c 0d 02 6c 11 20 |button%=|4 ...l. |
|000004e0| e7 20 69 63 6f 6e 25 3e | 2d 31 20 8c 0d 02 76 21 |. icon%>|-1 ...v!|
|000004f0| 20 20 70 61 74 68 6e 61 | 6d 65 24 3d 66 69 6c 65 |  pathna|me$=file|
|00000500| 6e 61 6d 65 73 24 28 69 | 63 6f 6e 25 29 0d 02 80 |names$(i|con%)...|
|00000510| 17 20 20 e7 20 70 61 74 | 68 6e 61 6d 65 24 3c 3e |.  . pat|hname$<>|
|00000520| 22 22 20 8c 0d 02 8a 20 | 20 20 20 ff 28 22 46 69 |"" .... |   .("Fi|
|00000530| 6c 65 72 5f 52 75 6e 20 | 22 2b 70 61 74 68 6e 61 |ler_Run |"+pathna|
|00000540| 6d 65 24 29 0d 02 94 07 | 20 20 cd 0d 02 9e 06 20 |me$)....|  ..... |
|00000550| cd 0d 02 a8 05 cd 0d 02 | b2 23 e7 20 77 69 6e 64 |........|.#. wind|
|00000560| 6f 77 25 3d 62 61 72 77 | 69 6e 25 20 80 20 62 75 |ow%=barw|in% . bu|
|00000570| 74 74 6f 6e 25 3d 32 20 | 8c 0d 02 bc 30 c8 99 20 |tton%=2 |....0.. |
|00000580| 26 34 30 30 44 34 2c 2c | 6d 65 6e 75 25 2c 28 62 |&400D4,,|menu%,(b|
|00000590| 6c 6f 63 6b 25 21 30 29 | 2d 34 38 2c 28 62 6c 6f |lock%!0)|-48,(blo|
|000005a0| 63 6b 25 21 34 29 2b 31 | 36 0d 02 c6 05 cd 0d 02 |ck%!4)+1|6.......|
|000005b0| d0 04 0d 02 da 05 e1 0d | 02 e4 05 3a 0d 02 ee 15 |........|...:....|
|000005c0| dd 20 f2 6c 6f 61 64 5f | 74 65 6d 70 6c 61 74 65 |. .load_|template|
|000005d0| 73 0d 02 f8 15 de 20 69 | 6e 66 6f 69 6e 76 25 20 |s..... i|nfoinv% |
|000005e0| 20 20 20 32 35 35 0d 03 | 02 15 de 20 62 61 72 69 |   255..|... bari|
|000005f0| 6e 76 25 20 20 20 20 20 | 32 35 35 0d 03 0c 31 c8 |nv%     |255...1.|
|00000600| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|00000610| 6c 61 74 65 22 2c 2c 22 | 3c 42 61 72 24 44 69 72 |late",,"|<Bar$Dir|
|00000620| 3e 2e 54 65 6d 70 6c 61 | 74 65 73 22 0d 03 16 11 |>.Templa|tes"....|
|00000630| 24 6e 61 6d 65 25 3d 22 | 69 6e 66 6f 22 0d 03 20 |$name%="|info".. |
|00000640| 43 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |C.. "Wim|p_LoadTe|
|00000650| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 2c |mplate",|,block%,|
|00000660| 69 6e 66 6f 69 6e 76 25 | 2c 69 6e 66 6f 69 6e 76 |infoinv%|,infoinv|
|00000670| 25 2b 32 35 35 2c 2d 31 | 2c 6e 61 6d 65 25 2c 30 |%+255,-1|,name%,0|
|00000680| 0d 03 2a 2d c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..*-.. "|Wimp_Cre|
|00000690| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |ateWindo|w",,bloc|
|000006a0| 6b 25 20 b8 20 69 6e 66 | 6f 77 69 6e 25 0d 03 34 |k% . inf|owin%..4|
|000006b0| 10 24 6e 61 6d 65 25 3d | 22 42 61 72 22 0d 03 3e |.$name%=|"Bar"..>|
|000006c0| 41 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |A.. "Wim|p_LoadTe|
|000006d0| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 25 2c |mplate",|,block%,|
|000006e0| 62 61 72 69 6e 76 25 2c | 62 61 72 69 6e 76 25 2b |barinv%,|barinv%+|
|000006f0| 32 35 35 2c 2d 31 2c 6e | 61 6d 65 25 2c 30 0d 03 |255,-1,n|ame%,0..|
|00000700| 48 2c c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |H,.. "Wi|mp_Creat|
|00000710| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00000720| 20 b8 20 62 61 72 77 69 | 6e 25 0d 03 52 1b c8 99 | . barwi|n%..R...|
|00000730| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 54 65 6d 70 | "Wimp_C|loseTemp|
|00000740| 6c 61 74 65 22 0d 03 5c | 05 e1 0d 03 66 05 3a 0d |late"..\|....f.:.|
|00000750| 03 70 1b dd 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |.p.. .op|en_windo|
|00000760| 77 28 21 62 6c 6f 63 6b | 25 29 0d 03 7a 24 c8 99 |w(!block|%)..z$..|
|00000770| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00000780| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 03 |State",,|block%..|
|00000790| 84 10 62 6c 6f 63 6b 25 | 21 32 38 3d 2d 32 0d 03 |..block%|!28=-2..|
|000007a0| 8e 20 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |. .. "Wi|mp_OpenW|
|000007b0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 03 |indow",,|block%..|
|000007c0| 98 05 e1 0d 03 a2 05 3a | 0d 03 ac 10 dd 20 f2 72 |.......:|..... .r|
|000007d0| 65 61 64 5f 69 6e 66 6f | 0d 03 b6 22 6e 61 6d 65 |ead_info|..."name|
|000007e0| 5f 66 69 6c 65 25 3d 8e | 28 22 3c 42 61 72 24 44 |_file%=.|("<Bar$D|
|000007f0| 69 72 3e 2e 4c 69 73 74 | 22 29 0d 03 c0 0f e3 20 |ir>.List|")..... |
|00000800| 61 25 3d 30 20 b8 20 31 | 31 0d 03 ca 1f e8 23 6e |a%=0 . 1|1.....#n|
|00000810| 61 6d 65 5f 66 69 6c 65 | 25 2c 66 69 6c 65 6e 61 |ame_file|%,filena|
|00000820| 6d 65 73 24 28 61 25 29 | 0d 03 d4 1b e8 23 6e 61 |mes$(a%)|.....#na|
|00000830| 6d 65 5f 66 69 6c 65 25 | 2c 74 79 70 65 73 25 28 |me_file%|,types%(|
|00000840| 61 25 29 0d 03 de 05 ed | 0d 03 df 1a e8 23 6e 61 |a%).....|.....#na|
|00000850| 6d 65 5f 66 69 6c 65 25 | 2c 74 72 61 70 5f 6b 65 |me_file%|,trap_ke|
|00000860| 79 25 0d 03 e8 10 d9 23 | 6e 61 6d 65 5f 66 69 6c |y%.....#|name_fil|
|00000870| 65 25 0d 03 f2 05 e1 0d | 03 fc 05 3a 0d 04 06 10 |e%......|...:....|
|00000880| dd 20 f2 73 61 76 65 5f | 69 6e 66 6f 0d 04 10 22 |. .save_|info..."|
|00000890| 6e 61 6d 65 5f 66 69 6c | 65 25 3d ae 28 22 3c 42 |name_fil|e%=.("<B|
|000008a0| 61 72 24 44 69 72 3e 2e | 4c 69 73 74 22 29 0d 04 |ar$Dir>.|List")..|
|000008b0| 1a 0f e3 20 61 25 3d 30 | 20 b8 20 31 31 0d 04 24 |... a%=0| . 11..$|
|000008c0| 1f f1 23 6e 61 6d 65 5f | 66 69 6c 65 25 2c 66 69 |..#name_|file%,fi|
|000008d0| 6c 65 6e 61 6d 65 73 24 | 28 61 25 29 0d 04 2e 1b |lenames$|(a%)....|
|000008e0| f1 23 6e 61 6d 65 5f 66 | 69 6c 65 25 2c 74 79 70 |.#name_f|ile%,typ|
|000008f0| 65 73 25 28 61 25 29 0d | 04 38 05 ed 0d 04 39 1a |es%(a%).|.8....9.|
|00000900| f1 23 6e 61 6d 65 5f 66 | 69 6c 65 25 2c 74 72 61 |.#name_f|ile%,tra|
|00000910| 70 5f 6b 65 79 25 0d 04 | 42 10 d9 23 6e 61 6d 65 |p_key%..|B..#name|
|00000920| 5f 66 69 6c 65 25 0d 04 | 4c 05 e1 0d 04 56 05 3a |_file%..|L....V.:|
|00000930| 0d 04 60 2c dd 20 f2 73 | 65 74 5f 69 63 6f 6e 5f |..`,. .s|et_icon_|
|00000940| 74 65 78 74 28 21 62 6c | 6f 63 6b 25 2c 62 6c 6f |text(!bl|ock%,blo|
|00000950| 63 6b 25 21 34 2c 74 65 | 78 74 24 29 0d 04 6a 15 |ck%!4,te|xt$)..j.|
|00000960| c8 99 20 26 34 30 30 43 | 45 2c 2c 62 6c 6f 63 6b |.. &400C|E,,block|
|00000970| 25 0d 04 74 16 24 28 62 | 6c 6f 63 6b 25 21 32 38 |%..t.$(b|lock%!28|
|00000980| 29 3d 74 65 78 74 24 0d | 04 7e 1a 62 6c 6f 63 6b |)=text$.|.~.block|
|00000990| 25 21 38 3d 30 3a 62 6c | 6f 63 6b 25 21 31 32 3d |%!8=0:bl|ock%!12=|
|000009a0| 30 0d 04 88 15 c8 99 20 | 26 34 30 30 43 44 2c 2c |0...... |&400CD,,|
|000009b0| 62 6c 6f 63 6b 25 0d 04 | 92 05 e1 0d 04 9c 05 3a |block%..|.......:|
|000009c0| 0d 04 a6 23 dd 20 f2 6b | 65 79 70 72 65 73 73 28 |...#. .k|eypress(|
|000009d0| 77 69 6e 64 6f 77 25 2c | 69 63 6f 6e 25 2c 6b 65 |window%,|icon%,ke|
|000009e0| 79 25 29 0d 04 b0 0d c8 | 8e 20 6b 65 79 25 20 ca |y%).....|. key% .|
|000009f0| 0d 04 ba 14 20 20 c9 20 | 26 31 38 31 3a f2 72 75 |....  . |&181:.ru|
|00000a00| 6e 28 30 29 0d 04 c4 14 | 20 20 c9 20 26 31 38 32 |n(0)....|  . &182|
|00000a10| 3a f2 72 75 6e 28 31 29 | 0d 04 ce 14 20 20 c9 20 |:.run(1)|....  . |
|00000a20| 26 31 38 33 3a f2 72 75 | 6e 28 32 29 0d 04 d8 14 |&183:.ru|n(2)....|
|00000a30| 20 20 c9 20 26 31 38 34 | 3a f2 72 75 6e 28 33 29 |  . &184|:.run(3)|
|00000a40| 0d 04 e2 14 20 20 c9 20 | 26 31 38 35 3a f2 72 75 |....  . |&185:.ru|
|00000a50| 6e 28 34 29 0d 04 ec 14 | 20 20 c9 20 26 31 38 36 |n(4)....|  . &186|
|00000a60| 3a f2 72 75 6e 28 35 29 | 0d 04 f6 14 20 20 c9 20 |:.run(5)|....  . |
|00000a70| 26 31 38 37 3a f2 72 75 | 6e 28 36 29 0d 05 00 14 |&187:.ru|n(6)....|
|00000a80| 20 20 c9 20 26 31 38 38 | 3a f2 72 75 6e 28 37 29 |  . &188|:.run(7)|
|00000a90| 0d 05 0a 14 20 20 c9 20 | 26 31 38 39 3a f2 72 75 |....  . |&189:.ru|
|00000aa0| 6e 28 38 29 0d 05 14 14 | 20 20 c9 20 26 31 43 41 |n(8)....|  . &1CA|
|00000ab0| 3a f2 72 75 6e 28 39 29 | 0d 05 1e 15 20 20 c9 20 |:.run(9)|....  . |
|00000ac0| 26 31 43 42 3a f2 72 75 | 6e 28 31 30 29 0d 05 28 |&1CB:.ru|n(10)..(|
|00000ad0| 15 20 20 c9 20 26 31 43 | 43 3a f2 72 75 6e 28 31 |.  . &1C|C:.run(1|
|00000ae0| 31 29 0d 05 32 05 cb 0d | 05 3c 13 e7 20 ac 20 74 |1)..2...|.<.. . t|
|00000af0| 72 61 70 5f 6b 65 79 25 | 20 8c 0d 05 46 1d c8 99 |rap_key%| ...F...|
|00000b00| 20 22 57 69 6d 70 5f 50 | 72 6f 63 65 73 73 4b 65 | "Wimp_P|rocessKe|
|00000b10| 79 22 2c 6b 65 79 25 0d | 05 50 05 cd 0d 05 5a 05 |y",key%.|.P....Z.|
|00000b20| e1 0d 05 64 05 3a 0d 05 | 6e 26 dd 20 a4 67 65 74 |...d.:..|n&. .get|
|00000b30| 5f 69 63 6f 6e 5f 74 65 | 78 74 28 21 62 6c 6f 63 |_icon_te|xt(!bloc|
|00000b40| 6b 25 2c 62 6c 6f 63 6b | 25 21 34 29 0d 05 78 22 |k%,block|%!4)..x"|
|00000b50| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00000b60| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 05 |State",,|block%..|
|00000b70| 82 11 3d 24 28 62 6c 6f | 63 6b 25 21 32 38 29 0d |..=$(blo|ck%!28).|
|00000b80| 05 8c 04 0d 05 96 17 dd | 20 a4 6d 61 6b 65 73 74 |........| .makest|
|00000b90| 72 69 6e 67 28 73 74 72 | 25 29 0d 05 a0 0a ea 20 |ring(str|%)..... |
|00000ba0| 6e 65 77 24 0d 05 aa 0f | c8 95 20 3f 73 74 72 25 |new$....|.. ?str%|
|00000bb0| 3c 3e 30 0d 05 b4 1c 20 | 20 6e 65 77 24 2b 3d bd |<>0.... | new$+=.|
|00000bc0| 28 3f 73 74 72 25 29 3a | 73 74 72 25 2b 3d 31 0d |(?str%):|str%+=1.|
|00000bd0| 05 be 05 ce 0d 05 c8 09 | 3d 6e 65 77 24 0d 05 d2 |........|=new$...|
|00000be0| 05 3a 0d 05 dc 12 dd 20 | a4 67 65 74 6c 65 61 66 |.:..... |.getleaf|
|00000bf0| 28 61 24 29 0d 05 e6 0f | c8 95 20 a7 61 24 2c 22 |(a$)....|.. .a$,"|
|00000c00| 2e 22 29 0d 05 f0 1a 20 | 20 61 24 3d c1 61 24 2c |.").... | a$=.a$,|
|00000c10| 28 a7 61 24 2c 22 2e 22 | 29 29 2b 31 29 0d 05 fa |(.a$,"."|))+1)...|
|00000c20| 05 ce 0d 06 04 07 3d 61 | 24 0d 06 0e 04 0d 06 18 |......=a|$.......|
|00000c30| 0f dd f2 64 61 74 61 5f | 6c 6f 61 64 0d 06 22 44 |...data_|load.."D|
|00000c40| 20 62 6c 6f 63 6b 25 21 | 31 32 3d 62 6c 6f 63 6b | block%!|12=block|
|00000c50| 25 21 38 3a 62 6c 6f 63 | 6b 25 21 31 36 3d 34 3a |%!8:bloc|k%!16=4:|
|00000c60| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|00000c70| 61 67 65 22 2c 31 37 2c | 62 6c 6f 63 6b 25 2c 30 |age",17,|block%,0|
|00000c80| 0d 06 2c 25 20 70 61 74 | 68 6e 61 6d 65 24 3d a4 |..,% pat|hname$=.|
|00000c90| 6d 61 6b 65 73 74 72 69 | 6e 67 28 62 6c 6f 63 6b |makestri|ng(block|
|00000ca0| 25 2b 34 34 29 0d 06 36 | 14 20 74 79 70 65 25 3d |%+44)..6|. type%=|
|00000cb0| 62 6c 6f 63 6b 25 21 34 | 30 0d 06 40 16 20 77 69 |block%!4|0..@. wi|
|00000cc0| 6e 64 6f 77 25 3d 62 6c | 6f 63 6b 25 21 32 30 0d |ndow%=bl|ock%!20.|
|00000cd0| 06 4a 14 20 69 63 6f 6e | 25 3d 62 6c 6f 63 6b 25 |.J. icon|%=block%|
|00000ce0| 21 32 34 0d 06 54 11 20 | e7 20 69 63 6f 6e 25 3e |!24..T. |. icon%>|
|00000cf0| 2d 31 20 8c 0d 06 5e 0f | 20 c8 8e 20 74 79 70 65 |-1 ...^.| .. type|
|00000d00| 25 20 ca 0d 06 68 53 20 | 20 20 c9 20 26 31 30 30 |% ...hS |  . &100|
|00000d10| 30 3a 74 79 70 65 25 3d | 64 69 72 65 63 74 6f 72 |0:type%=|director|
|00000d20| 79 25 3a f2 73 65 74 5f | 69 63 6f 6e 5f 63 6f 6c |y%:.set_|icon_col|
|00000d30| 6f 75 72 28 77 69 6e 64 | 6f 77 25 2c 69 63 6f 6e |our(wind|ow%,icon|
|00000d40| 25 2c 31 35 29 3a 74 79 | 70 65 73 25 28 69 63 6f |%,15):ty|pes%(ico|
|00000d50| 6e 25 29 3d 31 35 0d 06 | 72 55 20 20 20 c9 20 26 |n%)=15..|rU   . &|
|00000d60| 32 30 30 30 3a 74 79 70 | 65 25 3d 61 70 70 6c 69 |2000:typ|e%=appli|
|00000d70| 63 61 74 69 6f 6e 25 3a | f2 73 65 74 5f 69 63 6f |cation%:|.set_ico|
|00000d80| 6e 5f 63 6f 6c 6f 75 72 | 28 77 69 6e 64 6f 77 25 |n_colour|(window%|
|00000d90| 2c 69 63 6f 6e 25 2c 31 | 32 29 3a 74 79 70 65 73 |,icon%,1|2):types|
|00000da0| 25 28 69 63 6f 6e 25 29 | 3d 31 32 0d 06 7c 46 20 |%(icon%)|=12..|F |
|00000db0| 20 20 7f 3a 74 79 70 65 | 25 3d 66 69 6c 65 25 3a |  .:type|%=file%:|
|00000dc0| f2 73 65 74 5f 69 63 6f | 6e 5f 63 6f 6c 6f 75 72 |.set_ico|n_colour|
|00000dd0| 28 77 69 6e 64 6f 77 25 | 2c 69 63 6f 6e 25 2c 32 |(window%|,icon%,2|
|00000de0| 29 3a 74 79 70 65 73 25 | 28 69 63 6f 6e 25 29 3d |):types%|(icon%)=|
|00000df0| 32 0d 06 86 06 20 cb 0d | 06 90 20 20 66 69 6c 65 |2.... ..|..  file|
|00000e00| 6e 61 6d 65 73 24 28 69 | 63 6f 6e 25 29 3d 70 61 |names$(i|con%)=pa|
|00000e10| 74 68 6e 61 6d 65 24 0d | 06 9a 1e 20 6c 65 61 66 |thname$.|... leaf|
|00000e20| 24 3d a4 67 65 74 6c 65 | 61 66 28 70 61 74 68 6e |$=.getle|af(pathn|
|00000e30| 61 6d 65 24 29 0d 06 a4 | 28 20 f2 73 65 74 5f 69 |ame$)...|( .set_i|
|00000e40| 63 6f 6e 5f 74 65 78 74 | 28 77 69 6e 64 6f 77 25 |con_text|(window%|
|00000e50| 2c 69 63 6f 6e 25 2c 6c | 65 61 66 24 29 0d 06 ae |,icon%,l|eaf$)...|
|00000e60| 06 20 cd 0d 06 b8 05 e1 | 0d 06 c2 04 0d 06 cc 15 |. ......|........|
|00000e70| dd 20 f2 6d 65 73 73 61 | 67 65 28 63 6f 64 65 25 |. .messa|ge(code%|
|00000e80| 29 0d 06 d6 0e c8 8e 20 | 63 6f 64 65 25 20 ca 0d |)...... |code% ..|
|00000e90| 06 e0 11 20 20 c9 20 30 | 3a 64 65 61 64 25 3d b9 |...  . 0|:dead%=.|
|00000ea0| 0d 06 ea 14 20 20 c9 20 | 33 3a f2 64 61 74 61 5f |....  . |3:.data_|
|00000eb0| 6c 6f 61 64 0d 06 f4 14 | 20 20 c9 20 31 30 3a f2 |load....|  . 10:.|
|00000ec0| 73 61 76 65 64 65 73 6b | 0d 06 fe 05 cb 0d 07 08 |savedesk|........|
|00000ed0| 05 e1 0d 07 12 05 3a 0d | 07 1c 0f dd 20 f2 73 61 |......:.|.... .sa|
|00000ee0| 76 65 64 65 73 6b 0d 07 | 26 16 64 65 73 6b 66 25 |vedesk..|&.deskf%|
|00000ef0| 3d 28 62 6c 6f 63 6b 25 | 21 32 30 29 0d 07 30 10 |=(block%|!20)..0.|
|00000f00| de 20 64 62 75 66 66 25 | 20 32 35 36 0d 07 3a 1c |. dbuff%| 256..:.|
|00000f10| 24 62 6c 6f 63 6b 25 3d | 22 3c 42 61 72 24 44 69 |$block%=|"<Bar$Di|
|00000f20| 72 3e 22 2b bd 28 30 29 | 0d 07 44 25 c8 99 20 22 |r>"+.(0)|..D%.. "|
|00000f30| 4f 53 5f 47 53 54 72 61 | 6e 73 22 2c 62 6c 6f 63 |OS_GSTra|ns",bloc|
|00000f40| 6b 25 2c 64 62 75 66 66 | 25 2c 32 35 30 0d 07 4e |k%,dbuff|%,250..N|
|00000f50| 1c 70 74 68 24 3d a4 6d | 61 6b 65 73 74 72 69 6e |.pth$=.m|akestrin|
|00000f60| 67 28 64 62 75 66 66 25 | 29 0d 07 58 15 d5 23 64 |g(dbuff%|)..X..#d|
|00000f70| 65 73 6b 66 25 2c 22 2f | 22 2b 70 74 68 24 0d 07 |eskf%,"/|"+pth$..|
|00000f80| 62 05 e1 0d 07 6c 04 0d | 07 76 25 dd 20 f2 73 65 |b....l..|.v%. .se|
|00000f90| 74 5f 69 63 6f 6e 5f 63 | 6f 6c 6f 75 72 28 77 25 |t_icon_c|olour(w%|
|00000fa0| 2c 69 25 2c 63 6f 6c 6f | 75 72 25 29 0d 07 80 0e |,i%,colo|ur%)....|
|00000fb0| 21 62 6c 6f 63 6b 25 3d | 77 25 0d 07 8a 0f 62 6c |!block%=|w%....bl|
|00000fc0| 6f 63 6b 25 21 34 3d 69 | 25 0d 07 94 22 c8 99 20 |ock%!4=i|%...".. |
|00000fd0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00000fe0| 74 65 22 2c 2c 62 6c 6f | 63 6b 25 0d 07 9e 1d f4 |te",,blo|ck%.....|
|00000ff0| 20 69 63 6f 6e 20 62 6c | 6f 63 6b 20 6f 66 66 20 | icon bl|ock off |
|00001000| 73 65 74 20 61 74 20 38 | 0d 07 a8 29 f4 20 69 63 |set at 8|...). ic|
|00001010| 6f 6e 20 66 6c 61 67 73 | 20 61 74 20 62 6c 6f 63 |on flags| at bloc|
|00001020| 6b 20 2b 20 31 36 20 28 | 38 2b 31 36 3d 20 32 34 |k + 16 (|8+16= 24|
|00001030| 29 0d 07 b2 37 f4 20 66 | 6f 72 65 20 67 72 6f 75 |)...7. f|ore grou|
|00001040| 6e 64 20 63 6f 6c 6f 75 | 72 20 69 6e 20 62 69 74 |nd colou|r in bit|
|00001050| 73 20 32 34 2d 32 37 20 | 28 69 2e 65 2e 20 66 6f |s 24-27 |(i.e. fo|
|00001060| 75 72 20 62 69 74 73 29 | 0d 07 bc 10 6f 66 66 73 |ur bits)|....offs|
|00001070| 65 74 25 3d 32 34 2a 34 | 0d 07 c6 14 66 6c 61 67 |et%=24*4|....flag|
|00001080| 73 25 3d 62 6c 6f 63 6b | 25 21 32 34 0d 07 da 18 |s%=block|%!24....|
|00001090| 63 6c 65 61 72 5f 77 6f | 72 64 25 3d 28 31 35 3c |clear_wo|rd%=(15<|
|000010a0| 3c 32 38 29 0d 07 e4 1b | 65 6f 72 5f 77 6f 72 64 |<28)....|eor_word|
|000010b0| 25 3d 28 63 6f 6c 6f 75 | 72 25 3c 3c 32 38 29 0d |%=(colou|r%<<28).|
|000010c0| 07 ee 0f 62 6c 6f 63 6b | 25 21 30 3d 77 25 0d 07 |...block|%!0=w%..|
|000010d0| f8 0f 62 6c 6f 63 6b 25 | 21 34 3d 69 25 0d 08 02 |..block%|!4=i%...|
|000010e0| 16 62 6c 6f 63 6b 25 21 | 38 3d 65 6f 72 5f 77 6f |.block%!|8=eor_wo|
|000010f0| 72 64 25 0d 08 0c 19 62 | 6c 6f 63 6b 25 21 31 32 |rd%....b|lock%!12|
|00001100| 3d 63 6c 65 61 72 5f 77 | 6f 72 64 25 0d 08 16 22 |=clear_w|ord%..."|
|00001110| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00001120| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 08 |State",,|block%..|
|00001130| 20 05 e1 0d 08 2a 04 0d | 08 34 12 dd 20 f2 6d 65 | ....*..|.4.. .me|
|00001140| 6e 75 5f 73 65 6c 65 63 | 74 0d 08 52 10 c8 8e 20 |nu_selec|t..R... |
|00001150| 21 62 6c 6f 63 6b 25 20 | ca 0d 08 5c 0e c9 20 30 |!block% |...\.. 0|
|00001160| 3a f4 20 49 4e 46 4f 0d | 08 66 12 c9 20 31 3a f2 |:. INFO.|.f.. 1:.|
|00001170| 73 61 76 65 5f 69 6e 66 | 6f 0d 08 70 1e c9 20 32 |save_inf|o..p.. 2|
|00001180| 3a 74 72 61 70 5f 6b 65 | 79 25 3d ac 28 74 72 61 |:trap_ke|y%=.(tra|
|00001190| 70 5f 6b 65 79 25 29 0d | 08 7a 11 e7 20 74 72 61 |p_key%).|.z.. tra|
|000011a0| 70 5f 6b 65 79 25 20 8c | 0d 08 84 0c f2 74 69 63 |p_key% .|.....tic|
|000011b0| 6b 28 32 29 0d 08 8e 05 | cc 0d 08 98 0e f2 75 6e |k(2)....|......un|
|000011c0| 74 69 63 6b 28 32 29 0d | 08 a2 05 cd 0d 08 ac 0f |tick(2).|........|
|000011d0| c9 20 33 3a 64 65 61 64 | 25 3d b9 0d 08 b6 05 cb |. 3:dead|%=......|
|000011e0| 0d 08 c0 05 e1 0d 08 ca | 04 0d 08 d4 16 dd 20 f2 |........|...... .|
|000011f0| 6d 65 6e 75 64 61 74 61 | 28 6d 65 6e 75 25 29 0d |menudata|(menu%).|
|00001200| 08 de 14 f3 20 74 69 74 | 6c 65 24 2c 6e 75 6d 62 |.... tit|le$,numb|
|00001210| 65 72 25 0d 08 e8 11 24 | 6d 65 6e 75 25 3d 74 69 |er%....$|menu%=ti|
|00001220| 74 6c 65 24 0d 08 f2 1f | 6d 65 6e 75 77 69 64 74 |tle$....|menuwidt|
|00001230| 68 25 3d 28 a9 28 74 69 | 74 6c 65 24 29 2d 32 29 |h%=(.(ti|tle$)-2)|
|00001240| 2a 31 36 0d 08 fc 13 6d | 65 6e 75 25 21 31 32 3d |*16....m|enu%!12=|
|00001250| 26 37 30 32 30 37 0d 09 | 06 0f 6d 65 6e 75 25 21 |&70207..|..menu%!|
|00001260| 32 30 3d 34 34 0d 09 10 | 0e 6d 65 6e 75 25 21 32 |20=44...|.menu%!2|
|00001270| 34 3d 30 0d 09 1a 13 70 | 6f 69 6e 74 25 3d 6d 65 |4=0....p|oint%=me|
|00001280| 6e 75 25 2b 32 38 0d 09 | 24 14 e3 20 69 25 3d 31 |nu%+28..|$.. i%=1|
|00001290| 20 b8 20 6e 75 6d 62 65 | 72 25 0d 09 2e 20 f3 20 | . numbe|r%... . |
|000012a0| 6d 65 6e 75 66 6c 61 67 | 73 25 2c 73 75 62 70 6f |menuflag|s%,subpo|
|000012b0| 69 6e 74 25 2c 69 74 65 | 6d 24 0d 09 38 16 21 70 |int%,ite|m$..8.!p|
|000012c0| 6f 69 6e 74 25 3d 6d 65 | 6e 75 66 6c 61 67 73 25 |oint%=me|nuflags%|
|000012d0| 0d 09 42 16 70 6f 69 6e | 74 25 21 34 3d 73 75 62 |..B.poin|t%!4=sub|
|000012e0| 70 6f 69 6e 74 25 0d 09 | 4c 15 70 6f 69 6e 74 25 |point%..|L.point%|
|000012f0| 21 38 3d 26 37 30 30 30 | 30 32 31 0d 09 56 16 24 |!8=&7000|021..V.$|
|00001300| 28 70 6f 69 6e 74 25 2b | 31 32 29 3d 69 74 65 6d |(point%+|12)=item|
|00001310| 24 0d 09 60 16 61 25 3d | 28 a9 28 69 74 65 6d 24 |$..`.a%=|(.(item$|
|00001320| 29 2b 31 29 2a 31 36 0d | 09 6a 16 e7 20 61 25 3e |)+1)*16.|.j.. a%>|
|00001330| 20 6d 65 6e 75 77 69 64 | 74 68 25 20 8c 0d 09 74 | menuwid|th% ...t|
|00001340| 11 6d 65 6e 75 77 69 64 | 74 68 25 3d 61 25 0d 09 |.menuwid|th%=a%..|
|00001350| 7e 05 cd 0d 09 88 0e 70 | 6f 69 6e 74 25 2b 3d 32 |~......p|oint%+=2|
|00001360| 34 0d 09 92 05 ed 0d 09 | 9c 17 6d 65 6e 75 25 21 |4.......|..menu%!|
|00001370| 31 36 3d 6d 65 6e 75 77 | 69 64 74 68 25 0d 09 a6 |16=menuw|idth%...|
|00001380| 05 e1 0d 09 b0 04 0d 09 | ba 11 dd 20 f2 72 75 6e |........|... .run|
|00001390| 28 69 63 6f 6e 25 29 0d | 09 c4 1f 70 61 74 68 6e |(icon%).|...pathn|
|000013a0| 61 6d 65 24 3d 66 69 6c | 65 6e 61 6d 65 73 24 28 |ame$=fil|enames$(|
|000013b0| 69 63 6f 6e 25 29 0d 09 | ce 15 e7 20 70 61 74 68 |icon%)..|... path|
|000013c0| 6e 61 6d 65 24 3c 3e 22 | 22 20 8c 0d 09 d8 1e 20 |name$<>"|" ..... |
|000013d0| ff 28 22 46 69 6c 65 72 | 5f 52 75 6e 20 22 2b 70 |.("Filer|_Run "+p|
|000013e0| 61 74 68 6e 61 6d 65 24 | 29 0d 09 e2 05 cd 0d 09 |athname$|).......|
|000013f0| ec 05 e1 0d 09 f6 04 0d | 0a 00 0f dd 20 f2 74 69 |........|.... .ti|
|00001400| 63 6b 28 6e 25 29 0d 0a | 0a 15 70 25 3d 6d 65 6e |ck(n%)..|..p%=men|
|00001410| 75 25 2b 6e 25 2a 32 34 | 2b 32 38 0d 0a 14 0f 21 |u%+n%*24|+28....!|
|00001420| 70 25 3d 21 70 25 20 84 | 20 31 0d 0a 1e 05 e1 0d |p%=!p% .| 1......|
|00001430| 0a 28 04 0d 0a 32 11 dd | 20 f2 75 6e 74 69 63 6b |.(...2..| .untick|
|00001440| 28 6e 25 29 0d 0a 3c 15 | 70 25 3d 6d 65 6e 75 25 |(n%)..<.|p%=menu%|
|00001450| 2b 6e 25 2a 32 34 2b 32 | 38 0d 0a 46 10 21 70 25 |+n%*24+2|8..F.!p%|
|00001460| 3d 21 70 25 20 80 20 2d | 32 0d 0a 50 05 e1 0d 0a |=!p% . -|2..P....|
|00001470| 64 04 0d 0a 6e 40 dc 20 | 42 61 72 2c 34 2c 30 2c |d...n@. |Bar,4,0,|
|00001480| 69 6e 66 6f 77 69 6e 25 | 2c 49 6e 66 6f 2c 30 2c |infowin%|,Info,0,|
|00001490| 2d 31 2c 53 61 76 65 2c | 30 2c 2d 31 2c 54 72 61 |-1,Save,|0,-1,Tra|
|000014a0| 70 20 6b 65 79 73 2c 26 | 38 30 2c 2d 31 2c 51 75 |p keys,&|80,-1,Qu|
|000014b0| 69 74 0d ff             |                         |it..    |        |
+--------+-------------------------+-------------------------+--------+--------+