home *** CD-ROM | disk | FTP | other *** search
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: createapp
Confidence | Program | Detection | Match Type | Support
|
---|
100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
100%
| file
| RISC OS archive (ArcFS format)
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Acorn ArcFS Archive
| default
| |
100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 1c 02 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 43 72 65 61 74 65 | 41 70 70 00 ff ff ff ff |.!Create|App.....|
|00000070| 47 ff ff ff 2c 62 24 9c | 33 00 00 00 ff ff ff ff |G...,b$.|3.......|
|00000080| f8 01 00 80 83 21 42 6f | 6f 74 00 b2 00 90 03 5c |.....!Bo|ot.....\|
|00000090| f5 00 00 00 44 eb ff ff | dd 27 24 61 03 00 0e 6a |....D...|.'$a...j|
|000000a0| b3 00 00 00 24 00 00 00 | 83 21 48 65 6c 70 00 b2 |....$...|.!Help..|
|000000b0| 00 90 03 5c 2c 13 00 00 | 44 ff ff ff 5c 77 4d 62 |...\,...|D...\wMb|
|000000c0| 03 00 00 00 d3 0f 00 00 | fb 00 00 00 83 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 00 b2 00 90 03 5c | 49 01 00 00 44 eb ff ff |n......\|I...D...|
|000000e0| 27 8b ab 61 03 00 13 a3 | 06 01 00 00 f2 10 00 00 |'..a....|........|
|000000f0| 83 21 52 75 6e 49 6d 61 | 67 65 00 5c a7 68 00 00 |.!RunIma|ge.\.h..|
|00000100| 44 fb ff ff a7 be ab 62 | 03 00 00 00 0a 59 00 00 |D......b|.....Y..|
|00000110| 1c 12 00 00 83 21 53 70 | 72 69 74 65 73 00 03 5c |.....!Sp|rites..\|
|00000120| 1c 26 00 00 44 f9 ff ff | de f2 ae 62 03 00 fb cd |.&..D...|...b....|
|00000130| 66 12 00 00 4a 6b 00 00 | 83 21 53 70 72 69 74 65 |f...Jk..|.!Sprite|
|00000140| 73 32 32 00 38 4d 00 00 | 44 f9 ff ff b7 09 d5 61 |s22.8M..|D......a|
|00000150| 03 00 00 00 2e 24 00 00 | d4 7d 00 00 82 52 65 73 |.....$..|.}...Res|
|00000160| 6f 75 72 63 65 73 00 5c | ff ff ff ff 47 ff ff ff |ources.\|....G...|
|00000170| 62 63 24 9c 33 00 00 00 | ff ff ff ff b0 01 00 80 |bc$.3...|........|
|00000180| 83 48 69 52 65 73 00 00 | 00 00 00 00 88 05 00 00 |.HiRes..|........|
|00000190| 44 f9 ff ff bf 27 a1 61 | 03 00 e0 89 45 03 00 00 |D....'.a|....E...|
|000001a0| 26 a2 00 00 83 4c 6f 67 | 6f 00 00 00 00 00 00 00 |&....Log|o.......|
|000001b0| 25 02 00 00 44 ff ff ff | be 23 58 62 03 00 db b5 |%...D...|.#Xb....|
|000001c0| 74 01 00 00 8f a5 00 00 | 83 4c 6f 77 52 65 73 00 |t.......|.LowRes.|
|000001d0| 00 00 00 00 e0 02 00 00 | 44 f9 ff ff c7 06 9d 61 |........|D......a|
|000001e0| 03 00 91 28 9b 01 00 00 | 27 a7 00 00 00 00 00 00 |...(....|'.......|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 83 54 65 6d 70 6c 61 74 | 65 73 00 5c a9 08 00 00 |.Templat|es.\....|
|00000220| 44 ec ff ff 42 97 b2 64 | 03 00 5f 08 10 08 00 00 |D...B..d|.._.....|
|00000230| e6 a8 00 00 00 21 48 65 | 6c 70 00 b2 00 90 03 5c |.....!He|lp.....\|
|00000240| ff ff ff ff 47 ff ff ff | f6 55 24 9c 33 00 00 00 |....G...|.U$.3...|
|00000250| ff ff ff ff 44 01 00 80 | 00 00 00 00 00 00 00 00 |....D...|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 83 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 b2 00 90 03 5c | f5 00 00 00 44 eb ff ff |ot.....\|....D...|
|00000370| dd 27 24 61 03 00 0e 6a | 49 63 6f 6e 53 70 72 69 |.'$a...j|IconSpri|
|00000380| 74 65 73 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |tes <Obe|y$Dir>.!|
|00000390| 53 70 72 69 74 65 73 0a | 53 65 74 20 43 72 65 61 |Sprites.|Set Crea|
|000003a0| 74 65 41 70 70 24 44 69 | 72 20 3c 4f 62 65 79 24 |teApp$Di|r <Obey$|
|000003b0| 44 69 72 3e 0a 0a 2a 7c | 20 41 6e 6f 74 68 65 72 |Dir>..*|| Another|
|000003c0| 0a 2a 7c 20 90 04 5f 90 | 24 0a 2a 7c 20 90 03 2f |.*| .._.|$.*| ../|
|000003d0| 5f 5f 20 20 2c 20 5f 90 | 04 20 20 5f 5f 20 20 5f |__ , _.|. __ _|
|000003e0| 5f 20 90 03 2f 20 5f 5f | 20 20 5f 5f 20 20 5f 5f |_ ../ __| __ __|
|000003f0| 0a 2a 7c 20 90 03 5f 5f | 2f 20 2f 20 2f 20 2f 20 |.*| ..__|/ / / / |
|00000400| 2f 20 2f 5f 2f 20 2f 20 | 2f 20 20 2f 20 2f 20 2f |/ /_/ / |/ / / /|
|00000410| 20 2f 20 2f 20 5f 5c 0a | 2a 7c 0a 2a 7c 20 90 22 | / / _\.|*|.*| ."|
|00000420| 50 72 6f 64 75 63 74 69 | 6f 6e 0a 46 69 6c 65 44 |Producti|on.FileD|
|00000430| 61 74 61 83 21 48 65 6c | 70 00 b2 00 90 03 5c 2c |ata.!Hel|p.....\,|
|00000440| 13 00 00 47 fd ff ff 90 | 62 24 9c 03 00 00 00 21 |...G....|b$.....!|
|00000450| 48 65 6c 70 20 66 69 6c | 65 20 66 6f 72 20 21 43 |Help fil|e for !C|
|00000460| 72 65 61 74 65 41 70 70 | 2e 0a 0a 2d 90 4c 0a 20 |reateApp|...-.L. |
|00000470| 90 14 5f 90 03 0a 28 63 | 29 31 39 39 33 20 90 0c |.._...(c|)1993 ..|
|00000480| 2f 5f 5f 2f 20 20 5f 5f | 20 20 5f 5f 20 20 5f 5f |/__/ __| __ __|
|00000490| 20 90 06 5f 5f 20 20 5f | 5f 20 20 5f 5f 0a 20 90 | ..__ _|_ __. .|
|000004a0| 12 2f 20 5c 20 90 03 2f | 5f 20 20 2f 5f 20 20 2f |./ \ ../|_ /_ /|
|000004b0| 20 2f 20 2f 20 2f 20 2f | 5f 2f 20 2f 20 90 03 2f | / / / /|_/ / ../|
|000004c0| 5f 0a 20 90 11 2f 20 90 | 03 5c 20 2f 5f 20 20 5f |_. ../ .|.\ /_ _|
|000004d0| 5f 2f 20 2f 5f 2f 20 2f | 5f 2f 20 2f 20 5c 20 2f |_/ /_/ /|_/ / \ /|
|000004e0| 5f 20 20 2f 5f 0a 20 90 | 17 5f 90 06 0a 20 90 19 |_ /_. .|._... ..|
|000004f0| 2f 20 20 5f 5f 20 20 5f | 20 90 0a 5f 5f 20 90 05 |/ __ _| ..__ ..|
|00000500| 5f 5f 20 20 5f 5f 0a 20 | 90 18 2f 20 20 2f 5f 20 |__ __. |../ /_ |
|00000510| 20 2f 20 20 2f 5f 2f 20 | 2f 5c 2f 20 2f 20 2f 20 | / /_/ |/\/ / / |
|00000520| 2f 20 20 2f 20 2f 20 2f | 5f 20 20 2f 5f 2f 0a 20 |/ / / /|_ /_/. |
|00000530| 90 17 2f 20 20 2f 5f 20 | 20 2f 5f 20 2f 20 2f 20 |../ /_ | /_ / / |
|00000540| 2f 20 2f 20 2f 5f 2f 20 | 2f 5f 20 2f 5f 2f 20 2f |/ / /_/ |/_ /_/ /|
|00000550| 5f 2f 20 5f 5f 2f 20 0a | 0a 2d 90 4c 0a 20 90 12 |_/ __/ .|.-.L. ..|
|00000560| 5f 90 24 0a 20 90 11 2f | 5f 5f 20 20 2c 20 5f 90 |_.$. ../|__ , _.|
|00000570| 04 20 20 5f 5f 20 20 5f | 5f 20 90 03 2f 20 5f 5f |. __ _|_ ../ __|
|00000580| 20 20 5f 5f 20 20 5f 5f | 0a 20 90 11 5f 5f 2f 20 | __ __|. ..__/ |
|00000590| 2f 20 2f 20 2f 20 2f 20 | 2f 5f 2f 20 2f 20 2f 20 |/ / / / |/_/ / / |
|000005a0| 20 2f 20 2f 20 2f 20 2f | 20 2f 20 5f 5c 20 0a 20 | / / / /| / _\ . |
|000005b0| 90 07 0a 2d 90 4c 0a 0a | 54 68 69 73 20 70 72 6f |...-.L..|This pro|
|000005c0| 67 72 61 6d 20 69 73 20 | 62 61 73 65 64 20 6f 6e |gram is |based on|
|000005d0| 20 21 41 70 70 4d 61 6b | 65 72 20 62 79 20 47 6c | !AppMak|er by Gl|
|000005e0| 79 6e 6e 20 43 6c 65 6d | 65 6e 74 73 2e 20 20 49 |ynn Clem|ents. I|
|000005f0| 74 73 20 70 75 72 70 6f | 73 65 20 69 73 20 74 6f |ts purpo|se is to|
|00000600| 0a 63 72 65 61 74 65 20 | 61 70 70 6c 69 63 61 74 |.create |applicat|
|00000610| 69 6f 6e 20 64 69 72 65 | 63 74 6f 72 69 65 73 20 |ion dire|ctories |
|00000620| 71 75 69 63 6b 6c 79 20 | 62 79 20 61 75 74 6f 6d |quickly |by autom|
|00000630| 61 74 69 63 61 6c 6c 79 | 20 70 72 6f 64 75 63 69 |atically| produci|
|00000640| 6e 67 20 66 69 6c 65 73 | 0a 73 75 63 68 20 61 73 |ng files|.such as|
|00000650| 20 21 42 6f 6f 74 20 61 | 6e 64 20 21 52 75 6e 2e | !Boot a|nd !Run.|
|00000660| 20 20 49 74 20 77 69 6c | 6c 20 61 6c 73 6f 20 63 | It wil|l also c|
|00000670| 72 65 61 74 65 20 21 53 | 70 72 69 74 65 20 66 69 |reate !S|prite fi|
|00000680| 6c 65 73 20 61 6e 64 20 | 21 53 70 72 69 74 65 32 |les and |!Sprite2|
|00000690| 32 0a 66 69 6c 65 73 20 | 28 66 6f 72 20 52 49 53 |2.files |(for RIS|
|000006a0| 43 20 4f 53 20 33 20 68 | 69 2d 72 65 73 20 69 63 |C OS 3 h|i-res ic|
|000006b0| 6f 6e 73 29 2c 20 61 6e | 64 20 61 6e 79 20 66 69 |ons), an|d any fi|
|000006c0| 6c 65 73 20 77 68 69 63 | 68 20 74 68 65 20 61 70 |les whic|h the ap|
|000006d0| 70 6c 69 63 61 74 69 6f | 6e 20 77 69 6c 6c 0a 6e |plicatio|n will.n|
|000006e0| 65 65 64 2c 20 73 75 63 | 68 20 61 73 20 61 20 73 |eed, suc|h as a s|
|000006f0| 74 61 6e 64 61 72 64 20 | 74 65 6d 70 6c 61 74 65 |tandard |template|
|00000700| 20 66 69 6c 65 2c 20 6d | 6f 64 75 6c 65 73 20 6f | file, m|odules o|
|00000710| 72 20 61 20 73 70 72 69 | 74 65 20 66 69 6c 65 20 |r a spri|te file |
|00000720| 63 61 6e 20 62 65 20 0a | 64 72 61 67 67 65 64 20 |can be .|dragged |
|00000730| 74 6f 20 74 68 65 20 66 | 69 6c 65 20 69 6e 63 6c |to the f|ile incl|
|00000740| 75 73 69 6f 6e 20 77 69 | 6e 64 6f 77 2e 20 20 54 |usion wi|ndow. T|
|00000750| 68 65 73 65 20 66 69 6c | 65 73 20 77 69 6c 6c 20 |hese fil|es will |
|00000760| 62 65 20 73 61 76 65 64 | 20 69 6e 20 74 68 65 0a |be saved| in the.|
|00000770| 61 70 70 6c 69 63 61 74 | 69 6f 6e 73 20 64 69 72 |applicat|ions dir|
|00000780| 65 63 74 6f 72 79 20 61 | 6e 64 20 61 6e 79 20 6d |ectory a|nd any m|
|00000790| 6f 64 75 6c 65 73 20 74 | 68 61 74 20 61 72 65 20 |odules t|hat are |
|000007a0| 69 6e 63 6c 75 64 65 64 | 20 77 69 6c 6c 20 68 61 |included| will ha|
|000007b0| 76 65 20 61 6e 0a 52 4d | 45 6e 73 75 72 65 20 69 |ve an.RM|Ensure i|
|000007c0| 6e 20 74 68 65 20 21 52 | 75 6e 20 66 69 6c 65 2e |n the !R|un file.|
|000007d0| 0a 0a 54 6f 20 6c 6f 61 | 64 2c 20 64 6f 75 62 6c |..To loa|d, doubl|
|000007e0| 65 20 63 6c 69 63 6b 20 | 6f 6e 20 74 68 65 20 21 |e click |on the !|
|000007f0| 43 72 65 61 74 65 41 70 | 70 20 69 63 6f 6e 2e 20 |CreateAp|p icon. |
|00000800| 20 54 68 69 73 20 63 72 | 65 61 74 65 73 20 61 20 | This cr|eates a |
|00000810| 21 20 69 63 6f 6e 20 6f | 6e 20 74 68 65 0a 69 63 |! icon o|n the.ic|
|00000820| 6f 6e 20 62 61 72 2e 20 | 20 43 6c 69 63 6b 20 77 |on bar. | Click w|
|00000830| 69 74 68 20 74 68 65 20 | 73 65 6c 65 63 74 20 62 |ith the |select b|
|00000840| 75 74 74 6f 6e 20 6f 6e | 20 74 68 69 73 20 69 63 |utton on| this ic|
|00000850| 6f 6e 20 74 6f 20 6f 70 | 65 6e 20 74 68 65 20 63 |on to op|en the c|
|00000860| 72 65 61 74 69 6f 6e 0a | 77 69 6e 64 6f 77 2e 20 |reation.|window. |
|00000870| 20 54 68 65 20 63 72 65 | 61 74 69 6f 6e 20 77 69 | The cre|ation wi|
|00000880| 6e 64 6f 77 20 63 6f 6e | 74 61 69 6e 73 20 73 65 |ndow con|tains se|
|00000890| 76 65 72 61 6c 20 69 74 | 65 6d 73 2c 20 65 61 63 |veral it|ems, eac|
|000008a0| 68 20 64 65 74 61 69 6c | 65 64 20 62 65 6c 6f 77 |h detail|ed below|
|000008b0| 3a 2d 0a 0a 20 20 41 70 | 70 6c 69 63 61 74 69 6f |:-.. Ap|plicatio|
|000008c0| 6e 20 4e 61 6d 65 20 90 | 04 2d 20 43 6c 69 63 6b |n Name .|.- Click|
|000008d0| 20 77 69 74 68 20 74 68 | 65 20 6d 6f 75 73 65 20 | with th|e mouse |
|000008e0| 69 6e 20 74 68 69 73 20 | 69 63 6f 6e 20 74 6f 20 |in this |icon to |
|000008f0| 65 6e 74 65 72 20 69 6e | 20 61 0a 20 90 18 6e 61 |enter in| a. ..na|
|00000900| 6d 65 20 66 6f 72 20 74 | 68 65 20 61 70 70 6c 69 |me for t|he appli|
|00000910| 63 61 74 69 6f 6e 20 28 | 74 68 65 20 21 20 70 72 |cation (|the ! pr|
|00000920| 65 66 69 78 20 69 73 20 | 0a 20 90 18 61 6c 72 65 |efix is |. ..alre|
|00000930| 61 64 79 20 64 6f 6e 65 | 20 66 6f 72 20 79 6f 75 |ady done| for you|
|00000940| 29 0a 0a 20 20 21 42 6f | 6f 74 20 66 69 6c 65 20 |).. !Bo|ot file |
|00000950| 90 0a 2d 20 43 6c 69 63 | 6b 20 6f 6e 20 74 68 69 |..- Clic|k on thi|
|00000960| 73 20 6f 70 74 69 6f 6e | 20 69 63 6f 6e 20 74 6f |s option| icon to|
|00000970| 20 73 65 6c 65 63 74 20 | 77 68 65 74 68 65 72 20 | select |whether |
|00000980| 6f 72 20 6e 6f 74 0a 20 | 90 18 79 6f 75 20 72 65 |or not. |..you re|
|00000990| 71 75 69 72 65 20 61 20 | 21 42 6f 6f 74 20 66 69 |quire a |!Boot fi|
|000009a0| 6c 65 20 74 6f 20 62 65 | 20 63 72 65 61 74 65 64 |le to be| created|
|000009b0| 2e 0a 0a 20 20 21 52 75 | 6e 20 66 69 6c 65 20 90 |... !Ru|n file .|
|000009c0| 0b 2d 20 43 6c 69 63 6b | 20 6f 6e 20 74 68 69 73 |.- Click| on this|
|000009d0| 20 6f 70 74 69 6f 6e 20 | 69 63 6f 6e 20 74 6f 20 | option |icon to |
|000009e0| 73 65 6c 65 63 74 20 77 | 68 65 74 68 65 72 20 6f |select w|hether o|
|000009f0| 72 20 6e 6f 74 0a 20 90 | 18 79 6f 75 20 72 65 71 |r not. .|.you req|
|00000a00| 75 69 72 65 20 61 20 21 | 52 75 6e 20 66 69 6c 65 |uire a !|Run file|
|00000a10| 20 74 6f 20 62 65 20 63 | 72 65 61 74 65 64 2e 0a | to be c|reated..|
|00000a20| 0a 20 20 21 53 70 72 69 | 74 65 20 66 69 6c 65 20 |. !Spri|te file |
|00000a30| 90 08 2d 20 43 6c 69 63 | 6b 20 6f 6e 20 74 68 69 |..- Clic|k on thi|
|00000a40| 73 20 6f 70 74 69 6f 6e | 20 69 63 6f 6e 20 74 6f |s option| icon to|
|00000a50| 20 73 65 6c 65 63 74 20 | 77 68 65 74 68 65 72 20 | select |whether |
|00000a60| 6f 72 20 6e 6f 74 0a 20 | 90 18 79 6f 75 20 72 65 |or not. |..you re|
|00000a70| 71 75 69 72 65 20 61 20 | 6d 6f 64 65 20 31 32 20 |quire a |mode 12 |
|00000a80| 21 53 70 72 69 74 65 20 | 66 69 6c 65 20 74 6f 20 |!Sprite |file to |
|00000a90| 62 65 20 63 72 65 61 74 | 65 64 2e 0a 0a 20 20 21 |be creat|ed... !|
|00000aa0| 53 70 72 69 74 65 32 32 | 20 66 69 6c 65 20 90 06 |Sprite22| file ..|
|00000ab0| 2d 20 43 6c 69 63 6b 20 | 6f 6e 20 74 68 69 73 20 |- Click |on this |
|00000ac0| 6f 70 74 69 6f 6e 20 69 | 63 6f 6e 20 74 6f 20 73 |option i|con to s|
|00000ad0| 65 6c 65 63 74 20 77 68 | 65 74 68 65 72 20 6f 72 |elect wh|ether or|
|00000ae0| 20 6e 6f 74 0a 20 90 18 | 79 6f 75 20 72 65 71 75 | not. ..|you requ|
|00000af0| 69 72 65 20 61 20 6d 6f | 64 65 20 32 32 20 21 53 |ire a mo|de 22 !S|
|00000b00| 70 72 69 74 65 20 66 69 | 6c 65 20 74 6f 20 62 65 |prite fi|le to be|
|00000b10| 20 63 72 65 61 74 65 64 | 2e 0a 0a 20 20 54 65 78 | created|... Tex|
|00000b20| 74 20 4c 6f 67 6f 20 90 | 0b 2d 20 43 6c 69 63 6b |t Logo .|.- Click|
|00000b30| 20 6f 6e 20 74 68 69 73 | 20 6f 70 74 69 6f 6e 20 | on this| option |
|00000b40| 69 63 6f 6e 20 74 6f 20 | 73 65 6c 65 63 74 20 77 |icon to |select w|
|00000b50| 68 65 74 68 65 72 20 6f | 72 20 6e 6f 74 0a 20 90 |hether o|r not. .|
|00000b60| 18 79 6f 75 20 72 65 71 | 75 69 72 65 20 61 20 74 |.you req|uire a t|
|00000b70| 65 78 74 20 6c 6f 67 6f | 20 74 6f 20 62 65 20 69 |ext logo| to be i|
|00000b80| 6e 63 6c 75 64 65 64 20 | 69 6e 74 6f 20 79 6f 75 |ncluded |into you|
|00000b90| 72 0a 20 90 18 21 42 6f | 6f 74 20 61 6e 64 20 21 |r. ..!Bo|ot and !|
|00000ba0| 52 75 6e 20 66 69 6c 65 | 73 20 28 73 65 65 20 62 |Run file|s (see b|
|00000bb0| 65 6c 6f 77 20 66 6f 72 | 20 64 65 74 61 69 6c 73 |elow for| details|
|00000bc0| 29 2e 0a 0a 20 20 41 70 | 70 6c 69 63 61 74 69 6f |)... Ap|plicatio|
|00000bd0| 6e 20 53 69 7a 65 20 90 | 04 2d 20 43 6c 69 63 6b |n Size .|.- Click|
|00000be0| 20 69 6e 20 74 68 69 73 | 20 69 63 6f 6e 20 74 6f | in this| icon to|
|00000bf0| 20 65 6e 74 65 72 20 74 | 68 65 20 57 69 6d 70 73 | enter t|he Wimps|
|00000c00| 6c 6f 74 20 73 69 7a 65 | 20 28 69 6e 0a 20 90 18 |lot size| (in. ..|
|00000c10| 62 79 74 65 73 29 20 66 | 6f 72 20 79 6f 75 72 20 |bytes) f|or your |
|00000c20| 70 72 6f 67 72 61 6d 2e | 0a 0a 20 20 43 72 65 61 |program.|.. Crea|
|00000c30| 74 65 20 90 0e 2d 20 43 | 6c 69 63 6b 20 6f 6e 20 |te ..- C|lick on |
|00000c40| 74 68 65 20 63 72 65 61 | 74 65 20 69 63 6f 6e 20 |the crea|te icon |
|00000c50| 74 6f 20 63 72 65 61 74 | 65 20 74 68 65 20 61 70 |to creat|e the ap|
|00000c60| 70 6c 69 63 61 74 69 6f | 6e 2e 0a 0a 54 65 78 74 |plicatio|n...Text|
|00000c70| 20 4c 6f 67 6f 73 0a 49 | 66 20 79 6f 75 20 77 69 | Logos.I|f you wi|
|00000c80| 73 68 20 74 6f 20 69 6e | 63 6c 75 64 65 20 79 6f |sh to in|clude yo|
|00000c90| 75 72 20 6f 77 6e 20 74 | 65 78 74 20 6c 6f 67 6f |ur own t|ext logo|
|00000ca0| 20 69 6e 20 74 68 65 20 | 21 42 6f 6f 74 20 61 6e | in the |!Boot an|
|00000cb0| 64 20 21 52 75 6e 20 66 | 69 6c 65 73 20 79 6f 75 |d !Run f|iles you|
|00000cc0| 0a 6d 75 73 74 20 66 69 | 72 73 74 20 64 65 73 69 |.must fi|rst desi|
|00000cd0| 67 6e 20 69 74 20 61 6e | 64 20 73 61 76 65 20 69 |gn it an|d save i|
|00000ce0| 74 20 69 6e 74 6f 20 74 | 68 65 20 21 43 72 65 61 |t into t|he !Crea|
|00000cf0| 74 65 41 70 70 2e 52 65 | 73 6f 75 72 63 65 73 20 |teApp.Re|sources |
|00000d00| 64 69 72 65 63 74 6f 72 | 79 0a 61 73 20 6c 6f 67 |director|y.as log|
|00000d10| 6f 2e 20 20 46 6f 72 20 | 61 6e 20 65 78 61 6d 70 |o. For |an examp|
|00000d20| 6c 65 20 6f 66 20 61 20 | 74 65 78 74 20 6c 6f 67 |le of a |text log|
|00000d30| 6f 20 73 65 65 20 74 68 | 65 20 6c 6f 67 6f 20 64 |o see th|e logo d|
|00000d40| 65 66 61 75 6c 74 20 66 | 69 6c 65 20 69 6e 20 74 |efault f|ile in t|
|00000d50| 68 69 73 20 0a 64 69 72 | 65 63 74 6f 72 79 2e 0a |his .dir|ectory..|
|00000d60| 0a 41 70 70 6c 69 63 61 | 74 69 6f 6e 20 53 70 72 |.Applica|tion Spr|
|00000d70| 69 74 65 73 0a 49 66 20 | 79 6f 75 20 77 69 73 68 |ites.If |you wish|
|00000d80| 20 74 6f 20 68 61 76 65 | 20 79 6f 75 72 20 6f 77 | to have| your ow|
|00000d90| 6e 20 64 65 66 61 75 6c | 74 20 73 70 72 69 74 65 |n defaul|t sprite|
|00000da0| 73 20 66 6f 72 20 79 6f | 75 72 20 61 70 70 6c 69 |s for yo|ur appli|
|00000db0| 63 61 74 69 6f 6e 73 2c | 20 74 68 65 6e 20 0a 61 |cations,| then .a|
|00000dc0| 6c 74 65 72 20 74 68 65 | 20 48 69 52 65 73 20 61 |lter the| HiRes a|
|00000dd0| 6e 64 20 4c 6f 77 52 65 | 73 20 73 70 72 69 74 65 |nd LowRe|s sprite|
|00000de0| 20 66 69 6c 65 73 20 69 | 6e 20 74 68 65 20 21 43 | files i|n the !C|
|00000df0| 72 65 61 74 65 41 70 70 | 2e 52 65 73 6f 75 72 63 |reateApp|.Resourc|
|00000e00| 65 73 20 0a 64 69 72 65 | 63 74 6f 72 79 2e 0a 0a |es .dire|ctory...|
|00000e10| 46 69 6c 65 20 69 6e 63 | 6c 75 73 69 6f 6e 2e 0a |File inc|lusion..|
|00000e20| 54 68 69 73 20 61 6c 6c | 6f 77 73 20 79 6f 75 20 |This all|ows you |
|00000e30| 74 6f 20 69 6e 63 6c 75 | 64 65 20 74 65 78 74 2c |to inclu|de text,|
|00000e40| 20 74 65 6d 70 6c 61 74 | 65 2c 20 6f 62 65 79 2c | templat|e, obey,|
|00000e50| 20 73 70 72 69 74 65 20 | 61 6e 64 20 42 41 53 49 | sprite |and BASI|
|00000e60| 43 20 66 69 6c 65 73 20 | 69 6e 74 6f 0a 79 6f 75 |C files |into.you|
|00000e70| 72 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 20 64 |r applic|ations d|
|00000e80| 69 72 65 63 74 6f 72 79 | 2e 20 20 54 6f 20 69 6e |irectory|. To in|
|00000e90| 63 6c 75 64 65 20 61 20 | 66 69 6c 65 20 73 69 6d |clude a |file sim|
|00000ea0| 70 6c 79 20 64 72 61 67 | 20 69 74 20 74 6f 20 74 |ply drag| it to t|
|00000eb0| 68 65 20 61 72 72 6f 77 | 0a 69 63 6f 6e 20 61 6e |he arrow|.icon an|
|00000ec0| 64 20 21 43 72 65 61 74 | 65 41 70 70 20 77 69 6c |d !Creat|eApp wil|
|00000ed0| 6c 20 72 65 67 69 73 74 | 65 72 20 69 74 20 62 79 |l regist|er it by|
|00000ee0| 20 69 6e 63 72 65 6d 65 | 6e 74 69 6e 67 20 69 74 | increme|nting it|
|00000ef0| 73 20 63 6f 75 6e 74 65 | 72 20 69 63 6f 6e 2e 20 |s counte|r icon. |
|00000f00| 20 54 68 65 73 65 0a 66 | 69 6c 65 73 20 61 72 65 | These.f|iles are|
|00000f10| 20 74 68 65 6e 20 73 61 | 76 65 64 20 69 6e 20 74 | then sa|ved in t|
|00000f20| 68 65 20 63 72 65 61 74 | 65 64 20 64 69 72 65 63 |he creat|ed direc|
|00000f30| 74 6f 72 79 20 6c 61 74 | 65 72 2e 20 20 49 66 20 |tory lat|er. If |
|00000f40| 79 6f 75 20 69 6e 63 6c | 75 64 65 20 61 0a 52 65 |you incl|ude a.Re|
|00000f50| 6c 6f 63 61 74 61 62 6c | 65 20 4d 6f 64 75 6c 65 |locatabl|e Module|
|00000f60| 2c 20 21 43 72 65 61 74 | 65 41 70 70 20 77 69 6c |, !Creat|eApp wil|
|00000f70| 6c 20 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 20 |l automa|tically |
|00000f80| 70 75 74 20 61 20 52 4d | 45 6e 73 75 72 65 20 69 |put a RM|Ensure i|
|00000f90| 6e 20 79 6f 75 72 0a 21 | 52 75 6e 20 66 69 6c 65 |n your.!|Run file|
|00000fa0| 20 28 69 66 20 74 68 65 | 20 21 52 75 6e 20 66 69 | (if the| !Run fi|
|00000fb0| 6c 65 20 69 73 20 73 65 | 6c 65 63 74 65 64 29 2e |le is se|lected).|
|00000fc0| 20 20 54 68 69 73 20 77 | 69 6c 6c 20 65 6e 73 75 | This w|ill ensu|
|00000fd0| 72 65 20 74 68 61 74 20 | 74 68 65 20 6d 6f 64 75 |re that |the modu|
|00000fe0| 6c 65 0a 69 73 20 6c 6f | 61 64 65 64 20 77 68 65 |le.is lo|aded whe|
|00000ff0| 6e 20 74 68 65 20 61 70 | 70 6c 69 63 61 74 69 6f |n the ap|plicatio|
|00001000| 6e 20 69 73 20 72 75 6e | 2e 20 0a 0a 54 68 69 73 |n is run|. ..This|
|00001010| 20 6f 70 74 69 6f 6e 20 | 61 6c 73 6f 20 61 6c 6c | option |also all|
|00001020| 6f 77 73 20 79 6f 75 20 | 74 6f 20 6c 6f 61 64 20 |ows you |to load |
|00001030| 69 6e 20 66 69 6c 65 73 | 20 74 6f 20 74 61 6b 65 |in files| to take|
|00001040| 20 74 68 65 20 70 6c 61 | 63 65 20 6f 66 20 61 6e | the pla|ce of an|
|00001050| 79 20 6f 66 20 74 68 65 | 0a 64 65 66 61 75 6c 74 |y of the|.default|
|00001060| 20 66 69 6c 65 73 20 74 | 68 61 74 20 61 72 65 20 | files t|hat are |
|00001070| 70 72 6f 64 75 63 65 64 | 2e 20 90 07 0a 0a 49 66 |produced|. ....If|
|00001080| 20 79 6f 75 20 6d 61 6b | 65 20 61 20 6d 69 73 74 | you mak|e a mist|
|00001090| 61 6b 65 20 61 6e 64 20 | 64 72 61 67 20 74 68 65 |ake and |drag the|
|000010a0| 20 77 72 6f 6e 67 20 69 | 63 6f 6e 20 74 6f 20 74 | wrong i|con to t|
|000010b0| 68 65 20 69 6e 63 6c 75 | 73 69 6f 6e 20 61 72 72 |he inclu|sion arr|
|000010c0| 6f 77 2c 20 73 69 6d 70 | 6c 79 20 0a 63 6c 69 63 |ow, simp|ly .clic|
|000010d0| 6b 20 6f 6e 20 43 4c 45 | 41 52 20 74 6f 20 64 65 |k on CLE|AR to de|
|000010e0| 6c 65 74 65 20 61 6c 6c | 20 74 68 65 20 6c 61 73 |lete all| the las|
|000010f0| 74 20 65 6e 74 72 79 2e | 0a 0a 43 72 65 61 74 69 |t entry.|..Creati|
|00001100| 6e 67 20 61 6e 20 61 70 | 70 6c 69 63 61 74 69 6f |ng an ap|plicatio|
|00001110| 6e 2e 0a 4f 6e 63 65 20 | 79 6f 75 20 68 61 76 65 |n..Once |you have|
|00001120| 20 73 65 74 20 79 6f 75 | 72 20 72 65 71 75 69 72 | set you|r requir|
|00001130| 65 64 20 6f 70 74 69 6f | 6e 73 2c 20 63 6c 69 63 |ed optio|ns, clic|
|00001140| 6b 20 6f 6e 20 74 68 65 | 20 63 72 65 61 74 65 20 |k on the| create |
|00001150| 69 63 6f 6e 20 74 6f 20 | 0a 70 72 6f 64 75 63 65 |icon to |.produce|
|00001160| 20 61 20 64 72 61 67 20 | 62 6f 78 2e 20 20 44 72 | a drag |box. Dr|
|00001170| 61 67 20 74 68 65 20 69 | 63 6f 6e 20 28 62 79 20 |ag the i|con (by |
|00001180| 75 73 69 6e 67 20 74 68 | 65 20 73 65 6c 65 63 74 |using th|e select|
|00001190| 20 62 75 74 74 6f 6e 29 | 20 74 6f 20 74 68 65 20 | button)| to the |
|000011a0| 0a 72 65 71 75 69 72 65 | 64 20 64 69 72 65 63 74 |.require|d direct|
|000011b0| 6f 72 79 2c 20 74 68 65 | 20 66 69 6c 65 73 20 77 |ory, the| files w|
|000011c0| 69 6c 6c 20 74 68 65 6e | 20 62 65 20 61 75 74 6f |ill then| be auto|
|000011d0| 6d 61 74 69 63 61 6c 6c | 79 20 73 61 76 65 64 2e |maticall|y saved.|
|000011e0| 0a 0a 2d 90 4c 0a 0a 47 | 72 65 65 74 69 6e 67 73 |..-.L..G|reetings|
|000011f0| 20 61 6e 64 20 74 68 61 | 6e 6b 73 20 74 6f 20 3a | and tha|nks to :|
|00001200| 0a 0a 20 90 03 52 69 63 | 68 61 72 64 20 53 74 61 |.. ..Ric|hard Sta|
|00001210| 67 67 20 90 03 2d 20 46 | 6f 72 20 74 68 65 20 6f |gg ..- F|or the o|
|00001220| 72 69 67 69 6e 61 6c 20 | 64 72 61 67 20 62 6f 78 |riginal |drag box|
|00001230| 20 72 6f 75 74 69 6e 65 | 73 20 61 6e 64 20 76 61 | routine|s and va|
|00001240| 72 69 6f 75 73 20 6f 74 | 68 65 72 0a 20 90 15 62 |rious ot|her. ..b|
|00001250| 69 74 73 21 0a 20 90 03 | 43 61 72 6f 6c 69 6e 65 |its!. ..|Caroline|
|00001260| 20 4b 65 6c 68 61 6d 20 | 2d 20 46 6f 72 20 62 65 | Kelham |- For be|
|00001270| 69 6e 67 20 74 68 65 72 | 65 21 0a 20 90 03 43 6c |ing ther|e!. ..Cl|
|00001280| 61 69 72 65 20 53 74 61 | 67 67 20 90 04 2d 20 46 |aire Sta|gg ..- F|
|00001290| 6f 72 20 65 6e 64 6c 65 | 73 73 20 68 6f 75 72 73 |or endle|ss hours|
|000012a0| 20 6f 66 20 61 6d 75 73 | 65 6d 65 6e 74 2e 90 03 | of amus|ement...|
|000012b0| 0a 20 90 03 4d 61 75 72 | 65 65 6e 20 53 74 61 67 |. ..Maur|een Stag|
|000012c0| 67 20 90 03 2d 20 46 6f | 72 20 74 68 65 20 63 6f |g ..- Fo|r the co|
|000012d0| 6e 73 74 61 6e 74 20 66 | 6c 6f 77 20 6f 66 20 74 |nstant f|low of t|
|000012e0| 65 61 2e 0a 0a 2d 90 4c | 0a 20 20 0a 49 66 20 79 |ea...-.L|. .If y|
|000012f0| 6f 75 20 77 6f 75 6c 64 | 20 6c 69 6b 65 20 74 6f |ou would| like to|
|00001300| 20 6d 61 6b 65 20 61 6e | 79 20 63 6f 6d 6d 65 6e | make an|y commen|
|00001310| 74 73 20 61 62 6f 75 74 | 20 74 68 69 73 20 70 72 |ts about| this pr|
|00001320| 6f 67 72 61 6d 20 6f 72 | 20 73 75 67 67 65 73 74 |ogram or| suggest|
|00001330| 69 6f 6e 73 0a 66 6f 72 | 20 69 6d 70 72 6f 76 65 |ions.for| improve|
|00001340| 6d 65 6e 74 20 63 6f 6e | 74 61 63 74 20 6d 65 20 |ment con|tact me |
|00001350| 6f 6e 20 3a 2d 0a 0a 54 | 68 65 20 50 6f 77 65 72 |on :-..T|he Power|
|00001360| 20 48 6f 75 73 65 20 42 | 42 53 20 28 61 73 20 53 | House B|BS (as S|
|00001370| 69 6d 6f 6e 20 49 6e 6e | 73 29 20 6f 6e 20 30 38 |imon Inn|s) on 08|
|00001380| 32 39 20 37 38 32 36 36 | 37 20 28 65 78 63 65 6c |29 78266|7 (excel|
|00001390| 6c 65 6e 74 20 42 42 53 | 21 29 0a 4a 41 4e 45 54 |lent BBS|!).JANET|
|000013a0| 20 90 05 49 4e 4e 53 5f | 43 30 36 40 55 4b 2e 41 | ..INNS_|C06@UK.A|
|000013b0| 43 2e 54 56 55 2e 53 0a | 0a 6f 72 20 77 72 69 74 |C.TVU.S.|.or writ|
|000013c0| 65 20 74 6f 20 6d 65 20 | 61 74 20 3a 2d 0a 0a 52 |e to me |at :-..R|
|000013d0| 65 73 6f 75 72 63 65 20 | 54 65 63 68 6e 6f 6c 6f |esource |Technolo|
|000013e0| 67 79 0a 31 36 20 52 65 | 63 74 6f 72 79 20 52 6f |gy.16 Re|ctory Ro|
|000013f0| 61 64 0a 20 90 03 43 61 | 76 65 72 73 68 61 6d 0a |ad. ..Ca|versham.|
|00001400| 20 90 03 52 65 61 64 69 | 6e 67 0a 20 90 03 42 65 | ..Readi|ng. ..Be|
|00001410| 72 6b 73 68 69 72 65 0a | 20 90 03 52 47 34 20 37 |rkshire.| ..RG4 7|
|00001420| 53 48 46 69 6c 65 44 61 | 74 61 83 21 52 75 6e 00 |SHFileDa|ta.!Run.|
|00001430| 00 b2 00 90 03 5c 49 01 | 00 00 44 eb ff ff 27 8b |.....\I.|..D...'.|
|00001440| ab 61 03 00 13 a3 7c 20 | 21 52 75 6e 20 66 69 6c |.a....| |!Run fil|
|00001450| 65 20 66 6f 72 20 21 43 | 72 65 61 74 65 41 70 70 |e for !C|reateApp|
|00001460| 0a 57 69 6d 70 53 6c 6f | 74 20 2d 6d 69 6e 20 36 |.WimpSlo|t -min 6|
|00001470| 34 4b 20 2d 6d 61 78 20 | 36 34 4b 0a 49 63 6f 6e |4K -max |64K.Icon|
|00001480| 53 70 72 69 74 65 73 20 | 3c 4f 62 65 79 24 44 69 |Sprites |<Obey$Di|
|00001490| 72 3e 2e 21 53 70 72 69 | 74 65 73 0a 53 65 74 20 |r>.!Spri|tes.Set |
|000014a0| 43 72 65 61 74 65 41 70 | 70 24 44 69 72 20 3c 4f |CreateAp|p$Dir <O|
|000014b0| 62 65 79 24 44 69 72 3e | 0a 52 75 6e 20 3c 43 72 |bey$Dir>|.Run <Cr|
|000014c0| 65 61 74 65 41 70 70 24 | 44 69 72 3e 2e 21 52 75 |eateApp$|Dir>.!Ru|
|000014d0| 6e 49 6d 61 67 65 0a 0a | 2a 7c 20 41 6e 6f 74 68 |nImage..|*| Anoth|
|000014e0| 65 72 0a 2a 7c 20 90 04 | 5f 90 24 0a 2a 7c 20 90 |er.*| ..|_.$.*| .|
|000014f0| 03 2f 5f 5f 20 20 2c 20 | 5f 90 04 20 20 5f 5f 20 |./__ , |_.. __ |
|00001500| 20 5f 5f 20 90 03 2f 20 | 5f 5f 20 20 5f 5f 20 20 | __ ../ |__ __ |
|00001510| 5f 5f 0a 2a 7c 20 90 03 | 5f 5f 2f 20 2f 20 2f 20 |__.*| ..|__/ / / |
|00001520| 2f 20 2f 20 2f 5f 2f 20 | 2f 20 2f 20 20 2f 20 2f |/ / /_/ |/ / / /|
|00001530| 20 2f 20 2f 20 2f 20 5f | 5c 0a 2a 7c 0a 2a 7c 20 | / / / _|\.*|.*| |
|00001540| 90 23 50 72 6f 64 75 63 | 74 69 6f 6e 46 69 6c 65 |.#Produc|tionFile|
|00001550| 44 61 74 61 83 21 52 75 | 6e 49 6d 61 67 65 00 5c |Data.!Ru|nImage.\|
|00001560| a7 68 00 00 47 fd ff ff | de 62 24 9c 03 00 00 00 |.h..G...|.b$.....|
|00001570| 0d 00 0a 20 f4 20 3e 3c | 43 72 65 61 74 65 41 70 |... . ><|CreateAp|
|00001580| 70 24 44 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |p$Dir>.!|RunImage|
|00001590| 0d 00 14 05 3a 0d 00 1e | 2e f4 20 2a 90 28 0d 00 |....:...|.. *.(..|
|000015a0| 28 2e f4 20 2a 2a 20 90 | 08 43 72 65 61 74 65 20 |(.. ** .|.Create |
|000015b0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 90 0a 2a 2a |Applicat|ion ..**|
|000015c0| 0d 00 32 2e f4 20 2a 2a | 20 90 0f 56 31 2e 37 31 |..2.. **| ..V1.71|
|000015d0| 20 90 10 2a 2a 0d 00 3c | 2e f4 20 2a 2a 20 90 0b | ..**..<|.. ** ..|
|000015e0| 42 79 20 53 69 6d 6f 6e | 20 49 6e 6e 73 20 90 0c |By Simon| Inns ..|
|000015f0| 2a 2a 0d 00 46 2e f4 20 | 2a 90 28 0d 00 50 05 3a |**..F.. |*.(..P.:|
|00001600| 0d 00 5a 0e f4 20 20 41 | 6e 6f 74 68 65 72 0d 00 |..Z.. A|nother..|
|00001610| 64 30 f4 20 90 07 5f 90 | 24 0d 00 6e 2d f4 20 90 |d0. .._.|$..n-. .|
|00001620| 06 2f 5f 5f 20 20 2c 20 | 5f 90 04 20 20 5f 5f 20 |./__ , |_.. __ |
|00001630| 20 5f 5f 20 90 03 2f 20 | 5f 5f 20 20 5f 5f 20 20 | __ ../ |__ __ |
|00001640| 5f 5f 0d 00 78 2c f4 20 | 90 06 5f 5f 2f 20 2f 20 |__..x,. |..__/ / |
|00001650| 2f 20 2f 20 2f 20 2f 5f | 2f 20 2f 20 2f 20 20 2f |/ / / /_|/ / / /|
|00001660| 20 2f 20 2f 20 2f 20 2f | 20 5f 5c 0d 00 82 05 f4 | / / / /| _\.....|
|00001670| 0d 00 8c 34 f4 20 90 25 | 50 72 6f 64 75 63 74 69 |...4. .%|Producti|
|00001680| 6f 6e 0d 00 96 05 3a 0d | 00 a0 36 f4 20 2d 90 12 |on....:.|..6. -..|
|00001690| 20 49 6e 69 74 69 61 6c | 69 73 65 20 2d 90 12 0d | Initial|ise -...|
|000016a0| 00 aa 05 3a 0d 00 b4 20 | f4 20 2a 2a 20 53 65 74 |...:... |. ** Set|
|000016b0| 20 75 70 20 74 68 65 20 | 76 61 72 69 61 62 6c 65 | up the |variable|
|000016c0| 73 20 2a 2a 0d 00 be 28 | 74 61 73 6b 5f 6e 61 6d |s **...(|task_nam|
|000016d0| 65 24 20 90 03 3d 20 22 | 41 70 70 6c 69 63 61 74 |e$ ..= "|Applicat|
|000016e0| 69 6f 6e 20 43 72 65 61 | 74 6f 72 22 0d 00 c8 27 |ion Crea|tor"...'|
|000016f0| 76 65 72 73 69 6f 6e 24 | 20 90 05 3d 20 22 31 2e |version$| ..= "1.|
|00001700| 37 31 20 28 32 37 20 4a | 61 6e 20 31 39 39 33 29 |71 (27 J|an 1993)|
|00001710| 22 0d 00 d2 2c 64 65 73 | 63 72 69 70 74 69 6f 6e |"...,des|cription|
|00001720| 24 20 3d 20 22 53 65 74 | 73 20 75 70 20 41 70 70 |$ = "Set|s up App|
|00001730| 20 64 69 72 65 63 74 6f | 72 69 65 73 22 0d 00 dc | directo|ries"...|
|00001740| 24 64 69 72 65 63 74 6f | 72 79 24 20 90 03 3d 20 |$directo|ry$ ..= |
|00001750| 22 3c 43 72 65 61 74 65 | 41 70 70 24 44 69 72 3e |"<Create|App$Dir>|
|00001760| 22 0d 00 e6 1f 66 69 6c | 65 5f 6e 61 6d 65 24 20 |"....fil|e_name$ |
|00001770| 90 03 3d 20 22 21 43 72 | 65 61 74 65 41 70 70 22 |..= "!Cr|eateApp"|
|00001780| 0d 00 f0 05 3a 0d 00 fa | 20 f4 20 2a 2a 20 53 65 |....:...| . ** Se|
|00001790| 74 20 75 70 20 65 72 72 | 6f 72 20 68 61 6e 64 6c |t up err|or handl|
|000017a0| 65 72 20 2a 2a 0d 01 04 | 21 ee 20 85 20 f2 65 72 |er **...|!. . .er|
|000017b0| 72 6f 72 28 74 61 73 6b | 5f 6e 61 6d 65 24 2c 20 |ror(task|_name$, |
|000017c0| 30 2c 20 22 22 29 0d 01 | 0e 05 3a 0d 01 18 26 f4 |0, "")..|..:...&.|
|000017d0| 20 2a 2a 20 44 65 66 69 | 6e 65 20 67 65 6e 65 72 | ** Defi|ne gener|
|000017e0| 61 6c 20 64 61 74 61 20 | 62 6c 6f 63 6b 73 20 2a |al data |blocks *|
|000017f0| 2a 0d 01 22 1d de 20 62 | 6c 6f 63 6b 25 20 35 31 |*..".. b|lock% 51|
|00001800| 32 2c 20 62 75 66 66 65 | 72 25 20 35 31 32 0d 01 |2, buffe|r% 512..|
|00001810| 2c 15 de 20 74 20 34 20 | 3a 20 24 74 3d 22 54 41 |,.. t 4 |: $t="TA|
|00001820| 53 4b 22 0d 01 36 05 3a | 0d 01 40 1b f4 20 2a 2a |SK"..6.:|..@.. **|
|00001830| 20 49 6e 69 74 69 61 6c | 69 73 65 20 74 61 73 6b | Initial|ise task|
|00001840| 20 2a 2a 0d 01 4a 3c c8 | 99 20 22 57 69 6d 70 5f | **..J<.|. "Wimp_|
|00001850| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00001860| 20 21 74 2c 20 74 61 73 | 6b 5f 6e 61 6d 65 24 20 | !t, tas|k_name$ |
|00001870| b8 20 2c 74 61 73 6b 5f | 68 61 6e 64 6c 65 25 0d |. ,task_|handle%.|
|00001880| 01 54 05 3a 0d 01 5e 41 | f4 20 2d 90 14 20 4c 6f |.T.:..^A|. -.. Lo|
|00001890| 61 64 20 54 65 6d 70 6c | 61 74 65 73 20 2d 90 17 |ad Templ|ates -..|
|000018a0| 0d 01 68 05 3a 0d 01 72 | 2b f4 20 2a 2a 20 4c 6f |..h.:..r|+. ** Lo|
|000018b0| 61 64 20 77 69 6e 64 6f | 77 73 20 66 72 6f 6d 20 |ad windo|ws from |
|000018c0| 54 65 6d 70 6c 61 74 65 | 20 46 69 6c 65 20 2a 2a |Template| File **|
|000018d0| 0d 01 7c 19 de 20 74 65 | 6d 70 5f 62 75 66 25 20 |..|.. te|mp_buf% |
|000018e0| 20 31 30 32 34 20 2a 20 | 34 0d 01 86 19 de 20 69 | 1024 * |4..... i|
|000018f0| 6e 64 69 72 5f 62 75 66 | 25 20 31 30 32 34 20 2a |ndir_buf|% 1024 *|
|00001900| 20 34 0d 01 90 00 19 de | 20 74 65 6d 70 62 6c 6f | 4......| tempblo|
|00001910| 63 6b 25 20 31 30 32 34 | 20 2a 20 34 0d 01 9a 05 |ck% 1024| * 4....|
|00001920| 3a 0d 01 a4 22 f4 20 2a | 2a 20 4f 70 65 6e 20 74 |:...". *|* Open t|
|00001930| 68 65 20 74 65 6d 70 6c | 61 74 65 20 66 69 6c 65 |he templ|ate file|
|00001940| 20 2a 2a 0d 01 ae 36 c8 | 99 20 22 57 69 6d 70 5f | **...6.|. "Wimp_|
|00001950| 4f 70 65 6e 54 65 6d 70 | 6c 61 74 65 22 2c 2c 20 |OpenTemp|late",, |
|00001960| 64 69 72 65 63 74 6f 72 | 79 24 20 2b 20 22 2e 54 |director|y$ + ".T|
|00001970| 65 6d 70 6c 61 74 65 73 | 22 0d 01 b8 05 3a 0d 01 |emplates|"....:..|
|00001980| c2 42 f4 20 2a 2a 20 47 | 65 74 20 74 68 65 20 77 |.B. ** G|et the w|
|00001990| 69 6e 64 6f 77 20 64 65 | 74 61 69 6c 73 20 61 6e |indow de|tails an|
|000019a0| 64 20 69 6e 69 74 69 61 | 6c 69 73 65 20 74 68 65 |d initia|lise the|
|000019b0| 20 68 61 6e 64 6c 65 20 | 61 72 72 61 79 20 2a 2a | handle |array **|
|000019c0| 0d 01 cc 05 f7 0d 01 d6 | 0f 6f 66 66 73 65 74 25 |........|.offset%|
|000019d0| 20 3d 20 30 0d 01 e0 15 | f3 20 6e 75 6d 62 65 72 | = 0....|. number|
|000019e0| 5f 77 69 6e 64 6f 77 73 | 25 0d 01 ea 1e de 20 68 |_windows|%..... h|
|000019f0| 61 6e 64 6c 65 25 28 6e | 75 6d 62 65 72 5f 77 69 |andle%(n|umber_wi|
|00001a00| 6e 64 6f 77 73 25 29 0d | 01 f4 05 3a 0d 01 fe 23 |ndows%).|...:...#|
|00001a10| f4 20 2a 2a 20 52 65 61 | 64 20 74 68 65 20 77 69 |. ** Rea|d the wi|
|00001a20| 6e 64 6f 77 20 64 65 74 | 61 69 6c 73 20 2a 2a 0d |ndow det|ails **.|
|00001a30| 02 08 24 e3 20 63 6f 75 | 6e 74 65 72 25 20 3d 20 |..$. cou|nter% = |
|00001a40| 31 20 b8 20 6e 75 6d 62 | 65 72 5f 77 69 6e 64 6f |1 . numb|er_windo|
|00001a50| 77 73 25 0d 02 12 20 90 | 03 f3 20 77 69 6e 5f 6e |ws%... .|.. win_n|
|00001a60| 61 6d 65 24 2c 20 62 6c | 6f 63 6b 5f 6c 65 6e 67 |ame$, bl|ock_leng|
|00001a70| 74 68 25 0d 02 1c 92 20 | 20 c8 99 20 22 57 69 6d |th%.... | .. "Wim|
|00001a80| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00001a90| 2c 20 74 65 6d 70 5f 62 | 75 66 25 2c 20 69 6e 64 |, temp_b|uf%, ind|
|00001aa0| 69 72 5f 62 75 66 25 20 | 2b 20 6f 66 66 73 65 74 |ir_buf% |+ offset|
|00001ab0| 25 2c 20 69 6e 64 69 72 | 5f 62 75 66 25 20 2b 20 |%, indir|_buf% + |
|00001ac0| 6f 66 66 73 65 74 25 20 | 2b 20 62 6c 6f 63 6b 5f |offset% |+ block_|
|00001ad0| 6c 65 6e 67 74 68 25 2c | 20 2d 31 2c 20 90 1d 77 |length%,| -1, ..w|
|00001ae0| 69 6e 5f 6e 61 6d 65 24 | 2c 20 30 0d 02 26 3b 20 |in_name$|, 0..&; |
|00001af0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00001b00| 57 69 6e 64 6f 77 22 2c | 2c 74 65 6d 70 5f 62 75 |Window",|,temp_bu|
|00001b10| 66 25 20 b8 20 68 61 6e | 64 6c 65 25 28 63 6f 75 |f% . han|dle%(cou|
|00001b20| 6e 74 65 72 25 29 0d 02 | 30 1e 20 20 6f 66 66 73 |nter%)..|0. offs|
|00001b30| 65 74 25 20 2b 3d 20 62 | 6c 6f 63 6b 5f 6c 65 6e |et% += b|lock_len|
|00001b40| 67 74 68 25 0d 02 3a 05 | ed 0d 02 44 05 3a 0d 02 |gth%..:.|...D.:..|
|00001b50| 4e 23 f4 20 2a 2a 20 43 | 6c 6f 73 65 20 74 68 65 |N#. ** C|lose the|
|00001b60| 20 74 65 6d 70 6c 61 74 | 65 20 66 69 6c 65 20 2a | templat|e file *|
|00001b70| 2a 0d 02 58 1b c8 99 20 | 22 57 69 6d 70 5f 43 6c |*..X... |"Wimp_Cl|
|00001b80| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 02 62 05 |oseTempl|ate"..b.|
|00001b90| 3a 0d 02 6c 1e f4 20 2a | 2a 20 57 69 6e 64 6f 77 |:..l.. *|* Window|
|00001ba0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 2a 2a 0d | informa|tion **.|
|00001bb0| 02 76 07 dc 20 33 0d 02 | 80 23 dc 20 49 6e 66 6f |.v.. 3..|.#. Info|
|00001bc0| 2c 32 35 36 2c 20 4d 61 | 69 6e 2c 31 30 32 34 2c |,256, Ma|in,1024,|
|00001bd0| 20 53 61 76 65 2c 32 35 | 36 0d 02 8a 05 3a 0d 02 | Save,25|6....:..|
|00001be0| 94 16 f4 20 2a 2a 20 57 | 69 6e 64 6f 77 20 49 44 |... ** W|indow ID|
|00001bf0| 73 20 2a 2a 0d 02 9e 22 | 49 6e 66 6f 20 3d 20 31 |s **..."|Info = 1|
|00001c00| 20 3a 20 4d 61 69 6e 20 | 3d 20 32 20 3a 20 53 61 | : Main |= 2 : Sa|
|00001c10| 76 65 20 3d 20 33 0d 02 | a8 05 3a 0d 02 b2 36 f4 |ve = 3..|..:...6.|
|00001c20| 20 2a 2a 20 46 69 6c 6c | 20 69 6e 20 61 6c 6c 20 | ** Fill| in all |
|00001c30| 74 68 65 20 64 65 74 61 | 69 6c 73 20 69 6e 20 74 |the deta|ils in t|
|00001c40| 68 65 20 69 6e 66 6f 20 | 77 69 6e 64 6f 77 20 2a |he info |window *|
|00001c50| 2a 0d 02 bc 6b f2 66 69 | 6c 6c 5f 69 6e 66 6f 28 |*...k.fi|ll_info(|
|00001c60| 68 61 6e 64 6c 65 25 28 | 49 6e 66 6f 29 2c 20 74 |handle%(|Info), t|
|00001c70| 61 73 6b 5f 6e 61 6d 65 | 24 2c 20 64 65 73 63 72 |ask_name|$, descr|
|00001c80| 69 70 74 69 6f 6e 24 2c | 20 22 53 69 6d 6f 6e 20 |iption$,| "Simon |
|00001c90| 49 6e 6e 73 22 2c 20 76 | 65 72 73 69 6f 6e 24 2c |Inns", v|ersion$,|
|00001ca0| 20 22 54 68 61 6e 6b 73 | 3a 22 2c 20 22 52 69 63 | "Thanks|:", "Ric|
|00001cb0| 68 61 72 64 20 53 74 61 | 67 67 22 29 0d 02 c6 05 |hard Sta|gg")....|
|00001cc0| 3a 0d 02 d0 40 f4 20 2a | 2a 20 54 61 6b 65 20 69 |:...@. *|* Take i|
|00001cd0| 63 6f 6e 20 66 72 6f 6d | 20 73 70 72 69 74 65 20 |con from| sprite |
|00001ce0| 70 6f 6f 6c 20 61 6e 64 | 20 70 6c 61 63 65 20 6f |pool and| place o|
|00001cf0| 6e 20 74 68 65 20 69 63 | 6f 6e 20 62 61 72 20 2a |n the ic|on bar *|
|00001d00| 2a 0d 02 da 13 de 20 73 | 70 72 69 74 65 6e 61 6d |*..... s|pritenam|
|00001d10| 65 20 31 33 0d 02 e4 54 | 69 63 6f 6e 62 61 72 25 |e 13...T|iconbar%|
|00001d20| 20 3d 20 a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 | = .crea|te_icon(|
|00001d30| 2d 31 2c 20 30 2c 20 30 | 2c 20 36 38 2c 20 36 38 |-1, 0, 0|, 68, 68|
|00001d40| 2c 20 26 31 37 30 30 32 | 31 33 41 2c 20 66 69 6c |, &17002|13A, fil|
|00001d50| 65 5f 6e 61 6d 65 24 2c | 20 73 70 72 69 74 65 6e |e_name$,| spriten|
|00001d60| 61 6d 65 2c 20 31 32 29 | 0d 02 ee 05 3a 0d 02 f8 |ame, 12)|....:...|
|00001d70| 25 f4 20 2a 2a 20 4e 6f | 77 20 73 65 74 20 75 70 |%. ** No|w set up|
|00001d80| 20 74 68 65 20 6d 65 6e | 75 20 69 74 65 6d 73 20 | the men|u items |
|00001d90| 2a 2a 0d 03 02 10 de 20 | 6c 69 6e 6b 73 25 28 31 |**..... |links%(1|
|00001da0| 30 29 0d 03 0c 1c de 20 | 69 63 6f 6e 62 61 72 6d |0)..... |iconbarm|
|00001db0| 65 6e 75 5f 62 6c 6f 63 | 6b 25 20 32 35 36 0d 03 |enu_bloc|k% 256..|
|00001dc0| 16 14 6d 65 6e 75 5f 68 | 65 69 67 68 74 25 20 3d |..menu_h|eight% =|
|00001dd0| 20 30 0d 03 20 1d 6c 69 | 6e 6b 73 25 28 31 29 20 | 0.. .li|nks%(1) |
|00001de0| 3d 20 68 61 6e 64 6c 65 | 25 28 49 6e 66 6f 29 0d |= handle|%(Info).|
|00001df0| 03 2a 60 f2 64 65 66 69 | 6e 65 5f 6d 65 6e 75 5f |.*`.defi|ne_menu_|
|00001e00| 62 6c 6f 63 6b 28 22 43 | 72 65 61 74 65 41 70 70 |block("C|reateApp|
|00001e10| a4 49 6e 66 6f a4 6e 4c | a4 51 75 69 74 a4 4e 4e |.Info.nL|.Quit.NN|
|00001e20| a4 22 2c 20 6c 69 6e 6b | 73 25 28 29 2c 20 69 63 |.", link|s%(), ic|
|00001e30| 6f 6e 62 61 72 6d 65 6e | 75 5f 62 6c 6f 63 6b 25 |onbarmen|u_block%|
|00001e40| 2c 20 6d 65 6e 75 5f 68 | 65 69 67 68 74 25 29 0d |, menu_h|eight%).|
|00001e50| 03 34 05 3a 0d 03 3e 1b | f4 20 2a 2a 20 4f 74 68 |.4.:..>.|. ** Oth|
|00001e60| 65 72 20 76 61 72 69 61 | 62 6c 65 73 20 2a 2a 0d |er varia|bles **.|
|00001e70| 03 48 13 69 63 6f 6e 5f | 73 74 61 74 65 25 20 3d |.H.icon_|state% =|
|00001e80| 20 30 0d 03 52 1a de 20 | 63 72 65 61 74 69 6f 6e | 0..R.. |creation|
|00001e90| 5f 64 65 74 61 69 6c 73 | 25 28 36 29 0d 03 5c 19 |_details|%(6)..\.|
|00001ea0| de 20 73 70 72 69 74 65 | 5f 62 6c 6f 63 6b 25 20 |. sprite|_block% |
|00001eb0| 26 31 34 30 30 0d 03 66 | 05 3a 0d 03 70 14 de 20 |&1400..f|.:..p.. |
|00001ec0| 69 6e 63 6c 75 73 69 6f | 6e 24 28 39 39 29 0d 03 |inclusio|n$(99)..|
|00001ed0| 7a 15 de 20 66 69 6c 65 | 5f 74 79 70 65 73 25 28 |z.. file|_types%(|
|00001ee0| 39 39 29 0d 03 84 15 69 | 6e 63 6c 75 73 69 6f 6e |99)....i|nclusion|
|00001ef0| 5f 6e 6f 25 20 3d 20 30 | 0d 03 8e 05 3a 0d 03 98 |_no% = 0|....:...|
|00001f00| 0f 61 72 72 67 67 68 25 | 20 3d 20 a3 0d 03 a2 05 |.arrggh%| = .....|
|00001f10| 3a 0d 03 ac 38 f4 20 2d | 90 12 20 50 72 6f 67 72 |:...8. -|.. Progr|
|00001f20| 61 6d 20 43 6f 72 65 20 | 2d 90 12 0d 03 b6 05 3a |am Core |-......:|
|00001f30| 0d 03 c0 0c 71 75 69 74 | 20 3d 20 a3 0d 03 ca 20 |....quit| = .... |
|00001f40| f4 20 2a 2a 20 53 65 74 | 20 75 70 20 65 72 72 6f |. ** Set| up erro|
|00001f50| 72 20 68 61 6e 64 6c 65 | 72 20 2a 2a 0d 03 d4 21 |r handle|r **...!|
|00001f60| ee 20 85 20 f2 65 72 72 | 6f 72 28 74 61 73 6b 5f |. . .err|or(task_|
|00001f70| 6e 61 6d 65 24 2c 20 30 | 2c 20 22 22 29 0d 03 de |name$, 0|, "")...|
|00001f80| 05 3a 0d 03 e8 05 f5 0d | 03 f2 0b 20 20 f2 70 6f |.:......|... .po|
|00001f90| 6c 6c 0d 03 fc 0a fd 20 | 71 75 69 74 0d 04 06 05 |ll..... |quit....|
|00001fa0| 3a 0d 04 10 30 f4 20 2d | 90 12 20 51 75 69 74 20 |:...0. -|.. Quit |
|00001fb0| 2d 90 12 0d 04 1a 05 3a | 0d 04 24 1f f4 20 2a 2a |-......:|..$.. **|
|00001fc0| 20 43 6c 6f 73 65 20 64 | 6f 77 6e 20 74 68 65 20 | Close d|own the |
|00001fd0| 74 61 73 6b 20 2a 2a 0d | 04 2e 28 c8 99 20 22 57 |task **.|..(.. "W|
|00001fe0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 74 |imp_Clos|eDown",t|
|00001ff0| 61 73 6b 5f 68 61 6e 64 | 6c 65 25 2c 20 21 74 0d |ask_hand|le%, !t.|
|00002000| 04 38 05 e0 0d 04 42 05 | 3a 0d 04 4c 38 f4 20 2d |.8....B.|:..L8. -|
|00002010| 90 12 20 50 72 6f 63 65 | 64 75 72 65 73 20 2d 90 |.. Proce|dures -.|
|00002020| 14 0d 04 56 05 3a 0d 04 | 60 32 f4 20 2a 2a 20 4e |...V.:..|`2. ** N|
|00002030| 6f 77 20 66 6f 6c 6c 6f | 77 73 20 74 68 65 20 6d |ow follo|ws the m|
|00002040| 61 69 6e 20 57 49 4d 50 | 20 70 6f 6c 6c 69 6e 67 |ain WIMP| polling|
|00002050| 20 6c 6f 6f 70 20 2a 2a | 0d 04 6a 0b dd 20 f2 70 | loop **|..j.. .p|
|00002060| 6f 6c 6c 0d 04 74 05 3a | 0d 04 7e 17 f4 20 2a 2a |oll..t.:|..~.. **|
|00002070| 20 53 65 74 20 75 70 20 | 6d 61 73 6b 20 2a 2a 0d | Set up |mask **.|
|00002080| 04 88 0e 6d 61 73 6b 25 | 20 3d 20 25 31 0d 04 92 |...mask%| = %1...|
|00002090| 05 3a 0d 04 9c 2b f4 20 | 2a 2a 20 46 69 6e 64 20 |.:...+. |** Find |
|000020a0| 6f 75 74 20 77 68 61 74 | 20 74 68 65 20 75 73 65 |out what| the use|
|000020b0| 72 20 69 73 20 64 6f 69 | 6e 67 20 2a 2a 0d 04 a6 |r is doi|ng **...|
|000020c0| 2f c8 99 20 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |/.. "Wim|p_Poll",|
|000020d0| 6d 61 73 6b 25 2c 20 62 | 6c 6f 63 6b 25 20 b8 20 |mask%, b|lock% . |
|000020e0| 72 65 61 73 6f 6e 5f 63 | 6f 64 65 25 0d 04 b0 05 |reason_c|ode%....|
|000020f0| 3a 0d 04 ba 23 f4 20 2a | 2a 20 50 72 6f 63 65 73 |:...#. *|* Proces|
|00002100| 73 20 74 68 65 20 72 65 | 61 73 6f 6e 20 63 6f 64 |s the re|ason cod|
|00002110| 65 20 2a 2a 0d 04 c4 15 | c8 8e 20 72 65 61 73 6f |e **....|.. reaso|
|00002120| 6e 5f 63 6f 64 65 25 20 | ca 0d 04 ce 34 20 20 c9 |n_code% |....4 .|
|00002130| 20 20 30 20 90 05 3a 20 | f4 20 2a 2a 20 4e 6f 74 | 0 ..: |. ** Not|
|00002140| 68 69 6e 67 20 68 61 73 | 20 68 61 70 70 65 6e 65 |hing has| happene|
|00002150| 64 20 28 4e 75 6c 6c 29 | 20 2a 2a 0d 04 d8 20 90 |d (Null)| **... .|
|00002160| 11 f2 6e 75 6c 6c 5f 72 | 65 61 73 6f 6e 0d 04 e2 |..null_r|eason...|
|00002170| 2e 20 20 c9 20 20 31 20 | 90 05 3a 20 f4 20 2a 2a |. . 1 |..: . **|
|00002180| 20 52 65 64 72 61 77 20 | 77 69 6e 64 6f 77 20 72 | Redraw |window r|
|00002190| 65 71 75 65 73 74 20 2a | 2a 0d 04 ec 24 20 20 c9 |equest *|*...$ .|
|000021a0| 20 20 32 20 90 05 3a 20 | f4 20 2a 2a 20 4f 70 65 | 2 ..: |. ** Ope|
|000021b0| 6e 20 77 69 6e 64 6f 77 | 20 2a 2a 0d 04 f6 30 20 |n window| **...0 |
|000021c0| 90 10 c8 99 20 22 57 69 | 6d 70 5f 4f 70 65 6e 57 |.... "Wi|mp_OpenW|
|000021d0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 05 |indow",,|block%..|
|000021e0| 00 25 20 20 c9 20 20 33 | 20 90 05 3a 20 f4 20 2a |.% . 3| ..: . *|
|000021f0| 2a 20 43 6c 6f 73 65 20 | 77 69 6e 64 6f 77 20 2a |* Close |window *|
|00002200| 2a 0d 05 0a 33 20 90 10 | f2 70 72 6f 63 65 73 73 |*...3 ..|.process|
|00002210| 5f 63 6c 6f 73 65 5f 77 | 69 6e 64 6f 77 28 62 6c |_close_w|indow(bl|
|00002220| 6f 63 6b 25 21 30 29 0d | 05 14 2f 20 20 c9 20 20 |ock%!0).|../ . |
|00002230| 34 20 90 05 3a 20 f4 20 | 2a 2a 20 50 6f 69 6e 74 |4 ..: . |** Point|
|00002240| 65 72 20 6c 65 61 76 69 | 6e 67 20 77 69 6e 64 6f |er leavi|ng windo|
|00002250| 77 20 2a 2a 0d 05 1e 30 | 20 20 c9 20 20 35 20 90 |w **...0| . 5 .|
|00002260| 05 3a 20 f4 20 2a 2a 20 | 50 6f 69 6e 74 65 72 20 |.: . ** |Pointer |
|00002270| 65 6e 74 65 72 69 6e 67 | 20 77 69 6e 64 6f 77 20 |entering| window |
|00002280| 2a 2a 0d 05 28 34 20 20 | c9 20 20 36 20 90 05 3a |**..(4 |. 6 ..:|
|00002290| 20 f4 20 2a 2a 20 55 73 | 65 72 20 68 61 73 20 63 | . ** Us|er has c|
|000022a0| 6c 69 63 6b 65 64 20 6f | 6e 20 61 6e 20 69 63 6f |licked o|n an ico|
|000022b0| 6e 20 2a 2a 0d 05 32 24 | 20 90 10 f2 64 65 61 6c |n **..2$| ...deal|
|000022c0| 5f 77 69 74 68 5f 63 6c | 69 63 6b 0d 05 3c 21 20 |_with_cl|ick..<! |
|000022d0| 20 c9 20 20 37 20 90 05 | 3a 20 f4 20 2a 2a 20 44 | . 7 ..|: . ** D|
|000022e0| 72 61 67 20 62 6f 78 20 | 2a 2a 0d 05 46 1f 20 90 |rag box |**..F. .|
|000022f0| 10 f2 64 72 61 67 5f 65 | 6e 64 65 64 0d 05 50 34 |..drag_e|nded..P4|
|00002300| 20 20 c9 20 20 38 20 90 | 05 3a 20 f4 20 2a 2a 20 | . 8 .|.: . ** |
|00002310| 4b 65 79 20 70 72 65 73 | 73 65 64 20 6f 6e 20 6f |Key pres|sed on o|
|00002320| 77 6e 65 64 20 77 69 6e | 64 6f 77 20 2a 2a 0d 05 |wned win|dow **..|
|00002330| 5a 25 20 90 10 f4 20 50 | 52 4f 43 6b 65 79 5f 70 |Z% ... P|ROCkey_p|
|00002340| 72 65 73 73 65 64 0d 05 | 64 40 20 20 c9 20 20 39 |ressed..|d@ . 9|
|00002350| 20 90 05 3a 20 f4 20 2a | 2a 20 53 6f 6d 65 74 68 | ..: . *|* Someth|
|00002360| 69 6e 67 20 68 61 73 20 | 62 65 65 6e 20 73 65 6c |ing has |been sel|
|00002370| 65 63 74 65 64 20 66 72 | 6f 6d 20 61 20 6d 65 6e |ected fr|om a men|
|00002380| 75 20 2a 2a 0d 05 6e 27 | 20 90 10 f2 6d 65 6e 75 |u **..n'| ...menu|
|00002390| 5f 69 74 65 6d 5f 73 65 | 6c 65 63 74 65 64 0d 05 |_item_se|lected..|
|000023a0| 78 31 20 20 c9 20 31 30 | 20 90 05 3a 20 f4 20 2a |x1 . 10| ..: . *|
|000023b0| 2a 20 55 73 65 72 20 68 | 61 73 20 73 63 72 6f 6c |* User h|as scrol|
|000023c0| 6c 65 64 20 77 69 6e 64 | 6f 77 20 2a 2a 0d 05 82 |led wind|ow **...|
|000023d0| 23 20 20 c9 20 31 31 20 | 90 05 3a 20 f4 20 2a 2a |# . 11 |..: . **|
|000023e0| 20 43 61 72 65 74 20 6c | 6f 73 74 20 2a 2a 0d 05 | Caret l|ost **..|
|000023f0| 8c 25 20 20 c9 20 31 32 | 20 90 05 3a 20 f4 20 2a |.% . 12| ..: . *|
|00002400| 2a 20 43 61 72 65 74 20 | 67 61 69 6e 65 64 20 2a |* Caret |gained *|
|00002410| 2a 0d 05 96 29 20 20 c9 | 20 31 37 2c 20 31 38 20 |*...) .| 17, 18 |
|00002420| 3a 20 f4 20 2a 2a 20 49 | 6e 63 6f 6d 69 6e 67 20 |: . ** I|ncoming |
|00002430| 6d 65 73 73 61 67 65 20 | 2a 2a 0d 05 a0 38 20 90 |message |**...8 .|
|00002440| 10 f2 69 6e 63 6f 6d 69 | 6e 67 5f 6d 65 73 73 61 |..incomi|ng_messa|
|00002450| 67 65 20 3a 20 f4 20 2a | 2a 20 46 6f 72 20 51 75 |ge : . *|* For Qu|
|00002460| 69 74 20 2a 2a 0d 05 aa | 36 20 20 c9 20 31 39 20 |it **...|6 . 19 |
|00002470| 90 05 3a 20 f4 20 2a 2a | 20 49 6e 63 6f 6d 69 6e |..: . **| Incomin|
|00002480| 67 20 6d 65 73 73 61 67 | 65 20 61 63 6b 6e 6f 77 |g messag|e acknow|
|00002490| 6c 65 64 67 65 64 20 2a | 2a 0d 05 b4 05 cb 0d 05 |ledged *|*.......|
|000024a0| be 05 e1 0d 05 c8 05 3a | 0d 05 d2 17 dd 20 f2 69 |.......:|..... .i|
|000024b0| 6e 63 6f 6d 69 6e 67 5f | 6d 65 73 73 61 67 65 0d |ncoming_|message.|
|000024c0| 05 dc 1f 6d 65 73 73 61 | 67 65 5f 61 63 74 69 6f |...messa|ge_actio|
|000024d0| 6e 25 20 3d 20 62 6c 6f | 63 6b 25 21 31 36 0d 05 |n% = blo|ck%!16..|
|000024e0| e6 05 3a 0d 05 f0 18 c8 | 8e 20 6d 65 73 73 61 67 |..:.....|. messag|
|000024f0| 65 5f 61 63 74 69 6f 6e | 25 20 ca 0d 05 fa 17 20 |e_action|% ..... |
|00002500| c9 20 30 20 3a 20 f4 20 | 2a 2a 20 51 75 69 74 20 |. 0 : . |** Quit |
|00002510| 2a 2a 0d 06 04 17 20 90 | 0a 71 75 69 74 25 20 3d |**.... .|.quit% =|
|00002520| 20 b9 0d 06 0e 17 20 c9 | 20 32 20 3a 20 f2 64 61 | ..... .| 2 : .da|
|00002530| 74 61 73 61 76 65 61 63 | 6b 0d 06 18 18 20 c9 20 |tasaveac|k.... . |
|00002540| 33 20 3a 20 f2 64 72 61 | 67 5f 64 72 6f 70 70 65 |3 : .dra|g_droppe|
|00002550| 64 0d 06 22 05 cb 0d 06 | 2c 05 e1 0d 06 36 05 3a |d.."....|,....6.:|
|00002560| 0d 06 40 16 dd 20 f2 64 | 65 61 6c 5f 77 69 74 68 |..@.. .d|eal_with|
|00002570| 5f 63 6c 69 63 6b 0d 06 | 4a 05 3a 0d 06 54 1d f4 |_click..|J.:..T..|
|00002580| 20 2a 2a 20 45 78 74 72 | 61 63 74 20 76 61 72 69 | ** Extr|act vari|
|00002590| 61 62 6c 65 73 20 2a 2a | 0d 06 5e 16 62 75 74 74 |ables **|..^.butt|
|000025a0| 6f 6e 25 20 3d 20 62 6c | 6f 63 6b 25 21 38 0d 06 |on% = bl|ock%!8..|
|000025b0| 68 1e 77 69 6e 64 6f 77 | 5f 68 61 6e 64 6c 65 25 |h.window|_handle%|
|000025c0| 20 3d 20 62 6c 6f 63 6b | 25 21 31 32 0d 06 72 1c | = block|%!12..r.|
|000025d0| 69 63 6f 6e 5f 68 61 6e | 64 6c 65 25 20 3d 20 62 |icon_han|dle% = b|
|000025e0| 6c 6f 63 6b 25 21 31 36 | 0d 06 7c 05 3a 0d 06 86 |lock%!16|..|.:...|
|000025f0| 1b e7 20 77 69 6e 64 6f | 77 5f 68 61 6e 64 6c 65 |.. windo|w_handle|
|00002600| 25 20 3d 20 2d 32 20 8c | 0d 06 90 00 1d 20 90 03 |% = -2 .|..... ..|
|00002610| f4 20 2a 2a 20 49 63 6f | 6e 20 62 61 72 20 63 6c |. ** Ico|n bar cl|
|00002620| 69 63 6b 20 2a 2a 0d 06 | 9a 16 20 90 03 e7 20 62 |ick **..|.. ... b|
|00002630| 75 74 74 6f 6e 25 20 3d | 20 32 20 8c 0d 06 a4 1d |utton% =| 2 .....|
|00002640| 20 90 06 f4 20 2a 2a 20 | 4d 65 6e 75 20 62 75 74 | ... ** |Menu but|
|00002650| 74 6f 6e 20 2a 2a 0d 06 | ae 25 20 90 06 e7 20 69 |ton **..|.% ... i|
|00002660| 63 6f 6e 5f 68 61 6e 64 | 6c 65 25 20 3d 20 69 63 |con_hand|le% = ic|
|00002670| 6f 6e 62 61 72 25 20 8c | 0d 06 b8 55 20 90 09 c8 |onbar% .|...U ...|
|00002680| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00002690| 6e 75 22 2c 2c 20 69 63 | 6f 6e 62 61 72 6d 65 6e |nu",, ic|onbarmen|
|000026a0| 75 5f 62 6c 6f 63 6b 25 | 2c 20 28 62 6c 6f 63 6b |u_block%|, (block|
|000026b0| 25 21 30 29 20 2d 20 36 | 34 2c 20 6d 65 6e 75 5f |%!0) - 6|4, menu_|
|000026c0| 68 65 69 67 68 74 25 0d | 06 c2 0b 20 90 06 cd 0d |height%.|... ....|
|000026d0| 06 cc 08 20 90 03 cd 0d | 06 d6 08 20 90 03 3a 0d |... ....|... ..:.|
|000026e0| 06 e0 16 20 90 03 e7 20 | 62 75 74 74 6f 6e 25 20 |... ... |button% |
|000026f0| 3d 20 34 20 8c 0d 06 ea | 1d 20 90 06 f4 20 2a 2a |= 4 ....|. ... **|
|00002700| 20 53 65 6c 65 63 74 20 | 4d 65 6e 75 20 2a 2a 0d | Select |Menu **.|
|00002710| 06 f4 25 20 90 06 e7 20 | 69 63 6f 6e 5f 68 61 6e |..% ... |icon_han|
|00002720| 64 6c 65 25 20 3d 20 69 | 63 6f 6e 62 61 72 25 20 |dle% = i|conbar% |
|00002730| 8c 0d 06 fe 30 20 90 09 | f2 70 72 6f 63 65 73 73 |....0 ..|.process|
|00002740| 5f 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 68 61 6e |_open_wi|ndow(han|
|00002750| 64 6c 65 25 28 4d 61 69 | 6e 29 29 0d 07 08 0b 20 |dle%(Mai|n)).... |
|00002760| 90 06 cd 0d 07 12 08 20 | 90 03 cd 0d 07 1c 08 20 |....... |....... |
|00002770| 90 03 3a 0d 07 26 16 20 | 90 03 e7 20 62 75 74 74 |..:..&. |... butt|
|00002780| 6f 6e 25 20 3d 20 31 20 | 8c 0d 07 30 1e 20 90 06 |on% = 1 |...0. ..|
|00002790| f4 20 2a 2a 20 53 69 6c | 6c 79 20 42 75 74 74 6f |. ** Sil|ly Butto|
|000027a0| 6e 20 2a 2a 0d 07 3a 1d | 20 90 06 e7 20 69 63 6f |n **..:.| ... ico|
|000027b0| 6e 5f 73 74 61 74 65 25 | 20 3d 20 30 20 8c 0d 07 |n_state%| = 0 ...|
|000027c0| 44 35 20 90 09 f2 77 72 | 69 74 65 5f 69 63 6f 6e |D5 ...wr|ite_icon|
|000027d0| 5f 73 70 72 69 74 65 28 | 2d 32 2c 20 69 63 6f 6e |_sprite(|-2, icon|
|000027e0| 62 61 72 25 2c 20 22 77 | 6f 74 3f 22 29 0d 07 4e |bar%, "w|ot?")..N|
|000027f0| 1c 20 90 09 69 63 6f 6e | 5f 73 74 61 74 65 25 20 |. ..icon|_state% |
|00002800| 3d 20 31 0d 07 58 0b 20 | 90 06 cc 0d 07 62 3b 20 |= 1..X. |.....b; |
|00002810| 90 09 f2 77 72 69 74 65 | 5f 69 63 6f 6e 5f 73 70 |...write|_icon_sp|
|00002820| 72 69 74 65 28 2d 32 2c | 20 69 63 6f 6e 62 61 72 |rite(-2,| iconbar|
|00002830| 25 2c 20 22 21 43 72 65 | 61 74 65 41 70 70 22 29 |%, "!Cre|ateApp")|
|00002840| 0d 07 6c 1c 20 90 09 69 | 63 6f 6e 5f 73 74 61 74 |..l. ..i|con_stat|
|00002850| 65 25 20 3d 20 30 0d 07 | 76 0b 20 90 06 cd 0d 07 |e% = 0..|v. .....|
|00002860| 80 08 20 90 03 cd 0d 07 | 8a 05 cd 0d 07 94 05 3a |.. .....|.......:|
|00002870| 0d 07 9e 26 e7 20 77 69 | 6e 64 6f 77 5f 68 61 6e |...&. wi|ndow_han|
|00002880| 64 6c 65 25 20 3d 20 68 | 61 6e 64 6c 65 25 28 4d |dle% = h|andle%(M|
|00002890| 61 69 6e 29 20 8c 0d 07 | a8 16 20 90 03 e7 20 62 |ain) ...|.. ... b|
|000028a0| 75 74 74 6f 6e 25 20 3d | 20 34 20 8c 0d 07 b2 1f |utton% =| 4 .....|
|000028b0| 20 90 06 e7 20 69 63 6f | 6e 5f 68 61 6e 64 6c 65 | ... ico|n_handle|
|000028c0| 25 20 3d 20 31 39 20 8c | 0d 07 bc 20 90 0a f2 63 |% = 19 .|... ...c|
|000028d0| 72 65 61 74 65 5f 61 70 | 70 6c 69 63 61 74 69 6f |reate_ap|plicatio|
|000028e0| 6e 0d 07 c6 0b 20 90 06 | cd 0d 07 d0 1f 20 90 06 |n.... ..|..... ..|
|000028f0| e7 20 69 63 6f 6e 5f 68 | 61 6e 64 6c 65 25 20 3d |. icon_h|andle% =|
|00002900| 20 32 37 20 8c 0d 07 da | 22 20 90 09 e7 20 69 6e | 27 ....|" ... in|
|00002910| 63 6c 75 73 69 6f 6e 5f | 6e 6f 25 20 3e 20 30 20 |clusion_|no% > 0 |
|00002920| 8c 0d 07 e4 22 20 90 0c | 69 6e 63 6c 75 73 69 6f |...." ..|inclusio|
|00002930| 6e 5f 6e 6f 25 20 2d 3d | 20 31 0d 07 ee 3f 20 90 |n_no% -=| 1...? .|
|00002940| 0c f2 66 69 6c 6c 5f 69 | 63 6f 6e 28 68 61 6e 64 |..fill_i|con(hand|
|00002950| 6c 65 25 28 4d 61 69 6e | 29 2c 20 32 36 2c 20 c3 |le%(Main|), 26, .|
|00002960| 28 69 6e 63 6c 75 73 69 | 6f 6e 5f 6e 6f 25 29 29 |(inclusi|on_no%))|
|00002970| 0d 07 f8 0e 20 90 09 cd | 0d 08 02 0b 20 90 06 cd |.... ...|.... ...|
|00002980| 0d 08 0c 08 20 90 03 cd | 0d 08 16 05 cd 0d 08 20 |.... ...|....... |
|00002990| 05 3a 0d 08 2a 24 e7 20 | 77 69 6e 64 6f 77 5f 68 |.:..*$. |window_h|
|000029a0| 61 6e 64 6c 65 25 20 3d | 20 68 61 6e 64 6c 65 25 |andle% =| handle%|
|000029b0| 28 53 61 76 65 29 0d 08 | 34 16 20 90 03 e7 20 62 |(Save)..|4. ... b|
|000029c0| 75 74 74 6f 6e 25 20 3d | 20 34 20 8c 0d 08 3e 1e |utton% =| 4 ...>.|
|000029d0| 20 90 06 e7 20 69 63 6f | 6e 5f 68 61 6e 64 6c 65 | ... ico|n_handle|
|000029e0| 25 20 3d 20 30 20 8c 0d | 08 48 1b 20 90 09 f2 73 |% = 0 ..|.H. ...s|
|000029f0| 74 61 72 74 5f 64 72 61 | 67 28 30 29 0d 08 52 0b |tart_dra|g(0)..R.|
|00002a00| 20 90 06 cd 0d 08 5c 08 | 20 90 03 cd 0d 08 66 05 | .....\.| .....f.|
|00002a10| cd 0d 08 70 05 3a 0d 08 | 7a 05 e1 0d 08 84 05 3a |...p.:..|z......:|
|00002a20| 0d 08 8e 19 dd 20 f2 6d | 65 6e 75 5f 69 74 65 6d |..... .m|enu_item|
|00002a30| 5f 73 65 6c 65 63 74 65 | 64 0d 08 98 2b f4 20 2a |_selecte|d...+. *|
|00002a40| 2a 20 46 69 6e 64 20 6f | 75 74 20 77 68 69 63 68 |* Find o|ut which|
|00002a50| 20 69 74 65 6d 20 69 73 | 20 73 65 6c 65 63 74 65 | item is| selecte|
|00002a60| 64 20 2a 2a 0d 08 a2 11 | c8 8e 20 62 6c 6f 63 6b |d **....|.. block|
|00002a70| 25 21 30 20 ca 0d 08 ac | 22 20 90 03 c9 20 30 20 |%!0 ....|" ... 0 |
|00002a80| 90 03 3a 20 f4 20 2a 2a | 20 49 6e 66 6f 20 77 69 |..: . **| Info wi|
|00002a90| 6e 64 6f 77 20 2a 2a 0d | 08 b6 2d 20 90 03 c9 20 |ndow **.|..- ... |
|00002aa0| 31 20 90 03 3a 20 f4 20 | 2a 2a 20 51 75 69 74 20 |1 ..: . |** Quit |
|00002ab0| 68 61 73 20 62 65 65 6e | 20 73 65 6c 65 63 74 65 |has been| selecte|
|00002ac0| 64 20 2a 2a 0d 08 c0 1a | 20 90 0e 71 75 69 74 20 |d **....| ..quit |
|00002ad0| 3d 20 b9 0d 08 ca 05 cb | 0d 08 d4 05 e1 0d 08 de |= ......|........|
|00002ae0| 05 3a 0d 08 e8 19 dd 20 | f2 63 72 65 61 74 65 5f |.:..... |.create_|
|00002af0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 0d 08 f2 39 f4 |applicat|ion...9.|
|00002b00| 20 2a 2a 20 46 69 72 73 | 74 6c 79 20 65 78 74 72 | ** Firs|tly extr|
|00002b10| 61 63 74 20 74 68 65 20 | 64 61 74 61 20 66 72 6f |act the |data fro|
|00002b20| 6d 20 74 68 65 20 6d 61 | 69 6e 20 77 69 6e 64 6f |m the ma|in windo|
|00002b30| 77 20 2a 2a 0d 08 fc 3b | 61 70 70 5f 6e 61 6d 65 |w **...;|app_name|
|00002b40| 24 20 3d 20 22 21 22 20 | 2b 20 a4 72 65 61 64 5f |$ = "!" |+ .read_|
|00002b50| 77 72 69 74 61 62 6c 65 | 5f 69 63 6f 6e 28 68 61 |writable|_icon(ha|
|00002b60| 6e 64 6c 65 25 28 4d 61 | 69 6e 29 2c 20 34 29 0d |ndle%(Ma|in), 4).|
|00002b70| 09 06 19 e7 20 a9 28 61 | 70 70 5f 6e 61 6d 65 24 |.... .(a|pp_name$|
|00002b80| 29 20 3c 3e 20 31 20 8c | 0d 09 10 16 20 90 03 e3 |) <> 1 .|.... ...|
|00002b90| 20 6c 6f 6f 70 25 20 3d | 20 31 20 b8 20 36 0d 09 | loop% =| 1 . 6..|
|00002ba0| 1a 4f 20 90 05 63 72 65 | 61 74 69 6f 6e 5f 64 65 |.O ..cre|ation_de|
|00002bb0| 74 61 69 6c 73 25 28 6c | 6f 6f 70 25 29 20 3d 20 |tails%(l|oop%) = |
|00002bc0| a4 72 65 61 64 5f 72 61 | 64 69 6f 5f 69 63 6f 6e |.read_ra|dio_icon|
|00002bd0| 28 68 61 6e 64 6c 65 25 | 28 4d 61 69 6e 29 2c 20 |(handle%|(Main), |
|00002be0| 6c 6f 6f 70 25 20 2b 20 | 31 30 29 0d 09 24 0e 20 |loop% + |10)..$. |
|00002bf0| 90 03 ed 20 6c 6f 6f 70 | 25 0d 09 2e 08 20 90 03 |... loop|%.... ..|
|00002c00| 3a 0d 09 38 37 20 90 03 | e7 20 a4 72 65 61 64 5f |:..87 ..|. .read_|
|00002c10| 77 72 69 74 61 62 6c 65 | 5f 69 63 6f 6e 28 68 61 |writable|_icon(ha|
|00002c20| 6e 64 6c 65 25 28 4d 61 | 69 6e 29 2c 20 31 38 29 |ndle%(Ma|in), 18)|
|00002c30| 20 3c 3e 20 22 22 20 8c | 0d 09 42 3f 20 90 06 61 | <> "" .|..B? ..a|
|00002c40| 70 70 5f 73 69 7a 65 25 | 20 3d 20 a0 28 a4 72 65 |pp_size%| = .(.re|
|00002c50| 61 64 5f 77 72 69 74 61 | 62 6c 65 5f 69 63 6f 6e |ad_writa|ble_icon|
|00002c60| 28 68 61 6e 64 6c 65 25 | 28 4d 61 69 6e 29 2c 20 |(handle%|(Main), |
|00002c70| 31 38 29 29 0d 09 4c 08 | 20 90 03 cc 0d 09 56 17 |18))..L.| .....V.|
|00002c80| 20 90 06 61 70 70 5f 73 | 69 7a 65 25 20 3d 20 30 | ..app_s|ize% = 0|
|00002c90| 0d 09 60 08 20 90 03 cd | 0d 09 6a 08 20 90 03 3a |..`. ...|..j. ..:|
|00002ca0| 0d 09 74 24 20 90 03 f4 | 20 2a 2a 20 43 6c 6f 73 |..t$ ...| ** Clos|
|00002cb0| 65 20 74 68 65 20 6d 61 | 69 6e 20 77 69 6e 64 6f |e the ma|in windo|
|00002cc0| 77 20 2a 2a 0d 09 7e 2b | 20 90 03 f2 70 72 6f 63 |w **..~+| ...proc|
|00002cd0| 65 73 73 5f 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |ess_clos|e_window|
|00002ce0| 28 68 61 6e 64 6c 65 25 | 28 4d 61 69 6e 29 29 0d |(handle%|(Main)).|
|00002cf0| 09 88 08 20 90 03 3a 0d | 09 92 3c 20 90 03 f4 20 |... ..:.|..< ... |
|00002d00| 2a 2a 20 49 6e 73 65 72 | 74 20 74 68 65 20 61 70 |** Inser|t the ap|
|00002d10| 70 6c 69 63 61 74 69 6f | 6e 20 6e 61 6d 65 20 69 |plicatio|n name i|
|00002d20| 6e 74 6f 20 74 68 65 20 | 73 61 76 65 20 62 6f 78 |nto the |save box|
|00002d30| 20 2a 2a 0d 09 9c 2e 20 | 90 03 f2 66 69 6c 6c 5f | **.... |...fill_|
|00002d40| 69 63 6f 6e 28 68 61 6e | 64 6c 65 25 28 53 61 76 |icon(han|dle%(Sav|
|00002d50| 65 29 2c 20 31 2c 20 61 | 70 70 5f 6e 61 6d 65 24 |e), 1, a|pp_name$|
|00002d60| 29 0d 09 a6 08 20 90 03 | 3a 0d 09 b0 24 20 90 03 |).... ..|:...$ ..|
|00002d70| f4 20 2a 2a 20 4e 6f 77 | 20 6f 70 65 6e 20 74 68 |. ** Now| open th|
|00002d80| 65 20 73 61 76 65 20 62 | 6f 78 20 2a 2a 0d 09 ba |e save b|ox **...|
|00002d90| 2a 20 90 03 f2 70 72 6f | 63 65 73 73 5f 6f 70 65 |* ...pro|cess_ope|
|00002da0| 6e 5f 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |n_window|(handle%|
|00002db0| 28 53 61 76 65 29 29 0d | 09 c4 05 cc 0d 09 ce 48 |(Save)).|.......H|
|00002dc0| 20 90 03 f2 65 72 72 6f | 72 28 22 43 72 65 61 74 | ...erro|r("Creat|
|00002dd0| 65 41 70 70 22 2c 32 2c | 22 59 6f 75 20 68 61 76 |eApp",2,|"You hav|
|00002de0| 65 20 6e 6f 74 20 65 6e | 74 65 72 65 64 20 61 6e |e not en|tered an|
|00002df0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 6e 61 6d | applica|tion nam|
|00002e00| 65 2e 22 29 0d 09 d8 05 | cd 0d 09 e2 05 e1 0d 09 |e.")....|........|
|00002e10| ec 05 3a 0d 09 f6 43 f4 | 20 2d 90 12 20 57 49 4d |..:...C.| -.. WIM|
|00002e20| 50 20 4c 69 62 72 61 72 | 79 20 50 72 6f 63 65 64 |P Librar|y Proced|
|00002e30| 75 72 65 73 20 2d 90 12 | 0d 0a 00 05 3a 0d 0a 0a |ures -..|....:...|
|00002e40| 38 f4 20 2a 90 32 0d 0a | 14 38 f4 20 2a 2a 20 45 |8. *.2..|.8. ** E|
|00002e50| 72 72 6f 72 20 68 61 6e | 64 6c 69 6e 67 20 50 72 |rror han|dling Pr|
|00002e60| 6f 63 65 64 75 72 65 20 | 56 31 2e 31 33 20 42 79 |ocedure |V1.13 By|
|00002e70| 20 53 69 6d 6f 6e 20 49 | 6e 6e 73 20 2a 2a 0d 0a | Simon I|nns **..|
|00002e80| 1e 38 f4 20 2a 2a 20 90 | 2e 2a 2a 0d 0a 28 38 f4 |.8. ** .|.**..(8.|
|00002e90| 20 2a 2a 20 4c 61 73 74 | 20 75 70 64 61 74 65 20 | ** Last| update |
|00002ea0| 3a 20 30 32 2f 30 31 2f | 39 33 20 90 17 2a 2a 0d |: 02/01/|93 ..**.|
|00002eb0| 0a 32 38 f4 20 2a 90 32 | 0d 0a 3c 2a dd 20 f2 65 |.28. *.2|..<*. .e|
|00002ec0| 72 72 6f 72 28 74 61 73 | 6b 5f 6e 61 6d 65 24 2c |rror(tas|k_name$,|
|00002ed0| 20 73 74 61 74 65 25 2c | 20 6d 65 73 73 61 67 65 | state%,| message|
|00002ee0| 24 29 0d 0a 46 05 3a 0d | 0a 50 34 f4 20 2a 90 2e |$)..F.:.|.P4. *..|
|00002ef0| 0d 0a 5a 34 f4 20 2a 2a | 20 53 74 61 74 65 73 3a |..Z4. **| States:|
|00002f00| 20 90 04 30 20 3d 20 46 | 61 74 61 6c 20 73 79 73 | ..0 = F|atal sys|
|00002f10| 74 65 6d 20 65 72 72 6f | 72 20 90 08 2a 2a 0d 0a |tem erro|r ..**..|
|00002f20| 64 34 f4 20 2a 2a 20 90 | 0c 31 20 3d 20 46 61 74 |d4. ** .|.1 = Fat|
|00002f30| 61 6c 20 69 6e 74 65 72 | 6e 61 6c 20 65 72 72 6f |al inter|nal erro|
|00002f40| 72 20 90 06 2a 2a 0d 0a | 6e 34 f4 20 2a 2a 20 90 |r ..**..|n4. ** .|
|00002f50| 0c 32 20 3d 20 4e 6f 6e | 2d 66 61 74 61 6c 20 69 |.2 = Non|-fatal i|
|00002f60| 6e 74 65 72 6e 61 6c 20 | 65 72 72 6f 72 20 20 2a |nternal |error *|
|00002f70| 2a 0d 0a 78 34 f4 20 2a | 90 2e 0d 0a 82 05 3a 0d |*..x4. *|......:.|
|00002f80| 0a 8c 44 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..D.. "H|ourglass|
|00002f90| 5f 53 6d 61 73 68 22 20 | 3a 20 f4 20 2a 2a 20 27 |_Smash" |: . ** '|
|00002fa0| 63 61 75 73 65 20 69 74 | 20 77 6f 6e 27 74 20 77 |cause it| won't w|
|00002fb0| 6f 72 6b 20 69 66 20 69 | 74 27 73 20 6f 6e 21 21 |ork if i|t's on!!|
|00002fc0| 20 2a 2a 0d 0a 96 05 3a | 0d 0a a0 43 f4 20 2a 2a | **....:|...C. **|
|00002fd0| 20 43 68 65 63 6b 20 73 | 74 61 74 65 20 72 61 6e | Check s|tate ran|
|00002fe0| 67 65 20 28 62 65 63 61 | 75 73 65 20 69 66 20 74 |ge (beca|use if t|
|00002ff0| 68 65 20 65 72 72 6f 72 | 20 68 61 6e 64 6c 65 72 |he error| handler|
|00003000| 20 63 72 61 73 68 65 73 | 20 2a 2a 0d 0a aa 43 f4 | crashes| **...C.|
|00003010| 20 2a 2a 20 77 65 20 77 | 69 6c 6c 20 62 65 20 69 | ** we w|ill be i|
|00003020| 6e 20 73 74 75 6b 21 20 | 90 25 2a 2a 0d 0a b4 2a |n stuk! |.%**...*|
|00003030| e7 20 73 74 61 74 65 25 | 20 3c 20 30 20 84 20 73 |. state%| < 0 . s|
|00003040| 74 61 74 65 25 20 3e 20 | 32 20 8c 20 73 74 61 74 |tate% > |2 . stat|
|00003050| 65 25 20 3d 20 30 0d 0a | be 05 3a 0d 0a c8 1c e7 |e% = 0..|..:.....|
|00003060| 20 9f 20 3d 20 32 37 35 | 20 80 20 73 74 61 74 65 | . = 275| . state|
|00003070| 25 20 3d 20 30 20 8c 0d | 0a d2 11 20 90 03 73 74 |% = 0 ..|... ..st|
|00003080| 61 74 65 25 20 3d 20 33 | 0d 0a dc 05 cd 0d 0a e6 |ate% = 3|........|
|00003090| 05 3a 0d 0a f0 0f c8 8e | 20 73 74 61 74 65 25 20 |.:......| state% |
|000030a0| ca 0d 0a fa 26 20 20 c9 | 20 30 20 3a 20 f4 20 2a |....& .| 0 : . *|
|000030b0| 2a 20 46 61 74 61 6c 20 | 73 79 73 74 65 6d 20 65 |* Fatal |system e|
|000030c0| 72 72 6f 72 20 2a 2a 0d | 0b 04 1c 20 90 0b c8 99 |rror **.|... ....|
|000030d0| 20 32 36 32 33 35 32 2c | 2c 2d 31 0d 0b 0e 19 20 | 262352,|,-1.... |
|000030e0| 90 0b 21 62 75 66 66 65 | 72 25 3d 9f 0d 0b 18 50 |..!buffe|r%=....P|
|000030f0| 20 90 0b 24 28 62 75 66 | 66 65 72 25 2b 34 29 20 | ..$(buf|fer%+4) |
|00003100| 3d 20 f6 24 20 2b 20 22 | 20 61 74 20 6c 69 6e 65 |= .$ + "| at line|
|00003110| 20 22 20 2b 20 c3 28 9e | 29 20 2b 20 22 20 28 22 | " + .(.|) + " ("|
|00003120| 20 2b 20 c3 28 9f 29 20 | 2b 20 22 29 22 20 2b 20 | + .(.) |+ ")" + |
|00003130| bd 28 30 29 0d 0b 22 39 | 20 90 0b c8 99 20 22 57 |.(0).."9| .... "W|
|00003140| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00003150| 2c 62 75 66 66 65 72 25 | 2c 31 2c 74 61 73 6b 5f |,buffer%|,1,task_|
|00003160| 6e 61 6d 65 24 0d 0b 2c | 22 20 90 0b c8 99 20 22 |name$..,|" .... "|
|00003170| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 0d |Wimp_Clo|seDown".|
|00003180| 0b 36 10 20 90 0b e0 0d | 0b 40 28 20 20 c9 20 31 |.6. ....|.@( . 1|
|00003190| 20 3a 20 f4 20 2a 2a 20 | 46 61 74 61 6c 20 69 6e | : . ** |Fatal in|
|000031a0| 74 65 72 6e 61 6c 20 65 | 72 72 6f 72 20 2a 2a 0d |ternal e|rror **.|
|000031b0| 0b 4a 1c 20 90 0b c8 99 | 20 32 36 32 33 35 32 2c |.J. ....| 262352,|
|000031c0| 2c 2d 31 0d 0b 54 19 20 | 90 0b 21 62 75 66 66 65 |,-1..T. |..!buffe|
|000031d0| 72 25 3d 30 0d 0b 5e 2d | 20 90 0b 24 28 62 75 66 |r%=0..^-| ..$(buf|
|000031e0| 66 65 72 25 2b 34 29 20 | 3d 20 6d 65 73 73 61 67 |fer%+4) |= messag|
|000031f0| 65 24 20 2b 20 bd 28 30 | 29 0d 0b 68 39 20 90 0b |e$ + .(0|)..h9 ..|
|00003200| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00003210| 72 72 6f 72 22 2c 62 75 | 66 66 65 72 25 2c 31 2c |rror",bu|ffer%,1,|
|00003220| 74 61 73 6b 5f 6e 61 6d | 65 24 0d 0b 72 22 20 90 |task_nam|e$..r" .|
|00003230| 0b c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 44 |... "Wim|p_CloseD|
|00003240| 6f 77 6e 22 0d 0b 7c 10 | 20 90 0b e0 0d 0b 86 2c |own"..|.| ......,|
|00003250| 20 20 c9 20 32 20 3a 20 | f4 20 2a 2a 20 4e 6f 6e | . 2 : |. ** Non|
|00003260| 2d 46 61 74 61 6c 20 69 | 6e 74 65 72 6e 61 6c 20 |-Fatal i|nternal |
|00003270| 65 72 72 6f 72 20 2a 2a | 0d 0b 90 00 1c 20 90 0b |error **|..... ..|
|00003280| c8 99 20 32 36 32 33 35 | 32 2c 2c 2d 31 0d 0b 9a |.. 26235|2,,-1...|
|00003290| 19 20 90 0b 21 62 75 66 | 66 65 72 25 3d 30 0d 0b |. ..!buf|fer%=0..|
|000032a0| a4 2d 20 90 0b 24 28 62 | 75 66 66 65 72 25 2b 34 |.- ..$(b|uffer%+4|
|000032b0| 29 20 3d 20 6d 65 73 73 | 61 67 65 24 20 2b 20 bd |) = mess|age$ + .|
|000032c0| 28 30 29 0d 0b ae 39 20 | 90 0b c8 99 20 22 57 69 |(0)...9 |.... "Wi|
|000032d0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|000032e0| 62 75 66 66 65 72 25 2c | 31 2c 74 61 73 6b 5f 6e |buffer%,|1,task_n|
|000032f0| 61 6d 65 24 0d 0b b8 17 | 20 20 c9 20 33 20 3a 20 |ame$....| . 3 : |
|00003300| 61 72 72 67 67 68 25 20 | 3d 20 b9 0d 0b c2 05 cb |arrggh% |= ......|
|00003310| 0d 0b cc 05 e1 0d 0b d6 | 05 3a 0d 0b e0 3f f4 20 |........|.:...?. |
|00003320| 2a 90 39 0d 0b ea 3f f4 | 20 2a 2a 20 52 65 61 64 |*.9...?.| ** Read|
|00003330| 20 52 61 64 69 6f 20 49 | 63 6f 6e 20 53 74 61 74 | Radio I|con Stat|
|00003340| 65 20 50 72 6f 63 65 64 | 75 72 65 20 56 31 2e 30 |e Proced|ure V1.0|
|00003350| 31 20 42 79 20 53 69 6d | 6f 6e 20 49 6e 6e 73 20 |1 By Sim|on Inns |
|00003360| 2a 2a 0d 0b f4 3f f4 20 | 2a 2a 20 90 35 2a 2a 0d |**...?. |** .5**.|
|00003370| 0b fe 3f f4 20 2a 2a 20 | 4c 61 73 74 20 75 70 64 |..?. ** |Last upd|
|00003380| 61 74 65 20 3a 20 32 34 | 2f 30 31 2f 39 33 20 90 |ate : 24|/01/93 .|
|00003390| 1e 2a 2a 0d 0c 08 3f f4 | 20 2a 90 39 0d 0c 12 34 |.**...?.| *.9...4|
|000033a0| dd 20 a4 72 65 61 64 5f | 72 61 64 69 6f 5f 69 63 |. .read_|radio_ic|
|000033b0| 6f 6e 28 77 69 6e 64 6f | 77 5f 68 61 6e 64 6c 65 |on(windo|w_handle|
|000033c0| 25 2c 20 69 63 6f 6e 5f | 68 61 6e 64 6c 65 25 29 |%, icon_|handle%)|
|000033d0| 0d 0c 1c 05 3a 0d 0c 26 | 1c 21 62 6c 6f 63 6b 25 |....:..&|.!block%|
|000033e0| 20 3d 20 77 69 6e 64 6f | 77 5f 68 61 6e 64 6c 65 | = windo|w_handle|
|000033f0| 25 0d 0c 30 35 62 6c 6f | 63 6b 25 21 34 20 3d 20 |%..05blo|ck%!4 = |
|00003400| 69 63 6f 6e 5f 68 61 6e | 64 6c 65 25 20 3a 20 f4 |icon_han|dle% : .|
|00003410| 20 2a 2a 20 54 68 65 20 | 69 63 6f 6e 20 6e 75 6d | ** The |icon num|
|00003420| 62 65 72 20 2a 2a 0d 0c | 3a 22 c8 99 20 22 57 69 |ber **..|:".. "Wi|
|00003430| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00003440| 2c 2c 62 6c 6f 63 6b 25 | 0d 0c 44 16 66 6c 61 67 |,,block%|..D.flag|
|00003450| 73 25 20 3d 20 62 6c 6f | 63 6b 25 21 32 34 0d 0c |s% = blo|ck%!24..|
|00003460| 4e 1a 73 74 61 74 25 20 | 3d 20 66 6c 61 67 73 25 |N.stat% |= flags%|
|00003470| 20 80 20 31 3c 3c 32 31 | 0d 0c 58 11 e7 20 73 74 | . 1<<21|..X.. st|
|00003480| 61 74 25 20 3d 20 30 20 | 8c 0d 0c 62 12 20 90 03 |at% = 0 |...b. ..|
|00003490| 72 65 73 75 6c 74 25 20 | 3d 20 b9 0d 0c 6c 05 cc |result% |= ...l..|
|000034a0| 0d 0c 76 12 20 90 03 72 | 65 73 75 6c 74 25 20 3d |..v. ..r|esult% =|
|000034b0| 20 a3 0d 0c 80 05 cd 0d | 0c 8a 0d 3d 20 72 65 73 | .......|...= res|
|000034c0| 75 6c 74 25 0d 0c 94 05 | 3a 0d 0c 9e 37 dd 20 a4 |ult%....|:...7. .|
|000034d0| 72 65 61 64 5f 77 72 69 | 74 61 62 6c 65 5f 69 63 |read_wri|table_ic|
|000034e0| 6f 6e 28 77 69 6e 64 6f | 77 5f 68 61 6e 64 6c 65 |on(windo|w_handle|
|000034f0| 25 2c 20 69 63 6f 6e 5f | 68 61 6e 64 6c 65 25 29 |%, icon_|handle%)|
|00003500| 0d 0c a8 05 3a 0d 0c b2 | 1c 21 62 6c 6f 63 6b 25 |....:...|.!block%|
|00003510| 20 3d 20 77 69 6e 64 6f | 77 5f 68 61 6e 64 6c 65 | = windo|w_handle|
|00003520| 25 0d 0c bc 1b 62 6c 6f | 63 6b 25 21 34 20 3d 20 |%....blo|ck%!4 = |
|00003530| 69 63 6f 6e 5f 68 61 6e | 64 6c 65 25 0d 0c c6 22 |icon_han|dle%..."|
|00003540| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00003550| 53 74 61 74 65 22 2c 2c | 62 6c 6f 63 6b 25 0d 0c |State",,|block%..|
|00003560| d0 18 61 64 64 72 65 73 | 73 25 20 3d 20 62 6c 6f |..addres|s% = blo|
|00003570| 63 6b 25 21 32 38 0d 0c | da 0f 3d 20 24 61 64 64 |ck%!28..|..= $add|
|00003580| 72 65 73 73 25 0d 0c e4 | 05 3a 0d 0c ee 4c f4 20 |ress%...|.:...L. |
|00003590| 2a 90 46 0d 0c f8 4c f4 | 20 2a 2a 20 90 16 44 65 |*.F...L.| ** ..De|
|000035a0| 66 69 6e 65 20 4d 65 6e | 75 20 50 72 6f 63 65 64 |fine Men|u Proced|
|000035b0| 75 72 65 20 90 17 2a 2a | 0d 0d 02 4c f4 20 2a 2a |ure ..**|...L. **|
|000035c0| 20 90 42 2a 2a 0d 0d 0c | 4c f4 20 2a 2a 20 90 1a | .B**...|L. ** ..|
|000035d0| 42 79 20 53 69 6d 6f 6e | 20 49 6e 6e 73 20 90 1b |By Simon| Inns ..|
|000035e0| 2a 2a 0d 0d 16 4c f4 20 | 2a 2a 20 90 14 a9 31 39 |**...L. |** ...19|
|000035f0| 39 33 20 52 65 73 6f 75 | 72 63 65 20 54 65 63 68 |93 Resou|rce Tech|
|00003600| 6e 6f 6c 6f 67 79 20 90 | 15 2a 2a 0d 0d 20 4c f4 |nology .|.**.. L.|
|00003610| 20 2a 2a 20 90 42 2a 2a | 0d 0d 2a 4c f4 20 2a 2a | ** .B**|..*L. **|
|00003620| 20 90 1b 56 65 72 73 69 | 6f 6e 20 32 2e 32 31 20 | ..Versi|on 2.21 |
|00003630| 90 1b 2a 2a 0d 0d 34 4c | f4 20 2a 2a 20 90 19 32 |..**..4L|. ** ..2|
|00003640| 34 20 4a 61 6e 75 61 72 | 79 20 31 39 39 33 20 90 |4 Januar|y 1993 .|
|00003650| 1a 2a 2a 0d 0d 3e 4c f4 | 20 2a 90 46 0d 0d 48 05 |.**..>L.| *.F..H.|
|00003660| f4 0d 0d 52 4c f4 20 2a | 90 46 0d 0d 5c 4c f4 20 |...RL. *|.F..\L. |
|00003670| 2a 2a 20 90 42 2a 2a 0d | 0d 66 4c f4 20 2a 2a 20 |** .B**.|.fL. ** |
|00003680| 4e 6f 74 65 73 2e 20 90 | 3b 2a 2a 0d 0d 70 4c f4 |Notes. .|;**..pL.|
|00003690| 20 2a 2a 20 90 42 2a 2a | 0d 0d 7a 4c f4 20 2a 2a | ** .B**|..zL. **|
|000036a0| 20 90 03 54 68 65 20 6d | 65 6e 75 20 64 65 74 61 | ..The m|enu deta|
|000036b0| 69 6c 73 20 73 74 72 69 | 6e 67 20 63 6f 6e 74 61 |ils stri|ng conta|
|000036c0| 69 6e 73 20 74 68 65 20 | 6e 65 63 65 73 73 61 72 |ins the |necessar|
|000036d0| 79 20 64 65 74 61 69 6c | 73 20 66 6f 72 20 90 05 |y detail|s for ..|
|000036e0| 2a 2a 0d 0d 84 4c f4 20 | 2a 2a 20 90 03 63 72 65 |**...L. |** ..cre|
|000036f0| 61 74 69 6e 67 20 74 68 | 65 20 6d 65 6e 75 2e 20 |ating th|e menu. |
|00003700| 20 45 61 63 68 20 69 74 | 65 6d 20 69 73 20 73 65 | Each it|em is se|
|00003710| 70 65 72 61 74 65 64 20 | 62 79 20 61 20 46 4e 20 |perated |by a FN |
|00003720| 73 79 6d 62 6f 6c 2e 20 | 90 05 2a 2a 0d 0d 8e 4c |symbol. |..**...L|
|00003730| f4 20 2a 2a 20 90 03 54 | 68 65 20 64 65 74 61 69 |. ** ..T|he detai|
|00003740| 6c 73 20 61 72 65 20 6d | 65 6e 75 20 74 65 78 74 |ls are m|enu text|
|00003750| 2c 20 69 63 6f 6e 20 64 | 65 74 61 69 6c 73 2e 20 |, icon d|etails. |
|00003760| 90 17 2a 2a 0d 0d 98 4c | f4 20 2a 2a 20 90 42 2a |..**...L|. ** .B*|
|00003770| 2a 0d 0d a2 4c f4 20 2a | 2a 20 90 03 54 79 70 65 |*...L. *|* ..Type|
|00003780| 73 3a 20 90 08 4e 20 20 | 3d 20 20 4e 6f 72 6d 61 |s: ..N |= Norma|
|00003790| 6c 20 90 25 2a 2a 0d 0d | ac 4c f4 20 2a 2a 20 90 |l .%**..|.L. ** .|
|000037a0| 11 47 20 20 3d 20 20 47 | 72 65 79 65 64 20 6f 75 |.G = G|reyed ou|
|000037b0| 74 20 90 21 2a 2a 0d 0d | b6 4c f4 20 2a 2a 20 90 |t .!**..|.L. ** .|
|000037c0| 11 54 20 20 3d 20 20 54 | 69 63 6b 65 64 20 90 25 |.T = T|icked .%|
|000037d0| 2a 2a 0d 0d c0 4c f4 20 | 2a 2a 20 90 11 4f 20 20 |**...L. |** ..O |
|000037e0| 3d 20 20 47 72 65 79 65 | 64 20 6f 75 74 20 77 69 |= Greye|d out wi|
|000037f0| 74 68 20 74 69 63 6b 20 | 90 17 2a 2a 0d 0d ca 4c |th tick |..**...L|
|00003800| f4 20 2a 2a 20 90 11 6e | 20 20 3d 20 20 4e 6f 72 |. ** ..n| = Nor|
|00003810| 6d 61 6c 20 66 6f 6c 6c | 6f 77 65 64 20 62 79 20 |mal foll|owed by |
|00003820| 64 61 73 68 65 64 20 6c | 69 6e 65 20 90 0d 2a 2a |dashed l|ine ..**|
|00003830| 0d 0d d4 4c f4 20 2a 2a | 20 90 11 67 20 20 3d 20 |...L. **| ..g = |
|00003840| 20 47 72 65 79 65 64 20 | 6f 75 74 20 66 6f 6c 6c | Greyed |out foll|
|00003850| 6f 77 65 64 20 62 79 20 | 64 61 73 68 65 64 20 6c |owed by |dashed l|
|00003860| 69 6e 65 20 90 09 2a 2a | 0d 0d de 4c f4 20 2a 2a |ine ..**|...L. **|
|00003870| 20 90 11 74 20 20 3d 20 | 20 54 69 63 6b 65 64 20 | ..t = | Ticked |
|00003880| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 64 61 73 68 |followed| by dash|
|00003890| 65 64 20 6c 69 6e 65 20 | 90 0d 2a 2a 0d 0d e8 4c |ed line |..**...L|
|000038a0| f4 20 2a 2a 20 90 11 6f | 20 20 3d 20 20 47 72 65 |. ** ..o| = Gre|
|000038b0| 79 65 64 20 6f 75 74 20 | 77 69 74 68 20 74 69 63 |yed out |with tic|
|000038c0| 6b 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 90 0b |k follow|ed by ..|
|000038d0| 2a 2a 0d 0d f2 4c f4 20 | 2a 2a 20 90 17 64 61 73 |**...L. |** ..das|
|000038e0| 68 65 64 20 6c 69 6e 65 | 20 90 20 2a 2a 0d 0d fc |hed line| . **...|
|000038f0| 4c f4 20 2a 2a 20 90 42 | 2a 2a 0d 0e 06 4c f4 20 |L. ** .B|**...L. |
|00003900| 2a 2a 20 90 03 46 6f 6c | 6c 6f 77 65 64 20 62 79 |** ..Fol|lowed by|
|00003910| 20 3a 20 4c 20 20 3d 20 | 20 4c 69 6e 6b 65 64 20 | : L = | Linked |
|00003920| 28 68 61 6e 64 6c 65 20 | 69 73 20 6c 6f 6f 6b 65 |(handle |is looke|
|00003930| 64 20 75 70 20 69 6e 20 | 6c 69 6e 6b 73 25 28 29 |d up in |links%()|
|00003940| 29 20 90 03 2a 2a 0d 0e | 10 4c f4 20 2a 2a 20 90 |) ..**..|.L. ** .|
|00003950| 11 4e 20 20 3d 20 20 4e | 6f 74 20 6c 69 6e 6b 65 |.N = N|ot linke|
|00003960| 64 20 90 21 2a 2a 0d 0e | 1a 4c f4 20 2a 2a 20 90 |d .!**..|.L. ** .|
|00003970| 42 2a 2a 0d 0e 24 4c f4 | 20 2a 2a 20 90 03 54 68 |B**..$L.| ** ..Th|
|00003980| 65 20 66 69 72 73 74 20 | 27 69 74 65 6d 27 20 69 |e first |'item' i|
|00003990| 6e 20 74 68 65 20 6c 69 | 73 74 20 6d 75 73 74 20 |n the li|st must |
|000039a0| 62 65 20 74 68 65 20 6d | 65 6e 75 27 73 20 74 69 |be the m|enu's ti|
|000039b0| 74 6c 65 2e 20 90 09 2a | 2a 0d 0e 2e 4c f4 20 2a |tle. ..*|*...L. *|
|000039c0| 2a 20 90 03 54 68 65 20 | 6d 65 6e 75 20 77 69 64 |* ..The |menu wid|
|000039d0| 74 68 20 69 73 20 63 61 | 6c 63 75 6c 61 74 65 64 |th is ca|lculated|
|000039e0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 2e 20 | automat|ically. |
|000039f0| 90 14 2a 2a 0d 0e 38 4c | f4 20 2a 2a 20 90 03 54 |..**..8L|. ** ..T|
|00003a00| 68 65 20 72 65 74 75 72 | 6e 65 64 20 6d 65 6e 75 |he retur|ned menu|
|00003a10| 20 68 65 69 67 68 74 20 | 69 73 20 66 6f 72 20 69 | height |is for i|
|00003a20| 63 6f 6e 20 62 61 72 20 | 6d 65 6e 75 73 2e 20 90 |con bar |menus. .|
|00003a30| 10 2a 2a 0d 0e 42 4c f4 | 20 2a 2a 20 90 42 2a 2a |.**..BL.| ** .B**|
|00003a40| 0d 0e 4c 4c f4 20 2a 90 | 46 0d 0e 56 4f dd 20 f2 |..LL. *.|F..VO. .|
|00003a50| 64 65 66 69 6e 65 5f 6d | 65 6e 75 5f 62 6c 6f 63 |define_m|enu_bloc|
|00003a60| 6b 28 6d 65 6e 75 5f 73 | 74 72 69 6e 67 24 2c 20 |k(menu_s|tring$, |
|00003a70| 6c 69 6e 6b 73 25 28 29 | 2c 20 f8 20 6d 65 6e 75 |links%()|, . menu|
|00003a80| 5f 62 6c 6f 63 6b 25 2c | 20 f8 20 6d 65 6e 75 5f |_block%,| . menu_|
|00003a90| 68 65 69 67 68 74 25 29 | 0d 0e 60 05 3a 0d 0e 6a |height%)|..`.:..j|
|00003aa0| 40 f4 20 2a 2a 20 43 68 | 65 63 6b 20 74 68 65 20 |@. ** Ch|eck the |
|00003ab0| 64 65 74 61 69 6c 20 73 | 74 72 69 6e 67 20 6c 65 |detail s|tring le|
|00003ac0| 6e 67 74 68 20 28 4d 69 | 6e 20 3d 20 22 54 a4 49 |ngth (Mi|n = "T.I|
|00003ad0| a4 4e 4e a4 22 20 3d 20 | 37 29 20 2a 2a 0d 0e 74 |.NN." = |7) **..t|
|00003ae0| 1e 6c 65 6e 67 74 68 25 | 20 20 3d 20 a9 28 6d 65 |.length%| = .(me|
|00003af0| 6e 75 5f 73 74 72 69 6e | 67 24 29 0d 0e 7e 13 e7 |nu_strin|g$)..~..|
|00003b00| 20 6c 65 6e 67 74 68 25 | 20 3c 20 37 20 8c 0d 0e | length%| < 7 ...|
|00003b10| 88 40 20 90 03 f2 65 72 | 72 6f 72 28 22 4d 65 6e |.@ ...er|ror("Men|
|00003b20| 75 20 44 65 66 69 6e 65 | 22 2c 20 31 2c 20 22 4d |u Define|", 1, "M|
|00003b30| 65 6e 75 20 64 65 74 61 | 69 6c 20 73 74 72 69 6e |enu deta|il strin|
|00003b40| 67 20 74 6f 6f 20 73 68 | 6f 72 74 2e 22 29 0d 0e |g too sh|ort.")..|
|00003b50| 92 05 cd 0d 0e 9c 05 3a | 0d 0e a6 47 70 6f 69 6e |.......:|...Gpoin|
|00003b60| 74 65 72 25 20 3d 20 31 | 20 3a 20 f4 20 2a 2a 20 |ter% = 1| : . ** |
|00003b70| 54 68 69 73 20 70 6f 69 | 6e 74 73 20 74 6f 20 74 |This poi|nts to t|
|00003b80| 68 65 20 6e 65 78 74 20 | 63 68 61 72 61 63 74 65 |he next |characte|
|00003b90| 72 20 74 6f 20 62 65 20 | 72 65 61 64 20 2a 2a 0d |r to be |read **.|
|00003ba0| 0e b0 18 6e 75 6d 62 65 | 72 5f 6f 66 5f 69 74 65 |...numbe|r_of_ite|
|00003bb0| 6d 73 25 20 3d 20 30 0d | 0e ba 15 65 78 74 72 61 |ms% = 0.|...extra|
|00003bc0| 5f 68 65 69 67 68 74 25 | 20 3d 20 30 0d 0e c4 1d |_height%| = 0....|
|00003bd0| 70 69 78 65 6c 73 5f 70 | 65 72 5f 63 68 61 72 61 |pixels_p|er_chara|
|00003be0| 63 74 65 72 25 20 3d 20 | 38 0d 0e ce 18 63 75 72 |cter% = |8....cur|
|00003bf0| 72 65 6e 74 5f 64 65 74 | 61 69 6c 24 20 3d 20 22 |rent_det|ail$ = "|
|00003c00| 22 0d 0e d8 1c 6d 65 6e | 75 5f 62 6c 6f 63 6b 5f |"....men|u_block_|
|00003c10| 70 6f 69 6e 74 65 72 25 | 20 3d 20 32 38 0d 0e e2 |pointer%| = 28...|
|00003c20| 15 6c 69 6e 6b 5f 70 6f | 69 6e 74 65 72 25 20 3d |.link_po|inter% =|
|00003c30| 20 31 0d 0e ec 05 3a 0d | 0e f6 14 6d 65 6e 75 5f | 1....:.|...menu_|
|00003c40| 74 69 74 6c 65 24 20 3d | 20 22 22 0d 0f 00 3a f2 |title$ =| ""...:.|
|00003c50| 72 65 61 64 5f 6d 65 6e | 75 5f 64 65 74 61 69 6c |read_men|u_detail|
|00003c60| 28 6d 65 6e 75 5f 73 74 | 72 69 6e 67 24 2c 20 70 |(menu_st|ring$, p|
|00003c70| 6f 69 6e 74 65 72 25 2c | 20 6d 65 6e 75 5f 74 69 |ointer%,| menu_ti|
|00003c80| 74 6c 65 24 29 0d 0f 0a | 1b e7 20 a9 28 6d 65 6e |tle$)...|.. .(men|
|00003c90| 75 5f 74 69 74 6c 65 24 | 29 20 3e 20 31 32 20 8c |u_title$|) > 12 .|
|00003ca0| 0d 0f 14 56 20 90 03 f2 | 65 72 72 6f 72 28 22 4d |...V ...|error("M|
|00003cb0| 65 6e 75 20 44 65 66 69 | 6e 65 22 2c 20 31 2c 20 |enu Defi|ne", 1, |
|00003cc0| 22 4d 65 6e 75 20 74 69 | 74 6c 65 20 74 6f 6f 20 |"Menu ti|tle too |
|00003cd0| 6c 6f 6e 67 2e 20 20 49 | 6e 63 6f 72 72 65 63 74 |long. I|ncorrect|
|00003ce0| 20 6d 65 6e 75 20 64 65 | 74 61 69 6c 20 73 74 72 | menu de|tail str|
|00003cf0| 69 6e 67 2e 22 29 0d 0f | 1e 05 cd 0d 0f 28 22 6c |ing.")..|.....("l|
|00003d00| 6f 6e 67 65 73 74 5f 69 | 74 65 6d 25 20 3d 20 a9 |ongest_i|tem% = .|
|00003d10| 28 6d 65 6e 75 5f 74 69 | 74 6c 65 24 29 0d 0f 32 |(menu_ti|tle$)..2|
|00003d20| 1e 24 6d 65 6e 75 5f 62 | 6c 6f 63 6b 25 20 3d 20 |.$menu_b|lock% = |
|00003d30| 6d 65 6e 75 5f 74 69 74 | 6c 65 24 0d 0f 3c 05 3a |menu_tit|le$..<.:|
|00003d40| 0d 0f 46 16 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 3f |..F.menu|_block%?|
|00003d50| 31 32 20 3d 20 37 0d 0f | 50 16 6d 65 6e 75 5f 62 |12 = 7..|P.menu_b|
|00003d60| 6c 6f 63 6b 25 3f 31 33 | 20 3d 20 32 0d 0f 5a 16 |lock%?13| = 2..Z.|
|00003d70| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 3f 31 34 20 3d |menu_blo|ck%?14 =|
|00003d80| 20 37 0d 0f 64 16 6d 65 | 6e 75 5f 62 6c 6f 63 6b | 7..d.me|nu_block|
|00003d90| 25 3f 31 35 20 3d 20 30 | 0d 0f 6e 3c 6d 65 6e 75 |%?15 = 0|..n<menu|
|00003da0| 5f 62 6c 6f 63 6b 25 21 | 32 30 20 3d 20 34 34 20 |_block%!|20 = 44 |
|00003db0| 20 3a 20 f4 20 2a 2a 20 | 4c 65 6e 67 74 68 20 69 | : . ** |Length i|
|00003dc0| 6e 20 70 69 78 65 6c 73 | 20 70 65 72 20 69 74 65 |n pixels| per ite|
|00003dd0| 6d 20 2a 2a 0d 0f 78 16 | 6d 65 6e 75 5f 62 6c 6f |m **..x.|menu_blo|
|00003de0| 63 6b 25 21 32 34 20 3d | 20 30 0d 0f 82 05 3a 0d |ck%!24 =| 0....:.|
|00003df0| 0f 8c 05 f5 0d 0f 96 1b | 20 20 6e 75 6d 62 65 72 |........| number|
|00003e00| 5f 6f 66 5f 69 74 65 6d | 73 25 20 2b 3d 20 31 0d |_of_item|s% += 1.|
|00003e10| 0f a0 2e 20 20 69 74 65 | 6d 5f 73 74 61 72 74 5f |... ite|m_start_|
|00003e20| 6d 61 72 6b 65 72 25 20 | 3d 20 6d 65 6e 75 5f 62 |marker% |= menu_b|
|00003e30| 6c 6f 63 6b 5f 70 6f 69 | 6e 74 65 72 25 0d 0f aa |lock_poi|nter%...|
|00003e40| 29 20 20 6d 65 6e 75 5f | 62 6c 6f 63 6b 25 21 6d |) menu_|block%!m|
|00003e50| 65 6e 75 5f 62 6c 6f 63 | 6b 5f 70 6f 69 6e 74 65 |enu_bloc|k_pointe|
|00003e60| 72 25 20 3d 20 30 0d 0f | b4 07 20 20 3a 0d 0f be |r% = 0..|.. :...|
|00003e70| 15 20 20 69 63 6f 6e 5f | 74 65 78 74 24 20 3d 20 |. icon_|text$ = |
|00003e80| 22 22 0d 0f c8 18 20 20 | 69 63 6f 6e 5f 64 65 74 |"".... |icon_det|
|00003e90| 61 69 6c 73 24 20 3d 20 | 22 22 0d 0f d2 3b 20 20 |ails$ = |""...; |
|00003ea0| f2 72 65 61 64 5f 6d 65 | 6e 75 5f 64 65 74 61 69 |.read_me|nu_detai|
|00003eb0| 6c 28 6d 65 6e 75 5f 73 | 74 72 69 6e 67 24 2c 20 |l(menu_s|tring$, |
|00003ec0| 70 6f 69 6e 74 65 72 25 | 2c 20 69 63 6f 6e 5f 74 |pointer%|, icon_t|
|00003ed0| 65 78 74 24 29 0d 0f dc | 3e 20 20 f2 72 65 61 64 |ext$)...|> .read|
|00003ee0| 5f 6d 65 6e 75 5f 64 65 | 74 61 69 6c 28 6d 65 6e |_menu_de|tail(men|
|00003ef0| 75 5f 73 74 72 69 6e 67 | 24 2c 20 70 6f 69 6e 74 |u_string|$, point|
|00003f00| 65 72 25 2c 20 69 63 6f | 6e 5f 64 65 74 61 69 6c |er%, ico|n_detail|
|00003f10| 73 24 29 0d 0f e6 1f 20 | 20 e7 20 a9 28 69 63 6f |s$).... | . .(ico|
|00003f20| 6e 5f 64 65 74 61 69 6c | 73 24 29 20 3c 3e 20 32 |n_detail|s$) <> 2|
|00003f30| 20 8c 0d 0f f0 69 20 90 | 05 6d 65 73 73 61 67 65 | ....i .|.message|
|00003f40| 24 20 3d 20 22 4e 6f 74 | 20 65 6e 6f 75 67 68 74 |$ = "Not| enought|
|00003f50| 20 64 65 74 61 69 6c 73 | 20 61 74 20 70 6f 73 69 | details| at posi|
|00003f60| 74 69 6f 6e 20 22 20 2b | 20 c3 28 70 6f 69 6e 74 |tion " +| .(point|
|00003f70| 65 72 25 29 20 2b 20 22 | 2e 20 20 49 6e 63 6f 72 |er%) + "|. Incor|
|00003f80| 72 65 63 74 20 6d 65 6e | 75 20 64 65 74 61 69 6c |rect men|u detail|
|00003f90| 20 73 74 72 69 6e 67 2e | 22 0d 0f fa 2b 20 90 05 | string.|"...+ ..|
|00003fa0| f2 65 72 72 6f 72 28 22 | 4d 65 6e 75 20 44 65 66 |.error("|Menu Def|
|00003fb0| 69 6e 65 22 2c 20 31 2c | 20 6d 65 73 73 61 67 65 |ine", 1,| message|
|00003fc0| 24 29 0d 10 04 07 20 20 | cd 0d 10 0e 07 20 20 3a |$).... |..... :|
|00003fd0| 0d 10 18 26 20 20 64 65 | 74 61 69 6c 5f 6f 6e 65 |...& de|tail_one|
|00003fe0| 24 20 3d 20 c0 69 63 6f | 6e 5f 64 65 74 61 69 6c |$ = .ico|n_detail|
|00003ff0| 73 24 2c 20 31 29 0d 10 | 22 26 20 20 64 65 74 61 |s$, 1)..|"& deta|
|00004000| 69 6c 5f 74 77 6f 24 20 | 3d 20 c2 69 63 6f 6e 5f |il_two$ |= .icon_|
|00004010| 64 65 74 61 69 6c 73 24 | 2c 20 31 29 0d 10 2c 07 |details$|, 1)..,.|
|00004020| 20 20 3a 0d 10 36 16 20 | 20 c8 8e 20 64 65 74 61 | :..6. | .. deta|
|00004030| 69 6c 5f 74 77 6f 24 20 | ca 0d 10 40 4d 20 90 04 |il_two$ |...@M ..|
|00004040| c9 20 22 4c 22 20 3a 20 | 6d 65 6e 75 5f 62 6c 6f |. "L" : |menu_blo|
|00004050| 63 6b 25 21 28 6d 65 6e | 75 5f 62 6c 6f 63 6b 5f |ck%!(men|u_block_|
|00004060| 70 6f 69 6e 74 65 72 25 | 20 2b 20 34 29 20 3d 20 |pointer%| + 4) = |
|00004070| 6c 69 6e 6b 73 25 28 6c | 69 6e 6b 5f 70 6f 69 6e |links%(l|ink_poin|
|00004080| 74 65 72 25 29 0d 10 4a | 25 20 90 0f 6c 69 6e 6b |ter%)..J|% ..link|
|00004090| 5f 70 6f 69 6e 74 65 72 | 25 20 2b 3d 20 31 0d 10 |_pointer|% += 1..|
|000040a0| 54 3a 20 90 04 c9 20 22 | 4e 22 20 3a 20 6d 65 6e |T: ... "|N" : men|
|000040b0| 75 5f 62 6c 6f 63 6b 25 | 21 28 6d 65 6e 75 5f 62 |u_block%|!(menu_b|
|000040c0| 6c 6f 63 6b 5f 70 6f 69 | 6e 74 65 72 25 20 2b 20 |lock_poi|nter% + |
|000040d0| 34 29 20 3d 20 2d 31 0d | 10 5e 07 20 20 7f 0d 10 |4) = -1.|.^. ...|
|000040e0| 68 67 20 90 04 6d 65 73 | 73 61 67 65 24 20 3d 20 |hg ..mes|sage$ = |
|000040f0| 22 45 72 72 6f 72 20 69 | 6e 20 64 65 74 61 69 6c |"Error i|n detail|
|00004100| 20 74 77 6f 20 61 74 20 | 70 6f 73 69 74 69 6f 6e | two at |position|
|00004110| 20 22 2b 20 c3 28 70 6f | 69 6e 74 65 72 25 29 20 | "+ .(po|inter%) |
|00004120| 2b 20 22 2e 20 20 49 6e | 63 6f 72 72 65 63 74 20 |+ ". In|correct |
|00004130| 6d 65 6e 75 20 64 65 74 | 61 69 6c 20 73 74 72 69 |menu det|ail stri|
|00004140| 6e 67 2e 22 0d 10 72 2a | 20 90 04 f2 65 72 72 6f |ng."..r*| ...erro|
|00004150| 72 28 22 4d 65 6e 75 20 | 44 65 66 69 6e 65 22 2c |r("Menu |Define",|
|00004160| 20 31 2c 20 6d 65 73 73 | 61 67 65 24 29 0d 10 7c | 1, mess|age$)..||
|00004170| 07 20 20 cb 0d 10 86 07 | 20 20 3a 0d 10 90 00 16 |. .....| :.....|
|00004180| 20 20 c8 8e 20 64 65 74 | 61 69 6c 5f 6f 6e 65 24 | .. det|ail_one$|
|00004190| 20 ca 0d 10 9a 41 20 90 | 04 c9 20 22 4e 22 20 3a | ....A .|.. "N" :|
|000041a0| 20 6d 65 6e 75 5f 62 6c | 6f 63 6b 25 21 28 6d 65 | menu_bl|ock%!(me|
|000041b0| 6e 75 5f 62 6c 6f 63 6b | 5f 70 6f 69 6e 74 65 72 |nu_block|_pointer|
|000041c0| 25 20 2b 20 38 29 20 3d | 20 26 30 37 30 90 05 31 |% + 8) =| &070..1|
|000041d0| 0d 10 a4 55 20 90 04 c9 | 20 22 47 22 20 3a 20 6d |...U ...| "G" : m|
|000041e0| 65 6e 75 5f 62 6c 6f 63 | 6b 25 21 28 6d 65 6e 75 |enu_bloc|k%!(menu|
|000041f0| 5f 62 6c 6f 63 6b 5f 70 | 6f 69 6e 74 65 72 25 20 |_block_p|ointer% |
|00004200| 2b 20 38 29 20 3d 20 25 | 31 90 04 30 31 30 90 05 |+ 8) = %|1..010..|
|00004210| 31 30 90 0f 31 0d 10 ae | 41 20 90 04 c9 20 22 54 |10..1...|A ... "T|
|00004220| 22 20 3a 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 |" : menu|_block%!|
|00004230| 28 6d 65 6e 75 5f 62 6c | 6f 63 6b 5f 70 6f 69 6e |(menu_bl|ock_poin|
|00004240| 74 65 72 25 20 2b 20 38 | 29 20 3d 20 26 30 37 30 |ter% + 8|) = &070|
|00004250| 90 05 31 0d 10 b8 3a 20 | 90 0f 6d 65 6e 75 5f 62 |..1...: |..menu_b|
|00004260| 6c 6f 63 6b 25 21 6d 65 | 6e 75 5f 62 6c 6f 63 6b |lock%!me|nu_block|
|00004270| 5f 70 6f 69 6e 74 65 72 | 25 20 3d 20 25 30 90 03 |_pointer|% = %0..|
|00004280| 31 0d 10 c2 55 20 90 04 | c9 20 22 4f 22 20 3a 20 |1...U ..|. "O" : |
|00004290| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 21 28 6d 65 6e |menu_blo|ck%!(men|
|000042a0| 75 5f 62 6c 6f 63 6b 5f | 70 6f 69 6e 74 65 72 25 |u_block_|pointer%|
|000042b0| 20 2b 20 38 29 20 3d 20 | 25 31 90 04 30 31 30 90 | + 8) = |%1..010.|
|000042c0| 05 31 30 90 0f 31 0d 10 | cc 3a 20 90 0f 6d 65 6e |.10..1..|.: ..men|
|000042d0| 75 5f 62 6c 6f 63 6b 25 | 21 6d 65 6e 75 5f 62 6c |u_block%|!menu_bl|
|000042e0| 6f 63 6b 5f 70 6f 69 6e | 74 65 72 25 20 3d 20 25 |ock_poin|ter% = %|
|000042f0| 30 90 03 31 0d 10 d6 41 | 20 90 04 c9 20 22 6e 22 |0..1...A| ... "n"|
|00004300| 20 3a 20 6d 65 6e 75 5f | 62 6c 6f 63 6b 25 21 28 | : menu_|block%!(|
|00004310| 6d 65 6e 75 5f 62 6c 6f | 63 6b 5f 70 6f 69 6e 74 |menu_blo|ck_point|
|00004320| 65 72 25 20 2b 20 38 29 | 20 3d 20 26 30 37 30 90 |er% + 8)| = &070.|
|00004330| 05 31 0d 10 e0 3a 20 90 | 0f 6d 65 6e 75 5f 62 6c |.1...: .|.menu_bl|
|00004340| 6f 63 6b 25 21 6d 65 6e | 75 5f 62 6c 6f 63 6b 5f |ock%!men|u_block_|
|00004350| 70 6f 69 6e 74 65 72 25 | 20 3d 20 25 30 30 31 30 |pointer%| = %0010|
|00004360| 0d 10 ea 26 20 90 0f 65 | 78 74 72 61 5f 68 65 69 |...& ..e|xtra_hei|
|00004370| 67 68 74 25 20 2b 3d 20 | 32 34 0d 10 f4 55 20 90 |ght% += |24...U .|
|00004380| 04 c9 20 22 67 22 20 3a | 20 6d 65 6e 75 5f 62 6c |.. "g" :| menu_bl|
|00004390| 6f 63 6b 25 21 28 6d 65 | 6e 75 5f 62 6c 6f 63 6b |ock%!(me|nu_block|
|000043a0| 5f 70 6f 69 6e 74 65 72 | 25 20 2b 20 38 29 20 3d |_pointer|% + 8) =|
|000043b0| 20 25 31 90 04 30 31 30 | 90 05 31 30 90 0f 31 0d | %1..010|..10..1.|
|000043c0| 10 fe 3a 20 90 0f 6d 65 | 6e 75 5f 62 6c 6f 63 6b |..: ..me|nu_block|
|000043d0| 25 21 6d 65 6e 75 5f 62 | 6c 6f 63 6b 5f 70 6f 69 |%!menu_b|lock_poi|
|000043e0| 6e 74 65 72 25 20 3d 20 | 25 30 30 31 30 0d 11 08 |nter% = |%0010...|
|000043f0| 26 20 90 0f 65 78 74 72 | 61 5f 68 65 69 67 68 74 |& ..extr|a_height|
|00004400| 25 20 2b 3d 20 32 34 0d | 11 12 41 20 90 04 c9 20 |% += 24.|..A ... |
|00004410| 22 74 22 20 3a 20 6d 65 | 6e 75 5f 62 6c 6f 63 6b |"t" : me|nu_block|
|00004420| 25 21 28 6d 65 6e 75 5f | 62 6c 6f 63 6b 5f 70 6f |%!(menu_|block_po|
|00004430| 69 6e 74 65 72 25 20 2b | 20 38 29 20 3d 20 26 30 |inter% +| 8) = &0|
|00004440| 37 30 90 05 31 0d 11 1c | 3a 20 90 0f 6d 65 6e 75 |70..1...|: ..menu|
|00004450| 5f 62 6c 6f 63 6b 25 21 | 6d 65 6e 75 5f 62 6c 6f |_block%!|menu_blo|
|00004460| 63 6b 5f 70 6f 69 6e 74 | 65 72 25 20 3d 20 25 30 |ck_point|er% = %0|
|00004470| 30 31 31 0d 11 26 26 20 | 90 0f 65 78 74 72 61 5f |011..&& |..extra_|
|00004480| 68 65 69 67 68 74 25 20 | 2b 3d 20 32 34 0d 11 30 |height% |+= 24..0|
|00004490| 55 20 90 04 c9 20 22 6f | 22 20 3a 20 6d 65 6e 75 |U ... "o|" : menu|
|000044a0| 5f 62 6c 6f 63 6b 25 21 | 28 6d 65 6e 75 5f 62 6c |_block%!|(menu_bl|
|000044b0| 6f 63 6b 5f 70 6f 69 6e | 74 65 72 25 20 2b 20 38 |ock_poin|ter% + 8|
|000044c0| 29 20 3d 20 25 31 90 04 | 30 31 30 90 05 31 30 90 |) = %1..|010..10.|
|000044d0| 0f 31 0d 11 3a 3a 20 90 | 0f 6d 65 6e 75 5f 62 6c |.1..:: .|.menu_bl|
|000044e0| 6f 63 6b 25 21 6d 65 6e | 75 5f 62 6c 6f 63 6b 5f |ock%!men|u_block_|
|000044f0| 70 6f 69 6e 74 65 72 25 | 20 3d 20 25 30 30 31 31 |pointer%| = %0011|
|00004500| 0d 11 44 26 20 90 0f 65 | 78 74 72 61 5f 68 65 69 |..D& ..e|xtra_hei|
|00004510| 67 68 74 25 20 2b 3d 20 | 32 34 0d 11 4e 07 20 20 |ght% += |24..N. |
|00004520| 7f 0d 11 58 67 20 90 04 | 6d 65 73 73 61 67 65 24 |...Xg ..|message$|
|00004530| 20 3d 20 22 45 72 72 6f | 72 20 69 6e 20 64 65 74 | = "Erro|r in det|
|00004540| 61 69 6c 20 6f 6e 65 20 | 61 74 20 70 6f 73 69 74 |ail one |at posit|
|00004550| 69 6f 6e 20 22 2b 20 c3 | 28 70 6f 69 6e 74 65 72 |ion "+ .|(pointer|
|00004560| 25 29 20 2b 20 22 2e 20 | 20 49 6e 63 6f 72 72 65 |%) + ". | Incorre|
|00004570| 63 74 20 6d 65 6e 75 20 | 64 65 74 61 69 6c 20 73 |ct menu |detail s|
|00004580| 74 72 69 6e 67 2e 22 0d | 11 62 2a 20 90 04 f2 65 |tring.".|.b* ...e|
|00004590| 72 72 6f 72 28 22 4d 65 | 6e 75 20 44 65 66 69 6e |rror("Me|nu Defin|
|000045a0| 65 22 2c 20 31 2c 20 6d | 65 73 73 61 67 65 24 29 |e", 1, m|essage$)|
|000045b0| 0d 11 6c 07 20 20 cb 0d | 11 76 07 20 20 3a 0d 11 |..l. ..|.v. :..|
|000045c0| 80 3c 20 20 24 28 6d 65 | 6e 75 5f 62 6c 6f 63 6b |.< $(me|nu_block|
|000045d0| 25 2b 28 6d 65 6e 75 5f | 62 6c 6f 63 6b 5f 70 6f |%+(menu_|block_po|
|000045e0| 69 6e 74 65 72 25 20 2b | 20 31 32 29 29 20 3d 20 |inter% +| 12)) = |
|000045f0| 69 63 6f 6e 5f 74 65 78 | 74 24 0d 11 8a 27 20 20 |icon_tex|t$...' |
|00004600| e7 20 a9 28 69 63 6f 6e | 5f 74 65 78 74 24 29 20 |. .(icon|_text$) |
|00004610| 3e 20 6c 6f 6e 67 65 73 | 74 5f 69 74 65 6d 25 20 |> longes|t_item% |
|00004620| 8c 0d 11 94 26 20 90 05 | 6c 6f 6e 67 65 73 74 5f |....& ..|longest_|
|00004630| 69 74 65 6d 25 20 3d 20 | a9 28 69 63 6f 6e 5f 74 |item% = |.(icon_t|
|00004640| 65 78 74 24 29 0d 11 9e | 07 20 20 cd 0d 11 a8 07 |ext$)...|. .....|
|00004650| 20 20 3a 0d 11 b2 1b 20 | 20 f4 20 2a 2a 20 4e 65 | :.... | . ** Ne|
|00004660| 78 74 20 70 6c 65 61 73 | 65 21 21 20 2a 2a 0d 11 |xt pleas|e!! **..|
|00004670| bc 1f 20 20 6d 65 6e 75 | 5f 62 6c 6f 63 6b 5f 70 |.. menu|_block_p|
|00004680| 6f 69 6e 74 65 72 25 20 | 2b 3d 20 32 34 0d 11 c6 |ointer% |+= 24...|
|00004690| 18 fd 20 70 6f 69 6e 74 | 65 72 25 20 3e 20 6c 65 |.. point|er% > le|
|000046a0| 6e 67 74 68 25 0d 11 d0 | 05 3a 0d 11 da 26 f4 20 |ngth%...|.:...&. |
|000046b0| 2a 2a 20 49 6e 64 69 63 | 61 74 65 20 6c 61 73 74 |** Indic|ate last|
|000046c0| 20 69 74 65 6d 20 72 65 | 61 63 68 65 64 20 2a 2a | item re|ached **|
|000046d0| 0d 11 e4 49 6d 65 6e 75 | 5f 62 6c 6f 63 6b 25 21 |...Imenu|_block%!|
|000046e0| 69 74 65 6d 5f 73 74 61 | 72 74 5f 6d 61 72 6b 65 |item_sta|rt_marke|
|000046f0| 72 25 20 3d 20 31 32 38 | 20 2b 20 6d 65 6e 75 5f |r% = 128| + menu_|
|00004700| 62 6c 6f 63 6b 25 21 69 | 74 65 6d 5f 73 74 61 72 |block%!i|tem_star|
|00004710| 74 5f 6d 61 72 6b 65 72 | 25 0d 11 ee 05 3a 0d 11 |t_marker|%....:..|
|00004720| f8 1e f4 20 2a 2a 20 53 | 65 74 20 74 68 65 20 6d |... ** S|et the m|
|00004730| 65 6e 75 20 77 69 64 74 | 68 20 2a 2a 0d 12 02 29 |enu widt|h **...)|
|00004740| 6d 65 6e 75 5f 62 6c 6f | 63 6b 25 21 31 36 20 3d |menu_blo|ck%!16 =|
|00004750| 20 28 31 38 20 2a 20 6c | 6f 6e 67 65 73 74 5f 69 | (18 * l|ongest_i|
|00004760| 74 65 6d 25 29 0d 12 0c | 05 3a 0d 12 16 1f f4 20 |tem%)...|.:..... |
|00004770| 2a 2a 20 53 65 74 20 74 | 68 65 20 6d 65 6e 75 20 |** Set t|he menu |
|00004780| 68 65 69 67 68 74 20 2a | 2a 0d 12 20 3f 6d 65 6e |height *|*.. ?men|
|00004790| 75 5f 68 65 69 67 68 74 | 25 20 3d 20 28 6e 75 6d |u_height|% = (num|
|000047a0| 62 65 72 5f 6f 66 5f 69 | 74 65 6d 73 25 20 2a 20 |ber_of_i|tems% * |
|000047b0| 34 34 29 20 2b 20 39 36 | 20 2b 20 65 78 74 72 61 |44) + 96| + extra|
|000047c0| 5f 68 65 69 67 68 74 25 | 0d 12 2a 05 e1 0d 12 34 |_height%|..*....4|
|000047d0| 05 3a 0d 12 3e 35 f4 20 | 2a 90 2f 0d 12 48 35 f4 |.:..>5. |*./..H5.|
|000047e0| 20 2a 2a 20 52 65 61 64 | 20 64 65 74 61 69 6c 20 | ** Read| detail |
|000047f0| 50 72 6f 63 65 64 75 72 | 65 20 56 31 2e 30 31 20 |Procedur|e V1.01 |
|00004800| 42 79 20 53 69 6d 6f 6e | 20 49 6e 6e 73 20 2a 2a |By Simon| Inns **|
|00004810| 0d 12 52 35 f4 20 2a 2a | 20 90 2b 2a 2a 0d 12 5c |..R5. **| .+**..\|
|00004820| 35 f4 20 2a 2a 20 4c 61 | 73 74 20 75 70 64 61 74 |5. ** La|st updat|
|00004830| 65 20 3a 20 32 39 2f 31 | 32 2f 39 32 20 90 14 2a |e : 29/1|2/92 ..*|
|00004840| 2a 0d 12 66 35 f4 20 2a | 90 2f 0d 12 70 44 dd 20 |*..f5. *|./..pD. |
|00004850| f2 72 65 61 64 5f 6d 65 | 6e 75 5f 64 65 74 61 69 |.read_me|nu_detai|
|00004860| 6c 28 6d 65 6e 75 5f 73 | 74 72 69 6e 67 24 2c 20 |l(menu_s|tring$, |
|00004870| f8 20 70 6f 69 6e 74 65 | 72 25 2c 20 f8 20 63 75 |. pointe|r%, . cu|
|00004880| 72 72 65 6e 74 5f 64 65 | 74 61 69 6c 24 29 0d 12 |rrent_de|tail$)..|
|00004890| 7a 05 3a 0d 12 84 18 63 | 75 72 72 65 6e 74 5f 64 |z.:....c|urrent_d|
|000048a0| 65 74 61 69 6c 24 20 3d | 20 22 22 0d 12 8e 1b 63 |etail$ =| ""....c|
|000048b0| 75 72 72 65 6e 74 5f 63 | 68 61 72 61 63 74 65 72 |urrent_c|haracter|
|000048c0| 24 20 3d 20 22 22 0d 12 | 98 18 63 68 61 72 61 63 |$ = ""..|..charac|
|000048d0| 74 65 72 73 5f 72 65 61 | 64 25 20 3d 20 30 0d 12 |ters_rea|d% = 0..|
|000048e0| a2 05 3a 0d 12 ac 05 f5 | 0d 12 b6 1b 20 20 63 68 |..:.....|.... ch|
|000048f0| 61 72 61 63 74 65 72 73 | 5f 72 65 61 64 25 20 2b |aracters|_read% +|
|00004900| 3d 20 31 0d 12 c0 36 20 | 20 63 75 72 72 65 6e 74 |= 1...6 | current|
|00004910| 5f 63 68 61 72 61 63 74 | 65 72 24 20 3d 20 c1 6d |_charact|er$ = .m|
|00004920| 65 6e 75 5f 73 74 72 69 | 6e 67 24 2c 20 70 6f 69 |enu_stri|ng$, poi|
|00004930| 6e 74 65 72 25 2c 20 31 | 29 0d 12 ca 5a 20 20 e7 |nter%, 1|)...Z .|
|00004940| 20 63 75 72 72 65 6e 74 | 5f 63 68 61 72 61 63 74 | current|_charact|
|00004950| 65 72 24 20 3c 3e 20 22 | a4 22 20 8c 20 63 75 72 |er$ <> "|." . cur|
|00004960| 72 65 6e 74 5f 64 65 74 | 61 69 6c 24 20 3d 20 63 |rent_det|ail$ = c|
|00004970| 75 72 72 65 6e 74 5f 64 | 65 74 61 69 6c 24 20 2b |urrent_d|etail$ +|
|00004980| 20 63 75 72 72 65 6e 74 | 5f 63 68 61 72 61 63 74 | current|_charact|
|00004990| 65 72 24 0d 12 d4 13 20 | 20 70 6f 69 6e 74 65 72 |er$.... | pointer|
|000049a0| 25 20 2b 3d 20 31 0d 12 | de 26 20 20 e7 20 70 6f |% += 1..|.& . po|
|000049b0| 69 6e 74 65 72 25 20 3e | 20 a9 28 6d 65 6e 75 5f |inter% >| .(menu_|
|000049c0| 73 74 72 69 6e 67 24 29 | 2b 31 20 8c 0d 12 e8 57 |string$)|+1 ....W|
|000049d0| 20 90 05 f2 65 72 72 6f | 72 28 22 4d 65 6e 75 20 | ...erro|r("Menu |
|000049e0| 44 65 66 69 6e 65 22 2c | 20 31 2c 20 22 4e 6f 74 |Define",| 1, "Not|
|000049f0| 20 65 6e 6f 75 67 68 20 | 64 65 74 61 69 6c 73 2e | enough |details.|
|00004a00| 20 20 49 6e 63 6f 72 72 | 65 63 74 20 6d 65 6e 75 | Incorr|ect menu|
|00004a10| 20 64 65 74 61 69 6c 20 | 73 74 72 69 6e 67 2e 22 | detail |string."|
|00004a20| 29 0d 12 f2 07 20 20 cd | 0d 12 fc 1e fd 20 63 75 |).... .|..... cu|
|00004a30| 72 72 65 6e 74 5f 63 68 | 61 72 61 63 74 65 72 24 |rrent_ch|aracter$|
|00004a40| 20 3d 20 22 a4 22 0d 13 | 06 05 3a 0d 13 10 24 f4 | = "."..|..:...$.|
|00004a50| 20 2a 2a 20 43 68 65 63 | 6b 20 66 6f 72 20 69 6e | ** Chec|k for in|
|00004a60| 63 6f 72 72 65 63 74 20 | 72 65 61 64 20 2a 2a 0d |correct |read **.|
|00004a70| 13 1a 1c e7 20 63 68 61 | 72 61 63 74 65 72 73 5f |.... cha|racters_|
|00004a80| 72 65 61 64 25 20 3d 20 | 31 20 8c 0d 13 24 54 20 |read% = |1 ...$T |
|00004a90| 90 03 f2 65 72 72 6f 72 | 28 22 4d 65 6e 75 20 44 |...error|("Menu D|
|00004aa0| 65 66 69 6e 65 22 2c 20 | 31 2c 20 22 4e 75 6c 6c |efine", |1, "Null|
|00004ab0| 20 64 65 74 61 69 6c 20 | 66 6f 75 6e 64 2e 20 20 | detail |found. |
|00004ac0| 49 6e 63 6f 72 72 65 63 | 74 20 6d 65 6e 75 20 64 |Incorrec|t menu d|
|00004ad0| 65 74 61 69 6c 20 73 74 | 72 69 6e 67 2e 22 29 0d |etail st|ring.").|
|00004ae0| 13 2e 05 cd 0d 13 38 05 | 3a 0d 13 42 05 e1 0d 13 |......8.|:..B....|
|00004af0| 4c 05 3a 0d 13 56 33 f4 | 20 2a 90 2d 0d 13 60 33 |L.:..V3.| *.-..`3|
|00004b00| f4 20 2a 2a 20 46 69 6c | 6c 20 69 6e 66 6f 20 50 |. ** Fil|l info P|
|00004b10| 72 6f 63 65 64 75 72 65 | 20 56 31 2e 30 31 20 42 |rocedure| V1.01 B|
|00004b20| 79 20 53 69 6d 6f 6e 20 | 49 6e 6e 73 20 2a 2a 0d |y Simon |Inns **.|
|00004b30| 13 6a 33 f4 20 2a 2a 20 | 90 29 2a 2a 0d 13 74 33 |.j3. ** |.)**..t3|
|00004b40| f4 20 2a 2a 20 4c 61 73 | 74 20 75 70 64 61 74 65 |. ** Las|t update|
|00004b50| 20 3a 20 32 39 2f 31 32 | 2f 39 32 20 90 12 2a 2a | : 29/12|/92 ..**|
|00004b60| 0d 13 7e 33 f4 20 2a 90 | 2d 0d 13 88 56 dd 20 f2 |..~3. *.|-...V. .|
|00004b70| 66 69 6c 6c 5f 69 6e 66 | 6f 28 69 6e 66 6f 5f 68 |fill_inf|o(info_h|
|00004b80| 61 6e 64 6c 65 25 2c 20 | 6e 61 6d 65 24 2c 20 70 |andle%, |name$, p|
|00004b90| 75 72 70 6f 73 65 24 2c | 20 61 75 74 68 6f 72 24 |urpose$,| author$|
|00004ba0| 2c 20 76 65 72 73 69 6f | 6e 24 2c 20 6d 69 73 63 |, versio|n$, misc|
|00004bb0| 5f 74 69 74 6c 65 24 2c | 20 6d 69 73 63 24 29 0d |_title$,| misc$).|
|00004bc0| 13 92 27 f2 66 69 6c 6c | 5f 69 63 6f 6e 28 69 6e |..'.fill|_icon(in|
|00004bd0| 66 6f 5f 68 61 6e 64 6c | 65 25 2c 20 30 36 2c 20 |fo_handl|e%, 06, |
|00004be0| 6e 61 6d 65 24 29 0d 13 | 9c 2a f2 66 69 6c 6c 5f |name$)..|.*.fill_|
|00004bf0| 69 63 6f 6e 28 69 6e 66 | 6f 5f 68 61 6e 64 6c 65 |icon(inf|o_handle|
|00004c00| 25 2c 20 30 37 2c 20 70 | 75 72 70 6f 73 65 24 29 |%, 07, p|urpose$)|
|00004c10| 0d 13 a6 29 f2 66 69 6c | 6c 5f 69 63 6f 6e 28 69 |...).fil|l_icon(i|
|00004c20| 6e 66 6f 5f 68 61 6e 64 | 6c 65 25 2c 20 30 38 2c |nfo_hand|le%, 08,|
|00004c30| 20 61 75 74 68 6f 72 24 | 29 0d 13 b0 2a f2 66 69 | author$|)...*.fi|
|00004c40| 6c 6c 5f 69 63 6f 6e 28 | 69 6e 66 6f 5f 68 61 6e |ll_icon(|info_han|
|00004c50| 64 6c 65 25 2c 20 30 39 | 2c 20 76 65 72 73 69 6f |dle%, 09|, versio|
|00004c60| 6e 24 29 0d 13 ba 2d f2 | 66 69 6c 6c 5f 69 63 6f |n$)...-.|fill_ico|
|00004c70| 6e 28 69 6e 66 6f 5f 68 | 61 6e 64 6c 65 25 2c 20 |n(info_h|andle%, |
|00004c80| 31 31 2c 20 6d 69 73 63 | 5f 74 69 74 6c 65 24 29 |11, misc|_title$)|
|00004c90| 0d 13 c4 27 f2 66 69 6c | 6c 5f 69 63 6f 6e 28 69 |...'.fil|l_icon(i|
|00004ca0| 6e 66 6f 5f 68 61 6e 64 | 6c 65 25 2c 20 31 32 2c |nfo_hand|le%, 12,|
|00004cb0| 20 6d 69 73 63 24 29 0d | 13 ce 05 e1 0d 13 d8 05 | misc$).|........|
|00004cc0| 3a 0d 13 e2 33 f4 20 2a | 90 2d 0d 13 ec 33 f4 20 |:...3. *|.-...3. |
|00004cd0| 2a 2a 20 46 69 6c 6c 20 | 69 63 6f 6e 20 50 72 6f |** Fill |icon Pro|
|00004ce0| 63 65 64 75 72 65 20 56 | 31 2e 30 31 20 42 79 20 |cedure V|1.01 By |
|00004cf0| 53 69 6d 6f 6e 20 49 6e | 6e 73 20 2a 2a 0d 13 f6 |Simon In|ns **...|
|00004d00| 33 f4 20 2a 2a 20 90 29 | 2a 2a 0d 14 00 33 f4 20 |3. ** .)|**...3. |
|00004d10| 2a 2a 20 4c 61 73 74 20 | 75 70 64 61 74 65 20 3a |** Last |update :|
|00004d20| 20 31 30 2f 31 32 2f 39 | 32 20 90 12 2a 2a 0d 14 | 10/12/9|2 ..**..|
|00004d30| 0a 33 f4 20 2a 90 2d 0d | 14 14 2c dd 20 f2 66 69 |.3. *.-.|..,. .fi|
|00004d40| 6c 6c 5f 69 63 6f 6e 28 | 68 61 6e 64 6c 65 6e 6f |ll_icon(|handleno|
|00004d50| 25 2c 20 69 63 6f 6e 5f | 6e 6f 25 2c 20 74 65 78 |%, icon_|no%, tex|
|00004d60| 74 24 29 0d 14 1e 05 3a | 0d 14 28 3c f4 20 2a 2a |t$)....:|..(<. **|
|00004d70| 20 46 69 6e 64 20 74 68 | 65 20 69 63 6f 6e 27 73 | Find th|e icon's|
|00004d80| 20 69 6e 64 69 72 65 63 | 74 65 64 20 64 61 74 61 | indirec|ted data|
|00004d90| 20 61 6e 64 20 63 68 61 | 6e 67 65 20 69 74 2e 90 | and cha|nge it..|
|00004da0| 03 20 2a 2a 0d 14 32 17 | 21 62 6c 6f 63 6b 25 20 |. **..2.|!block% |
|00004db0| 3d 20 68 61 6e 64 6c 65 | 6e 6f 25 0d 14 3c 17 62 |= handle|no%..<.b|
|00004dc0| 6c 6f 63 6b 25 21 34 20 | 3d 20 69 63 6f 6e 5f 6e |lock%!4 |= icon_n|
|00004dd0| 6f 25 0d 14 46 22 c8 99 | 20 22 57 69 6d 70 5f 47 |o%..F"..| "Wimp_G|
|00004de0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00004df0| 6f 63 6b 25 0d 14 50 05 | 3a 0d 14 5a 17 21 62 6c |ock%..P.|:..Z.!bl|
|00004e00| 6f 63 6b 25 20 3d 20 68 | 61 6e 64 6c 65 6e 6f 25 |ock% = h|andleno%|
|00004e10| 0d 14 64 17 62 6c 6f 63 | 6b 25 21 34 20 3d 20 69 |..d.bloc|k%!4 = i|
|00004e20| 63 6f 6e 5f 6e 6f 25 0d | 14 6e 11 62 6c 6f 63 6b |con_no%.|.n.block|
|00004e30| 25 21 38 20 20 3d 20 30 | 0d 14 78 11 62 6c 6f 63 |%!8 = 0|..x.bloc|
|00004e40| 6b 25 21 31 32 20 3d 20 | 30 0d 14 82 18 61 64 64 |k%!12 = |0....add|
|00004e50| 72 65 73 73 25 20 3d 20 | 62 6c 6f 63 6b 25 21 32 |ress% = |block%!2|
|00004e60| 38 0d 14 8c 15 24 61 64 | 64 72 65 73 73 25 20 3d |8....$ad|dress% =|
|00004e70| 20 74 65 78 74 24 0d 14 | 96 05 3a 0d 14 a0 2f f4 | text$..|..:.../.|
|00004e80| 20 2a 2a 20 46 6f 72 63 | 65 20 74 68 65 20 77 69 | ** Forc|e the wi|
|00004e90| 6e 64 6f 77 20 74 6f 20 | 75 70 64 61 74 65 20 69 |ndow to |update i|
|00004ea0| 74 73 20 69 63 6f 6e 20 | 2a 2a 0d 14 aa 23 c8 99 |ts icon |**...#..|
|00004eb0| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00004ec0| 61 74 65 22 2c 2c 20 62 | 6c 6f 63 6b 25 0d 14 b4 |ate",, b|lock%...|
|00004ed0| 05 e1 0d 14 be 05 3a 0d | 14 c8 36 dd 20 f2 77 72 |......:.|..6. .wr|
|00004ee0| 69 74 65 5f 69 63 6f 6e | 5f 73 70 72 69 74 65 28 |ite_icon|_sprite(|
|00004ef0| 68 61 6e 64 6c 65 25 2c | 20 69 63 6f 6e 25 2c 20 |handle%,| icon%, |
|00004f00| 73 70 72 69 74 65 5f 6e | 61 6d 65 24 29 0d 14 d2 |sprite_n|ame$)...|
|00004f10| 2d f4 20 2a 2a 20 4e 6f | 74 65 3a 20 74 68 65 20 |-. ** No|te: the |
|00004f20| 69 63 6f 6e 20 6d 75 73 | 74 20 62 65 20 69 6e 64 |icon mus|t be ind|
|00004f30| 69 72 65 63 74 65 64 20 | 2a 2a 0d 14 dc 05 3a 0d |irected |**....:.|
|00004f40| 14 e6 15 21 62 6c 6f 63 | 6b 25 20 3d 20 68 61 6e |...!bloc|k% = han|
|00004f50| 64 6c 65 25 0d 14 f0 14 | 62 6c 6f 63 6b 25 21 34 |dle%....|block%!4|
|00004f60| 20 3d 20 69 63 6f 6e 25 | 0d 14 fa 23 c8 99 20 22 | = icon%|...#.. "|
|00004f70| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00004f80| 65 22 2c 2c 20 62 6c 6f | 63 6b 25 0d 15 04 19 73 |e",, blo|ck%....s|
|00004f90| 70 72 69 74 65 5f 6e 25 | 20 3d 20 62 6c 6f 63 6b |prite_n%| = block|
|00004fa0| 25 21 32 38 0d 15 0e 05 | 3a 0d 15 18 24 f4 20 2a |%!28....|:...$. *|
|00004fb0| 2a 20 52 65 2d 77 72 69 | 74 65 20 74 68 65 20 69 |* Re-wri|te the i|
|00004fc0| 63 6f 6e 27 73 20 64 61 | 74 61 20 2a 2a 0d 15 22 |con's da|ta **.."|
|00004fd0| 1d 24 73 70 72 69 74 65 | 5f 6e 25 20 3d 20 73 70 |.$sprite|_n% = sp|
|00004fe0| 72 69 74 65 5f 6e 61 6d | 65 24 0d 15 2c 17 62 6c |rite_nam|e$..,.bl|
|00004ff0| 6f 63 6b 25 21 30 20 20 | 3d 20 68 61 6e 64 6c 65 |ock%!0 |= handle|
|00005000| 25 0d 15 36 15 62 6c 6f | 63 6b 25 21 34 20 20 3d |%..6.blo|ck%!4 =|
|00005010| 20 69 63 6f 6e 25 0d 15 | 40 11 62 6c 6f 63 6b 25 | icon%..|@.block%|
|00005020| 21 38 20 20 3d 20 30 0d | 15 4a 11 62 6c 6f 63 6b |!8 = 0.|.J.block|
|00005030| 25 21 31 32 20 3d 20 30 | 0d 15 54 05 3a 0d 15 5e |%!12 = 0|..T.:..^|
|00005040| 2f f4 20 2a 2a 20 46 6f | 72 63 65 20 74 68 65 20 |/. ** Fo|rce the |
|00005050| 77 69 6e 64 6f 77 20 74 | 6f 20 75 70 64 61 74 65 |window t|o update|
|00005060| 20 69 74 73 20 69 63 6f | 6e 20 2a 2a 0d 15 68 23 | its ico|n **..h#|
|00005070| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00005080| 53 74 61 74 65 22 2c 2c | 20 62 6c 6f 63 6b 25 0d |State",,| block%.|
|00005090| 15 72 05 e1 0d 15 7c 05 | 3a 0d 15 86 35 f4 20 2a |.r....|.|:...5. *|
|000050a0| 90 2f 0d 15 90 00 35 f4 | 20 2a 2a 20 4f 70 65 6e |./....5.| ** Open|
|000050b0| 20 57 69 6e 64 6f 77 20 | 50 72 6f 63 65 64 75 72 | Window |Procedur|
|000050c0| 65 20 56 31 2e 30 31 20 | 42 79 20 53 69 6d 6f 6e |e V1.01 |By Simon|
|000050d0| 20 49 6e 6e 73 20 2a 2a | 0d 15 9a 35 f4 20 2a 2a | Inns **|...5. **|
|000050e0| 20 90 2b 2a 2a 0d 15 a4 | 35 f4 20 2a 2a 20 4c 61 | .+**...|5. ** La|
|000050f0| 73 74 20 75 70 64 61 74 | 65 20 3a 20 31 30 2f 31 |st updat|e : 10/1|
|00005100| 32 2f 39 32 20 90 14 2a | 2a 0d 15 ae 35 f4 20 2a |2/92 ..*|*...5. *|
|00005110| 90 2f 0d 15 b8 23 dd 20 | f2 70 72 6f 63 65 73 73 |./...#. |.process|
|00005120| 5f 6f 70 65 6e 5f 77 69 | 6e 64 6f 77 28 68 61 6e |_open_wi|ndow(han|
|00005130| 64 6c 65 25 29 0d 15 c2 | 05 3a 0d 15 cc 44 e7 20 |dle%)...|.:...D. |
|00005140| 68 61 6e 64 6c 65 25 20 | 3d 20 68 61 6e 64 6c 65 |handle% |= handle|
|00005150| 25 28 4d 61 69 6e 29 20 | 8c 20 f2 70 72 6f 63 65 |%(Main) |. .proce|
|00005160| 73 73 5f 63 6c 6f 73 65 | 5f 77 69 6e 64 6f 77 28 |ss_close|_window(|
|00005170| 68 61 6e 64 6c 65 25 28 | 53 61 76 65 29 29 0d 15 |handle%(|Save))..|
|00005180| d6 16 62 6c 6f 63 6b 25 | 21 30 20 3d 20 68 61 6e |..block%|!0 = han|
|00005190| 64 6c 65 25 0d 15 e0 24 | c8 99 20 22 57 69 6d 70 |dle%...$|.. "Wimp|
|000051a0| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|000051b0| 2c 2c 62 6c 6f 63 6b 25 | 0d 15 ea 20 c8 99 20 22 |,,block%|... .. "|
|000051c0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000051d0| 2c 2c 62 6c 6f 63 6b 25 | 0d 15 f4 05 e1 0d 15 fe |,,block%|........|
|000051e0| 05 3a 0d 16 08 36 f4 20 | 2a 90 30 0d 16 12 36 f4 |.:...6. |*.0...6.|
|000051f0| 20 2a 2a 20 43 6c 6f 73 | 65 20 57 69 6e 64 6f 77 | ** Clos|e Window|
|00005200| 20 50 72 6f 63 65 64 75 | 72 65 20 56 31 2e 30 31 | Procedu|re V1.01|
|00005210| 20 42 79 20 53 69 6d 6f | 6e 20 49 6e 6e 73 20 2a | By Simo|n Inns *|
|00005220| 2a 0d 16 1c 36 f4 20 2a | 2a 20 90 2c 2a 2a 0d 16 |*...6. *|* .,**..|
|00005230| 26 36 f4 20 2a 2a 20 4c | 61 73 74 20 75 70 64 61 |&6. ** L|ast upda|
|00005240| 74 65 20 3a 20 30 32 2f | 30 31 2f 39 33 20 90 15 |te : 02/|01/93 ..|
|00005250| 2a 2a 0d 16 30 36 f4 20 | 2a 90 30 0d 16 3a 24 dd |**..06. |*.0..:$.|
|00005260| 20 f2 70 72 6f 63 65 73 | 73 5f 63 6c 6f 73 65 5f | .proces|s_close_|
|00005270| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 0d |window(h|andle%).|
|00005280| 16 44 05 3a 0d 16 4e 16 | 62 6c 6f 63 6b 25 21 30 |.D.:..N.|block%!0|
|00005290| 20 3d 20 68 61 6e 64 6c | 65 25 0d 16 58 21 c8 99 | = handl|e%..X!..|
|000052a0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|000052b0| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 16 62 05 e1 |ow",,blo|ck%..b..|
|000052c0| 0d 16 6c 05 3a 0d 16 76 | 36 f4 20 2a 90 30 0d 16 |..l.:..v|6. *.0..|
|000052d0| 80 36 f4 20 2a 2a 20 43 | 72 65 61 74 65 20 49 63 |.6. ** C|reate Ic|
|000052e0| 6f 6e 20 50 72 6f 63 65 | 64 75 72 65 20 56 32 2e |on Proce|dure V2.|
|000052f0| 30 31 20 90 10 2a 2a 0d | 16 8a 36 f4 20 2a 2a 20 |01 ..**.|..6. ** |
|00005300| 90 2c 2a 2a 0d 16 94 36 | f4 20 2a 2a 20 4c 61 73 |.,**...6|. ** Las|
|00005310| 74 20 75 70 64 61 74 65 | 20 3a 20 32 33 2f 30 31 |t update| : 23/01|
|00005320| 2f 39 33 20 90 15 2a 2a | 0d 16 9e 36 f4 20 2a 90 |/93 ..**|...6. *.|
|00005330| 30 0d 16 a8 4c dd 20 a4 | 63 72 65 61 74 65 5f 69 |0...L. .|create_i|
|00005340| 63 6f 6e 28 68 61 6e 64 | 6c 65 25 2c 6d 69 6e 78 |con(hand|le%,minx|
|00005350| 25 2c 6d 69 6e 79 25 2c | 6d 61 78 78 25 2c 6d 61 |%,miny%,|maxx%,ma|
|00005360| 78 79 25 2c 66 6c 61 67 | 25 2c 64 61 74 61 24 2c |xy%,flag|%,data$,|
|00005370| 6d 62 6c 6f 63 6b 25 2c | 6c 65 6e 25 29 0d 16 b2 |mblock%,|len%)...|
|00005380| 05 3a 0d 16 bc 37 f4 20 | 6d 62 6c 6f 63 6b 25 20 |.:...7. |mblock% |
|00005390| 69 73 20 6f 6e 6c 79 20 | 75 73 65 64 20 69 66 20 |is only |used if |
|000053a0| 69 6e 64 69 72 65 63 74 | 65 64 20 69 63 6f 6e 73 |indirect|ed icons|
|000053b0| 20 61 72 65 20 75 73 65 | 64 0d 16 c6 41 f4 20 69 | are use|d...A. i|
|000053c0| 66 20 6c 65 6e 25 20 69 | 73 20 30 2c 20 61 20 64 |f len% i|s 0, a d|
|000053d0| 65 66 61 75 6c 74 20 6c | 65 6e 67 74 68 20 69 73 |efault l|ength is|
|000053e0| 20 75 73 65 64 20 66 6f | 72 20 74 68 65 20 62 6c | used fo|r the bl|
|000053f0| 6f 63 6b 20 6c 65 6e 67 | 74 68 0d 16 d0 05 3a 0d |ock leng|th....:.|
|00005400| 16 da 14 62 6c 6f 63 6b | 25 21 30 3d 68 61 6e 64 |...block|%!0=hand|
|00005410| 6c 65 25 0d 16 e4 12 62 | 6c 6f 63 6b 25 21 34 3d |le%....b|lock%!4=|
|00005420| 6d 69 6e 78 25 0d 16 ee | 12 62 6c 6f 63 6b 25 21 |minx%...|.block%!|
|00005430| 38 3d 6d 69 6e 79 25 0d | 16 f8 13 62 6c 6f 63 6b |8=miny%.|...block|
|00005440| 25 21 31 32 3d 6d 61 78 | 78 25 0d 17 02 13 62 6c |%!12=max|x%....bl|
|00005450| 6f 63 6b 25 21 31 36 3d | 6d 61 78 79 25 0d 17 0c |ock%!16=|maxy%...|
|00005460| 13 62 6c 6f 63 6b 25 21 | 32 30 3d 66 6c 61 67 25 |.block%!|20=flag%|
|00005470| 0d 17 16 05 3a 0d 17 20 | 17 c8 8e 20 28 66 6c 61 |....:.. |... (fla|
|00005480| 67 25 20 80 20 31 3c 3c | 38 29 20 ca 0d 17 2a 1d |g% . 1<<|8) ...*.|
|00005490| 20 20 c9 20 30 3a 20 24 | 28 62 6c 6f 63 6b 25 2b | . 0: $|(block%+|
|000054a0| 32 34 29 3d 64 61 74 61 | 24 0d 17 34 05 7f 0d 17 |24)=data|$..4....|
|000054b0| 3e 15 20 20 e7 20 28 66 | 6c 61 67 25 20 80 20 32 |>. . (f|lag% . 2|
|000054c0| 29 20 8c 0d 17 48 1a 20 | 90 05 62 6c 6f 63 6b 25 |) ...H. |..block%|
|000054d0| 21 32 34 3d 6d 62 6c 6f | 63 6b 25 0d 17 52 14 20 |!24=mblo|ck%..R. |
|000054e0| 90 05 62 6c 6f 63 6b 25 | 21 32 38 3d 31 0d 17 5c |..block%|!28=1..\|
|000054f0| 15 20 90 05 62 6c 6f 63 | 6b 25 21 33 32 3d 31 32 |. ..bloc|k%!32=12|
|00005500| 0d 17 66 17 20 90 05 24 | 6d 62 6c 6f 63 6b 25 3d |..f. ..$|mblock%=|
|00005510| 64 61 74 61 24 0d 17 70 | 07 20 20 cc 0d 17 7a 1a |data$..p|. ...z.|
|00005520| 20 90 05 62 6c 6f 63 6b | 25 21 32 34 3d 6d 62 6c | ..block|%!24=mbl|
|00005530| 6f 63 6b 25 0d 17 84 15 | 20 90 05 62 6c 6f 63 6b |ock%....| ..block|
|00005540| 25 21 32 38 3d 2d 31 0d | 17 8e 34 20 90 05 e7 20 |%!28=-1.|..4 ... |
|00005550| 6c 65 6e 25 3d 30 20 62 | 6c 6f 63 6b 25 21 33 32 |len%=0 b|lock%!32|
|00005560| 3d a9 20 64 61 74 61 24 | 20 8b 20 62 6c 6f 63 6b |=. data$| . block|
|00005570| 25 21 33 32 3d 6c 65 6e | 25 0d 17 98 17 20 90 05 |%!32=len|%.... ..|
|00005580| 24 6d 62 6c 6f 63 6b 25 | 3d 64 61 74 61 24 0d 17 |$mblock%|=data$..|
|00005590| a2 07 20 20 cd 0d 17 ac | 05 cb 0d 17 b6 2a c8 99 |.. ....|.....*..|
|000055a0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|000055b0| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 68 61 6e |n",,bloc|k% . han|
|000055c0| 64 6c 65 25 0d 17 c0 0c | 3d 68 61 6e 64 6c 65 25 |dle%....|=handle%|
|000055d0| 0d 17 ca 05 3a 0d 17 d4 | 18 dd 20 f2 73 74 61 72 |....:...|.. .star|
|000055e0| 74 5f 64 72 61 67 28 69 | 63 6f 6e 25 29 0d 17 de |t_drag(i|con%)...|
|000055f0| 28 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |(.. "Wim|p_GetWin|
|00005600| 64 6f 77 53 74 61 74 65 | 22 2c 2c 20 62 6c 6f 63 |dowState|",, bloc|
|00005610| 6b 25 2b 31 32 0d 17 e8 | 12 78 25 20 3d 20 62 6c |k%+12...|.x% = bl|
|00005620| 6f 63 6b 25 21 31 36 0d | 17 f2 12 79 25 20 3d 20 |ock%!16.|...y% = |
|00005630| 62 6c 6f 63 6b 25 21 32 | 38 0d 17 fc 15 62 6c 6f |block%!2|8....blo|
|00005640| 63 6b 25 21 31 36 20 3d | 20 69 63 6f 6e 25 0d 18 |ck%!16 =| icon%..|
|00005650| 06 28 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |.(.. "Wi|mp_GetIc|
|00005660| 6f 6e 53 74 61 74 65 22 | 2c 2c 20 62 6c 6f 63 6b |onState"|,, block|
|00005670| 25 20 2b 20 31 32 0d 18 | 10 11 62 6c 6f 63 6b 25 |% + 12..|..block%|
|00005680| 21 31 36 20 3d 20 35 0d | 18 1a 13 62 6c 6f 63 6b |!16 = 5.|...block|
|00005690| 25 21 32 30 20 2b 3d 20 | 78 25 0d 18 24 13 62 6c |%!20 += |x%..$.bl|
|000056a0| 6f 63 6b 25 21 32 34 20 | 2b 3d 20 79 25 0d 18 2e |ock%!24 |+= y%...|
|000056b0| 11 62 6c 6f 63 6b 25 21 | 32 38 2b 3d 78 25 0d 18 |.block%!|28+=x%..|
|000056c0| 38 11 62 6c 6f 63 6b 25 | 21 33 32 2b 3d 79 25 0d |8.block%|!32+=y%.|
|000056d0| 18 42 0f 62 6c 6f 63 6b | 25 21 33 36 3d 30 0d 18 |.B.block|%!36=0..|
|000056e0| 4c 0f 62 6c 6f 63 6b 25 | 21 34 30 3d 30 0d 18 56 |L.block%|!40=0..V|
|000056f0| 17 62 6c 6f 63 6b 25 21 | 34 34 3d 26 37 46 90 07 |.block%!|44=&7F..|
|00005700| 0d 18 60 17 62 6c 6f 63 | 6b 25 21 34 38 3d 26 37 |..`.bloc|k%!48=&7|
|00005710| 46 90 07 0d 18 6a 23 c8 | 99 20 22 57 69 6d 70 5f |F....j#.|. "Wimp_|
|00005720| 44 72 61 67 42 6f 78 22 | 2c 2c 20 62 6c 6f 63 6b |DragBox"|,, block|
|00005730| 25 20 2b 20 31 32 0d 18 | 74 05 e1 0d 18 7e 05 3a |% + 12..|t....~.:|
|00005740| 0d 18 88 11 dd 20 f2 64 | 72 61 67 5f 65 6e 64 65 |..... .d|rag_ende|
|00005750| 64 0d 18 92 1a 66 69 6c | 65 5f 6e 61 6d 65 24 20 |d....fil|e_name$ |
|00005760| 3d 20 61 70 70 5f 6e 61 | 6d 65 24 0d 18 9c 24 c8 |= app_na|me$...$.|
|00005770| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00005780| 65 72 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 25 0d |erInfo",|,block%.|
|00005790| 18 a6 10 62 6c 6f 63 6b | 25 21 32 30 3d 36 34 0d |...block|%!20=64.|
|000057a0| 18 b0 0f 62 6c 6f 63 6b | 25 21 33 32 3d 30 0d 18 |...block|%!32=0..|
|000057b0| ba 0f 62 6c 6f 63 6b 25 | 21 33 36 3d 31 0d 18 c4 |..block%|!36=1...|
|000057c0| 17 62 6c 6f 63 6b 25 21 | 34 30 3d 62 6c 6f 63 6b |.block%!|40=block|
|000057d0| 25 21 31 32 0d 18 ce 17 | 62 6c 6f 63 6b 25 21 34 |%!12....|block%!4|
|000057e0| 34 3d 62 6c 6f 63 6b 25 | 21 31 36 0d 18 d8 15 62 |4=block%|!16....b|
|000057f0| 6c 6f 63 6b 25 21 34 38 | 3d 21 62 6c 6f 63 6b 25 |lock%!48|=!block%|
|00005800| 0d 18 e2 16 62 6c 6f 63 | 6b 25 21 35 32 3d 62 6c |....bloc|k%!52=bl|
|00005810| 6f 63 6b 25 21 34 0d 18 | ec 10 62 6c 6f 63 6b 25 |ock%!4..|..block%|
|00005820| 21 35 36 3d 2d 31 0d 18 | f6 12 62 6c 6f 63 6b 25 |!56=-1..|..block%|
|00005830| 21 36 30 3d 26 46 90 03 | 0d 19 00 25 f2 70 75 74 |!60=&F..|...%.put|
|00005840| 7a 65 72 6f 73 74 72 28 | 62 6c 6f 63 6b 25 2b 36 |zerostr(|block%+6|
|00005850| 34 2c 66 69 6c 65 5f 6e | 61 6d 65 24 29 0d 19 0a |4,file_n|ame$)...|
|00005860| 3a c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |:.. "Wim|p_SendMe|
|00005870| 73 73 61 67 65 22 2c 31 | 37 2c 62 6c 6f 63 6b 25 |ssage",1|7,block%|
|00005880| 2b 32 30 2c 62 6c 6f 63 | 6b 25 21 31 32 2c 62 6c |+20,bloc|k%!12,bl|
|00005890| 6f 63 6b 25 21 31 36 0d | 19 14 05 e1 0d 19 1e 05 |ock%!16.|........|
|000058a0| 3a 0d 19 28 11 dd f2 64 | 61 74 61 73 61 76 65 61 |:..(...d|atasavea|
|000058b0| 63 6b 0d 19 32 29 66 6e | 61 6d 65 24 20 3d 20 a4 |ck..2)fn|ame$ = .|
|000058c0| 67 65 74 5f 7a 65 72 6f | 5f 73 74 72 69 6e 67 28 |get_zero|_string(|
|000058d0| 62 6c 6f 63 6b 25 2c 20 | 34 34 29 0d 19 3c 05 3a |block%, |44)..<.:|
|000058e0| 0d 19 46 21 f2 73 61 76 | 65 5f 74 68 65 5f 61 70 |..F!.sav|e_the_ap|
|000058f0| 70 6c 69 63 61 74 69 6f | 6e 28 66 6e 61 6d 65 24 |plicatio|n(fname$|
|00005900| 29 0d 19 50 05 e1 0d 19 | 5a 05 3a 0d 19 64 27 dd |)..P....|Z.:..d'.|
|00005910| 20 a4 67 65 74 5f 7a 65 | 72 6f 5f 73 74 72 69 6e | .get_ze|ro_strin|
|00005920| 67 28 62 6c 6f 63 6b 25 | 2c 70 6f 69 6e 74 65 72 |g(block%|,pointer|
|00005930| 25 29 0d 19 6e 10 73 74 | 72 69 6e 67 24 20 3d 20 |%)..n.st|ring$ = |
|00005940| 22 22 0d 19 78 05 f5 0d | 19 82 1d 20 20 63 68 61 |""..x...|... cha|
|00005950| 72 25 20 3d 20 62 6c 6f | 63 6b 25 3f 70 6f 69 6e |r% = blo|ck%?poin|
|00005960| 74 65 72 25 0d 19 8c 31 | 20 20 e7 20 63 68 61 72 |ter%...1| . char|
|00005970| 25 20 3c 3e 20 30 20 8c | 20 73 74 72 69 6e 67 24 |% <> 0 .| string$|
|00005980| 20 3d 20 73 74 72 69 6e | 67 24 20 2b 20 bd 28 63 | = strin|g$ + .(c|
|00005990| 68 61 72 25 29 0d 19 96 | 13 20 20 70 6f 69 6e 74 |har%)...|. point|
|000059a0| 65 72 25 20 2b 3d 20 31 | 0d 19 a0 0f fd 20 63 68 |er% += 1|..... ch|
|000059b0| 61 72 25 20 3d 20 30 0d | 19 aa 0d 3d 20 73 74 72 |ar% = 0.|...= str|
|000059c0| 69 6e 67 24 0d 19 b4 05 | 3a 0d 19 be 20 dd 20 f2 |ing$....|:... . .|
|000059d0| 70 75 74 7a 65 72 6f 73 | 74 72 28 61 64 64 72 25 |putzeros|tr(addr%|
|000059e0| 2c 73 74 72 69 6e 67 24 | 29 0d 19 c8 17 e3 63 74 |,string$|).....ct|
|000059f0| 25 3d 30 b8 28 a9 73 74 | 72 69 6e 67 24 29 2d 31 |%=0.(.st|ring$)-1|
|00005a00| 0d 19 d2 23 20 90 03 61 | 64 64 72 25 3f 63 74 25 |...# ..a|ddr%?ct%|
|00005a10| 3d 97 c1 73 74 72 69 6e | 67 24 2c 63 74 25 2b 31 |=..strin|g$,ct%+1|
|00005a20| 2c 31 29 0d 19 dc 05 ed | 0d 19 e6 16 61 64 64 72 |,1).....|....addr|
|00005a30| 25 3f 28 a9 73 74 72 69 | 6e 67 24 29 3d 30 0d 19 |%?(.stri|ng$)=0..|
|00005a40| f0 05 e1 0d 19 fa 05 3a | 0d 1a 04 27 dd 20 f2 73 |.......:|...'. .s|
|00005a50| 61 76 65 5f 74 68 65 5f | 61 70 70 6c 69 63 61 74 |ave_the_|applicat|
|00005a60| 69 6f 6e 28 66 69 6c 65 | 5f 6e 61 6d 65 24 29 0d |ion(file|_name$).|
|00005a70| 1a 0e 21 f4 20 2a 2a 20 | 43 6c 6f 73 65 20 74 68 |..!. ** |Close th|
|00005a80| 65 20 73 61 76 65 20 77 | 69 6e 64 6f 77 20 2a 2a |e save w|indow **|
|00005a90| 0d 1a 18 28 f2 70 72 6f | 63 65 73 73 5f 63 6c 6f |...(.pro|cess_clo|
|00005aa0| 73 65 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |se_windo|w(handle|
|00005ab0| 25 28 53 61 76 65 29 29 | 0d 1a 22 05 3a 0d 1a 2c |%(Save))|..".:..,|
|00005ac0| 20 f4 20 2a 2a 20 43 72 | 65 61 74 65 20 74 68 65 | . ** Cr|eate the|
|00005ad0| 20 64 69 72 65 63 74 6f | 72 79 20 2a 2a 0d 1a 36 | directo|ry **..6|
|00005ae0| 1a ff 20 22 43 44 49 52 | 20 22 20 2b 20 66 69 6c |.. "CDIR| " + fil|
|00005af0| 65 5f 6e 61 6d 65 24 0d | 1a 40 05 3a 0d 1a 4a 2c |e_name$.|.@.:..J,|
|00005b00| f4 20 2a 2a 20 57 6f 72 | 6b 20 6f 75 74 20 74 68 |. ** Wor|k out th|
|00005b10| 65 20 64 69 72 65 63 74 | 6f 72 79 20 70 61 74 68 |e direct|ory path|
|00005b20| 20 6e 61 6d 65 20 2a 2a | 0d 1a 54 35 64 69 72 5f | name **|..T5dir_|
|00005b30| 6e 61 6d 65 24 20 3d 20 | c1 61 70 70 5f 6e 61 6d |name$ = |.app_nam|
|00005b40| 65 24 2c 32 2c 28 a9 28 | 61 70 70 5f 6e 61 6d 65 |e$,2,(.(|app_name|
|00005b50| 24 29 90 03 20 2b 20 22 | 24 44 69 72 22 0d 1a 5e |$).. + "|$Dir"..^|
|00005b60| 05 3a 0d 1a 68 19 f4 20 | 2a 2a 20 4e 6f 77 20 64 |.:..h.. |** Now d|
|00005b70| 6f 20 74 68 65 20 64 6f | 20 2a 2a 0d 1a 72 20 e7 |o the do| **..r .|
|00005b80| 20 63 72 65 61 74 69 6f | 6e 5f 64 65 74 61 69 6c | creatio|n_detail|
|00005b90| 73 25 28 31 29 20 3d 20 | b9 20 8c 0d 1a 7c 22 20 |s%(1) = |. ...|" |
|00005ba0| 90 03 f4 20 2a 2a 20 43 | 72 65 61 74 65 20 61 20 |... ** C|reate a |
|00005bb0| 21 62 6f 6f 74 20 66 69 | 6c 65 20 2a 2a 0d 1a 86 |!boot fi|le **...|
|00005bc0| 27 20 90 03 66 69 6c 65 | 25 20 3d 20 ae 28 66 69 |' ..file|% = .(fi|
|00005bd0| 6c 65 5f 6e 61 6d 65 24 | 20 2b 20 22 2e 21 42 6f |le_name$| + ".!Bo|
|00005be0| 6f 74 22 29 0d 1a 90 00 | 3c 20 90 03 f2 77 72 69 |ot")....|< ...wri|
|00005bf0| 74 65 5f 73 74 72 69 6e | 67 28 66 69 6c 65 25 2c |te_strin|g(file%,|
|00005c00| 20 22 7c 20 21 42 6f 6f | 74 20 66 69 6c 65 20 66 | "| !Boo|t file f|
|00005c10| 6f 72 20 22 20 2b 20 61 | 70 70 5f 6e 61 6d 65 24 |or " + a|pp_name$|
|00005c20| 29 0d 1a 9a 3e 20 90 03 | f2 77 72 69 74 65 5f 73 |)...> ..|.write_s|
|00005c30| 74 72 69 6e 67 28 66 69 | 6c 65 25 2c 20 22 49 63 |tring(fi|le%, "Ic|
|00005c40| 6f 6e 53 70 72 69 74 65 | 73 20 3c 4f 62 65 79 24 |onSprite|s <Obey$|
|00005c50| 44 69 72 3e 2e 21 53 70 | 72 69 74 65 73 22 29 0d |Dir>.!Sp|rites").|
|00005c60| 1a a4 3f 20 90 03 f2 77 | 72 69 74 65 5f 73 74 72 |..? ...w|rite_str|
|00005c70| 69 6e 67 28 66 69 6c 65 | 25 2c 20 22 53 65 74 20 |ing(file|%, "Set |
|00005c80| 22 20 2b 20 64 69 72 5f | 6e 61 6d 65 24 20 2b 20 |" + dir_|name$ + |
|00005c90| 22 20 3c 4f 62 65 79 24 | 44 69 72 3e 22 29 0d 1a |" <Obey$|Dir>")..|
|00005ca0| ae 08 20 90 03 3a 0d 1a | b8 23 20 90 03 e7 20 63 |.. ..:..|.# ... c|
|00005cb0| 72 65 61 74 69 6f 6e 5f | 64 65 74 61 69 6c 73 25 |reation_|details%|
|00005cc0| 28 36 29 20 3d 20 b9 20 | 8c 0d 1a c2 15 20 90 06 |(6) = . |..... ..|
|00005cd0| d5 23 66 69 6c 65 25 2c | 20 31 30 0d 1a cc 36 20 |.#file%,| 10...6 |
|00005ce0| 90 06 66 69 6c 65 31 25 | 20 3d 20 8e 28 22 3c 43 |..file1%| = .("<C|
|00005cf0| 72 65 61 74 65 41 70 70 | 24 44 69 72 3e 2e 52 65 |reateApp|$Dir>.Re|
|00005d00| 73 6f 75 72 63 65 73 2e | 4c 6f 67 6f 22 29 0d 1a |sources.|Logo")..|
|00005d10| d6 17 20 90 06 c8 95 20 | ac 20 c5 23 66 69 6c 65 |.. .... |. .#file|
|00005d20| 31 25 0d 1a e0 1c 20 90 | 08 63 68 61 72 25 20 3d |1%.... .|.char% =|
|00005d30| 20 9a 23 66 69 6c 65 31 | 25 0d 1a ea 1a 20 90 08 | .#file1|%.... ..|
|00005d40| d5 23 66 69 6c 65 25 2c | 20 63 68 61 72 25 0d 1a |.#file%,| char%..|
|00005d50| f4 0b 20 90 06 ce 0d 1a | fe 13 20 90 06 d9 20 23 |.. .....|.. ... #|
|00005d60| 66 69 6c 65 31 25 0d 1b | 08 08 20 90 03 cd 0d 1b |file1%..|.. .....|
|00005d70| 12 08 20 90 03 3a 0d 1b | 1c 0f 20 90 03 d9 20 23 |.. ..:..|.. ... #|
|00005d80| 66 69 6c 65 25 0d 1b 26 | 30 20 90 03 ff 20 22 53 |file%..&|0 ... "S|
|00005d90| 65 74 54 79 70 65 20 22 | 20 2b 20 66 69 6c 65 5f |etType "| + file_|
|00005da0| 6e 61 6d 65 24 20 2b 20 | 22 2e 21 42 6f 6f 74 20 |name$ + |".!Boot |
|00005db0| 26 46 45 42 22 0d 1b 30 | 05 cd 0d 1b 3a 05 3a 0d |&FEB"..0|....:.:.|
|00005dc0| 1b 44 20 e7 20 63 72 65 | 61 74 69 6f 6e 5f 64 65 |.D . cre|ation_de|
|00005dd0| 74 61 69 6c 73 25 28 32 | 29 20 3d 20 b9 20 8c 0d |tails%(2|) = . ..|
|00005de0| 1b 4e 21 20 90 03 f4 20 | 2a 2a 20 43 72 65 61 74 |.N! ... |** Creat|
|00005df0| 65 20 61 20 21 52 75 6e | 20 66 69 6c 65 20 2a 2a |e a !Run| file **|
|00005e00| 0d 1b 58 26 20 90 03 66 | 69 6c 65 25 20 3d 20 ae |..X& ..f|ile% = .|
|00005e10| 28 66 69 6c 65 5f 6e 61 | 6d 65 24 20 2b 20 22 2e |(file_na|me$ + ".|
|00005e20| 21 52 75 6e 22 29 0d 1b | 62 3b 20 90 03 f2 77 72 |!Run")..|b; ...wr|
|00005e30| 69 74 65 5f 73 74 72 69 | 6e 67 28 66 69 6c 65 25 |ite_stri|ng(file%|
|00005e40| 2c 20 22 7c 20 21 52 75 | 6e 20 66 69 6c 65 20 66 |, "| !Ru|n file f|
|00005e50| 6f 72 20 22 20 2b 20 61 | 70 70 5f 6e 61 6d 65 24 |or " + a|pp_name$|
|00005e60| 29 0d 1b 6c 3e 20 90 03 | f2 77 72 69 74 65 5f 73 |)..l> ..|.write_s|
|00005e70| 74 72 69 6e 67 28 66 69 | 6c 65 25 2c 20 22 49 63 |tring(fi|le%, "Ic|
|00005e80| 6f 6e 53 70 72 69 74 65 | 73 20 3c 4f 62 65 79 24 |onSprite|s <Obey$|
|00005e90| 44 69 72 3e 2e 21 53 70 | 72 69 74 65 73 22 29 0d |Dir>.!Sp|rites").|
|00005ea0| 1b 76 3f 20 90 03 f2 77 | 72 69 74 65 5f 73 74 72 |.v? ...w|rite_str|
|00005eb0| 69 6e 67 28 66 69 6c 65 | 25 2c 20 22 53 65 74 20 |ing(file|%, "Set |
|00005ec0| 22 20 2b 20 64 69 72 5f | 6e 61 6d 65 24 20 2b 20 |" + dir_|name$ + |
|00005ed0| 22 20 3c 4f 62 65 79 24 | 44 69 72 3e 22 29 0d 1b |" <Obey$|Dir>")..|
|00005ee0| 80 16 20 90 03 f2 6d 6f | 64 75 6c 65 5f 69 6e 63 |.. ...mo|dule_inc|
|00005ef0| 6c 75 64 65 0d 1b 8a 5d | 20 90 03 f2 77 72 69 74 |lude...]| ...writ|
|00005f00| 65 5f 73 74 72 69 6e 67 | 28 66 69 6c 65 25 2c 20 |e_string|(file%, |
|00005f10| 22 57 69 6d 70 53 6c 6f | 74 20 2d 6d 69 6e 20 22 |"WimpSlo|t -min "|
|00005f20| 20 2b 20 c3 28 61 70 70 | 5f 73 69 7a 65 25 29 20 | + .(app|_size%) |
|00005f30| 2b 20 22 4b 20 2d 6d 61 | 78 20 22 20 2b 20 c3 28 |+ "K -ma|x " + .(|
|00005f40| 61 70 70 5f 73 69 7a 65 | 25 29 20 2b 20 22 4b 22 |app_size|%) + "K"|
|00005f50| 29 0d 1b 94 40 20 90 03 | f2 77 72 69 74 65 5f 73 |)...@ ..|.write_s|
|00005f60| 74 72 69 6e 67 28 66 69 | 6c 65 25 2c 20 22 52 75 |tring(fi|le%, "Ru|
|00005f70| 6e 20 3c 22 20 2b 20 64 | 69 72 5f 6e 61 6d 65 24 |n <" + d|ir_name$|
|00005f80| 20 2b 20 22 3e 2e 21 52 | 75 6e 49 6d 61 67 65 22 | + ">.!R|unImage"|
|00005f90| 29 0d 1b 9e 08 20 90 03 | 3a 0d 1b a8 23 20 90 03 |).... ..|:...# ..|
|00005fa0| e7 20 63 72 65 61 74 69 | 6f 6e 5f 64 65 74 61 69 |. creati|on_detai|
|00005fb0| 6c 73 25 28 36 29 20 3d | 20 b9 20 8c 0d 1b b2 15 |ls%(6) =| . .....|
|00005fc0| 20 90 06 d5 23 66 69 6c | 65 25 2c 20 31 30 0d 1b | ...#fil|e%, 10..|
|00005fd0| bc 36 20 90 06 66 69 6c | 65 31 25 20 3d 20 8e 28 |.6 ..fil|e1% = .(|
|00005fe0| 22 3c 43 72 65 61 74 65 | 41 70 70 24 44 69 72 3e |"<Create|App$Dir>|
|00005ff0| 2e 52 65 73 6f 75 72 63 | 65 73 2e 4c 6f 67 6f 22 |.Resourc|es.Logo"|
|00006000| 29 0d 1b c6 17 20 90 06 | c8 95 20 ac 20 c5 23 66 |).... ..|.. . .#f|
|00006010| 69 6c 65 31 25 0d 1b d0 | 1c 20 90 08 63 68 61 72 |ile1%...|. ..char|
|00006020| 25 20 3d 20 9a 23 66 69 | 6c 65 31 25 0d 1b da 1a |% = .#fi|le1%....|
|00006030| 20 90 08 d5 23 66 69 6c | 65 25 2c 20 63 68 61 72 | ...#fil|e%, char|
|00006040| 25 0d 1b e4 0b 20 90 06 | ce 0d 1b ee 13 20 90 06 |%.... ..|..... ..|
|00006050| d9 20 23 66 69 6c 65 31 | 25 0d 1b f8 08 20 90 03 |. #file1|%.... ..|
|00006060| cd 0d 1c 02 08 20 90 03 | 3a 0d 1c 0c 0f 20 90 03 |..... ..|:.... ..|
|00006070| d9 20 23 66 69 6c 65 25 | 0d 1c 16 2f 20 90 03 ff |. #file%|.../ ...|
|00006080| 20 22 53 65 74 54 79 70 | 65 20 22 20 2b 20 66 69 | "SetTyp|e " + fi|
|00006090| 6c 65 5f 6e 61 6d 65 24 | 20 2b 20 22 2e 21 52 75 |le_name$| + ".!Ru|
|000060a0| 6e 20 26 46 45 42 22 0d | 1c 20 05 cd 0d 1c 2a 05 |n &FEB".|. ....*.|
|000060b0| 3a 0d 1c 34 20 e7 20 63 | 72 65 61 74 69 6f 6e 5f |:..4 . c|reation_|
|000060c0| 64 65 74 61 69 6c 73 25 | 28 33 29 20 3d 20 b9 20 |details%|(3) = . |
|000060d0| 8c 0d 1c 3e 22 20 90 03 | f4 20 2a 2a 20 43 72 65 |...>" ..|. ** Cre|
|000060e0| 61 74 65 20 61 20 21 48 | 65 6c 70 20 66 69 6c 65 |ate a !H|elp file|
|000060f0| 20 2a 2a 0d 1c 48 27 20 | 90 03 66 69 6c 65 25 20 | **..H' |..file% |
|00006100| 3d 20 ae 28 66 69 6c 65 | 5f 6e 61 6d 65 24 20 2b |= .(file|_name$ +|
|00006110| 20 22 2e 21 48 65 6c 70 | 22 29 0d 1c 52 3c 20 90 | ".!Help|")..R< .|
|00006120| 03 f2 77 72 69 74 65 5f | 73 74 72 69 6e 67 28 66 |..write_|string(f|
|00006130| 69 6c 65 25 2c 20 22 7c | 20 21 48 65 6c 70 20 66 |ile%, "|| !Help f|
|00006140| 69 6c 65 20 66 6f 72 20 | 22 20 2b 20 61 70 70 5f |ile for |" + app_|
|00006150| 6e 61 6d 65 24 29 0d 1c | 5c 0f 20 90 03 d9 20 23 |name$)..|\. ... #|
|00006160| 66 69 6c 65 25 0d 1c 66 | 30 20 90 03 ff 20 22 53 |file%..f|0 ... "S|
|00006170| 65 74 54 79 70 65 20 22 | 20 2b 20 66 69 6c 65 5f |etType "| + file_|
|00006180| 6e 61 6d 65 24 20 2b 20 | 22 2e 21 48 65 6c 70 20 |name$ + |".!Help |
|00006190| 26 46 90 03 22 0d 1c 70 | 05 cd 0d 1c 7a 05 3a 0d |&F.."..p|....z.:.|
|000061a0| 1c 84 20 e7 20 63 72 65 | 61 74 69 6f 6e 5f 64 65 |.. . cre|ation_de|
|000061b0| 74 61 69 6c 73 25 28 34 | 29 20 3d 20 b9 20 8c 0d |tails%(4|) = . ..|
|000061c0| 1c 8e 23 20 90 03 f4 20 | 2a 2a 20 43 72 65 61 74 |..# ... |** Creat|
|000061d0| 65 20 61 20 53 70 72 69 | 74 65 20 66 69 6c 65 20 |e a Spri|te file |
|000061e0| 2a 2a 0d 1c 98 37 20 90 | 03 f2 6c 6f 61 64 5f 73 |**...7 .|..load_s|
|000061f0| 70 72 69 74 65 28 22 3c | 43 72 65 61 74 65 41 70 |prite("<|CreateAp|
|00006200| 70 24 44 69 72 3e 2e 52 | 65 73 6f 75 72 63 65 73 |p$Dir>.R|esources|
|00006210| 2e 4c 6f 77 52 65 73 22 | 29 0d 1c a2 08 20 90 03 |.LowRes"|).... ..|
|00006220| 3a 0d 1c ac 2c 20 90 03 | f4 20 2a 2a 20 4e 6f 77 |:..., ..|. ** Now|
|00006230| 20 72 65 6e 61 6d 65 20 | 74 68 65 20 6c 6f 77 2d | rename |the low-|
|00006240| 72 65 73 20 73 70 72 69 | 74 65 20 2a 2a 0d 1c b6 |res spri|te **...|
|00006250| 41 20 90 03 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |A .... "|OS_Sprit|
|00006260| 65 4f 70 22 2c 20 32 36 | 20 2b 20 32 35 36 2c 20 |eOp", 26| + 256, |
|00006270| 73 70 72 69 74 65 5f 62 | 6c 6f 63 6b 25 2c 20 22 |sprite_b|lock%, "|
|00006280| 4c 31 22 2c 20 61 70 70 | 5f 6e 61 6d 65 24 0d 1c |L1", app|_name$..|
|00006290| c0 08 20 90 03 3a 0d 1c | ca 43 20 90 03 f4 20 2a |.. ..:..|.C ... *|
|000062a0| 2a 20 4e 6f 77 20 72 65 | 73 61 76 65 20 74 68 65 |* Now re|save the|
|000062b0| 20 73 70 72 69 74 65 20 | 69 6e 20 74 68 65 20 61 | sprite |in the a|
|000062c0| 70 70 6c 69 63 61 74 69 | 6f 6e 27 73 20 64 69 72 |pplicati|on's dir|
|000062d0| 65 63 74 6f 72 79 20 2a | 2a 0d 1c d4 4a 20 90 03 |ectory *|*...J ..|
|000062e0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000062f0| 2c 20 31 32 20 2b 20 32 | 35 36 2c 20 73 70 72 69 |, 12 + 2|56, spri|
|00006300| 74 65 5f 62 6c 6f 63 6b | 25 2c 20 66 69 6c 65 5f |te_block|%, file_|
|00006310| 6e 61 6d 65 24 20 2b 20 | 22 2e 21 53 70 72 69 74 |name$ + |".!Sprit|
|00006320| 65 73 22 0d 1c de 05 cd | 0d 1c e8 05 3a 0d 1c f2 |es".....|....:...|
|00006330| 20 e7 20 63 72 65 61 74 | 69 6f 6e 5f 64 65 74 61 | . creat|ion_deta|
|00006340| 69 6c 73 25 28 35 29 20 | 3d 20 b9 20 8c 0d 1c fc |ils%(5) |= . ....|
|00006350| 25 20 90 03 f4 20 2a 2a | 20 43 72 65 61 74 65 20 |% ... **| Create |
|00006360| 61 20 53 70 72 69 74 65 | 32 32 20 66 69 6c 65 20 |a Sprite|22 file |
|00006370| 2a 2a 0d 1d 06 36 20 90 | 03 f2 6c 6f 61 64 5f 73 |**...6 .|..load_s|
|00006380| 70 72 69 74 65 28 22 3c | 43 72 65 61 74 65 41 70 |prite("<|CreateAp|
|00006390| 70 24 44 69 72 3e 2e 52 | 65 73 6f 75 72 63 65 73 |p$Dir>.R|esources|
|000063a0| 2e 48 69 52 65 73 22 29 | 0d 1d 10 08 20 90 03 3a |.HiRes")|.... ..:|
|000063b0| 0d 1d 1a 2c 20 90 03 f4 | 20 2a 2a 20 4e 6f 77 20 |..., ...| ** Now |
|000063c0| 72 65 6e 61 6d 65 20 74 | 68 65 20 6c 6f 77 2d 72 |rename t|he low-r|
|000063d0| 65 73 20 73 70 72 69 74 | 65 20 2a 2a 0d 1d 24 41 |es sprit|e **..$A|
|000063e0| 20 90 03 c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 | .... "O|S_Sprite|
|000063f0| 4f 70 22 2c 20 32 36 20 | 2b 20 32 35 36 2c 20 73 |Op", 26 |+ 256, s|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.