/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _databases / databases / _exchange / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 05 3a 0d | 00 32 1f 56 65 72 73 69 |t...(.:.|.2.Versi|
|00000050| 6f 6e 24 3d 22 30 2e 38 | 32 20 28 31 37 2d 4d 61 |on$="0.8|2 (17-Ma|
|00000060| 79 2d 39 31 29 22 0d 00 | 3c 04 0d 00 46 37 de 20 |y-91)"..|<...F7. |
|00000070| 42 6c 6f 63 6b 25 20 31 | 30 32 34 2a 34 20 20 3a |Block% 1|024*4  :|
|00000080| f4 20 47 65 6e 65 72 61 | 6c 20 70 75 72 70 6f 73 |. Genera|l purpos|
|00000090| 65 20 57 49 4d 50 20 77 | 6f 72 6b 73 70 61 63 65 |e WIMP w|orkspace|
|000000a0| 21 0d 00 50 04 0d 00 5a | 1c f2 5f 49 6e 69 74 69 |!..P...Z|.._Initi|
|000000b0| 61 6c 69 73 65 5f 57 49 | 4d 50 5f 53 79 73 74 65 |alise_WI|MP_Syste|
|000000c0| 6d 0d 00 64 1a f2 5f 49 | 6e 69 74 69 61 6c 69 73 |m..d.._I|nitialis|
|000000d0| 65 5f 54 65 6d 70 6c 61 | 74 65 73 0d 00 6e 22 f2 |e_Templa|tes..n".|
|000000e0| 5f 49 6e 69 74 69 61 6c | 69 73 65 5f 50 72 6f 67 |_Initial|ise_Prog|
|000000f0| 72 61 6d 5f 56 61 72 69 | 61 62 6c 65 73 0d 00 78 |ram_Vari|ables..x|
|00000100| 17 f2 5f 43 72 65 61 74 | 65 49 63 6f 6e 42 61 72 |.._Creat|eIconBar|
|00000110| 4d 65 6e 75 0d 00 82 05 | 3a 0d 00 8c 14 ee 20 85 |Menu....|:..... .|
|00000120| 20 f2 5f 57 69 6d 70 5f | 45 72 72 6f 72 0d 00 96 | ._Wimp_|Error...|
|00000130| 0a f2 5f 4c 6f 61 64 0d | 00 a0 05 3a 0d 00 aa 27 |.._Load.|...:...'|
|00000140| f2 5f 53 65 74 49 63 6f | 6e 54 65 78 74 28 30 37 |._SetIco|nText(07|
|00000150| 2c 49 6e 66 6f 25 2c 56 | 65 72 73 69 6f 6e 24 2c |,Info%,V|ersion$,|
|00000160| 32 33 29 0d 00 b4 05 3a | 0d 00 be 05 3a 0d 00 c8 |23)....:|....:...|
|00000170| 6e f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |n. *****|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 00 d2 6e f4 |********|***...n.|
|000001e0| 20 41 6c 6c 20 52 49 53 | 43 4f 53 2f 57 49 4d 50 | All RIS|COS/WIMP|
|000001f0| 20 53 70 65 63 69 66 69 | 63 20 50 72 6f 63 65 65 | Specifi|c Procee|
|00000200| 64 75 72 65 73 20 46 69 | 72 73 74 2c 20 21 45 78 |dures Fi|rst, !Ex|
|00000210| 63 68 61 6e 67 65 20 50 | 72 6f 63 27 53 20 61 66 |change P|roc'S af|
|00000220| 74 65 72 2e 2e 2e 2e 20 | 4d 61 6b 65 73 20 66 6f |ter.... |Makes fo|
|00000230| 72 20 61 20 62 65 74 74 | 65 72 20 73 6b 65 6c 65 |r a bett|er skele|
|00000240| 74 6f 6e 20 70 72 6f 67 | 21 0d 00 dc 6e f4 20 2a |ton prog|!...n. *|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 0d | 00 e6 04 0d 00 f0 05 f5 |*******.|........|
|000002c0| 0d 00 fa 27 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |...'   .|. "Wimp_|
|000002d0| 50 6f 6c 6c 22 2c 4d 61 | 73 6b 25 2c 42 6c 6f 63 |Poll",Ma|sk%,Bloc|
|000002e0| 6b 25 20 b8 20 41 25 0d | 01 04 27 20 20 20 c8 99 |k% . A%.|..'   ..|
|000002f0| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 50 6f 69 6e 74 | "Wimp_P|ollPoint|
|00000300| 65 72 22 2c 41 25 2c 2c | 4d 79 5f 69 64 25 0d 01 |er",A%,,|My_id%..|
|00000310| 0e 0e 20 20 20 c8 8e 20 | 41 25 20 ca 0d 01 18 1e |..   .. |A% .....|
|00000320| 20 20 20 20 20 20 c9 20 | 31 20 3a 20 f2 5f 52 65 |      . |1 : ._Re|
|00000330| 64 72 61 77 57 69 6e 64 | 6f 77 0d 01 22 43 20 20 |drawWind|ow.."C  |
|00000340| 20 20 20 20 c9 20 32 20 | 3a 20 c8 99 20 22 57 69 |    . 2 |: .. "Wi|
|00000350| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000360| 42 6c 6f 63 6b 25 20 20 | 20 3a 20 f4 20 61 6c 6c |Block%  | : . all|
|00000370| 6f 77 73 20 61 75 74 6f | 20 44 72 61 67 0d 01 2c |ows auto| Drag..,|
|00000380| 23 20 20 20 20 20 20 c9 | 20 33 20 3a 20 e7 20 42 |#      .| 3 : . B|
|00000390| 6c 6f 63 6b 25 21 30 3c | 3e 4d 61 69 6e 25 20 8c |lock%!0<|>Main% .|
|000003a0| 0d 01 36 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |..63    |        |
|000003b0| 20 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 43 |      ..| "Wimp_C|
|000003c0| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 42 6c 6f |loseWind|ow",,Blo|
|000003d0| 63 6b 25 0d 01 40 14 20 | 20 20 20 20 20 20 20 20 |ck%..@. |        |
|000003e0| 20 20 20 20 20 20 cc 0d | 01 4a 45 20 20 20 20 20 |      ..|.JE     |
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f4 20 49 |        |     . I|
|00000400| 66 20 4d 61 69 6e 20 69 | 73 20 63 6c 6f 73 65 64 |f Main i|s closed|
|00000410| 2c 20 74 68 65 6e 20 63 | 6c 6f 73 65 20 70 72 65 |, then c|lose pre|
|00000420| 76 69 65 77 20 61 73 77 | 65 6c 6c 21 0d 01 54 33 |view asw|ell!..T3|
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000440| 20 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |  .. "Wi|mp_Close|
|00000450| 57 69 6e 64 6f 77 22 2c | 2c 42 6c 6f 63 6b 25 0d |Window",|,Block%.|
|00000460| 01 5e 25 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.^%     |        |
|00000470| 20 20 20 20 20 42 6c 6f | 63 6b 25 21 30 3d 46 6f |     Blo|ck%!0=Fo|
|00000480| 75 6e 64 25 0d 01 68 33 | 20 20 20 20 20 20 20 20 |und%..h3|        |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |        |  .. "Wi|
|000004a0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|000004b0| 2c 42 6c 6f 63 6b 25 0d | 01 72 14 20 20 20 20 20 |,Block%.|.r.     |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 cd 0d 01 7c 1d 20 |        |  ...|. |
|000004d0| 20 20 20 20 20 c9 20 36 | 20 3a 20 f2 5f 4d 6f 75 |     . 6| : ._Mou|
|000004e0| 73 65 5f 43 6c 69 63 6b | 0d 01 86 27 20 20 20 20 |se_Click|...'    |
|000004f0| 20 20 c9 20 38 20 3a 20 | f2 5f 50 72 6f 63 65 73 |  . 8 : |._Proces|
|00000500| 73 4b 65 79 28 42 6c 6f | 63 6b 25 21 32 34 29 0d |sKey(Blo|ck%!24).|
|00000510| 01 90 1f 20 20 20 20 20 | 20 c9 20 39 20 3a 20 f2 |...     | . 9 : .|
|00000520| 5f 4d 65 6e 75 53 65 6c | 65 63 74 69 6f 6e 0d 01 |_MenuSel|ection..|
|00000530| 9a 31 20 20 20 20 20 20 | c9 20 31 36 2c 31 37 2c |.1      |. 16,17,|
|00000540| 31 38 20 3a 20 f2 5f 44 | 65 63 6f 64 65 4d 65 73 |18 : ._D|ecodeMes|
|00000550| 73 61 67 65 28 42 6c 6f | 63 6b 25 21 31 36 29 0d |sage(Blo|ck%!16).|
|00000560| 01 a4 08 20 20 20 cb 0d | 01 ae 07 fd 20 a3 0d 01 |...   ..|.... ...|
|00000570| b8 05 3a 0d 01 c2 2f f4 | 20 2a 2a 2a 2a 2a 2a 2a |..:.../.| *******|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005a0| 2a 2a 0d 01 cc 2f f4 20 | 54 68 69 73 20 69 73 20 |**.../. |This is |
|000005b0| 74 68 65 20 57 49 4d 50 | 20 45 72 72 6f 72 20 68 |the WIMP| Error h|
|000005c0| 61 6e 64 6c 69 6e 67 20 | 72 6f 75 74 69 6e 65 20 |andling |routine |
|000005d0| 21 0d 01 d6 2f f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!.../. *|********|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000600| 0d 01 e0 12 dd 20 f2 5f | 57 69 6d 70 5f 45 72 72 |..... ._|Wimp_Err|
|00000610| 6f 72 0d 01 ea 0f 20 20 | 20 ea 20 45 72 72 6f 72 |or....  | . Error|
|00000620| 24 0d 01 f4 17 20 20 20 | c8 99 20 22 4f 53 5f 42 |$....   |.. "OS_B|
|00000630| 79 74 65 22 2c 33 2c 30 | 0d 01 fe 1c 20 20 20 c8 |yte",3,0|....   .|
|00000640| 99 20 22 57 69 6d 70 5f | 44 72 61 67 42 6f 78 22 |. "Wimp_|DragBox"|
|00000650| 2c 2c 2d 31 0d 02 08 43 | 20 20 20 e7 20 49 42 6c |,,-1...C|   . IBl|
|00000660| 6f 63 6b 25 21 38 3c 3e | 30 20 8c 20 49 42 6c 6f |ock%!8<>|0 . IBlo|
|00000670| 63 6b 25 21 38 3d 30 20 | 3a 20 c8 99 20 22 57 69 |ck%!8=0 |: .. "Wi|
|00000680| 6d 70 5f 42 6f 72 64 65 | 72 49 63 6f 6e 22 2c 2c |mp_Borde|rIcon",,|
|00000690| 49 42 6c 6f 63 6b 25 0d | 02 12 10 20 20 20 21 42 |IBlock%.|...   !B|
|000006a0| 6c 6f 63 6b 25 3d 9f 0d | 02 1c 12 20 20 20 45 72 |lock%=..|...   Er|
|000006b0| 72 6f 72 24 20 3d 20 f6 | 24 0d 02 26 5e 20 20 20 |ror$ = .|$..&^   |
|000006c0| e7 20 9f 3c 3e 32 30 30 | 31 20 8c 20 45 72 72 6f |. .<>200|1 . Erro|
|000006d0| 72 24 20 2b 3d 20 22 20 | 28 69 6e 74 65 72 6e 61 |r$ += " |(interna|
|000006e0| 6c 20 65 72 72 6f 72 20 | 63 6f 64 65 20 22 2b c3 |l error |code "+.|
|000006f0| 9e 2b 22 29 2e 20 4f 4b | 20 54 6f 20 43 6f 6e 74 |.+"). OK| To Cont|
|00000700| 69 6e 75 65 2c 20 43 41 | 4e 43 45 4c 20 54 6f 20 |inue, CA|NCEL To |
|00000710| 41 62 6f 72 74 2e 22 0d | 02 30 1e 20 20 20 24 28 |Abort.".|.0.   $(|
|00000720| 42 6c 6f 63 6b 25 2b 34 | 29 3d 45 72 72 6f 72 24 |Block%+4|)=Error$|
|00000730| 20 2b 20 bd 30 0d 02 3a | 4f 20 20 20 c8 99 20 22 | + .0..:|O   .. "|
|00000740| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00000750| 22 2c 42 6c 6f 63 6b 25 | 2c 25 30 30 31 20 2d 20 |",Block%|,%001 - |
|00000760| 28 32 2a 28 9f 3c 3e 32 | 30 30 31 29 29 2c 4d 79 |(2*(.<>2|001)),My|
|00000770| 54 61 73 6b 4e 61 6d 65 | 24 20 b8 20 2c 52 65 73 |TaskName|$ . ,Res|
|00000780| 75 6c 74 25 0d 02 44 20 | 20 20 20 e7 20 52 65 73 |ult%..D |   . Res|
|00000790| 75 6c 74 25 3d 32 20 8c | 20 f2 5f 43 6c 6f 73 65 |ult%=2 .| ._Close|
|000007a0| 44 6f 77 6e 0d 02 4e 05 | e1 0d 02 58 05 3a 0d 02 |Down..N.|...X.:..|
|000007b0| 62 2a f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |b*. ****|********|
|000007c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 02 6c 2a f4 20 4d 6f |********|..l*. Mo|
|000007e0| 75 73 65 20 27 43 6c 69 | 63 6b 27 20 57 68 69 6c |use 'Cli|ck' Whil|
|000007f0| 73 74 20 4f 76 65 72 20 | 4d 65 6e 75 20 49 74 65 |st Over |Menu Ite|
|00000800| 6d 2e 0d 02 76 2a f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |m...v*. |********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 02 80 15 |********|****....|
|00000830| dd 20 f2 5f 4d 65 6e 75 | 53 65 6c 65 63 74 69 6f |. ._Menu|Selectio|
|00000840| 6e 0d 02 8a 14 20 20 20 | c8 8e 20 42 6c 6f 63 6b |n....   |.. Block|
|00000850| 25 21 30 20 ca 0d 02 94 | 24 20 20 20 20 20 20 c9 |%!0 ....|$      .|
|00000860| 20 30 20 3a 20 f2 5f 4f | 70 65 6e 53 75 62 4d 65 | 0 : ._O|penSubMe|
|00000870| 6e 75 28 49 6e 66 6f 25 | 29 0d 02 9e 42 20 20 20 |nu(Info%|)...B   |
|00000880| 20 20 20 c9 20 31 20 3a | 20 f2 5f 43 6c 6f 73 65 |   . 1 :| ._Close|
|00000890| 44 6f 77 6e 20 3a 20 f4 | 20 3c 53 65 6c 65 63 74 |Down : .| <Select|
|000008a0| 3e 20 6f 6e 20 22 71 75 | 69 74 22 20 63 61 75 73 |> on "qu|it" caus|
|000008b0| 65 73 20 73 68 75 74 64 | 6f 77 6e 0d 02 a8 08 20 |es shutd|own.... |
|000008c0| 20 20 cb 0d 02 b2 05 e1 | 0d 02 bc 05 3a 0d 02 c6 |  ......|....:...|
|000008d0| 26 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |&. *****|********|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 0d 02 d0 26 f4 | 20 4d 6f 75 73 65 20 42 |***...&.| Mouse B|
|00000900| 75 74 74 6f 6e 20 53 74 | 61 74 75 73 20 48 61 73 |utton St|atus Has|
|00000910| 20 43 68 61 6e 67 65 64 | 2e 0d 02 da 26 f4 20 2a | Changed|....&. *|
|00000920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000940| 02 e4 13 dd 20 f2 5f 4d | 6f 75 73 65 5f 43 6c 69 |.... ._M|ouse_Cli|
|00000950| 63 6b 0d 02 ee 2b ea 20 | 4d 6f 75 73 65 58 25 2c |ck...+. |MouseX%,|
|00000960| 4d 6f 75 73 65 59 25 2c | 42 75 74 74 6f 6e 25 2c |MouseY%,|Button%,|
|00000970| 57 69 6e 64 6f 77 25 2c | 49 63 6f 6e 25 0d 02 f8 |Window%,|Icon%...|
|00000980| 46 20 20 20 4d 6f 75 73 | 65 58 25 3d 42 6c 6f 63 |F   Mous|eX%=Bloc|
|00000990| 6b 25 21 30 30 20 3a 20 | f4 20 42 6c 6f 63 6b 25 |k%!00 : |. Block%|
|000009a0| 21 30 30 20 3d 20 4d 6f | 75 73 65 20 58 20 28 53 |!00 = Mo|use X (S|
|000009b0| 63 72 65 65 6e 20 43 6f | 2d 6f 72 64 69 6e 61 74 |creen Co|-ordinat|
|000009c0| 65 73 29 0d 03 02 46 20 | 20 20 4d 6f 75 73 65 59 |es)...F |  MouseY|
|000009d0| 25 3d 42 6c 6f 63 6b 25 | 21 30 34 20 3a 20 f4 20 |%=Block%|!04 : . |
|000009e0| 42 6c 6f 63 6b 25 21 30 | 34 20 3d 20 4d 6f 75 73 |Block%!0|4 = Mous|
|000009f0| 65 20 59 20 28 53 63 72 | 65 65 6e 20 43 6f 2d 6f |e Y (Scr|een Co-o|
|00000a00| 72 64 69 6e 61 74 65 73 | 29 0d 03 0c 30 20 20 20 |rdinates|)...0   |
|00000a10| 42 75 74 74 6f 6e 25 3d | 42 6c 6f 63 6b 25 21 30 |Button%=|Block%!0|
|00000a20| 38 20 3a 20 f4 20 42 6c | 6f 63 6b 25 21 30 38 20 |8 : . Bl|ock%!08 |
|00000a30| 3d 20 42 75 74 74 6f 6e | 73 0d 03 16 56 20 20 20 |= Button|s...V   |
|00000a40| 57 69 6e 64 6f 77 25 3d | 42 6c 6f 63 6b 25 21 31 |Window%=|Block%!1|
|00000a50| 32 20 3a 20 f4 20 42 6c | 6f 63 6b 25 21 31 32 20 |2 : . Bl|ock%!12 |
|00000a60| 3d 20 57 69 6e 64 6f 77 | 20 48 61 6e 64 6c 65 20 |= Window| Handle |
|00000a70| 28 42 61 63 6b 47 72 6f | 75 6e 64 20 3d 20 2d 31 |(BackGro|und = -1|
|00000a80| 2c 20 49 63 6f 6e 42 61 | 72 20 3d 20 2d 32 29 0d |, IconBa|r = -2).|
|00000a90| 03 20 51 20 20 20 49 63 | 6f 6e 25 20 20 3d 42 6c |. Q   Ic|on%  =Bl|
|00000aa0| 6f 63 6b 25 21 31 36 20 | 3a 20 f4 20 42 6c 6f 63 |ock%!16 |: . Bloc|
|00000ab0| 6b 25 21 31 36 20 3d 20 | 49 63 6f 6e 20 48 61 6e |k%!16 = |Icon Han|
|00000ac0| 64 6c 65 20 28 20 57 6f | 72 6b 20 41 72 65 61 20 |dle ( Wo|rk Area |
|00000ad0| 42 61 63 6b 47 72 6f 75 | 6e 64 20 3d 20 2d 31 29 |BackGrou|nd = -1)|
|00000ae0| 0d 03 2a 07 20 20 3a 0d | 03 34 2e 20 20 f4 20 54 |..*.  :.|.4.  . T|
|00000af0| 65 6d 70 6f 72 61 72 79 | 20 62 6c 6f 63 6b 20 66 |emporary| block f|
|00000b00| 6f 72 20 75 73 65 20 77 | 69 74 68 20 49 6e 74 65 |or use w|ith Inte|
|00000b10| 72 66 61 63 65 0d 03 3e | 48 20 20 49 42 6c 6f 63 |rface..>|H  IBloc|
|00000b20| 6b 25 3d 42 6c 6f 63 6b | 25 2b 32 30 34 38 3a e3 |k%=Block|%+2048:.|
|00000b30| 20 4c 6f 6f 70 25 3d 30 | 20 b8 20 33 32 20 88 34 | Loop%=0| . 32 .4|
|00000b40| 3a 49 42 6c 6f 63 6b 25 | 21 4c 6f 6f 70 25 3d 42 |:IBlock%|!Loop%=B|
|00000b50| 6c 6f 63 6b 25 21 4c 6f | 6f 70 25 3a ed 0d 03 48 |lock%!Lo|op%:...H|
|00000b60| 07 20 20 3a 0d 03 52 36 | 20 20 20 e7 20 57 69 6e |.  :..R6|   . Win|
|00000b70| 64 6f 77 25 3d 49 63 6f | 6e 42 61 72 25 20 80 20 |dow%=Ico|nBar% . |
|00000b80| 49 63 6f 6e 25 3d 49 63 | 6f 6e 42 61 72 49 63 6f |Icon%=Ic|onBarIco|
|00000b90| 6e 48 61 6e 64 6c 65 25 | 20 8c 0d 03 5c 16 20 20 |nHandle%| ...\.  |
|00000ba0| 20 20 20 20 c8 8e 20 42 | 75 74 74 6f 6e 25 20 ca |    .. B|utton% .|
|00000bb0| 0d 03 66 26 20 20 20 20 | 20 20 20 20 20 c9 20 25 |..f&    |     . %|
|00000bc0| 31 30 30 20 3a 20 f2 5f | 4f 70 65 6e 4d 61 69 6e |100 : ._|OpenMain|
|00000bd0| 57 69 6e 64 6f 77 0d 03 | 70 26 20 20 20 20 20 20 |Window..|p&      |
|00000be0| 20 20 20 c9 20 25 30 30 | 31 20 3a 20 f2 5f 4f 70 |   . %00|1 : ._Op|
|00000bf0| 65 6e 4d 61 69 6e 57 69 | 6e 64 6f 77 0d 03 7a 4e |enMainWi|ndow..zN|
|00000c00| 20 20 20 20 20 20 20 20 | 20 c9 20 25 30 31 30 20 |        | . %010 |
|00000c10| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |: .. "Wi|mp_Creat|
|00000c20| 65 4d 65 6e 75 22 2c 2c | 49 63 6f 6e 42 61 72 4d |eMenu",,|IconBarM|
|00000c30| 65 6e 75 25 2c 42 6c 6f | 63 6b 25 21 30 2d 39 36 |enu%,Blo|ck%!0-96|
|00000c40| 2c 28 34 30 2a 32 29 2b | 39 36 0d 03 84 0b 20 20 |,(40*2)+|96....  |
|00000c50| 20 20 20 20 cb 0d 03 8e | 08 20 20 20 cd 0d 03 98 |    ....|.   ....|
|00000c60| 04 0d 03 a2 28 20 20 20 | e7 20 57 69 6e 64 6f 77 |....(   |. Window|
|00000c70| 25 3d 4d 61 69 6e 25 20 | 80 20 42 75 74 74 6f 6e |%=Main% |. Button|
|00000c80| 25 3c 3e 25 30 31 30 20 | 8c 0d 03 ac 14 20 20 20 |%<>%010 |.....   |
|00000c90| 20 20 20 c8 8e 20 49 63 | 6f 6e 25 20 ca 0d 03 b6 |   .. Ic|on% ....|
|00000ca0| 35 20 20 20 20 20 20 20 | 20 20 c9 20 50 72 69 6e |5       |  . Prin|
|00000cb0| 74 25 20 3a 20 c8 99 20 | 22 57 69 6d 70 5f 42 6f |t% : .. |"Wimp_Bo|
|00000cc0| 72 64 65 72 49 63 6f 6e | 22 2c 2c 49 42 6c 6f 63 |rderIcon|",,IBloc|
|00000cd0| 6b 25 0d 03 c0 25 20 20 | 20 20 20 20 20 20 20 20 |k%...%  |        |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 f2 5f 50 |        |     ._P|
|00000cf0| 72 69 6e 74 4f 75 74 0d | 03 ca 44 20 20 20 20 20 |rintOut.|..D     |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d10| 20 20 49 42 6c 6f 63 6b | 25 21 38 3d 30 3a c8 99 |  IBlock|%!8=0:..|
|00000d20| 20 22 57 69 6d 70 5f 42 | 6f 72 64 65 72 49 63 6f | "Wimp_B|orderIco|
|00000d30| 6e 22 2c 2c 49 42 6c 6f | 63 6b 25 0d 03 d4 0b 20 |n",,IBlo|ck%.... |
|00000d40| 20 20 20 20 20 cb 0d 03 | de 08 20 20 20 cd 0d 03 |     ...|..   ...|
|00000d50| e8 05 e1 0d 03 f2 05 3a | 0d 03 fc 05 3a 0d 04 06 |.......:|....:...|
|00000d60| 49 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |I. *****|********|
|00000d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|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 0d 04 | 10 49 f4 20 57 68 65 6e |******..|.I. When|
|00000db0| 20 61 20 6b 65 79 20 69 | 73 20 70 72 65 73 73 65 | a key i|s presse|
|00000dc0| 64 2c 20 43 68 65 63 6b | 20 69 66 20 69 74 20 63 |d, Check| if it c|
|00000dd0| 6f 6e 63 65 72 6e 73 20 | 6d 65 2e 20 49 66 20 6e |oncerns |me. If n|
|00000de0| 6f 74 2c 20 50 61 73 73 | 20 69 74 20 6f 6e 21 0d |ot, Pass| it on!.|
|00000df0| 04 1a 49 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..I. ***|********|
|00000e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e30| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 04 24 1e dd 20 f2 5f |********|..$.. ._|
|00000e40| 50 72 6f 63 65 73 73 4b | 65 79 28 4b 65 79 50 72 |ProcessK|ey(KeyPr|
|00000e50| 65 73 73 65 64 29 0d 04 | 2e 1d 20 20 20 ea 20 49 |essed)..|..   . I|
|00000e60| 63 6f 6e 25 2c 49 6e 64 | 65 78 25 2c 57 69 6e 64 |con%,Ind|ex%,Wind|
|00000e70| 6f 77 25 0d 04 38 17 20 | 20 20 57 69 6e 64 6f 77 |ow%..8. |  Window|
|00000e80| 25 3d 42 6c 6f 63 6b 25 | 21 30 0d 04 42 15 20 20 |%=Block%|!0..B.  |
|00000e90| 20 49 63 6f 6e 25 3d 42 | 6c 6f 63 6b 25 21 34 0d | Icon%=B|lock%!4.|
|00000ea0| 04 4c 17 20 20 20 49 6e | 64 65 78 25 3d 42 6c 6f |.L.   In|dex%=Blo|
|00000eb0| 63 6b 25 21 32 30 0d 04 | 56 16 20 20 20 c8 8e 20 |ck%!20..|V.   .. |
|00000ec0| 4b 65 79 50 72 65 73 73 | 65 64 20 ca 0d 04 60 04 |KeyPress|ed ...`.|
|00000ed0| 0d 04 6a 2f 20 20 20 20 | 20 20 c9 20 26 31 38 30 |..j/    |  . &180|
|00000ee0| 20 3a 20 c8 99 20 22 57 | 69 6d 70 5f 42 6f 72 64 | : .. "W|imp_Bord|
|00000ef0| 65 72 49 63 6f 6e 22 2c | 2c 42 6c 6f 63 6b 25 0d |erIcon",|,Block%.|
|00000f00| 04 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.t      |        |
|00000f10| 20 20 20 20 20 f2 5f 50 | 72 69 6e 74 4f 75 74 0d |     ._P|rintOut.|
|00000f20| 04 7e 3e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.~>     |        |
|00000f30| 20 20 20 20 20 42 6c 6f | 63 6b 25 21 31 38 3d 30 |     Blo|ck%!18=0|
|00000f40| 3a c8 99 20 22 57 69 6d | 70 5f 42 6f 72 64 65 72 |:.. "Wim|p_Border|
|00000f50| 49 63 6f 6e 22 2c 2c 42 | 6c 6f 63 6b 25 0d 04 88 |Icon",,B|lock%...|
|00000f60| 13 20 20 20 20 20 20 f4 | 20 3c 50 72 69 6e 74 3e |.      .| <Print>|
|00000f70| 0d 04 92 04 0d 04 9c 1b | 20 20 20 20 20 20 c9 20 |........|      . |
|00000f80| 26 30 44 20 20 3a 20 f2 | 5f 53 65 61 72 63 68 0d |&0D  : .|_Search.|
|00000f90| 04 a6 14 20 20 20 20 20 | 20 f4 20 3c 52 65 74 75 |...     | . <Retu|
|00000fa0| 72 6e 3e 0d 04 b0 04 0d | 04 ba 2a 20 20 20 20 20 |rn>.....|..*     |
|00000fb0| 20 7f 20 c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 | . .. "W|imp_Proc|
|00000fc0| 65 73 73 4b 65 79 22 2c | 42 6c 6f 63 6b 25 21 32 |essKey",|Block%!2|
|00000fd0| 34 0d 04 c4 04 0d 04 ce | 08 20 20 20 cb 0d 04 d8 |4.......|.   ....|
|00000fe0| 05 e1 0d 04 e2 05 3a 0d | 04 ec 24 f4 20 2a 2a 2a |......:.|..$. ***|
|00000ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 04 f6 24 f4 |********|***...$.|
|00001010| 20 53 65 74 20 77 68 69 | 63 68 20 69 63 6f 6e 20 | Set whi|ch icon |
|00001020| 74 68 65 20 63 61 72 65 | 74 20 69 73 20 69 6e 0d |the care|t is in.|
|00001030| 05 00 24 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..$. ***|********|
|00001040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001050| 2a 2a 2a 0d 05 0a 26 dd | 20 f2 5f 53 65 74 43 61 |***...&.| ._SetCa|
|00001060| 72 65 74 50 6f 73 69 74 | 69 6f 6e 28 49 63 6f 6e |retPosit|ion(Icon|
|00001070| 25 2c 49 6e 64 65 78 25 | 29 0d 05 14 31 20 20 20 |%,Index%|)...1   |
|00001080| 49 63 6f 6e 4c 65 6e 67 | 74 68 25 3d a9 28 a4 5f |IconLeng|th%=.(._|
|00001090| 52 65 61 64 49 63 6f 6e | 54 65 78 74 28 4d 61 69 |ReadIcon|Text(Mai|
|000010a0| 6e 25 2c 49 63 6f 6e 25 | 29 29 0d 05 1e 30 20 20 |n%,Icon%|))...0  |
|000010b0| 20 e7 20 49 6e 64 65 78 | 25 3e 49 63 6f 6e 4c 65 | . Index|%>IconLe|
|000010c0| 6e 67 74 68 25 20 8c 20 | 49 6e 64 65 78 25 3d 49 |ngth% . |Index%=I|
|000010d0| 63 6f 6e 4c 65 6e 67 74 | 68 25 0d 05 28 39 20 20 |conLengt|h%..(9  |
|000010e0| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 | .. "Wim|p_SetCar|
|000010f0| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 4d 61 69 6e |etPositi|on",Main|
|00001100| 25 2c 49 63 6f 6e 25 2c | 2c 2c 2d 31 2c 49 6e 64 |%,Icon%,|,,-1,Ind|
|00001110| 65 78 25 0d 05 32 05 e1 | 0d 05 3c 05 3a 0d 05 46 |ex%..2..|..<.:..F|
|00001120| 25 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |%. *****|********|
|00001130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001140| 2a 2a 0d 05 50 25 f4 20 | 52 65 64 72 61 77 20 74 |**..P%. |Redraw t|
|00001150| 68 65 20 73 70 65 63 69 | 66 69 69 65 64 20 69 63 |he speci|fiied ic|
|00001160| 6f 6e 20 28 76 32 29 0d | 05 5a 25 f4 20 2a 2a 2a |on (v2).|.Z%. ***|
|00001170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 05 64 1d |********|****..d.|
|00001190| dd 20 f2 5f 52 65 64 72 | 61 77 28 57 69 6e 64 6f |. ._Redr|aw(Windo|
|000011a0| 77 25 2c 49 63 6f 6e 25 | 29 0d 05 6e 17 20 20 20 |w%,Icon%|)..n.   |
|000011b0| 42 6c 6f 63 6b 25 21 30 | 3d 57 69 6e 64 6f 77 25 |Block%!0|=Window%|
|000011c0| 0d 05 78 15 20 20 20 42 | 6c 6f 63 6b 25 21 34 3d |..x.   B|lock%!4=|
|000011d0| 49 63 6f 6e 25 0d 05 82 | 11 20 20 20 42 6c 6f 63 |Icon%...|.   Bloc|
|000011e0| 6b 25 21 38 3d 30 0d 05 | 8c 12 20 20 20 42 6c 6f |k%!8=0..|..   Blo|
|000011f0| 63 6b 25 21 31 32 3d 30 | 0d 05 96 25 20 20 20 c8 |ck%!12=0|...%   .|
|00001200| 99 20 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |. "Wimp_|SetIconS|
|00001210| 74 61 74 65 22 2c 2c 42 | 6c 6f 63 6b 25 0d 05 a0 |tate",,B|lock%...|
|00001220| 05 e1 0d 05 aa 05 3a 0d | 05 b4 45 f4 20 2a 2a 2a |......:.|..E. ***|
|00001230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 05 be 48 |********|****...H|
|00001270| f4 20 57 68 65 6e 20 61 | 20 6d 65 73 73 61 67 65 |. When a| message|
|00001280| 20 69 73 20 72 65 63 65 | 69 76 65 64 2c 20 43 6f | is rece|ived, Co|
|00001290| 6e 74 72 6f 6c 20 69 73 | 20 70 61 73 73 65 64 20 |ntrol is| passed |
|000012a0| 74 6f 20 68 65 72 65 20 | 66 6f 72 20 64 65 63 6f |to here |for deco|
|000012b0| 64 69 6e 67 0d 05 c8 45 | f4 20 2a 2a 2a 2a 2a 2a |ding...E|. ******|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 05 d2 1f dd 20 f2 |********|*..... .|
|00001300| 5f 44 65 63 6f 64 65 4d | 65 73 73 61 67 65 28 52 |_DecodeM|essage(R|
|00001310| 65 71 75 65 73 74 25 29 | 0d 05 dc 14 20 20 20 c8 |equest%)|....   .|
|00001320| 8e 20 52 65 71 75 65 73 | 74 25 20 ca 0d 05 e6 20 |. Reques|t% .... |
|00001330| 20 20 20 20 20 20 c9 20 | 30 20 20 20 20 20 20 3a |      . |0      :|
|00001340| 20 f2 5f 43 6c 6f 73 65 | 44 6f 77 6e 0d 05 f0 36 | ._Close|Down...6|
|00001350| 20 20 20 20 20 20 c9 20 | 26 35 30 32 20 20 20 3a |      . |&502   :|
|00001360| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 49 6e | .. "Wim|p_SendIn|
|00001370| 66 6f 72 6d 61 74 69 6f | 6e 22 2c 2c 42 6c 6f 63 |formatio|n",,Bloc|
|00001380| 6b 25 0d 05 fa 23 20 20 | 20 20 20 20 c9 20 26 34 |k%...#  |    . &4|
|00001390| 30 30 43 31 20 3a 20 f2 | 5f 53 65 74 55 70 50 61 |00C1 : .|_SetUpPa|
|000013a0| 6c 65 74 74 65 0d 06 04 | 50 20 20 20 20 20 20 c9 |lette...|P      .|
|000013b0| 20 26 34 30 30 43 32 20 | 3a 20 e7 20 a4 5f 52 65 | &400C2 |: . ._Re|
|000013c0| 61 64 53 74 72 69 6e 67 | 28 42 6c 6f 63 6b 25 2b |adString|(Block%+|
|000013d0| 32 38 29 3d 4d 79 54 61 | 73 6b 4e 61 6d 65 24 20 |28)=MyTa|skName$ |
|000013e0| 80 20 42 6c 6f 63 6b 25 | 21 34 3c 3e 20 4d 79 5f |. Block%|!4<> My_|
|000013f0| 69 64 25 20 8c 0d 06 0e | 5a 20 20 20 20 20 20 20 |id% ....|Z       |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001410| f4 20 41 6e 6f 74 68 65 | 72 20 21 45 78 63 68 61 |. Anothe|r !Excha|
|00001420| 6e 67 65 20 69 73 20 74 | 72 79 69 6e 67 20 74 6f |nge is t|rying to|
|00001430| 20 73 74 61 72 74 20 75 | 70 2c 20 73 6f 20 49 20 | start u|p, so I |
|00001440| 61 6d 20 73 6f 64 64 69 | 6e 67 20 6f 66 66 21 0d |am soddi|ng off!.|
|00001450| 06 18 26 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..&     |        |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 f2 5f 43 6c 6f 73 |        |  ._Clos|
|00001470| 65 44 6f 77 6e 0d 06 22 | 19 20 20 20 20 20 20 20 |eDown.."|.       |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 cd 0d 06 |        |     ...|
|00001490| 2c 08 20 20 20 cb 0d 06 | 36 05 e1 0d 06 40 05 3a |,.   ...|6....@.:|
|000014a0| 0d 06 4a 50 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..JP. **|********|
|000014b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014f0| 0d 06 54 50 f4 20 52 65 | 61 64 20 69 6e 20 68 6f |..TP. Re|ad in ho|
|00001500| 77 20 6d 61 6e 79 20 63 | 6f 6c 6f 75 72 73 20 61 |w many c|olours a|
|00001510| 72 65 20 61 76 61 69 6c | 61 62 6c 65 2c 20 61 6e |re avail|able, an|
|00001520| 64 20 73 65 74 20 75 70 | 20 6d 79 20 74 77 6f 20 |d set up| my two |
|00001530| 63 6f 6c 6f 75 72 73 20 | 74 6f 20 73 75 69 74 21 |colours |to suit!|
|00001540| 0d 06 5e 50 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..^P. **|********|
|00001550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001590| 0d 06 68 14 dd 20 f2 5f | 53 65 74 55 70 50 61 6c |..h.. ._|SetUpPal|
|000015a0| 65 74 74 65 0d 06 72 35 | 20 20 20 c8 99 20 22 4f |ette..r5|   .. "O|
|000015b0| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|000015c0| 6c 65 22 2c 2d 31 2c 33 | 20 b8 20 2c 2c 4e 6f 4f |le",-1,3| . ,,NoO|
|000015d0| 66 43 6f 6c 6f 75 72 73 | 25 0d 06 7c 18 20 20 20 |fColours|%..|.   |
|000015e0| c8 8e 20 4e 6f 4f 66 43 | 6f 6c 6f 75 72 73 25 20 |.. NoOfC|olours% |
|000015f0| ca 0d 06 86 33 20 20 20 | 20 20 20 c9 20 31 2c 33 |....3   |   . 1,3|
|00001600| 2c 31 35 20 20 3a 20 42 | 61 73 65 43 6f 6c 6f 75 |,15  : B|aseColou|
|00001610| 72 25 3d 37 20 3a 20 54 | 6f 77 6e 43 6f 6c 6f 75 |r%=7 : T|ownColou|
|00001620| 72 25 3d 33 0d 06 90 30 | 20 20 20 20 20 20 c9 20 |r%=3...0|      . |
|00001630| 36 33 20 3a 20 42 61 73 | 65 43 6f 6c 6f 75 72 25 |63 : Bas|eColour%|
|00001640| 3d 36 34 20 3a 20 54 6f | 77 6e 43 6f 6c 6f 75 72 |=64 : To|wnColour|
|00001650| 25 3d 34 32 0d 06 9a 08 | 20 20 20 cb 0d 06 a4 05 |%=42....|   .....|
|00001660| e1 0d 06 ae 05 3a 0d 06 | b8 41 f4 20 2a 2a 2a 2a |.....:..|.A. ****|
|00001670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016a0| 2a 2a 2a 2a 2a 2a 2a 0d | 06 c2 41 f4 20 41 6c 6c |*******.|..A. All|
|000016b0| 20 57 49 4d 50 20 50 72 | 6f 67 72 61 6d 73 20 73 | WIMP Pr|ograms s|
|000016c0| 68 6f 75 6c 64 20 62 65 | 20 61 62 6c 65 20 74 6f |hould be| able to|
|000016d0| 20 73 68 75 74 20 74 68 | 65 6d 73 65 6c 76 65 73 | shut th|emselves|
|000016e0| 20 64 6f 77 6e 21 21 21 | 0d 06 cc 41 f4 20 2a 2a | down!!!|...A. **|
|000016f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 06 d6 11 dd 20 f2 |********|*..... .|
|00001730| 5f 43 6c 6f 73 65 44 6f | 77 6e 0d 06 e0 27 20 20 |_CloseDo|wn...'  |
|00001740| 20 c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 | .. "Wim|p_GetPoi|
|00001750| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 42 6c 6f 63 6b |nterInfo|",,Block|
|00001760| 25 0d 06 ea 2b 20 20 20 | c8 99 20 22 57 69 6d 70 |%...+   |.. "Wimp|
|00001770| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 4d 79 5f 69 |_CloseDo|wn",My_i|
|00001780| 64 25 2c 26 34 42 35 33 | 34 31 35 34 0d 06 f4 28 |d%,&4B53|4154...(|
|00001790| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 6c 65 |   .. "W|imp_Rele|
|000017a0| 61 73 65 49 6e 74 65 72 | 66 61 63 65 22 2c 4d 79 |aseInter|face",My|
|000017b0| 5f 69 64 25 0d 06 fe 13 | 20 20 20 c8 99 20 22 4f |_id%....|   .. "O|
|000017c0| 53 5f 45 78 69 74 22 0d | 07 08 05 e1 0d 07 12 05 |S_Exit".|........|
|000017d0| 3a 0d 07 1c 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |:...I. *|********|
|000017e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 07 26 49 f4 20 |********|**..&I. |
|00001820| 54 68 69 73 20 77 72 69 | 74 65 73 20 6f 76 65 72 |This wri|tes over|
|00001830| 20 74 68 65 20 74 65 78 | 74 20 69 6e 20 74 68 65 | the tex|t in the|
|00001840| 20 49 63 6f 6e 2c 20 61 | 6e 64 20 69 74 20 73 68 | Icon, a|nd it sh|
|00001850| 6f 75 6c 64 20 6e 6f 74 | 20 62 65 20 64 6f 6e 65 |ould not| be done|
|00001860| 21 21 21 0d 07 30 2e f4 | 20 4f 6e 6c 79 20 57 6f |!!!..0..| Only Wo|
|00001870| 72 6b 73 20 57 69 74 68 | 20 49 6e 64 69 72 65 63 |rks With| Indirec|
|00001880| 74 65 64 20 54 65 78 74 | 20 53 74 72 69 6e 67 73 |ted Text| Strings|
|00001890| 21 0d 07 3a 49 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!..:I. *|********|
|000018a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 07 44 3f dd 20 |********|**..D?. |
|000018e0| f2 5f 53 65 74 49 63 6f | 6e 54 65 78 74 28 49 63 |._SetIco|nText(Ic|
|000018f0| 6f 6e 48 61 6e 64 6c 65 | 25 2c 57 69 6e 64 6f 77 |onHandle|%,Window|
|00001900| 48 61 6e 64 6c 65 25 2c | 54 65 78 74 24 2c 4d 61 |Handle%,|Text$,Ma|
|00001910| 78 4c 65 6e 67 74 68 25 | 29 0d 07 4e 11 20 20 20 |xLength%|)..N.   |
|00001920| ea 20 50 6f 69 6e 74 65 | 72 25 0d 07 58 1d 20 20 |. Pointe|r%..X.  |
|00001930| 20 42 6c 6f 63 6b 25 21 | 30 3d 57 69 6e 64 6f 77 | Block%!|0=Window|
|00001940| 48 61 6e 64 6c 65 25 0d | 07 62 1b 20 20 20 42 6c |Handle%.|.b.   Bl|
|00001950| 6f 63 6b 25 21 34 3d 49 | 63 6f 6e 48 61 6e 64 6c |ock%!4=I|conHandl|
|00001960| 65 25 0d 07 6c 25 20 20 | 20 c8 99 20 22 57 69 6d |e%..l%  | .. "Wim|
|00001970| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00001980| 2c 42 6c 6f 63 6b 25 0d | 07 76 22 20 20 20 e7 20 |,Block%.|.v"   . |
|00001990| 28 42 6c 6f 63 6b 25 21 | 32 34 20 80 20 28 31 3c |(Block%!|24 . (1<|
|000019a0| 3c 38 29 29 3c 3e 30 20 | 8c 0d 07 80 1c 20 20 20 |<8))<>0 |.....   |
|000019b0| 20 20 20 50 6f 69 6e 74 | 65 72 25 3d 42 6c 6f 63 |   Point|er%=Bloc|
|000019c0| 6b 25 21 32 38 0d 07 8a | 08 20 20 20 cc 0d 07 94 |k%!28...|.   ....|
|000019d0| 1c 20 20 20 20 20 20 50 | 6f 69 6e 74 65 72 25 3d |.      P|ointer%=|
|000019e0| 42 6c 6f 63 6b 25 2b 32 | 38 0d 07 9e 08 20 20 20 |Block%+2|8....   |
|000019f0| cd 0d 07 a8 1c 20 20 20 | e7 20 a9 54 65 78 74 24 |.....   |. .Text$|
|00001a00| 3e 4d 61 78 4c 65 6e 67 | 74 68 25 20 8c 0d 07 b2 |>MaxLeng|th% ....|
|00001a10| 17 20 20 20 20 20 20 42 | 6c 6f 63 6b 25 21 30 3d |.      B|lock%!0=|
|00001a20| 32 30 30 31 0d 07 bc 5a | 20 20 20 20 20 20 45 72 |2001...Z|      Er|
|00001a30| 72 6f 72 24 20 3d 20 22 | 49 6c 6c 65 67 61 6c 20 |ror$ = "|Illegal |
|00001a40| 61 74 74 65 6d 70 74 20 | 74 6f 20 65 78 74 65 6e |attempt |to exten|
|00001a50| 64 20 49 63 6f 6e 20 74 | 65 78 74 20 73 74 72 69 |d Icon t|ext stri|
|00001a60| 6e 67 21 20 28 49 6e 74 | 65 72 6e 61 6c 20 65 72 |ng! (Int|ernal er|
|00001a70| 72 6f 72 20 22 2b c3 28 | 9e 29 2b 22 2e 22 0d 07 |ror "+.(|.)+"."..|
|00001a80| c6 49 20 20 20 20 20 20 | 45 72 72 6f 72 24 20 3d |.I      |Error$ =|
|00001a90| 20 45 72 72 6f 72 24 20 | 2b 20 c3 28 a9 28 54 65 | Error$ |+ .(.(Te|
|00001aa0| 78 74 24 29 29 20 2b 20 | 22 2f 22 20 2b 20 c3 28 |xt$)) + |"/" + .(|
|00001ab0| 4d 61 78 4c 65 6e 67 74 | 68 25 29 20 2b 20 22 2e |MaxLengt|h%) + ".|
|00001ac0| 29 22 20 2b 20 bd 30 0d | 07 d0 1c 20 20 20 20 20 |)" + .0.|...     |
|00001ad0| 20 24 28 42 6c 6f 63 6b | 25 2b 34 29 3d 45 72 72 | $(Block|%+4)=Err|
|00001ae0| 6f 72 24 0d 07 da 44 20 | 20 20 20 20 20 c8 99 20 |or$...D |     .. |
|00001af0| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00001b00| 72 22 2c 42 6c 6f 63 6b | 25 2c 25 31 30 30 30 31 |r",Block|%,%10001|
|00001b10| 2c 4d 79 54 61 73 6b 4e | 61 6d 65 24 20 b8 20 2c |,MyTaskN|ame$ . ,|
|00001b20| 52 65 73 75 6c 74 25 0d | 07 e4 23 20 20 20 20 20 |Result%.|..#     |
|00001b30| 20 e7 20 52 65 73 75 6c | 74 25 3d 31 20 8c 20 f2 | . Resul|t%=1 . .|
|00001b40| 5f 43 6c 6f 73 65 44 6f | 77 6e 0d 07 ee 08 20 20 |_CloseDo|wn....  |
|00001b50| 20 cc 0d 07 f8 19 20 20 | 20 20 20 20 24 50 6f 69 | .....  |    $Poi|
|00001b60| 6e 74 65 72 25 3d 54 65 | 78 74 24 0d 08 02 08 20 |nter%=Te|xt$.... |
|00001b70| 20 20 cd 0d 08 0c 05 e1 | 0d 08 16 05 3a 0d 08 20 |  ......|....:.. |
|00001b80| 43 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |C. *****|********|
|00001b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bc0| 0d 08 2a 43 f4 20 54 68 | 69 73 20 74 61 6b 65 73 |..*C. Th|is takes|
|00001bd0| 20 61 20 53 70 72 69 74 | 65 20 61 6e 64 20 6d 61 | a Sprit|e and ma|
|00001be0| 6b 65 73 20 69 74 20 69 | 6e 74 6f 20 61 6e 20 49 |kes it i|nto an I|
|00001bf0| 63 6f 6e 20 46 6f 72 20 | 74 68 65 20 49 63 6f 6e |con For |the Icon|
|00001c00| 42 61 72 0d 08 34 43 f4 | 20 2a 2a 2a 2a 2a 2a 2a |Bar..4C.| *******|
|00001c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c40| 2a 2a 2a 2a 2a 2a 0d 08 | 3e 19 dd 20 a4 5f 43 72 |******..|>.. ._Cr|
|00001c50| 65 61 74 65 49 63 6f 6e | 42 61 72 49 63 6f 6e 0d |eateIcon|BarIcon.|
|00001c60| 08 48 0e 20 20 20 ea 20 | 49 63 6f 6e 25 0d 08 52 |.H.   . |Icon%..R|
|00001c70| 12 20 20 20 42 6c 6f 63 | 6b 25 21 30 3d 2d 31 0d |.   Bloc|k%!0=-1.|
|00001c80| 08 5c 11 20 20 20 42 6c | 6f 63 6b 25 21 34 3d 30 |.\.   Bl|ock%!4=0|
|00001c90| 0d 08 66 11 20 20 20 42 | 6c 6f 63 6b 25 21 38 3d |..f.   B|lock%!8=|
|00001ca0| 30 0d 08 70 13 20 20 20 | 42 6c 6f 63 6b 25 21 31 |0..p.   |Block%!1|
|00001cb0| 32 3d 38 34 0d 08 7a 13 | 20 20 20 42 6c 6f 63 6b |2=84..z.|   Block|
|00001cc0| 25 21 31 36 3d 38 30 0d | 08 84 20 20 20 20 42 6c |%!16=80.|..    Bl|
|00001cd0| 6f 63 6b 25 21 32 30 3d | 25 31 30 30 30 30 30 30 |ock%!20=|%1000000|
|00001ce0| 30 30 30 30 30 31 30 0d | 08 8e 1f 20 20 20 24 28 |0000010.|...   $(|
|00001cf0| 42 6c 6f 63 6b 25 2b 32 | 34 29 3d 22 21 45 78 63 |Block%+2|4)="!Exc|
|00001d00| 68 61 6e 67 65 22 0d 08 | 98 2b 20 20 20 c8 99 20 |hange"..|.+   .. |
|00001d10| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00001d20| 22 2c 2c 42 6c 6f 63 6b | 25 20 b8 20 49 63 6f 6e |",,Block|% . Icon|
|00001d30| 25 0d 08 a2 0a 3d 49 63 | 6f 6e 25 0d 08 ac 05 3a |%....=Ic|on%....:|
|00001d40| 0d 08 b6 33 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...3. **|********|
|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 2a 2a |********|********|
|00001d70| 2a 2a 2a 0d 08 c0 33 f4 | 20 52 65 61 64 20 49 6e |***...3.| Read In|
|00001d80| 66 6f 20 66 6f 72 20 57 | 69 6e 64 6f 77 20 4d 61 |fo for W|indow Ma|
|00001d90| 69 6e 2c 20 61 6e 64 20 | 74 68 65 6e 20 6f 70 65 |in, and |then ope|
|00001da0| 6e 20 69 74 20 21 0d 08 | ca 33 f4 20 2a 2a 2a 2a |n it !..|.3. ****|
|00001db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 08 d4 16 dd 20 f2 |********|*..... .|
|00001de0| 5f 4f 70 65 6e 4d 61 69 | 6e 57 69 6e 64 6f 77 0d |_OpenMai|nWindow.|
|00001df0| 08 de 14 20 20 20 21 42 | 6c 6f 63 6b 25 3d 4d 61 |...   !B|lock%=Ma|
|00001e00| 69 6e 25 0d 08 e8 27 20 | 20 20 c8 99 20 22 57 69 |in%...' |  .. "Wi|
|00001e10| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00001e20| 65 22 2c 2c 42 6c 6f 63 | 6b 25 0d 08 f2 23 20 20 |e",,Bloc|k%...#  |
|00001e30| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00001e40| 6e 64 6f 77 22 2c 2c 42 | 6c 6f 63 6b 25 0d 08 fc |ndow",,B|lock%...|
|00001e50| 22 20 20 20 f2 5f 53 65 | 74 43 61 72 65 74 50 6f |"   ._Se|tCaretPo|
|00001e60| 73 69 74 69 6f 6e 28 44 | 61 74 61 25 2c 30 29 0d |sition(D|ata%,0).|
|00001e70| 09 06 05 e1 0d 09 10 05 | 3a 0d 09 1a 4c f4 20 2a |........|:...L. *|
|00001e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ec0| 2a 2a 2a 2a 2a 0d 09 24 | 4c f4 20 54 68 69 73 20 |*****..$|L. This |
|00001ed0| 72 65 61 64 73 20 74 68 | 65 20 74 65 78 74 20 66 |reads th|e text f|
|00001ee0| 72 6f 6d 20 74 68 65 20 | 77 72 69 74 61 62 6c 65 |rom the |writable|
|00001ef0| 20 49 63 6f 6e 20 73 70 | 65 63 69 66 69 65 64 20 | Icon sp|ecified |
|00001f00| 69 6e 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |in the p|arameter|
|00001f10| 73 0d 09 2e 41 f4 20 61 | 6e 64 20 69 66 20 50 61 |s...A. a|nd if Pa|
|00001f20| 64 25 3d 54 52 55 45 20 | 74 68 65 6e 20 70 61 64 |d%=TRUE |then pad|
|00001f30| 73 20 6f 75 74 20 74 68 | 65 20 72 65 73 75 6c 74 |s out th|e result|
|00001f40| 20 74 6f 20 33 32 20 63 | 68 61 72 61 63 74 65 72 | to 32 c|haracter|
|00001f50| 73 21 0d 09 38 4c f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |s!..8L. |********|
|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 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 09 |********|******..|
|00001fa0| 42 2f dd 20 a4 5f 52 65 | 61 64 49 63 6f 6e 54 65 |B/. ._Re|adIconTe|
|00001fb0| 78 74 28 57 69 6e 64 6f | 77 48 61 6e 64 6c 65 25 |xt(Windo|wHandle%|
|00001fc0| 2c 49 63 6f 6e 48 61 6e | 64 6c 65 25 29 0d 09 4c |,IconHan|dle%)..L|
|00001fd0| 10 20 20 20 ea 20 52 65 | 73 75 6c 74 24 0d 09 56 |.   . Re|sult$..V|
|00001fe0| 20 20 20 20 42 6c 6f 63 | 6b 25 21 31 30 32 34 3d |    Bloc|k%!1024=|
|00001ff0| 57 69 6e 64 6f 77 48 61 | 6e 64 6c 65 25 0d 09 60 |WindowHa|ndle%..`|
|00002000| 1e 20 20 20 42 6c 6f 63 | 6b 25 21 31 30 32 38 3d |.   Bloc|k%!1028=|
|00002010| 49 63 6f 6e 48 61 6e 64 | 6c 65 25 0d 09 6a 2a 20 |IconHand|le%..j* |
|00002020| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |  .. "Wi|mp_GetIc|
|00002030| 6f 6e 53 74 61 74 65 22 | 2c 2c 42 6c 6f 63 6b 25 |onState"|,,Block%|
|00002040| 2b 31 30 32 34 0d 09 74 | 24 20 20 20 e7 20 28 42 |+1024..t|$   . (B|
|00002050| 6c 6f 63 6b 25 21 31 30 | 34 38 20 80 20 28 31 3c |lock%!10|48 . (1<|
|00002060| 3c 38 29 29 3c 3e 30 20 | 8c 0d 09 7e 20 20 20 20 |<8))<>0 |...~    |
|00002070| 20 20 20 52 65 73 75 6c | 74 24 3d 24 28 42 6c 6f |   Resul|t$=$(Blo|
|00002080| 63 6b 25 21 31 30 35 32 | 29 0d 09 88 08 20 20 20 |ck%!1052|)....   |
|00002090| cc 0d 09 92 20 20 20 20 | 20 20 20 52 65 73 75 6c |....    |   Resul|
|000020a0| 74 24 3d 24 28 42 6c 6f | 63 6b 25 2b 31 30 35 32 |t$=$(Blo|ck%+1052|
|000020b0| 29 0d 09 9c 08 20 20 20 | cd 0d 09 a6 0c 3d 52 65 |)....   |.....=Re|
|000020c0| 73 75 6c 74 24 0d 09 b0 | 05 3a 0d 09 ba 3b f4 20 |sult$...|.:...;. |
|000020d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000020f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002100| 2a 2a 2a 2a 2a 0d 09 c4 | 3b f4 20 52 65 61 64 20 |*****...|;. Read |
|00002110| 61 20 73 74 72 69 6e 67 | 20 66 72 6f 6d 20 61 20 |a string| from a |
|00002120| 70 6f 69 6e 74 65 72 2c | 20 75 73 69 6e 67 20 61 |pointer,| using a|
|00002130| 20 7a 65 72 6f 2d 74 65 | 72 6d 69 6e 61 74 6f 72 | zero-te|rminator|
|00002140| 0d 09 ce 3b f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...;. **|********|
|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 0d 09 d8 1c dd |********|***.....|
|00002180| 20 a4 5f 52 65 61 64 53 | 74 72 69 6e 67 28 50 6f | ._ReadS|tring(Po|
|00002190| 69 6e 74 65 72 25 29 0d | 09 e2 10 20 20 20 ea 20 |inter%).|...   . |
|000021a0| 53 74 72 69 6e 67 24 0d | 09 ec 16 20 20 20 c8 95 |String$.|...   ..|
|000021b0| 20 3f 50 6f 69 6e 74 65 | 72 25 3c 3e 30 0d 09 f6 | ?Pointe|r%<>0...|
|000021c0| 1d 20 20 20 20 20 20 53 | 74 72 69 6e 67 24 2b 3d |.      S|tring$+=|
|000021d0| bd 3f 50 6f 69 6e 74 65 | 72 25 0d 0a 00 15 20 20 |.?Pointe|r%....  |
|000021e0| 20 20 20 20 50 6f 69 6e | 74 65 72 25 2b 3d 31 0d |    Poin|ter%+=1.|
|000021f0| 0a 0a 08 20 20 20 ce 0d | 0a 14 0c 3d 53 74 72 69 |...   ..|...=Stri|
|00002200| 6e 67 24 0d 0a 1e 05 3a | 0d 0a 28 2d f4 20 2a 2a |ng$....:|..(-. **|
|00002210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002230| 2a 2a 2a 2a 2a 0d 0a 32 | 2d f4 20 41 6c 6c 6f 77 |*****..2|-. Allow|
|00002240| 73 20 61 20 6d 65 6e 75 | 20 74 6f 20 62 65 20 6f |s a menu| to be o|
|00002250| 70 65 6e 65 64 20 61 73 | 20 61 20 77 69 6e 64 6f |pened as| a windo|
|00002260| 77 2e 0d 0a 3c 2d f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |w...<-. |********|
|00002270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002290| 0a 46 1c dd 20 f2 5f 4f | 70 65 6e 53 75 62 4d 65 |.F.. ._O|penSubMe|
|000022a0| 6e 75 28 57 69 6e 64 6f | 77 25 29 0d 0a 50 27 20 |nu(Windo|w%)..P' |
|000022b0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 50 6f |  .. "Wi|mp_GetPo|
|000022c0| 69 6e 74 65 72 49 6e 66 | 6f 22 2c 2c 42 6c 6f 63 |interInf|o",,Bloc|
|000022d0| 6b 25 0d 0a 5a 3c 20 20 | 20 c8 99 20 22 57 69 6d |k%..Z<  | .. "Wim|
|000022e0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 57 |p_Create|Menu",,W|
|000022f0| 69 6e 64 6f 77 25 2c 42 | 6c 6f 63 6b 25 21 30 2d |indow%,B|lock%!0-|
|00002300| 36 34 2c 42 6c 6f 63 6b | 25 21 34 2b 34 38 0d 0a |64,Block|%!4+48..|
|00002310| 64 05 e1 0d 0a 6e 05 3a | 0d 0a 78 39 f4 20 2a 2a |d....n.:|..x9. **|
|00002320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002350| 2a 0d 0a 82 39 f4 20 57 | 72 69 74 65 73 20 61 20 |*...9. W|rites a |
|00002360| 73 74 72 69 6e 67 20 69 | 6e 74 6f 20 6d 65 6d 6f |string i|nto memo|
|00002370| 72 79 20 77 69 74 68 20 | 61 20 7a 65 72 6f 20 74 |ry with |a zero t|
|00002380| 65 72 6d 69 6e 61 74 6f | 72 2e 0d 0a 8c 11 f4 20 |erminato|r...... |
|00002390| 55 73 65 73 20 3a 20 4e | 4f 4e 45 0d 0a 96 39 f4 |Uses : N|ONE...9.|
|000023a0| 20 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 2a 2a |********|********|
|000023d0| 2a 2a 2a 2a 0d 0a a0 23 | dd 20 f2 5f 57 72 69 74 |****...#|. ._Writ|
|000023e0| 65 53 74 72 69 6e 67 28 | 50 6f 69 6e 74 65 72 25 |eString(|Pointer%|
|000023f0| 2c 54 65 78 74 24 29 0d | 0a aa 0b ea 20 4c 6f 6f |,Text$).|.... Loo|
|00002400| 70 25 0d 0a b4 1b 20 20 | 20 e3 20 4c 6f 6f 70 25 |p%....  | . Loop%|
|00002410| 3d 31 20 b8 20 a9 28 54 | 65 78 74 24 29 0d 0a be |=1 . .(T|ext$)...|
|00002420| 2f 20 20 20 20 20 20 4c | 6f 6f 70 25 3f 28 50 6f |/      L|oop%?(Po|
|00002430| 69 6e 74 65 72 25 2d 31 | 29 3d 97 28 c1 54 65 78 |inter%-1|)=.(.Tex|
|00002440| 74 24 2c 4c 6f 6f 70 25 | 2c 31 29 29 0d 0a c8 08 |t$,Loop%|,1))....|
|00002450| 20 20 20 ed 0d 0a d2 1b | 20 20 20 4c 6f 6f 70 25 |   .....|   Loop%|
|00002460| 3f 28 50 6f 69 6e 74 65 | 72 25 2d 31 29 3d 30 0d |?(Pointe|r%-1)=0.|
|00002470| 0a dc 05 e1 0d 0a e6 05 | 3a 0d 0a f0 3e f4 20 2a |........|:...>. *|
|00002480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000024b0| 2a 2a 2a 2a 2a 2a 2a 0d | 0a fa 3f f4 20 53 74 61 |*******.|..?. Sta|
|000024c0| 72 74 20 55 70 20 70 72 | 6f 67 72 61 6d 20 61 73 |rt Up pr|ogram as|
|000024d0| 20 61 20 74 61 73 6b 20 | 77 69 74 68 20 6e 61 6d | a task |with nam|
|000024e0| 65 20 22 46 6f 6e 74 20 | 50 72 69 6e 74 6f 75 74 |e "Font |Printout|
|000024f0| 20 54 65 73 74 22 0d 0b | 04 3e f4 20 2a 2a 2a 2a | Test"..|.>. ****|
|00002500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002530| 2a 2a 2a 2a 0d 0b 0e 1e | dd 20 f2 5f 49 6e 69 74 |****....|. ._Init|
|00002540| 69 61 6c 69 73 65 5f 57 | 49 4d 50 5f 53 79 73 74 |ialise_W|IMP_Syst|
|00002550| 65 6d 0d 0b 18 25 20 20 | 20 4d 79 54 61 73 6b 4e |em...%  | MyTaskN|
|00002560| 61 6d 65 24 3d 22 45 78 | 63 68 61 6e 67 65 20 4c |ame$="Ex|change L|
|00002570| 6f 63 61 74 6f 72 22 0d | 0b 22 43 20 20 20 c8 99 |ocator".|."C   ..|
|00002580| 20 22 57 69 6d 70 5f 49 | 6e 69 74 69 61 6c 69 73 | "Wimp_I|nitialis|
|00002590| 65 22 2c 32 30 30 2c 26 | 34 42 35 33 34 31 35 34 |e",200,&|4B534154|
|000025a0| 2c 4d 79 54 61 73 6b 4e | 61 6d 65 24 20 b8 20 76 |,MyTaskN|ame$ . v|
|000025b0| 65 72 25 2c 4d 79 5f 69 | 64 25 0d 0b 2c 0e 20 20 |er%,My_i|d%..,.  |
|000025c0| 20 4d 61 73 6b 25 3d 30 | 0d 0b 36 26 20 20 20 c8 | Mask%=0|..6&   .|
|000025d0| 99 20 22 57 69 6d 70 5f | 43 6c 61 69 6d 49 6e 74 |. "Wimp_|ClaimInt|
|000025e0| 65 72 66 61 63 65 22 2c | 4d 79 5f 69 64 25 0d 0b |erface",|My_id%..|
|000025f0| 40 05 e1 0d 0b 4a 05 3a | 0d 0b 54 1c dd 20 f2 5f |@....J.:|..T.. ._|
|00002600| 49 6e 69 74 69 61 6c 69 | 73 65 5f 54 65 6d 70 6c |Initiali|se_Templ|
|00002610| 61 74 65 73 0d 0b 5e 2e | 20 20 20 6d 61 78 77 73 |ates..^.|   maxws|
|00002620| 25 3d 26 39 30 30 20 3a | 20 de 20 77 73 25 20 6d |%=&900 :| . ws% m|
|00002630| 61 78 77 73 25 20 3a 20 | 63 75 72 77 73 25 3d 77 |axws% : |curws%=w|
|00002640| 73 25 0d 0b 68 42 20 20 | 20 c8 99 22 57 69 6d 70 |s%..hB  | .."Wimp|
|00002650| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00002660| 22 3c 45 78 63 68 61 6e | 67 65 24 44 69 72 3e 2e |"<Exchan|ge$Dir>.|
|00002670| 52 65 73 6f 75 72 63 65 | 73 2e 54 65 6d 70 6c 61 |Resource|s.Templa|
|00002680| 74 65 73 22 0d 0b 72 4a | 20 20 20 c8 99 22 57 69 |tes"..rJ|   .."Wi|
|00002690| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|000026a0| 2c 2c 42 6c 6f 63 6b 25 | 2c 77 73 25 2c 77 73 25 |,,Block%|,ws%,ws%|
|000026b0| 2b 6d 61 78 77 73 25 2c | 2d 31 2c 22 69 6e 66 6f |+maxws%,|-1,"info|
|000026c0| 22 2c 30 20 b8 20 2c 2c | 63 75 72 77 73 25 0d 0b |",0 . ,,|curws%..|
|000026d0| 7c 2c 20 20 20 c8 99 22 | 57 69 6d 70 5f 43 72 65 ||,   .."|Wimp_Cre|
|000026e0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 42 6c 6f 63 |ateWindo|w",,Bloc|
|000026f0| 6b 25 20 b8 20 49 6e 66 | 6f 25 0d 0b 86 4e 20 20 |k% . Inf|o%...N  |
|00002700| 20 c8 99 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d | .."Wimp|_LoadTem|
|00002710| 70 6c 61 74 65 22 2c 2c | 42 6c 6f 63 6b 25 2c 63 |plate",,|Block%,c|
|00002720| 75 72 77 73 25 2c 77 73 | 25 2b 6d 61 78 77 73 25 |urws%,ws|%+maxws%|
|00002730| 2c 2d 31 2c 22 46 6f 75 | 6e 64 22 2c 30 20 b8 20 |,-1,"Fou|nd",0 . |
|00002740| 2c 2c 63 75 72 77 73 25 | 0d 0b 90 2d 20 20 20 c8 |,,curws%|...-   .|
|00002750| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e |."Wimp_C|reateWin|
|00002760| 64 6f 77 22 2c 2c 42 6c | 6f 63 6b 25 20 b8 20 46 |dow",,Bl|ock% . F|
|00002770| 6f 75 6e 64 25 0d 0b 9a | 4d 20 20 20 c8 99 22 57 |ound%...|M   .."W|
|00002780| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00002790| 22 2c 2c 42 6c 6f 63 6b | 25 2c 63 75 72 77 73 25 |",,Block|%,curws%|
|000027a0| 2c 77 73 25 2b 6d 61 78 | 77 73 25 2c 2d 31 2c 22 |,ws%+max|ws%,-1,"|
|000027b0| 4d 61 69 6e 22 2c 30 20 | b8 20 2c 2c 63 75 72 77 |Main",0 |. ,,curw|
|000027c0| 73 25 0d 0b a4 2c 20 20 | 20 c8 99 22 57 69 6d 70 |s%...,  | .."Wimp|
|000027d0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000027e0| 42 6c 6f 63 6b 25 20 b8 | 20 4d 61 69 6e 25 0d 0b |Block% .| Main%..|
|000027f0| ae 1d 20 20 20 c8 99 22 | 57 69 6d 70 5f 43 6c 6f |..   .."|Wimp_Clo|
|00002800| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 0b b8 05 e1 |seTempla|te".....|
|00002810| 0d 0b c2 05 3a 0d 0b cc | 2c f4 20 2a 2a 2a 2a 2a |....:...|,. *****|
|00002820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002840| 2a 0d 0b d6 2c f4 20 54 | 68 65 20 6e 61 6d 65 20 |*...,. T|he name |
|00002850| 73 6f 72 74 20 6f 66 20 | 73 61 79 73 20 69 74 20 |sort of |says it |
|00002860| 61 6c 6c 20 72 65 61 6c | 6c 79 21 21 21 0d 0b e0 |all real|ly!!!...|
|00002870| 2c f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |,. *****|********|
|00002880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0b ea 19 dd 20 f2 |********|*..... .|
|000028a0| 5f 43 72 65 61 74 65 49 | 63 6f 6e 42 61 72 4d 65 |_CreateI|conBarMe|
|000028b0| 6e 75 0d 0b f4 0b 20 20 | 20 ea 20 6d 25 0d 0b fe |nu....  | . m%...|
|000028c0| 1d 20 20 20 de 20 49 63 | 6f 6e 42 61 72 4d 65 6e |.   . Ic|onBarMen|
|000028d0| 75 25 20 32 38 2b 33 2a | 32 34 0d 0c 08 1f 20 20 |u% 28+3*|24....  |
|000028e0| 20 24 49 63 6f 6e 42 61 | 72 4d 65 6e 75 25 3d 22 | $IconBa|rMenu%="|
|000028f0| 45 78 63 68 61 6e 67 65 | 22 0d 0c 12 54 20 20 20 |Exchange|"...T   |
|00002900| 49 63 6f 6e 42 61 72 4d | 65 6e 75 25 3f 31 32 3d |IconBarM|enu%?12=|
|00002910| 37 20 3a 20 49 63 6f 6e | 42 61 72 4d 65 6e 75 25 |7 : Icon|BarMenu%|
|00002920| 3f 31 33 3d 32 20 3a 20 | 49 63 6f 6e 42 61 72 4d |?13=2 : |IconBarM|
|00002930| 65 6e 75 25 3f 31 34 3d | 37 20 3a 20 49 63 6f 6e |enu%?14=|7 : Icon|
|00002940| 42 61 72 4d 65 6e 75 25 | 3f 31 35 3d 30 0d 0c 1c |BarMenu%|?15=0...|
|00002950| 1b 20 20 20 49 63 6f 6e | 42 61 72 4d 65 6e 75 25 |.   Icon|BarMenu%|
|00002960| 21 31 36 3d 38 2a 31 33 | 0d 0c 26 2d 20 20 20 49 |!16=8*13|..&-   I|
|00002970| 63 6f 6e 42 61 72 4d 65 | 6e 75 25 21 32 30 3d 34 |conBarMe|nu%!20=4|
|00002980| 30 20 3a 20 49 63 6f 6e | 42 61 72 4d 65 6e 75 25 |0 : Icon|BarMenu%|
|00002990| 21 32 34 3d 30 0d 0c 30 | 19 20 20 20 6d 25 3d 49 |!24=0..0|.   m%=I|
|000029a0| 63 6f 6e 42 61 72 4d 65 | 6e 75 25 2b 32 38 0d 0c |conBarMe|nu%+28..|
|000029b0| 3a 05 3a 0d 0c 44 0e 20 | 20 20 6d 25 21 30 3d 26 |:.:..D. |  m%!0=&|
|000029c0| 30 0d 0c 4e 30 20 20 20 | 6d 25 21 34 3d 49 6e 66 |0..N0   |m%!4=Inf|
|000029d0| 6f 25 20 20 20 20 3a f4 | 20 6e 61 6d 65 20 66 72 |o%    :.| name fr|
|000029e0| 6f 6d 20 74 65 6d 70 6c | 61 74 65 20 6f 70 65 6e |om templ|ate open|
|000029f0| 2e 0d 0c 58 1c 20 20 20 | 6d 25 21 38 3d 28 37 3c |...X.   |m%!8=(7<|
|00002a00| 3c 32 34 29 20 84 20 25 | 31 30 30 30 31 0d 0c 62 |<24) . %|10001..b|
|00002a10| 16 20 20 20 24 28 6d 25 | 2b 31 32 29 3d 22 49 6e |.   $(m%|+12)="In|
|00002a20| 66 6f 22 0d 0c 6c 0f 20 | 20 20 6d 25 3d 6d 25 2b |fo"..l. |  m%=m%+|
|00002a30| 32 34 0d 0c 76 08 20 20 | 20 3a 0d 0c 80 0f 20 20 |24..v.  | :....  |
|00002a40| 20 6d 25 21 30 3d 26 38 | 30 0d 0c 8a 0d 20 20 20 | m%!0=&8|0....   |
|00002a50| 6d 25 21 34 3d 30 0d 0c | 94 1b 20 20 20 6d 25 21 |m%!4=0..|..   m%!|
|00002a60| 38 3d 28 37 3c 3c 32 34 | 29 84 20 25 31 30 30 30 |8=(7<<24|). %1000|
|00002a70| 31 0d 0c 9e 16 20 20 20 | 24 28 6d 25 2b 31 32 29 |1....   |$(m%+12)|
|00002a80| 3d 22 51 75 69 74 22 0d | 0c a8 2d 20 20 20 49 63 |="Quit".|..-   Ic|
|00002a90| 6f 6e 42 61 72 49 63 6f | 6e 48 61 6e 64 6c 65 25 |onBarIco|nHandle%|
|00002aa0| 3d a4 5f 43 72 65 61 74 | 65 49 63 6f 6e 42 61 72 |=._Creat|eIconBar|
|00002ab0| 49 63 6f 6e 0d 0c b2 05 | e1 0d 0c bc 05 3a 0d 0c |Icon....|.....:..|
|00002ac0| c6 24 dd 20 f2 5f 49 6e | 69 74 69 61 6c 69 73 65 |.$. ._In|itialise|
|00002ad0| 5f 50 72 6f 67 72 61 6d | 5f 56 61 72 69 61 62 6c |_Program|_Variabl|
|00002ae0| 65 73 0d 0c d0 4f 20 20 | 20 f4 20 47 69 76 65 20 |es...O  | . Give |
|00002af0| 6e 61 6d 65 73 20 74 6f | 20 73 6f 6d 65 20 6f 66 |names to| some of|
|00002b00| 20 74 68 65 20 69 63 6f | 6e 73 20 65 74 63 2e 20 | the ico|ns etc. |
|00002b10| 74 6f 20 6d 61 6b 65 20 | 74 68 65 20 70 72 6f 67 |to make |the prog|
|00002b20| 72 61 6d 20 6d 6f 72 65 | 20 72 65 61 64 61 62 6c |ram more| readabl|
|00002b30| 65 0d 0c da 25 20 20 20 | 42 61 63 6b 47 72 6f 75 |e...%   |BackGrou|
|00002b40| 6e 64 25 3d 20 2d 31 20 | 3a 20 49 63 6f 6e 42 61 |nd%= -1 |: IconBa|
|00002b50| 72 25 3d 20 2d 32 0d 0c | e4 19 20 20 20 44 61 74 |r%= -2..|..   Dat|
|00002b60| 61 25 3d 31 20 3a 20 50 | 72 69 6e 74 25 3d 32 0d |a%=1 : P|rint%=2.|
|00002b70| 0c ee 39 20 20 20 4d 61 | 78 54 6f 44 69 73 70 6c |..9   Ma|xToDispl|
|00002b80| 61 79 25 3d a4 5f 52 65 | 61 64 53 79 73 74 65 6d |ay%=._Re|adSystem|
|00002b90| 56 61 72 69 61 62 6c 65 | 28 22 4d 61 78 54 6f 44 |Variable|("MaxToD|
|00002ba0| 69 73 70 6c 61 79 22 29 | 0d 0c f8 15 20 20 20 f2 |isplay")|....   .|
|00002bb0| 5f 53 65 74 55 70 50 61 | 6c 65 74 74 65 0d 0d 02 |_SetUpPa|lette...|
|00002bc0| 2c 20 20 20 e7 20 4d 61 | 78 54 6f 44 69 73 70 6c |,   . Ma|xToDispl|
|00002bd0| 61 79 25 3e 39 39 39 20 | 4d 61 78 54 6f 44 69 73 |ay%>999 |MaxToDis|
|00002be0| 70 6c 61 79 25 3d 39 39 | 39 0d 0d 0c 2d 20 20 20 |play%=99|9...-   |
|00002bf0| e7 20 4d 61 78 54 6f 44 | 69 73 70 6c 61 79 25 3c |. MaxToD|isplay%<|
|00002c00| 31 30 20 20 20 20 4d 61 | 78 54 6f 44 69 73 70 6c |10    Ma|xToDispl|
|00002c10| 61 79 25 3d 31 30 0d 0d | 16 23 20 20 20 de 20 46 |ay%=10..|.#   . F|
|00002c20| 6f 75 6e 64 41 72 72 61 | 79 25 28 4d 61 78 54 6f |oundArra|y%(MaxTo|
|00002c30| 44 69 73 70 6c 61 79 25 | 29 0d 0d 20 19 20 20 20 |Display%|).. .   |
|00002c40| 52 65 71 75 69 72 65 64 | 4c 65 6e 67 74 68 25 3d |Required|Length%=|
|00002c50| 34 34 0d 0d 2a 12 20 20 | 20 48 65 69 67 68 74 25 |44..*.  | Height%|
|00002c60| 3d 34 30 30 0d 0d 34 05 | e1 0d 0d 3e 05 3a 0d 0d |=400..4.|...>.:..|
|00002c70| 48 0c dd 20 f2 5f 4c 6f | 61 64 0d 0d 52 17 20 20 |H.. ._Lo|ad..R.  |
|00002c80| 20 c8 99 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e | .."Hour|glass_On|
|00002c90| 22 0d 0d 5c 2f 20 20 20 | 58 25 3d 8e 22 3c 45 78 |"..\/   |X%=."<Ex|
|00002ca0| 63 68 61 6e 67 65 24 44 | 69 72 3e 2e 52 65 73 6f |change$D|ir>.Reso|
|00002cb0| 75 72 63 65 73 2e 54 65 | 6c 65 70 68 6f 6e 65 22 |urces.Te|lephone"|
|00002cc0| 0d 0d 66 19 20 20 20 de | 20 4c 69 6e 65 24 28 37 |..f.   .| Line$(7|
|00002cd0| 32 30 30 29 3a 4e 25 3d | 30 0d 0d 70 54 20 20 20 |200):N%=|0..pT   |
|00002ce0| f4 20 26 34 30 36 43 34 | 3d 22 48 6f 75 72 67 6c |. &406C4|="Hourgl|
|00002cf0| 61 73 73 5f 50 65 72 63 | 65 6e 74 61 67 65 22 20 |ass_Perc|entage" |
|00002d00| 2d 20 54 68 69 73 20 52 | 65 70 65 61 74 2f 55 6e |- This R|epeat/Un|
|00002d10| 74 69 6c 20 6c 6f 6f 70 | 20 6f 70 74 69 6d 69 73 |til loop| optimis|
|00002d20| 65 64 20 66 6f 72 20 73 | 70 65 65 64 21 0d 0d 7a |ed for s|peed!..z|
|00002d30| 36 20 20 20 f5 3a 4c 69 | 6e 65 24 28 4e 25 29 3d |6   .:Li|ne$(N%)=|
|00002d40| be 23 58 25 3a 4e 25 2b | 3d 31 3a c8 99 20 26 34 |.#X%:N%+|=1:.. &4|
|00002d50| 30 36 43 34 2c 4e 25 20 | 81 20 37 32 3a fd 20 c5 |06C4,N% |. 72:. .|
|00002d60| 23 58 25 0d 0d 84 0b 20 | 20 20 d9 23 58 25 0d 0d |#X%.... |  .#X%..|
|00002d70| 8e 18 20 20 20 c8 99 22 | 48 6f 75 72 67 6c 61 73 |..   .."|Hourglas|
|00002d80| 73 5f 4f 66 66 22 0d 0d | 98 16 20 20 20 4c 61 73 |s_Off"..|..   Las|
|00002d90| 74 45 6e 74 72 79 25 3d | 4e 25 2d 32 0d 0d a2 41 |tEntry%=|N%-2...A|
|00002da0| 20 20 20 54 65 6d 70 24 | 3d 4c 69 6e 65 24 28 4c |   Temp$|=Line$(L|
|00002db0| 61 73 74 45 6e 74 72 79 | 25 2b 31 29 2b 22 20 20 |astEntry|%+1)+"  |
|00002dc0| 28 22 2b c3 28 4c 61 73 | 74 45 6e 74 72 79 25 29 |("+.(Las|tEntry%)|
|00002dd0| 2b 22 20 45 6e 74 72 69 | 65 73 29 2e 22 0d 0d ac |+" Entri|es)."...|
|00002de0| 2a 20 20 20 55 70 64 61 | 74 65 24 3d c4 28 34 38 |*   Upda|te$=.(48|
|00002df0| 2d a9 28 54 65 6d 70 24 | 29 29 2f 32 2c 22 20 22 |-.(Temp$|))/2," "|
|00002e00| 29 2b 54 65 6d 70 24 0d | 0d b6 05 e1 0d 0d c0 05 |)+Temp$.|........|
|00002e10| 3a 0d 0d ca 0e dd 20 f2 | 5f 53 65 61 72 63 68 0d |:..... .|_Search.|
|00002e20| 0d d4 2a 20 20 20 53 65 | 61 72 63 68 24 3d a4 5f |..*   Se|arch$=._|
|00002e30| 52 65 61 64 49 63 6f 6e | 54 65 78 74 28 4d 61 69 |ReadIcon|Text(Mai|
|00002e40| 6e 25 2c 44 61 74 61 25 | 29 0d 0d de 43 20 20 20 |n%,Data%|)...C   |
|00002e50| e7 20 53 65 61 72 63 68 | 24 3d 22 22 20 8c 20 53 |. Search|$="" . S|
|00002e60| 65 61 72 63 68 24 3d 22 | 30 22 20 8b 20 53 65 61 |earch$="|0" . Sea|
|00002e70| 72 63 68 24 3d a4 5f 46 | 6f 72 63 65 54 6f 4c 6f |rch$=._F|orceToLo|
|00002e80| 77 65 72 28 53 65 61 72 | 63 68 24 29 0d 0d e8 0f |wer(Sear|ch$)....|
|00002e90| 20 20 20 ea 20 43 6f 75 | 6e 74 25 0d 0d f2 16 20 |   . Cou|nt%.... |
|00002ea0| 20 20 4e 75 6d 62 65 72 | 46 6f 75 6e 64 25 3d 2d |  Number|Found%=-|
|00002eb0| 31 0d 0d fc 17 20 20 20 | c8 99 22 48 6f 75 72 67 |1....   |.."Hourg|
|00002ec0| 6c 61 73 73 5f 4f 6e 22 | 0d 0e 06 08 20 20 20 f5 |lass_On"|....   .|
|00002ed0| 0d 0e 10 25 20 20 20 20 | 20 20 e7 20 a7 4c 69 6e |...%    |  . .Lin|
|00002ee0| 65 24 28 43 6f 75 6e 74 | 25 29 2c 53 65 61 72 63 |e$(Count|%),Searc|
|00002ef0| 68 24 29 20 8c 0d 0e 1a | 1c 20 20 20 20 20 20 20 |h$) ....|.       |
|00002f00| 20 20 4e 75 6d 62 65 72 | 46 6f 75 6e 64 25 2b 3d |  Number|Found%+=|
|00002f10| 31 0d 0e 24 2d 20 20 20 | 20 20 20 20 20 20 46 6f |1..$-   |      Fo|
|00002f20| 75 6e 64 41 72 72 61 79 | 25 28 4e 75 6d 62 65 72 |undArray|%(Number|
|00002f30| 46 6f 75 6e 64 25 29 3d | 43 6f 75 6e 74 25 0d 0e |Found%)=|Count%..|
|00002f40| 2e 0b 20 20 20 20 20 20 | cd 0d 0e 38 13 20 20 20 |..      |...8.   |
|00002f50| 20 20 20 43 6f 75 6e 74 | 25 2b 3d 31 0d 0e 42 39 |   Count|%+=1..B9|
|00002f60| 20 20 20 fd 20 43 6f 75 | 6e 74 25 3d 4c 61 73 74 |   . Cou|nt%=Last|
|00002f70| 45 6e 74 72 79 25 20 84 | 20 4e 75 6d 62 65 72 46 |Entry% .| NumberF|
|00002f80| 6f 75 6e 64 25 3d 4d 61 | 78 54 6f 44 69 73 70 6c |ound%=Ma|xToDispl|
|00002f90| 61 79 25 2d 31 0d 0e 4c | 18 20 20 20 c8 99 22 48 |ay%-1..L|.   .."H|
|00002fa0| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 0e 56 |ourglass|_Off"..V|
|00002fb0| 14 20 20 20 f2 5f 46 6f | 75 6e 64 57 69 6e 64 6f |.   ._Fo|undWindo|
|00002fc0| 77 0d 0e 60 05 e1 0d 0e | 6a 05 3a 0d 0e 74 13 dd |w..`....|j.:..t..|
|00002fd0| 20 f2 5f 46 6f 75 6e 64 | 57 69 6e 64 6f 77 0d 0e | ._Found|Window..|
|00002fe0| 7e 15 20 20 20 21 42 6c | 6f 63 6b 25 3d 46 6f 75 |~.   !Bl|ock%=Fou|
|00002ff0| 6e 64 25 0d 0e 88 27 20 | 20 20 c8 99 20 22 57 69 |nd%...' |  .. "Wi|
|00003000| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00003010| 65 22 2c 2c 42 6c 6f 63 | 6b 25 0d 0e 92 14 20 20 |e",,Bloc|k%....  |
|00003020| 20 f2 5f 55 70 64 61 74 | 65 46 6f 75 6e 64 0d 0e | ._Updat|eFound..|
|00003030| 9c 23 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |.#   .. |"Wimp_Op|
|00003040| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 42 6c 6f 63 6b |enWindow|",,Block|
|00003050| 25 0d 0e a6 05 e1 0d 0e | b0 05 3a 0d 0e ba 13 dd |%.......|..:.....|
|00003060| 20 f2 5f 55 70 64 61 74 | 65 46 6f 75 6e 64 0d 0e | ._Updat|eFound..|
|00003070| c4 2a 20 20 20 e7 20 48 | 65 69 67 68 74 25 3c 3e |.*   . H|eight%<>|
|00003080| 28 31 2b 4e 75 6d 62 65 | 72 46 6f 75 6e 64 25 29 |(1+Numbe|rFound%)|
|00003090| 2a 34 30 2b 32 30 20 8c | 0d 0e ce 28 20 20 20 20 |*40+20 .|...(    |
|000030a0| 20 20 48 65 69 67 68 74 | 25 3d 28 34 2b 4e 75 6d |  Height|%=(4+Num|
|000030b0| 62 65 72 46 6f 75 6e 64 | 25 29 2a 34 30 2b 32 30 |berFound|%)*40+20|
|000030c0| 0d 0e d8 23 20 20 20 20 | 20 20 f2 5f 53 65 74 50 |...#    |  ._SetP|
|000030d0| 72 65 76 69 65 77 53 69 | 7a 65 28 48 65 69 67 68 |reviewSi|ze(Heigh|
|000030e0| 74 25 29 0d 0e e2 19 20 | 20 20 20 20 20 42 6c 6f |t%).... |     Blo|
|000030f0| 63 6b 25 21 30 3d 46 6f | 75 6e 64 25 0d 0e ec 29 |ck%!0=Fo|und%...)|
|00003100| 20 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |      ..| "Wimp_G|
|00003110| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 42 |etWindow|Info",,B|
|00003120| 6c 6f 63 6b 25 0d 0e f6 | 27 20 20 20 20 20 20 c8 |lock%...|'      .|
|00003130| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00003140| 64 6f 77 22 2c 2c 42 6c | 6f 63 6b 25 0d 0f 00 26 |dow",,Bl|ock%...&|
|00003150| 20 20 20 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 4f |      ..| "Wimp_O|
|00003160| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 42 6c 6f 63 |penWindo|w",,Bloc|
|00003170| 6b 25 0d 0f 0a 08 20 20 | 20 cc 0d 0f 14 37 20 20 |k%....  | ....7  |
|00003180| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |    .. "|Wimp_For|
|00003190| 63 65 52 65 64 72 61 77 | 22 2c 46 6f 75 6e 64 25 |ceRedraw|",Found%|
|000031a0| 2c 30 2c 2d 48 65 69 67 | 68 74 25 2c 38 30 30 2c |,0,-Heig|ht%,800,|
|000031b0| 30 0d 0f 1e 08 20 20 20 | cd 0d 0f 28 05 e1 0d 0f |0....   |...(....|
|000031c0| 32 05 3a 0d 0f 3c 1a dd | 20 f2 5f 53 65 74 50 72 |2.:..<..| ._SetPr|
|000031d0| 65 76 69 65 77 53 69 7a | 65 28 59 25 29 0d 0f 46 |eviewSiz|e(Y%)..F|
|000031e0| 14 20 20 20 42 6c 6f 63 | 6b 25 21 31 30 32 34 3d |.   Bloc|k%!1024=|
|000031f0| 30 0d 0f 50 16 20 20 20 | 42 6c 6f 63 6b 25 21 31 |0..P.   |Block%!1|
|00003200| 30 32 38 3d 2d 59 25 0d | 0f 5a 16 20 20 20 42 6c |028=-Y%.|.Z.   Bl|
|00003210| 6f 63 6b 25 21 31 30 33 | 32 3d 39 33 36 0d 0f 64 |ock%!103|2=936..d|
|00003220| 14 20 20 20 42 6c 6f 63 | 6b 25 21 31 30 33 36 3d |.   Bloc|k%!1036=|
|00003230| 30 0d 0f 6e 2d 20 20 20 | c8 99 20 22 57 69 6d 70 |0..n-   |.. "Wimp|
|00003240| 5f 53 65 74 45 78 74 65 | 6e 74 22 2c 46 6f 75 6e |_SetExte|nt",Foun|
|00003250| 64 25 2c 42 6c 6f 63 6b | 25 2b 31 30 32 34 0d 0f |d%,Block|%+1024..|
|00003260| 78 05 e1 0d 0f 82 05 3a | 0d 0f 8c 14 dd 20 f2 5f |x......:|..... ._|
|00003270| 52 65 64 72 61 77 57 69 | 6e 64 6f 77 0d 0f 96 2d |RedrawWi|ndow...-|
|00003280| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 64 72 |   .. "W|imp_Redr|
|00003290| 61 77 57 69 6e 64 6f 77 | 22 2c 2c 42 6c 6f 63 6b |awWindow|",,Block|
|000032a0| 25 20 b8 20 4d 6f 72 65 | 25 0d 0f a0 0f 20 20 20 |% . More|%....   |
|000032b0| c8 95 20 4d 6f 72 65 25 | 0d 0f aa 53 20 20 20 20 |.. More%|...S    |
|000032c0| 20 20 e7 20 42 6c 6f 63 | 6b 25 21 30 3d 46 6f 75 |  . Bloc|k%!0=Fou|
|000032d0| 6e 64 25 20 8c 20 f2 5f | 52 65 64 72 61 77 46 6f |nd% . ._|RedrawFo|
|000032e0| 75 6e 64 28 42 6c 6f 63 | 6b 25 21 34 2d 42 6c 6f |und(Bloc|k%!4-Blo|
|000032f0| 63 6b 25 21 32 30 2c 42 | 6c 6f 63 6b 25 21 31 36 |ck%!20,B|lock%!16|
|00003300| 2d 42 6c 6f 63 6b 25 21 | 32 34 29 0d 0f b4 28 20 |-Block%!|24)...( |
|00003310| 20 20 20 20 20 c8 99 20 | 22 57 69 6d 70 5f 42 6f |     .. |"Wimp_Bo|
|00003320| 72 64 65 72 57 69 6e 64 | 6f 77 22 2c 2c 42 6c 6f |rderWind|ow",,Blo|
|00003330| 63 6b 25 0d 0f be 30 20 | 20 20 20 20 20 c8 99 20 |ck%...0 |     .. |
|00003340| 22 57 69 6d 70 5f 47 65 | 74 52 65 63 74 61 6e 67 |"Wimp_Ge|tRectang|
|00003350| 6c 65 22 2c 2c 42 6c 6f | 63 6b 25 20 b8 20 4d 6f |le",,Blo|ck% . Mo|
|00003360| 72 65 25 0d 0f c8 08 20 | 20 20 ce 0d 0f d2 05 e1 |re%.... |  ......|
|00003370| 0d 0f dc 05 3a 0d 0f e6 | 1a dd 20 f2 5f 52 65 64 |....:...|.. ._Red|
|00003380| 72 61 77 46 6f 75 6e 64 | 28 58 25 2c 59 25 29 0d |rawFound|(X%,Y%).|
|00003390| 0f f0 0e 20 20 20 ea 20 | 4c 6f 6f 70 25 0d 0f fa |...   . |Loop%...|
|000033a0| 0e 20 20 20 ec 20 58 25 | 2c 59 25 0d 10 04 7c 20 |.   . X%|,Y%...| |
|000033b0| 20 20 59 25 2d 3d 35 38 | 20 3a 20 58 25 2b 3d 32 |  Y%-=58| : X%+=2|
|000033c0| 35 20 3a 20 56 25 3d 28 | 42 6c 6f 63 6b 25 21 33 |5 : V%=(|Block%!3|
|000033d0| 32 29 2d 34 30 20 3a 20 | 57 25 3d 28 42 6c 6f 63 |2)-40 : |W%=(Bloc|
|000033e0| 6b 25 21 34 30 29 2b 34 | 30 20 3a 20 53 25 3d 42 |k%!40)+4|0 : S%=B|
|000033f0| 6c 6f 63 6b 25 21 32 34 | 20 3a 20 f4 20 56 25 3d |lock%!24| : . V%=|
|00003400| 47 72 61 66 43 6c 69 4d | 69 6e 59 20 57 25 3d 47 |GrafCliM|inY W%=G|
|00003410| 72 61 66 43 6c 69 70 4d | 61 78 59 20 53 25 3d 53 |rafClipM|axY S%=S|
|00003420| 63 72 6f 6c 6c 5f 59 0d | 10 0e 23 20 20 20 46 6f |croll_Y.|..#   Fo|
|00003430| 72 6d 61 74 25 3d a9 28 | c3 28 4e 75 6d 62 65 72 |rmat%=.(|.(Number|
|00003440| 46 6f 75 6e 64 25 2b 31 | 29 29 0d 10 18 1b 20 20 |Found%+1|))....  |
|00003450| 20 e7 20 4e 75 6d 62 65 | 72 46 6f 75 6e 64 25 3c | . Numbe|rFound%<|
|00003460| 3e 2d 31 20 8c 0d 10 22 | 3f 20 20 20 20 20 20 46 |>-1 ..."|?      F|
|00003470| 69 72 73 74 43 68 61 72 | 25 3d 28 59 25 2d 57 25 |irstChar|%=(Y%-W%|
|00003480| 29 2f 34 30 20 3a 20 e7 | 20 46 69 72 73 74 43 68 |)/40 : .| FirstCh|
|00003490| 61 72 25 3c 30 20 8c 20 | 46 69 72 73 74 43 68 61 |ar%<0 . |FirstCha|
|000034a0| 72 25 3d 30 0d 10 2c 2b | 20 20 20 20 20 20 4c 61 |r%=0..,+|      La|
|000034b0| 73 74 43 68 61 72 25 3d | 46 69 72 73 74 43 68 61 |stChar%=|FirstCha|
|000034c0| 72 25 2b 28 28 57 25 2d | 56 25 29 2f 34 30 29 0d |r%+((W%-|V%)/40).|
|000034d0| 10 36 3b 20 20 20 20 20 | 20 e7 20 4c 61 73 74 43 |.6;     | . LastC|
|000034e0| 68 61 72 25 3e 4e 75 6d | 62 65 72 46 6f 75 6e 64 |har%>Num|berFound|
|000034f0| 25 20 8c 20 4c 61 73 74 | 43 68 61 72 25 3d 4e 75 |% . Last|Char%=Nu|
|00003500| 6d 62 65 72 46 6f 75 6e | 64 25 0d 10 40 1b 20 20 |mberFoun|d%..@.  |
|00003510| 20 20 20 20 59 25 2d 3d | 34 30 2a 46 69 72 73 74 |    Y%-=|40*First|
|00003520| 43 68 61 72 25 0d 10 4a | 26 20 20 20 20 20 20 e7 |Char%..J|&      .|
|00003530| 20 46 69 72 73 74 43 68 | 61 72 25 3c 3d 4e 75 6d | FirstCh|ar%<=Num|
|00003540| 62 65 72 46 6f 75 6e 64 | 25 20 8c 0d 10 54 2b 20 |berFound|% ...T+ |
|00003550| 20 20 20 20 20 20 20 20 | e3 20 4c 6f 6f 70 25 3d |        |. Loop%=|
|00003560| 46 69 72 73 74 43 68 61 | 72 25 20 b8 20 4c 61 73 |FirstCha|r% . Las|
|00003570| 74 43 68 61 72 25 0d 10 | 5e 17 20 20 20 20 20 20 |tChar%..|^.      |
|00003580| 20 20 20 20 20 20 ec 20 | 58 25 2c 59 25 0d 10 68 |      . |X%,Y%..h|
|00003590| 51 20 20 20 20 20 20 20 | 20 20 20 20 20 f1 20 a4 |Q       |     . .|
|000035a0| 5f 46 6f 72 6d 61 74 28 | b9 2c c2 22 20 20 22 2b |_Format(|.,."  "+|
|000035b0| c3 28 4c 6f 6f 70 25 2b | 31 29 2c 46 6f 72 6d 61 |.(Loop%+|1),Forma|
|000035c0| 74 25 29 2b 4c 69 6e 65 | 24 28 46 6f 75 6e 64 41 |t%)+Line|$(FoundA|
|000035d0| 72 72 61 79 25 28 4c 6f | 6f 70 25 29 29 29 0d 10 |rray%(Lo|op%)))..|
|000035e0| 72 16 20 20 20 20 20 20 | 20 20 20 20 20 20 59 25 |r.      |      Y%|
|000035f0| 2d 3d 34 30 0d 10 7c 0e | 20 20 20 20 20 20 20 20 |-=40..|.|        |
|00003600| 20 ed 0d 10 86 0b 20 20 | 20 20 20 20 cd 0d 10 90 | .....  |    ....|
|00003610| 14 20 20 20 20 20 20 ec | 20 58 25 2c 59 25 2d 34 |.      .| X%,Y%-4|
|00003620| 30 0d 10 9a 13 20 20 20 | 20 20 20 f1 20 55 70 64 |0....   |   . Upd|
|00003630| 61 74 65 24 0d 10 a4 08 | 20 20 20 cc 0d 10 ae 14 |ate$....|   .....|
|00003640| 20 20 20 20 20 20 ec 20 | 58 25 2b 35 30 2c 59 25 |      . |X%+50,Y%|
|00003650| 0d 10 b8 33 20 20 20 20 | 20 20 f1 20 22 53 6f 72 |...3    |  . "Sor|
|00003660| 72 79 20 27 22 3b 53 65 | 61 72 63 68 24 3b 22 27 |ry '";Se|arch$;"'|
|00003670| 20 69 73 20 6e 6f 74 20 | 6f 6e 20 72 65 63 6f 72 | is not |on recor|
|00003680| 64 2e 22 0d 10 c2 13 20 | 20 20 20 20 20 f1 20 55 |d.".... |     . U|
|00003690| 70 64 61 74 65 24 0d 10 | cc 08 20 20 20 cd 0d 10 |pdate$..|..   ...|
|000036a0| d6 05 e1 0d 10 e0 05 3a | 0d 10 ea 10 dd 20 f2 5f |.......:|..... ._|
|000036b0| 50 72 69 6e 74 4f 75 74 | 0d 10 f4 20 20 20 20 e7 |PrintOut|...    .|
|000036c0| 20 a4 5f 50 72 69 6e 74 | 65 72 5f 4e 6f 74 4f 6e | ._Print|er_NotOn|
|000036d0| 4c 69 6e 65 20 8c 20 e1 | 0d 10 fe 18 20 20 20 c8 |Line . .|....   .|
|000036e0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|000036f0| 0d 11 08 3c 20 20 20 c8 | 99 20 22 4f 53 5f 42 79 |...<   .|. "OS_By|
|00003700| 74 65 22 2c 33 2c 31 30 | 20 20 20 20 20 20 20 20 |te",3,10|        |
|00003710| 20 20 3a f4 20 53 43 52 | 45 45 4e 20 4f 46 46 2c |  :. SCR|EEN OFF,|
|00003720| 20 50 52 49 4e 54 45 52 | 20 4f 4e 2e 0d 11 12 08 | PRINTER| ON.....|
|00003730| 20 20 20 3a 0d 11 1c 1a | 20 20 20 e7 20 4e 75 6d |   :....|   . Num|
|00003740| 62 65 72 46 6f 75 6e 64 | 25 3c 3e 30 20 8c 0d 11 |berFound|%<>0 ...|
|00003750| 26 2f 20 20 20 20 20 20 | f1 20 22 53 65 61 72 63 |&/      |. "Searc|
|00003760| 68 69 6e 67 20 46 6f 72 | 20 27 22 3b 53 65 61 72 |hing For| '";Sear|
|00003770| 63 68 24 3b 22 27 2e 2e | 2e 2e 2e 2e 22 0d 11 30 |ch$;"'..|...."..0|
|00003780| 22 20 20 20 20 20 20 e3 | 20 4c 6f 6f 70 25 3d 31 |"      .| Loop%=1|
|00003790| 20 b8 20 4e 75 6d 62 65 | 72 46 6f 75 6e 64 25 0d | . Numbe|rFound%.|
|000037a0| 11 3a 4e 20 20 20 20 20 | 20 20 20 20 f1 20 a4 5f |.:N     |    . ._|
|000037b0| 46 6f 72 6d 61 74 28 a3 | 2c c2 22 20 20 22 2b c3 |Format(.|,."  "+.|
|000037c0| 28 4c 6f 6f 70 25 29 2c | 46 6f 72 6d 61 74 25 29 |(Loop%),|Format%)|
|000037d0| 2b 4c 69 6e 65 24 28 46 | 6f 75 6e 64 41 72 72 61 |+Line$(F|oundArra|
|000037e0| 79 25 28 4c 6f 6f 70 25 | 2d 31 29 29 29 0d 11 44 |y%(Loop%|-1)))..D|
|000037f0| 0b 20 20 20 20 20 20 ed | 0d 11 4e 0b 20 20 20 20 |.      .|..N.    |
|00003800| 20 20 f1 0d 11 58 13 20 | 20 20 20 20 20 f1 20 55 |  ...X. |     . U|
|00003810| 70 64 61 74 65 24 0d 11 | 62 0b 20 20 20 20 20 20 |pdate$..|b.      |
|00003820| f1 0d 11 6c 08 20 20 20 | cc 0d 11 76 0d 20 20 20 |...l.   |...v.   |
|00003830| 20 20 20 ef 20 37 0d 11 | 80 08 20 20 20 cd 0d 11 |   . 7..|..   ...|
|00003840| 8a 08 20 20 20 3a 0d 11 | 94 3c 20 20 20 c8 99 20 |..   :..|.<   .. |
|00003850| 22 4f 53 5f 42 79 74 65 | 22 2c 33 2c 30 30 20 20 |"OS_Byte|",3,00  |
|00003860| 20 20 20 20 20 20 20 20 | 3a f4 20 53 43 52 45 45 |        |:. SCREE|
|00003870| 4e 20 4f 4e 2c 20 50 52 | 49 4e 54 45 52 20 4f 46 |N ON, PR|INTER OF|
|00003880| 46 2e 0d 11 9e 19 20 20 | 20 c8 99 20 22 48 6f 75 |F.....  | .. "Hou|
|00003890| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 11 a8 05 e1 |rglass_O|ff".....|
|000038a0| 0d 11 b2 05 3a 0d 11 bc | 19 dd 20 a4 5f 50 72 69 |....:...|.. ._Pri|
|000038b0| 6e 74 65 72 5f 4e 6f 74 | 4f 6e 4c 69 6e 65 0d 11 |nter_Not|OnLine..|
|000038c0| c6 18 20 20 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |..   .. |"Hourgla|
|000038d0| 73 73 5f 4f 6e 22 0d 11 | d0 08 20 20 20 f5 0d 11 |ss_On"..|..   ...|
|000038e0| da 23 20 20 20 20 20 20 | 50 72 69 6e 74 65 72 4f |.#      |PrinterO|
|000038f0| 6e 4c 69 6e 65 3d b9 20 | 3a 20 57 68 61 74 25 3d |nLine=. |: What%=|
|00003900| 30 0d 11 e4 10 20 20 20 | 20 20 20 4e 6f 77 25 3d |0....   |   Now%=|
|00003910| 91 0d 11 ee 17 20 20 20 | 20 20 20 42 65 66 6f 72 |.....   |   Befor|
|00003920| 65 25 3d 96 28 2d 34 29 | 0d 11 f8 2f 20 20 20 20 |e%=.(-4)|.../    |
|00003930| 20 20 ef 20 32 2c 31 2c | 30 2c 31 2c 30 2c 31 2c |  . 2,1,|0,1,0,1,|
|00003940| 30 2c 31 2c 30 2c 31 2c | 30 2c 31 2c 30 2c 31 2c |0,1,0,1,|0,1,0,1,|
|00003950| 30 2c 31 2c 30 2c 33 0d | 12 02 21 20 20 20 20 20 |0,1,0,3.|..!     |
|00003960| 20 4e 6f 77 25 3d 91 20 | 3a 20 f5 20 fd 20 91 3e | Now%=. |: . . .>|
|00003970| 4e 6f 77 25 2b 31 30 30 | 0d 12 0c 16 20 20 20 20 |Now%+100|....    |
|00003980| 20 20 41 66 74 65 72 25 | 3d 96 28 2d 34 29 0d 12 |  After%|=.(-4)..|
|00003990| 16 1d 20 20 20 20 20 20 | e7 20 42 65 66 6f 72 65 |..      |. Before|
|000039a0| 25 3c 3e 41 66 74 65 72 | 25 20 8c 0d 12 20 1f 20 |%<>After|% ... . |
|000039b0| 20 20 20 20 20 20 20 20 | c8 99 20 22 48 6f 75 72 |        |.. "Hour|
|000039c0| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 12 2a 1c 20 20 |glass_Of|f"..*.  |
|000039d0| 20 20 20 20 20 20 20 50 | 72 69 6e 74 65 72 4f 6e |       P|rinterOn|
|000039e0| 4c 69 6e 65 3d a3 0d 12 | 34 87 20 20 20 20 20 20 |Line=...|4.      |
|000039f0| 20 20 20 24 42 6c 6f 63 | 6b 25 3d 22 54 68 65 20 |   $Bloc|k%="The |
|00003a00| 50 72 69 6e 74 65 72 20 | 69 73 20 6e 6f 74 20 72 |Printer |is not r|
|00003a10| 65 73 70 6f 6e 64 69 6e | 67 2c 20 70 6c 65 61 73 |espondin|g, pleas|
|00003a20| 65 20 63 68 65 63 6b 20 | 74 68 61 74 20 69 74 20 |e check |that it |
|00003a30| 68 61 73 20 70 61 70 65 | 72 2c 20 69 74 20 69 73 |has pape|r, it is|
|00003a40| 20 73 77 69 74 63 68 65 | 64 20 6f 6e 20 61 6e 64 | switche|d on and|
|00003a50| 20 69 73 20 6f 6e 2d 6c | 69 6e 65 2e 20 54 72 79 | is on-l|ine. Try|
|00003a60| 20 61 67 61 69 6e 3f 22 | 2b bd 28 30 29 0d 12 3e | again?"|+.(0)..>|
|00003a70| 45 20 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |E       |  .. "Wi|
|00003a80| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00003a90| 42 6c 6f 63 6b 25 2c 25 | 31 30 30 31 31 2c 4d 79 |Block%,%|10011,My|
|00003aa0| 54 61 73 6b 4e 61 6d 65 | 24 20 b8 20 2c 57 68 61 |TaskName|$ . ,Wha|
|00003ab0| 74 25 0d 12 48 1e 20 20 | 20 20 20 20 20 20 20 c8 |t%..H.  |       .|
|00003ac0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|00003ad0| 0d 12 52 0b 20 20 20 20 | 20 20 cd 0d 12 5c 34 20 |..R.    |  ...\4 |
|00003ae0| 20 20 fd 20 50 72 69 6e | 74 65 72 4f 6e 4c 69 6e |  . Prin|terOnLin|
|00003af0| 65 20 84 20 28 ac 20 50 | 72 69 6e 74 65 72 4f 6e |e . (. P|rinterOn|
|00003b00| 4c 69 6e 65 20 80 20 57 | 68 61 74 25 3d 32 29 0d |Line . W|hat%=2).|
|00003b10| 12 66 19 20 20 20 c8 99 | 20 22 48 6f 75 72 67 6c |.f.   ..| "Hourgl|
|00003b20| 61 73 73 5f 4f 66 66 22 | 0d 12 70 15 20 20 20 e7 |ass_Off"|..p.   .|
|00003b30| 20 57 68 61 74 25 3d 32 | 20 8c 20 3d b9 0d 12 7a | What%=2| . =...z|
|00003b40| 06 3d a3 0d 12 84 05 3a | 0d 12 8e 26 dd 20 f2 5f |.=.....:|...&. ._|
|00003b50| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00003b60| 28 49 63 6f 6e 25 2c 49 | 6e 64 65 78 25 29 0d 12 |(Icon%,I|ndex%)..|
|00003b70| 98 33 20 20 20 49 63 6f | 6e 4c 65 6e 67 74 68 25 |.3   Ico|nLength%|
|00003b80| 3d a9 28 a4 5f 52 65 61 | 64 49 63 6f 6e 54 65 78 |=.(._Rea|dIconTex|
|00003b90| 74 28 4d 61 69 6e 25 2c | 49 63 6f 6e 25 2c a3 29 |t(Main%,|Icon%,.)|
|00003ba0| 29 0d 12 a2 30 20 20 20 | e7 20 49 6e 64 65 78 25 |)...0   |. Index%|
|00003bb0| 3e 49 63 6f 6e 4c 65 6e | 67 74 68 25 20 8c 20 49 |>IconLen|gth% . I|
|00003bc0| 6e 64 65 78 25 3d 49 63 | 6f 6e 4c 65 6e 67 74 68 |ndex%=Ic|onLength|
|00003bd0| 25 0d 12 ac 39 20 20 20 | c8 99 20 22 57 69 6d 70 |%...9   |.. "Wimp|
|00003be0| 5f 53 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_SetCare|tPositio|
|00003bf0| 6e 22 2c 4d 61 69 6e 25 | 2c 49 63 6f 6e 25 2c 2c |n",Main%|,Icon%,,|
|00003c00| 2c 2d 31 2c 49 6e 64 65 | 78 25 0d 12 b6 05 e1 0d |,-1,Inde|x%......|
|00003c10| 12 c0 05 3a 0d 12 ca 51 | f4 20 54 68 69 73 20 72 |...:...Q|. This r|
|00003c20| 6f 75 74 69 6e 65 20 68 | 61 73 20 62 65 65 6e 20 |outine h|as been |
|00003c30| 6f 70 74 69 6d 69 73 65 | 64 20 66 6f 72 20 73 70 |optimise|d for sp|
|00003c40| 65 65 64 2c 20 68 65 6e | 63 65 20 74 68 65 20 67 |eed, hen|ce the g|
|00003c50| 65 6e 65 72 61 6c 20 75 | 6e 72 65 61 64 61 62 69 |eneral u|nreadabi|
|00003c60| 6c 69 74 79 21 0d 12 d4 | 18 dd 20 a4 5f 46 6f 72 |lity!...|.. ._For|
|00003c70| 6d 61 74 28 46 6c 61 67 | 25 2c 54 24 29 0d 12 de |mat(Flag|%,T$)...|
|00003c80| 19 20 20 20 ea 20 4c 25 | 2c 41 4c 25 2c 53 4c 25 |.   . L%|,AL%,SL%|
|00003c90| 2c 43 24 2c 4e 24 0d 12 | e8 25 20 20 20 41 4c 25 |,C$,N$..|.%   AL%|
|00003ca0| 3d a9 28 54 24 29 20 3a | 20 53 4c 25 3d 35 31 2d |=.(T$) :| SL%=51-|
|00003cb0| 41 4c 25 2b 46 6f 72 6d | 61 74 25 0d 12 f2 19 20 |AL%+Form|at%.... |
|00003cc0| 20 20 5a 65 72 6f 50 6f | 73 25 3d a7 54 24 2c bd |  ZeroPo|s%=.T$,.|
|00003cd0| 28 30 29 29 0d 12 fc 1c | 20 20 20 e3 20 4c 25 3d |(0))....|   . L%=|
|00003ce0| 5a 65 72 6f 50 6f 73 25 | 20 b8 20 a9 28 54 24 29 |ZeroPos%| . .(T$)|
|00003cf0| 0d 13 06 27 20 20 20 20 | 20 20 43 24 3d c1 54 24 |...'    |  C$=.T$|
|00003d00| 2c 4c 25 2c 31 29 20 3a | 20 4e 24 3d c1 54 24 2c |,L%,1) :| N$=.T$,|
|00003d10| 4c 25 2b 31 2c 31 29 0d | 13 10 5e 20 20 20 20 20 |L%+1,1).|..^     |
|00003d20| 20 e7 20 28 43 24 3d 22 | 20 22 84 43 24 3d 22 2e | . (C$="| ".C$=".|
|00003d30| 22 84 43 24 3d 22 2c 22 | 84 97 28 43 24 29 3d 30 |".C$=","|..(C$)=0|
|00003d40| 84 97 28 43 24 29 3d 31 | 29 80 28 4e 24 3e 3d 22 |..(C$)=1|).(N$>="|
|00003d50| 61 22 80 4e 24 3c 3d 22 | 7a 22 29 8c c1 54 24 2c |a".N$<="|z")..T$,|
|00003d60| 4c 25 2b 31 2c 31 29 3d | bd 28 97 28 4e 24 29 20 |L%+1,1)=|.(.(N$) |
|00003d70| 82 20 33 32 29 0d 13 1a | 08 20 20 20 ed 0d 13 24 |. 32)...|.   ...$|
|00003d80| 24 20 20 20 54 65 78 74 | 50 61 72 74 24 3d c2 54 |$   Text|Part$=.T|
|00003d90| 24 2c a9 28 54 24 29 2d | 5a 65 72 6f 50 6f 73 25 |$,.(T$)-|ZeroPos%|
|00003da0| 29 0d 13 2e 22 20 20 20 | 4f 6e 65 50 6f 73 69 74 |)..."   |OnePosit|
|00003db0| 69 6f 6e 25 3d a7 54 65 | 78 74 50 61 72 74 24 2c |ion%=.Te|xtPart$,|
|00003dc0| bd 31 29 0d 13 38 1e 20 | 20 20 e7 20 4f 6e 65 50 |.1)..8. |  . OneP|
|00003dd0| 6f 73 69 74 69 6f 6e 25 | 20 80 20 46 6c 61 67 25 |osition%| . Flag%|
|00003de0| 8c 0d 13 42 2e 20 20 20 | 20 20 20 45 78 63 68 61 |...B.   |   Excha|
|00003df0| 6e 67 65 24 3d c0 54 65 | 78 74 50 61 72 74 24 2c |nge$=.Te|xtPart$,|
|00003e00| 4f 6e 65 50 6f 73 69 74 | 69 6f 6e 25 2d 31 29 0d |OnePosit|ion%-1).|
|00003e10| 13 4c 5c 20 20 20 20 20 | 20 4c 6f 63 61 74 69 6f |.L\     | Locatio|
|00003e20| 6e 24 3d bd 31 38 2b bd | 30 2b bd 28 54 6f 77 6e |n$=.18+.|0+.(Town|
|00003e30| 43 6f 6c 6f 75 72 25 29 | 2b c1 54 65 78 74 50 61 |Colour%)|+.TextPa|
|00003e40| 72 74 24 2c 4f 6e 65 50 | 6f 73 69 74 69 6f 6e 25 |rt$,OneP|osition%|
|00003e50| 2b 31 29 2b bd 31 38 2b | bd 28 30 29 2b bd 28 42 |+1)+.18+|.(0)+.(B|
|00003e60| 61 73 65 43 6f 6c 6f 75 | 72 25 29 0d 13 56 2d 20 |aseColou|r%)..V- |
|00003e70| 20 20 20 20 20 54 65 78 | 74 50 61 72 74 24 3d 45 |     Tex|tPart$=E|
|00003e80| 78 63 68 61 6e 67 65 24 | 2b 22 20 20 20 22 2b 4c |xchange$|+"   "+L|
|00003e90| 6f 63 61 74 69 6f 6e 24 | 0d 13 60 08 20 20 20 cc |ocation$|..`.   .|
|00003ea0| 0d 13 6a 2e 20 20 20 20 | 20 20 45 78 63 68 61 6e |..j.    |  Exchan|
|00003eb0| 67 65 24 3d c0 54 65 78 | 74 50 61 72 74 24 2c 4f |ge$=.Tex|tPart$,O|
|00003ec0| 6e 65 50 6f 73 69 74 69 | 6f 6e 25 2d 31 29 0d 13 |nePositi|on%-1)..|
|00003ed0| 74 2e 20 20 20 20 20 20 | 4c 6f 63 61 74 69 6f 6e |t.      |Location|
|00003ee0| 24 3d c1 54 65 78 74 50 | 61 72 74 24 2c 4f 6e 65 |$=.TextP|art$,One|
|00003ef0| 50 6f 73 69 74 69 6f 6e | 25 2b 31 29 0d 13 7e 2d |Position|%+1)..~-|
|00003f00| 20 20 20 20 20 20 54 65 | 78 74 50 61 72 74 24 3d |      Te|xtPart$=|
|00003f10| 45 78 63 68 61 6e 67 65 | 24 2b 22 20 20 20 22 2b |Exchange|$+"   "+|
|00003f20| 4c 6f 63 61 74 69 6f 6e | 24 0d 13 88 08 20 20 20 |Location|$....   |
|00003f30| cd 0d 13 92 57 3d c0 54 | 24 2c 46 6f 72 6d 61 74 |....W=.T|$,Format|
|00003f40| 25 29 2b c4 34 2d 46 6f | 72 6d 61 74 25 2c 22 20 |%)+.4-Fo|rmat%," |
|00003f50| 22 29 2b 54 65 78 74 50 | 61 72 74 24 2b c4 53 4c |")+TextP|art$+.SL|
|00003f60| 25 2c 22 20 22 29 2b c1 | 54 24 2c 46 6f 72 6d 61 |%," ")+.|T$,Forma|
|00003f70| 74 25 2b 31 2c 5a 65 72 | 6f 50 6f 73 25 2d 46 6f |t%+1,Zer|oPos%-Fo|
|00003f80| 72 6d 61 74 25 2d 31 29 | 0d 13 9c 05 3a 0d 13 a6 |rmat%-1)|....:...|
|00003f90| 1b dd 20 a4 5f 46 6f 72 | 63 65 54 6f 4c 6f 77 65 |.. ._For|ceToLowe|
|00003fa0| 72 28 54 65 78 74 24 29 | 0d 13 b0 14 20 20 20 ea |r(Text$)|....   .|
|00003fb0| 20 54 65 6d 70 24 2c 4c | 6f 6f 70 25 0d 13 ba 1a | Temp$,L|oop%....|
|00003fc0| 20 20 20 e3 20 4c 6f 6f | 70 25 3d 31 20 b8 20 a9 |   . Loo|p%=1 . .|
|00003fd0| 20 54 65 78 74 24 0d 13 | c4 32 20 20 20 20 20 20 | Text$..|.2      |
|00003fe0| 54 65 6d 70 24 3d 54 65 | 6d 70 24 2b 28 bd 28 97 |Temp$=Te|mp$+(.(.|
|00003ff0| 28 c1 54 65 78 74 24 2c | 4c 6f 6f 70 25 2c 31 29 |(.Text$,|Loop%,1)|
|00004000| 29 20 84 20 33 32 29 29 | 0d 13 ce 08 20 20 20 ed |) . 32))|....   .|
|00004010| 0d 13 d8 0a 3d 54 65 6d | 70 24 0d 13 e2 05 3a 0d |....=Tem|p$....:.|
|00004020| 13 ec 29 dd 20 a4 5f 52 | 65 61 64 53 79 73 74 65 |..). ._R|eadSyste|
|00004030| 6d 56 61 72 69 61 62 6c | 65 28 56 61 72 69 61 62 |mVariabl|e(Variab|
|00004040| 6c 65 4e 61 6d 65 24 29 | 0d 13 f6 31 20 20 20 e3 |leName$)|...1   .|
|00004050| 20 4c 6f 6f 70 25 3d 31 | 30 30 20 b8 20 31 35 30 | Loop%=1|00 . 150|
|00004060| 20 88 20 34 20 3a 20 42 | 6c 6f 63 6b 25 21 4c 6f | . 4 : B|lock%!Lo|
|00004070| 6f 70 25 3d 30 20 3a 20 | ed 0d 14 00 39 20 20 20 |op%=0 : |....9   |
|00004080| c8 99 20 22 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |.. "OS_R|eadVarVa|
|00004090| 6c 22 2c 56 61 72 69 61 | 62 6c 65 4e 61 6d 65 24 |l",Varia|bleName$|
|000040a0| 2c 42 6c 6f 63 6b 25 2b | 31 30 30 2c 35 30 2c 30 |,Block%+|100,50,0|
|000040b0| 2c 33 0d 14 0a 20 3d a0 | 28 a4 5f 52 65 61 64 53 |,3... =.|(._ReadS|
|000040c0| 74 72 69 6e 67 28 42 6c | 6f 63 6b 25 2b 31 30 30 |tring(Bl|ock%+100|
|000040d0| 29 29 0d ff             |                         |))..    |        |
+--------+-------------------------+-------------------------+--------+--------+