home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| 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 | 40 02 00 00 a0 02 00 00 |Archive.|@.......|
|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 4d 65 6e 75 73 00 | 00 00 00 00 ff ff ff ff |.!Menus.|........|
|00000070| 44 ff ff ff de b0 bb 99 | 00 00 00 00 ff ff ff ff |D.......|........|
|00000080| 1c 02 00 80 82 21 48 65 | 6c 70 00 ff d0 02 00 00 |.....!He|lp......|
|00000090| 21 39 00 00 43 ff ff ff | dc 9c 20 d7 03 00 87 58 |!9..C...|.. ....X|
|000000a0| 21 39 00 00 24 00 00 00 | 82 21 4c 69 73 74 4d 65 |!9..$...|.!ListMe|
|000000b0| 6e 75 00 00 c2 04 00 00 | 43 fb ff ff 54 f9 81 03 |nu......|C...T...|
|000000c0| 03 00 ae cc c2 04 00 00 | 69 39 00 00 82 21 4c 69 |........|i9...!Li|
|000000d0| 73 74 54 65 6d 70 00 00 | 8b 04 00 00 43 fb ff ff |stTemp..|....C...|
|000000e0| 11 fa 81 03 03 00 b8 06 | 8b 04 00 00 4f 3e 00 00 |........|....O>..|
|000000f0| 82 21 52 75 6e 00 ff ff | d0 02 00 00 43 01 00 00 |.!Run...|....C...|
|00000100| 44 eb ff ff 1d 9e 14 a5 | 03 00 b0 36 43 01 00 00 |D.......|...6C...|
|00000110| fe 42 00 00 82 21 52 75 | 6e 49 6d 61 67 65 00 00 |.B...!Ru|nImage..|
|00000120| 7b 44 00 00 44 fb ff ff | 70 ab 7c 25 03 00 bb f7 |{D..D...|p.|%....|
|00000130| 7b 44 00 00 65 44 00 00 | 82 21 53 70 72 69 74 65 |{D..eD..|.!Sprite|
|00000140| 73 00 00 00 b4 05 00 00 | 43 f9 ff ff 88 fa 81 03 |s.......|C.......|
|00000150| 03 00 7e 7b b4 05 00 00 | 04 89 00 00 82 4d 65 6e |..~{....|.....Men|
|00000160| 75 4c 69 62 00 02 00 00 | ff ff ff ff 44 ff ff ff |uLib....|....D...|
|00000170| fc b2 bb 99 00 00 00 00 | ff ff ff ff 68 01 00 80 |........|....h...|
|00000180| 82 43 6f 6c 6f 75 72 73 | 00 00 00 00 a0 01 00 00 |.Colours|........|
|00000190| 44 21 f3 ff 4a f1 33 29 | 03 00 78 88 a0 01 00 00 |D!..J.3)|..x.....|
|000001a0| dc 8e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 b4 00 00 00 | 82 4d 65 6e 75 4d 6f 64 |........|.MenuMod|
|000001d0| 00 02 00 00 88 05 00 00 | 43 fa ff ff 88 fa 81 03 |........|C.......|
|000001e0| 03 00 9d 86 88 05 00 00 | a0 90 00 00 82 4d 65 6e |........|.....Men|
|000001f0| 75 73 00 ff d0 02 00 00 | 78 07 00 00 43 21 f3 ff |us......|x...C!..|
|00000200| 88 fa 81 03 03 00 3e 3e | 78 07 00 00 4c 96 00 00 |......>>|x...L...|
|00000210| 82 54 65 6d 70 6c 61 74 | 65 73 00 00 cc 05 00 00 |.Templat|es......|
|00000220| 43 ec ff ff 88 fa 81 03 | 03 00 37 29 cc 05 00 00 |C.......|..7)....|
|00000230| e8 9d 00 00 82 54 72 61 | 63 65 46 69 6c 65 00 00 |.....Tra|ceFile..|
|00000240| 89 11 00 00 44 fd ff ff | 16 02 4c 2f 03 00 45 75 |....D...|..L/..Eu|
|00000250| 89 11 00 00 d8 a3 00 00 | 00 00 00 00 d4 ff ff ff |........|........|
|00000260| d0 02 00 00 94 7b 1b 02 | 64 ec 12 02 29 88 1a 02 |.....{..|d...)...|
|00000270| 18 b3 1a 02 00 00 00 00 | d4 97 24 02 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 b4 00 00 00 |........|........|
|000002a0| 46 69 6c 65 44 61 74 61 | 82 21 48 65 6c 70 00 ff |FileData|.!Help..|
|000002b0| d0 02 00 00 21 39 00 00 | 43 ff ff ff dc 9c 20 d7 |....!9..|C..... .|
|000002c0| 03 00 87 58 20 20 20 20 | 20 20 20 20 20 20 20 20 |...X | |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 41 52 4d 61 67 | | ARMag|
|000002e0| 65 64 64 6f 6e 20 53 6f | 66 74 77 61 72 65 20 70 |eddon So|ftware p|
|000002f0| 72 65 73 65 6e 74 73 0a | 20 20 20 20 20 20 20 20 |resents.| |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d | | -|
|00000310| 2d 2d 2d 2d 21 4d 65 6e | 75 73 20 61 6e 64 20 4d |----!Men|us and M|
|00000320| 65 6e 75 4d 6f 64 2d 2d | 2d 2d 2d 0a 20 20 20 20 |enuMod--|---. |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000340| 20 20 20 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | |--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 0a 57 41 52 4e |--------|--..WARN|
|00000360| 49 4e 47 21 21 0a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |ING!!.--|-------.|
|00000370| 20 20 20 20 20 54 68 69 | 73 20 64 6f 63 75 6d 65 | Thi|s docume|
|00000380| 6e 74 20 65 78 70 65 63 | 74 73 20 79 6f 75 20 6b |nt expec|ts you k|
|00000390| 6e 6f 77 20 68 6f 77 20 | 74 6f 20 70 72 6f 67 72 |now how |to progr|
|000003a0| 61 6d 20 74 68 65 20 57 | 49 4d 50 20 61 6e 64 0a |am the W|IMP and.|
|000003b0| 62 61 73 69 63 61 6c 6c | 79 20 68 6f 77 20 69 74 |basicall|y how it|
|000003c0| 20 77 6f 72 6b 73 2e 20 | 49 66 20 79 6f 75 20 64 | works. |If you d|
|000003d0| 6f 6e 27 74 20 74 68 65 | 6e 20 72 65 66 65 72 20 |on't the|n refer |
|000003e0| 74 6f 20 65 69 74 68 65 | 72 20 74 68 65 20 52 49 |to eithe|r the RI|
|000003f0| 53 43 2d 4f 53 0a 50 72 | 6f 67 72 61 6d 6d 65 72 |SC-OS.Pr|ogrammer|
|00000400| 73 20 52 65 66 65 72 65 | 6e 63 65 20 4d 61 6e 75 |s Refere|nce Manu|
|00000410| 61 6c 20 28 76 6f 6c 75 | 6d 65 20 33 29 20 6f 72 |al (volu|me 3) or|
|00000420| 20 74 68 65 20 68 75 6e | 64 72 65 64 73 20 6f 66 | the hun|dreds of|
|00000430| 20 6d 61 67 61 7a 69 6e | 65 0a 61 72 74 69 63 6c | magazin|e.articl|
|00000440| 65 73 20 74 68 61 74 20 | 68 61 76 65 20 62 65 65 |es that |have bee|
|00000450| 6e 20 70 75 62 6c 69 73 | 68 65 64 20 6f 6e 20 74 |n publis|hed on t|
|00000460| 68 65 20 73 75 62 6a 65 | 63 74 2e 0a 0a 54 68 65 |he subje|ct...The|
|00000470| 20 70 72 6f 67 72 61 6d | 73 0a 2d 2d 2d 2d 2d 2d | program|s.------|
|00000480| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 54 68 65 73 |------. | Thes|
|00000490| 65 20 74 77 6f 20 70 72 | 6f 67 72 61 6d 73 20 70 |e two pr|ograms p|
|000004a0| 72 6f 76 69 64 65 20 61 | 6e 20 65 61 73 79 20 61 |rovide a|n easy a|
|000004b0| 6e 64 20 65 66 66 65 63 | 74 69 76 65 20 77 61 79 |nd effec|tive way|
|000004c0| 20 74 6f 20 70 72 6f 64 | 75 63 65 0a 61 6e 64 20 | to prod|uce.and |
|000004d0| 6d 61 6e 69 70 75 6c 61 | 74 65 20 73 74 61 6e 64 |manipula|te stand|
|000004e0| 61 72 64 20 57 49 4d 50 | 20 6d 65 6e 75 73 20 69 |ard WIMP| menus i|
|000004f0| 6e 20 79 6f 75 72 20 6f | 77 6e 20 57 49 4d 50 20 |n your o|wn WIMP |
|00000500| 70 72 6f 67 72 61 6d 73 | 2e 20 54 68 65 20 6d 65 |programs|. The me|
|00000510| 6e 75 0a 73 74 72 75 63 | 74 75 72 65 73 20 63 61 |nu.struc|tures ca|
|00000520| 6e 20 62 65 20 65 61 73 | 69 6c 79 20 64 65 73 69 |n be eas|ily desi|
|00000530| 67 6e 65 64 20 75 73 69 | 6e 67 20 74 68 65 20 6d |gned usi|ng the m|
|00000540| 75 6c 74 69 2d 74 61 73 | 6b 69 6e 67 20 61 70 70 |ulti-tas|king app|
|00000550| 6c 69 63 61 74 69 6f 6e | 2c 0a 21 4d 65 6e 75 73 |lication|,.!Menus|
|00000560| 2e 20 49 6e 20 6d 75 63 | 68 20 74 68 65 20 73 61 |. In muc|h the sa|
|00000570| 6d 65 20 77 61 79 20 74 | 68 61 74 20 21 46 6f 72 |me way t|hat !For|
|00000580| 6d 45 64 20 70 72 6f 64 | 75 63 65 73 20 27 54 65 |mEd prod|uces 'Te|
|00000590| 6d 70 6c 61 74 65 73 27 | 20 21 4d 65 6e 75 73 0a |mplates'| !Menus.|
|000005a0| 70 72 6f 64 75 63 65 73 | 20 66 69 6c 65 73 20 74 |produces| files t|
|000005b0| 68 61 74 20 63 6f 6e 74 | 61 69 6e 20 61 6c 6c 20 |hat cont|ain all |
|000005c0| 72 65 6c 65 76 61 6e 74 | 20 69 6e 66 6f 72 6d 61 |relevant| informa|
|000005d0| 74 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 6d 65 6e |tion for| the men|
|000005e0| 75 73 2c 0a 74 68 65 73 | 65 20 69 6e 63 6c 75 64 |us,.thes|e includ|
|000005f0| 65 20 69 6e 64 69 72 65 | 63 74 20 64 61 74 61 20 |e indire|ct data |
|00000600| 61 6e 64 20 76 61 6c 69 | 64 61 74 69 6f 6e 20 73 |and vali|dation s|
|00000610| 74 72 69 6e 67 73 2e 20 | 4d 65 6e 75 4d 6f 64 20 |trings. |MenuMod |
|00000620| 69 73 20 61 0a 72 65 6c | 6f 63 61 74 61 62 6c 65 |is a.rel|ocatable|
|00000630| 20 6d 6f 64 75 6c 65 20 | 77 68 69 63 68 20 63 6f | module |which co|
|00000640| 6e 74 61 69 6e 73 20 73 | 65 76 65 72 61 6c 20 53 |ntains s|everal S|
|00000650| 57 49 27 73 2c 20 74 68 | 65 73 65 20 61 6c 6c 6f |WI's, th|ese allo|
|00000660| 77 20 74 68 65 0a 70 72 | 6f 67 72 61 6d 6d 65 72 |w the.pr|ogrammer|
|00000670| 20 74 6f 20 63 6f 6e 74 | 72 6f 6c 20 74 68 65 20 | to cont|rol the |
|00000680| 6d 65 6e 75 73 20 61 6e | 64 20 63 68 61 6e 67 65 |menus an|d change|
|00000690| 20 74 68 65 69 72 20 73 | 74 61 74 65 2e 20 54 68 | their s|tate. Th|
|000006a0| 69 73 20 69 6e 63 6c 75 | 64 65 73 0a 73 68 61 64 |is inclu|des.shad|
|000006b0| 69 6e 67 20 69 74 65 6d | 73 2c 20 74 69 63 6b 69 |ing item|s, ticki|
|000006c0| 6e 67 20 69 74 65 6d 73 | 2c 20 63 68 61 6e 67 69 |ng items|, changi|
|000006d0| 6e 67 20 74 68 65 20 69 | 74 65 6d 27 73 20 63 6f |ng the i|tem's co|
|000006e0| 6c 6f 75 72 73 2c 20 63 | 68 61 6e 67 69 6e 67 0a |lours, c|hanging.|
|000006f0| 74 68 65 20 69 74 65 6d | 73 20 74 65 78 74 2c 20 |the item|s text, |
|00000700| 65 74 63 2e 20 41 6c 73 | 6f 20 69 6e 63 6c 75 64 |etc. Als|o includ|
|00000710| 65 64 20 77 69 74 68 20 | 74 68 65 20 70 72 6f 67 |ed with |the prog|
|00000720| 72 61 6d 73 20 61 72 65 | 20 74 77 6f 20 42 41 53 |rams are| two BAS|
|00000730| 49 43 0a 66 72 65 65 62 | 69 65 73 20 63 61 6c 6c |IC.freeb|ies call|
|00000740| 65 64 20 21 4c 69 73 74 | 4d 65 6e 75 73 20 61 6e |ed !List|Menus an|
|00000750| 64 20 21 4c 69 73 74 54 | 65 6d 70 2e 20 41 6c 6c |d !ListT|emp. All|
|00000760| 20 66 6f 75 72 20 70 72 | 6f 67 72 61 6d 73 20 77 | four pr|ograms w|
|00000770| 69 6c 6c 20 62 65 0a 65 | 78 70 6c 61 69 6e 65 64 |ill be.e|xplained|
|00000780| 20 61 66 74 65 72 20 74 | 68 69 73 20 73 68 6f 72 | after t|his shor|
|00000790| 74 20 63 6f 6d 6d 65 72 | 63 69 61 6c 20 62 72 65 |t commer|cial bre|
|000007a0| 61 6b 2e 2e 2e 2e 0a 0a | 20 20 20 20 20 54 68 65 |ak......| The|
|000007b0| 73 65 20 70 72 6f 67 72 | 61 6d 73 20 61 72 65 20 |se progr|ams are |
|000007c0| 6e 6f 74 20 70 75 62 6c | 69 63 20 64 6f 6d 61 69 |not publ|ic domai|
|000007d0| 6e 2e 20 49 66 20 79 6f | 75 20 66 69 6e 64 20 61 |n. If yo|u find a|
|000007e0| 20 75 73 65 20 66 6f 72 | 20 61 6e 79 0a 70 61 72 | use for| any.par|
|000007f0| 74 20 6f 66 20 74 68 69 | 73 20 73 6f 66 74 77 61 |t of thi|s softwa|
|00000800| 72 65 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 72 65 |re you s|hould re|
|00000810| 67 69 73 74 65 72 20 79 | 6f 75 72 20 63 6f 70 79 |gister y|our copy|
|00000820| 20 77 69 74 68 20 6d 65 | 20 61 74 20 74 68 65 0a | with me| at the.|
|00000830| 61 64 64 72 65 73 73 20 | 61 74 20 74 68 65 20 65 |address |at the e|
|00000840| 6e 64 20 6f 66 20 74 68 | 69 73 20 66 69 6c 65 2e |nd of th|is file.|
|00000850| 20 54 68 65 20 72 65 67 | 69 73 74 72 61 74 69 6f | The reg|istratio|
|00000860| 6e 20 66 65 65 20 69 73 | 20 a3 33 20 69 66 20 79 |n fee is| .3 if y|
|00000870| 6f 75 20 75 73 65 0a 74 | 68 69 73 20 73 6f 66 74 |ou use.t|his soft|
|00000880| 77 61 72 65 20 66 6f 72 | 20 6e 6f 6e 2d 63 6f 6d |ware for| non-com|
|00000890| 6d 65 72 63 69 61 6c 20 | 61 70 70 6c 69 63 61 74 |mercial |applicat|
|000008a0| 69 6f 6e 73 2e 20 49 66 | 20 79 6f 75 20 77 69 6c |ions. If| you wil|
|000008b0| 6c 20 63 68 61 72 67 65 | 20 66 6f 72 0a 79 6f 75 |l charge| for.you|
|000008c0| 72 20 70 72 6f 67 72 61 | 6d 73 20 74 68 65 20 72 |r progra|ms the r|
|000008d0| 65 67 69 73 74 72 61 74 | 69 6f 6e 20 66 65 65 20 |egistrat|ion fee |
|000008e0| 69 73 20 64 6f 75 62 6c | 65 64 20 61 74 20 a3 36 |is doubl|ed at .6|
|000008f0| 0a 0a 20 20 20 20 20 59 | 6f 75 20 6d 75 73 74 20 |.. Y|ou must |
|00000900| 61 64 6d 69 74 20 74 68 | 65 73 65 20 70 72 69 63 |admit th|ese pric|
|00000910| 65 73 20 61 72 65 20 6e | 6f 74 20 68 69 67 68 20 |es are n|ot high |
|00000920| 61 6e 64 20 69 66 20 65 | 6e 6f 75 67 68 20 70 65 |and if e|nough pe|
|00000930| 6f 70 6c 65 0a 72 65 67 | 69 73 74 65 72 20 69 74 |ople.reg|ister it|
|00000940| 20 77 69 6c 6c 3a 2d 0a | 0a 20 20 20 20 20 20 20 | will:-.|. |
|00000950| 61 29 20 45 61 72 6e 20 | 6d 65 20 61 20 62 69 74 |a) Earn |me a bit|
|00000960| 20 6f 66 20 6d 6f 6e 65 | 79 2e 0a 20 20 20 20 20 | of mone|y.. |
|00000970| 20 20 62 29 20 47 69 76 | 65 20 6d 65 20 74 68 65 | b) Giv|e me the|
|00000980| 20 69 6e 63 65 6e 74 69 | 76 65 20 74 6f 20 77 72 | incenti|ve to wr|
|00000990| 69 74 65 20 6d 6f 72 65 | 20 43 48 45 41 50 20 73 |ite more| CHEAP s|
|000009a0| 6f 66 74 77 61 72 65 20 | 61 6e 64 20 74 6f 0a 20 |oftware |and to. |
|000009b0| 20 20 20 20 20 20 20 20 | 20 69 6d 70 72 6f 76 65 | | improve|
|000009c0| 20 74 68 65 73 65 20 70 | 72 6f 67 72 61 6d 73 2e | these p|rograms.|
|000009d0| 0a 20 20 20 20 20 20 20 | 63 29 20 41 6c 6c 6f 77 |. |c) Allow|
|000009e0| 20 79 6f 75 20 74 6f 20 | 64 69 73 74 72 69 62 75 | you to |distribu|
|000009f0| 74 65 20 74 68 65 20 4d | 65 6e 75 4d 6f 64 20 6d |te the M|enuMod m|
|00000a00| 6f 64 75 6c 65 20 77 69 | 74 68 20 79 6f 75 72 20 |odule wi|th your |
|00000a10| 73 6f 66 74 77 61 72 65 | 20 0a 20 20 20 20 20 20 |software| . |
|00000a20| 20 20 20 20 28 70 72 6f | 76 69 64 69 6e 67 20 79 | (pro|viding y|
|00000a30| 6f 75 20 70 61 79 65 64 | 20 74 68 65 20 72 69 67 |ou payed| the rig|
|00000a40| 68 74 20 66 65 65 20 6f | 66 20 63 6f 75 72 73 65 |ht fee o|f course|
|00000a50| 29 0a 0a 20 20 20 20 20 | 49 74 20 77 69 6c 6c 20 |).. |It will |
|00000a60| 61 6c 73 6f 20 61 6c 6c | 6f 77 20 79 6f 75 20 74 |also all|ow you t|
|00000a70| 6f 20 6d 6f 61 6e 20 61 | 62 6f 75 74 20 74 68 65 |o moan a|bout the|
|00000a80| 20 73 6f 66 74 77 61 72 | 65 20 77 69 74 68 20 73 | softwar|e with s|
|00000a90| 6f 6d 65 20 68 6f 70 65 | 0a 6f 66 20 6d 65 20 61 |ome hope|.of me a|
|00000aa0| 63 74 69 6e 67 20 6f 6e | 20 69 74 2e 20 50 6c 65 |cting on| it. Ple|
|00000ab0| 61 73 65 20 72 65 70 6f | 72 74 20 61 6e 79 20 62 |ase repo|rt any b|
|00000ac0| 75 67 73 20 74 68 61 74 | 20 63 61 6e 20 62 65 20 |ugs that| can be |
|00000ad0| 72 65 70 65 61 74 65 64 | 20 74 6f 20 6d 65 0a 73 |repeated| to me.s|
|00000ae0| 74 61 74 69 6e 67 20 68 | 6f 77 20 61 6e 64 20 77 |tating h|ow and w|
|00000af0| 68 65 6e 20 74 68 65 20 | 62 75 67 20 6f 63 63 75 |hen the |bug occu|
|00000b00| 72 72 65 64 2e 20 41 6c | 73 6f 20 69 66 20 74 68 |rred. Al|so if th|
|00000b10| 65 72 65 20 61 72 65 20 | 61 6e 79 20 66 65 61 74 |ere are |any feat|
|00000b20| 75 72 65 73 0a 79 6f 75 | 20 77 6f 75 6c 64 20 6c |ures.you| would l|
|00000b30| 69 6b 65 20 74 6f 20 73 | 65 65 20 61 64 64 65 64 |ike to s|ee added|
|00000b40| 20 74 6f 20 74 68 65 73 | 65 20 70 72 6f 67 72 61 | to thes|e progra|
|00000b50| 6d 73 20 74 68 65 6e 20 | 74 65 6c 6c 20 6d 65 2e |ms then |tell me.|
|00000b60| 20 49 20 63 61 6e 20 62 | 65 0a 63 6f 6e 74 61 63 | I can b|e.contac|
|00000b70| 74 65 64 20 61 74 20 74 | 68 65 20 61 64 64 72 65 |ted at t|he addre|
|00000b80| 73 73 65 73 20 61 74 20 | 74 68 65 20 65 6e 64 20 |sses at |the end |
|00000b90| 6f 66 20 74 68 69 73 20 | 66 69 6c 65 2e 20 59 6f |of this |file. Yo|
|00000ba0| 75 20 61 72 65 20 66 72 | 65 65 20 74 6f 0a 70 61 |u are fr|ee to.pa|
|00000bb0| 73 73 20 63 6f 70 69 65 | 73 20 6f 66 20 74 68 69 |ss copie|s of thi|
|00000bc0| 73 20 73 6f 66 74 77 61 | 72 65 2c 20 77 69 74 68 |s softwa|re, with|
|00000bd0| 20 41 4c 4c 20 61 63 63 | 6f 6d 70 61 6e 79 69 6e | ALL acc|ompanyin|
|00000be0| 67 20 66 69 6c 65 73 2c | 20 61 6d 6f 6e 67 20 79 |g files,| among y|
|00000bf0| 6f 75 72 0a 66 72 69 65 | 6e 64 73 20 61 6e 64 20 |our.frie|nds and |
|00000c00| 65 6e 65 6d 69 65 73 2c | 20 62 75 74 20 74 68 65 |enemies,| but the|
|00000c10| 79 20 73 68 6f 75 6c 64 | 20 72 65 67 69 73 74 65 |y should| registe|
|00000c20| 72 20 74 68 65 69 72 20 | 63 6f 70 69 65 73 20 61 |r their |copies a|
|00000c30| 73 20 77 65 6c 6c 2e 0a | 41 52 4d 61 67 65 64 64 |s well..|ARMagedd|
|00000c40| 6f 6e 20 73 6f 66 74 77 | 61 72 65 20 28 69 65 2e |on softw|are (ie.|
|00000c50| 20 6d 6f 69 21 29 20 72 | 65 74 61 69 6e 20 63 6f | moi!) r|etain co|
|00000c60| 70 79 72 69 67 68 74 20 | 6f 6e 20 61 6c 6c 20 74 |pyright |on all t|
|00000c70| 68 65 73 65 20 66 69 6c | 65 73 2e 20 4e 4f 0a 70 |hese fil|es. NO.p|
|00000c80| 61 72 74 20 6f 66 20 74 | 68 69 73 20 73 6f 66 74 |art of t|his soft|
|00000c90| 77 61 72 65 2c 20 6f 72 | 20 69 74 73 20 66 69 6c |ware, or| its fil|
|00000ca0| 65 73 2c 20 73 68 6f 75 | 6c 64 20 62 65 20 61 6c |es, shou|ld be al|
|00000cb0| 74 65 72 65 64 20 28 69 | 65 2e 20 6e 6f 0a 73 6e |tered (i|e. no.sn|
|00000cc0| 65 61 6b 69 6c 79 20 63 | 68 61 6e 67 69 6e 67 20 |eakily c|hanging |
|00000cd0| 74 68 65 20 61 75 74 68 | 6f 72 73 20 6e 61 6d 65 |the auth|ors name|
|00000ce0| 20 61 6e 64 20 61 64 64 | 72 65 73 73 21 29 0a 0a | and add|ress!)..|
|00000cf0| 4d 65 6e 75 4d 6f 64 20 | 2d 20 54 65 63 68 6e 69 |MenuMod |- Techni|
|00000d00| 63 61 6c 20 64 65 74 61 | 69 6c 73 0a 2d 2d 2d 2d |cal deta|ils.----|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 0a | 0a 2d 44 61 74 61 0a 20 |-------.|.-Data. |
|00000d30| 20 20 20 20 4d 65 6e 75 | 4d 6f 64 20 61 63 74 75 | Menu|Mod actu|
|00000d40| 61 6c 6c 79 20 75 73 65 | 73 20 64 61 74 61 20 74 |ally use|s data t|
|00000d50| 61 62 6c 65 73 20 69 64 | 65 6e 74 69 63 61 6c 20 |ables id|entical |
|00000d60| 74 6f 20 74 68 6f 73 65 | 20 75 73 65 64 20 62 79 |to those| used by|
|00000d70| 20 53 57 49 0a 22 57 69 | 6d 70 5f 43 72 65 61 74 | SWI."Wi|mp_Creat|
|00000d80| 65 4d 65 6e 75 22 20 73 | 6f 20 6e 6f 20 65 78 74 |eMenu" s|o no ext|
|00000d90| 72 61 20 63 6f 6e 76 65 | 72 73 69 6f 6e 20 69 73 |ra conve|rsion is|
|00000da0| 20 6e 65 65 64 65 64 20 | 79 6f 75 20 73 69 6d 70 | needed |you simp|
|00000db0| 6c 79 20 70 61 73 73 20 | 74 68 65 0a 61 64 64 72 |ly pass |the.addr|
|00000dc0| 65 73 73 20 6f 66 20 74 | 68 65 20 6d 65 6e 75 20 |ess of t|he menu |
|00000dd0| 73 74 72 75 63 74 75 72 | 65 20 74 6f 20 74 68 65 |structur|e to the|
|00000de0| 20 57 49 4d 50 2e 20 41 | 73 20 6d 65 6e 75 20 66 | WIMP. A|s menu f|
|00000df0| 69 6c 65 73 20 63 6f 6e | 74 61 69 6e 20 6d 6f 72 |iles con|tain mor|
|00000e00| 65 0a 74 68 61 6e 20 6f | 6e 65 20 6d 65 6e 75 20 |e.than o|ne menu |
|00000e10| 66 69 6e 64 69 6e 67 20 | 74 68 65 20 61 64 64 72 |finding |the addr|
|00000e20| 65 73 73 20 69 73 20 61 | 20 62 69 74 20 64 69 66 |ess is a| bit dif|
|00000e30| 66 69 63 75 6c 74 20 73 | 6f 20 53 57 49 27 73 20 |ficult s|o SWI's |
|00000e40| 68 61 76 65 0a 62 65 65 | 6e 20 69 6e 63 6f 72 70 |have.bee|n incorp|
|00000e50| 6f 72 61 74 65 64 20 74 | 6f 20 63 61 6c 63 75 6c |orated t|o calcul|
|00000e60| 61 74 65 20 74 68 65 6d | 2e 0a 0a 2d 41 63 63 65 |ate them|...-Acce|
|00000e70| 73 73 69 6e 67 20 6d 65 | 6e 75 20 69 74 65 6d 73 |ssing me|nu items|
|00000e80| 0a 20 20 20 20 20 4d 65 | 6e 75 20 69 74 65 6d 73 |. Me|nu items|
|00000e90| 20 63 61 6e 20 62 65 20 | 61 63 63 65 73 73 65 64 | can be |accessed|
|00000ea0| 20 69 6e 20 74 77 6f 20 | 77 61 79 73 20 3a 2d 0a | in two |ways :-.|
|00000eb0| 0a 2d 4d 65 6e 75 20 73 | 74 72 69 6e 67 73 0a 20 |.-Menu s|trings. |
|00000ec0| 20 20 20 20 54 68 65 73 | 65 20 63 6f 6e 73 69 73 | Thes|e consis|
|00000ed0| 74 20 6f 66 20 61 20 73 | 65 72 69 65 73 20 6f 66 |t of a s|eries of|
|00000ee0| 20 7a 65 72 6f 20 74 65 | 72 6d 69 6e 61 74 65 64 | zero te|rminated|
|00000ef0| 20 73 74 72 69 6e 67 73 | 2e 20 54 68 65 20 65 6e | strings|. The en|
|00000f00| 74 69 72 65 0a 73 74 72 | 69 6e 67 20 69 73 20 73 |tire.str|ing is s|
|00000f10| 69 6d 69 6c 61 72 20 74 | 6f 20 74 68 61 74 20 72 |imilar t|o that r|
|00000f20| 65 74 75 72 6e 65 64 20 | 62 79 20 53 57 49 20 22 |eturned |by SWI "|
|00000f30| 57 69 6d 70 5f 44 65 63 | 6f 64 65 4d 65 6e 75 22 |Wimp_Dec|odeMenu"|
|00000f40| 20 69 65 2e 0a 22 44 69 | 73 70 6c 61 79 2e 53 6d | ie.."Di|splay.Sm|
|00000f50| 61 6c 6c 20 69 63 6f 6e | 73 22 20 66 6f 72 20 61 |all icon|s" for a|
|00000f60| 20 74 79 70 69 63 61 6c | 20 66 69 6c 65 72 20 6d | typical| filer m|
|00000f70| 65 6e 75 20 73 65 6c 65 | 63 74 69 6f 6e 2e 20 54 |enu sele|ction. T|
|00000f80| 68 65 20 6f 6e 6c 79 0a | 64 69 66 66 65 72 65 6e |he only.|differen|
|00000f90| 63 65 73 20 61 72 65 20 | 74 68 61 74 20 74 68 65 |ces are |that the|
|00000fa0| 20 69 6e 69 74 69 61 6c | 20 6d 65 6e 75 20 74 69 | initial| menu ti|
|00000fb0| 74 6c 65 20 69 73 20 70 | 6c 61 63 65 64 20 62 65 |tle is p|laced be|
|00000fc0| 66 6f 72 65 20 74 68 65 | 0a 73 65 6c 65 63 74 69 |fore the|.selecti|
|00000fd0| 6f 6e 20 73 74 72 69 6e | 67 20 69 65 2e 20 74 68 |on strin|g ie. th|
|00000fe0| 65 20 61 62 6f 76 65 20 | 65 78 61 6d 70 6c 65 20 |e above |example |
|00000ff0| 77 6f 75 6c 64 20 62 65 | 63 6f 6d 65 0a 22 46 69 |would be|come."Fi|
|00001000| 6c 65 72 2e 44 69 73 70 | 6c 61 79 2e 53 6d 61 6c |ler.Disp|lay.Smal|
|00001010| 6c 20 69 63 6f 6e 73 22 | 20 61 6c 73 6f 20 74 68 |l icons"| also th|
|00001020| 65 20 64 6f 74 73 20 61 | 72 65 20 72 65 70 6c 61 |e dots a|re repla|
|00001030| 63 65 64 20 77 69 74 68 | 20 7a 65 72 6f 0a 62 79 |ced with| zero.by|
|00001040| 74 65 73 2e 20 41 66 74 | 65 72 20 61 6c 6c 20 74 |tes. Aft|er all t|
|00001050| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 73 74 72 |he selec|tion str|
|00001060| 69 6e 67 73 20 61 6e 20 | 65 78 74 72 61 20 7a 65 |ings an |extra ze|
|00001070| 72 6f 20 62 79 74 65 20 | 69 73 20 61 64 64 65 64 |ro byte |is added|
|00001080| 0a 73 69 67 6e 69 66 79 | 69 6e 67 20 74 68 65 20 |.signify|ing the |
|00001090| 65 6e 64 2e 0a 0a 2d 4d | 65 6e 75 20 6c 69 73 74 |end...-M|enu list|
|000010a0| 73 0a 20 20 20 20 20 54 | 68 65 73 65 20 61 72 65 |s. T|hese are|
|000010b0| 20 73 74 61 6e 64 61 72 | 64 20 6c 69 73 74 73 20 | standar|d lists |
|000010c0| 6f 66 20 6d 65 6e 75 20 | 73 65 6c 65 63 74 69 6f |of menu |selectio|
|000010d0| 6e 73 20 61 73 20 72 65 | 74 75 72 6e 65 64 20 62 |ns as re|turned b|
|000010e0| 79 20 53 57 49 0a 22 57 | 69 6d 70 5f 50 6f 6c 6c |y SWI."W|imp_Poll|
|000010f0| 22 20 69 65 2e 20 61 20 | 73 65 72 69 65 73 20 6f |" ie. a |series o|
|00001100| 66 20 77 6f 72 64 73 20 | 73 69 67 6e 69 66 79 69 |f words |signifyi|
|00001110| 6e 67 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |ng the s|election|
|00001120| 20 70 61 74 68 0a 74 65 | 72 6d 69 6e 61 74 65 64 | path.te|rminated|
|00001130| 20 62 79 20 61 20 2d 31 | 2e 20 41 67 61 69 6e 20 | by a -1|. Again |
|00001140| 74 68 6f 75 67 68 20 74 | 68 65 20 6d 65 6e 75 20 |though t|he menu |
|00001150| 6e 75 6d 62 65 72 20 28 | 77 69 74 68 20 30 20 62 |number (|with 0 b|
|00001160| 65 69 6e 67 20 74 68 65 | 0a 66 69 72 73 74 20 69 |eing the|.first i|
|00001170| 6e 20 74 68 65 20 66 69 | 6c 65 29 20 69 73 20 70 |n the fi|le) is p|
|00001180| 6c 61 63 65 64 20 62 65 | 66 6f 72 65 20 74 68 65 |laced be|fore the|
|00001190| 20 6c 69 73 74 20 73 6f | 20 74 68 65 20 61 62 6f | list so| the abo|
|000011a0| 76 65 20 73 65 6c 65 63 | 74 69 6f 6e 0a 77 6f 75 |ve selec|tion.wou|
|000011b0| 6c 64 20 62 65 63 6f 6d | 65 20 30 2c 30 2c 31 2c |ld becom|e 0,0,1,|
|000011c0| 2d 31 20 65 61 63 68 20 | 6e 75 6d 62 65 72 20 77 |-1 each |number w|
|000011d0| 6f 75 6c 64 20 62 65 20 | 61 20 77 6f 72 64 20 6c |ould be |a word l|
|000011e0| 6f 6e 67 20 61 6e 64 20 | 74 68 65 20 27 46 69 6c |ong and |the 'Fil|
|000011f0| 65 72 27 0a 6d 65 6e 75 | 20 77 6f 75 6c 64 20 68 |er'.menu| would h|
|00001200| 61 76 65 20 74 6f 20 62 | 65 20 74 68 65 20 66 69 |ave to b|e the fi|
|00001210| 72 73 74 20 69 6e 20 74 | 68 65 20 66 69 6c 65 2e |rst in t|he file.|
|00001220| 0a 0a 2d 4d 65 6e 75 4d | 6f 64 20 53 57 49 27 73 |..-MenuM|od SWI's|
|00001230| 0a 20 20 20 20 20 41 6c | 6c 20 62 75 74 20 6f 6e |. Al|l but on|
|00001240| 65 20 6f 66 20 74 68 65 | 20 53 57 49 27 73 20 61 |e of the| SWI's a|
|00001250| 72 65 20 65 6e 74 65 72 | 65 64 20 77 69 74 68 20 |re enter|ed with |
|00001260| 52 30 20 70 6f 69 6e 74 | 69 6e 67 20 74 6f 20 74 |R0 point|ing to t|
|00001270| 68 65 20 62 61 73 65 0a | 6f 66 20 74 68 65 20 6d |he base.|of the m|
|00001280| 65 6e 75 20 66 69 6c 65 | 2c 20 74 68 69 73 20 69 |enu file|, this i|
|00001290| 73 20 74 68 65 20 61 64 | 64 72 65 73 73 20 77 68 |s the ad|dress wh|
|000012a0| 65 72 65 20 74 68 65 20 | 66 69 6c 65 20 69 73 20 |ere the |file is |
|000012b0| 6c 6f 61 64 65 64 2e 20 | 4f 6e 0a 65 78 69 74 2c |loaded. |On.exit,|
|000012c0| 20 61 6c 6c 20 72 65 67 | 69 73 74 65 72 73 2c 20 | all reg|isters, |
|000012d0| 75 6e 6c 65 73 73 20 6f | 74 68 65 72 77 69 73 65 |unless o|therwise|
|000012e0| 20 73 70 65 63 69 66 69 | 65 64 2c 20 61 72 65 20 | specifi|ed, are |
|000012f0| 70 72 65 73 65 72 76 65 | 64 2e 20 57 68 65 6e 0a |preserve|d. When.|
|00001300| 79 6f 75 20 61 72 65 20 | 74 6f 6c 64 20 52 31 20 |you are |told R1 |
|00001310| 73 68 6f 75 6c 64 20 70 | 6f 69 6e 74 20 74 6f 20 |should p|oint to |
|00001320| 61 20 6d 65 6e 75 20 6c | 69 73 74 2f 73 74 72 69 |a menu l|ist/stri|
|00001330| 6e 67 20 79 6f 75 20 63 | 61 6e 20 75 73 65 20 65 |ng you c|an use e|
|00001340| 69 74 68 65 72 2c 0a 4d | 65 6e 75 4d 6f 64 20 64 |ither,.M|enuMod d|
|00001350| 65 74 65 63 74 73 20 77 | 68 69 63 68 20 6f 6e 65 |etects w|hich one|
|00001360| 20 79 6f 75 20 61 72 65 | 20 75 73 69 6e 67 20 28 | you are| using (|
|00001370| 49 74 20 64 6f 65 73 20 | 73 6f 20 62 79 20 63 68 |It does |so by ch|
|00001380| 65 63 6b 69 6e 67 20 74 | 68 65 0a 66 69 72 73 74 |ecking t|he.first|
|00001390| 20 77 6f 72 64 20 69 6e | 20 74 68 65 20 73 74 72 | word in| the str|
|000013a0| 69 6e 67 2f 6c 69 73 74 | 2c 20 69 66 20 69 74 73 |ing/list|, if its|
|000013b0| 20 6c 65 73 73 20 74 68 | 61 6e 20 32 35 36 20 74 | less th|an 256 t|
|000013c0| 68 65 6e 20 69 74 27 73 | 20 61 20 6c 69 73 74 0a |hen it's| a list.|
|000013d0| 6f 74 68 65 72 77 69 73 | 65 20 69 74 73 20 61 20 |otherwis|e its a |
|000013e0| 73 74 72 69 6e 67 2e 20 | 49 6e 63 69 64 65 6e 74 |string. |Incident|
|000013f0| 61 6c 6c 79 20 73 74 72 | 69 6e 67 73 20 64 6f 6e |ally str|ings don|
|00001400| 27 74 20 68 61 76 65 20 | 74 6f 20 62 65 20 77 6f |'t have |to be wo|
|00001410| 72 64 0a 61 6c 69 67 6e | 65 64 29 0a 0a 53 57 49 |rd.align|ed)..SWI|
|00001420| 20 22 4d 65 6e 75 5f 43 | 61 6c 63 75 6c 61 74 65 | "Menu_C|alculate|
|00001430| 22 0a 0a 20 20 20 20 20 | 54 68 69 73 20 69 73 20 |".. |This is |
|00001440| 75 73 65 64 20 74 6f 20 | 72 65 63 61 6c 63 75 6c |used to |recalcul|
|00001450| 61 74 65 20 61 6e 64 20 | 72 65 61 6c 6c 6f 63 61 |ate and |realloca|
|00001460| 74 65 20 61 6c 6c 20 69 | 6e 64 69 72 65 63 74 20 |te all i|ndirect |
|00001470| 61 6e 64 0a 76 61 6c 69 | 64 61 74 69 6f 6e 20 73 |and.vali|dation s|
|00001480| 74 72 69 6e 67 73 2e 20 | 49 74 20 61 6c 73 6f 20 |trings. |It also |
|00001490| 63 61 6c 63 75 6c 61 74 | 65 73 20 73 75 62 6d 65 |calculat|es subme|
|000014a0| 6e 75 20 61 64 64 72 65 | 73 73 65 73 2e 20 49 74 |nu addre|sses. It|
|000014b0| 20 69 73 0a 75 73 75 61 | 6c 6c 79 20 63 61 6c 6c | is.usua|lly call|
|000014c0| 65 64 20 69 6d 6d 65 64 | 69 61 74 65 6c 79 20 61 |ed immed|iately a|
|000014d0| 66 74 65 72 20 6c 6f 61 | 64 69 6e 67 20 74 68 65 |fter loa|ding the|
|000014e0| 20 6d 65 6e 75 20 66 69 | 6c 65 2e 0a 0a 53 57 49 | menu fi|le...SWI|
|000014f0| 20 22 4d 65 6e 75 5f 56 | 61 6c 69 64 61 74 65 22 | "Menu_V|alidate"|
|00001500| 0a 0a 20 20 20 20 20 54 | 68 69 73 20 69 73 20 63 |.. T|his is c|
|00001510| 61 6c 6c 65 64 20 77 68 | 65 6e 20 73 75 62 2d 77 |alled wh|en sub-w|
|00001520| 69 6e 64 6f 77 20 68 61 | 6e 64 6c 65 73 20 68 61 |indow ha|ndles ha|
|00001530| 76 65 20 62 65 65 6e 20 | 63 61 6c 63 75 6c 61 74 |ve been |calculat|
|00001540| 65 64 20 61 6e 64 0a 73 | 74 6f 72 65 64 20 77 69 |ed and.s|tored wi|
|00001550| 74 68 20 53 57 49 20 22 | 4d 65 6e 75 5f 53 65 74 |th SWI "|Menu_Set|
|00001560| 53 75 62 48 61 6e 64 6c | 65 22 2e 20 49 74 20 63 |SubHandl|e". It c|
|00001570| 68 65 63 6b 73 20 74 6f | 20 65 6e 73 75 72 65 20 |hecks to| ensure |
|00001580| 74 68 61 74 20 61 6c 6c | 0a 73 75 62 2d 77 69 6e |that all|.sub-win|
|00001590| 64 6f 77 20 68 61 6e 64 | 6c 65 73 20 68 61 76 65 |dow hand|les have|
|000015a0| 20 62 65 65 6e 20 64 65 | 66 69 6e 65 64 2e 0a 0a | been de|fined...|
|000015b0| 53 57 49 20 22 4d 65 6e | 75 5f 4c 69 73 74 54 6f |SWI "Men|u_ListTo|
|000015c0| 41 64 64 72 65 73 73 22 | 0a 45 6e 74 72 79 0a 20 |Address"|.Entry. |
|000015d0| 20 20 20 20 52 31 3d 4d | 65 6e 75 20 6c 69 73 74 | R1=M|enu list|
|000015e0| 0a 45 78 69 74 0a 20 20 | 20 20 20 52 32 3d 41 64 |.Exit. | R2=Ad|
|000015f0| 64 72 65 73 73 20 6f 66 | 20 74 68 65 20 69 74 65 |dress of| the ite|
|00001600| 6d 0a 0a 20 20 20 20 20 | 54 68 69 73 20 63 61 6c |m.. |This cal|
|00001610| 6c 20 72 65 74 75 72 6e | 73 20 74 68 65 20 61 64 |l return|s the ad|
|00001620| 64 72 65 73 73 20 6f 66 | 20 74 68 65 20 6d 65 6e |dress of| the men|
|00001630| 75 20 69 74 65 6d 20 73 | 70 65 63 69 66 69 65 64 |u item s|pecified|
|00001640| 20 69 6e 20 74 68 65 0a | 6d 65 6e 75 20 6c 69 73 | in the.|menu lis|
|00001650| 74 20 67 69 76 65 6e 2e | 20 49 66 20 74 68 65 20 |t given.| If the |
|00001660| 6c 69 73 74 20 63 6f 6e | 74 61 69 6e 73 20 6f 6e |list con|tains on|
|00001670| 6c 79 20 61 20 6d 65 6e | 75 20 6e 75 6d 62 65 72 |ly a men|u number|
|00001680| 20 28 69 65 2e 20 6f 6e | 6c 79 20 74 68 65 0a 66 | (ie. on|ly the.f|
|00001690| 69 72 73 74 20 77 6f 72 | 64 20 63 6f 6e 74 61 69 |irst wor|d contai|
|000016a0| 6e 73 20 64 61 74 61 29 | 20 74 68 65 20 63 61 6c |ns data)| the cal|
|000016b0| 6c 20 72 65 74 75 72 6e | 73 20 74 68 65 20 61 64 |l return|s the ad|
|000016c0| 64 72 65 73 73 20 6f 66 | 20 74 68 65 20 65 6e 74 |dress of| the ent|
|000016d0| 69 72 65 0a 6d 65 6e 75 | 20 73 74 72 75 63 74 75 |ire.menu| structu|
|000016e0| 72 65 2e 20 54 68 69 73 | 20 63 61 6e 20 74 68 65 |re. This| can the|
|000016f0| 6e 20 62 65 20 75 73 65 | 64 20 62 79 20 53 57 49 |n be use|d by SWI|
|00001700| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00001710| 75 22 20 74 6f 20 6f 70 | 65 6e 0a 74 68 61 74 20 |u" to op|en.that |
|00001720| 6d 65 6e 75 2e 0a 20 20 | 20 20 0a 53 57 49 20 22 |menu.. | .SWI "|
|00001730| 4d 65 6e 75 5f 53 74 72 | 69 6e 67 54 6f 41 64 64 |Menu_Str|ingToAdd|
|00001740| 72 65 73 73 22 0a 45 6e | 74 72 79 0a 20 20 20 20 |ress".En|try. |
|00001750| 20 52 31 3d 4d 65 6e 75 | 20 73 74 72 69 6e 67 0a | R1=Menu| string.|
|00001760| 45 78 69 74 20 0a 20 20 | 20 20 20 52 32 3d 41 64 |Exit . | R2=Ad|
|00001770| 64 72 65 73 73 20 6f 66 | 20 6d 65 6e 75 20 69 74 |dress of| menu it|
|00001780| 65 6d 0a 0a 20 20 20 20 | 20 54 68 69 73 20 69 73 |em.. | This is|
|00001790| 20 73 69 6d 69 6c 61 72 | 20 74 6f 20 74 68 65 20 | similar| to the |
|000017a0| 70 72 65 76 69 6f 75 73 | 20 53 57 49 20 65 78 63 |previous| SWI exc|
|000017b0| 65 70 74 20 69 74 20 75 | 73 65 73 20 6d 65 6e 75 |ept it u|ses menu|
|000017c0| 20 73 74 72 69 6e 67 73 | 2e 0a 41 67 61 69 6e 20 | strings|..Again |
|000017d0| 69 66 20 6f 6e 6c 79 20 | 6f 6e 65 20 73 74 72 69 |if only |one stri|
|000017e0| 6e 67 20 69 73 20 70 61 | 73 73 65 64 20 28 69 65 |ng is pa|ssed (ie|
|000017f0| 2e 20 61 20 6d 65 6e 75 | 20 74 69 74 6c 65 29 20 |. a menu| title) |
|00001800| 69 74 20 72 65 74 75 72 | 6e 73 20 74 68 65 0a 61 |it retur|ns the.a|
|00001810| 64 64 72 65 73 73 20 6f | 66 20 74 68 61 74 20 6d |ddress o|f that m|
|00001820| 65 6e 75 0a 0a 53 57 49 | 20 22 4d 65 6e 75 5f 52 |enu..SWI| "Menu_R|
|00001830| 65 61 64 22 0a 45 6e 74 | 72 79 0a 20 20 20 20 20 |ead".Ent|ry. |
|00001840| 52 31 3d 4d 65 6e 75 20 | 73 74 72 69 6e 67 2f 6c |R1=Menu |string/l|
|00001850| 69 73 74 0a 20 20 20 20 | 20 52 32 3d 6f 66 66 73 |ist. | R2=offs|
|00001860| 65 74 20 74 6f 20 72 65 | 61 64 20 66 72 6f 6d 0a |et to re|ad from.|
|00001870| 45 78 69 74 0a 20 20 20 | 20 20 52 33 3d 56 61 6c |Exit. | R3=Val|
|00001880| 75 65 20 72 65 61 64 0a | 0a 20 20 20 20 20 54 68 |ue read.|. Th|
|00001890| 69 73 20 61 6c 6c 6f 77 | 73 20 79 6f 75 20 74 6f |is allow|s you to|
|000018a0| 20 72 65 61 64 20 74 68 | 65 20 64 61 74 61 20 61 | read th|e data a|
|000018b0| 74 20 61 6e 20 69 74 65 | 6d 20 6f 72 20 6d 65 6e |t an ite|m or men|
|000018c0| 75 20 64 69 72 65 63 74 | 6c 79 2e 20 54 68 65 0a |u direct|ly. The.|
|000018d0| 6f 66 66 73 65 74 20 69 | 73 20 6e 6f 74 20 63 68 |offset i|s not ch|
|000018e0| 65 63 6b 65 64 20 73 6f | 20 79 6f 75 20 6d 75 73 |ecked so| you mus|
|000018f0| 74 20 6b 6e 6f 77 20 77 | 68 65 72 65 20 79 6f 75 |t know w|here you|
|00001900| 20 77 61 6e 74 20 74 6f | 20 6c 6f 61 64 20 66 72 | want to| load fr|
|00001910| 6f 6d 2e 0a 54 68 65 20 | 62 61 73 65 20 61 64 64 |om..The |base add|
|00001920| 72 65 73 73 20 69 73 20 | 63 61 6c 63 75 6c 61 74 |ress is |calculat|
|00001930| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 64 61 74 61 |ed from |the data|
|00001940| 20 61 74 20 52 31 2c 20 | 73 6f 20 69 74 20 63 6f | at R1, |so it co|
|00001950| 75 6c 64 20 70 6f 69 6e | 74 0a 74 6f 20 61 6e 20 |uld poin|t.to an |
|00001960| 69 74 65 6d 20 6f 72 20 | 61 20 6d 65 6e 75 2e 0a |item or |a menu..|
|00001970| 0a 53 57 49 20 22 4d 65 | 6e 75 5f 57 72 69 74 65 |.SWI "Me|nu_Write|
|00001980| 22 0a 45 6e 74 72 79 0a | 20 20 20 20 20 52 31 3d |".Entry.| R1=|
|00001990| 4d 65 6e 75 20 73 74 72 | 69 6e 67 2f 6c 69 73 74 |Menu str|ing/list|
|000019a0| 0a 20 20 20 20 20 52 32 | 3d 4f 66 66 73 65 74 20 |. R2|=Offset |
|000019b0| 74 6f 20 77 72 69 74 65 | 20 74 6f 0a 20 20 20 20 |to write| to. |
|000019c0| 20 52 33 3d 56 61 6c 75 | 65 20 74 6f 20 77 72 69 | R3=Valu|e to wri|
|000019d0| 74 65 0a 0a 20 20 20 20 | 20 54 68 69 73 20 69 73 |te.. | This is|
|000019e0| 20 75 73 65 64 20 66 6f | 72 20 77 72 69 74 69 6e | used fo|r writin|
|000019f0| 67 20 64 61 74 61 20 74 | 6f 20 69 74 65 6d 73 20 |g data t|o items |
|00001a00| 6f 72 20 6d 65 6e 75 73 | 2e 20 59 6f 75 20 6d 75 |or menus|. You mu|
|00001a10| 73 74 20 6b 6e 6f 77 0a | 77 68 65 72 65 20 79 6f |st know.|where yo|
|00001a20| 75 20 61 72 65 20 73 74 | 6f 72 69 6e 67 20 74 68 |u are st|oring th|
|00001a30| 65 20 64 61 74 61 20 61 | 73 20 69 74 20 63 6f 75 |e data a|s it cou|
|00001a40| 6c 64 20 63 6f 72 72 75 | 70 74 20 74 68 65 20 6d |ld corru|pt the m|
|00001a50| 65 6e 75 20 64 61 74 61 | 2e 0a 0a 20 20 20 20 20 |enu data|... |
|00001a60| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 63 61 |The foll|owing ca|
|00001a70| 6c 6c 73 20 64 6f 20 6e | 6f 74 20 63 68 65 63 6b |lls do n|ot check|
|00001a80| 20 69 66 20 79 6f 75 20 | 61 72 65 20 61 63 63 65 | if you |are acce|
|00001a90| 73 73 69 6e 67 20 61 20 | 6d 65 6e 75 20 6f 72 0a |ssing a |menu or.|
|00001aa0| 61 6e 20 69 74 65 6d 20 | 74 68 6f 75 67 68 20 74 |an item |though t|
|00001ab0| 68 65 79 20 73 68 6f 75 | 6c 64 20 6f 6e 6c 79 20 |hey shou|ld only |
|00001ac0| 62 65 20 75 73 65 64 20 | 6f 6e 20 69 74 65 6d 73 |be used |on items|
|00001ad0| 0a 0a 53 57 49 20 22 4d | 65 6e 75 5f 54 69 63 6b |..SWI "M|enu_Tick|
|00001ae0| 22 0a 45 6e 74 72 79 0a | 20 20 20 20 20 52 31 3d |".Entry.| R1=|
|00001af0| 4d 65 6e 75 20 73 74 72 | 69 6e 67 2f 6c 69 73 74 |Menu str|ing/list|
|00001b00| 0a 20 20 20 20 20 52 32 | 3d 53 74 61 74 65 0a 0a |. R2|=State..|
|00001b10| 20 20 20 20 20 54 68 69 | 73 20 63 61 6c 6c 20 61 | Thi|s call a|
|00001b20| 6c 6c 6f 77 73 20 79 6f | 75 20 74 6f 20 63 68 61 |llows yo|u to cha|
|00001b30| 6e 67 65 20 74 68 65 20 | 73 74 61 74 65 20 6f 66 |nge the |state of|
|00001b40| 20 61 6e 20 69 74 65 6d | 73 20 74 69 63 6b 20 69 | an item|s tick i|
|00001b50| 63 6f 6e 2e 0a 54 68 65 | 20 73 74 61 74 65 20 69 |con..The| state i|
|00001b60| 73 20 30 20 66 6f 72 20 | 6e 6f 20 74 69 63 6b 20 |s 0 for |no tick |
|00001b70| 61 6e 64 20 6e 6f 6e 2d | 30 20 66 6f 72 20 61 20 |and non-|0 for a |
|00001b80| 74 69 63 6b 2e 0a 0a 53 | 57 49 20 22 4d 65 6e 75 |tick...S|WI "Menu|
|00001b90| 5f 53 68 61 64 65 22 0a | 45 6e 74 72 79 0a 20 20 |_Shade".|Entry. |
|00001ba0| 20 20 20 52 31 3d 4d 65 | 6e 75 20 73 74 72 69 6e | R1=Me|nu strin|
|00001bb0| 67 2f 6c 69 73 74 0a 20 | 20 20 20 20 52 32 3d 53 |g/list. | R2=S|
|00001bc0| 74 61 74 65 0a 0a 20 20 | 20 20 20 54 68 69 73 20 |tate.. | This |
|00001bd0| 73 65 74 73 20 74 68 65 | 20 73 68 61 64 65 20 66 |sets the| shade f|
|00001be0| 6c 61 67 2e 20 54 68 65 | 20 73 74 61 74 65 20 69 |lag. The| state i|
|00001bf0| 73 20 30 20 66 6f 72 20 | 6e 6f 20 73 68 61 64 65 |s 0 for |no shade|
|00001c00| 20 61 6e 64 20 6e 6f 6e | 2d 30 0a 74 6f 20 73 68 | and non|-0.to sh|
|00001c10| 61 64 65 20 61 6e 20 69 | 74 65 6d 2e 0a 0a 53 57 |ade an i|tem...SW|
|00001c20| 49 20 22 4d 65 6e 75 5f | 47 65 74 49 6e 64 69 72 |I "Menu_|GetIndir|
|00001c30| 65 63 74 22 0a 45 6e 74 | 72 79 0a 20 20 20 20 20 |ect".Ent|ry. |
|00001c40| 52 31 3d 4d 65 6e 75 20 | 73 74 72 69 6e 67 2f 6c |R1=Menu |string/l|
|00001c50| 69 73 74 0a 20 20 20 20 | 20 52 32 3d 49 74 65 6d |ist. | R2=Item|
|00001c60| 20 74 6f 20 72 65 61 64 | 20 66 72 6f 6d 0a 45 78 | to read| from.Ex|
|00001c70| 69 74 0a 20 20 20 20 20 | 52 33 2d 52 35 3d 49 6e |it. |R3-R5=In|
|00001c80| 64 69 72 65 63 74 20 64 | 61 74 61 20 28 33 20 77 |direct d|ata (3 w|
|00001c90| 6f 72 64 73 29 0a 0a 20 | 20 20 20 20 54 68 69 73 |ords).. | This|
|00001ca0| 20 63 61 6c 6c 20 66 69 | 6e 64 73 20 74 68 65 20 | call fi|nds the |
|00001cb0| 61 64 64 72 65 73 73 65 | 73 20 6f 66 20 74 68 65 |addresse|s of the|
|00001cc0| 20 69 6e 64 69 72 65 63 | 74 20 64 61 74 61 2e 20 | indirec|t data. |
|00001cd0| 41 73 20 74 68 65 0a 63 | 6f 6d 6d 6f 6e 65 73 74 |As the.c|ommonest|
|00001ce0| 20 75 73 65 20 6f 66 20 | 74 68 69 73 20 63 61 6c | use of |this cal|
|00001cf0| 6c 20 69 73 20 66 6f 72 | 20 66 69 6e 64 69 6e 67 |l is for| finding|
|00001d00| 20 74 68 65 20 61 64 64 | 72 65 73 73 20 6f 66 20 | the add|ress of |
|00001d10| 61 20 77 72 69 74 61 62 | 6c 65 0a 69 74 65 6d 2c |a writab|le.item,|
|00001d20| 20 69 74 20 75 73 65 73 | 20 61 20 73 6c 69 67 68 | it uses| a sligh|
|00001d30| 74 6c 79 20 64 69 66 66 | 65 72 65 6e 74 20 6d 65 |tly diff|erent me|
|00001d40| 74 68 6f 64 20 6f 66 20 | 61 63 63 65 73 73 20 69 |thod of |access i|
|00001d50| 74 65 6d 73 2e 20 4d 6f | 73 74 0a 77 72 69 74 61 |tems. Mo|st.writa|
|00001d60| 62 6c 65 20 69 74 65 6d | 73 20 77 69 6c 6c 20 62 |ble item|s will b|
|00001d70| 65 20 62 6c 61 6e 6b 20 | 77 68 65 6e 20 74 68 65 |e blank |when the|
|00001d80| 20 6d 65 6e 75 20 69 73 | 20 64 65 66 69 6e 65 64 | menu is| defined|
|00001d90| 20 61 6e 64 20 79 6f 75 | 20 63 61 6e 27 74 0a 75 | and you| can't.u|
|00001da0| 73 65 20 61 20 62 6c 61 | 6e 6b 20 69 6e 20 74 68 |se a bla|nk in th|
|00001db0| 65 20 6d 65 6e 75 20 73 | 74 72 69 6e 67 20 28 61 |e menu s|tring (a|
|00001dc0| 20 62 6c 61 6e 6b 20 73 | 74 72 69 6e 67 20 77 6f | blank s|tring wo|
|00001dd0| 75 6c 64 20 62 65 20 63 | 6c 61 73 73 65 64 20 61 |uld be c|lassed a|
|00001de0| 73 20 61 0a 64 6f 75 62 | 6c 65 20 7a 65 72 6f 20 |s a.doub|le zero |
|00001df0| 62 79 74 65 2c 20 6f 72 | 20 74 68 65 20 65 6e 64 |byte, or| the end|
|00001e00| 29 2e 20 54 6f 20 67 65 | 74 20 61 72 6f 75 6e 64 |). To ge|t around|
|00001e10| 20 74 68 69 73 20 79 6f | 75 20 6f 6e 6c 79 20 73 | this yo|u only s|
|00001e20| 70 65 63 69 66 79 20 74 | 68 65 0a 6d 65 6e 75 20 |pecify t|he.menu |
|00001e30| 77 68 65 72 65 20 74 68 | 65 20 69 74 65 6d 20 69 |where th|e item i|
|00001e40| 73 20 69 6e 20 74 68 65 | 20 6d 65 6e 75 20 73 74 |s in the| menu st|
|00001e50| 72 69 6e 67 2f 6c 69 73 | 74 2c 20 73 6f 20 69 66 |ring/lis|t, so if|
|00001e60| 20 79 6f 75 20 77 65 72 | 65 0a 61 63 63 65 73 73 | you wer|e.access|
|00001e70| 69 6e 67 20 74 68 65 20 | 69 6e 70 75 74 20 6d 6f |ing the |input mo|
|00001e80| 64 65 20 6e 75 6d 62 65 | 72 20 6f 70 74 69 6f 6e |de numbe|r option|
|00001e90| 20 66 72 6f 6d 20 74 68 | 65 20 70 61 6c 65 74 74 | from th|e palett|
|00001ea0| 65 20 79 6f 75 20 77 6f | 75 6c 64 20 70 61 73 73 |e you wo|uld pass|
|00001eb0| 0a 65 69 74 68 65 72 20 | 27 4d 6f 64 65 27 20 6f |.either |'Mode' o|
|00001ec0| 72 20 74 68 65 20 6d 65 | 6e 75 20 6e 75 6d 62 65 |r the me|nu numbe|
|00001ed0| 72 20 69 6e 20 74 68 65 | 20 62 75 66 66 65 72 20 |r in the| buffer |
|00001ee0| 61 74 20 52 31 2e 20 59 | 6f 75 20 74 68 65 6e 20 |at R1. Y|ou then |
|00001ef0| 73 70 65 63 69 66 79 0a | 74 68 65 20 69 74 65 6d |specify.|the item|
|00001f00| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 72 65 61 | you wan|t to rea|
|00001f10| 64 20 66 72 6f 6d 20 69 | 6e 20 52 32 2c 20 69 6e |d from i|n R2, in|
|00001f20| 20 74 68 69 73 20 65 78 | 61 6d 70 6c 65 20 74 68 | this ex|ample th|
|00001f30| 69 73 20 77 6f 75 6c 64 | 20 62 65 20 33 0a 28 69 |is would| be 3.(i|
|00001f40| 74 65 6d 20 34 20 63 6f | 75 6e 74 65 64 20 66 72 |tem 4 co|unted fr|
|00001f50| 6f 6d 20 30 29 2e 20 54 | 68 69 73 20 76 61 6c 75 |om 0). T|his valu|
|00001f60| 65 20 63 6f 75 6c 64 20 | 62 65 20 72 65 70 6c 61 |e could |be repla|
|00001f70| 63 65 64 20 77 69 74 68 | 20 2d 31 2c 20 74 68 65 |ced with| -1, the|
|00001f80| 20 53 57 49 0a 77 69 6c | 6c 20 72 65 63 6f 67 6e | SWI.wil|l recogn|
|00001f90| 69 73 65 73 20 2d 31 20 | 61 73 20 6d 65 61 6e 69 |ises -1 |as meani|
|00001fa0| 6e 67 20 27 74 68 65 20 | 6c 61 73 74 20 69 74 65 |ng 'the |last ite|
|00001fb0| 6d 20 69 6e 20 74 68 65 | 20 6d 65 6e 75 27 2e 0a |m in the| menu'..|
|00001fc0| 0a 20 20 20 20 20 4f 6e | 20 65 78 69 74 20 52 33 |. On| exit R3|
|00001fd0| 20 69 73 20 74 68 65 20 | 70 6f 69 6e 74 65 72 20 | is the |pointer |
|00001fe0| 74 6f 20 74 68 65 20 69 | 6e 64 69 72 65 63 74 20 |to the i|ndirect |
|00001ff0| 73 74 72 69 6e 67 2c 20 | 52 34 20 69 73 20 74 68 |string, |R4 is th|
|00002000| 65 0a 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |e.pointe|r to the|
|00002010| 20 76 61 6c 69 64 61 74 | 69 6f 6e 20 73 74 72 69 | validat|ion stri|
|00002020| 6e 67 20 28 2d 31 20 66 | 6f 72 20 6e 6f 6e 65 29 |ng (-1 f|or none)|
|00002030| 2c 20 61 6e 64 20 52 35 | 20 69 73 20 74 68 65 20 |, and R5| is the |
|00002040| 6c 65 6e 67 74 68 0a 6f | 66 20 74 68 65 20 69 6e |length.o|f the in|
|00002050| 64 69 72 65 63 74 20 73 | 74 72 69 6e 67 2e 20 54 |direct s|tring. T|
|00002060| 68 65 73 65 20 61 72 65 | 20 73 74 61 6e 64 61 72 |hese are| standar|
|00002070| 64 20 70 6f 69 6e 74 65 | 72 73 2e 20 52 33 20 69 |d pointe|rs. R3 i|
|00002080| 73 20 70 72 6f 62 61 62 | 6c 79 0a 74 68 65 20 6d |s probab|ly.the m|
|00002090| 6f 73 74 20 75 73 65 66 | 75 6c 20 61 73 20 69 74 |ost usef|ul as it|
|000020a0| 20 77 6f 75 6c 64 20 70 | 6f 69 6e 74 20 74 6f 20 | would p|oint to |
|000020b0| 74 68 65 20 64 61 74 61 | 20 6f 66 20 61 20 77 72 |the data| of a wr|
|000020c0| 69 74 61 62 6c 65 20 69 | 74 65 6d 2e 0a 54 68 6f |itable i|tem..Tho|
|000020d0| 75 67 68 20 69 74 20 63 | 6f 75 6c 64 20 62 65 20 |ugh it c|ould be |
|000020e0| 75 73 65 64 20 74 6f 20 | 73 74 6f 72 65 20 69 74 |used to |store it|
|000020f0| 65 6d 73 20 6c 69 6b 65 | 20 74 68 65 20 22 46 69 |ems like| the "Fi|
|00002100| 6c 65 20 27 78 78 78 78 | 78 78 78 27 22 20 69 74 |le 'xxxx|xxx'" it|
|00002110| 65 6d 0a 69 6e 20 74 68 | 65 20 46 69 6c 65 72 20 |em.in th|e Filer |
|00002120| 6d 65 6e 75 2e 0a 0a 53 | 57 49 20 22 4d 65 6e 75 |menu...S|WI "Menu|
|00002130| 5f 53 65 74 53 75 62 48 | 61 6e 64 6c 65 22 0a 45 |_SetSubH|andle".E|
|00002140| 6e 74 72 79 0a 20 20 20 | 20 20 52 31 3d 4d 65 6e |ntry. | R1=Men|
|00002150| 75 20 73 74 72 69 6e 67 | 2f 6c 69 73 74 0a 20 20 |u string|/list. |
|00002160| 20 20 20 52 32 3d 53 75 | 62 20 77 69 6e 64 6f 77 | R2=Su|b window|
|00002170| 20 68 61 6e 64 6c 65 0a | 0a 20 20 20 20 20 54 68 | handle.|. Th|
|00002180| 69 73 20 63 61 6c 6c 20 | 73 65 74 73 20 75 70 20 |is call |sets up |
|00002190| 73 75 62 20 77 69 6e 64 | 6f 77 20 28 6f 72 20 64 |sub wind|ow (or d|
|000021a0| 69 61 6c 6f 67 20 62 6f | 78 29 20 68 61 6e 64 6c |ialog bo|x) handl|
|000021b0| 65 73 2e 20 49 74 20 72 | 65 74 75 72 6e 73 0a 61 |es. It r|eturns.a|
|000021c0| 6e 20 65 72 72 6f 72 20 | 69 66 20 74 68 65 20 69 |n error |if the i|
|000021d0| 74 65 6d 20 77 61 73 6e | 27 74 20 64 65 66 69 6e |tem wasn|'t defin|
|000021e0| 65 64 20 61 73 20 61 20 | 73 75 62 20 77 69 6e 64 |ed as a |sub wind|
|000021f0| 6f 77 2e 0a 0a 20 20 20 | 20 20 54 68 65 20 6c 61 |ow... | The la|
|00002200| 73 74 20 63 61 6c 6c 20 | 69 73 20 75 73 65 64 20 |st call |is used |
|00002210| 69 6e 74 65 72 6e 61 6c | 6c 79 20 74 68 6f 75 67 |internal|ly thoug|
|00002220| 68 20 49 20 74 68 6f 75 | 67 68 74 20 69 74 20 6d |h I thou|ght it m|
|00002230| 69 67 68 74 20 62 65 0a | 75 73 65 66 75 6c 20 66 |ight be.|useful f|
|00002240| 6f 72 20 6f 74 68 65 72 | 20 74 68 69 6e 67 73 2e |or other| things.|
|00002250| 0a 0a 53 57 49 20 22 4d | 65 6e 75 5f 53 74 72 69 |..SWI "M|enu_Stri|
|00002260| 6e 67 43 6f 6d 70 61 72 | 65 22 0a 45 6e 74 72 79 |ngCompar|e".Entry|
|00002270| 0a 20 20 20 20 20 52 30 | 3d 46 69 72 73 74 20 73 |. R0|=First s|
|00002280| 74 72 69 6e 67 0a 20 20 | 20 20 20 52 31 3d 53 65 |tring. | R1=Se|
|00002290| 63 6f 6e 64 20 73 74 72 | 69 6e 67 0a 20 20 20 20 |cond str|ing. |
|000022a0| 20 52 32 3d 54 65 72 6d | 69 6e 61 74 69 6e 67 20 | R2=Term|inating |
|000022b0| 63 68 61 72 61 63 74 65 | 72 0a 20 20 20 20 20 52 |characte|r. R|
|000022c0| 33 3d 4d 61 78 69 6d 75 | 6d 20 6e 75 6d 62 65 72 |3=Maximu|m number|
|000022d0| 20 6f 66 20 63 68 61 72 | 61 63 74 65 72 73 20 74 | of char|acters t|
|000022e0| 6f 20 63 6f 6d 70 61 72 | 65 20 62 65 66 6f 72 65 |o compar|e before|
|000022f0| 20 72 65 74 75 72 6e 69 | 6e 67 20 27 65 71 75 61 | returni|ng 'equa|
|00002300| 6c 73 27 0a 45 78 69 74 | 0a 20 20 20 20 20 52 30 |ls'.Exit|. R0|
|00002310| 20 26 20 52 31 20 41 72 | 65 20 75 70 64 61 74 65 | & R1 Ar|e update|
|00002320| 64 2e 20 54 68 65 79 20 | 77 69 6c 6c 20 70 6f 69 |d. They |will poi|
|00002330| 6e 74 20 74 6f 20 61 66 | 74 65 72 20 74 68 65 20 |nt to af|ter the |
|00002340| 74 65 72 6d 69 6e 61 74 | 6f 72 73 20 6f 72 0a 61 |terminat|ors or.a|
|00002350| 66 74 65 72 20 74 68 65 | 20 66 69 72 73 74 20 64 |fter the| first d|
|00002360| 69 66 66 65 72 65 6e 63 | 65 2c 20 64 65 70 65 6e |ifferenc|e, depen|
|00002370| 64 69 6e 67 20 6f 6e 20 | 74 68 65 20 6f 75 74 63 |ding on |the outc|
|00002380| 6f 6d 65 2e 0a 20 20 20 | 20 20 5a 3d 31 20 66 6f |ome.. | Z=1 fo|
|00002390| 72 20 27 65 71 75 61 6c | 73 27 2c 5a 3d 30 20 66 |r 'equal|s',Z=0 f|
|000023a0| 6f 72 20 27 6e 6f 74 20 | 65 71 75 61 6c 73 27 0a |or 'not |equals'.|
|000023b0| 0a 20 20 20 20 20 54 68 | 69 73 20 63 6f 6d 70 61 |. Th|is compa|
|000023c0| 72 65 73 20 74 68 65 20 | 74 77 6f 20 73 74 72 69 |res the |two stri|
|000023d0| 6e 67 73 20 73 70 65 63 | 69 66 69 65 64 2e 20 54 |ngs spec|ified. T|
|000023e0| 68 65 20 63 6f 6d 70 61 | 72 69 73 6f 6e 20 69 73 |he compa|rison is|
|000023f0| 20 63 61 73 65 0a 73 65 | 6e 73 69 74 69 76 65 2e | case.se|nsitive.|
|00002400| 20 49 66 20 52 32 20 69 | 73 20 7a 65 72 6f 20 6f | If R2 i|s zero o|
|00002410| 6e 20 65 6e 74 72 79 20 | 74 68 65 6e 20 74 68 65 |n entry |then the|
|00002420| 20 74 68 65 20 63 61 6c | 6c 20 77 69 6c 6c 20 61 | the cal|l will a|
|00002430| 63 63 65 70 74 20 61 6e | 79 0a 63 6f 6e 74 72 6f |ccept an|y.contro|
|00002440| 6c 20 63 6f 64 65 20 61 | 73 20 61 20 74 65 72 6d |l code a|s a term|
|00002450| 69 6e 61 74 6f 72 2e 20 | 54 68 65 20 63 61 6c 6c |inator. |The call|
|00002460| 20 73 65 74 73 20 74 68 | 65 20 66 6c 61 67 73 20 | sets th|e flags |
|00002470| 73 6f 20 74 68 61 74 20 | 4e 45 2f 45 51 0a 73 75 |so that |NE/EQ.su|
|00002480| 66 66 69 78 65 73 20 63 | 61 6e 20 62 65 20 75 73 |ffixes c|an be us|
|00002490| 65 64 20 69 6e 20 6d 61 | 63 68 69 6e 65 20 63 6f |ed in ma|chine co|
|000024a0| 64 65 20 28 42 41 53 49 | 43 20 70 72 6f 67 72 61 |de (BASI|C progra|
|000024b0| 6d 6d 65 72 73 20 63 61 | 6e 20 69 67 6e 6f 72 65 |mmers ca|n ignore|
|000024c0| 0a 74 68 61 74 20 6c 61 | 73 74 20 62 69 74 21 29 |.that la|st bit!)|
|000024d0| 0a 0a 2d 4d 65 6e 75 73 | 2e 0a 20 20 20 20 20 49 |..-Menus|.. I|
|000024e0| 66 20 79 6f 75 20 64 69 | 64 6e 27 74 20 75 6e 64 |f you di|dn't und|
|000024f0| 65 72 73 74 61 6e 64 20 | 74 68 65 20 6c 61 73 74 |erstand |the last|
|00002500| 20 62 69 74 20 49 20 64 | 6f 6e 27 74 20 62 6c 61 | bit I d|on't bla|
|00002510| 6d 65 20 79 6f 75 2e 20 | 48 61 76 65 20 61 0a 6c |me you. |Have a.l|
|00002520| 6f 6f 6b 20 61 74 20 74 | 68 65 20 42 41 53 49 43 |ook at t|he BASIC|
|00002530| 20 66 69 6c 65 20 24 2e | 21 4d 65 6e 75 73 2e 21 | file $.|!Menus.!|
|00002540| 52 75 6e 49 6d 61 67 65 | 20 74 6f 20 67 65 74 20 |RunImage| to get |
|00002550| 61 20 62 65 74 74 65 72 | 20 69 64 65 61 20 6f 66 |a better| idea of|
|00002560| 20 68 6f 77 0a 74 6f 20 | 75 73 65 20 74 68 65 20 | how.to |use the |
|00002570| 63 61 6c 6c 73 2e 20 49 | 6e 20 74 68 65 20 70 72 |calls. I|n the pr|
|00002580| 6f 67 72 61 6d 20 74 68 | 65 72 65 27 73 20 61 20 |ogram th|ere's a |
|00002590| 66 75 6e 63 74 69 6f 6e | 20 46 4e 6d 73 28 6d 24 |function| FNms(m$|
|000025a0| 29 20 74 68 69 73 20 63 | 61 6c 6c 0a 63 61 6e 20 |) this c|all.can |
|000025b0| 62 65 20 75 73 65 64 20 | 66 6f 72 20 67 65 6e 65 |be used |for gene|
|000025c0| 72 61 74 69 6e 67 20 6d | 65 6e 75 20 73 74 72 69 |rating m|enu stri|
|000025d0| 6e 67 73 2c 20 61 6e 20 | 65 78 61 6d 70 6c 65 20 |ngs, an |example |
|000025e0| 63 6f 75 6c 64 20 62 65 | 20 28 69 6e 0a 42 41 53 |could be| (in.BAS|
|000025f0| 49 43 29 0a 0a 20 20 20 | 20 20 53 59 53 20 22 4d |IC).. | SYS "M|
|00002600| 65 6e 75 5f 54 69 63 6b | 22 2c 4d 65 6e 75 73 25 |enu_Tick|",Menus%|
|00002610| 2c 46 4e 6d 73 28 22 46 | 69 6c 65 72 3a 44 69 73 |,FNms("F|iler:Dis|
|00002620| 70 6c 61 79 2e 53 6d 61 | 6c 6c 20 69 63 6f 6e 73 |play.Sma|ll icons|
|00002630| 22 29 2c 31 0a 0a 54 68 | 65 20 27 3a 27 20 61 6e |"),1..Th|e ':' an|
|00002640| 64 20 27 2e 27 20 61 72 | 65 20 74 72 65 61 74 65 |d '.' ar|e treate|
|00002650| 64 20 69 64 65 6e 74 69 | 63 61 6c 6c 79 20 62 75 |d identi|cally bu|
|00002660| 74 20 49 20 74 68 6f 75 | 67 68 74 20 69 74 20 77 |t I thou|ght it w|
|00002670| 6f 75 6c 64 20 62 65 20 | 6d 61 6b 65 0a 69 74 20 |ould be |make.it |
|00002680| 6c 6f 6f 6b 20 62 65 74 | 74 65 72 2e 0a 0a 20 20 |look bet|ter... |
|00002690| 20 20 20 54 6f 20 6c 6f | 61 64 20 61 6e 64 20 73 | To lo|ad and s|
|000026a0| 65 74 75 70 20 61 20 6d | 65 6e 75 20 66 69 6c 65 |etup a m|enu file|
|000026b0| 20 79 6f 75 20 75 73 75 | 61 6c 6c 79 20 64 6f 20 | you usu|ally do |
|000026c0| 73 6f 6d 65 20 63 6f 64 | 65 20 73 69 6d 69 6c 61 |some cod|e simila|
|000026d0| 72 20 74 6f 0a 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |r to.the| followi|
|000026e0| 6e 67 20 70 73 65 75 64 | 6f 2d 62 61 73 69 63 3a |ng pseud|o-basic:|
|000026f0| 2d 0a 0a 20 20 20 20 20 | 44 45 46 20 50 52 4f 43 |-.. |DEF PROC|
|00002700| 6d 65 6e 75 73 0a 20 20 | 20 20 20 78 25 3d 28 73 |menus. | x%=(s|
|00002710| 69 7a 65 20 6f 66 20 6d | 65 6e 75 20 66 69 6c 65 |ize of m|enu file|
|00002720| 29 0a 20 20 20 20 20 44 | 49 4d 20 4d 65 6e 75 73 |). D|IM Menus|
|00002730| 25 20 78 25 0a 20 20 20 | 20 20 4f 53 43 4c 49 28 |% x%. | OSCLI(|
|00002740| 22 4c 6f 61 64 20 3c 41 | 70 70 6c 24 44 69 72 3e |"Load <A|ppl$Dir>|
|00002750| 2e 4d 65 6e 75 73 20 22 | 2b 53 54 52 24 7e 28 4d |.Menus "|+STR$~(M|
|00002760| 65 6e 75 73 25 29 29 0a | 20 20 20 20 20 53 59 53 |enus%)).| SYS|
|00002770| 20 22 4d 65 6e 75 5f 43 | 61 6c 63 75 6c 61 74 65 | "Menu_C|alculate|
|00002780| 22 2c 4d 65 6e 75 73 25 | 0a 20 20 20 20 20 73 75 |",Menus%|. su|
|00002790| 62 20 77 69 6e 64 6f 77 | 20 68 61 6e 64 6c 65 73 |b window| handles|
|000027a0| 20 61 72 65 20 74 68 65 | 6e 20 73 74 6f 72 65 64 | are the|n stored|
|000027b0| 20 66 6f 72 20 65 78 61 | 6d 70 6c 65 0a 20 20 20 | for exa|mple. |
|000027c0| 20 20 53 59 53 20 22 4d | 65 6e 75 5f 53 65 74 53 | SYS "M|enu_SetS|
|000027d0| 75 62 48 61 6e 64 6c 65 | 22 2c 4d 65 6e 75 73 25 |ubHandle|",Menus%|
|000027e0| 2c 46 4e 6d 73 28 22 41 | 70 70 6c 69 63 61 74 69 |,FNms("A|pplicati|
|000027f0| 6f 6e 3a 53 61 76 65 22 | 29 2c 53 61 76 65 57 69 |on:Save"|),SaveWi|
|00002800| 6e 64 6f 77 48 61 6e 64 | 6c 65 25 0a 20 20 20 20 |ndowHand|le%. |
|00002810| 20 53 59 53 20 22 4d 65 | 6e 75 5f 56 61 6c 69 64 | SYS "Me|nu_Valid|
|00002820| 61 74 65 22 2c 4d 65 6e | 75 73 25 0a 20 20 20 20 |ate",Men|us%. |
|00002830| 20 45 4e 44 50 52 4f 43 | 0a 0a 54 68 65 20 21 4d | ENDPROC|..The !M|
|00002840| 65 6e 75 73 20 41 70 70 | 6c 69 63 61 74 69 6f 6e |enus App|lication|
|00002850| 0a 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00002860| 2d 2d 2d 2d 2d 2d 2d 0a | 0a 20 20 20 20 20 54 68 |-------.|. Th|
|00002870| 69 73 20 70 72 6f 67 72 | 61 6d 20 63 72 65 61 74 |is progr|am creat|
|00002880| 65 73 20 74 68 65 20 6d | 65 6e 75 20 74 61 62 6c |es the m|enu tabl|
|00002890| 65 73 20 75 73 65 64 20 | 62 79 20 4d 65 6e 75 4d |es used |by MenuM|
|000028a0| 6f 64 2e 0a 0a 2d 54 68 | 65 20 21 4d 65 6e 75 73 |od...-Th|e !Menus|
|000028b0| 20 69 63 6f 6e 0a 20 20 | 20 20 20 43 6c 69 63 6b | icon. | Click|
|000028c0| 69 6e 67 20 73 65 6c 65 | 63 74 20 6f 76 65 72 20 |ing sele|ct over |
|000028d0| 74 68 69 73 20 69 63 6f | 6e 20 77 69 6c 6c 2c 20 |this ico|n will, |
|000028e0| 69 66 20 70 6f 73 73 69 | 62 6c 65 2c 20 63 72 65 |if possi|ble, cre|
|000028f0| 61 74 65 20 61 20 6e 65 | 77 0a 6d 65 6e 75 2e 0a |ate a ne|w.menu..|
|00002900| 20 20 20 20 20 43 6c 69 | 63 6b 69 6e 67 20 6d 65 | Cli|cking me|
|00002910| 6e 75 20 6f 76 65 72 20 | 74 68 65 20 69 63 6f 6e |nu over |the icon|
|00002920| 20 77 69 6c 6c 20 62 72 | 69 6e 67 20 75 70 20 61 | will br|ing up a|
|00002930| 20 6d 65 6e 75 20 77 69 | 74 68 20 53 61 76 65 2c | menu wi|th Save,|
|00002940| 51 75 69 74 2c 0a 61 6e | 64 20 49 6e 66 6f 20 77 |Quit,.an|d Info w|
|00002950| 68 69 63 68 20 61 72 65 | 20 73 74 61 6e 64 61 72 |hich are| standar|
|00002960| 64 20 6f 70 74 69 6f 6e | 73 2e 20 49 74 20 77 69 |d option|s. It wi|
|00002970| 6c 6c 20 61 6c 73 6f 20 | 64 75 70 6c 69 63 61 74 |ll also |duplicat|
|00002980| 65 20 74 68 65 20 4e 65 | 77 0a 4d 65 6e 75 20 6f |e the Ne|w.Menu o|
|00002990| 70 74 69 6f 6e 20 70 72 | 6f 76 69 64 65 64 20 62 |ption pr|ovided b|
|000029a0| 79 20 73 65 6c 65 63 74 | 2e 0a 0a 2d 54 68 65 20 |y select|...-The |
|000029b0| 4d 65 6e 75 73 0a 20 20 | 20 20 20 53 6f 20 74 68 |Menus. | So th|
|000029c0| 61 74 20 63 6f 6d 70 6c | 65 78 20 6d 65 6e 75 73 |at compl|ex menus|
|000029d0| 20 63 61 6e 20 62 65 20 | 76 69 65 77 65 64 20 65 | can be |viewed e|
|000029e0| 61 73 69 6c 79 20 74 68 | 65 20 6d 65 6e 75 73 20 |asily th|e menus |
|000029f0| 63 72 65 61 74 65 64 20 | 61 72 65 0a 64 69 73 70 |created |are.disp|
|00002a00| 6c 61 79 65 64 20 77 69 | 74 68 20 61 20 27 62 61 |layed wi|th a 'ba|
|00002a10| 63 6b 27 20 69 63 6f 6e | 20 6f 6e 20 74 68 65 69 |ck' icon| on thei|
|00002a20| 72 20 74 69 74 6c 65 20 | 62 61 72 73 2e 20 54 68 |r title |bars. Th|
|00002a30| 69 73 20 61 6c 73 6f 20 | 73 68 6f 77 73 20 79 6f |is also |shows yo|
|00002a40| 75 0a 77 68 69 63 68 20 | 61 72 65 20 6d 65 6e 75 |u.which |are menu|
|00002a50| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 20 61 6e 64 | definit|ions and|
|00002a60| 20 77 68 69 63 68 20 61 | 72 65 20 61 63 74 75 61 | which a|re actua|
|00002a70| 6c 20 57 49 4d 50 20 6d | 65 6e 75 73 2e 20 4d 65 |l WIMP m|enus. Me|
|00002a80| 6e 75 73 20 67 61 69 6e | 0a 61 20 76 65 72 74 69 |nus gain|.a verti|
|00002a90| 63 61 6c 20 73 63 72 6f | 6c 6c 20 62 61 72 20 77 |cal scro|ll bar w|
|00002aa0| 68 65 6e 20 74 68 65 79 | 20 72 65 61 63 68 20 61 |hen they| reach a|
|00002ab0| 20 63 65 72 74 61 69 6e | 20 68 65 69 67 68 74 20 | certain| height |
|00002ac0| 28 61 62 6f 75 74 20 39 | 30 30 20 4f 53 0a 75 6e |(about 9|00 OS.un|
|00002ad0| 69 74 73 29 2e 20 4f 74 | 68 65 72 77 69 73 65 20 |its). Ot|herwise |
|00002ae0| 74 68 65 20 6d 65 6e 75 | 73 20 6c 6f 6f 6b 20 69 |the menu|s look i|
|00002af0| 64 65 6e 74 69 63 61 6c | 20 74 6f 20 6e 6f 72 6d |dentical| to norm|
|00002b00| 61 6c 20 57 49 4d 50 20 | 6d 65 6e 75 73 2e 20 54 |al WIMP |menus. T|
|00002b10| 68 65 73 65 0a 6d 65 6e | 75 73 20 77 69 6c 6c 20 |hese.men|us will |
|00002b20| 62 65 20 72 65 66 65 72 | 72 65 64 20 74 6f 20 61 |be refer|red to a|
|00002b30| 73 20 65 6d 75 6c 61 74 | 65 64 20 6d 65 6e 75 73 |s emulat|ed menus|
|00002b40| 2e 0a 0a 2d 57 68 61 74 | 20 6e 65 78 74 3f 0a 20 |...-What| next?. |
|00002b50| 20 20 20 20 43 6c 69 63 | 6b 69 6e 67 20 6d 65 6e | Clic|king men|
|00002b60| 75 20 6f 6e 20 61 20 65 | 6d 75 6c 61 74 65 64 20 |u on a e|mulated |
|00002b70| 6d 65 6e 75 20 69 74 65 | 6d 20 77 69 6c 6c 20 62 |menu ite|m will b|
|00002b80| 72 69 6e 67 20 75 70 20 | 61 20 6d 65 6e 75 20 77 |ring up |a menu w|
|00002b90| 69 74 68 0a 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ith.the |followin|
|00002ba0| 67 20 6f 70 74 69 6f 6e | 73 0a 0a 2d 54 69 74 6c |g option|s..-Titl|
|00002bb0| 65 20 20 20 20 20 20 20 | 20 20 54 68 69 73 20 61 |e | This a|
|00002bc0| 6c 6c 6f 77 73 20 79 6f | 75 20 74 6f 20 63 68 61 |llows yo|u to cha|
|00002bd0| 6e 67 65 20 74 68 65 20 | 6d 65 6e 75 20 74 69 74 |nge the |menu tit|
|00002be0| 6c 65 2e 20 59 6f 75 20 | 6d 75 73 74 20 67 69 76 |le. You |must giv|
|00002bf0| 65 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e. | |
|00002c00| 20 6d 65 6e 75 73 20 74 | 69 74 6c 65 73 2e 20 54 | menus t|itles. T|
|00002c10| 68 65 20 70 72 6f 67 72 | 61 6d 20 77 69 6c 6c 20 |he progr|am will |
|00002c20| 67 65 6e 65 72 61 74 65 | 20 61 6e 20 65 72 72 6f |generate| an erro|
|00002c30| 72 20 69 66 20 79 6f 75 | 0a 20 20 20 20 20 20 20 |r if you|. |
|00002c40| 20 20 20 20 20 20 20 20 | 64 6f 6e 27 74 2e 20 0a | |don't. .|
|00002c50| 2d 57 69 64 74 68 20 20 | 20 20 20 20 20 20 20 54 |-Width | T|
|00002c60| 68 69 73 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |his allo|ws you t|
|00002c70| 6f 20 63 68 61 6e 67 65 | 20 74 68 65 20 77 69 64 |o change| the wid|
|00002c80| 74 68 20 6f 66 20 74 68 | 65 20 6d 65 6e 75 20 69 |th of th|e menu i|
|00002c90| 74 65 6d 73 2e 20 0a 2d | 49 74 65 6d 20 73 74 79 |tems. .-|Item sty|
|00002ca0| 6c 65 20 20 20 20 54 68 | 69 73 20 6c 65 61 64 73 |le Th|is leads|
|00002cb0| 20 74 6f 20 61 20 73 75 | 62 6d 65 6e 75 20 77 68 | to a su|bmenu wh|
|00002cc0| 69 63 68 20 63 6f 6e 74 | 72 6f 6c 20 74 68 65 20 |ich cont|rol the |
|00002cd0| 69 74 65 6d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |item. | |
|00002ce0| 20 20 20 20 77 68 65 72 | 65 20 74 68 65 20 6d 65 | wher|e the me|
|00002cf0| 6e 75 20 62 75 74 74 6f | 6e 20 77 61 73 20 6f 72 |nu butto|n was or|
|00002d00| 69 67 69 6e 61 6c 6c 79 | 20 70 72 65 73 73 65 64 |iginally| pressed|
|00002d10| 2e 20 49 74 20 67 69 76 | 65 0a 20 20 20 20 20 20 |. It giv|e. |
|00002d20| 20 20 20 20 20 20 20 20 | 20 74 68 65 20 66 6f 6c | | the fol|
|00002d30| 6c 6f 77 69 6e 67 20 6f | 70 74 69 6f 6e 73 0a 2d |lowing o|ptions.-|
|00002d40| 49 6e 64 69 72 65 63 74 | 20 20 20 20 20 20 53 65 |Indirect| Se|
|00002d50| 6c 65 63 74 69 6e 67 20 | 6f 6e 20 74 68 69 73 20 |lecting |on this |
|00002d60| 69 63 6f 6e 20 77 69 6c | 6c 20 74 6f 67 67 6c 65 |icon wil|l toggle|
|00002d70| 20 74 68 65 20 69 6e 64 | 69 72 65 63 74 20 66 6c | the ind|irect fl|
|00002d80| 61 67 2e 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ag. . | |
|00002d90| 20 20 20 20 57 68 65 6e | 20 74 68 65 20 66 6c 61 | When| the fla|
|00002da0| 67 20 69 73 20 73 65 74 | 20 74 68 65 20 69 74 65 |g is set| the ite|
|00002db0| 6d 20 68 61 73 20 61 20 | 73 75 62 6d 65 6e 75 20 |m has a |submenu |
|00002dc0| 77 68 69 63 68 20 6c 65 | 61 64 20 0a 20 20 20 20 |which le|ad . |
|00002dd0| 20 20 20 20 20 20 20 20 | 20 20 20 74 6f 20 61 20 | | to a |
|00002de0| 77 72 69 74 61 62 6c 65 | 20 69 63 6f 6e 20 77 68 |writable| icon wh|
|00002df0| 65 72 65 20 79 6f 75 20 | 73 70 65 63 69 66 79 20 |ere you |specify |
|00002e00| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |the leng|th of th|
|00002e10| 65 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e . | |
|00002e20| 20 20 64 61 74 61 2e 0a | 2d 56 61 6c 69 64 61 74 | data..|-Validat|
|00002e30| 69 6f 6e 20 20 20 20 54 | 68 69 73 20 69 74 65 6d |ion T|his item|
|00002e40| 20 69 73 20 73 68 61 64 | 65 64 20 77 68 65 6e 20 | is shad|ed when |
|00002e50| 74 68 65 20 69 6e 64 69 | 72 65 63 74 20 66 6c 61 |the indi|rect fla|
|00002e60| 67 20 69 73 20 63 6c 65 | 61 72 2e 20 0a 20 20 20 |g is cle|ar. . |
|00002e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 4f 74 68 65 | | Othe|
|00002e80| 72 77 69 73 65 20 69 74 | 20 6c 65 61 64 73 20 74 |rwise it| leads t|
|00002e90| 6f 20 61 20 77 72 69 74 | 61 62 6c 65 20 69 63 6f |o a writ|able ico|
|00002ea0| 6e 20 77 68 65 72 65 20 | 79 6f 75 20 73 70 65 63 |n where |you spec|
|00002eb0| 69 66 79 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ify . | |
|00002ec0| 20 20 20 20 74 68 65 20 | 76 61 6c 69 64 61 74 69 | the |validati|
|00002ed0| 6f 6e 20 73 74 72 69 6e | 67 2e 0a 2d 44 61 74 61 |on strin|g..-Data|
|00002ee0| 20 20 20 20 20 20 20 20 | 20 20 54 68 69 73 20 73 | | This s|
|00002ef0| 75 62 6d 65 6e 75 20 77 | 69 6c 6c 20 61 6c 6c 6f |ubmenu w|ill allo|
|00002f00| 77 20 79 6f 75 20 74 6f | 20 63 68 61 6e 67 65 20 |w you to| change |
|00002f10| 74 68 65 20 74 65 78 74 | 20 75 73 65 64 20 62 79 |the text| used by|
|00002f20| 20 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00002f30| 20 74 68 65 20 69 74 65 | 6d 2e 20 54 68 65 20 69 | the ite|m. The i|
|00002f40| 6e 70 75 74 20 69 73 20 | 72 65 73 74 72 69 63 74 |nput is |restrict|
|00002f50| 65 64 20 74 6f 20 74 68 | 65 20 63 6f 6e 64 69 74 |ed to th|e condit|
|00002f60| 69 6f 6e 73 20 6f 66 20 | 0a 20 20 20 20 20 20 20 |ions of |. |
|00002f70| 20 20 20 20 20 20 20 20 | 74 68 65 20 76 61 6c 69 | |the vali|
|00002f80| 64 61 74 69 6f 6e 20 73 | 74 72 69 6e 67 2e 0a 2d |dation s|tring..-|
|00002f90| 46 6f 72 65 67 72 6f 75 | 6e 64 20 26 20 0a 2d 42 |Foregrou|nd & .-B|
|00002fa0| 61 63 6b 67 72 6f 75 6e | 64 20 20 20 20 54 68 65 |ackgroun|d The|
|00002fb0| 73 65 20 61 72 65 20 75 | 73 65 64 20 74 6f 20 63 |se are u|sed to c|
|00002fc0| 68 61 6e 67 65 20 74 68 | 65 20 63 6f 6c 6f 75 72 |hange th|e colour|
|00002fd0| 20 6f 66 20 74 68 65 20 | 69 74 65 6d 2e 0a 0a 20 | of the |item... |
|00002fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 68 | | Th|
|00002ff0| 65 20 6f 74 68 65 72 20 | 6f 70 74 69 6f 6e 73 20 |e other |options |
|00003000| 70 72 6f 76 69 64 65 20 | 70 72 65 74 74 79 20 6f |provide |pretty o|
|00003010| 62 76 69 6f 75 73 20 66 | 75 6e 63 74 69 6f 6e 73 |bvious f|unctions|
|00003020| 20 28 69 65 2e 0a 20 20 | 20 20 20 20 20 20 20 20 | (ie.. | |
|00003030| 20 20 20 20 20 54 69 63 | 6b 29 20 74 68 65 20 69 | Tic|k) the i|
|00003040| 74 65 6d 73 20 63 75 72 | 72 65 6e 74 20 73 65 74 |tems cur|rent set|
|00003050| 74 69 6e 67 73 20 61 72 | 65 20 73 69 67 6e 69 66 |tings ar|e signif|
|00003060| 69 65 64 20 62 79 20 74 | 69 63 6b 73 0a 20 20 20 |ied by t|icks. |
|00003070| 20 20 20 20 20 20 20 20 | 20 20 20 20 6e 65 78 74 | | next|
|00003080| 20 74 6f 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 | to the |appropri|
|00003090| 61 74 65 20 6f 70 74 69 | 6f 6e 2e 20 53 65 6c 65 |ate opti|on. Sele|
|000030a0| 63 74 69 6e 67 20 27 4d | 65 73 73 61 67 65 73 27 |cting 'M|essages'|
|000030b0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000030c0| 77 69 6c 6c 20 6d 61 6b | 65 20 73 75 62 6d 65 6e |will mak|e submen|
|000030d0| 75 20 73 65 6c 65 63 74 | 69 6f 6e 20 66 72 6f 6d |u select|ion from|
|000030e0| 20 74 68 61 74 20 6d 65 | 6e 75 20 69 74 65 6d 0a | that me|nu item.|
|000030f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 67 | | g|
|00003100| 65 6e 65 72 61 74 65 20 | 74 68 65 20 27 4d 65 73 |enerate |the 'Mes|
|00003110| 73 61 67 65 5f 4d 65 6e | 75 57 61 72 6e 69 6e 67 |sage_Men|uWarning|
|00003120| 27 20 6d 65 73 73 61 67 | 65 2e 20 49 66 20 79 6f |' messag|e. If yo|
|00003130| 75 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |u. | |
|00003140| 20 64 6f 6e 27 74 20 75 | 6e 64 65 72 73 74 61 6e | don't u|nderstan|
|00003150| 64 20 74 68 61 74 20 64 | 6f 6e 27 74 20 62 6f 74 |d that d|on't bot|
|00003160| 68 65 72 20 61 6e 64 20 | 64 6f 6e 27 74 20 75 73 |her and |don't us|
|00003170| 65 20 69 74 21 0a 20 20 | 20 20 20 20 20 20 20 20 |e it!. | |
|00003180| 20 20 20 20 20 53 65 6c | 65 63 74 69 6e 67 20 22 | Sel|ecting "|
|00003190| 53 75 62 20 77 69 6e 64 | 6f 77 22 20 77 69 6c 6c |Sub wind|ow" will|
|000031a0| 20 73 65 74 20 74 68 65 | 20 73 75 62 6d 65 6e 75 | set the| submenu|
|000031b0| 20 70 6f 69 6e 74 65 72 | 0a 20 20 20 20 20 20 20 | pointer|. |
|000031c0| 20 20 20 20 20 20 20 20 | 72 65 61 64 79 20 74 6f | |ready to|
|000031d0| 20 61 63 63 65 70 74 20 | 61 20 77 69 6e 64 6f 77 | accept |a window|
|000031e0| 20 68 61 6e 64 6c 65 2e | 20 53 65 65 20 53 57 49 | handle.| See SWI|
|000031f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003200| 22 4d 65 6e 75 5f 53 65 | 74 53 75 62 48 61 6e 64 |"Menu_Se|tSubHand|
|00003210| 6c 65 22 20 66 6f 72 20 | 6d 6f 72 65 20 64 65 74 |le" for |more det|
|00003220| 61 69 6c 73 2e 0a 0a 2d | 49 6e 73 65 72 74 20 61 |ails...-|Insert a|
|00003230| 66 74 65 72 20 26 0a 2d | 49 6e 73 65 72 74 20 62 |fter &.-|Insert b|
|00003240| 65 66 6f 72 65 20 54 68 | 65 73 65 20 77 69 6c 6c |efore Th|ese will|
|00003250| 20 69 6e 73 65 72 74 20 | 61 20 6e 65 77 20 6d 65 | insert |a new me|
|00003260| 6e 75 20 69 74 65 6d 20 | 61 66 74 65 72 2f 62 65 |nu item |after/be|
|00003270| 66 6f 72 65 20 74 68 65 | 0a 20 20 20 20 20 20 20 |fore the|. |
|00003280| 20 20 20 20 20 20 20 20 | 73 65 6c 65 63 74 65 64 | |selected|
|00003290| 20 6d 65 6e 75 20 69 74 | 65 6d 2e 0a 20 20 20 20 | menu it|em.. |
|000032a0| 20 20 20 20 20 20 20 20 | 20 20 20 0a 2d 44 65 6c | | .-Del|
|000032b0| 65 74 65 20 69 74 65 6d | 20 20 20 44 65 6c 65 74 |ete item| Delet|
|000032c0| 65 73 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 20 |es the s|elected |
|000032d0| 69 74 65 6d 2e 0a 2d 4c | 69 6e 6b 20 6d 65 6e 75 |item..-L|ink menu|
|000032e0| 20 20 20 20 20 54 68 69 | 73 20 6c 65 61 64 73 20 | Thi|s leads |
|000032f0| 74 6f 20 61 20 73 75 62 | 77 69 6e 64 6f 77 2e 20 |to a sub|window. |
|00003300| 49 66 20 79 6f 75 20 64 | 72 61 67 20 28 77 69 74 |If you d|rag (wit|
|00003310| 68 20 73 65 6c 65 63 74 | 29 20 74 68 65 20 0a 20 |h select|) the . |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 69 63 | | ic|
|00003330| 6f 6e 20 74 6f 20 61 20 | 6d 65 6e 75 20 69 74 65 |on to a |menu ite|
|00003340| 6d 20 69 74 20 77 69 6c | 6c 20 6c 69 6e 6b 20 74 |m it wil|l link t|
|00003350| 68 65 20 63 75 72 72 65 | 6e 74 20 6d 65 6e 75 20 |he curre|nt menu |
|00003360| 74 6f 20 74 68 61 74 20 | 0a 20 20 20 20 20 20 20 |to that |. |
|00003370| 20 20 20 20 20 20 20 20 | 69 74 65 6d 2e 20 54 68 | |item. Th|
|00003380| 65 20 69 74 65 6d 20 74 | 68 65 6e 20 67 61 69 6e |e item t|hen gain|
|00003390| 73 20 74 68 65 20 73 75 | 62 6d 65 6e 75 20 61 72 |s the su|bmenu ar|
|000033a0| 72 6f 77 2e 20 59 6f 75 | 20 63 61 6e 27 74 20 6c |row. You| can't l|
|000033b0| 69 6e 6b 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ink . | |
|000033c0| 20 20 20 20 61 20 6d 65 | 6e 75 20 74 6f 20 69 74 | a me|nu to it|
|000033d0| 73 20 73 65 6c 66 2e 0a | 2d 44 65 6c 65 74 65 20 |s self..|-Delete |
|000033e0| 6c 69 6e 6b 20 20 20 57 | 69 6c 6c 20 64 65 6c 65 |link W|ill dele|
|000033f0| 74 65 20 61 20 6c 69 6e | 6b 20 6d 61 64 65 20 62 |te a lin|k made b|
|00003400| 79 20 74 68 65 20 6c 61 | 73 74 20 6f 70 74 69 6f |y the la|st optio|
|00003410| 6e 2e 0a 2d 44 65 6c 65 | 74 65 20 6d 65 6e 75 20 |n..-Dele|te menu |
|00003420| 20 20 54 68 69 73 20 77 | 69 6c 6c 20 61 73 6b 20 | This w|ill ask |
|00003430| 66 6f 72 20 63 6f 6e 66 | 69 72 6d 61 74 69 6f 6e |for conf|irmation|
|00003440| 20 6f 66 20 74 68 65 20 | 64 65 6c 65 74 65 2e 20 | of the |delete. |
|00003450| 49 66 20 79 6f 75 20 72 | 65 73 70 6f 6e 64 20 0a |If you r|espond .|
|00003460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 | | w|
|00003470| 69 74 68 20 4f 4b 20 74 | 68 65 20 70 72 6f 67 72 |ith OK t|he progr|
|00003480| 61 6d 20 77 69 6c 6c 20 | 63 68 65 63 6b 20 61 6c |am will |check al|
|00003490| 6c 20 6f 74 68 65 72 20 | 6d 65 6e 75 73 20 64 65 |l other |menus de|
|000034a0| 6c 65 74 69 6e 67 20 61 | 6e 79 20 0a 20 20 20 20 |leting a|ny . |
|000034b0| 20 20 20 20 20 20 20 20 | 20 20 20 6c 69 6e 6b 73 | | links|
|000034c0| 20 69 74 20 66 69 6e 64 | 73 20 74 6f 20 74 68 65 | it find|s to the|
|000034d0| 20 73 65 6c 65 63 74 65 | 64 20 6d 65 6e 75 2e 20 | selecte|d menu. |
|000034e0| 49 74 20 77 69 6c 6c 20 | 74 68 65 6e 20 64 65 6c |It will |then del|
|000034f0| 65 74 65 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ete . | |
|00003500| 20 20 20 20 69 74 2e 0a | 0a 43 6c 69 63 6b 69 6e | it..|.Clickin|
|00003510| 67 20 73 65 6c 65 63 74 | 20 6f 6e 20 61 6e 20 65 |g select| on an e|
|00003520| 6d 75 6c 61 74 65 64 20 | 69 74 65 6d 20 77 69 6c |mulated |item wil|
|00003530| 6c 20 3a 2d 0a 20 20 20 | 20 20 61 29 20 20 49 66 |l :-. | a) If|
|00003540| 20 74 68 65 20 69 74 65 | 6d 20 68 61 73 20 6e 6f | the ite|m has no|
|00003550| 20 73 75 62 20 77 69 6e | 64 6f 77 2f 68 61 6e 64 | sub win|dow/hand|
|00003560| 6c 65 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 77 |le the p|rogram w|
|00003570| 69 6c 6c 20 62 65 65 70 | 2e 0a 20 20 20 20 20 62 |ill beep|.. b|
|00003580| 29 20 20 49 66 20 74 68 | 65 20 69 74 65 6d 20 6c |) If th|e item l|
|00003590| 69 6e 6b 73 20 74 6f 20 | 61 20 73 75 62 20 77 69 |inks to |a sub wi|
|000035a0| 6e 64 6f 77 20 74 68 65 | 6e 20 74 68 65 20 70 72 |ndow the|n the pr|
|000035b0| 6f 67 72 61 6d 20 77 69 | 6c 6c 20 74 65 6c 6c 20 |ogram wi|ll tell |
|000035c0| 79 6f 75 20 0a 20 20 20 | 20 20 20 20 20 20 73 6f |you . | so|
|000035d0| 2e 0a 20 20 20 20 20 63 | 29 20 20 49 66 20 74 68 |.. c|) If th|
|000035e0| 65 20 69 74 65 6d 20 68 | 61 73 20 61 20 73 75 62 |e item h|as a sub|
|000035f0| 6d 65 6e 75 20 74 68 65 | 6e 20 74 68 69 73 20 69 |menu the|n this i|
|00003600| 73 20 6d 6f 76 65 64 20 | 74 6f 20 6a 75 73 74 20 |s moved |to just |
|00003610| 72 69 67 68 74 20 6f 66 | 20 74 68 65 20 0a 20 20 |right of| the . |
|00003620| 20 20 20 20 20 20 20 73 | 75 62 20 61 72 72 6f 77 | s|ub arrow|
|00003630| 2e 0a 0a 2d 46 69 6c 69 | 6e 67 20 6f 70 65 72 61 |...-Fili|ng opera|
|00003640| 74 69 6f 6e 73 0a 20 20 | 20 20 20 54 68 65 20 70 |tions. | The p|
|00003650| 72 6f 67 72 61 6d 20 6c | 6f 61 64 73 20 61 6e 64 |rogram l|oads and|
|00003660| 20 73 61 76 65 73 20 69 | 6e 20 74 68 65 20 70 72 | saves i|n the pr|
|00003670| 6f 70 65 72 20 52 49 53 | 43 2d 4f 53 20 77 61 79 |oper RIS|C-OS way|
|00003680| 2c 20 61 6e 64 20 49 27 | 76 65 0a 61 63 71 75 69 |, and I'|ve.acqui|
|00003690| 73 69 74 69 6f 6e 65 64 | 20 66 69 6c 65 20 74 79 |sitioned| file ty|
|000036a0| 70 65 20 26 33 32 31 20 | 66 6f 72 20 6d 65 6e 75 |pe &321 |for menu|
|000036b0| 20 66 69 6c 65 73 2e 20 | 4f 74 68 65 72 20 66 69 | files. |Other fi|
|000036c0| 6c 65 73 20 63 61 6e 20 | 62 65 20 6d 65 72 67 65 |les can |be merge|
|000036d0| 64 0a 77 69 74 68 20 74 | 68 65 20 63 75 72 72 65 |d.with t|he curre|
|000036e0| 6e 74 20 6f 6e 65 20 62 | 79 20 64 72 61 67 67 69 |nt one b|y draggi|
|000036f0| 6e 67 20 74 68 65 6d 20 | 74 6f 20 74 68 65 20 21 |ng them |to the !|
|00003700| 4d 65 6e 75 73 20 69 63 | 6f 6e 2e 20 54 68 65 0a |Menus ic|on. The.|
|00003710| 64 69 72 65 63 74 6f 72 | 79 20 27 4d 65 6e 75 73 |director|y 'Menus|
|00003720| 27 20 63 6f 6e 74 61 69 | 6e 73 20 61 20 66 65 77 |' contai|ns a few|
|00003730| 20 64 65 66 61 75 6c 74 | 20 6d 65 6e 75 73 20 73 | default| menus s|
|00003740| 75 63 68 20 61 73 20 61 | 20 27 43 6f 6c 6f 75 72 |uch as a| 'Colour|
|00003750| 73 27 0a 6d 65 6e 75 2e | 0a 0a 21 4c 69 73 74 54 |s'.menu.|..!ListT|
|00003760| 65 6d 70 20 26 20 21 4c | 69 73 74 4d 65 6e 75 0a |emp & !L|istMenu.|
|00003770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003780| 2d 2d 2d 2d 2d 0a 0a 20 | 20 20 20 20 54 68 65 73 |-----.. | Thes|
|00003790| 65 20 74 77 6f 20 70 72 | 6f 67 72 61 6d 73 20 63 |e two pr|ograms c|
|000037a0| 61 6e 20 62 65 20 75 73 | 65 64 20 74 6f 20 79 69 |an be us|ed to yi|
|000037b0| 65 6c 64 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |eld info|rmation |
|000037c0| 6f 6e 20 54 65 6d 70 6c | 61 74 65 73 0a 61 6e 64 |on Templ|ates.and|
|000037d0| 20 4d 65 6e 75 20 66 69 | 6c 65 73 20 72 65 73 70 | Menu fi|les resp|
|000037e0| 65 63 74 69 76 65 6c 79 | 2e 20 54 68 65 20 6f 75 |ectively|. The ou|
|000037f0| 74 70 75 74 20 63 61 6e | 20 62 65 20 73 65 6e 74 |tput can| be sent|
|00003800| 20 74 6f 20 61 20 70 72 | 69 6e 74 65 72 20 77 68 | to a pr|inter wh|
|00003810| 69 63 68 0a 6d 61 6b 65 | 73 20 74 68 65 20 70 72 |ich.make|s the pr|
|00003820| 6f 67 72 61 6d 73 20 76 | 65 72 79 20 68 61 6e 64 |ograms v|ery hand|
|00003830| 79 20 66 6f 72 20 72 65 | 6d 65 6d 62 65 72 69 6e |y for re|memberin|
|00003840| 67 20 74 65 6d 70 6c 61 | 74 65 20 6e 61 6d 65 73 |g templa|te names|
|00003850| 20 61 6e 64 20 6d 65 6e | 75 0a 73 65 6c 65 63 74 | and men|u.select|
|00003860| 69 6f 6e 73 2e 20 42 6f | 74 68 20 70 72 6f 67 72 |ions. Bo|th progr|
|00003870| 61 6d 73 20 61 73 6b 20 | 66 6f 72 20 61 20 66 69 |ams ask |for a fi|
|00003880| 6c 65 6e 61 6d 65 20 69 | 66 20 74 68 65 20 6c 61 |lename i|f the la|
|00003890| 73 74 20 63 68 61 72 61 | 63 74 65 72 20 69 73 0a |st chara|cter is.|
|000038a0| 61 20 27 2e 27 20 69 74 | 20 69 73 20 74 72 65 61 |a '.' it| is trea|
|000038b0| 74 65 64 20 61 73 20 62 | 65 69 6e 67 20 61 6e 20 |ted as b|eing an |
|000038c0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 64 69 72 65 |applicat|ion dire|
|000038d0| 63 74 6f 72 79 20 61 6e | 64 20 74 68 65 20 6e 61 |ctory an|d the na|
|000038e0| 6d 65 20 69 73 0a 73 75 | 66 66 69 78 65 64 20 77 |me is.su|ffixed w|
|000038f0| 69 74 68 20 65 69 74 68 | 65 72 20 27 54 65 6d 70 |ith eith|er 'Temp|
|00003900| 6c 61 74 65 73 27 20 6f | 72 20 27 4d 65 6e 75 73 |lates' o|r 'Menus|
|00003910| 27 2e 20 69 65 2e 20 65 | 6e 74 65 72 69 6e 67 20 |'. ie. e|ntering |
|00003920| 27 21 4d 65 6e 75 73 2e | 27 0a 77 69 6c 6c 20 6d |'!Menus.|'.will m|
|00003930| 61 6b 65 20 69 74 20 6c | 6f 61 64 20 74 68 65 20 |ake it l|oad the |
|00003940| 66 69 6c 65 20 27 21 4d | 65 6e 75 73 2e 54 65 6d |file '!M|enus.Tem|
|00003950| 70 6c 61 74 65 73 27 20 | 6f 72 20 27 21 4d 65 6e |plates' |or '!Men|
|00003960| 75 73 2e 4d 65 6e 75 73 | 27 0a 0a 52 69 67 68 74 |us.Menus|'..Right|
|00003970| 2c 20 6e 6f 77 20 77 68 | 65 72 65 20 74 6f 20 73 |, now wh|ere to s|
|00003980| 65 6e 64 20 79 6f 75 72 | 20 6d 6f 6e 65 79 0a 2d |end your| money.-|
|00003990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039b0| 2d 2d 0a 0a 59 6f 75 20 | 63 61 6e 20 73 65 6e 64 |--..You |can send|
|000039c0| 20 79 6f 75 72 20 6d 6f | 6e 65 79 20 a3 33 20 6f | your mo|ney .3 o|
|000039d0| 72 20 a3 36 2c 20 61 6c | 6f 6e 67 20 77 69 74 68 |r .6, al|ong with|
|000039e0| 20 79 6f 75 72 20 6e 61 | 6d 65 20 61 6e 64 20 61 | your na|me and a|
|000039f0| 64 64 72 65 73 73 2c 20 | 74 6f 20 6d 65 20 61 74 |ddress, |to me at|
|00003a00| 0a 20 20 20 20 20 44 61 | 76 69 64 20 41 6e 64 72 |. Da|vid Andr|
|00003a10| 65 77 73 0a 20 20 20 20 | 20 33 20 50 65 6e 7a 61 |ews. | 3 Penza|
|00003a20| 6e 63 65 20 53 74 72 65 | 65 74 0a 20 20 20 20 20 |nce Stre|et. |
|00003a30| 4d 6f 6f 72 20 52 6f 77 | 0a 20 20 20 20 20 43 75 |Moor Row|. Cu|
|00003a40| 6d 62 72 69 61 0a 20 20 | 20 20 20 28 54 68 65 20 |mbria. | (The |
|00003a50| 4e 6f 72 74 68 21 21 29 | 0a 20 20 20 20 20 43 41 |North!!)|. CA|
|00003a60| 32 34 20 33 4a 48 0a 57 | 69 74 68 69 6e 20 74 77 |24 3JH.W|ithin tw|
|00003a70| 6f 20 77 65 65 6b 73 20 | 79 6f 75 20 77 69 6c 6c |o weeks |you will|
|00003a80| 20 72 65 63 65 69 76 65 | 20 63 6f 6e 66 69 72 6d | receive| confirm|
|00003a90| 61 74 69 6f 6e 20 6f 66 | 20 79 6f 75 72 20 72 65 |ation of| your re|
|00003aa0| 67 69 73 74 72 61 74 69 | 6f 6e 2e 0a 49 66 20 79 |gistrati|on..If y|
|00003ab0| 6f 75 20 75 73 65 20 42 | 42 53 20 69 74 20 6d 69 |ou use B|BS it mi|
|00003ac0| 67 68 74 20 68 65 6c 70 | 20 69 66 20 79 6f 75 20 |ght help| if you |
|00003ad0| 67 69 76 65 20 61 20 63 | 6f 6e 74 61 63 74 20 70 |give a c|ontact p|
|00003ae0| 6f 69 6e 74 2e 0a 0a 59 | 6f 75 20 63 61 6e 20 61 |oint...Y|ou can a|
|00003af0| 6c 73 6f 20 61 73 6b 20 | 66 6f 72 20 65 78 74 72 |lso ask |for extr|
|00003b00| 61 20 68 65 6c 70 20 6f | 72 20 69 6e 66 6f 72 6d |a help o|r inform|
|00003b10| 61 74 69 6f 6e 20 6f 6e | 20 74 68 65 20 66 6f 6c |ation on| the fol|
|00003b20| 6c 6f 77 69 6e 67 20 42 | 42 53 27 73 0a 0a 55 73 |lowing B|BS's..Us|
|00003b30| 65 72 6e 61 6d 65 20 3a | 2d 20 20 20 20 20 20 20 |ername :|- |
|00003b40| 20 20 45 6c 77 6f 6f 64 | 20 42 6c 75 65 73 20 28 | Elwood| Blues (|
|00003b50| 41 6c 69 61 73 20 44 61 | 76 69 64 20 41 6e 64 72 |Alias Da|vid Andr|
|00003b60| 65 77 73 29 0a 54 68 65 | 20 57 6f 72 6c 64 20 6f |ews).The| World o|
|00003b70| 66 20 43 72 79 74 6f 6e | 20 30 37 34 39 20 37 39 |f Cryton| 0749 79|
|00003b80| 37 39 34 20 0a 4e 6f 61 | 68 20 42 42 53 20 20 20 |794 .Noa|h BBS |
|00003b90| 20 20 20 20 20 20 20 20 | 20 30 32 37 32 20 35 37 | | 0272 57|
|00003ba0| 32 33 32 32 0a 41 72 63 | 68 69 76 65 20 42 42 53 |2322.Arc|hive BBS|
|00003bb0| 20 20 20 20 20 20 20 20 | 20 30 36 30 33 20 37 34 | | 0603 74|
|00003bc0| 35 39 33 32 0a 41 72 63 | 61 64 65 20 42 42 53 20 |5932.Arc|ade BBS |
|00003bd0| 20 20 20 20 20 20 20 20 | 20 30 38 31 20 36 35 34 | | 081 654|
|00003be0| 32 32 31 32 0a 46 69 6c | 65 44 61 74 61 82 21 4c |2212.Fil|eData.!L|
|00003bf0| 69 73 74 4d 65 6e 75 00 | 00 c2 04 00 00 43 fb ff |istMenu.|.....C..|
|00003c00| ff 54 f9 81 03 03 00 ae | cc 0d 00 0a 12 f4 20 3e |.T......|...... >|
|00003c10| 24 2e 21 4c 69 73 74 4d | 65 6e 75 0d 00 14 05 f4 |$.!ListM|enu.....|
|00003c20| 0d 00 1e 24 f4 20 4a 75 | 6c 79 20 31 39 39 30 2c |...$. Ju|ly 1990,|
|00003c30| 20 41 52 4d 61 67 65 64 | 64 6f 6e 20 73 6f 66 74 | ARMaged|don soft|
|00003c40| 77 61 72 65 0d 00 28 05 | f4 0d 00 32 05 f4 0d 00 |ware..(.|...2....|
|00003c50| 3c 05 3a 0d 00 46 07 eb | 20 30 0d 00 50 22 e8 22 |<.:..F..| 0..P"."|
|00003c60| 50 6c 65 61 73 65 20 73 | 70 65 63 69 66 79 20 66 |Please s|pecify f|
|00003c70| 69 6c 65 6e 61 6d 65 20 | 22 3b 66 24 0d 00 5a 1e |ilename |";f$..Z.|
|00003c80| e7 20 c2 66 24 2c 31 29 | 3d 22 2e 22 20 8c 20 66 |. .f$,1)|="." . f|
|00003c90| 24 2b 3d 22 4d 65 6e 75 | 73 22 0d 00 64 21 f1 22 |$+="Menu|s"..d!."|
|00003ca0| 4f 75 74 70 75 74 20 74 | 6f 20 70 72 69 6e 74 65 |Output t|o printe|
|00003cb0| 72 20 28 59 2f 4e 29 3f | 20 22 3b 0d 00 6e 05 f5 |r (Y/N)?| ";..n..|
|00003cc0| 0d 00 78 08 47 24 3d be | 0d 00 82 11 fd 20 a7 22 |..x.G$=.|..... ."|
|00003cd0| 59 79 4e 6e 22 2c 47 24 | 29 0d 00 8c 08 f1 47 24 |YyNn",G$|).....G$|
|00003ce0| 27 0d 00 96 22 e7 20 47 | 24 3d 22 59 22 20 84 20 |'...". G|$="Y" . |
|00003cf0| 47 24 3d 22 79 22 20 8c | 20 ef 20 32 20 8b 20 ef |G$="y" .| . 2 . .|
|00003d00| 20 31 34 0d 00 a0 05 3a | 0d 00 aa 2a 78 25 3d 8e | 14....:|...*x%=.|
|00003d10| 28 66 24 29 3a e7 20 78 | 25 3d 30 20 8c 20 85 20 |(f$):. x|%=0 . . |
|00003d20| 31 2c 22 46 69 6c 65 20 | 6e 6f 74 20 66 6f 75 6e |1,"File |not foun|
|00003d30| 64 22 0d 00 b4 1c 73 25 | 3d a2 23 78 25 3a d9 23 |d"....s%|=.#x%:.#|
|00003d40| 78 25 3a de 20 4d 65 6e | 75 73 25 20 73 25 0d 00 |x%:. Men|us% s%..|
|00003d50| be 1d c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 31 |.... "OS|_File",1|
|00003d60| 36 2c 66 24 2c 4d 65 6e | 75 73 25 0d 00 c8 18 de |6,f$,Men|us%.....|
|00003d70| 20 6d 65 6e 75 24 28 32 | 35 35 29 3a 6d 65 6e 75 | menu$(2|55):menu|
|00003d80| 25 3d 30 0d 00 d2 05 3a | 0d 00 dc 33 f1 22 4d 65 |%=0....:|...3."Me|
|00003d90| 6e 75 73 20 69 6e 20 66 | 69 6c 65 20 27 22 3b 66 |nus in f|ile '";f|
|00003da0| 24 3b 22 27 20 28 6c 65 | 6e 67 74 68 20 22 3b 73 |$;"' (le|ngth ";s|
|00003db0| 25 3b 22 20 62 79 74 65 | 73 29 22 0d 00 e6 0d f1 |%;" byte|s)".....|
|00003dc0| c4 37 39 2c 22 2d 22 29 | 0d 00 f0 05 3a 0d 00 fa |.79,"-")|....:...|
|00003dd0| 16 70 25 3d 4d 65 6e 75 | 73 25 3a 64 65 70 74 68 |.p%=Menu|s%:depth|
|00003de0| 25 3d 30 0d 01 04 0f c8 | 95 20 70 25 21 30 3c 3e |%=0.....|. p%!0<>|
|00003df0| 2d 31 0d 01 0e 19 f2 64 | 69 73 70 6c 61 79 28 70 |-1.....d|isplay(p|
|00003e00| 25 2c 6e 25 29 3a 70 25 | 3d 6e 25 0d 01 18 05 ce |%,n%):p%|=n%.....|
|00003e10| 0d 01 22 07 ef 20 33 0d | 01 2c 05 e0 0d 01 36 05 |..".. 3.|.,....6.|
|00003e20| 3a 0d 01 40 17 dd 20 f2 | 64 69 73 70 6c 61 79 28 |:..@.. .|display(|
|00003e30| 70 25 2c f8 20 70 25 29 | 0d 01 4a 1d ea 20 64 24 |p%,. p%)|..J.. d$|
|00003e40| 2c 6f 24 3a 6f 24 3d c4 | 64 65 70 74 68 25 2a 34 |,o$:o$=.|depth%*4|
|00003e50| 2c 22 20 22 29 0d 01 54 | 17 6d 24 3d a4 73 74 72 |," ")..T|.m$=.str|
|00003e60| 69 6e 67 28 70 25 29 3a | 66 25 3d a3 0d 01 5e 14 |ing(p%):|f%=...^.|
|00003e70| e3 20 61 25 3d 30 20 b8 | 20 6d 65 6e 75 25 2d 31 |. a%=0 .| menu%-1|
|00003e80| 0d 01 68 19 e7 20 6d 65 | 6e 75 24 28 61 25 29 3d |..h.. me|nu$(a%)=|
|00003e90| 6d 24 20 8c 20 66 25 3d | b9 0d 01 72 05 ed 0d 01 |m$ . f%=|...r....|
|00003ea0| 7c 19 e7 20 ac 28 66 25 | 29 20 84 20 64 65 70 74 ||.. .(f%|) . dept|
|00003eb0| 68 25 3c 3e 30 20 8c 0d | 01 86 12 e7 20 64 65 70 |h%<>0 ..|.... dep|
|00003ec0| 74 68 25 3d 30 20 8c 20 | f1 0d 01 90 2d 6d 65 6e |th%=0 . |....-men|
|00003ed0| 75 24 28 6d 65 6e 75 25 | 29 3d 6d 24 3a 6d 65 6e |u$(menu%|)=m$:men|
|00003ee0| 75 25 2b 3d 31 3a f1 6f | 24 3b 22 2d 22 3b 6d 24 |u%+=1:.o|$;"-";m$|
|00003ef0| 3a 70 25 2b 3d 34 0d 01 | 9a 05 f5 0d 01 a4 0a 70 |:p%+=4..|.......p|
|00003f00| 25 2b 3d 32 34 0d 01 ae | 52 e7 20 70 25 21 38 20 |%+=24...|R. p%!8 |
|00003f10| 80 20 26 31 30 30 20 8c | 20 64 24 3d a4 73 74 72 |. &100 .| d$=.str|
|00003f20| 69 6e 67 28 28 70 25 21 | 31 32 29 2b 4d 65 6e 75 |ing((p%!|12)+Menu|
|00003f30| 73 25 29 20 8b 20 64 24 | 3d 22 22 3a e3 20 61 25 |s%) . d$|="":. a%|
|00003f40| 3d 31 32 20 b8 20 32 33 | 3a 64 24 2b 3d bd 28 70 |=12 . 23|:d$+=.(p|
|00003f50| 25 3f 61 25 29 3a ed 0d | 01 b8 2a e7 20 70 25 21 |%?a%):..|..*. p%!|
|00003f60| 30 20 80 20 31 20 8c 20 | f1 6f 24 3b 22 2f 22 3b |0 . 1 . |.o$;"/";|
|00003f70| 64 24 3b 20 8b 20 f1 6f | 24 3b 22 20 22 3b 64 24 |d$; . .o|$;" ";d$|
|00003f80| 3b 0d 01 c2 31 e7 20 70 | 25 21 30 20 80 20 34 20 |;...1. p|%!0 . 4 |
|00003f90| 8c 20 f1 bd 28 94 28 64 | 24 3c 3e 22 22 29 2a 33 |. ..(.(d|$<>"")*3|
|00003fa0| 32 29 22 28 57 72 69 74 | 61 62 6c 65 29 22 20 8b |2)"(Writ|able)" .|
|00003fb0| 20 f1 0d 01 cc 0b 76 25 | 3d 70 25 21 34 0d 01 d6 | .....v%|=p%!4...|
|00003fc0| 53 e7 20 76 25 3c 3e 2d | 32 20 80 20 76 25 3c 3e |S. v%<>-|2 . v%<>|
|00003fd0| 2d 31 20 8c 20 64 65 70 | 74 68 25 2b 3d 31 3a f2 |-1 . dep|th%+=1:.|
|00003fe0| 64 69 73 70 6c 61 79 28 | 28 76 25 20 80 20 ac 20 |display(|(v% . . |
|00003ff0| 28 31 3c 3c 33 31 29 29 | 2b 4d 65 6e 75 73 25 2c |(1<<31))|+Menus%,|
|00004000| 6a 75 6e 6b 25 29 3a 64 | 65 70 74 68 25 2d 3d 31 |junk%):d|epth%-=1|
|00004010| 0d 01 e0 25 e7 20 76 25 | 3d 2d 32 20 8c 20 f1 6f |...%. v%|=-2 . .o|
|00004020| 24 2b 22 20 20 20 20 20 | 28 53 75 62 20 77 69 6e |$+" |(Sub win|
|00004030| 64 6f 77 29 22 0d 01 ea | 17 fd 20 70 25 21 30 20 |dow)"...|.. p%!0 |
|00004040| 80 20 26 38 30 3a 70 25 | 2b 3d 32 34 0d 01 f4 05 |. &80:p%|+=24....|
|00004050| cc 0d 01 fe 0a 70 25 2b | 3d 32 38 0d 02 08 25 c8 |.....p%+|=28...%.|
|00004060| 95 20 28 70 25 21 30 20 | 80 20 26 38 30 29 3d 30 |. (p%!0 |. &80)=0|
|00004070| 3a 70 25 2b 3d 32 34 3a | ce 3a 70 25 2b 3d 32 34 |:p%+=24:|.:p%+=24|
|00004080| 0d 02 12 05 cd 0d 02 1c | 05 e1 0d 02 26 05 3a 0d |........|....&.:.|
|00004090| 02 30 3a dd 20 a4 73 74 | 72 69 6e 67 28 61 25 29 |.0:. .st|ring(a%)|
|000040a0| 3a ea 20 73 24 3a c8 95 | 20 61 25 3f 30 3e 3d 33 |:. s$:..| a%?0>=3|
|000040b0| 32 3a 73 24 2b 3d bd 28 | 61 25 3f 30 29 3a 61 25 |2:s$+=.(|a%?0):a%|
|000040c0| 2b 3d 31 3a ce 3a 3d 73 | 24 0d ff 46 69 6c 65 44 |+=1:.:=s|$..FileD|
|000040d0| 61 74 61 82 21 4c 69 73 | 74 54 65 6d 70 00 00 8b |ata.!Lis|tTemp...|
|000040e0| 04 00 00 43 fb ff ff 11 | fa 81 03 03 00 b8 06 0d |...C....|........|
|000040f0| 00 0a 12 f4 20 3e 24 2e | 21 4c 69 73 74 54 65 6d |.... >$.|!ListTem|
|00004100| 70 0d 00 14 05 f4 0d 00 | 1e 24 f4 20 4a 75 6c 79 |p.......|.$. July|
|00004110| 20 31 39 39 30 2c 20 41 | 52 4d 61 67 65 64 64 6f | 1990, A|RMageddo|
|00004120| 6e 20 73 6f 66 74 77 61 | 72 65 0d 00 28 05 f4 0d |n softwa|re..(...|
|00004130| 00 32 05 f4 0d 00 3c 05 | 3a 0d 00 46 07 eb 20 30 |.2....<.|:..F.. 0|
|00004140| 0d 00 50 11 de 20 62 6c | 6f 63 6b 20 26 38 30 30 |..P.. bl|ock &800|
|00004150| 30 0d 00 5a 12 de 20 62 | 75 66 66 65 72 20 26 38 |0..Z.. b|uffer &8|
|00004160| 30 30 30 0d 00 64 0f de | 20 66 6f 6e 74 73 20 32 |000..d..| fonts 2|
|00004170| 35 36 0d 00 6e 0e de 20 | 6e 61 6d 65 20 32 35 36 |56..n.. |name 256|
|00004180| 0d 00 78 1d e3 20 61 25 | 3d 30 20 b8 20 32 35 35 |..x.. a%|=0 . 255|
|00004190| 3a 66 6f 6e 74 73 3f 61 | 25 3d 30 3a ed 0d 00 82 |:fonts?a|%=0:....|
|000041a0| 05 3a 0d 00 8c 22 e8 22 | 50 6c 65 61 73 65 20 73 |.:..."."|Please s|
|000041b0| 70 65 63 69 66 79 20 66 | 69 6c 65 6e 61 6d 65 20 |pecify f|ilename |
|000041c0| 22 3b 66 24 0d 00 96 22 | e7 20 c2 66 24 2c 31 29 |";f$..."|. .f$,1)|
|000041d0| 3d 22 2e 22 20 8c 20 66 | 24 2b 3d 22 54 65 6d 70 |="." . f|$+="Temp|
|000041e0| 6c 61 74 65 73 22 0d 00 | a0 21 f1 22 4f 75 74 70 |lates"..|.!."Outp|
|000041f0| 75 74 20 74 6f 20 70 72 | 69 6e 74 65 72 20 28 59 |ut to pr|inter (Y|
|00004200| 2f 4e 29 3f 20 22 3b 0d | 00 aa 05 f5 0d 00 b4 08 |/N)? ";.|........|
|00004210| 47 24 3d be 0d 00 be 11 | fd 20 a7 22 59 79 4e 6e |G$=.....|. ."YyNn|
|00004220| 22 2c 47 24 29 0d 00 c8 | 08 f1 47 24 27 0d 00 d2 |",G$)...|..G$'...|
|00004230| 22 e7 20 47 24 3d 22 59 | 22 20 84 20 47 24 3d 22 |". G$="Y|" . G$="|
|00004240| 79 22 20 8c 20 ef 20 32 | 20 8b 20 ef 20 31 34 0d |y" . . 2| . . 14.|
|00004250| 00 dc 1e c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |..... "W|imp_Open|
|00004260| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 66 24 0d 00 e6 |Template|",,f$...|
|00004270| 0b 6e 65 78 74 25 3d 30 | 0d 00 f0 21 f1 22 54 65 |.next%=0|...!."Te|
|00004280| 6d 70 6c 61 74 65 73 20 | 69 6e 20 66 69 6c 65 20 |mplates |in file |
|00004290| 27 22 3b 66 24 3b 22 27 | 22 0d 00 fa 0d f1 c4 37 |'";f$;"'|"......7|
|000042a0| 39 2c 22 3d 22 29 0d 01 | 04 41 f1 22 54 65 6d 70 |9,"=")..|.A."Temp|
|000042b0| 6c 61 74 65 20 6e 61 6d | 65 20 20 20 49 6e 64 69 |late nam|e Indi|
|000042c0| 72 65 63 74 20 64 61 74 | 61 20 20 20 4e 6f 2e 20 |rect dat|a No. |
|000042d0| 69 63 6f 6e 73 20 20 20 | 46 6f 6e 74 20 72 65 66 |icons |Font ref|
|000042e0| 72 65 6e 63 65 73 22 0d | 01 0e 1d 73 69 7a 65 25 |rences".|...size%|
|000042f0| 3d 30 3a 69 63 6f 6e 73 | 25 3d 30 3a 66 6f 6e 74 |=0:icons|%=0:font|
|00004300| 73 25 3d 30 0d 01 18 0d | f1 c4 37 39 2c 22 2d 22 |s%=0....|..79,"-"|
|00004310| 29 0d 01 22 05 3a 0d 01 | 2c 05 f5 0d 01 36 0d 24 |)..".:..|,....6.$|
|00004320| 6e 61 6d 65 3d 22 2a 22 | 0d 01 40 58 c8 99 20 22 |name="*"|..@X.. "|
|00004330| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00004340| 65 22 2c 2c 62 6c 6f 63 | 6b 2c 62 75 66 66 65 72 |e",,bloc|k,buffer|
|00004350| 2c 62 75 66 66 65 72 2b | 26 38 30 30 30 2c 66 6f |,buffer+|&8000,fo|
|00004360| 6e 74 73 2c 6e 61 6d 65 | 2c 6e 65 78 74 25 20 b8 |nts,name|,next% .|
|00004370| 20 2c 2c 61 64 64 25 2c | 2c 2c 2c 6e 65 78 74 25 | ,,add%,|,,,next%|
|00004380| 0d 01 4a 10 e7 20 6e 65 | 78 74 25 3c 3e 30 20 8c |..J.. ne|xt%<>0 .|
|00004390| 0d 01 54 08 66 25 3d 30 | 0d 01 5e 10 e3 20 61 25 |..T.f%=0|..^.. a%|
|000043a0| 3d 30 20 b8 20 32 35 35 | 0d 01 68 10 66 25 2b 3d |=0 . 255|..h.f%+=|
|000043b0| 66 6f 6e 74 73 3f 61 25 | 0d 01 72 3d e7 20 66 6f |fonts?a%|..r=. fo|
|000043c0| 6e 74 73 3f 61 25 3c 3e | 30 20 8c 20 e3 20 62 25 |nts?a%<>|0 . . b%|
|000043d0| 3d 31 20 b8 20 66 6f 6e | 74 73 3f 61 25 3a c8 99 |=1 . fon|ts?a%:..|
|000043e0| 20 22 46 6f 6e 74 5f 4c | 6f 73 65 46 6f 6e 74 22 | "Font_L|oseFont"|
|000043f0| 2c 61 25 3a ed 0d 01 7c | 0e 66 6f 6e 74 73 3f 61 |,a%:...||.fonts?a|
|00004400| 25 3d 30 0d 01 86 05 ed | 0d 01 90 17 6f 24 3d c4 |%=0.....|....o$=.|
|00004410| 37 39 2c 22 20 22 29 3a | 70 25 3d 6e 61 6d 65 0d |79," "):|p%=name.|
|00004420| 01 9a 2e f5 3a c1 6f 24 | 2c 70 25 2d 6e 61 6d 65 |....:.o$|,p%-name|
|00004430| 2b 31 2c 31 29 3d bd 28 | 70 25 3f 30 29 3a 70 25 |+1,1)=.(|p%?0):p%|
|00004440| 2b 3d 31 3a fd 20 70 25 | 3f 30 3c 33 32 0d 01 a4 |+=1:. p%|?0<32...|
|00004450| 1a c1 6f 24 2c 31 37 29 | 3d c3 28 61 64 64 25 2d |..o$,17)|=.(add%-|
|00004460| 62 75 66 66 65 72 29 0d | 01 ae 17 c1 6f 24 2c 33 |buffer).|....o$,3|
|00004470| 33 29 3d c3 28 62 6c 6f | 63 6b 21 38 34 29 0d 01 |3)=.(blo|ck!84)..|
|00004480| b8 11 c1 6f 24 2c 34 35 | 29 3d c3 28 66 25 29 0d |...o$,45|)=.(f%).|
|00004490| 01 c2 07 f1 6f 24 0d 01 | cc 32 73 69 7a 65 25 2b |....o$..|.2size%+|
|000044a0| 3d 61 64 64 25 2d 62 75 | 66 66 65 72 3a 69 63 6f |=add%-bu|ffer:ico|
|000044b0| 6e 73 25 2b 3d 62 6c 6f | 63 6b 21 38 34 3a 66 6f |ns%+=blo|ck!84:fo|
|000044c0| 6e 74 73 25 2b 3d 66 25 | 0d 01 d6 05 cd 0d 01 e0 |nts%+=f%|........|
|000044d0| 0d fd 20 6e 65 78 74 25 | 3d 30 0d 01 ea 0d f1 c4 |.. next%|=0......|
|000044e0| 37 39 2c 22 2d 22 29 0d | 01 f4 20 6f 24 3d 22 54 |79,"-").|.. o$="T|
|000044f0| 6f 74 61 6c 73 22 2b c4 | 37 30 2c 22 20 22 29 3a |otals"+.|70," "):|
|00004500| 70 25 3d 6e 61 6d 65 0d | 01 fe 14 c1 6f 24 2c 31 |p%=name.|....o$,1|
|00004510| 37 29 3d c3 28 73 69 7a | 65 25 29 0d 02 08 15 c1 |7)=.(siz|e%).....|
|00004520| 6f 24 2c 33 33 29 3d c3 | 28 69 63 6f 6e 73 25 29 |o$,33)=.|(icons%)|
|00004530| 0d 02 12 15 c1 6f 24 2c | 34 35 29 3d c3 28 66 6f |.....o$,|45)=.(fo|
|00004540| 6e 74 73 25 29 0d 02 1c | 07 f1 6f 24 0d 02 26 05 |nts%)...|..o$..&.|
|00004550| 3a 0d 02 30 1b c8 99 20 | 22 57 69 6d 70 5f 43 6c |:..0... |"Wimp_Cl|
|00004560| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 02 3a 07 |oseTempl|ate"..:.|
|00004570| ef 20 33 0d 02 44 05 e0 | 0d ff 46 69 6c 65 44 61 |. 3..D..|..FileDa|
|00004580| 74 61 82 21 52 75 6e 00 | ff ff d0 02 00 00 43 01 |ta.!Run.|......C.|
|00004590| 00 00 44 eb ff ff 1d 9e | 14 a5 03 00 b0 36 49 63 |..D.....|.....6Ic|
|000045a0| 6f 6e 53 70 72 69 74 65 | 73 20 3c 4f 62 65 79 24 |onSprite|s <Obey$|
|000045b0| 44 69 72 3e 2e 21 53 70 | 72 69 74 65 73 0a 52 4d |Dir>.!Sp|rites.RM|
|000045c0| 45 6e 73 75 72 65 20 4d | 65 6e 75 4d 61 6e 61 67 |Ensure M|enuManag|
|000045d0| 65 72 20 32 2e 31 33 20 | 52 4d 4c 6f 61 64 20 3c |er 2.13 |RMLoad <|
|000045e0| 4f 62 65 79 24 44 69 72 | 3e 2e 4d 65 6e 75 4d 6f |Obey$Dir|>.MenuMo|
|000045f0| 64 0a 52 4d 45 6e 73 75 | 72 65 20 4d 65 6e 75 4d |d.RMEnsu|re MenuM|
|00004600| 61 6e 61 67 65 72 20 32 | 2e 31 33 20 45 72 72 6f |anager 2|.13 Erro|
|00004610| 72 20 30 20 4e 65 65 64 | 73 20 4d 65 6e 75 20 6d |r 0 Need|s Menu m|
|00004620| 61 6e 61 67 65 72 20 6d | 6f 64 75 6c 65 20 76 65 |anager m|odule ve|
|00004630| 72 73 69 6f 6e 20 32 2e | 31 33 20 6f 72 20 61 62 |rsion 2.|13 or ab|
|00004640| 6f 76 65 0a 53 65 74 20 | 46 69 6c 65 24 54 79 70 |ove.Set |File$Typ|
|00004650| 65 5f 33 32 31 20 4d 65 | 6e 75 73 0a 53 65 74 20 |e_321 Me|nus.Set |
|00004660| 4d 65 6e 75 73 24 44 69 | 72 20 3c 4f 62 65 79 24 |Menus$Di|r <Obey$|
|00004670| 44 69 72 3e 0a 53 65 74 | 20 41 6c 69 61 73 24 40 |Dir>.Set| Alias$@|
|00004680| 52 75 6e 54 79 70 65 5f | 33 32 31 20 52 75 6e 20 |RunType_|321 Run |
|00004690| 3c 4d 65 6e 75 73 24 44 | 69 72 3e 2e 21 52 75 6e |<Menus$D|ir>.!Run|
|000046a0| 20 25 25 2a 30 0a 57 69 | 6d 70 53 6c 6f 74 20 2d | %%*0.Wi|mpSlot -|
|000046b0| 6d 69 6e 20 32 30 30 6b | 20 2d 6d 61 78 20 32 30 |min 200k| -max 20|
|000046c0| 30 4b 0a 52 75 6e 20 3c | 4d 65 6e 75 73 24 44 69 |0K.Run <|Menus$Di|
|000046d0| 72 3e 2e 21 52 75 6e 49 | 6d 61 67 65 20 25 2a 30 |r>.!RunI|mage %*0|
|000046e0| 0a 46 69 6c 65 44 61 74 | 61 82 21 52 75 6e 49 6d |.FileDat|a.!RunIm|
|000046f0| 61 67 65 00 00 7b 44 00 | 00 44 fb ff ff 70 ab 7c |age..{D.|.D...p.||
|00004700| 25 03 00 bb f7 0d 00 0a | 19 f4 20 3e 24 2e 21 4d |%.......|.. >$.!M|
|00004710| 65 6e 75 73 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |enus.!Ru|nImage..|
|00004720| 14 05 f4 0d 00 1e 30 f4 | 20 20 20 20 20 20 20 20 |......0.| |
|00004730| 20 20 20 20 20 4a 75 6c | 79 20 31 39 39 30 2c 20 | Jul|y 1990, |
|00004740| 41 52 4d 61 67 65 64 64 | 6f 6e 20 73 6f 66 74 77 |ARMagedd|on softw|
|00004750| 61 72 65 0d 00 28 05 f4 | 0d 00 32 2d f4 20 20 20 |are..(..|..2-. |
|00004760| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 68 69 73 | | This|
|00004770| 20 70 72 6f 67 72 61 6d | 20 69 73 20 73 68 61 72 | program| is shar|
|00004780| 65 77 61 72 65 0d 00 3c | 05 f4 0d 00 46 05 f4 0d |eware..<|....F...|
|00004790| 00 50 2c f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |.P,. | |
|000047a0| 20 20 20 20 20 48 61 76 | 65 20 79 6f 75 20 72 65 | Hav|e you re|
|000047b0| 67 69 73 74 65 72 65 64 | 3f 3f 3f 0d 00 5a 05 f4 |gistered|???..Z..|
|000047c0| 0d 00 64 05 3a 0d 00 6e | 24 de 20 62 6c 6f 63 6b |..d.:..n|$. block|
|000047d0| 20 38 2a 31 30 32 34 2c | 74 65 6d 70 20 32 35 36 | 8*1024,|temp 256|
|000047e0| 2c 63 6f 70 79 20 32 35 | 36 0d 00 78 10 ee 20 85 |,copy 25|6..x.. .|
|000047f0| 20 f2 65 72 72 6f 72 3a | e0 0d 00 82 0e 54 65 73 | .error:|.....Tes|
|00004800| 74 69 6e 67 25 3d a3 0d | 00 8c 10 e7 20 54 65 73 |ting%=..|.... Tes|
|00004810| 74 69 6e 67 25 20 8c 0d | 00 96 2b 2a 53 65 74 20 |ting% ..|..+*Set |
|00004820| 4d 65 6e 75 73 24 44 69 | 72 20 61 64 66 73 3a 3a |Menus$Di|r adfs::|
|00004830| 50 72 6f 67 44 65 76 65 | 6c 2e 24 2e 21 4d 65 6e |ProgDeve|l.$.!Men|
|00004840| 75 73 0d 00 a0 25 2a 49 | 63 6f 6e 53 70 72 69 74 |us...%*I|conSprit|
|00004850| 65 73 20 3c 4d 65 6e 75 | 73 24 44 69 72 3e 2e 21 |es <Menu|s$Dir>.!|
|00004860| 53 70 72 69 74 65 73 0d | 00 aa 1f 2a 52 4d 4c 6f |Sprites.|...*RMLo|
|00004870| 61 64 20 3c 4d 65 6e 75 | 73 24 44 69 72 3e 2e 4d |ad <Menu|s$Dir>.M|
|00004880| 65 6e 75 4d 6f 64 0d 00 | b4 05 cd 0d 00 be 43 24 |enuMod..|......C$|
|00004890| 62 6c 6f 63 6b 3d 22 54 | 41 53 4b 22 3a c8 99 20 |block="T|ASK":.. |
|000048a0| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|000048b0| 22 2c 32 30 30 2c 62 6c | 6f 63 6b 21 30 2c 22 4d |",200,bl|ock!0,"M|
|000048c0| 65 6e 75 73 22 20 b8 20 | 2c 54 61 73 6b 25 0d 00 |enus" . |,Task%..|
|000048d0| c8 0c f2 77 69 6e 64 6f | 77 73 0d 00 d2 0a f2 6d |...windo|ws.....m|
|000048e0| 65 6e 75 73 0d 00 dc 05 | 3a 0d 00 e6 25 de 20 6d |enus....|:...%. m|
|000048f0| 65 6e 75 25 28 34 37 29 | 2c 68 61 6e 64 6c 65 25 |enu%(47)|,handle%|
|00004900| 28 34 37 29 2c 6c 6f 61 | 64 25 28 34 37 29 0d 00 |(47),loa|d%(47)..|
|00004910| f0 0e de 20 64 6f 74 73 | 20 32 35 36 0d 00 fa 26 |... dots| 256...&|
|00004920| 48 65 61 70 53 69 7a 65 | 25 3d 28 28 93 2d b8 50 |HeapSize|%=((.-.P|
|00004930| 2d 26 38 30 30 30 29 81 | 20 31 30 32 34 29 2a 35 |-&8000).| 1024)*5|
|00004940| 31 32 0d 01 04 15 de 20 | 48 65 61 70 25 20 48 65 |12..... |Heap% He|
|00004950| 61 70 53 69 7a 65 25 0d | 01 0e 1f de 20 54 72 61 |apSize%.|.... Tra|
|00004960| 6e 73 66 65 72 42 75 66 | 66 65 72 25 20 48 65 61 |nsferBuf|fer% Hea|
|00004970| 70 53 69 7a 65 25 0d 01 | 18 23 c8 99 20 22 4f 53 |pSize%..|.#.. "OS|
|00004980| 5f 48 65 61 70 22 2c 30 | 2c 48 65 61 70 25 2c 2c |_Heap",0|,Heap%,,|
|00004990| 48 65 61 70 53 69 7a 65 | 25 0d 01 22 13 24 64 6f |HeapSize|%..".$do|
|000049a0| 74 73 3d c4 32 35 35 2c | 22 2d 22 29 0d 01 2c 15 |ts=.255,|"-")..,.|
|000049b0| 4d 65 6e 75 24 3d 22 22 | 3a 44 72 61 67 24 3d 22 |Menu$=""|:Drag$="|
|000049c0| 22 0d 01 36 15 4d 65 6e | 75 25 3d 2d 31 3a 49 74 |"..6.Men|u%=-1:It|
|000049d0| 65 6d 25 3d 2d 31 0d 01 | 40 1e 4f 70 65 6e 58 25 |em%=-1..|@.OpenX%|
|000049e0| 3d 31 32 38 3a 4f 70 65 | 6e 59 25 3d 31 30 32 34 |=128:Ope|nY%=1024|
|000049f0| 2d 31 32 38 0d 01 4a 0e | 43 68 61 6e 67 65 64 25 |-128..J.|Changed%|
|00004a00| 3d a3 0d 01 54 38 c8 99 | 20 22 4f 53 5f 47 65 74 |=...T8..| "OS_Get|
|00004a10| 45 6e 76 22 20 b8 20 63 | 25 3a 63 24 3d a4 73 74 |Env" . c|%:c$=.st|
|00004a20| 72 69 6e 67 28 63 25 29 | 3a 69 25 3d a7 63 24 2c |ring(c%)|:i%=.c$,|
|00004a30| 22 20 2d 6d 65 6e 75 20 | 22 29 0d 01 5e 20 e7 20 |" -menu |")..^ . |
|00004a40| 69 25 20 8c 20 f2 6c 6f | 61 64 5f 66 69 6c 65 28 |i% . .lo|ad_file(|
|00004a50| c1 63 24 2c 69 25 2b 37 | 29 29 0d 01 68 05 3a 0d |.c$,i%+7|))..h.:.|
|00004a60| 01 72 0e ee 20 85 20 f2 | 65 72 72 6f 72 0d 01 7c |.r.. . .|error..||
|00004a70| 0b 51 75 69 74 25 3d a3 | 0d 01 86 05 f5 0d 01 90 |.Quit%=.|........|
|00004a80| 24 c8 99 20 22 57 69 6d | 70 5f 50 6f 6c 6c 22 2c |$.. "Wim|p_Poll",|
|00004a90| 31 2c 62 6c 6f 63 6b 20 | b8 20 52 65 61 73 6f 6e |1,block |. Reason|
|00004aa0| 25 0d 01 9a 10 c8 8e 20 | 52 65 61 73 6f 6e 25 20 |%...... |Reason% |
|00004ab0| ca 0d 01 a4 0f c9 20 31 | 3a f2 72 65 64 72 61 77 |...... 1|:.redraw|
|00004ac0| 0d 01 ae 1d c9 20 32 3a | f2 6f 70 65 6e 5f 77 69 |..... 2:|.open_wi|
|00004ad0| 6e 64 6f 77 28 62 6c 6f | 63 6b 2c b9 29 0d 01 b8 |ndow(blo|ck,.)...|
|00004ae0| 24 c9 20 33 3a c8 99 20 | 22 57 69 6d 70 5f 43 6c |$. 3:.. |"Wimp_Cl|
|00004af0| 6f 73 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |oseWindo|w",,bloc|
|00004b00| 6b 0d 01 c2 0e c9 20 36 | 3a f2 6d 6f 75 73 65 0d |k..... 6|:.mouse.|
|00004b10| 01 cc 11 c9 20 37 3a f2 | 64 72 61 67 5f 65 6e 64 |.... 7:.|drag_end|
|00004b20| 0d 01 d6 11 c9 20 38 3a | f2 6b 65 79 70 72 65 73 |..... 8:|.keypres|
|00004b30| 73 0d 01 e0 0d c9 20 39 | 3a f2 6d 65 6e 75 0d 01 |s..... 9|:.menu..|
|00004b40| ea 15 c9 20 31 37 2c 31 | 38 3a f2 6d 65 73 73 61 |... 17,1|8:.messa|
|00004b50| 67 65 73 0d 01 f4 05 cb | 0d 01 fe 05 cd 0d 02 08 |ges.....|........|
|00004b60| 0b fd 20 51 75 69 74 25 | 0d 02 12 05 3a 0d 02 1c |.. Quit%|....:...|
|00004b70| 17 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 44 |... "Wim|p_CloseD|
|00004b80| 6f 77 6e 22 0d 02 26 29 | e7 20 54 65 73 74 69 6e |own"..&)|. Testin|
|00004b90| 67 25 20 8c 20 85 20 31 | 2c 22 50 72 6f 67 72 61 |g% . . 1|,"Progra|
|00004ba0| 6d 20 74 65 72 6d 69 6e | 61 74 65 64 22 0d 02 30 |m termin|ated"..0|
|00004bb0| 05 e0 0d 02 3a 05 3a 0d | 02 44 0f dd 20 f2 6d 65 |....:.:.|.D.. .me|
|00004bc0| 73 73 61 67 65 73 0d 02 | 4e 0e ea 20 70 25 2c 61 |ssages..|N.. p%,a|
|00004bd0| 25 2c 63 25 0d 02 58 27 | e3 20 61 25 3d 30 20 b8 |%,c%..X'|. a%=0 .|
|00004be0| 20 32 35 32 20 88 20 34 | 3a 63 6f 70 79 21 61 25 | 252 . 4|:copy!a%|
|00004bf0| 3d 62 6c 6f 63 6b 21 61 | 25 3a ed 0d 02 62 11 c8 |=block!a|%:...b..|
|00004c00| 8e 20 62 6c 6f 63 6b 21 | 31 36 20 ca 0d 02 6c 19 |. block!|16 ...l.|
|00004c10| c9 20 30 3a f2 63 68 65 | 63 6b 28 31 29 3a 51 75 |. 0:.che|ck(1):Qu|
|00004c20| 69 74 25 3d b9 0d 02 76 | 25 c9 20 32 3a f2 73 61 |it%=...v|%. 2:.sa|
|00004c30| 76 65 5f 66 69 6c 65 28 | a4 73 74 72 69 6e 67 28 |ve_file(|.string(|
|00004c40| 62 6c 6f 63 6b 2b 34 34 | 29 29 0d 02 80 41 63 6f |block+44|))...Aco|
|00004c50| 70 79 21 31 32 3d 63 6f | 70 79 21 38 3a 63 6f 70 |py!12=co|py!8:cop|
|00004c60| 79 21 31 36 3d 33 3a c8 | 99 20 22 57 69 6d 70 5f |y!16=3:.|. "Wimp_|
|00004c70| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 38 2c |SendMess|age",18,|
|00004c80| 63 6f 70 79 2c 63 6f 70 | 79 21 34 0d 02 8a 07 c9 |copy,cop|y!4.....|
|00004c90| 20 33 0d 02 94 2d e7 20 | 62 6c 6f 63 6b 21 34 30 | 3...-. |block!40|
|00004ca0| 3c 3e 26 33 32 31 20 8c | 20 85 20 31 2c 22 49 6e |<>&321 .| . 1,"In|
|00004cb0| 76 61 6c 69 64 20 66 69 | 6c 65 74 79 70 65 22 0d |valid fi|letype".|
|00004cc0| 02 9e 13 e7 20 62 6c 6f | 63 6b 21 32 30 3d 2d 32 |.... blo|ck!20=-2|
|00004cd0| 20 8c 0d 02 a8 21 f2 6c | 6f 61 64 5f 66 69 6c 65 | ....!.l|oad_file|
|00004ce0| 28 a4 73 74 72 69 6e 67 | 28 62 6c 6f 63 6b 2b 34 |(.string|(block+4|
|00004cf0| 34 29 29 0d 02 b2 41 63 | 6f 70 79 21 31 32 3d 63 |4))...Ac|opy!12=c|
|00004d00| 6f 70 79 21 38 3a 63 6f | 70 79 21 31 36 3d 34 3a |opy!8:co|py!16=4:|
|00004d10| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00004d20| 73 61 67 65 22 2c 31 37 | 2c 63 6f 70 79 2c 63 6f |sage",17|,copy,co|
|00004d30| 70 79 21 34 0d 02 bc 05 | cc 0d 02 c6 2a 85 20 31 |py!4....|....*. 1|
|00004d40| 2c 22 44 72 61 67 20 74 | 6f 20 74 68 65 20 21 4d |,"Drag t|o the !M|
|00004d50| 65 6e 75 73 20 69 63 6f | 6e 20 74 6f 20 6d 65 72 |enus ico|n to mer|
|00004d60| 67 65 22 0d 02 d0 05 cd | 0d 02 da 07 c9 20 35 0d |ge".....|..... 5.|
|00004d70| 02 e4 15 e7 20 62 6c 6f | 63 6b 21 34 30 3d 26 33 |.... blo|ck!40=&3|
|00004d80| 32 31 20 8c 0d 02 ee 41 | 63 6f 70 79 21 31 32 3d |21 ....A|copy!12=|
|00004d90| 63 6f 70 79 21 38 3a 63 | 6f 70 79 21 31 36 3d 34 |copy!8:c|opy!16=4|
|00004da0| 3a c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |:.. "Wim|p_SendMe|
|00004db0| 73 73 61 67 65 22 2c 31 | 37 2c 63 6f 70 79 2c 63 |ssage",1|7,copy,c|
|00004dc0| 6f 70 79 21 34 0d 02 f8 | 0d f2 63 68 65 63 6b 28 |opy!4...|..check(|
|00004dd0| 30 29 0d 03 02 0f e3 20 | 61 25 3d 30 20 b8 20 34 |0)..... |a%=0 . 4|
|00004de0| 37 0d 03 0c 56 e7 20 68 | 61 6e 64 6c 65 25 28 61 |7...V. h|andle%(a|
|00004df0| 25 29 3c 3e 30 20 8c 20 | 62 6c 6f 63 6b 21 30 3d |%)<>0 . |block!0=|
|00004e00| 68 61 6e 64 6c 65 25 28 | 61 25 29 3a c8 99 20 22 |handle%(|a%):.. "|
|00004e10| 57 69 6d 70 5f 44 65 6c | 65 74 65 57 69 6e 64 6f |Wimp_Del|eteWindo|
|00004e20| 77 22 2c 2c 62 6c 6f 63 | 6b 3a 68 61 6e 64 6c 65 |w",,bloc|k:handle|
|00004e30| 25 28 61 25 29 3d 30 0d | 03 16 14 ed 3a 62 6c 6f |%(a%)=0.|....:blo|
|00004e40| 63 6b 21 30 3d 63 6f 70 | 79 21 30 0d 03 20 39 c8 |ck!0=cop|y!0.. 9.|
|00004e50| 99 20 22 4f 53 5f 48 65 | 61 70 22 2c 30 2c 48 65 |. "OS_He|ap",0,He|
|00004e60| 61 70 25 2c 2c 48 65 61 | 70 53 69 7a 65 25 3a 6d |ap%,,Hea|pSize%:m|
|00004e70| 65 6e 75 25 28 29 3d 30 | 3a 68 61 6e 64 6c 65 25 |enu%()=0|:handle%|
|00004e80| 28 29 3d 30 0d 03 2a 20 | f2 6c 6f 61 64 5f 66 69 |()=0..* |.load_fi|
|00004e90| 6c 65 28 a4 73 74 72 69 | 6e 67 28 63 6f 70 79 2b |le(.stri|ng(copy+|
|00004ea0| 34 34 29 29 0d 03 34 05 | cd 0d 03 3e 0c c9 20 26 |44))..4.|...>.. &|
|00004eb0| 34 30 30 43 30 0d 03 48 | 29 70 25 3d 6d 65 6e 75 |400C0..H|)p%=menu|
|00004ec0| 25 28 4d 65 6e 75 25 29 | 2b 32 38 2b 28 49 74 65 |%(Menu%)|+28+(Ite|
|00004ed0| 6d 25 2a 32 34 29 3a 63 | 25 3d 70 25 21 38 0d 03 |m%*24):c|%=p%!8..|
|00004ee0| 52 36 e7 20 62 6c 6f 63 | 6b 21 33 36 3d 33 20 8c |R6. bloc|k!36=3 .|
|00004ef0| 20 63 25 3d 28 63 25 3e | 3e 32 34 29 20 80 20 26 | c%=(c%>|>24) . &|
|00004f00| 46 20 8b 20 63 25 3d 28 | 63 25 3e 3e 32 38 29 20 |F . c%=(|c%>>28) |
|00004f10| 80 20 26 46 0d 03 5c 0f | e3 20 61 25 3d 30 20 b8 |. &F..\.|. a%=0 .|
|00004f20| 20 31 35 0d 03 66 35 c8 | 99 20 22 4d 65 6e 75 5f | 15..f5.|. "Menu_|
|00004f30| 54 69 63 6b 22 2c 4d 65 | 6e 75 73 25 2c a4 6d 73 |Tick",Me|nus%,.ms|
|00004f40| 28 22 43 6f 6c 6f 75 72 | 73 3a 22 2b c3 28 61 25 |("Colour|s:"+.(a%|
|00004f50| 29 29 2c 63 25 3d 61 25 | 0d 03 70 05 ed 0d 03 7a |)),c%=a%|..p....z|
|00004f60| 37 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |7.. "Wim|p_Create|
|00004f70| 53 75 62 4d 65 6e 75 22 | 2c 2c 62 6c 6f 63 6b 21 |SubMenu"|,,block!|
|00004f80| 32 30 2c 62 6c 6f 63 6b | 21 32 34 2c 62 6c 6f 63 |20,block|!24,bloc|
|00004f90| 6b 21 32 38 0d 03 84 05 | cb 0d 03 8e 05 e1 0d 03 |k!28....|........|
|00004fa0| 98 05 3a 0d 03 a2 0d dd | 20 f2 72 65 64 72 61 77 |..:.....| .redraw|
|00004fb0| 0d 03 ac 0d ea 20 78 6f | 25 2c 79 6f 25 0d 03 b6 |..... xo|%,yo%...|
|00004fc0| 29 c8 99 20 22 57 69 6d | 70 5f 52 65 64 72 61 77 |).. "Wim|p_Redraw|
|00004fd0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 20 b8 |Window",|,block .|
|00004fe0| 20 6d 6f 72 65 25 0d 03 | c0 0c c8 95 20 6d 6f 72 | more%..|.... mor|
|00004ff0| 65 25 0d 03 ca 10 c8 8e | 20 62 6c 6f 63 6b 21 30 |e%......| block!0|
|00005000| 20 ca 0d 03 d4 05 cb 0d | 03 de 29 c8 99 20 22 57 | .......|..).. "W|
|00005010| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00005020| 22 2c 2c 62 6c 6f 63 6b | 20 b8 20 6d 6f 72 65 25 |",,block| . more%|
|00005030| 0d 03 e8 05 ce 0d 03 f2 | 05 e1 0d 03 fc 05 3a 0d |........|......:.|
|00005040| 04 06 19 dd 20 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |.... .op|en_windo|
|00005050| 77 28 71 25 2c 68 25 29 | 0d 04 10 33 e7 20 68 25 |w(q%,h%)|...3. h%|
|00005060| 3c 3e 2d 31 20 8c 20 71 | 25 21 30 3d 68 25 3a c8 |<>-1 . q|%!0=h%:.|
|00005070| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00005080| 77 53 74 61 74 65 22 2c | 2c 71 25 0d 04 1a 1c c8 |wState",|,q%.....|
|00005090| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|000050a0| 6f 77 22 2c 2c 71 25 0d | 04 24 05 e1 0d 04 2e 05 |ow",,q%.|.$......|
|000050b0| 3a 0d 04 38 0c dd 20 f2 | 6d 6f 75 73 65 0d 04 42 |:..8.. .|mouse..B|
|000050c0| 2d ea 20 69 63 6f 6e 25 | 2c 68 61 6e 64 6c 65 25 |-. icon%|,handle%|
|000050d0| 2c 62 75 74 74 6f 6e 73 | 25 2c 6d 78 25 2c 6d 79 |,buttons|%,mx%,my|
|000050e0| 25 2c 61 25 2c 62 25 2c | 70 25 0d 04 4c 2c 6d 78 |%,a%,b%,|p%..L,mx|
|000050f0| 25 3d 62 6c 6f 63 6b 21 | 30 3a 6d 79 25 3d 62 6c |%=block!|0:my%=bl|
|00005100| 6f 63 6b 21 34 3a 62 75 | 74 74 6f 6e 73 25 3d 62 |ock!4:bu|ttons%=b|
|00005110| 6c 6f 63 6b 21 38 0d 04 | 56 23 68 61 6e 64 6c 65 |lock!8..|V#handle|
|00005120| 25 3d 62 6c 6f 63 6b 21 | 31 32 3a 69 63 6f 6e 25 |%=block!|12:icon%|
|00005130| 3d 62 6c 6f 63 6b 21 31 | 36 0d 04 60 10 c8 8e 20 |=block!1|6..`... |
|00005140| 68 61 6e 64 6c 65 25 20 | ca 0d 04 6a 08 c9 20 2d |handle% |...j.. -|
|00005150| 32 0d 04 74 13 e7 20 69 | 63 6f 6e 25 3d 49 63 6f |2..t.. i|con%=Ico|
|00005160| 6e 25 20 8c 0d 04 7e 31 | e7 20 62 75 74 74 6f 6e |n% ...~1|. button|
|00005170| 73 25 3d 32 20 8c 20 f2 | 6f 70 65 6e 5f 6d 65 6e |s%=2 . .|open_men|
|00005180| 75 28 6d 78 25 2d 36 34 | 2c 32 39 38 2c 22 4d 65 |u(mx%-64|,298,"Me|
|00005190| 6e 75 73 22 29 0d 04 88 | 35 e7 20 62 75 74 74 6f |nus")...|5. butto|
|000051a0| 6e 73 25 3d 34 20 8c 20 | f2 63 72 65 61 74 65 5f |ns%=4 . |.create_|
|000051b0| 6d 65 6e 75 28 6e 25 29 | 3a f2 64 69 73 70 6c 61 |menu(n%)|:.displa|
|000051c0| 79 5f 6d 65 6e 75 28 6e | 25 29 0d 04 92 05 cd 0d |y_menu(n|%)......|
|000051d0| 04 9c 0b c9 20 4c 69 6e | 6b 25 0d 04 a6 37 e7 20 |.... Lin|k%...7. |
|000051e0| 69 63 6f 6e 25 3d 30 20 | 80 20 62 75 74 74 6f 6e |icon%=0 |. button|
|000051f0| 73 25 3d 36 34 20 8c 20 | f2 64 72 61 67 5f 73 65 |s%=64 . |.drag_se|
|00005200| 74 28 4c 69 6e 6b 25 2c | 30 2c 22 4c 69 6e 6b 22 |t(Link%,|0,"Link"|
|00005210| 29 0d 04 b0 0b c9 20 53 | 61 76 65 25 0d 04 ba 36 |)..... S|ave%...6|
|00005220| e7 20 69 63 6f 6e 25 3d | 30 20 80 20 62 75 74 74 |. icon%=|0 . butt|
|00005230| 6f 6e 73 25 3d 34 20 8c | 20 f2 64 72 61 67 5f 73 |ons%=4 .| .drag_s|
|00005240| 65 74 28 53 61 76 65 25 | 2c 30 2c 22 53 61 76 65 |et(Save%|,0,"Save|
|00005250| 22 29 0d 04 c4 40 e7 20 | 69 63 6f 6e 25 3d 32 20 |")...@. |icon%=2 |
|00005260| 80 20 62 75 74 74 6f 6e | 73 25 3d 34 20 8c 20 f2 |. button|s%=4 . .|
|00005270| 71 75 69 63 6b 73 61 76 | 65 3a c8 99 20 22 57 69 |quicksav|e:.. "Wi|
|00005280| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00005290| 2d 31 0d 04 ce 05 7f 0d | 04 d8 0f e3 20 61 25 3d |-1......|.... a%=|
|000052a0| 30 20 b8 20 34 37 0d 04 | e2 1b e7 20 68 61 6e 64 |0 . 47..|... hand|
|000052b0| 6c 65 25 28 61 25 29 3d | 68 61 6e 64 6c 65 25 20 |le%(a%)=|handle% |
|000052c0| 8c 0d 04 ec 3f 62 6c 6f | 63 6b 21 30 3d 68 61 6e |....?blo|ck!0=han|
|000052d0| 64 6c 65 25 3a 62 6c 6f | 63 6b 21 34 3d 69 63 6f |dle%:blo|ck!4=ico|
|000052e0| 6e 25 3a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |n%:.. "W|imp_GetI|
|000052f0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00005300| 0d 04 f6 22 e7 20 28 62 | 6c 6f 63 6b 21 32 34 20 |...". (b|lock!24 |
|00005310| 80 20 26 46 30 30 30 29 | 3d 28 39 3c 3c 31 32 29 |. &F000)|=(9<<12)|
|00005320| 20 8c 0d 05 00 54 e7 20 | 62 75 74 74 6f 6e 73 25 | ....T. |buttons%|
|00005330| 3d 32 20 8c 20 49 74 65 | 6d 25 3d 69 63 6f 6e 25 |=2 . Ite|m%=icon%|
|00005340| 3a 4d 65 6e 75 25 3d 61 | 25 3a f2 6f 70 65 6e 5f |:Menu%=a|%:.open_|
|00005350| 6d 65 6e 75 28 6d 78 25 | 2d 36 34 2c 6d 79 25 2b |menu(mx%|-64,my%+|
|00005360| 36 36 2c 22 4d 65 6e 75 | 20 65 64 69 74 22 29 3a |66,"Menu| edit"):|
|00005370| 61 25 3d 32 35 36 0d 05 | 0a 12 e7 20 62 75 74 74 |a%=256..|... butt|
|00005380| 6f 6e 73 25 3d 34 20 8c | 0d 05 14 1e 70 25 3d 6d |ons%=4 .|....p%=m|
|00005390| 65 6e 75 25 28 61 25 29 | 2b 32 38 2b 28 69 63 6f |enu%(a%)|+28+(ico|
|000053a0| 6e 25 2a 32 34 29 0d 05 | 1e 0a c8 8e 20 b9 20 ca |n%*24)..|.... . .|
|000053b0| 0d 05 28 11 c9 20 70 25 | 21 34 3d 2d 31 3a ef 20 |..(.. p%|!4=-1:. |
|000053c0| 37 0d 05 32 3f c9 20 70 | 25 21 34 3d 2d 32 3a 62 |7..2?. p|%!4=-2:b|
|000053d0| 6c 6f 63 6b 21 30 3d 31 | 3a 24 28 62 6c 6f 63 6b |lock!0=1|:$(block|
|000053e0| 2b 34 29 3d 22 49 74 65 | 6d 20 6c 65 61 64 73 20 |+4)="Ite|m leads |
|000053f0| 74 6f 20 61 20 73 75 62 | 20 77 69 6e 64 6f 77 22 |to a sub| window"|
|00005400| 0d 05 3c 30 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |..<0.. "|Wimp_Rep|
|00005410| 6f 72 74 45 72 72 6f 72 | 22 2c 62 6c 6f 63 6b 2c |ortError|",block,|
|00005420| 31 37 2c 22 49 6e 66 6f | 72 6d 61 74 69 6f 6e 22 |17,"Info|rmation"|
|00005430| 0d 05 46 05 7f 0d 05 50 | 4a 62 6c 6f 63 6b 21 32 |..F....P|Jblock!2|
|00005440| 35 36 3d 68 61 6e 64 6c | 65 25 28 61 25 29 3a c8 |56=handl|e%(a%):.|
|00005450| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00005460| 77 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 2b 32 |wState",|,block+2|
|00005470| 35 36 3a 78 25 3d 62 6c | 6f 63 6b 21 32 36 38 0d |56:x%=bl|ock!268.|
|00005480| 05 5a 39 62 6c 6f 63 6b | 21 30 3d 68 61 6e 64 6c |.Z9block|!0=handl|
|00005490| 65 25 28 70 25 21 34 29 | 3a c8 99 20 22 57 69 6d |e%(p%!4)|:.. "Wim|
|000054a0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|000054b0| 22 2c 2c 62 6c 6f 63 6b | 0d 05 64 1d 79 25 3d 6d |",,block|..d.y%=m|
|000054c0| 79 25 2d 28 62 6c 6f 63 | 6b 21 31 36 2d 62 6c 6f |y%-(bloc|k!16-blo|
|000054d0| 63 6b 21 38 29 0d 05 6e | 2d 62 6c 6f 63 6b 21 31 |ck!8)..n|-block!1|
|000054e0| 32 2b 3d 78 25 2d 62 6c | 6f 63 6b 21 34 3a 62 6c |2+=x%-bl|ock!4:bl|
|000054f0| 6f 63 6b 21 31 36 2b 3d | 79 25 2d 62 6c 6f 63 6b |ock!16+=|y%-block|
|00005500| 21 38 0d 05 78 25 62 6c | 6f 63 6b 21 34 3d 78 25 |!8..x%bl|ock!4=x%|
|00005510| 3a 62 6c 6f 63 6b 21 38 | 3d 79 25 3a 62 6c 6f 63 |:block!8|=y%:bloc|
|00005520| 6b 21 32 38 3d 2d 31 0d | 05 82 1f c8 99 20 22 57 |k!28=-1.|..... "W|
|00005530| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00005540| 2c 62 6c 6f 63 6b 0d 05 | 8c 05 cb 0d 05 96 05 cd |,block..|........|
|00005550| 0d 05 a0 05 cd 0d 05 aa | 05 cd 0d 05 b4 05 ed 0d |........|........|
|00005560| 05 be 05 cb 0d 05 c8 05 | e1 0d 05 d2 05 3a 0d 05 |........|.....:..|
|00005570| dc 0f dd 20 f2 64 72 61 | 67 5f 65 6e 64 0d 05 e6 |... .dra|g_end...|
|00005580| 1b ea 20 61 25 2c 71 25 | 2c 70 25 3a 71 25 3d 62 |.. a%,q%|,p%:q%=b|
|00005590| 6c 6f 63 6b 2b 32 35 36 | 0d 05 f0 3a c8 99 20 22 |lock+256|...:.. "|
|000055a0| 57 69 6d 70 5f 47 65 74 | 50 6f 69 6e 74 65 72 49 |Wimp_Get|PointerI|
|000055b0| 6e 66 6f 22 2c 2c 71 25 | 3a 68 61 6e 64 6c 65 25 |nfo",,q%|:handle%|
|000055c0| 3d 71 25 21 31 32 3a 69 | 63 6f 6e 25 3d 71 25 21 |=q%!12:i|con%=q%!|
|000055d0| 31 36 0d 05 fa 0e c8 8e | 20 44 72 61 67 24 20 ca |16......| Drag$ .|
|000055e0| 0d 06 04 0c c9 20 22 53 | 61 76 65 22 0d 06 0e 2a |..... "S|ave"...*|
|000055f0| 63 6f 70 79 21 30 3d 32 | 35 36 3a 63 6f 70 79 21 |copy!0=2|56:copy!|
|00005600| 34 3d 30 3a 63 6f 70 79 | 21 38 3d 30 3a 63 6f 70 |4=0:copy|!8=0:cop|
|00005610| 79 21 31 32 3d 30 0d 06 | 18 4b 63 6f 70 79 21 31 |y!12=0..|.Kcopy!1|
|00005620| 36 3d 31 3a 63 6f 70 79 | 21 32 30 3d 68 61 6e 64 |6=1:copy|!20=hand|
|00005630| 6c 65 25 3a 63 6f 70 79 | 21 32 34 3d 69 63 6f 6e |le%:copy|!24=icon|
|00005640| 25 3a 63 6f 70 79 21 32 | 38 3d 62 6c 6f 63 6b 21 |%:copy!2|8=block!|
|00005650| 30 3a 63 6f 70 79 21 33 | 32 3d 62 6c 6f 63 6b 21 |0:copy!3|2=block!|
|00005660| 34 0d 06 22 43 63 6f 70 | 79 21 33 36 3d 26 38 30 |4.."Ccop|y!36=&80|
|00005670| 30 30 3a 63 6f 70 79 21 | 34 30 3d 26 33 32 31 3a |00:copy!|40=&321:|
|00005680| 24 28 63 6f 70 79 2b 34 | 34 29 3d a4 6c 65 61 66 |$(copy+4|4)=.leaf|
|00005690| 28 a4 73 74 72 69 6e 67 | 28 46 69 6c 65 6e 61 6d |(.string|(Filenam|
|000056a0| 65 25 29 29 0d 06 2c 2f | c8 99 20 22 57 69 6d 70 |e%))..,/|.. "Wimp|
|000056b0| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 38 |_SendMes|sage",18|
|000056c0| 2c 63 6f 70 79 2c 68 61 | 6e 64 6c 65 25 2c 69 63 |,copy,ha|ndle%,ic|
|000056d0| 6f 6e 25 0d 06 36 1c c8 | 99 20 22 57 69 6d 70 5f |on%..6..|. "Wimp_|
|000056e0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 2d 31 0d |CreateMe|nu",,-1.|
|000056f0| 06 40 0c c9 20 22 4c 69 | 6e 6b 22 0d 06 4a 0f e3 |.@.. "Li|nk"..J..|
|00005700| 20 61 25 3d 30 20 b8 20 | 34 37 0d 06 54 1b e7 20 | a%=0 . |47..T.. |
|00005710| 68 61 6e 64 6c 65 25 28 | 61 25 29 3d 68 61 6e 64 |handle%(|a%)=hand|
|00005720| 6c 65 25 20 8c 0d 06 5e | 30 e7 20 61 25 3d 4d 65 |le% ...^|0. a%=Me|
|00005730| 6e 75 25 20 8c 20 85 20 | 31 2c 22 43 61 6e 27 74 |nu% . . |1,"Can't|
|00005740| 20 6c 69 6e 6b 20 6d 65 | 6e 75 20 74 6f 20 69 74 | link me|nu to it|
|00005750| 73 65 6c 66 22 0d 06 68 | 3f 62 6c 6f 63 6b 21 30 |self"..h|?block!0|
|00005760| 3d 68 61 6e 64 6c 65 25 | 3a 62 6c 6f 63 6b 21 34 |=handle%|:block!4|
|00005770| 3d 69 63 6f 6e 25 3a c8 | 99 20 22 57 69 6d 70 5f |=icon%:.|. "Wimp_|
|00005780| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00005790| 6c 6f 63 6b 0d 06 72 47 | e7 20 28 62 6c 6f 63 6b |lock..rG|. (block|
|000057a0| 21 32 34 20 80 20 26 46 | 30 30 30 29 3c 3e 28 39 |!24 . &F|000)<>(9|
|000057b0| 3c 3c 31 32 29 20 8c 20 | 85 20 31 2c 22 54 6f 20 |<<12) . |. 1,"To |
|000057c0| 6c 69 6e 6b 2c 20 64 72 | 61 67 20 6d 65 6e 75 20 |link, dr|ag menu |
|000057d0| 74 6f 20 61 6e 20 69 74 | 65 6d 22 0d 06 7c 45 70 |to an it|em"..|Ep|
|000057e0| 25 3d 6d 65 6e 75 25 28 | 61 25 29 2b 32 38 2b 28 |%=menu%(|a%)+28+(|
|000057f0| 69 63 6f 6e 25 2a 32 34 | 29 3a e7 20 70 25 21 34 |icon%*24|):. p%!4|
|00005800| 3c 3e 2d 31 20 8c 20 85 | 20 31 2c 22 49 74 65 6d |<>-1 . .| 1,"Item|
|00005810| 20 61 6c 72 65 61 64 79 | 20 6c 69 6e 6b 65 64 22 | already| linked"|
|00005820| 0d 06 86 27 70 25 21 34 | 3d 4d 65 6e 75 25 3a f2 |...'p%!4|=Menu%:.|
|00005830| 64 69 73 70 6c 61 79 5f | 6d 65 6e 75 28 61 25 29 |display_|menu(a%)|
|00005840| 3a 61 25 3d 35 31 31 0d | 06 90 05 cd 0d 06 9a 05 |:a%=511.|........|
|00005850| ed 0d 06 a4 33 e7 20 61 | 25 3c 3e 35 31 32 20 8c |....3. a|%<>512 .|
|00005860| 20 85 20 31 2c 22 54 6f | 20 6c 69 6e 6b 2c 20 64 | . 1,"To| link, d|
|00005870| 72 61 67 20 6d 65 6e 75 | 20 74 6f 20 61 6e 20 69 |rag menu| to an i|
|00005880| 74 65 6d 22 0d 06 ae 0c | c9 20 22 53 61 76 65 22 |tem"....|. "Save"|
|00005890| 0d 06 b8 0e cb 3a 44 72 | 61 67 24 3d 22 22 0d 06 |.....:Dr|ag$=""..|
|000058a0| c2 05 e1 0d 06 cc 05 3a | 0d 06 d6 0f dd 20 f2 6b |.......:|..... .k|
|000058b0| 65 79 70 72 65 73 73 0d | 06 e0 2f 68 61 6e 64 6c |eypress.|../handl|
|000058c0| 65 25 3d 62 6c 6f 63 6b | 21 30 3a 69 63 6f 6e 25 |e%=block|!0:icon%|
|000058d0| 3d 62 6c 6f 63 6b 21 34 | 3a 6b 65 79 25 3d 62 6c |=block!4|:key%=bl|
|000058e0| 6f 63 6b 21 32 34 0d 06 | ea 10 c8 8e 20 68 61 6e |ock!24..|.... han|
|000058f0| 64 6c 65 25 20 ca 0d 06 | f4 4d c9 20 53 61 76 65 |dle% ...|.M. Save|
|00005900| 25 3a e7 20 69 63 6f 6e | 25 3d 31 20 80 20 6b 65 |%:. icon|%=1 . ke|
|00005910| 79 25 3d 31 33 20 8c 20 | f2 71 75 69 63 6b 73 61 |y%=13 . |.quicksa|
|00005920| 76 65 3a c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |ve:.. "W|imp_Crea|
|00005930| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 3a 6b 65 79 25 |teMenu",|,-1:key%|
|00005940| 3d 2d 31 0d 06 fe 05 cb | 0d 07 08 2a e7 20 6b 65 |=-1.....|...*. ke|
|00005950| 79 25 3c 3e 2d 31 20 8c | 20 c8 99 20 22 57 69 6d |y%<>-1 .| .. "Wim|
|00005960| 70 5f 50 72 6f 63 65 73 | 73 4b 65 79 22 2c 6b 65 |p_Proces|sKey",ke|
|00005970| 79 25 0d 07 12 05 e1 0d | 07 1c 05 3a 0d 07 26 0b |y%......|...:..&.|
|00005980| dd 20 f2 6d 65 6e 75 0d | 07 30 14 ea 20 61 25 2c |. .menu.|.0.. a%,|
|00005990| 62 25 2c 63 25 2c 70 25 | 2c 64 24 0d 07 3a 36 c8 |b%,c%,p%|,d$..:6.|
|000059a0| 99 20 22 4d 65 6e 75 5f | 53 74 72 69 6e 67 54 6f |. "Menu_|StringTo|
|000059b0| 41 64 64 72 65 73 73 22 | 2c 4d 65 6e 75 73 25 2c |Address"|,Menus%,|
|000059c0| a4 6d 73 28 4d 65 6e 75 | 24 29 20 b8 20 2c 2c 62 |.ms(Menu|$) . ,,b|
|000059d0| 25 0d 07 44 2c c8 99 20 | 22 57 69 6d 70 5f 44 65 |%..D,.. |"Wimp_De|
|000059e0| 63 6f 64 65 4d 65 6e 75 | 22 2c 2c 62 25 2c 62 6c |codeMenu|",,b%,bl|
|000059f0| 6f 63 6b 2c 62 6c 6f 63 | 6b 2b 32 35 36 0d 07 4e |ock,bloc|k+256..N|
|00005a00| 1e 53 65 6c 65 63 74 24 | 3d a4 73 74 72 69 6e 67 |.Select$|=.string|
|00005a10| 28 62 6c 6f 63 6b 2b 32 | 35 36 29 0d 07 58 0e c8 |(block+2|56)..X..|
|00005a20| 8e 20 4d 65 6e 75 24 20 | ca 0d 07 62 0d c9 20 22 |. Menu$ |...b.. "|
|00005a30| 4d 65 6e 75 73 22 0d 07 | 6c 13 c8 8e 20 a4 6f 70 |Menus"..|l... .op|
|00005a40| 74 69 6f 6e 28 31 29 20 | ca 0d 07 76 17 c9 20 22 |tion(1) |...v.. "|
|00005a50| 53 61 76 65 22 3a f2 71 | 75 69 63 6b 73 61 76 65 |Save":.q|uicksave|
|00005a60| 0d 07 80 33 c9 20 22 4e | 65 77 20 6d 65 6e 75 22 |...3. "N|ew menu"|
|00005a70| 3a f2 63 72 65 61 74 65 | 5f 6d 65 6e 75 28 6e 25 |:.create|_menu(n%|
|00005a80| 29 3a f2 64 69 73 70 6c | 61 79 5f 6d 65 6e 75 28 |):.displ|ay_menu(|
|00005a90| 6e 25 29 0d 07 8a 1e c9 | 20 22 51 75 69 74 22 3a |n%).....| "Quit":|
|00005aa0| f2 63 68 65 63 6b 28 30 | 29 3a 51 75 69 74 25 3d |.check(0|):Quit%=|
|00005ab0| b9 0d 07 94 05 cb 0d 07 | 9e 11 c9 20 22 4d 65 6e |........|... "Men|
|00005ac0| 75 20 65 64 69 74 22 0d | 07 a8 13 70 25 3d 6d 65 |u edit".|...p%=me|
|00005ad0| 6e 75 25 28 4d 65 6e 75 | 25 29 0d 07 b2 13 c8 8e |nu%(Menu|%)......|
|00005ae0| 20 a4 6f 70 74 69 6f 6e | 28 31 29 20 ca 0d 07 bc | .option|(1) ....|
|00005af0| 3a c9 20 22 54 69 74 6c | 65 22 3a e7 20 24 54 69 |:. "Titl|e":. $Ti|
|00005b00| 74 6c 65 25 3d 22 22 20 | 8c 20 85 20 31 2c 22 4d |tle%="" |. . 1,"M|
|00005b10| 65 6e 75 73 20 6d 75 73 | 74 20 68 61 76 65 20 61 |enus mus|t have a|
|00005b20| 20 74 69 74 6c 65 22 0d | 07 c6 2d 70 25 21 30 3d | title".|..-p%!0=|
|00005b30| 54 69 74 6c 65 25 21 30 | 3a 70 25 21 34 3d 54 69 |Title%!0|:p%!4=Ti|
|00005b40| 74 6c 65 25 21 34 3a 70 | 25 21 38 3d 54 69 74 6c |tle%!4:p|%!8=Titl|
|00005b50| 65 25 21 38 0d 07 d0 23 | f2 64 69 73 70 6c 61 79 |e%!8...#|.display|
|00005b60| 5f 6d 65 6e 75 28 4d 65 | 6e 75 25 29 3a 43 68 61 |_menu(Me|nu%):Cha|
|00005b70| 6e 67 65 64 25 3d b9 0d | 07 da 3e c9 20 22 57 69 |nged%=..|..>. "Wi|
|00005b80| 64 74 68 22 3a 70 25 21 | 31 36 3d bb 28 24 57 69 |dth":p%!|16=.($Wi|
|00005b90| 64 74 68 25 29 3a f2 64 | 69 73 70 6c 61 79 5f 6d |dth%):.d|isplay_m|
|00005ba0| 65 6e 75 28 4d 65 6e 75 | 25 29 3a 43 68 61 6e 67 |enu(Menu|%):Chang|
|00005bb0| 65 64 25 3d b9 0d 07 e4 | 30 c9 20 22 49 6e 73 65 |ed%=....|0. "Inse|
|00005bc0| 72 74 20 61 66 74 65 72 | 22 3a f2 67 65 74 5f 62 |rt after|":.get_b|
|00005bd0| 6c 6f 63 6b 28 6d 65 6e | 75 25 28 4d 65 6e 75 25 |lock(men|u%(Menu%|
|00005be0| 29 2c 32 34 29 0d 07 ee | 16 62 25 3d 6d 65 6e 75 |),24)...|.b%=menu|
|00005bf0| 25 28 4d 65 6e 75 25 29 | 2b 32 38 0d 07 f8 26 c8 |%(Menu%)|+28...&.|
|00005c00| 95 20 28 62 25 21 30 20 | 80 20 31 3c 3c 37 29 3d |. (b%!0 |. 1<<7)=|
|00005c10| 30 3a 62 25 2b 3d 32 34 | 3a ce 3a 62 25 2b 3d 32 |0:b%+=24|:.:b%+=2|
|00005c20| 34 0d 08 02 21 70 25 3d | 6d 65 6e 75 25 28 4d 65 |4...!p%=|menu%(Me|
|00005c30| 6e 75 25 29 2b 28 49 74 | 65 6d 25 2a 32 34 29 2b |nu%)+(It|em%*24)+|
|00005c40| 35 32 0d 08 0c 0e e7 20 | 70 25 3c 3e 62 25 20 8c |52..... |p%<>b% .|
|00005c50| 0d 08 16 25 e3 20 61 25 | 3d 62 25 2b 32 30 20 b8 |...%. a%|=b%+20 .|
|00005c60| 20 70 25 20 88 20 2d 34 | 3a 61 25 21 32 34 3d 61 | p% . -4|:a%!24=a|
|00005c70| 25 21 30 3a ed 0d 08 20 | 05 cc 0d 08 2a 19 62 25 |%!0:... |....*.b%|
|00005c80| 21 2d 32 34 3d 62 25 21 | 2d 32 34 20 80 20 ac 20 |!-24=b%!|-24 . . |
|00005c90| 26 38 30 0d 08 34 05 cd | 0d 08 3e 22 70 25 21 30 |&80..4..|..>"p%!0|
|00005ca0| 3d 26 30 3a 70 25 21 34 | 3d 2d 31 3a 70 25 21 38 |=&0:p%!4|=-1:p%!8|
|00005cb0| 3d 26 30 37 30 30 30 30 | 33 31 0d 08 48 32 70 25 |=&070000|31..H2p%|
|00005cc0| 21 31 32 3d 30 3a 70 25 | 21 31 36 3d 30 3a 70 25 |!12=0:p%|!16=0:p%|
|00005cd0| 21 32 30 3d 30 3a 24 28 | 70 25 2b 31 32 29 3d 22 |!20=0:$(|p%+12)="|
|00005ce0| 3c 4c 65 61 66 20 69 74 | 65 6d 3e 22 0d 08 52 16 |<Leaf it|em>"..R.|
|00005cf0| e7 20 70 25 3d 62 25 20 | 8c 20 70 25 21 30 3d 26 |. p%=b% |. p%!0=&|
|00005d00| 38 30 0d 08 5c 23 f2 64 | 69 73 70 6c 61 79 5f 6d |80..\#.d|isplay_m|
|00005d10| 65 6e 75 28 4d 65 6e 75 | 25 29 3a 43 68 61 6e 67 |enu(Menu|%):Chang|
|00005d20| 65 64 25 3d b9 0d 08 66 | 31 c9 20 22 49 6e 73 65 |ed%=...f|1. "Inse|
|00005d30| 72 74 20 62 65 66 6f 72 | 65 22 3a f2 67 65 74 5f |rt befor|e":.get_|
|00005d40| 62 6c 6f 63 6b 28 6d 65 | 6e 75 25 28 4d 65 6e 75 |block(me|nu%(Menu|
|00005d50| 25 29 2c 32 34 29 0d 08 | 70 16 62 25 3d 6d 65 6e |%),24)..|p.b%=men|
|00005d60| 75 25 28 4d 65 6e 75 25 | 29 2b 32 38 0d 08 7a 26 |u%(Menu%|)+28..z&|
|00005d70| c8 95 20 28 62 25 21 30 | 20 80 20 31 3c 3c 37 29 |.. (b%!0| . 1<<7)|
|00005d80| 3d 30 3a 62 25 2b 3d 32 | 34 3a ce 3a 62 25 2b 3d |=0:b%+=2|4:.:b%+=|
|00005d90| 32 34 0d 08 84 21 70 25 | 3d 6d 65 6e 75 25 28 4d |24...!p%|=menu%(M|
|00005da0| 65 6e 75 25 29 2b 28 49 | 74 65 6d 25 2a 32 34 29 |enu%)+(I|tem%*24)|
|00005db0| 2b 32 38 0d 08 8e 0e e7 | 20 70 25 3c 3e 62 25 20 |+28.....| p%<>b% |
|00005dc0| 8c 0d 08 98 25 e3 20 61 | 25 3d 62 25 2b 32 30 20 |....%. a|%=b%+20 |
|00005dd0| b8 20 70 25 20 88 20 2d | 34 3a 61 25 21 32 34 3d |. p% . -|4:a%!24=|
|00005de0| 61 25 21 30 3a ed 0d 08 | a2 05 cc 0d 08 ac 19 62 |a%!0:...|.......b|
|00005df0| 25 21 2d 32 34 3d 62 25 | 21 2d 32 34 20 80 20 ac |%!-24=b%|!-24 . .|
|00005e00| 20 26 38 30 0d 08 b6 05 | cd 0d 08 c0 22 70 25 21 | &80....|...."p%!|
|00005e10| 30 3d 26 30 3a 70 25 21 | 34 3d 2d 31 3a 70 25 21 |0=&0:p%!|4=-1:p%!|
|00005e20| 38 3d 26 30 37 30 30 30 | 30 33 31 0d 08 ca 32 70 |8=&07000|031...2p|
|00005e30| 25 21 31 32 3d 30 3a 70 | 25 21 31 36 3d 30 3a 70 |%!12=0:p|%!16=0:p|
|00005e40| 25 21 32 30 3d 30 3a 24 | 28 70 25 2b 31 32 29 3d |%!20=0:$|(p%+12)=|
|00005e50| 22 3c 4c 65 61 66 20 69 | 74 65 6d 3e 22 0d 08 d4 |"<Leaf i|tem>"...|
|00005e60| 16 e7 20 70 25 3d 62 25 | 20 8c 20 70 25 21 30 3d |.. p%=b%| . p%!0=|
|00005e70| 26 38 30 0d 08 de 2c f2 | 64 69 73 70 6c 61 79 5f |&80...,.|display_|
|00005e80| 6d 65 6e 75 28 4d 65 6e | 75 25 29 3a 43 68 61 6e |menu(Men|u%):Chan|
|00005e90| 67 65 64 25 3d b9 3a 49 | 74 65 6d 25 2b 3d 31 0d |ged%=.:I|tem%+=1.|
|00005ea0| 08 e8 13 c9 20 22 44 65 | 6c 65 74 65 20 69 74 65 |.... "De|lete ite|
|00005eb0| 6d 22 0d 08 f2 13 e7 20 | 70 25 21 32 38 20 80 20 |m"..... |p%!28 . |
|00005ec0| 26 38 30 20 8c 0d 08 fc | 07 ef 20 37 0d 09 06 05 |&80 ....|.. 7....|
|00005ed0| cc 0d 09 10 3a 62 25 3d | 70 25 2b 32 38 3a c8 95 |....:b%=|p%+28:..|
|00005ee0| 20 28 62 25 21 30 20 80 | 20 31 3c 3c 37 29 3d 30 | (b%!0 .| 1<<7)=0|
|00005ef0| 3a 62 25 2b 3d 32 34 3a | ce 3a 70 25 2b 3d 32 38 |:b%+=24:|.:p%+=28|
|00005f00| 2b 28 49 74 65 6d 25 2a | 32 34 29 0d 09 1a 0d e7 |+(Item%*|24).....|
|00005f10| 20 70 25 3d 62 25 20 8c | 0d 09 24 17 62 25 21 2d | p%=b% .|..$.b%!-|
|00005f20| 32 34 3d 62 25 21 2d 32 | 34 20 84 20 26 38 30 0d |24=b%!-2|4 . &80.|
|00005f30| 09 2e 05 cc 0d 09 38 1d | e3 20 61 25 3d 70 25 20 |......8.|. a%=p% |
|00005f40| b8 20 62 25 3a 61 25 21 | 30 3d 61 25 21 32 34 3a |. b%:a%!|0=a%!24:|
|00005f50| ed 0d 09 42 05 cd 0d 09 | 4c 21 f2 64 69 73 70 6c |...B....|L!.displ|
|00005f60| 61 79 5f 6d 65 6e 75 28 | 4d 65 6e 75 25 29 3a 4d |ay_menu(|Menu%):M|
|00005f70| 65 6e 75 25 3d 2d 31 0d | 09 56 10 cd 3a 43 68 61 |enu%=-1.|.V..:Cha|
|00005f80| 6e 67 65 64 25 3d b9 0d | 09 60 13 c9 20 22 44 65 |nged%=..|.`.. "De|
|00005f90| 6c 65 74 65 20 6c 69 6e | 6b 22 0d 09 6a 3d 70 25 |lete lin|k"..j=p%|
|00005fa0| 2b 3d 32 38 2b 28 49 74 | 65 6d 25 2a 32 34 29 3a |+=28+(It|em%*24):|
|00005fb0| 70 25 21 34 3d 2d 31 3a | f2 64 69 73 70 6c 61 79 |p%!4=-1:|.display|
|00005fc0| 5f 6d 65 6e 75 28 4d 65 | 6e 75 25 29 3a 43 68 61 |_menu(Me|nu%):Cha|
|00005fd0| 6e 67 65 64 25 3d b9 0d | 09 74 13 c9 20 22 44 65 |nged%=..|.t.. "De|
|00005fe0| 6c 65 74 65 20 6d 65 6e | 75 22 0d 09 7e 27 62 6c |lete men|u"..~'bl|
|00005ff0| 6f 63 6b 21 30 3d 31 3a | 24 28 62 6c 6f 63 6b 2b |ock!0=1:|$(block+|
|00006000| 34 29 3d 22 44 65 6c 65 | 74 65 20 6d 65 6e 75 3f |4)="Dele|te menu?|
|00006010| 22 0d 09 88 32 c8 99 20 | 22 57 69 6d 70 5f 52 65 |"...2.. |"Wimp_Re|
|00006020| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 6c 6f 63 6b |portErro|r",block|
|00006030| 2c 31 39 2c 22 43 6f 6e | 66 69 72 6d 22 20 b8 20 |,19,"Con|firm" . |
|00006040| 2c 61 25 0d 09 92 0c e7 | 20 61 25 3d 31 20 8c 0d |,a%.....| a%=1 ..|
|00006050| 09 9c 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|00006060| 5f 4f 6e 22 0d 09 a6 0f | e3 20 62 25 3d 30 20 b8 |_On"....|. b%=0 .|
|00006070| 20 34 37 0d 09 b0 29 c8 | 99 20 22 48 6f 75 72 67 | 47...).|. "Hourg|
|00006080| 6c 61 73 73 5f 50 65 72 | 63 65 6e 74 61 67 65 22 |lass_Per|centage"|
|00006090| 2c 28 62 25 2f 34 37 29 | 2a 31 30 30 0d 09 ba 20 |,(b%/47)|*100... |
|000060a0| e7 20 6d 65 6e 75 25 28 | 62 25 29 3c 3e 30 20 80 |. menu%(|b%)<>0 .|
|000060b0| 20 62 25 3c 3e 4d 65 6e | 75 25 20 8c 0d 09 c4 12 | b%<>Men|u% .....|
|000060c0| 70 25 3d 6d 65 6e 75 25 | 28 62 25 29 2b 34 0d 09 |p%=menu%|(b%)+4..|
|000060d0| ce 23 f5 3a 70 25 2b 3d | 32 34 3a e7 20 70 25 21 |.#.:p%+=|24:. p%!|
|000060e0| 34 3d 4d 65 6e 75 25 20 | 8c 20 70 25 21 34 3d 2d |4=Menu% |. p%!4=-|
|000060f0| 31 0d 09 d8 22 fd 20 70 | 25 21 30 20 80 20 26 38 |1...". p|%!0 . &8|
|00006100| 30 3a f2 64 69 73 70 6c | 61 79 5f 6d 65 6e 75 28 |0:.displ|ay_menu(|
|00006110| 62 25 29 0d 09 e2 05 cd | 0d 09 ec 05 ed 0d 09 f6 |b%).....|........|
|00006120| 34 c8 99 20 22 4f 53 5f | 48 65 61 70 22 2c 33 2c |4.. "OS_|Heap",3,|
|00006130| 48 65 61 70 25 2c 6d 65 | 6e 75 25 28 4d 65 6e 75 |Heap%,me|nu%(Menu|
|00006140| 25 29 3a 6d 65 6e 75 25 | 28 4d 65 6e 75 25 29 3d |%):menu%|(Menu%)=|
|00006150| 30 0d 0a 00 49 62 6c 6f | 63 6b 21 30 3d 68 61 6e |0...Iblo|ck!0=han|
|00006160| 64 6c 65 25 28 4d 65 6e | 75 25 29 3a c8 99 20 22 |dle%(Men|u%):.. "|
|00006170| 57 69 6d 70 5f 44 65 6c | 65 74 65 57 69 6e 64 6f |Wimp_Del|eteWindo|
|00006180| 77 22 2c 2c 62 6c 6f 63 | 6b 3a 68 61 6e 64 6c 65 |w",,bloc|k:handle|
|00006190| 25 28 4d 65 6e 75 25 29 | 3d 30 0d 0a 0a 17 43 68 |%(Menu%)|=0....Ch|
|000061a0| 61 6e 67 65 64 25 3d b9 | 3a 4d 65 6e 75 25 3d 2d |anged%=.|:Menu%=-|
|000061b0| 31 0d 0a 14 16 c8 99 20 | 22 48 6f 75 72 67 6c 61 |1...... |"Hourgla|
|000061c0| 73 73 5f 4f 66 66 22 0d | 0a 1e 05 cd 0d 0a 28 12 |ss_Off".|......(.|
|000061d0| c9 20 22 49 74 65 6d 20 | 73 74 79 6c 65 22 0d 0a |. "Item |style"..|
|000061e0| 32 21 70 25 3d 6d 65 6e | 75 25 28 4d 65 6e 75 25 |2!p%=men|u%(Menu%|
|000061f0| 29 2b 32 38 2b 28 49 74 | 65 6d 25 2a 32 34 29 0d |)+28+(It|em%*24).|
|00006200| 0a 3c 13 c8 8e 20 a4 6f | 70 74 69 6f 6e 28 32 29 |.<... .o|ption(2)|
|00006210| 20 ca 0d 0a 46 1f c9 20 | 22 44 61 74 61 22 3a e7 | ...F.. |"Data":.|
|00006220| 20 a4 6f 70 74 69 6f 6e | 28 33 29 3c 3e 22 22 20 | .option|(3)<>"" |
|00006230| 8c 0d 0a 50 41 e7 20 28 | 70 25 21 38 20 80 20 26 |...PA. (|p%!8 . &|
|00006240| 31 30 30 29 3d 30 20 8c | 20 70 25 21 31 32 3d 44 |100)=0 .| p%!12=D|
|00006250| 61 74 61 25 21 30 3a 70 | 25 21 31 36 3d 44 61 74 |ata%!0:p|%!16=Dat|
|00006260| 61 25 21 34 3a 70 25 21 | 32 30 3d 44 61 74 61 25 |a%!4:p%!|20=Data%|
|00006270| 21 38 0d 0a 5a 05 cd 0d | 0a 64 10 c9 20 22 49 6e |!8..Z...|.d.. "In|
|00006280| 64 69 72 65 63 74 22 0d | 0a 6e 16 e7 20 a4 6f 70 |direct".|.n.. .op|
|00006290| 74 69 6f 6e 28 33 29 3c | 3e 22 22 20 8c 0d 0a 78 |tion(3)<|>"" ...x|
|000062a0| 14 63 25 3d bb 28 24 49 | 6e 64 69 72 65 63 74 25 |.c%=.($I|ndirect%|
|000062b0| 29 0d 0a 82 2a e7 20 63 | 25 3c 3d 31 20 84 20 63 |)...*. c|%<=1 . c|
|000062c0| 25 3e 3d 32 35 36 20 8c | 20 85 20 31 2c 22 49 6e |%>=256 .| . 1,"In|
|000062d0| 76 61 6c 69 64 20 73 69 | 7a 65 22 0d 0a 8c 33 61 |valid si|ze"...3a|
|000062e0| 25 3d 70 25 21 31 32 3a | 64 24 3d a4 73 74 72 69 |%=p%!12:|d$=.stri|
|000062f0| 6e 67 28 61 25 29 3a c8 | 99 20 22 4f 53 5f 48 65 |ng(a%):.|. "OS_He|
|00006300| 61 70 22 2c 33 2c 48 65 | 61 70 25 2c 61 25 0d 0a |ap",3,He|ap%,a%..|
|00006310| 96 31 64 24 3d 64 24 2b | c4 32 35 35 2d a9 28 64 |.1d$=d$+|.255-.(d|
|00006320| 24 29 2c bd 28 30 29 29 | 3a 61 25 3d 30 3a f2 67 |$),.(0))|:a%=0:.g|
|00006330| 65 74 5f 62 6c 6f 63 6b | 28 61 25 2c 63 25 29 0d |et_block|(a%,c%).|
|00006340| 0a a0 28 e3 20 62 25 3d | 30 20 b8 20 63 25 2d 32 |..(. b%=|0 . c%-2|
|00006350| 3a 61 25 3f 62 25 3d 97 | 28 c1 64 24 2c 62 25 2b |:a%?b%=.|(.d$,b%+|
|00006360| 31 2c 31 29 29 3a ed 0d | 0a aa 1d 61 25 3f 62 25 |1,1)):..|...a%?b%|
|00006370| 3d 30 3a 70 25 21 31 32 | 3d 61 25 3a 70 25 21 32 |=0:p%!12|=a%:p%!2|
|00006380| 30 3d 63 25 0d 0a b4 05 | cc 0d 0a be 13 e7 20 70 |0=c%....|...... p|
|00006390| 25 21 38 20 80 20 26 31 | 30 30 20 8c 0d 0a c8 1f |%!8 . &1|00 .....|
|000063a0| 70 25 21 38 3d 70 25 21 | 38 20 80 20 ac 20 26 31 |p%!8=p%!|8 . . &1|
|000063b0| 30 30 3a 61 25 3d 70 25 | 21 31 32 0d 0a d2 2d 70 |00:a%=p%|!12...-p|
|000063c0| 25 21 31 32 3d 61 25 21 | 30 3a 70 25 21 31 36 3d |%!12=a%!|0:p%!16=|
|000063d0| 61 25 21 34 3a 70 25 21 | 32 30 3d 61 25 21 38 3a |a%!4:p%!|20=a%!8:|
|000063e0| 70 25 3f 32 33 3d 31 33 | 0d 0a dc 1b c8 99 20 22 |p%?23=13|...... "|
|000063f0| 4f 53 5f 48 65 61 70 22 | 2c 33 2c 48 65 61 70 25 |OS_Heap"|,3,Heap%|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
