home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-01-27 | 26.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 20 f4 20 3e 3c | 43 72 65 61 74 65 41 70 |... . ><|CreateAp|
|00000010| 70 24 44 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |p$Dir>.!|RunImage|
|00000020| 0d 00 14 05 3a 0d 00 1e | 2e f4 20 2a 2a 2a 2a 2a |....:...|.. *****|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 0d 00 28 2e f4 | 20 2a 2a 20 20 20 20 20 |***..(..| ** |
|00000060| 20 20 20 43 72 65 61 74 | 65 20 41 70 70 6c 69 63 | Creat|e Applic|
|00000070| 61 74 69 6f 6e 20 20 20 | 20 20 20 20 20 20 20 2a |ation | *|
|00000080| 2a 0d 00 32 2e f4 20 2a | 2a 20 20 20 20 20 20 20 |*..2.. *|* |
|00000090| 20 20 20 20 20 20 20 20 | 56 31 2e 37 31 20 20 20 | |V1.71 |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2a 0d | | **.|
|000000b0| 00 3c 2e f4 20 2a 2a 20 | 20 20 20 20 20 20 20 20 |.<.. ** | |
|000000c0| 20 20 42 79 20 53 69 6d | 6f 6e 20 49 6e 6e 73 20 | By Sim|on Inns |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 0d 00 46 | | **..F|
|000000e0| 2e f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.. *****|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 00 50 05 3a |********|***..P.:|
|00000110| 0d 00 5a 0e f4 20 20 41 | 6e 6f 74 68 65 72 0d 00 |..Z.. A|nother..|
|00000120| 64 30 f4 20 20 20 20 20 | 20 20 5f 5f 5f 5f 5f 5f |d0. | ______|
|00000130| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000140| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 0d 00 |________|______..|
|00000150| 6e 2d f4 20 20 20 20 20 | 20 2f 5f 5f 20 20 2c 20 |n-. | /__ , |
|00000160| 5f 5f 5f 5f 20 20 5f 5f | 20 20 5f 5f 20 20 20 2f |____ __| __ /|
|00000170| 20 5f 5f 20 20 5f 5f 20 | 20 5f 5f 0d 00 78 2c f4 | __ __ | __..x,.|
|00000180| 20 20 20 20 20 20 5f 5f | 2f 20 2f 20 2f 20 2f 20 | __|/ / / / |
|00000190| 2f 20 2f 5f 2f 20 2f 20 | 2f 20 20 2f 20 2f 20 2f |/ /_/ / |/ / / /|
|000001a0| 20 2f 20 2f 20 5f 5c 0d | 00 82 05 f4 0d 00 8c 34 | / / _\.|.......4|
|000001b0| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 20 20 20 20 20 20 50 72 | 6f 64 75 63 74 69 6f 6e | Pr|oduction|
|000001e0| 0d 00 96 05 3a 0d 00 a0 | 36 f4 20 2d 2d 2d 2d 2d |....:...|6. -----|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 49 6e |--------|----- In|
|00000200| 69 74 69 61 6c 69 73 65 | 20 2d 2d 2d 2d 2d 2d 2d |itialise| -------|
|00000210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 00 aa 05 3a |--------|---....:|
|00000220| 0d 00 b4 20 f4 20 2a 2a | 20 53 65 74 20 75 70 20 |... . **| Set up |
|00000230| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 2a 2a |the vari|ables **|
|00000240| 0d 00 be 28 74 61 73 6b | 5f 6e 61 6d 65 24 20 20 |...(task|_name$ |
|00000250| 20 3d 20 22 41 70 70 6c | 69 63 61 74 69 6f 6e 20 | = "Appl|ication |
|00000260| 43 72 65 61 74 6f 72 22 | 0d 00 c8 27 76 65 72 73 |Creator"|...'vers|
|00000270| 69 6f 6e 24 20 20 20 20 | 20 3d 20 22 31 2e 37 31 |ion$ | = "1.71|
|00000280| 20 28 32 37 20 4a 61 6e | 20 31 39 39 33 29 22 0d | (27 Jan| 1993)".|
|00000290| 00 d2 2c 64 65 73 63 72 | 69 70 74 69 6f 6e 24 20 |..,descr|iption$ |
|000002a0| 3d 20 22 53 65 74 73 20 | 75 70 20 41 70 70 20 64 |= "Sets |up App d|
|000002b0| 69 72 65 63 74 6f 72 69 | 65 73 22 0d 00 dc 24 64 |irectori|es"...$d|
|000002c0| 69 72 65 63 74 6f 72 79 | 24 20 20 20 3d 20 22 3c |irectory|$ = "<|
|000002d0| 43 72 65 61 74 65 41 70 | 70 24 44 69 72 3e 22 0d |CreateAp|p$Dir>".|
|000002e0| 00 e6 1f 66 69 6c 65 5f | 6e 61 6d 65 24 20 20 20 |...file_|name$ |
|000002f0| 3d 20 22 21 43 72 65 61 | 74 65 41 70 70 22 0d 00 |= "!Crea|teApp"..|
|00000300| f0 05 3a 0d 00 fa 20 f4 | 20 2a 2a 20 53 65 74 20 |..:... .| ** Set |
|00000310| 75 70 20 65 72 72 6f 72 | 20 68 61 6e 64 6c 65 72 |up error| handler|
|00000320| 20 2a 2a 0d 01 04 21 ee | 20 85 20 f2 65 72 72 6f | **...!.| . .erro|
|00000330| 72 28 74 61 73 6b 5f 6e | 61 6d 65 24 2c 20 30 2c |r(task_n|ame$, 0,|
|00000340| 20 22 22 29 0d 01 0e 05 | 3a 0d 01 18 26 f4 20 2a | "")....|:...&. *|
|00000350| 2a 20 44 65 66 69 6e 65 | 20 67 65 6e 65 72 61 6c |* Define| general|
|00000360| 20 64 61 74 61 20 62 6c | 6f 63 6b 73 20 2a 2a 0d | data bl|ocks **.|
|00000370| 01 22 1d de 20 62 6c 6f | 63 6b 25 20 35 31 32 2c |.".. blo|ck% 512,|
|00000380| 20 62 75 66 66 65 72 25 | 20 35 31 32 0d 01 2c 15 | buffer%| 512..,.|
|00000390| de 20 74 20 34 20 3a 20 | 24 74 3d 22 54 41 53 4b |. t 4 : |$t="TASK|
|000003a0| 22 0d 01 36 05 3a 0d 01 | 40 1b f4 20 2a 2a 20 49 |"..6.:..|@.. ** I|
|000003b0| 6e 69 74 69 61 6c 69 73 | 65 20 74 61 73 6b 20 2a |nitialis|e task *|
|000003c0| 2a 0d 01 4a 3c c8 99 20 | 22 57 69 6d 70 5f 49 6e |*..J<.. |"Wimp_In|
|000003d0| 69 74 69 61 6c 69 73 65 | 22 2c 32 30 30 2c 20 21 |itialise|",200, !|
|000003e0| 74 2c 20 74 61 73 6b 5f | 6e 61 6d 65 24 20 b8 20 |t, task_|name$ . |
|000003f0| 2c 74 61 73 6b 5f 68 61 | 6e 64 6c 65 25 0d 01 54 |,task_ha|ndle%..T|
|00000400| 05 3a 0d 01 5e 41 f4 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.:..^A. |--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 4c 6f 61 |--------|---- Loa|
|00000420| 64 20 54 65 6d 70 6c 61 | 74 65 73 20 2d 2d 2d 2d |d Templa|tes ----|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 0d 01 68 05 3a | 0d 01 72 2b f4 20 2a 2a |---..h.:|..r+. **|
|00000450| 20 4c 6f 61 64 20 77 69 | 6e 64 6f 77 73 20 66 72 | Load wi|ndows fr|
|00000460| 6f 6d 20 54 65 6d 70 6c | 61 74 65 20 46 69 6c 65 |om Templ|ate File|
|00000470| 20 2a 2a 0d 01 7c 19 de | 20 74 65 6d 70 5f 62 75 | **..|..| temp_bu|
|00000480| 66 25 20 20 31 30 32 34 | 20 2a 20 34 0d 01 86 19 |f% 1024| * 4....|
|00000490| de 20 69 6e 64 69 72 5f | 62 75 66 25 20 31 30 32 |. indir_|buf% 102|
|000004a0| 34 20 2a 20 34 0d 01 90 | 19 de 20 74 65 6d 70 62 |4 * 4...|.. tempb|
|000004b0| 6c 6f 63 6b 25 20 31 30 | 32 34 20 2a 20 34 0d 01 |lock% 10|24 * 4..|
|000004c0| 9a 05 3a 0d 01 a4 22 f4 | 20 2a 2a 20 4f 70 65 6e |..:...".| ** Open|
|000004d0| 20 74 68 65 20 74 65 6d | 70 6c 61 74 65 20 66 69 | the tem|plate fi|
|000004e0| 6c 65 20 2a 2a 0d 01 ae | 36 c8 99 20 22 57 69 6d |le **...|6.. "Wim|
|000004f0| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000500| 2c 20 64 69 72 65 63 74 | 6f 72 79 24 20 2b 20 22 |, direct|ory$ + "|
|00000510| 2e 54 65 6d 70 6c 61 74 | 65 73 22 0d 01 b8 05 3a |.Templat|es"....:|
|00000520| 0d 01 c2 42 f4 20 2a 2a | 20 47 65 74 20 74 68 65 |...B. **| Get the|
|00000530| 20 77 69 6e 64 6f 77 20 | 64 65 74 61 69 6c 73 20 | window |details |
|00000540| 61 6e 64 20 69 6e 69 74 | 69 61 6c 69 73 65 20 74 |and init|ialise t|
|00000550| 68 65 20 68 61 6e 64 6c | 65 20 61 72 72 61 79 20 |he handl|e array |
|00000560| 2a 2a 0d 01 cc 05 f7 0d | 01 d6 0f 6f 66 66 73 65 |**......|...offse|
|00000570| 74 25 20 3d 20 30 0d 01 | e0 15 f3 20 6e 75 6d 62 |t% = 0..|... numb|
|00000580| 65 72 5f 77 69 6e 64 6f | 77 73 25 0d 01 ea 1e de |er_windo|ws%.....|
|00000590| 20 68 61 6e 64 6c 65 25 | 28 6e 75 6d 62 65 72 5f | handle%|(number_|
|000005a0| 77 69 6e 64 6f 77 73 25 | 29 0d 01 f4 05 3a 0d 01 |windows%|)....:..|
|000005b0| fe 23 f4 20 2a 2a 20 52 | 65 61 64 20 74 68 65 20 |.#. ** R|ead the |
|000005c0| 77 69 6e 64 6f 77 20 64 | 65 74 61 69 6c 73 20 2a |window d|etails *|
|000005d0| 2a 0d 02 08 24 e3 20 63 | 6f 75 6e 74 65 72 25 20 |*...$. c|ounter% |
|000005e0| 3d 20 31 20 b8 20 6e 75 | 6d 62 65 72 5f 77 69 6e |= 1 . nu|mber_win|
|000005f0| 64 6f 77 73 25 0d 02 12 | 20 20 20 f3 20 77 69 6e |dows%...| . win|
|00000600| 5f 6e 61 6d 65 24 2c 20 | 62 6c 6f 63 6b 5f 6c 65 |_name$, |block_le|
|00000610| 6e 67 74 68 25 0d 02 1c | 92 20 20 c8 99 20 22 57 |ngth%...|. .. "W|
|00000620| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000630| 22 2c 2c 20 74 65 6d 70 | 5f 62 75 66 25 2c 20 69 |",, temp|_buf%, i|
|00000640| 6e 64 69 72 5f 62 75 66 | 25 20 2b 20 6f 66 66 73 |ndir_buf|% + offs|
|00000650| 65 74 25 2c 20 69 6e 64 | 69 72 5f 62 75 66 25 20 |et%, ind|ir_buf% |
|00000660| 2b 20 6f 66 66 73 65 74 | 25 20 2b 20 62 6c 6f 63 |+ offset|% + bloc|
|00000670| 6b 5f 6c 65 6e 67 74 68 | 25 2c 20 2d 31 2c 20 20 |k_length|%, -1, |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 77 69 6e 5f 6e | | win_n|
|000006a0| 61 6d 65 24 2c 20 30 0d | 02 26 3b 20 20 c8 99 20 |ame$, 0.|.&; .. |
|000006b0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000006c0| 6f 77 22 2c 2c 74 65 6d | 70 5f 62 75 66 25 20 b8 |ow",,tem|p_buf% .|
|000006d0| 20 68 61 6e 64 6c 65 25 | 28 63 6f 75 6e 74 65 72 | handle%|(counter|
|000006e0| 25 29 0d 02 30 1e 20 20 | 6f 66 66 73 65 74 25 20 |%)..0. |offset% |
|000006f0| 2b 3d 20 62 6c 6f 63 6b | 5f 6c 65 6e 67 74 68 25 |+= block|_length%|
|00000700| 0d 02 3a 05 ed 0d 02 44 | 05 3a 0d 02 4e 23 f4 20 |..:....D|.:..N#. |
|00000710| 2a 2a 20 43 6c 6f 73 65 | 20 74 68 65 20 74 65 6d |** Close| the tem|
|00000720| 70 6c 61 74 65 20 66 69 | 6c 65 20 2a 2a 0d 02 58 |plate fi|le **..X|
|00000730| 1b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 54 |... "Wim|p_CloseT|
|00000740| 65 6d 70 6c 61 74 65 22 | 0d 02 62 05 3a 0d 02 6c |emplate"|..b.:..l|
|00000750| 1e f4 20 2a 2a 20 57 69 | 6e 64 6f 77 20 69 6e 66 |.. ** Wi|ndow inf|
|00000760| 6f 72 6d 61 74 69 6f 6e | 20 2a 2a 0d 02 76 07 dc |ormation| **..v..|
|00000770| 20 33 0d 02 80 23 dc 20 | 49 6e 66 6f 2c 32 35 36 | 3...#. |Info,256|
|00000780| 2c 20 4d 61 69 6e 2c 31 | 30 32 34 2c 20 53 61 76 |, Main,1|024, Sav|
|00000790| 65 2c 32 35 36 0d 02 8a | 05 3a 0d 02 94 16 f4 20 |e,256...|.:..... |
|000007a0| 2a 2a 20 57 69 6e 64 6f | 77 20 49 44 73 20 2a 2a |** Windo|w IDs **|
|000007b0| 0d 02 9e 22 49 6e 66 6f | 20 3d 20 31 20 3a 20 4d |..."Info| = 1 : M|
|000007c0| 61 69 6e 20 3d 20 32 20 | 3a 20 53 61 76 65 20 3d |ain = 2 |: Save =|
|000007d0| 20 33 0d 02 a8 05 3a 0d | 02 b2 36 f4 20 2a 2a 20 | 3....:.|..6. ** |
|000007e0| 46 69 6c 6c 20 69 6e 20 | 61 6c 6c 20 74 68 65 20 |Fill in |all the |
|000007f0| 64 65 74 61 69 6c 73 20 | 69 6e 20 74 68 65 20 69 |details |in the i|
|00000800| 6e 66 6f 20 77 69 6e 64 | 6f 77 20 2a 2a 0d 02 bc |nfo wind|ow **...|
|00000810| 6b f2 66 69 6c 6c 5f 69 | 6e 66 6f 28 68 61 6e 64 |k.fill_i|nfo(hand|
|00000820| 6c 65 25 28 49 6e 66 6f | 29 2c 20 74 61 73 6b 5f |le%(Info|), task_|
|00000830| 6e 61 6d 65 24 2c 20 64 | 65 73 63 72 69 70 74 69 |name$, d|escripti|
|00000840| 6f 6e 24 2c 20 22 53 69 | 6d 6f 6e 20 49 6e 6e 73 |on$, "Si|mon Inns|
|00000850| 22 2c 20 76 65 72 73 69 | 6f 6e 24 2c 20 22 54 68 |", versi|on$, "Th|
|00000860| 61 6e 6b 73 3a 22 2c 20 | 22 52 69 63 68 61 72 64 |anks:", |"Richard|
|00000870| 20 53 74 61 67 67 22 29 | 0d 02 c6 05 3a 0d 02 d0 | Stagg")|....:...|
|00000880| 40 f4 20 2a 2a 20 54 61 | 6b 65 20 69 63 6f 6e 20 |@. ** Ta|ke icon |
|00000890| 66 72 6f 6d 20 73 70 72 | 69 74 65 20 70 6f 6f 6c |from spr|ite pool|
|000008a0| 20 61 6e 64 20 70 6c 61 | 63 65 20 6f 6e 20 74 68 | and pla|ce on th|
|000008b0| 65 20 69 63 6f 6e 20 62 | 61 72 20 2a 2a 0d 02 da |e icon b|ar **...|
|000008c0| 13 de 20 73 70 72 69 74 | 65 6e 61 6d 65 20 31 33 |.. sprit|ename 13|
|000008d0| 0d 02 e4 54 69 63 6f 6e | 62 61 72 25 20 3d 20 a4 |...Ticon|bar% = .|
|000008e0| 63 72 65 61 74 65 5f 69 | 63 6f 6e 28 2d 31 2c 20 |create_i|con(-1, |
|000008f0| 30 2c 20 30 2c 20 36 38 | 2c 20 36 38 2c 20 26 31 |0, 0, 68|, 68, &1|
|00000900| 37 30 30 32 31 33 41 2c | 20 66 69 6c 65 5f 6e 61 |700213A,| file_na|
|00000910| 6d 65 24 2c 20 73 70 72 | 69 74 65 6e 61 6d 65 2c |me$, spr|itename,|
|00000920| 20 31 32 29 0d 02 ee 05 | 3a 0d 02 f8 25 f4 20 2a | 12)....|:...%. *|
|00000930| 2a 20 4e 6f 77 20 73 65 | 74 20 75 70 20 74 68 65 |* Now se|t up the|
|00000940| 20 6d 65 6e 75 20 69 74 | 65 6d 73 20 2a 2a 0d 03 | menu it|ems **..|
|00000950| 02 10 de 20 6c 69 6e 6b | 73 25 28 31 30 29 0d 03 |... link|s%(10)..|
|00000960| 0c 1c de 20 69 63 6f 6e | 62 61 72 6d 65 6e 75 5f |... icon|barmenu_|
|00000970| 62 6c 6f 63 6b 25 20 32 | 35 36 0d 03 16 14 6d 65 |block% 2|56....me|
|00000980| 6e 75 5f 68 65 69 67 68 | 74 25 20 3d 20 30 0d 03 |nu_heigh|t% = 0..|
|00000990| 20 1d 6c 69 6e 6b 73 25 | 28 31 29 20 3d 20 68 61 | .links%|(1) = ha|
|000009a0| 6e 64 6c 65 25 28 49 6e | 66 6f 29 0d 03 2a 60 f2 |ndle%(In|fo)..*`.|
|000009b0| 64 65 66 69 6e 65 5f 6d | 65 6e 75 5f 62 6c 6f 63 |define_m|enu_bloc|
|000009c0| 6b 28 22 43 72 65 61 74 | 65 41 70 70 a4 49 6e 66 |k("Creat|eApp.Inf|
|000009d0| 6f a4 6e 4c a4 51 75 69 | 74 a4 4e 4e a4 22 2c 20 |o.nL.Qui|t.NN.", |
|000009e0| 6c 69 6e 6b 73 25 28 29 | 2c 20 69 63 6f 6e 62 61 |links%()|, iconba|
|000009f0| 72 6d 65 6e 75 5f 62 6c | 6f 63 6b 25 2c 20 6d 65 |rmenu_bl|ock%, me|
|00000a00| 6e 75 5f 68 65 69 67 68 | 74 25 29 0d 03 34 05 3a |nu_heigh|t%)..4.:|
|00000a10| 0d 03 3e 1b f4 20 2a 2a | 20 4f 74 68 65 72 20 76 |..>.. **| Other v|
|00000a20| 61 72 69 61 62 6c 65 73 | 20 2a 2a 0d 03 48 13 69 |ariables| **..H.i|
|00000a30| 63 6f 6e 5f 73 74 61 74 | 65 25 20 3d 20 30 0d 03 |con_stat|e% = 0..|
|00000a40| 52 1a de 20 63 72 65 61 | 74 69 6f 6e 5f 64 65 74 |R.. crea|tion_det|
|00000a50| 61 69 6c 73 25 28 36 29 | 0d 03 5c 19 de 20 73 70 |ails%(6)|..\.. sp|
|00000a60| 72 69 74 65 5f 62 6c 6f | 63 6b 25 20 26 31 34 30 |rite_blo|ck% &140|
|00000a70| 30 0d 03 66 05 3a 0d 03 | 70 14 de 20 69 6e 63 6c |0..f.:..|p.. incl|
|00000a80| 75 73 69 6f 6e 24 28 39 | 39 29 0d 03 7a 15 de 20 |usion$(9|9)..z.. |
|00000a90| 66 69 6c 65 5f 74 79 70 | 65 73 25 28 39 39 29 0d |file_typ|es%(99).|
|00000aa0| 03 84 15 69 6e 63 6c 75 | 73 69 6f 6e 5f 6e 6f 25 |...inclu|sion_no%|
|00000ab0| 20 3d 20 30 0d 03 8e 05 | 3a 0d 03 98 0f 61 72 72 | = 0....|:....arr|
|00000ac0| 67 67 68 25 20 3d 20 a3 | 0d 03 a2 05 3a 0d 03 ac |ggh% = .|....:...|
|00000ad0| 38 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |8. -----|--------|
|00000ae0| 2d 2d 2d 2d 2d 20 50 72 | 6f 67 72 61 6d 20 43 6f |----- Pr|ogram Co|
|00000af0| 72 65 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |re -----|--------|
|00000b00| 2d 2d 2d 2d 2d 0d 03 b6 | 05 3a 0d 03 c0 0c 71 75 |-----...|.:....qu|
|00000b10| 69 74 20 3d 20 a3 0d 03 | ca 20 f4 20 2a 2a 20 53 |it = ...|. . ** S|
|00000b20| 65 74 20 75 70 20 65 72 | 72 6f 72 20 68 61 6e 64 |et up er|ror hand|
|00000b30| 6c 65 72 20 2a 2a 0d 03 | d4 21 ee 20 85 20 f2 65 |ler **..|.!. . .e|
|00000b40| 72 72 6f 72 28 74 61 73 | 6b 5f 6e 61 6d 65 24 2c |rror(tas|k_name$,|
|00000b50| 20 30 2c 20 22 22 29 0d | 03 de 05 3a 0d 03 e8 05 | 0, "").|...:....|
|00000b60| f5 0d 03 f2 0b 20 20 f2 | 70 6f 6c 6c 0d 03 fc 0a |..... .|poll....|
|00000b70| fd 20 71 75 69 74 0d 04 | 06 05 3a 0d 04 10 30 f4 |. quit..|..:...0.|
|00000b80| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000b90| 2d 2d 2d 20 51 75 69 74 | 20 2d 2d 2d 2d 2d 2d 2d |--- Quit| -------|
|00000ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 04 1a 05 3a |--------|---....:|
|00000bb0| 0d 04 24 1f f4 20 2a 2a | 20 43 6c 6f 73 65 20 64 |..$.. **| Close d|
|00000bc0| 6f 77 6e 20 74 68 65 20 | 74 61 73 6b 20 2a 2a 0d |own the |task **.|
|00000bd0| 04 2e 28 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..(.. "W|imp_Clos|
|00000be0| 65 44 6f 77 6e 22 2c 74 | 61 73 6b 5f 68 61 6e 64 |eDown",t|ask_hand|
|00000bf0| 6c 65 25 2c 20 21 74 0d | 04 38 05 e0 0d 04 42 05 |le%, !t.|.8....B.|
|00000c00| 3a 0d 04 4c 38 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |:..L8. -|--------|
|00000c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 50 72 6f 63 65 64 |--------|- Proced|
|00000c20| 75 72 65 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ures ---|--------|
|00000c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 04 56 05 3a 0d 04 |--------|-..V.:..|
|00000c40| 60 32 f4 20 2a 2a 20 4e | 6f 77 20 66 6f 6c 6c 6f |`2. ** N|ow follo|
|00000c50| 77 73 20 74 68 65 20 6d | 61 69 6e 20 57 49 4d 50 |ws the m|ain WIMP|
|00000c60| 20 70 6f 6c 6c 69 6e 67 | 20 6c 6f 6f 70 20 2a 2a | polling| loop **|
|00000c70| 0d 04 6a 0b dd 20 f2 70 | 6f 6c 6c 0d 04 74 05 3a |..j.. .p|oll..t.:|
|00000c80| 0d 04 7e 17 f4 20 2a 2a | 20 53 65 74 20 75 70 20 |..~.. **| Set up |
|00000c90| 6d 61 73 6b 20 2a 2a 0d | 04 88 0e 6d 61 73 6b 25 |mask **.|...mask%|
|00000ca0| 20 3d 20 25 31 0d 04 92 | 05 3a 0d 04 9c 2b f4 20 | = %1...|.:...+. |
|00000cb0| 2a 2a 20 46 69 6e 64 20 | 6f 75 74 20 77 68 61 74 |** Find |out what|
|00000cc0| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 64 6f 69 | the use|r is doi|
|00000cd0| 6e 67 20 2a 2a 0d 04 a6 | 2f c8 99 20 22 57 69 6d |ng **...|/.. "Wim|
|00000ce0| 70 5f 50 6f 6c 6c 22 2c | 6d 61 73 6b 25 2c 20 62 |p_Poll",|mask%, b|
|00000cf0| 6c 6f 63 6b 25 20 b8 20 | 72 65 61 73 6f 6e 5f 63 |lock% . |reason_c|
|00000d00| 6f 64 65 25 0d 04 b0 05 | 3a 0d 04 ba 23 f4 20 2a |ode%....|:...#. *|
|00000d10| 2a 20 50 72 6f 63 65 73 | 73 20 74 68 65 20 72 65 |* Proces|s the re|
|00000d20| 61 73 6f 6e 20 63 6f 64 | 65 20 2a 2a 0d 04 c4 15 |ason cod|e **....|
|00000d30| c8 8e 20 72 65 61 73 6f | 6e 5f 63 6f 64 65 25 20 |.. reaso|n_code% |
|00000d40| ca 0d 04 ce 34 20 20 c9 | 20 20 30 20 20 20 20 20 |....4 .| 0 |
|00000d50| 3a 20 f4 20 2a 2a 20 4e | 6f 74 68 69 6e 67 20 68 |: . ** N|othing h|
|00000d60| 61 73 20 68 61 70 70 65 | 6e 65 64 20 28 4e 75 6c |as happe|ned (Nul|
|00000d70| 6c 29 20 2a 2a 0d 04 d8 | 20 20 20 20 20 20 20 20 |l) **...| |
|00000d80| 20 20 20 20 20 20 20 20 | 20 f2 6e 75 6c 6c 5f 72 | | .null_r|
|00000d90| 65 61 73 6f 6e 0d 04 e2 | 2e 20 20 c9 20 20 31 20 |eason...|. . 1 |
|00000da0| 20 20 20 20 3a 20 f4 20 | 2a 2a 20 52 65 64 72 61 | : . |** Redra|
|00000db0| 77 20 77 69 6e 64 6f 77 | 20 72 65 71 75 65 73 74 |w window| request|
|00000dc0| 20 2a 2a 0d 04 ec 24 20 | 20 c9 20 20 32 20 20 20 | **...$ | . 2 |
|00000dd0| 20 20 3a 20 f4 20 2a 2a | 20 4f 70 65 6e 20 77 69 | : . **| Open wi|
|00000de0| 6e 64 6f 77 20 2a 2a 0d | 04 f6 30 20 20 20 20 20 |ndow **.|..0 |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 c8 99 20 22 57 | | .. "W|
|00000e00| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00000e10| 2c 62 6c 6f 63 6b 25 0d | 05 00 25 20 20 c9 20 20 |,block%.|..% . |
|00000e20| 33 20 20 20 20 20 3a 20 | f4 20 2a 2a 20 43 6c 6f |3 : |. ** Clo|
|00000e30| 73 65 20 77 69 6e 64 6f | 77 20 2a 2a 0d 05 0a 33 |se windo|w **...3|
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e50| f2 70 72 6f 63 65 73 73 | 5f 63 6c 6f 73 65 5f 77 |.process|_close_w|
|00000e60| 69 6e 64 6f 77 28 62 6c | 6f 63 6b 25 21 30 29 0d |indow(bl|ock%!0).|
|00000e70| 05 14 2f 20 20 c9 20 20 | 34 20 20 20 20 20 3a 20 |../ . |4 : |
|00000e80| f4 20 2a 2a 20 50 6f 69 | 6e 74 65 72 20 6c 65 61 |. ** Poi|nter lea|
|00000e90| 76 69 6e 67 20 77 69 6e | 64 6f 77 20 2a 2a 0d 05 |ving win|dow **..|
|00000ea0| 1e 30 20 20 c9 20 20 35 | 20 20 20 20 20 3a 20 f4 |.0 . 5| : .|
|00000eb0| 20 2a 2a 20 50 6f 69 6e | 74 65 72 20 65 6e 74 65 | ** Poin|ter ente|
|00000ec0| 72 69 6e 67 20 77 69 6e | 64 6f 77 20 2a 2a 0d 05 |ring win|dow **..|
|00000ed0| 28 34 20 20 c9 20 20 36 | 20 20 20 20 20 3a 20 f4 |(4 . 6| : .|
|00000ee0| 20 2a 2a 20 55 73 65 72 | 20 68 61 73 20 63 6c 69 | ** User| has cli|
|00000ef0| 63 6b 65 64 20 6f 6e 20 | 61 6e 20 69 63 6f 6e 20 |cked on |an icon |
|00000f00| 2a 2a 0d 05 32 24 20 20 | 20 20 20 20 20 20 20 20 |**..2$ | |
|00000f10| 20 20 20 20 20 20 f2 64 | 65 61 6c 5f 77 69 74 68 | .d|eal_with|
|00000f20| 5f 63 6c 69 63 6b 0d 05 | 3c 21 20 20 c9 20 20 37 |_click..|<! . 7|
|00000f30| 20 20 20 20 20 3a 20 f4 | 20 2a 2a 20 44 72 61 67 | : .| ** Drag|
|00000f40| 20 62 6f 78 20 2a 2a 0d | 05 46 1f 20 20 20 20 20 | box **.|.F. |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 f2 64 72 61 67 | | .drag|
|00000f60| 5f 65 6e 64 65 64 0d 05 | 50 34 20 20 c9 20 20 38 |_ended..|P4 . 8|
|00000f70| 20 20 20 20 20 3a 20 f4 | 20 2a 2a 20 4b 65 79 20 | : .| ** Key |
|00000f80| 70 72 65 73 73 65 64 20 | 6f 6e 20 6f 77 6e 65 64 |pressed |on owned|
|00000f90| 20 77 69 6e 64 6f 77 20 | 2a 2a 0d 05 5a 25 20 20 | window |**..Z% |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f4 20 | | . |
|00000fb0| 50 52 4f 43 6b 65 79 5f | 70 72 65 73 73 65 64 0d |PROCkey_|pressed.|
|00000fc0| 05 64 40 20 20 c9 20 20 | 39 20 20 20 20 20 3a 20 |.d@ . |9 : |
|00000fd0| f4 20 2a 2a 20 53 6f 6d | 65 74 68 69 6e 67 20 68 |. ** Som|ething h|
|00000fe0| 61 73 20 62 65 65 6e 20 | 73 65 6c 65 63 74 65 64 |as been |selected|
|00000ff0| 20 66 72 6f 6d 20 61 20 | 6d 65 6e 75 20 2a 2a 0d | from a |menu **.|
|00001000| 05 6e 27 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.n' | |
|00001010| 20 20 20 f2 6d 65 6e 75 | 5f 69 74 65 6d 5f 73 65 | .menu|_item_se|
|00001020| 6c 65 63 74 65 64 0d 05 | 78 31 20 20 c9 20 31 30 |lected..|x1 . 10|
|00001030| 20 20 20 20 20 3a 20 f4 | 20 2a 2a 20 55 73 65 72 | : .| ** User|
|00001040| 20 68 61 73 20 73 63 72 | 6f 6c 6c 65 64 20 77 69 | has scr|olled wi|
|00001050| 6e 64 6f 77 20 2a 2a 0d | 05 82 23 20 20 c9 20 31 |ndow **.|..# . 1|
|00001060| 31 20 20 20 20 20 3a 20 | f4 20 2a 2a 20 43 61 72 |1 : |. ** Car|
|00001070| 65 74 20 6c 6f 73 74 20 | 2a 2a 0d 05 8c 25 20 20 |et lost |**...% |
|00001080| c9 20 31 32 20 20 20 20 | 20 3a 20 f4 20 2a 2a 20 |. 12 | : . ** |
|00001090| 43 61 72 65 74 20 67 61 | 69 6e 65 64 20 2a 2a 0d |Caret ga|ined **.|
|000010a0| 05 96 29 20 20 c9 20 31 | 37 2c 20 31 38 20 3a 20 |..) . 1|7, 18 : |
|000010b0| f4 20 2a 2a 20 49 6e 63 | 6f 6d 69 6e 67 20 6d 65 |. ** Inc|oming me|
|000010c0| 73 73 61 67 65 20 2a 2a | 0d 05 a0 38 20 20 20 20 |ssage **|...8 |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 69 6e 63 | | .inc|
|000010e0| 6f 6d 69 6e 67 5f 6d 65 | 73 73 61 67 65 20 3a 20 |oming_me|ssage : |
|000010f0| f4 20 2a 2a 20 46 6f 72 | 20 51 75 69 74 20 2a 2a |. ** For| Quit **|
|00001100| 0d 05 aa 36 20 20 c9 20 | 31 39 20 20 20 20 20 3a |...6 . |19 :|
|00001110| 20 f4 20 2a 2a 20 49 6e | 63 6f 6d 69 6e 67 20 6d | . ** In|coming m|
|00001120| 65 73 73 61 67 65 20 61 | 63 6b 6e 6f 77 6c 65 64 |essage a|cknowled|
|00001130| 67 65 64 20 2a 2a 0d 05 | b4 05 cb 0d 05 be 05 e1 |ged **..|........|
|00001140| 0d 05 c8 05 3a 0d 05 d2 | 17 dd 20 f2 69 6e 63 6f |....:...|.. .inco|
|00001150| 6d 69 6e 67 5f 6d 65 73 | 73 61 67 65 0d 05 dc 1f |ming_mes|sage....|
|00001160| 6d 65 73 73 61 67 65 5f | 61 63 74 69 6f 6e 25 20 |message_|action% |
|00001170| 3d 20 62 6c 6f 63 6b 25 | 21 31 36 0d 05 e6 05 3a |= block%|!16....:|
|00001180| 0d 05 f0 18 c8 8e 20 6d | 65 73 73 61 67 65 5f 61 |...... m|essage_a|
|00001190| 63 74 69 6f 6e 25 20 ca | 0d 05 fa 17 20 c9 20 30 |ction% .|.... . 0|
|000011a0| 20 3a 20 f4 20 2a 2a 20 | 51 75 69 74 20 2a 2a 0d | : . ** |Quit **.|
|000011b0| 06 04 17 20 20 20 20 20 | 20 20 20 20 20 71 75 69 |... | qui|
|000011c0| 74 25 20 3d 20 b9 0d 06 | 0e 17 20 c9 20 32 20 3a |t% = ...|.. . 2 :|
|000011d0| 20 f2 64 61 74 61 73 61 | 76 65 61 63 6b 0d 06 18 | .datasa|veack...|
|000011e0| 18 20 c9 20 33 20 3a 20 | f2 64 72 61 67 5f 64 72 |. . 3 : |.drag_dr|
|000011f0| 6f 70 70 65 64 0d 06 22 | 05 cb 0d 06 2c 05 e1 0d |opped.."|....,...|
|00001200| 06 36 05 3a 0d 06 40 16 | dd 20 f2 64 65 61 6c 5f |.6.:..@.|. .deal_|
|00001210| 77 69 74 68 5f 63 6c 69 | 63 6b 0d 06 4a 05 3a 0d |with_cli|ck..J.:.|
|00001220| 06 54 1d f4 20 2a 2a 20 | 45 78 74 72 61 63 74 20 |.T.. ** |Extract |
|00001230| 76 61 72 69 61 62 6c 65 | 73 20 2a 2a 0d 06 5e 16 |variable|s **..^.|
|00001240| 62 75 74 74 6f 6e 25 20 | 3d 20 62 6c 6f 63 6b 25 |button% |= block%|
|00001250| 21 38 0d 06 68 1e 77 69 | 6e 64 6f 77 5f 68 61 6e |!8..h.wi|ndow_han|
|00001260| 64 6c 65 25 20 3d 20 62 | 6c 6f 63 6b 25 21 31 32 |dle% = b|lock%!12|
|00001270| 0d 06 72 1c 69 63 6f 6e | 5f 68 61 6e 64 6c 65 25 |..r.icon|_handle%|
|00001280| 20 3d 20 62 6c 6f 63 6b | 25 21 31 36 0d 06 7c 05 | = block|%!16..|.|
|00001290| 3a 0d 06 86 1b e7 20 77 | 69 6e 64 6f 77 5f 68 61 |:..... w|indow_ha|
|000012a0| 6e 64 6c 65 25 20 3d 20 | 2d 32 20 8c 0d 06 90 1d |ndle% = |-2 .....|
|000012b0| 20 20 20 f4 20 2a 2a 20 | 49 63 6f 6e 20 62 61 72 | . ** |Icon bar|
|000012c0| 20 63 6c 69 63 6b 20 2a | 2a 0d 06 9a 16 20 20 20 | click *|*.... |
|000012d0| e7 20 62 75 74 74 6f 6e | 25 20 3d 20 32 20 8c 0d |. button|% = 2 ..|
|000012e0| 06 a4 1d 20 20 20 20 20 | 20 f4 20 2a 2a 20 4d 65 |... | . ** Me|
|000012f0| 6e 75 20 62 75 74 74 6f | 6e 20 2a 2a 0d 06 ae 25 |nu butto|n **...%|
|00001300| 20 20 20 20 20 20 e7 20 | 69 63 6f 6e 5f 68 61 6e | . |icon_han|
|00001310| 64 6c 65 25 20 3d 20 69 | 63 6f 6e 62 61 72 25 20 |dle% = i|conbar% |
|00001320| 8c 0d 06 b8 55 20 20 20 | 20 20 20 20 20 20 c8 99 |....U | ..|
|00001330| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001340| 75 22 2c 2c 20 69 63 6f | 6e 62 61 72 6d 65 6e 75 |u",, ico|nbarmenu|
|00001350| 5f 62 6c 6f 63 6b 25 2c | 20 28 62 6c 6f 63 6b 25 |_block%,| (block%|
|00001360| 21 30 29 20 2d 20 36 34 | 2c 20 6d 65 6e 75 5f 68 |!0) - 64|, menu_h|
|00001370| 65 69 67 68 74 25 0d 06 | c2 0b 20 20 20 20 20 20 |eight%..|.. |
|00001380| cd 0d 06 cc 08 20 20 20 | cd 0d 06 d6 08 20 20 20 |..... |..... |
|00001390| 3a 0d 06 e0 16 20 20 20 | e7 20 62 75 74 74 6f 6e |:.... |. button|
|000013a0| 25 20 3d 20 34 20 8c 0d | 06 ea 1d 20 20 20 20 20 |% = 4 ..|... |
|000013b0| 20 f4 20 2a 2a 20 53 65 | 6c 65 63 74 20 4d 65 6e | . ** Se|lect Men|
|000013c0| 75 20 2a 2a 0d 06 f4 25 | 20 20 20 20 20 20 e7 20 |u **...%| . |
|000013d0| 69 63 6f 6e 5f 68 61 6e | 64 6c 65 25 20 3d 20 69 |icon_han|dle% = i|
|000013e0| 63 6f 6e 62 61 72 25 20 | 8c 0d 06 fe 30 20 20 20 |conbar% |....0 |
|000013f0| 20 20 20 20 20 20 f2 70 | 72 6f 63 65 73 73 5f 6f | .p|rocess_o|
|00001400| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 68 61 6e 64 6c |pen_wind|ow(handl|
|00001410| 65 25 28 4d 61 69 6e 29 | 29 0d 07 08 0b 20 20 20 |e%(Main)|).... |
|00001420| 20 20 20 cd 0d 07 12 08 | 20 20 20 cd 0d 07 1c 08 | .....| .....|
|00001430| 20 20 20 3a 0d 07 26 16 | 20 20 20 e7 20 62 75 74 | :..&.| . but|
|00001440| 74 6f 6e 25 20 3d 20 31 | 20 8c 0d 07 30 1e 20 20 |ton% = 1| ...0. |
|00001450| 20 20 20 20 f4 20 2a 2a | 20 53 69 6c 6c 79 20 42 | . **| Silly B|
|00001460| 75 74 74 6f 6e 20 2a 2a | 0d 07 3a 1d 20 20 20 20 |utton **|..:. |
|00001470| 20 20 e7 20 69 63 6f 6e | 5f 73 74 61 74 65 25 20 | . icon|_state% |
|00001480| 3d 20 30 20 8c 0d 07 44 | 35 20 20 20 20 20 20 20 |= 0 ...D|5 |
|00001490| 20 20 f2 77 72 69 74 65 | 5f 69 63 6f 6e 5f 73 70 | .write|_icon_sp|
|000014a0| 72 69 74 65 28 2d 32 2c | 20 69 63 6f 6e 62 61 72 |rite(-2,| iconbar|
|000014b0| 25 2c 20 22 77 6f 74 3f | 22 29 0d 07 4e 1c 20 20 |%, "wot?|")..N. |
|000014c0| 20 20 20 20 20 20 20 69 | 63 6f 6e 5f 73 74 61 74 | i|con_stat|
|000014d0| 65 25 20 3d 20 31 0d 07 | 58 0b 20 20 20 20 20 20 |e% = 1..|X. |
|000014e0| cc 0d 07 62 3b 20 20 20 | 20 20 20 20 20 20 f2 77 |...b; | .w|
|000014f0| 72 69 74 65 5f 69 63 6f | 6e 5f 73 70 72 69 74 65 |rite_ico|n_sprite|
|00001500| 28 2d 32 2c 20 69 63 6f | 6e 62 61 72 25 2c 20 22 |(-2, ico|nbar%, "|
|00001510| 21 43 72 65 61 74 65 41 | 70 70 22 29 0d 07 6c 1c |!CreateA|pp")..l.|
|00001520| 20 20 20 20 20 20 20 20 | 20 69 63 6f 6e 5f 73 74 | | icon_st|
|00001530| 61 74 65 25 20 3d 20 30 | 0d 07 76 0b 20 20 20 20 |ate% = 0|..v. |
|00001540| 20 20 cd 0d 07 80 08 20 | 20 20 cd 0d 07 8a 05 cd | ..... | ......|
|00001550| 0d 07 94 05 3a 0d 07 9e | 26 e7 20 77 69 6e 64 6f |....:...|&. windo|
|00001560| 77 5f 68 61 6e 64 6c 65 | 25 20 3d 20 68 61 6e 64 |w_handle|% = hand|
|00001570| 6c 65 25 28 4d 61 69 6e | 29 20 8c 0d 07 a8 16 20 |le%(Main|) ..... |
|00001580| 20 20 e7 20 62 75 74 74 | 6f 6e 25 20 3d 20 34 20 | . butt|on% = 4 |
|00001590| 8c 0d 07 b2 1f 20 20 20 | 20 20 20 e7 20 69 63 6f |..... | . ico|
|000015a0| 6e 5f 68 61 6e 64 6c 65 | 25 20 3d 20 31 39 20 8c |n_handle|% = 19 .|
|000015b0| 0d 07 bc 20 20 20 20 20 | 20 20 20 20 20 f2 63 72 |... | .cr|
|000015c0| 65 61 74 65 5f 61 70 70 | 6c 69 63 61 74 69 6f 6e |eate_app|lication|
|000015d0| 0d 07 c6 0b 20 20 20 20 | 20 20 cd 0d 07 d0 1f 20 |.... | ..... |
|000015e0| 20 20 20 20 20 e7 20 69 | 63 6f 6e 5f 68 61 6e 64 | . i|con_hand|
|000015f0| 6c 65 25 20 3d 20 32 37 | 20 8c 0d 07 da 22 20 20 |le% = 27| ...." |
|00001600| 20 20 20 20 20 20 20 e7 | 20 69 6e 63 6c 75 73 69 | .| inclusi|
|00001610| 6f 6e 5f 6e 6f 25 20 3e | 20 30 20 8c 0d 07 e4 22 |on_no% >| 0 ...."|
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 6e 63 6c | | incl|
|00001630| 75 73 69 6f 6e 5f 6e 6f | 25 20 2d 3d 20 31 0d 07 |usion_no|% -= 1..|
|00001640| ee 3f 20 20 20 20 20 20 | 20 20 20 20 20 20 f2 66 |.? | .f|
|00001650| 69 6c 6c 5f 69 63 6f 6e | 28 68 61 6e 64 6c 65 25 |ill_icon|(handle%|
|00001660| 28 4d 61 69 6e 29 2c 20 | 32 36 2c 20 c3 28 69 6e |(Main), |26, .(in|
|00001670| 63 6c 75 73 69 6f 6e 5f | 6e 6f 25 29 29 0d 07 f8 |clusion_|no%))...|
|00001680| 0e 20 20 20 20 20 20 20 | 20 20 cd 0d 08 02 0b 20 |. | ..... |
|00001690| 20 20 20 20 20 cd 0d 08 | 0c 08 20 20 20 cd 0d 08 | ...|.. ...|
|000016a0| 16 05 cd 0d 08 20 05 3a | 0d 08 2a 24 e7 20 77 69 |..... .:|..*$. wi|
|000016b0| 6e 64 6f 77 5f 68 61 6e | 64 6c 65 25 20 3d 20 68 |ndow_han|dle% = h|
|000016c0| 61 6e 64 6c 65 25 28 53 | 61 76 65 29 0d 08 34 16 |andle%(S|ave)..4.|
|000016d0| 20 20 20 e7 20 62 75 74 | 74 6f 6e 25 20 3d 20 34 | . but|ton% = 4|
|000016e0| 20 8c 0d 08 3e 1e 20 20 | 20 20 20 20 e7 20 69 63 | ...>. | . ic|
|000016f0| 6f 6e 5f 68 61 6e 64 6c | 65 25 20 3d 20 30 20 8c |on_handl|e% = 0 .|
|00001700| 0d 08 48 1b 20 20 20 20 | 20 20 20 20 20 f2 73 74 |..H. | .st|
|00001710| 61 72 74 5f 64 72 61 67 | 28 30 29 0d 08 52 0b 20 |art_drag|(0)..R. |
|00001720| 20 20 20 20 20 cd 0d 08 | 5c 08 20 20 20 cd 0d 08 | ...|\. ...|
|00001730| 66 05 cd 0d 08 70 05 3a | 0d 08 7a 05 e1 0d 08 84 |f....p.:|..z.....|
|00001740| 05 3a 0d 08 8e 19 dd 20 | f2 6d 65 6e 75 5f 69 74 |.:..... |.menu_it|
|00001750| 65 6d 5f 73 65 6c 65 63 | 74 65 64 0d 08 98 2b f4 |em_selec|ted...+.|
|00001760| 20 2a 2a 20 46 69 6e 64 | 20 6f 75 74 20 77 68 69 | ** Find| out whi|
|00001770| 63 68 20 69 74 65 6d 20 | 69 73 20 73 65 6c 65 63 |ch item |is selec|
|00001780| 74 65 64 20 2a 2a 0d 08 | a2 11 c8 8e 20 62 6c 6f |ted **..|.... blo|
|00001790| 63 6b 25 21 30 20 ca 0d | 08 ac 22 20 20 20 c9 20 |ck%!0 ..|.." . |
|000017a0| 30 20 20 20 3a 20 f4 20 | 2a 2a 20 49 6e 66 6f 20 |0 : . |** Info |
|000017b0| 77 69 6e 64 6f 77 20 2a | 2a 0d 08 b6 2d 20 20 20 |window *|*...- |
|000017c0| c9 20 31 20 20 20 3a 20 | f4 20 2a 2a 20 51 75 69 |. 1 : |. ** Qui|
|000017d0| 74 20 68 61 73 20 62 65 | 65 6e 20 73 65 6c 65 63 |t has be|en selec|
|000017e0| 74 65 64 20 2a 2a 0d 08 | c0 1a 20 20 20 20 20 20 |ted **..|.. |
|000017f0| 20 20 20 20 20 20 20 20 | 71 75 69 74 20 3d 20 b9 | |quit = .|
|00001800| 0d 08 ca 05 cb 0d 08 d4 | 05 e1 0d 08 de 05 3a 0d |........|......:.|
|00001810| 08 e8 19 dd 20 f2 63 72 | 65 61 74 65 5f 61 70 70 |.... .cr|eate_app|
|00001820| 6c 69 63 61 74 69 6f 6e | 0d 08 f2 39 f4 20 2a 2a |lication|...9. **|
|00001830| 20 46 69 72 73 74 6c 79 | 20 65 78 74 72 61 63 74 | Firstly| extract|
|00001840| 20 74 68 65 20 64 61 74 | 61 20 66 72 6f 6d 20 74 | the dat|a from t|
|00001850| 68 65 20 6d 61 69 6e 20 | 77 69 6e 64 6f 77 20 2a |he main |window *|
|00001860| 2a 0d 08 fc 3b 61 70 70 | 5f 6e 61 6d 65 24 20 3d |*...;app|_name$ =|
|00001870| 20 22 21 22 20 2b 20 a4 | 72 65 61 64 5f 77 72 69 | "!" + .|read_wri|
|00001880| 74 61 62 6c 65 5f 69 63 | 6f 6e 28 68 61 6e 64 6c |table_ic|on(handl|
|00001890| 65 25 28 4d 61 69 6e 29 | 2c 20 34 29 0d 09 06 19 |e%(Main)|, 4)....|
|000018a0| e7 20 a9 28 61 70 70 5f | 6e 61 6d 65 24 29 20 3c |. .(app_|name$) <|
|000018b0| 3e 20 31 20 8c 0d 09 10 | 16 20 20 20 e3 20 6c 6f |> 1 ....|. . lo|
|000018c0| 6f 70 25 20 3d 20 31 20 | b8 20 36 0d 09 1a 4f 20 |op% = 1 |. 6...O |
|000018d0| 20 20 20 20 63 72 65 61 | 74 69 6f 6e 5f 64 65 74 | crea|tion_det|
|000018e0| 61 69 6c 73 25 28 6c 6f | 6f 70 25 29 20 3d 20 a4 |ails%(lo|op%) = .|
|000018f0| 72 65 61 64 5f 72 61 64 | 69 6f 5f 69 63 6f 6e 28 |read_rad|io_icon(|
|00001900| 68 61 6e 64 6c 65 25 28 | 4d 61 69 6e 29 2c 20 6c |handle%(|Main), l|
|00001910| 6f 6f 70 25 20 2b 20 31 | 30 29 0d 09 24 0e 20 20 |oop% + 1|0)..$. |
|00001920| 20 ed 20 6c 6f 6f 70 25 | 0d 09 2e 08 20 20 20 3a | . loop%|.... :|
|00001930| 0d 09 38 37 20 20 20 e7 | 20 a4 72 65 61 64 5f 77 |..87 .| .read_w|
|00001940| 72 69 74 61 62 6c 65 5f | 69 63 6f 6e 28 68 61 6e |ritable_|icon(han|
|00001950| 64 6c 65 25 28 4d 61 69 | 6e 29 2c 20 31 38 29 20 |dle%(Mai|n), 18) |
|00001960| 3c 3e 20 22 22 20 8c 0d | 09 42 3f 20 20 20 20 20 |<> "" ..|.B? |
|00001970| 20 61 70 70 5f 73 69 7a | 65 25 20 3d 20 a0 28 a4 | app_siz|e% = .(.|
|00001980| 72 65 61 64 5f 77 72 69 | 74 61 62 6c 65 5f 69 63 |read_wri|table_ic|
|00001990| 6f 6e 28 68 61 6e 64 6c | 65 25 28 4d 61 69 6e 29 |on(handl|e%(Main)|
|000019a0| 2c 20 31 38 29 29 0d 09 | 4c 08 20 20 20 cc 0d 09 |, 18))..|L. ...|
|000019b0| 56 17 20 20 20 20 20 20 | 61 70 70 5f 73 69 7a 65 |V. |app_size|
|000019c0| 25 20 3d 20 30 0d 09 60 | 08 20 20 20 cd 0d 09 6a |% = 0..`|. ...j|
|000019d0| 08 20 20 20 3a 0d 09 74 | 24 20 20 20 f4 20 2a 2a |. :..t|$ . **|
|000019e0| 20 43 6c 6f 73 65 20 74 | 68 65 20 6d 61 69 6e 20 | Close t|he main |
|000019f0| 77 69 6e 64 6f 77 20 2a | 2a 0d 09 7e 2b 20 20 20 |window *|*..~+ |
|00001a00| f2 70 72 6f 63 65 73 73 | 5f 63 6c 6f 73 65 5f 77 |.process|_close_w|
|00001a10| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 28 4d 61 |indow(ha|ndle%(Ma|
|00001a20| 69 6e 29 29 0d 09 88 08 | 20 20 20 3a 0d 09 92 3c |in))....| :...<|
|00001a30| 20 20 20 f4 20 2a 2a 20 | 49 6e 73 65 72 74 20 74 | . ** |Insert t|
|00001a40| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 6e |he appli|cation n|
|00001a50| 61 6d 65 20 69 6e 74 6f | 20 74 68 65 20 73 61 76 |ame into| the sav|
|00001a60| 65 20 62 6f 78 20 2a 2a | 0d 09 9c 2e 20 20 20 f2 |e box **|.... .|
|00001a70| 66 69 6c 6c 5f 69 63 6f | 6e 28 68 61 6e 64 6c 65 |fill_ico|n(handle|
|00001a80| 25 28 53 61 76 65 29 2c | 20 31 2c 20 61 70 70 5f |%(Save),| 1, app_|
|00001a90| 6e 61 6d 65 24 29 0d 09 | a6 08 20 20 20 3a 0d 09 |name$)..|.. :..|
|00001aa0| b0 24 20 20 20 f4 20 2a | 2a 20 4e 6f 77 20 6f 70 |.$ . *|* Now op|
|00001ab0| 65 6e 20 74 68 65 20 73 | 61 76 65 20 62 6f 78 20 |en the s|ave box |
|00001ac0| 2a 2a 0d 09 ba 2a 20 20 | 20 f2 70 72 6f 63 65 73 |**...* | .proces|
|00001ad0| 73 5f 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 68 61 |s_open_w|indow(ha|
|00001ae0| 6e 64 6c 65 25 28 53 61 | 76 65 29 29 0d 09 c4 05 |ndle%(Sa|ve))....|
|00001af0| cc 0d 09 ce 48 20 20 20 | f2 65 72 72 6f 72 28 22 |....H |.error("|
|00001b00| 43 72 65 61 74 65 41 70 | 70 22 2c 32 2c 22 59 6f |CreateAp|p",2,"Yo|
|00001b10| 75 20 68 61 76 65 20 6e | 6f 74 20 65 6e 74 65 72 |u have n|ot enter|
|00001b20| 65 64 20 61 6e 20 61 70 | 70 6c 69 63 61 74 69 6f |ed an ap|plicatio|
|00001b30| 6e 20 6e 61 6d 65 2e 22 | 29 0d 09 d8 05 cd 0d 09 |n name."|).......|
|00001b40| e2 05 e1 0d 09 ec 05 3a | 0d 09 f6 43 f4 20 2d 2d |.......:|...C. --|
|00001b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b60| 20 57 49 4d 50 20 4c 69 | 62 72 61 72 79 20 50 72 | WIMP Li|brary Pr|
|00001b70| 6f 63 65 64 75 72 65 73 | 20 2d 2d 2d 2d 2d 2d 2d |ocedures| -------|
|00001b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0a 00 05 3a |--------|---....:|
|00001b90| 0d 0a 0a 38 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...8. **|********|
|00001ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 14 38 f4 20 2a 2a |********|...8. **|
|00001bd0| 20 45 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 | Error h|andling |
|00001be0| 50 72 6f 63 65 64 75 72 | 65 20 56 31 2e 31 33 20 |Procedur|e V1.13 |
|00001bf0| 42 79 20 53 69 6d 6f 6e | 20 49 6e 6e 73 20 2a 2a |By Simon| Inns **|
|00001c00| 0d 0a 1e 38 f4 20 2a 2a | 20 20 20 20 20 20 20 20 |...8. **| |
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c30| 20 20 20 20 20 20 2a 2a | 0d 0a 28 38 f4 20 2a 2a | **|..(8. **|
|00001c40| 20 4c 61 73 74 20 75 70 | 64 61 74 65 20 3a 20 30 | Last up|date : 0|
|00001c50| 32 2f 30 31 2f 39 33 20 | 20 20 20 20 20 20 20 20 |2/01/93 | |
|00001c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 2a | | **|
|00001c70| 0d 0a 32 38 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..28. **|********|
|00001c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 3c 2a dd 20 f2 65 |********|..<*. .e|
|00001cb0| 72 72 6f 72 28 74 61 73 | 6b 5f 6e 61 6d 65 24 2c |rror(tas|k_name$,|
|00001cc0| 20 73 74 61 74 65 25 2c | 20 6d 65 73 73 61 67 65 | state%,| message|
|00001cd0| 24 29 0d 0a 46 05 3a 0d | 0a 50 34 f4 20 2a 2a 2a |$)..F.:.|.P4. ***|
|00001ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0a 5a 34 f4 |********|***..Z4.|
|00001d10| 20 2a 2a 20 53 74 61 74 | 65 73 3a 20 20 20 20 30 | ** Stat|es: 0|
|00001d20| 20 3d 20 46 61 74 61 6c | 20 73 79 73 74 65 6d 20 | = Fatal| system |
|00001d30| 65 72 72 6f 72 20 20 20 | 20 20 20 20 20 2a 2a 0d |error | **.|
|00001d40| 0a 64 34 f4 20 2a 2a 20 | 20 20 20 20 20 20 20 20 |.d4. ** | |
|00001d50| 20 20 20 31 20 3d 20 46 | 61 74 61 6c 20 69 6e 74 | 1 = F|atal int|
|00001d60| 65 72 6e 61 6c 20 65 72 | 72 6f 72 20 20 20 20 20 |ernal er|ror |
|00001d70| 20 2a 2a 0d 0a 6e 34 f4 | 20 2a 2a 20 20 20 20 20 | **..n4.| ** |
|00001d80| 20 20 20 20 20 20 20 32 | 20 3d 20 4e 6f 6e 2d 66 | 2| = Non-f|
|00001d90| 61 74 61 6c 20 69 6e 74 | 65 72 6e 61 6c 20 65 72 |atal int|ernal er|
|00001da0| 72 6f 72 20 20 2a 2a 0d | 0a 78 34 f4 20 2a 2a 2a |ror **.|.x4. ***|
|00001db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0a 82 05 3a |********|***....:|
|00001de0| 0d 0a 8c 44 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |...D.. "|Hourglas|
|00001df0| 73 5f 53 6d 61 73 68 22 | 20 3a 20 f4 20 2a 2a 20 |s_Smash"| : . ** |
|00001e00| 27 63 61 75 73 65 20 69 | 74 20 77 6f 6e 27 74 20 |'cause i|t won't |
|00001e10| 77 6f 72 6b 20 69 66 20 | 69 74 27 73 20 6f 6e 21 |work if |it's on!|
|00001e20| 21 20 2a 2a 0d 0a 96 05 | 3a 0d 0a a0 43 f4 20 2a |! **....|:...C. *|
|00001e30| 2a 20 43 68 65 63 6b 20 | 73 74 61 74 65 20 72 61 |* Check |state ra|
|00001e40| 6e 67 65 20 28 62 65 63 | 61 75 73 65 20 69 66 20 |nge (bec|ause if |
|00001e50| 74 68 65 20 65 72 72 6f | 72 20 68 61 6e 64 6c 65 |the erro|r handle|
|00001e60| 72 20 63 72 61 73 68 65 | 73 20 2a 2a 0d 0a aa 43 |r crashe|s **...C|
|00001e70| f4 20 2a 2a 20 77 65 20 | 77 69 6c 6c 20 62 65 20 |. ** we |will be |
|00001e80| 69 6e 20 73 74 75 6b 21 | 20 20 20 20 20 20 20 20 |in stuk!| |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2a 0d | | **.|
|00001eb0| 0a b4 2a e7 20 73 74 61 | 74 65 25 20 3c 20 30 20 |..*. sta|te% < 0 |
|00001ec0| 84 20 73 74 61 74 65 25 | 20 3e 20 32 20 8c 20 73 |. state%| > 2 . s|
|00001ed0| 74 61 74 65 25 20 3d 20 | 30 0d 0a be 05 3a 0d 0a |tate% = |0....:..|
|00001ee0| c8 1c e7 20 9f 20 3d 20 | 32 37 35 20 80 20 73 74 |... . = |275 . st|
|00001ef0| 61 74 65 25 20 3d 20 30 | 20 8c 0d 0a d2 11 20 20 |ate% = 0| ..... |
|00001f00| 20 73 74 61 74 65 25 20 | 3d 20 33 0d 0a dc 05 cd | state% |= 3.....|
|00001f10| 0d 0a e6 05 3a 0d 0a f0 | 0f c8 8e 20 73 74 61 74 |....:...|... stat|
|00001f20| 65 25 20 ca 0d 0a fa 26 | 20 20 c9 20 30 20 3a 20 |e% ....&| . 0 : |
|00001f30| f4 20 2a 2a 20 46 61 74 | 61 6c 20 73 79 73 74 65 |. ** Fat|al syste|
|00001f40| 6d 20 65 72 72 6f 72 20 | 2a 2a 0d 0b 04 1c 20 20 |m error |**.... |
|00001f50| 20 20 20 20 20 20 20 20 | 20 c8 99 20 32 36 32 33 | | .. 2623|
|00001f60| 35 32 2c 2c 2d 31 0d 0b | 0e 19 20 20 20 20 20 20 |52,,-1..|.. |
|00001f70| 20 20 20 20 20 21 62 75 | 66 66 65 72 25 3d 9f 0d | !bu|ffer%=..|
|00001f80| 0b 18 50 20 20 20 20 20 | 20 20 20 20 20 20 24 28 |..P | $(|
|00001f90| 62 75 66 66 65 72 25 2b | 34 29 20 3d 20 f6 24 20 |buffer%+|4) = .$ |
|00001fa0| 2b 20 22 20 61 74 20 6c | 69 6e 65 20 22 20 2b 20 |+ " at l|ine " + |
|00001fb0| c3 28 9e 29 20 2b 20 22 | 20 28 22 20 2b 20 c3 28 |.(.) + "| (" + .(|
|00001fc0| 9f 29 20 2b 20 22 29 22 | 20 2b 20 bd 28 30 29 0d |.) + ")"| + .(0).|
|00001fd0| 0b 22 39 20 20 20 20 20 | 20 20 20 20 20 20 c8 99 |."9 | ..|
|00001fe0| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00001ff0| 6f 72 22 2c 62 75 66 66 | 65 72 25 2c 31 2c 74 61 |or",buff|er%,1,ta|
|00002000| 73 6b 5f 6e 61 6d 65 24 | 0d 0b 2c 22 20 20 20 20 |sk_name$|..," |
|00002010| 20 20 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f | .|. "Wimp_|
|00002020| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 0b 36 10 20 20 |CloseDow|n"..6. |
|00002030| 20 20 20 20 20 20 20 20 | 20 e0 0d 0b 40 28 20 20 | | ...@( |
|00002040| c9 20 31 20 3a 20 f4 20 | 2a 2a 20 46 61 74 61 6c |. 1 : . |** Fatal|
|00002050| 20 69 6e 74 65 72 6e 61 | 6c 20 65 72 72 6f 72 20 | interna|l error |
|00002060| 2a 2a 0d 0b 4a 1c 20 20 | 20 20 20 20 20 20 20 20 |**..J. | |
|00002070| 20 c8 99 20 32 36 32 33 | 35 32 2c 2c 2d 31 0d 0b | .. 2623|52,,-1..|
|00002080| 54 19 20 20 20 20 20 20 | 20 20 20 20 20 21 62 75 |T. | !bu|
|00002090| 66 66 65 72 25 3d 30 0d | 0b 5e 2d 20 20 20 20 20 |ffer%=0.|.^- |
|000020a0| 20 20 20 20 20 20 24 28 | 62 75 66 66 65 72 25 2b | $(|buffer%+|
|000020b0| 34 29 20 3d 20 6d 65 73 | 73 61 67 65 24 20 2b 20 |4) = mes|sage$ + |
|000020c0| bd 28 30 29 0d 0b 68 39 | 20 20 20 20 20 20 20 20 |.(0)..h9| |
|000020d0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f | .. "W|imp_Repo|
|000020e0| 72 74 45 72 72 6f 72 22 | 2c 62 75 66 66 65 72 25 |rtError"|,buffer%|
|000020f0| 2c 31 2c 74 61 73 6b 5f | 6e 61 6d 65 24 0d 0b 72 |,1,task_|name$..r|
|00002100| 22 20 20 20 20 20 20 20 | 20 20 20 20 c8 99 20 22 |" | .. "|
|00002110| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 0d |Wimp_Clo|seDown".|
|00002120| 0b 7c 10 20 20 20 20 20 | 20 20 20 20 20 20 e0 0d |.|. | ..|
|00002130| 0b 86 2c 20 20 c9 20 32 | 20 3a 20 f4 20 2a 2a 20 |.., . 2| : . ** |
|00002140| 4e 6f 6e 2d 46 61 74 61 | 6c 20 69 6e 74 65 72 6e |Non-Fata|l intern|
|00002150| 61 6c 20 65 72 72 6f 72 | 20 2a 2a 0d 0b 90 1c 20 |al error| **.... |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 c8 99 20 32 36 32 | | .. 262|
|00002170| 33 35 32 2c 2c 2d 31 0d | 0b 9a 19 20 20 20 20 20 |352,,-1.|... |
|00002180| 20 20 20 20 20 20 21 62 | 75 66 66 65 72 25 3d 30 | !b|uffer%=0|
|00002190| 0d 0b a4 2d 20 20 20 20 | 20 20 20 20 20 20 20 24 |...- | $|
|000021a0| 28 62 75 66 66 65 72 25 | 2b 34 29 20 3d 20 6d 65 |(buffer%|+4) = me|
|000021b0| 73 73 61 67 65 24 20 2b | 20 bd 28 30 29 0d 0b ae |ssage$ +| .(0)...|
|000021c0| 39 20 20 20 20 20 20 20 | 20 20 20 20 c8 99 20 22 |9 | .. "|
|000021d0| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|000021e0| 22 2c 62 75 66 66 65 72 | 25 2c 31 2c 74 61 73 6b |",buffer|%,1,task|
|000021f0| 5f 6e 61 6d 65 24 0d 0b | b8 17 20 20 c9 20 33 20 |_name$..|.. . 3 |
|00002200| 3a 20 61 72 72 67 67 68 | 25 20 3d 20 b9 0d 0b c2 |: arrggh|% = ....|
|00002210| 05 cb 0d 0b cc 05 e1 0d | 0b d6 05 3a 0d 0b e0 3f |........|...:...?|
|00002220| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00002230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0b ea 3f f4 |********|***...?.|
|00002260| 20 2a 2a 20 52 65 61 64 | 20 52 61 64 69 6f 20 49 | ** Read| Radio I|
|00002270| 63 6f 6e 20 53 74 61 74 | 65 20 50 72 6f 63 65 64 |con Stat|e Proced|
|00002280| 75 72 65 20 56 31 2e 30 | 31 20 42 79 20 53 69 6d |ure V1.0|1 By Sim|
|00002290| 6f 6e 20 49 6e 6e 73 20 | 2a 2a 0d 0b f4 3f f4 20 |on Inns |**...?. |
|000022a0| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|000022b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022d0| 20 20 20 20 20 20 20 2a | 2a 0d 0b fe 3f f4 20 2a | *|*...?. *|
|000022e0| 2a 20 4c 61 73 74 20 75 | 70 64 61 74 65 20 3a 20 |* Last u|pdate : |
|000022f0| 32 34 2f 30 31 2f 39 33 | 20 20 20 20 20 20 20 20 |24/01/93| |
|00002300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002310| 20 20 20 20 20 20 2a 2a | 0d 0c 08 3f f4 20 2a 2a | **|...?. **|
|00002320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002350| 2a 2a 2a 2a 2a 2a 2a 0d | 0c 12 34 dd 20 a4 72 65 |*******.|..4. .re|
|00002360| 61 64 5f 72 61 64 69 6f | 5f 69 63 6f 6e 28 77 69 |ad_radio|_icon(wi|
|00002370| 6e 64 6f 77 5f 68 61 6e | 64 6c 65 25 2c 20 69 63 |ndow_han|dle%, ic|
|00002380| 6f 6e 5f 68 61 6e 64 6c | 65 25 29 0d 0c 1c 05 3a |on_handl|e%)....:|
|00002390| 0d 0c 26 1c 21 62 6c 6f | 63 6b 25 20 3d 20 77 69 |..&.!blo|ck% = wi|
|000023a0| 6e 64 6f 77 5f 68 61 6e | 64 6c 65 25 0d 0c 30 35 |ndow_han|dle%..05|
|000023b0| 62 6c 6f 63 6b 25 21 34 | 20 3d 20 69 63 6f 6e 5f |block%!4| = icon_|
|000023c0| 68 61 6e 64 6c 65 25 20 | 3a 20 f4 20 2a 2a 20 54 |handle% |: . ** T|
|000023d0| 68 65 20 69 63 6f 6e 20 | 6e 75 6d 62 65 72 20 2a |he icon |number *|
|000023e0| 2a 0d 0c 3a 22 c8 99 20 | 22 57 69 6d 70 5f 47 65 |*..:".. |"Wimp_Ge|
|000023f0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|00002400| 63 6b 25 0d 0c 44 16 66 | 6c 61 67 73 25 20 3d 20 |ck%..D.f|lags% = |
|00002410| 62 6c 6f 63 6b 25 21 32 | 34 0d 0c 4e 1a 73 74 61 |block%!2|4..N.sta|
|00002420| 74 25 20 3d 20 66 6c 61 | 67 73 25 20 80 20 31 3c |t% = fla|gs% . 1<|
|00002430| 3c 32 31 0d 0c 58 11 e7 | 20 73 74 61 74 25 20 3d |<21..X..| stat% =|
|00002440| 20 30 20 8c 0d 0c 62 12 | 20 20 20 72 65 73 75 6c | 0 ...b.| resul|
|00002450| 74 25 20 3d 20 b9 0d 0c | 6c 05 cc 0d 0c 76 12 20 |t% = ...|l....v. |
|00002460| 20 20 72 65 73 75 6c 74 | 25 20 3d 20 a3 0d 0c 80 | result|% = ....|
|00002470| 05 cd 0d 0c 8a 0d 3d 20 | 72 65 73 75 6c 74 25 0d |......= |result%.|
|00002480| 0c 94 05 3a 0d 0c 9e 37 | dd 20 a4 72 65 61 64 5f |...:...7|. .read_|
|00002490| 77 72 69 74 61 62 6c 65 | 5f 69 63 6f 6e 28 77 69 |writable|_icon(wi|
|000024a0| 6e 64 6f 77 5f 68 61 6e | 64 6c 65 25 2c 20 69 63 |ndow_han|dle%, ic|
|000024b0| 6f 6e 5f 68 61 6e 64 6c | 65 25 29 0d 0c a8 05 3a |on_handl|e%)....:|
|000024c0| 0d 0c b2 1c 21 62 6c 6f | 63 6b 25 20 3d 20 77 69 |....!blo|ck% = wi|
|000024d0| 6e 64 6f 77 5f 68 61 6e | 64 6c 65 25 0d 0c bc 1b |ndow_han|dle%....|
|000024e0| 62 6c 6f 63 6b 25 21 34 | 20 3d 20 69 63 6f 6e 5f |block%!4| = icon_|
|000024f0| 68 61 6e 64 6c 65 25 0d | 0c c6 22 c8 99 20 22 57 |handle%.|..".. "W|
|00002500| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002510| 22 2c 2c 62 6c 6f 63 6b | 25 0d 0c d0 18 61 64 64 |",,block|%....add|
|00002520| 72 65 73 73 25 20 3d 20 | 62 6c 6f 63 6b 25 21 32 |ress% = |block%!2|
|00002530| 38 0d 0c da 0f 3d 20 24 | 61 64 64 72 65 73 73 25 |8....= $|address%|
|00002540| 0d 0c e4 05 3a 0d 0c ee | 4c f4 20 2a 2a 2a 2a 2a |....:...|L. *****|
|00002550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002590| 2a 0d 0c f8 4c f4 20 2a | 2a 20 20 20 20 20 20 20 |*...L. *|* |
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 | | D|
|000025b0| 65 66 69 6e 65 20 4d 65 | 6e 75 20 50 72 6f 63 65 |efine Me|nu Proce|
|000025c0| 64 75 72 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |dure | |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 0d 0d 02 | | **...|
|000025e0| 4c f4 20 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |L. ** | |
|000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002620| 20 20 20 20 20 20 20 2a | 2a 0d 0d 0c 4c f4 20 2a | *|*...L. *|
|00002630| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 42 79 20 53 69 | | By Si|
|00002650| 6d 6f 6e 20 49 6e 6e 73 | 20 20 20 20 20 20 20 20 |mon Inns| |
|00002660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002670| 20 20 20 2a 2a 0d 0d 16 | 4c f4 20 2a 2a 20 20 20 | **...|L. ** |
|00002680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002690| 20 a9 31 39 39 33 20 52 | 65 73 6f 75 72 63 65 20 | .1993 R|esource |
|000026a0| 54 65 63 68 6e 6f 6c 6f | 67 79 20 20 20 20 20 20 |Technolo|gy |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a | | *|
|000026c0| 2a 0d 0d 20 4c f4 20 2a | 2a 20 20 20 20 20 20 20 |*.. L. *|* |
|000026d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000026e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000026f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002700| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 0d 0d 2a | | **..*|
|00002710| 4c f4 20 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |L. ** | |
|00002720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002730| 56 65 72 73 69 6f 6e 20 | 32 2e 32 31 20 20 20 20 |Version |2.21 |
|00002740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002750| 20 20 20 20 20 20 20 2a | 2a 0d 0d 34 4c f4 20 2a | *|*..4L. *|
|00002760| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00002770| 20 20 20 20 20 20 20 20 | 20 20 32 34 20 4a 61 6e | | 24 Jan|
|00002780| 75 61 72 79 20 31 39 39 | 33 20 20 20 20 20 20 20 |uary 199|3 |
|00002790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000027a0| 20 20 20 2a 2a 0d 0d 3e | 4c f4 20 2a 2a 2a 2a 2a | **..>|L. *****|
|000027b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027f0| 2a 0d 0d 48 05 f4 0d 0d | 52 4c f4 20 2a 2a 2a 2a |*..H....|RL. ****|
|00002800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002840| 2a 2a 0d 0d 5c 4c f4 20 | 2a 2a 20 20 20 20 20 20 |**..\L. |** |
|00002850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002880| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 0d | | **..|
|00002890| 66 4c f4 20 2a 2a 20 4e | 6f 74 65 73 2e 20 20 20 |fL. ** N|otes. |
|000028a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000028d0| 20 20 20 20 20 20 20 20 | 2a 2a 0d 0d 70 4c f4 20 | |**..pL. |
|000028e0| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|000028f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002920| 20 20 20 20 2a 2a 0d 0d | 7a 4c f4 20 2a 2a 20 20 | **..|zL. ** |
|00002930| 20 54 68 65 20 6d 65 6e | 75 20 64 65 74 61 69 6c | The men|u detail|
|00002940| 73 20 73 74 72 69 6e 67 | 20 63 6f 6e 74 61 69 6e |s string| contain|
|00002950| 73 20 74 68 65 20 6e 65 | 63 65 73 73 61 72 79 20 |s the ne|cessary |
|00002960| 64 65 74 61 69 6c 73 20 | 66 6f 72 20 20 20 20 20 |details |for |
|00002970| 2a 2a 0d 0d 84 4c f4 20 | 2a 2a 20 20 20 63 72 65 |**...L. |** cre|
|00002980| 61 74 69 6e 67 20 74 68 | 65 20 6d 65 6e 75 2e 20 |ating th|e menu. |
|00002990| 20 45 61 63 68 20 69 74 | 65 6d 20 69 73 20 73 65 | Each it|em is se|
|000029a0| 70 65 72 61 74 65 64 20 | 62 79 20 61 20 46 4e 20 |perated |by a FN |
|000029b0| 73 79 6d 62 6f 6c 2e 20 | 20 20 20 20 2a 2a 0d 0d |symbol. | **..|
|000029c0| 8e 4c f4 20 2a 2a 20 20 | 20 54 68 65 20 64 65 74 |.L. ** | The det|
|000029d0| 61 69 6c 73 20 61 72 65 | 20 6d 65 6e 75 20 74 65 |ails are| menu te|
|000029e0| 78 74 2c 20 69 63 6f 6e | 20 64 65 74 61 69 6c 73 |xt, icon| details|
|000029f0| 2e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002a00| 20 20 20 20 20 20 20 20 | 2a 2a 0d 0d 98 4c f4 20 | |**...L. |
|00002a10| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00002a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a50| 20 20 20 20 2a 2a 0d 0d | a2 4c f4 20 2a 2a 20 20 | **..|.L. ** |
|00002a60| 20 54 79 70 65 73 3a 20 | 20 20 20 20 20 20 20 4e | Types: | N|
|00002a70| 20 20 3d 20 20 4e 6f 72 | 6d 61 6c 20 20 20 20 20 | = Nor|mal |
|00002a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002aa0| 2a 2a 0d 0d ac 4c f4 20 | 2a 2a 20 20 20 20 20 20 |**...L. |** |
|00002ab0| 20 20 20 20 20 20 20 20 | 20 20 20 47 20 20 3d 20 | | G = |
|00002ac0| 20 47 72 65 79 65 64 20 | 6f 75 74 20 20 20 20 20 | Greyed |out |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 0d | | **..|
|00002af0| b6 4c f4 20 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |.L. ** | |
|00002b00| 20 20 20 20 20 20 20 54 | 20 20 3d 20 20 54 69 63 | T| = Tic|
|00002b10| 6b 65 64 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ked | |
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b30| 20 20 20 20 20 20 20 20 | 2a 2a 0d 0d c0 4c f4 20 | |**...L. |
|00002b40| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00002b50| 20 20 20 4f 20 20 3d 20 | 20 47 72 65 79 65 64 20 | O = | Greyed |
|00002b60| 6f 75 74 20 77 69 74 68 | 20 74 69 63 6b 20 20 20 |out with| tick |
|00002b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b80| 20 20 20 20 2a 2a 0d 0d | ca 4c f4 20 2a 2a 20 20 | **..|.L. ** |
|00002b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6e | | n|
|00002ba0| 20 20 3d 20 20 4e 6f 72 | 6d 61 6c 20 66 6f 6c 6c | = Nor|mal foll|
|00002bb0| 6f 77 65 64 20 62 79 20 | 64 61 73 68 65 64 20 6c |owed by |dashed l|
|00002bc0| 69 6e 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ine | |
|00002bd0| 2a 2a 0d 0d d4 4c f4 20 | 2a 2a 20 20 20 20 20 20 |**...L. |** |
|00002be0| 20 20 20 20 20 20 20 20 | 20 20 20 67 20 20 3d 20 | | g = |
|00002bf0| 20 47 72 65 79 65 64 20 | 6f 75 74 20 66 6f 6c 6c | Greyed |out foll|
|00002c00| 6f 77 65 64 20 62 79 20 | 64 61 73 68 65 64 20 6c |owed by |dashed l|
|00002c10| 69 6e 65 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 0d |ine | **..|
|00002c20| de 4c f4 20 2a 2a 20 20 | 20 20 20 20 20 20 20 20 |.L. ** | |
|00002c30| 20 20 20 20 20 20 20 74 | 20 20 3d 20 20 54 69 63 | t| = Tic|
|00002c40| 6b 65 64 20 66 6f 6c 6c | 6f 77 65 64 20 62 79 20 |ked foll|owed by |
|00002c50| 64 61 73 68 65 64 20 6c | 69 6e 65 20 20 20 20 20 |dashed l|ine |
|00002c60| 20 20 20 20 20 20 20 20 | 2a 2a 0d 0d e8 4c f4 20 | |**...L. |
|00002c70| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00002c80| 20 20 20 6f 20 20 3d 20 | 20 47 72 65 79 65 64 20 | o = | Greyed |
|00002c90| 6f 75 74 20 77 69 74 68 | 20 74 69 63 6b 20 66 6f |out with| tick fo|
|00002ca0| 6c 6c 6f 77 65 64 20 62 | 79 20 20 20 20 20 20 20 |llowed b|y |
|00002cb0| 20 20 20 20 2a 2a 0d 0d | f2 4c f4 20 2a 2a 20 20 | **..|.L. ** |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cd0| 20 20 20 20 20 64 61 73 | 68 65 64 20 6c 69 6e 65 | das|hed line|
|00002ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d00| 2a 2a 0d 0d fc 4c f4 20 | 2a 2a 20 20 20 20 20 20 |**...L. |** |
|00002d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 0e | | **..|
|00002d50| 06 4c f4 20 2a 2a 20 20 | 20 46 6f 6c 6c 6f 77 65 |.L. ** | Followe|
|00002d60| 64 20 62 79 20 3a 20 4c | 20 20 3d 20 20 4c 69 6e |d by : L| = Lin|
|00002d70| 6b 65 64 20 28 68 61 6e | 64 6c 65 20 69 73 20 6c |ked (han|dle is l|
|00002d80| 6f 6f 6b 65 64 20 75 70 | 20 69 6e 20 6c 69 6e 6b |ooked up| in link|
|00002d90| 73 25 28 29 29 20 20 20 | 2a 2a 0d 0e 10 4c f4 20 |s%()) |**...L. |
|00002da0| 2a 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |** | |
|00002db0| 20 20 20 4e 20 20 3d 20 | 20 4e 6f 74 20 6c 69 6e | N = | Not lin|
|00002dc0| 6b 65 64 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ked | |
|00002dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002de0| 20 20 20 20 2a 2a 0d 0e | 1a 4c f4 20 2a 2a 20 20 | **..|.L. ** |
|00002df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e30| 2a 2a 0d 0e 24 4c f4 20 | 2a 2a 20 20 20 54 68 65 |**..$L. |** The|
|00002e40| 20 66 69 72 73 74 20 27 | 69 74 65 6d 27 20 69 6e | first '|item' in|
|00002e50| 20 74 68 65 20 6c 69 73 | 74 20 6d 75 73 74 20 62 | the lis|t must b|
|00002e60| 65 20 74 68 65 20 6d 65 | 6e 75 27 73 20 74 69 74 |e the me|nu's tit|
|00002e70| 6c 65 2e 20 20 20 20 20 | 20 20 20 20 2a 2a 0d 0e |le. | **..|
|00002e80| 2e 4c f4 20 2a 2a 20 20 | 20 54 68 65 20 6d 65 6e |.L. ** | The men|
|00002e90| 75 20 77 69 64 74 68 20 | 69 73 20 63 61 6c 63 75 |u width |is calcu|
|00002ea0| 6c 61 74 65 64 20 61 75 | 74 6f 6d 61 74 69 63 61 |lated au|tomatica|
|00002eb0| 6c 6c 79 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |lly. | |
|00002ec0| 20 20 20 20 20 20 20 20 | 2a 2a 0d 0e 38 4c f4 20 | |**..8L. |
|00002ed0| 2a 2a 20 20 20 54 68 65 | 20 72 65 74 75 72 6e 65 |** The| returne|
|00002ee0| 64 20 6d 65 6e 75 20 68 | 65 69 67 68 74 20 69 73 |d menu h|eight is|
|00002ef0| 20 66 6f 72 20 69 63 6f | 6e 20 62 61 72 20 6d 65 | for ico|n bar me|
|00002f00| 6e 75 73 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |nus. | |
|00002f10| 20 20 20 20 2a 2a 0d 0e | 42 4c f4 20 2a 2a 20 20 | **..|BL. ** |
|00002f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f60| 2a 2a 0d 0e 4c 4c f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |**..LL. |********|
|00002f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0e |********|******..|
|00002fb0| 56 4f dd 20 f2 64 65 66 | 69 6e 65 5f 6d 65 6e 75 |VO. .def|ine_menu|
|00002fc0| 5f 62 6c 6f 63 6b 28 6d | 65 6e 75 5f 73 74 72 69 |_block(m|enu_stri|
|00002fd0| 6e 67 24 2c 20 6c 69 6e | 6b 73 25 28 29 2c 20 f8 |ng$, lin|ks%(), .|
|00002fe0| 20 6d 65 6e 75 5f 62 6c | 6f 63 6b 25 2c 20 f8 20 | menu_bl|ock%, . |
|00002ff0| 6d 65 6e 75 5f 68 65 69 | 67 68 74 25 29 0d 0e 60 |menu_hei|ght%)..`|
|00003000| 05 3a 0d 0e 6a 40 f4 20 | 2a 2a 20 43 68 65 63 6b |.:..j@. |** Check|
|00003010| 20 74 68 65 20 64 65 74 | 61 69 6c 20 73 74 72 69 | the det|ail stri|
|00003020| 6e 67 20 6c 65 6e 67 74 | 68 20 28 4d 69 6e 20 3d |ng lengt|h (Min =|
|00003030| 20 22 54 a4 49 a4 4e 4e | a4 22 20 3d 20 37 29 20 | "T.I.NN|." = 7) |
|00003040| 2a 2a 0d 0e 74 1e 6c 65 | 6e 67 74 68 25 20 20 3d |**..t.le|ngth% =|
|00003050| 20 a9 28 6d 65 6e 75 5f | 73 74 72 69 6e 67 24 29 | .(menu_|string$)|
|00003060| 0d 0e 7e 13 e7 20 6c 65 | 6e 67 74 68 25 20 3c 20 |..~.. le|ngth% < |
|00003070| 37 20 8c 0d 0e 88 40 20 | 20 20 f2 65 72 72 6f 72 |7 ....@ | .error|
|00003080| 28 22 4d 65 6e 75 20 44 | 65 66 69 6e 65 22 2c 20 |("Menu D|efine", |
|00003090| 31 2c 20 22 4d 65 6e 75 | 20 64 65 74 61 69 6c 20 |1, "Menu| detail |
|000030a0| 73 74 72 69 6e 67 20 74 | 6f 6f 20 73 68 6f 72 74 |string t|oo short|
|000030b0| 2e 22 29 0d 0e 92 05 cd | 0d 0e 9c 05 3a 0d 0e a6 |.").....|....:...|
|000030c0| 47 70 6f 69 6e 74 65 72 | 25 20 3d 20 31 20 3a 20 |Gpointer|% = 1 : |
|000030d0| f4 20 2a 2a 20 54 68 69 | 73 20 70 6f 69 6e 74 73 |. ** Thi|s points|
|000030e0| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 63 68 61 | to the |next cha|
|000030f0| 72 61 63 74 65 72 20 74 | 6f 20 62 65 20 72 65 61 |racter t|o be rea|
|00003100| 64 20 2a 2a 0d 0e b0 18 | 6e 75 6d 62 65 72 5f 6f |d **....|number_o|
|00003110| 66 5f 69 74 65 6d 73 25 | 20 3d 20 30 0d 0e ba 15 |f_items%| = 0....|
|00003120| 65 78 74 72 61 5f 68 65 | 69 67 68 74 25 20 3d 20 |extra_he|ight% = |
|00003130| 30 0d 0e c4 1d 70 69 78 | 65 6c 73 5f 70 65 72 5f |0....pix|els_per_|
|00003140| 63 68 61 72 61 63 74 65 | 72 25 20 3d 20 38 0d 0e |characte|r% = 8..|
|00003150| ce 18 63 75 72 72 65 6e | 74 5f 64 65 74 61 69 6c |..curren|t_detail|
|00003160| 24 20 3d 20 22 22 0d 0e | d8 1c 6d 65 6e 75 5f 62 |$ = ""..|..menu_b|
|00003170| 6c 6f 63 6b 5f 70 6f 69 | 6e 74 65 72 25 20 3d 20 |lock_poi|nter% = |
|00003180| 32 38 0d 0e e2 15 6c 69 | 6e 6b 5f 70 6f 69 6e 74 |28....li|nk_point|
|00003190| 65 72 25 20 3d 20 31 0d | 0e ec 05 3a 0d 0e f6 14 |er% = 1.|...:....|
|000031a0| 6d 65 6e 75 5f 74 69 74 | 6c 65 24 20 3d 20 22 22 |menu_tit|le$ = ""|
|000031b0| 0d 0f 00 3a f2 72 65 61 | 64 5f 6d 65 6e 75 5f 64 |...:.rea|d_menu_d|
|000031c0| 65 74 61 69 6c 28 6d 65 | 6e 75 5f 73 74 72 69 6e |etail(me|nu_strin|
|000031d0| 67 24 2c 20 70 6f 69 6e | 74 65 72 25 2c 20 6d 65 |g$, poin|ter%, me|
|000031e0| 6e 75 5f 74 69 74 6c 65 | 24 29 0d 0f 0a 1b e7 20 |nu_title|$)..... |
|000031f0| a9 28 6d 65 6e 75 5f 74 | 69 74 6c 65 24 29 20 3e |.(menu_t|itle$) >|
|00003200| 20 31 32 20 8c 0d 0f 14 | 56 20 20 20 f2 65 72 72 | 12 ....|V .err|
|00003210| 6f 72 28 22 4d 65 6e 75 | 20 44 65 66 69 6e 65 22 |or("Menu| Define"|
|00003220| 2c 20 31 2c 20 22 4d 65 | 6e 75 20 74 69 74 6c 65 |, 1, "Me|nu title|
|00003230| 20 74 6f 6f 20 6c 6f 6e | 67 2e 20 20 49 6e 63 6f | too lon|g. Inco|
|00003240| 72 72 65 63 74 20 6d 65 | 6e 75 20 64 65 74 61 69 |rrect me|nu detai|
|00003250| 6c 20 73 74 72 69 6e 67 | 2e 22 29 0d 0f 1e 05 cd |l string|.").....|
|00003260| 0d 0f 28 22 6c 6f 6e 67 | 65 73 74 5f 69 74 65 6d |..("long|est_item|
|00003270| 25 20 3d 20 a9 28 6d 65 | 6e 75 5f 74 69 74 6c 65 |% = .(me|nu_title|
|00003280| 24 29 0d 0f 32 1e 24 6d | 65 6e 75 5f 62 6c 6f 63 |$)..2.$m|enu_bloc|
|00003290| 6b 25 20 3d 20 6d 65 6e | 75 5f 74 69 74 6c 65 24 |k% = men|u_title$|
|000032a0| 0d 0f 3c 05 3a 0d 0f 46 | 16 6d 65 6e 75 5f 62 6c |..<.:..F|.menu_bl|
|000032b0| 6f 63 6b 25 3f 31 32 20 | 3d 20 37 0d 0f 50 16 6d |ock%?12 |= 7..P.m|
|000032c0| 65 6e 75 5f 62 6c 6f 63 | 6b 25 3f 31 33 20 3d 20 |enu_bloc|k%?13 = |
|000032d0| 32 0d 0f 5a 16 6d 65 6e | 75 5f 62 6c 6f 63 6b 25 |2..Z.men|u_block%|
|000032e0| 3f 31 34 20 3d 20 37 0d | 0f 64 16 6d 65 6e 75 5f |?14 = 7.|.d.menu_|
|000032f0| 62 6c 6f 63 6b 25 3f 31 | 35 20 3d 20 30 0d 0f 6e |block%?1|5 = 0..n|
|00003300| 3c 6d 65 6e 75 5f 62 6c | 6f 63 6b 25 21 32 30 20 |<menu_bl|ock%!20 |
|00003310| 3d 20 34 34 20 20 3a 20 | f4 20 2a 2a 20 4c 65 6e |= 44 : |. ** Len|
|00003320| 67 74 68 20 69 6e 20 70 | 69 78 65 6c 73 20 70 65 |gth in p|ixels pe|
|00003330| 72 20 69 74 65 6d 20 2a | 2a 0d 0f 78 16 6d 65 6e |r item *|*..x.men|
|00003340| 75 5f 62 6c 6f 63 6b 25 | 21 32 34 20 3d 20 30 0d |u_block%|!24 = 0.|
|00003350| 0f 82 05 3a 0d 0f 8c 05 | f5 0d 0f 96 1b 20 20 6e |...:....|..... n|
|00003360| 75 6d 62 65 72 5f 6f 66 | 5f 69 74 65 6d 73 25 20 |umber_of|_items% |
|00003370| 2b 3d 20 31 0d 0f a0 2e | 20 20 69 74 65 6d 5f 73 |+= 1....| item_s|
|00003380| 74 61 72 74 5f 6d 61 72 | 6b 65 72 25 20 3d 20 6d |tart_mar|ker% = m|
|00003390| 65 6e 75 5f 62 6c 6f 63 | 6b 5f 70 6f 69 6e 74 65 |enu_bloc|k_pointe|
|000033a0| 72 25 0d 0f aa 29 20 20 | 6d 65 6e 75 5f 62 6c 6f |r%...) |menu_blo|
|000033b0| 63 6b 25 21 6d 65 6e 75 | 5f 62 6c 6f 63 6b 5f 70 |ck%!menu|_block_p|
|000033c0| 6f 69 6e 74 65 72 25 20 | 3d 20 30 0d 0f b4 07 20 |ointer% |= 0.... |
|000033d0| 20 3a 0d 0f be 15 20 20 | 69 63 6f 6e 5f 74 65 78 | :.... |icon_tex|
|000033e0| 74 24 20 3d 20 22 22 0d | 0f c8 18 20 20 69 63 6f |t$ = "".|... ico|
|000033f0| 6e 5f 64 65 74 61 69 6c | 73 24 20 3d 20 22 22 0d |n_detail|s$ = "".|
|00003400| 0f d2 3b 20 20 f2 72 65 | 61 64 5f 6d 65 6e 75 5f |..; .re|ad_menu_|
|00003410| 64 65 74 61 69 6c 28 6d | 65 6e 75 5f 73 74 72 69 |detail(m|enu_stri|
|00003420| 6e 67 24 2c 20 70 6f 69 | 6e 74 65 72 25 2c 20 69 |ng$, poi|nter%, i|
|00003430| 63 6f 6e 5f 74 65 78 74 | 24 29 0d 0f dc 3e 20 20 |con_text|$)...> |
|00003440| f2 72 65 61 64 5f 6d 65 | 6e 75 5f 64 65 74 61 69 |.read_me|nu_detai|
|00003450| 6c 28 6d 65 6e 75 5f 73 | 74 72 69 6e 67 24 2c 20 |l(menu_s|tring$, |
|00003460| 70 6f 69 6e 74 65 72 25 | 2c 20 69 63 6f 6e 5f 64 |pointer%|, icon_d|
|00003470| 65 74 61 69 6c 73 24 29 | 0d 0f e6 1f 20 20 e7 20 |etails$)|.... . |
|00003480| a9 28 69 63 6f 6e 5f 64 | 65 74 61 69 6c 73 24 29 |.(icon_d|etails$)|
|00003490| 20 3c 3e 20 32 20 8c 0d | 0f f0 69 20 20 20 20 20 | <> 2 ..|..i |
|000034a0| 6d 65 73 73 61 67 65 24 | 20 3d 20 22 4e 6f 74 20 |message$| = "Not |
|000034b0| 65 6e 6f 75 67 68 74 20 | 64 65 74 61 69 6c 73 20 |enought |details |
|000034c0| 61 74 20 70 6f 73 69 74 | 69 6f 6e 20 22 20 2b 20 |at posit|ion " + |
|000034d0| c3 28 70 6f 69 6e 74 65 | 72 25 29 20 2b 20 22 2e |.(pointe|r%) + ".|
|000034e0| 20 20 49 6e 63 6f 72 72 | 65 63 74 20 6d 65 6e 75 | Incorr|ect menu|
|000034f0| 20 64 65 74 61 69 6c 20 | 73 74 72 69 6e 67 2e 22 | detail |string."|
|00003500| 0d 0f fa 2b 20 20 20 20 | 20 f2 65 72 72 6f 72 28 |...+ | .error(|
|00003510| 22 4d 65 6e 75 20 44 65 | 66 69 6e 65 22 2c 20 31 |"Menu De|fine", 1|
|00003520| 2c 20 6d 65 73 73 61 67 | 65 24 29 0d 10 04 07 20 |, messag|e$).... |
|00003530| 20 cd 0d 10 0e 07 20 20 | 3a 0d 10 18 26 20 20 64 | ..... |:...& d|
|00003540| 65 74 61 69 6c 5f 6f 6e | 65 24 20 3d 20 c0 69 63 |etail_on|e$ = .ic|
|00003550| 6f 6e 5f 64 65 74 61 69 | 6c 73 24 2c 20 31 29 0d |on_detai|ls$, 1).|
|00003560| 10 22 26 20 20 64 65 74 | 61 69 6c 5f 74 77 6f 24 |."& det|ail_two$|
|00003570| 20 3d 20 c2 69 63 6f 6e | 5f 64 65 74 61 69 6c 73 | = .icon|_details|
|00003580| 24 2c 20 31 29 0d 10 2c | 07 20 20 3a 0d 10 36 16 |$, 1)..,|. :..6.|
|00003590| 20 20 c8 8e 20 64 65 74 | 61 69 6c 5f 74 77 6f 24 | .. det|ail_two$|
|000035a0| 20 ca 0d 10 40 4d 20 20 | 20 20 c9 20 22 4c 22 20 | ...@M | . "L" |
|000035b0| 3a 20 6d 65 6e 75 5f 62 | 6c 6f 63 6b 25 21 28 6d |: menu_b|lock%!(m|
|000035c0| 65 6e 75 5f 62 6c 6f 63 | 6b 5f 70 6f 69 6e 74 65 |enu_bloc|k_pointe|
|000035d0| 72 25 20 2b 20 34 29 20 | 3d 20 6c 69 6e 6b 73 25 |r% + 4) |= links%|
|000035e0| 28 6c 69 6e 6b 5f 70 6f | 69 6e 74 65 72 25 29 0d |(link_po|inter%).|
|000035f0| 10 4a 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.J% | |
|00003600| 20 20 6c 69 6e 6b 5f 70 | 6f 69 6e 74 65 72 25 20 | link_p|ointer% |
|00003610| 2b 3d 20 31 0d 10 54 3a | 20 20 20 20 c9 20 22 4e |+= 1..T:| . "N|
|00003620| 22 20 3a 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 |" : menu|_block%!|
|00003630| 28 6d 65 6e 75 5f 62 6c | 6f 63 6b 5f 70 6f 69 6e |(menu_bl|ock_poin|
|00003640| 74 65 72 25 20 2b 20 34 | 29 20 3d 20 2d 31 0d 10 |ter% + 4|) = -1..|
|00003650| 5e 07 20 20 7f 0d 10 68 | 67 20 20 20 20 6d 65 73 |^. ...h|g mes|
|00003660| 73 61 67 65 24 20 3d 20 | 22 45 72 72 6f 72 20 69 |sage$ = |"Error i|
|00003670| 6e 20 64 65 74 61 69 6c | 20 74 77 6f 20 61 74 20 |n detail| two at |
|00003680| 70 6f 73 69 74 69 6f 6e | 20 22 2b 20 c3 28 70 6f |position| "+ .(po|
|00003690| 69 6e 74 65 72 25 29 20 | 2b 20 22 2e 20 20 49 6e |inter%) |+ ". In|
|000036a0| 63 6f 72 72 65 63 74 20 | 6d 65 6e 75 20 64 65 74 |correct |menu det|
|000036b0| 61 69 6c 20 73 74 72 69 | 6e 67 2e 22 0d 10 72 2a |ail stri|ng."..r*|
|000036c0| 20 20 20 20 f2 65 72 72 | 6f 72 28 22 4d 65 6e 75 | .err|or("Menu|
|000036d0| 20 44 65 66 69 6e 65 22 | 2c 20 31 2c 20 6d 65 73 | Define"|, 1, mes|
|000036e0| 73 61 67 65 24 29 0d 10 | 7c 07 20 20 cb 0d 10 86 |sage$)..||. ....|
|000036f0| 07 20 20 3a 0d 10 90 16 | 20 20 c8 8e 20 64 65 74 |. :....| .. det|
|00003700| 61 69 6c 5f 6f 6e 65 24 | 20 ca 0d 10 9a 41 20 20 |ail_one$| ....A |
|00003710| 20 20 c9 20 22 4e 22 20 | 3a 20 6d 65 6e 75 5f 62 | . "N" |: menu_b|
|00003720| 6c 6f 63 6b 25 21 28 6d | 65 6e 75 5f 62 6c 6f 63 |lock%!(m|enu_bloc|
|00003730| 6b 5f 70 6f 69 6e 74 65 | 72 25 20 2b 20 38 29 20 |k_pointe|r% + 8) |
|00003740| 3d 20 26 30 37 30 30 30 | 30 30 31 0d 10 a4 55 20 |= &07000|001...U |
|00003750| 20 20 20 c9 20 22 47 22 | 20 3a 20 6d 65 6e 75 5f | . "G"| : menu_|
|00003760| 62 6c 6f 63 6b 25 21 28 | 6d 65 6e 75 5f 62 6c 6f |block%!(|menu_blo|
|00003770| 63 6b 5f 70 6f 69 6e 74 | 65 72 25 20 2b 20 38 29 |ck_point|er% + 8)|
|00003780| 20 3d 20 25 31 31 31 31 | 30 31 30 30 30 30 30 31 | = %1111|01000001|
|00003790| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 31 |00000000|00000001|
|000037a0| 0d 10 ae 41 20 20 20 20 | c9 20 22 54 22 20 3a 20 |...A |. "T" : |
|000037b0| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 21 28 6d 65 6e |menu_blo|ck%!(men|
|000037c0| 75 5f 62 6c 6f 63 6b 5f | 70 6f 69 6e 74 65 72 25 |u_block_|pointer%|
|000037d0| 20 2b 20 38 29 20 3d 20 | 26 30 37 30 30 30 30 30 | + 8) = |&0700000|
|000037e0| 31 0d 10 b8 3a 20 20 20 | 20 20 20 20 20 20 20 20 |1...: | |
|000037f0| 20 20 20 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 | menu|_block%!|
|00003800| 6d 65 6e 75 5f 62 6c 6f | 63 6b 5f 70 6f 69 6e 74 |menu_blo|ck_point|
|00003810| 65 72 25 20 3d 20 25 30 | 30 30 31 0d 10 c2 55 20 |er% = %0|001...U |
|00003820| 20 20 20 c9 20 22 4f 22 | 20 3a 20 6d 65 6e 75 5f | . "O"| : menu_|
|00003830| 62 6c 6f 63 6b 25 21 28 | 6d 65 6e 75 5f 62 6c 6f |block%!(|menu_blo|
|00003840| 63 6b 5f 70 6f 69 6e 74 | 65 72 25 20 2b 20 38 29 |ck_point|er% + 8)|
|00003850| 20 3d 20 25 31 31 31 31 | 30 31 30 30 30 30 30 31 | = %1111|01000001|
|00003860| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 31 |00000000|00000001|
|00003870| 0d 10 cc 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...: | |
|00003880| 20 20 20 6d 65 6e 75 5f | 62 6c 6f 63 6b 25 21 6d | menu_|block%!m|
|00003890| 65 6e 75 5f 62 6c 6f 63 | 6b 5f 70 6f 69 6e 74 65 |enu_bloc|k_pointe|
|000038a0| 72 25 20 3d 20 25 30 30 | 30 31 0d 10 d6 41 20 20 |r% = %00|01...A |
|000038b0| 20 20 c9 20 22 6e 22 20 | 3a 20 6d 65 6e 75 5f 62 | . "n" |: menu_b|
|000038c0| 6c 6f 63 6b 25 21 28 6d | 65 6e 75 5f 62 6c 6f 63 |lock%!(m|enu_bloc|
|000038d0| 6b 5f 70 6f 69 6e 74 65 | 72 25 20 2b 20 38 29 20 |k_pointe|r% + 8) |
|000038e0| 3d 20 26 30 37 30 30 30 | 30 30 31 0d 10 e0 3a 20 |= &07000|001...: |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 65 | | me|
|00003900| 6e 75 5f 62 6c 6f 63 6b | 25 21 6d 65 6e 75 5f 62 |nu_block|%!menu_b|
|00003910| 6c 6f 63 6b 5f 70 6f 69 | 6e 74 65 72 25 20 3d 20 |lock_poi|nter% = |
|00003920| 25 30 30 31 30 0d 10 ea | 26 20 20 20 20 20 20 20 |%0010...|& |
|00003930| 20 20 20 20 20 20 20 20 | 65 78 74 72 61 5f 68 65 | |extra_he|
|00003940| 69 67 68 74 25 20 2b 3d | 20 32 34 0d 10 f4 55 20 |ight% +=| 24...U |
|00003950| 20 20 20 c9 20 22 67 22 | 20 3a 20 6d 65 6e 75 5f | . "g"| : menu_|
|00003960| 62 6c 6f 63 6b 25 21 28 | 6d 65 6e 75 5f 62 6c 6f |block%!(|menu_blo|
|00003970| 63 6b 5f 70 6f 69 6e 74 | 65 72 25 20 2b 20 38 29 |ck_point|er% + 8)|
|00003980| 20 3d 20 25 31 31 31 31 | 30 31 30 30 30 30 30 31 | = %1111|01000001|
|00003990| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 31 |00000000|00000001|
|000039a0| 0d 10 fe 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |...: | |
|000039b0| 20 20 20 6d 65 6e 75 5f | 62 6c 6f 63 6b 25 21 6d | menu_|block%!m|
|000039c0| 65 6e 75 5f 62 6c 6f 63 | 6b 5f 70 6f 69 6e 74 65 |enu_bloc|k_pointe|
|000039d0| 72 25 20 3d 20 25 30 30 | 31 30 0d 11 08 26 20 20 |r% = %00|10...& |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 78 74 | | ext|
|000039f0| 72 61 5f 68 65 69 67 68 | 74 25 20 2b 3d 20 32 34 |ra_heigh|t% += 24|
|00003a00| 0d 11 12 41 20 20 20 20 | c9 20 22 74 22 20 3a 20 |...A |. "t" : |
|00003a10| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 21 28 6d 65 6e |menu_blo|ck%!(men|
|00003a20| 75 5f 62 6c 6f 63 6b 5f | 70 6f 69 6e 74 65 72 25 |u_block_|pointer%|
|00003a30| 20 2b 20 38 29 20 3d 20 | 26 30 37 30 30 30 30 30 | + 8) = |&0700000|
|00003a40| 31 0d 11 1c 3a 20 20 20 | 20 20 20 20 20 20 20 20 |1...: | |
|00003a50| 20 20 20 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 | menu|_block%!|
|00003a60| 6d 65 6e 75 5f 62 6c 6f | 63 6b 5f 70 6f 69 6e 74 |menu_blo|ck_point|
|00003a70| 65 72 25 20 3d 20 25 30 | 30 31 31 0d 11 26 26 20 |er% = %0|011..&& |
|00003a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 65 78 | | ex|
|00003a90| 74 72 61 5f 68 65 69 67 | 68 74 25 20 2b 3d 20 32 |tra_heig|ht% += 2|
|00003aa0| 34 0d 11 30 55 20 20 20 | 20 c9 20 22 6f 22 20 3a |4..0U | . "o" :|
|00003ab0| 20 6d 65 6e 75 5f 62 6c | 6f 63 6b 25 21 28 6d 65 | menu_bl|ock%!(me|
|00003ac0| 6e 75 5f 62 6c 6f 63 6b | 5f 70 6f 69 6e 74 65 72 |nu_block|_pointer|
|00003ad0| 25 20 2b 20 38 29 20 3d | 20 25 31 31 31 31 30 31 |% + 8) =| %111101|
|00003ae0| 30 30 30 30 30 31 30 30 | 30 30 30 30 30 30 30 30 |00000100|00000000|
|00003af0| 30 30 30 30 30 31 0d 11 | 3a 3a 20 20 20 20 20 20 |000001..|:: |
|00003b00| 20 20 20 20 20 20 20 20 | 20 6d 65 6e 75 5f 62 6c | | menu_bl|
|00003b10| 6f 63 6b 25 21 6d 65 6e | 75 5f 62 6c 6f 63 6b 5f |ock%!men|u_block_|
|00003b20| 70 6f 69 6e 74 65 72 25 | 20 3d 20 25 30 30 31 31 |pointer%| = %0011|
|00003b30| 0d 11 44 26 20 20 20 20 | 20 20 20 20 20 20 20 20 |..D& | |
|00003b40| 20 20 20 65 78 74 72 61 | 5f 68 65 69 67 68 74 25 | extra|_height%|
|00003b50| 20 2b 3d 20 32 34 0d 11 | 4e 07 20 20 7f 0d 11 58 | += 24..|N. ...X|
|00003b60| 67 20 20 20 20 6d 65 73 | 73 61 67 65 24 20 3d 20 |g mes|sage$ = |
|00003b70| 22 45 72 72 6f 72 20 69 | 6e 20 64 65 74 61 69 6c |"Error i|n detail|
|00003b80| 20 6f 6e 65 20 61 74 20 | 70 6f 73 69 74 69 6f 6e | one at |position|
|00003b90| 20 22 2b 20 c3 28 70 6f | 69 6e 74 65 72 25 29 20 | "+ .(po|inter%) |
|00003ba0| 2b 20 22 2e 20 20 49 6e | 63 6f 72 72 65 63 74 20 |+ ". In|correct |
|00003bb0| 6d 65 6e 75 20 64 65 74 | 61 69 6c 20 73 74 72 69 |menu det|ail stri|
|00003bc0| 6e 67 2e 22 0d 11 62 2a | 20 20 20 20 f2 65 72 72 |ng."..b*| .err|
|00003bd0| 6f 72 28 22 4d 65 6e 75 | 20 44 65 66 69 6e 65 22 |or("Menu| Define"|
|00003be0| 2c 20 31 2c 20 6d 65 73 | 73 61 67 65 24 29 0d 11 |, 1, mes|sage$)..|
|00003bf0| 6c 07 20 20 cb 0d 11 76 | 07 20 20 3a 0d 11 80 3c |l. ...v|. :...<|
|00003c00| 20 20 24 28 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 2b | $(menu|_block%+|
|00003c10| 28 6d 65 6e 75 5f 62 6c | 6f 63 6b 5f 70 6f 69 6e |(menu_bl|ock_poin|
|00003c20| 74 65 72 25 20 2b 20 31 | 32 29 29 20 3d 20 69 63 |ter% + 1|2)) = ic|
|00003c30| 6f 6e 5f 74 65 78 74 24 | 0d 11 8a 27 20 20 e7 20 |on_text$|...' . |
|00003c40| a9 28 69 63 6f 6e 5f 74 | 65 78 74 24 29 20 3e 20 |.(icon_t|ext$) > |
|00003c50| 6c 6f 6e 67 65 73 74 5f | 69 74 65 6d 25 20 8c 0d |longest_|item% ..|
|00003c60| 11 94 26 20 20 20 20 20 | 6c 6f 6e 67 65 73 74 5f |..& |longest_|
|00003c70| 69 74 65 6d 25 20 3d 20 | a9 28 69 63 6f 6e 5f 74 |item% = |.(icon_t|
|00003c80| 65 78 74 24 29 0d 11 9e | 07 20 20 cd 0d 11 a8 07 |ext$)...|. .....|
|00003c90| 20 20 3a 0d 11 b2 1b 20 | 20 f4 20 2a 2a 20 4e 65 | :.... | . ** Ne|
|00003ca0| 78 74 20 70 6c 65 61 73 | 65 21 21 20 2a 2a 0d 11 |xt pleas|e!! **..|
|00003cb0| bc 1f 20 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 5f 70 |.. menu|_block_p|
|00003cc0| 6f 69 6e 74 65 72 25 20 | 2b 3d 20 32 34 0d 11 c6 |ointer% |+= 24...|
|00003cd0| 18 fd 20 70 6f 69 6e 74 | 65 72 25 20 3e 20 6c 65 |.. point|er% > le|
|00003ce0| 6e 67 74 68 25 0d 11 d0 | 05 3a 0d 11 da 26 f4 20 |ngth%...|.:...&. |
|00003cf0| 2a 2a 20 49 6e 64 69 63 | 61 74 65 20 6c 61 73 74 |** Indic|ate last|
|00003d00| 20 69 74 65 6d 20 72 65 | 61 63 68 65 64 20 2a 2a | item re|ached **|
|00003d10| 0d 11 e4 49 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 |...Imenu|_block%!|
|00003d20| 69 74 65 6d 5f 73 74 61 | 72 74 5f 6d 61 72 6b 65 |item_sta|rt_marke|
|00003d30| 72 25 20 3d 20 31 32 38 | 20 2b 20 6d 65 6e 75 5f |r% = 128| + menu_|
|00003d40| 62 6c 6f 63 6b 25 21 69 | 74 65 6d 5f 73 74 61 72 |block%!i|tem_star|
|00003d50| 74 5f 6d 61 72 6b 65 72 | 25 0d 11 ee 05 3a 0d 11 |t_marker|%....:..|
|00003d60| f8 1e f4 20 2a 2a 20 53 | 65 74 20 74 68 65 20 6d |... ** S|et the m|
|00003d70| 65 6e 75 20 77 69 64 74 | 68 20 2a 2a 0d 12 02 29 |enu widt|h **...)|
|00003d80| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 21 31 36 20 3d |menu_blo|ck%!16 =|
|00003d90| 20 28 31 38 20 2a 20 6c | 6f 6e 67 65 73 74 5f 69 | (18 * l|ongest_i|
|00003da0| 74 65 6d 25 29 0d 12 0c | 05 3a 0d 12 16 1f f4 20 |tem%)...|.:..... |
|00003db0| 2a 2a 20 53 65 74 20 74 | 68 65 20 6d 65 6e 75 20 |** Set t|he menu |
|00003dc0| 68 65 69 67 68 74 20 2a | 2a 0d 12 20 3f 6d 65 6e |height *|*.. ?men|
|00003dd0| 75 5f 68 65 69 67 68 74 | 25 20 3d 20 28 6e 75 6d |u_height|% = (num|
|00003de0| 62 65 72 5f 6f 66 5f 69 | 74 65 6d 73 25 20 2a 20 |ber_of_i|tems% * |
|00003df0| 34 34 29 20 2b 20 39 36 | 20 2b 20 65 78 74 72 61 |44) + 96| + extra|
|00003e00| 5f 68 65 69 67 68 74 25 | 0d 12 2a 05 e1 0d 12 34 |_height%|..*....4|
|00003e10| 05 3a 0d 12 3e 35 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..>5. |********|
|00003e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e40| 2a 2a 2a 2a 2a 2a 2a 0d | 12 48 35 f4 20 2a 2a 20 |*******.|.H5. ** |
|00003e50| 52 65 61 64 20 64 65 74 | 61 69 6c 20 50 72 6f 63 |Read det|ail Proc|
|00003e60| 65 64 75 72 65 20 56 31 | 2e 30 31 20 42 79 20 53 |edure V1|.01 By S|
|00003e70| 69 6d 6f 6e 20 49 6e 6e | 73 20 2a 2a 0d 12 52 35 |imon Inn|s **..R5|
|00003e80| f4 20 2a 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |. ** | |
|00003e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a | | *|
|00003eb0| 2a 0d 12 5c 35 f4 20 2a | 2a 20 4c 61 73 74 20 75 |*..\5. *|* Last u|
|00003ec0| 70 64 61 74 65 20 3a 20 | 32 39 2f 31 32 2f 39 32 |pdate : |29/12/92|
|00003ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ee0| 20 20 20 20 2a 2a 0d 12 | 66 35 f4 20 2a 2a 2a 2a | **..|f5. ****|
|00003ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 12 70 44 dd |********|***..pD.|
|00003f20| 20 f2 72 65 61 64 5f 6d | 65 6e 75 5f 64 65 74 61 | .read_m|enu_deta|
|00003f30| 69 6c 28 6d 65 6e 75 5f | 73 74 72 69 6e 67 24 2c |il(menu_|string$,|
|00003f40| 20 f8 20 70 6f 69 6e 74 | 65 72 25 2c 20 f8 20 63 | . point|er%, . c|
|00003f50| 75 72 72 65 6e 74 5f 64 | 65 74 61 69 6c 24 29 0d |urrent_d|etail$).|
|00003f60| 12 7a 05 3a 0d 12 84 18 | 63 75 72 72 65 6e 74 5f |.z.:....|current_|
|00003f70| 64 65 74 61 69 6c 24 20 | 3d 20 22 22 0d 12 8e 1b |detail$ |= ""....|
|00003f80| 63 75 72 72 65 6e 74 5f | 63 68 61 72 61 63 74 65 |current_|characte|
|00003f90| 72 24 20 3d 20 22 22 0d | 12 98 18 63 68 61 72 61 |r$ = "".|...chara|
|00003fa0| 63 74 65 72 73 5f 72 65 | 61 64 25 20 3d 20 30 0d |cters_re|ad% = 0.|
|00003fb0| 12 a2 05 3a 0d 12 ac 05 | f5 0d 12 b6 1b 20 20 63 |...:....|..... c|
|00003fc0| 68 61 72 61 63 74 65 72 | 73 5f 72 65 61 64 25 20 |haracter|s_read% |
|00003fd0| 2b 3d 20 31 0d 12 c0 36 | 20 20 63 75 72 72 65 6e |+= 1...6| curren|
|00003fe0| 74 5f 63 68 61 72 61 63 | 74 65 72 24 20 3d 20 c1 |t_charac|ter$ = .|
|00003ff0| 6d 65 6e 75 5f 73 74 72 | 69 6e 67 24 2c 20 70 6f |menu_str|ing$, po|
|00004000| 69 6e 74 65 72 25 2c 20 | 31 29 0d 12 ca 5a 20 20 |inter%, |1)...Z |
|00004010| e7 20 63 75 72 72 65 6e | 74 5f 63 68 61 72 61 63 |. curren|t_charac|
|00004020| 74 65 72 24 20 3c 3e 20 | 22 a4 22 20 8c 20 63 75 |ter$ <> |"." . cu|
|00004030| 72 72 65 6e 74 5f 64 65 | 74 61 69 6c 24 20 3d 20 |rrent_de|tail$ = |
|00004040| 63 75 72 72 65 6e 74 5f | 64 65 74 61 69 6c 24 20 |current_|detail$ |
|00004050| 2b 20 63 75 72 72 65 6e | 74 5f 63 68 61 72 61 63 |+ curren|t_charac|
|00004060| 74 65 72 24 0d 12 d4 13 | 20 20 70 6f 69 6e 74 65 |ter$....| pointe|
|00004070| 72 25 20 2b 3d 20 31 0d | 12 de 26 20 20 e7 20 70 |r% += 1.|..& . p|
|00004080| 6f 69 6e 74 65 72 25 20 | 3e 20 a9 28 6d 65 6e 75 |ointer% |> .(menu|
|00004090| 5f 73 74 72 69 6e 67 24 | 29 2b 31 20 8c 0d 12 e8 |_string$|)+1 ....|
|000040a0| 57 20 20 20 20 20 f2 65 | 72 72 6f 72 28 22 4d 65 |W .e|rror("Me|
|000040b0| 6e 75 20 44 65 66 69 6e | 65 22 2c 20 31 2c 20 22 |nu Defin|e", 1, "|
|000040c0| 4e 6f 74 20 65 6e 6f 75 | 67 68 20 64 65 74 61 69 |Not enou|gh detai|
|000040d0| 6c 73 2e 20 20 49 6e 63 | 6f 72 72 65 63 74 20 6d |ls. Inc|orrect m|
|000040e0| 65 6e 75 20 64 65 74 61 | 69 6c 20 73 74 72 69 6e |enu deta|il strin|
|000040f0| 67 2e 22 29 0d 12 f2 07 | 20 20 cd 0d 12 fc 1e fd |g.")....| ......|
|00004100| 20 63 75 72 72 65 6e 74 | 5f 63 68 61 72 61 63 74 | current|_charact|
|00004110| 65 72 24 20 3d 20 22 a4 | 22 0d 13 06 05 3a 0d 13 |er$ = ".|"....:..|
|00004120| 10 24 f4 20 2a 2a 20 43 | 68 65 63 6b 20 66 6f 72 |.$. ** C|heck for|
|00004130| 20 69 6e 63 6f 72 72 65 | 63 74 20 72 65 61 64 20 | incorre|ct read |
|00004140| 2a 2a 0d 13 1a 1c e7 20 | 63 68 61 72 61 63 74 65 |**..... |characte|
|00004150| 72 73 5f 72 65 61 64 25 | 20 3d 20 31 20 8c 0d 13 |rs_read%| = 1 ...|
|00004160| 24 54 20 20 20 f2 65 72 | 72 6f 72 28 22 4d 65 6e |$T .er|ror("Men|
|00004170| 75 20 44 65 66 69 6e 65 | 22 2c 20 31 2c 20 22 4e |u Define|", 1, "N|
|00004180| 75 6c 6c 20 64 65 74 61 | 69 6c 20 66 6f 75 6e 64 |ull deta|il found|
|00004190| 2e 20 20 49 6e 63 6f 72 | 72 65 63 74 20 6d 65 6e |. Incor|rect men|
|000041a0| 75 20 64 65 74 61 69 6c | 20 73 74 72 69 6e 67 2e |u detail| string.|
|000041b0| 22 29 0d 13 2e 05 cd 0d | 13 38 05 3a 0d 13 42 05 |")......|.8.:..B.|
|000041c0| e1 0d 13 4c 05 3a 0d 13 | 56 33 f4 20 2a 2a 2a 2a |...L.:..|V3. ****|
|000041d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000041e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000041f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 13 60 33 f4 20 2a |********|*..`3. *|
|00004200| 2a 20 46 69 6c 6c 20 69 | 6e 66 6f 20 50 72 6f 63 |* Fill i|nfo Proc|
|00004210| 65 64 75 72 65 20 56 31 | 2e 30 31 20 42 79 20 53 |edure V1|.01 By S|
|00004220| 69 6d 6f 6e 20 49 6e 6e | 73 20 2a 2a 0d 13 6a 33 |imon Inn|s **..j3|
|00004230| f4 20 2a 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |. ** | |
|00004240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2a 0d | | **.|
|00004260| 13 74 33 f4 20 2a 2a 20 | 4c 61 73 74 20 75 70 64 |.t3. ** |Last upd|
|00004270| 61 74 65 20 3a 20 32 39 | 2f 31 32 2f 39 32 20 20 |ate : 29|/12/92 |
|00004280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004290| 2a 2a 0d 13 7e 33 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |**..~3. |********|
|000042a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042c0| 2a 2a 2a 2a 2a 0d 13 88 | 56 dd 20 f2 66 69 6c 6c |*****...|V. .fill|
|000042d0| 5f 69 6e 66 6f 28 69 6e | 66 6f 5f 68 61 6e 64 6c |_info(in|fo_handl|
|000042e0| 65 25 2c 20 6e 61 6d 65 | 24 2c 20 70 75 72 70 6f |e%, name|$, purpo|
|000042f0| 73 65 24 2c 20 61 75 74 | 68 6f 72 24 2c 20 76 65 |se$, aut|hor$, ve|
|00004300| 72 73 69 6f 6e 24 2c 20 | 6d 69 73 63 5f 74 69 74 |rsion$, |misc_tit|
|00004310| 6c 65 24 2c 20 6d 69 73 | 63 24 29 0d 13 92 27 f2 |le$, mis|c$)...'.|
|00004320| 66 69 6c 6c 5f 69 63 6f | 6e 28 69 6e 66 6f 5f 68 |fill_ico|n(info_h|
|00004330| 61 6e 64 6c 65 25 2c 20 | 30 36 2c 20 6e 61 6d 65 |andle%, |06, name|
|00004340| 24 29 0d 13 9c 2a f2 66 | 69 6c 6c 5f 69 63 6f 6e |$)...*.f|ill_icon|
|00004350| 28 69 6e 66 6f 5f 68 61 | 6e 64 6c 65 25 2c 20 30 |(info_ha|ndle%, 0|
|00004360| 37 2c 20 70 75 72 70 6f | 73 65 24 29 0d 13 a6 29 |7, purpo|se$)...)|
|00004370| f2 66 69 6c 6c 5f 69 63 | 6f 6e 28 69 6e 66 6f 5f |.fill_ic|on(info_|
|00004380| 68 61 6e 64 6c 65 25 2c | 20 30 38 2c 20 61 75 74 |handle%,| 08, aut|
|00004390| 68 6f 72 24 29 0d 13 b0 | 2a f2 66 69 6c 6c 5f 69 |hor$)...|*.fill_i|
|000043a0| 63 6f 6e 28 69 6e 66 6f | 5f 68 61 6e 64 6c 65 25 |con(info|_handle%|
|000043b0| 2c 20 30 39 2c 20 76 65 | 72 73 69 6f 6e 24 29 0d |, 09, ve|rsion$).|
|000043c0| 13 ba 2d f2 66 69 6c 6c | 5f 69 63 6f 6e 28 69 6e |..-.fill|_icon(in|
|000043d0| 66 6f 5f 68 61 6e 64 6c | 65 25 2c 20 31 31 2c 20 |fo_handl|e%, 11, |
|000043e0| 6d 69 73 63 5f 74 69 74 | 6c 65 24 29 0d 13 c4 27 |misc_tit|le$)...'|
|000043f0| f2 66 69 6c 6c 5f 69 63 | 6f 6e 28 69 6e 66 6f 5f |.fill_ic|on(info_|
|00004400| 68 61 6e 64 6c 65 25 2c | 20 31 32 2c 20 6d 69 73 |handle%,| 12, mis|
|00004410| 63 24 29 0d 13 ce 05 e1 | 0d 13 d8 05 3a 0d 13 e2 |c$).....|....:...|
|00004420| 33 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |3. *****|********|
|00004430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004450| 0d 13 ec 33 f4 20 2a 2a | 20 46 69 6c 6c 20 69 63 |...3. **| Fill ic|
|00004460| 6f 6e 20 50 72 6f 63 65 | 64 75 72 65 20 56 31 2e |on Proce|dure V1.|
|00004470| 30 31 20 42 79 20 53 69 | 6d 6f 6e 20 49 6e 6e 73 |01 By Si|mon Inns|
|00004480| 20 2a 2a 0d 13 f6 33 f4 | 20 2a 2a 20 20 20 20 20 | **...3.| ** |
|00004490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044b0| 20 20 20 20 2a 2a 0d 14 | 00 33 f4 20 2a 2a 20 4c | **..|.3. ** L|
|000044c0| 61 73 74 20 75 70 64 61 | 74 65 20 3a 20 31 30 2f |ast upda|te : 10/|
|000044d0| 31 32 2f 39 32 20 20 20 | 20 20 20 20 20 20 20 20 |12/92 | |
|000044e0| 20 20 20 20 20 20 20 2a | 2a 0d 14 0a 33 f4 20 2a | *|*...3. *|
|000044f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 14 14 2c |********|****...,|
|00004520| dd 20 f2 66 69 6c 6c 5f | 69 63 6f 6e 28 68 61 6e |. .fill_|icon(han|
|00004530| 64 6c 65 6e 6f 25 2c 20 | 69 63 6f 6e 5f 6e 6f 25 |dleno%, |icon_no%|
|00004540| 2c 20 74 65 78 74 24 29 | 0d 14 1e 05 3a 0d 14 28 |, text$)|....:..(|
|00004550| 3c f4 20 2a 2a 20 46 69 | 6e 64 20 74 68 65 20 69 |<. ** Fi|nd the i|
|00004560| 63 6f 6e 27 73 20 69 6e | 64 69 72 65 63 74 65 64 |con's in|directed|
|00004570| 20 64 61 74 61 20 61 6e | 64 20 63 68 61 6e 67 65 | data an|d change|
|00004580| 20 69 74 2e 2e 2e 20 2a | 2a 0d 14 32 17 21 62 6c | it... *|*..2.!bl|
|00004590| 6f 63 6b 25 20 3d 20 68 | 61 6e 64 6c 65 6e 6f 25 |ock% = h|andleno%|
|000045a0| 0d 14 3c 17 62 6c 6f 63 | 6b 25 21 34 20 3d 20 69 |..<.bloc|k%!4 = i|
|000045b0| 63 6f 6e 5f 6e 6f 25 0d | 14 46 22 c8 99 20 22 57 |con_no%.|.F".. "W|
|000045c0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000045d0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 14 50 05 3a 0d 14 |",,block|%..P.:..|
|000045e0| 5a 17 21 62 6c 6f 63 6b | 25 20 3d 20 68 61 6e 64 |Z.!block|% = hand|
|000045f0| 6c 65 6e 6f 25 0d 14 64 | 17 62 6c 6f 63 6b 25 21 |leno%..d|.block%!|
|00004600| 34 20 3d 20 69 63 6f 6e | 5f 6e 6f 25 0d 14 6e 11 |4 = icon|_no%..n.|
|00004610| 62 6c 6f 63 6b 25 21 38 | 20 20 3d 20 30 0d 14 78 |block%!8| = 0..x|
|00004620| 11 62 6c 6f 63 6b 25 21 | 31 32 20 3d 20 30 0d 14 |.block%!|12 = 0..|
|00004630| 82 18 61 64 64 72 65 73 | 73 25 20 3d 20 62 6c 6f |..addres|s% = blo|
|00004640| 63 6b 25 21 32 38 0d 14 | 8c 15 24 61 64 64 72 65 |ck%!28..|..$addre|
|00004650| 73 73 25 20 3d 20 74 65 | 78 74 24 0d 14 96 05 3a |ss% = te|xt$....:|
|00004660| 0d 14 a0 2f f4 20 2a 2a | 20 46 6f 72 63 65 20 74 |.../. **| Force t|
|00004670| 68 65 20 77 69 6e 64 6f | 77 20 74 6f 20 75 70 64 |he windo|w to upd|
|00004680| 61 74 65 20 69 74 73 20 | 69 63 6f 6e 20 2a 2a 0d |ate its |icon **.|
|00004690| 14 aa 23 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |..#.. "W|imp_SetI|
|000046a0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 20 62 6c 6f 63 |conState|",, bloc|
|000046b0| 6b 25 0d 14 b4 05 e1 0d | 14 be 05 3a 0d 14 c8 36 |k%......|...:...6|
|000046c0| dd 20 f2 77 72 69 74 65 | 5f 69 63 6f 6e 5f 73 70 |. .write|_icon_sp|
|000046d0| 72 69 74 65 28 68 61 6e | 64 6c 65 25 2c 20 69 63 |rite(han|dle%, ic|
|000046e0| 6f 6e 25 2c 20 73 70 72 | 69 74 65 5f 6e 61 6d 65 |on%, spr|ite_name|
|000046f0| 24 29 0d 14 d2 2d f4 20 | 2a 2a 20 4e 6f 74 65 3a |$)...-. |** Note:|
|00004700| 20 74 68 65 20 69 63 6f | 6e 20 6d 75 73 74 20 62 | the ico|n must b|
|00004710| 65 20 69 6e 64 69 72 65 | 63 74 65 64 20 2a 2a 0d |e indire|cted **.|
|00004720| 14 dc 05 3a 0d 14 e6 15 | 21 62 6c 6f 63 6b 25 20 |...:....|!block% |
|00004730| 3d 20 68 61 6e 64 6c 65 | 25 0d 14 f0 14 62 6c 6f |= handle|%....blo|
|00004740| 63 6b 25 21 34 20 3d 20 | 69 63 6f 6e 25 0d 14 fa |ck%!4 = |icon%...|
|00004750| 23 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |#.. "Wim|p_GetIco|
|00004760| 6e 53 74 61 74 65 22 2c | 2c 20 62 6c 6f 63 6b 25 |nState",|, block%|
|00004770| 0d 15 04 19 73 70 72 69 | 74 65 5f 6e 25 20 3d 20 |....spri|te_n% = |
|00004780| 62 6c 6f 63 6b 25 21 32 | 38 0d 15 0e 05 3a 0d 15 |block%!2|8....:..|
|00004790| 18 24 f4 20 2a 2a 20 52 | 65 2d 77 72 69 74 65 20 |.$. ** R|e-write |
|000047a0| 74 68 65 20 69 63 6f 6e | 27 73 20 64 61 74 61 20 |the icon|'s data |
|000047b0| 2a 2a 0d 15 22 1d 24 73 | 70 72 69 74 65 5f 6e 25 |**..".$s|prite_n%|
|000047c0| 20 3d 20 73 70 72 69 74 | 65 5f 6e 61 6d 65 24 0d | = sprit|e_name$.|
|000047d0| 15 2c 17 62 6c 6f 63 6b | 25 21 30 20 20 3d 20 68 |.,.block|%!0 = h|
|000047e0| 61 6e 64 6c 65 25 0d 15 | 36 15 62 6c 6f 63 6b 25 |andle%..|6.block%|
|000047f0| 21 34 20 20 3d 20 69 63 | 6f 6e 25 0d 15 40 11 62 |!4 = ic|on%..@.b|
|00004800| 6c 6f 63 6b 25 21 38 20 | 20 3d 20 30 0d 15 4a 11 |lock%!8 | = 0..J.|
|00004810| 62 6c 6f 63 6b 25 21 31 | 32 20 3d 20 30 0d 15 54 |block%!1|2 = 0..T|
|00004820| 05 3a 0d 15 5e 2f f4 20 | 2a 2a 20 46 6f 72 63 65 |.:..^/. |** Force|
|00004830| 20 74 68 65 20 77 69 6e | 64 6f 77 20 74 6f 20 75 | the win|dow to u|
|00004840| 70 64 61 74 65 20 69 74 | 73 20 69 63 6f 6e 20 2a |pdate it|s icon *|
|00004850| 2a 0d 15 68 23 c8 99 20 | 22 57 69 6d 70 5f 53 65 |*..h#.. |"Wimp_Se|
|00004860| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 20 62 6c |tIconSta|te",, bl|
|00004870| 6f 63 6b 25 0d 15 72 05 | e1 0d 15 7c 05 3a 0d 15 |ock%..r.|...|.:..|
|00004880| 86 35 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.5. ****|********|
|00004890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000048b0| 2a 2a 2a 0d 15 90 35 f4 | 20 2a 2a 20 4f 70 65 6e |***...5.| ** Open|
|000048c0| 20 57 69 6e 64 6f 77 20 | 50 72 6f 63 65 64 75 72 | Window |Procedur|
|000048d0| 65 20 56 31 2e 30 31 20 | 42 79 20 53 69 6d 6f 6e |e V1.01 |By Simon|
|000048e0| 20 49 6e 6e 73 20 2a 2a | 0d 15 9a 35 f4 20 2a 2a | Inns **|...5. **|
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004910| 20 20 20 20 20 20 20 20 | 20 20 20 2a 2a 0d 15 a4 | | **...|
|00004920| 35 f4 20 2a 2a 20 4c 61 | 73 74 20 75 70 64 61 74 |5. ** La|st updat|
|00004930| 65 20 3a 20 31 30 2f 31 | 32 2f 39 32 20 20 20 20 |e : 10/1|2/92 |
|00004940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004950| 2a 2a 0d 15 ae 35 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |**...5. |********|
|00004960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004980| 2a 2a 2a 2a 2a 2a 2a 0d | 15 b8 23 dd 20 f2 70 72 |*******.|..#. .pr|
|00004990| 6f 63 65 73 73 5f 6f 70 | 65 6e 5f 77 69 6e 64 6f |ocess_op|en_windo|
|000049a0| 77 28 68 61 6e 64 6c 65 | 25 29 0d 15 c2 05 3a 0d |w(handle|%)....:.|
|000049b0| 15 cc 44 e7 20 68 61 6e | 64 6c 65 25 20 3d 20 68 |..D. han|dle% = h|
|000049c0| 61 6e 64 6c 65 25 28 4d | 61 69 6e 29 20 8c 20 f2 |andle%(M|ain) . .|
|000049d0| 70 72 6f 63 65 73 73 5f | 63 6c 6f 73 65 5f 77 69 |process_|close_wi|
|000049e0| 6e 64 6f 77 28 68 61 6e | 64 6c 65 25 28 53 61 76 |ndow(han|dle%(Sav|
|000049f0| 65 29 29 0d 15 d6 16 62 | 6c 6f 63 6b 25 21 30 20 |e))....b|lock%!0 |
|00004a00| 3d 20 68 61 6e 64 6c 65 | 25 0d 15 e0 24 c8 99 20 |= handle|%...$.. |
|00004a10| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00004a20| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 0d 15 ea |tate",,b|lock%...|
|00004a30| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00004a40| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 0d 15 f4 |ndow",,b|lock%...|
|00004a50| 05 e1 0d 15 fe 05 3a 0d | 16 08 36 f4 20 2a 2a 2a |......:.|..6. ***|
|00004a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 16 12 |********|*****...|
|00004a90| 36 f4 20 2a 2a 20 43 6c | 6f 73 65 20 57 69 6e 64 |6. ** Cl|ose Wind|
|00004aa0| 6f 77 20 50 72 6f 63 65 | 64 75 72 65 20 56 31 2e |ow Proce|dure V1.|
|00004ab0| 30 31 20 42 79 20 53 69 | 6d 6f 6e 20 49 6e 6e 73 |01 By Si|mon Inns|
|00004ac0| 20 2a 2a 0d 16 1c 36 f4 | 20 2a 2a 20 20 20 20 20 | **...6.| ** |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004af0| 20 20 20 20 20 20 20 2a | 2a 0d 16 26 36 f4 20 2a | *|*..&6. *|
|00004b00| 2a 20 4c 61 73 74 20 75 | 70 64 61 74 65 20 3a 20 |* Last u|pdate : |
|00004b10| 30 32 2f 30 31 2f 39 33 | 20 20 20 20 20 20 20 20 |02/01/93| |
|00004b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 2a 0d | | **.|
|00004b30| 16 30 36 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.06. ***|********|
|00004b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004b60| 2a 2a 2a 2a 2a 0d 16 3a | 24 dd 20 f2 70 72 6f 63 |*****..:|$. .proc|
|00004b70| 65 73 73 5f 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |ess_clos|e_window|
|00004b80| 28 68 61 6e 64 6c 65 25 | 29 0d 16 44 05 3a 0d 16 |(handle%|)..D.:..|
|00004b90| 4e 16 62 6c 6f 63 6b 25 | 21 30 20 3d 20 68 61 6e |N.block%|!0 = han|
|00004ba0| 64 6c 65 25 0d 16 58 21 | c8 99 20 22 57 69 6d 70 |dle%..X!|.. "Wimp|
|00004bb0| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|00004bc0| 6c 6f 63 6b 25 0d 16 62 | 05 e1 0d 16 6c 05 3a 0d |lock%..b|....l.:.|
|00004bd0| 16 76 36 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.v6. ***|********|
|00004be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004c00| 2a 2a 2a 2a 2a 0d 16 80 | 36 f4 20 2a 2a 20 43 72 |*****...|6. ** Cr|
|00004c10| 65 61 74 65 20 49 63 6f | 6e 20 50 72 6f 63 65 64 |eate Ico|n Proced|
|00004c20| 75 72 65 20 56 32 2e 30 | 31 20 20 20 20 20 20 20 |ure V2.0|1 |
|00004c30| 20 20 20 20 20 20 20 20 | 20 2a 2a 0d 16 8a 36 f4 | | **...6.|
|00004c40| 20 2a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ** | |
|00004c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a | | *|
|00004c70| 2a 0d 16 94 36 f4 20 2a | 2a 20 4c 61 73 74 20 75 |*...6. *|* Last u|
|00004c80| 70 64 61 74 65 20 3a 20 | 32 33 2f 30 31 2f 39 33 |pdate : |23/01/93|
|00004c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004ca0| 20 20 20 20 20 2a 2a 0d | 16 9e 36 f4 20 2a 2a 2a | **.|..6. ***|
|00004cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 16 a8 |********|*****...|
|00004ce0| 4c dd 20 a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 |L. .crea|te_icon(|
|00004cf0| 68 61 6e 64 6c 65 25 2c | 6d 69 6e 78 25 2c 6d 69 |handle%,|minx%,mi|
|00004d00| 6e 79 25 2c 6d 61 78 78 | 25 2c 6d 61 78 79 25 2c |ny%,maxx|%,maxy%,|
|00004d10| 66 6c 61 67 25 2c 64 61 | 74 61 24 2c 6d 62 6c 6f |flag%,da|ta$,mblo|
|00004d20| 63 6b 25 2c 6c 65 6e 25 | 29 0d 16 b2 05 3a 0d 16 |ck%,len%|)....:..|
|00004d30| bc 37 f4 20 6d 62 6c 6f | 63 6b 25 20 69 73 20 6f |.7. mblo|ck% is o|
|00004d40| 6e 6c 79 20 75 73 65 64 | 20 69 66 20 69 6e 64 69 |nly used| if indi|
|00004d50| 72 65 63 74 65 64 20 69 | 63 6f 6e 73 20 61 72 65 |rected i|cons are|
|00004d60| 20 75 73 65 64 0d 16 c6 | 41 f4 20 69 66 20 6c 65 | used...|A. if le|
|00004d70| 6e 25 20 69 73 20 30 2c | 20 61 20 64 65 66 61 75 |n% is 0,| a defau|
|00004d80| 6c 74 20 6c 65 6e 67 74 | 68 20 69 73 20 75 73 65 |lt lengt|h is use|
|00004d90| 64 20 66 6f 72 20 74 68 | 65 20 62 6c 6f 63 6b 20 |d for th|e block |
|00004da0| 6c 65 6e 67 74 68 0d 16 | d0 05 3a 0d 16 da 14 62 |length..|..:....b|
|00004db0| 6c 6f 63 6b 25 21 30 3d | 68 61 6e 64 6c 65 25 0d |lock%!0=|handle%.|
|00004dc0| 16 e4 12 62 6c 6f 63 6b | 25 21 34 3d 6d 69 6e 78 |...block|%!4=minx|
|00004dd0| 25 0d 16 ee 12 62 6c 6f | 63 6b 25 21 38 3d 6d 69 |%....blo|ck%!8=mi|
|00004de0| 6e 79 25 0d 16 f8 13 62 | 6c 6f 63 6b 25 21 31 32 |ny%....b|lock%!12|
|00004df0| 3d 6d 61 78 78 25 0d 17 | 02 13 62 6c 6f 63 6b 25 |=maxx%..|..block%|
|00004e00| 21 31 36 3d 6d 61 78 79 | 25 0d 17 0c 13 62 6c 6f |!16=maxy|%....blo|
|00004e10| 63 6b 25 21 32 30 3d 66 | 6c 61 67 25 0d 17 16 05 |ck%!20=f|lag%....|
|00004e20| 3a 0d 17 20 17 c8 8e 20 | 28 66 6c 61 67 25 20 80 |:.. ... |(flag% .|
|00004e30| 20 31 3c 3c 38 29 20 ca | 0d 17 2a 1d 20 20 c9 20 | 1<<8) .|..*. . |
|00004e40| 30 3a 20 24 28 62 6c 6f | 63 6b 25 2b 32 34 29 3d |0: $(blo|ck%+24)=|
|00004e50| 64 61 74 61 24 0d 17 34 | 05 7f 0d 17 3e 15 20 20 |data$..4|....>. |
|00004e60| e7 20 28 66 6c 61 67 25 | 20 80 20 32 29 20 8c 0d |. (flag%| . 2) ..|
|00004e70| 17 48 1a 20 20 20 20 20 | 62 6c 6f 63 6b 25 21 32 |.H. |block%!2|
|00004e80| 34 3d 6d 62 6c 6f 63 6b | 25 0d 17 52 14 20 20 20 |4=mblock|%..R. |
|00004e90| 20 20 62 6c 6f 63 6b 25 | 21 32 38 3d 31 0d 17 5c | block%|!28=1..\|
|00004ea0| 15 20 20 20 20 20 62 6c | 6f 63 6b 25 21 33 32 3d |. bl|ock%!32=|
|00004eb0| 31 32 0d 17 66 17 20 20 | 20 20 20 24 6d 62 6c 6f |12..f. | $mblo|
|00004ec0| 63 6b 25 3d 64 61 74 61 | 24 0d 17 70 07 20 20 cc |ck%=data|$..p. .|
|00004ed0| 0d 17 7a 1a 20 20 20 20 | 20 62 6c 6f 63 6b 25 21 |..z. | block%!|
|00004ee0| 32 34 3d 6d 62 6c 6f 63 | 6b 25 0d 17 84 15 20 20 |24=mbloc|k%.... |
|00004ef0| 20 20 20 62 6c 6f 63 6b | 25 21 32 38 3d 2d 31 0d | block|%!28=-1.|
|00004f00| 17 8e 34 20 20 20 20 20 | e7 20 6c 65 6e 25 3d 30 |..4 |. len%=0|
|00004f10| 20 62 6c 6f 63 6b 25 21 | 33 32 3d a9 20 64 61 74 | block%!|32=. dat|
|00004f20| 61 24 20 8b 20 62 6c 6f | 63 6b 25 21 33 32 3d 6c |a$ . blo|ck%!32=l|
|00004f30| 65 6e 25 0d 17 98 17 20 | 20 20 20 20 24 6d 62 6c |en%.... | $mbl|
|00004f40| 6f 63 6b 25 3d 64 61 74 | 61 24 0d 17 a2 07 20 20 |ock%=dat|a$.... |
|00004f50| cd 0d 17 ac 05 cb 0d 17 | b6 2a c8 99 20 22 57 69 |........|.*.. "Wi|
|00004f60| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|00004f70| 62 6c 6f 63 6b 25 20 b8 | 20 68 61 6e 64 6c 65 25 |block% .| handle%|
|00004f80| 0d 17 c0 0c 3d 68 61 6e | 64 6c 65 25 0d 17 ca 05 |....=han|dle%....|
|00004f90| 3a 0d 17 d4 18 dd 20 f2 | 73 74 61 72 74 5f 64 72 |:..... .|start_dr|
|00004fa0| 61 67 28 69 63 6f 6e 25 | 29 0d 17 de 28 c8 99 20 |ag(icon%|)...(.. |
|00004fb0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00004fc0| 74 61 74 65 22 2c 2c 20 | 62 6c 6f 63 6b 25 2b 31 |tate",, |block%+1|
|00004fd0| 32 0d 17 e8 12 78 25 20 | 3d 20 62 6c 6f 63 6b 25 |2....x% |= block%|
|00004fe0| 21 31 36 0d 17 f2 12 79 | 25 20 3d 20 62 6c 6f 63 |!16....y|% = bloc|
|00004ff0| 6b 25 21 32 38 0d 17 fc | 15 62 6c 6f 63 6b 25 21 |k%!28...|.block%!|
|00005000| 31 36 20 3d 20 69 63 6f | 6e 25 0d 18 06 28 c8 99 |16 = ico|n%...(..|
|00005010| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00005020| 61 74 65 22 2c 2c 20 62 | 6c 6f 63 6b 25 20 2b 20 |ate",, b|lock% + |
|00005030| 31 32 0d 18 10 11 62 6c | 6f 63 6b 25 21 31 36 20 |12....bl|ock%!16 |
|00005040| 3d 20 35 0d 18 1a 13 62 | 6c 6f 63 6b 25 21 32 30 |= 5....b|lock%!20|
|00005050| 20 2b 3d 20 78 25 0d 18 | 24 13 62 6c 6f 63 6b 25 | += x%..|$.block%|
|00005060| 21 32 34 20 2b 3d 20 79 | 25 0d 18 2e 11 62 6c 6f |!24 += y|%....blo|
|00005070| 63 6b 25 21 32 38 2b 3d | 78 25 0d 18 38 11 62 6c |ck%!28+=|x%..8.bl|
|00005080| 6f 63 6b 25 21 33 32 2b | 3d 79 25 0d 18 42 0f 62 |ock%!32+|=y%..B.b|
|00005090| 6c 6f 63 6b 25 21 33 36 | 3d 30 0d 18 4c 0f 62 6c |lock%!36|=0..L.bl|
|000050a0| 6f 63 6b 25 21 34 30 3d | 30 0d 18 56 17 62 6c 6f |ock%!40=|0..V.blo|
|000050b0| 63 6b 25 21 34 34 3d 26 | 37 46 46 46 46 46 46 46 |ck%!44=&|7FFFFFFF|
|000050c0| 0d 18 60 17 62 6c 6f 63 | 6b 25 21 34 38 3d 26 37 |..`.bloc|k%!48=&7|
|000050d0| 46 46 46 46 46 46 46 0d | 18 6a 23 c8 99 20 22 57 |FFFFFFF.|.j#.. "W|
|000050e0| 69 6d 70 5f 44 72 61 67 | 42 6f 78 22 2c 2c 20 62 |imp_Drag|Box",, b|
|000050f0| 6c 6f 63 6b 25 20 2b 20 | 31 32 0d 18 74 05 e1 0d |lock% + |12..t...|
|00005100| 18 7e 05 3a 0d 18 88 11 | dd 20 f2 64 72 61 67 5f |.~.:....|. .drag_|
|00005110| 65 6e 64 65 64 0d 18 92 | 1a 66 69 6c 65 5f 6e 61 |ended...|.file_na|
|00005120| 6d 65 24 20 3d 20 61 70 | 70 5f 6e 61 6d 65 24 0d |me$ = ap|p_name$.|
|00005130| 18 9c 24 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |..$.. "W|imp_GetP|
|00005140| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 6c 6f |ointerIn|fo",,blo|
|00005150| 63 6b 25 0d 18 a6 10 62 | 6c 6f 63 6b 25 21 32 30 |ck%....b|lock%!20|
|00005160| 3d 36 34 0d 18 b0 0f 62 | 6c 6f 63 6b 25 21 33 32 |=64....b|lock%!32|
|00005170| 3d 30 0d 18 ba 0f 62 6c | 6f 63 6b 25 21 33 36 3d |=0....bl|ock%!36=|
|00005180| 31 0d 18 c4 17 62 6c 6f | 63 6b 25 21 34 30 3d 62 |1....blo|ck%!40=b|
|00005190| 6c 6f 63 6b 25 21 31 32 | 0d 18 ce 17 62 6c 6f 63 |lock%!12|....bloc|
|000051a0| 6b 25 21 34 34 3d 62 6c | 6f 63 6b 25 21 31 36 0d |k%!44=bl|ock%!16.|
|000051b0| 18 d8 15 62 6c 6f 63 6b | 25 21 34 38 3d 21 62 6c |...block|%!48=!bl|
|000051c0| 6f 63 6b 25 0d 18 e2 16 | 62 6c 6f 63 6b 25 21 35 |ock%....|block%!5|
|000051d0| 32 3d 62 6c 6f 63 6b 25 | 21 34 0d 18 ec 10 62 6c |2=block%|!4....bl|
|000051e0| 6f 63 6b 25 21 35 36 3d | 2d 31 0d 18 f6 12 62 6c |ock%!56=|-1....bl|
|000051f0| 6f 63 6b 25 21 36 30 3d | 26 46 46 46 0d 19 00 25 |ock%!60=|&FFF...%|
|00005200| f2 70 75 74 7a 65 72 6f | 73 74 72 28 62 6c 6f 63 |.putzero|str(bloc|
|00005210| 6b 25 2b 36 34 2c 66 69 | 6c 65 5f 6e 61 6d 65 24 |k%+64,fi|le_name$|
|00005220| 29 0d 19 0a 3a c8 99 20 | 22 57 69 6d 70 5f 53 65 |)...:.. |"Wimp_Se|
|00005230| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 6c |ndMessag|e",17,bl|
|00005240| 6f 63 6b 25 2b 32 30 2c | 62 6c 6f 63 6b 25 21 31 |ock%+20,|block%!1|
|00005250| 32 2c 62 6c 6f 63 6b 25 | 21 31 36 0d 19 14 05 e1 |2,block%|!16.....|
|00005260| 0d 19 1e 05 3a 0d 19 28 | 11 dd f2 64 61 74 61 73 |....:..(|...datas|
|00005270| 61 76 65 61 63 6b 0d 19 | 32 29 66 6e 61 6d 65 24 |aveack..|2)fname$|
|00005280| 20 3d 20 a4 67 65 74 5f | 7a 65 72 6f 5f 73 74 72 | = .get_|zero_str|
|00005290| 69 6e 67 28 62 6c 6f 63 | 6b 25 2c 20 34 34 29 0d |ing(bloc|k%, 44).|
|000052a0| 19 3c 05 3a 0d 19 46 21 | f2 73 61 76 65 5f 74 68 |.<.:..F!|.save_th|
|000052b0| 65 5f 61 70 70 6c 69 63 | 61 74 69 6f 6e 28 66 6e |e_applic|ation(fn|
|000052c0| 61 6d 65 24 29 0d 19 50 | 05 e1 0d 19 5a 05 3a 0d |ame$)..P|....Z.:.|
|000052d0| 19 64 27 dd 20 a4 67 65 | 74 5f 7a 65 72 6f 5f 73 |.d'. .ge|t_zero_s|
|000052e0| 74 72 69 6e 67 28 62 6c | 6f 63 6b 25 2c 70 6f 69 |tring(bl|ock%,poi|
|000052f0| 6e 74 65 72 25 29 0d 19 | 6e 10 73 74 72 69 6e 67 |nter%)..|n.string|
|00005300| 24 20 3d 20 22 22 0d 19 | 78 05 f5 0d 19 82 1d 20 |$ = ""..|x...... |
|00005310| 20 63 68 61 72 25 20 3d | 20 62 6c 6f 63 6b 25 3f | char% =| block%?|
|00005320| 70 6f 69 6e 74 65 72 25 | 0d 19 8c 31 20 20 e7 20 |pointer%|...1 . |
|00005330| 63 68 61 72 25 20 3c 3e | 20 30 20 8c 20 73 74 72 |char% <>| 0 . str|
|00005340| 69 6e 67 24 20 3d 20 73 | 74 72 69 6e 67 24 20 2b |ing$ = s|tring$ +|
|00005350| 20 bd 28 63 68 61 72 25 | 29 0d 19 96 13 20 20 70 | .(char%|).... p|
|00005360| 6f 69 6e 74 65 72 25 20 | 2b 3d 20 31 0d 19 a0 0f |ointer% |+= 1....|
|00005370| fd 20 63 68 61 72 25 20 | 3d 20 30 0d 19 aa 0d 3d |. char% |= 0....=|
|00005380| 20 73 74 72 69 6e 67 24 | 0d 19 b4 05 3a 0d 19 be | string$|....:...|
|00005390| 20 dd 20 f2 70 75 74 7a | 65 72 6f 73 74 72 28 61 | . .putz|erostr(a|
|000053a0| 64 64 72 25 2c 73 74 72 | 69 6e 67 24 29 0d 19 c8 |ddr%,str|ing$)...|
|000053b0| 17 e3 63 74 25 3d 30 b8 | 28 a9 73 74 72 69 6e 67 |..ct%=0.|(.string|
|000053c0| 24 29 2d 31 0d 19 d2 23 | 20 20 20 61 64 64 72 25 |$)-1...#| addr%|
|000053d0| 3f 63 74 25 3d 97 c1 73 | 74 72 69 6e 67 24 2c 63 |?ct%=..s|tring$,c|
|000053e0| 74 25 2b 31 2c 31 29 0d | 19 dc 05 ed 0d 19 e6 16 |t%+1,1).|........|
|000053f0| 61 64 64 72 25 3f 28 a9 | 73 74 72 69 6e 67 24 29 |addr%?(.|string$)|
|00005400| 3d 30 0d 19 f0 05 e1 0d | 19 fa 05 3a 0d 1a 04 27 |=0......|...:...'|
|00005410| dd 20 f2 73 61 76 65 5f | 74 68 65 5f 61 70 70 6c |. .save_|the_appl|
|00005420| 69 63 61 74 69 6f 6e 28 | 66 69 6c 65 5f 6e 61 6d |ication(|file_nam|
|00005430| 65 24 29 0d 1a 0e 21 f4 | 20 2a 2a 20 43 6c 6f 73 |e$)...!.| ** Clos|
|00005440| 65 20 74 68 65 20 73 61 | 76 65 20 77 69 6e 64 6f |e the sa|ve windo|
|00005450| 77 20 2a 2a 0d 1a 18 28 | f2 70 72 6f 63 65 73 73 |w **...(|.process|
|00005460| 5f 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 68 61 |_close_w|indow(ha|
|00005470| 6e 64 6c 65 25 28 53 61 | 76 65 29 29 0d 1a 22 05 |ndle%(Sa|ve))..".|
|00005480| 3a 0d 1a 2c 20 f4 20 2a | 2a 20 43 72 65 61 74 65 |:.., . *|* Create|
|00005490| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 2a | the dir|ectory *|
|000054a0| 2a 0d 1a 36 1a ff 20 22 | 43 44 49 52 20 22 20 2b |*..6.. "|CDIR " +|
|000054b0| 20 66 69 6c 65 5f 6e 61 | 6d 65 24 0d 1a 40 05 3a | file_na|me$..@.:|
|000054c0| 0d 1a 4a 2c f4 20 2a 2a | 20 57 6f 72 6b 20 6f 75 |..J,. **| Work ou|
|000054d0| 74 20 74 68 65 20 64 69 | 72 65 63 74 6f 72 79 20 |t the di|rectory |
|000054e0| 70 61 74 68 20 6e 61 6d | 65 20 2a 2a 0d 1a 54 35 |path nam|e **..T5|
|000054f0| 64 69 72 5f 6e 61 6d 65 | 24 20 3d 20 c1 61 70 70 |dir_name|$ = .app|
|00005500| 5f 6e 61 6d 65 24 2c 32 | 2c 28 a9 28 61 70 70 5f |_name$,2|,(.(app_|
|00005510| 6e 61 6d 65 24 29 29 29 | 20 2b 20 22 24 44 69 72 |name$)))| + "$Dir|
|00005520| 22 0d 1a 5e 05 3a 0d 1a | 68 19 f4 20 2a 2a 20 4e |"..^.:..|h.. ** N|
|00005530| 6f 77 20 64 6f 20 74 68 | 65 20 64 6f 20 2a 2a 0d |ow do th|e do **.|
|00005540| 1a 72 20 e7 20 63 72 65 | 61 74 69 6f 6e 5f 64 65 |.r . cre|ation_de|
|00005550| 74 61 69 6c 73 25 28 31 | 29 20 3d 20 b9 20 8c 0d |tails%(1|) = . ..|
|00005560| 1a 7c 22 20 20 20 f4 20 | 2a 2a 20 43 72 65 61 74 |.|" . |** Creat|
|00005570| 65 20 61 20 21 62 6f 6f | 74 20 66 69 6c 65 20 2a |e a !boo|t file *|
|00005580| 2a 0d 1a 86 27 20 20 20 | 66 69 6c 65 25 20 3d 20 |*...' |file% = |
|00005590| ae 28 66 69 6c 65 5f 6e | 61 6d 65 24 20 2b 20 22 |.(file_n|ame$ + "|
|000055a0| 2e 21 42 6f 6f 74 22 29 | 0d 1a 90 3c 20 20 20 f2 |.!Boot")|...< .|
|000055b0| 77 72 69 74 65 5f 73 74 | 72 69 6e 67 28 66 69 6c |write_st|ring(fil|
|000055c0| 65 25 2c 20 22 7c 20 21 | 42 6f 6f 74 20 66 69 6c |e%, "| !|Boot fil|
|000055d0| 65 20 66 6f 72 20 22 20 | 2b 20 61 70 70 5f 6e 61 |e for " |+ app_na|
|000055e0| 6d 65 24 29 0d 1a 9a 3e | 20 20 20 f2 77 72 69 74 |me$)...>| .writ|
|000055f0| 65 5f 73 74 72 69 6e 67 | 28 66 69 6c 65 25 2c 20 |e_string|(file%, |
|00005600| 22 49 63 6f 6e 53 70 72 | 69 74 65 73 20 3c 4f 62 |"IconSpr|ites <Ob|
|00005610| 65 79 24 44 69 72 3e 2e | 21 53 70 72 69 74 65 73 |ey$Dir>.|!Sprites|
|00005620| 22 29 0d 1a a4 3f 20 20 | 20 f2 77 72 69 74 65 5f |")...? | .write_|
|00005630| 73 74 72 69 6e 67 28 66 | 69 6c 65 25 2c 20 22 53 |string(f|ile%, "S|
|00005640| 65 74 20 22 20 2b 20 64 | 69 72 5f 6e 61 6d 65 24 |et " + d|ir_name$|
|00005650| 20 2b 20 22 20 3c 4f 62 | 65 79 24 44 69 72 3e 22 | + " <Ob|ey$Dir>"|
|00005660| 29 0d 1a ae 08 20 20 20 | 3a 0d 1a b8 23 20 20 20 |).... |:...# |
|00005670| e7 20 63 72 65 61 74 69 | 6f 6e 5f 64 65 74 61 69 |. creati|on_detai|
|00005680| 6c 73 25 28 36 29 20 3d | 20 b9 20 8c 0d 1a c2 15 |ls%(6) =| . .....|
|00005690| 20 20 20 20 20 20 d5 23 | 66 69 6c 65 25 2c 20 31 | .#|file%, 1|
|000056a0| 30 0d 1a cc 36 20 20 20 | 20 20 20 66 69 6c 65 31 |0...6 | file1|
|000056b0| 25 20 3d 20 8e 28 22 3c | 43 72 65 61 74 65 41 70 |% = .("<|CreateAp|
|000056c0| 70 24 44 69 72 3e 2e 52 | 65 73 6f 75 72 63 65 73 |p$Dir>.R|esources|
|000056d0| 2e 4c 6f 67 6f 22 29 0d | 1a d6 17 20 20 20 20 20 |.Logo").|... |
|000056e0| 20 c8 95 20 ac 20 c5 23 | 66 69 6c 65 31 25 0d 1a | .. . .#|file1%..|
|000056f0| e0 1c 20 20 20 20 20 20 | 20 20 63 68 61 72 25 20 |.. | char% |
|00005700| 3d 20 9a 23 66 69 6c 65 | 31 25 0d 1a ea 1a 20 20 |= .#file|1%.... |
|00005710| 20 20 20 20 20 20 d5 23 | 66 69 6c 65 25 2c 20 63 | .#|file%, c|
|00005720| 68 61 72 25 0d 1a f4 0b | 20 20 20 20 20 20 ce 0d |har%....| ..|
|00005730| 1a fe 13 20 20 20 20 20 | 20 d9 20 23 66 69 6c 65 |... | . #file|
|00005740| 31 25 0d 1b 08 08 20 20 | 20 cd 0d 1b 12 08 20 20 |1%.... | ..... |
|00005750| 20 3a 0d 1b 1c 0f 20 20 | 20 d9 20 23 66 69 6c 65 | :.... | . #file|
|00005760| 25 0d 1b 26 30 20 20 20 | ff 20 22 53 65 74 54 79 |%..&0 |. "SetTy|
|00005770| 70 65 20 22 20 2b 20 66 | 69 6c 65 5f 6e 61 6d 65 |pe " + f|ile_name|
|00005780| 24 20 2b 20 22 2e 21 42 | 6f 6f 74 20 26 46 45 42 |$ + ".!B|oot &FEB|
|00005790| 22 0d 1b 30 05 cd 0d 1b | 3a 05 3a 0d 1b 44 20 e7 |"..0....|:.:..D .|
|000057a0| 20 63 72 65 61 74 69 6f | 6e 5f 64 65 74 61 69 6c | creatio|n_detail|
|000057b0| 73 25 28 32 29 20 3d 20 | b9 20 8c 0d 1b 4e 21 20 |s%(2) = |. ...N! |
|000057c0| 20 20 f4 20 2a 2a 20 43 | 72 65 61 74 65 20 61 20 | . ** C|reate a |
|000057d0| 21 52 75 6e 20 66 69 6c | 65 20 2a 2a 0d 1b 58 26 |!Run fil|e **..X&|
|000057e0| 20 20 20 66 69 6c 65 25 | 20 3d 20 ae 28 66 69 6c | file%| = .(fil|
|000057f0| 65 5f 6e 61 6d 65 24 20 | 2b 20 22 2e 21 52 75 6e |e_name$ |+ ".!Run|
|00005800| 22 29 0d 1b 62 3b 20 20 | 20 f2 77 72 69 74 65 5f |")..b; | .write_|
|00005810| 73 74 72 69 6e 67 28 66 | 69 6c 65 25 2c 20 22 7c |string(f|ile%, "||
|00005820| 20 21 52 75 6e 20 66 69 | 6c 65 20 66 6f 72 20 22 | !Run fi|le for "|
|00005830| 20 2b 20 61 70 70 5f 6e | 61 6d 65 24 29 0d 1b 6c | + app_n|ame$)..l|
|00005840| 3e 20 20 20 f2 77 72 69 | 74 65 5f 73 74 72 69 6e |> .wri|te_strin|
|00005850| 67 28 66 69 6c 65 25 2c | 20 22 49 63 6f 6e 53 70 |g(file%,| "IconSp|
|00005860| 72 69 74 65 73 20 3c 4f | 62 65 79 24 44 69 72 3e |rites <O|bey$Dir>|
|00005870| 2e 21 53 70 72 69 74 65 | 73 22 29 0d 1b 76 3f 20 |.!Sprite|s")..v? |
|00005880| 20 20 f2 77 72 69 74 65 | 5f 73 74 72 69 6e 67 28 | .write|_string(|
|00005890| 66 69 6c 65 25 2c 20 22 | 53 65 74 20 22 20 2b 20 |file%, "|Set " + |
|000058a0| 64 69 72 5f 6e 61 6d 65 | 24 20 2b 20 22 20 3c 4f |dir_name|$ + " <O|
|000058b0| 62 65 79 24 44 69 72 3e | 22 29 0d 1b 80 16 20 20 |bey$Dir>|").... |
|000058c0| 20 f2 6d 6f 64 75 6c 65 | 5f 69 6e 63 6c 75 64 65 | .module|_include|
|000058d0| 0d 1b 8a 5d 20 20 20 f2 | 77 72 69 74 65 5f 73 74 |...] .|write_st|
|000058e0| 72 69 6e 67 28 66 69 6c | 65 25 2c 20 22 57 69 6d |ring(fil|e%, "Wim|
|000058f0| 70 53 6c 6f 74 20 2d 6d | 69 6e 20 22 20 2b 20 c3 |pSlot -m|in " + .|
|00005900| 28 61 70 70 5f 73 69 7a | 65 25 29 20 2b 20 22 4b |(app_siz|e%) + "K|
|00005910| 20 2d 6d 61 78 20 22 20 | 2b 20 c3 28 61 70 70 5f | -max " |+ .(app_|
|00005920| 73 69 7a 65 25 29 20 2b | 20 22 4b 22 29 0d 1b 94 |size%) +| "K")...|
|00005930| 40 20 20 20 f2 77 72 69 | 74 65 5f 73 74 72 69 6e |@ .wri|te_strin|
|00005940| 67 28 66 69 6c 65 25 2c | 20 22 52 75 6e 20 3c 22 |g(file%,| "Run <"|
|00005950| 20 2b 20 64 69 72 5f 6e | 61 6d 65 24 20 2b 20 22 | + dir_n|ame$ + "|
|00005960| 3e 2e 21 52 75 6e 49 6d | 61 67 65 22 29 0d 1b 9e |>.!RunIm|age")...|
|00005970| 08 20 20 20 3a 0d 1b a8 | 23 20 20 20 e7 20 63 72 |. :...|# . cr|
|00005980| 65 61 74 69 6f 6e 5f 64 | 65 74 61 69 6c 73 25 28 |eation_d|etails%(|
|00005990| 36 29 20 3d 20 b9 20 8c | 0d 1b b2 15 20 20 20 20 |6) = . .|.... |
|000059a0| 20 20 d5 23 66 69 6c 65 | 25 2c 20 31 30 0d 1b bc | .#file|%, 10...|
|000059b0| 36 20 20 20 20 20 20 66 | 69 6c 65 31 25 20 3d 20 |6 f|ile1% = |
|000059c0| 8e 28 22 3c 43 72 65 61 | 74 65 41 70 70 24 44 69 |.("<Crea|teApp$Di|
|000059d0| 72 3e 2e 52 65 73 6f 75 | 72 63 65 73 2e 4c 6f 67 |r>.Resou|rces.Log|
|000059e0| 6f 22 29 0d 1b c6 17 20 | 20 20 20 20 20 c8 95 20 |o").... | .. |
|000059f0| ac 20 c5 23 66 69 6c 65 | 31 25 0d 1b d0 1c 20 20 |. .#file|1%.... |
|00005a00| 20 20 20 20 20 20 63 68 | 61 72 25 20 3d 20 9a 23 | ch|ar% = .#|
|00005a10| 66 69 6c 65 31 25 0d 1b | da 1a 20 20 20 20 20 20 |file1%..|.. |
|00005a20| 20 20 d5 23 66 69 6c 65 | 25 2c 20 63 68 61 72 25 | .#file|%, char%|
|00005a30| 0d 1b e4 0b 20 20 20 20 | 20 20 ce 0d 1b ee 13 20 |.... | ..... |
|00005a40| 20 20 20 20 20 d9 20 23 | 66 69 6c 65 31 25 0d 1b | . #|file1%..|
|00005a50| f8 08 20 20 20 cd 0d 1c | 02 08 20 20 20 3a 0d 1c |.. ...|.. :..|
|00005a60| 0c 0f 20 20 20 d9 20 23 | 66 69 6c 65 25 0d 1c 16 |.. . #|file%...|
|00005a70| 2f 20 20 20 ff 20 22 53 | 65 74 54 79 70 65 20 22 |/ . "S|etType "|
|00005a80| 20 2b 20 66 69 6c 65 5f | 6e 61 6d 65 24 20 2b 20 | + file_|name$ + |
|00005a90| 22 2e 21 52 75 6e 20 26 | 46 45 42 22 0d 1c 20 05 |".!Run &|FEB".. .|
|00005aa0| cd 0d 1c 2a 05 3a 0d 1c | 34 20 e7 20 63 72 65 61 |...*.:..|4 . crea|
|00005ab0| 74 69 6f 6e 5f 64 65 74 | 61 69 6c 73 25 28 33 29 |tion_det|ails%(3)|
|00005ac0| 20 3d 20 b9 20 8c 0d 1c | 3e 22 20 20 20 f4 20 2a | = . ...|>" . *|
|00005ad0| 2a 20 43 72 65 61 74 65 | 20 61 20 21 48 65 6c 70 |* Create| a !Help|
|00005ae0| 20 66 69 6c 65 20 2a 2a | 0d 1c 48 27 20 20 20 66 | file **|..H' f|
|00005af0| 69 6c 65 25 20 3d 20 ae | 28 66 69 6c 65 5f 6e 61 |ile% = .|(file_na|
|00005b00| 6d 65 24 20 2b 20 22 2e | 21 48 65 6c 70 22 29 0d |me$ + ".|!Help").|
|00005b10| 1c 52 3c 20 20 20 f2 77 | 72 69 74 65 5f 73 74 72 |.R< .w|rite_str|
|00005b20| 69 6e 67 28 66 69 6c 65 | 25 2c 20 22 7c 20 21 48 |ing(file|%, "| !H|
|00005b30| 65 6c 70 20 66 69 6c 65 | 20 66 6f 72 20 22 20 2b |elp file| for " +|
|00005b40| 20 61 70 70 5f 6e 61 6d | 65 24 29 0d 1c 5c 0f 20 | app_nam|e$)..\. |
|00005b50| 20 20 d9 20 23 66 69 6c | 65 25 0d 1c 66 30 20 20 | . #fil|e%..f0 |
|00005b60| 20 ff 20 22 53 65 74 54 | 79 70 65 20 22 20 2b 20 | . "SetT|ype " + |
|00005b70| 66 69 6c 65 5f 6e 61 6d | 65 24 20 2b 20 22 2e 21 |file_nam|e$ + ".!|
|00005b80| 48 65 6c 70 20 26 46 46 | 46 22 0d 1c 70 05 cd 0d |Help &FF|F"..p...|
|00005b90| 1c 7a 05 3a 0d 1c 84 20 | e7 20 63 72 65 61 74 69 |.z.:... |. creati|
|00005ba0| 6f 6e 5f 64 65 74 61 69 | 6c 73 25 28 34 29 20 3d |on_detai|ls%(4) =|
|00005bb0| 20 b9 20 8c 0d 1c 8e 23 | 20 20 20 f4 20 2a 2a 20 | . ....#| . ** |
|00005bc0| 43 72 65 61 74 65 20 61 | 20 53 70 72 69 74 65 20 |Create a| Sprite |
|00005bd0| 66 69 6c 65 20 2a 2a 0d | 1c 98 37 20 20 20 f2 6c |file **.|..7 .l|
|00005be0| 6f 61 64 5f 73 70 72 69 | 74 65 28 22 3c 43 72 65 |oad_spri|te("<Cre|
|00005bf0| 61 74 65 41 70 70 24 44 | 69 72 3e 2e 52 65 73 6f |ateApp$D|ir>.Reso|
|00005c00| 75 72 63 65 73 2e 4c 6f | 77 52 65 73 22 29 0d 1c |urces.Lo|wRes")..|
|00005c10| a2 08 20 20 20 3a 0d 1c | ac 2c 20 20 20 f4 20 2a |.. :..|., . *|
|00005c20| 2a 20 4e 6f 77 20 72 65 | 6e 61 6d 65 20 74 68 65 |* Now re|name the|
|00005c30| 20 6c 6f 77 2d 72 65 73 | 20 73 70 72 69 74 65 20 | low-res| sprite |
|00005c40| 2a 2a 0d 1c b6 41 20 20 | 20 c8 99 20 22 4f 53 5f |**...A | .. "OS_|
|00005c50| 53 70 72 69 74 65 4f 70 | 22 2c 20 32 36 20 2b 20 |SpriteOp|", 26 + |
|00005c60| 32 35 36 2c 20 73 70 72 | 69 74 65 5f 62 6c 6f 63 |256, spr|ite_bloc|
|00005c70| 6b 25 2c 20 22 4c 31 22 | 2c 20 61 70 70 5f 6e 61 |k%, "L1"|, app_na|
|00005c80| 6d 65 24 0d 1c c0 08 20 | 20 20 3a 0d 1c ca 43 20 |me$.... | :...C |
|00005c90| 20 20 f4 20 2a 2a 20 4e | 6f 77 20 72 65 73 61 76 | . ** N|ow resav|
|00005ca0| 65 20 74 68 65 20 73 70 | 72 69 74 65 20 69 6e 20 |e the sp|rite in |
|00005cb0| 74 68 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 27 |the appl|ication'|
|00005cc0| 73 20 64 69 72 65 63 74 | 6f 72 79 20 2a 2a 0d 1c |s direct|ory **..|
|00005cd0| d4 4a 20 20 20 c8 99 20 | 22 4f 53 5f 53 70 72 69 |.J .. |"OS_Spri|
|00005ce0| 74 65 4f 70 22 2c 20 31 | 32 20 2b 20 32 35 36 2c |teOp", 1|2 + 256,|
|00005cf0| 20 73 70 72 69 74 65 5f | 62 6c 6f 63 6b 25 2c 20 | sprite_|block%, |
|00005d00| 66 69 6c 65 5f 6e 61 6d | 65 24 20 2b 20 22 2e 21 |file_nam|e$ + ".!|
|00005d10| 53 70 72 69 74 65 73 22 | 0d 1c de 05 cd 0d 1c e8 |Sprites"|........|
|00005d20| 05 3a 0d 1c f2 20 e7 20 | 63 72 65 61 74 69 6f 6e |.:... . |creation|
|00005d30| 5f 64 65 74 61 69 6c 73 | 25 28 35 29 20 3d 20 b9 |_details|%(5) = .|
|00005d40| 20 8c 0d 1c fc 25 20 20 | 20 f4 20 2a 2a 20 43 72 | ....% | . ** Cr|
|00005d50| 65 61 74 65 20 61 20 53 | 70 72 69 74 65 32 32 20 |eate a S|prite22 |
|00005d60| 66 69 6c 65 20 2a 2a 0d | 1d 06 36 20 20 20 f2 6c |file **.|..6 .l|
|00005d70| 6f 61 64 5f 73 70 72 69 | 74 65 28 22 3c 43 72 65 |oad_spri|te("<Cre|
|00005d80| 61 74 65 41 70 70 24 44 | 69 72 3e 2e 52 65 73 6f |ateApp$D|ir>.Reso|
|00005d90| 75 72 63 65 73 2e 48 69 | 52 65 73 22 29 0d 1d 10 |urces.Hi|Res")...|
|00005da0| 08 20 20 20 3a 0d 1d 1a | 2c 20 20 20 f4 20 2a 2a |. :...|, . **|
|00005db0| 20 4e 6f 77 20 72 65 6e | 61 6d 65 20 74 68 65 20 | Now ren|ame the |
|00005dc0| 6c 6f 77 2d 72 65 73 20 | 73 70 72 69 74 65 20 2a |low-res |sprite *|
|00005dd0| 2a 0d 1d 24 41 20 20 20 | c8 99 20 22 4f 53 5f 53 |*..$A |.. "OS_S|
|00005de0| 70 72 69 74 65 4f 70 22 | 2c 20 32 36 20 2b 20 32 |priteOp"|, 26 + 2|
|00005df0| 35 36 2c 20 73 70 72 69 | 74 65 5f 62 6c 6f 63 6b |56, spri|te_block|
|00005e00| 25 2c 20 22 48 31 22 2c | 20 61 70 70 5f 6e 61 6d |%, "H1",| app_nam|
|00005e10| 65 24 0d 1d 2e 08 20 20 | 20 3a 0d 1d 38 43 20 20 |e$.... | :..8C |
|00005e20| 20 f4 20 2a 2a 20 4e 6f | 77 20 72 65 73 61 76 65 | . ** No|w resave|
|00005e30| 20 74 68 65 20 73 70 72 | 69 74 65 20 69 6e 20 74 | the spr|ite in t|
|00005e40| 68 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 27 73 |he appli|cation's|
|00005e50| 20 64 69 72 65 63 74 6f | 72 79 20 2a 2a 0d 1d 42 | directo|ry **..B|
|00005e60| 4c 20 20 20 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |L .. "|OS_Sprit|
|00005e70| 65 4f 70 22 2c 20 31 32 | 20 2b 20 32 35 36 2c 20 |eOp", 12| + 256, |
|00005e80| 73 70 72 69 74 65 5f 62 | 6c 6f 63 6b 25 2c 20 66 |sprite_b|lock%, f|
|00005e90| 69 6c 65 5f 6e 61 6d 65 | 24 20 2b 20 22 2e 21 53 |ile_name|$ + ".!S|
|00005ea0| 70 72 69 74 65 73 32 32 | 22 0d 1d 4c 05 cd 0d 1d |prites22|"..L....|
|00005eb0| 56 05 3a 0d 1d 60 19 e7 | 20 69 6e 63 6c 75 73 69 |V.:..`..| inclusi|
|00005ec0| 6f 6e 5f 6e 6f 25 20 3e | 20 30 20 8c 0d 1d 6a 22 |on_no% >| 0 ...j"|
|00005ed0| 20 20 20 e3 20 6c 6f 6f | 70 25 20 3d 20 31 20 b8 | . loo|p% = 1 .|
|00005ee0| 20 69 6e 63 6c 75 73 69 | 6f 6e 5f 6e 6f 25 0d 1d | inclusi|on_no%..|
|00005ef0| 74 2e 20 20 20 20 20 74 | 65 6d 70 5f 6e 61 6d 65 |t. t|emp_name|
|00005f00| 24 20 3d 20 a4 66 69 6c | 65 28 69 6e 63 6c 75 73 |$ = .fil|e(inclus|
|00005f10| 69 6f 6e 24 28 6c 6f 6f | 70 25 29 29 0d 1d 7e 62 |ion$(loo|p%))..~b|
|00005f20| 20 20 20 20 20 ff 20 22 | 43 6f 70 79 20 22 20 2b | . "|Copy " +|
|00005f30| 20 69 6e 63 6c 75 73 69 | 6f 6e 24 28 6c 6f 6f 70 | inclusi|on$(loop|
|00005f40| 25 29 20 2b 20 22 20 22 | 20 2b 20 66 69 6c 65 5f |%) + " "| + file_|
|00005f50| 6e 61 6d 65 24 20 2b 20 | 22 2e 22 20 2b 20 a4 66 |name$ + |"." + .f|
|00005f60| 69 6c 65 28 69 6e 63 6c | 75 73 69 6f 6e 24 28 6c |ile(incl|usion$(l|
|00005f70| 6f 6f 70 25 29 29 20 2b | 20 22 20 7e 43 22 0d 1d |oop%)) +| " ~C"..|
|00005f80| 88 0a 20 20 20 20 20 3a | 0d 1d 92 0e 20 20 20 ed |.. :|.... .|
|00005f90| 20 6c 6f 6f 70 25 0d 1d | 9c 05 cd 0d 1d a6 05 3a | loop%..|.......:|
|00005fa0| 0d 1d b0 3f f4 20 2a 2a | 20 4e 6f 77 20 74 68 61 |...?. **| Now tha|
|00005fb0| 74 27 73 20 61 6c 6c 20 | 64 6f 6e 65 2c 20 74 69 |t's all |done, ti|
|00005fc0| 64 79 20 75 70 20 72 65 | 61 64 79 20 66 6f 72 20 |dy up re|ady for |
|00005fd0| 74 68 65 20 6e 65 78 74 | 20 6f 6e 65 20 2a 2a 0d |the next| one **.|
|00005fe0| 1d ba 15 69 6e 63 6c 75 | 73 69 6f 6e 5f 6e 6f 25 |...inclu|sion_no%|
|00005ff0| 20 3d 20 30 0d 1d c4 33 | f2 66 69 6c 6c 5f 69 63 | = 0...3|.fill_ic|
|00006000| 6f 6e 28 68 61 6e 64 6c | 65 25 28 4d 61 69 6e 29 |on(handl|e%(Main)|
|00006010| 2c 20 32 36 2c 20 c3 28 | 69 6e 63 6c 75 73 69 6f |, 26, .(|inclusio|
|00006020| 6e 5f 6e 6f 25 29 29 0d | 1d ce 2b f2 66 69 6c 6c |n_no%)).|..+.fill|
|00006030| 5f 69 63 6f 6e 28 68 61 | 6e 64 6c 65 25 28 4d 61 |_icon(ha|ndle%(Ma|
|00006040| 69 6e 29 2c 20 34 2c 20 | 22 41 70 70 4e 61 6d 65 |in), 4, |"AppName|
|00006050| 22 29 0d 1d d8 27 f2 66 | 69 6c 6c 5f 69 63 6f 6e |")...'.f|ill_icon|
|00006060| 28 68 61 6e 64 6c 65 25 | 28 4d 61 69 6e 29 2c 20 |(handle%|(Main), |
|00006070| 31 38 2c 20 22 33 32 22 | 29 0d 1d e2 05 3a 0d 1d |18, "32"|)....:..|
|00006080| ec 05 e1 0d 1d f6 05 3a | 0d 1e 00 15 dd 20 f2 6d |.......:|..... .m|
|00006090| 6f 64 75 6c 65 5f 69 6e | 63 6c 75 64 65 0d 1e 0a |odule_in|clude...|
|000060a0| 19 e7 20 69 6e 63 6c 75 | 73 69 6f 6e 5f 6e 6f 25 |.. inclu|sion_no%|
|000060b0| 20 3e 20 30 20 8c 0d 1e | 14 23 20 20 20 e3 20 6c | > 0 ...|.# . l|
|000060c0| 6f 6f 70 79 25 20 3d 20 | 31 20 b8 20 69 6e 63 6c |oopy% = |1 . incl|
|000060d0| 75 73 69 6f 6e 5f 6e 6f | 25 0d 1e 1e 2d 20 20 20 |usion_no|%...- |
|000060e0| 20 20 f4 20 2a 2a 20 49 | 73 20 69 74 20 61 20 52 | . ** I|s it a R|
|000060f0| 65 6c 6f 63 61 74 61 62 | 6c 65 20 4d 6f 64 75 6c |elocatab|le Modul|
|00006100| 65 3f 3f 20 2a 2a 0d 1e | 28 27 20 20 20 20 20 e7 |e?? **..|(' .|
|00006110| 20 66 69 6c 65 5f 74 79 | 70 65 73 25 28 6c 6f 6f | file_ty|pes%(loo|
|00006120| 70 79 25 29 20 3d 20 26 | 46 46 41 20 8c 0d 1e 32 |py%) = &|FFA ...2|
|00006130| 73 20 20 20 20 20 20 20 | 20 6c 6f 61 64 69 6e 67 |s | loading|
|00006140| 24 20 3d 20 22 52 4d 45 | 6e 73 75 72 65 20 22 2b |$ = "RME|nsure "+|
|00006150| a4 66 69 6c 65 28 69 6e | 63 6c 75 73 69 6f 6e 24 |.file(in|clusion$|
|00006160| 28 6c 6f 6f 70 79 25 29 | 29 2b 22 20 30 2e 30 30 |(loopy%)|)+" 0.00|
|00006170| 20 52 75 6e 20 3c 22 2b | 64 69 72 5f 6e 61 6d 65 | Run <"+|dir_name|
|00006180| 24 2b 22 3e 2e 22 2b a4 | 66 69 6c 65 28 69 6e 63 |$+">."+.|file(inc|
|00006190| 6c 75 73 69 6f 6e 24 28 | 6c 6f 6f 70 79 25 29 29 |lusion$(|loopy%))|
|000061a0| 0d 1e 3c 2a 20 20 20 20 | 20 20 20 20 f2 77 72 69 |..<* | .wri|
|000061b0| 74 65 5f 73 74 72 69 6e | 67 28 66 69 6c 65 25 2c |te_strin|g(file%,|
|000061c0| 20 6c 6f 61 64 69 6e 67 | 24 29 0d 1e 46 0a 20 20 | loading|$)..F. |
|000061d0| 20 20 20 cd 0d 1e 50 0f | 20 20 20 ed 20 6c 6f 6f | ...P.| . loo|
|000061e0| 70 79 25 0d 1e 5a 05 cd | 0d 1e 64 05 e1 0d 1e 6e |py%..Z..|..d....n|
|000061f0| 05 3a 0d 1e 78 12 dd 20 | a4 66 69 6c 65 28 6e 61 |.:..x.. |.file(na|
|00006200| 6d 65 24 29 0d 1e 82 10 | 73 74 72 69 6e 67 24 20 |me$)....|string$ |
|00006210| 3d 20 22 22 0d 1e 8c 10 | 70 6f 69 6e 74 65 72 25 |= ""....|pointer%|
|00006220| 20 3d 20 30 0d 1e 96 05 | f5 0d 1e a0 13 20 20 70 | = 0....|..... p|
|00006230| 6f 69 6e 74 65 72 25 20 | 2b 3d 20 31 0d 1e aa 21 |ointer% |+= 1...!|
|00006240| 20 20 73 74 72 69 6e 67 | 24 20 3d 20 c2 6e 61 6d | string|$ = .nam|
|00006250| 65 24 2c 20 70 6f 69 6e | 74 65 72 25 29 0d 1e b4 |e$, poin|ter%)...|
|00006260| 17 fd 20 c0 73 74 72 69 | 6e 67 24 2c 31 29 20 3d |.. .stri|ng$,1) =|
|00006270| 20 22 2e 22 0d 1e be 1c | 3d 20 c2 73 74 72 69 6e | "."....|= .strin|
|00006280| 67 24 2c a9 28 73 74 72 | 69 6e 67 24 29 2d 31 29 |g$,.(str|ing$)-1)|
|00006290| 0d 1e c8 05 3a 0d 1e d2 | 23 dd 20 f2 77 72 69 74 |....:...|#. .writ|
|000062a0| 65 5f 73 74 72 69 6e 67 | 28 66 69 6c 65 25 2c 20 |e_string|(file%, |
|000062b0| 73 74 72 69 6e 67 24 29 | 0d 1e dc 1c e3 20 6c 6f |string$)|..... lo|
|000062c0| 6f 70 25 20 3d 20 31 20 | b8 20 a9 28 73 74 72 69 |op% = 1 |. .(stri|
|000062d0| 6e 67 24 29 0d 1e e6 25 | 20 20 d5 23 66 69 6c 65 |ng$)...%| .#file|
|000062e0| 25 2c 20 97 28 c1 73 74 | 72 69 6e 67 24 2c 20 6c |%, .(.st|ring$, l|
|000062f0| 6f 6f 70 25 2c 20 31 29 | 29 0d 1e f0 05 ed 0d 1e |oop%, 1)|).......|
|00006300| fa 0f d5 23 66 69 6c 65 | 25 2c 20 31 30 0d 1f 04 |...#file|%, 10...|
|00006310| 05 e1 0d 1f 0e 05 3a 0d | 1f 18 25 dd 20 f2 6c 6f |......:.|..%. .lo|
|00006320| 61 64 5f 73 70 72 69 74 | 65 28 73 70 72 69 74 65 |ad_sprit|e(sprite|
|00006330| 5f 66 69 6c 65 5f 6e 61 | 6d 65 24 29 0d 1f 22 18 |_file_na|me$)..".|
|00006340| 21 73 70 72 69 74 65 5f | 62 6c 6f 63 6b 25 3d 26 |!sprite_|block%=&|
|00006350| 31 34 30 30 0d 1f 2c 15 | 73 70 72 69 74 65 5f 62 |1400..,.|sprite_b|
|00006360| 6c 6f 63 6b 25 21 34 3d | 30 0d 1f 36 16 73 70 72 |lock%!4=|0..6.spr|
|00006370| 69 74 65 5f 62 6c 6f 63 | 6b 25 21 38 3d 31 36 0d |ite_bloc|k%!8=16.|
|00006380| 1f 40 16 73 70 72 69 74 | 65 5f 62 6c 6f 63 6b 25 |.@.sprit|e_block%|
|00006390| 21 38 3d 31 36 0d 1f 4a | 17 73 70 72 69 74 65 5f |!8=16..J|.sprite_|
|000063a0| 62 6c 6f 63 6b 25 21 31 | 32 3d 31 36 0d 1f 54 3b |block%!1|2=16..T;|
|000063b0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000063c0| 2c 20 32 36 36 2c 20 73 | 70 72 69 74 65 5f 62 6c |, 266, s|prite_bl|
|000063d0| 6f 63 6b 25 2c 20 73 70 | 72 69 74 65 5f 66 69 6c |ock%, sp|rite_fil|
|000063e0| 65 5f 6e 61 6d 65 24 0d | 1f 5e 05 e1 0d 1f 68 05 |e_name$.|.^....h.|
|000063f0| 3a 0d 1f 72 13 dd 20 f2 | 64 72 61 67 5f 64 72 6f |:..r.. .|drag_dro|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
