/ APDL Public Domain 1 / APDL_PD1A.iso / textutil / newchars2

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | b0 01 00 00 10 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 4e 65 77 43 68 61 | 72 73 32 00 ff ff ff ff |.!NewCha|rs2.....|
|00000070| 44 ff ff ff 1f ff 25 1a | 30 00 00 00 ff ff ff ff |D.....%.|0.......|
|00000080| 8c 01 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 |.....!Bo|ot......|
|00000090| 5d 00 00 00 43 eb ff ff | d1 cf 09 39 03 00 65 a1 |]...C...|...9..e.|
|000000a0| 5d 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |]...$...|.!Help..|
|000000b0| 00 00 00 00 a2 08 00 00 | 42 ff ff ff 67 a5 cd a8 |........|B...g...|
|000000c0| 03 00 c3 00 a2 08 00 00 | a5 00 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 04 00 00 00 00 00 | c1 00 00 00 42 eb ff ff |n.......|....B...|
|000000e0| 52 cf cd 5e 03 00 37 02 | c1 00 00 00 6b 09 00 00 |R..^..7.|....k...|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 00 8a 26 00 00 |.!RunIma|ge...&..|
|00000100| 42 fb ff ff 57 d4 cd a8 | 03 00 9b 42 8a 26 00 00 |B...W...|...B.&..|
|00000110| 50 0a 00 00 82 21 53 70 | 72 69 74 65 73 00 00 00 |P....!Sp|rites...|
|00000120| e4 03 00 00 42 f9 ff ff | db 3a cc a8 03 00 3b a3 |....B...|.:....;.|
|00000130| e4 03 00 00 fe 30 00 00 | 82 46 6e 74 4d 65 6e 75 |.....0..|.FntMenu|
|00000140| 44 6f 63 00 22 3c 00 00 | 42 ff ff ff 5c 2a cc 5e |Doc."<..|B...\*.^|
|00000150| 03 00 93 04 22 3c 00 00 | 06 35 00 00 82 46 6f 6e |...."<..|.5...Fon|
|00000160| 74 4d 65 6e 75 00 00 00 | e4 0b 00 00 42 fa ff ff |tMenu...|....B...|
|00000170| 50 5e ca 5e 03 00 c4 b5 | e4 0b 00 00 4c 71 00 00 |P^.^....|....Lq..|
|00000180| 82 49 63 6f 6e 00 04 00 | 00 00 00 00 23 00 00 00 |.Icon...|....#...|
|00000190| 43 ff ff ff 12 0e c0 60 | 03 00 33 9f 23 00 00 00 |C......`|..3.#...|
|000001a0| 54 7d 00 00 82 54 65 6d | 70 6c 61 74 65 73 00 00 |T}...Tem|plates..|
|000001b0| 9d 02 00 00 42 ec ff ff | af 9a cb a8 03 00 a6 d7 |....B...|........|
|000001c0| 9d 02 00 00 9b 7d 00 00 | 00 6e 65 6b 6f 00 04 00 |.....}..|.neko...|
|000001d0| 00 00 00 00 05 00 00 00 | a0 00 00 00 d4 ff ff ff |........|........|
|000001e0| b8 00 00 00 00 00 00 00 | 2a fe 0e 07 00 00 00 00 |........|*.......|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 44 01 00 00 |........|....D...|
|00000210| 46 69 6c 65 44 61 74 61 | 82 21 42 6f 6f 74 00 00 |FileData|.!Boot..|
|00000220| 00 00 00 00 5d 00 00 00 | 43 eb ff ff d1 cf 09 39 |....]...|C......9|
|00000230| 03 00 65 a1 49 63 6f 6e | 53 70 72 69 74 65 73 20 |..e.Icon|Sprites |
|00000240| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 21 53 70 72 69 |<Obey$Di|r>.!Spri|
|00000250| 74 65 73 0a 7c 20 54 68 | 69 73 20 66 69 6c 65 20 |tes.| Th|is file |
|00000260| 68 61 73 20 62 65 65 6e | 20 69 6e 6e 6f 63 75 6c |has been| innocul|
|00000270| 61 74 65 64 20 61 67 61 | 69 6e 73 74 20 74 68 65 |ated aga|inst the|
|00000280| 20 45 78 74 65 6e 64 20 | 56 69 72 75 73 0a 7c 7c | Extend |Virus.|||
|00000290| ff 46 69 6c 65 44 61 74 | 61 82 21 48 65 6c 70 00 |.FileDat|a.!Help.|
|000002a0| 00 00 00 00 00 a2 08 00 | 00 42 ff ff ff 67 a5 cd |........|.B...g..|
|000002b0| a8 03 00 c3 00 0a 0a 0a | 20 20 20 20 20 20 20 20 |........|        |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002d0| 20 20 48 65 6c 70 20 6f | 6e 20 21 4e 65 77 43 68 |  Help o|n !NewCh|
|000002e0| 61 72 73 32 20 76 31 2e | 30 30 62 0a 20 20 20 20 |ars2 v1.|00b.    |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 20 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |      --|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0a |--------|-------.|
|00000320| 0a 20 54 68 69 73 20 61 | 70 70 6c 69 63 61 74 69 |. This a|pplicati|
|00000330| 6f 6e 20 64 69 73 70 6c | 61 79 73 20 74 68 65 20 |on displ|ays the |
|00000340| 63 68 61 72 61 63 74 65 | 72 20 73 65 74 20 69 6e |characte|r set in|
|00000350| 20 61 20 77 69 6e 64 6f | 77 2e 20 54 68 65 20 75 | a windo|w. The u|
|00000360| 73 65 72 20 63 61 6e 20 | 63 6c 69 63 6b 0a 53 45 |ser can |click.SE|
|00000370| 4c 45 43 54 20 6f 6e 20 | 61 20 63 68 61 72 61 63 |LECT on |a charac|
|00000380| 74 65 72 20 74 6f 20 65 | 6e 74 65 72 20 74 68 61 |ter to e|nter tha|
|00000390| 74 20 63 68 61 72 61 63 | 74 65 72 20 61 73 20 69 |t charac|ter as i|
|000003a0| 66 20 66 72 6f 6d 20 74 | 68 65 20 6b 65 79 62 6f |f from t|he keybo|
|000003b0| 61 72 64 2e 0a 44 69 66 | 66 65 72 65 6e 74 20 22 |ard..Dif|ferent "|
|000003c0| 66 61 6e 63 79 20 66 6f | 6e 74 73 22 20 63 61 6e |fancy fo|nts" can|
|000003d0| 20 62 65 20 73 65 6c 65 | 63 74 65 64 20 77 69 74 | be sele|cted wit|
|000003e0| 68 20 74 68 65 20 6d 65 | 6e 75 3a 20 75 6e 6c 69 |h the me|nu: unli|
|000003f0| 6b 65 20 74 68 65 20 64 | 65 66 61 75 6c 74 0a 64 |ke the d|efault.d|
|00000400| 69 73 70 6c 61 79 2c 20 | 6f 6e 6c 79 20 74 68 65 |isplay, |only the|
|00000410| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 74 | charact|ers in t|
|00000420| 68 65 20 66 6f 6e 74 20 | 77 69 6c 6c 20 62 65 20 |he font |will be |
|00000430| 73 68 6f 77 6e 2e 20 54 | 68 65 20 74 6f 70 20 72 |shown. T|he top r|
|00000440| 6f 77 20 6f 66 0a 63 68 | 61 72 61 63 74 65 72 73 |ow of.ch|aracters|
|00000450| 2c 20 73 68 6f 77 6e 20 | 69 6e 20 69 6e 76 65 72 |, shown |in inver|
|00000460| 73 65 20 76 69 64 65 6f | 20 77 69 74 68 20 74 68 |se video| with th|
|00000470| 65 20 53 79 73 74 65 6d | 20 46 6f 6e 74 20 6f 6e |e System| Font on|
|00000480| 6c 79 2c 20 63 6f 72 72 | 65 73 70 6f 6e 64 20 74 |ly, corr|espond t|
|00000490| 6f 0a 63 6f 6e 74 72 6f | 6c 20 63 68 61 72 61 63 |o.contro|l charac|
|000004a0| 74 65 72 73 20 28 65 67 | 20 63 6c 69 63 6b 69 6e |ters (eg| clickin|
|000004b0| 67 20 6f 6e 20 74 68 65 | 20 69 6e 76 65 72 73 65 |g on the| inverse|
|000004c0| 20 76 69 64 65 6f 20 4c | 20 69 73 20 74 68 65 20 | video L| is the |
|000004d0| 73 61 6d 65 20 61 73 20 | 74 79 70 69 6e 67 0a 63 |same as |typing.c|
|000004e0| 74 72 6c 2d 4c 20 69 65 | 20 63 68 61 72 61 63 74 |trl-L ie| charact|
|000004f0| 65 72 20 31 32 29 2e 0a | 0a 20 41 6e 20 65 78 74 |er 12)..|. An ext|
|00000500| 72 61 20 66 61 63 69 6c | 69 74 79 20 69 73 20 70 |ra facil|ity is p|
|00000510| 72 6f 76 69 64 65 64 20 | 66 6f 72 20 65 6e 74 65 |rovided |for ente|
|00000520| 72 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 73 20 |ring cha|racters |
|00000530| 69 6e 74 6f 20 61 20 6d | 65 6e 75 20 69 74 65 6d |into a m|enu item|
|00000540| 2e 0a 42 65 63 61 75 73 | 65 20 63 6c 69 63 6b 69 |..Becaus|e clicki|
|00000550| 6e 67 20 69 6e 20 61 6e | 6f 74 68 65 72 20 77 69 |ng in an|other wi|
|00000560| 6e 64 6f 77 20 77 6f 75 | 6c 64 20 63 6c 6f 73 65 |ndow wou|ld close|
|00000570| 20 61 6e 79 20 65 78 69 | 73 74 69 6e 67 20 6d 65 | any exi|sting me|
|00000580| 6e 75 20 74 72 65 65 2c | 0a 21 43 68 61 72 73 20 |nu tree,|.!Chars |
|00000590| 61 6c 6c 6f 77 73 20 79 | 6f 75 20 74 6f 20 70 72 |allows y|ou to pr|
|000005a0| 65 73 73 20 74 68 65 20 | 43 74 72 6c 20 6b 65 79 |ess the |Ctrl key|
|000005b0| 20 77 68 69 6c 65 20 74 | 68 65 20 70 6f 69 6e 74 | while t|he point|
|000005c0| 65 72 20 69 73 20 6f 76 | 65 72 20 61 0a 63 68 61 |er is ov|er a.cha|
|000005d0| 72 61 63 74 65 72 20 69 | 6e 20 69 74 73 20 77 69 |racter i|n its wi|
|000005e0| 6e 64 6f 77 2c 20 77 68 | 69 63 68 20 68 61 73 20 |ndow, wh|ich has |
|000005f0| 74 68 65 20 73 61 6d 65 | 20 65 66 66 65 63 74 20 |the same| effect |
|00000600| 61 73 20 63 6c 69 63 6b | 69 6e 67 20 53 45 4c 45 |as click|ing SELE|
|00000610| 43 54 20 6f 6e 20 74 68 | 65 0a 63 68 61 72 61 63 |CT on th|e.charac|
|00000620| 74 65 72 2c 20 62 75 74 | 20 64 6f 65 73 20 6e 6f |ter, but| does no|
|00000630| 74 20 63 6c 6f 73 65 20 | 61 6e 79 20 6d 65 6e 75 |t close |any menu|
|00000640| 73 2e 0a 20 20 4e 4f 54 | 45 20 74 68 69 73 20 68 |s..  NOT|E this h|
|00000650| 61 73 20 62 65 65 6e 20 | 63 68 61 6e 67 65 64 20 |as been |changed |
|00000660| 74 6f 20 43 54 52 4c 2c | 20 61 73 20 69 74 20 69 |to CTRL,| as it i|
|00000670| 74 20 69 73 20 73 6f 6f | 6f 6f 6f 6f 20 61 67 67 |t is soo|oooo agg|
|00000680| 72 61 76 61 74 69 6e 67 | 20 77 68 65 6e 0a 79 6f |ravating| when.yo|
|00000690| 75 20 61 72 65 20 74 79 | 70 69 6e 67 20 61 6e 64 |u are ty|ping and|
|000006a0| 20 75 73 69 6e 67 20 73 | 68 69 66 74 20 74 6f 20 | using s|hift to |
|000006b0| 67 65 74 20 63 61 70 69 | 74 61 6c 73 20 6f 72 20 |get capi|tals or |
|000006c0| 22 21 24 20 65 74 63 2c | 20 61 6e 64 20 61 6e 20 |"!$ etc,| and an |
|000006d0| 65 78 74 72 61 0a 63 68 | 61 72 61 63 74 65 72 20 |extra.ch|aracter |
|000006e0| 69 73 20 69 6e 73 65 72 | 74 65 64 20 62 65 63 61 |is inser|ted beca|
|000006f0| 75 73 65 20 79 6f 75 20 | 66 6f 72 67 6f 74 20 74 |use you |forgot t|
|00000700| 6f 20 6d 6f 76 65 20 74 | 68 65 20 70 6f 69 6e 74 |o move t|he point|
|00000710| 65 72 20 6f 66 66 20 74 | 68 65 20 43 68 61 72 73 |er off t|he Chars|
|00000720| 0a 77 69 6e 64 6f 77 21 | 0a 0a 0a 20 54 68 69 73 |.window!|... This|
|00000730| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 21 43 68 61 | version| of !Cha|
|00000740| 72 73 20 28 61 73 20 69 | 74 20 77 61 73 20 6f 72 |rs (as i|t was or|
|00000750| 69 67 69 6e 61 6c 79 20 | 63 61 6c 6c 65 64 29 20 |iginaly |called) |
|00000760| 69 73 20 61 20 64 65 6d | 6f 6e 73 74 72 61 74 69 |is a dem|onstrati|
|00000770| 6f 6e 20 6f 66 0a 74 68 | 65 20 75 73 65 20 6f 66 |on of.th|e use of|
|00000780| 20 46 6f 6e 74 4d 65 6e | 75 2e 20 49 74 20 69 73 | FontMen|u. It is|
|00000790| 20 61 64 61 70 74 65 64 | 20 62 79 20 4a 2e 52 d6 | adapted| by J.R.|
|000007a0| 6c 69 6e 67 2c 20 74 68 | 65 20 61 75 74 68 6f 72 |ling, th|e author|
|000007b0| 20 6f 66 20 46 6f 6e 74 | 4d 65 6e 75 2e 20 53 65 | of Font|Menu. Se|
|000007c0| 65 0a 74 68 65 20 64 6f | 63 6f 6d 65 6e 74 61 74 |e.the do|comentat|
|000007d0| 69 6f 6e 20 6f 66 20 46 | 6f 6e 74 4d 65 6e 75 20 |ion of F|ontMenu |
|000007e0| 28 46 6e 74 4d 65 6e 75 | 44 6f 63 29 20 66 6f 72 |(FntMenu|Doc) for|
|000007f0| 20 61 20 64 65 74 61 69 | 6c 65 64 20 64 69 73 63 | a detai|led disc|
|00000800| 72 69 70 74 69 6f 6e 20 | 6f 66 20 68 6f 77 0a 74 |ription |of how.t|
|00000810| 6f 20 70 72 6f 67 72 61 | 6d 20 75 73 69 6e 67 20 |o progra|m using |
|00000820| 74 68 65 20 46 6f 6e 74 | 4d 65 6e 75 20 6d 65 6e |the Font|Menu men|
|00000830| 75 2e 20 53 65 65 20 61 | 6c 73 6f 20 74 68 65 20 |u. See a|lso the |
|00000840| 28 42 41 53 49 43 29 20 | 21 52 75 6e 49 6d 61 67 |(BASIC) |!RunImag|
|00000850| 65 20 66 69 6c 65 20 66 | 6f 72 0a 69 74 73 20 63 |e file f|or.its c|
|00000860| 6f 6d 6d 65 6e 74 73 2e | 20 28 21 52 75 6e 49 6d |omments.| (!RunIm|
|00000870| 61 67 65 43 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |ageC con|tains th|
|00000880| 65 20 27 48 61 72 64 20 | 77 61 79 27 2c 20 61 73 |e 'Hard |way', as|
|00000890| 20 64 69 73 63 72 69 62 | 65 64 20 69 6e 20 46 6e | discrib|ed in Fn|
|000008a0| 74 4d 65 6e 75 44 6f 63 | 29 20 20 28 4a 2e 52 d6 |tMenuDoc|)  (J.R.|
|000008b0| 6c 69 6e 67 29 0a 0a 20 | 20 20 20 20 20 20 20 20 |ling).. |        |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a |        |       .|
|000008f0| 0a 20 20 54 68 69 73 20 | 76 65 72 73 69 6f 6e 20 |.  This |version |
|00000900| 6f 66 20 21 43 68 61 72 | 73 20 6e 6f 77 20 68 61 |of !Char|s now ha|
|00000910| 73 20 61 6e 6f 74 68 65 | 72 20 75 73 65 66 75 6c |s anothe|r useful|
|00000920| 20 66 65 61 74 75 72 65 | 2d 20 59 6f 75 20 63 61 | feature|- You ca|
|00000930| 6e 20 72 65 73 69 7a 65 | 0a 74 68 65 20 63 68 61 |n resize|.the cha|
|00000940| 72 61 63 74 65 72 20 64 | 69 73 70 6c 61 79 20 74 |racter d|isplay t|
|00000950| 6f 20 6d 61 6b 65 20 74 | 68 65 20 63 68 61 72 61 |o make t|he chara|
|00000960| 63 74 65 72 73 20 62 69 | 67 67 65 72 2e 20 41 74 |cters bi|gger. At|
|00000970| 20 6c 61 73 74 2c 20 79 | 6f 75 20 77 69 6c 6c 20 | last, y|ou will |
|00000980| 62 65 0a 61 62 6c 65 20 | 74 6f 20 53 45 45 20 61 |be.able |to SEE a|
|00000990| 6c 6c 20 74 68 65 20 a8 | a9 aa ab ac ad ae af b0 |ll the .|........|
|000009a0| b1 b9 b2 b3 b4 b7 b8 bc | bd be 20 63 68 61 72 61 |........|.. chara|
|000009b0| 63 74 65 72 73 21 21 0a | 20 20 54 6f 20 64 6f 20 |cters!!.|  To do |
|000009c0| 74 68 69 73 2c 20 72 65 | 73 69 7a 65 20 74 68 65 |this, re|size the|
|000009d0| 20 77 69 6e 64 6f 77 20 | 69 6e 20 74 68 65 20 6e | window |in the n|
|000009e0| 6f 72 6d 61 6c 20 77 61 | 79 2c 20 74 68 65 6e 20 |ormal wa|y, then |
|000009f0| 62 72 69 6e 67 20 75 70 | 20 74 68 65 20 6d 65 6e |bring up| the men|
|00000a00| 75 0a 61 6e 64 20 63 68 | 6f 6f 73 65 20 27 52 65 |u.and ch|oose 'Re|
|00000a10| 73 69 7a 65 27 2e 20 54 | 68 69 73 20 77 69 6c 6c |size'. T|his will|
|00000a20| 20 73 63 61 6c 65 20 74 | 68 65 20 63 68 61 72 61 | scale t|he chara|
|00000a30| 63 74 65 72 73 20 74 6f | 20 66 69 74 20 69 6e 74 |cters to| fit int|
|00000a40| 6f 20 74 68 65 20 6e 65 | 77 0a 77 69 6e 64 6f 77 |o the ne|w.window|
|00000a50| 20 73 69 7a 65 2e 20 59 | 6f 75 20 63 61 6e 20 6e | size. Y|ou can n|
|00000a60| 6f 77 20 61 6c 73 6f 20 | 6d 61 6b 65 20 74 68 65 |ow also |make the|
|00000a70| 20 77 69 6e 64 6f 77 20 | 73 6d 61 6c 6c 65 72 20 | window |smaller |
|00000a80| 61 67 61 69 6e 2c 20 61 | 6e 64 20 62 79 0a 73 63 |again, a|nd by.sc|
|00000a90| 72 6f 6c 6c 69 6e 67 2c | 20 73 68 6f 77 20 6f 6e |rolling,| show on|
|00000aa0| 6c 79 20 74 68 6f 73 65 | 20 6c 69 6e 65 73 20 6f |ly those| lines o|
|00000ab0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 74 68 61 |f charac|ters tha|
|00000ac0| 74 20 79 6f 75 20 6e 65 | 65 64 2c 20 77 68 69 63 |t you ne|ed, whic|
|00000ad0| 68 20 6d 61 6b 65 73 0a | 74 68 69 73 20 75 74 69 |h makes.|this uti|
|00000ae0| 6c 69 74 79 20 66 61 72 | 20 6d 6f 72 65 20 65 61 |lity far| more ea|
|00000af0| 73 79 20 74 6f 20 75 73 | 65 2c 20 61 6e 64 20 79 |sy to us|e, and y|
|00000b00| 6f 75 20 63 61 6e 20 6d | 6f 72 65 20 65 61 73 69 |ou can m|ore easi|
|00000b10| 6c 79 20 69 64 65 6e 74 | 69 66 79 20 74 68 6f 73 |ly ident|ify thos|
|00000b20| 65 0a 73 71 75 69 74 74 | 79 20 63 68 61 72 61 63 |e.squitt|y charac|
|00000b30| 74 65 72 73 21 20 20 28 | 4a 2e 57 69 6c 6c 69 61 |ters!  (|J.Willia|
|00000b40| 6d 73 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ms)     |        |
|00000b50| 20 20 20 20 20 0a 0a 46 | 69 6c 65 44 61 74 61 82 |     ..F|ileData.|
|00000b60| 21 52 75 6e 00 04 00 00 | 00 00 00 c1 00 00 00 42 |!Run....|.......B|
|00000b70| eb ff ff 52 cf cd 5e 03 | 00 37 02 7c 20 76 65 72 |...R..^.|.7.| ver|
|00000b80| 73 69 6f 6e 20 30 2e 32 | 30 20 28 32 33 74 68 20 |sion 0.2|0 (23th |
|00000b90| 41 70 72 69 6c 20 31 39 | 39 30 29 0a 52 4d 45 6e |April 19|90).RMEn|
|00000ba0| 73 75 72 65 20 46 6f 6e | 74 4d 65 6e 75 20 31 2e |sure Fon|tMenu 1.|
|00000bb0| 30 36 20 52 4d 4c 6f 61 | 64 20 3c 4f 62 65 79 24 |06 RMLoa|d <Obey$|
|00000bc0| 44 69 72 3e 2e 46 6f 6e | 74 4d 65 6e 75 0a 52 4d |Dir>.Fon|tMenu.RM|
|00000bd0| 45 6e 73 75 72 65 20 46 | 6f 6e 74 4d 65 6e 75 20 |Ensure F|ontMenu |
|00000be0| 31 2e 30 36 20 45 72 72 | 6f 72 20 30 20 43 61 6e |1.06 Err|or 0 Can|
|00000bf0| 27 74 20 66 69 6e 64 20 | 46 6f 6e 74 4d 65 6e 75 |'t find |FontMenu|
|00000c00| 20 6d 6f 64 75 6c 65 0a | 57 69 6d 70 53 6c 6f 74 | module.|WimpSlot|
|00000c10| 20 2d 6d 69 6e 20 32 34 | 6b 20 2d 6d 61 78 20 32 | -min 24|k -max 2|
|00000c20| 34 6b 0a 52 75 6e 20 3c | 4f 62 65 79 24 44 69 72 |4k.Run <|Obey$Dir|
|00000c30| 3e 2e 21 52 75 6e 49 6d | 61 67 65 0a 46 69 6c 65 |>.!RunIm|age.File|
|00000c40| 44 61 74 61 82 21 52 75 | 6e 49 6d 61 67 65 00 00 |Data.!Ru|nImage..|
|00000c50| 8a 26 00 00 42 fb ff ff | 57 d4 cd a8 03 00 9b 42 |.&..B...|W......B|
|00000c60| 0d 00 0a 28 f4 20 3e 20 | 3a 30 2e 21 4e 65 77 43 |...(. > |:0.!NewC|
|00000c70| 68 61 72 73 32 2e 21 52 | 75 6e 49 6d 61 67 65 20 |hars2.!R|unImage |
|00000c80| 56 31 2e 30 30 62 20 3c | 0d 00 14 2d f4 20 44 65 |V1.00b <|...-. De|
|00000c90| 72 69 76 65 64 20 66 72 | 6f 6d 20 56 65 72 73 69 |rived fr|om Versi|
|00000ca0| 6f 6e 20 30 2e 32 30 20 | 28 32 33 20 41 70 72 69 |on 0.20 |(23 Apri|
|00000cb0| 6c 20 38 39 29 0d 00 1e | 26 f4 20 43 6f 70 79 72 |l 89)...|&. Copyr|
|00000cc0| 69 67 68 74 20 a9 20 41 | 63 6f 72 6e 20 43 6f 6d |ight . A|corn Com|
|00000cd0| 70 75 74 65 72 73 20 31 | 39 38 39 0d 00 28 3b f4 |puters 1|989..(;.|
|00000ce0| 20 43 68 61 6e 67 65 64 | 20 6d 61 64 65 20 62 79 | Changed| made by|
|00000cf0| 20 4a 2e 52 d6 6c 69 6e | 67 20 74 6f 20 61 6c 6c | J.R.lin|g to all|
|00000d00| 6f 77 20 74 68 65 20 75 | 73 65 20 6f 66 20 46 6f |ow the u|se of Fo|
|00000d10| 6e 74 4d 65 6e 75 0d 00 | 32 04 0d 00 3c 46 f4 20 |ntMenu..|2...<F. |
|00000d20| 43 68 61 6e 67 65 64 20 | 62 79 20 4a 61 73 6f 6e |Changed |by Jason|
|00000d30| 20 57 69 6c 6c 69 61 6d | 73 20 74 6f 20 61 6c 6c | William|s to all|
|00000d40| 6f 77 20 72 65 73 69 7a | 69 6e 67 20 6f 66 20 77 |ow resiz|ing of w|
|00000d50| 69 6e 64 6f 77 2c 20 62 | 75 67 20 66 69 78 65 73 |indow, b|ug fixes|
|00000d60| 0d 00 46 40 f4 20 28 32 | 31 20 53 65 70 74 65 6d |..F@. (2|1 Septem|
|00000d70| 62 65 72 20 27 39 30 29 | 2e 20 53 65 61 72 63 68 |ber '90)|. Search|
|00000d80| 20 66 6f 72 20 2a 2a 2a | 2a 20 66 6f 72 20 6d 79 | for ***|* for my|
|00000d90| 20 61 64 64 69 74 69 6f | 6e 73 2f 66 69 78 65 73 | additio|ns/fixes|
|00000da0| 0d 00 50 05 3a 0d 00 5a | 05 3a 0d 00 64 05 3a 0d |..P.:..Z|.:..d.:.|
|00000db0| 00 6e 05 3a 0d 00 78 3c | f4 20 20 20 20 20 20 20 |.n.:..x<|.       |
|00000dc0| 20 20 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |   This |program |
|00000dd0| 64 65 6d 6f 6e 73 74 72 | 61 74 65 73 20 74 68 65 |demonstr|ates the|
|00000de0| 20 75 73 65 20 6f 66 20 | 46 6f 6e 74 4d 65 6e 75 | use of |FontMenu|
|00000df0| 0d 00 82 05 f4 0d 00 8c | 05 f4 0d 00 96 40 f4 20 |........|.....@. |
|00000e00| 20 20 20 20 20 20 20 20 | 20 41 6c 6c 20 46 6f 6e |        | All Fon|
|00000e10| 74 4d 65 6e 75 20 73 70 | 65 63 69 66 69 63 20 63 |tMenu sp|ecific c|
|00000e20| 6f 64 65 20 69 73 20 6d | 61 72 6b 65 64 20 77 69 |ode is m|arked wi|
|00000e30| 74 68 20 52 45 4d 20 23 | 23 23 0d 00 a0 41 f4 20 |th REM #|##...A. |
|00000e40| 20 20 20 20 20 20 20 20 | 20 66 6f 6c 6c 6f 77 65 |        | followe|
|00000e50| 64 20 62 79 20 61 20 64 | 69 73 63 72 69 70 74 69 |d by a d|iscripti|
|00000e60| 6f 6e 20 6f 66 20 74 68 | 65 20 73 70 65 63 69 66 |on of th|e specif|
|00000e70| 69 63 20 6d 65 61 6e 69 | 6e 67 2e 0d 00 aa 38 f4 |ic meani|ng....8.|
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 4e 6f 74 65 20 74 |        |  Note t|
|00000e90| 68 65 20 75 73 65 20 6f | 66 20 74 68 65 20 48 6f |he use o|f the Ho|
|00000ea0| 75 72 67 6c 61 73 73 20 | 73 74 61 74 65 6d 65 6e |urglass |statemen|
|00000eb0| 74 73 2e 0d 00 b4 05 3a | 0d 00 be 05 3a 0d 00 c8 |ts.....:|....:...|
|00000ec0| 05 3a 0d 00 d2 05 3a 0d | 00 dc 41 de 20 54 41 53 |.:....:.|..A. TAS|
|00000ed0| 4b 20 34 2c 20 71 25 20 | 31 35 31 32 2c 20 43 24 |K 4, q% |1512, C$|
|00000ee0| 28 38 29 2c 20 43 68 61 | 72 44 65 66 20 38 2c 20 |(8), Cha|rDef 8, |
|00000ef0| 69 6e 64 5f 64 61 74 61 | 25 20 35 31 32 2c 20 6d |ind_data|% 512, m|
|00000f00| 65 6e 75 25 20 32 35 36 | 0d 00 e6 1f 4c 4d 25 3d |enu% 256|....LM%=|
|00000f10| 31 36 3a 52 4d 25 3d 31 | 36 3a 42 4d 25 3d 31 36 |16:RM%=1|6:BM%=16|
|00000f20| 3a 54 4d 25 3d 31 36 0d | 00 f0 04 0d 00 fa 15 4d |:TM%=16.|.......M|
|00000f30| 58 53 50 25 3d 32 34 3a | 4d 59 53 50 25 3d 34 34 |XSP%=24:|MYSP%=44|
|00000f40| 0d 01 04 29 66 73 31 25 | 3d 4d 58 53 50 25 2a 28 |...)fs1%|=MXSP%*(|
|00000f50| 31 31 2f 32 34 29 3a 66 | 73 32 25 3d 4d 59 53 50 |11/24):f|s2%=MYSP|
|00000f60| 25 2a 28 31 35 2f 34 34 | 29 0d 01 0e 04 0d 01 18 |%*(15/44|).......|
|00000f70| 0f e3 20 58 25 3d 30 20 | b8 20 33 31 0d 01 22 33 |.. X%=0 |. 31.."3|
|00000f80| 20 e7 20 58 25 3c 3d 31 | 35 20 8c 20 43 24 28 30 | . X%<=1|5 . C$(0|
|00000f90| 29 2b 3d a4 43 48 28 58 | 25 2c 30 29 20 8b 20 43 |)+=.CH(X|%,0) . C|
|00000fa0| 24 28 38 29 2b 3d a4 43 | 48 28 58 25 2c 30 29 0d |$(8)+=.C|H(X%,0).|
|00000fb0| 01 2c 24 20 e3 20 59 25 | 3d 31 20 b8 20 37 3a 43 |.,$ . Y%|=1 . 7:C|
|00000fc0| 24 28 59 25 29 2b 3d a4 | 43 48 28 58 25 2c 59 25 |$(Y%)+=.|CH(X%,Y%|
|00000fd0| 29 3a ed 0d 01 36 05 ed | 0d 01 40 29 52 24 3d bd |):...6..|..@)R$=.|
|00000fe0| 32 33 2b bd 33 32 2b c4 | 38 2c bd 30 29 3a 43 24 |23+.32+.|8,.0):C$|
|00000ff0| 28 33 29 2b 3d 52 24 3a | 43 24 28 38 29 2b 3d 52 |(3)+=R$:|C$(8)+=R|
|00001000| 24 0d 01 4a 04 0d 01 54 | 09 f4 20 23 23 23 0d 01 |$..J...T|.. ###..|
|00001010| 5e 46 f4 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |^F. The |followin|
|00001020| 67 20 73 74 61 74 65 6d | 65 6e 74 73 20 77 69 6c |g statem|ents wil|
|00001030| 6c 20 61 73 73 75 72 65 | 20 74 68 61 74 20 61 20 |l assure| that a |
|00001040| 76 61 6c 69 64 20 66 6f | 6e 74 20 6d 65 6e 75 20 |valid fo|nt menu |
|00001050| 77 69 6c 6c 0d 01 68 47 | f4 20 62 65 20 61 76 61 |will..hG|. be ava|
|00001060| 69 6c 61 62 6c 65 2e 20 | 49 66 20 74 68 69 73 20 |ilable. |If this |
|00001070| 6d 65 6e 75 20 61 6c 72 | 65 61 64 79 20 65 78 69 |menu alr|eady exi|
|00001080| 73 74 73 2c 20 69 74 20 | 77 69 6c 6c 20 6e 6f 74 |sts, it |will not|
|00001090| 20 62 65 20 63 72 65 61 | 74 65 64 0d 01 72 0c f4 | be crea|ted..r..|
|000010a0| 20 61 67 61 69 6e 2e 0d | 01 7c 04 0d 01 86 15 c8 | again..|.|......|
|000010b0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|000010c0| 0d 01 90 18 c8 99 20 22 | 46 6f 6e 74 4d 65 6e 75 |...... "|FontMenu|
|000010d0| 5f 43 72 65 61 74 65 22 | 0d 01 9a 16 c8 99 20 22 |_Create"|...... "|
|000010e0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 01 |Hourglas|s_Off"..|
|000010f0| a4 04 0d 01 ae 26 66 6f | 6e 74 24 3d 22 53 79 73 |.....&fo|nt$="Sys|
|00001100| 74 65 6d 20 46 6f 6e 74 | 22 3a 63 75 72 66 25 3d |tem Font|":curf%=|
|00001110| 2d 31 3a f2 76 61 72 73 | 0d 01 b8 4a 48 6f 74 4b |-1:.vars|...JHotK|
|00001120| 65 79 25 3d 2d 32 20 20 | 3a f4 20 43 54 52 4c 20 |ey%=-2  |:. CTRL |
|00001130| 6b 65 79 20 28 4e 6f 74 | 65 20 74 68 61 74 20 74 |key (Not|e that t|
|00001140| 68 69 73 20 69 73 20 61 | 20 63 68 61 6e 67 65 20 |his is a| change |
|00001150| 66 72 6f 6d 20 74 68 65 | 20 6f 72 69 67 69 6e 61 |from the| origina|
|00001160| 6c 29 0d 01 c2 49 24 54 | 41 53 4b 3d 22 54 41 53 |l)...I$T|ASK="TAS|
|00001170| 4b 22 3a c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |K":.."Wi|mp_Initi|
|00001180| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 54 41 53 4b |alise",2|00,!TASK|
|00001190| 2c 22 43 68 61 72 61 63 | 74 65 72 73 22 20 b8 20 |,"Charac|ters" . |
|000011a0| 2c 54 61 73 6b 48 61 6e | 64 6c 65 0d 01 cc 0e f2 |,TaskHan|dle.....|
|000011b0| 74 65 6d 70 6c 61 74 65 | 73 0d 01 d6 29 21 71 25 |template|s...)!q%|
|000011c0| 3d 57 69 6e 64 6f 77 48 | 61 6e 64 6c 65 3a 71 25 |=WindowH|andle:q%|
|000011d0| 21 32 38 3d 2d 31 3a f2 | 4f 70 65 6e 57 69 6e 64 |!28=-1:.|OpenWind|
|000011e0| 6f 77 0d 01 e0 4a 50 6f | 6c 6c 46 6c 61 67 73 3d |ow...JPo|llFlags=|
|000011f0| ac 28 28 31 3c 3c 31 29 | 2b 28 31 3c 3c 32 29 2b |.((1<<1)|+(1<<2)+|
|00001200| 28 31 3c 3c 33 29 2b 28 | 31 3c 3c 34 29 2b 28 31 |(1<<3)+(|1<<4)+(1|
|00001210| 3c 3c 35 29 2b 28 31 3c | 3c 36 29 2b 28 31 3c 3c |<<5)+(1<|<6)+(1<<|
|00001220| 31 37 29 2b 28 31 3c 3c | 31 38 29 29 0d 01 ea 04 |17)+(1<<|18))....|
|00001230| 0d 01 f4 05 f5 0d 01 fe | 23 20 c8 99 20 50 6f 6c |........|# .. Pol|
|00001240| 6c 25 2c 50 6f 6c 6c 46 | 6c 61 67 73 2c 71 25 20 |l%,PollF|lags,q% |
|00001250| b8 20 72 65 61 73 6f 6e | 0d 02 08 10 20 c8 8e 20 |. reason|.... .. |
|00001260| 72 65 61 73 6f 6e 20 ca | 0d 02 12 16 20 c9 20 30 |reason .|.... . 0|
|00001270| 3a 20 f2 43 68 65 63 6b | 48 6f 74 4b 65 79 0d 02 |: .Check|HotKey..|
|00001280| 1c 17 20 c9 20 31 3a 20 | f2 52 65 64 72 61 77 57 |.. . 1: |.RedrawW|
|00001290| 69 6e 64 6f 77 0d 02 26 | 15 20 c9 20 32 3a 20 f2 |indow..&|. . 2: .|
|000012a0| 4f 70 65 6e 57 69 6e 64 | 6f 77 0d 02 30 16 20 c9 |OpenWind|ow..0. .|
|000012b0| 20 33 3a 20 f2 43 6c 6f | 73 65 57 69 6e 64 6f 77 | 3: .Clo|seWindow|
|000012c0| 0d 02 3a 19 20 c9 20 34 | 3a 20 f2 50 6f 69 6e 74 |..:. . 4|: .Point|
|000012d0| 65 72 4c 65 61 76 69 6e | 67 0d 02 44 1a 20 c9 20 |erLeavin|g..D. . |
|000012e0| 35 3a 20 f2 50 6f 69 6e | 74 65 72 45 6e 74 65 72 |5: .Poin|terEnter|
|000012f0| 69 6e 67 0d 02 4e 36 20 | c9 20 36 3a 20 f2 43 68 |ing..N6 |. 6: .Ch|
|00001300| 65 63 6b 4d 6f 75 73 65 | 28 21 71 25 2c 71 25 21 |eckMouse|(!q%,q%!|
|00001310| 34 2c 71 25 21 38 2c 71 | 25 21 31 32 2c 71 25 21 |4,q%!8,q|%!12,q%!|
|00001320| 31 36 2c 71 25 21 32 30 | 29 0d 02 58 16 20 c9 20 |16,q%!20|)..X. . |
|00001330| 39 3a 20 f2 6d 65 6e 75 | 5f 73 65 6c 65 63 74 0d |9: .menu|_select.|
|00001340| 02 62 16 20 c9 20 31 37 | 2c 31 38 3a 20 f2 4d 65 |.b. . 17|,18: .Me|
|00001350| 73 73 61 67 65 0d 02 6c | 06 20 cb 0d 02 76 07 fd |ssage..l|. ...v..|
|00001360| 20 a3 0d 02 80 05 e0 0d | 02 8a 05 3a 0d 02 94 12 | .......|...:....|
|00001370| dd 20 f2 43 68 65 63 6b | 48 6f 74 4b 65 79 0d 02 |. .Check|HotKey..|
|00001380| 9e 15 49 73 44 6f 77 6e | 25 3d a6 20 48 6f 74 4b |..IsDown|%=. HotK|
|00001390| 65 79 25 0d 02 a8 1c e7 | 20 49 73 44 6f 77 6e 25 |ey%.....| IsDown%|
|000013a0| 20 80 20 ac 20 57 61 73 | 44 6f 77 6e 25 20 8c 0d | . . Was|Down% ..|
|000013b0| 02 b2 10 20 c8 99 20 47 | 65 74 50 2c 2c 71 25 0d |... .. G|etP,,q%.|
|000013c0| 02 bc 0c 20 f2 44 6f 43 | 68 61 72 0d 02 c6 05 cd |... .DoC|har.....|
|000013d0| 0d 02 d0 14 57 61 73 44 | 6f 77 6e 25 3d 49 73 44 |....WasD|own%=IsD|
|000013e0| 6f 77 6e 25 0d 02 da 05 | e1 0d 02 e4 05 3a 0d 02 |own%....|.....:..|
|000013f0| ee 19 dd 20 f2 72 65 73 | 65 74 73 69 7a 65 20 3a |... .res|etsize :|
|00001400| ea 20 58 25 2c 59 25 0d | 02 f8 41 f4 20 2a 2a 2a |. X%,Y%.|..A. ***|
|00001410| 2a 20 43 61 6c 6c 65 64 | 20 77 68 65 6e 20 75 73 |* Called| when us|
|00001420| 65 72 20 68 61 73 20 72 | 65 73 69 7a 65 64 20 77 |er has r|esized w|
|00001430| 69 6e 64 6f 77 20 61 6e | 64 20 74 68 65 6e 20 63 |indow an|d then c|
|00001440| 6c 69 63 6b 73 20 6f 6e | 0d 03 02 3d f4 20 20 20 |licks on|...=.   |
|00001450| 20 20 20 27 52 65 73 69 | 7a 65 27 20 6f 72 20 77 |   'Resi|ze' or w|
|00001460| 68 61 74 65 76 65 72 20 | 49 20 65 76 65 6e 74 75 |hatever |I eventu|
|00001470| 61 6c 6c 79 20 63 61 6c | 6c 65 64 20 69 74 20 6f |ally cal|led it o|
|00001480| 70 74 69 6f 6e 0d 03 0c | 48 f4 20 2d 52 65 2d 63 |ption...|H. -Re-c|
|00001490| 61 6c 63 75 6c 61 74 65 | 73 20 43 68 61 72 61 63 |alculate|s Charac|
|000014a0| 74 65 72 20 73 70 61 63 | 69 6e 67 20 61 6e 64 20 |ter spac|ing and |
|000014b0| 73 69 7a 65 20 63 6f 6e | 73 74 61 6e 74 73 2c 20 |size con|stants, |
|000014c0| 66 6f 72 63 65 73 20 72 | 65 64 72 61 77 0d 03 16 |forces r|edraw...|
|000014d0| 04 0d 03 20 14 21 71 25 | 3d 57 69 6e 64 6f 77 48 |... .!q%|=WindowH|
|000014e0| 61 6e 64 6c 65 0d 03 2a | 1f c8 99 20 22 57 69 6d |andle..*|... "Wim|
|000014f0| 70 5f 47 65 74 57 69 6e | 64 6f 77 49 6e 66 6f 22 |p_GetWin|dowInfo"|
|00001500| 2c 2c 71 25 0d 03 34 3a | 58 25 3d 71 25 21 31 32 |,,q%..4:|X%=q%!12|
|00001510| 2d 71 25 21 34 20 20 20 | 20 20 20 20 20 20 20 20 |-q%!4   |        |
|00001520| 20 20 20 20 20 3a f4 20 | 47 65 74 20 58 2c 59 20 |     :. |Get X,Y |
|00001530| 73 69 7a 65 20 6f 66 20 | 77 69 6e 64 6f 77 0d 03 |size of |window..|
|00001540| 3e 1a 59 25 3d 28 71 25 | 21 31 36 2d 71 25 21 38 |>.Y%=(q%|!16-q%!8|
|00001550| 29 3c 3c 59 45 49 47 25 | 0d 03 48 04 0d 03 52 13 |)<<YEIG%|..H...R.|
|00001560| 71 25 21 32 30 3d 30 3a | 71 25 21 32 34 3d 30 0d |q%!20=0:|q%!24=0.|
|00001570| 03 5c 37 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.\7.. "W|imp_Open|
|00001580| 57 69 6e 64 6f 77 22 2c | 2c 71 25 20 20 20 20 3a |Window",|,q%    :|
|00001590| f4 20 52 65 73 65 74 20 | 73 63 72 6f 6c 6c 20 6f |. Reset |scroll o|
|000015a0| 66 66 73 65 74 73 0d 03 | 66 04 0d 03 70 38 4d 58 |ffsets..|f...p8MX|
|000015b0| 53 50 25 3d 94 28 58 25 | 2d 4c 4d 25 2d 52 4d 25 |SP%=.(X%|-LM%-RM%|
|000015c0| 29 3e 3e 35 20 20 20 20 | 20 3a f4 20 47 65 74 20 |)>>5    | :. Get |
|000015d0| 6e 65 77 20 73 70 61 63 | 69 6e 67 20 63 6f 6e 73 |new spac|ing cons|
|000015e0| 74 73 0d 03 7a 1a 4d 59 | 53 50 25 3d 94 28 59 25 |ts..z.MY|SP%=.(Y%|
|000015f0| 2d 54 4d 25 2d 42 4d 25 | 29 3e 3e 35 0d 03 84 3d |-TM%-BM%|)>>5...=|
|00001600| 66 73 31 25 3d 4d 58 53 | 50 25 2a 28 31 31 2f 32 |fs1%=MXS|P%*(11/2|
|00001610| 34 29 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |4)      |     :. |
|00001620| 43 61 6c 63 20 6e 65 77 | 20 66 6f 6e 74 20 73 69 |Calc new| font si|
|00001630| 7a 65 20 63 6f 6e 73 74 | 73 0d 03 8e 16 66 73 32 |ze const|s....fs2|
|00001640| 25 3d 4d 59 53 50 25 2a | 28 31 35 2f 34 34 29 0d |%=MYSP%*|(15/44).|
|00001650| 03 98 04 0d 03 a2 13 e7 | 20 66 73 31 25 3c 31 20 |........| fs1%<1 |
|00001660| 66 73 31 25 3d 31 0d 03 | ac 13 e7 20 66 73 32 25 |fs1%=1..|... fs2%|
|00001670| 3c 31 20 66 73 32 25 3d | 31 0d 03 b6 04 0d 03 c0 |<1 fs2%=|1.......|
|00001680| 26 e7 63 75 72 66 25 3e | 2d 31 20 80 20 66 6f 6e |&.curf%>|-1 . fon|
|00001690| 74 24 3c 3e 22 53 79 73 | 74 65 6d 20 46 6f 6e 74 |t$<>"Sys|tem Font|
|000016a0| 22 20 8c 0d 03 ca 42 20 | c8 99 4c 6f 73 65 46 6f |" ....B |..LoseFo|
|000016b0| 6e 74 2c 63 75 72 66 25 | 20 20 20 20 20 20 20 20 |nt,curf%|        |
|000016c0| 20 20 20 3a f4 20 45 6e | 73 75 72 65 20 63 6f 72 |   :. En|sure cor|
|000016d0| 72 65 63 74 20 66 6f 6e | 74 20 73 69 7a 65 20 6c |rect fon|t size l|
|000016e0| 6f 61 64 65 64 0d 03 d4 | 2e 20 c8 99 46 69 6e 64 |oaded...|. ..Find|
|000016f0| 46 6f 6e 74 2c 2c 66 6f | 6e 74 24 2c 66 73 31 25 |Font,,fo|nt$,fs1%|
|00001700| 2a 31 36 2c 66 73 32 25 | 2a 31 36 20 b8 20 63 75 |*16,fs2%|*16 . cu|
|00001710| 72 66 25 0d 03 de 05 cd | 0d 03 e8 04 0d 03 f2 43 |rf%.....|.......C|
|00001720| c8 99 20 53 63 72 65 65 | 6e 2c 57 69 6e 64 6f 77 |.. Scree|n,Window|
|00001730| 48 61 6e 64 6c 65 2c 30 | 2c 2d 32 30 34 38 2c 32 |Handle,0|,-2048,2|
|00001740| 30 34 38 2c 30 20 3a f4 | 20 46 6f 72 63 65 20 72 |048,0 :.| Force r|
|00001750| 65 64 72 61 77 20 6f 66 | 20 77 69 6e 64 6f 77 0d |edraw of| window.|
|00001760| 03 fc 05 e1 0d 04 06 05 | 3a 0d 04 10 13 dd 20 f2 |........|:..... .|
|00001770| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 0d 04 1a 1a |RedrawWi|ndow....|
|00001780| c8 99 20 52 65 64 72 61 | 77 57 2c 2c 71 25 20 b8 |.. Redra|wW,,q% .|
|00001790| 20 66 6c 61 67 25 0d 04 | 24 0f e7 63 75 72 66 25 | flag%..|$..curf%|
|000017a0| 3e 2d 31 20 8c 0d 04 2e | 26 20 c8 99 20 53 65 74 |>-1 ....|& .. Set|
|000017b0| 46 6f 6e 74 2c 63 75 72 | 66 25 3a c8 99 20 53 65 |Font,cur|f%:.. Se|
|000017c0| 74 46 6f 6e 74 43 2c 2c | 30 2c 37 0d 04 38 05 cc |tFontC,,|0,7..8..|
|000017d0| 0d 04 42 2c 20 ef 32 33 | 2c 31 37 2c 37 2c 34 2c |..B, .23|,17,7,4,|
|000017e0| 4d 58 53 50 25 3e 3e 58 | 45 49 47 25 3b 4d 59 53 |MXSP%>>X|EIG%;MYS|
|000017f0| 50 25 3e 3e 59 45 49 47 | 25 3b 30 3b 0d 04 4c 05 |P%>>YEIG|%;0;..L.|
|00001800| cd 0d 04 56 0c c8 95 20 | 66 6c 61 67 25 0d 04 60 |...V... |flag%..`|
|00001810| 33 20 53 74 61 72 74 58 | 25 3d 71 25 21 34 2b 4c |3 StartX|%=q%!4+L|
|00001820| 4d 25 2d 71 25 21 32 30 | 3a 53 74 61 72 74 59 25 |M%-q%!20|:StartY%|
|00001830| 3d 71 25 21 31 36 2d 54 | 4d 25 2d 71 25 21 32 34 |=q%!16-T|M%-q%!24|
|00001840| 0d 04 6a 10 20 e7 63 75 | 72 66 25 3e 2d 31 20 8c |..j. .cu|rf%>-1 .|
|00001850| 0d 04 74 31 20 20 6f 78 | 30 25 3d 28 71 25 21 32 |..t1  ox|0%=(q%!2|
|00001860| 38 2d 53 74 61 72 74 58 | 25 29 81 4d 58 53 50 25 |8-StartX|%).MXSP%|
|00001870| 3a e7 6f 78 30 25 3e 33 | 31 20 6f 78 30 25 3d 33 |:.ox0%>3|1 ox0%=3|
|00001880| 31 0d 04 7e 15 20 20 e7 | 20 6f 78 30 25 3c 30 20 |1..~.  .| ox0%<0 |
|00001890| 6f 78 30 25 3d 30 0d 04 | 88 31 20 20 6f 78 31 25 |ox0%=0..|.1  ox1%|
|000018a0| 3d 28 71 25 21 33 36 2d | 53 74 61 72 74 58 25 29 |=(q%!36-|StartX%)|
|000018b0| 81 4d 58 53 50 25 3a e7 | 6f 78 31 25 3e 33 31 20 |.MXSP%:.|ox1%>31 |
|000018c0| 6f 78 31 25 3d 33 31 0d | 04 92 15 20 20 e7 20 6f |ox1%=31.|...  . o|
|000018d0| 78 31 25 3c 30 20 6f 78 | 31 25 3d 30 0d 04 9c 28 |x1%<0 ox|1%=0...(|
|000018e0| 20 20 e3 20 59 25 3d 31 | 20 b8 20 37 3a 43 59 25 |  . Y%=1| . 7:CY%|
|000018f0| 3d 53 74 61 72 74 59 25 | 2d 32 34 2d 59 25 2a 4d |=StartY%|-24-Y%*M|
|00001900| 59 53 50 25 0d 04 a6 2d | 20 20 20 e7 20 43 59 25 |YSP%...-|   . CY%|
|00001910| 3c 71 25 21 34 30 2b 4d | 59 53 50 25 20 80 20 43 |<q%!40+M|YSP% . C|
|00001920| 59 25 2b 4d 59 53 50 25 | 3e 3d 71 25 21 33 32 20 |Y%+MYSP%|>=q%!32 |
|00001930| 8c 0d 04 b0 47 20 20 20 | 20 e3 58 25 3d 6f 78 30 |....G   | .X%=ox0|
|00001940| 25 b8 6f 78 31 25 3a c8 | 99 20 50 61 69 6e 74 25 |%.ox1%:.|. Paint%|
|00001950| 2c 2c bd 28 59 25 2a 33 | 32 2b 58 25 29 2c 26 31 |,,.(Y%*3|2+X%),&1|
|00001960| 34 2c 53 74 61 72 74 58 | 25 2b 58 25 2a 4d 58 53 |4,StartX|%+X%*MXS|
|00001970| 50 25 2c 43 59 25 3a ed | 0d 04 ba 08 20 20 20 cd |P%,CY%:.|....   .|
|00001980| 0d 04 c4 07 20 20 ed 0d | 04 ce 06 20 cc 0d 04 d8 |....  ..|... ....|
|00001990| 24 20 e3 20 59 25 3d 30 | 20 b8 20 37 3a 43 59 25 |$ . Y%=0| . 7:CY%|
|000019a0| 3d 53 74 61 72 74 59 25 | 2d 59 25 2a 4d 59 53 50 |=StartY%|-Y%*MYSP|
|000019b0| 25 0d 04 e2 23 20 20 e7 | 20 43 59 25 3c 71 25 21 |%...#  .| CY%<q%!|
|000019c0| 34 30 2b 33 31 20 80 20 | 43 59 25 3e 3d 71 25 21 |40+31 . |CY%>=q%!|
|000019d0| 33 32 20 8c 0d 04 ec 2e | 20 20 20 ec 20 53 74 61 |32 .....|   . Sta|
|000019e0| 72 74 58 25 2c 43 59 25 | 3a f1 20 43 24 28 59 25 |rtX%,CY%|:. C$(Y%|
|000019f0| 29 3b 3a e7 20 59 25 3d | 30 20 f1 20 43 24 28 38 |);:. Y%=|0 . C$(8|
|00001a00| 29 3b 0d 04 f6 07 20 20 | cd 0d 05 00 06 20 ed 0d |);....  |..... ..|
|00001a10| 05 0a 06 20 cd 0d 05 14 | 19 20 c8 99 20 47 65 74 |... ....|. .. Get|
|00001a20| 52 25 2c 2c 71 25 20 b8 | 20 66 6c 61 67 25 0d 05 |R%,,q% .| flag%..|
|00001a30| 1e 05 ce 0d 05 28 10 e7 | 20 63 75 72 66 25 3e 2d |.....(..| curf%>-|
|00001a40| 31 20 8c 0d 05 32 05 cc | 0d 05 3c 26 20 ef 32 33 |1 ...2..|..<& .23|
|00001a50| 2c 31 37 2c 37 2c 34 2c | 31 36 3e 3e 58 45 49 47 |,17,7,4,|16>>XEIG|
|00001a60| 25 3b 33 32 3e 3e 59 45 | 49 47 25 3b 30 3b 0d 05 |%;32>>YE|IG%;0;..|
|00001a70| 46 05 cd 0d 05 50 05 e1 | 0d 05 5a 05 3a 0d 05 64 |F....P..|..Z.:..d|
|00001a80| 11 dd 20 f2 4f 70 65 6e | 57 69 6e 64 6f 77 0d 05 |.. .Open|Window..|
|00001a90| 6e 1b c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |n..."Wim|p_OpenWi|
|00001aa0| 6e 64 6f 77 22 2c 2c 71 | 25 0d 05 78 05 e1 0d 05 |ndow",,q|%..x....|
|00001ab0| 82 05 3a 0d 05 8c 12 dd | 20 f2 43 6c 6f 73 65 57 |..:.....| .CloseW|
|00001ac0| 69 6e 64 6f 77 0d 05 96 | 28 e7 63 75 72 66 25 3e |indow...|(.curf%>|
|00001ad0| 2d 31 20 c8 99 20 4c 6f | 73 65 46 6f 6e 74 2c 63 |-1 .. Lo|seFont,c|
|00001ae0| 75 72 66 25 3a 63 75 72 | 66 25 3d 2d 31 0d 05 a0 |urf%:cur|f%=-1...|
|00001af0| 19 c8 99 20 22 46 6f 6e | 74 4d 65 6e 75 5f 52 65 |... "Fon|tMenu_Re|
|00001b00| 6c 65 61 73 65 22 0d 05 | aa 27 c8 99 22 57 69 6d |lease"..|.'.."Wim|
|00001b10| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 54 61 73 |p_CloseD|own",Tas|
|00001b20| 6b 48 61 6e 64 6c 65 2c | 21 54 41 53 4b 0d 05 b4 |kHandle,|!TASK...|
|00001b30| 05 e0 0d 05 be 05 e1 0d | 05 c8 05 3a 0d 05 d2 15 |........|...:....|
|00001b40| dd 20 f2 50 6f 69 6e 74 | 65 72 4c 65 61 76 69 6e |. .Point|erLeavin|
|00001b50| 67 0d 05 dc 20 50 6f 6c | 6c 46 6c 61 67 73 3d 50 |g... Pol|lFlags=P|
|00001b60| 6f 6c 6c 46 6c 61 67 73 | 20 84 20 28 31 3c 3c 30 |ollFlags| . (1<<0|
|00001b70| 29 0d 05 e6 05 e1 0d 05 | f0 05 3a 0d 05 fa 16 dd |).......|..:.....|
|00001b80| 20 f2 50 6f 69 6e 74 65 | 72 45 6e 74 65 72 69 6e | .Pointe|rEnterin|
|00001b90| 67 0d 06 04 22 50 6f 6c | 6c 46 6c 61 67 73 3d 50 |g..."Pol|lFlags=P|
|00001ba0| 6f 6c 6c 46 6c 61 67 73 | 20 80 20 ac 20 28 31 3c |ollFlags| . . (1<|
|00001bb0| 3c 30 29 0d 06 0e 16 57 | 61 73 44 6f 77 6e 25 3d |<0)....W|asDown%=|
|00001bc0| a6 20 48 6f 74 4b 65 79 | 25 0d 06 18 05 e1 0d 06 |. HotKey|%.......|
|00001bd0| 22 05 3a 0d 06 2c 0e dd | 20 f2 4d 65 73 73 61 67 |".:..,..| .Messag|
|00001be0| 65 0d 06 36 0e c8 8e 20 | 71 25 21 31 36 20 ca 0d |e..6... |q%!16 ..|
|00001bf0| 06 40 1b 20 20 c9 20 30 | 20 20 20 20 20 3a f2 43 |.@.  . 0|     :.C|
|00001c00| 6c 6f 73 65 57 69 6e 64 | 6f 77 0d 06 4a 1c 20 20 |loseWind|ow..J.  |
|00001c10| c9 20 26 34 30 30 43 31 | 3a f2 52 65 61 64 4d 6f |. &400C1|:.ReadMo|
|00001c20| 64 65 56 61 72 73 0d 06 | 54 16 20 20 c9 20 26 35 |deVars..|T.  . &5|
|00001c30| 30 32 20 20 3a f2 44 6f | 48 65 6c 70 0d 06 5e 05 |02  :.Do|Help..^.|
|00001c40| cb 0d 06 68 05 e1 0d 06 | 72 05 3a 0d 06 7c 10 dd |...h....|r.:..|..|
|00001c50| 20 a4 43 48 28 58 25 2c | 59 25 29 0d 06 86 0f 43 | .CH(X%,|Y%)....C|
|00001c60| 25 3d 58 25 2b 59 25 2a | 33 32 0d 06 90 16 e7 20 |%=X%+Y%*|32..... |
|00001c70| 43 25 3c 33 32 20 84 20 | 43 25 3d 31 32 37 20 8c |C%<32 . |C%=127 .|
|00001c80| 0d 06 9a 26 20 e7 20 43 | 25 3d 31 32 37 20 8c 20 |...& . C|%=127 . |
|00001c90| 43 25 3d 97 22 3f 22 20 | 8b 20 43 25 3d 43 25 20 |C%=."?" |. C%=C% |
|00001ca0| 84 20 97 22 40 22 0d 06 | a4 28 20 43 68 61 72 44 |. ."@"..|.( CharD|
|00001cb0| 65 66 3f 30 3d 43 25 3a | c8 99 22 4f 53 5f 57 6f |ef?0=C%:|.."OS_Wo|
|00001cc0| 72 64 22 2c 31 30 2c 43 | 68 61 72 44 65 66 0d 06 |rd",10,C|harDef..|
|00001cd0| ae 0f 20 43 24 3d bd 32 | 33 2b bd 33 32 0d 06 b8 |.. C$=.2|3+.32...|
|00001ce0| 0f 20 e3 20 49 25 3d 31 | 20 b8 20 38 0d 06 c2 1d |. . I%=1| . 8....|
|00001cf0| 20 20 43 24 2b 3d bd 28 | 43 68 61 72 44 65 66 3f |  C$+=.(|CharDef?|
|00001d00| 49 25 20 82 20 26 46 46 | 29 0d 06 cc 06 20 ed 0d |I% . &FF|).... ..|
|00001d10| 06 d6 0c 20 43 24 2b 3d | 22 20 22 0d 06 e0 05 cc |... C$+=|" ".....|
|00001d20| 0d 06 ea 0b 20 43 24 3d | bd 43 25 0d 06 f4 05 cd |.... C$=|.C%.....|
|00001d30| 0d 06 fe 07 3d 43 24 0d | 07 08 05 3a 0d 07 12 13 |....=C$.|...:....|
|00001d40| dd 20 f2 52 65 61 64 4d | 6f 64 65 56 61 72 73 0d |. .ReadM|odeVars.|
|00001d50| 07 1c 30 c8 99 22 4f 53 | 5f 52 65 61 64 56 64 75 |..0.."OS|_ReadVdu|
|00001d60| 56 61 72 69 61 62 6c 65 | 73 22 2c 49 6e 70 75 74 |Variable|s",Input|
|00001d70| 56 61 72 73 2c 4f 75 74 | 70 75 74 56 61 72 73 0d |Vars,Out|putVars.|
|00001d80| 07 26 29 58 45 49 47 25 | 3d 4f 75 74 70 75 74 56 |.&)XEIG%|=OutputV|
|00001d90| 61 72 73 21 30 3a 59 45 | 49 47 25 3d 4f 75 74 70 |ars!0:YE|IG%=Outp|
|00001da0| 75 74 56 61 72 73 21 34 | 0d 07 30 0f e7 63 75 72 |utVars!4|..0..cur|
|00001db0| 66 25 3e 2d 31 20 8c 0d | 07 3a 15 20 c8 99 4c 6f |f%>-1 ..|.:. ..Lo|
|00001dc0| 73 65 46 6f 6e 74 2c 63 | 75 72 66 25 0d 07 44 2e |seFont,c|urf%..D.|
|00001dd0| 20 c8 99 46 69 6e 64 46 | 6f 6e 74 2c 2c 66 6f 6e | ..FindF|ont,,fon|
|00001de0| 74 24 2c 66 73 31 25 2a | 31 36 2c 66 73 32 25 2a |t$,fs1%*|16,fs2%*|
|00001df0| 31 36 20 b8 20 63 75 72 | 66 25 0d 07 4e 05 cd 0d |16 . cur|f%..N...|
|00001e00| 07 58 05 e1 0d 07 62 05 | 3a 0d 07 6c 37 dd 20 f2 |.X....b.|:..l7. .|
|00001e10| 43 68 65 63 6b 4d 6f 75 | 73 65 28 6d 6f 75 73 65 |CheckMou|se(mouse|
|00001e20| 78 25 2c 6d 6f 75 73 65 | 79 25 2c 62 25 2c 68 61 |x%,mouse|y%,b%,ha|
|00001e30| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 2c 6f 62 25 29 |ndle%,ic|on%,ob%)|
|00001e40| 0d 07 76 0e e7 20 62 25 | 20 80 20 34 20 8c 0d 07 |..v.. b%| . 4 ...|
|00001e50| 80 0c 20 f2 44 6f 43 68 | 61 72 0d 07 8a 05 cc 0d |.. .DoCh|ar......|
|00001e60| 07 94 04 0d 07 9e 09 f4 | 20 23 23 23 0d 07 a8 4b |........| ###...K|
|00001e70| f4 20 49 66 20 74 68 65 | 20 6d 65 6e 75 20 62 75 |. If the| menu bu|
|00001e80| 74 74 6f 6e 20 77 61 73 | 20 70 72 65 73 73 65 64 |tton was| pressed|
|00001e90| 2c 20 74 68 69 73 20 77 | 69 6c 6c 20 63 72 65 61 |, this w|ill crea|
|00001ea0| 74 65 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |te the a|pplicati|
|00001eb0| 6f 6e 20 6d 65 6e 75 0d | 07 b2 3d f4 20 61 6e 64 |on menu.|..=. and|
|00001ec0| 20 69 74 20 77 69 6c 6c | 20 63 61 6c 6c 20 46 6f | it will| call Fo|
|00001ed0| 6e 74 4d 65 6e 75 5f 53 | 65 6c 65 63 74 2c 20 61 |ntMenu_S|elect, a|
|00001ee0| 6e 64 20 73 74 6f 72 65 | 20 74 68 65 20 70 6f 69 |nd store| the poi|
|00001ef0| 6e 74 65 72 0d 07 bc 04 | 0d 07 c6 28 20 e7 20 28 |nter....|...( . (|
|00001f00| 62 25 20 80 20 32 29 20 | 80 20 68 61 6e 64 6c 65 |b% . 2) |. handle|
|00001f10| 25 3d 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 20 8c |%=Window|Handle .|
|00001f20| 0d 07 d0 40 20 20 20 f2 | 64 6f 6d 65 6e 75 28 31 |...@   .|domenu(1|
|00001f30| 30 31 2c 22 3e 49 6e 66 | 6f 2c 46 6f 6e 74 73 2c |01,">Inf|o,Fonts,|
|00001f40| 52 65 73 69 7a 65 2c 51 | 75 69 74 22 2c 22 4e 65 |Resize,Q|uit","Ne|
|00001f50| 77 43 68 61 72 73 20 32 | 22 2c 6d 65 6e 75 25 29 |wChars 2|",menu%)|
|00001f60| 0d 07 da 06 20 cd 0d 07 | e4 05 cd 0d 07 ee 05 e1 |.... ...|........|
|00001f70| 0d 07 f8 05 3a 0d 08 02 | 12 dd 20 f2 6d 65 6e 75 |....:...|.. .menu|
|00001f80| 5f 73 65 6c 65 63 74 0d | 08 0c 09 f4 20 23 23 23 |_select.|.... ###|
|00001f90| 0d 08 16 42 f4 20 49 66 | 20 74 68 65 20 75 73 65 |...B. If| the use|
|00001fa0| 72 20 73 65 6c 65 63 74 | 65 64 20 73 6f 6d 65 74 |r select|ed somet|
|00001fb0| 68 69 6e 67 20 66 72 6f | 6d 20 74 68 65 20 66 6f |hing fro|m the fo|
|00001fc0| 6e 74 20 6d 65 6e 75 2c | 20 61 20 63 61 6c 6c 20 |nt menu,| a call |
|00001fd0| 74 6f 0d 08 20 46 f4 20 | 46 6f 6e 74 4d 65 6e 75 |to.. F. |FontMenu|
|00001fe0| 5f 44 65 63 6f 64 65 46 | 6f 6e 74 4d 65 6e 75 20 |_DecodeF|ontMenu |
|00001ff0| 69 73 20 6d 61 64 65 20 | 74 6f 20 67 65 74 20 74 |is made |to get t|
|00002000| 68 65 20 73 65 6c 65 63 | 74 65 64 20 66 6f 6e 74 |he selec|ted font|
|00002010| 20 73 74 72 69 6e 67 2e | 0d 08 2a 43 f4 20 41 20 | string.|..*C. A |
|00002020| 62 6f 6f 6c 65 61 6e 20 | 69 73 20 73 65 74 20 74 |boolean |is set t|
|00002030| 6f 20 54 52 55 45 20 74 | 6f 20 69 6e 64 69 63 61 |o TRUE t|o indica|
|00002040| 74 65 20 74 68 61 74 20 | 61 20 6e 65 77 20 66 6f |te that |a new fo|
|00002050| 6e 74 20 6d 61 79 20 68 | 61 76 65 0d 08 34 14 f4 |nt may h|ave..4..|
|00002060| 20 62 65 65 6e 20 73 65 | 6c 65 63 74 65 64 2e 0d | been se|lected..|
|00002070| 08 3e 04 0d 08 48 17 66 | 66 6c 25 3d a3 3a 61 24 |.>...H.f|fl%=.:a$|
|00002080| 3d 22 22 3a 66 63 68 25 | 3d 30 0d 08 52 04 0d 08 |="":fch%|=0..R...|
|00002090| 5c 49 f4 20 2a 2a 2a 2a | 20 42 75 67 20 66 69 78 |\I. ****| Bug fix|
|000020a0| 20 31 3a 20 44 4f 4e 27 | 54 20 63 61 6c 6c 20 46 | 1: DON'|T call F|
|000020b0| 6f 6e 74 4d 65 6e 75 5f | 44 65 63 6f 64 65 46 6f |ontMenu_|DecodeFo|
|000020c0| 6e 74 4d 65 6e 75 20 69 | 66 20 74 68 65 20 73 65 |ntMenu i|f the se|
|000020d0| 6c 65 63 74 69 6f 6e 0d | 08 66 43 f4 20 64 69 64 |lection.|.fC. did|
|000020e0| 6e 27 74 20 67 65 74 20 | 61 73 20 66 61 72 20 61 |n't get |as far a|
|000020f0| 73 20 74 68 65 20 66 6f | 6e 74 73 21 21 21 20 28 |s the fo|nts!!! (|
|00002100| 41 62 6f 72 74 20 6f 6e | 20 64 61 74 61 20 74 72 |Abort on| data tr|
|00002110| 61 6e 73 66 65 72 2e 2e | 2e 29 0d 08 70 17 f4 20 |ansfer..|.)..p.. |
|00002120| 20 20 20 20 20 8a 8a 8a | 8a 8a 8a 8a 8a 8a 8a 8a |     ...|........|
|00002130| 8a 0d 08 7a 04 0d 08 84 | 0c c8 8e 20 21 71 25 20 |...z....|... !q% |
|00002140| ca 0d 08 8e 1f 20 20 c9 | 20 30 3a 20 f4 20 27 49 |.....  .| 0: . 'I|
|00002150| 6e 66 6f 27 2d 20 44 6f | 20 6e 6f 74 68 69 6e 67 |nfo'- Do| nothing|
|00002160| 0d 08 98 15 20 20 c9 20 | 31 3a 20 f4 20 27 46 6f |....  . |1: . 'Fo|
|00002170| 6e 74 20 89 27 0d 08 a2 | 16 20 20 20 20 20 20 e7 |nt .'...|.      .|
|00002180| 20 71 25 21 34 3c 3e 2d | 31 20 8c 0d 08 ac 12 20 | q%!4<>-|1 ..... |
|00002190| 20 20 20 20 20 20 20 66 | 66 6c 25 3d b9 0d 08 b6 |       f|fl%=....|
|000021a0| 41 20 20 20 20 20 20 20 | 20 c8 99 20 22 46 6f 6e |A       | .. "Fon|
|000021b0| 74 4d 65 6e 75 5f 44 65 | 63 6f 64 65 46 6f 6e 74 |tMenu_De|codeFont|
|000021c0| 4d 65 6e 75 22 2c 71 25 | 2b 34 2c c4 32 30 30 2c |Menu",q%|+4,.200,|
|000021d0| 22 20 22 29 20 b8 20 66 | 63 68 25 2c 61 24 0d 08 |" ") . f|ch%,a$..|
|000021e0| c0 26 20 20 20 20 20 20 | 20 20 e7 20 61 24 3d 22 |.&      |  . a$="|
|000021f0| 22 20 8c 20 61 24 3d 22 | 53 79 73 74 65 6d 20 46 |" . a$="|System F|
|00002200| 6f 6e 74 22 0d 08 ca 0b | 20 20 20 20 20 20 cd 0d |ont"....|      ..|
|00002210| 08 d4 04 0d 08 de 14 20 | 20 c9 20 32 3a 20 f4 20 |....... | . 2: . |
|00002220| 27 52 65 73 65 74 27 0d | 08 e8 12 20 20 20 20 f2 |'Reset'.|...    .|
|00002230| 72 65 73 65 74 73 69 7a | 65 0d 08 f2 04 0d 08 fc |resetsiz|e.......|
|00002240| 13 20 20 c9 20 33 3a 20 | f4 20 27 51 75 69 74 27 |.  . 3: |. 'Quit'|
|00002250| 0d 09 06 14 20 20 20 20 | f2 43 6c 6f 73 65 57 69 |....    |.CloseWi|
|00002260| 6e 64 6f 77 0d 09 10 05 | cb 0d 09 1a 04 0d 09 24 |ndow....|.......$|
|00002270| 47 f4 20 2a 2a 2a 2a 20 | 42 75 67 20 66 69 78 20 |G. **** |Bug fix |
|00002280| 32 3a 20 50 4c 45 41 53 | 45 20 69 6e 69 74 69 61 |2: PLEAS|E initia|
|00002290| 6c 69 73 65 20 76 61 72 | 69 61 62 6c 65 73 21 21 |lise var|iables!!|
|000022a0| 21 20 49 66 20 74 68 65 | 20 66 69 72 73 74 20 63 |! If the| first c|
|000022b0| 6c 69 63 6b 0d 09 2e 4a | f4 20 61 66 74 65 72 20 |lick...J|. after |
|000022c0| 73 74 61 72 74 75 70 20 | 77 61 73 20 61 6e 20 41 |startup |was an A|
|000022d0| 64 6a 75 73 74 2d 63 6c | 69 63 6b 20 6f 6e 20 27 |djust-cl|ick on '|
|000022e0| 49 6e 66 6f 27 2c 20 61 | 6e 20 65 72 72 6f 72 20 |Info', a|n error |
|000022f0| 6f 63 63 75 72 65 64 20 | 61 74 20 74 68 65 0d 09 |occured |at the..|
|00002300| 38 2e f4 20 6e 65 78 74 | 20 6c 69 6e 65 20 64 75 |8.. next| line du|
|00002310| 65 20 74 6f 20 61 24 20 | 62 65 69 6e 67 20 75 6e |e to a$ |being un|
|00002320| 69 6e 69 74 69 61 6c 69 | 73 65 64 21 0d 09 42 04 |initiali|sed!..B.|
|00002330| 0d 09 4c 24 e7 20 61 24 | 3c 3e 22 22 20 80 20 61 |..L$. a$|<>"" . a|
|00002340| 24 3c 3e 66 6f 6e 74 24 | 20 80 20 66 63 68 25 3c |$<>font$| . fch%<|
|00002350| 3e 30 20 8c 0d 09 56 2a | 20 20 e7 63 75 72 66 25 |>0 ...V*|  .curf%|
|00002360| 3e 2d 31 20 c8 99 20 4c | 6f 73 65 46 6f 6e 74 2c |>-1 .. L|oseFont,|
|00002370| 63 75 72 66 25 3a 63 75 | 72 66 25 3d 2d 31 0d 09 |curf%:cu|rf%=-1..|
|00002380| 60 0e 20 20 66 6f 6e 74 | 24 3d 61 24 0d 09 6a 41 |`.  font|$=a$..jA|
|00002390| 20 20 e7 20 61 24 3c 3e | 22 53 79 73 74 65 6d 20 |  . a$<>|"System |
|000023a0| 46 6f 6e 74 22 20 c8 99 | 20 46 69 6e 64 46 6f 6e |Font" ..| FindFon|
|000023b0| 74 2c 2c 61 24 2c 66 73 | 31 25 2a 31 36 2c 66 73 |t,,a$,fs|1%*16,fs|
|000023c0| 32 25 2a 31 36 20 b8 20 | 63 75 72 66 25 0d 09 74 |2%*16 . |curf%..t|
|000023d0| 2b 20 20 c8 99 20 53 63 | 72 65 65 6e 2c 57 69 6e |+  .. Sc|reen,Win|
|000023e0| 64 6f 77 48 61 6e 64 6c | 65 2c 30 2c 2d 32 30 34 |dowHandl|e,0,-204|
|000023f0| 38 2c 32 30 34 38 2c 30 | 0d 09 7e 05 cd 0d 09 88 |8,2048,0|..~.....|
|00002400| 04 0d 09 92 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |.... .. |"Wimp_Ge|
|00002410| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 71 |tPointer|Info",,q|
|00002420| 25 0d 09 9c 04 0d 09 a6 | 17 e7 20 28 21 28 71 25 |%.......|.. (!(q%|
|00002430| 2b 38 29 20 80 20 31 29 | 3e 30 20 8c 0d 09 b0 0b |+8) . 1)|>0 .....|
|00002440| 20 20 f4 20 23 23 23 0d | 09 ba 45 20 20 f4 20 54 |  . ###.|..E  . T|
|00002450| 68 65 20 75 73 65 72 20 | 73 65 6c 65 63 74 65 64 |he user |selected|
|00002460| 20 77 69 74 68 20 74 68 | 65 20 41 44 4a 55 53 54 | with th|e ADJUST|
|00002470| 20 62 75 74 74 6f 6e 2c | 20 73 6f 20 69 66 20 66 | button,| so if f|
|00002480| 66 6c 25 20 69 73 20 54 | 52 55 45 2c 0d 09 c4 4c |fl% is T|RUE,...L|
|00002490| 20 20 f4 20 46 6f 6e 74 | 4d 65 6e 75 5f 53 65 6c |  . Font|Menu_Sel|
|000024a0| 65 63 74 20 68 61 73 20 | 74 6f 20 62 65 20 63 61 |ect has |to be ca|
|000024b0| 6c 6c 65 64 20 61 67 61 | 69 6e 2e 20 54 68 69 73 |lled aga|in. This|
|000024c0| 20 77 61 79 20 74 68 65 | 20 66 6f 6e 74 20 6d 65 | way the| font me|
|000024d0| 6e 75 20 74 69 63 6b 73 | 0d 09 ce 4a 20 20 f4 20 |nu ticks|...J  . |
|000024e0| 77 69 6c 6c 20 62 65 20 | 75 70 64 61 74 65 64 2e |will be |updated.|
|000024f0| 20 54 68 65 20 72 65 74 | 75 72 6e 65 64 20 6d 65 | The ret|urned me|
|00002500| 6e 75 20 70 74 72 20 69 | 73 20 73 74 6f 72 65 64 |nu ptr i|s stored|
|00002510| 20 69 6e 20 74 68 65 20 | 27 53 75 62 2d 4d 65 6e | in the |'Sub-Men|
|00002520| 75 27 0d 09 d8 4c 20 20 | f4 20 77 6f 72 64 20 6f |u'...L  |. word o|
|00002530| 66 20 74 68 65 20 27 46 | 6f 6e 74 73 27 20 65 6e |f the 'F|onts' en|
|00002540| 74 72 79 2c 20 61 6e 64 | 20 74 68 65 20 4d 65 6e |try, and| the Men|
|00002550| 75 57 61 72 6e 69 6e 67 | 46 6c 61 67 20 6f 66 20 |uWarning|Flag of |
|00002560| 74 68 65 20 6d 65 6e 75 | 20 66 6c 61 67 73 0d 09 |the menu| flags..|
|00002570| e2 43 20 20 f4 20 6f 66 | 20 74 68 69 73 20 65 6e |.C  . of| this en|
|00002580| 74 72 79 20 69 73 20 63 | 6c 65 61 72 65 64 2e 20 |try is c|leared. |
|00002590| 54 68 69 73 20 69 73 20 | 6e 65 63 65 73 73 61 72 |This is |necessar|
|000025a0| 79 20 66 6f 72 20 74 68 | 65 20 57 69 6d 70 20 74 |y for th|e Wimp t|
|000025b0| 6f 0d 09 ec 2a 20 20 f4 | 20 61 75 74 6f 6d 61 74 |o...*  .| automat|
|000025c0| 69 63 6c 79 20 72 65 2d | 6f 70 65 6e 20 74 68 65 |icly re-|open the|
|000025d0| 20 6d 65 6e 75 20 74 72 | 65 65 2e 0d 09 f6 04 0d | menu tr|ee......|
|000025e0| 0a 00 0e 20 20 e7 20 66 | 66 6c 25 20 8c 0d 0a 0a |...  . f|fl% ....|
|000025f0| 19 20 20 20 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |.    .. |"Hourgla|
|00002600| 73 73 5f 4f 6e 22 0d 0a | 14 30 20 20 20 20 c8 99 |ss_On"..|.0    ..|
|00002610| 20 22 46 6f 6e 74 4d 65 | 6e 75 5f 53 65 6c 65 63 | "FontMe|nu_Selec|
|00002620| 74 22 2c 66 6f 6e 74 24 | 2c 31 20 b8 20 2c 6d 65 |t",font$|,1 . ,me|
|00002630| 6e 75 25 21 35 36 0d 0a | 1e 1a 20 20 20 20 c8 99 |nu%!56..|..    ..|
|00002640| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00002650| 0d 0a 28 07 20 20 cd 0d | 0a 32 04 0d 0a 3c 21 20 |..(.  ..|.2...<! |
|00002660| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00002670| 4d 65 6e 75 22 2c 2c 6d | 65 6e 75 25 0d 0a 46 05 |Menu",,m|enu%..F.|
|00002680| cd 0d 0a 50 05 e1 0d 0a | 5a 05 3a 0d 0a 64 0d dd |...P....|Z.:..d..|
|00002690| 20 f2 44 6f 43 68 61 72 | 0d 0a 6e 1a e7 20 71 25 | .DoChar|..n.. q%|
|000026a0| 21 31 32 3d 57 69 6e 64 | 6f 77 48 61 6e 64 6c 65 |!12=Wind|owHandle|
|000026b0| 20 8c 0d 0a 78 23 20 43 | 68 61 72 25 3d a4 43 6f | ...x# C|har%=.Co|
|000026c0| 6f 72 64 73 54 6f 43 68 | 61 72 28 71 25 21 30 2c |ordsToCh|ar(q%!0,|
|000026d0| 71 25 21 34 29 0d 0a 82 | 2c 20 e7 20 43 68 61 72 |q%!4)...|, . Char|
|000026e0| 25 3c 3e 2d 31 20 8c 20 | c8 99 22 57 69 6d 70 5f |%<>-1 . |.."Wimp_|
|000026f0| 50 72 6f 63 65 73 73 4b | 65 79 22 2c 43 68 61 72 |ProcessK|ey",Char|
|00002700| 25 0d 0a 8c 05 cd 0d 0a | 96 05 e1 0d 0a a0 05 3a |%.......|.......:|
|00002710| 0d 0a aa 0d dd 20 f2 44 | 6f 48 65 6c 70 0d 0a b4 |..... .D|oHelp...|
|00002720| 1a e7 20 71 25 21 33 32 | 3d 57 69 6e 64 6f 77 48 |.. q%!32|=WindowH|
|00002730| 61 6e 64 6c 65 20 8c 0d | 0a be 18 20 48 69 73 54 |andle ..|... HisT|
|00002740| 61 73 6b 48 61 6e 64 6c | 65 25 3d 71 25 21 34 0d |askHandl|e%=q%!4.|
|00002750| 0a c8 11 20 48 69 73 52 | 65 66 25 3d 71 25 21 38 |... HisR|ef%=q%!8|
|00002760| 0d 0a d2 25 20 43 68 61 | 72 25 3d a4 43 6f 6f 72 |...% Cha|r%=.Coor|
|00002770| 64 73 54 6f 43 68 61 72 | 28 71 25 21 32 30 2c 71 |dsToChar|(q%!20,q|
|00002780| 25 21 32 34 29 0d 0a dc | 12 20 e7 20 43 68 61 72 |%!24)...|. . Char|
|00002790| 25 3c 3e 2d 31 20 8c 0d | 0a e6 bc 20 20 4d 45 53 |%<>-1 ..|...  MES|
|000027a0| 24 3d 22 43 6c 69 63 6b | 20 53 45 4c 45 43 54 20 |$="Click| SELECT |
|000027b0| 6f 72 20 70 72 65 73 73 | 20 53 68 69 66 74 20 6b |or press| Shift k|
|000027c0| 65 79 20 74 6f 20 65 6e | 74 65 72 20 63 68 61 72 |ey to en|ter char|
|000027d0| 61 63 74 65 72 20 63 6f | 64 65 20 26 22 2b a4 48 |acter co|de &"+.H|
|000027e0| 28 43 68 61 72 25 29 2b | 22 20 61 73 20 69 66 20 |(Char%)+|" as if |
|000027f0| 66 72 6f 6d 20 74 68 65 | 20 6b 65 79 62 6f 61 72 |from the| keyboar|
|00002800| 64 2e 20 50 72 65 73 73 | 20 4d 45 4e 55 20 74 6f |d. Press| MENU to|
|00002810| 20 63 68 61 6e 67 65 20 | 74 68 65 20 64 69 73 70 | change |the disp|
|00002820| 6c 61 79 65 64 20 66 6f | 6e 74 2c 20 6f 72 20 72 |layed fo|nt, or r|
|00002830| 65 73 69 7a 65 20 66 6f | 6e 74 20 74 6f 20 66 69 |esize fo|nt to fi|
|00002840| 74 20 6e 65 77 20 77 69 | 6e 64 6f 77 20 73 69 7a |t new wi|ndow siz|
|00002850| 65 2e 22 0d 0a f0 1e 20 | 20 71 25 21 30 3d 28 28 |e.".... | q%!0=((|
|00002860| 32 30 2b a9 4d 45 53 24 | 2b 31 29 2b 33 29 80 ac |20+.MES$|+1)+3)..|
|00002870| 33 0d 0a fa 13 20 20 71 | 25 21 31 32 3d 48 69 73 |3....  q|%!12=His|
|00002880| 52 65 66 25 0d 0b 04 10 | 20 20 71 25 21 31 36 3d |Ref%....|  q%!16=|
|00002890| 26 35 30 33 0d 0b 0e 13 | 20 20 24 28 71 25 2b 32 |&503....|  $(q%+2|
|000028a0| 30 29 3d 4d 45 53 24 0d | 0b 18 15 20 20 71 25 3f |0)=MES$.|...  q%?|
|000028b0| 28 32 30 2b a9 4d 45 53 | 24 29 3d 30 0d 0b 22 35 |(20+.MES|$)=0.."5|
|000028c0| 20 20 c8 99 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |  .."Wim|p_SendMe|
|000028d0| 73 73 61 67 65 22 2c 4d | 65 73 73 61 67 65 41 2c |ssage",M|essageA,|
|000028e0| 71 25 2c 48 69 73 54 61 | 73 6b 48 61 6e 64 6c 65 |q%,HisTa|skHandle|
|000028f0| 25 0d 0b 2c 06 20 cd 0d | 0b 36 05 cd 0d 0b 40 05 |%..,. ..|.6....@.|
|00002900| e1 0d 0b 4a 05 3a 0d 0b | 54 24 dd 20 a4 43 6f 6f |...J.:..|T$. .Coo|
|00002910| 72 64 73 54 6f 43 68 61 | 72 28 4d 6f 75 73 65 58 |rdsToCha|r(MouseX|
|00002920| 25 2c 4d 6f 75 73 65 59 | 25 29 0d 0b 5e 14 21 71 |%,MouseY|%)..^.!q|
|00002930| 25 3d 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 0d 0b |%=Window|Handle..|
|00002940| 68 0f c8 99 20 47 65 74 | 57 2c 2c 71 25 0d 0b 72 |h... Get|W,,q%..r|
|00002950| 3a 59 4f 66 66 25 3d 28 | 71 25 21 31 36 2d 54 4d |:YOff%=(|q%!16-TM|
|00002960| 25 2d 71 25 21 32 34 2b | 28 28 4d 59 53 50 25 2d |%-q%!24+|((MYSP%-|
|00002970| 33 32 29 3e 3e 31 29 2d | 4d 6f 75 73 65 59 25 29 |32)>>1)-|MouseY%)|
|00002980| 81 20 4d 59 53 50 25 0d | 0b 7c 0c 43 68 61 72 25 |. MYSP%.|.|.Char%|
|00002990| 3d 2d 31 0d 0b 86 1b e7 | 20 59 4f 66 66 25 3e 3d |=-1.....| YOff%>=|
|000029a0| 30 20 80 20 59 4f 66 66 | 25 3c 3d 37 20 8c 0d 0b |0 . YOff|%<=7 ...|
|000029b0| 90 3c 20 58 4f 66 66 25 | 3d 28 4d 6f 75 73 65 58 |.< XOff%|=(MouseX|
|000029c0| 25 2d 28 71 25 21 34 2b | 4c 4d 25 2d 71 25 21 32 |%-(q%!4+|LM%-q%!2|
|000029d0| 30 2b 28 28 31 36 2d 4d | 58 53 50 25 29 3e 3e 31 |0+((16-M|XSP%)>>1|
|000029e0| 29 29 29 81 20 4d 58 53 | 50 25 0d 0b 9a 1d 20 e7 |))). MXS|P%.... .|
|000029f0| 20 58 4f 66 66 25 3e 3d | 30 20 80 20 58 4f 66 66 | XOff%>=|0 . XOff|
|00002a00| 25 3c 3d 33 31 20 8c 0d | 0b a4 1a 20 20 43 68 61 |%<=31 ..|...  Cha|
|00002a10| 72 25 3d 58 4f 66 66 25 | 2b 59 4f 66 66 25 2a 33 |r%=XOff%|+YOff%*3|
|00002a20| 32 0d 0b ae 06 20 cd 0d | 0b b8 05 cd 0d 0b c2 0a |2.... ..|........|
|00002a30| 3d 43 68 61 72 25 0d 0b | cc 05 3a 0d 0b d6 0b dd |=Char%..|..:.....|
|00002a40| 20 f2 76 61 72 73 0d 0b | e0 1e 46 6f 6e 74 20 20 | .vars..|..Font  |
|00002a50| 20 20 3d 20 28 31 3c 3c | 31 38 29 20 2b 20 28 32 |  = (1<<|18) + (2|
|00002a60| 3c 3c 36 29 0d 0b ea 14 | 46 69 6e 64 46 6f 6e 74 |<<6)....|FindFont|
|00002a70| 3d 20 46 6f 6e 74 2b 31 | 0d 0b f4 14 4c 6f 73 65 |= Font+1|....Lose|
|00002a80| 46 6f 6e 74 3d 20 46 6f | 6e 74 2b 32 0d 0b fe 14 |Font= Fo|nt+2....|
|00002a90| 50 61 69 6e 74 25 20 20 | 3d 20 46 6f 6e 74 2b 36 |Paint%  |= Font+6|
|00002aa0| 0d 0c 08 15 53 65 74 46 | 6f 6e 74 20 3d 20 46 6f |....SetF|ont = Fo|
|00002ab0| 6e 74 2b 31 30 0d 0c 12 | 1e 57 69 6d 70 20 20 20 |nt+10...|.Wimp   |
|00002ac0| 20 3d 20 28 31 3c 3c 31 | 38 29 20 2b 20 28 33 3c | = (1<<1|8) + (3<|
|00002ad0| 3c 36 29 0d 0c 1c 14 43 | 72 65 61 74 65 57 20 3d |<6)....C|reateW =|
|00002ae0| 20 57 69 6d 70 2b 31 0d | 0c 26 14 50 6f 6c 6c 25 | Wimp+1.|.&.Poll%|
|00002af0| 20 20 20 3d 20 57 69 6d | 70 2b 37 0d 0c 30 14 52 |   = Wim|p+7..0.R|
|00002b00| 65 64 72 61 77 57 20 3d | 20 57 69 6d 70 2b 38 0d |edrawW =| Wimp+8.|
|00002b10| 0c 3a 14 55 70 64 61 74 | 65 57 20 3d 20 57 69 6d |.:.Updat|eW = Wim|
|00002b20| 70 2b 39 0d 0c 44 15 47 | 65 74 52 25 20 20 20 3d |p+9..D.G|etR%   =|
|00002b30| 20 57 69 6d 70 2b 31 30 | 0d 0c 4e 15 47 65 74 57 | Wimp+10|..N.GetW|
|00002b40| 20 20 20 20 3d 20 57 69 | 6d 70 2b 31 31 0d 0c 58 |    = Wi|mp+11..X|
|00002b50| 15 47 65 74 50 20 20 20 | 20 3d 20 57 69 6d 70 2b |.GetP   | = Wimp+|
|00002b60| 31 35 0d 0c 62 15 44 72 | 61 67 20 20 20 20 3d 20 |15..b.Dr|ag    = |
|00002b70| 57 69 6d 70 2b 31 36 0d | 0c 6c 15 53 63 72 65 65 |Wimp+16.|.l.Scree|
|00002b80| 6e 20 20 3d 20 57 69 6d | 70 2b 31 37 0d 0c 76 15 |n  = Wim|p+17..v.|
|00002b90| 43 72 4d 65 6e 75 20 20 | 3d 20 57 69 6d 70 2b 32 |CrMenu  |= Wimp+2|
|00002ba0| 30 0d 0c 80 15 44 63 4d | 65 6e 75 20 20 3d 20 57 |0....DcM|enu  = W|
|00002bb0| 69 6d 70 2b 32 31 0d 0c | 8a 16 53 65 74 46 6f 6e |imp+21..|..SetFon|
|00002bc0| 74 43 20 3d 20 57 69 6d | 70 2b 35 31 0d 0c 94 04 |tC = Wim|p+51....|
|00002bd0| 0d 0c 9e 15 43 5f 4d 65 | 6e 75 54 69 74 6c 65 66 |....C_Me|nuTitlef|
|00002be0| 67 20 3d 20 37 0d 0c a8 | 15 43 5f 4d 65 6e 75 54 |g = 7...|.C_MenuT|
|00002bf0| 69 74 6c 65 62 67 20 3d | 20 32 0d 0c b2 10 43 5f |itlebg =| 2....C_|
|00002c00| 4d 65 6e 75 66 67 20 3d | 20 37 0d 0c bc 10 43 5f |Menufg =| 7....C_|
|00002c10| 4d 65 6e 75 62 67 20 3d | 20 30 0d 0c c6 14 43 5f |Menubg =| 0....C_|
|00002c20| 4d 65 6e 75 49 74 65 6d | 66 67 20 3d 20 37 0d 0c |MenuItem|fg = 7..|
|00002c30| d0 14 43 5f 4d 65 6e 75 | 49 74 65 6d 62 67 20 3d |..C_Menu|Itembg =|
|00002c40| 20 30 0d 0c da 05 e1 0d | 0c e4 05 3a 0d 0c ee 19 | 0......|...:....|
|00002c50| dd 20 a4 48 28 58 25 29 | 3d c2 22 30 22 2b c3 7e |. .H(X%)|=."0"+.~|
|00002c60| 58 25 2c 32 29 0d 0c f8 | 05 3a 0d 0d 02 2e dd 20 |X%,2)...|.:..... |
|00002c70| f2 64 6f 6d 65 6e 75 28 | 68 61 6e 64 6c 65 25 2c |.domenu(|handle%,|
|00002c80| 6d 65 6e 75 24 2c 6d 65 | 6e 75 74 69 74 6c 65 24 |menu$,me|nutitle$|
|00002c90| 2c 4d 62 75 66 66 25 29 | 0d 0d 0c 0b ea 20 43 25 |,Mbuff%)|..... C%|
|00002ca0| 2c 48 25 0d 0d 16 0e 43 | 25 3d 30 3a 48 25 3d 34 |,H%....C|%=0:H%=4|
|00002cb0| 34 0d 0d 20 17 6d 65 6e | 75 68 61 6e 64 6c 65 25 |4.. .men|uhandle%|
|00002cc0| 3d 68 61 6e 64 6c 65 25 | 0d 0d 2a 13 6d 65 6e 75 |=handle%|..*.menu|
|00002cd0| 70 74 72 25 3d 4d 62 75 | 66 66 25 0d 0d 34 08 69 |ptr%=Mbu|ff%..4.i|
|00002ce0| 25 3d 30 0d 0d 3e 18 24 | 6d 65 6e 75 70 74 72 25 |%=0..>.$|menuptr%|
|00002cf0| 3d 6d 65 6e 75 74 69 74 | 6c 65 24 0d 0d 48 37 6d |=menutit|le$..H7m|
|00002d00| 65 6e 75 70 74 72 25 3f | 31 32 3d 43 5f 4d 65 6e |enuptr%?|12=C_Men|
|00002d10| 75 54 69 74 6c 65 66 67 | 3a 6d 65 6e 75 70 74 72 |uTitlefg|:menuptr|
|00002d20| 25 3f 31 33 3d 43 5f 4d | 65 6e 75 54 69 74 6c 65 |%?13=C_M|enuTitle|
|00002d30| 62 67 0d 0d 52 2d 6d 65 | 6e 75 70 74 72 25 3f 31 |bg..R-me|nuptr%?1|
|00002d40| 34 3d 43 5f 4d 65 6e 75 | 66 67 3a 6d 65 6e 75 70 |4=C_Menu|fg:menup|
|00002d50| 74 72 25 3f 31 35 3d 43 | 5f 4d 65 6e 75 62 67 0d |tr%?15=C|_Menubg.|
|00002d60| 0d 5c 33 6d 65 6e 75 70 | 74 72 25 21 31 36 3d 31 |.\3menup|tr%!16=1|
|00002d70| 39 36 2d 34 38 3a 6d 65 | 6e 75 70 74 72 25 21 32 |96-48:me|nuptr%!2|
|00002d80| 30 3d 48 25 3a 6d 65 6e | 75 70 74 72 25 21 32 34 |0=H%:men|uptr%!24|
|00002d90| 3d 30 0d 0d 66 10 6d 65 | 6e 75 70 74 72 25 2b 3d |=0..f.me|nuptr%+=|
|00002da0| 32 38 0d 0d 70 37 f5 20 | 69 74 65 6d 24 3d a4 70 |28..p7. |item$=.p|
|00002db0| 61 72 28 22 2c 22 29 3a | f2 6d 65 6e 75 69 74 65 |ar(","):|.menuite|
|00002dc0| 6d 28 69 74 65 6d 24 29 | 3a 43 25 2b 3d 31 3a fd |m(item$)|:C%+=1:.|
|00002dd0| 20 69 74 65 6d 24 3d 22 | 22 0d 0d 7a 23 6d 65 6e | item$="|"..z#men|
|00002de0| 75 70 74 72 25 21 2d 32 | 34 3d 28 6d 65 6e 75 70 |uptr%!-2|4=(menup|
|00002df0| 74 72 25 21 2d 32 34 29 | 84 26 38 30 0d 0d 84 04 |tr%!-24)|.&80....|
|00002e00| 0d 0d 8e 17 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |....  ..| "Hourgl|
|00002e10| 61 73 73 5f 4f 6e 22 0d | 0d 98 2f 20 20 c8 99 20 |ass_On".|../  .. |
|00002e20| 22 46 6f 6e 74 4d 65 6e | 75 5f 53 65 6c 65 63 74 |"FontMen|u_Select|
|00002e30| 22 2c 66 6f 6e 74 24 2c | 31 20 b8 20 2c 4d 62 75 |",font$,|1 . ,Mbu|
|00002e40| 66 66 25 21 35 36 0d 0d | a2 18 20 20 c8 99 20 22 |ff%!56..|..  .. "|
|00002e50| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 0d |Hourglas|s_Off"..|
|00002e60| ac 04 0d 0d b6 7d e7 20 | 69 63 6f 6e 25 3d 2d 32 |.....}. |icon%=-2|
|00002e70| 20 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |  . .. "|Wimp_Cre|
|00002e80| 61 74 65 4d 65 6e 75 22 | 2c 2c 4d 62 75 66 66 25 |ateMenu"|,,Mbuff%|
|00002e90| 2c 6d 6f 75 73 65 78 25 | 2d 36 34 2c 39 36 2b 28 |,mousex%|-64,96+(|
|00002ea0| 28 43 25 2d 31 29 2a 48 | 25 29 20 8b 20 c8 99 20 |(C%-1)*H|%) . .. |
|00002eb0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00002ec0| 22 2c 2c 4d 62 75 66 66 | 25 2c 6d 6f 75 73 65 78 |",,Mbuff|%,mousex|
|00002ed0| 25 2d 36 34 2c 6d 6f 75 | 73 65 79 25 2b 32 34 0d |%-64,mou|sey%+24.|
|00002ee0| 0d c0 05 e1 0d 0d ca 05 | 3a 0d 0d d4 16 dd 20 f2 |........|:..... .|
|00002ef0| 6d 65 6e 75 69 74 65 6d | 28 74 65 78 74 24 29 0d |menuitem|(text$).|
|00002f00| 0d de 10 e7 20 74 65 78 | 74 24 3d 22 22 20 e1 0d |.... tex|t$="" ..|
|00002f10| 0d e8 0f 21 6d 65 6e 75 | 70 74 72 25 3d 30 0d 0d |...!menu|ptr%=0..|
|00002f20| f2 11 6d 65 6e 75 70 74 | 72 25 21 34 3d 2d 31 0d |..menupt|r%!4=-1.|
|00002f30| 0d fc 37 e7 20 c0 74 65 | 78 74 24 2c 32 29 3d 22 |..7. .te|xt$,2)="|
|00002f40| 3e 49 22 20 6d 65 6e 75 | 70 74 72 25 21 34 3d 69 |>I" menu|ptr%!4=i|
|00002f50| 6e 66 6f 25 20 3a 20 74 | 65 78 74 24 3d c1 74 65 |nfo% : t|ext$=.te|
|00002f60| 78 74 24 2c 32 29 0d 0e | 06 4a e7 20 c0 74 65 78 |xt$,2)..|.J. .tex|
|00002f70| 74 24 2c 31 29 3d 22 23 | 22 20 6d 65 6e 75 70 74 |t$,1)="#|" menupt|
|00002f80| 72 25 21 34 3d 31 3a 21 | 6d 65 6e 75 70 74 72 25 |r%!4=1:!|menuptr%|
|00002f90| 3d 21 6d 65 6e 75 70 74 | 72 25 20 84 20 38 20 3a |=!menupt|r% . 8 :|
|00002fa0| 20 74 65 78 74 24 3d c1 | 74 65 78 74 24 2c 32 29 | text$=.|text$,2)|
|00002fb0| 0d 0e 10 18 6d 65 6e 75 | 70 74 72 25 21 38 3d 26 |....menu|ptr%!8=&|
|00002fc0| 30 37 30 30 30 30 32 31 | 0d 0e 1a 18 24 28 6d 65 |07000021|....$(me|
|00002fd0| 6e 75 70 74 72 25 2b 31 | 32 29 3d 74 65 78 74 24 |nuptr%+1|2)=text$|
|00002fe0| 0d 0e 24 10 6d 65 6e 75 | 70 74 72 25 2b 3d 32 34 |..$.menu|ptr%+=24|
|00002ff0| 0d 0e 2e 05 e1 0d 0e 38 | 05 3a 0d 0e 42 10 dd 20 |.......8|.:..B.. |
|00003000| a4 70 61 72 28 73 65 70 | 24 29 0d 0e 4c 25 69 31 |.par(sep|$)..L%i1|
|00003010| 25 3d 69 25 2b 31 3a 69 | 25 3d a7 6d 65 6e 75 24 |%=i%+1:i|%=.menu$|
|00003020| 2b 73 65 70 24 2c 73 65 | 70 24 2c 69 31 25 29 0d |+sep$,se|p$,i1%).|
|00003030| 0e 56 17 3d c1 6d 65 6e | 75 24 2c 69 31 25 2c 69 |.V.=.men|u$,i1%,i|
|00003040| 25 2d 69 31 25 29 0d 0e | 60 05 3a 0d 0e 6a 10 dd |%-i1%)..|`.:..j..|
|00003050| 20 f2 74 65 6d 70 6c 61 | 74 65 73 0d 0e 74 3d ee | .templa|tes..t=.|
|00003060| 20 85 20 ee 85 87 3a c8 | 99 22 57 69 6d 70 5f 43 | . ...:.|."Wimp_C|
|00003070| 6c 6f 73 65 44 6f 77 6e | 22 2c 54 61 73 6b 48 61 |loseDown|",TaskHa|
|00003080| 6e 64 6c 65 2c 21 54 41 | 53 4b 3a 85 20 a2 20 9f |ndle,!TA|SK:. . .|
|00003090| 2c f6 24 2b c3 28 9e 29 | 0d 0e 7e 04 0d 0e 88 31 |,.$+.(.)|..~....1|
|000030a0| c8 99 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |.."Wimp_|OpenTemp|
|000030b0| 6c 61 74 65 22 2c 2c 22 | 3c 4f 62 65 79 24 44 69 |late",,"|<Obey$Di|
|000030c0| 72 3e 2e 54 65 6d 70 6c | 61 74 65 73 22 0d 0e 92 |r>.Templ|ates"...|
|000030d0| 07 ea 20 85 0d 0e 9c 2f | ee 20 85 20 f7 20 85 3a |.. ..../|. . . .:|
|000030e0| c8 99 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |.."Wimp_|CloseTem|
|000030f0| 70 6c 61 74 65 22 3a 85 | 20 9f 2c 20 f6 24 2b c3 |plate":.| ., .$+.|
|00003100| 28 9e 29 0d 0e a6 15 69 | 6e 66 6f 25 3d 2d 31 3a |(.)....i|nfo%=-1:|
|00003110| 66 6f 6e 74 24 3d 22 22 | 0d 0e b0 4f c8 99 22 57 |font$=""|...O.."W|
|00003120| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00003130| 22 2c 2c 71 25 2b 34 2c | 69 6e 64 5f 64 61 74 61 |",,q%+4,|ind_data|
|00003140| 25 2c 69 6e 64 5f 64 61 | 74 61 25 2b 35 31 32 2c |%,ind_da|ta%+512,|
|00003150| 2d 31 2c 22 49 6e 66 6f | 22 2c 30 20 b8 20 2c 2c |-1,"Info|",0 . ,,|
|00003160| 63 75 72 70 74 72 25 0d | 0e ba 27 c8 99 22 57 69 |curptr%.|..'.."Wi|
|00003170| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00003180| 2c 2c 71 25 2b 34 20 b8 | 20 69 6e 66 6f 25 0d 0e |,,q%+4 .| info%..|
|00003190| c4 47 c8 99 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |.G.."Wim|p_LoadTe|
|000031a0| 6d 70 6c 61 74 65 22 2c | 2c 71 25 2b 34 2c 63 75 |mplate",|,q%+4,cu|
|000031b0| 72 70 74 72 25 2c 69 6e | 64 5f 64 61 74 61 25 2b |rptr%,in|d_data%+|
|000031c0| 35 31 32 2c 2d 31 2c 22 | 43 68 61 72 61 63 74 65 |512,-1,"|Characte|
|000031d0| 72 73 22 2c 30 0d 0e ce | 07 f7 20 85 0d 0e d8 1a |rs",0...|.. .....|
|000031e0| c8 99 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |.."Wimp_|CloseTem|
|000031f0| 70 6c 61 74 65 22 0d 0e | e2 04 0d 0e ec 20 de 20 |plate"..|..... . |
|00003200| 49 6e 70 75 74 56 61 72 | 73 20 31 32 2c 20 4f 75 |InputVar|s 12, Ou|
|00003210| 74 70 75 74 56 61 72 73 | 20 38 0d 0e f6 47 49 6e |tputVars| 8...GIn|
|00003220| 70 75 74 56 61 72 73 21 | 30 3d 34 3a 49 6e 70 75 |putVars!|0=4:Inpu|
|00003230| 74 56 61 72 73 21 34 3d | 35 3a 49 6e 70 75 74 56 |tVars!4=|5:InputV|
|00003240| 61 72 73 21 38 3d 2d 31 | 3a f4 20 58 45 69 67 46 |ars!8=-1|:. XEigF|
|00003250| 61 63 74 6f 72 2c 20 59 | 45 69 67 46 61 63 74 6f |actor, Y|EigFacto|
|00003260| 72 0d 0f 00 11 f2 52 65 | 61 64 4d 6f 64 65 56 61 |r.....Re|adModeVa|
|00003270| 72 73 0d 0f 0a 22 71 25 | 21 31 32 3d 71 25 21 34 |rs..."q%|!12=q%!4|
|00003280| 2b 4c 4d 25 2b 33 31 2a | 4d 58 53 50 25 2b 31 36 |+LM%+31*|MXSP%+16|
|00003290| 2b 52 4d 25 0d 0f 14 21 | 71 25 21 38 3d 71 25 21 |+RM%...!|q%!8=q%!|
|000032a0| 31 36 2d 54 4d 25 2d 37 | 2a 4d 59 53 50 25 2d 33 |16-TM%-7|*MYSP%-3|
|000032b0| 32 2d 42 4d 25 0d 0f 1e | 2e c8 99 22 57 69 6d 70 |2-BM%...|..."Wimp|
|000032c0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000032d0| 71 25 2b 34 20 b8 20 57 | 69 6e 64 6f 77 48 61 6e |q%+4 . W|indowHan|
|000032e0| 64 6c 65 0d 0f 28 05 e1 | 0d ff 46 69 6c 65 44 61 |dle..(..|..FileDa|
|000032f0| 74 61 82 21 53 70 72 69 | 74 65 73 00 00 00 e4 03 |ta.!Spri|tes.....|
|00003300| 00 00 42 f9 ff ff db 3a | cc a8 03 00 3b a3 02 00 |..B....:|....;...|
|00003310| 00 00 10 00 00 00 e8 03 | 00 00 d4 02 00 00 21 6e |........|......!n|
|00003320| 65 77 63 68 61 72 73 32 | 00 00 04 00 00 00 10 00 |ewchars2|........|
|00003330| 00 00 00 00 00 00 07 00 | 00 00 2c 00 00 00 80 01 |........|..,.....|
|00003340| 00 00 0c 00 00 00 77 77 | cc cc 77 77 22 22 22 22 |......ww|..ww""""|
|00003350| 22 22 33 23 22 22 22 77 | 77 00 77 77 bb bb 77 77 |""3#"""w|w.ww..ww|
|00003360| bb 22 2b 22 22 22 22 22 | 22 22 22 77 77 00 77 77 |."+"""""|"""ww.ww|
|00003370| 22 22 77 77 22 22 22 42 | 44 22 44 24 42 44 22 77 |""ww"""B|D"D$BD"w|
|00003380| 77 00 77 77 22 72 77 77 | 22 22 22 42 44 22 44 24 |w.ww"rww|"""BD"D$|
|00003390| 42 44 22 77 77 00 77 77 | 77 77 77 77 22 22 22 42 |BD"ww.ww|wwww"""B|
|000033a0| 44 22 44 24 42 44 22 77 | 77 00 77 47 66 66 77 77 |D"D$BD"w|w.wGffww|
|000033b0| 22 22 22 42 44 22 44 24 | 42 44 22 77 77 00 77 27 |"""BD"D$|BD"ww.w'|
|000033c0| 77 22 72 77 27 42 24 42 | 44 22 44 24 42 44 22 77 |w"rw'B$B|D"D$BD"w|
|000033d0| 77 00 77 27 22 22 22 22 | 22 22 22 42 44 22 44 24 |w.w'""""|"""BD"D$|
|000033e0| 42 44 22 77 77 00 77 27 | 32 33 33 22 22 33 23 22 |BD"ww.w'|233""3#"|
|000033f0| 22 22 22 22 22 22 22 77 | 77 00 77 27 77 cc 7c 77 |"""""""w|w.w'w.|w|
|00003400| 27 77 3c 33 33 33 33 33 | 33 33 33 77 77 00 70 77 |'w<33333|333ww.pw|
|00003410| 77 77 77 77 77 87 38 33 | 33 33 33 33 33 33 33 77 |wwwww.83|3333333w|
|00003420| 77 00 70 f7 77 77 77 77 | 77 77 37 33 33 33 33 33 |w.p.wwww|ww733333|
|00003430| 33 33 33 77 77 00 70 f7 | 77 77 77 77 77 77 38 33 |333ww.p.|wwwwww83|
|00003440| 33 33 33 33 33 33 33 77 | 77 00 70 f7 77 77 77 77 |3333333w|w.p.wwww|
|00003450| 77 77 38 33 33 33 33 33 | 33 33 33 77 77 00 70 f7 |ww833333|333ww.p.|
|00003460| 77 7f 77 77 77 77 37 33 | 33 33 33 33 33 33 33 77 |w.wwww73|3333333w|
|00003470| 77 00 70 f7 77 ff 7f 77 | f7 ff 3f 33 33 33 33 33 |w.p.w..w|..?33333|
|00003480| 33 33 33 77 77 00 70 77 | 77 77 77 77 77 77 27 33 |333ww.pw|wwwwww'3|
|00003490| 33 33 33 33 33 33 23 44 | 80 01 ff 0f 00 00 ff 0f |333333#D|........|
|000034a0| 00 00 00 00 00 00 ff 0f | 00 00 00 ff ff ff ff 0f |........|........|
|000034b0| 00 00 ff 0f 00 00 00 ff | ff ff ff ff ff ff 0f ff |........|........|
|000034c0| ff ff ff 0f 00 00 ff 0f | 00 00 f0 ff ff ff ff ff |........|........|
|000034d0| ff ff ff ff ff ff ff 0f | 00 00 ff 0f 00 00 f0 ff |........|........|
|000034e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 0f |........|........|
|000034f0| 00 00 f0 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003500| ff ff f0 ff 00 00 f0 ff | ff ff ff ff ff ff ff ff |........|........|
|00003510| ff ff ff 0f 00 00 00 00 | 00 00 f0 ff ff ff ff ff |........|........|
|00003520| ff ff ff ff ff ff ff 0f | 00 00 00 00 00 00 f0 ff |........|........|
|00003530| ff ff ff ff ff ff ff ff | ff ff ff 0f 00 00 00 00 |........|........|
|00003540| 00 00 f0 ff ff ff ff ff | ff ff ff ff ff ff ff 0f |........|........|
|00003550| 00 00 00 00 00 00 f0 ff | ff ff ff ff ff ff ff ff |........|........|
|00003560| ff ff 00 00 00 00 f0 0f | 00 00 f0 ff ff ff ff ff |........|........|
|00003570| ff ff ff ff ff ff 00 00 | 00 00 00 00 00 00 f0 ff |........|........|
|00003580| ff ff ff ff ff ff ff ff | ff ff 00 00 f0 ff ff ff |........|........|
|00003590| ff 0f f0 ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|000035a0| f0 ff ff ff ff 0f f0 ff | ff ff ff ff ff ff ff ff |........|........|
|000035b0| ff ff 00 00 00 00 00 00 | 00 00 f0 ff ff ff ff ff |........|........|
|000035c0| ff ff ff ff ff ff 00 00 | 00 00 f0 0f 00 00 f0 ff |........|........|
|000035d0| ff ff ff ff ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|000035e0| 00 00 f0 ff ff ff ff ff | ff ff ff ff ff ff 04 01 |........|........|
|000035f0| 00 00 73 6d 21 6e 65 77 | 63 68 61 72 73 32 02 00 |..sm!new|chars2..|
|00003600| 00 00 08 00 00 00 00 00 | 00 00 03 00 00 00 2c 00 |........|......,.|
|00003610| 00 00 98 00 00 00 0c 00 | 00 00 77 bb 77 2b 22 22 |........|..w.w+""|
|00003620| 44 22 02 00 00 00 77 22 | 77 22 24 22 22 22 02 00 |D"....w"|w"$"""..|
|00003630| 00 00 77 77 27 27 44 24 | 44 42 04 00 00 00 77 24 |..ww''D$|DB....w$|
|00003640| 22 42 44 24 44 42 04 00 | 00 00 77 00 70 00 20 22 |"BD$DB..|..w.p. "|
|00003650| 22 22 02 00 00 00 77 70 | 07 77 30 33 33 33 03 00 |""....wp|.w0333..|
|00003660| 00 00 00 70 77 77 30 33 | 33 33 03 00 00 00 00 70 |...pww03|33.....p|
|00003670| 77 77 37 33 33 33 03 00 | 00 00 00 70 77 00 30 33 |ww7333..|...pw.03|
|00003680| 33 33 03 00 00 00 ff 00 | ff 00 00 00 ff 00 f0 ff |33......|........|
|00003690| ff ff ff 00 ff 00 f0 ff | ff ff ff ff ff ff ff ff |........|........|
|000036a0| 0f 0f f0 ff ff ff ff ff | ff ff ff 00 00 00 f0 ff |........|........|
|000036b0| ff ff ff ff ff ff ff 00 | f0 00 f0 ff ff ff ff ff |........|........|
|000036c0| ff ff 00 00 00 00 f0 ff | ff ff ff ff ff ff 00 f0 |........|........|
|000036d0| ff ff f0 ff ff ff ff ff | ff ff 00 00 00 00 f0 ff |........|........|
|000036e0| ff ff ff ff ff ff 00 00 | f0 00 f0 ff ff ff ff ff |........|........|
|000036f0| ff ff 46 69 6c 65 44 61 | 74 61 82 46 6e 74 4d 65 |..FileDa|ta.FntMe|
|00003700| 6e 75 44 6f 63 00 22 3c | 00 00 42 ff ff ff 5c 2a |nuDoc."<|..B...\*|
|00003710| cc 5e 03 00 93 04 0a 0a | 20 20 20 20 20 20 20 20 |.^......|        |
|00003720| 20 20 20 20 20 20 20 44 | 6f 63 75 6d 65 6e 74 61 |       D|ocumenta|
|00003730| 74 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 46 6f 6e |tion for| the Fon|
|00003740| 74 4d 65 6e 75 20 6d 6f | 64 75 6c 65 20 76 2e 31 |tMenu mo|dule v.1|
|00003750| 2e 30 36 0a 0a 20 20 20 | 20 20 20 20 20 20 20 20 |.06..   |        |
|00003760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003770| 20 20 a9 20 4a 2e 52 d6 | 6c 69 6e 67 20 31 39 39 |  . J.R.|ling 199|
|00003780| 30 0a 0a 0a 0a 20 20 20 | 20 20 20 20 20 20 20 20 |0....   |        |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000037a0| 20 20 20 20 49 6e 74 72 | 6f 64 75 63 74 69 6f 6e |    Intr|oduction|
|000037b0| 0a 0a 20 41 73 20 6d 6f | 72 65 20 61 6e 64 20 6d |.. As mo|re and m|
|000037c0| 6f 72 65 20 6f 75 74 6c | 69 6e 65 64 20 66 6f 6e |ore outl|ined fon|
|000037d0| 74 73 20 66 6f 72 20 74 | 68 65 20 41 72 63 68 69 |ts for t|he Archi|
|000037e0| 6d 65 64 65 73 20 61 72 | 65 20 62 65 63 6f 6d 69 |medes ar|e becomi|
|000037f0| 6e 67 20 61 76 61 69 6c | 61 62 6c 65 2c 0a 61 20 |ng avail|able,.a |
|00003800| 70 72 6f 62 6c 65 6d 20 | 61 72 72 69 73 65 73 20 |problem |arrises |
|00003810| 66 6f 72 20 61 70 70 6c | 69 63 61 74 69 6f 6e 73 |for appl|ications|
|00003820| 20 61 63 63 65 73 73 69 | 6e 67 20 74 68 65 73 65 | accessi|ng these|
|00003830| 20 66 6f 6e 74 73 2e 20 | 54 68 65 20 6e 75 6d 62 | fonts. |The numb|
|00003840| 65 72 20 6f 66 0a 66 6f | 6e 74 73 20 69 73 20 6e |er of.fo|nts is n|
|00003850| 6f 74 20 6b 6e 6f 77 6e | 20 69 6e 20 61 64 76 61 |ot known| in adva|
|00003860| 6e 63 65 2c 20 73 6f 20 | 74 6f 20 63 72 65 61 74 |nce, so |to creat|
|00003870| 65 20 61 20 66 6f 6e 74 | 20 6d 65 6e 75 20 74 68 |e a font| menu th|
|00003880| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 68 61 |e applic|ation ha|
|00003890| 73 0a 74 6f 20 66 69 67 | 75 72 65 20 6f 75 74 20 |s.to fig|ure out |
|000038a0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 66 6f |the numb|er of fo|
|000038b0| 6e 74 73 2c 20 63 6c 61 | 69 6d 20 65 6e 6f 75 67 |nts, cla|im enoug|
|000038c0| 68 20 73 70 61 63 65 20 | 74 6f 20 68 6f 6c 64 20 |h space |to hold |
|000038d0| 61 20 66 6f 6e 74 20 6d | 65 6e 75 2c 0a 61 6e 64 |a font m|enu,.and|
|000038e0| 20 63 72 65 61 74 65 20 | 69 74 2e 20 54 68 69 73 | create |it. This|
|000038f0| 20 63 61 6e 20 62 65 20 | 64 6f 6e 65 20 69 6e 20 | can be |done in |
|00003900| 74 68 65 20 64 75 6c 6c | 20 73 69 6e 67 6c 65 20 |the dull| single |
|00003910| 6c 65 76 65 6c 20 28 73 | 74 72 61 69 67 68 74 20 |level (s|traight |
|00003920| 66 6f 72 65 77 61 72 64 | 29 0a 77 61 79 2e 20 54 |foreward|).way. T|
|00003930| 68 69 73 20 73 61 76 65 | 73 20 73 6f 6d 65 20 73 |his save|s some s|
|00003940| 70 61 63 65 2c 20 61 6e | 64 20 63 6f 64 65 20 63 |pace, an|d code c|
|00003950| 6f 6d 70 6c 65 78 65 74 | 79 2c 20 62 75 74 20 69 |omplexet|y, but i|
|00003960| 74 20 69 73 20 6e 6f 74 | 20 70 72 65 66 65 72 65 |t is not| prefere|
|00003970| 64 2c 20 61 73 0a 74 68 | 65 20 75 73 65 72 20 77 |d, as.th|e user w|
|00003980| 69 6c 6c 20 62 65 20 70 | 72 65 73 65 6e 74 65 64 |ill be p|resented|
|00003990| 20 62 79 20 61 20 73 6f | 6d 65 74 69 6d 65 73 20 | by a so|metimes |
|000039a0| 76 65 72 79 20 6c 6f 6e | 67 20 6d 65 6e 75 20 63 |very lon|g menu c|
|000039b0| 6f 6e 74 61 69 6e 69 6e | 67 20 69 74 65 6d 73 0a |ontainin|g items.|
|000039c0| 77 69 74 68 20 74 68 65 | 20 73 61 6d 65 20 70 72 |with the| same pr|
|000039d0| 65 66 69 78 2c 20 65 2e | 67 2e 20 0a 0a 20 20 20 |efix, e.|g. ..   |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039f0| 20 20 20 20 20 20 20 20 | 20 20 54 72 69 6e 69 74 |        |  Trinit|
|00003a00| 79 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |y.      |        |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 54 |        |       T|
|00003a20| 72 69 6e 69 74 79 2e 42 | 6f 6c 64 0a 20 20 20 20 |rinity.B|old.    |
|00003a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a40| 20 20 20 20 20 20 20 20 | 20 54 72 69 6e 69 74 79 |        | Trinity|
|00003a50| 2e 42 6f 6c 64 2e 49 74 | 61 6c 69 63 0a 20 20 20 |.Bold.It|alic.   |
|00003a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 54 72 69 6e 69 74 |        |  Trinit|
|00003a80| 79 2e 4d 65 64 69 75 6d | 0a 20 20 20 20 20 20 20 |y.Medium|.       |
|00003a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003aa0| 20 20 20 20 20 20 54 72 | 69 6e 69 74 79 2e 4d 65 |      Tr|inity.Me|
|00003ab0| 64 69 75 6d 2e 49 74 61 | 6c 69 63 0a 20 20 20 20 |dium.Ita|lic.    |
|00003ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 65 74 63 2e 0a 0a 20 |        | etc... |
|00003ae0| 54 68 65 20 6d 6f 72 65 | 20 66 6f 6e 74 73 20 62 |The more| fonts b|
|00003af0| 65 63 6f 6d 65 20 61 76 | 61 69 6c 61 62 6c 65 2c |ecome av|ailable,|
|00003b00| 20 74 68 65 20 6c 6f 6e | 67 65 72 20 74 68 69 73 | the lon|ger this|
|00003b10| 20 6d 65 6e 75 20 62 65 | 63 6f 6d 65 73 2c 20 74 | menu be|comes, t|
|00003b20| 68 65 20 6d 6f 72 65 0a | 69 72 72 69 74 61 74 69 |he more.|irritati|
|00003b30| 6e 67 20 69 74 20 69 73 | 2e 20 0a 0a 20 4d 61 6e |ng it is|. .. Man|
|00003b40| 79 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 20 6e |y applic|ations n|
|00003b50| 6f 77 20 61 72 65 20 65 | 76 65 6e 20 75 6e 63 61 |ow are e|ven unca|
|00003b60| 70 61 62 6c 65 20 6f 66 | 20 63 72 65 61 74 69 6e |pable of| creatin|
|00003b70| 67 20 6d 65 6e 75 73 20 | 6c 6f 6e 67 65 72 20 74 |g menus |longer t|
|00003b80| 68 65 6e 20 61 0a 63 65 | 72 74 61 69 6e 20 61 6d |hen a.ce|rtain am|
|00003b90| 6f 75 6e 74 2e 20 45 78 | 61 6d 70 6c 65 73 20 6f |ount. Ex|amples o|
|00003ba0| 66 20 74 68 65 73 65 20 | 61 72 65 20 21 45 64 69 |f these |are !Edi|
|00003bb0| 74 20 28 34 38 20 65 6e | 74 72 69 65 73 29 2c 20 |t (48 en|tries), |
|00003bc0| 21 44 72 61 77 20 28 36 | 34 0a 65 6e 74 72 69 65 |!Draw (6|4.entrie|
|00003bd0| 73 29 2c 20 61 6e 64 20 | 65 76 65 6e 20 21 49 6d |s), and |even !Im|
|00003be0| 70 72 65 73 73 69 6f 6e | 20 72 65 61 63 74 73 20 |pression| reacts |
|00003bf0| 73 69 63 6b 2e 0a 0a 20 | 57 68 65 6e 20 72 75 6e |sick... |When run|
|00003c00| 6e 69 6e 67 20 6d 6f 72 | 65 20 74 68 65 6e 20 6f |ning mor|e then o|
|00003c10| 6e 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 77 |ne appli|cation w|
|00003c20| 69 74 68 20 61 20 66 6f | 6e 74 20 6d 65 6e 75 2c |ith a fo|nt menu,|
|00003c30| 20 74 68 65 72 65 20 69 | 73 20 61 72 69 73 65 73 | there i|s arises|
|00003c40| 0a 61 6e 6f 74 68 65 72 | 20 64 69 73 61 64 76 61 |.another| disadva|
|00003c50| 6e 74 61 67 65 20 6f 66 | 20 74 68 69 73 20 6d 65 |ntage of| this me|
|00003c60| 74 68 6f 64 2e 20 53 65 | 76 65 72 61 6c 20 61 70 |thod. Se|veral ap|
|00003c70| 70 6c 69 63 61 74 69 6f | 6e 73 20 75 73 69 6e 67 |plicatio|ns using|
|00003c80| 20 61 20 69 64 65 6e 74 | 69 63 61 6c 0a 6d 65 6e | a ident|ical.men|
|00003c90| 75 20 73 74 72 75 63 74 | 75 72 65 20 62 75 74 20 |u struct|ure but |
|00003ca0| 6e 6f 74 20 73 68 61 72 | 69 6e 67 20 74 68 65 20 |not shar|ing the |
|00003cb0| 72 65 73 6f 75 72 63 65 | 2c 20 69 73 20 6e 6f 74 |resource|, is not|
|00003cc0| 20 74 68 65 20 70 6f 6c | 69 63 79 20 6f 66 20 41 | the pol|icy of A|
|00003cd0| 63 6f 72 6e 20 6f 6e 0a | 6f 74 68 65 72 20 73 75 |corn on.|other su|
|00003ce0| 62 6a 65 63 74 73 2e 20 | 0a 0a 20 53 6f 20 68 65 |bjects. |.. So he|
|00003cf0| 72 65 20 69 73 20 61 20 | 6e 65 61 74 20 73 6f 6c |re is a |neat sol|
|00003d00| 75 74 69 6f 6e 20 66 6f | 72 20 65 76 65 72 79 6f |ution fo|r everyo|
|00003d10| 6e 65 20 77 68 6f 20 77 | 61 6e 74 73 20 61 20 70 |ne who w|ants a p|
|00003d20| 72 6f 70 65 72 20 66 6f | 6e 74 20 6d 65 6e 75 2c |roper fo|nt menu,|
|00003d30| 0a 77 69 74 68 6f 75 74 | 20 74 68 65 20 68 61 73 |.without| the has|
|00003d40| 73 65 6c 20 74 6f 20 63 | 72 65 61 74 65 20 6f 6e |sel to c|reate on|
|00003d50| 65 2c 20 61 6e 64 20 77 | 69 74 68 6f 75 74 20 63 |e, and w|ithout c|
|00003d60| 6c 61 69 6d 69 6e 67 20 | 65 78 74 72 61 20 73 70 |laiming |extra sp|
|00003d70| 61 63 65 2e 0a 0a 20 20 | 20 20 20 20 20 20 20 20 |ace...  |        |
|00003d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003da0| 20 20 20 20 20 20 20 0a | 20 20 20 20 20 20 20 20 |       .|        |
|00003db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003dc0| 20 20 0a 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |  ..    |        |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 57 68 |        |      Wh|
|00003de0| 61 74 20 64 6f 65 73 20 | 46 6f 6e 74 4d 65 6e 75 |at does |FontMenu|
|00003df0| 20 64 6f 20 3f 0a 0a 20 | 54 68 65 20 46 6f 6e 74 | do ?.. |The Font|
|00003e00| 4d 65 6e 75 20 6d 6f 64 | 75 6c 65 20 69 73 20 61 |Menu mod|ule is a|
|00003e10| 62 6c 65 20 6f 66 20 63 | 72 65 61 74 69 6e 67 20 |ble of c|reating |
|00003e20| 61 20 6d 75 6c 74 69 2d | 6c 65 76 65 6c 20 66 6f |a multi-|level fo|
|00003e30| 6e 74 20 6d 65 6e 75 2c | 20 61 6e 64 20 6c 65 74 |nt menu,| and let|
|00003e40| 73 0a 65 76 65 72 79 20 | 61 70 70 6c 69 63 61 74 |s.every |applicat|
|00003e50| 69 6f 6e 20 73 68 61 72 | 65 20 74 68 65 20 6a 6f |ion shar|e the jo|
|00003e60| 79 2e 20 49 74 20 63 6f | 6e 74 61 69 6e 73 20 73 |y. It co|ntains s|
|00003e70| 65 76 65 72 61 6c 20 53 | 57 49 27 73 20 74 6f 20 |everal S|WI's to |
|00003e80| 63 72 65 61 74 65 2c 20 | 61 6e 64 0a 61 63 63 65 |create, |and.acce|
|00003e90| 73 73 20 74 68 69 73 20 | 72 65 73 6f 75 72 63 65 |ss this |resource|
|00003ea0| 2e 20 49 66 20 6e 6f 20 | 61 70 70 6c 69 63 61 74 |. If no |applicat|
|00003eb0| 69 6f 6e 20 69 73 20 75 | 73 69 6e 67 20 74 68 65 |ion is u|sing the|
|00003ec0| 20 73 74 72 75 63 74 75 | 72 65 20 61 6e 79 6d 6f | structu|re anymo|
|00003ed0| 72 65 0a 28 62 65 63 61 | 75 73 65 20 74 68 65 79 |re.(beca|use they|
|00003ee0| 20 77 65 72 65 20 61 6c | 6c 20 71 75 69 74 65 64 | were al|l quited|
|00003ef0| 20 66 6f 72 20 65 78 61 | 6d 70 6c 65 29 20 74 68 | for exa|mple) th|
|00003f00| 65 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 74 68 65 |e memory| for the|
|00003f10| 20 6d 65 6e 75 20 73 74 | 72 75 63 74 75 72 65 0a | menu st|ructure.|
|00003f20| 77 69 6c 6c 20 62 65 20 | 72 65 61 6c 65 73 65 64 |will be |realesed|
|00003f30| 20 62 79 20 46 6f 6e 74 | 4d 65 6e 75 2c 20 73 6f | by Font|Menu, so|
|00003f40| 20 6e 6f 20 75 6e 6e 65 | 63 65 73 73 61 72 79 20 | no unne|cessary |
|00003f50| 6d 65 6d 6f 72 79 20 69 | 73 20 69 6e 20 75 73 65 |memory i|s in use|
|00003f60| 2e 20 49 74 20 68 61 73 | 20 6e 6f 0a 70 72 6f 62 |. It has| no.prob|
|00003f70| 6c 65 6d 73 20 69 66 20 | 6d 6f 72 65 20 74 68 61 |lems if |more tha|
|00003f80| 6e 20 6f 6e 65 20 66 6f | 6e 74 20 64 69 72 65 63 |n one fo|nt direc|
|00003f90| 74 6f 72 79 20 69 73 20 | 69 6e 20 75 73 65 2e 20 |tory is |in use. |
|00003fa0| 54 68 65 20 6d 65 6e 75 | 20 69 73 20 73 6f 72 74 |The menu| is sort|
|00003fb0| 65 64 0a 61 6c 70 68 61 | 62 65 74 69 63 6c 79 20 |ed.alpha|beticly |
|00003fc0| 28 65 76 65 6e 20 77 68 | 65 6e 20 6d 6f 72 65 20 |(even wh|en more |
|00003fd0| 74 68 61 6e 20 6f 6e 65 | 20 66 6f 6e 74 20 64 69 |than one| font di|
|00003fe0| 72 65 63 74 6f 72 69 73 | 20 61 72 65 20 75 73 65 |rectoris| are use|
|00003ff0| 64 29 2c 20 73 6f 20 74 | 68 65 20 75 73 65 72 0a |d), so t|he user.|
|00004000| 69 73 20 61 62 6c 65 20 | 74 6f 20 66 69 6e 64 20 |is able |to find |
|00004010| 74 68 65 20 72 65 71 75 | 69 72 65 64 20 66 6f 6e |the requ|ired fon|
|00004020| 74 20 61 74 20 61 6e 20 | 69 6e 73 74 61 6e 63 65 |t at an |instance|
|00004030| 2e 20 49 74 20 72 65 71 | 75 69 72 65 73 20 61 20 |. It req|uires a |
|00004040| 6d 69 6e 69 6d 75 6d 20 | 6f 66 0a 64 69 73 63 20 |minimum |of.disc |
|00004050| 61 63 63 65 73 73 20 77 | 68 65 6e 20 61 20 6e 65 |access w|hen a ne|
|00004060| 77 20 6d 65 6e 75 20 69 | 73 20 63 72 65 61 74 65 |w menu i|s create|
|00004070| 64 2e 20 4e 65 77 20 6d | 65 6e 75 73 20 61 72 65 |d. New m|enus are|
|00004080| 20 6f 6e 6c 79 20 63 72 | 65 61 74 65 64 20 69 66 | only cr|eated if|
|00004090| 20 6f 6e 65 20 69 73 0a | 72 65 71 75 69 72 65 64 | one is.|required|
|000040a0| 2c 20 61 6e 64 20 74 68 | 65 72 65 20 69 73 6e 27 |, and th|ere isn'|
|000040b0| 74 20 61 6c 72 65 61 64 | 79 20 61 20 76 61 6c 69 |t alread|y a vali|
|000040c0| 64 20 6f 6e 65 2e 20 57 | 68 65 6e 20 61 20 66 6f |d one. W|hen a fo|
|000040d0| 6e 74 20 6d 65 6e 75 20 | 65 78 73 69 73 74 73 2c |nt menu |exsists,|
|000040e0| 20 61 6e 64 0a 74 68 65 | 20 75 73 65 72 20 68 61 | and.the| user ha|
|000040f0| 73 20 73 65 6c 65 63 74 | 65 64 20 61 20 6e 65 77 |s select|ed a new|
|00004100| 20 66 6f 6e 74 20 64 69 | 72 65 63 74 6f 72 79 2c | font di|rectory,|
|00004110| 20 74 68 65 20 66 6f 6e | 74 20 6d 65 6e 75 20 77 | the fon|t menu w|
|00004120| 69 6c 6c 20 62 65 20 72 | 65 62 75 69 6c 64 20 61 |ill be r|ebuild a|
|00004130| 73 0a 73 6f 6f 6e 20 61 | 73 20 74 68 65 20 61 70 |s.soon a|s the ap|
|00004140| 70 6c 69 63 61 74 69 6f | 6e 20 61 63 63 65 73 73 |plicatio|n access|
|00004150| 65 73 20 74 68 69 73 20 | 66 6f 6e 74 20 6d 65 6e |es this |font men|
|00004160| 75 2e 20 0a 0a 20 46 6f | 6e 74 4d 65 6e 75 20 63 |u. .. Fo|ntMenu c|
|00004170| 72 65 61 74 65 73 20 61 | 6e 20 6d 75 6c 74 69 2d |reates a|n multi-|
|00004180| 6c 65 76 65 6c 65 64 20 | 66 6f 6e 74 20 6d 65 6e |leveled |font men|
|00004190| 75 2e 20 49 6e 20 74 68 | 65 20 65 78 61 6d 70 6c |u. In th|e exampl|
|000041a0| 65 20 61 62 6f 76 65 20 | 74 68 69 73 20 69 73 20 |e above |this is |
|000041b0| 61 0a 6d 65 6e 75 20 77 | 68 65 72 65 20 27 54 72 |a.menu w|here 'Tr|
|000041c0| 69 6e 69 74 79 27 20 6f | 63 63 75 72 73 20 6f 6e |inity' o|ccurs on|
|000041d0| 6c 79 20 6f 6e 63 65 2c | 20 62 75 74 20 69 74 20 |ly once,| but it |
|000041e0| 77 69 6c 6c 20 68 61 76 | 65 20 61 20 73 75 62 6d |will hav|e a subm|
|000041f0| 65 6e 75 20 63 6f 6e 74 | 61 69 6e 69 6e 67 0a 74 |enu cont|aining.t|
|00004200| 77 6f 20 69 74 65 6d 73 | 3a 20 27 42 6f 6c 64 27 |wo items|: 'Bold'|
|00004210| 20 61 6e 64 20 27 4d 65 | 64 69 75 6d 27 2e 20 42 | and 'Me|dium'. B|
|00004220| 65 63 61 75 73 65 20 74 | 68 65 72 65 20 61 72 65 |ecause t|here are|
|00004230| 20 74 77 6f 20 74 79 70 | 65 73 20 6f 66 0a 27 54 | two typ|es of.'T|
|00004240| 72 69 6e 69 74 79 2e 42 | 6f 6c 64 27 20 28 27 54 |rinity.B|old' ('T|
|00004250| 72 69 6e 69 74 79 2e 42 | 6f 6c 64 27 20 61 6e 64 |rinity.B|old' and|
|00004260| 20 27 54 72 69 6e 69 79 | 2e 42 6f 6c 64 2e 49 74 | 'Triniy|.Bold.It|
|00004270| 61 6c 69 63 27 29 20 27 | 42 6f 6c 64 27 20 77 69 |alic') '|Bold' wi|
|00004280| 6c 6c 20 68 61 76 65 0a | 61 6e 6f 74 68 65 72 20 |ll have.|another |
|00004290| 73 75 62 6d 65 6e 75 2e | 20 49 6e 20 74 68 69 73 |submenu.| In this|
|000042a0| 20 73 75 62 6d 65 6e 75 | 20 74 68 65 20 66 69 72 | submenu| the fir|
|000042b0| 73 74 20 69 74 65 6d 20 | 77 69 6c 6c 20 62 65 20 |st item |will be |
|000042c0| 27 50 6c 61 69 6e 27 2e | 20 54 68 69 73 20 6e 61 |'Plain'.| This na|
|000042d0| 6d 65 0a 69 73 20 6d 61 | 64 65 20 75 70 2c 20 62 |me.is ma|de up, b|
|000042e0| 75 74 20 69 74 20 69 73 | 20 6d 6f 72 65 20 63 6c |ut it is| more cl|
|000042f0| 65 61 72 20 74 68 65 6e | 20 61 20 65 6d 70 74 79 |ear then| a empty|
|00004300| 20 6d 65 6e 79 20 65 6e | 74 72 79 2e 20 54 68 65 | meny en|try. The|
|00004310| 20 73 65 63 6f 6e 64 20 | 65 6e 74 72 79 0a 77 69 | second |entry.wi|
|00004320| 6c 6c 20 6f 66 20 63 6f | 75 72 73 65 20 62 65 20 |ll of co|urse be |
|00004330| 27 49 74 61 6c 69 63 27 | 2e 0a 0a 0a 0a 20 20 20 |'Italic'|.....   |
|00004340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004350| 20 20 20 20 20 20 20 48 | 6f 77 20 64 6f 65 73 20 |       H|ow does |
|00004360| 46 6f 6e 74 4d 65 6e 75 | 20 77 6f 72 6b 20 3f 0a |FontMenu| work ?.|
|00004370| 0a 20 54 6f 20 75 73 65 | 20 46 6f 6e 74 4d 65 6e |. To use| FontMen|
|00004380| 75 20 69 74 20 69 73 20 | 6e 65 63 65 73 73 61 72 |u it is |necessar|
|00004390| 79 20 74 6f 20 75 6e 64 | 65 72 73 74 61 6e 64 20 |y to und|erstand |
|000043a0| 68 6f 77 20 74 68 65 20 | 57 69 6d 70 20 77 6f 72 |how the |Wimp wor|
|000043b0| 6b 73 2c 20 61 6e 64 20 | 68 6f 77 0a 74 6f 20 63 |ks, and |how.to c|
|000043c0| 72 65 61 74 65 20 61 20 | 61 70 70 6c 69 63 61 74 |reate a |applicat|
|000043d0| 69 6f 6e 20 6f 6e 20 74 | 68 65 20 41 72 63 68 69 |ion on t|he Archi|
|000043e0| 6d 65 64 65 73 20 65 6e | 76 69 72 6f 6e 6d 65 6e |medes en|vironmen|
|000043f0| 74 2e 20 49 74 20 69 73 | 20 61 73 73 75 6d 65 64 |t. It is| assumed|
|00004400| 20 74 68 61 74 0a 74 68 | 65 20 72 65 61 64 65 72 | that.th|e reader|
|00004410| 20 75 6e 64 65 72 73 74 | 61 6e 64 73 20 74 68 65 | underst|ands the|
|00004420| 20 61 62 6f 76 65 20 66 | 6f 72 20 74 68 65 20 72 | above f|or the r|
|00004430| 65 73 74 20 6f 66 20 74 | 68 69 73 20 64 6f 63 75 |est of t|his docu|
|00004440| 6d 65 6e 74 2e 0a 0a 20 | 57 68 65 6e 20 61 20 61 |ment... |When a a|
|00004450| 70 70 6c 69 63 61 74 69 | 6f 6e 20 77 61 6e 74 73 |pplicati|on wants|
|00004460| 20 74 6f 20 61 63 63 65 | 73 73 20 74 68 65 20 46 | to acce|ss the F|
|00004470| 6f 6e 74 4d 65 6e 75 20 | 6d 65 6e 75 20 73 74 72 |ontMenu |menu str|
|00004480| 75 63 74 75 72 65 2c 20 | 69 74 20 68 61 73 20 74 |ucture, |it has t|
|00004490| 6f 0a 63 61 6c 6c 20 53 | 57 49 20 22 46 6f 6e 74 |o.call S|WI "Font|
|000044a0| 4d 65 6e 75 5f 43 72 65 | 61 74 65 22 20 62 65 66 |Menu_Cre|ate" bef|
|000044b0| 6f 72 65 20 61 6e 79 20 | 6f 74 68 65 72 20 46 6f |ore any |other Fo|
|000044c0| 6e 74 4d 65 6e 75 20 53 | 57 49 27 73 20 61 72 65 |ntMenu S|WI's are|
|000044d0| 20 63 61 6c 6c 65 64 2e | 20 54 68 69 73 0a 77 69 | called.| This.wi|
|000044e0| 6c 6c 20 61 73 73 75 72 | 65 20 74 68 61 74 20 61 |ll assur|e that a|
|000044f0| 20 70 72 6f 70 65 72 20 | 66 6f 6e 74 20 6d 65 6e | proper |font men|
|00004500| 75 20 73 74 72 75 63 74 | 75 72 65 20 77 69 6c 6c |u struct|ure will|
|00004510| 20 62 65 20 61 76 61 69 | 6c 61 62 6c 65 2e 20 54 | be avai|lable. T|
|00004520| 68 69 73 20 63 61 6e 20 | 62 65 0a 64 6f 6e 65 20 |his can |be.done |
|00004530| 6f 6e 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |on initi|alisatio|
|00004540| 6e 20 6f 66 20 74 68 65 | 20 61 70 70 6c 69 63 61 |n of the| applica|
|00004550| 74 69 6f 6e 2c 20 62 75 | 74 20 69 73 20 6e 6f 74 |tion, bu|t is not|
|00004560| 20 61 62 73 6f 6c 75 74 | 6c 79 20 6e 65 63 65 73 | absolut|ly neces|
|00004570| 73 61 72 79 2e 0a 57 68 | 65 6e 20 65 78 69 74 69 |sary..Wh|en exiti|
|00004580| 6e 67 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |ng the a|pplicati|
|00004590| 6f 6e 2c 20 53 57 49 20 | 22 46 6f 6e 74 4d 65 6e |on, SWI |"FontMen|
|000045a0| 75 5f 52 65 6c 65 61 73 | 65 22 20 68 61 73 20 74 |u_Releas|e" has t|
|000045b0| 6f 20 62 65 20 63 61 6c | 6c 65 64 2c 20 73 6f 20 |o be cal|led, so |
|000045c0| 69 66 0a 74 68 69 73 20 | 77 61 73 20 74 68 65 20 |if.this |was the |
|000045d0| 6f 6e 6c 79 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |only app|lication|
|000045e0| 20 75 73 69 6e 67 20 74 | 68 65 20 66 6f 6e 74 20 | using t|he font |
|000045f0| 6d 65 6e 75 2c 20 46 6f | 6e 74 4d 65 6e 75 20 63 |menu, Fo|ntMenu c|
|00004600| 61 6e 20 72 65 6c 65 61 | 73 65 20 74 68 65 0a 6d |an relea|se the.m|
|00004610| 65 6d 6f 72 79 20 66 6f | 72 20 69 74 2e 20 45 76 |emory fo|r it. Ev|
|00004620| 65 72 79 20 74 69 6d 65 | 20 53 57 49 20 22 46 6f |ery time| SWI "Fo|
|00004630| 6e 74 4d 65 6e 75 5f 43 | 72 65 61 74 65 22 20 69 |ntMenu_C|reate" i|
|00004640| 73 20 63 61 6c 6c 65 64 | 2c 20 61 20 63 6f 75 6e |s called|, a coun|
|00004650| 74 65 72 20 69 73 0a 69 | 6e 63 72 65 6d 65 6e 74 |ter is.i|ncrement|
|00004660| 65 64 2c 20 61 6e 64 20 | 69 66 20 69 74 20 77 61 |ed, and |if it wa|
|00004670| 73 20 7a 65 72 6f 20 28 | 74 68 69 73 20 69 73 20 |s zero (|this is |
|00004680| 74 68 65 20 69 6e 69 74 | 69 61 6c 20 76 61 6c 75 |the init|ial valu|
|00004690| 65 29 2c 20 69 74 20 77 | 69 6c 6c 20 63 72 65 61 |e), it w|ill crea|
|000046a0| 74 65 0a 61 20 6e 65 77 | 20 66 6f 6e 74 20 6d 65 |te.a new| font me|
|000046b0| 6e 75 2e 20 57 68 65 6e | 20 63 61 6c 6c 69 6e 67 |nu. When| calling|
|000046c0| 20 53 57 49 20 22 46 6f | 6e 74 4d 65 6e 75 5f 52 | SWI "Fo|ntMenu_R|
|000046d0| 65 6c 65 61 73 65 22 2c | 20 74 68 65 20 63 6f 75 |elease",| the cou|
|000046e0| 6e 74 65 72 20 69 73 0a | 64 65 63 72 65 6d 65 6e |nter is.|decremen|
|000046f0| 74 65 64 2c 20 61 6e 64 | 20 69 66 20 69 74 20 72 |ted, and| if it r|
|00004700| 65 61 63 68 65 64 20 7a | 65 72 6f 20 46 6f 6e 74 |eached z|ero Font|
|00004710| 4d 65 6e 75 20 77 69 6c | 6c 20 72 65 6c 65 61 73 |Menu wil|l releas|
|00004720| 65 20 74 68 65 20 6d 65 | 6e 75 20 6d 65 6d 6f 72 |e the me|nu memor|
|00004730| 79 2c 0a 61 73 20 6e 6f | 20 61 70 70 6c 69 63 61 |y,.as no| applica|
|00004740| 74 69 6f 6e 20 69 73 20 | 75 73 69 6e 67 20 74 68 |tion is |using th|
|00004750| 65 20 6d 65 6e 75 20 73 | 74 72 75 63 74 75 72 65 |e menu s|tructure|
|00004760| 20 61 6e 79 6d 6f 72 65 | 2e 0a 0a 0a 20 46 72 6f | anymore|.... Fro|
|00004770| 6d 20 68 65 72 65 20 6f | 6e 20 74 68 65 72 65 20 |m here o|n there |
|00004780| 61 72 65 20 74 77 6f 20 | 77 61 79 73 20 6f 66 20 |are two |ways of |
|00004790| 70 72 6f 67 72 61 6d 6d | 69 6e 67 20 77 68 65 6e |programm|ing when|
|000047a0| 20 75 73 69 6e 67 20 46 | 6f 6e 74 4d 65 6e 75 2e | using F|ontMenu.|
|000047b0| 20 54 68 65 0a 66 69 72 | 73 74 20 69 73 20 74 68 | The.fir|st is th|
|000047c0| 65 20 73 69 6d 70 6c 65 | 20 6f 6e 65 2c 20 74 68 |e simple| one, th|
|000047d0| 65 20 73 65 63 6f 6e 64 | 20 61 20 6c 69 74 74 6c |e second| a littl|
|000047e0| 65 20 62 69 74 20 6d 6f | 72 65 20 63 6f 6d 70 6c |e bit mo|re compl|
|000047f0| 69 63 61 74 65 64 2c 20 | 61 73 20 69 74 0a 69 6e |icated, |as it.in|
|00004800| 76 6f 6c 76 65 73 20 74 | 68 65 20 75 73 65 20 74 |volves t|he use t|
|00004810| 68 65 20 57 69 6d 70 20 | 6d 65 73 73 61 67 65 20 |he Wimp |message |
|00004820| 73 79 73 74 65 6d 2e 0a | 0a 20 54 68 65 20 65 61 |system..|. The ea|
|00004830| 73 79 20 77 61 79 0a 20 | 2d 2d 2d 2d 2d 2d 2d 2d |sy way. |--------|
|00004840| 2d 2d 2d 2d 0a 20 57 68 | 65 6e 65 76 65 72 20 74 |----. Wh|enever t|
|00004850| 68 65 20 75 73 65 72 20 | 6f 70 65 6e 73 20 74 68 |he user |opens th|
|00004860| 65 20 6d 65 6e 75 20 73 | 74 72 75 63 74 75 72 65 |e menu s|tructure|
|00004870| 20 6f 66 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 | of the |applicat|
|00004880| 69 6f 6e 20 62 79 20 70 | 72 65 73 73 69 6e 67 0a |ion by p|ressing.|
|00004890| 74 68 65 20 4d 45 4e 55 | 20 62 75 74 74 6f 6e 2c |the MENU| button,|
|000048a0| 20 61 20 63 61 6c 6c 20 | 68 61 73 20 74 6f 20 62 | a call |has to b|
|000048b0| 65 20 6d 61 64 65 20 74 | 6f 20 46 6f 6e 74 4d 65 |e made t|o FontMe|
|000048c0| 6e 75 5f 53 65 6c 65 63 | 74 20 77 69 74 68 20 52 |nu_Selec|t with R|
|000048d0| 30 20 70 6f 69 6e 74 69 | 6e 67 0a 74 6f 20 61 20 |0 pointi|ng.to a |
|000048e0| 70 6f 69 6e 74 20 73 65 | 70 65 61 72 74 65 64 20 |point se|pearted |
|000048f0| 28 7a 65 72 6f 20 74 65 | 72 6d 69 6e 61 74 65 64 |(zero te|rminated|
|00004900| 29 20 66 6f 6e 74 20 73 | 74 72 69 6e 67 2c 20 61 |) font s|tring, a|
|00004910| 6e 64 20 69 6e 20 52 31 | 20 74 68 65 20 76 61 6c |nd in R1| the val|
|00004920| 75 65 20 30 20 6f 72 0a | 31 20 74 6f 20 74 65 6c |ue 0 or.|1 to tel|
|00004930| 6c 20 46 6f 6e 74 4d 65 | 6e 75 20 69 66 20 69 74 |l FontMe|nu if it|
|00004940| 20 61 6c 6c 6f 77 73 20 | 74 68 65 20 75 73 65 72 | allows |the user|
|00004950| 20 74 6f 20 73 65 6c 65 | 63 74 20 74 68 65 20 53 | to sele|ct the S|
|00004960| 79 73 74 65 6d 46 6f 6e | 74 2e 20 54 68 65 20 63 |ystemFon|t. The c|
|00004970| 61 6c 6c 0a 77 69 6c 6c | 20 72 65 74 75 72 6e 20 |all.will| return |
|00004980| 77 69 74 68 20 61 20 70 | 6f 69 6e 74 65 72 20 74 |with a p|ointer t|
|00004990| 6f 20 74 68 65 20 66 6f | 6e 74 20 6d 65 6e 75 20 |o the fo|nt menu |
|000049a0| 73 74 72 75 63 74 75 72 | 65 20 69 6e 20 52 31 2e |structur|e in R1.|
|000049b0| 20 4e 6f 77 20 69 74 20 | 69 73 20 75 70 20 74 6f | Now it |is up to|
|000049c0| 0a 74 68 65 20 70 72 6f | 67 72 61 6d 6d 65 72 20 |.the pro|grammer |
|000049d0| 77 68 61 74 20 74 6f 20 | 64 6f 20 77 69 74 68 20 |what to |do with |
|000049e0| 74 68 69 73 20 70 6f 69 | 6e 74 65 72 2e 20 57 68 |this poi|nter. Wh|
|000049f0| 65 6e 20 70 61 73 73 65 | 64 20 69 6e 20 52 31 20 |en passe|d in R1 |
|00004a00| 77 68 65 6e 20 63 61 6c | 6c 69 6e 67 0a 57 69 6d |when cal|ling.Wim|
|00004a10| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 2c 20 74 68 |p_Create|Menu, th|
|00004a20| 65 20 6d 65 6e 75 20 74 | 72 65 65 20 77 69 6c 6c |e menu t|ree will|
|00004a30| 20 63 6f 6e 73 69 73 74 | 20 65 6e 74 69 72 65 6c | consist| entirel|
|00004a40| 79 20 6f 66 20 46 6f 6e | 74 4d 65 6e 75 20 73 74 |y of Fon|tMenu st|
|00004a50| 72 75 63 74 75 72 65 73 | 2e 0a 49 66 20 74 68 65 |ructures|..If the|
|00004a60| 20 66 6f 6e 74 20 6d 65 | 6e 75 20 73 68 6f 75 6c | font me|nu shoul|
|00004a70| 64 20 62 65 20 61 20 73 | 75 62 6d 65 6e 75 20 6f |d be a s|ubmenu o|
|00004a80| 66 20 74 68 65 20 61 70 | 70 6c 69 63 61 74 69 6f |f the ap|plicatio|
|00004a90| 6e 73 20 6f 77 6e 20 6d | 65 6e 75 20 73 74 72 75 |ns own m|enu stru|
|00004aa0| 63 74 75 72 65 2c 0a 74 | 68 65 20 70 6f 69 6e 74 |cture,.t|he point|
|00004ab0| 65 72 20 73 68 6f 75 6c | 64 20 62 65 20 70 75 74 |er shoul|d be put|
|00004ac0| 20 69 6e 20 74 68 65 20 | 73 75 62 6d 65 6e 75 2d | in the |submenu-|
|00004ad0| 77 6f 72 64 20 6f 66 20 | 74 68 65 20 70 61 72 65 |word of |the pare|
|00004ae0| 6e 74 20 6d 65 6e 75 20 | 65 6e 74 72 79 2c 20 61 |nt menu |entry, a|
|00004af0| 6e 64 0a 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |nd.Wimp_|CreateMe|
|00004b00| 6e 75 20 73 68 6f 75 6c | 64 20 62 65 20 63 61 6c |nu shoul|d be cal|
|00004b10| 6c 65 64 20 77 69 74 68 | 20 61 20 70 6f 69 6e 74 |led with| a point|
|00004b20| 65 72 20 74 6f 20 74 68 | 65 20 61 70 70 6c 69 63 |er to th|e applic|
|00004b30| 61 74 69 6f 6e 73 20 6f | 77 6e 20 6d 65 6e 75 0a |ations o|wn menu.|
|00004b40| 73 74 72 75 63 74 75 72 | 65 2e 0a 0a 20 57 68 65 |structur|e... Whe|
|00004b50| 6e 20 61 20 6d 65 6e 75 | 20 73 65 6c 65 63 74 69 |n a menu| selecti|
|00004b60| 6f 6e 20 77 61 73 20 64 | 6f 6e 65 2c 20 74 68 65 |on was d|one, the|
|00004b70| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 73 68 6f | applica|tion sho|
|00004b80| 75 6c 64 20 64 65 74 65 | 72 6d 69 6e 65 20 62 79 |uld dete|rmine by|
|00004b90| 20 74 68 65 0a 72 65 74 | 75 72 6e 65 64 20 27 6d | the.ret|urned 'm|
|00004ba0| 65 6e 75 20 74 72 65 65 | 20 73 6f 20 66 61 72 27 |enu tree| so far'|
|00004bb0| 20 76 61 6c 75 65 73 20 | 69 66 20 74 68 65 20 75 | values |if the u|
|00004bc0| 73 65 72 20 73 65 6c 65 | 63 74 65 64 20 61 20 65 |ser sele|cted a e|
|00004bd0| 6e 74 72 79 20 69 6e 20 | 74 68 65 20 66 6f 6e 74 |ntry in |the font|
|00004be0| 0a 6d 65 6e 75 2e 20 49 | 66 20 73 6f 2c 20 69 74 |.menu. I|f so, it|
|00004bf0| 20 73 68 6f 75 6c 64 20 | 73 65 74 20 61 6e 20 69 | should |set an i|
|00004c00| 6e 74 65 72 6e 61 6c 20 | 66 6c 61 67 20 28 73 61 |nternal |flag (sa|
|00004c10| 79 20 27 46 6f 6e 74 4d | 65 6e 75 53 65 6c 65 63 |y 'FontM|enuSelec|
|00004c20| 74 65 64 27 29 20 74 6f | 0a 54 52 55 45 2c 20 65 |ted') to|.TRUE, e|
|00004c30| 6c 73 65 20 69 74 20 73 | 68 6f 75 6c 64 20 73 65 |lse it s|hould se|
|00004c40| 74 20 69 74 20 74 6f 20 | 46 41 4c 53 45 2c 20 73 |t it to |FALSE, s|
|00004c50| 6f 20 6c 61 74 65 72 20 | 6f 6e 20 69 74 20 69 73 |o later |on it is|
|00004c60| 20 73 74 69 6c 6c 20 6b | 6e 6f 77 6e 20 69 66 20 | still k|nown if |
|00004c70| 74 68 65 0a 75 73 65 72 | 20 6d 61 79 20 68 61 76 |the.user| may hav|
|00004c80| 65 20 73 65 6c 65 63 74 | 65 64 20 61 20 6e 65 77 |e select|ed a new|
|00004c90| 20 66 6f 6e 74 2e 20 41 | 66 74 65 72 20 74 68 61 | font. A|fter tha|
|00004ca0| 74 20 69 74 20 73 68 6f | 75 6c 64 20 63 61 6c 6c |t it sho|uld call|
|00004cb0| 20 53 57 49 0a 22 46 6f | 6e 74 4d 65 6e 75 5f 44 | SWI."Fo|ntMenu_D|
|00004cc0| 65 63 6f 64 65 46 6f 6e | 74 4d 65 6e 75 22 20 77 |ecodeFon|tMenu" w|
|00004cd0| 69 74 68 20 52 30 20 70 | 6f 69 6e 74 69 6e 67 20 |ith R0 p|ointing |
|00004ce0| 74 6f 20 74 68 65 20 66 | 69 72 73 74 20 6d 65 6e |to the f|irst men|
|00004cf0| 75 20 73 65 6c 65 63 74 | 69 6f 6e 20 69 6e 0a 74 |u select|ion in.t|
|00004d00| 68 65 20 27 6d 65 6e 75 | 20 74 72 65 65 20 73 6f |he 'menu| tree so|
|00004d10| 20 66 61 72 27 20 62 6c | 6f 63 6b 20 77 69 63 68 | far' bl|ock wich|
|00004d20| 20 64 65 74 65 72 6d 69 | 6e 65 73 20 74 68 65 20 | determi|nes the |
|00004d30| 73 65 6c 65 63 74 65 64 | 20 66 6f 6e 74 2e 20 52 |selected| font. R|
|00004d40| 31 20 73 68 6f 75 6c 64 | 0a 70 6f 69 6e 74 20 74 |1 should|.point t|
|00004d50| 6f 20 61 20 62 75 66 66 | 65 72 20 74 6f 20 63 6f |o a buff|er to co|
|00004d60| 6e 74 61 69 6e 20 74 68 | 65 20 61 6e 73 77 65 72 |ntain th|e answer|
|00004d70| 2e 20 54 68 69 73 20 62 | 75 66 66 65 72 20 6d 75 |. This b|uffer mu|
|00004d80| 73 74 20 62 65 20 61 74 | 20 6c 65 61 73 74 20 34 |st be at| least 4|
|00004d90| 38 0a 62 79 74 65 73 2e | 20 49 66 20 6f 6e 20 72 |8.bytes.| If on r|
|00004da0| 65 74 75 72 6e 20 6f 66 | 20 74 68 69 73 20 63 61 |eturn of| this ca|
|00004db0| 6c 6c 20 52 30 20 3e 20 | 30 2c 20 74 68 65 20 75 |ll R0 > |0, the u|
|00004dc0| 73 65 72 20 73 65 6c 65 | 63 74 65 64 20 61 20 6e |ser sele|cted a n|
|00004dd0| 65 77 20 66 6f 6e 74 2e | 20 54 68 65 0a 62 75 66 |ew font.| The.buf|
|00004de0| 66 65 72 20 70 61 73 73 | 65 64 20 69 6e 20 52 31 |fer pass|ed in R1|
|00004df0| 20 77 69 6c 6c 20 63 6f | 6e 74 61 69 6e 20 74 68 | will co|ntain th|
|00004e00| 65 20 66 6f 6e 74 20 6e | 61 6d 65 20 28 61 20 70 |e font n|ame (a p|
|00004e10| 6f 69 6e 74 20 73 65 70 | 65 72 61 74 65 64 2c 20 |oint sep|erated, |
|00004e20| 7a 65 72 6f 0a 74 65 72 | 6d 69 6e 61 74 65 64 20 |zero.ter|minated |
|00004e30| 66 6f 6e 74 20 73 74 72 | 69 6e 67 29 2e 0a 0a 20 |font str|ing)... |
|00004e40| 41 66 74 65 72 20 61 20 | 6d 65 6e 75 20 73 65 6c |After a |menu sel|
|00004e50| 63 74 69 6f 6e 2c 20 61 | 6e 64 20 74 61 6b 69 6e |ction, a|nd takin|
|00004e60| 67 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 61 63 |g approp|riate ac|
|00004e70| 74 69 6f 6e 73 2c 20 74 | 68 65 20 61 70 70 6c 69 |tions, t|he appli|
|00004e80| 63 61 74 69 6f 6e 0a 73 | 68 6f 75 6c 64 20 63 68 |cation.s|hould ch|
|00004e90| 65 63 6b 20 74 68 65 20 | 6d 6f 75 73 65 20 62 75 |eck the |mouse bu|
|00004ea0| 74 74 6f 6e 20 73 74 61 | 74 65 20 74 6f 20 73 65 |tton sta|te to se|
|00004eb0| 65 20 69 66 20 69 74 20 | 68 61 73 20 74 6f 20 63 |e if it |has to c|
|00004ec0| 61 6c 6c 20 53 57 49 0a | 22 57 69 6d 70 5f 43 72 |all SWI.|"Wimp_Cr|
|00004ed0| 65 61 74 65 4d 65 6e 75 | 22 20 61 67 61 69 6e 2e |eateMenu|" again.|
|00004ee0| 20 49 66 20 61 64 6a 75 | 73 74 20 77 61 73 20 75 | If adju|st was u|
|00004ef0| 73 65 64 20 74 6f 20 6d | 61 6b 65 20 74 68 65 20 |sed to m|ake the |
|00004f00| 73 65 6c 65 63 74 69 6f | 6e 2c 20 69 74 20 68 61 |selectio|n, it ha|
|00004f10| 73 20 74 6f 0a 63 68 65 | 63 6b 20 20 74 68 65 20 |s to.che|ck  the |
|00004f20| 27 46 6f 6e 74 4d 65 6e | 75 53 65 6c 65 63 74 65 |'FontMen|uSelecte|
|00004f30| 64 27 20 66 6c 61 67 20 | 74 6f 20 64 65 74 65 72 |d' flag |to deter|
|00004f40| 6d 69 6e 65 20 69 66 20 | 74 68 65 20 75 73 65 72 |mine if |the user|
|00004f50| 20 73 65 6c 65 63 74 65 | 64 20 61 20 66 6f 6e 74 | selecte|d a font|
|00004f60| 0a 6d 65 6e 75 20 65 6e | 74 72 79 2e 20 49 66 20 |.menu en|try. If |
|00004f70| 73 6f 2c 20 69 74 20 73 | 68 6f 75 6c 64 20 63 61 |so, it s|hould ca|
|00004f80| 6c 6c 20 46 6f 6e 74 4d | 65 6e 75 5f 53 65 6c 65 |ll FontM|enu_Sele|
|00004f90| 63 74 20 61 73 20 64 69 | 73 63 72 69 62 65 64 20 |ct as di|scribed |
|00004fa0| 61 62 6f 76 65 2e 20 54 | 68 69 73 0a 73 68 6f 75 |above. T|his.shou|
|00004fb0| 6c 64 20 62 65 20 64 6f | 6e 65 20 77 69 74 68 20 |ld be do|ne with |
|00004fc0| 52 30 20 70 6f 69 6e 74 | 69 6e 67 20 74 6f 20 74 |R0 point|ing to t|
|00004fd0| 68 65 20 73 74 72 69 6e | 67 20 46 6f 6e 74 4d 65 |he strin|g FontMe|
|00004fe0| 6e 75 5f 44 65 63 6f 64 | 65 46 6f 6e 74 4d 65 6e |nu_Decod|eFontMen|
|00004ff0| 75 0a 72 65 74 75 72 6e | 65 64 2e 20 54 68 65 20 |u.return|ed. The |
|00005000| 6d 65 6e 75 20 70 6f 69 | 6e 74 65 72 20 72 65 74 |menu poi|nter ret|
|00005010| 75 72 6e 65 64 20 62 79 | 20 46 6f 6e 74 4d 65 6e |urned by| FontMen|
|00005020| 75 5f 53 65 6c 65 63 74 | 20 68 61 73 20 74 6f 20 |u_Select| has to |
|00005030| 62 65 20 70 75 74 20 69 | 6e 20 74 68 65 0a 27 73 |be put i|n the.'s|
|00005040| 75 62 2d 6d 65 6e 75 20 | 70 6f 69 6e 74 65 72 27 |ub-menu |pointer'|
|00005050| 20 77 6f 72 64 20 6f 66 | 20 74 68 65 20 27 46 6f | word of| the 'Fo|
|00005060| 6e 74 73 27 20 65 6e 74 | 72 79 2e 20 4e 6f 77 20 |nts' ent|ry. Now |
|00005070| 74 68 65 20 63 61 6c 6c | 20 74 6f 0a 57 69 6d 70 |the call| to.Wimp|
|00005080| 5f 43 72 65 61 74 65 4d | 65 6e 75 20 63 61 6e 20 |_CreateM|enu can |
|00005090| 62 65 20 64 6f 6e 65 2e | 20 49 6e 20 74 68 69 73 |be done.| In this|
|000050a0| 20 77 61 79 20 69 74 20 | 69 73 20 70 6f 73 73 69 | way it |is possi|
|000050b0| 62 6c 65 20 66 6f 72 20 | 74 68 65 20 75 73 65 72 |ble for |the user|
|000050c0| 20 74 6f 0a 63 6c 69 63 | 6b 20 77 69 74 68 20 61 | to.clic|k with a|
|000050d0| 64 6a 75 73 74 20 69 6e | 20 74 68 65 20 66 6f 6e |djust in| the fon|
|000050e0| 74 20 6d 65 6e 75 2c 20 | 61 6e 64 20 6b 65 65 70 |t menu, |and keep|
|000050f0| 69 6e 67 20 74 68 65 20 | 6d 65 6e 75 20 6f 6e 20 |ing the |menu on |
|00005100| 73 63 72 65 65 6e 20 61 | 66 74 65 72 20 74 68 65 |screen a|fter the|
|00005110| 0a 73 65 6c 65 63 74 69 | 6f 6e 2e 0a 0a 20 54 68 |.selecti|on... Th|
|00005120| 65 72 65 20 69 73 20 6f | 6e 65 20 6c 69 74 74 6c |ere is o|ne littl|
|00005130| 65 20 64 72 61 77 62 61 | 63 6b 20 6f 66 20 74 68 |e drawba|ck of th|
|00005140| 69 73 20 6d 65 74 68 6f | 64 2e 20 49 66 20 74 68 |is metho|d. If th|
|00005150| 65 20 75 73 65 72 20 73 | 65 6c 65 63 74 65 64 20 |e user s|elected |
|00005160| 61 20 6e 65 77 0a 21 46 | 6f 6e 74 73 20 64 69 72 |a new.!F|onts dir|
|00005170| 65 63 74 6f 72 79 2c 20 | 69 74 20 77 69 6c 6c 20 |ectory, |it will |
|00005180| 62 65 20 6e 6f 74 65 64 | 20 62 65 20 74 68 65 20 |be noted| be the |
|00005190| 46 6f 6e 74 4d 65 6e 75 | 5f 53 65 6c 65 63 74 20 |FontMenu|_Select |
|000051a0| 63 6f 64 65 2c 20 61 6e | 64 20 61 20 6e 65 77 0a |code, an|d a new.|
|000051b0| 66 6f 6e 74 20 6d 65 6e | 75 20 73 74 72 75 63 74 |font men|u struct|
|000051c0| 75 72 65 20 77 69 6c 6c | 20 62 65 20 67 65 6e 65 |ure will| be gene|
|000051d0| 72 61 74 65 64 2e 20 54 | 68 69 73 20 69 73 20 61 |rated. T|his is a|
|000051e0| 6c 77 61 79 73 20 74 68 | 65 20 63 61 73 65 2c 20 |lways th|e case, |
|000051f0| 61 6c 73 6f 20 77 69 74 | 68 0a 74 68 65 20 6d 65 |also wit|h.the me|
|00005200| 74 68 6f 64 20 64 69 73 | 63 72 69 62 65 64 20 62 |thod dis|cribed b|
|00005210| 65 6c 6f 77 2e 20 42 75 | 74 20 69 74 20 63 6f 75 |elow. Bu|t it cou|
|00005220| 6c 64 20 62 65 20 70 6f | 73 73 69 62 6c 65 20 74 |ld be po|ssible t|
|00005230| 68 61 74 20 74 68 65 20 | 75 73 65 72 20 77 61 73 |hat the |user was|
|00005240| 20 67 6f 69 6e 67 0a 74 | 6f 20 64 6f 20 73 6f 6d | going.t|o do som|
|00005250| 65 74 68 69 6e 67 20 65 | 6c 73 65 20 69 6e 20 74 |ething e|lse in t|
|00005260| 68 65 20 6d 65 6e 75 2c | 20 6e 6f 74 20 73 65 6c |he menu,| not sel|
|00005270| 65 63 74 69 6e 67 20 61 | 20 66 6f 6e 74 20 61 74 |ecting a| font at|
|00005280| 20 61 6c 6c 2e 20 48 65 | 20 63 6f 75 6c 64 20 66 | all. He| could f|
|00005290| 6f 72 0a 69 6e 73 74 61 | 6e 63 65 20 77 61 6e 74 |or.insta|nce want|
|000052a0| 20 74 6f 20 71 75 69 74 | 2e 20 4e 6f 77 20 68 65 | to quit|. Now he|
|000052b0| 20 28 73 68 65 29 20 68 | 61 73 20 74 6f 20 77 61 | (she) h|as to wa|
|000052c0| 69 74 20 66 6f 72 20 74 | 68 65 20 46 6f 6e 74 4d |it for t|he FontM|
|000052d0| 65 6e 75 20 6d 6f 64 75 | 6c 65 20 74 6f 0a 63 72 |enu modu|le to.cr|
|000052e0| 65 61 74 65 20 74 68 65 | 20 6e 65 77 20 6d 65 6e |eate the| new men|
|000052f0| 75 20 73 74 72 75 63 74 | 75 72 65 2c 20 62 65 66 |u struct|ure, bef|
|00005300| 6f 72 65 20 68 65 20 28 | 73 68 65 29 20 69 73 20 |ore he (|she) is |
|00005310| 61 62 6c 65 20 74 6f 20 | 61 63 63 65 73 73 20 74 |able to |access t|
|00005320| 68 65 20 27 51 75 69 74 | 27 0a 65 6e 74 72 79 2e |he 'Quit|'.entry.|
|00005330| 20 53 6f 20 74 68 65 20 | 6e 65 78 74 20 73 6f 6c | So the |next sol|
|00005340| 75 74 69 6f 6e 20 69 73 | 20 74 6f 20 77 61 69 74 |ution is| to wait|
|00005350| 20 77 69 74 68 20 63 61 | 6c 6c 69 6e 67 20 46 6f | with ca|lling Fo|
|00005360| 6e 74 4d 65 6e 75 5f 53 | 65 6c 65 63 74 2c 20 75 |ntMenu_S|elect, u|
|00005370| 6e 74 69 6c 0a 74 68 65 | 20 75 73 65 72 20 77 61 |ntil.the| user wa|
|00005380| 6e 74 73 20 74 6f 20 73 | 65 6c 65 63 74 20 61 20 |nts to s|elect a |
|00005390| 6e 65 77 20 66 6f 6e 74 | 2e 20 54 68 69 73 20 63 |new font|. This c|
|000053a0| 61 6e 20 6f 6e 6c 79 20 | 62 65 20 64 6f 6e 65 20 |an only |be done |
|000053b0| 62 79 20 6d 61 6b 69 6e | 67 20 75 73 65 20 6f 66 |by makin|g use of|
|000053c0| 0a 74 68 65 20 57 69 6d | 70 20 6d 65 73 73 61 67 |.the Wim|p messag|
|000053d0| 65 20 73 79 73 74 65 6d | 2e 20 54 68 65 20 64 69 |e system|. The di|
|000053e0| 66 66 69 63 75 6c 74 20 | 74 68 69 6e 67 20 6f 66 |fficult |thing of|
|000053f0| 20 74 68 69 73 20 6d 65 | 74 68 6f 64 20 28 61 73 | this me|thod (as|
|00005400| 20 64 69 73 63 72 69 62 | 65 64 0a 6c 61 74 65 72 | discrib|ed.later|
|00005410| 29 20 69 73 20 74 68 61 | 74 20 74 68 65 20 57 69 |) is tha|t the Wi|
|00005420| 6d 70 20 69 73 20 75 6e | 61 62 6c 65 20 74 6f 20 |mp is un|able to |
|00005430| 72 65 2d 6f 70 65 6e 20 | 74 68 65 20 6d 65 6e 75 |re-open |the menu|
|00005440| 20 73 74 72 75 63 74 75 | 72 65 20 65 6e 74 69 72 | structu|re entir|
|00005450| 65 6c 79 0a 61 66 74 65 | 72 20 61 20 6d 65 6e 75 |ely.afte|r a menu|
|00005460| 20 73 65 6c 65 63 74 69 | 6f 6e 20 75 73 69 6e 67 | selecti|on using|
|00005470| 20 74 68 65 20 41 44 4a | 55 53 54 20 62 75 74 74 | the ADJ|UST butt|
|00005480| 6f 6e 2e 20 53 6f 20 61 | 20 6c 69 74 74 6c 65 20 |on. So a| little |
|00005490| 74 72 69 63 6b 20 68 61 | 73 20 74 6f 0a 73 6f 6c |trick ha|s to.sol|
|000054a0| 76 65 20 74 68 69 73 20 | 70 72 6f 62 6c 65 6d 2e |ve this |problem.|
|000054b0| 0a 0a 20 54 68 65 20 68 | 61 72 64 20 77 61 79 0a |.. The h|ard way.|
|000054c0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0a 20 49 | -------|-----. I|
|000054d0| 6e 20 74 68 65 20 61 70 | 70 6c 69 63 61 74 69 6f |n the ap|plicatio|
|000054e0| 6e 73 20 6f 77 6e 20 6d | 65 6e 75 20 73 74 72 75 |ns own m|enu stru|
|000054f0| 63 74 75 72 65 2c 20 74 | 68 65 72 65 20 73 68 6f |cture, t|here sho|
|00005500| 75 6c 64 20 62 65 20 61 | 20 6d 65 6e 75 20 65 6e |uld be a| menu en|
|00005510| 74 72 79 20 28 65 2e 67 | 2e 0a 27 46 6f 6e 74 73 |try (e.g|..'Fonts|
|00005520| 27 29 20 77 69 74 68 20 | 62 69 74 20 33 20 69 66 |') with |bit 3 if|
|00005530| 20 69 74 73 20 6d 65 6e | 75 20 66 6c 61 67 73 20 | its men|u flags |
|00005540| 73 65 74 2e 20 54 68 65 | 20 61 70 70 6c 69 63 61 |set. The| applica|
|00005550| 74 69 6f 6e 20 68 61 73 | 20 74 6f 20 61 73 73 75 |tion has| to assu|
|00005560| 72 65 0a 74 68 61 74 20 | 74 68 69 73 20 62 69 74 |re.that |this bit|
|00005570| 20 69 73 20 73 65 74 20 | 77 68 65 6e 65 76 65 72 | is set |whenever|
|00005580| 20 69 74 20 63 61 6c 6c | 73 20 53 57 49 20 22 57 | it call|s SWI "W|
|00005590| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 20 |imp_Crea|teMenu" |
|000055a0| 61 73 20 69 74 20 6d 61 | 79 20 62 65 0a 63 6f 72 |as it ma|y be.cor|
|000055b0| 72 75 70 74 65 64 20 28 | 73 65 65 20 62 65 6c 6f |rupted (|see belo|
|000055c0| 77 29 2e 20 53 6f 20 77 | 68 65 6e 65 76 65 72 20 |w). So w|henever |
|000055d0| 74 68 65 20 75 73 65 72 | 20 70 75 74 73 20 74 68 |the user| puts th|
|000055e0| 65 20 70 6f 69 6e 74 65 | 72 20 61 62 6f 76 65 20 |e pointe|r above |
|000055f0| 74 68 65 20 61 72 72 6f | 77 0a 6f 6e 20 74 68 65 |the arro|w.on the|
|00005600| 20 72 69 67 68 74 20 6f | 66 20 74 68 69 73 20 65 | right o|f this e|
|00005610| 6e 74 72 79 2c 20 61 20 | 77 61 72 6e 69 6e 67 20 |ntry, a |warning |
|00005620| 6d 65 73 73 61 67 65 20 | 28 26 34 30 30 43 30 29 |message |(&400C0)|
|00005630| 20 77 69 6c 6c 20 62 65 | 20 73 65 6e 64 20 62 79 | will be| send by|
|00005640| 20 74 68 65 0a 57 69 6d | 70 2e 20 4f 6e 20 72 65 | the.Wim|p. On re|
|00005650| 63 65 69 76 69 6e 67 20 | 6f 66 20 74 68 69 73 20 |ceiving |of this |
|00005660| 6d 65 73 73 61 67 65 2c | 20 74 68 65 20 61 70 70 |message,| the app|
|00005670| 6c 69 63 61 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |lication| should |
|00005680| 72 65 73 70 6f 6e 64 20 | 62 79 20 63 61 6c 6c 69 |respond |by calli|
|00005690| 6e 67 0a 53 57 49 20 22 | 46 6f 6e 74 4d 65 6e 75 |ng.SWI "|FontMenu|
|000056a0| 5f 53 65 6c 65 63 74 22 | 20 77 69 74 68 20 52 30 |_Select"| with R0|
|000056b0| 20 70 6f 69 6e 74 69 6e | 67 20 74 6f 20 61 20 70 | pointin|g to a p|
|000056c0| 6f 69 6e 74 20 73 65 70 | 65 61 72 74 65 64 20 28 |oint sep|earted (|
|000056d0| 7a 65 72 6f 0a 74 65 72 | 6d 69 6e 61 74 65 64 29 |zero.ter|minated)|
|000056e0| 20 66 6f 6e 74 20 73 74 | 72 69 6e 67 2c 20 61 6e | font st|ring, an|
|000056f0| 64 20 69 6e 20 52 31 20 | 74 68 65 20 76 61 6c 75 |d in R1 |the valu|
|00005700| 65 20 30 20 6f 72 20 31 | 20 74 6f 20 74 65 6c 6c |e 0 or 1| to tell|
|00005710| 20 46 6f 6e 74 4d 65 6e | 75 20 69 66 20 69 74 0a | FontMen|u if it.|
|00005720| 61 6c 6c 6f 77 73 20 74 | 68 65 20 75 73 65 72 20 |allows t|he user |
|00005730| 74 6f 20 73 65 6c 65 63 | 74 20 74 68 65 20 53 79 |to selec|t the Sy|
|00005740| 73 74 65 6d 46 6f 6e 74 | 2e 20 54 68 65 20 66 6f |stemFont|. The fo|
|00005750| 6e 74 20 73 74 72 69 6e | 67 20 6d 61 79 20 62 65 |nt strin|g may be|
|00005760| 20 61 20 7a 65 72 6f 0a | 6c 65 6e 67 74 68 20 73 | a zero.|length s|
|00005770| 74 72 69 6e 67 2c 20 77 | 69 63 68 20 6d 65 61 6e |tring, w|ich mean|
|00005780| 73 20 74 68 61 74 20 6e | 6f 20 63 75 72 72 65 6e |s that n|o curren|
|00005790| 74 20 66 6f 6e 74 20 69 | 73 20 73 65 6c 65 63 74 |t font i|s select|
|000057a0| 65 64 2e 20 46 6f 6e 74 | 4d 65 6e 75 20 77 69 6c |ed. Font|Menu wil|
|000057b0| 6c 0a 73 65 6c 65 63 74 | 20 74 68 65 20 66 6f 6e |l.select| the fon|
|000057c0| 74 20 69 6e 20 69 74 73 | 20 6d 65 6e 75 20 73 74 |t in its| menu st|
|000057d0| 72 75 63 74 75 72 65 2e | 20 49 66 20 31 20 77 61 |ructure.| If 1 wa|
|000057e0| 73 20 70 61 73 73 65 64 | 20 69 6e 20 52 31 2c 20 |s passed| in R1, |
|000057f0| 74 68 65 20 66 69 72 73 | 74 20 69 74 65 6d 0a 69 |the firs|t item.i|
|00005800| 6e 20 74 68 65 20 6d 65 | 6e 75 20 73 74 72 75 63 |n the me|nu struc|
|00005810| 74 75 72 65 20 77 69 6c | 6c 20 62 65 20 27 53 79 |ture wil|l be 'Sy|
|00005820| 73 74 65 6d 46 6f 6e 74 | 73 27 2e 20 49 6e 20 63 |stemFont|s'. In c|
|00005830| 61 73 65 20 52 31 20 3d | 20 30 2c 20 74 68 69 73 |ase R1 =| 0, this|
|00005840| 20 65 6e 74 72 79 20 77 | 69 6c 6c 0a 6e 6f 74 20 | entry w|ill.not |
|00005850| 62 65 20 74 68 65 72 65 | 2e 20 54 68 69 73 20 63 |be there|. This c|
|00005860| 61 6c 6c 20 77 69 6c 6c | 20 72 65 74 75 72 6e 20 |all will| return |
|00005870| 77 69 74 68 20 61 20 70 | 6f 69 6e 74 65 72 20 74 |with a p|ointer t|
|00005880| 6f 20 74 68 65 20 6d 65 | 6e 75 20 73 74 72 75 63 |o the me|nu struc|
|00005890| 74 75 72 65 20 69 6e 0a | 52 31 2e 20 54 68 69 73 |ture in.|R1. This|
|000058a0| 20 70 6f 69 6e 74 65 72 | 20 73 68 6f 75 6c 64 20 | pointer| should |
|000058b0| 62 65 20 70 61 73 73 65 | 64 20 74 6f 20 53 57 49 |be passe|d to SWI|
|000058c0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 53 75 62 | "Wimp_C|reateSub|
|000058d0| 4d 65 6e 75 22 2e 0a 0a | 20 57 68 65 6e 20 61 20 |Menu"...| When a |
|000058e0| 6d 65 6e 75 20 73 65 6c | 65 63 74 69 6f 6e 20 77 |menu sel|ection w|
|000058f0| 61 73 20 64 6f 6e 65 2c | 20 74 68 65 20 61 70 70 |as done,| the app|
|00005900| 6c 69 63 61 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |lication| should |
|00005910| 64 65 74 65 72 6d 69 6e | 65 20 62 79 20 74 68 65 |determin|e by the|
|00005920| 0a 72 65 74 75 72 6e 65 | 64 20 27 6d 65 6e 75 20 |.returne|d 'menu |
|00005930| 74 72 65 65 20 73 6f 20 | 66 61 72 27 20 76 61 6c |tree so |far' val|
|00005940| 75 65 73 20 69 66 20 74 | 68 65 20 75 73 65 72 20 |ues if t|he user |
|00005950| 73 65 6c 65 63 74 65 64 | 20 61 20 65 6e 74 72 79 |selected| a entry|
|00005960| 20 69 6e 20 74 68 65 20 | 66 6f 6e 74 0a 6d 65 6e | in the |font.men|
|00005970| 75 2e 20 49 66 20 73 6f | 2c 20 69 74 20 73 68 6f |u. If so|, it sho|
|00005980| 75 6c 64 20 73 65 74 20 | 61 6e 20 69 6e 74 65 72 |uld set |an inter|
|00005990| 6e 61 6c 20 66 6c 61 67 | 20 28 73 61 79 20 27 46 |nal flag| (say 'F|
|000059a0| 6f 6e 74 4d 65 6e 75 53 | 65 6c 65 63 74 65 64 27 |ontMenuS|elected'|
|000059b0| 29 20 74 6f 0a 54 52 55 | 45 2c 20 65 6c 73 65 20 |) to.TRU|E, else |
|000059c0| 69 74 20 73 68 6f 75 6c | 64 20 73 65 74 20 69 74 |it shoul|d set it|
|000059d0| 20 74 6f 20 46 41 4c 53 | 45 2c 20 73 6f 20 6c 61 | to FALS|E, so la|
|000059e0| 74 65 72 20 6f 6e 20 69 | 74 20 69 73 20 73 74 69 |ter on i|t is sti|
|000059f0| 6c 6c 20 6b 6e 6f 77 6e | 20 69 66 20 74 68 65 0a |ll known| if the.|
|00005a00| 75 73 65 72 20 6d 61 79 | 20 68 61 76 65 20 73 65 |user may| have se|
|00005a10| 6c 65 63 74 65 64 20 61 | 20 6e 65 77 20 66 6f 6e |lected a| new fon|
|00005a20| 74 2e 20 41 66 74 65 72 | 20 74 68 61 74 20 69 74 |t. After| that it|
|00005a30| 20 73 68 6f 75 6c 64 20 | 63 61 6c 6c 20 53 57 49 | should |call SWI|
|00005a40| 0a 22 46 6f 6e 74 4d 65 | 6e 75 5f 44 65 63 6f 64 |."FontMe|nu_Decod|
|00005a50| 65 46 6f 6e 74 4d 65 6e | 75 22 20 77 69 74 68 20 |eFontMen|u" with |
|00005a60| 52 30 20 70 6f 69 6e 74 | 69 6e 67 20 74 6f 20 74 |R0 point|ing to t|
|00005a70| 68 65 20 66 69 72 73 74 | 20 6d 65 6e 75 20 73 65 |he first| menu se|
|00005a80| 6c 65 63 74 69 6f 6e 20 | 69 6e 0a 74 68 65 20 27 |lection |in.the '|
|00005a90| 6d 65 6e 75 20 74 72 65 | 65 20 73 6f 20 66 61 72 |menu tre|e so far|
|00005aa0| 27 20 62 6c 6f 63 6b 20 | 77 69 63 68 20 64 65 74 |' block |wich det|
|00005ab0| 65 72 6d 69 6e 65 73 20 | 74 68 65 20 73 65 6c 65 |ermines |the sele|
|00005ac0| 63 74 65 64 20 66 6f 6e | 74 2e 20 52 31 20 73 68 |cted fon|t. R1 sh|
|00005ad0| 6f 75 6c 64 0a 70 6f 69 | 6e 74 20 74 6f 20 61 20 |ould.poi|nt to a |
|00005ae0| 62 75 66 66 65 72 20 74 | 6f 20 63 6f 6e 74 61 69 |buffer t|o contai|
|00005af0| 6e 20 74 68 65 20 61 6e | 73 77 65 72 2e 20 54 68 |n the an|swer. Th|
|00005b00| 69 73 20 62 75 66 66 65 | 72 20 6d 75 73 74 20 62 |is buffe|r must b|
|00005b10| 65 20 61 74 20 6c 65 61 | 73 74 20 34 38 0a 62 79 |e at lea|st 48.by|
|00005b20| 74 65 73 2e 20 49 66 20 | 6f 6e 20 72 65 74 75 72 |tes. If |on retur|
|00005b30| 6e 20 6f 66 20 74 68 69 | 73 20 63 61 6c 6c 20 52 |n of thi|s call R|
|00005b40| 30 20 3e 20 30 2c 20 74 | 68 65 20 75 73 65 72 20 |0 > 0, t|he user |
|00005b50| 73 65 6c 65 63 74 65 64 | 20 61 20 6e 65 77 20 66 |selected| a new f|
|00005b60| 6f 6e 74 2e 20 54 68 65 | 0a 62 75 66 66 65 72 20 |ont. The|.buffer |
|00005b70| 70 61 73 73 65 64 20 69 | 6e 20 52 31 20 77 69 6c |passed i|n R1 wil|
|00005b80| 6c 20 63 6f 6e 74 61 69 | 6e 20 74 68 65 20 66 6f |l contai|n the fo|
|00005b90| 6e 74 20 6e 61 6d 65 20 | 28 61 20 70 6f 69 6e 74 |nt name |(a point|
|00005ba0| 20 73 65 70 65 72 61 74 | 65 64 2c 20 7a 65 72 6f | seperat|ed, zero|
|00005bb0| 0a 74 65 72 6d 69 6e 61 | 74 65 64 20 66 6f 6e 74 |.termina|ted font|
|00005bc0| 20 73 74 72 69 6e 67 29 | 2e 0a 0a 20 41 66 74 65 | string)|... Afte|
|00005bd0| 72 20 61 20 6d 65 6e 75 | 20 73 65 6c 63 74 69 6f |r a menu| selctio|
|00005be0| 6e 2c 20 61 6e 64 20 74 | 61 6b 69 6e 67 20 61 70 |n, and t|aking ap|
|00005bf0| 70 72 6f 70 72 69 61 74 | 65 20 61 63 74 69 6f 6e |propriat|e action|
|00005c00| 73 2c 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |s, the a|pplicati|
|00005c10| 6f 6e 0a 73 68 6f 75 6c | 64 20 63 68 65 63 6b 20 |on.shoul|d check |
|00005c20| 74 68 65 20 6d 6f 75 73 | 65 20 62 75 74 74 6f 6e |the mous|e button|
|00005c30| 20 73 74 61 74 65 20 74 | 6f 20 73 65 65 20 69 66 | state t|o see if|
|00005c40| 20 69 74 20 68 61 73 20 | 74 6f 20 63 61 6c 6c 20 | it has |to call |
|00005c50| 53 57 49 0a 22 57 69 6d | 70 5f 43 72 65 61 74 65 |SWI."Wim|p_Create|
|00005c60| 4d 65 6e 75 22 20 61 67 | 61 69 6e 2e 20 49 66 20 |Menu" ag|ain. If |
|00005c70| 61 64 6a 75 73 74 20 77 | 61 73 20 75 73 65 64 20 |adjust w|as used |
|00005c80| 74 6f 20 6d 61 6b 65 20 | 74 68 65 20 73 65 6c 65 |to make |the sele|
|00005c90| 63 74 69 6f 6e 2c 20 69 | 74 20 68 61 73 20 74 6f |ction, i|t has to|
|00005ca0| 0a 63 68 65 63 6b 20 20 | 74 68 65 20 27 46 6f 6e |.check  |the 'Fon|
|00005cb0| 74 4d 65 6e 75 53 65 6c | 65 63 74 65 64 27 20 66 |tMenuSel|ected' f|
|00005cc0| 6c 61 67 20 74 6f 20 64 | 65 74 65 72 6d 69 6e 65 |lag to d|etermine|
|00005cd0| 20 69 66 20 74 68 65 20 | 75 73 65 72 20 73 65 6c | if the |user sel|
|00005ce0| 65 63 74 65 64 20 61 20 | 66 6f 6e 74 0a 6d 65 6e |ected a |font.men|
|00005cf0| 75 20 65 6e 74 72 79 2e | 20 49 66 20 73 6f 2c 20 |u entry.| If so, |
|00005d00| 69 74 20 73 68 6f 75 6c | 64 20 63 61 6c 6c 20 53 |it shoul|d call S|
|00005d10| 57 49 20 22 46 6f 6e 74 | 4d 65 6e 75 5f 53 65 6c |WI "Font|Menu_Sel|
|00005d20| 65 63 74 22 20 61 73 20 | 64 69 73 63 72 69 62 65 |ect" as |discribe|
|00005d30| 64 20 61 62 6f 76 65 2e | 0a 54 68 69 73 20 73 68 |d above.|.This sh|
|00005d40| 6f 75 6c 64 20 62 65 20 | 64 6f 6e 65 20 77 69 74 |ould be |done wit|
|00005d50| 68 20 52 30 20 70 6f 69 | 6e 74 69 6e 67 20 74 6f |h R0 poi|nting to|
|00005d60| 20 74 68 65 20 73 74 72 | 69 6e 67 20 53 57 49 0a | the str|ing SWI.|
|00005d70| 22 46 6f 6e 74 4d 65 6e | 75 5f 44 65 63 6f 64 65 |"FontMen|u_Decode|
|00005d80| 46 6f 6e 74 4d 65 6e 75 | 22 20 72 65 74 75 72 6e |FontMenu|" return|
|00005d90| 65 64 2e 20 20 41 73 20 | 74 68 65 20 4d 65 6e 75 |ed.  As |the Menu|
|00005da0| 57 61 72 6e 69 6e 67 46 | 6c 61 67 20 69 6e 20 74 |WarningF|lag in t|
|00005db0| 68 65 20 6d 65 6e 75 0a | 66 6c 61 67 73 20 6f 66 |he menu.|flags of|
|00005dc0| 20 74 68 65 20 6d 65 6e | 75 20 65 6e 74 72 79 20 | the men|u entry |
|00005dd0| 28 65 2e 67 2e 20 27 46 | 6f 6e 74 73 27 29 20 70 |(e.g. 'F|onts') p|
|00005de0| 72 65 63 65 64 69 6e 67 | 20 74 68 65 20 66 6f 6e |receding| the fon|
|00005df0| 74 20 6d 65 6e 75 20 77 | 61 73 20 73 65 74 0a 28 |t menu w|as set.(|
|00005e00| 70 68 68 68 21 29 2c 20 | 74 68 65 20 57 69 6d 70 |phhh!), |the Wimp|
|00005e10| 20 69 73 20 75 6e 61 62 | 6c 65 20 74 6f 20 72 65 | is unab|le to re|
|00005e20| 63 72 65 61 74 69 6e 67 | 20 74 68 65 20 77 68 6f |creating| the who|
|00005e30| 6c 65 20 6d 65 6e 75 20 | 74 72 65 65 20 61 75 74 |le menu |tree aut|
|00005e40| 6f 6d 61 74 69 63 6c 79 | 2e 0a 53 6f 20 61 20 6c |omaticly|..So a l|
|00005e50| 69 74 6c 65 20 74 72 69 | 63 6b 20 68 61 73 20 74 |itle tri|ck has t|
|00005e60| 6f 20 61 73 73 75 72 65 | 20 74 68 61 74 20 69 74 |o assure| that it|
|00005e70| 20 77 69 6c 6c 20 77 6f | 72 6b 20 63 6f 72 72 65 | will wo|rk corre|
|00005e80| 63 74 2e 20 54 68 65 20 | 6d 65 6e 75 20 70 6f 69 |ct. The |menu poi|
|00005e90| 6e 74 65 72 0a 72 65 74 | 75 72 6e 65 64 20 62 79 |nter.ret|urned by|
|00005ea0| 20 53 57 49 20 22 46 6f | 6e 74 4d 65 6e 75 5f 53 | SWI "Fo|ntMenu_S|
|00005eb0| 65 6c 65 63 74 22 20 68 | 61 73 20 74 6f 20 62 65 |elect" h|as to be|
|00005ec0| 20 70 75 74 20 69 6e 20 | 74 68 65 20 27 73 75 62 | put in |the 'sub|
|00005ed0| 2d 6d 65 6e 75 20 70 6f | 69 6e 74 65 72 27 0a 77 |-menu po|inter'.w|
|00005ee0| 6f 72 64 20 6f 66 20 74 | 68 65 20 27 46 6f 6e 74 |ord of t|he 'Font|
|00005ef0| 73 27 20 65 6e 74 72 79 | 2c 20 61 6e 64 20 74 68 |s' entry|, and th|
|00005f00| 65 20 4d 65 6e 75 57 61 | 72 6e 69 6e 67 46 6c 61 |e MenuWa|rningFla|
|00005f10| 67 20 28 62 69 74 20 33 | 29 20 6f 66 20 74 68 65 |g (bit 3|) of the|
|00005f20| 20 6d 65 6e 75 20 66 6c | 61 67 73 0a 77 6f 72 64 | menu fl|ags.word|
|00005f30| 20 6f 66 20 74 68 69 73 | 20 65 6e 74 72 79 20 73 | of this| entry s|
|00005f40| 68 6f 75 6c 64 20 62 65 | 20 63 6c 65 61 72 65 64 |hould be| cleared|
|00005f50| 2e 20 4e 6f 77 20 74 68 | 65 20 63 61 6c 6c 20 74 |. Now th|e call t|
|00005f60| 6f 20 53 57 49 20 22 57 | 69 6d 70 5f 43 72 65 61 |o SWI "W|imp_Crea|
|00005f70| 74 65 4d 65 6e 75 22 0a | 63 61 6e 20 62 65 20 64 |teMenu".|can be d|
|00005f80| 6f 6e 65 2e 20 49 6e 20 | 74 68 69 73 20 77 61 79 |one. In |this way|
|00005f90| 20 69 74 20 69 73 20 70 | 6f 73 73 69 62 6c 65 20 | it is p|ossible |
|00005fa0| 66 6f 72 20 74 68 65 20 | 75 73 65 72 20 74 6f 20 |for the |user to |
|00005fb0| 63 6c 69 63 6b 20 77 69 | 74 68 20 61 64 6a 75 73 |click wi|th adjus|
|00005fc0| 74 20 69 6e 0a 74 68 65 | 20 66 6f 6e 74 20 6d 65 |t in.the| font me|
|00005fd0| 6e 75 2c 20 61 6e 64 20 | 6b 65 65 70 69 6e 67 20 |nu, and |keeping |
|00005fe0| 74 68 65 20 6d 65 6e 75 | 20 6f 6e 20 73 63 72 65 |the menu| on scre|
|00005ff0| 65 6e 20 61 66 74 65 72 | 20 74 68 65 20 73 65 6c |en after| the sel|
|00006000| 65 63 74 69 6f 6e 2e 20 | 54 68 65 20 6e 65 78 74 |ection. |The next|
|00006010| 0a 74 69 6d 65 20 74 68 | 65 20 75 73 65 72 20 6f |.time th|e user o|
|00006020| 70 65 6e 73 20 74 68 65 | 20 61 70 70 6c 69 63 61 |pens the| applica|
|00006030| 74 69 6f 6e 20 6d 65 6e | 75 2c 20 74 68 65 20 4d |tion men|u, the M|
|00006040| 65 6e 75 57 61 72 6e 69 | 6e 67 46 6c 61 67 20 28 |enuWarni|ngFlag (|
|00006050| 62 69 74 20 33 29 20 73 | 68 6f 75 6c 64 0a 62 65 |bit 3) s|hould.be|
|00006060| 20 73 65 74 20 61 67 61 | 69 6e 2c 20 61 73 20 6f | set aga|in, as o|
|00006070| 74 68 65 72 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |ther app|lication|
|00006080| 73 20 6d 61 79 20 68 61 | 76 65 20 75 73 65 64 20 |s may ha|ve used |
|00006090| 74 68 65 20 66 6f 6e 74 | 20 6d 65 6e 75 20 69 6e |the font| menu in|
|000060a0| 20 74 68 65 0a 6d 65 61 | 6e 77 68 69 6c 65 2c 20 | the.mea|nwhile, |
|000060b0| 61 6e 64 20 69 74 20 69 | 73 20 6e 65 63 65 73 73 |and it i|s necess|
|000060c0| 61 72 79 20 74 68 61 74 | 20 53 57 49 20 22 46 6f |ary that| SWI "Fo|
|000060d0| 6e 74 4d 65 6e 75 5f 53 | 65 6c 65 63 74 22 20 69 |ntMenu_S|elect" i|
|000060e0| 73 20 63 61 6c 6c 65 64 | 20 6a 75 73 74 0a 62 65 |s called| just.be|
|000060f0| 66 6f 72 65 20 74 68 65 | 20 66 6f 6e 74 20 6d 65 |fore the| font me|
|00006100| 6e 75 20 6f 70 65 6e 73 | 2e 0a 0a 20 42 65 63 61 |nu opens|... Beca|
|00006110| 75 73 65 20 69 74 20 69 | 73 20 70 6f 73 73 69 62 |use it i|s possib|
|00006120| 6c 65 20 74 68 61 74 20 | 53 57 49 20 22 46 6f 6e |le that |SWI "Fon|
|00006130| 74 4d 65 6e 75 5f 43 72 | 65 61 74 65 22 20 74 61 |tMenu_Cr|eate" ta|
|00006140| 6b 65 73 20 73 6f 6d 65 | 20 74 69 6d 65 20 74 6f |kes some| time to|
|00006150| 20 63 72 65 61 74 65 0a | 61 20 6e 65 77 20 6d 65 | create.|a new me|
|00006160| 6e 75 2c 20 69 74 20 69 | 73 20 72 65 63 6f 6d 65 |nu, it i|s recome|
|00006170| 6e 64 65 64 20 74 68 61 | 74 20 74 68 65 72 65 20 |nded tha|t there |
|00006180| 69 73 20 61 20 53 57 49 | 20 22 48 6f 75 72 67 6c |is a SWI| "Hourgl|
|00006190| 61 73 73 5f 4f 6e 22 20 | 62 65 66 6f 72 65 2c 20 |ass_On" |before, |
|000061a0| 61 6e 64 0a 61 20 53 57 | 49 20 22 48 6f 75 72 67 |and.a SW|I "Hourg|
|000061b0| 6c 61 73 73 5f 4f 66 66 | 22 20 61 66 74 65 72 20 |lass_Off|" after |
|000061c0| 74 68 69 73 20 63 61 6c | 6c 2e 20 49 6e 20 63 61 |this cal|l. In ca|
|000061d0| 73 65 20 6f 66 20 61 20 | 53 57 49 20 22 46 6f 6e |se of a |SWI "Fon|
|000061e0| 74 4d 65 6e 75 5f 53 65 | 6c 65 63 74 22 2c 0a 77 |tMenu_Se|lect",.w|
|000061f0| 68 65 6e 20 46 6f 6e 74 | 24 50 61 74 68 20 68 61 |hen Font|$Path ha|
|00006200| 73 20 63 68 61 6e 67 65 | 64 20 28 73 6f 20 61 20 |s change|d (so a |
|00006210| 6e 65 77 20 66 6f 6e 74 | 20 6d 65 6e 75 20 68 61 |new font| menu ha|
|00006220| 73 20 74 6f 20 62 65 20 | 63 72 65 61 74 65 64 29 |s to be |created)|
|00006230| 2c 20 74 68 69 73 20 63 | 61 6c 6c 0a 6d 61 79 20 |, this c|all.may |
|00006240| 74 61 6b 65 20 73 6f 6d | 65 20 74 69 6d 65 20 61 |take som|e time a|
|00006250| 73 77 65 6c 6c 2c 20 73 | 6f 20 74 68 65 20 74 77 |swell, s|o the tw|
|00006260| 6f 20 48 6f 75 72 67 6c | 61 73 73 20 53 57 49 27 |o Hourgl|ass SWI'|
|00006270| 73 20 73 68 6f 75 6c 64 | 20 62 65 20 75 73 65 64 |s should| be used|
|00006280| 20 68 65 72 65 20 61 73 | 0a 77 65 6c 6c 2e 0a 0a | here as|.well...|
|00006290| 0a 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|000062a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4e |        |       N|
|000062b0| 6f 74 65 73 20 66 72 6f | 6d 20 74 68 65 20 61 75 |otes fro|m the au|
|000062c0| 74 68 6f 72 0a 0a 20 54 | 68 65 20 72 65 61 73 6f |thor.. T|he reaso|
|000062d0| 6e 20 77 68 79 20 49 20 | 77 72 6f 74 65 20 74 68 |n why I |wrote th|
|000062e0| 69 73 20 6d 6f 64 75 6c | 65 2c 20 69 73 20 62 65 |is modul|e, is be|
|000062f0| 63 61 75 73 65 20 49 27 | 6d 20 6e 6f 74 20 6f 6e |cause I'|m not on|
|00006300| 6c 79 20 61 20 70 72 6f | 67 72 61 6d 6d 65 72 2c |ly a pro|grammer,|
|00006310| 0a 62 75 74 20 61 6c 73 | 6f 20 61 20 75 73 65 72 |.but als|o a user|
|00006320| 20 77 68 6f 20 6c 69 6b | 65 73 20 74 6f 20 77 6f | who lik|es to wo|
|00006330| 72 6b 20 77 69 74 68 20 | 74 68 65 20 41 72 63 68 |rk with |the Arch|
|00006340| 69 6d 65 64 65 73 2e 20 | 54 68 69 73 20 69 73 20 |imedes. |This is |
|00006350| 62 65 63 61 75 73 65 20 | 69 74 27 73 0a 61 20 66 |because |it's.a f|
|00006360| 61 73 74 20 6d 61 63 68 | 69 6e 65 20 61 6e 64 20 |ast mach|ine and |
|00006370| 62 65 63 61 75 73 65 20 | 6d 6f 73 74 20 70 61 72 |because |most par|
|00006380| 74 73 20 6f 66 20 52 69 | 73 63 2d 4f 53 20 61 6c |ts of Ri|sc-OS al|
|00006390| 6c 6f 77 20 61 70 70 6c | 69 63 61 74 69 6f 6e 73 |low appl|ications|
|000063a0| 20 74 6f 20 62 65 0a 76 | 65 72 79 20 69 6e 74 75 | to be.v|ery intu|
|000063b0| 69 74 69 76 65 2e 20 49 | 20 64 69 64 6e 27 74 20 |itive. I| didn't |
|000063c0| 6c 69 6b 65 20 74 68 65 | 20 77 61 79 20 74 68 65 |like the| way the|
|000063d0| 20 61 76 61 69 6c 61 62 | 6c 65 20 66 6f 6e 74 73 | availab|le fonts|
|000063e0| 20 77 65 72 65 20 70 72 | 65 73 65 6e 74 65 64 20 | were pr|esented |
|000063f0| 69 6e 0a 6d 6f 73 74 20 | 61 70 70 6c 69 63 61 74 |in.most |applicat|
+--------+-------------------------+-------------------------+--------+--------+