home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-05-07 | 9.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 24 | 2e 21 4e 65 77 43 6f 64 |..... >$|.!NewCod|
|00000010| 65 73 2e 21 52 75 6e 49 | 6d 61 67 65 0d 00 14 17 |es.!RunI|mage....|
|00000020| f4 20 56 65 72 73 69 6f | 6e 20 2e 2e 2e 2e 20 31 |. Versio|n .... 1|
|00000030| 2e 30 30 0d 00 1e 05 3a | 0d 00 28 0e ee 20 85 20 |.00....:|..(.. . |
|00000040| f2 65 72 72 6f 72 0d 00 | 32 0a f2 73 65 74 75 70 |.error..|2..setup|
|00000050| 0d 00 3c 09 f2 6d 61 69 | 6e 0d 00 46 0b f2 66 69 |..<..mai|n..F..fi|
|00000060| 6e 69 73 68 0d 00 50 05 | e0 0d 00 5a 05 3a 0d 00 |nish..P.|...Z.:..|
|00000070| 64 30 f4 20 53 65 74 73 | 20 75 70 20 76 61 72 69 |d0. Sets| up vari|
|00000080| 6f 75 73 20 76 61 72 69 | 61 62 6c 65 73 20 61 6e |ous vari|ables an|
|00000090| 64 20 64 61 74 61 20 62 | 6c 6f 63 6b 73 2e 0d 00 |d data b|locks...|
|000000a0| 6e 43 f4 20 41 6c 73 6f | 20 69 6e 69 74 69 61 6c |nC. Also| initial|
|000000b0| 69 73 65 73 20 77 69 6d | 70 20 61 6e 64 20 6c 6f |ises wim|p and lo|
|000000c0| 61 64 73 20 73 70 72 69 | 74 65 73 2c 20 74 65 6d |ads spri|tes, tem|
|000000d0| 70 6c 61 74 65 73 20 61 | 6e 64 20 6d 65 6e 75 73 |plates a|nd menus|
|000000e0| 2e 0d 00 78 05 3a 0d 00 | 82 0c dd 20 f2 73 65 74 |...x.:..|... .set|
|000000f0| 75 70 0d 00 8c 07 ea 20 | dc 0d 00 96 1b 61 6c 69 |up..... |.....ali|
|00000100| 61 73 24 3d 22 3c 4e 65 | 77 43 6f 64 65 73 24 44 |as$="<Ne|wCodes$D|
|00000110| 69 72 3e 22 0d 00 a0 1f | 76 65 72 73 69 6f 6e 24 |ir>"....|version$|
|00000120| 3d 22 31 2e 30 30 20 28 | 32 38 2d 41 70 72 2d 39 |="1.00 (|28-Apr-9|
|00000130| 30 29 22 0d 00 aa 25 de | 20 71 25 20 31 30 30 2c |0)"...%.| q% 100,|
|00000140| 20 62 6c 6f 63 6b 25 20 | 31 30 30 30 2c 6d 65 6e | block% |1000,men|
|00000150| 62 6c 6b 25 20 31 30 30 | 0d 00 b4 0e 24 71 25 3d |blk% 100|....$q%=|
|00000160| 22 54 41 53 4b 22 0d 00 | be 37 c8 99 20 22 57 69 |"TASK"..|.7.. "Wi|
|00000170| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000180| 30 30 2c 21 71 25 2c 22 | 4e 65 77 20 43 6f 64 65 |00,!q%,"|New Code|
|00000190| 73 22 20 b8 20 2c 68 61 | 6e 64 6c 65 25 0d 00 c8 |s" . ,ha|ndle%...|
|000001a0| 20 f2 73 70 72 69 74 65 | 73 28 61 6c 69 61 73 24 | .sprite|s(alias$|
|000001b0| 2b 22 2e 21 53 70 72 69 | 74 65 73 22 29 0d 00 d2 |+".!Spri|tes")...|
|000001c0| 20 69 63 6f 6e 68 25 3d | a4 69 63 6f 6e 62 61 72 | iconh%=|.iconbar|
|000001d0| 28 22 21 6e 65 77 63 6f | 64 65 73 22 29 0d 00 dc |("!newco|des")...|
|000001e0| 29 69 6e 66 6f 25 3d a4 | 74 65 6d 70 6c 61 74 65 |)info%=.|template|
|000001f0| 73 28 61 6c 69 61 73 24 | 2b 22 2e 54 65 6d 70 6c |s(alias$|+".Templ|
|00000200| 61 74 65 73 22 29 0d 00 | e6 22 f2 73 65 74 5f 76 |ates")..|.".set_v|
|00000210| 65 72 73 69 6f 6e 28 69 | 6e 66 6f 25 2c 33 2c 76 |ersion(i|nfo%,3,v|
|00000220| 65 72 73 69 6f 6e 24 29 | 0d 00 f0 0f f2 6c 6f 61 |ersion$)|.....loa|
|00000230| 64 5f 6d 65 6e 75 73 0d | 00 fa 0c 6d 65 6e 75 79 |d_menus.|...menuy|
|00000240| 25 3d 30 0d 01 04 23 f2 | 62 75 69 6c 64 5f 6d 65 |%=0...#.|build_me|
|00000250| 6e 75 28 22 4e 65 77 20 | 43 6f 64 65 73 22 2c 6d |nu("New |Codes",m|
|00000260| 65 6e 75 79 25 29 0d 01 | 0e 08 f7 20 2b 30 0d 01 |enuy%)..|... +0..|
|00000270| 18 11 f3 20 6d 61 78 30 | 38 31 63 6f 64 65 73 0d |... max0|81codes.|
|00000280| 01 22 1c de 20 63 6f 64 | 65 30 38 31 28 6d 61 78 |.".. cod|e081(max|
|00000290| 30 38 31 63 6f 64 65 73 | 2c 31 29 0d 01 2c 1b e3 |081codes|,1)..,..|
|000002a0| 20 6c 6f 6f 70 25 3d 31 | 20 b8 20 6d 61 78 30 38 | loop%=1| . max08|
|000002b0| 31 63 6f 64 65 73 0d 01 | 36 27 f3 20 63 6f 64 65 |1codes..|6'. code|
|000002c0| 30 38 31 28 6c 6f 6f 70 | 25 2c 30 29 2c 63 6f 64 |081(loop|%,0),cod|
|000002d0| 65 30 38 31 28 6c 6f 6f | 70 25 2c 31 29 0d 01 40 |e081(loo|p%,1)..@|
|000002e0| 0b ed 20 6c 6f 6f 70 25 | 0d 01 4a 11 f3 20 6d 61 |.. loop%|..J.. ma|
|000002f0| 78 30 37 31 63 6f 64 65 | 73 0d 01 54 1c de 20 63 |x071code|s..T.. c|
|00000300| 6f 64 65 30 37 31 28 6d | 61 78 30 37 31 63 6f 64 |ode071(m|ax071cod|
|00000310| 65 73 2c 31 29 0d 01 5e | 1b e3 20 6c 6f 6f 70 25 |es,1)..^|.. loop%|
|00000320| 3d 31 20 b8 20 6d 61 78 | 30 37 31 63 6f 64 65 73 |=1 . max|071codes|
|00000330| 0d 01 68 27 f3 20 63 6f | 64 65 30 37 31 28 6c 6f |..h'. co|de071(lo|
|00000340| 6f 70 25 2c 30 29 2c 63 | 6f 64 65 30 37 31 28 6c |op%,0),c|ode071(l|
|00000350| 6f 6f 70 25 2c 31 29 0d | 01 72 0b ed 20 6c 6f 6f |oop%,1).|.r.. loo|
|00000360| 70 25 0d 01 7c 10 f3 20 | 6d 61 78 6d 65 72 63 75 |p%..|.. |maxmercu|
|00000370| 72 79 0d 01 86 1d de 20 | 63 6f 64 65 6d 65 72 63 |ry..... |codemerc|
|00000380| 75 72 79 28 6d 61 78 6d | 65 72 63 75 72 79 29 0d |ury(maxm|ercury).|
|00000390| 01 90 1a e3 20 6c 6f 6f | 70 25 3d 31 20 b8 20 6d |.... loo|p%=1 . m|
|000003a0| 61 78 6d 65 72 63 75 72 | 79 0d 01 9a 18 f3 20 63 |axmercur|y..... c|
|000003b0| 6f 64 65 6d 65 72 63 75 | 72 79 28 6c 6f 6f 70 25 |odemercu|ry(loop%|
|000003c0| 29 0d 01 a4 0b ed 20 6c | 6f 6f 70 25 0d 01 ae 10 |)..... l|oop%....|
|000003d0| f3 20 6d 61 78 69 6e 76 | 61 6c 69 64 0d 01 b8 1d |. maxinv|alid....|
|000003e0| de 20 63 6f 64 65 69 6e | 76 61 6c 69 64 28 6d 61 |. codein|valid(ma|
|000003f0| 78 69 6e 76 61 6c 69 64 | 29 0d 01 c2 1a e3 20 6c |xinvalid|)..... l|
|00000400| 6f 6f 70 25 3d 31 20 b8 | 20 6d 61 78 69 6e 76 61 |oop%=1 .| maxinva|
|00000410| 6c 69 64 0d 01 cc 18 f3 | 20 63 6f 64 65 69 6e 76 |lid.....| codeinv|
|00000420| 61 6c 69 64 28 6c 6f 6f | 70 25 29 0d 01 d6 0b ed |alid(loo|p%).....|
|00000430| 20 6c 6f 6f 70 25 0d 01 | e0 05 e1 0d 01 ea 05 3a | loop%..|.......:|
|00000440| 0d 01 f4 08 dc 20 35 34 | 0d 01 fe 35 dc 20 32 30 |..... 54|...5. 20|
|00000450| 30 2c 32 30 39 2c 32 39 | 30 2c 33 30 35 2c 33 30 |0,209,29|0,305,30|
|00000460| 37 2c 33 31 34 2c 33 31 | 36 2c 33 31 39 2c 33 33 |7,314,31|6,319,33|
|00000470| 30 2c 33 33 30 2c 33 33 | 32 2c 33 33 32 0d 02 08 |0,330,33|2,332...|
|00000480| 35 dc 20 33 33 35 2c 33 | 33 37 2c 33 33 39 2c 33 |5. 335,3|37,339,3|
|00000490| 34 39 2c 33 36 30 2c 33 | 36 38 2c 33 39 30 2c 33 |49,360,3|68,390,3|
|000004a0| 39 39 2c 34 31 39 2c 34 | 32 34 2c 34 32 36 2c 34 |99,419,4|24,426,4|
|000004b0| 32 39 0d 02 12 35 dc 20 | 34 34 30 2c 34 35 33 2c |29...5. |440,453,|
|000004c0| 34 35 35 2c 34 35 36 2c | 34 35 38 2c 34 36 34 2c |455,456,|458,464,|
|000004d0| 34 36 36 2c 34 37 32 2c | 34 37 35 2c 34 37 35 2c |466,472,|475,475,|
|000004e0| 34 37 38 2c 34 37 39 0d | 02 1c 35 dc 20 35 30 30 |478,479.|..5. 500|
|000004f0| 2c 35 30 39 2c 35 31 34 | 2c 35 31 34 2c 35 31 37 |,509,514|,514,517|
|00000500| 2c 35 32 31 2c 35 32 33 | 2c 35 32 34 2c 35 32 36 |,521,523|,524,526|
|00000510| 2c 35 32 37 2c 35 32 39 | 2c 35 33 36 0d 02 26 35 |,527,529|,536..&5|
|00000520| dc 20 35 33 39 2c 35 34 | 37 2c 35 34 39 2c 35 37 |. 539,54|7,549,57|
|00000530| 39 2c 35 39 30 2c 35 39 | 39 2c 36 34 30 2c 36 39 |9,590,59|9,640,69|
|00000540| 35 2c 36 39 37 2c 36 39 | 39 2c 37 34 30 2c 37 35 |5,697,69|9,740,75|
|00000550| 32 0d 02 30 35 dc 20 37 | 35 34 2c 37 35 36 2c 37 |2..05. 7|54,756,7|
|00000560| 35 38 2c 37 37 31 2c 37 | 37 33 2c 37 37 33 2c 37 |58,771,7|73,773,7|
|00000570| 37 36 2c 37 37 38 2c 37 | 38 30 2c 37 38 31 2c 37 |76,778,7|80,781,7|
|00000580| 38 33 2c 37 38 39 0d 02 | 3a 35 dc 20 38 30 30 2c |83,789..|:5. 800,|
|00000590| 38 31 31 2c 38 34 30 2c | 38 35 39 2c 38 36 31 2c |811,840,|859,861,|
|000005a0| 38 36 34 2c 38 36 36 2c | 38 36 36 2c 38 36 38 2c |864,866,|866,868,|
|000005b0| 38 37 31 2c 38 37 34 2c | 38 39 34 0d 02 44 35 dc |871,874,|894..D5.|
|000005c0| 20 38 39 37 2c 39 30 30 | 2c 39 30 32 2c 39 30 39 | 897,900|,902,909|
|000005d0| 2c 39 31 33 2c 39 31 34 | 2c 39 34 30 2c 39 34 34 |,913,914|,940,944|
|000005e0| 2c 39 34 36 2c 39 35 34 | 2c 39 35 38 2c 39 36 31 |,946,954|,958,961|
|000005f0| 0d 02 4e 35 dc 20 39 36 | 33 2c 39 36 39 2c 39 37 |..N5. 96|3,969,97|
|00000600| 34 2c 39 37 34 2c 39 37 | 37 2c 39 37 37 2c 39 37 |4,974,97|7,977,97|
|00000610| 39 2c 39 38 31 2c 39 38 | 33 2c 39 38 36 2c 39 38 |9,981,98|3,986,98|
|00000620| 38 2c 39 39 38 0d 02 58 | 05 3a 0d 02 62 08 dc 20 |8,998..X|.:..b.. |
|00000630| 34 39 0d 02 6c 35 dc 20 | 32 31 30 2c 32 38 39 2c |49..l5. |210,289,|
|00000640| 33 30 36 2c 33 30 36 2c | 33 31 35 2c 33 31 35 2c |306,306,|315,315,|
|00000650| 33 32 30 2c 33 32 39 2c | 33 33 31 2c 33 33 31 2c |320,329,|331,331,|
|00000660| 33 33 33 2c 33 33 34 0d | 02 76 35 dc 20 33 33 38 |333,334.|.v5. 338|
|00000670| 2c 33 33 38 2c 33 35 30 | 2c 33 35 39 2c 33 37 30 |,338,350|,359,370|
|00000680| 2c 33 38 39 2c 34 30 30 | 2c 34 31 38 2c 34 32 35 |,389,400|,418,425|
|00000690| 2c 34 32 35 2c 34 33 30 | 2c 34 33 39 0d 02 80 35 |,425,430|,439...5|
|000006a0| dc 20 34 35 34 2c 34 35 | 34 2c 34 35 37 2c 34 35 |. 454,45|4,457,45|
|000006b0| 37 2c 34 36 35 2c 34 36 | 35 2c 34 37 33 2c 34 37 |7,465,46|5,473,47|
|000006c0| 34 2c 34 37 36 2c 34 37 | 37 2c 34 38 30 2c 34 39 |4,476,47|7,480,49|
|000006d0| 39 0d 02 8a 35 dc 20 35 | 31 30 2c 35 31 33 2c 35 |9...5. 5|10,513,5|
|000006e0| 31 35 2c 35 31 36 2c 35 | 32 32 2c 35 32 32 2c 35 |15,516,5|22,522,5|
|000006f0| 32 35 2c 35 32 35 2c 35 | 33 37 2c 35 33 38 2c 35 |25,525,5|37,538,5|
|00000700| 34 38 2c 35 34 38 0d 02 | 94 35 dc 20 35 38 30 2c |48,548..|.5. 580,|
|00000710| 35 38 39 2c 36 30 30 2c | 36 33 39 2c 36 39 36 2c |589,600,|639,696,|
|00000720| 36 39 36 2c 37 30 30 2c | 37 33 39 2c 37 35 33 2c |696,700,|739,753,|
|00000730| 37 35 33 2c 37 35 37 2c | 37 35 37 0d 02 9e 35 dc |753,757,|757...5.|
|00000740| 20 37 37 32 2c 37 37 32 | 2c 37 37 34 2c 37 37 35 | 772,772|,774,775|
|00000750| 2c 37 37 39 2c 37 37 39 | 2c 37 38 32 2c 37 38 32 |,779,779|,782,782|
|00000760| 2c 37 39 30 2c 37 39 39 | 2c 38 31 38 2c 38 33 39 |,790,799|,818,839|
|00000770| 0d 02 a8 35 dc 20 38 36 | 30 2c 38 36 30 2c 38 36 |...5. 86|0,860,86|
|00000780| 35 2c 38 36 35 2c 38 36 | 37 2c 38 36 37 2c 38 37 |5,865,86|7,867,87|
|00000790| 32 2c 38 37 33 2c 39 30 | 31 2c 39 30 31 2c 39 31 |2,873,90|1,901,91|
|000007a0| 31 2c 39 31 32 0d 02 b2 | 35 dc 20 39 31 35 2c 39 |1,912...|5. 915,9|
|000007b0| 33 39 2c 39 35 35 2c 39 | 35 37 2c 39 36 32 2c 39 |39,955,9|57,962,9|
|000007c0| 36 32 2c 39 37 31 2c 39 | 37 33 2c 39 37 36 2c 39 |62,971,9|73,976,9|
|000007d0| 37 36 2c 39 37 38 2c 39 | 37 38 0d 02 bc 0d dc 20 |76,978,9|78..... |
|000007e0| 39 38 37 2c 39 38 37 0d | 02 c6 05 3a 0d 02 d0 07 |987,987.|...:....|
|000007f0| dc 20 35 0d 02 da 19 dc | 20 35 32 38 2c 38 39 35 |. 5.....| 528,895|
|00000800| 2c 39 34 35 2c 39 37 35 | 2c 39 38 32 0d 02 e4 05 |,945,975|,982....|
|00000810| 3a 0d 02 ee 08 dc 20 34 | 35 0d 02 f8 35 dc 20 32 |:..... 4|5...5. 2|
|00000820| 30 31 2c 32 31 31 2c 32 | 31 36 2c 32 36 34 2c 32 |01,211,2|16,264,2|
|00000830| 38 32 2c 32 38 35 2c 32 | 39 32 2c 32 39 36 2c 33 |82,285,2|92,296,3|
|00000840| 34 34 2c 33 36 32 2c 33 | 36 39 2c 33 39 36 0d 03 |44,362,3|69,396..|
|00000850| 02 35 dc 20 35 39 36 2c | 36 31 34 2c 36 31 36 2c |.5. 596,|614,616,|
|00000860| 36 31 37 2c 36 34 39 2c | 36 35 32 2c 36 36 32 2c |617,649,|652,662,|
|00000870| 37 30 35 2c 37 31 37 2c | 37 36 32 2c 37 36 35 2c |705,717,|762,765,|
|00000880| 37 39 37 0d 03 0c 35 dc | 20 38 31 30 2c 38 31 32 |797...5.| 810,812|
|00000890| 2c 38 31 33 2c 38 31 34 | 2c 38 31 35 2c 38 31 36 |,813,814|,815,816|
|000008a0| 2c 38 31 37 2c 38 32 35 | 2c 38 32 37 2c 38 33 30 |,817,825|,827,830|
|000008b0| 2c 38 38 30 2c 38 38 37 | 0d 03 16 29 dc 20 38 39 |,880,887|...). 89|
|000008c0| 36 2c 39 31 30 2c 39 31 | 39 2c 39 32 36 2c 39 36 |6,910,91|9,926,96|
|000008d0| 36 2c 39 37 30 2c 39 39 | 30 2c 39 39 36 2c 39 39 |6,970,99|0,996,99|
|000008e0| 39 0d 03 20 05 3a 0d 03 | 2a 32 f4 20 4c 6f 61 64 |9.. .:..|*2. Load|
|000008f0| 73 20 6d 65 6e 75 73 20 | 69 6e 74 6f 20 6d 65 6d |s menus |into mem|
|00000900| 6f 72 79 2d 72 65 73 69 | 64 65 6e 74 20 64 61 74 |ory-resi|dent dat|
|00000910| 61 20 62 6c 6f 63 6b 2e | 0d 03 34 05 3a 0d 03 3e |a block.|..4.:..>|
|00000920| 11 dd 20 f2 6c 6f 61 64 | 5f 6d 65 6e 75 73 0d 03 |.. .load|_menus..|
|00000930| 48 07 ea 20 dc 0d 03 52 | 08 f7 20 2b 30 0d 03 5c |H.. ...R|.. +0..\|
|00000940| 0b f3 20 6d 65 6e 75 24 | 0d 03 66 11 64 69 6d 25 |.. menu$|..f.dim%|
|00000950| 3d a9 28 6d 65 6e 75 24 | 29 0d 03 70 15 de 20 6d |=.(menu$|)..p.. m|
|00000960| 65 6e 75 5f 64 61 74 61 | 25 20 64 69 6d 25 0d 03 |enu_data|% dim%..|
|00000970| 7a 15 24 6d 65 6e 75 5f | 64 61 74 61 25 3d 6d 65 |z.$menu_|data%=me|
|00000980| 6e 75 24 0d 03 84 14 63 | 75 72 72 65 6e 74 5f 6d |nu$....c|urrent_m|
|00000990| 65 6e 75 24 3d 22 22 0d | 03 8e 05 e1 0d 03 98 05 |enu$="".|........|
|000009a0| 3a 0d 03 a2 33 dc 20 22 | 5e 4e 65 77 20 43 6f 64 |:...3. "|^New Cod|
|000009b0| 65 73 7c 6d 65 6e 62 6c | 6b 25 7c 49 6e 66 6f 7c |es|menbl|k%|Info||
|000009c0| 21 69 6e 66 6f 25 7c 51 | 75 69 74 7c 5c 66 69 6e |!info%|Q|uit|\fin|
|000009d0| 7c 7e 7c 22 0d 03 ac 05 | 3a 0d 03 b6 23 f4 20 4d ||~|"....|:...#. M|
|000009e0| 61 69 6e 20 70 6f 6c 6c | 69 6e 67 20 6c 6f 6f 70 |ain poll|ing loop|
|000009f0| 20 6f 66 20 70 72 6f 67 | 72 61 6d 2e 0d 03 c0 05 | of prog|ram.....|
|00000a00| 3a 0d 03 ca 0b dd 20 f2 | 6d 61 69 6e 0d 03 d4 05 |:..... .|main....|
|00000a10| f5 0d 03 de 21 21 62 6c | 6f 63 6b 25 3d 25 31 30 |....!!bl|ock%=%10|
|00000a20| 30 31 31 31 31 31 31 31 | 30 31 31 30 31 31 30 30 |01111111|01101100|
|00000a30| 31 31 0d 03 e8 25 c8 99 | 20 22 57 69 6d 70 5f 50 |11...%..| "Wimp_P|
|00000a40| 6f 6c 6c 22 2c 30 2c 62 | 6c 6f 63 6b 25 20 b8 20 |oll",0,b|lock% . |
|00000a50| 72 65 61 73 6f 6e 25 0d | 03 f2 10 c8 8e 20 72 65 |reason%.|..... re|
|00000a60| 61 73 6f 6e 25 20 ca 0d | 03 fc 0f c9 20 32 20 3a |ason% ..|.... 2 :|
|00000a70| 20 f2 6f 70 65 6e 0d 04 | 06 10 c9 20 33 20 3a 20 | .open..|... 3 : |
|00000a80| f2 63 6c 6f 73 65 0d 04 | 10 3b c9 20 36 20 3a 20 |.close..|.;. 6 : |
|00000a90| f2 63 68 65 63 6b 5f 6d | 6f 75 73 65 28 21 62 6c |.check_m|ouse(!bl|
|00000aa0| 6f 63 6b 25 2c 62 6c 6f | 63 6b 25 21 34 2c 62 6c |ock%,blo|ck%!4,bl|
|00000ab0| 6f 63 6b 25 21 38 2c 62 | 6c 6f 63 6b 25 21 31 32 |ock%!8,b|lock%!12|
|00000ac0| 29 0d 04 1a 12 c9 20 38 | 20 3a 20 f2 77 6f 72 6b |)..... 8| : .work|
|00000ad0| 6f 75 74 0d 04 24 16 c9 | 20 39 20 3a 20 f2 6d 65 |out..$..| 9 : .me|
|00000ae0| 6e 75 5f 73 65 6c 65 63 | 74 0d 04 2e 05 cb 0d 04 |nu_selec|t.......|
|00000af0| 38 2d fd 20 28 72 65 61 | 73 6f 6e 25 3d 31 37 20 |8-. (rea|son%=17 |
|00000b00| 84 20 72 65 61 73 6f 6e | 25 3d 31 38 29 20 80 20 |. reason|%=18) . |
|00000b10| 62 6c 6f 63 6b 25 21 31 | 36 3d 30 0d 04 42 05 e1 |block%!1|6=0..B..|
|00000b20| 0d 04 4c 05 3a 0d 04 56 | 1f f4 20 50 75 74 73 20 |..L.:..V|.. Puts |
|00000b30| 73 70 72 69 74 65 20 6f | 6e 74 6f 20 69 63 6f 6e |sprite o|nto icon|
|00000b40| 62 61 72 2e 0d 04 60 05 | 3a 0d 04 6a 17 dd 20 a4 |bar...`.|:..j.. .|
|00000b50| 69 63 6f 6e 62 61 72 28 | 73 70 6e 61 6d 65 24 29 |iconbar(|spname$)|
|00000b60| 0d 04 74 0e 21 62 6c 6f | 63 6b 25 3d 2d 31 0d 04 |..t.!blo|ck%=-1..|
|00000b70| 7e 0e 62 6c 6f 63 6b 25 | 21 34 3d 30 0d 04 88 0e |~.block%|!4=0....|
|00000b80| 62 6c 6f 63 6b 25 21 38 | 3d 30 0d 04 92 10 62 6c |block%!8|=0....bl|
|00000b90| 6f 63 6b 25 21 31 32 3d | 36 33 0d 04 9c 10 62 6c |ock%!12=|63....bl|
|00000ba0| 6f 63 6b 25 21 31 36 3d | 36 34 0d 04 a6 13 62 6c |ock%!16=|64....bl|
|00000bb0| 6f 63 6b 25 21 32 30 3d | 26 32 31 30 32 0d 04 b0 |ock%!20=|&2102...|
|00000bc0| 1c de 20 62 6c 6f 63 6b | 25 21 32 34 20 28 a9 73 |.. block|%!24 (.s|
|00000bd0| 70 6e 61 6d 65 24 2b 31 | 29 0d 04 ba 18 24 28 62 |pname$+1|)....$(b|
|00000be0| 6c 6f 63 6b 25 21 32 34 | 29 3d 73 70 6e 61 6d 65 |lock%!24|)=spname|
|00000bf0| 24 0d 04 c4 15 62 6c 6f | 63 6b 25 21 32 38 3d 73 |$....blo|ck%!28=s|
|00000c00| 70 72 69 74 65 25 0d 04 | ce 1a 62 6c 6f 63 6b 25 |prite%..|..block%|
|00000c10| 21 33 32 3d 28 a9 73 70 | 6e 61 6d 65 24 2b 31 29 |!32=(.sp|name$+1)|
|00000c20| 0d 04 d8 28 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...(.. "|Wimp_Cre|
|00000c30| 61 74 65 49 63 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 25 |ateIcon"|,,block%|
|00000c40| 20 b8 20 69 63 6f 6e 25 | 0d 04 e2 0a 3d 69 63 6f | . icon%|....=ico|
|00000c50| 6e 25 0d 04 ec 05 3a 0d | 04 f6 3b f4 20 52 65 61 |n%....:.|..;. Rea|
|00000c60| 64 73 20 73 70 72 69 74 | 65 73 20 66 72 6f 6d 20 |ds sprit|es from |
|00000c70| 73 70 72 69 74 65 20 66 | 69 6c 65 20 64 75 72 69 |sprite f|ile duri|
|00000c80| 6e 67 20 69 6e 69 74 69 | 61 6c 20 73 65 74 20 75 |ng initi|al set u|
|00000c90| 70 2e 0d 05 00 05 3a 0d | 05 0a 15 dd 20 f2 73 70 |p.....:.|.... .sp|
|00000ca0| 72 69 74 65 73 28 66 69 | 6c 65 24 29 0d 05 14 0f |rites(fi|le$)....|
|00000cb0| 73 70 3d 8e 28 66 69 6c | 65 24 29 0d 05 1e 10 64 |sp=.(fil|e$)....d|
|00000cc0| 69 6d 25 3d a2 23 73 70 | 2b 31 36 0d 05 28 08 d9 |im%=.#sp|+16..(..|
|00000cd0| 23 73 70 0d 05 32 12 de | 20 73 70 72 69 74 65 25 |#sp..2..| sprite%|
|00000ce0| 20 64 69 6d 25 0d 05 3c | 11 21 73 70 72 69 74 65 | dim%..<|.!sprite|
|00000cf0| 25 3d 64 69 6d 25 0d 05 | 46 0f 73 70 72 69 74 65 |%=dim%..|F.sprite|
|00000d00| 25 21 34 3d 30 0d 05 50 | 10 73 70 72 69 74 65 25 |%!4=0..P|.sprite%|
|00000d10| 21 38 3d 31 36 0d 05 5a | 11 73 70 72 69 74 65 25 |!8=16..Z|.sprite%|
|00000d20| 21 31 32 3d 31 36 0d 05 | 64 29 c8 99 20 22 4f 53 |!12=16..|d).. "OS|
|00000d30| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 35 36 2b 31 |_SpriteO|p",256+1|
|00000d40| 30 2c 73 70 72 69 74 65 | 25 2c 66 69 6c 65 24 0d |0,sprite|%,file$.|
|00000d50| 05 6e 05 e1 0d 05 78 05 | 3a 0d 05 82 39 f4 20 43 |.n....x.|:...9. C|
|00000d60| 68 65 63 6b 73 20 73 74 | 61 74 65 20 6f 66 20 6d |hecks st|ate of m|
|00000d70| 6f 75 73 65 20 62 75 74 | 74 6f 6e 73 20 61 6e 64 |ouse but|tons and|
|00000d80| 20 61 63 74 73 20 61 63 | 63 6f 72 64 69 6e 67 6c | acts ac|cordingl|
|00000d90| 79 2e 0d 05 8c 05 3a 0d | 05 96 25 dd 20 f2 63 68 |y.....:.|..%. .ch|
|00000da0| 65 63 6b 5f 6d 6f 75 73 | 65 28 6d 78 25 2c 6d 79 |eck_mous|e(mx%,my|
|00000db0| 25 2c 62 75 74 25 2c 68 | 6e 64 25 29 0d 05 a0 0d |%,but%,h|nd%)....|
|00000dc0| c8 8e 20 62 75 74 25 20 | ca 0d 05 aa 38 c9 20 32 |.. but% |....8. 2|
|00000dd0| 20 3a 20 e7 20 68 6e 64 | 25 3d 2d 32 20 8c 20 f2 | : . hnd|%=-2 . .|
|00000de0| 63 72 65 61 74 65 5f 69 | 63 6f 6e 5f 6d 65 6e 75 |create_i|con_menu|
|00000df0| 28 22 4e 65 77 20 43 6f | 64 65 73 22 2c 6d 78 25 |("New Co|des",mx%|
|00000e00| 29 0d 05 b4 24 c9 20 34 | 20 3a 20 e7 20 68 6e 64 |)...$. 4| : . hnd|
|00000e10| 25 3d 2d 32 20 8c 20 f2 | 63 72 65 61 74 65 5f 77 |%=-2 . .|create_w|
|00000e20| 69 6e 64 6f 77 0d 05 be | 09 c9 20 31 20 3a 0d 05 |indow...|.. 1 :..|
|00000e30| c8 05 cb 0d 05 d2 05 e1 | 0d 05 dc 05 3a 0d 05 e6 |........|....:...|
|00000e40| 42 f4 20 50 75 74 73 20 | 6d 65 6e 75 20 66 6f 72 |B. Puts |menu for|
|00000e50| 20 69 63 6f 6e 20 62 61 | 72 20 6f 6e 20 73 63 72 | icon ba|r on scr|
|00000e60| 65 65 6e 2c 20 62 75 69 | 6c 64 69 6e 67 20 6d 65 |een, bui|lding me|
|00000e70| 6e 75 20 64 79 6e 61 6d | 69 63 61 6c 6c 79 2e 0d |nu dynam|ically..|
|00000e80| 05 f0 05 3a 0d 05 fa 22 | dd 20 f2 63 72 65 61 74 |...:..."|. .creat|
|00000e90| 65 5f 69 63 6f 6e 5f 6d | 65 6e 75 28 74 69 74 6c |e_icon_m|enu(titl|
|00000ea0| 65 24 2c 78 25 29 0d 06 | 04 10 6d 65 6e 75 78 25 |e$,x%)..|..menux%|
|00000eb0| 3d 78 25 2d 36 34 0d 06 | 0e 2c c8 99 20 22 57 69 |=x%-64..|.,.. "Wi|
|00000ec0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00000ed0| 62 6c 6b 25 2c 6d 65 6e | 75 78 25 2c 6d 65 6e 75 |blk%,men|ux%,menu|
|00000ee0| 79 25 0d 06 18 05 e1 0d | 06 22 05 3a 0d 06 2c 21 |y%......|.".:..,!|
|00000ef0| f4 20 42 75 69 6c 64 73 | 20 6d 65 6e 75 20 66 72 |. Builds| menu fr|
|00000f00| 6f 6d 20 6d 65 6e 75 20 | 64 61 74 61 2e 0d 06 36 |om menu |data...6|
|00000f10| 05 3a 0d 06 40 23 dd 20 | f2 62 75 69 6c 64 5f 6d |.:..@#. |.build_m|
|00000f20| 65 6e 75 28 74 69 74 6c | 65 24 2c f8 20 68 65 69 |enu(titl|e$,. hei|
|00000f30| 67 68 74 25 29 0d 06 4a | 41 ea 20 6f 66 66 73 65 |ght%)..J|A. offse|
|00000f40| 74 25 2c 69 25 2c 6d 65 | 6e 75 49 74 65 6d 73 25 |t%,i%,me|nuItems%|
|00000f50| 2c 64 6f 74 73 25 2c 77 | 69 6d 70 66 6c 61 67 73 |,dots%,w|impflags|
|00000f60| 2c 66 6c 61 67 73 2c 70 | 74 72 25 2c 6e 61 6d 65 |,flags,p|tr%,name|
|00000f70| 24 2c 70 74 72 24 0d 06 | 54 29 6f 66 66 73 65 74 |$,ptr$..|T)offset|
|00000f80| 25 3d a4 66 69 6e 64 5f | 6d 65 6e 75 28 74 69 74 |%=.find_|menu(tit|
|00000f90| 6c 65 24 2c 6d 65 6e 75 | 5f 64 61 74 61 25 29 0d |le$,menu|_data%).|
|00000fa0| 06 5e 2d e7 20 6f 66 66 | 73 65 74 25 3d b9 20 8c |.^-. off|set%=. .|
|00000fb0| 20 85 20 34 32 2c 22 43 | 61 6e 27 74 20 66 69 6e | . 42,"C|an't fin|
|00000fc0| 64 20 6d 65 6e 75 20 64 | 61 74 61 22 0d 06 68 2b |d menu d|ata"..h+|
|00000fd0| 62 6c 6b 24 3d a4 67 65 | 74 5f 6d 65 6e 75 5f 69 |blk$=.ge|t_menu_i|
|00000fe0| 74 65 6d 28 6d 65 6e 75 | 5f 64 61 74 61 25 2c 6f |tem(menu|_data%,o|
|00000ff0| 66 66 73 65 74 25 29 0d | 06 72 10 62 6c 6b 25 3d |ffset%).|.r.blk%=|
|00001000| a0 28 62 6c 6b 24 29 0d | 06 7c 15 24 62 6c 6b 25 |.(blk$).|.|.$blk%|
|00001010| 3d c0 74 69 74 6c 65 24 | 2c 31 32 29 0d 06 86 0d |=.title$|,12)....|
|00001020| 62 6c 6b 25 3f 31 32 3d | 37 0d 06 90 0d 62 6c 6b |blk%?12=|7....blk|
|00001030| 25 3f 31 33 3d 32 0d 06 | 9a 0d 62 6c 6b 25 3f 31 |%?13=2..|..blk%?1|
|00001040| 34 3d 37 0d 06 a4 0d 62 | 6c 6b 25 3f 31 35 3d 30 |4=7....b|lk%?15=0|
|00001050| 0d 06 ae 0f 62 6c 6b 25 | 21 31 36 3d 31 37 32 0d |....blk%|!16=172.|
|00001060| 06 b8 0e 62 6c 6b 25 21 | 32 30 3d 34 34 0d 06 c2 |...blk%!|20=44...|
|00001070| 0d 62 6c 6b 25 21 32 34 | 3d 30 0d 06 cc 09 69 25 |.blk%!24|=0....i%|
|00001080| 3d 32 38 0d 06 d6 10 6d | 65 6e 75 49 74 65 6d 73 |=28....m|enuItems|
|00001090| 25 3d 30 0d 06 e0 0b 64 | 6f 74 73 25 3d 30 0d 06 |%=0....d|ots%=0..|
|000010a0| ea 3a c8 95 20 6d 65 6e | 75 5f 64 61 74 61 25 3f |.:.. men|u_data%?|
|000010b0| 6f 66 66 73 65 74 25 3c | 3e 97 22 7e 22 20 80 20 |offset%<|>."~" . |
|000010c0| 6d 65 6e 75 5f 64 61 74 | 61 25 3f 6f 66 66 73 65 |menu_dat|a%?offse|
|000010d0| 74 25 3c 3e 97 22 5e 22 | 0d 06 f4 0e f2 6d 65 6e |t%<>."^"|.....men|
|000010e0| 75 5f 69 74 65 6d 0d 06 | fe 4c e7 20 c2 6e 61 6d |u_item..|.L. .nam|
|000010f0| 65 24 2c 31 29 3d 22 40 | 22 20 8c 20 6e 61 6d 65 |e$,1)="@|" . name|
|00001100| 24 3d c0 6e 61 6d 65 24 | 2c a9 6e 61 6d 65 24 2d |$=.name$|,.name$-|
|00001110| 31 29 3a 70 74 72 24 3d | a4 62 75 69 6c 64 5f 73 |1):ptr$=|.build_s|
|00001120| 75 62 6d 65 6e 75 28 6e | 61 6d 65 24 2c 70 6f 73 |ubmenu(n|ame$,pos|
|00001130| 25 29 0d 07 08 15 e7 20 | 28 66 6c 61 67 73 20 80 |%)..... |(flags .|
|00001140| 20 34 29 3d 34 20 8c 0d | 07 12 15 69 6e 73 74 72 | 4)=4 ..|...instr|
|00001150| 25 3d a7 70 74 72 24 2c | 22 2c 22 29 0d 07 1c 23 |%=.ptr$,|",")...#|
|00001160| 62 6c 6b 25 21 28 69 25 | 2b 31 32 29 3d a0 28 c0 |blk%!(i%|+12)=.(.|
|00001170| 70 74 72 24 2c 69 6e 73 | 74 72 25 2d 31 29 29 0d |ptr$,ins|tr%-1)).|
|00001180| 07 26 18 70 74 72 24 3d | c1 70 74 72 24 2c 69 6e |.&.ptr$=|.ptr$,in|
|00001190| 73 74 72 25 2b 31 29 0d | 07 30 15 69 6e 73 74 72 |str%+1).|.0.instr|
|000011a0| 25 3d a7 70 74 72 24 2c | 22 2c 22 29 0d 07 3a 23 |%=.ptr$,|",")..:#|
|000011b0| 62 6c 6b 25 21 28 69 25 | 2b 31 36 29 3d a0 28 c0 |blk%!(i%|+16)=.(.|
|000011c0| 70 74 72 24 2c 69 6e 73 | 74 72 25 2d 31 29 29 0d |ptr$,ins|tr%-1)).|
|000011d0| 07 44 18 70 74 72 24 3d | c1 70 74 72 24 2c 69 6e |.D.ptr$=|.ptr$,in|
|000011e0| 73 74 72 25 2b 31 29 0d | 07 4e 18 62 6c 6b 25 21 |str%+1).|.N.blk%!|
|000011f0| 28 69 25 2b 32 30 29 3d | a0 28 70 74 72 24 29 0d |(i%+20)=|.(ptr$).|
|00001200| 07 58 1d 77 69 6d 70 66 | 6c 61 67 73 3d 77 69 6d |.X.wimpf|lags=wim|
|00001210| 70 66 6c 61 67 73 20 84 | 20 32 5e 38 0d 07 62 0b |pflags .| 2^8..b.|
|00001220| 70 74 72 25 3d 2d 31 0d | 07 6c 28 24 28 62 6c 6b |ptr%=-1.|.l($(blk|
|00001230| 25 21 28 69 25 2b 31 32 | 29 29 3d c0 6e 61 6d 65 |%!(i%+12|))=.name|
|00001240| 24 2c 62 6c 6b 25 21 28 | 69 25 2b 32 30 29 29 0d |$,blk%!(|i%+20)).|
|00001250| 07 76 05 cc 0d 07 80 1c | 24 28 62 6c 6b 25 2b 69 |.v......|$(blk%+i|
|00001260| 25 2b 31 32 29 3d c0 6e | 61 6d 65 24 2c 31 32 29 |%+12)=.n|ame$,12)|
|00001270| 0d 07 8a 10 70 74 72 25 | 3d a0 28 70 74 72 24 29 |....ptr%|=.(ptr$)|
|00001280| 0d 07 94 05 cd 0d 07 9e | 11 62 6c 6b 25 21 69 25 |........|.blk%!i%|
|00001290| 3d 66 6c 61 67 73 0d 07 | a8 14 62 6c 6b 25 21 28 |=flags..|..blk%!(|
|000012a0| 69 25 2b 34 29 3d 70 74 | 72 25 0d 07 b2 19 62 6c |i%+4)=pt|r%....bl|
|000012b0| 6b 25 21 28 69 25 2b 38 | 29 3d 77 69 6d 70 66 6c |k%!(i%+8|)=wimpfl|
|000012c0| 61 67 73 0d 07 bc 0c 69 | 25 3d 69 25 2b 32 34 0d |ags....i|%=i%+24.|
|000012d0| 07 c6 11 6d 65 6e 75 49 | 74 65 6d 73 25 2b 3d 31 |...menuI|tems%+=1|
|000012e0| 0d 07 d0 05 ce 0d 07 da | 29 68 65 69 67 68 74 25 |........|)height%|
|000012f0| 3d 39 36 2b 28 6d 65 6e | 75 49 74 65 6d 73 25 2a |=96+(men|uItems%*|
|00001300| 34 34 29 2b 28 64 6f 74 | 73 25 2a 32 34 29 0d 07 |44)+(dot|s%*24)..|
|00001310| e4 1c 63 75 72 72 65 6e | 74 5f 6d 65 6e 75 24 3d |..curren|t_menu$=|
|00001320| c0 24 62 6c 6b 25 2c 31 | 32 29 0d 07 ee 05 e1 0d |.$blk%,1|2)......|
|00001330| 07 f8 05 3a 0d 08 02 10 | dd 20 f2 6d 65 6e 75 5f |...:....|. .menu_|
|00001340| 69 74 65 6d 0d 08 0c 16 | 77 69 6d 70 66 6c 61 67 |item....|wimpflag|
|00001350| 73 3d 26 37 30 30 30 30 | 32 31 0d 08 16 0b 66 6c |s=&70000|21....fl|
|00001360| 61 67 73 3d 30 0d 08 20 | 0d 70 74 72 24 3d 22 2d |ags=0.. |.ptr$="-|
|00001370| 31 22 0d 08 2a 0c 66 75 | 6e 63 24 3d 22 22 0d 08 |1"..*.fu|nc$=""..|
|00001380| 34 2c 6e 61 6d 65 24 3d | a4 67 65 74 5f 6d 65 6e |4,name$=|.get_men|
|00001390| 75 5f 69 74 65 6d 28 6d | 65 6e 75 5f 64 61 74 61 |u_item(m|enu_data|
|000013a0| 25 2c 6f 66 66 73 65 74 | 25 29 0d 08 3e 50 e7 20 |%,offset|%)..>P. |
|000013b0| 6d 65 6e 75 5f 64 61 74 | 61 25 3f 6f 66 66 73 65 |menu_dat|a%?offse|
|000013c0| 74 25 3d 97 22 21 22 20 | 6f 66 66 73 65 74 25 2b |t%=."!" |offset%+|
|000013d0| 3d 31 3a 70 74 72 24 3d | a4 67 65 74 5f 6d 65 6e |=1:ptr$=|.get_men|
|000013e0| 75 5f 69 74 65 6d 28 6d | 65 6e 75 5f 64 61 74 61 |u_item(m|enu_data|
|000013f0| 25 2c 6f 66 66 73 65 74 | 25 29 0d 08 48 58 e7 20 |%,offset|%)..HX. |
|00001400| 6d 65 6e 75 5f 64 61 74 | 61 25 3f 6f 66 66 73 65 |menu_dat|a%?offse|
|00001410| 74 25 3d 97 22 7b 22 20 | 6f 66 66 73 65 74 25 2b |t%=."{" |offset%+|
|00001420| 3d 31 3a 77 69 6d 70 66 | 6c 61 67 73 3d a0 28 a4 |=1:wimpf|lags=.(.|
|00001430| 67 65 74 5f 6d 65 6e 75 | 5f 69 74 65 6d 28 6d 65 |get_menu|_item(me|
|00001440| 6e 75 5f 64 61 74 61 25 | 2c 6f 66 66 73 65 74 25 |nu_data%|,offset%|
|00001450| 29 29 0d 08 52 51 e7 20 | 6d 65 6e 75 5f 64 61 74 |))..RQ. |menu_dat|
|00001460| 61 25 3f 6f 66 66 73 65 | 74 25 3d 97 22 5c 22 20 |a%?offse|t%=."\" |
|00001470| 6f 66 66 73 65 74 25 2b | 3d 31 3a 66 75 6e 63 24 |offset%+|=1:func$|
|00001480| 3d a4 67 65 74 5f 6d 65 | 6e 75 5f 69 74 65 6d 28 |=.get_me|nu_item(|
|00001490| 6d 65 6e 75 5f 64 61 74 | 61 25 2c 6f 66 66 73 65 |menu_dat|a%,offse|
|000014a0| 74 25 29 0d 08 5c 49 e7 | 20 6d 65 6e 75 5f 64 61 |t%)..\I.| menu_da|
|000014b0| 74 61 25 3f 6f 66 66 73 | 65 74 25 3d 97 22 7e 22 |ta%?offs|et%=."~"|
|000014c0| 20 84 20 6d 65 6e 75 5f | 64 61 74 61 25 3f 6f 66 | . menu_|data%?of|
|000014d0| 66 73 65 74 25 3d 97 22 | 5e 22 20 66 6c 61 67 73 |fset%=."|^" flags|
|000014e0| 3d 66 6c 61 67 73 20 84 | 20 26 38 30 0d 08 66 2e |=flags .| &80..f.|
|000014f0| e7 20 c0 6e 61 6d 65 24 | 2c 31 29 3d 22 7d 22 20 |. .name$|,1)="}" |
|00001500| 8c 20 66 6c 61 67 73 2b | 3d 31 3a 6e 61 6d 65 24 |. flags+|=1:name$|
|00001510| 3d c1 6e 61 6d 65 24 2c | 32 29 0d 08 70 2e e7 20 |=.name$,|2)..p.. |
|00001520| c0 6e 61 6d 65 24 2c 31 | 29 3d 22 23 22 20 8c 20 |.name$,1|)="#" . |
|00001530| 66 6c 61 67 73 2b 3d 34 | 3a 6e 61 6d 65 24 3d c1 |flags+=4|:name$=.|
|00001540| 6e 61 6d 65 24 2c 32 29 | 0d 08 7a 3e e7 20 c2 6e |name$,2)|..z>. .n|
|00001550| 61 6d 65 24 2c 31 29 3d | 22 7d 22 20 8c 20 66 6c |ame$,1)=|"}" . fl|
|00001560| 61 67 73 2b 3d 32 3a 6e | 61 6d 65 24 3d c0 6e 61 |ags+=2:n|ame$=.na|
|00001570| 6d 65 24 2c a9 6e 61 6d | 65 24 2d 31 29 3a 64 6f |me$,.nam|e$-1):do|
|00001580| 74 73 25 2b 3d 31 0d 08 | 84 05 e1 0d 08 8e 05 3a |ts%+=1..|.......:|
|00001590| 0d 08 98 21 dd 20 a4 62 | 75 69 6c 64 5f 73 75 62 |...!. .b|uild_sub|
|000015a0| 6d 65 6e 75 28 74 69 74 | 6c 65 24 2c 70 6f 73 25 |menu(tit|le$,pos%|
|000015b0| 29 0d 08 a2 0f ea 20 62 | 6c 6b 24 2c 62 6c 6b 25 |)..... b|lk$,blk%|
|000015c0| 0d 08 ac 1c f2 62 75 69 | 6c 64 5f 6d 65 6e 75 28 |.....bui|ld_menu(|
|000015d0| 74 69 74 6c 65 24 2c 70 | 6f 73 25 29 0d 08 b6 09 |title$,p|os%)....|
|000015e0| 3d 62 6c 6b 24 0d 08 c0 | 05 3a 0d 08 ca 12 dd 20 |=blk$...|.:..... |
|000015f0| f2 6d 65 6e 75 5f 73 65 | 6c 65 63 74 0d 08 d4 20 |.menu_se|lect... |
|00001600| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 50 6f 69 6e |.. "Wimp|_GetPoin|
|00001610| 74 65 72 49 6e 66 6f 22 | 2c 2c 71 25 0d 08 de 0d |terInfo"|,,q%....|
|00001620| 62 75 74 25 3d 71 25 21 | 38 0d 08 e8 0c 64 65 70 |but%=q%!|8....dep|
|00001630| 74 68 25 3d 30 0d 08 f2 | 1f f2 64 65 63 6f 64 65 |th%=0...|..decode|
|00001640| 5f 6d 65 6e 75 28 63 75 | 72 72 65 6e 74 5f 6d 65 |_menu(cu|rrent_me|
|00001650| 6e 75 24 29 0d 08 fc 14 | e7 20 28 62 75 74 25 20 |nu$)....|. (but% |
|00001660| 80 20 31 29 3d 31 20 8c | 0d 09 06 2d f2 72 65 5f |. 1)=1 .|...-.re_|
|00001670| 6f 70 65 6e 6d 65 6e 75 | 28 63 75 72 72 65 6e 74 |openmenu|(current|
|00001680| 5f 6d 65 6e 75 24 2c 6d | 65 6e 75 78 25 2c 6d 65 |_menu$,m|enux%,me|
|00001690| 6e 75 79 25 29 0d 09 10 | 05 cc 0d 09 1a 14 63 75 |nuy%)...|......cu|
|000016a0| 72 72 65 6e 74 5f 6d 65 | 6e 75 24 3d 22 22 0d 09 |rrent_me|nu$=""..|
|000016b0| 24 05 cd 0d 09 2e 05 e1 | 0d 09 38 05 3a 0d 09 42 |$.......|..8.:..B|
|000016c0| 26 dd 20 f2 72 65 5f 6f | 70 65 6e 6d 65 6e 75 28 |&. .re_o|penmenu(|
|000016d0| 74 69 74 6c 65 24 2c 6d | 65 6e 78 25 2c 6d 65 6e |title$,m|enx%,men|
|000016e0| 79 25 29 0d 09 4c 29 6f | 66 66 73 65 74 25 3d a4 |y%)..L)o|ffset%=.|
|000016f0| 66 69 6e 64 5f 6d 65 6e | 75 28 74 69 74 6c 65 24 |find_men|u(title$|
|00001700| 2c 6d 65 6e 75 5f 64 61 | 74 61 25 29 0d 09 56 2e |,menu_da|ta%)..V.|
|00001710| 62 6c 6b 25 3d a0 28 a4 | 67 65 74 5f 6d 65 6e 75 |blk%=.(.|get_menu|
|00001720| 5f 69 74 65 6d 28 6d 65 | 6e 75 5f 64 61 74 61 25 |_item(me|nu_data%|
|00001730| 2c 6f 66 66 73 65 74 25 | 29 29 0d 09 60 2a c8 99 |,offset%|))..`*..|
|00001740| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001750| 75 22 2c 2c 62 6c 6b 25 | 2c 6d 65 6e 78 25 2c 6d |u",,blk%|,menx%,m|
|00001760| 65 6e 79 25 0d 09 6a 18 | 63 75 72 72 65 6e 74 5f |eny%..j.|current_|
|00001770| 6d 65 6e 75 24 3d 74 69 | 74 6c 65 24 0d 09 74 05 |menu$=ti|tle$..t.|
|00001780| e1 0d 09 7e 05 3a 0d 09 | 88 1a dd 20 f2 64 65 63 |...~.:..|... .dec|
|00001790| 6f 64 65 5f 6d 65 6e 75 | 28 74 69 74 6c 65 24 29 |ode_menu|(title$)|
|000017a0| 0d 09 92 15 ea 20 6d 65 | 6e 5f 6c 6f 6f 70 25 2c |..... me|n_loop%,|
|000017b0| 66 75 6e 63 24 0d 09 9c | 29 6f 66 66 73 65 74 25 |func$...|)offset%|
|000017c0| 3d a4 66 69 6e 64 5f 6d | 65 6e 75 28 74 69 74 6c |=.find_m|enu(titl|
|000017d0| 65 24 2c 6d 65 6e 75 5f | 64 61 74 61 25 29 0d 09 |e$,menu_|data%)..|
|000017e0| a6 2e 62 6c 6b 25 3d a0 | 28 a4 67 65 74 5f 6d 65 |..blk%=.|(.get_me|
|000017f0| 6e 75 5f 69 74 65 6d 28 | 6d 65 6e 75 5f 64 61 74 |nu_item(|menu_dat|
|00001800| 61 25 2c 6f 66 66 73 65 | 74 25 29 29 0d 09 b0 0f |a%,offse|t%))....|
|00001810| 6d 65 6e 5f 6c 6f 6f 70 | 25 3d 30 0d 09 ba 1f c8 |men_loop|%=0.....|
|00001820| 95 20 6d 65 6e 5f 6c 6f | 6f 70 25 3c 3d 62 6c 6f |. men_lo|op%<=blo|
|00001830| 63 6b 25 21 64 65 70 74 | 68 25 0d 09 c4 0b 64 6f |ck%!dept|h%....do|
|00001840| 74 73 25 3d 30 0d 09 ce | 0e f2 6d 65 6e 75 5f 69 |ts%=0...|..menu_i|
|00001850| 74 65 6d 0d 09 d8 10 6d | 65 6e 5f 6c 6f 6f 70 25 |tem....m|en_loop%|
|00001860| 2b 3d 31 0d 09 e2 05 ce | 0d 09 ec 18 e7 20 62 6c |+=1.....|..... bl|
|00001870| 6f 63 6b 25 21 64 65 70 | 74 68 25 3e 2d 31 20 8c |ock%!dep|th%>-1 .|
|00001880| 0d 09 f6 15 e7 20 c2 6e | 61 6d 65 24 2c 31 29 3d |..... .n|ame$,1)=|
|00001890| 22 40 22 20 8c 0d 0a 00 | 1a 6e 61 6d 65 24 3d c0 |"@" ....|.name$=.|
|000018a0| 6e 61 6d 65 24 2c a9 6e | 61 6d 65 24 2d 31 29 0d |name$,.n|ame$-1).|
|000018b0| 0a 0a 0d 64 65 70 74 68 | 25 2b 3d 34 0d 0a 14 17 |...depth|%+=4....|
|000018c0| f2 64 65 63 6f 64 65 5f | 6d 65 6e 75 28 6e 61 6d |.decode_|menu(nam|
|000018d0| 65 24 29 0d 0a 1e 05 cd | 0d 0a 28 21 e7 20 66 75 |e$).....|..(!. fu|
|000018e0| 6e 63 24 3c 3e 22 22 20 | 8c 20 61 3d a0 28 22 46 |nc$<>"" |. a=.("F|
|000018f0| 4e 22 2b 66 75 6e 63 24 | 29 0d 0a 32 05 cd 0d 0a |N"+func$|)..2....|
|00001900| 3c 05 e1 0d 0a 46 05 3a | 0d 0a 50 21 f4 20 4c 6f |<....F.:|..P!. Lo|
|00001910| 61 64 73 20 69 6e 20 76 | 61 72 69 6f 75 73 20 74 |ads in v|arious t|
|00001920| 65 6d 70 6c 61 74 65 73 | 2e 0d 0a 5a 05 3a 0d 0a |emplates|...Z.:..|
|00001930| 64 17 dd 20 a4 74 65 6d | 70 6c 61 74 65 73 28 66 |d.. .tem|plates(f|
|00001940| 69 6c 65 24 29 0d 0a 6e | 16 de 20 51 25 20 32 30 |ile$)..n|.. Q% 20|
|00001950| 34 38 2c 20 50 25 20 32 | 30 34 38 0d 0a 78 0f 6d |48, P% 2|048..x.m|
|00001960| 61 78 77 73 25 3d 26 31 | 30 30 0d 0a 82 23 de 20 |axws%=&1|00...#. |
|00001970| 69 6e 64 69 72 25 20 6d | 61 78 77 73 25 2c 20 69 |indir% m|axws%, i|
|00001980| 6e 64 69 72 32 25 20 6d | 61 78 77 73 25 0d 0a 8c |ndir2% m|axws%...|
|00001990| 21 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 54 65 |!.. "Wim|p_OpenTe|
|000019a0| 6d 70 6c 61 74 65 22 2c | 2c 66 69 6c 65 24 0d 0a |mplate",|,file$..|
|000019b0| 96 3f c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.?.. "Wi|mp_LoadT|
|000019c0| 65 6d 70 6c 61 74 65 22 | 2c 2c 51 25 2c 69 6e 64 |emplate"|,,Q%,ind|
|000019d0| 69 72 25 2c 69 6e 64 69 | 72 25 2b 6d 61 78 77 73 |ir%,indi|r%+maxws|
|000019e0| 25 2c 2d 31 2c 22 69 6e | 66 6f 22 2c 30 0d 0a a0 |%,-1,"in|fo",0...|
|000019f0| 41 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |A.. "Wim|p_LoadTe|
|00001a00| 6d 70 6c 61 74 65 22 2c | 2c 50 25 2c 69 6e 64 69 |mplate",|,P%,indi|
|00001a10| 72 32 25 2c 69 6e 64 69 | 72 32 25 2b 6d 61 78 77 |r2%,indi|r2%+maxw|
|00001a20| 73 25 2c 2d 31 2c 22 6d | 61 69 6e 22 2c 30 0d 0a |s%,-1,"m|ain",0..|
|00001a30| aa 26 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.&.. "Wi|mp_Creat|
|00001a40| 65 57 69 6e 64 6f 77 22 | 2c 2c 51 25 20 b8 20 69 |eWindow"|,,Q% . i|
|00001a50| 6e 66 6f 25 0d 0a b4 26 | c8 99 20 22 57 69 6d 70 |nfo%...&|.. "Wimp|
|00001a60| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00001a70| 50 25 20 b8 20 6d 61 69 | 6e 25 0d 0a be 1b c8 99 |P% . mai|n%......|
|00001a80| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 54 65 6d 70 | "Wimp_C|loseTemp|
|00001a90| 6c 61 74 65 22 0d 0a c8 | 0a 3d 69 6e 66 6f 25 0d |late"...|.=info%.|
|00001aa0| 0a d2 05 3a 0d 0a dc 34 | f4 20 53 65 74 73 20 76 |...:...4|. Sets v|
|00001ab0| 65 72 73 69 6f 6e 20 6e | 75 6d 62 65 72 20 6f 66 |ersion n|umber of|
|00001ac0| 20 70 72 6f 67 72 61 6d | 20 69 6e 20 69 6e 66 6f | program| in info|
|00001ad0| 20 77 69 6e 64 6f 77 2e | 0d 0a e6 05 3a 0d 0a f0 | window.|....:...|
|00001ae0| 1f dd 20 f2 73 65 74 5f | 76 65 72 73 69 6f 6e 28 |.. .set_|version(|
|00001af0| 70 74 25 2c 48 25 2c 76 | 65 72 24 29 0d 0a fa 0b |pt%,H%,v|er$)....|
|00001b00| 21 71 25 3d 70 74 25 0d | 0b 04 0b 71 25 21 34 3d |!q%=pt%.|...q%!4=|
|00001b10| 48 25 0d 0b 0e 1d c8 99 | 22 57 69 6d 70 5f 47 65 |H%......|"Wimp_Ge|
|00001b20| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00001b30| 0b 18 0f 24 71 25 21 32 | 38 3d 76 65 72 24 0d 0b |...$q%!2|8=ver$..|
|00001b40| 22 0a 71 25 21 38 3d 30 | 0d 0b 2c 0b 71 25 21 31 |".q%!8=0|..,.q%!1|
|00001b50| 32 3d 30 0d 0b 36 1e c8 | 99 20 22 57 69 6d 70 5f |2=0..6..|. "Wimp_|
|00001b60| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00001b70| 25 0d 0b 40 05 e1 0d 0b | 4a 05 3a 0d 0b 54 23 f4 |%..@....|J.:..T#.|
|00001b80| 20 53 68 75 74 73 20 70 | 72 6f 67 72 61 6d 20 64 | Shuts p|rogram d|
|00001b90| 6f 77 6e 20 61 6e 64 20 | 71 75 69 74 73 2e 0d 0b |own and |quits...|
|00001ba0| 5e 05 3a 0d 0b 68 0d dd | 20 f2 66 69 6e 69 73 68 |^.:..h..| .finish|
|00001bb0| 0d 0b 72 23 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |..r#.. "|Wimp_Clo|
|00001bc0| 73 65 44 6f 77 6e 22 2c | 68 61 6e 64 6c 65 25 2c |seDown",|handle%,|
|00001bd0| 21 71 25 0d 0b 7c 05 e0 | 0d 0b 86 05 e1 0d 0b 90 |!q%..|..|........|
|00001be0| 05 3a 0d 0b 9a 3e f4 20 | 50 72 6f 64 75 63 65 73 |.:...>. |Produces|
|00001bf0| 20 77 61 72 6e 69 6e 67 | 20 62 6f 78 20 6f 6e 20 | warning| box on |
|00001c00| 73 63 72 65 65 6e 20 63 | 6f 6e 74 61 69 6e 69 6e |screen c|ontainin|
|00001c10| 67 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 2e |g error |message.|
|00001c20| 0d 0b a4 05 3a 0d 0b ae | 0c dd 20 f2 65 72 72 6f |....:...|.. .erro|
|00001c30| 72 0d 0b b8 18 c8 99 20 | 22 57 69 6d 70 5f 44 72 |r...... |"Wimp_Dr|
|00001c40| 61 67 42 6f 78 22 2c 2c | 30 0d 0b c2 0d 21 62 6c |agBox",,|0....!bl|
|00001c50| 6f 63 6b 25 3d 9f 0d 0b | cc 0b 65 72 72 6f 72 3d |ock%=...|..error=|
|00001c60| b9 0d 0b d6 0a c8 8e 20 | 9f 20 ca 0d 0b e0 3d c9 |....... |. ....=.|
|00001c70| 20 32 32 32 20 3a 20 24 | 28 62 6c 6f 63 6b 25 2b | 222 : $|(block%+|
|00001c80| 34 29 3d 22 54 68 69 73 | 20 66 69 6c 65 20 64 6f |4)="This| file do|
|00001c90| 65 73 20 6e 6f 74 20 65 | 78 69 73 74 22 2b bd 30 |es not e|xist"+.0|
|00001ca0| 3a 65 72 72 6f 72 3d a3 | 0d 0b ea 05 7f 0d 0b f4 |:error=.|........|
|00001cb0| 37 24 28 62 6c 6f 63 6b | 25 2b 34 29 3d 22 28 49 |7$(block|%+4)="(I|
|00001cc0| 6e 74 65 72 6e 61 6c 20 | 65 72 72 6f 72 20 63 6f |nternal |error co|
|00001cd0| 64 65 20 22 2b c3 28 9e | 29 2b 22 29 20 22 2b f6 |de "+.(.|)+") "+.|
|00001ce0| 24 2b bd 30 0d 0b fe 05 | cb 0d 0c 08 0b 66 6c 61 |$+.0....|.....fla|
|00001cf0| 67 73 3d 31 0d 0c 12 32 | c8 99 20 22 57 69 6d 70 |gs=1...2|.. "Wimp|
|00001d00| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 6c |_ReportE|rror",bl|
|00001d10| 6f 63 6b 25 2c 66 6c 61 | 67 73 2c 22 4e 65 77 20 |ock%,fla|gs,"New |
|00001d20| 43 6f 64 65 73 22 0d 0c | 1c 1f e7 20 65 72 72 6f |Codes"..|... erro|
|00001d30| 72 20 8c 20 f2 66 69 6e | 69 73 68 20 8b 20 f2 6d |r . .fin|ish . .m|
|00001d40| 61 69 6e 3a e0 0d 0c 26 | 05 e1 0d 0c 30 05 3a 0d |ain:...&|....0.:.|
|00001d50| 0c 3a 2f f4 20 43 72 65 | 61 74 65 73 20 77 69 6e |.:/. Cre|ates win|
|00001d60| 64 6f 77 20 66 72 6f 6d | 20 74 65 6d 70 6c 61 74 |dow from| templat|
|00001d70| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2e 0d 0c |e inform|ation...|
|00001d80| 44 05 3a 0d 0c 4e 14 dd | 20 f2 63 72 65 61 74 65 |D.:..N..| .create|
|00001d90| 5f 77 69 6e 64 6f 77 0d | 0c 58 11 21 62 6c 6f 63 |_window.|.X.!bloc|
|00001da0| 6b 25 3d 6d 61 69 6e 25 | 0d 0c 62 10 62 6c 6f 63 |k%=main%|..b.bloc|
|00001db0| 6b 25 21 34 3d 37 35 30 | 0d 0c 6c 10 62 6c 6f 63 |k%!4=750|..l.bloc|
|00001dc0| 6b 25 21 38 3d 32 30 30 | 0d 0c 76 12 62 6c 6f 63 |k%!8=200|..v.bloc|
|00001dd0| 6b 25 21 31 32 3d 31 32 | 38 30 0d 0c 80 11 62 6c |k%!12=12|80....bl|
|00001de0| 6f 63 6b 25 21 31 36 3d | 34 30 30 0d 0c 8a 0f 62 |ock%!16=|400....b|
|00001df0| 6c 6f 63 6b 25 21 32 30 | 3d 30 0d 0c 94 0f 62 6c |lock%!20|=0....bl|
|00001e00| 6f 63 6b 25 21 32 34 3d | 30 0d 0c 9e 10 62 6c 6f |ock%!24=|0....blo|
|00001e10| 63 6b 25 21 32 38 3d 2d | 31 0d 0c a8 20 c8 99 20 |ck%!28=-|1... .. |
|00001e20| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00001e30| 22 2c 2c 62 6c 6f 63 6b | 25 0d 0c b2 05 e1 0d 0c |",,block|%.......|
|00001e40| bc 05 3a 0d 0c c6 14 f4 | 20 43 6c 6f 73 65 73 20 |..:.....| Closes |
|00001e50| 77 69 6e 64 6f 77 2e 0d | 0c d0 05 3a 0d 0c da 0c |window..|...:....|
|00001e60| dd 20 f2 63 6c 6f 73 65 | 0d 0c e4 21 c8 99 20 22 |. .close|...!.. "|
|00001e70| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00001e80| 22 2c 2c 62 6c 6f 63 6b | 25 0d 0c ee 11 21 62 6c |",,block|%....!bl|
|00001e90| 6f 63 6b 25 3d 6d 61 69 | 6e 25 0d 0c f8 0e 62 6c |ock%=mai|n%....bl|
|00001ea0| 6f 63 6b 25 21 34 3d 30 | 0d 0d 02 22 c8 99 20 22 |ock%!4=0|...".. "|
|00001eb0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00001ec0| 65 22 2c 2c 62 6c 6f 63 | 6b 25 0d 0d 0c 13 24 28 |e",,bloc|k%....$(|
|00001ed0| 62 6c 6f 63 6b 25 21 32 | 38 29 3d 22 22 0d 0d 16 |block%!2|8)=""...|
|00001ee0| 0e 62 6c 6f 63 6b 25 21 | 38 3d 30 0d 0d 20 0f 62 |.block%!|8=0.. .b|
|00001ef0| 6c 6f 63 6b 25 21 31 32 | 3d 30 0d 0d 2a 22 c8 99 |lock%!12|=0..*"..|
|00001f00| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00001f10| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 0d 34 0e |ate",,bl|ock%..4.|
|00001f20| 62 6c 6f 63 6b 25 21 34 | 3d 31 0d 0d 3e 22 c8 99 |block%!4|=1..>"..|
|00001f30| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00001f40| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 0d 48 13 |ate",,bl|ock%..H.|
|00001f50| 24 28 62 6c 6f 63 6b 25 | 21 32 38 29 3d 22 22 0d |$(block%|!28)="".|
|00001f60| 0d 52 0e 62 6c 6f 63 6b | 25 21 38 3d 30 0d 0d 5c |.R.block|%!8=0..\|
|00001f70| 0f 62 6c 6f 63 6b 25 21 | 31 32 3d 30 0d 0d 66 22 |.block%!|12=0..f"|
|00001f80| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00001f90| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0d |State",,|block%..|
|00001fa0| 70 05 e1 0d 0d 7a 05 3a | 0d 0d 84 13 f4 20 4f 70 |p....z.:|..... Op|
|00001fb0| 65 6e 73 20 77 69 6e 64 | 6f 77 2e 0d 0d 8e 05 3a |ens wind|ow.....:|
|00001fc0| 0d 0d 98 0b dd 20 f2 6f | 70 65 6e 0d 0d a2 20 c8 |..... .o|pen... .|
|00001fd0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00001fe0| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 0d ac 05 e1 |ow",,blo|ck%.....|
|00001ff0| 0d 0d b6 05 3a 0d 0d c0 | 20 dd 20 a4 67 65 74 5f |....:...| . .get_|
|00002000| 6d 65 6e 75 5f 69 74 65 | 6d 28 64 62 25 2c f8 20 |menu_ite|m(db%,. |
|00002010| 6f 66 66 25 29 0d 0d ca | 09 ea 20 73 74 24 0d 0d |off%)...|.. st$..|
|00002020| d4 15 c8 95 20 64 62 25 | 3f 6f 66 66 25 3c 3e 97 |.... db%|?off%<>.|
|00002030| 22 7c 22 0d 0d de 14 73 | 74 24 2b 3d bd 28 64 62 |"|"....s|t$+=.(db|
|00002040| 25 3f 6f 66 66 25 29 0d | 0d e8 0b 6f 66 66 25 2b |%?off%).|...off%+|
|00002050| 3d 31 0d 0d f2 05 ce 0d | 0d fc 0b 6f 66 66 25 2b |=1......|...off%+|
|00002060| 3d 31 0d 0e 06 08 3d 73 | 74 24 0d 0e 10 05 3a 0d |=1....=s|t$....:.|
|00002070| 0e 1a 1d dd 20 a4 66 69 | 6e 64 5f 6d 65 6e 75 28 |.... .fi|nd_menu(|
|00002080| 6e 61 6d 65 24 2c 64 61 | 74 61 25 29 0d 0e 24 09 |name$,da|ta%)..$.|
|00002090| ea 20 66 69 24 0d 0e 2e | 13 6e 61 6d 65 24 3d 22 |. fi$...|.name$="|
|000020a0| 5e 22 2b 6e 61 6d 65 24 | 0d 0e 38 0d 6f 66 66 73 |^"+name$|..8.offs|
|000020b0| 65 74 25 3d 30 0d 0e 42 | 05 f5 0d 0e 4c 25 66 69 |et%=0..B|....L%fi|
|000020c0| 24 3d a4 67 65 74 5f 6d | 65 6e 75 5f 69 74 65 6d |$=.get_m|enu_item|
|000020d0| 28 64 61 74 61 25 2c 6f | 66 66 73 65 74 25 29 0d |(data%,o|ffset%).|
|000020e0| 0e 56 19 fd 20 66 69 24 | 3d 6e 61 6d 65 24 20 84 |.V.. fi$|=name$ .|
|000020f0| 20 66 69 24 3d 22 7e 22 | 0d 0e 60 12 e7 20 66 69 | fi$="~"|..`.. fi|
|00002100| 24 3d 22 7e 22 20 8c 20 | 3d b9 0d 0e 6a 0c 3d 6f |$="~" . |=...j.=o|
|00002110| 66 66 73 65 74 25 0d 0e | 74 05 3a 0d 0e 7e 0a dd |ffset%..|t.:..~..|
|00002120| 20 a4 66 69 6e 0d 0e 88 | 0b f2 66 69 6e 69 73 68 | .fin...|..finish|
|00002130| 0d 0e 92 06 3d 30 0d 0e | 9c 05 3a 0d 0e a6 0e dd |....=0..|..:.....|
|00002140| 20 f2 77 6f 72 6b 6f 75 | 74 0d 0e b0 08 ea 20 61 | .workou|t..... a|
|00002150| 24 0d 0e ba 11 21 62 6c | 6f 63 6b 25 3d 6d 61 69 |$....!bl|ock%=mai|
|00002160| 6e 25 0d 0e c4 0e 62 6c | 6f 63 6b 25 21 34 3d 30 |n%....bl|ock%!4=0|
|00002170| 0d 0e ce 22 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...".. "|Wimp_Get|
|00002180| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00002190| 6b 25 0d 0e d8 12 74 65 | 6d 70 3d 62 6c 6f 63 6b |k%....te|mp=block|
|000021a0| 25 21 32 38 0d 0e e2 16 | 61 24 3d a4 63 6f 6e 76 |%!28....|a$=.conv|
|000021b0| 65 72 74 28 24 74 65 6d | 70 29 0d 0e ec 0e 62 6c |ert($tem|p)....bl|
|000021c0| 6f 63 6b 25 21 34 3d 31 | 0d 0e f6 22 c8 99 20 22 |ock%!4=1|...".. "|
|000021d0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|000021e0| 65 22 2c 2c 62 6c 6f 63 | 6b 25 0d 0f 00 13 24 28 |e",,bloc|k%....$(|
|000021f0| 62 6c 6f 63 6b 25 21 32 | 38 29 3d 61 24 0d 0f 0a |block%!2|8)=a$...|
|00002200| 0e 62 6c 6f 63 6b 25 21 | 38 3d 30 0d 0f 14 0f 62 |.block%!|8=0....b|
|00002210| 6c 6f 63 6b 25 21 31 32 | 3d 30 0d 0f 1e 22 c8 99 |lock%!12|=0..."..|
|00002220| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00002230| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 0f 28 05 |ate",,bl|ock%..(.|
|00002240| e1 0d 0f 32 05 3a 0d 0f | 3c 12 dd 20 a4 63 6f 6e |...2.:..|<.. .con|
|00002250| 76 65 72 74 28 61 24 29 | 0d 0f 46 0e ea 20 62 24 |vert(a$)|..F.. b$|
|00002260| 2c 6c 6f 6f 70 25 0d 0f | 50 09 62 24 3d 22 22 0d |,loop%..|P.b$="".|
|00002270| 0f 5a 15 e3 20 6c 6f 6f | 70 25 3d 31 20 b8 20 a9 |.Z.. loo|p%=1 . .|
|00002280| 28 61 24 29 0d 0f 64 2a | e7 20 c1 61 24 2c 6c 6f |(a$)..d*|. .a$,lo|
|00002290| 6f 70 25 2c 31 29 3c 3e | 22 20 22 20 8c 20 62 24 |op%,1)<>|" " . b$|
|000022a0| 2b 3d c1 61 24 2c 6c 6f | 6f 70 25 2c 31 29 0d 0f |+=.a$,lo|op%,1)..|
|000022b0| 6e 0b ed 20 6c 6f 6f 70 | 25 0d 0f 78 23 e7 20 c0 |n.. loop|%..x#. .|
|000022c0| 62 24 2c 32 29 3d 22 30 | 31 22 20 8c 20 62 24 3d |b$,2)="0|1" . b$=|
|000022d0| c2 62 24 2c a9 28 62 24 | 29 2d 32 29 0d 0f 82 1b |.b$,.(b$|)-2)....|
|000022e0| e7 20 a9 28 62 24 29 3c | 3e 37 20 8c 20 3d 22 49 |. .(b$)<|>7 . ="I|
|000022f0| 6e 76 61 6c 69 64 22 0d | 0f 8c 14 66 69 72 73 74 |nvalid".|...first|
|00002300| 33 3d bb 28 c0 62 24 2c | 33 29 29 0d 0f 96 2a e7 |3=.(.b$,|3))...*.|
|00002310| 20 66 69 72 73 74 33 3e | 3d 30 20 80 20 66 69 72 | first3>|=0 . fir|
|00002320| 73 74 33 3c 3d 31 39 39 | 20 8c 20 3d 22 49 6e 76 |st3<=199| . ="Inv|
|00002330| 61 6c 69 64 22 0d 0f a0 | 1a e3 20 6c 6f 6f 70 25 |alid"...|.. loop%|
|00002340| 3d 31 20 b8 20 6d 61 78 | 69 6e 76 61 6c 69 64 0d |=1 . max|invalid.|
|00002350| 0f aa 2c e7 20 66 69 72 | 73 74 33 3d 63 6f 64 65 |..,. fir|st3=code|
|00002360| 69 6e 76 61 6c 69 64 28 | 6c 6f 6f 70 25 29 20 8c |invalid(|loop%) .|
|00002370| 20 3d 22 49 6e 76 61 6c | 69 64 22 0d 0f b4 0b ed | ="Inval|id".....|
|00002380| 20 6c 6f 6f 70 25 0d 0f | be 1a e3 20 6c 6f 6f 70 | loop%..|... loop|
|00002390| 25 3d 31 20 b8 20 6d 61 | 78 6d 65 72 63 75 72 79 |%=1 . ma|xmercury|
|000023a0| 0d 0f c8 2c e7 20 66 69 | 72 73 74 33 3d 63 6f 64 |...,. fi|rst3=cod|
|000023b0| 65 6d 65 72 63 75 72 79 | 28 6c 6f 6f 70 25 29 20 |emercury|(loop%) |
|000023c0| 8c 20 3d 22 4d 65 72 63 | 75 72 79 22 0d 0f d2 0b |. ="Merc|ury"....|
|000023d0| ed 20 6c 6f 6f 70 25 0d | 0f dc 1b e3 20 6c 6f 6f |. loop%.|.... loo|
|000023e0| 70 25 3d 31 20 b8 20 6d | 61 78 30 38 31 63 6f 64 |p%=1 . m|ax081cod|
|000023f0| 65 73 0d 0f e6 47 e7 20 | 66 69 72 73 74 33 3e 3d |es...G. |first3>=|
|00002400| 63 6f 64 65 30 38 31 28 | 6c 6f 6f 70 25 2c 30 29 |code081(|loop%,0)|
|00002410| 20 80 20 66 69 72 73 74 | 33 3c 3d 63 6f 64 65 30 | . first|3<=code0|
|00002420| 38 31 28 6c 6f 6f 70 25 | 2c 31 29 20 8c 20 63 6f |81(loop%|,1) . co|
|00002430| 64 65 24 3d 22 30 38 31 | 22 0d 0f f0 0b ed 20 6c |de$="081|"..... l|
|00002440| 6f 6f 70 25 0d 0f fa 1b | e3 20 6c 6f 6f 70 25 3d |oop%....|. loop%=|
|00002450| 31 20 b8 20 6d 61 78 30 | 37 31 63 6f 64 65 73 0d |1 . max0|71codes.|
|00002460| 10 04 47 e7 20 66 69 72 | 73 74 33 3e 3d 63 6f 64 |..G. fir|st3>=cod|
|00002470| 65 30 37 31 28 6c 6f 6f | 70 25 2c 30 29 20 80 20 |e071(loo|p%,0) . |
|00002480| 66 69 72 73 74 33 3c 3d | 63 6f 64 65 30 37 31 28 |first3<=|code071(|
|00002490| 6c 6f 6f 70 25 2c 31 29 | 20 8c 20 63 6f 64 65 24 |loop%,1)| . code$|
|000024a0| 3d 22 30 37 31 22 0d 10 | 0e 0b ed 20 6c 6f 6f 70 |="071"..|... loop|
|000024b0| 25 0d 10 18 22 62 24 3d | 63 6f 64 65 24 2b 22 20 |%..."b$=|code$+" |
|000024c0| 22 2b c0 62 24 2c 33 29 | 2b 22 20 22 2b c2 62 24 |"+.b$,3)|+" "+.b$|
|000024d0| 2c 34 29 0d 10 22 07 3d | 62 24 0d 10 2c 05 3a 0d |,4)..".=|b$..,.:.|
|000024e0| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
