home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-09-07 | 24.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 21 | 52 75 6e 49 6d 61 67 65 |..... >!|RunImage|
|00000010| 0d 00 14 05 f4 0d 00 1e | 2d f4 20 41 20 50 75 62 |........|-. A Pub|
|00000020| 6c 69 63 20 44 6f 6d 61 | 69 6e 20 55 74 69 6c 69 |lic Doma|in Utili|
|00000030| 74 79 20 42 79 20 4d 61 | 72 6b 20 42 72 69 67 68 |ty By Ma|rk Brigh|
|00000040| 74 2e 0d 00 28 54 f4 20 | 4d 61 6e 79 20 74 68 61 |t...(T. |Many tha|
|00000050| 6e 6b 73 20 74 6f 20 53 | 74 75 61 72 74 20 48 69 |nks to S|tuart Hi|
|00000060| 63 6b 69 6e 62 6f 74 74 | 6f 6d 20 66 6f 72 20 50 |ckinbott|om for P|
|00000070| 52 4f 43 5f 4d 61 6b 65 | 42 69 74 6d 61 70 20 61 |ROC_Make|Bitmap a|
|00000080| 6e 64 20 6f 74 68 65 72 | 20 61 73 73 6f 72 74 65 |nd other| assorte|
|00000090| 64 20 68 65 6c 70 0d 00 | 32 04 0d 00 3c 24 56 65 |d help..|2...<$Ve|
|000000a0| 72 73 69 6f 6e 24 3d 22 | 56 65 72 20 30 2e 39 36 |rsion$="|Ver 0.96|
|000000b0| 20 53 65 70 20 27 39 30 | 20 28 50 44 29 22 0d 00 | Sep '90| (PD)"..|
|000000c0| 46 04 0d 00 50 35 de 20 | 42 6c 6f 63 6b 25 20 32 |F...P5. |Block% 2|
|000000d0| 30 34 38 20 20 3a f4 20 | 47 65 6e 65 72 61 6c 20 |048 :. |General |
|000000e0| 70 75 72 70 6f 73 65 20 | 57 49 4d 50 20 77 6f 72 |purpose |WIMP wor|
|000000f0| 6b 73 70 61 63 65 21 0d | 00 5a 04 0d 00 64 22 f2 |kspace!.|.Z...d".|
|00000100| 5f 49 6e 69 74 69 61 6c | 69 73 65 5f 50 72 6f 67 |_Initial|ise_Prog|
|00000110| 72 61 6d 5f 56 61 72 69 | 61 62 6c 65 73 0d 00 6e |ram_Vari|ables..n|
|00000120| 05 3a 0d 00 78 1c f2 5f | 49 6e 69 74 69 61 6c 69 |.:..x.._|Initiali|
|00000130| 73 65 5f 57 49 4d 50 5f | 53 79 73 74 65 6d 0d 00 |se_WIMP_|System..|
|00000140| 82 05 3a 0d 00 8c 27 f2 | 5f 53 65 74 49 63 6f 6e |..:...'.|_SetIcon|
|00000150| 54 65 78 74 28 31 35 2c | 49 6e 66 6f 25 2c 56 65 |Text(15,|Info%,Ve|
|00000160| 72 73 69 6f 6e 24 2c 32 | 33 29 0d 00 96 05 3a 0d |rsion$,2|3)....:.|
|00000170| 00 a0 2c f2 5f 43 72 65 | 61 74 65 46 6f 6e 74 4d |..,._Cre|ateFontM|
|00000180| 65 6e 75 28 a4 5f 43 72 | 65 61 74 65 49 6e 64 69 |enu(._Cr|eateIndi|
|00000190| 72 65 63 74 65 64 44 61 | 74 61 29 0d 00 aa 05 3a |rectedDa|ta)....:|
|000001a0| 0d 00 b4 27 e3 20 4c 6f | 6f 70 25 3d 30 20 b8 20 |...'. Lo|op%=0 . |
|000001b0| 31 36 20 3a 20 42 6c 6f | 63 6b 25 3f 4c 6f 6f 70 |16 : Blo|ck%?Loop|
|000001c0| 25 3d 30 20 3a 20 ed 0d | 00 be 3c f2 5f 53 65 74 |%=0 : ..|..<._Set|
|000001d0| 49 63 6f 6e 54 65 78 74 | 28 53 68 6f 77 46 6f 6e |IconText|(ShowFon|
|000001e0| 74 4e 61 6d 65 25 2c 4d | 61 69 6e 25 2c a4 5f 44 |tName%,M|ain%,._D|
|000001f0| 65 63 6f 64 65 4d 79 46 | 6f 6e 74 4d 65 6e 75 2c |ecodeMyF|ontMenu,|
|00000200| 35 30 29 0d 00 c8 43 f4 | 20 53 65 6c 65 63 74 20 |50)...C.| Select |
|00000210| 31 73 74 20 46 6f 6e 74 | 20 66 72 6f 6d 20 73 65 |1st Font| from se|
|00000220| 6c 65 63 74 69 6f 6e 20 | 6c 69 73 74 20 61 6e 64 |lection |list and|
|00000230| 20 64 69 73 70 6c 61 79 | 20 69 74 20 6f 6e 20 73 | display| it on s|
|00000240| 74 61 72 74 75 70 0d 00 | d2 05 3a 0d 00 dc 14 ee |tartup..|..:.....|
|00000250| 20 85 20 f2 5f 57 69 6d | 70 5f 45 72 72 6f 72 0d | . ._Wim|p_Error.|
|00000260| 00 e6 05 3a 0d 00 f0 05 | f5 0d 00 fa 27 20 20 20 |...:....|....' |
|00000270| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 4d |.. "Wimp|_Poll",M|
|00000280| 61 73 6b 25 2c 42 6c 6f | 63 6b 25 20 b8 20 41 25 |ask%,Blo|ck% . A%|
|00000290| 0d 01 04 0e 20 20 20 c8 | 8e 20 41 25 20 ca 0d 01 |.... .|. A% ...|
|000002a0| 0e 43 20 20 20 20 20 20 | c9 20 32 20 3a 20 c8 99 |.C |. 2 : ..|
|000002b0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|000002c0| 77 22 2c 2c 42 6c 6f 63 | 6b 25 20 20 20 3a 20 f4 |w",,Bloc|k% : .|
|000002d0| 20 61 6c 6c 6f 77 73 20 | 61 75 74 6f 20 44 72 61 | allows |auto Dra|
|000002e0| 67 0d 01 18 44 20 20 20 | 20 20 20 c9 20 33 20 3a |g...D | . 3 :|
|000002f0| 20 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 | .. "Wim|p_CloseW|
|00000300| 69 6e 64 6f 77 22 2c 2c | 42 6c 6f 63 6b 25 20 20 |indow",,|Block% |
|00000310| 3a 20 f4 20 61 6c 6c 6f | 77 73 20 61 75 74 6f 20 |: . allo|ws auto |
|00000320| 43 6c 6f 73 65 0d 01 22 | 1f 20 20 20 20 20 20 c9 |Close.."|. .|
|00000330| 20 36 20 3a 20 f2 5f 42 | 75 74 74 6f 6e 50 72 65 | 6 : ._B|uttonPre|
|00000340| 73 73 65 64 0d 01 2c 27 | 20 20 20 20 20 20 c9 20 |ssed..,'| . |
|00000350| 38 20 3a 20 f2 5f 50 72 | 6f 63 65 73 73 4b 65 79 |8 : ._Pr|ocessKey|
|00000360| 28 42 6c 6f 63 6b 25 21 | 32 34 29 0d 01 36 1f 20 |(Block%!|24)..6. |
|00000370| 20 20 20 20 20 c9 20 39 | 20 3a 20 f2 5f 4d 65 6e | . 9| : ._Men|
|00000380| 75 53 65 6c 65 63 74 69 | 6f 6e 0d 01 40 31 20 20 |uSelecti|on..@1 |
|00000390| 20 20 20 20 c9 20 31 36 | 2c 31 37 2c 31 38 20 3a | . 16|,17,18 :|
|000003a0| 20 f2 5f 44 65 63 6f 64 | 65 4d 65 73 73 61 67 65 | ._Decod|eMessage|
|000003b0| 28 42 6c 6f 63 6b 25 21 | 31 36 29 0d 01 4a 08 20 |(Block%!|16)..J. |
|000003c0| 20 20 cb 0d 01 54 07 fd | 20 a3 0d 01 5e 05 3a 0d | ...T..| ...^.:.|
|000003d0| 01 68 2f f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.h/. ***|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 01 |********|******..|
|00000400| 72 2f f4 20 54 68 69 73 | 20 69 73 20 74 68 65 20 |r/. This| is the |
|00000410| 57 49 4d 50 20 45 72 72 | 6f 72 20 68 61 6e 64 6c |WIMP Err|or handl|
|00000420| 69 6e 67 20 72 6f 75 74 | 69 6e 65 20 21 0d 01 7c |ing rout|ine !..||
|00000430| 10 f4 20 55 73 65 73 3a | 20 4e 4f 4e 45 0d 01 86 |.. Uses:| NONE...|
|00000440| 2f f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/. *****|********|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 01 90 12 |********|****....|
|00000470| dd 20 f2 5f 57 69 6d 70 | 5f 45 72 72 6f 72 0d 01 |. ._Wimp|_Error..|
|00000480| 9a 0f 20 20 20 ea 20 45 | 72 72 6f 72 24 0d 01 a4 |.. . E|rror$...|
|00000490| 1c 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |. .. "|Wimp_Dra|
|000004a0| 67 42 6f 78 22 2c 2c 2d | 31 0d 01 ae 10 20 20 20 |gBox",,-|1.... |
|000004b0| 21 42 6c 6f 63 6b 25 3d | 9f 0d 01 b8 12 20 20 20 |!Block%=|..... |
|000004c0| 45 72 72 6f 72 24 20 3d | 20 f6 24 0d 01 c2 5e 20 |Error$ =| .$...^ |
|000004d0| 20 20 e7 20 9f 3c 3e 32 | 30 30 31 20 8c 20 45 72 | . .<>2|001 . Er|
|000004e0| 72 6f 72 24 20 2b 3d 20 | 22 20 28 69 6e 74 65 72 |ror$ += |" (inter|
|000004f0| 6e 61 6c 20 65 72 72 6f | 72 20 63 6f 64 65 20 22 |nal erro|r code "|
|00000500| 2b c3 9e 2b 22 29 2e 20 | 4f 4b 20 54 6f 20 43 6f |+..+"). |OK To Co|
|00000510| 6e 74 69 6e 75 65 2c 20 | 43 41 4e 43 45 4c 20 54 |ntinue, |CANCEL T|
|00000520| 6f 20 41 62 6f 72 74 2e | 22 0d 01 cc 1e 20 20 20 |o Abort.|".... |
|00000530| 24 28 42 6c 6f 63 6b 25 | 2b 34 29 3d 45 72 72 6f |$(Block%|+4)=Erro|
|00000540| 72 24 20 2b 20 bd 30 0d | 01 d6 4f 20 20 20 c8 99 |r$ + .0.|..O ..|
|00000550| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00000560| 6f 72 22 2c 42 6c 6f 63 | 6b 25 2c 25 30 30 31 20 |or",Bloc|k%,%001 |
|00000570| 2d 20 28 32 2a 28 9f 3c | 3e 32 30 30 31 29 29 2c |- (2*(.<|>2001)),|
|00000580| 4d 79 54 61 73 6b 4e 61 | 6d 65 24 20 b8 20 2c 52 |MyTaskNa|me$ . ,R|
|00000590| 65 73 75 6c 74 25 0d 01 | e0 20 20 20 20 e7 20 52 |esult%..|. . R|
|000005a0| 65 73 75 6c 74 25 3d 32 | 20 8c 20 f2 5f 43 6c 6f |esult%=2| . ._Clo|
|000005b0| 73 65 44 6f 77 6e 0d 01 | ea 05 e1 0d 01 f4 05 3a |seDown..|.......:|
|000005c0| 0d 01 fe 28 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...(. **|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 02 08 26 f4 20 4d 6f |********|...&. Mo|
|000005f0| 75 73 65 20 42 75 74 74 | 6f 6e 20 53 74 61 74 75 |use Butt|on Statu|
|00000600| 73 20 48 61 73 20 43 68 | 61 6e 67 65 64 2e 0d 02 |s Has Ch|anged...|
|00000610| 12 28 f4 20 55 73 65 73 | 3a 20 4f 6e 6c 79 20 55 |.(. Uses|: Only U|
|00000620| 53 45 52 20 73 75 70 70 | 6c 69 65 64 20 72 6f 75 |SER supp|lied rou|
|00000630| 74 69 6e 65 73 2e 0d 02 | 1c 28 f4 20 2a 2a 2a 2a |tines...|.(. ****|
|00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 02 |********|******..|
|00000660| 26 15 dd 20 f2 5f 42 75 | 74 74 6f 6e 50 72 65 73 |&.. ._Bu|ttonPres|
|00000670| 73 65 64 0d 02 30 2b ea | 20 4d 6f 75 73 65 58 25 |sed..0+.| MouseX%|
|00000680| 2c 4d 6f 75 73 65 59 25 | 2c 42 75 74 74 6f 6e 25 |,MouseY%|,Button%|
|00000690| 2c 57 69 6e 64 6f 77 25 | 2c 49 63 6f 6e 25 0d 02 |,Window%|,Icon%..|
|000006a0| 3a 46 20 20 20 4d 6f 75 | 73 65 58 25 3d 42 6c 6f |:F Mou|seX%=Blo|
|000006b0| 63 6b 25 21 30 30 20 3a | 20 f4 20 42 6c 6f 63 6b |ck%!00 :| . Block|
|000006c0| 25 21 30 30 20 3d 20 4d | 6f 75 73 65 20 58 20 28 |%!00 = M|ouse X (|
|000006d0| 53 63 72 65 65 6e 20 43 | 6f 2d 6f 72 64 69 6e 61 |Screen C|o-ordina|
|000006e0| 74 65 73 29 0d 02 44 46 | 20 20 20 4d 6f 75 73 65 |tes)..DF| Mouse|
|000006f0| 59 25 3d 42 6c 6f 63 6b | 25 21 30 34 20 3a 20 f4 |Y%=Block|%!04 : .|
|00000700| 20 42 6c 6f 63 6b 25 21 | 30 34 20 3d 20 4d 6f 75 | Block%!|04 = Mou|
|00000710| 73 65 20 59 20 28 53 63 | 72 65 65 6e 20 43 6f 2d |se Y (Sc|reen Co-|
|00000720| 6f 72 64 69 6e 61 74 65 | 73 29 0d 02 4e 30 20 20 |ordinate|s)..N0 |
|00000730| 20 42 75 74 74 6f 6e 25 | 3d 42 6c 6f 63 6b 25 21 | Button%|=Block%!|
|00000740| 30 38 20 3a 20 f4 20 42 | 6c 6f 63 6b 25 21 30 38 |08 : . B|lock%!08|
|00000750| 20 3d 20 42 75 74 74 6f | 6e 73 0d 02 58 56 20 20 | = Butto|ns..XV |
|00000760| 20 57 69 6e 64 6f 77 25 | 3d 42 6c 6f 63 6b 25 21 | Window%|=Block%!|
|00000770| 31 32 20 3a 20 f4 20 42 | 6c 6f 63 6b 25 21 31 32 |12 : . B|lock%!12|
|00000780| 20 3d 20 57 69 6e 64 6f | 77 20 48 61 6e 64 6c 65 | = Windo|w Handle|
|00000790| 20 28 42 61 63 6b 47 72 | 6f 75 6e 64 20 3d 20 2d | (BackGr|ound = -|
|000007a0| 31 2c 20 49 63 6f 6e 42 | 61 72 20 3d 20 2d 32 29 |1, IconB|ar = -2)|
|000007b0| 0d 02 62 51 20 20 20 49 | 63 6f 6e 25 20 20 3d 42 |..bQ I|con% =B|
|000007c0| 6c 6f 63 6b 25 21 31 36 | 20 3a 20 f4 20 42 6c 6f |lock%!16| : . Blo|
|000007d0| 63 6b 25 21 31 36 20 3d | 20 49 63 6f 6e 20 48 61 |ck%!16 =| Icon Ha|
|000007e0| 6e 64 6c 65 20 28 20 57 | 6f 72 6b 20 41 72 65 61 |ndle ( W|ork Area|
|000007f0| 20 42 61 63 6b 47 72 6f | 75 6e 64 20 3d 20 2d 31 | BackGro|und = -1|
|00000800| 29 0d 02 6c 08 20 20 20 | 3a 0d 02 76 39 20 20 20 |)..l. |:..v9 |
|00000810| e7 20 57 69 6e 64 6f 77 | 25 3d 20 49 63 6f 6e 42 |. Window|%= IconB|
|00000820| 61 72 25 20 80 20 49 63 | 6f 6e 25 20 3d 20 49 63 |ar% . Ic|on% = Ic|
|00000830| 6f 6e 42 61 72 49 63 6f | 6e 48 61 6e 64 6c 65 25 |onBarIco|nHandle%|
|00000840| 20 8c 0d 02 80 16 20 20 | 20 20 20 20 c8 8e 20 42 | ..... | .. B|
|00000850| 75 74 74 6f 6e 25 20 ca | 0d 02 8a 29 20 20 20 20 |utton% .|...) |
|00000860| 20 20 20 20 20 c9 20 25 | 30 30 31 20 3a 20 f2 5f | . %|001 : ._|
|00000870| 4f 70 65 6e 57 69 6e 64 | 6f 77 28 4d 61 69 6e 25 |OpenWind|ow(Main%|
|00000880| 29 0d 02 94 29 20 20 20 | 20 20 20 20 20 20 c9 20 |)...) | . |
|00000890| 25 31 30 30 20 3a 20 f2 | 5f 4f 70 65 6e 57 69 6e |%100 : .|_OpenWin|
|000008a0| 64 6f 77 28 4d 61 69 6e | 25 29 0d 02 9e 28 20 20 |dow(Main|%)...( |
|000008b0| 20 20 20 20 20 20 20 c9 | 20 25 30 31 30 20 3a 20 | .| %010 : |
|000008c0| f2 5f 53 65 74 55 70 49 | 63 6f 6e 42 61 72 4d 65 |._SetUpI|conBarMe|
|000008d0| 6e 75 0d 02 a8 0b 20 20 | 20 20 20 20 cb 0d 02 b2 |nu.... | ....|
|000008e0| 08 20 20 20 cd 0d 02 bc | 08 20 20 20 3a 0d 02 c6 |. ....|. :...|
|000008f0| 28 20 20 20 e7 20 57 69 | 6e 64 6f 77 25 3d 4d 61 |( . Wi|ndow%=Ma|
|00000900| 69 6e 25 20 80 20 42 75 | 74 74 6f 6e 25 3d 20 25 |in% . Bu|tton%= %|
|00000910| 30 31 30 20 8c 0d 02 d0 | 31 20 20 20 20 20 20 f2 |010 ....|1 .|
|00000920| 5f 43 72 65 61 74 65 4d | 61 69 6e 57 69 6e 64 6f |_CreateM|ainWindo|
|00000930| 77 4d 65 6e 75 28 4d 6f | 75 73 65 58 25 2c 4d 6f |wMenu(Mo|useX%,Mo|
|00000940| 75 73 65 59 25 29 0d 02 | da 08 20 20 20 cd 0d 02 |useY%)..|.. ...|
|00000950| e4 08 20 20 20 3a 0d 02 | ee 4a 20 20 20 e7 20 57 |.. :..|.J . W|
|00000960| 69 6e 64 6f 77 25 3d 20 | 4d 61 69 6e 25 20 80 20 |indow%= |Main% . |
|00000970| 49 63 6f 6e 25 3d 53 61 | 76 65 42 4d 46 25 20 80 |Icon%=Sa|veBMF% .|
|00000980| 20 28 42 75 74 74 6f 6e | 25 3d 25 31 30 30 20 84 | (Button|%=%100 .|
|00000990| 20 42 75 74 74 6f 6e 25 | 3d 25 30 30 31 29 20 8c | Button%|=%001) .|
|000009a0| 0d 02 f8 3c 20 20 20 20 | 20 20 f2 5f 42 75 74 74 |...< | ._Butt|
|000009b0| 6f 6e 50 72 65 73 73 28 | 4d 61 69 6e 25 2c 20 53 |onPress(|Main%, S|
|000009c0| 61 76 65 42 4d 46 25 2c | 20 53 61 76 65 42 4d 4c |aveBMF%,| SaveBML|
|000009d0| 25 2c 20 53 61 76 65 42 | 4d 44 25 29 0d 03 02 12 |%, SaveB|MD%)....|
|000009e0| 20 20 20 20 20 20 f2 5f | 53 61 76 65 54 6f 0d 03 | ._|SaveTo..|
|000009f0| 0c 08 20 20 20 cd 0d 03 | 16 08 20 20 20 3a 0d 03 |.. ...|.. :..|
|00000a00| 20 05 e1 0d 03 2a 05 3a | 0d 03 34 24 2a 2a 2a 2a | ....*.:|..4$****|
|00000a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 03 3e 22 |********|****..>"|
|00000a30| f4 20 27 50 72 65 73 73 | 27 20 61 20 62 75 74 74 |. 'Press|' a butt|
|00000a40| 6f 6e 20 69 6e 20 61 20 | 77 69 6e 64 6f 77 0d 03 |on in a |window..|
|00000a50| 48 1e f4 20 55 73 65 73 | 3a 20 50 52 4f 43 5f 53 |H.. Uses|: PROC_S|
|00000a60| 65 74 49 63 6f 6e 43 6f | 6c 6f 75 72 0d 03 52 24 |etIconCo|lour..R$|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a90| 0d 03 5c 33 dd 20 f2 5f | 42 75 74 74 6f 6e 50 72 |..\3. ._|ButtonPr|
|00000aa0| 65 73 73 28 57 69 6e 64 | 6f 77 25 2c 20 46 72 6f |ess(Wind|ow%, Fro|
|00000ab0| 6e 74 25 2c 20 4c 69 67 | 68 74 25 2c 20 44 61 72 |nt%, Lig|ht%, Dar|
|00000ac0| 6b 25 29 0d 03 66 11 20 | 20 20 ea 20 54 69 6d 65 |k%)..f. | . Time|
|00000ad0| 4e 6f 77 25 0d 03 70 2a | 20 20 20 f2 5f 53 65 74 |Now%..p*| ._Set|
|00000ae0| 49 63 6f 6e 43 6f 6c 6f | 75 72 28 57 69 6e 64 6f |IconColo|ur(Windo|
|00000af0| 77 25 2c 20 4c 69 67 68 | 74 25 2c 20 34 29 0d 03 |w%, Ligh|t%, 4)..|
|00000b00| 7a 29 20 20 20 f2 5f 53 | 65 74 49 63 6f 6e 43 6f |z) ._S|etIconCo|
|00000b10| 6c 6f 75 72 28 57 69 6e | 64 6f 77 25 2c 20 44 61 |lour(Win|dow%, Da|
|00000b20| 72 6b 25 2c 20 30 29 0d | 03 84 2b 20 20 20 f2 5f |rk%, 0).|..+ ._|
|00000b30| 53 65 74 49 63 6f 6e 43 | 6f 6c 6f 75 72 28 57 69 |SetIconC|olour(Wi|
|00000b40| 6e 64 6f 77 25 2c 20 46 | 72 6f 6e 74 25 2c 20 31 |ndow%, F|ront%, 1|
|00000b50| 34 29 0d 03 8e 13 20 20 | 20 54 69 6d 65 4e 6f 77 |4).... | TimeNow|
|00000b60| 25 20 3d 20 91 0d 03 98 | 08 20 20 20 f5 0d 03 a2 |% = ....|. ....|
|00000b70| 18 20 20 20 fd 20 91 20 | 3e 20 54 69 6d 65 4e 6f |. . . |> TimeNo|
|00000b80| 77 25 2b 32 35 0d 03 ac | 2a 20 20 20 f2 5f 53 65 |w%+25...|* ._Se|
|00000b90| 74 49 63 6f 6e 43 6f 6c | 6f 75 72 28 57 69 6e 64 |tIconCol|our(Wind|
|00000ba0| 6f 77 25 2c 20 4c 69 67 | 68 74 25 2c 20 30 29 0d |ow%, Lig|ht%, 0).|
|00000bb0| 03 b6 29 20 20 20 f2 5f | 53 65 74 49 63 6f 6e 43 |..) ._|SetIconC|
|00000bc0| 6f 6c 6f 75 72 28 57 69 | 6e 64 6f 77 25 2c 20 44 |olour(Wi|ndow%, D|
|00000bd0| 61 72 6b 25 2c 20 34 29 | 0d 03 c0 2a 20 20 20 f2 |ark%, 4)|...* .|
|00000be0| 5f 53 65 74 49 63 6f 6e | 43 6f 6c 6f 75 72 28 57 |_SetIcon|Colour(W|
|00000bf0| 69 6e 64 6f 77 25 2c 20 | 46 72 6f 6e 74 25 2c 20 |indow%, |Front%, |
|00000c00| 31 29 0d 03 ca 05 e1 0d | 03 d4 05 3a 0d 03 de 30 |1)......|...:...0|
|00000c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 03 e8 2e |********|****....|
|00000c40| f4 20 43 68 61 6e 67 65 | 20 74 68 65 20 63 6f 6c |. Change| the col|
|00000c50| 6f 75 72 20 6f 66 20 61 | 6e 20 69 63 6f 6e 20 69 |our of a|n icon i|
|00000c60| 6e 20 61 20 77 69 6e 64 | 6f 77 0d 03 f2 10 f4 20 |n a wind|ow..... |
|00000c70| 55 73 65 73 3a 20 4e 4f | 4e 45 0d 03 fc 30 2a 2a |Uses: NO|NE...0**|
|00000c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 04 06 2e dd 20 |********|**..... |
|00000cb0| f2 5f 53 65 74 49 63 6f | 6e 43 6f 6c 6f 75 72 28 |._SetIco|nColour(|
|00000cc0| 57 69 6e 64 6f 77 25 2c | 20 49 63 6f 6e 25 2c 20 |Window%,| Icon%, |
|00000cd0| 43 6f 6c 6f 75 72 25 29 | 0d 04 10 1a 20 20 20 42 |Colour%)|.... B|
|00000ce0| 6c 6f 63 6b 25 21 30 20 | 20 3d 20 57 69 6e 64 6f |lock%!0 | = Windo|
|00000cf0| 77 25 0d 04 1a 18 20 20 | 20 42 6c 6f 63 6b 25 21 |w%.... | Block%!|
|00000d00| 34 20 20 3d 20 49 63 6f | 6e 25 0d 04 24 20 20 20 |4 = Ico|n%..$ |
|00000d10| 20 42 6c 6f 63 6b 25 21 | 38 20 20 3d 20 43 6f 6c | Block%!|8 = Col|
|00000d20| 6f 75 72 25 20 3c 3c 20 | 32 38 0d 04 2e 1e 20 20 |our% << |28.... |
|00000d30| 20 42 6c 6f 63 6b 25 21 | 31 32 20 3d 20 25 31 31 | Block%!|12 = %11|
|00000d40| 31 31 20 3c 3c 20 32 38 | 0d 04 38 26 20 20 20 c8 |11 << 28|..8& .|
|00000d50| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00000d60| 74 61 74 65 22 2c 2c 20 | 42 6c 6f 63 6b 25 0d 04 |tate",, |Block%..|
|00000d70| 42 05 e1 0d 04 4c 05 3a | 0d 04 56 49 f4 20 2a 2a |B....L.:|..VI. **|
|00000d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000dc0| 2a 0d 04 60 49 f4 20 57 | 68 65 6e 20 61 20 6b 65 |*..`I. W|hen a ke|
|00000dd0| 79 20 69 73 20 70 72 65 | 73 73 65 64 2c 20 43 68 |y is pre|ssed, Ch|
|00000de0| 65 63 6b 20 69 66 20 69 | 74 20 63 6f 6e 63 65 72 |eck if i|t concer|
|00000df0| 6e 73 20 6d 65 2e 20 49 | 66 20 6e 6f 74 2c 20 50 |ns me. I|f not, P|
|00000e00| 61 73 73 20 69 74 20 6f | 6e 21 0d 04 6a 28 f4 20 |ass it o|n!..j(. |
|00000e10| 55 73 65 73 3a 20 4f 6e | 6c 79 20 55 53 45 52 20 |Uses: On|ly USER |
|00000e20| 73 75 70 70 6c 69 65 64 | 20 72 6f 75 74 69 6e 65 |supplied| routine|
|00000e30| 73 2e 0d 04 74 49 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |s...tI. |********|
|00000e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 04 7e 1e dd |********|***..~..|
|00000e80| 20 f2 5f 50 72 6f 63 65 | 73 73 4b 65 79 28 4b 65 | ._Proce|ssKey(Ke|
|00000e90| 79 50 72 65 73 73 65 64 | 29 0d 04 88 15 20 20 20 |yPressed|).... |
|00000ea0| ea 20 49 63 6f 6e 25 2c | 49 6e 64 65 78 25 0d 04 |. Icon%,|Index%..|
|00000eb0| 92 15 20 20 20 49 63 6f | 6e 25 3d 42 6c 6f 63 6b |.. Ico|n%=Block|
|00000ec0| 25 21 34 0d 04 9c 17 20 | 20 20 49 6e 64 65 78 25 |%!4.... | Index%|
|00000ed0| 3d 42 6c 6f 63 6b 25 21 | 32 30 0d 04 a6 16 20 20 |=Block%!|20.... |
|00000ee0| 20 c8 8e 20 4b 65 79 50 | 72 65 73 73 65 64 20 ca | .. KeyP|ressed .|
|00000ef0| 0d 04 b0 0f 20 20 20 20 | 20 20 c9 20 26 30 44 0d |.... | . &0D.|
|00000f00| 04 ba 3f 20 20 20 20 20 | 20 20 20 20 f2 5f 42 75 |..? | ._Bu|
|00000f10| 74 74 6f 6e 50 72 65 73 | 73 28 4d 61 69 6e 25 2c |ttonPres|s(Main%,|
|00000f20| 20 53 61 76 65 42 4d 46 | 25 2c 20 53 61 76 65 42 | SaveBMF|%, SaveB|
|00000f30| 4d 4c 25 2c 20 53 61 76 | 65 42 4d 44 25 29 0d 04 |ML%, Sav|eBMD%)..|
|00000f40| c4 15 20 20 20 20 20 20 | 20 20 20 f2 5f 53 61 76 |.. | ._Sav|
|00000f50| 65 54 6f 0d 04 ce 2a 20 | 20 20 20 20 20 7f 20 c8 |eTo...* | . .|
|00000f60| 99 20 22 57 69 6d 70 5f | 50 72 6f 63 65 73 73 4b |. "Wimp_|ProcessK|
|00000f70| 65 79 22 2c 42 6c 6f 63 | 6b 25 21 32 34 0d 04 d8 |ey",Bloc|k%!24...|
|00000f80| 08 20 20 20 cb 0d 04 e2 | 05 e1 0d 04 ec 05 3a 0d |. ....|......:.|
|00000f90| 04 f6 2a f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*. ***|********|
|00000fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 05 00 2a f4 20 4d |********|*...*. M|
|00000fc0| 6f 75 73 65 20 27 43 6c | 69 63 6b 27 20 57 68 69 |ouse 'Cl|ick' Whi|
|00000fd0| 6c 73 74 20 4f 76 65 72 | 20 4d 65 6e 75 20 49 74 |lst Over| Menu It|
|00000fe0| 65 6d 2e 0d 05 0a 28 f4 | 20 55 73 65 73 3a 20 4f |em....(.| Uses: O|
|00000ff0| 6e 6c 79 20 55 53 45 52 | 20 73 75 70 70 6c 69 65 |nly USER| supplie|
|00001000| 64 20 72 6f 75 74 69 6e | 65 73 2e 0d 05 14 2a f4 |d routin|es....*.|
|00001010| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00001020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001030| 2a 2a 2a 2a 2a 0d 05 1e | 15 dd 20 f2 5f 4d 65 6e |*****...|.. ._Men|
|00001040| 75 53 65 6c 65 63 74 69 | 6f 6e 0d 05 28 1d 20 20 |uSelecti|on..(. |
|00001050| 20 e7 20 49 63 6f 6e 42 | 61 72 4d 65 6e 75 41 63 | . IconB|arMenuAc|
|00001060| 74 69 76 65 25 20 8c 0d | 05 32 17 20 20 20 20 20 |tive% ..|.2. |
|00001070| 20 c8 8e 20 42 6c 6f 63 | 6b 25 21 30 20 ca 0d 05 | .. Bloc|k%!0 ...|
|00001080| 3c 32 20 20 20 20 20 20 | 20 20 20 c9 20 30 20 3a |<2 | . 0 :|
|00001090| 20 f4 20 3c 53 65 6c 65 | 63 74 3e 20 6f 6e 20 22 | . <Sele|ct> on "|
|000010a0| 49 6e 66 6f 22 20 69 73 | 20 69 67 6e 6f 72 65 64 |Info" is| ignored|
|000010b0| 0d 05 46 45 20 20 20 20 | 20 20 20 20 20 c9 20 31 |..FE | . 1|
|000010c0| 20 3a 20 f2 5f 43 6c 6f | 73 65 44 6f 77 6e 20 3a | : ._Clo|seDown :|
|000010d0| 20 f4 20 3c 53 65 6c 65 | 63 74 3e 20 6f 6e 20 22 | . <Sele|ct> on "|
|000010e0| 71 75 69 74 22 20 63 61 | 75 73 65 73 20 73 68 75 |quit" ca|uses shu|
|000010f0| 74 64 6f 77 6e 0d 05 50 | 0b 20 20 20 20 20 20 cb |tdown..P|. .|
|00001100| 0d 05 5a 08 20 20 20 cd | 0d 05 64 08 20 20 20 3a |..Z. .|..d. :|
|00001110| 0d 05 6e 20 20 20 20 e7 | 20 4d 61 69 6e 57 69 6e |..n .| MainWin|
|00001120| 64 6f 77 4d 65 6e 75 41 | 63 74 69 76 65 25 20 8c |dowMenuA|ctive% .|
|00001130| 0d 05 78 17 20 20 20 20 | 20 20 c8 8e 20 42 6c 6f |..x. | .. Blo|
|00001140| 63 6b 25 21 30 20 ca 0d | 05 82 27 20 20 20 20 20 |ck%!0 ..|..' |
|00001150| 20 20 20 20 c9 20 31 20 | 3a 20 f2 5f 53 65 6c 65 | . 1 |: ._Sele|
|00001160| 63 74 46 72 6f 6d 46 6f | 6e 74 4d 65 6e 75 0d 05 |ctFromFo|ntMenu..|
|00001170| 8c 1b 20 20 20 20 20 20 | 20 20 20 c9 20 32 20 3a |.. | . 2 :|
|00001180| 20 f2 5f 53 61 76 65 54 | 6f 0d 05 96 0b 20 20 20 | ._SaveT|o.... |
|00001190| 20 20 20 cb 0d 05 a0 08 | 20 20 20 cd 0d 05 aa 08 | .....| .....|
|000011a0| 20 20 20 3a 0d 05 b4 05 | e1 0d 05 be 05 3a 0d 05 | :....|.....:..|
|000011b0| c8 20 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. . ****|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 05 |********|******..|
|000011d0| d2 20 f4 20 52 65 64 72 | 61 77 20 74 68 65 20 73 |. . Redr|aw the s|
|000011e0| 70 65 63 69 66 69 69 65 | 64 20 69 63 6f 6e 0d 05 |pecifiie|d icon..|
|000011f0| dc 10 f4 20 55 73 65 73 | 3a 20 4e 4f 4e 45 0d 05 |... Uses|: NONE..|
|00001200| e6 20 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. . ****|********|
|00001210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 05 |********|******..|
|00001220| f0 1d dd 20 f2 5f 52 65 | 64 72 61 77 28 57 69 6e |... ._Re|draw(Win|
|00001230| 64 6f 77 25 2c 49 63 6f | 6e 25 29 0d 05 fa 17 20 |dow%,Ico|n%).... |
|00001240| 20 20 42 6c 6f 63 6b 25 | 21 30 3d 57 69 6e 64 6f | Block%|!0=Windo|
|00001250| 77 25 0d 06 04 15 20 20 | 20 42 6c 6f 63 6b 25 21 |w%.... | Block%!|
|00001260| 34 3d 49 63 6f 6e 25 0d | 06 0e 25 20 20 20 c8 99 |4=Icon%.|..% ..|
|00001270| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00001280| 61 74 65 22 2c 2c 42 6c | 6f 63 6b 25 0d 06 18 49 |ate",,Bl|ock%...I|
|00001290| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 | .. "W|imp_Forc|
|000012a0| 65 52 65 64 72 61 77 22 | 2c 4d 61 69 6e 25 2c 42 |eRedraw"|,Main%,B|
|000012b0| 6c 6f 63 6b 25 21 38 2c | 42 6c 6f 63 6b 25 21 31 |lock%!8,|Block%!1|
|000012c0| 32 2c 42 6c 6f 63 6b 25 | 21 31 36 2c 42 6c 6f 63 |2,Block%|!16,Bloc|
|000012d0| 6b 25 21 32 30 0d 06 22 | 05 e1 0d 06 2c 05 3a 0d |k%!20.."|....,.:.|
|000012e0| 06 36 49 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.6I. ***|********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 06 40 49 f4 20 57 68 |********|..@I. Wh|
|00001330| 65 6e 20 61 20 6d 65 73 | 73 61 67 65 20 69 73 20 |en a mes|sage is |
|00001340| 72 65 63 65 69 76 65 64 | 2c 20 43 6f 6e 74 72 6f |received|, Contro|
|00001350| 6c 20 69 73 20 70 61 73 | 73 65 64 20 74 6f 20 68 |l is pas|sed to h|
|00001360| 65 72 65 20 66 6f 72 20 | 64 65 63 6f 64 69 6e 67 |ere for |decoding|
|00001370| 2e 0d 06 4a 28 f4 20 55 | 73 65 73 3a 20 46 4e 5f |...J(. U|ses: FN_|
|00001380| 52 65 61 64 53 74 72 69 | 6e 67 20 50 52 4f 43 5f |ReadStri|ng PROC_|
|00001390| 43 6c 6f 73 65 44 6f 77 | 6e 0d 06 54 49 f4 20 2a |CloseDow|n..TI. *|
|000013a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013e0| 2a 2a 0d 06 5e 1f dd 20 | f2 5f 44 65 63 6f 64 65 |**..^.. |._Decode|
|000013f0| 4d 65 73 73 61 67 65 28 | 52 65 71 75 65 73 74 25 |Message(|Request%|
|00001400| 29 0d 06 68 14 20 20 20 | c8 8e 20 52 65 71 75 65 |)..h. |.. Reque|
|00001410| 73 74 25 20 ca 0d 06 72 | 20 20 20 20 20 20 20 c9 |st% ...r| .|
|00001420| 20 30 20 20 20 20 20 20 | 3a 20 f2 5f 43 6c 6f 73 | 0 |: ._Clos|
|00001430| 65 44 6f 77 6e 0d 06 7c | 50 20 20 20 20 20 20 c9 |eDown..||P .|
|00001440| 20 26 34 30 30 43 32 20 | 3a 20 e7 20 a4 5f 52 65 | &400C2 |: . ._Re|
|00001450| 61 64 53 74 72 69 6e 67 | 28 42 6c 6f 63 6b 25 2b |adString|(Block%+|
|00001460| 32 38 29 3d 4d 79 54 61 | 73 6b 4e 61 6d 65 24 20 |28)=MyTa|skName$ |
|00001470| 80 20 42 6c 6f 63 6b 25 | 21 34 3c 3e 20 4d 79 5f |. Block%|!4<> My_|
|00001480| 69 64 25 20 8c 0d 06 86 | 71 20 20 20 20 20 20 20 |id% ....|q |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000014a0| f4 20 41 6e 6f 74 68 65 | 72 20 41 70 70 6c 69 63 |. Anothe|r Applic|
|000014b0| 61 74 69 6f 6e 20 77 69 | 74 68 20 74 68 65 20 73 |ation wi|th the s|
|000014c0| 61 6d 65 20 6e 61 6d 65 | 20 69 73 20 74 72 79 69 |ame name| is tryi|
|000014d0| 6e 67 20 74 6f 20 73 74 | 61 72 74 20 75 70 2c 20 |ng to st|art up, |
|000014e0| 74 65 6c 6c 20 69 74 20 | 74 6f 20 62 75 67 67 65 |tell it |to bugge|
|000014f0| 72 20 6f 66 66 21 0d 06 | 90 26 20 20 20 20 20 20 |r off!..|.& |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001510| 20 42 6c 6f 63 6b 25 21 | 31 36 3d 30 0d 06 9a 43 | Block%!|16=0...C|
|00001520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001530| 20 20 20 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f | .|. "Wimp_|
|00001540| 53 65 6e 64 4d 65 73 73 | 61 67 65 22 2c 31 37 2c |SendMess|age",17,|
|00001550| 42 6c 6f 63 6b 25 2c 42 | 6c 6f 63 6b 25 21 34 0d |Block%,B|lock%!4.|
|00001560| 06 a4 19 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00001570| 20 20 20 20 20 20 20 cd | 0d 06 ae 08 20 20 20 cb | .|.... .|
|00001580| 0d 06 b8 05 e1 0d 06 c2 | 05 3a 0d 06 cc 3b f4 20 |........|.:...;. |
|00001590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000015c0| 2a 2a 2a 2a 2a 0d 06 d6 | 3b f4 20 52 65 61 64 20 |*****...|;. Read |
|000015d0| 61 20 73 74 72 69 6e 67 | 20 66 72 6f 6d 20 61 20 |a string| from a |
|000015e0| 70 6f 69 6e 74 65 72 2c | 20 75 73 69 6e 67 20 61 |pointer,| using a|
|000015f0| 20 7a 65 72 6f 2d 74 65 | 72 6d 69 6e 61 74 6f 72 | zero-te|rminator|
|00001600| 0d 06 e0 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..... Us|es: NONE|
|00001610| 0d 06 ea 3b f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...;. **|********|
|00001620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 06 f4 1c dd |********|***.....|
|00001650| 20 a4 5f 52 65 61 64 53 | 74 72 69 6e 67 28 50 6f | ._ReadS|tring(Po|
|00001660| 69 6e 74 65 72 25 29 0d | 06 fe 18 20 20 20 ea 20 |inter%).|... . |
|00001670| 53 74 72 69 6e 67 24 2c | 4c 65 6e 67 74 68 25 0d |String$,|Length%.|
|00001680| 07 08 16 20 20 20 c8 95 | 20 3f 50 6f 69 6e 74 65 |... ..| ?Pointe|
|00001690| 72 25 3c 3e 30 0d 07 12 | 1d 20 20 20 20 20 20 53 |r%<>0...|. S|
|000016a0| 74 72 69 6e 67 24 2b 3d | bd 3f 50 6f 69 6e 74 65 |tring$+=|.?Pointe|
|000016b0| 72 25 0d 07 1c 20 20 20 | 20 20 20 20 50 6f 69 6e |r%... | Poin|
|000016c0| 74 65 72 25 2b 3d 31 3a | 4c 65 6e 67 74 68 25 2b |ter%+=1:|Length%+|
|000016d0| 3d 31 0d 07 26 37 20 20 | 20 20 20 20 e7 20 4c 65 |=1..&7 | . Le|
|000016e0| 6e 67 74 68 25 3e 35 30 | 20 8c 20 f1 53 74 72 69 |ngth%>50| . .Stri|
|000016f0| 6e 67 24 3a 85 20 30 2c | 22 53 74 72 69 6e 67 20 |ng$:. 0,|"String |
|00001700| 74 6f 6f 20 4c 6f 6e 67 | 22 0d 07 30 08 20 20 20 |too Long|"..0. |
|00001710| ce 0d 07 3a 0c 3d 53 74 | 72 69 6e 67 24 0d 07 44 |...:.=St|ring$..D|
|00001720| 05 3a 0d 07 4e 41 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..NA. |********|
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001760| 2a 2a 2a 0d 07 58 41 f4 | 20 41 6c 6c 20 57 49 4d |***..XA.| All WIM|
|00001770| 50 20 50 72 6f 67 72 61 | 6d 73 20 73 68 6f 75 6c |P Progra|ms shoul|
|00001780| 64 20 62 65 20 61 62 6c | 65 20 74 6f 20 73 68 75 |d be abl|e to shu|
|00001790| 74 20 74 68 65 6d 73 65 | 6c 76 65 73 20 64 6f 77 |t themse|lves dow|
|000017a0| 6e 21 21 21 0d 07 62 41 | f4 20 2a 2a 2a 2a 2a 2a |n!!!..bA|. ******|
|000017b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017e0| 2a 2a 2a 2a 2a 0d 07 6c | 11 dd 20 f2 5f 43 6c 6f |*****..l|.. ._Clo|
|000017f0| 73 65 44 6f 77 6e 0d 07 | 76 1b 20 20 20 c8 99 20 |seDown..|v. .. |
|00001800| 22 48 6f 75 72 67 6c 61 | 73 73 5f 53 6d 61 73 68 |"Hourgla|ss_Smash|
|00001810| 22 0d 07 80 2b 20 20 20 | c8 99 20 22 57 69 6d 70 |"...+ |.. "Wimp|
|00001820| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 4d 79 5f 69 |_CloseDo|wn",My_i|
|00001830| 64 25 2c 26 34 42 35 33 | 34 31 35 34 0d 07 8a 13 |d%,&4B53|4154....|
|00001840| 20 20 20 c8 99 20 22 4f | 53 5f 45 78 69 74 22 0d | .. "O|S_Exit".|
|00001850| 07 94 05 e1 0d 07 9e 05 | 3a 0d 07 a8 4c f4 20 2a |........|:...L. *|
|00001860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018a0| 2a 2a 2a 2a 2a 0d 07 b2 | 4c f4 20 54 68 69 73 20 |*****...|L. This |
|000018b0| 69 73 20 70 75 72 65 6c | 79 20 66 6f 72 20 70 72 |is purel|y for pr|
|000018c0| 6f 67 72 61 6d 20 76 61 | 72 69 61 62 6c 65 73 20 |ogram va|riables |
|000018d0| 61 6e 64 20 69 73 20 6e | 6f 74 68 69 6e 67 20 74 |and is n|othing t|
|000018e0| 6f 20 64 6f 20 77 69 74 | 68 20 52 69 73 63 5f 4f |o do wit|h Risc_O|
|000018f0| 53 0d 07 bc 27 f4 20 55 | 73 65 73 3a 20 4f 6e 6c |S...'. U|ses: Onl|
|00001900| 79 20 55 73 65 72 20 53 | 75 70 70 6c 69 65 64 20 |y User S|upplied |
|00001910| 52 6f 75 74 69 6e 65 73 | 0d 07 c6 4c f4 20 2a 2a |Routines|...L. **|
|00001920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001960| 2a 2a 2a 2a 0d 07 d0 24 | dd 20 f2 5f 49 6e 69 74 |****...$|. ._Init|
|00001970| 69 61 6c 69 73 65 5f 50 | 72 6f 67 72 61 6d 5f 56 |ialise_P|rogram_V|
|00001980| 61 72 69 61 62 6c 65 73 | 0d 07 da 20 20 20 20 4d |ariables|... M|
|00001990| 79 54 61 73 6b 4e 61 6d | 65 24 3d 22 4d 61 6b 65 |yTaskNam|e$="Make|
|000019a0| 20 42 69 74 4d 61 70 22 | 0d 07 e4 27 20 20 20 49 | BitMap"|...' I|
|000019b0| 63 6f 6e 42 61 72 25 3d | 20 2d 32 20 3a 20 53 68 |conBar%=| -2 : Sh|
|000019c0| 6f 77 46 6f 6e 74 4e 61 | 6d 65 25 3d 20 31 33 0d |owFontNa|me%= 13.|
|000019d0| 07 ee 30 20 20 20 53 61 | 76 65 42 4d 46 25 3d 33 |..0 Sa|veBMF%=3|
|000019e0| 30 20 3a 20 53 61 76 65 | 42 4d 4c 25 3d 32 39 20 |0 : Save|BML%=29 |
|000019f0| 3a 20 53 61 76 65 42 4d | 44 25 20 3d 20 32 38 0d |: SaveBM|D% = 28.|
|00001a00| 07 f8 59 20 20 20 f4 20 | 52 65 61 64 20 74 68 65 |..Y . |Read the|
|00001a10| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 73 79 | value o|f the sy|
|00001a20| 73 74 65 6d 20 76 61 72 | 69 61 62 6c 65 20 73 65 |stem var|iable se|
|00001a30| 74 20 75 70 20 69 6e 20 | 21 52 75 6e 20 69 6e 74 |t up in |!Run int|
|00001a40| 6f 20 74 68 65 20 76 61 | 6c 75 65 20 4d 61 78 54 |o the va|lue MaxT|
|00001a50| 79 70 65 46 61 63 65 25 | 0d 08 02 3d 20 20 20 c8 |ypeFace%|...= .|
|00001a60| 99 20 22 4f 53 5f 52 65 | 61 64 56 61 72 56 61 6c |. "OS_Re|adVarVal|
|00001a70| 22 2c 22 4e 75 6d 62 65 | 72 4f 66 46 6f 6e 74 46 |","Numbe|rOfFontF|
|00001a80| 61 6d 69 6c 69 65 73 22 | 2c 42 6c 6f 63 6b 25 2c |amilies"|,Block%,|
|00001a90| 34 2c 30 2c 33 0d 08 0c | 35 20 20 20 c8 99 20 22 |4,0,3...|5 .. "|
|00001aa0| 4f 53 5f 52 65 61 64 55 | 6e 73 69 67 6e 65 64 22 |OS_ReadU|nsigned"|
|00001ab0| 2c 30 2c 42 6c 6f 63 6b | 25 20 b8 20 2c 2c 4d 61 |,0,Block|% . ,,Ma|
|00001ac0| 78 54 79 70 65 46 61 63 | 65 25 0d 08 16 2e 20 20 |xTypeFac|e%.... |
|00001ad0| 20 de 20 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e | . Indir|ectedFon|
|00001ae0| 74 44 61 74 61 25 20 4d | 61 78 54 79 70 65 46 61 |tData% M|axTypeFa|
|00001af0| 63 65 25 2a 28 33 36 29 | 0d 08 20 29 20 20 20 de |ce%*(36)|.. ) .|
|00001b00| 20 53 75 62 4d 65 6e 75 | 49 6e 64 69 72 65 63 74 | SubMenu|Indirect|
|00001b10| 65 64 25 28 4d 61 78 54 | 79 70 65 46 61 63 65 25 |ed%(MaxT|ypeFace%|
|00001b20| 29 0d 08 2a 22 20 20 20 | de 20 4d 65 6e 75 48 61 |)..*" |. MenuHa|
|00001b30| 6e 64 6c 65 25 28 4d 61 | 78 54 79 70 65 46 61 63 |ndle%(Ma|xTypeFac|
|00001b40| 65 25 29 0d 08 34 59 20 | 20 20 de 20 4d 65 6e 75 |e%)..4Y | . Menu|
|00001b50| 53 74 72 75 63 74 75 72 | 65 25 20 28 28 32 34 2a |Structur|e% ((24*|
|00001b60| 37 2b 32 38 2a 32 29 2a | 4d 61 78 54 79 70 65 46 |7+28*2)*|MaxTypeF|
|00001b70| 61 63 65 25 29 20 3a 20 | f4 20 61 6c 6c 6f 77 73 |ace%) : |. allows|
|00001b80| 20 66 6f 72 20 36 20 66 | 6f 6e 74 73 20 70 65 72 | for 6 f|onts per|
|00001b90| 20 66 6f 6e 74 20 46 61 | 6d 69 6c 79 0d 08 3e 05 | font Fa|mily..>.|
|00001ba0| e1 0d 08 48 05 3a 0d 08 | 52 70 f4 20 2a 2a 2a 2a |...H.:..|Rp. ****|
|00001bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c10| 2a 2a 2a 2a 2a 2a 0d 08 | 5c 70 f4 20 53 74 61 72 |******..|\p. Star|
|00001c20| 74 20 55 70 20 70 72 6f | 67 72 61 6d 20 61 73 20 |t Up pro|gram as |
|00001c30| 61 20 74 61 73 6b 20 77 | 69 74 68 20 6e 61 6d 65 |a task w|ith name|
|00001c40| 20 3c 4d 79 54 61 73 6b | 4e 61 6d 65 24 3e 20 77 | <MyTask|Name$> w|
|00001c50| 68 69 63 68 20 69 73 20 | 64 65 63 6c 61 72 65 64 |hich is |declared|
|00001c60| 20 69 6e 20 50 52 4f 43 | 5f 49 6e 69 74 69 61 6c | in PROC|_Initial|
|00001c70| 69 73 65 5f 50 72 6f 67 | 72 61 6d 5f 56 61 72 69 |ise_Prog|ram_Vari|
|00001c80| 61 62 6c 65 73 2e 0d 08 | 66 26 f4 20 41 6e 64 20 |ables...|f&. And |
|00001c90| 49 6e 73 74 61 6c 6c 20 | 69 63 6f 6e 20 6f 6e 20 |Install |icon on |
|00001ca0| 74 68 65 20 49 63 6f 6e | 20 62 61 72 0d 08 70 52 |the Icon| bar..pR|
|00001cb0| f4 20 55 73 65 73 3a 20 | 46 4e 5f 43 72 65 61 74 |. Uses: |FN_Creat|
|00001cc0| 65 49 63 6f 6e 42 61 72 | 49 63 6f 6e 20 50 52 4f |eIconBar|Icon PRO|
|00001cd0| 43 5f 49 6e 69 74 69 61 | 6c 69 73 65 5f 53 70 72 |C_Initia|lise_Spr|
|00001ce0| 69 74 65 73 20 50 52 4f | 43 5f 49 6e 69 74 69 61 |ites PRO|C_Initia|
|00001cf0| 6c 69 73 65 5f 54 65 6d | 70 6c 61 74 65 73 0d 08 |lise_Tem|plates..|
|00001d00| 7a 70 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |zp. ****|********|
|00001d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 08 |********|******..|
|00001d70| 84 1e dd 20 f2 5f 49 6e | 69 74 69 61 6c 69 73 65 |... ._In|itialise|
|00001d80| 5f 57 49 4d 50 5f 53 79 | 73 74 65 6d 0d 08 8e 43 |_WIMP_Sy|stem...C|
|00001d90| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 | .. "W|imp_Init|
|00001da0| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 26 34 42 35 |ialise",|200,&4B5|
|00001db0| 33 34 31 35 34 2c 4d 79 | 54 61 73 6b 4e 61 6d 65 |34154,My|TaskName|
|00001dc0| 24 20 b8 20 76 65 72 25 | 2c 4d 79 5f 69 64 25 0d |$ . ver%|,My_id%.|
|00001dd0| 08 98 2d 20 20 20 49 63 | 6f 6e 42 61 72 49 63 6f |..- Ic|onBarIco|
|00001de0| 6e 48 61 6e 64 6c 65 25 | 3d a4 5f 43 72 65 61 74 |nHandle%|=._Creat|
|00001df0| 65 49 63 6f 6e 42 61 72 | 49 63 6f 6e 0d 08 a2 1b |eIconBar|Icon....|
|00001e00| 20 20 20 f2 5f 49 6e 69 | 74 69 61 6c 69 73 65 5f | ._Ini|tialise_|
|00001e10| 53 70 72 69 74 65 73 0d | 08 ac 1d 20 20 20 f2 5f |Sprites.|... ._|
|00001e20| 49 6e 69 74 69 61 6c 69 | 73 65 5f 54 65 6d 70 6c |Initiali|se_Templ|
|00001e30| 61 74 65 73 0d 08 b6 6e | 20 20 20 4d 61 73 6b 25 |ates...n| Mask%|
|00001e40| 3d 25 31 31 30 30 30 30 | 30 31 31 30 30 30 31 20 |=%110000|0110001 |
|00001e50| 20 20 20 3a 20 f4 20 4d | 61 73 6b 20 4f 75 74 20 | : . M|ask Out |
|00001e60| 63 6f 64 65 73 20 66 6f | 72 20 47 61 69 6e 2f 4c |codes fo|r Gain/L|
|00001e70| 6f 73 65 20 43 61 72 65 | 74 2c 20 50 6f 69 6e 74 |ose Care|t, Point|
|00001e80| 65 72 20 45 6e 74 65 72 | 2f 4c 65 61 76 65 20 57 |er Enter|/Leave W|
|00001e90| 69 6e 64 6f 77 20 26 20 | 4e 75 6c 6c 20 45 76 65 |indow & |Null Eve|
|00001ea0| 6e 74 0d 08 c0 05 e1 0d | 08 ca 05 3a 0d 08 d4 43 |nt......|...:...C|
|00001eb0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00001ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00001ef0| 08 de 43 f4 20 54 68 69 | 73 20 74 61 6b 65 73 20 |..C. Thi|s takes |
|00001f00| 61 20 53 70 72 69 74 65 | 20 61 6e 64 20 6d 61 6b |a Sprite| and mak|
|00001f10| 65 73 20 69 74 20 69 6e | 74 6f 20 61 6e 20 49 63 |es it in|to an Ic|
|00001f20| 6f 6e 20 46 6f 72 20 74 | 68 65 20 49 63 6f 6e 42 |on For t|he IconB|
|00001f30| 61 72 0d 08 e8 12 52 45 | 4e 20 55 73 65 73 3a 20 |ar....RE|N Uses: |
|00001f40| 4e 4f 4e 45 0d 08 f2 43 | f4 20 2a 2a 2a 2a 2a 2a |NONE...C|. ******|
|00001f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f80| 2a 2a 2a 2a 2a 2a 2a 0d | 08 fc 19 dd 20 a4 5f 43 |*******.|.... ._C|
|00001f90| 72 65 61 74 65 49 63 6f | 6e 42 61 72 49 63 6f 6e |reateIco|nBarIcon|
|00001fa0| 0d 09 06 0e 20 20 20 ea | 20 49 63 6f 6e 25 0d 09 |.... .| Icon%..|
|00001fb0| 10 12 20 20 20 42 6c 6f | 63 6b 25 21 30 3d 2d 31 |.. Blo|ck%!0=-1|
|00001fc0| 0d 09 1a 11 20 20 20 42 | 6c 6f 63 6b 25 21 34 3d |.... B|lock%!4=|
|00001fd0| 30 0d 09 24 11 20 20 20 | 42 6c 6f 63 6b 25 21 38 |0..$. |Block%!8|
|00001fe0| 3d 30 0d 09 2e 13 20 20 | 20 42 6c 6f 63 6b 25 21 |=0.... | Block%!|
|00001ff0| 31 32 3d 36 38 0d 09 38 | 13 20 20 20 42 6c 6f 63 |12=68..8|. Bloc|
|00002000| 6b 25 21 31 36 3d 36 38 | 0d 09 42 20 20 20 20 42 |k%!16=68|..B B|
|00002010| 6c 6f 63 6b 25 21 32 30 | 3d 25 31 30 30 30 30 30 |lock%!20|=%100000|
|00002020| 30 30 30 30 30 30 31 30 | 0d 09 4c 20 20 20 20 24 |00000010|..L $|
|00002030| 28 42 6c 6f 63 6b 25 2b | 32 34 29 3d 22 21 4d 61 |(Block%+|24)="!Ma|
|00002040| 6b 42 69 74 4d 61 70 22 | 0d 09 56 2b 20 20 20 c8 |kBitMap"|..V+ .|
|00002050| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00002060| 6f 6e 22 2c 2c 42 6c 6f | 63 6b 25 20 b8 20 49 63 |on",,Blo|ck% . Ic|
|00002070| 6f 6e 25 0d 09 60 0a 3d | 49 63 6f 6e 25 0d 09 6a |on%..`.=|Icon%..j|
|00002080| 05 3a 0d 09 74 42 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:..tB. |********|
|00002090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020c0| 2a 2a 2a 2a 0d 09 7e 42 | f4 20 49 6e 69 74 69 61 |****..~B|. Initia|
|000020d0| 6c 69 73 65 73 20 55 73 | 65 72 20 53 70 72 69 74 |lises Us|er Sprit|
|000020e0| 65 20 41 72 65 61 2c 20 | 61 6e 64 20 4c 6f 61 64 |e Area, |and Load|
|000020f0| 73 20 73 70 72 69 74 65 | 20 66 69 6c 65 20 69 6e |s sprite| file in|
|00002100| 74 6f 20 69 74 2e 0d 09 | 88 2a f4 20 46 72 6f 6d |to it...|.*. From|
|00002110| 20 3c 52 65 73 6f 75 72 | 63 65 73 24 44 69 72 3e | <Resour|ces$Dir>|
|00002120| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 21 52 75 6e | defined| in !Run|
|00002130| 0d 09 92 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..... Us|es: NONE|
|00002140| 0d 09 9c 42 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...B. **|********|
|00002150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002180| 2a 2a 0d 09 a6 1a dd 20 | f2 5f 49 6e 69 74 69 61 |**..... |._Initia|
|00002190| 6c 69 73 65 5f 53 70 72 | 69 74 65 73 0d 09 b0 28 |lise_Spr|ites...(|
|000021a0| 20 20 20 54 65 6d 70 25 | 3d ad 20 22 3c 52 65 73 | Temp%|=. "<Res|
|000021b0| 6f 75 72 63 65 73 24 44 | 69 72 3e 2e 53 70 72 69 |ources$D|ir>.Spri|
|000021c0| 74 65 73 22 0d 09 ba 1e | 20 20 20 46 69 6c 65 4c |tes"....| FileL|
|000021d0| 65 6e 67 74 68 25 3d 34 | 2b 28 a2 23 54 65 6d 70 |ength%=4|+(.#Temp|
|000021e0| 25 29 0d 09 c4 0f 20 20 | 20 d9 20 23 54 65 6d 70 |%).... | . #Temp|
|000021f0| 25 0d 09 ce 20 20 20 20 | de 20 53 70 72 69 74 65 |%... |. Sprite|
|00002200| 41 72 65 61 25 20 46 69 | 6c 65 4c 65 6e 67 74 68 |Area% Fi|leLength|
|00002210| 25 0d 09 d8 20 20 20 20 | 53 70 72 69 74 65 41 72 |%... |SpriteAr|
|00002220| 65 61 25 21 30 3d 46 69 | 6c 65 4c 65 6e 67 74 68 |ea%!0=Fi|leLength|
|00002230| 25 0d 09 e2 16 20 20 20 | 53 70 72 69 74 65 41 72 |%.... |SpriteAr|
|00002240| 65 61 25 21 34 3d 30 0d | 09 ec 17 20 20 20 53 70 |ea%!4=0.|... Sp|
|00002250| 72 69 74 65 41 72 65 61 | 25 21 38 3d 31 36 0d 09 |riteArea|%!8=16..|
|00002260| f6 18 20 20 20 53 70 72 | 69 74 65 41 72 65 61 25 |.. Spr|iteArea%|
|00002270| 21 31 32 3d 31 36 0d 0a | 00 42 20 20 20 c8 99 20 |!12=16..|.B .. |
|00002280| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|00002290| 30 41 2c 53 70 72 69 74 | 65 41 72 65 61 25 2c 22 |0A,Sprit|eArea%,"|
|000022a0| 3c 52 65 73 6f 75 72 63 | 65 73 24 44 69 72 3e 2e |<Resourc|es$Dir>.|
|000022b0| 53 70 72 69 74 65 73 22 | 0d 0a 0a 05 e1 0d 0a 14 |Sprites"|........|
|000022c0| 05 3a 0d 0a 1e 46 f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.:...F. |********|
|000022d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000022f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002300| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 28 46 f4 20 4f 70 |********|..(F. Op|
|00002310| 65 6e 73 20 75 70 20 74 | 68 65 20 74 65 6d 70 6c |ens up t|he templ|
|00002320| 61 74 65 20 66 69 6c 65 | 2c 20 46 6f 6e 64 6c 65 |ate file|, Fondle|
|00002330| 73 20 69 74 2c 20 61 6e | 64 20 74 68 65 6e 20 63 |s it, an|d then c|
|00002340| 72 65 61 74 65 73 20 57 | 69 6e 64 6f 77 73 0d 0a |reates W|indows..|
|00002350| 32 2a f4 20 46 72 6f 6d | 20 3c 52 65 73 6f 75 72 |2*. From| <Resour|
|00002360| 63 65 73 24 44 69 72 3e | 20 64 65 66 69 6e 65 64 |ces$Dir>| defined|
|00002370| 20 69 6e 20 21 52 75 6e | 0d 0a 3c 10 f4 20 55 73 | in !Run|..<.. Us|
|00002380| 65 73 3a 20 4e 4f 4e 45 | 0d 0a 46 46 f4 20 2a 2a |es: NONE|..FF. **|
|00002390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0a |********|******..|
|000023d0| 50 1c dd 20 f2 5f 49 6e | 69 74 69 61 6c 69 73 65 |P.. ._In|itialise|
|000023e0| 5f 54 65 6d 70 6c 61 74 | 65 73 0d 0a 5a 12 20 20 |_Templat|es..Z. |
|000023f0| 20 de 20 51 25 20 31 30 | 32 34 2a 34 0d 0a 64 2e | . Q% 10|24*4..d.|
|00002400| 20 20 20 6d 61 78 77 73 | 25 3d 26 39 30 30 20 3a | maxws|%=&900 :|
|00002410| 20 de 20 77 73 25 20 6d | 61 78 77 73 25 20 3a 20 | . ws% m|axws% : |
|00002420| 63 75 72 77 73 25 3d 77 | 73 25 0d 0a 6e 39 20 20 |curws%=w|s%..n9 |
|00002430| 20 c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 54 65 6d | .."Wimp|_OpenTem|
|00002440| 70 6c 61 74 65 22 2c 2c | 22 3c 52 65 73 6f 75 72 |plate",,|"<Resour|
|00002450| 63 65 73 24 44 69 72 3e | 2e 54 65 6d 70 6c 61 74 |ces$Dir>|.Templat|
|00002460| 65 73 22 0d 0a 78 46 20 | 20 20 c8 99 22 57 69 6d |es"..xF | .."Wim|
|00002470| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|00002480| 2c 51 25 2c 77 73 25 2c | 77 73 25 2b 6d 61 78 77 |,Q%,ws%,|ws%+maxw|
|00002490| 73 25 2c 2d 31 2c 22 69 | 6e 66 6f 22 2c 30 20 b8 |s%,-1,"i|nfo",0 .|
|000024a0| 20 2c 2c 63 75 72 77 73 | 25 0d 0a 82 28 20 20 20 | ,,curws|%...( |
|000024b0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |.."Wimp_|CreateWi|
|000024c0| 6e 64 6f 77 22 2c 2c 51 | 25 20 b8 20 49 6e 66 6f |ndow",,Q|% . Info|
|000024d0| 25 0d 0a 8c 49 20 20 20 | c8 99 22 57 69 6d 70 5f |%...I |.."Wimp_|
|000024e0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 51 |LoadTemp|late",,Q|
|000024f0| 25 2c 63 75 72 77 73 25 | 2c 77 73 25 2b 6d 61 78 |%,curws%|,ws%+max|
|00002500| 77 73 25 2c 2d 31 2c 22 | 4d 61 69 6e 22 2c 30 20 |ws%,-1,"|Main",0 |
|00002510| b8 20 2c 2c 63 75 72 77 | 73 25 0d 0a 96 18 20 20 |. ,,curw|s%.... |
|00002520| 20 51 25 21 36 34 3d 53 | 70 72 69 74 65 41 72 65 | Q%!64=S|priteAre|
|00002530| 61 25 0d 0a a0 28 20 20 | 20 c8 99 22 57 69 6d 70 |a%...( | .."Wimp|
|00002540| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00002550| 51 25 20 b8 20 4d 61 69 | 6e 25 0d 0a aa 1d 20 20 |Q% . Mai|n%.... |
|00002560| 20 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 | .."Wimp|_CloseTe|
|00002570| 6d 70 6c 61 74 65 22 0d | 0a b4 05 e1 0d 0a be 05 |mplate".|........|
|00002580| 3a 0d 0a c8 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |:...I. *|********|
|00002590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000025c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a d2 49 f4 20 |********|**...I. |
|000025d0| 54 68 69 73 20 77 72 69 | 74 65 73 20 6f 76 65 72 |This wri|tes over|
|000025e0| 20 74 68 65 20 74 65 78 | 74 20 69 6e 20 74 68 65 | the tex|t in the|
|000025f0| 20 49 63 6f 6e 2c 20 61 | 6e 64 20 69 74 20 73 68 | Icon, a|nd it sh|
|00002600| 6f 75 6c 64 20 6e 6f 74 | 20 62 65 20 64 6f 6e 65 |ould not| be done|
|00002610| 21 21 21 0d 0a dc 2e f4 | 20 4f 6e 6c 79 20 57 6f |!!!.....| Only Wo|
|00002620| 72 6b 73 20 57 69 74 68 | 20 49 6e 64 69 72 65 63 |rks With| Indirec|
|00002630| 74 65 64 20 54 65 78 74 | 20 53 74 72 69 6e 67 73 |ted Text| Strings|
|00002640| 21 0d 0a e6 10 f4 20 55 | 73 65 73 3a 20 4e 4f 4e |!..... U|ses: NON|
|00002650| 45 0d 0a f0 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |E...I. *|********|
|00002660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a fa 3f dd 20 |********|**...?. |
|000026a0| f2 5f 53 65 74 49 63 6f | 6e 54 65 78 74 28 49 63 |._SetIco|nText(Ic|
|000026b0| 6f 6e 48 61 6e 64 6c 65 | 25 2c 57 69 6e 64 6f 77 |onHandle|%,Window|
|000026c0| 48 61 6e 64 6c 65 25 2c | 54 65 78 74 24 2c 4d 61 |Handle%,|Text$,Ma|
|000026d0| 78 4c 65 6e 67 74 68 25 | 29 0d 0b 04 11 20 20 20 |xLength%|).... |
|000026e0| ea 20 50 6f 69 6e 74 65 | 72 25 0d 0b 0e 1d 20 20 |. Pointe|r%.... |
|000026f0| 20 42 6c 6f 63 6b 25 21 | 30 3d 57 69 6e 64 6f 77 | Block%!|0=Window|
|00002700| 48 61 6e 64 6c 65 25 0d | 0b 18 1b 20 20 20 42 6c |Handle%.|... Bl|
|00002710| 6f 63 6b 25 21 34 3d 49 | 63 6f 6e 48 61 6e 64 6c |ock%!4=I|conHandl|
|00002720| 65 25 0d 0b 22 25 20 20 | 20 c8 99 20 22 57 69 6d |e%.."% | .. "Wim|
|00002730| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00002740| 2c 42 6c 6f 63 6b 25 0d | 0b 2c 22 20 20 20 e7 20 |,Block%.|.," . |
|00002750| 28 42 6c 6f 63 6b 25 21 | 32 34 20 80 20 28 31 3c |(Block%!|24 . (1<|
|00002760| 3c 38 29 29 3c 3e 30 20 | 8c 0d 0b 36 1c 20 20 20 |<8))<>0 |...6. |
|00002770| 20 20 20 50 6f 69 6e 74 | 65 72 25 3d 42 6c 6f 63 | Point|er%=Bloc|
|00002780| 6b 25 21 32 38 0d 0b 40 | 08 20 20 20 cc 0d 0b 4a |k%!28..@|. ...J|
|00002790| 1c 20 20 20 20 20 20 50 | 6f 69 6e 74 65 72 25 3d |. P|ointer%=|
|000027a0| 42 6c 6f 63 6b 25 2b 32 | 38 0d 0b 54 08 20 20 20 |Block%+2|8..T. |
|000027b0| cd 0d 0b 5e 1c 20 20 20 | e7 20 a9 54 65 78 74 24 |...^. |. .Text$|
|000027c0| 3e 4d 61 78 4c 65 6e 67 | 74 68 25 20 8c 0d 0b 68 |>MaxLeng|th% ...h|
|000027d0| 58 20 20 20 20 20 20 45 | 72 72 6f 72 24 20 3d 20 |X E|rror$ = |
|000027e0| 22 49 6c 6c 65 67 61 6c | 20 61 74 74 65 6d 70 74 |"Illegal| attempt|
|000027f0| 20 74 6f 20 65 78 74 65 | 6e 64 20 49 63 6f 6e 20 | to exte|nd Icon |
|00002800| 74 65 78 74 20 73 74 72 | 69 6e 67 21 20 28 48 61 |text str|ing! (Ha|
|00002810| 6e 64 6c 65 20 22 2b c3 | 28 49 63 6f 6e 48 61 6e |ndle "+.|(IconHan|
|00002820| 64 6c 65 25 29 0d 0b 72 | 4d 20 20 20 20 20 20 45 |dle%)..r|M E|
|00002830| 72 72 6f 72 24 20 3d 20 | 45 72 72 6f 72 24 2b 22 |rror$ = |Error$+"|
|00002840| 20 22 20 2b 20 c3 28 a9 | 28 54 65 78 74 24 29 29 | " + .(.|(Text$))|
|00002850| 20 2b 20 22 2f 22 20 2b | 20 c3 28 4d 61 78 4c 65 | + "/" +| .(MaxLe|
|00002860| 6e 67 74 68 25 29 20 2b | 20 22 2e 29 22 20 2b 20 |ngth%) +| ".)" + |
|00002870| bd 30 0d 0b 7c 17 20 20 | 20 20 20 20 85 20 32 30 |.0..|. | . 20|
|00002880| 30 31 2c 45 72 72 6f 72 | 24 0d 0b 86 08 20 20 20 |01,Error|$.... |
|00002890| cc 0d 0b 90 19 20 20 20 | 20 20 20 24 50 6f 69 6e |..... | $Poin|
|000028a0| 74 65 72 25 3d 54 65 78 | 74 24 0d 0b 9a 08 20 20 |ter%=Tex|t$.... |
|000028b0| 20 cd 0d 0b a4 05 e1 0d | 0b ae 05 3a 0d 0b b8 2c | .......|...:...,|
|000028c0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000028d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0b c2 2c f4 20 54 68 |********|...,. Th|
|000028f0| 65 20 6e 61 6d 65 20 73 | 6f 72 74 20 6f 66 20 73 |e name s|ort of s|
|00002900| 61 79 73 20 69 74 20 61 | 6c 6c 20 72 65 61 6c 6c |ays it a|ll reall|
|00002910| 79 21 21 21 0d 0b cc 10 | f4 20 55 73 65 73 3a 20 |y!!!....|. Uses: |
|00002920| 4e 4f 4e 45 0d 0b d6 2c | f4 20 2a 2a 2a 2a 2a 2a |NONE...,|. ******|
|00002930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002950| 0d 0b e0 18 dd 20 f2 5f | 53 65 74 55 70 49 63 6f |..... ._|SetUpIco|
|00002960| 6e 42 61 72 4d 65 6e 75 | 0d 0b ea 0b 20 20 20 ea |nBarMenu|.... .|
|00002970| 20 6d 25 0d 0b f4 35 20 | 20 20 4d 61 69 6e 57 69 | m%...5 | MainWi|
|00002980| 6e 64 6f 77 4d 65 6e 75 | 41 63 74 69 76 65 25 3d |ndowMenu|Active%=|
|00002990| a3 20 3a 20 49 63 6f 6e | 42 61 72 4d 65 6e 75 41 |. : Icon|BarMenuA|
|000029a0| 63 74 69 76 65 25 3d b9 | 0d 0b fe 16 20 20 20 de |ctive%=.|.... .|
|000029b0| 20 6d 65 6e 75 25 20 32 | 38 2b 32 2a 32 34 0d 0c | menu% 2|8+2*24..|
|000029c0| 08 1b 20 20 20 24 6d 65 | 6e 75 25 3d 22 4d 79 54 |.. $me|nu%="MyT|
|000029d0| 61 73 6b 4e 61 6d 65 24 | 22 0d 0c 12 11 20 20 20 |askName$|".... |
|000029e0| 6d 65 6e 75 25 3f 31 32 | 3d 37 0d 0c 1c 11 20 20 |menu%?12|=7.... |
|000029f0| 20 6d 65 6e 75 25 3f 31 | 33 3d 32 0d 0c 26 11 20 | menu%?1|3=2..&. |
|00002a00| 20 20 6d 65 6e 75 25 3f | 31 34 3d 37 0d 0c 30 11 | menu%?|14=7..0.|
|00002a10| 20 20 20 6d 65 6e 75 25 | 3f 31 35 3d 30 0d 0c 3a | menu%|?15=0..:|
|00002a20| 13 20 20 20 6d 65 6e 75 | 25 21 31 36 3d 31 36 30 |. menu|%!16=160|
|00002a30| 0d 0c 44 12 20 20 20 6d | 65 6e 75 25 21 32 30 3d |..D. m|enu%!20=|
|00002a40| 34 30 0d 0c 4e 11 20 20 | 20 6d 65 6e 75 25 21 32 |40..N. | menu%!2|
|00002a50| 34 3d 30 0d 0c 58 12 20 | 20 20 6d 25 3d 6d 65 6e |4=0..X. | m%=men|
|00002a60| 75 25 2b 32 38 0d 0c 62 | 0e 20 20 20 6d 25 21 30 |u%+28..b|. m%!0|
|00002a70| 3d 26 30 0d 0c 6c 30 20 | 20 20 6d 25 21 34 3d 49 |=&0..l0 | m%!4=I|
|00002a80| 6e 66 6f 25 20 20 20 20 | 3a f4 20 6e 61 6d 65 20 |nfo% |:. name |
|00002a90| 66 72 6f 6d 20 74 65 6d | 70 6c 61 74 65 20 6f 70 |from tem|plate op|
|00002aa0| 65 6e 2e 0d 0c 76 1c 20 | 20 20 6d 25 21 38 3d 28 |en...v. | m%!8=(|
|00002ab0| 37 3c 3c 32 34 29 20 84 | 20 25 31 30 30 30 31 0d |7<<24) .| %10001.|
|00002ac0| 0c 80 16 20 20 20 24 28 | 6d 25 2b 31 32 29 3d 22 |... $(|m%+12)="|
|00002ad0| 49 6e 66 6f 22 0d 0c 8a | 0f 20 20 20 6d 25 3d 6d |Info"...|. m%=m|
|00002ae0| 25 2b 32 34 0d 0c 94 0e | 20 20 20 6d 25 21 30 3d |%+24....| m%!0=|
|00002af0| 26 30 0d 0c 9e 0f 20 20 | 20 6d 25 21 30 3d 26 38 |&0.... | m%!0=&8|
|00002b00| 30 0d 0c a8 0d 20 20 20 | 6d 25 21 34 3d 30 0d 0c |0.... |m%!4=0..|
|00002b10| b2 1b 20 20 20 6d 25 21 | 38 3d 28 37 3c 3c 32 34 |.. m%!|8=(7<<24|
|00002b20| 29 84 20 25 31 30 30 30 | 31 0d 0c bc 16 20 20 20 |). %1000|1.... |
|00002b30| 24 28 6d 25 2b 31 32 29 | 3d 22 51 75 69 74 22 0d |$(m%+12)|="Quit".|
|00002b40| 0c c6 31 20 20 20 c8 99 | 22 57 69 6d 70 5f 43 72 |..1 ..|"Wimp_Cr|
|00002b50| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |eateMenu|",,menu%|
|00002b60| 2c 42 6c 6f 63 6b 25 21 | 30 2d 39 36 2c 31 37 36 |,Block%!|0-96,176|
|00002b70| 0d 0c d0 05 e1 0d 0c da | 05 3a 0d 0c e4 33 f4 20 |........|.:...3. |
|00002b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0c ee |********|*****...|
|00002bb0| 2e f4 20 52 65 61 64 20 | 49 6e 66 6f 20 66 6f 72 |.. Read |Info for|
|00002bc0| 20 57 69 6e 64 6f 77 2c | 20 61 6e 64 20 74 68 65 | Window,| and the|
|00002bd0| 6e 20 6f 70 65 6e 20 69 | 74 20 21 0d 0c f8 21 f4 |n open i|t !...!.|
|00002be0| 20 55 73 65 73 3a 20 50 | 52 4f 43 5f 53 65 74 43 | Uses: P|ROC_SetC|
|00002bf0| 61 72 65 74 50 6f 73 69 | 74 69 6f 6e 0d 0d 02 33 |aretPosi|tion...3|
|00002c00| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00002c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002c30| 0d 0c 1b dd 20 f2 5f 4f | 70 65 6e 57 69 6e 64 6f |.... ._O|penWindo|
|00002c40| 77 28 48 61 6e 64 6c 65 | 25 29 0d 0d 16 16 20 20 |w(Handle|%).... |
|00002c50| 20 21 42 6c 6f 63 6b 25 | 3d 48 61 6e 64 6c 65 25 | !Block%|=Handle%|
|00002c60| 0d 0d 20 27 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |.. ' .|. "Wimp_|
|00002c70| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00002c80| 2c 42 6c 6f 63 6b 25 0d | 0d 2a 13 20 20 20 42 6c |,Block%.|.*. Bl|
|00002c90| 6f 63 6b 25 21 32 34 3d | 2d 31 0d 0d 34 23 20 20 |ock%!24=|-1..4# |
|00002ca0| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00002cb0| 6e 64 6f 77 22 2c 2c 42 | 6c 6f 63 6b 25 0d 0d 3e |ndow",,B|lock%..>|
|00002cc0| 24 20 20 20 f2 5f 53 65 | 74 43 61 72 65 74 50 6f |$ ._Se|tCaretPo|
|00002cd0| 73 69 74 69 6f 6e 28 4d | 61 69 6e 25 2c 33 2c 33 |sition(M|ain%,3,3|
|00002ce0| 29 0d 0d 48 05 e1 0d 0d | 52 05 3a 0d 0d 5c 24 f4 |)..H....|R.:..\$.|
|00002cf0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00002d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002d10| 0d 66 24 f4 20 53 65 74 | 20 77 68 69 63 68 20 69 |.f$. Set| which i|
|00002d20| 63 6f 6e 20 74 68 65 20 | 63 61 72 65 74 20 69 73 |con the |caret is|
|00002d30| 20 69 6e 0d 0d 70 1b f4 | 20 55 73 65 73 3a 20 46 | in..p..| Uses: F|
|00002d40| 4e 5f 52 65 61 64 49 63 | 6f 6e 54 65 78 74 0d 0d |N_ReadIc|onText..|
|00002d50| 7a 24 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |z$. ****|********|
|00002d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d70| 2a 2a 0d 0d 84 2e dd 20 | f2 5f 53 65 74 43 61 72 |**..... |._SetCar|
|00002d80| 65 74 50 6f 73 69 74 69 | 6f 6e 28 57 69 6e 64 6f |etPositi|on(Windo|
|00002d90| 77 25 2c 49 63 6f 6e 25 | 2c 49 6e 64 65 78 25 29 |w%,Icon%|,Index%)|
|00002da0| 0d 0d 8e 11 ea 20 49 63 | 6f 6e 4c 65 6e 67 74 68 |..... Ic|onLength|
|00002db0| 25 0d 0d 98 33 20 20 20 | 49 63 6f 6e 4c 65 6e 67 |%...3 |IconLeng|
|00002dc0| 74 68 25 3d a9 28 a4 5f | 52 65 61 64 49 63 6f 6e |th%=.(._|ReadIcon|
|00002dd0| 54 65 78 74 28 57 69 6e | 64 6f 77 25 2c 49 63 6f |Text(Win|dow%,Ico|
|00002de0| 6e 25 29 29 0d 0d a2 30 | 20 20 20 e7 20 49 6e 64 |n%))...0| . Ind|
|00002df0| 65 78 25 3e 49 63 6f 6e | 4c 65 6e 67 74 68 25 20 |ex%>Icon|Length% |
|00002e00| 8c 20 49 6e 64 65 78 25 | 3d 49 63 6f 6e 4c 65 6e |. Index%|=IconLen|
|00002e10| 67 74 68 25 0d 0d ac 3b | 20 20 20 c8 99 20 22 57 |gth%...;| .. "W|
|00002e20| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00002e30| 74 69 6f 6e 22 2c 57 69 | 6e 64 6f 77 25 2c 49 63 |tion",Wi|ndow%,Ic|
|00002e40| 6f 6e 25 2c 2c 2c 2d 31 | 2c 49 6e 64 65 78 25 0d |on%,,,-1|,Index%.|
|00002e50| 0d b6 05 e1 0d 0d c0 05 | 3a 0d 0d ca 4c f4 20 2a |........|:...L. *|
|00002e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ea0| 2a 2a 2a 2a 2a 0d 0d d4 | 4c f4 20 54 68 69 73 20 |*****...|L. This |
|00002eb0| 72 65 61 64 73 20 74 68 | 65 20 74 65 78 74 20 66 |reads th|e text f|
|00002ec0| 72 6f 6d 20 74 68 65 20 | 77 72 69 74 61 62 6c 65 |rom the |writable|
|00002ed0| 20 49 63 6f 6e 20 73 70 | 65 63 69 66 69 65 64 20 | Icon sp|ecified |
|00002ee0| 69 6e 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |in the p|arameter|
|00002ef0| 73 0d 0d de 10 f4 20 55 | 73 65 73 3a 20 4e 4f 4e |s..... U|ses: NON|
|00002f00| 45 0d 0d e8 4c f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |E...L. *|********|
|00002f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d f2 |********|*****...|
|00002f50| 2f dd 20 a4 5f 52 65 61 | 64 49 63 6f 6e 54 65 78 |/. ._Rea|dIconTex|
|00002f60| 74 28 57 69 6e 64 6f 77 | 48 61 6e 64 6c 65 25 2c |t(Window|Handle%,|
|00002f70| 49 63 6f 6e 48 61 6e 64 | 6c 65 25 29 0d 0d fc 10 |IconHand|le%)....|
|00002f80| 20 20 20 ea 20 52 65 73 | 75 6c 74 24 0d 0e 06 1d | . Res|ult$....|
|00002f90| 20 20 20 42 6c 6f 63 6b | 25 21 30 3d 57 69 6e 64 | Block|%!0=Wind|
|00002fa0| 6f 77 48 61 6e 64 6c 65 | 25 0d 0e 10 1b 20 20 20 |owHandle|%.... |
|00002fb0| 42 6c 6f 63 6b 25 21 34 | 3d 49 63 6f 6e 48 61 6e |Block%!4|=IconHan|
|00002fc0| 64 6c 65 25 0d 0e 1a 25 | 20 20 20 c8 99 20 22 57 |dle%...%| .. "W|
|00002fd0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002fe0| 22 2c 2c 42 6c 6f 63 6b | 25 0d 0e 24 22 20 20 20 |",,Block|%..$" |
|00002ff0| e7 20 28 42 6c 6f 63 6b | 25 21 32 34 20 80 20 28 |. (Block|%!24 . (|
|00003000| 31 3c 3c 38 29 29 3c 3e | 30 20 8c 0d 0e 2e 1e 20 |1<<8))<>|0 ..... |
|00003010| 20 20 20 20 20 52 65 73 | 75 6c 74 24 3d 24 28 42 | Res|ult$=$(B|
|00003020| 6c 6f 63 6b 25 21 32 38 | 29 0d 0e 38 08 20 20 20 |lock%!28|)..8. |
|00003030| cc 0d 0e 42 1e 20 20 20 | 20 20 20 52 65 73 75 6c |...B. | Resul|
|00003040| 74 24 3d 24 28 42 6c 6f | 63 6b 25 2b 32 38 29 0d |t$=$(Blo|ck%+28).|
|00003050| 0e 4c 08 20 20 20 cd 0d | 0e 56 0c 3d 52 65 73 75 |.L. ..|.V.=Resu|
|00003060| 6c 74 24 0d 0e 60 05 3a | 0d 0e 6a 2c f4 20 2a 2a |lt$..`.:|..j,. **|
|00003070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003090| 2a 2a 2a 2a 0d 0e 74 2c | f4 20 54 68 65 20 6e 61 |****..t,|. The na|
|000030a0| 6d 65 20 73 6f 72 74 20 | 6f 66 20 73 61 79 73 20 |me sort |of says |
|000030b0| 69 74 20 61 6c 6c 20 72 | 65 61 6c 6c 79 21 21 21 |it all r|eally!!!|
|000030c0| 0d 0e 7e 10 f4 20 55 73 | 65 73 3a 20 4e 4f 4e 45 |..~.. Us|es: NONE|
|000030d0| 0d 0e 88 2c f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...,. **|********|
|000030e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000030f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0e 92 23 |********|****...#|
|00003100| dd 20 f2 5f 43 72 65 61 | 74 65 4d 61 69 6e 57 69 |. ._Crea|teMainWi|
|00003110| 6e 64 6f 77 4d 65 6e 75 | 28 58 25 2c 59 25 29 0d |ndowMenu|(X%,Y%).|
|00003120| 0e 9c 0b 20 20 20 ea 20 | 6d 25 0d 0e a6 35 20 20 |... . |m%...5 |
|00003130| 20 4d 61 69 6e 57 69 6e | 64 6f 77 4d 65 6e 75 41 | MainWin|dowMenuA|
|00003140| 63 74 69 76 65 25 3d b9 | 20 3a 20 49 63 6f 6e 42 |ctive%=.| : IconB|
|00003150| 61 72 4d 65 6e 75 41 63 | 74 69 76 65 25 3d a3 0d |arMenuAc|tive%=..|
|00003160| 0e b0 1a 20 20 20 de 20 | 4d 61 69 6e 4d 65 6e 75 |... . |MainMenu|
|00003170| 25 20 32 39 2b 37 2a 32 | 34 0d 0e ba 18 20 20 20 |% 29+7*2|4.... |
|00003180| 24 4d 61 69 6e 4d 65 6e | 75 25 3d 22 4d 61 69 6e |$MainMen|u%="Main|
|00003190| 22 0d 0e c4 15 20 20 20 | 4d 61 69 6e 4d 65 6e 75 |".... |MainMenu|
|000031a0| 25 3f 31 32 3d 37 0d 0e | ce 15 20 20 20 4d 61 69 |%?12=7..|.. Mai|
|000031b0| 6e 4d 65 6e 75 25 3f 31 | 33 3d 32 0d 0e d8 15 20 |nMenu%?1|3=2.... |
|000031c0| 20 20 4d 61 69 6e 4d 65 | 6e 75 25 3f 31 34 3d 37 | MainMe|nu%?14=7|
|000031d0| 0d 0e e2 15 20 20 20 4d | 61 69 6e 4d 65 6e 75 25 |.... M|ainMenu%|
|000031e0| 3f 31 35 3d 30 0d 0e ec | 33 20 20 20 4d 61 69 6e |?15=0...|3 Main|
|000031f0| 4d 65 6e 75 25 21 31 36 | 3d 37 2a 31 36 20 3a f4 |Menu%!16|=7*16 :.|
|00003200| 20 57 69 64 74 68 65 20 | 69 6e 20 63 68 61 72 61 | Widthe |in chara|
|00003210| 63 74 65 72 73 2a 31 36 | 0d 0e f6 16 20 20 20 4d |cters*16|.... M|
|00003220| 61 69 6e 4d 65 6e 75 25 | 21 32 30 3d 34 30 0d 0f |ainMenu%|!20=40..|
|00003230| 00 15 20 20 20 4d 61 69 | 6e 4d 65 6e 75 25 21 32 |.. Mai|nMenu%!2|
|00003240| 34 3d 30 0d 0f 0a 16 20 | 20 20 6d 25 3d 4d 61 69 |4=0.... | m%=Mai|
|00003250| 6e 4d 65 6e 75 25 2b 32 | 38 0d 0f 14 08 20 20 20 |nMenu%+2|8.... |
|00003260| f5 0d 0f 1e 30 20 20 20 | 20 20 20 f3 20 46 6c 61 |....0 | . Fla|
|00003270| 67 73 25 2c 50 6f 69 6e | 74 65 72 25 2c 53 65 6c |gs%,Poin|ter%,Sel|
|00003280| 25 2c 49 63 6f 6e 46 6c | 61 67 25 2c 49 74 65 6d |%,IconFl|ag%,Item|
|00003290| 24 0d 0f 28 43 20 20 20 | 20 20 20 6d 25 21 30 3d |$..(C | m%!0=|
|000032a0| 46 6c 61 67 73 25 20 20 | 20 20 20 20 20 20 20 20 |Flags% | |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000032c0| 20 20 20 20 20 20 20 3a | f4 20 4d 65 6e 75 20 46 | :|. Menu F|
|000032d0| 6c 61 67 73 0d 0f 32 59 | 20 20 20 20 20 20 6d 25 |lags..2Y| m%|
|000032e0| 21 34 3d 50 6f 69 6e 74 | 65 72 25 20 20 20 20 20 |!4=Point|er% |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003300| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 50 6f 69 | | :. Poi|
|00003310| 6e 74 65 72 20 74 6f 20 | 53 75 62 2d 4d 65 6e 75 |nter to |Sub-Menu|
|00003320| 20 28 2d 31 20 49 66 20 | 4e 6f 6e 65 29 0d 0f 3c | (-1 If |None)..<|
|00003330| 46 20 20 20 20 20 20 6d | 25 21 38 3d 49 63 6f 6e |F m|%!8=Icon|
|00003340| 46 6c 61 67 25 20 84 20 | 28 53 65 6c 25 3c 3c 32 |Flag% . |(Sel%<<2|
|00003350| 32 29 20 84 20 28 37 3c | 3c 32 34 29 20 20 20 20 |2) . (7<|<24) |
|00003360| 20 3a f4 20 4d 65 6e 75 | 20 49 63 6f 6e 20 46 6c | :. Menu| Icon Fl|
|00003370| 61 67 73 0d 0f 46 52 20 | 20 20 20 20 20 24 28 6d |ags..FR | $(m|
|00003380| 25 2b 31 32 29 3d 49 74 | 65 6d 24 20 20 20 20 20 |%+12)=It|em$ |
|00003390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033a0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 49 74 65 6d | | :. Item|
|000033b0| 20 4e 61 6d 65 20 28 31 | 32 20 42 79 74 65 73 20 | Name (1|2 Bytes |
|000033c0| 4d 61 78 2e 29 0d 0f 50 | 12 20 20 20 20 20 20 6d |Max.)..P|. m|
|000033d0| 25 3d 6d 25 2b 32 34 0d | 0f 5a 13 20 20 20 fd 20 |%=m%+24.|.Z. . |
|000033e0| 46 6c 61 67 73 25 3d 26 | 38 30 0d 0f 64 08 20 20 |Flags%=&|80..d. |
|000033f0| 20 3a 0d 0f 6e 0b 20 20 | 20 f7 20 2b 30 0d 0f 78 | :..n. | . +0..x|
|00003400| 22 20 20 20 dc 20 26 30 | 30 2c 49 6e 66 6f 25 2c |" . &0|0,Info%,|
|00003410| 30 2c 25 31 30 30 30 31 | 2c 22 49 6e 66 6f 22 0d |0,%10001|,"Info".|
|00003420| 0f 82 2d 20 20 20 dc 20 | 26 30 30 2c 46 6f 6e 74 |..- . |&00,Font|
|00003430| 4d 65 6e 75 48 61 6e 64 | 6c 65 25 2c 30 2c 25 31 |MenuHand|le%,0,%1|
|00003440| 30 30 30 31 2c 22 46 6f | 6e 74 73 22 0d 0f 8c 1f |0001,"Fo|nts"....|
|00003450| 20 20 20 dc 20 26 38 30 | 2c 2d 31 2c 30 2c 25 31 | . &80|,-1,0,%1|
|00003460| 30 30 30 31 2c 22 53 61 | 76 65 22 0d 0f 96 08 20 |0001,"Sa|ve".... |
|00003470| 20 20 3a 0d 0f a0 2f 20 | 20 20 c8 99 20 22 57 69 | :.../ | .. "Wi|
|00003480| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00003490| 4d 61 69 6e 4d 65 6e 75 | 25 2c 58 25 2d 39 36 2c |MainMenu|%,X%-96,|
|000034a0| 59 25 0d 0f aa 05 e1 0d | 0f b4 05 3a 0d 0f be 40 |Y%......|...:...@|
|000034b0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000034c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0f c8 40 |********|****...@|
|000034f0| f4 20 54 68 69 73 20 42 | 69 74 20 44 6f 65 73 20 |. This B|it Does |
|00003500| 54 68 65 20 41 63 74 75 | 61 6c 20 53 61 76 69 6e |The Actu|al Savin|
|00003510| 67 20 4f 66 20 54 68 65 | 20 44 61 74 61 20 57 68 |g Of The| Data Wh|
|00003520| 65 6e 20 52 65 71 75 65 | 73 74 65 64 0d 0f d2 3a |en Reque|sted...:|
|00003530| f4 20 55 73 65 73 3a 20 | 46 4e 5f 52 65 61 64 49 |. Uses: |FN_ReadI|
|00003540| 63 6f 6e 54 65 78 74 20 | 50 52 4f 43 5f 52 65 61 |conText |PROC_Rea|
|00003550| 64 46 6c 61 67 73 20 50 | 52 4f 43 5f 4d 61 6b 65 |dFlags P|ROC_Make|
|00003560| 42 69 74 6d 61 70 0d 0f | dc 40 f4 20 2a 2a 2a 2a |Bitmap..|.@. ****|
|00003570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035a0| 2a 2a 2a 2a 2a 2a 0d 0f | e6 0e dd 20 f2 5f 53 61 |******..|... ._Sa|
|000035b0| 76 65 54 6f 0d 0f f0 30 | ea 20 46 6f 6e 74 4e 61 |veTo...0|. FontNa|
|000035c0| 6d 65 24 2c 20 50 6f 69 | 6e 74 53 69 7a 65 2c 20 |me$, Poi|ntSize, |
|000035d0| 44 50 49 5f 58 2c 20 44 | 50 49 5f 59 2c 20 46 6c |DPI_X, D|PI_Y, Fl|
|000035e0| 61 67 73 25 0d 0f fa 1e | 20 20 20 c8 99 20 22 57 |ags%....| .. "W|
|000035f0| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00003600| 2d 31 0d 10 04 2f 20 20 | 20 50 6f 69 6e 74 53 69 |-1.../ | PointSi|
|00003610| 7a 65 3d bb 28 a4 5f 52 | 65 61 64 49 63 6f 6e 54 |ze=.(._R|eadIconT|
|00003620| 65 78 74 28 4d 61 69 6e | 25 2c 31 39 29 29 2a 31 |ext(Main|%,19))*1|
|00003630| 36 0d 10 0e 28 20 20 20 | 44 50 49 5f 58 3d bb 28 |6...( |DPI_X=.(|
|00003640| a4 5f 52 65 61 64 49 63 | 6f 6e 54 65 78 74 28 4d |._ReadIc|onText(M|
|00003650| 61 69 6e 25 2c 31 35 29 | 29 0d 10 18 28 20 20 20 |ain%,15)|)...( |
|00003660| 44 50 49 5f 59 3d bb 28 | a4 5f 52 65 61 64 49 63 |DPI_Y=.(|._ReadIc|
|00003670| 6f 6e 54 65 78 74 28 4d | 61 69 6e 25 2c 31 37 29 |onText(M|ain%,17)|
|00003680| 29 0d 10 22 29 20 20 20 | 46 6f 6e 74 4e 61 6d 65 |)..") |FontName|
|00003690| 24 3d a4 5f 52 65 61 64 | 49 63 6f 6e 54 65 78 74 |$=._Read|IconText|
|000036a0| 28 4d 61 69 6e 25 2c 31 | 33 29 0d 10 2c 12 20 20 |(Main%,1|3)..,. |
|000036b0| 20 f2 5f 52 65 61 64 46 | 6c 61 67 73 0d 10 36 3f | ._ReadF|lags..6?|
|000036c0| 20 20 20 f2 5f 4d 61 6b | 65 42 69 74 6d 61 70 28 | ._Mak|eBitmap(|
|000036d0| 46 6f 6e 74 4e 61 6d 65 | 24 2c 20 50 6f 69 6e 74 |FontName|$, Point|
|000036e0| 53 69 7a 65 2c 20 44 50 | 49 5f 58 2c 20 44 50 49 |Size, DP|I_X, DPI|
|000036f0| 5f 59 2c 20 46 6c 61 67 | 73 25 29 0d 10 40 05 e1 |_Y, Flag|s%)..@..|
|00003700| 0d 10 4a 05 3a 0d 10 54 | 54 2a 2a 2a 2a 2a 2a 2a |..J.:..T|T*******|
|00003710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 10 5e 52 f4 20 43 |********|*..^R. C|
|00003760| 68 65 63 6b 73 20 49 66 | 20 53 75 62 70 69 78 65 |hecks If| Subpixe|
|00003770| 6c 20 50 6f 73 69 74 69 | 6f 6e 69 6e 67 20 46 6c |l Positi|oning Fl|
|00003780| 61 67 73 20 48 61 76 65 | 20 42 65 65 6e 20 53 65 |ags Have| Been Se|
|00003790| 74 2c 20 48 6f 72 69 7a | 6f 6e 74 61 6c 20 41 6e |t, Horiz|ontal An|
|000037a0| 64 20 56 65 72 74 69 63 | 61 6c 2e 0d 10 68 10 f4 |d Vertic|al...h..|
|000037b0| 20 55 73 65 73 3a 20 4e | 4f 4e 45 0d 10 72 54 2a | Uses: N|ONE..rT*|
|000037c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00003810| 10 7c 11 dd 20 f2 5f 52 | 65 61 64 46 6c 61 67 73 |.|.. ._R|eadFlags|
|00003820| 0d 10 86 60 20 20 20 c8 | 99 22 57 69 6d 70 5f 57 |...` .|."Wimp_W|
|00003830| 68 69 63 68 49 63 6f 6e | 22 2c 4d 61 69 6e 25 2c |hichIcon|",Main%,|
|00003840| 42 6c 6f 63 6b 25 2c 31 | 3c 3c 32 31 2c 31 3c 3c |Block%,1|<<21,1<<|
|00003850| 32 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |21 | |
|00003860| 20 20 3a 20 f4 20 52 65 | 61 64 20 53 65 6c 65 63 | : . Re|ad Selec|
|00003870| 74 65 64 20 46 6c 61 67 | 2c 20 42 69 74 20 32 31 |ted Flag|, Bit 21|
|00003880| 0d 10 90 2d 20 20 20 49 | 6e 64 65 78 25 3d 30 20 |...- I|ndex%=0 |
|00003890| 3a 20 48 6f 72 69 7a 6f | 6e 74 61 6c 25 3d b9 20 |: Horizo|ntal%=. |
|000038a0| 3a 20 56 65 72 74 69 63 | 61 6c 25 3d b9 0d 10 9a |: Vertic|al%=....|
|000038b0| 21 20 20 20 49 63 6f 6e | 53 65 6c 65 63 74 65 64 |! Icon|Selected|
|000038c0| 3d 42 6c 6f 63 6b 25 21 | 49 6e 64 65 78 25 0d 10 |=Block%!|Index%..|
|000038d0| a4 1a 20 20 20 c8 95 20 | 49 63 6f 6e 53 65 6c 65 |.. .. |IconSele|
|000038e0| 63 74 65 64 3c 3e 2d 31 | 0d 10 ae 2b 20 20 20 20 |cted<>-1|...+ |
|000038f0| 20 20 e7 20 49 63 6f 6e | 53 65 6c 65 63 74 65 64 | . Icon|Selected|
|00003900| 3d 31 30 20 8c 20 48 6f | 72 69 7a 6f 6e 74 61 6c |=10 . Ho|rizontal|
|00003910| 25 3d a3 0d 10 b8 29 20 | 20 20 20 20 20 e7 20 49 |%=....) | . I|
|00003920| 63 6f 6e 53 65 6c 65 63 | 74 65 64 3d 31 31 20 8c |conSelec|ted=11 .|
|00003930| 20 56 65 72 74 69 63 61 | 6c 25 3d a3 0d 10 c2 30 | Vertica|l%=....0|
|00003940| 20 20 20 20 20 20 49 6e | 64 65 78 25 2b 3d 34 20 | In|dex%+=4 |
|00003950| 3a 20 49 63 6f 6e 53 65 | 6c 65 63 74 65 64 3d 42 |: IconSe|lected=B|
|00003960| 6c 6f 63 6b 25 21 49 6e | 64 65 78 25 0d 10 cc 08 |lock%!In|dex%....|
|00003970| 20 20 20 ce 0d 10 d6 2f | 20 20 20 46 6c 61 67 73 | ..../| Flags|
|00003980| 25 3d 31 2d 28 48 6f 72 | 69 7a 6f 6e 74 61 6c 25 |%=1-(Hor|izontal%|
|00003990| 3c 3c 31 29 2d 28 56 65 | 72 74 69 63 61 6c 25 3c |<<1)-(Ve|rtical%<|
|000039a0| 3c 32 29 0d 10 e0 05 e1 | 0d 10 ea 05 3a 0d 10 f4 |<2).....|....:...|
|000039b0| 71 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |q. *****|********|
|000039c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000039f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 10 |********|******..|
|00003a20| fe 71 f4 20 4c 69 74 74 | 6c 65 20 62 69 74 20 6f |.q. Litt|le bit o|
|00003a30| 66 20 61 73 73 65 6d 62 | 6c 65 72 20 63 6f 64 65 |f assemb|ler code|
|00003a40| 20 77 68 69 63 68 20 6c | 69 76 65 73 20 69 6e 20 | which l|ives in |
|00003a50| 74 68 65 20 52 4d 41 20 | 61 6e 64 20 63 61 6c 6c |the RMA |and call|
|00003a60| 73 20 74 68 65 20 4d 61 | 6b 65 42 69 74 6d 61 70 |s the Ma|keBitmap|
|00003a70| 20 53 57 49 20 74 6f 20 | 70 72 65 76 65 6e 74 20 | SWI to |prevent |
|00003a80| 63 72 61 73 68 69 6e 67 | 20 42 41 53 49 43 2e 0d |crashing| BASIC..|
|00003a90| 11 08 10 f4 20 55 73 65 | 73 3a 20 4e 4f 4e 45 0d |.... Use|s: NONE.|
|00003aa0| 11 12 71 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..q. ***|********|
|00003ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b10| 0d 11 1c 41 dd 20 f2 5f | 4d 61 6b 65 42 69 74 6d |...A. ._|MakeBitm|
|00003b20| 61 70 28 46 6f 6e 74 4e | 61 6d 65 24 2c 20 50 6f |ap(FontN|ame$, Po|
|00003b30| 69 6e 74 53 69 7a 65 25 | 2c 20 44 50 49 5f 58 25 |intSize%|, DPI_X%|
|00003b40| 2c 20 44 50 49 5f 59 25 | 2c 20 46 6c 61 67 73 25 |, DPI_Y%|, Flags%|
|00003b50| 29 0d 11 26 16 ea 20 50 | 25 2c 20 52 4d 41 42 50 |)..&.. P|%, RMABP|
|00003b60| 6f 69 6e 74 65 72 25 0d | 11 30 2b c8 99 20 22 4f |ointer%.|.0+.. "O|
|00003b70| 53 5f 4d 6f 64 75 6c 65 | 22 2c 36 2c 2c 2c 32 35 |S_Module|",6,,,25|
|00003b80| 36 20 b8 20 2c 2c 52 4d | 41 42 50 6f 69 6e 74 65 |6 . ,,RM|ABPointe|
|00003b90| 72 25 0d 11 3a 14 e3 20 | 51 25 20 3d 20 30 20 b8 |r%..:.. |Q% = 0 .|
|00003ba0| 20 32 20 88 20 32 0d 11 | 44 15 50 25 20 3d 20 52 | 2 . 2..|D.P% = R|
|00003bb0| 4d 41 42 50 6f 69 6e 74 | 65 72 25 0d 11 4e 0b 5b |MABPoint|er%..N.[|
|00003bc0| 4f 50 54 20 51 25 0d 11 | 58 14 20 41 44 52 20 52 |OPT Q%..|X. ADR R|
|00003bd0| 31 2c 46 6f 6e 74 4e 61 | 6d 65 0d 11 62 17 20 4d |1,FontNa|me..b. M|
|00003be0| 4f 56 20 52 32 2c 23 50 | 6f 69 6e 74 53 69 7a 65 |OV R2,#P|ointSize|
|00003bf0| 25 0d 11 6c 17 20 4d 4f | 56 20 52 33 2c 23 50 6f |%..l. MO|V R3,#Po|
|00003c00| 69 6e 74 53 69 7a 65 25 | 0d 11 76 13 20 4d 4f 56 |intSize%|..v. MOV|
|00003c10| 20 52 34 2c 23 44 50 49 | 5f 58 25 0d 11 80 13 20 | R4,#DPI|_X%.... |
|00003c20| 4d 4f 56 20 52 35 2c 23 | 44 50 49 5f 59 25 0d 11 |MOV R5,#|DPI_Y%..|
|00003c30| 8a 13 20 4d 4f 56 20 52 | 36 2c 23 46 6c 61 67 73 |.. MOV R|6,#Flags|
|00003c40| 25 0d 11 94 1a 20 53 57 | 49 20 22 46 6f 6e 74 5f |%.... SW|I "Font_|
|00003c50| 4d 61 6b 65 42 69 74 6d | 61 70 22 0d 11 9e 0e 20 |MakeBitm|ap".... |
|00003c60| 4d 56 4e 20 52 30 2c 23 | 31 0d 11 a8 1d 20 53 57 |MVN R0,#|1.... SW|
|00003c70| 49 20 22 57 69 6d 70 5f | 43 6f 6d 6d 61 6e 64 57 |I "Wimp_|CommandW|
|00003c80| 69 6e 64 6f 77 22 0d 11 | b2 13 20 53 57 49 20 22 |indow"..|.. SWI "|
|00003c90| 58 4f 53 5f 45 78 69 74 | 22 0d 11 bc 0a 20 41 4c |XOS_Exit|".... AL|
|00003ca0| 49 47 4e 0d 11 c6 0e 20 | 2e 46 6f 6e 74 4e 61 6d |IGN.... |.FontNam|
|00003cb0| 65 0d 11 d0 05 5d 0d 11 | da 05 ed 0d 11 e4 19 24 |e....]..|.......$|
|00003cc0| 46 6f 6e 74 4e 61 6d 65 | 20 3d 20 46 6f 6e 74 4e |FontName| = FontN|
|00003cd0| 61 6d 65 24 0d 11 ee 2c | c8 99 20 22 57 69 6d 70 |ame$...,|.. "Wimp|
|00003ce0| 5f 53 74 61 72 74 54 61 | 73 6b 22 2c 22 47 6f 20 |_StartTa|sk","Go |
|00003cf0| 22 2b c3 7e 52 4d 41 42 | 50 6f 69 6e 74 65 72 25 |"+.~RMAB|Pointer%|
|00003d00| 0d 11 f8 22 c8 99 20 22 | 4f 53 5f 4d 6f 64 75 6c |...".. "|OS_Modul|
|00003d10| 65 22 2c 37 2c 2c 52 4d | 41 42 50 6f 69 6e 74 65 |e",7,,RM|ABPointe|
|00003d20| 72 25 0d 12 02 05 e1 0d | 12 0c 05 3a 0d 12 16 42 |r%......|...:...B|
|00003d30| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00003d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 12 |********|******..|
|00003d70| 20 42 f4 20 55 73 65 72 | 20 68 61 73 20 27 63 6c | B. User| has 'cl|
|00003d80| 69 63 6b 65 64 27 20 6f | 6e 20 61 20 66 6f 6e 74 |icked' o|n a font|
|00003d90| 20 6e 61 6d 65 2c 20 73 | 68 6f 77 20 6e 61 6d 65 | name, s|how name|
|00003da0| 20 69 6e 20 6d 61 69 6e | 20 77 69 6e 64 6f 77 2e | in main| window.|
|00003db0| 0d 12 2a 3d f4 20 52 65 | 6c 69 65 73 20 6f 6e 20 |..*=. Re|lies on |
|00003dc0| 61 20 6e 75 6d 65 72 69 | 63 61 6c 20 6c 69 73 74 |a numeri|cal list|
|00003dd0| 20 6f 66 20 6d 65 6e 75 | 20 73 65 6c 65 63 74 69 | of menu| selecti|
|00003de0| 6f 6e 73 20 61 74 20 42 | 6c 6f 63 6b 25 0d 12 34 |ons at B|lock%..4|
|00003df0| 3c f4 20 55 73 65 73 3a | 20 50 52 4f 43 5f 53 65 |<. Uses:| PROC_Se|
|00003e00| 74 49 63 6f 6e 54 65 78 | 74 20 50 52 4f 43 5f 52 |tIconTex|t PROC_R|
|00003e10| 65 64 72 61 77 20 46 4e | 5f 44 65 63 6f 64 65 4d |edraw FN|_DecodeM|
|00003e20| 79 46 6f 6e 74 4d 65 6e | 75 0d 12 3e 42 f4 20 2a |yFontMen|u..>B. *|
|00003e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 12 48 1a dd |********|***..H..|
|00003e70| 20 f2 5f 53 65 6c 65 63 | 74 46 72 6f 6d 46 6f 6e | ._Selec|tFromFon|
|00003e80| 74 4d 65 6e 75 0d 12 52 | 28 20 20 20 e7 20 42 6c |tMenu..R|( . Bl|
|00003e90| 6f 63 6b 25 21 38 3d 26 | 46 46 46 46 46 46 46 46 |ock%!8=&|FFFFFFFF|
|00003ea0| 20 8c 20 42 6c 6f 63 6b | 25 21 38 3d 30 0d 12 5c | . Block|%!8=0..\|
|00003eb0| 4d 20 20 20 f4 20 49 66 | 20 43 6c 69 63 6b 20 4f |M . If| Click O|
|00003ec0| 6e 20 54 79 70 65 46 61 | 63 65 20 54 68 65 6e 20 |n TypeFa|ce Then |
|00003ed0| 53 65 6c 65 63 74 20 46 | 69 72 73 74 20 61 76 61 |Select F|irst ava|
|00003ee0| 69 6c 61 62 6c 65 20 73 | 74 79 6c 65 20 66 72 6f |ilable s|tyle fro|
|00003ef0| 6d 20 73 75 62 20 6d 65 | 6e 75 0d 12 66 3f 20 20 |m sub me|nu..f? |
|00003f00| 20 f2 5f 53 65 74 49 63 | 6f 6e 54 65 78 74 28 53 | ._SetIc|onText(S|
|00003f10| 68 6f 77 46 6f 6e 74 4e | 61 6d 65 25 2c 4d 61 69 |howFontN|ame%,Mai|
|00003f20| 6e 25 2c a4 5f 44 65 63 | 6f 64 65 4d 79 46 6f 6e |n%,._Dec|odeMyFon|
|00003f30| 74 4d 65 6e 75 2c 35 30 | 29 0d 12 70 24 20 20 20 |tMenu,50|)..p$ |
|00003f40| f2 5f 52 65 64 72 61 77 | 28 4d 61 69 6e 25 2c 53 |._Redraw|(Main%,S|
|00003f50| 68 6f 77 46 6f 6e 74 4e | 61 6d 65 25 29 0d 12 7a |howFontN|ame%)..z|
|00003f60| 14 20 20 20 21 42 6c 6f | 63 6b 25 3d 4d 61 69 6e |. !Blo|ck%=Main|
|00003f70| 25 0d 12 84 11 20 20 20 | 42 6c 6f 63 6b 25 21 34 |%.... |Block%!4|
|00003f80| 3d 33 0d 12 8e 11 20 20 | 20 42 6c 6f 63 6b 25 21 |=3.... | Block%!|
|00003f90| 38 3d 30 0d 12 98 12 20 | 20 20 42 6c 6f 63 6b 25 |8=0.... | Block%|
|00003fa0| 21 31 32 3d 30 0d 12 a2 | 25 20 20 20 c8 99 20 22 |!12=0...|% .. "|
|00003fb0| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00003fc0| 65 22 2c 2c 42 6c 6f 63 | 6b 25 0d 12 ac 05 e1 0d |e",,Bloc|k%......|
|00003fd0| 12 b6 05 3a 0d 12 c0 3e | f4 20 2a 2a 2a 2a 2a 2a |...:...>|. ******|
|00003fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004010| 2a 2a 0d 12 ca 3b f4 20 | 54 68 69 73 20 44 6f 65 |**...;. |This Doe|
|00004020| 73 20 74 68 65 20 61 63 | 74 75 61 6c 20 77 6f 72 |s the ac|tual wor|
|00004030| 6b 20 6f 66 20 72 65 61 | 64 69 6e 67 20 74 68 65 |k of rea|ding the|
|00004040| 20 74 65 78 74 20 66 6f | 72 20 74 68 65 0d 12 d4 | text fo|r the...|
|00004050| 37 f4 20 53 65 6c 65 63 | 74 65 64 20 6d 65 6e 75 |7. Selec|ted menu|
|00004060| 20 69 74 65 6d 73 20 66 | 72 6f 6d 20 74 68 65 20 | items f|rom the |
|00004070| 69 6e 64 69 72 65 63 74 | 65 64 20 64 61 74 61 20 |indirect|ed data |
|00004080| 6c 69 73 74 0d 12 de 3e | f4 20 52 65 6c 69 65 73 |list...>|. Relies|
|00004090| 20 6f 6e 20 61 20 6e 75 | 6d 65 72 69 63 61 6c 20 | on a nu|merical |
|000040a0| 6c 69 73 74 20 6f 66 20 | 6d 65 6e 75 20 73 65 6c |list of |menu sel|
|000040b0| 65 63 74 69 6f 6e 73 20 | 61 74 20 42 6c 6f 63 6b |ections |at Block|
|000040c0| 25 2e 0d 12 e8 1a f4 20 | 55 73 65 73 20 3a 20 46 |%...... |Uses : F|
|000040d0| 4e 5f 52 65 61 64 53 74 | 72 69 6e 67 0d 12 f2 3e |N_ReadSt|ring...>|
|000040e0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000040f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 12 fc 18 dd 20 |********|**..... |
|00004120| a4 5f 44 65 63 6f 64 65 | 4d 79 46 6f 6e 74 4d 65 |._Decode|MyFontMe|
|00004130| 6e 75 0d 13 06 31 ea 20 | 57 68 69 63 68 54 79 70 |nu...1. |WhichTyp|
|00004140| 65 46 61 63 65 25 2c 57 | 68 69 63 68 53 74 79 6c |eFace%,W|hichStyl|
|00004150| 65 25 2c 54 79 70 65 46 | 61 63 65 24 2c 53 74 79 |e%,TypeF|ace$,Sty|
|00004160| 6c 65 24 0d 13 10 39 20 | 20 20 57 68 69 63 68 54 |le$...9 | WhichT|
|00004170| 79 70 65 46 61 63 65 25 | 3d 21 28 46 6f 6e 74 4d |ypeFace%|=!(FontM|
|00004180| 65 6e 75 48 61 6e 64 6c | 65 25 2b 28 42 6c 6f 63 |enuHandl|e%+(Bloc|
|00004190| 6b 25 21 34 29 2a 32 34 | 2b 34 30 29 0d 13 1a 40 |k%!4)*24|+40)...@|
|000041a0| 20 20 20 57 68 69 63 68 | 53 74 79 6c 65 25 3d 21 | Which|Style%=!|
|000041b0| 28 4d 65 6e 75 48 61 6e | 64 6c 65 25 28 28 42 6c |(MenuHan|dle%((Bl|
|000041c0| 6f 63 6b 25 21 34 29 2b | 31 29 2b 28 42 6c 6f 63 |ock%!4)+|1)+(Bloc|
|000041d0| 6b 25 21 38 29 2a 32 34 | 2b 34 30 29 0d 13 24 2d |k%!8)*24|+40)..$-|
|000041e0| 20 20 20 54 79 70 65 46 | 61 63 65 24 3d a4 5f 52 | TypeF|ace$=._R|
|000041f0| 65 61 64 53 74 72 69 6e | 67 28 57 68 69 63 68 54 |eadStrin|g(WhichT|
|00004200| 79 70 65 46 61 63 65 25 | 29 0d 13 2e 27 20 20 20 |ypeFace%|)...' |
|00004210| 53 74 79 6c 65 24 3d a4 | 5f 52 65 61 64 53 74 72 |Style$=.|_ReadStr|
|00004220| 69 6e 67 28 57 68 69 63 | 68 53 74 79 6c 65 25 29 |ing(Whic|hStyle%)|
|00004230| 0d 13 38 25 20 20 20 e7 | 20 53 74 79 6c 65 24 3d |..8% .| Style$=|
|00004240| 22 44 65 66 61 75 6c 74 | 22 20 8c 20 53 74 79 6c |"Default|" . Styl|
|00004250| 65 24 3d 22 22 0d 13 42 | 34 20 20 20 e7 20 53 74 |e$=""..B|4 . St|
|00004260| 79 6c 65 24 3c 3e 22 22 | 20 8c 20 54 79 70 65 46 |yle$<>""| . TypeF|
|00004270| 61 63 65 24 3d 54 79 70 | 65 46 61 63 65 24 2b 22 |ace$=Typ|eFace$+"|
|00004280| 2e 22 2b 53 74 79 6c 65 | 24 0d 13 4c 0e 3d 54 79 |."+Style|$..L.=Ty|
|00004290| 70 65 46 61 63 65 24 0d | 13 56 05 3a 0d 13 60 39 |peFace$.|.V.:..`9|
|000042a0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000042b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042d0| 2a 2a 2a 2a 2a 0d 13 6a | 39 f4 20 57 72 69 74 65 |*****..j|9. Write|
|000042e0| 73 20 61 20 73 74 72 69 | 6e 67 20 69 6e 74 6f 20 |s a stri|ng into |
|000042f0| 6d 65 6d 6f 72 79 20 77 | 69 74 68 20 61 20 7a 65 |memory w|ith a ze|
|00004300| 72 6f 20 74 65 72 6d 69 | 6e 61 74 6f 72 2e 0d 13 |ro termi|nator...|
|00004310| 74 11 f4 20 55 73 65 73 | 20 3a 20 4e 4f 4e 45 0d |t.. Uses| : NONE.|
|00004320| 13 7e 39 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.~9. ***|********|
|00004330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004350| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 13 88 23 dd 20 f2 5f |********|...#. ._|
|00004360| 57 72 69 74 65 53 74 72 | 69 6e 67 28 50 6f 69 6e |WriteStr|ing(Poin|
|00004370| 74 65 72 25 2c 54 65 78 | 74 24 29 0d 13 92 0b ea |ter%,Tex|t$).....|
|00004380| 20 4c 6f 6f 70 25 0d 13 | 9c 1b 20 20 20 e3 20 4c | Loop%..|.. . L|
|00004390| 6f 6f 70 25 3d 31 20 b8 | 20 a9 28 54 65 78 74 24 |oop%=1 .| .(Text$|
|000043a0| 29 0d 13 a6 2f 20 20 20 | 20 20 20 4c 6f 6f 70 25 |).../ | Loop%|
|000043b0| 3f 28 50 6f 69 6e 74 65 | 72 25 2d 31 29 3d 97 28 |?(Pointe|r%-1)=.(|
|000043c0| c1 54 65 78 74 24 2c 4c | 6f 6f 70 25 2c 31 29 29 |.Text$,L|oop%,1))|
|000043d0| 0d 13 b0 08 20 20 20 ed | 0d 13 ba 1b 20 20 20 4c |.... .|.... L|
|000043e0| 6f 6f 70 25 3f 28 50 6f | 69 6e 74 65 72 25 2d 31 |oop%?(Po|inter%-1|
|000043f0| 29 3d 30 0d 13 c4 05 e1 | 0d 13 ce 05 3a 0d 13 d8 |)=0.....|....:...|
|00004400| 43 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |C. *****|********|
|00004410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004440| 0d 13 e2 43 f4 20 52 65 | 61 64 73 20 66 6f 6e 74 |...C. Re|ads font|
|00004450| 73 20 69 6e 74 6f 20 42 | 6c 6f 63 6b 25 2c 20 72 |s into B|lock%, r|
|00004460| 65 74 75 72 6e 73 20 74 | 6f 74 61 6c 20 6e 75 6d |eturns t|otal num|
|00004470| 62 65 72 20 6f 66 20 66 | 6f 6e 74 73 20 66 6f 75 |ber of f|onts fou|
|00004480| 6e 64 2e 0d 13 ec 1d f4 | 20 55 73 65 73 20 3a 20 |nd......| Uses : |
|00004490| 50 52 4f 43 5f 57 72 69 | 74 65 53 74 72 69 6e 67 |PROC_Wri|teString|
|000044a0| 0d 13 f6 43 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...C. **|********|
|000044b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044e0| 2a 2a 2a 0d 14 00 11 dd | 20 a4 5f 52 65 61 64 46 |***.....| ._ReadF|
|000044f0| 6f 6e 74 73 0d 14 0a 31 | ea 20 46 6f 6e 74 4e 75 |onts...1|. FontNu|
|00004500| 6d 62 65 72 25 2c 4e 75 | 6d 62 65 72 4f 66 46 6f |mber%,Nu|mberOfFo|
|00004510| 6e 74 73 25 2c 42 75 66 | 66 65 72 25 2c 50 6f 69 |nts%,Buf|fer%,Poi|
|00004520| 6e 74 65 72 25 0d 14 14 | 13 20 20 20 de 20 42 75 |nter%...|. . Bu|
|00004530| 66 66 65 72 25 20 34 30 | 0d 14 1e 18 20 20 20 c8 |ffer% 40|.... .|
|00004540| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|00004550| 0d 14 28 08 20 20 20 f5 | 0d 14 32 45 20 20 20 20 |..(. .|..2E |
|00004560| 20 20 c8 99 20 22 46 6f | 6e 74 5f 4c 69 73 74 46 | .. "Fo|nt_ListF|
|00004570| 6f 6e 74 73 22 2c 2c 42 | 75 66 66 65 72 25 2c 46 |onts",,B|uffer%,F|
|00004580| 6f 6e 74 4e 75 6d 62 65 | 72 25 2c 2d 31 20 b8 20 |ontNumbe|r%,-1 . |
|00004590| 2c 2c 46 6f 6e 74 4e 75 | 6d 62 65 72 25 0d 14 3c |,,FontNu|mber%..<|
|000045a0| 59 20 20 20 20 20 20 e7 | 20 46 6f 6e 74 4e 75 6d |Y .| FontNum|
|000045b0| 62 65 72 25 3c 3e 2d 31 | 20 8c 20 f2 5f 57 72 69 |ber%<>-1| . ._Wri|
|000045c0| 74 65 53 74 72 69 6e 67 | 28 42 6c 6f 63 6b 25 2b |teString|(Block%+|
|000045d0| 50 6f 69 6e 74 65 72 25 | 2c 24 42 75 66 66 65 72 |Pointer%|,$Buffer|
|000045e0| 25 29 20 3a 20 4e 75 6d | 62 65 72 4f 66 46 6f 6e |%) : Num|berOfFon|
|000045f0| 74 73 25 2b 3d 31 0d 14 | 46 21 20 20 20 20 20 20 |ts%+=1..|F! |
|00004600| 50 6f 69 6e 74 65 72 25 | 2b 3d a9 28 24 42 75 66 |Pointer%|+=.($Buf|
|00004610| 66 65 72 25 29 2b 31 0d | 14 50 17 20 20 20 fd 20 |fer%)+1.|.P. . |
|00004620| 46 6f 6e 74 4e 75 6d 62 | 65 72 25 3d 2d 31 0d 14 |FontNumb|er%=-1..|
|00004630| 5a 19 20 20 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |Z. .. |"Hourgla|
|00004640| 73 73 5f 4f 66 66 22 0d | 14 64 13 3d 4e 75 6d 62 |ss_Off".|.d.=Numb|
|00004650| 65 72 4f 66 46 6f 6e 74 | 73 25 0d 14 6e 05 3a 0d |erOfFont|s%..n.:.|
|00004660| 14 78 68 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.xh. ***|********|
|00004670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000046c0| 2a 2a 2a 2a 2a 2a 2a 0d | 14 82 68 f4 20 53 65 70 |*******.|..h. Sep|
|000046d0| 65 72 61 74 65 73 20 66 | 6f 6e 74 20 74 79 70 65 |erates f|ont type|
|000046e0| 66 61 63 65 20 66 72 6f | 6d 20 66 6f 6e 74 20 73 |face fro|m font s|
|000046f0| 74 79 6c 65 20 61 6e 64 | 20 70 6c 61 63 65 73 20 |tyle and| places |
|00004700| 69 6e 20 49 6e 64 69 72 | 65 63 74 65 64 44 61 74 |in Indir|ectedDat|
|00004710| 61 20 66 6f 72 20 75 73 | 65 20 62 79 20 46 4e 5f |a for us|e by FN_|
|00004720| 43 72 65 61 74 65 46 6f | 6e 74 4d 65 6e 75 2e 0d |CreateFo|ntMenu..|
|00004730| 14 8c 27 f4 20 55 73 65 | 73 20 3a 20 46 4e 5f 52 |..'. Use|s : FN_R|
|00004740| 65 61 64 46 6f 6e 74 73 | 20 46 4e 5f 52 65 61 64 |eadFonts| FN_Read|
|00004750| 53 74 72 69 6e 67 0d 14 | 96 68 f4 20 2a 2a 2a 2a |String..|.h. ****|
|00004760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 14 |********|******..|
|000047c0| a0 1c dd 20 a4 5f 43 72 | 65 61 74 65 49 6e 64 69 |... ._Cr|eateIndi|
|000047d0| 72 65 63 74 65 64 44 61 | 74 61 0d 14 aa 5c ea 20 |rectedDa|ta...\. |
|000047e0| 4e 75 6d 62 65 72 4f 66 | 46 6f 6e 74 73 25 2c 52 |NumberOf|Fonts%,R|
|000047f0| 65 61 64 50 6f 69 6e 74 | 65 72 25 2c 57 72 69 74 |eadPoint|er%,Writ|
|00004800| 65 50 6f 69 6e 74 65 72 | 25 2c 4c 6f 6f 70 25 2c |ePointer|%,Loop%,|
|00004810| 4f 6c 64 4e 61 6d 65 24 | 2c 52 65 73 65 72 76 65 |OldName$|,Reserve|
|00004820| 64 25 2c 4e 75 6d 62 65 | 72 4f 66 53 75 62 45 6e |d%,Numbe|rOfSubEn|
|00004830| 74 72 69 65 73 25 0d 14 | b4 18 20 20 20 c8 99 20 |tries%..|.. .. |
|00004840| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 14 |"Hourgla|ss_On"..|
|00004850| be 2f 20 20 20 4e 75 6d | 62 65 72 4f 66 46 6f 6e |./ Num|berOfFon|
|00004860| 74 73 25 3d a4 5f 52 65 | 61 64 46 6f 6e 74 73 20 |ts%=._Re|adFonts |
|00004870| 3a 20 54 79 70 65 46 61 | 63 65 25 3d 30 0d 14 c8 |: TypeFa|ce%=0...|
|00004880| 46 20 20 20 f4 20 45 78 | 74 72 61 63 74 20 53 74 |F . Ex|tract St|
|00004890| 79 6c 65 20 64 61 74 61 | 20 74 6f 20 61 6c 6c 6f |yle data| to allo|
|000048a0| 77 20 61 6c 6c 20 73 75 | 62 6d 65 6e 75 73 20 74 |w all su|bmenus t|
|000048b0| 6f 20 62 65 20 63 72 65 | 61 74 65 64 20 66 69 72 |o be cre|ated fir|
|000048c0| 73 74 2e 0d 14 d2 21 20 | 20 20 e3 20 4c 6f 6f 70 |st....! | . Loop|
|000048d0| 25 3d 31 20 b8 20 4e 75 | 6d 62 65 72 4f 66 46 6f |%=1 . Nu|mberOfFo|
|000048e0| 6e 74 73 25 0d 14 dc 35 | 20 20 20 20 20 20 46 75 |nts%...5| Fu|
|000048f0| 6c 6c 4e 61 6d 65 24 3d | a4 5f 52 65 61 64 53 74 |llName$=|._ReadSt|
|00004900| 72 69 6e 67 28 42 6c 6f | 63 6b 25 2b 52 65 61 64 |ring(Blo|ck%+Read|
|00004910| 50 6f 69 6e 74 65 72 25 | 29 0d 14 e6 20 20 20 20 |Pointer%|)... |
|00004920| 20 20 20 4e 75 6d 62 65 | 72 4f 66 53 75 62 45 6e | Numbe|rOfSubEn|
|00004930| 74 72 69 65 73 25 2b 3d | 31 0d 14 f0 64 20 20 20 |tries%+=|1...d |
|00004940| 20 20 20 49 6e 64 69 72 | 65 63 74 65 64 46 6f 6e | Indir|ectedFon|
|00004950| 74 44 61 74 61 25 3f 52 | 65 73 65 72 76 65 64 25 |tData%?R|eserved%|
|00004960| 3d 4e 75 6d 62 65 72 4f | 66 53 75 62 45 6e 74 72 |=NumberO|fSubEntr|
|00004970| 69 65 73 25 20 3a 20 f4 | 20 53 74 6f 72 65 20 6e |ies% : .| Store n|
|00004980| 75 6d 62 65 72 20 6f 66 | 20 73 74 79 6c 65 73 20 |umber of| styles |
|00004990| 66 6f 72 20 65 61 63 68 | 20 66 6f 6e 74 0d 14 fa |for each| font...|
|000049a0| 26 20 20 20 20 20 20 44 | 6f 74 50 6f 73 69 74 69 |& D|otPositi|
|000049b0| 6f 6e 25 3d a7 46 75 6c | 6c 4e 61 6d 65 24 2c 22 |on%=.Ful|lName$,"|
|000049c0| 2e 22 29 0d 15 04 34 20 | 20 20 20 20 20 e7 20 c0 |.")...4 | . .|
|000049d0| 46 75 6c 6c 4e 61 6d 65 | 24 2c 44 6f 74 50 6f 73 |FullName|$,DotPos|
|000049e0| 69 74 69 6f 6e 25 2d 31 | 29 20 3c 3e 20 4f 6c 64 |ition%-1|) <> Old|
|000049f0| 4e 61 6d 65 24 20 8c 0d | 15 0e 19 20 20 20 20 20 |Name$ ..|... |
|00004a00| 20 20 20 20 54 79 70 65 | 46 61 63 65 25 2b 3d 31 | Type|Face%+=1|
|00004a10| 0d 15 18 ac 20 20 20 20 | 20 20 20 20 20 e7 20 54 |.... | . T|
|00004a20| 79 70 65 46 61 63 65 25 | 3e 4d 61 78 54 79 70 65 |ypeFace%|>MaxType|
|00004a30| 46 61 63 65 25 20 8c 20 | 85 20 30 2c 22 47 6f 6f |Face% . |. 0,"Goo|
|00004a40| 64 20 47 72 69 65 66 2c | 20 4a 75 73 74 20 68 6f |d Grief,| Just ho|
|00004a50| 77 20 6d 61 6e 79 20 66 | 6f 6e 74 73 20 68 61 76 |w many f|onts hav|
|00004a60| 65 20 79 6f 75 20 67 6f | 74 20 6f 6e 20 74 68 69 |e you go|t on thi|
|00004a70| 73 20 64 69 73 63 3f 20 | 2d 20 49 20 63 61 6e 20 |s disc? |- I can |
|00004a80| 6f 6e 6c 79 20 63 6f 70 | 65 20 77 69 74 68 20 22 |only cop|e with "|
|00004a90| 2b c3 28 4d 61 78 54 79 | 70 65 46 61 63 65 25 29 |+.(MaxTy|peFace%)|
|00004aa0| 2b 22 20 44 69 66 66 65 | 72 65 6e 74 20 66 6f 6e |+" Diffe|rent fon|
|00004ab0| 74 20 66 61 6d 69 6c 69 | 65 73 21 22 0d 15 22 4c |t famili|es!".."L|
|00004ac0| 20 20 20 20 20 20 20 20 | 20 53 75 62 4d 65 6e 75 | | SubMenu|
|00004ad0| 49 6e 64 69 72 65 63 74 | 65 64 25 28 54 79 70 65 |Indirect|ed%(Type|
|00004ae0| 46 61 63 65 25 29 3d 57 | 72 69 74 65 50 6f 69 6e |Face%)=W|ritePoin|
|00004af0| 74 65 72 25 2b 49 6e 64 | 69 72 65 63 74 65 64 46 |ter%+Ind|irectedF|
|00004b00| 6f 6e 74 44 61 74 61 25 | 0d 15 2c 37 20 20 20 20 |ontData%|..,7 |
|00004b10| 20 20 20 20 20 52 65 73 | 65 72 76 65 64 25 3d 57 | Res|erved%=W|
|00004b20| 72 69 74 65 50 6f 69 6e | 74 65 72 25 20 3a 20 57 |ritePoin|ter% : W|
|00004b30| 72 69 74 65 50 6f 69 6e | 74 65 72 25 2b 3d 31 0d |ritePoin|ter%+=1.|
|00004b40| 15 36 40 20 20 20 20 20 | 20 20 20 20 4e 75 6d 62 |.6@ | Numb|
|00004b50| 65 72 4f 66 53 75 62 45 | 6e 74 72 69 65 73 25 3d |erOfSubE|ntries%=|
|00004b60| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |0 | :|
|00004b70| 20 f4 20 5a 65 72 6f 20 | 43 6f 75 6e 74 65 72 0d | . Zero |Counter.|
|00004b80| 15 40 30 20 20 20 20 20 | 20 20 20 20 4f 6c 64 4e |.@0 | OldN|
|00004b90| 61 6d 65 24 3d c0 46 75 | 6c 6c 4e 61 6d 65 24 2c |ame$=.Fu|llName$,|
|00004ba0| 44 6f 74 50 6f 73 69 74 | 69 6f 6e 25 2d 31 29 0d |DotPosit|ion%-1).|
|00004bb0| 15 4a 0b 20 20 20 20 20 | 20 cd 0d 15 54 1d 20 20 |.J. | ...T. |
|00004bc0| 20 20 20 20 e7 20 44 6f | 74 50 6f 73 69 74 69 6f | . Do|tPositio|
|00004bd0| 6e 25 3c 3e 30 20 8c 0d | 15 5e 58 20 20 20 20 20 |n%<>0 ..|.^X |
|00004be0| 20 20 20 20 f2 5f 57 72 | 69 74 65 53 74 72 69 6e | ._Wr|iteStrin|
|00004bf0| 67 28 49 6e 64 69 72 65 | 63 74 65 64 46 6f 6e 74 |g(Indire|ctedFont|
|00004c00| 44 61 74 61 25 2b 57 72 | 69 74 65 50 6f 69 6e 74 |Data%+Wr|itePoint|
|00004c10| 65 72 25 2c c1 46 75 6c | 6c 4e 61 6d 65 24 2c 44 |er%,.Ful|lName$,D|
|00004c20| 6f 74 50 6f 73 69 74 69 | 6f 6e 25 2b 31 29 29 0d |otPositi|on%+1)).|
|00004c30| 15 68 0b 20 20 20 20 20 | 20 cc 0d 15 72 47 20 20 |.h. | ...rG |
|00004c40| 20 20 20 20 20 20 20 f2 | 5f 57 72 69 74 65 53 74 | .|_WriteSt|
|00004c50| 72 69 6e 67 28 49 6e 64 | 69 72 65 63 74 65 64 46 |ring(Ind|irectedF|
|00004c60| 6f 6e 74 44 61 74 61 25 | 2b 57 72 69 74 65 50 6f |ontData%|+WritePo|
|00004c70| 69 6e 74 65 72 25 2c 22 | 44 65 66 61 75 6c 74 22 |inter%,"|Default"|
|00004c80| 29 0d 15 7c 0b 20 20 20 | 20 20 20 cd 0d 15 86 4d |)..|. | ....M|
|00004c90| 20 20 20 20 20 20 57 72 | 69 74 65 50 6f 69 6e 74 | Wr|itePoint|
|00004ca0| 65 72 25 2b 3d a9 28 a4 | 5f 52 65 61 64 53 74 72 |er%+=.(.|_ReadStr|
|00004cb0| 69 6e 67 28 49 6e 64 69 | 72 65 63 74 65 64 46 6f |ing(Indi|rectedFo|
|00004cc0| 6e 74 44 61 74 61 25 2b | 57 72 69 74 65 50 6f 69 |ntData%+|WritePoi|
|00004cd0| 6e 74 65 72 25 29 29 2b | 31 0d 15 90 26 20 20 20 |nter%))+|1...& |
|00004ce0| 20 20 20 52 65 61 64 50 | 6f 69 6e 74 65 72 25 2b | ReadP|ointer%+|
|00004cf0| 3d a9 28 46 75 6c 6c 4e | 61 6d 65 24 29 2b 31 0d |=.(FullN|ame$)+1.|
|00004d00| 15 9a 08 20 20 20 ed 0d | 15 a4 68 20 20 20 49 6e |... ..|..h In|
|00004d10| 64 69 72 65 63 74 65 64 | 46 6f 6e 74 44 61 74 61 |directed|FontData|
|00004d20| 25 3f 52 65 73 65 72 76 | 65 64 25 3d 28 4e 75 6d |%?Reserv|ed%=(Num|
|00004d30| 62 65 72 4f 66 53 75 62 | 45 6e 74 72 69 65 73 25 |berOfSub|Entries%|
|00004d40| 2b 31 29 20 3a 20 f4 20 | 57 72 69 74 65 20 62 61 |+1) : . |Write ba|
|00004d50| 63 6b 20 63 6f 75 6e 74 | 20 61 66 74 65 72 20 6c |ck count| after l|
|00004d60| 61 73 74 20 66 6f 6e 74 | 20 66 6f 75 6e 64 21 0d |ast font| found!.|
|00004d70| 15 ae 2b 20 20 20 f4 20 | 4e 6f 77 20 45 78 74 72 |..+ . |Now Extr|
|00004d80| 61 63 74 20 61 6c 6c 20 | 74 68 65 20 54 79 70 65 |act all |the Type|
|00004d90| 46 61 63 65 20 6e 61 6d | 65 73 0d 15 b8 5b 20 20 |Face nam|es...[ |
|00004da0| 20 52 65 61 64 50 6f 69 | 6e 74 65 72 25 3d 30 20 | ReadPoi|nter%=0 |
|00004db0| 3a 20 4f 6c 64 4e 61 6d | 65 24 3d 22 22 20 3a 20 |: OldNam|e$="" : |
|00004dc0| 46 6f 6e 74 4d 65 6e 75 | 49 6e 64 69 72 65 63 74 |FontMenu|Indirect|
|00004dd0| 65 64 25 3d 57 72 69 74 | 65 50 6f 69 6e 74 65 72 |ed%=Writ|ePointer|
|00004de0| 25 2b 49 6e 64 69 72 65 | 63 74 65 64 46 6f 6e 74 |%+Indire|ctedFont|
|00004df0| 44 61 74 61 25 0d 15 c2 | 21 20 20 20 e3 20 4c 6f |Data%...|! . Lo|
|00004e00| 6f 70 25 3d 31 20 b8 20 | 4e 75 6d 62 65 72 4f 66 |op%=1 . |NumberOf|
|00004e10| 46 6f 6e 74 73 25 0d 15 | cc 35 20 20 20 20 20 20 |Fonts%..|.5 |
|00004e20| 46 75 6c 6c 4e 61 6d 65 | 24 3d a4 5f 52 65 61 64 |FullName|$=._Read|
|00004e30| 53 74 72 69 6e 67 28 42 | 6c 6f 63 6b 25 2b 52 65 |String(B|lock%+Re|
|00004e40| 61 64 50 6f 69 6e 74 65 | 72 25 29 0d 15 d6 26 20 |adPointe|r%)...& |
|00004e50| 20 20 20 20 20 44 6f 74 | 50 6f 73 69 74 69 6f 6e | Dot|Position|
|00004e60| 25 3d a7 46 75 6c 6c 4e | 61 6d 65 24 2c 22 2e 22 |%=.FullN|ame$,"."|
|00004e70| 29 0d 15 e0 39 20 20 20 | 20 20 20 e7 20 44 6f 74 |)...9 | . Dot|
|00004e80| 50 6f 73 69 74 69 6f 6e | 25 3c 3d 30 20 8c 20 44 |Position|%<=0 . D|
|00004e90| 6f 74 50 6f 73 69 74 69 | 6f 6e 25 3d a9 28 46 75 |otPositi|on%=.(Fu|
|00004ea0| 6c 6c 4e 61 6d 65 24 29 | 2b 31 0d 15 ea 2d 20 20 |llName$)|+1...- |
|00004eb0| 20 20 20 20 4e 65 77 4e | 61 6d 65 24 3d c0 46 75 | NewN|ame$=.Fu|
|00004ec0| 6c 6c 4e 61 6d 65 24 2c | 44 6f 74 50 6f 73 69 74 |llName$,|DotPosit|
|00004ed0| 69 6f 6e 25 2d 31 29 0d | 15 f4 22 20 20 20 20 20 |ion%-1).|.." |
|00004ee0| 20 e7 20 4e 65 77 4e 61 | 6d 65 24 20 3c 3e 20 4f | . NewNa|me$ <> O|
|00004ef0| 6c 64 4e 61 6d 65 24 20 | 8c 0d 15 fe 1e 20 20 20 |ldName$ |..... |
|00004f00| 20 20 20 20 20 20 4f 6c | 64 4e 61 6d 65 24 3d 4e | Ol|dName$=N|
|00004f10| 65 77 4e 61 6d 65 24 0d | 16 08 46 20 20 20 20 20 |ewName$.|..F |
|00004f20| 20 20 20 20 f2 5f 57 72 | 69 74 65 53 74 72 69 6e | ._Wr|iteStrin|
|00004f30| 67 28 49 6e 64 69 72 65 | 63 74 65 64 46 6f 6e 74 |g(Indire|ctedFont|
|00004f40| 44 61 74 61 25 2b 57 72 | 69 74 65 50 6f 69 6e 74 |Data%+Wr|itePoint|
|00004f50| 65 72 25 2c 4e 65 77 4e | 61 6d 65 24 29 0d 16 12 |er%,NewN|ame$)...|
|00004f60| 29 20 20 20 20 20 20 20 | 20 20 57 72 69 74 65 50 |) | WriteP|
|00004f70| 6f 69 6e 74 65 72 25 2b | 3d a9 28 4e 65 77 4e 61 |ointer%+|=.(NewNa|
|00004f80| 6d 65 24 29 2b 31 0d 16 | 1c 0b 20 20 20 20 20 20 |me$)+1..|.. |
|00004f90| cd 0d 16 26 26 20 20 20 | 20 20 20 52 65 61 64 50 |...&& | ReadP|
|00004fa0| 6f 69 6e 74 65 72 25 2b | 3d a9 28 46 75 6c 6c 4e |ointer%+|=.(FullN|
|00004fb0| 61 6d 65 24 29 2b 31 0d | 16 30 08 20 20 20 ed 0d |ame$)+1.|.0. ..|
|00004fc0| 16 3a 19 20 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |.:. ..| "Hourgl|
|00004fd0| 61 73 73 5f 4f 66 66 22 | 0d 16 44 0e 3d 54 79 70 |ass_Off"|..D.=Typ|
|00004fe0| 65 46 61 63 65 25 0d 16 | 4e 05 3a 0d 16 58 77 f4 |eFace%..|N.:..Xw.|
|00004ff0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00005000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005060| 2a 2a 0d 16 62 76 f4 20 | 42 75 69 6c 64 73 20 72 |**..bv. |Builds r|
|00005070| 61 77 20 66 6f 6e 74 6c | 69 73 74 20 64 61 74 61 |aw fontl|ist data|
|00005080| 20 69 6e 74 6f 20 61 20 | 74 77 6f 20 6c 65 76 65 | into a |two leve|
|00005090| 6c 20 6d 65 6e 75 20 73 | 74 72 75 63 74 75 72 65 |l menu s|tructure|
|000050a0| 2c 20 54 79 70 65 66 61 | 63 65 20 2d 20 28 46 6f |, Typefa|ce - (Fo|
|000050b0| 6e 74 4d 65 6e 75 48 61 | 6e 64 6c 65 25 29 20 2d |ntMenuHa|ndle%) -|
|000050c0| 20 42 65 69 6e 67 20 61 | 20 6c 69 73 74 20 6f 66 | Being a| list of|
|000050d0| 20 61 6c 6c 20 74 68 65 | 0d 16 6c 70 f4 20 20 41 | all the|..lp. A|
|000050e0| 76 61 69 6c 61 62 6c 65 | 20 66 6f 6e 74 2d 66 61 |vailable| font-fa|
|000050f0| 6d 69 6c 69 65 73 20 61 | 6e 64 2c 20 53 74 79 6c |milies a|nd, Styl|
|00005100| 65 20 2d 20 4d 65 6e 75 | 48 61 6e 64 6c 65 28 54 |e - Menu|Handle(T|
|00005110| 79 70 65 46 61 63 65 45 | 6e 74 72 79 2b 31 29 25 |ypeFaceE|ntry+1)%|
|00005120| 20 2d 20 42 65 69 6e 67 | 20 61 20 6c 69 73 74 20 | - Being| a list |
|00005130| 6f 66 20 65 61 63 68 20 | 6f 66 20 74 68 65 20 61 |of each |of the a|
|00005140| 76 61 69 6c 61 62 6c 65 | 0d 16 76 75 f4 20 20 53 |vailable|..vu. S|
|00005150| 74 79 6c 65 73 20 66 6f | 72 20 74 68 65 20 73 65 |tyles fo|r the se|
|00005160| 6c 65 63 74 65 64 20 74 | 79 70 65 66 61 63 65 2e |lected t|ypeface.|
|00005170| 20 49 66 20 31 20 6f 72 | 20 6d 6f 72 65 20 73 74 | If 1 or| more st|
|00005180| 79 6c 65 73 20 61 72 65 | 20 61 76 61 69 6c 61 62 |yles are| availab|
|00005190| 6c 65 20 74 68 65 6e 20 | 61 20 73 75 62 6d 65 6e |le then |a submen|
|000051a0| 75 20 69 73 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |u is aut|omatical|
|000051b0| 6c 79 20 67 65 6e 65 72 | 61 74 65 64 21 0d 16 80 |ly gener|ated!...|
|000051c0| 1a f4 20 55 73 65 73 20 | 3a 20 46 4e 5f 52 65 61 |.. Uses |: FN_Rea|
|000051d0| 64 53 74 72 69 6e 67 0d | 16 8a 77 f4 20 2a 2a 2a |dString.|..w. ***|
|000051e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 16 |********|******..|
|00005250| 94 29 dd 20 f2 5f 43 72 | 65 61 74 65 46 6f 6e 74 |.). ._Cr|eateFont|
|00005260| 4d 65 6e 75 28 4e 75 6d | 62 65 72 4f 66 53 75 62 |Menu(Num|berOfSub|
|00005270| 4d 65 6e 75 73 25 29 0d | 16 9e 15 ea 20 50 6f 69 |Menus%).|.... Poi|
|00005280| 6e 74 65 72 25 2c 45 6e | 74 72 79 24 0d 16 a8 24 |nter%,En|try$...$|
|00005290| 20 20 20 e3 20 4c 6f 6f | 70 25 3d 31 20 b8 20 4e | . Loo|p%=1 . N|
|000052a0| 75 6d 62 65 72 4f 66 53 | 75 62 4d 65 6e 75 73 25 |umberOfS|ubMenus%|
|000052b0| 0d 16 b2 34 20 20 20 20 | 20 20 4d 65 6e 75 48 61 |...4 | MenuHa|
|000052c0| 6e 64 6c 65 25 28 4c 6f | 6f 70 25 29 3d 4d 65 6e |ndle%(Lo|op%)=Men|
|000052d0| 75 53 74 72 75 63 74 75 | 72 65 25 2b 50 6f 69 6e |uStructu|re%+Poin|
|000052e0| 74 65 72 25 0d 16 bc 2f | 20 20 20 20 20 20 53 75 |ter%.../| Su|
|000052f0| 62 50 6f 69 6e 74 65 72 | 25 3d 53 75 62 4d 65 6e |bPointer|%=SubMen|
|00005300| 75 49 6e 64 69 72 65 63 | 74 65 64 25 28 4c 6f 6f |uIndirec|ted%(Loo|
|00005310| 70 25 29 0d 16 c6 27 20 | 20 20 20 20 20 4e 75 6d |p%)...' | Num|
|00005320| 62 65 72 4f 66 45 6e 74 | 72 79 73 3d 3f 53 75 62 |berOfEnt|rys=?Sub|
|00005330| 50 6f 69 6e 74 65 72 25 | 2d 31 0d 16 d0 18 20 20 |Pointer%|-1.... |
|00005340| 20 20 20 20 53 75 62 50 | 6f 69 6e 74 65 72 25 2b | SubP|ointer%+|
|00005350| 3d 31 0d 16 da 74 20 20 | 20 20 20 20 e7 20 4e 75 |=1...t | . Nu|
|00005360| 6d 62 65 72 4f 66 45 6e | 74 72 79 73 3c 31 20 8c |mberOfEn|trys<1 .|
|00005370| 20 4d 65 6e 75 48 61 6e | 64 6c 65 25 28 4c 6f 6f | MenuHan|dle%(Loo|
|00005380| 70 25 29 3d 4d 65 6e 75 | 48 61 6e 64 6c 65 25 28 |p%)=Menu|Handle%(|
|00005390| 4c 6f 6f 70 25 29 20 84 | 20 31 3c 3c 33 31 20 3a |Loop%) .| 1<<31 :|
|000053a0| 20 f4 20 4e 6f 20 73 75 | 62 2d 6d 65 6e 75 20 61 | . No su|b-menu a|
|000053b0| 76 61 69 6c 61 62 6c 65 | 20 2d 20 53 65 74 20 54 |vailable| - Set T|
|000053c0| 6f 70 20 42 69 74 0d 16 | e4 12 20 20 20 20 20 20 |op Bit..|.. |
|000053d0| f4 20 48 65 61 64 65 72 | 0d 16 ee 3b 20 20 20 20 |. Header|...; |
|000053e0| 20 20 24 28 4d 65 6e 75 | 53 74 72 75 63 74 75 72 | $(Menu|Structur|
|000053f0| 65 25 2b 50 6f 69 6e 74 | 65 72 25 29 3d 22 53 74 |e%+Point|er%)="St|
|00005400| 79 6c 65 22 20 3a 20 f4 | 20 54 69 74 6c 65 20 54 |yle" : .| Title T|
|00005410| 65 78 74 0d 16 f8 48 20 | 20 20 20 20 20 4d 65 6e |ext...H | Men|
|00005420| 75 53 74 72 75 63 74 75 | 72 65 25 3f 28 50 6f 69 |uStructu|re%?(Poi|
|00005430| 6e 74 65 72 25 2b 31 32 | 29 3d 37 20 20 20 20 20 |nter%+12|)=7 |
|00005440| 3a 20 f4 20 54 69 74 6c | 65 20 46 6f 72 65 67 72 |: . Titl|e Foregr|
|00005450| 6f 75 6e 64 20 43 6f 6c | 6f 75 72 0d 17 02 48 20 |ound Col|our...H |
|00005460| 20 20 20 20 20 4d 65 6e | 75 53 74 72 75 63 74 75 | Men|uStructu|
|00005470| 72 65 25 3f 28 50 6f 69 | 6e 74 65 72 25 2b 31 33 |re%?(Poi|nter%+13|
|00005480| 29 3d 32 20 20 20 20 20 | 3a 20 f4 20 54 69 74 6c |)=2 |: . Titl|
|00005490| 65 20 42 61 63 6b 67 72 | 6f 75 6e 64 20 43 6f 6c |e Backgr|ound Col|
|000054a0| 6f 75 72 0d 17 0c 4c 20 | 20 20 20 20 20 4d 65 6e |our...L | Men|
|000054b0| 75 53 74 72 75 63 74 75 | 72 65 25 3f 28 50 6f 69 |uStructu|re%?(Poi|
|000054c0| 6e 74 65 72 25 2b 31 34 | 29 3d 37 20 20 20 20 20 |nter%+14|)=7 |
|000054d0| 3a 20 f4 20 57 6f 72 6b | 20 41 72 65 61 20 46 6f |: . Work| Area Fo|
|000054e0| 72 65 67 72 6f 75 6e 64 | 20 43 6f 6c 6f 75 72 0d |reground| Colour.|
|000054f0| 17 16 4c 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 |..L | MenuStr|
|00005500| 75 63 74 75 72 65 25 3f | 28 50 6f 69 6e 74 65 72 |ucture%?|(Pointer|
|00005510| 25 2b 31 35 29 3d 30 20 | 20 20 20 20 3a 20 f4 20 |%+15)=0 | : . |
|00005520| 57 6f 72 6b 20 41 72 65 | 61 20 42 61 63 6b 67 72 |Work Are|a Backgr|
|00005530| 6f 75 6e 64 20 43 6f 6c | 6f 75 72 0d 17 20 49 20 |ound Col|our.. I |
|00005540| 20 20 20 20 20 4d 65 6e | 75 53 74 72 75 63 74 75 | Men|uStructu|
|00005550| 72 65 25 21 28 50 6f 69 | 6e 74 65 72 25 2b 31 36 |re%!(Poi|nter%+16|
|00005560| 29 3d 31 36 2a 32 31 20 | 3a 20 f4 20 57 69 64 74 |)=16*21 |: . Widt|
|00005570| 68 20 69 6e 20 63 68 61 | 72 61 63 74 65 72 73 20 |h in cha|racters |
|00005580| 2a 20 31 36 0d 17 2a 44 | 20 20 20 20 20 20 4d 65 |* 16..*D| Me|
|00005590| 6e 75 53 74 72 75 63 74 | 75 72 65 25 21 28 50 6f |nuStruct|ure%!(Po|
|000055a0| 69 6e 74 65 72 25 2b 32 | 30 29 3d 34 30 20 20 20 |inter%+2|0)=40 |
|000055b0| 20 3a 20 f4 20 48 65 69 | 67 68 74 20 6f 66 20 4d | : . Hei|ght of M|
|000055c0| 65 6e 75 20 49 74 65 6d | 0d 17 34 4b 20 20 20 20 |enu Item|..4K |
|000055d0| 20 20 4d 65 6e 75 53 74 | 72 75 63 74 75 72 65 25 | MenuSt|ructure%|
|000055e0| 21 28 50 6f 69 6e 74 65 | 72 25 2b 32 34 29 3d 30 |!(Pointe|r%+24)=0|
|000055f0| 20 20 20 20 20 3a 20 f4 | 20 56 65 72 74 69 63 61 | : .| Vertica|
|00005600| 6c 20 47 61 70 20 42 65 | 74 77 65 65 6e 20 49 74 |l Gap Be|tween It|
|00005610| 65 6d 73 0d 17 3e 16 20 | 20 20 20 20 20 50 6f 69 |ems..>. | Poi|
|00005620| 6e 74 65 72 25 2b 3d 32 | 38 0d 17 48 1f 20 20 20 |nter%+=2|8..H. |
|00005630| 20 20 20 f4 20 44 61 74 | 61 20 66 6f 72 20 65 61 | . Dat|a for ea|
|00005640| 63 68 20 65 6e 74 72 79 | 0d 17 52 25 20 20 20 20 |ch entry|..R% |
|00005650| 20 20 e3 20 4c 6f 6f 70 | 32 25 3d 30 20 b8 20 4e | . Loop|2%=0 . N|
|00005660| 75 6d 62 65 72 4f 66 45 | 6e 74 72 79 73 0d 17 5c |umberOfE|ntrys..\|
|00005670| 2d 20 20 20 20 20 20 20 | 20 20 45 6e 74 72 79 24 |- | Entry$|
|00005680| 3d a4 5f 52 65 61 64 53 | 74 72 69 6e 67 28 53 75 |=._ReadS|tring(Su|
|00005690| 62 50 6f 69 6e 74 65 72 | 25 29 0d 17 66 48 20 20 |bPointer|%)..fH |
|000056a0| 20 20 20 20 20 20 20 4d | 65 6e 75 53 74 72 75 63 | M|enuStruc|
|000056b0| 74 75 72 65 25 21 28 50 | 6f 69 6e 74 65 72 25 2b |ture%!(P|ointer%+|
|000056c0| 30 30 29 3d 30 20 20 20 | 20 20 20 20 20 20 20 20 |00)=0 | |
|000056d0| 20 20 20 20 3a 20 f4 20 | 4d 65 6e 75 20 46 6c 61 | : . |Menu Fla|
|000056e0| 67 73 0d 17 70 47 20 20 | 20 20 20 20 20 20 20 e7 |gs..pG | .|
|000056f0| 20 4c 6f 6f 70 32 25 3d | 4e 75 6d 62 65 72 4f 66 | Loop2%=|NumberOf|
|00005700| 45 6e 74 72 79 73 20 8c | 20 4d 65 6e 75 53 74 72 |Entrys .| MenuStr|
|00005710| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005720| 25 2b 30 30 29 3d 26 38 | 30 0d 17 7a 58 20 20 20 |%+00)=&8|0..zX |
|00005730| 20 20 20 20 20 20 4d 65 | 6e 75 53 74 72 75 63 74 | Me|nuStruct|
|00005740| 75 72 65 25 21 28 50 6f | 69 6e 74 65 72 25 2b 30 |ure%!(Po|inter%+0|
|00005750| 34 29 3d 2d 31 20 20 20 | 20 20 20 20 20 20 20 20 |4)=-1 | |
|00005760| 20 20 20 3a 20 f4 20 53 | 75 62 2d 4d 65 6e 75 20 | : . S|ub-Menu |
|00005770| 50 6f 69 6e 74 65 72 20 | 28 2d 31 3d 4e 4f 4e 45 |Pointer |(-1=NONE|
|00005780| 29 0d 17 84 4c 20 20 20 | 20 20 20 20 20 20 4d 65 |)...L | Me|
|00005790| 6e 75 53 74 72 75 63 74 | 75 72 65 25 21 28 50 6f |nuStruct|ure%!(Po|
|000057a0| 69 6e 74 65 72 25 2b 30 | 38 29 3d 26 31 30 31 20 |inter%+0|8)=&101 |
|000057b0| 84 20 28 37 3c 3c 32 34 | 29 20 3a 20 f4 20 4d 65 |. (7<<24|) : . Me|
|000057c0| 6e 75 20 49 63 6f 6e 20 | 46 6c 61 67 73 0d 17 8e |nu Icon |Flags...|
|000057d0| 5e 20 20 20 20 20 20 20 | 20 20 4d 65 6e 75 53 74 |^ | MenuSt|
|000057e0| 72 75 63 74 75 72 65 25 | 21 28 50 6f 69 6e 74 65 |ructure%|!(Pointe|
|000057f0| 72 25 2b 31 32 29 3d 53 | 75 62 50 6f 69 6e 74 65 |r%+12)=S|ubPointe|
|00005800| 72 25 20 20 20 20 20 3a | 20 f4 20 4d 65 6e 75 20 |r% :| . Menu |
|00005810| 49 63 6f 6e 20 44 61 74 | 61 20 2d 20 50 6f 69 6e |Icon Dat|a - Poin|
|00005820| 74 65 72 20 74 6f 20 74 | 65 78 74 0d 17 98 6b 20 |ter to t|ext...k |
|00005830| 20 20 20 20 20 20 20 20 | 4d 65 6e 75 53 74 72 75 | |MenuStru|
|00005840| 63 74 75 72 65 25 21 28 | 50 6f 69 6e 74 65 72 25 |cture%!(|Pointer%|
|00005850| 2b 31 36 29 3d 2d 31 20 | 20 20 20 20 20 20 20 20 |+16)=-1 | |
|00005860| 20 20 20 20 20 3a 20 f4 | 20 4d 65 6e 75 20 49 63 | : .| Menu Ic|
|00005870| 6f 6e 20 44 61 74 61 20 | 2d 20 50 6f 69 6e 74 65 |on Data |- Pointe|
|00005880| 72 20 74 6f 20 76 61 6c | 69 64 61 74 69 6f 6e 20 |r to val|idation |
|00005890| 73 74 72 69 6e 67 0d 17 | a2 5b 20 20 20 20 20 20 |string..|.[ |
|000058a0| 20 20 20 4d 65 6e 75 53 | 74 72 75 63 74 75 72 65 | MenuS|tructure|
|000058b0| 25 21 28 50 6f 69 6e 74 | 65 72 25 2b 32 30 29 3d |%!(Point|er%+20)=|
|000058c0| a9 28 45 6e 74 72 79 24 | 29 2b 31 20 20 20 3a 20 |.(Entry$|)+1 : |
|000058d0| f4 20 4d 65 6e 75 20 49 | 63 6f 6e 20 44 61 74 61 |. Menu I|con Data|
|000058e0| 20 2d 20 4c 65 6e 67 74 | 68 20 6f 66 20 74 65 78 | - Lengt|h of tex|
|000058f0| 74 0d 17 ac 19 20 20 20 | 20 20 20 20 20 20 50 6f |t.... | Po|
|00005900| 69 6e 74 65 72 25 2b 3d | 32 34 0d 17 b6 25 20 20 |inter%+=|24...% |
|00005910| 20 20 20 20 20 20 20 53 | 75 62 50 6f 69 6e 74 65 | S|ubPointe|
|00005920| 72 25 2b 3d a9 28 45 6e | 74 72 79 24 29 2b 31 0d |r%+=.(En|try$)+1.|
|00005930| 17 c0 0b 20 20 20 20 20 | 20 ed 0d 17 ca 08 20 20 |... | ..... |
|00005940| 20 ed 0d 17 d4 22 20 20 | 20 f4 20 4e 6f 77 20 63 | ...." | . Now c|
|00005950| 72 65 61 74 65 20 4d 61 | 69 6e 20 46 6f 6e 74 20 |reate Ma|in Font |
|00005960| 6d 65 6e 75 0d 17 de 2e | 20 20 20 46 6f 6e 74 4d |menu....| FontM|
|00005970| 65 6e 75 48 61 6e 64 6c | 65 25 3d 4d 65 6e 75 53 |enuHandl|e%=MenuS|
|00005980| 74 72 75 63 74 75 72 65 | 25 2b 50 6f 69 6e 74 65 |tructure|%+Pointe|
|00005990| 72 25 0d 17 e8 0f 20 20 | 20 f4 20 48 65 61 64 65 |r%.... | . Heade|
|000059a0| 72 0d 17 f2 3b 20 20 20 | 24 28 4d 65 6e 75 53 74 |r...; |$(MenuSt|
|000059b0| 72 75 63 74 75 72 65 25 | 2b 50 6f 69 6e 74 65 72 |ructure%|+Pointer|
|000059c0| 25 29 3d 22 54 79 70 65 | 46 61 63 65 22 20 3a 20 |%)="Type|Face" : |
|000059d0| f4 20 54 69 74 6c 65 20 | 54 65 78 74 0d 17 fc 48 |. Title |Text...H|
|000059e0| 20 20 20 4d 65 6e 75 53 | 74 72 75 63 74 75 72 65 | MenuS|tructure|
|000059f0| 25 3f 28 50 6f 69 6e 74 | 65 72 25 2b 31 32 29 3d |%?(Point|er%+12)=|
|00005a00| 37 20 20 20 20 20 20 20 | 20 3a 20 f4 20 54 69 74 |7 | : . Tit|
|00005a10| 6c 65 20 46 6f 72 65 67 | 72 6f 75 6e 64 20 43 6f |le Foreg|round Co|
|00005a20| 6c 6f 75 72 0d 18 06 48 | 20 20 20 4d 65 6e 75 53 |lour...H| MenuS|
|00005a30| 74 72 75 63 74 75 72 65 | 25 3f 28 50 6f 69 6e 74 |tructure|%?(Point|
|00005a40| 65 72 25 2b 31 33 29 3d | 32 20 20 20 20 20 20 20 |er%+13)=|2 |
|00005a50| 20 3a 20 f4 20 54 69 74 | 6c 65 20 42 61 63 6b 67 | : . Tit|le Backg|
|00005a60| 72 6f 75 6e 64 20 43 6f | 6c 6f 75 72 0d 18 10 4c |round Co|lour...L|
|00005a70| 20 20 20 4d 65 6e 75 53 | 74 72 75 63 74 75 72 65 | MenuS|tructure|
|00005a80| 25 3f 28 50 6f 69 6e 74 | 65 72 25 2b 31 34 29 3d |%?(Point|er%+14)=|
|00005a90| 37 20 20 20 20 20 20 20 | 20 3a 20 f4 20 57 6f 72 |7 | : . Wor|
|00005aa0| 6b 20 41 72 65 61 20 46 | 6f 72 65 67 72 6f 75 6e |k Area F|oregroun|
|00005ab0| 64 20 43 6f 6c 6f 75 72 | 0d 18 1a 4c 20 20 20 4d |d Colour|...L M|
|00005ac0| 65 6e 75 53 74 72 75 63 | 74 75 72 65 25 3f 28 50 |enuStruc|ture%?(P|
|00005ad0| 6f 69 6e 74 65 72 25 2b | 31 35 29 3d 30 20 20 20 |ointer%+|15)=0 |
|00005ae0| 20 20 20 20 20 3a 20 f4 | 20 57 6f 72 6b 20 41 72 | : .| Work Ar|
|00005af0| 65 61 20 42 61 63 6b 67 | 72 6f 75 6e 64 20 43 6f |ea Backg|round Co|
|00005b00| 6c 6f 75 72 0d 18 24 49 | 20 20 20 4d 65 6e 75 53 |lour..$I| MenuS|
|00005b10| 74 72 75 63 74 75 72 65 | 25 21 28 50 6f 69 6e 74 |tructure|%!(Point|
|00005b20| 65 72 25 2b 31 36 29 3d | 31 36 2a 31 33 20 20 20 |er%+16)=|16*13 |
|00005b30| 20 3a 20 f4 20 57 69 64 | 74 68 20 69 6e 20 63 68 | : . Wid|th in ch|
|00005b40| 61 72 61 63 74 65 72 73 | 20 2a 20 31 36 0d 18 2e |aracters| * 16...|
|00005b50| 44 20 20 20 4d 65 6e 75 | 53 74 72 75 63 74 75 72 |D Menu|Structur|
|00005b60| 65 25 21 28 50 6f 69 6e | 74 65 72 25 2b 32 30 29 |e%!(Poin|ter%+20)|
|00005b70| 3d 34 30 20 20 20 20 20 | 20 20 3a 20 f4 20 48 65 |=40 | : . He|
|00005b80| 69 67 68 74 20 6f 66 20 | 4d 65 6e 75 20 49 74 65 |ight of |Menu Ite|
|00005b90| 6d 0d 18 38 4b 20 20 20 | 4d 65 6e 75 53 74 72 75 |m..8K |MenuStru|
|00005ba0| 63 74 75 72 65 25 21 28 | 50 6f 69 6e 74 65 72 25 |cture%!(|Pointer%|
|00005bb0| 2b 32 34 29 3d 30 20 20 | 20 20 20 20 20 20 3a 20 |+24)=0 | : |
|00005bc0| f4 20 56 65 72 74 69 63 | 61 6c 20 47 61 70 20 42 |. Vertic|al Gap B|
|00005bd0| 65 74 77 65 65 6e 20 49 | 74 65 6d 73 0d 18 42 13 |etween I|tems..B.|
|00005be0| 20 20 20 50 6f 69 6e 74 | 65 72 25 2b 3d 32 38 0d | Point|er%+=28.|
|00005bf0| 18 4c 26 20 20 20 53 75 | 62 50 6f 69 6e 74 65 72 |.L& Su|bPointer|
|00005c00| 25 3d 46 6f 6e 74 4d 65 | 6e 75 49 6e 64 69 72 65 |%=FontMe|nuIndire|
|00005c10| 63 74 65 64 25 0d 18 56 | 21 20 20 20 4e 75 6d 62 |cted%..V|! Numb|
|00005c20| 65 72 4f 66 45 6e 74 72 | 79 73 3d 54 79 70 65 46 |erOfEntr|ys=TypeF|
|00005c30| 61 63 65 25 2d 31 0d 18 | 60 1c 20 20 20 f4 20 44 |ace%-1..|`. . D|
|00005c40| 61 74 61 20 66 6f 72 20 | 65 61 63 68 20 65 6e 74 |ata for |each ent|
|00005c50| 72 79 0d 18 6a 22 20 20 | 20 e3 20 4c 6f 6f 70 32 |ry..j" | . Loop2|
|00005c60| 25 3d 30 20 b8 20 4e 75 | 6d 62 65 72 4f 66 45 6e |%=0 . Nu|mberOfEn|
|00005c70| 74 72 79 73 0d 18 74 2a | 20 20 20 20 20 20 45 6e |trys..t*| En|
|00005c80| 74 72 79 24 3d a4 5f 52 | 65 61 64 53 74 72 69 6e |try$=._R|eadStrin|
|00005c90| 67 28 53 75 62 50 6f 69 | 6e 74 65 72 25 29 0d 18 |g(SubPoi|nter%)..|
|00005ca0| 7e 4c 20 20 20 20 20 20 | 4d 65 6e 75 53 74 72 75 |~L |MenuStru|
|00005cb0| 63 74 75 72 65 25 21 28 | 50 6f 69 6e 74 65 72 25 |cture%!(|Pointer%|
|00005cc0| 2b 30 30 29 3d 30 20 20 | 20 20 20 20 20 20 20 20 |+00)=0 | |
|00005cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 20 f4 20 | | : . |
|00005ce0| 4d 65 6e 75 20 46 6c 61 | 67 73 0d 18 88 44 20 20 |Menu Fla|gs...D |
|00005cf0| 20 20 20 20 e7 20 4c 6f | 6f 70 32 25 3d 4e 75 6d | . Lo|op2%=Num|
|00005d00| 62 65 72 4f 66 45 6e 74 | 72 79 73 20 8c 20 4d 65 |berOfEnt|rys . Me|
|00005d10| 6e 75 53 74 72 75 63 74 | 75 72 65 25 21 28 50 6f |nuStruct|ure%!(Po|
|00005d20| 69 6e 74 65 72 25 2b 30 | 30 29 3d 26 38 30 0d 18 |inter%+0|0)=&80..|
|00005d30| 92 5c 20 20 20 20 20 20 | 4d 65 6e 75 53 74 72 75 |.\ |MenuStru|
|00005d40| 63 74 75 72 65 25 21 28 | 50 6f 69 6e 74 65 72 25 |cture%!(|Pointer%|
|00005d50| 2b 30 34 29 3d 4d 65 6e | 75 48 61 6e 64 6c 65 25 |+04)=Men|uHandle%|
|00005d60| 28 4c 6f 6f 70 32 25 2b | 31 29 20 20 3a 20 f4 20 |(Loop2%+|1) : . |
|00005d70| 53 75 62 2d 4d 65 6e 75 | 20 50 6f 69 6e 74 65 72 |Sub-Menu| Pointer|
|00005d80| 20 28 2d 31 3d 4e 4f 4e | 45 29 0d 18 9c 30 20 20 | (-1=NON|E)...0 |
|00005d90| 20 20 20 20 e7 20 28 4d | 65 6e 75 48 61 6e 64 6c | . (M|enuHandl|
|00005da0| 65 25 28 4c 6f 6f 70 32 | 25 2b 31 29 20 80 20 31 |e%(Loop2|%+1) . 1|
|00005db0| 3c 3c 33 31 29 3c 3e 30 | 20 8c 0d 18 a6 38 20 20 |<<31)<>0| ....8 |
|00005dc0| 20 20 20 20 20 20 20 f4 | 20 49 66 20 54 6f 70 20 | .| If Top |
|00005dd0| 42 69 74 20 53 65 74 20 | 54 68 65 6e 20 4e 6f 20 |Bit Set |Then No |
|00005de0| 53 75 62 20 4d 65 6e 75 | 20 41 76 61 69 6c 61 62 |Sub Menu| Availab|
|00005df0| 6c 65 0d 18 b0 2c 20 20 | 20 20 20 20 20 20 20 4d |le..., | M|
|00005e00| 65 6e 75 53 74 72 75 63 | 74 75 72 65 25 21 28 50 |enuStruc|ture%!(P|
|00005e10| 6f 69 6e 74 65 72 25 2b | 30 34 29 3d 2d 31 0d 18 |ointer%+|04)=-1..|
|00005e20| ba 46 20 20 20 20 20 20 | 20 20 20 4d 65 6e 75 48 |.F | MenuH|
|00005e30| 61 6e 64 6c 65 25 28 4c | 6f 6f 70 32 25 2b 31 29 |andle%(L|oop2%+1)|
|00005e40| 3d 4d 65 6e 75 48 61 6e | 64 6c 65 25 28 4c 6f 6f |=MenuHan|dle%(Loo|
|00005e50| 70 32 25 2b 31 29 20 80 | 20 28 28 31 3c 3c 33 31 |p2%+1) .| ((1<<31|
|00005e60| 29 2d 31 29 0d 18 c4 0b | 20 20 20 20 20 20 cd 0d |)-1)....| ..|
|00005e70| 18 ce 50 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 |..P | MenuStr|
|00005e80| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005e90| 25 2b 30 38 29 3d 26 31 | 30 31 20 84 20 28 37 3c |%+08)=&1|01 . (7<|
|00005ea0| 3c 32 34 29 20 20 20 20 | 20 20 20 20 3a 20 f4 20 |<24) | : . |
|00005eb0| 4d 65 6e 75 20 49 63 6f | 6e 20 46 6c 61 67 73 0d |Menu Ico|n Flags.|
|00005ec0| 18 d8 62 20 20 20 20 20 | 20 4d 65 6e 75 53 74 72 |..b | MenuStr|
|00005ed0| 75 63 74 75 72 65 25 21 | 28 50 6f 69 6e 74 65 72 |ucture%!|(Pointer|
|00005ee0| 25 2b 31 32 29 3d 53 75 | 62 50 6f 69 6e 74 65 72 |%+12)=Su|bPointer|
|00005ef0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 20 f4 |% | : .|
|00005f00| 20 4d 65 6e 75 20 49 63 | 6f 6e 20 44 61 74 61 20 | Menu Ic|on Data |
|00005f10| 2d 20 50 6f 69 6e 74 65 | 72 20 74 6f 20 74 65 78 |- Pointe|r to tex|
|00005f20| 74 0d 18 e2 6f 20 20 20 | 20 20 20 4d 65 6e 75 53 |t...o | MenuS|
|00005f30| 74 72 75 63 74 75 72 65 | 25 21 28 50 6f 69 6e 74 |tructure|%!(Point|
|00005f40| 65 72 25 2b 31 36 29 3d | 2d 31 20 20 20 20 20 20 |er%+16)=|-1 |
|00005f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00005f60| 20 f4 20 4d 65 6e 75 20 | 49 63 6f 6e 20 44 61 74 | . Menu |Icon Dat|
|00005f70| 61 20 2d 20 50 6f 69 6e | 74 65 72 20 74 6f 20 76 |a - Poin|ter to v|
|00005f80| 61 6c 69 64 61 74 69 6f | 6e 20 73 74 72 69 6e 67 |alidatio|n string|
|00005f90| 0d 18 ec 5f 20 20 20 20 | 20 20 4d 65 6e 75 53 74 |..._ | MenuSt|
|00005fa0| 72 75 63 74 75 72 65 25 | 21 28 50 6f 69 6e 74 65 |ructure%|!(Pointe|
|00005fb0| 72 25 2b 32 30 29 3d a9 | 28 45 6e 74 72 79 24 29 |r%+20)=.|(Entry$)|
|00005fc0| 2b 31 20 20 20 20 20 20 | 20 20 20 20 3a 20 f4 20 |+1 | : . |
|00005fd0| 4d 65 6e 75 20 49 63 6f | 6e 20 44 61 74 61 20 2d |Menu Ico|n Data -|
|00005fe0| 20 4c 65 6e 67 74 68 20 | 6f 66 20 74 65 78 74 0d | Length |of text.|
|00005ff0| 18 f6 16 20 20 20 20 20 | 20 50 6f 69 6e 74 65 72 |... | Pointer|
|00006000| 25 2b 3d 32 34 0d 19 00 | 22 20 20 20 20 20 20 53 |%+=24...|" S|
|00006010| 75 62 50 6f 69 6e 74 65 | 72 25 2b 3d a9 28 45 6e |ubPointe|r%+=.(En|
|00006020| 74 72 79 24 29 2b 31 0d | 19 0a 08 20 20 20 ed 0d |try$)+1.|... ..|
|00006030| 19 14 05 e1 0d 19 1e 05 | 3a 0d ff |........|:.. |
+--------+-------------------------+-------------------------+--------+--------+
