home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-01-18 | 21.4 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 3b f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...;. **|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 00 14 3b f4 |********|***...;.|
|00000040| 20 2a 2a 2a 20 20 20 20 | 20 49 61 6e 27 73 20 48 | *** | Ian's H|
|00000050| 69 73 74 6f 67 72 61 6d | 2d 42 61 73 65 64 20 50 |istogram|-Based P|
|00000060| 61 6c 65 74 74 65 20 47 | 65 6e 65 72 61 74 6f 72 |alette G|enerator|
|00000070| 20 20 20 2a 2a 2a 0d 00 | 1e 3c f4 20 2a 2a 2a 20 | ***..|.<. *** |
|00000080| 20 20 50 72 6f 64 75 63 | 65 73 20 32 35 36 20 63 | Produc|es 256 c|
|00000090| 6f 6c 6f 75 72 20 70 61 | 6c 65 74 74 65 73 20 73 |olour pa|lettes s|
|000000a0| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 20 20 2a 2a |uitable |for **|
|000000b0| 2a 20 0d 00 28 3b f4 20 | 2a 2a 2a 20 52 69 73 63 |* ..(;. |*** Risc|
|000000c0| 4f 53 20 32 35 36 20 63 | 6f 6c 6f 75 72 20 73 70 |OS 256 c|olour sp|
|000000d0| 72 69 74 65 73 20 6f 72 | 20 46 72 61 63 74 49 6e |rites or| FractIn|
|000000e0| 74 20 6f 6e 20 61 20 50 | 43 20 2a 2a 2a 0d 00 32 |t on a P|C ***..2|
|000000f0| 3b f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;. *****|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 3c 04 0d 00 46 04 |********|..<...F.|
|00000130| 0d 00 50 09 f2 69 6e 69 | 74 0d 00 5a 25 ee 20 85 |..P..ini|t..Z%. .|
|00000140| 20 ea 20 f2 65 72 72 6f | 72 28 f6 24 2b 22 20 61 | . .erro|r(.$+" a|
|00000150| 74 20 6c 69 6e 65 20 22 | 2b c3 28 9e 29 29 0d 00 |t line "|+.(.))..|
|00000160| 64 04 0d 00 6e 0e c8 95 | 20 ac 20 71 75 69 74 25 |d...n...| . quit%|
|00000170| 0d 00 78 09 f2 70 6f 6c | 6c 0d 00 82 05 ce 0d 00 |..x..pol|l.......|
|00000180| 8c 04 0d 00 96 17 c8 99 | 20 22 57 69 6d 70 5f 43 |........| "Wimp_C|
|00000190| 6c 6f 73 65 44 6f 77 6e | 22 0d 00 a0 05 e0 0d 00 |loseDown|".......|
|000001a0| aa 04 0d 00 b4 04 0d 00 | be 0a dd f2 69 6e 69 74 |........|....init|
|000001b0| 0d 00 c8 07 ea 20 85 0d | 00 d2 27 ee 20 85 20 ea |..... ..|..'. . .|
|000001c0| 20 f2 65 72 72 6f 72 28 | f6 24 2b 22 20 61 74 20 | .error(|.$+" at |
|000001d0| 6c 69 6e 65 20 22 2b c3 | 28 9e 29 29 3a e1 0d 00 |line "+.|(.)):...|
|000001e0| dc 48 de 20 50 61 72 61 | 42 6c 6f 63 6b 25 20 31 |.H. Para|Block% 1|
|000001f0| 30 32 33 2c 69 6d 65 6e | 75 25 20 37 35 2c 20 6d |023,imen|u% 75, m|
|00000200| 6d 65 6e 75 25 20 32 30 | 30 2c 20 6d 65 73 73 25 |menu% 20|0, mess%|
|00000210| 20 32 37 2c 20 54 72 61 | 6e 73 42 75 66 66 65 72 | 27, Tra|nsBuffer|
|00000220| 25 20 34 33 35 31 0d 00 | e6 32 de 20 50 61 6c 65 |% 4351..|.2. Pale|
|00000230| 74 74 65 25 28 32 35 35 | 2c 32 29 20 3a f4 20 2a |tte%(255|,2) :. *|
|00000240| 2a 20 30 3d 72 65 64 2c | 20 31 3d 67 72 65 65 6e |* 0=red,| 1=green|
|00000250| 2c 20 32 3d 62 6c 75 65 | 0d 00 f0 0c 21 6d 65 73 |, 2=blue|....!mes|
|00000260| 73 25 3d 31 0d 00 fa 0d | 6d 65 73 73 25 21 34 3d |s%=1....|mess%!4=|
|00000270| 32 0d 01 04 0d 6d 65 73 | 73 25 21 38 3d 33 0d 01 |2....mes|s%!8=3..|
|00000280| 0e 0e 6d 65 73 73 25 21 | 31 32 3d 34 0d 01 18 0e |..mess%!|12=4....|
|00000290| 6d 65 73 73 25 21 31 36 | 3d 36 0d 01 22 0e 6d 65 |mess%!16|=6..".me|
|000002a0| 73 73 25 21 32 30 3d 37 | 0d 01 2c 0e 6d 65 73 73 |ss%!20=7|..,.mess|
|000002b0| 25 21 32 34 3d 30 0d 01 | 36 0b 71 75 69 74 25 3d |%!24=0..|6.quit%=|
|000002c0| a3 0d 01 40 1d 74 61 73 | 6b 24 3d 22 50 61 6c 65 |...@.tas|k$="Pale|
|000002d0| 74 74 65 20 47 65 6e 65 | 72 61 74 6f 72 22 0d 01 |tte Gene|rator"..|
|000002e0| 4a 16 4f 75 74 46 69 6c | 65 24 3d 22 50 61 6c 65 |J.OutFil|e$="Pale|
|000002f0| 74 74 65 22 0d 01 54 04 | 0d 01 5e 41 c8 99 20 22 |tte"..T.|..^A.. "|
|00000300| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|00000310| 2c 33 31 30 2c 26 34 42 | 35 33 34 31 35 34 2c 74 |,310,&4B|534154,t|
|00000320| 61 73 6b 24 2c 6d 65 73 | 73 25 20 b8 20 2c 54 61 |ask$,mes|s% . ,Ta|
|00000330| 73 6b 48 61 6e 64 6c 65 | 25 0d 01 68 04 0d 01 72 |skHandle|%..h...r|
|00000340| 36 21 50 61 72 61 42 6c | 6f 63 6b 25 3d 2d 31 20 |6!ParaBl|ock%=-1 |
|00000350| 3a 20 20 f4 20 2a 2a 2a | 20 49 6e 73 74 61 6c 6c |: . ***| Install|
|00000360| 20 49 63 6f 6e 20 42 61 | 72 20 49 63 6f 6e 20 2a | Icon Ba|r Icon *|
|00000370| 2a 2a 2a 0d 01 7c 36 50 | 61 72 61 42 6c 6f 63 6b |***..|6P|araBlock|
|00000380| 25 21 34 3d 30 20 3a 20 | 20 f4 20 2d 2d 2d 2d 2d |%!4=0 : | . -----|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 01 86 12 50 61 72 |--------|-....Par|
|000003b0| 61 42 6c 6f 63 6b 25 21 | 38 3d 30 0d 01 90 14 50 |aBlock%!|8=0....P|
|000003c0| 61 72 61 42 6c 6f 63 6b | 25 21 31 32 3d 39 32 0d |araBlock|%!12=92.|
|000003d0| 01 9a 14 50 61 72 61 42 | 6c 6f 63 6b 25 21 31 36 |...ParaB|lock%!16|
|000003e0| 3d 36 38 0d 01 a4 17 50 | 61 72 61 42 6c 6f 63 6b |=68....P|araBlock|
|000003f0| 25 21 32 30 3d 26 33 30 | 30 32 0d 01 ae 1e 24 28 |%!20=&30|02....$(|
|00000400| 50 61 72 61 42 6c 6f 63 | 6b 25 2b 32 34 29 3d 22 |ParaBloc|k%+24)="|
|00000410| 21 50 61 6c 47 65 6e 22 | 0d 01 b8 32 c8 99 20 22 |!PalGen"|...2.. "|
|00000420| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00000430| 2c 2c 50 61 72 61 42 6c | 6f 63 6b 25 20 b8 20 49 |,,ParaBl|ock% . I|
|00000440| 62 61 72 48 61 6e 64 6c | 65 25 0d 01 c2 04 0d 01 |barHandl|e%......|
|00000450| cc 04 0d 01 d6 27 f4 20 | 2a 2a 20 20 46 69 6e 64 |.....'. |** Find|
|00000460| 20 73 69 7a 65 20 6f 66 | 20 73 70 72 69 74 65 73 | size of| sprites|
|00000470| 20 66 69 6c 65 20 20 2a | 2a 0d 01 e0 1e 66 25 3d | file *|*....f%=|
|00000480| 8e 22 3c 50 61 6c 47 65 | 6e 24 44 69 72 3e 2e 73 |."<PalGe|n$Dir>.s|
|00000490| 70 72 69 74 65 73 22 0d | 01 ea 1b 53 70 72 69 74 |prites".|...Sprit|
|000004a0| 65 53 69 7a 65 25 3d a2 | 23 66 25 2b 34 3a d9 23 |eSize%=.|#f%+4:.#|
|000004b0| 66 25 0d 01 f4 31 f4 20 | 2a 2a 20 20 43 72 65 61 |f%...1. |** Crea|
|000004c0| 74 65 20 73 70 72 69 74 | 65 20 61 72 65 61 20 61 |te sprit|e area a|
|000004d0| 6e 64 20 6c 6f 61 64 20 | 73 70 72 69 74 65 73 20 |nd load |sprites |
|000004e0| 20 2a 2a 0d 01 fe 1a de | 20 53 70 72 69 74 65 73 | **.....| Sprites|
|000004f0| 25 20 53 70 72 69 74 65 | 53 69 7a 65 25 0d 02 08 |% Sprite|Size%...|
|00000500| 27 21 53 70 72 69 74 65 | 73 25 3d 53 70 72 69 74 |'!Sprite|s%=Sprit|
|00000510| 65 53 69 7a 65 25 3a 53 | 70 72 69 74 65 73 25 21 |eSize%:S|prites%!|
|00000520| 38 3d 31 36 0d 02 12 21 | c8 99 22 4f 53 5f 53 70 |8=16...!|.."OS_Sp|
|00000530| 72 69 74 65 4f 70 22 2c | 26 31 30 39 2c 53 70 72 |riteOp",|&109,Spr|
|00000540| 69 74 65 73 25 0d 02 1c | 38 c8 99 22 4f 53 5f 53 |ites%...|8.."OS_S|
|00000550| 70 72 69 74 65 4f 70 22 | 2c 26 31 30 41 2c 53 70 |priteOp"|,&10A,Sp|
|00000560| 72 69 74 65 73 25 2c 22 | 3c 50 61 6c 47 65 6e 24 |rites%,"|<PalGen$|
|00000570| 44 69 72 3e 2e 73 70 72 | 69 74 65 73 22 0d 02 26 |Dir>.spr|ites"..&|
|00000580| 04 0d 02 30 4d f4 20 2a | 2a 20 46 69 6e 64 20 73 |...0M. *|* Find s|
|00000590| 69 7a 65 73 20 6f 66 2c | 20 61 6e 64 20 73 65 74 |izes of,| and set|
|000005a0| 20 75 70 20 73 61 76 65 | 20 61 72 65 61 73 20 66 | up save| areas f|
|000005b0| 6f 72 2c 20 76 64 75 20 | 63 6f 6e 74 65 78 74 73 |or, vdu |contexts|
|000005c0| 20 6f 66 20 73 70 72 69 | 74 65 73 20 2a 2a 0d 02 | of spri|tes **..|
|000005d0| 3a 37 c8 99 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |:7.."OS_|SpriteOp|
|000005e0| 22 2c 26 31 33 45 2c 53 | 70 72 69 74 65 73 25 2c |",&13E,S|prites%,|
|000005f0| 22 70 61 6c 2d 62 67 6e | 64 22 20 b8 20 2c 2c 2c |"pal-bgn|d" . ,,,|
|00000600| 73 69 7a 65 25 0d 02 44 | 1b de 20 50 61 6c 65 74 |size%..D|.. Palet|
|00000610| 74 65 43 6f 6e 74 65 78 | 74 25 20 73 69 7a 65 25 |teContex|t% size%|
|00000620| 0d 02 4e 34 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |..N4.."O|S_Sprite|
|00000630| 4f 70 22 2c 26 31 33 45 | 2c 53 70 72 69 74 65 73 |Op",&13E|,Sprites|
|00000640| 25 2c 22 67 72 61 70 68 | 22 20 b8 20 2c 2c 2c 73 |%,"graph|" . ,,,s|
|00000650| 69 7a 65 25 0d 02 58 19 | de 20 47 72 61 70 68 43 |ize%..X.|. GraphC|
|00000660| 6f 6e 74 65 78 74 25 20 | 73 69 7a 65 25 0d 02 62 |ontext% |size%..b|
|00000670| 1e f4 20 2a 2a 20 53 65 | 6e 64 20 6f 75 74 70 75 |.. ** Se|nd outpu|
|00000680| 74 20 74 6f 20 73 63 72 | 65 65 6e 0d 02 6c 1d c8 |t to scr|een..l..|
|00000690| 99 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 |."OS_Spr|iteOp",&|
|000006a0| 31 33 43 2c 30 2c 2c 31 | 0d 02 76 04 0d 02 80 24 |13C,0,,1|..v....$|
|000006b0| f4 20 2a 2a 20 46 69 6e | 64 20 70 6f 69 6e 74 65 |. ** Fin|d pointe|
|000006c0| 72 73 20 74 6f 20 73 70 | 72 69 74 65 73 20 2a 2a |rs to sp|rites **|
|000006d0| 0d 02 8a 3c c8 99 22 4f | 53 5f 53 70 72 69 74 65 |...<.."O|S_Sprite|
|000006e0| 4f 70 22 2c 26 31 31 38 | 2c 53 70 72 69 74 65 73 |Op",&118|,Sprites|
|000006f0| 25 2c 22 70 61 6c 2d 62 | 67 6e 64 22 20 b8 20 2c |%,"pal-b|gnd" . ,|
|00000700| 2c 50 61 6c 65 74 74 65 | 50 74 72 25 0d 02 94 37 |,Palette|Ptr%...7|
|00000710| c8 99 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |.."OS_Sp|riteOp",|
|00000720| 26 31 31 38 2c 53 70 72 | 69 74 65 73 25 2c 22 67 |&118,Spr|ites%,"g|
|00000730| 72 61 70 68 22 20 b8 20 | 2c 2c 47 72 61 70 68 50 |raph" . |,,GraphP|
|00000740| 74 72 25 0d 02 9e 04 0d | 02 a8 1c f4 20 2a 2a 2a |tr%.....|.... ***|
|00000750| 20 4c 6f 61 64 20 54 65 | 6d 70 6c 61 74 65 73 20 | Load Te|mplates |
|00000760| 2a 2a 2a 0d 02 b2 1c f4 | 20 2d 2d 2d 2d 2d 2d 2d |***.....| -------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000780| 02 bc 04 0d 02 c6 4f de | 20 4d 61 69 6e 49 6e 64 |......O.| MainInd|
|00000790| 25 20 31 36 32 2c 20 53 | 61 76 65 49 6e 64 25 20 |% 162, S|aveInd% |
|000007a0| 31 34 38 2c 20 45 71 6e | 49 6e 64 25 20 33 37 39 |148, Eqn|Ind% 379|
|000007b0| 2c 20 49 6e 66 6f 49 6e | 64 25 20 38 34 2c 20 6e |, InfoIn|d% 84, n|
|000007c0| 61 6d 65 25 20 31 35 2c | 20 54 69 74 6c 65 25 20 |ame% 15,| Title% |
|000007d0| 32 33 0d 02 d0 34 c8 99 | 20 22 57 69 6d 70 5f 4f |23...4..| "Wimp_O|
|000007e0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|000007f0| 50 61 6c 47 65 6e 24 44 | 69 72 3e 2e 54 65 6d 70 |PalGen$D|ir>.Temp|
|00000800| 6c 61 74 65 73 22 0d 02 | da 04 0d 02 e4 27 24 6e |lates"..|.....'$n|
|00000810| 61 6d 65 25 3d c4 31 32 | 2c bd 28 30 29 29 3a 24 |ame%=.12|,.(0)):$|
|00000820| 6e 61 6d 65 25 3d 22 45 | 71 75 61 74 69 6f 6e 73 |name%="E|quations|
|00000830| 22 0d 02 ee 53 c8 99 20 | 22 57 69 6d 70 5f 4c 6f |"...S.. |"Wimp_Lo|
|00000840| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 50 61 72 |adTempla|te",,Par|
|00000850| 61 42 6c 6f 63 6b 25 2c | 45 71 6e 49 6e 64 25 2c |aBlock%,|EqnInd%,|
|00000860| 45 71 6e 49 6e 64 25 2b | 33 37 39 2c 2d 31 2c 6e |EqnInd%+|379,-1,n|
|00000870| 61 6d 65 25 2c 30 20 b8 | 20 2c 2c 2c 2c 2c 2c 6e |ame%,0 .| ,,,,,,n|
|00000880| 65 78 74 25 0d 02 f8 16 | 50 61 72 61 42 6c 6f 63 |ext%....|ParaBloc|
|00000890| 6b 25 21 35 36 3d 26 31 | 31 39 0d 03 02 18 50 61 |k%!56=&1|19....Pa|
|000008a0| 72 61 42 6c 6f 63 6b 25 | 21 37 32 3d 54 69 74 6c |raBlock%|!72=Titl|
|000008b0| 65 25 0d 03 0c 14 50 61 | 72 61 42 6c 6f 63 6b 25 |e%....Pa|raBlock%|
|000008c0| 21 37 36 3d 2d 31 0d 03 | 16 14 50 61 72 61 42 6c |!76=-1..|..ParaBl|
|000008d0| 6f 63 6b 25 21 38 30 3d | 32 34 0d 03 20 37 c8 99 |ock%!80=|24.. 7..|
|000008e0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000008f0| 6f 77 22 2c 2c 50 61 72 | 61 42 6c 6f 63 6b 25 20 |ow",,Par|aBlock% |
|00000900| b8 20 45 71 75 61 74 69 | 6f 6e 48 61 6e 64 6c 65 |. Equati|onHandle|
|00000910| 25 0d 03 2a 04 0d 03 34 | 22 24 6e 61 6d 65 25 3d |%..*...4|"$name%=|
|00000920| c4 31 32 2c bd 28 30 29 | 29 3a 24 6e 61 6d 65 25 |.12,.(0)|):$name%|
|00000930| 3d 22 49 6e 66 6f 22 0d | 03 3e 58 c8 99 20 22 57 |="Info".|.>X.. "W|
|00000940| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00000950| 22 2c 2c 50 61 72 61 42 | 6c 6f 63 6b 25 2c 49 6e |",,ParaB|lock%,In|
|00000960| 66 6f 49 6e 64 25 2c 49 | 6e 66 6f 49 6e 64 25 2b |foInd%,I|nfoInd%+|
|00000970| 38 34 2c 2d 31 2c 6e 61 | 6d 65 25 2c 6e 65 78 74 |84,-1,na|me%,next|
|00000980| 25 20 b8 20 2c 2c 2c 2c | 2c 2c 6e 65 78 74 25 0d |% . ,,,,|,,next%.|
|00000990| 03 48 33 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |.H3.."Wi|mp_Creat|
|000009a0| 65 57 69 6e 64 6f 77 22 | 2c 2c 50 61 72 61 42 6c |eWindow"|,,ParaBl|
|000009b0| 6f 63 6b 25 20 b8 20 49 | 6e 66 6f 48 61 6e 64 6c |ock% . I|nfoHandl|
|000009c0| 65 25 0d 03 52 04 0d 03 | 5c 11 24 6e 61 6d 65 25 |e%..R...|\.$name%|
|000009d0| 3d 22 4d 61 69 6e 22 0d | 03 66 59 c8 99 20 22 57 |="Main".|.fY.. "W|
|000009e0| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|000009f0| 22 2c 2c 50 61 72 61 42 | 6c 6f 63 6b 25 2c 4d 61 |",,ParaB|lock%,Ma|
|00000a00| 69 6e 49 6e 64 25 2c 4d | 61 69 6e 49 6e 64 25 2b |inInd%,M|ainInd%+|
|00000a10| 31 36 32 2c 2d 31 2c 6e | 61 6d 65 25 2c 6e 65 78 |162,-1,n|ame%,nex|
|00000a20| 74 25 20 b8 20 2c 2c 2c | 2c 2c 2c 6e 65 78 74 25 |t% . ,,,|,,,next%|
|00000a30| 0d 03 70 1a 50 61 72 61 | 42 6c 6f 63 6b 25 21 36 |..p.Para|Block%!6|
|00000a40| 34 3d 53 70 72 69 74 65 | 73 25 0d 03 7a 16 50 61 |4=Sprite|s%..z.Pa|
|00000a50| 72 61 42 6c 6f 63 6b 25 | 21 35 36 3d 26 31 31 39 |raBlock%|!56=&119|
|00000a60| 0d 03 84 18 50 61 72 61 | 42 6c 6f 63 6b 25 21 37 |....Para|Block%!7|
|00000a70| 32 3d 54 69 74 6c 65 25 | 0d 03 8e 14 50 61 72 61 |2=Title%|....Para|
|00000a80| 42 6c 6f 63 6b 25 21 37 | 36 3d 2d 31 0d 03 98 14 |Block%!7|6=-1....|
|00000a90| 50 61 72 61 42 6c 6f 63 | 6b 25 21 38 30 3d 32 34 |ParaBloc|k%!80=24|
|00000aa0| 0d 03 a2 33 c8 99 22 57 | 69 6d 70 5f 43 72 65 61 |...3.."W|imp_Crea|
|00000ab0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 50 61 72 61 42 |teWindow|",,ParaB|
|00000ac0| 6c 6f 63 6b 25 20 b8 20 | 4d 61 69 6e 48 61 6e 64 |lock% . |MainHand|
|00000ad0| 6c 65 25 0d 03 ac 04 0d | 03 b6 25 24 6e 61 6d 65 |le%.....|..%$name|
|00000ae0| 25 3d c4 31 32 2c bd 28 | 30 29 29 3a 24 6e 61 6d |%=.12,.(|0)):$nam|
|00000af0| 65 25 3d 22 50 61 6c 65 | 74 74 65 22 0d 03 c0 45 |e%="Pale|tte"...E|
|00000b00| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00000b10| 70 6c 61 74 65 22 2c 2c | 50 61 72 61 42 6c 6f 63 |plate",,|ParaBloc|
|00000b20| 6b 25 2c 2c 2c 2d 31 2c | 6e 61 6d 65 25 2c 6e 65 |k%,,,-1,|name%,ne|
|00000b30| 78 74 25 20 b8 20 2c 2c | 2c 2c 2c 2c 6e 65 78 74 |xt% . ,,|,,,,next|
|00000b40| 25 0d 03 ca 1a 50 61 72 | 61 42 6c 6f 63 6b 25 21 |%....Par|aBlock%!|
|00000b50| 36 34 3d 53 70 72 69 74 | 65 73 25 0d 03 d4 16 50 |64=Sprit|es%....P|
|00000b60| 61 72 61 42 6c 6f 63 6b | 25 21 35 36 3d 26 31 31 |araBlock|%!56=&11|
|00000b70| 39 0d 03 de 18 50 61 72 | 61 42 6c 6f 63 6b 25 21 |9....Par|aBlock%!|
|00000b80| 37 32 3d 54 69 74 6c 65 | 25 0d 03 e8 14 50 61 72 |72=Title|%....Par|
|00000b90| 61 42 6c 6f 63 6b 25 21 | 37 36 3d 2d 31 0d 03 f2 |aBlock%!|76=-1...|
|00000ba0| 14 50 61 72 61 42 6c 6f | 63 6b 25 21 38 30 3d 32 |.ParaBlo|ck%!80=2|
|00000bb0| 34 0d 03 fc 36 c8 99 22 | 57 69 6d 70 5f 43 72 65 |4...6.."|Wimp_Cre|
|00000bc0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 50 61 72 61 |ateWindo|w",,Para|
|00000bd0| 42 6c 6f 63 6b 25 20 b8 | 20 50 61 6c 65 74 74 65 |Block% .| Palette|
|00000be0| 48 61 6e 64 6c 65 25 0d | 04 06 04 0d 04 10 25 24 |Handle%.|......%$|
|00000bf0| 6e 61 6d 65 25 3d c4 31 | 32 2c bd 28 30 29 29 3a |name%=.1|2,.(0)):|
|00000c00| 24 6e 61 6d 65 25 3d 22 | 53 61 76 65 42 6f 78 22 |$name%="|SaveBox"|
|00000c10| 0d 04 1a 4b c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...K.. "|Wimp_Loa|
|00000c20| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 50 61 72 61 |dTemplat|e",,Para|
|00000c30| 42 6c 6f 63 6b 25 2c 53 | 61 76 65 49 6e 64 25 2c |Block%,S|aveInd%,|
|00000c40| 53 61 76 65 49 6e 64 25 | 2b 31 34 38 2c 2d 31 2c |SaveInd%|+148,-1,|
|00000c50| 6e 61 6d 65 25 2c 6e 65 | 78 74 25 0d 04 24 23 53 |name%,ne|xt%..$#S|
|00000c60| 61 76 65 54 79 70 65 49 | 63 6f 6e 50 74 72 25 3d |aveTypeI|conPtr%=|
|00000c70| 50 61 72 61 42 6c 6f 63 | 6b 25 21 32 36 38 0d 04 |ParaBloc|k%!268..|
|00000c80| 2e 33 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |.3.."Wim|p_Create|
|00000c90| 57 69 6e 64 6f 77 22 2c | 2c 50 61 72 61 42 6c 6f |Window",|,ParaBlo|
|00000ca0| 63 6b 25 20 b8 20 53 61 | 76 65 48 61 6e 64 6c 65 |ck% . Sa|veHandle|
|00000cb0| 25 0d 04 38 04 0d 04 42 | 1a c8 99 22 57 69 6d 70 |%..8...B|..."Wimp|
|00000cc0| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00000cd0| 04 4c 04 0d 04 56 3b f4 | 20 2a 2a 2a 20 49 6e 73 |.L...V;.| *** Ins|
|00000ce0| 65 72 74 20 44 65 66 61 | 75 6c 74 20 46 69 6c 65 |ert Defa|ult File|
|00000cf0| 6e 61 6d 65 20 49 6e 74 | 6f 20 4f 75 74 70 75 74 |name Int|o Output|
|00000d00| 20 46 69 6c 65 20 49 63 | 6f 6e 20 2a 2a 2a 0d 04 | File Ic|on ***..|
|00000d10| 60 2a f2 49 63 6f 6e 54 | 65 78 74 28 53 61 76 65 |`*.IconT|ext(Save|
|00000d20| 48 61 6e 64 6c 65 25 2c | 32 2c 4f 75 74 46 69 6c |Handle%,|2,OutFil|
|00000d30| 65 24 2b bd 28 30 29 29 | 0d 04 6a 04 0d 04 74 22 |e$+.(0))|..j...t"|
|00000d40| f4 20 2a 2a 2a 20 53 65 | 74 20 75 70 20 69 63 6f |. *** Se|t up ico|
|00000d50| 6e 20 62 61 72 20 6d 65 | 6e 75 20 2a 2a 2a 0d 04 |n bar me|nu ***..|
|00000d60| 7e 14 24 69 6d 65 6e 75 | 25 3d 22 50 61 6c 47 65 |~.$imenu|%="PalGe|
|00000d70| 6e 22 0d 04 88 3d 69 6d | 65 6e 75 25 21 31 32 3d |n"...=im|enu%!12=|
|00000d80| 26 30 30 30 37 30 32 30 | 37 3a 69 6d 65 6e 75 25 |&0007020|7:imenu%|
|00000d90| 21 31 36 3d 39 36 3a 69 | 6d 65 6e 75 25 21 32 30 |!16=96:i|menu%!20|
|00000da0| 3d 34 34 3a 69 6d 65 6e | 75 25 21 32 34 3d 30 0d |=44:imen|u%!24=0.|
|00000db0| 04 92 4e 69 6d 65 6e 75 | 25 21 32 38 3d 30 3a 20 |..Nimenu|%!28=0: |
|00000dc0| 69 6d 65 6e 75 25 21 33 | 32 3d 49 6e 66 6f 48 61 |imenu%!3|2=InfoHa|
|00000dd0| 6e 64 6c 65 25 3a 69 6d | 65 6e 75 25 21 33 36 3d |ndle%:im|enu%!36=|
|00000de0| 26 30 37 30 30 30 30 32 | 31 3a 24 28 69 6d 65 6e |&0700002|1:$(imen|
|00000df0| 75 25 2b 34 30 29 3d 22 | 49 6e 66 6f 22 0d 04 9c |u%+40)="|Info"...|
|00000e00| 47 69 6d 65 6e 75 25 21 | 35 32 3d 26 38 30 3a 20 |Gimenu%!|52=&80: |
|00000e10| 69 6d 65 6e 75 25 21 35 | 36 3d 2d 31 3a 69 6d 65 |imenu%!5|6=-1:ime|
|00000e20| 6e 75 25 21 36 30 3d 26 | 30 37 30 30 30 30 32 31 |nu%!60=&|07000021|
|00000e30| 3a 24 28 69 6d 65 6e 75 | 25 2b 36 34 29 3d 22 51 |:$(imenu|%+64)="Q|
|00000e40| 75 69 74 22 0d 04 a6 04 | 0d 04 b0 1e f4 20 2a 2a |uit"....|..... **|
|00000e50| 2a 20 53 65 74 20 75 70 | 20 6d 61 69 6e 20 6d 65 |* Set up| main me|
|00000e60| 6e 75 20 2a 2a 2a 0d 04 | ba 14 24 6d 6d 65 6e 75 |nu ***..|..$mmenu|
|00000e70| 25 3d 22 50 61 6c 47 65 | 6e 22 0d 04 c4 3e 6d 6d |%="PalGe|n"...>mm|
|00000e80| 65 6e 75 25 21 31 32 3d | 26 30 30 30 37 30 32 30 |enu%!12=|&0007020|
|00000e90| 37 3a 6d 6d 65 6e 75 25 | 21 31 36 3d 32 30 30 3a |7:mmenu%|!16=200:|
|00000ea0| 6d 6d 65 6e 75 25 21 32 | 30 3d 34 34 3a 6d 6d 65 |mmenu%!2|0=44:mme|
|00000eb0| 6e 75 25 21 32 34 3d 30 | 0d 04 ce 4d 6d 6d 65 6e |nu%!24=0|...Mmmen|
|00000ec0| 75 25 21 32 38 3d 30 3a | 6d 6d 65 6e 75 25 21 33 |u%!28=0:|mmenu%!3|
|00000ed0| 32 3d 53 61 76 65 48 61 | 6e 64 6c 65 25 3a 6d 6d |2=SaveHa|ndle%:mm|
|00000ee0| 65 6e 75 25 21 33 36 3d | 26 30 37 30 30 30 30 32 |enu%!36=|&0700002|
|00000ef0| 31 3a 24 28 6d 6d 65 6e | 75 25 2b 34 30 29 3d 22 |1:$(mmen|u%+40)="|
|00000f00| 53 61 76 65 22 0d 04 d8 | 56 6d 6d 65 6e 75 25 21 |Save"...|Vmmenu%!|
|00000f10| 35 32 3d 30 3a 6d 6d 65 | 6e 75 25 21 35 36 3d 45 |52=0:mme|nu%!56=E|
|00000f20| 71 75 61 74 69 6f 6e 48 | 61 6e 64 6c 65 25 3a 6d |quationH|andle%:m|
|00000f30| 6d 65 6e 75 25 21 36 30 | 3d 26 30 37 30 30 30 30 |menu%!60|=&070000|
|00000f40| 32 31 3a 24 28 6d 6d 65 | 6e 75 25 2b 36 34 29 3d |21:$(mme|nu%+64)=|
|00000f50| 22 45 71 75 61 74 69 6f | 6e 73 22 0d 04 e2 4e 6d |"Equatio|ns"...Nm|
|00000f60| 6d 65 6e 75 25 21 37 36 | 3d 26 38 30 3a 6d 6d 65 |menu%!76|=&80:mme|
|00000f70| 6e 75 25 21 38 30 3d 2d | 31 3a 6d 6d 65 6e 75 25 |nu%!80=-|1:mmenu%|
|00000f80| 21 38 34 3d 26 30 37 30 | 30 30 30 32 31 3a 24 28 |!84=&070|00021:$(|
|00000f90| 6d 6d 65 6e 75 25 2b 38 | 38 29 3d 22 53 68 6f 77 |mmenu%+8|8)="Show|
|00000fa0| 20 70 61 6c 65 74 74 65 | 22 0d 04 ec 04 0d 04 f6 | palette|".......|
|00000fb0| 12 4c 6f 61 64 54 79 70 | 65 25 3d 26 46 45 44 0d |.LoadTyp|e%=&FED.|
|00000fc0| 05 00 12 53 61 76 65 54 | 79 70 65 25 3d 26 46 45 |...SaveT|ype%=&FE|
|00000fd0| 44 0d 05 0a 0e 50 72 69 | 6d 61 72 79 25 3d 30 0d |D....Pri|mary%=0.|
|00000fe0| 05 14 11 4e 6f 77 4c 6f | 61 64 69 6e 67 25 3d a3 |...NowLo|ading%=.|
|00000ff0| 0d 05 1e 11 4e 6f 77 53 | 65 6e 64 69 6e 67 25 3d |....NowS|ending%=|
|00001000| a3 0d 05 28 0d 4f 6c 64 | 4c 43 4e 25 3d 30 0d 05 |...(.Old|LCN%=0..|
|00001010| 32 10 49 6e 74 65 6e 73 | 69 74 79 25 3d 30 0d 05 |2.Intens|ity%=0..|
|00001020| 3c 13 4f 6c 64 49 6e 74 | 65 6e 73 69 74 79 25 3d |<.OldInt|ensity%=|
|00001030| 30 0d 05 46 17 58 63 6f | 6f 72 64 25 3d 30 3a 59 |0..F.Xco|ord%=0:Y|
|00001040| 63 6f 6f 72 64 25 3d 30 | 0d 05 50 36 52 65 71 6e |coord%=0|..P6Reqn|
|00001050| 24 3d 22 43 56 25 22 2b | bd 28 30 29 3a 47 65 71 |$="CV%"+|.(0):Geq|
|00001060| 6e 24 3d 22 43 56 25 22 | 2b bd 28 30 29 3a 42 65 |n$="CV%"|+.(0):Be|
|00001070| 71 6e 24 3d 22 43 56 25 | 22 2b bd 28 30 29 0d 05 |qn$="CV%|"+.(0)..|
|00001080| 5a 24 f2 4c 6f 61 64 50 | 61 6c 28 22 3c 50 61 6c |Z$.LoadP|al("<Pal|
|00001090| 47 65 6e 24 44 69 72 3e | 2e 44 65 66 61 75 6c 74 |Gen$Dir>|.Default|
|000010a0| 22 29 0d 05 64 07 f7 20 | 85 0d 05 6e 05 e1 0d 05 |")..d.. |...n....|
|000010b0| 78 04 0d 05 82 04 0d 05 | 8c 0a dd f2 70 6f 6c 6c |x.......|....poll|
|000010c0| 0d 05 96 2d c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c |...-.. "|Wimp_Pol|
|000010d0| 6c 22 2c 26 32 30 30 33 | 2c 50 61 72 61 42 6c 6f |l",&2003|,ParaBlo|
|000010e0| 63 6b 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 05 a0 |ck% . re|ason%...|
|000010f0| 04 0d 05 aa 3b 57 48 25 | 3d 50 61 72 61 42 6c 6f |....;WH%|=ParaBlo|
|00001100| 63 6b 25 21 31 32 3a 20 | 20 f4 20 2a 2a 2a 20 54 |ck%!12: | . *** T|
|00001110| 68 69 73 20 69 73 20 74 | 68 65 20 57 69 6e 64 6f |his is t|he Windo|
|00001120| 77 20 48 61 6e 64 6c 65 | 20 2a 2a 2a 0d 05 b4 04 |w Handle| ***....|
|00001130| 0d 05 be 10 c8 8e 20 72 | 65 61 73 6f 6e 25 20 ca |...... r|eason% .|
|00001140| 0d 05 c8 29 c9 20 32 3a | 20 c8 99 20 22 57 69 6d |...). 2:| .. "Wim|
|00001150| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 50 |p_OpenWi|ndow",,P|
|00001160| 61 72 61 42 6c 6f 63 6b | 25 0d 05 d2 2a c9 20 33 |araBlock|%...*. 3|
|00001170| 3a 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |: .. "Wi|mp_Close|
|00001180| 57 69 6e 64 6f 77 22 2c | 2c 50 61 72 61 42 6c 6f |Window",|,ParaBlo|
|00001190| 63 6b 25 0d 05 dc 15 c9 | 20 36 3a 20 f2 63 6c 69 |ck%.....| 6: .cli|
|000011a0| 63 6b 20 28 57 48 25 29 | 0d 05 e6 11 c9 20 37 3a |ck (WH%)|..... 7:|
|000011b0| 20 f2 44 72 61 67 45 6e | 64 0d 05 f0 14 c9 20 38 | .DragEn|d..... 8|
|000011c0| 3a 20 f2 4b 65 79 50 72 | 65 73 73 65 64 0d 05 fa |: .KeyPr|essed...|
|000011d0| 1c c9 20 39 3a 20 f2 4d | 65 6e 75 53 65 6c 65 63 |.. 9: .M|enuSelec|
|000011e0| 74 69 6f 6e 28 57 48 25 | 29 0d 06 04 1c c9 20 31 |tion(WH%|)..... 1|
|000011f0| 37 2c 31 38 3a 20 f2 52 | 65 63 65 69 76 65 4d 65 |7,18: .R|eceiveMe|
|00001200| 73 73 61 67 65 0d 06 0e | 16 c9 20 31 39 3a 20 f2 |ssage...|.. 19: .|
|00001210| 52 65 63 65 69 76 65 45 | 63 68 6f 0d 06 18 05 cb |ReceiveE|cho.....|
|00001220| 0d 06 22 05 e1 0d 06 2c | 04 0d 06 36 04 0d 06 40 |.."....,|...6...@|
|00001230| 14 dd f2 63 6c 69 63 6b | 28 77 69 6e 64 6f 77 25 |...click|(window%|
|00001240| 29 0d 06 4a 1a 62 75 74 | 74 6f 6e 73 25 3d 20 50 |)..J.but|tons%= P|
|00001250| 61 72 61 42 6c 6f 63 6b | 25 21 38 0d 06 54 17 69 |araBlock|%!8..T.i|
|00001260| 63 6f 6e 25 3d 50 61 72 | 61 42 6c 6f 63 6b 25 21 |con%=Par|aBlock%!|
|00001270| 31 36 0d 06 5e 18 4d 6f | 75 73 65 58 25 3d 50 61 |16..^.Mo|useX%=Pa|
|00001280| 72 61 42 6c 6f 63 6b 25 | 21 30 0d 06 68 18 4d 6f |raBlock%|!0..h.Mo|
|00001290| 75 73 65 59 25 3d 50 61 | 72 61 42 6c 6f 63 6b 25 |useY%=Pa|raBlock%|
|000012a0| 21 34 0d 06 72 04 0d 06 | 7c 10 c8 8e 20 77 69 6e |!4..r...||... win|
|000012b0| 64 6f 77 25 20 ca 0d 06 | 86 1e c9 20 2d 32 3a 20 |dow% ...|... -2: |
|000012c0| f2 49 62 61 72 43 6c 69 | 63 6b 28 62 75 74 74 6f |.IbarCli|ck(butto|
|000012d0| 6e 73 25 29 0d 06 90 23 | c9 20 4d 61 69 6e 48 61 |ns%)...#|. MainHa|
|000012e0| 6e 64 6c 65 25 3a f2 4d | 61 69 6e 43 6c 69 63 6b |ndle%:.M|ainClick|
|000012f0| 28 69 63 6f 6e 25 29 0d | 06 9a 2f c9 20 53 61 76 |(icon%).|../. Sav|
|00001300| 65 48 61 6e 64 6c 65 25 | 3a f2 53 61 76 65 42 6f |eHandle%|:.SaveBo|
|00001310| 78 43 6c 69 63 6b 28 62 | 75 74 74 6f 6e 73 25 2c |xClick(b|uttons%,|
|00001320| 69 63 6f 6e 25 29 0d 06 | a4 2b c9 20 49 6e 66 6f |icon%)..|.+. Info|
|00001330| 48 61 6e 64 6c 65 25 3a | 20 f2 4f 70 65 6e 57 69 |Handle%:| .OpenWi|
|00001340| 6e 64 6f 77 28 49 6e 66 | 6f 48 61 6e 64 6c 65 25 |ndow(Inf|oHandle%|
|00001350| 29 0d 06 ae 2f c9 20 45 | 71 75 61 74 69 6f 6e 48 |).../. E|quationH|
|00001360| 61 6e 64 6c 65 25 3a f2 | 45 71 6e 43 6c 69 63 6b |andle%:.|EqnClick|
|00001370| 28 69 63 6f 6e 25 2c 62 | 75 74 74 6f 6e 73 25 29 |(icon%,b|uttons%)|
|00001380| 0d 06 b8 05 cb 0d 06 c2 | 05 e1 0d 06 cc 04 0d 06 |........|........|
|00001390| d6 04 0d 06 e0 19 dd f2 | 49 62 61 72 43 6c 69 63 |........|IbarClic|
|000013a0| 6b 28 62 75 74 74 6f 6e | 73 25 29 0d 06 ea 11 c8 |k(button|s%).....|
|000013b0| 8e 20 62 75 74 74 6f 6e | 73 25 20 ca 0d 06 f4 09 |. button|s% .....|
|000013c0| c9 20 31 2c 34 0d 06 fe | 1c f2 4f 70 65 6e 57 69 |. 1,4...|..OpenWi|
|000013d0| 6e 64 6f 77 28 4d 61 69 | 6e 48 61 6e 64 6c 65 25 |ndow(Mai|nHandle%|
|000013e0| 29 0d 07 08 1f f2 4f 70 | 65 6e 57 69 6e 64 6f 77 |).....Op|enWindow|
|000013f0| 28 50 61 6c 65 74 74 65 | 48 61 6e 64 6c 65 25 29 |(Palette|Handle%)|
|00001400| 0d 07 12 2d c9 20 32 3a | 20 f2 53 68 6f 77 4d 65 |...-. 2:| .ShowMe|
|00001410| 6e 75 28 69 6d 65 6e 75 | 25 2c 21 50 61 72 61 42 |nu(imenu|%,!ParaB|
|00001420| 6c 6f 63 6b 25 2d 36 34 | 2c 31 38 34 29 0d 07 1c |lock%-64|,184)...|
|00001430| 05 cb 0d 07 26 05 e1 0d | 07 30 04 0d 07 3a 04 0d |....&...|.0...:..|
|00001440| 07 44 16 dd f2 4d 61 69 | 6e 43 6c 69 63 6b 28 69 |.D...Mai|nClick(i|
|00001450| 63 6f 6e 25 29 0d 07 4e | 1f c8 97 20 4d 6f 75 73 |con%)..N|... Mous|
|00001460| 65 58 25 2c 4d 6f 75 73 | 65 59 25 2c 62 75 74 74 |eX%,Mous|eY%,butt|
|00001470| 6f 6e 73 25 0d 07 58 11 | c8 8e 20 62 75 74 74 6f |ons%..X.|.. butto|
|00001480| 6e 73 25 20 ca 0d 07 62 | 37 20 20 c9 20 32 3a f2 |ns% ...b|7 . 2:.|
|00001490| 53 68 6f 77 4d 65 6e 75 | 28 6d 6d 65 6e 75 25 2c |ShowMenu|(mmenu%,|
|000014a0| 21 50 61 72 61 42 6c 6f | 63 6b 25 2d 36 34 2c 50 |!ParaBlo|ck%-64,P|
|000014b0| 61 72 61 42 6c 6f 63 6b | 25 21 34 29 0d 07 6c 0b |araBlock|%!4)..l.|
|000014c0| 20 20 c9 20 31 2c 34 0d | 07 76 12 20 20 20 20 c8 | . 1,4.|.v. .|
|000014d0| 8e 20 69 63 6f 6e 25 20 | ca 0d 07 80 0b 20 20 20 |. icon% |..... |
|000014e0| 20 c9 20 33 0d 07 8a 27 | 20 20 20 20 20 20 f2 47 | . 3...'| .G|
|000014f0| 65 74 4e 65 77 56 61 6c | 75 65 28 4d 6f 75 73 65 |etNewVal|ue(Mouse|
|00001500| 58 25 2c 4d 6f 75 73 65 | 59 25 29 0d 07 94 37 20 |X%,Mouse|Y%)...7 |
|00001510| 20 20 20 20 20 e7 20 4c | 43 4e 25 3c 3e 4f 6c 64 | . L|CN%<>Old|
|00001520| 4c 43 4e 25 20 84 20 49 | 6e 74 65 6e 73 69 74 79 |LCN% . I|ntensity|
|00001530| 25 3c 3e 4f 6c 64 49 6e | 74 65 6e 73 69 74 79 25 |%<>OldIn|tensity%|
|00001540| 20 8c 0d 07 9e 2b 20 20 | 20 20 20 20 20 20 f2 52 | ....+ | .R|
|00001550| 65 64 72 61 77 28 50 72 | 69 6d 61 72 79 25 2c 4c |edraw(Pr|imary%,L|
|00001560| 43 4e 25 2c 62 75 74 74 | 6f 6e 73 25 29 0d 07 a8 |CN%,butt|ons%)...|
|00001570| 26 20 20 20 20 20 20 20 | 20 f2 52 65 64 72 61 77 |& | .Redraw|
|00001580| 49 63 6f 6e 28 4d 61 69 | 6e 48 61 6e 64 6c 65 25 |Icon(Mai|nHandle%|
|00001590| 2c 33 29 0d 07 b2 29 20 | 20 20 20 20 20 20 20 f2 |,3)...) | .|
|000015a0| 52 65 64 72 61 77 49 63 | 6f 6e 28 50 61 6c 65 74 |RedrawIc|on(Palet|
|000015b0| 74 65 48 61 6e 64 6c 65 | 25 2c 30 29 0d 07 bc 0b |teHandle|%,0)....|
|000015c0| 20 20 20 20 20 20 cd 0d | 07 c6 0f 20 20 20 20 c9 | ..|... .|
|000015d0| 20 34 2c 35 2c 36 0d 07 | d0 1f 20 20 20 20 20 20 | 4,5,6..|.. |
|000015e0| e7 20 69 63 6f 6e 25 2d | 34 3c 3e 50 72 69 6d 61 |. icon%-|4<>Prima|
|000015f0| 72 79 25 20 8c 0d 07 da | 1c 20 20 20 20 20 20 20 |ry% ....|. |
|00001600| 20 50 72 69 6d 61 72 79 | 25 3d 69 63 6f 6e 25 2d | Primary|%=icon%-|
|00001610| 34 0d 07 e4 20 20 20 20 | 20 20 20 20 20 f2 44 72 |4... | .Dr|
|00001620| 61 77 47 72 61 70 68 28 | 50 72 69 6d 61 72 79 25 |awGraph(|Primary%|
|00001630| 29 0d 07 ee 26 20 20 20 | 20 20 20 20 20 f2 52 65 |)...& | .Re|
|00001640| 64 72 61 77 49 63 6f 6e | 28 4d 61 69 6e 48 61 6e |drawIcon|(MainHan|
|00001650| 64 6c 65 25 2c 33 29 0d | 07 f8 0b 20 20 20 20 20 |dle%,3).|... |
|00001660| 20 cd 0d 08 02 09 20 20 | 20 20 cb 0d 08 0c 35 20 | ..... | ....5 |
|00001670| 20 c9 20 30 3a e7 20 69 | 63 6f 6e 25 3d 33 20 8c | . 0:. i|con%=3 .|
|00001680| 20 f2 47 65 74 4e 65 77 | 56 61 6c 75 65 28 4d 6f | .GetNew|Value(Mo|
|00001690| 75 73 65 58 25 2c 4d 6f | 75 73 65 59 25 29 20 20 |useX%,Mo|useY%) |
|000016a0| 0d 08 16 05 cb 0d 08 20 | 05 e1 0d 08 2a 04 0d 08 |....... |....*...|
|000016b0| 34 04 0d 08 3e 1e dd f2 | 45 71 6e 43 6c 69 63 6b |4...>...|EqnClick|
|000016c0| 28 69 63 6f 6e 25 2c 62 | 75 74 74 6f 6e 73 25 29 |(icon%,b|uttons%)|
|000016d0| 0d 08 48 30 e7 20 62 75 | 74 74 6f 6e 73 25 3d 34 |..H0. bu|ttons%=4|
|000016e0| 20 8c 20 f2 43 6c 6f 73 | 65 57 69 6e 64 6f 77 28 | . .Clos|eWindow(|
|000016f0| 45 71 75 61 74 69 6f 6e | 48 61 6e 64 6c 65 25 29 |Equation|Handle%)|
|00001700| 0d 08 52 0e c8 8e 20 69 | 63 6f 6e 25 20 ca 0d 08 |..R... i|con% ...|
|00001710| 5c 25 c9 20 38 3a 20 f2 | 41 6c 74 65 72 3a f2 52 |\%. 8: .|Alter:.R|
|00001720| 65 73 65 74 45 71 6e 28 | 62 75 74 74 6f 6e 73 25 |esetEqn(|buttons%|
|00001730| 3d 31 29 0d 08 66 1e c9 | 20 39 3a 20 f2 52 65 73 |=1)..f..| 9: .Res|
|00001740| 65 74 45 71 6e 28 62 75 | 74 74 6f 6e 73 25 3d 31 |etEqn(bu|ttons%=1|
|00001750| 29 0d 08 70 05 cb 0d 08 | 7a 05 e1 0d 08 84 04 0d |)..p....|z.......|
|00001760| 08 8e 04 0d 08 98 22 dd | f2 53 61 76 65 42 6f 78 |......".|.SaveBox|
|00001770| 43 6c 69 63 6b 28 62 75 | 74 74 6f 6e 73 25 2c 69 |Click(bu|ttons%,i|
|00001780| 63 6f 6e 25 29 0d 08 a2 | 45 e7 20 28 28 62 75 74 |con%)...|E. ((but|
|00001790| 74 6f 6e 73 25 20 80 20 | 36 34 29 3d 36 34 20 84 |tons% . |64)=64 .|
|000017a0| 20 28 62 75 74 74 6f 6e | 73 25 20 80 20 31 36 29 | (button|s% . 16)|
|000017b0| 3d 31 36 29 20 80 20 69 | 63 6f 6e 25 3d 35 20 8c |=16) . i|con%=5 .|
|000017c0| 20 f2 44 72 61 67 49 63 | 6f 6e 0d 08 ac 0e c8 8e | .DragIc|on......|
|000017d0| 20 69 63 6f 6e 25 20 ca | 0d 08 b6 07 c9 20 33 0d | icon% .|..... 3.|
|000017e0| 08 c0 14 20 20 53 61 76 | 65 54 79 70 65 25 3d 26 |... Sav|eType%=&|
|000017f0| 46 45 44 0d 08 ca 27 20 | 20 24 53 61 76 65 54 79 |FED...' | $SaveTy|
|00001800| 70 65 49 63 6f 6e 50 74 | 72 25 3d 22 66 69 6c 65 |peIconPt|r%="file|
|00001810| 5f 66 65 64 22 2b bd 28 | 30 29 0d 08 d4 1b 20 20 |_fed"+.(|0).... |
|00001820| f2 52 65 54 69 74 6c 65 | 28 53 61 76 65 48 61 6e |.ReTitle|(SaveHan|
|00001830| 64 6c 65 25 29 0d 08 de | 07 c9 20 34 0d 08 e8 14 |dle%)...|.. 4....|
|00001840| 20 20 53 61 76 65 54 79 | 70 65 25 3d 26 46 46 46 | SaveTy|pe%=&FFF|
|00001850| 0d 08 f2 27 20 20 24 53 | 61 76 65 54 79 70 65 49 |...' $S|aveTypeI|
|00001860| 63 6f 6e 50 74 72 25 3d | 22 66 69 6c 65 5f 66 46 |conPtr%=|"file_fF|
|00001870| 46 22 2b bd 28 30 29 0d | 08 fc 1b 20 20 f2 52 65 |F"+.(0).|... .Re|
|00001880| 54 69 74 6c 65 28 53 61 | 76 65 48 61 6e 64 6c 65 |Title(Sa|veHandle|
|00001890| 25 29 0d 09 06 05 cb 0d | 09 10 05 e1 0d 09 1a 04 |%)......|........|
|000018a0| 0d 09 24 04 0d 09 2e 22 | dd f2 47 65 74 4e 65 77 |..$...."|..GetNew|
|000018b0| 56 61 6c 75 65 28 4d 6f | 75 73 65 58 25 2c 4d 6f |Value(Mo|useX%,Mo|
|000018c0| 75 73 65 59 25 29 0d 09 | 38 13 50 61 72 61 42 6c |useY%)..|8.ParaBl|
|000018d0| 6f 63 6b 25 2b 3d 35 30 | 30 0d 09 42 48 f4 20 2a |ock%+=50|0..BH. *|
|000018e0| 2a 20 50 61 72 61 6d 65 | 74 65 72 20 62 6c 6f 63 |* Parame|ter bloc|
|000018f0| 6b 20 69 73 20 74 65 6d | 70 6f 72 61 72 69 6c 79 |k is tem|porarily|
|00001900| 20 73 68 69 66 74 65 64 | 20 74 6f 20 70 72 65 76 | shifted| to prev|
|00001910| 65 6e 74 20 63 61 6c 6c | 73 20 74 6f 20 57 69 6d |ent call|s to Wim|
|00001920| 70 0d 09 4c 2f f4 20 2a | 2a 20 63 6f 72 72 75 70 |p..L/. *|* corrup|
|00001930| 74 69 6e 67 20 74 68 65 | 20 62 6c 6f 63 6b 20 62 |ting the| block b|
|00001940| 65 74 77 65 65 6e 20 6d | 65 73 73 61 67 65 73 2e |etween m|essages.|
|00001950| 0d 09 56 1b 21 50 61 72 | 61 42 6c 6f 63 6b 25 3d |..V.!Par|aBlock%=|
|00001960| 4d 61 69 6e 48 61 6e 64 | 6c 65 25 0d 09 60 28 c8 |MainHand|le%..`(.|
|00001970| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001980| 77 53 74 61 74 65 22 2c | 2c 50 61 72 61 42 6c 6f |wState",|,ParaBlo|
|00001990| 63 6b 25 0d 09 6a 19 56 | 69 73 4d 69 6e 58 25 3d |ck%..j.V|isMinX%=|
|000019a0| 50 61 72 61 42 6c 6f 63 | 6b 25 21 34 0d 09 74 19 |ParaBloc|k%!4..t.|
|000019b0| 56 69 73 4d 69 6e 59 25 | 3d 50 61 72 61 42 6c 6f |VisMinY%|=ParaBlo|
|000019c0| 63 6b 25 21 38 0d 09 7e | 1a 56 69 73 4d 61 78 59 |ck%!8..~|.VisMaxY|
|000019d0| 25 3d 50 61 72 61 42 6c | 6f 63 6b 25 21 31 36 0d |%=ParaBl|ock%!16.|
|000019e0| 09 88 1a 58 6f 66 66 73 | 65 74 25 3d 50 61 72 61 |...Xoffs|et%=Para|
|000019f0| 42 6c 6f 63 6b 25 21 32 | 30 0d 09 92 1a 59 6f 66 |Block%!2|0....Yof|
|00001a00| 66 73 65 74 25 3d 50 61 | 72 61 42 6c 6f 63 6b 25 |fset%=Pa|raBlock%|
|00001a10| 21 32 34 0d 09 9c 13 50 | 61 72 61 42 6c 6f 63 6b |!24....P|araBlock|
|00001a20| 25 2d 3d 35 30 30 0d 09 | a6 04 0d 09 b0 2b 4e 65 |%-=500..|.....+Ne|
|00001a30| 77 58 63 6f 6f 72 64 25 | 3d 4d 6f 75 73 65 58 25 |wXcoord%|=MouseX%|
|00001a40| 2d 56 69 73 4d 69 6e 58 | 25 2b 58 6f 66 66 73 65 |-VisMinX|%+Xoffse|
|00001a50| 74 25 2d 32 38 0d 09 ba | 2c 4e 65 77 59 63 6f 6f |t%-28...|,NewYcoo|
|00001a60| 72 64 25 3d 4d 6f 75 73 | 65 59 25 2d 56 69 73 4d |rd%=Mous|eY%-VisM|
|00001a70| 61 78 59 25 2b 59 6f 66 | 66 73 65 74 25 2b 35 33 |axY%+Yof|fset%+53|
|00001a80| 36 0d 09 c4 04 0d 09 ce | 27 e7 20 4e 65 77 58 63 |6.......|'. NewXc|
|00001a90| 6f 6f 72 64 25 3e 3d 30 | 20 80 20 4e 65 77 58 63 |oord%>=0| . NewXc|
|00001aa0| 6f 6f 72 64 25 3c 31 30 | 32 34 20 8c 0d 09 d8 17 |oord%<10|24 .....|
|00001ab0| 20 20 4c 43 4e 25 3d 4e | 65 77 58 63 6f 6f 72 64 | LCN%=N|ewXcoord|
|00001ac0| 25 81 34 0d 09 e2 05 cd | 0d 09 ec 04 0d 09 f6 26 |%.4.....|.......&|
|00001ad0| e7 20 4e 65 77 59 63 6f | 6f 72 64 25 3e 3d 30 20 |. NewYco|ord%>=0 |
|00001ae0| 80 20 4e 65 77 59 63 6f | 6f 72 64 25 3c 35 31 32 |. NewYco|ord%<512|
|00001af0| 20 8c 0d 0a 00 1d 20 20 | 49 6e 74 65 6e 73 69 74 | ..... |Intensit|
|00001b00| 79 25 3d 4e 65 77 59 63 | 6f 6f 72 64 25 81 32 0d |y%=NewYc|oord%.2.|
|00001b10| 0a 0a 05 cd 0d 0a 14 04 | 0d 0a 1e 30 e7 4e 65 77 |........|...0.New|
|00001b20| 58 63 6f 6f 72 64 25 3c | 3e 58 63 6f 6f 72 64 25 |Xcoord%<|>Xcoord%|
|00001b30| 20 84 20 4e 65 77 59 63 | 6f 6f 72 64 25 3c 3e 59 | . NewYc|oord%<>Y|
|00001b40| 63 6f 6f 72 64 25 20 8c | 0d 0a 28 26 20 20 f2 49 |coord% .|..(& .I|
|00001b50| 63 6f 6e 54 65 78 74 28 | 4d 61 69 6e 48 61 6e 64 |conText(|MainHand|
|00001b60| 6c 65 25 2c 37 2c c3 28 | 4c 43 4e 25 29 29 0d 0a |le%,7,.(|LCN%))..|
|00001b70| 32 2c 20 20 f2 49 63 6f | 6e 54 65 78 74 28 4d 61 |2, .Ico|nText(Ma|
|00001b80| 69 6e 48 61 6e 64 6c 65 | 25 2c 38 2c c3 28 49 6e |inHandle|%,8,.(In|
|00001b90| 74 65 6e 73 69 74 79 25 | 29 29 0d 0a 3c 2b 20 20 |tensity%|))..<+ |
|00001ba0| 58 63 6f 6f 72 64 25 3d | 4e 65 77 58 63 6f 6f 72 |Xcoord%=|NewXcoor|
|00001bb0| 64 25 3a 59 63 6f 6f 72 | 64 25 3d 4e 65 77 59 63 |d%:Ycoor|d%=NewYc|
|00001bc0| 6f 6f 72 64 25 0d 0a 46 | 05 cd 0d 0a 50 04 0d 0a |oord%..F|....P...|
|00001bd0| 5a 04 0d 0a 64 05 e1 0d | 0a 6e 04 0d 0a 78 04 0d |Z...d...|.n...x..|
|00001be0| 0a 82 1e dd f2 52 65 64 | 72 61 77 28 43 25 2c 4c |.....Red|raw(C%,L|
|00001bf0| 43 4e 25 2c 62 75 74 74 | 6f 6e 73 25 29 0d 0a 8c |CN%,butt|ons%)...|
|00001c00| 22 e7 20 62 75 74 74 6f | 6e 73 25 3d 31 20 80 20 |". butto|ns%=1 . |
|00001c10| 4f 6c 64 4c 43 4e 25 3c | 3e 4c 43 4e 25 20 8c 0d |OldLCN%<|>LCN% ..|
|00001c20| 0a 96 16 20 20 e7 20 4c | 43 4e 25 3e 4f 6c 64 4c |... . L|CN%>OldL|
|00001c30| 43 4e 25 20 8c 0d 0a a0 | 23 20 20 20 20 53 74 61 |CN% ....|# Sta|
|00001c40| 72 74 25 3d 4f 6c 64 4c | 43 4e 25 3a 46 69 6e 69 |rt%=OldL|CN%:Fini|
|00001c50| 73 68 25 3d 4c 43 4e 25 | 0d 0a aa 2f 20 20 20 20 |sh%=LCN%|.../ |
|00001c60| 53 49 25 3d 50 61 6c 65 | 74 74 65 25 28 4f 6c 64 |SI%=Pale|tte%(Old|
|00001c70| 4c 43 4e 25 2c 43 25 29 | 3a 46 49 25 3d 49 6e 74 |LCN%,C%)|:FI%=Int|
|00001c80| 65 6e 73 69 74 79 25 0d | 0a b4 07 20 20 cc 0d 0a |ensity%.|... ...|
|00001c90| be 23 20 20 20 20 53 74 | 61 72 74 25 3d 4c 43 4e |.# St|art%=LCN|
|00001ca0| 25 3a 46 69 6e 69 73 68 | 25 3d 4f 6c 64 4c 43 4e |%:Finish|%=OldLCN|
|00001cb0| 25 0d 0a c8 33 20 20 20 | 20 53 49 25 3d 49 6e 74 |%...3 | SI%=Int|
|00001cc0| 65 6e 73 69 74 79 25 3a | 46 49 25 3d 50 61 6c 65 |ensity%:|FI%=Pale|
|00001cd0| 74 74 65 25 28 4f 6c 64 | 4c 43 4e 25 2c 43 25 29 |tte%(Old|LCN%,C%)|
|00001ce0| 20 20 20 20 0d 0a d2 07 | 20 20 cd 0d 0a dc 32 20 | ....| ....2 |
|00001cf0| 20 e7 20 46 69 6e 69 73 | 68 25 2d 53 74 61 72 74 | . Finis|h%-Start|
|00001d00| 25 3e 32 30 20 8c 20 c8 | 99 20 22 48 6f 75 72 67 |%>20 . .|. "Hourg|
|00001d10| 6c 61 73 73 5f 53 74 61 | 72 74 22 2c 31 0d 0a e6 |lass_Sta|rt",1...|
|00001d20| 1d 20 20 e3 20 42 61 72 | 25 3d 53 74 61 72 74 25 |. . Bar|%=Start%|
|00001d30| 20 b8 20 46 69 6e 69 73 | 68 25 0d 0a f0 42 20 20 | . Finis|h%...B |
|00001d40| 20 20 4e 65 77 49 6e 74 | 65 6e 73 69 74 79 25 3d | NewInt|ensity%=|
|00001d50| 53 49 25 2b 28 42 61 72 | 25 2d 53 74 61 72 74 25 |SI%+(Bar|%-Start%|
|00001d60| 29 2a 28 46 49 25 2d 53 | 49 25 29 2f 28 46 69 6e |)*(FI%-S|I%)/(Fin|
|00001d70| 69 73 68 25 2d 53 74 61 | 72 74 25 29 0d 0a fa 3f |ish%-Sta|rt%)...?|
|00001d80| 20 20 20 20 f2 44 72 61 | 77 42 61 72 28 42 61 72 | .Dra|wBar(Bar|
|00001d90| 25 2c 50 72 69 6d 61 72 | 79 25 2c 50 61 6c 65 74 |%,Primar|y%,Palet|
|00001da0| 74 65 25 28 42 61 72 25 | 2c 43 25 29 2c 4e 65 77 |te%(Bar%|,C%),New|
|00001db0| 49 6e 74 65 6e 73 69 74 | 79 25 29 0d 0b 04 2b 20 |Intensit|y%)...+ |
|00001dc0| 20 20 20 50 61 6c 65 74 | 74 65 25 28 42 61 72 25 | Palet|te%(Bar%|
|00001dd0| 2c 43 25 29 3d 4e 65 77 | 49 6e 74 65 6e 73 69 74 |,C%)=New|Intensit|
|00001de0| 79 25 20 20 20 20 0d 0b | 0e 07 20 20 ed 0d 0b 18 |y% ..|.. ....|
|00001df0| 29 20 20 f2 57 72 69 74 | 65 53 70 72 69 74 65 50 |) .Writ|eSpriteP|
|00001e00| 61 6c 65 74 74 65 28 53 | 74 61 72 74 25 2c 46 69 |alette(S|tart%,Fi|
|00001e10| 6e 69 73 68 25 29 0d 0b | 22 18 20 20 c8 99 20 22 |nish%)..|". .. "|
|00001e20| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 0b |Hourglas|s_Off"..|
|00001e30| 2c 05 cc 0d 0b 36 3a 20 | 20 f2 44 72 61 77 42 61 |,....6: | .DrawBa|
|00001e40| 72 28 4c 43 4e 25 2c 50 | 72 69 6d 61 72 79 25 2c |r(LCN%,P|rimary%,|
|00001e50| 50 61 6c 65 74 74 65 25 | 28 4c 43 4e 25 2c 43 25 |Palette%|(LCN%,C%|
|00001e60| 29 2c 49 6e 74 65 6e 73 | 69 74 79 25 29 0d 0b 40 |),Intens|ity%)..@|
|00001e70| 22 20 20 50 61 6c 65 74 | 74 65 25 28 4c 43 4e 25 |" Palet|te%(LCN%|
|00001e80| 2c 43 25 29 3d 49 6e 74 | 65 6e 73 69 74 79 25 0d |,C%)=Int|ensity%.|
|00001e90| 0b 4a 24 20 20 f2 57 72 | 69 74 65 53 70 72 69 74 |.J$ .Wr|iteSprit|
|00001ea0| 65 50 61 6c 65 74 74 65 | 28 4c 43 4e 25 2c 4c 43 |ePalette|(LCN%,LC|
|00001eb0| 4e 25 29 0d 0b 54 05 cd | 0d 0b 5e 10 4f 6c 64 4c |N%)..T..|..^.OldL|
|00001ec0| 43 4e 25 3d 4c 43 4e 25 | 0d 0b 68 1c 4f 6c 64 49 |CN%=LCN%|..h.OldI|
|00001ed0| 6e 74 65 6e 73 69 74 79 | 25 3d 49 6e 74 65 6e 73 |ntensity|%=Intens|
|00001ee0| 69 74 79 25 0d 0b 72 05 | e1 0d 0b 7c 04 0d 0b 86 |ity%..r.|...|....|
|00001ef0| 04 0d 0b 90 19 dd f2 4f | 70 65 6e 57 69 6e 64 6f |.......O|penWindo|
|00001f00| 77 28 68 61 6e 64 6c 65 | 25 29 0d 0b 9a 13 50 61 |w(handle|%)....Pa|
|00001f10| 72 61 42 6c 6f 63 6b 25 | 2b 3d 35 30 30 0d 0b a4 |raBlock%|+=500...|
|00001f20| 53 f4 20 2a 2a 20 50 61 | 72 61 6d 65 74 65 72 20 |S. ** Pa|rameter |
|00001f30| 62 6c 6f 63 6b 20 69 73 | 20 74 65 6d 70 6f 72 61 |block is| tempora|
|00001f40| 72 69 6c 79 20 73 68 69 | 66 74 65 64 20 74 6f 20 |rily shi|fted to |
|00001f50| 70 72 65 76 65 6e 74 20 | 63 61 6c 6c 73 20 74 6f |prevent |calls to|
|00001f60| 20 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 | Wimp_Op|enWindow|
|00001f70| 0d 0b ae 4f f4 20 2a 2a | 20 63 6f 72 72 75 70 74 |...O. **| corrupt|
|00001f80| 69 6e 67 20 74 68 65 20 | 62 6c 6f 63 6b 20 62 65 |ing the |block be|
|00001f90| 74 77 65 65 6e 20 6d 65 | 73 73 61 67 65 73 20 28 |tween me|ssages (|
|00001fa0| 74 68 65 20 72 65 74 75 | 72 6e 65 64 20 64 61 74 |the retu|rned dat|
|00001fb0| 61 20 69 73 20 6e 6f 74 | 20 75 73 65 64 29 2e 0d |a is not| used)..|
|00001fc0| 0b b8 17 21 50 61 72 61 | 42 6c 6f 63 6b 25 3d 68 |...!Para|Block%=h|
|00001fd0| 61 6e 64 6c 65 25 0d 0b | c2 28 c8 99 20 22 57 69 |andle%..|.(.. "Wi|
|00001fe0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00001ff0| 65 22 2c 2c 50 61 72 61 | 42 6c 6f 63 6b 25 0d 0b |e",,Para|Block%..|
|00002000| cc 44 50 61 72 61 42 6c | 6f 63 6b 25 21 32 38 3d |.DParaBl|ock%!28=|
|00002010| 2d 31 3a 20 f4 20 2a 2a | 20 4f 70 65 6e 20 74 68 |-1: . **| Open th|
|00002020| 65 20 77 69 6e 64 6f 77 | 20 69 6e 20 66 72 6f 6e |e window| in fron|
|00002030| 74 20 6f 66 20 61 6c 6c | 20 6f 74 68 65 72 73 20 |t of all| others |
|00002040| 2a 2a 0d 0b d6 24 c8 99 | 20 22 57 69 6d 70 5f 4f |**...$..| "Wimp_O|
|00002050| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 50 61 72 61 |penWindo|w",,Para|
|00002060| 42 6c 6f 63 6b 25 0d 0b | e0 13 50 61 72 61 42 6c |Block%..|..ParaBl|
|00002070| 6f 63 6b 25 2d 3d 35 30 | 30 0d 0b ea 05 e1 0d 0b |ock%-=50|0.......|
|00002080| f4 04 0d 0b fe 04 0d 0c | 08 1a dd f2 43 6c 6f 73 |........|....Clos|
|00002090| 65 57 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 29 |eWindow(|handle%)|
|000020a0| 0d 0c 12 15 57 6f 72 64 | 25 3d 21 50 61 72 61 42 |....Word|%=!ParaB|
|000020b0| 6c 6f 63 6b 25 0d 0c 1c | 17 21 50 61 72 61 42 6c |lock%...|.!ParaBl|
|000020c0| 6f 63 6b 25 3d 68 61 6e | 64 6c 65 25 0d 0c 26 25 |ock%=han|dle%..&%|
|000020d0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 57 69 |.. "Wimp|_CloseWi|
|000020e0| 6e 64 6f 77 22 2c 2c 50 | 61 72 61 42 6c 6f 63 6b |ndow",,P|araBlock|
|000020f0| 25 0d 0c 30 15 21 50 61 | 72 61 42 6c 6f 63 6b 25 |%..0.!Pa|raBlock%|
|00002100| 3d 57 6f 72 64 25 0d 0c | 3a 05 e1 0d 0c 44 04 0d |=Word%..|:....D..|
|00002110| 0c 4e 04 0d 0c 58 1c dd | f2 53 68 6f 77 4d 65 6e |.N...X..|.ShowMen|
|00002120| 75 28 62 6c 6f 63 6b 25 | 2c 78 25 2c 79 25 29 0d |u(block%|,x%,y%).|
|00002130| 0c 62 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.b&.. "W|imp_Crea|
|00002140| 74 65 4d 65 6e 75 22 2c | 2c 62 6c 6f 63 6b 25 2c |teMenu",|,block%,|
|00002150| 78 25 2c 79 25 0d 0c 6c | 05 e1 0d 0c 76 04 0d 0c |x%,y%..l|....v...|
|00002160| 80 04 0d 0c 8a 1c dd f2 | 4d 65 6e 75 53 65 6c 65 |........|MenuSele|
|00002170| 63 74 69 6f 6e 28 77 69 | 6e 64 6f 77 25 29 0d 0c |ction(wi|ndow%)..|
|00002180| 94 2c e7 20 77 69 6e 64 | 6f 77 25 3d 2d 32 20 80 |.,. wind|ow%=-2 .|
|00002190| 20 21 50 61 72 61 42 6c | 6f 63 6b 25 3d 31 20 8c | !ParaBl|ock%=1 .|
|000021a0| 20 71 75 69 74 25 3d b9 | 3a e1 0d 0c 9e 1b e7 20 | quit%=.|:...... |
|000021b0| 77 69 6e 64 6f 77 25 3d | 4d 61 69 6e 48 61 6e 64 |window%=|MainHand|
|000021c0| 6c 65 25 20 8c 0d 0c a8 | 16 20 20 c8 8e 20 21 50 |le% ....|. .. !P|
|000021d0| 61 72 61 42 6c 6f 63 6b | 25 20 ca 0d 0c b2 23 20 |araBlock|% ....# |
|000021e0| 20 20 c9 20 30 3a f2 4f | 70 65 6e 57 69 6e 64 6f | . 0:.O|penWindo|
|000021f0| 77 28 53 61 76 65 48 61 | 6e 64 6c 65 25 29 0d 0c |w(SaveHa|ndle%)..|
|00002200| bc 27 20 20 20 c9 20 31 | 3a f2 4f 70 65 6e 57 69 |.' . 1|:.OpenWi|
|00002210| 6e 64 6f 77 28 45 71 75 | 61 74 69 6f 6e 48 61 6e |ndow(Equ|ationHan|
|00002220| 64 6c 65 25 29 0d 0c c6 | 26 20 20 20 c9 20 32 3a |dle%)...|& . 2:|
|00002230| f2 4f 70 65 6e 57 69 6e | 64 6f 77 28 50 61 6c 65 |.OpenWin|dow(Pale|
|00002240| 74 74 65 48 61 6e 64 6c | 65 25 29 0d 0c d0 07 20 |tteHandl|e%).... |
|00002250| 20 cb 0d 0c da 05 cd 0d | 0c e4 05 e1 0d 0c ee 04 | .......|........|
|00002260| 0d 0c f8 04 0d 0d 02 10 | dd f2 4b 65 79 50 72 65 |........|..KeyPre|
|00002270| 73 73 65 64 0d 0d 0c 13 | 57 48 25 3d 21 50 61 72 |ssed....|WH%=!Par|
|00002280| 61 42 6c 6f 63 6b 25 0d | 0d 16 16 4b 65 79 25 3d |aBlock%.|...Key%=|
|00002290| 50 61 72 61 42 6c 6f 63 | 6b 25 21 32 34 0d 0d 20 |ParaBloc|k%!24.. |
|000022a0| 0d c8 8e 20 4b 65 79 25 | 20 ca 0d 0d 2a 15 20 20 |... Key%| ...*. |
|000022b0| c9 20 26 31 42 20 3a f4 | 20 45 73 63 61 70 65 0d |. &1B :.| Escape.|
|000022c0| 0d 34 04 0d 0d 3e 10 20 | 20 20 20 c8 8e 20 57 48 |.4...>. | .. WH|
|000022d0| 25 20 ca 0d 0d 48 23 20 | 20 20 20 20 20 c9 20 53 |% ...H# | . S|
|000022e0| 61 76 65 48 61 6e 64 6c | 65 25 3a f2 43 61 6e 63 |aveHandl|e%:.Canc|
|000022f0| 65 6c 53 61 76 65 0d 0d | 52 1b 20 20 20 20 20 20 |elSave..|R. |
|00002300| c9 20 45 71 75 61 74 69 | 6f 6e 48 61 6e 64 6c 65 |. Equati|onHandle|
|00002310| 25 0d 0d 5c 2f 20 20 20 | 20 20 20 20 f2 53 65 74 |%..\/ | .Set|
|00002320| 49 63 6f 6e 53 74 61 74 | 65 28 57 48 25 2c 39 2c |IconStat|e(WH%,9,|
|00002330| 26 32 30 30 30 30 30 2c | 26 32 30 30 30 30 30 29 |&200000,|&200000)|
|00002340| 0d 0d 66 1c 20 20 20 20 | 20 20 20 f2 43 6c 6f 73 |..f. | .Clos|
|00002350| 65 57 69 6e 64 6f 77 28 | 57 48 25 29 0d 0d 70 17 |eWindow(|WH%)..p.|
|00002360| 20 20 20 20 20 20 20 f2 | 52 65 73 65 74 45 71 6e | .|ResetEqn|
|00002370| 28 30 29 0d 0d 7a 29 20 | 20 20 20 20 20 20 f2 53 |(0)..z) | .S|
|00002380| 65 74 49 63 6f 6e 53 74 | 61 74 65 28 57 48 25 2c |etIconSt|ate(WH%,|
|00002390| 39 2c 26 32 30 30 30 30 | 30 2c 30 29 0d 0d 84 09 |9,&20000|0,0)....|
|000023a0| 20 20 20 20 cb 0d 0d 8e | 16 20 20 c9 20 31 33 20 | ....|. . 13 |
|000023b0| 3a f4 20 52 65 74 75 72 | 6e 20 20 0d 0d 98 10 20 |:. Retur|n .... |
|000023c0| 20 20 20 c8 8e 20 57 48 | 25 20 ca 0d 0d a2 1b 20 | .. WH|% ..... |
|000023d0| 20 20 20 20 20 c9 20 45 | 71 75 61 74 69 6f 6e 48 | . E|quationH|
|000023e0| 61 6e 64 6c 65 25 0d 0d | ac 2f 20 20 20 20 20 20 |andle%..|./ |
|000023f0| 20 f2 53 65 74 49 63 6f | 6e 53 74 61 74 65 28 57 | .SetIco|nState(W|
|00002400| 48 25 2c 38 2c 26 32 30 | 30 30 30 30 2c 26 32 30 |H%,8,&20|0000,&20|
|00002410| 30 30 30 30 29 0d 0d b6 | 1c 20 20 20 20 20 20 20 |0000)...|. |
|00002420| f2 43 6c 6f 73 65 57 69 | 6e 64 6f 77 28 57 48 25 |.CloseWi|ndow(WH%|
|00002430| 29 0d 0d c0 1e 20 20 20 | 20 20 20 20 f2 41 6c 74 |).... | .Alt|
|00002440| 65 72 3a f2 52 65 73 65 | 74 45 71 6e 28 30 29 0d |er:.Rese|tEqn(0).|
|00002450| 0d ca 29 20 20 20 20 20 | 20 20 f2 53 65 74 49 63 |..) | .SetIc|
|00002460| 6f 6e 53 74 61 74 65 28 | 57 48 25 2c 38 2c 26 32 |onState(|WH%,8,&2|
|00002470| 30 30 30 30 30 2c 30 29 | 0d 0d d4 17 20 20 20 20 |00000,0)|.... |
|00002480| 20 20 c9 20 53 61 76 65 | 48 61 6e 64 6c 65 25 0d | . Save|Handle%.|
|00002490| 0d de 16 20 20 20 20 20 | 20 20 f2 53 61 76 65 54 |... | .SaveT|
|000024a0| 6f 46 69 6c 65 0d 0d e8 | 1c 20 20 20 20 20 20 20 |oFile...|. |
|000024b0| f2 43 6c 6f 73 65 57 69 | 6e 64 6f 77 28 57 48 25 |.CloseWi|ndow(WH%|
|000024c0| 29 0d 0d f2 09 20 20 20 | 20 cb 0d 0d fc 05 cb 0d |).... | .......|
|000024d0| 0e 06 05 e1 0d 0e 10 04 | 0d 0e 1a 04 0d 0e 24 0b |........|......$.|
|000024e0| dd f2 41 6c 74 65 72 0d | 0e 2e 0e ea 20 4c 43 4e |..Alter.|.... LCN|
|000024f0| 25 2c 43 56 25 0d 0e 38 | 26 52 65 71 6e 24 3d a4 |%,CV%..8|&Reqn$=.|
|00002500| 52 65 61 64 49 63 6f 6e | 28 45 71 75 61 74 69 6f |ReadIcon|(Equatio|
|00002510| 6e 48 61 6e 64 6c 65 25 | 2c 35 29 0d 0e 42 26 47 |nHandle%|,5)..B&G|
|00002520| 65 71 6e 24 3d a4 52 65 | 61 64 49 63 6f 6e 28 45 |eqn$=.Re|adIcon(E|
|00002530| 71 75 61 74 69 6f 6e 48 | 61 6e 64 6c 65 25 2c 36 |quationH|andle%,6|
|00002540| 29 0d 0e 4c 26 42 65 71 | 6e 24 3d a4 52 65 61 64 |)..L&Beq|n$=.Read|
|00002550| 49 63 6f 6e 28 45 71 75 | 61 74 69 6f 6e 48 61 6e |Icon(Equ|ationHan|
|00002560| 64 6c 65 25 2c 37 29 0d | 0e 56 12 e3 20 4c 43 4e |dle%,7).|.V.. LCN|
|00002570| 25 3d 30 20 b8 20 32 35 | 35 0d 0e 60 18 43 56 25 |%=0 . 25|5..`.CV%|
|00002580| 3d 50 61 6c 65 74 74 65 | 25 28 4c 43 4e 25 2c 30 |=Palette|%(LCN%,0|
|00002590| 29 0d 0e 6a 23 50 61 6c | 65 74 74 65 25 28 4c 43 |)..j#Pal|ette%(LC|
|000025a0| 4e 25 2c 30 29 3d a0 28 | 52 65 71 6e 24 29 20 80 |N%,0)=.(|Reqn$) .|
|000025b0| 20 32 35 35 0d 0e 74 18 | 43 56 25 3d 50 61 6c 65 | 255..t.|CV%=Pale|
|000025c0| 74 74 65 25 28 4c 43 4e | 25 2c 31 29 0d 0e 7e 23 |tte%(LCN|%,1)..~#|
|000025d0| 50 61 6c 65 74 74 65 25 | 28 4c 43 4e 25 2c 31 29 |Palette%|(LCN%,1)|
|000025e0| 3d a0 28 47 65 71 6e 24 | 29 20 80 20 32 35 35 0d |=.(Geqn$|) . 255.|
|000025f0| 0e 88 18 43 56 25 3d 50 | 61 6c 65 74 74 65 25 28 |...CV%=P|alette%(|
|00002600| 4c 43 4e 25 2c 32 29 0d | 0e 92 23 50 61 6c 65 74 |LCN%,2).|..#Palet|
|00002610| 74 65 25 28 4c 43 4e 25 | 2c 32 29 3d a0 28 42 65 |te%(LCN%|,2)=.(Be|
|00002620| 71 6e 24 29 20 80 20 32 | 35 35 0d 0e 9c 05 ed 0d |qn$) . 2|55......|
|00002630| 0e a6 18 f2 44 72 61 77 | 47 72 61 70 68 28 50 72 |....Draw|Graph(Pr|
|00002640| 69 6d 61 72 79 25 29 0d | 0e b0 1e f2 57 72 69 74 |imary%).|....Writ|
|00002650| 65 53 70 72 69 74 65 50 | 61 6c 65 74 74 65 28 30 |eSpriteP|alette(0|
|00002660| 2c 32 35 35 29 0d 0e ba | 21 f2 52 65 64 72 61 77 |,255)...|!.Redraw|
|00002670| 49 63 6f 6e 28 50 61 6c | 65 74 74 65 48 61 6e 64 |Icon(Pal|etteHand|
|00002680| 6c 65 25 2c 30 29 0d 0e | c4 1e f2 52 65 64 72 61 |le%,0)..|...Redra|
|00002690| 77 49 63 6f 6e 28 4d 61 | 69 6e 48 61 6e 64 6c 65 |wIcon(Ma|inHandle|
|000026a0| 25 2c 33 29 0d 0e ce 05 | e1 0d 0e d8 04 0d 0e e2 |%,3)....|........|
|000026b0| 04 0d 0e ec 12 dd f2 52 | 65 73 65 74 45 71 6e 28 |.......R|esetEqn(|
|000026c0| 46 25 29 0d 0e f6 0f e3 | 20 49 48 25 3d 35 20 b8 |F%).....| IH%=5 .|
|000026d0| 20 37 0d 0f 00 28 f2 49 | 63 6f 6e 54 65 78 74 28 | 7...(.I|conText(|
|000026e0| 45 71 75 61 74 69 6f 6e | 48 61 6e 64 6c 65 25 2c |Equation|Handle%,|
|000026f0| 49 48 25 2c 22 43 56 25 | 22 29 0d 0f 0a 41 e7 20 |IH%,"CV%|")...A. |
|00002700| 46 25 3d b9 20 8c 20 c8 | 99 22 57 69 6d 70 5f 53 |F%=. . .|."Wimp_S|
|00002710| 65 74 43 61 72 65 74 50 | 6f 73 69 74 69 6f 6e 22 |etCaretP|osition"|
|00002720| 2c 45 71 75 61 74 69 6f | 6e 48 61 6e 64 6c 65 25 |,Equatio|nHandle%|
|00002730| 2c 49 48 25 2c 2c 2c 2d | 31 2c 33 0d 0f 14 05 ed |,IH%,,,-|1,3.....|
|00002740| 0d 0f 1e 05 e1 0d 0f 28 | 04 0d 0f 32 04 0d 0f 3c |.......(|...2...<|
|00002750| 19 dd f2 52 65 64 72 61 | 77 49 63 6f 6e 28 57 48 |...Redra|wIcon(WH|
|00002760| 25 2c 49 48 25 29 0d 0f | 46 13 21 50 61 72 61 42 |%,IH%)..|F.!ParaB|
|00002770| 6c 6f 63 6b 25 3d 57 48 | 25 0d 0f 50 14 50 61 72 |lock%=WH|%..P.Par|
|00002780| 61 42 6c 6f 63 6b 25 21 | 34 3d 49 48 25 0d 0f 5a |aBlock%!|4=IH%..Z|
|00002790| 12 50 61 72 61 42 6c 6f | 63 6b 25 21 38 3d 30 0d |.ParaBlo|ck%!8=0.|
|000027a0| 0f 64 13 50 61 72 61 42 | 6c 6f 63 6b 25 21 31 32 |.d.ParaB|lock%!12|
|000027b0| 3d 30 0d 0f 6e 25 c8 99 | 22 57 69 6d 70 5f 53 65 |=0..n%..|"Wimp_Se|
|000027c0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 50 61 72 |tIconSta|te",,Par|
|000027d0| 61 42 6c 6f 63 6b 25 0d | 0f 78 05 e1 0d 0f 82 04 |aBlock%.|.x......|
|000027e0| 0d 0f 8c 04 0d 0f 96 21 | dd f2 53 65 74 49 63 6f |.......!|..SetIco|
|000027f0| 6e 53 74 61 74 65 28 57 | 48 25 2c 49 48 25 2c 43 |nState(W|H%,IH%,C|
|00002800| 25 2c 45 25 29 0d 0f a0 | 17 50 42 25 3d 50 61 72 |%,E%)...|.PB%=Par|
|00002810| 61 42 6c 6f 63 6b 25 2b | 31 30 30 30 0d 0f aa 0c |aBlock%+|1000....|
|00002820| 21 50 42 25 3d 57 48 25 | 0d 0f b4 0d 50 42 25 21 |!PB%=WH%|....PB%!|
|00002830| 34 3d 49 48 25 0d 0f be | 0c 50 42 25 21 38 3d 43 |4=IH%...|.PB%!8=C|
|00002840| 25 0d 0f c8 0d 50 42 25 | 21 31 32 3d 45 25 0d 0f |%....PB%|!12=E%..|
|00002850| d2 1e c8 99 22 57 69 6d | 70 5f 53 65 74 49 63 6f |...."Wim|p_SetIco|
|00002860| 6e 53 74 61 74 65 22 2c | 2c 50 42 25 0d 0f dc 05 |nState",|,PB%....|
|00002870| e1 0d 0f e6 04 0d 0f f0 | 04 0d 0f fa 19 dd f2 52 |........|.......R|
|00002880| 65 54 69 74 6c 65 28 57 | 69 6e 48 61 6e 64 6c 65 |eTitle(W|inHandle|
|00002890| 25 29 0d 10 04 13 50 61 | 72 61 42 6c 6f 63 6b 25 |%)....Pa|raBlock%|
|000028a0| 2b 3d 35 30 30 0d 10 0e | 48 f4 20 2a 2a 20 50 61 |+=500...|H. ** Pa|
|000028b0| 72 61 6d 65 74 65 72 20 | 62 6c 6f 63 6b 20 69 73 |rameter |block is|
|000028c0| 20 74 65 6d 70 6f 72 61 | 72 69 6c 79 20 73 68 69 | tempora|rily shi|
|000028d0| 66 74 65 64 20 74 6f 20 | 70 72 65 76 65 6e 74 20 |fted to |prevent |
|000028e0| 63 61 6c 6c 73 20 74 6f | 20 57 69 6d 70 0d 10 18 |calls to| Wimp...|
|000028f0| 2f f4 20 2a 2a 20 63 6f | 72 72 75 70 74 69 6e 67 |/. ** co|rrupting|
|00002900| 20 74 68 65 20 62 6c 6f | 63 6b 20 62 65 74 77 65 | the blo|ck betwe|
|00002910| 65 6e 20 6d 65 73 73 61 | 67 65 73 2e 0d 10 22 1a |en messa|ges...".|
|00002920| 21 50 61 72 61 42 6c 6f | 63 6b 25 3d 57 69 6e 48 |!ParaBlo|ck%=WinH|
|00002930| 61 6e 64 6c 65 25 0d 10 | 2c 28 c8 99 20 22 57 69 |andle%..|,(.. "Wi|
|00002940| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00002950| 65 22 2c 2c 50 61 72 61 | 42 6c 6f 63 6b 25 0d 10 |e",,Para|Block%..|
|00002960| 36 27 e7 20 28 50 61 72 | 61 42 6c 6f 63 6b 25 21 |6'. (Par|aBlock%!|
|00002970| 33 32 20 80 20 26 31 30 | 30 30 30 29 3d 26 31 30 |32 . &10|000)=&10|
|00002980| 30 30 30 20 8c 0d 10 40 | 1e 20 20 f2 43 6c 6f 73 |000 ...@|. .Clos|
|00002990| 65 57 69 6e 64 6f 77 28 | 57 69 6e 48 61 6e 64 6c |eWindow(|WinHandl|
|000029a0| 65 25 29 0d 10 4a 25 20 | 20 c8 99 22 57 69 6d 70 |e%)..J% | .."Wimp|
|000029b0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 50 61 |_OpenWin|dow",,Pa|
|000029c0| 72 61 42 6c 6f 63 6b 25 | 0d 10 54 05 cd 0d 10 5e |raBlock%|..T....^|
|000029d0| 13 50 61 72 61 42 6c 6f | 63 6b 25 2d 3d 35 30 30 |.ParaBlo|ck%-=500|
|000029e0| 0d 10 68 05 e1 0d 10 72 | 04 0d 10 7c 04 0d 10 86 |..h....r|...|....|
|000029f0| 0e dd f2 44 72 61 67 49 | 63 6f 6e 0d 10 90 1b 21 |...DragI|con....!|
|00002a00| 50 61 72 61 42 6c 6f 63 | 6b 25 3d 53 61 76 65 48 |ParaBloc|k%=SaveH|
|00002a10| 61 6e 64 6c 65 25 0d 10 | 9a 28 c8 99 20 22 57 69 |andle%..|.(.. "Wi|
|00002a20| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00002a30| 65 22 2c 2c 50 61 72 61 | 42 6c 6f 63 6b 25 0d 10 |e",,Para|Block%..|
|00002a40| a4 1d 57 6f 72 6b 4f 72 | 69 67 69 6e 58 25 3d 50 |..WorkOr|iginX%=P|
|00002a50| 61 72 61 42 6c 6f 63 6b | 25 21 34 0d 10 ae 1e 57 |araBlock|%!4....W|
|00002a60| 6f 72 6b 4f 72 69 67 69 | 6e 59 25 3d 50 61 72 61 |orkOrigi|nY%=Para|
|00002a70| 42 6c 6f 63 6b 25 21 31 | 36 0d 10 b8 3a 50 61 72 |Block%!1|6...:Par|
|00002a80| 61 42 6c 6f 63 6b 25 21 | 34 3d 35 20 3a f4 20 2a |aBlock%!|4=5 :. *|
|00002a90| 2a 2a 20 57 69 6e 64 6f | 77 20 48 61 6e 64 6c 65 |** Windo|w Handle|
|00002aa0| 20 69 73 20 73 74 69 6c | 6c 20 74 68 65 72 65 20 | is stil|l there |
|00002ab0| 2a 2a 2a 0d 10 c2 26 c8 | 99 20 22 57 69 6d 70 5f |***...&.|. "Wimp_|
|00002ac0| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 50 |GetIconS|tate",,P|
|00002ad0| 61 72 61 42 6c 6f 63 6b | 25 0d 10 cc 12 50 61 72 |araBlock|%....Par|
|00002ae0| 61 42 6c 6f 63 6b 25 21 | 34 3d 35 0d 10 d6 2a 50 |aBlock%!|4=5...*P|
|00002af0| 61 72 61 42 6c 6f 63 6b | 25 21 38 3d 50 61 72 61 |araBlock|%!8=Para|
|00002b00| 42 6c 6f 63 6b 25 21 38 | 2b 57 6f 72 6b 4f 72 69 |Block%!8|+WorkOri|
|00002b10| 67 69 6e 58 25 0d 10 e0 | 2c 50 61 72 61 42 6c 6f |ginX%...|,ParaBlo|
|00002b20| 63 6b 25 21 31 32 3d 50 | 61 72 61 42 6c 6f 63 6b |ck%!12=P|araBlock|
|00002b30| 25 21 31 32 2b 57 6f 72 | 6b 4f 72 69 67 69 6e 59 |%!12+Wor|kOriginY|
|00002b40| 25 0d 10 ea 2c 50 61 72 | 61 42 6c 6f 63 6b 25 21 |%...,Par|aBlock%!|
|00002b50| 31 36 3d 50 61 72 61 42 | 6c 6f 63 6b 25 21 31 36 |16=ParaB|lock%!16|
|00002b60| 2b 57 6f 72 6b 4f 72 69 | 67 69 6e 58 25 0d 10 f4 |+WorkOri|ginX%...|
|00002b70| 2c 50 61 72 61 42 6c 6f | 63 6b 25 21 32 30 3d 50 |,ParaBlo|ck%!20=P|
|00002b80| 61 72 61 42 6c 6f 63 6b | 25 21 32 30 2b 57 6f 72 |araBlock|%!20+Wor|
|00002b90| 6b 4f 72 69 67 69 6e 59 | 25 0d 10 fe 23 50 61 72 |kOriginY|%...#Par|
|00002ba0| 61 42 6c 6f 63 6b 25 21 | 32 34 3d 30 3a 50 61 72 |aBlock%!|24=0:Par|
|00002bb0| 61 42 6c 6f 63 6b 25 21 | 32 38 3d 30 0d 11 08 33 |aBlock%!|28=0...3|
|00002bc0| 50 61 72 61 42 6c 6f 63 | 6b 25 21 33 32 3d 26 37 |ParaBloc|k%!32=&7|
|00002bd0| 46 46 46 46 46 46 46 3a | 50 61 72 61 42 6c 6f 63 |FFFFFFF:|ParaBloc|
|00002be0| 6b 25 21 33 36 3d 26 37 | 46 46 46 46 46 46 46 0d |k%!36=&7|FFFFFFF.|
|00002bf0| 11 12 21 c8 99 20 22 57 | 69 6d 70 5f 44 72 61 67 |..!.. "W|imp_Drag|
|00002c00| 42 6f 78 22 2c 2c 50 61 | 72 61 42 6c 6f 63 6b 25 |Box",,Pa|raBlock%|
|00002c10| 0d 11 1c 05 e1 0d 11 26 | 04 0d 11 30 04 0d 11 3a |.......&|...0...:|
|00002c20| 0d dd f2 44 72 61 67 45 | 6e 64 0d 11 44 25 4f 75 |...DragE|nd..D%Ou|
|00002c30| 74 46 69 6c 65 24 3d a4 | 52 65 61 64 49 63 6f 6e |tFile$=.|ReadIcon|
|00002c40| 28 53 61 76 65 48 61 6e | 64 6c 65 25 2c 32 29 0d |(SaveHan|dle%,2).|
|00002c50| 11 4e 21 53 61 76 65 4c | 65 61 66 24 3d a4 46 69 |.N!SaveL|eaf$=.Fi|
|00002c60| 6e 64 4c 65 61 66 28 4f | 75 74 46 69 6c 65 24 29 |ndLeaf(O|utFile$)|
|00002c70| 0d 11 58 35 e7 53 61 76 | 65 54 79 70 65 25 3d 26 |..X5.Sav|eType%=&|
|00002c80| 46 45 44 20 8c 20 44 61 | 74 61 53 69 7a 65 25 3d |FED . Da|taSize%=|
|00002c90| 31 35 33 36 20 8b 20 44 | 61 74 61 53 69 7a 65 25 |1536 . D|ataSize%|
|00002ca0| 3d 34 33 35 32 0d 11 62 | 27 c8 99 22 57 69 6d 70 |=4352..b|'.."Wimp|
|00002cb0| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|00002cc0| 2c 2c 50 61 72 61 42 6c | 6f 63 6b 25 0d 11 6c 1f |,,ParaBl|ock%..l.|
|00002cd0| 50 61 72 61 42 6c 6f 63 | 6b 25 21 32 30 3d 50 61 |ParaBloc|k%!20=Pa|
|00002ce0| 72 61 42 6c 6f 63 6b 25 | 21 31 32 0d 11 76 1f 50 |raBlock%|!12..v.P|
|00002cf0| 61 72 61 42 6c 6f 63 6b | 25 21 32 34 3d 50 61 72 |araBlock|%!24=Par|
|00002d00| 61 42 6c 6f 63 6b 25 21 | 31 36 0d 11 80 1d 50 61 |aBlock%!|16....Pa|
|00002d10| 72 61 42 6c 6f 63 6b 25 | 21 32 38 3d 21 50 61 72 |raBlock%|!28=!Par|
|00002d20| 61 42 6c 6f 63 6b 25 0d | 11 8a 1e 50 61 72 61 42 |aBlock%.|...ParaB|
|00002d30| 6c 6f 63 6b 25 21 33 32 | 3d 50 61 72 61 42 6c 6f |lock%!32|=ParaBlo|
|00002d40| 63 6b 25 21 34 0d 11 94 | 1b 50 61 72 61 42 6c 6f |ck%!4...|.ParaBlo|
|00002d50| 63 6b 25 21 33 36 3d 44 | 61 74 61 53 69 7a 65 25 |ck%!36=D|ataSize%|
|00002d60| 0d 11 9e 1b 50 61 72 61 | 42 6c 6f 63 6b 25 21 34 |....Para|Block%!4|
|00002d70| 30 3d 53 61 76 65 54 79 | 70 65 25 0d 11 a8 23 24 |0=SaveTy|pe%...#$|
|00002d80| 28 50 61 72 61 42 6c 6f | 63 6b 25 2b 34 34 29 3d |(ParaBlo|ck%+44)=|
|00002d90| 53 61 76 65 4c 65 61 66 | 24 2b bd 28 30 29 0d 11 |SaveLeaf|$+.(0)..|
|00002da0| b2 1d 44 65 73 74 48 61 | 6e 64 6c 65 25 3d 50 61 |..DestHa|ndle%=Pa|
|00002db0| 72 61 42 6c 6f 63 6b 25 | 21 32 30 0d 11 bc 1d 49 |raBlock%|!20....I|
|00002dc0| 63 6f 6e 48 61 6e 64 6c | 65 25 3d 50 61 72 61 42 |conHandl|e%=ParaB|
|00002dd0| 6c 6f 63 6b 25 21 31 36 | 0d 11 c6 13 50 61 72 61 |lock%!16|....Para|
|00002de0| 42 6c 6f 63 6b 25 21 31 | 32 3d 30 0d 11 d0 3f 50 |Block%!1|2=0...?P|
|00002df0| 61 72 61 42 6c 6f 63 6b | 25 21 31 36 3d 31 20 3a |araBlock|%!16=1 :|
|00002e00| f4 20 2a 2a 2a 20 41 63 | 74 69 6f 6e 20 43 6f 64 |. *** Ac|tion Cod|
|00002e10| 65 20 66 6f 72 20 44 61 | 74 61 53 61 76 65 20 6d |e for Da|taSave m|
|00002e20| 65 73 73 61 67 65 20 2a | 2a 2a 0d 11 da 20 42 6c |essage *|**... Bl|
|00002e30| 6f 63 6b 4c 65 6e 67 74 | 68 25 3d 34 35 2b a9 28 |ockLengt|h%=45+.(|
|00002e40| 53 61 76 65 4c 65 61 66 | 24 29 0d 11 e4 35 21 50 |SaveLeaf|$)...5!P|
|00002e50| 61 72 61 42 6c 6f 63 6b | 25 3d 34 2a 28 42 6c 6f |araBlock|%=4*(Blo|
|00002e60| 63 6b 4c 65 6e 67 74 68 | 25 81 34 2d 28 42 6c 6f |ckLength|%.4-(Blo|
|00002e70| 63 6b 4c 65 6e 67 74 68 | 25 83 34 3e 30 29 29 0d |ckLength|%.4>0)).|
|00002e80| 11 ee 3e c8 99 22 57 69 | 6d 70 5f 53 65 6e 64 4d |..>.."Wi|mp_SendM|
|00002e90| 65 73 73 61 67 65 22 2c | 31 38 2c 50 61 72 61 42 |essage",|18,ParaB|
|00002ea0| 6c 6f 63 6b 25 2c 44 65 | 73 74 48 61 6e 64 6c 65 |lock%,De|stHandle|
|00002eb0| 25 2c 49 63 6f 6e 48 61 | 6e 64 6c 65 25 0d 11 f8 |%,IconHa|ndle%...|
|00002ec0| 38 f4 20 50 52 4f 43 65 | 72 72 6f 72 28 22 44 61 |8. PROCe|rror("Da|
|00002ed0| 74 61 53 61 76 65 20 73 | 65 6e 74 20 74 6f 20 26 |taSave s|ent to &|
|00002ee0| 22 2b 53 54 52 24 7e 28 | 44 65 73 74 48 61 6e 64 |"+STR$~(|DestHand|
|00002ef0| 6c 65 25 29 29 0d 12 02 | 05 e1 0d 12 0c 04 0d 12 |le%))...|........|
|00002f00| 16 04 0d 12 20 12 dd f2 | 4c 6f 61 64 46 72 6f 6d |.... ...|LoadFrom|
|00002f10| 46 69 6c 65 0d 12 2a 1b | 4c 6f 61 64 54 79 70 65 |File..*.|LoadType|
|00002f20| 25 3d 50 61 72 61 42 6c | 6f 63 6b 25 21 34 30 0d |%=ParaBl|ock%!40.|
|00002f30| 12 34 29 e7 20 4c 6f 61 | 64 54 79 70 65 25 3c 3e |.4). Loa|dType%<>|
|00002f40| 26 46 46 46 20 80 20 4c | 6f 61 64 54 79 70 65 25 |&FFF . L|oadType%|
|00002f50| 3c 3e 26 46 45 44 20 8c | 0d 12 3e c6 20 20 f2 65 |<>&FED .|..>. .e|
|00002f60| 72 72 6f 72 28 22 54 68 | 61 74 20 66 69 6c 65 20 |rror("Th|at file |
|00002f70| 74 79 70 65 20 69 73 20 | 6e 6f 74 20 75 6e 64 65 |type is |not unde|
|00002f80| 72 73 74 6f 6f 64 20 62 | 79 20 74 68 69 73 20 61 |rstood b|y this a|
|00002f90| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 20 20 4f 6e 6c |pplicati|on. Onl|
|00002fa0| 79 20 66 69 6c 65 74 79 | 70 65 73 20 26 46 45 44 |y filety|pes &FED|
|00002fb0| 20 28 50 61 6c 65 74 74 | 65 29 2c 20 63 6f 6e 74 | (Palett|e), cont|
|00002fc0| 61 69 6e 69 6e 67 20 61 | 20 32 35 36 20 63 6f 6c |aining a| 256 col|
|00002fd0| 6f 75 72 20 70 61 6c 65 | 74 74 65 20 6f 72 20 26 |our pale|tte or &|
|00002fe0| 46 46 46 20 28 54 65 78 | 74 29 2c 20 63 6f 6e 74 |FFF (Tex|t), cont|
|00002ff0| 61 69 6e 69 6e 67 20 61 | 20 46 72 61 63 74 49 6e |aining a| FractIn|
|00003000| 74 2d 74 79 70 65 20 70 | 61 6c 65 74 74 65 20 63 |t-type p|alette c|
|00003010| 61 6e 20 62 65 20 6c 6f | 61 64 65 64 22 29 0d 12 |an be lo|aded")..|
|00003020| 48 05 cc 0d 12 52 28 20 | 20 49 6e 46 69 6c 65 24 |H....R( | InFile$|
|00003030| 3d a4 52 65 61 64 53 74 | 72 69 6e 67 28 50 61 72 |=.ReadSt|ring(Par|
|00003040| 61 42 6c 6f 63 6b 25 2b | 34 34 29 0d 12 5c 17 20 |aBlock%+|44)..\. |
|00003050| 20 f2 4c 6f 61 64 50 61 | 6c 28 49 6e 46 69 6c 65 | .LoadPa|l(InFile|
|00003060| 24 29 0d 12 66 1a 20 20 | e7 20 50 61 72 61 42 6c |$)..f. |. ParaBl|
|00003070| 6f 63 6b 25 21 32 30 3d | 2d 32 20 8c 0d 12 70 20 |ock%!20=|-2 ...p |
|00003080| 20 20 20 20 f2 4f 70 65 | 6e 57 69 6e 64 6f 77 28 | .Ope|nWindow(|
|00003090| 4d 61 69 6e 48 61 6e 64 | 6c 65 25 29 0d 12 7a 23 |MainHand|le%)..z#|
|000030a0| 20 20 20 20 f2 4f 70 65 | 6e 57 69 6e 64 6f 77 28 | .Ope|nWindow(|
|000030b0| 50 61 6c 65 74 74 65 48 | 61 6e 64 6c 65 25 29 0d |PaletteH|andle%).|
|000030c0| 12 84 07 20 20 cd 0d 12 | 8e 1b 20 20 f2 52 65 54 |... ...|.. .ReT|
|000030d0| 69 74 6c 65 28 4d 61 69 | 6e 48 61 6e 64 6c 65 25 |itle(Mai|nHandle%|
|000030e0| 29 0d 12 98 1e 20 20 f2 | 52 65 54 69 74 6c 65 28 |).... .|ReTitle(|
|000030f0| 50 61 6c 65 74 74 65 48 | 61 6e 64 6c 65 25 29 0d |PaletteH|andle%).|
|00003100| 12 a2 38 20 20 e7 20 49 | 6e 46 69 6c 65 24 3d 22 |..8 . I|nFile$="|
|00003110| 3c 57 69 6d 70 24 53 63 | 72 61 70 3e 22 20 8c 20 |<Wimp$Sc|rap>" . |
|00003120| ff 20 22 44 45 4c 45 54 | 45 20 3c 57 69 6d 70 24 |. "DELET|E <Wimp$|
|00003130| 53 63 72 61 70 3e 22 0d | 12 ac 15 20 20 21 50 61 |Scrap>".|... !Pa|
|00003140| 72 61 42 6c 6f 63 6b 25 | 3d 32 35 36 0d 12 b6 20 |raBlock%|=256... |
|00003150| 20 20 50 61 72 61 42 6c | 6f 63 6b 25 21 31 32 3d | ParaBl|ock%!12=|
|00003160| 50 61 72 61 42 6c 6f 63 | 6b 25 21 38 0d 12 c0 43 |ParaBloc|k%!8...C|
|00003170| 20 20 50 61 72 61 42 6c | 6f 63 6b 25 21 31 36 3d | ParaBl|ock%!16=|
|00003180| 34 3a f4 20 2a 2a 2a 20 | 41 63 74 69 6f 6e 20 43 |4:. *** |Action C|
|00003190| 6f 64 65 20 66 6f 72 20 | 44 61 74 61 53 61 76 65 |ode for |DataSave|
|000031a0| 41 63 6b 20 6d 65 73 73 | 61 67 65 20 2a 2a 2a 0d |Ack mess|age ***.|
|000031b0| 12 ca 45 20 20 c8 99 20 | 22 57 69 6d 70 5f 53 65 |..E .. |"Wimp_Se|
|000031c0| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 50 61 |ndMessag|e",17,Pa|
|000031d0| 72 61 42 6c 6f 63 6b 25 | 2c 50 61 72 61 42 6c 6f |raBlock%|,ParaBlo|
|000031e0| 63 6b 25 21 32 30 2c 50 | 61 72 61 42 6c 6f 63 6b |ck%!20,P|araBlock|
|000031f0| 25 21 32 34 0d 12 d4 3f | 20 20 f4 20 50 52 4f 43 |%!24...?| . PROC|
|00003200| 65 72 72 6f 72 28 22 44 | 61 74 61 53 61 76 65 41 |error("D|ataSaveA|
|00003210| 63 6b 20 73 65 6e 74 20 | 74 6f 20 26 22 2b 53 54 |ck sent |to &"+ST|
|00003220| 52 24 7e 28 53 65 6e 64 | 65 72 48 61 6e 64 6c 65 |R$~(Send|erHandle|
|00003230| 25 29 29 0d 12 de 05 cd | 0d 12 e8 05 e1 0d 12 f2 |%)).....|........|
|00003240| 04 0d 12 fc 04 0d 13 06 | 1a dd f2 49 63 6f 6e 54 |........|...IconT|
|00003250| 65 78 74 28 57 48 25 2c | 49 48 25 2c 4d 24 29 0d |ext(WH%,|IH%,M$).|
|00003260| 13 10 09 ea 20 50 42 25 | 0d 13 1a 16 50 42 25 3d |.... PB%|....PB%=|
|00003270| 50 61 72 61 42 6c 6f 63 | 6b 25 2b 36 30 30 0d 13 |ParaBloc|k%+600..|
|00003280| 24 0c 21 50 42 25 3d 57 | 48 25 0d 13 2e 0d 50 42 |$.!PB%=W|H%....PB|
|00003290| 25 21 34 3d 49 48 25 0d | 13 38 1f c8 99 20 22 57 |%!4=IH%.|.8... "W|
|000032a0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000032b0| 22 2c 2c 50 42 25 0d 13 | 42 10 24 28 50 42 25 21 |",,PB%..|B.$(PB%!|
|000032c0| 32 38 29 3d 4d 24 0d 13 | 4c 14 50 42 25 21 38 3d |28)=M$..|L.PB%!8=|
|000032d0| 30 3a 50 42 25 21 31 32 | 3d 30 0d 13 56 1f c8 99 |0:PB%!12|=0..V...|
|000032e0| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|000032f0| 61 74 65 22 2c 2c 50 42 | 25 0d 13 60 05 e1 0d 13 |ate",,PB|%..`....|
|00003300| 6a 04 0d 13 74 04 0d 13 | 7e 17 dd a4 52 65 61 64 |j...t...|~...Read|
|00003310| 49 63 6f 6e 28 57 48 25 | 2c 49 48 25 29 0d 13 88 |Icon(WH%|,IH%)...|
|00003320| 09 ea 20 50 42 25 0d 13 | 92 16 50 42 25 3d 50 61 |.. PB%..|..PB%=Pa|
|00003330| 72 61 42 6c 6f 63 6b 25 | 2b 35 30 30 0d 13 9c 0c |raBlock%|+500....|
|00003340| 21 50 42 25 3d 57 48 25 | 0d 13 a6 0d 50 42 25 21 |!PB%=WH%|....PB%!|
|00003350| 34 3d 49 48 25 0d 13 b0 | 1f c8 99 20 22 57 69 6d |4=IH%...|... "Wim|
|00003360| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|00003370| 2c 50 42 25 0d 13 ba 18 | 3d a4 52 65 61 64 53 74 |,PB%....|=.ReadSt|
|00003380| 72 69 6e 67 28 50 42 25 | 21 32 38 29 0d 13 c4 04 |ring(PB%|!28)....|
|00003390| 0d 13 ce 04 0d 13 d8 11 | dd f2 65 72 72 6f 72 28 |........|..error(|
|000033a0| 65 72 72 24 29 0d 13 e2 | 09 ea 20 50 42 25 0d 13 |err$)...|.. PB%..|
|000033b0| ec 16 50 42 25 3d 50 61 | 72 61 42 6c 6f 63 6b 25 |..PB%=Pa|raBlock%|
|000033c0| 2b 35 30 30 0d 13 f6 0c | 21 50 42 25 3d 32 35 35 |+500....|!PB%=255|
|000033d0| 0d 14 00 16 24 28 50 42 | 25 2b 34 29 3d 65 72 72 |....$(PB|%+4)=err|
|000033e0| 24 2b bd 28 30 29 0d 14 | 0a 25 c8 99 20 22 57 69 |$+.(0)..|.%.. "Wi|
|000033f0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00003400| 50 42 25 2c 31 2c 74 61 | 73 6b 24 0d 14 14 05 e1 |PB%,1,ta|sk$.....|
|00003410| 0d 14 1e 04 0d 14 28 04 | 0d 14 32 14 dd f2 52 65 |......(.|..2...Re|
|00003420| 63 65 69 76 65 4d 65 73 | 73 61 67 65 0d 14 3c 24 |ceiveMes|sage..<$|
|00003430| f4 20 2a 2a 2a 20 48 61 | 6e 64 6c 65 73 20 6d 65 |. *** Ha|ndles me|
|00003440| 73 73 61 67 65 73 20 66 | 72 6f 6d 20 77 69 6d 70 |ssages f|rom wimp|
|00003450| 0d 14 46 2c f4 20 2a 2a | 2a 20 50 61 72 61 42 6c |..F,. **|* ParaBl|
|00003460| 6f 63 6b 25 21 31 36 20 | 63 6f 6e 74 61 69 6e 73 |ock%!16 |contains|
|00003470| 20 61 63 74 69 6f 6e 20 | 63 6f 64 65 0d 14 50 1e | action |code..P.|
|00003480| 53 65 6e 64 65 72 48 61 | 6e 64 6c 65 25 3d 50 61 |SenderHa|ndle%=Pa|
|00003490| 72 61 42 6c 6f 63 6b 25 | 21 34 0d 14 5a 1c 4d 65 |raBlock%|!4..Z.Me|
|000034a0| 73 73 61 67 65 52 65 66 | 25 3d 50 61 72 61 42 6c |ssageRef|%=ParaBl|
|000034b0| 6f 63 6b 25 21 38 0d 14 | 64 23 e7 20 53 65 6e 64 |ock%!8..|d#. Send|
|000034c0| 65 72 48 61 6e 64 6c 65 | 25 3d 54 61 73 6b 48 61 |erHandle|%=TaskHa|
|000034d0| 6e 64 6c 65 25 20 8c 20 | e1 0d 14 6e 76 f4 20 50 |ndle% . |...nv. P|
|000034e0| 52 4f 43 65 72 72 6f 72 | 28 22 4d 65 73 73 61 67 |ROCerror|("Messag|
|000034f0| 65 20 22 2b 53 54 52 24 | 7e 28 50 61 72 61 42 6c |e "+STR$|~(ParaBl|
|00003500| 6f 63 6b 25 21 31 36 29 | 2b 22 20 72 65 63 65 69 |ock%!16)|+" recei|
|00003510| 76 65 64 20 66 72 6f 6d | 20 22 2b 53 54 52 24 7e |ved from| "+STR$~|
|00003520| 28 50 61 72 61 42 6c 6f | 63 6b 25 21 34 29 2b 22 |(ParaBlo|ck%!4)+"|
|00003530| 20 52 65 61 73 6f 6e 20 | 63 6f 64 65 20 3d 20 22 | Reason |code = "|
|00003540| 2b 53 54 52 24 28 72 65 | 61 73 6f 6e 25 29 29 0d |+STR$(re|ason%)).|
|00003550| 14 78 16 c8 8e 20 50 61 | 72 61 42 6c 6f 63 6b 25 |.x... Pa|raBlock%|
|00003560| 21 31 36 20 ca 0d 14 82 | 10 c9 20 30 3a 20 71 75 |!16 ....|.. 0: qu|
|00003570| 69 74 25 3d b9 0d 14 8c | 12 c9 20 31 3a 20 f2 44 |it%=....|.. 1: .D|
|00003580| 61 74 61 53 61 76 65 0d | 14 96 15 c9 20 32 3a 20 |ataSave.|.... 2: |
|00003590| f2 44 61 74 61 53 61 76 | 65 41 63 6b 0d 14 a0 31 |.DataSav|eAck...1|
|000035a0| c9 20 33 3a 20 f2 4c 6f | 61 64 46 72 6f 6d 46 69 |. 3: .Lo|adFromFi|
|000035b0| 6c 65 20 3a f4 20 2a 2a | 2a 20 6d 65 73 73 61 67 |le :. **|* messag|
|000035c0| 65 20 69 73 20 44 61 74 | 61 4c 6f 61 64 0d 14 aa |e is Dat|aLoad...|
|000035d0| 15 c9 20 34 3a 20 f2 44 | 61 74 61 4c 6f 61 64 41 |.. 4: .D|ataLoadA|
|000035e0| 63 6b 0d 14 b4 12 c9 20 | 36 3a 20 f2 52 41 4d 46 |ck..... |6: .RAMF|
|000035f0| 65 74 63 68 0d 14 be 15 | c9 20 37 3a 20 f2 52 41 |etch....|. 7: .RA|
|00003600| 4d 54 72 61 6e 73 6d 69 | 74 0d 14 c8 05 cb 0d 14 |MTransmi|t.......|
|00003610| d2 05 e1 0d 14 dc 04 0d | 14 e6 04 0d 14 f0 11 dd |........|........|
|00003620| f2 52 65 63 65 69 76 65 | 45 63 68 6f 0d 14 fa 3b |.Receive|Echo...;|
|00003630| f4 20 2a 2a 2a 20 48 61 | 6e 64 6c 65 73 20 72 65 |. *** Ha|ndles re|
|00003640| 61 73 6f 6e 20 63 6f 64 | 65 20 31 39 20 2d 20 55 |ason cod|e 19 - U|
|00003650| 73 65 72 20 4d 65 73 73 | 61 67 65 20 41 63 6b 6e |ser Mess|age Ackn|
|00003660| 6f 77 6c 65 64 67 65 0d | 15 04 1e 53 65 6e 64 65 |owledge.|...Sende|
|00003670| 72 48 61 6e 64 6c 65 25 | 3d 50 61 72 61 42 6c 6f |rHandle%|=ParaBlo|
|00003680| 63 6b 25 21 34 0d 15 0e | 1c 4d 65 73 73 61 67 65 |ck%!4...|.Message|
|00003690| 52 65 66 25 3d 50 61 72 | 61 42 6c 6f 63 6b 25 21 |Ref%=Par|aBlock%!|
|000036a0| 38 0d 15 18 76 f4 20 50 | 52 4f 43 65 72 72 6f 72 |8...v. P|ROCerror|
|000036b0| 28 22 4d 65 73 73 61 67 | 65 20 22 2b 53 54 52 24 |("Messag|e "+STR$|
|000036c0| 7e 28 50 61 72 61 42 6c | 6f 63 6b 25 21 31 36 29 |~(ParaBl|ock%!16)|
|000036d0| 2b 22 20 72 65 63 65 69 | 76 65 64 20 66 72 6f 6d |+" recei|ved from|
|000036e0| 20 22 2b 53 54 52 24 7e | 28 50 61 72 61 42 6c 6f | "+STR$~|(ParaBlo|
|000036f0| 63 6b 25 21 34 29 2b 22 | 20 52 65 61 73 6f 6e 20 |ck%!4)+"| Reason |
|00003700| 63 6f 64 65 20 3d 20 22 | 2b 53 54 52 24 28 72 65 |code = "|+STR$(re|
|00003710| 61 73 6f 6e 25 29 29 0d | 15 22 17 e7 20 50 61 72 |ason%)).|.".. Par|
|00003720| 61 42 6c 6f 63 6b 25 21 | 31 36 3d 36 20 8c 0d 15 |aBlock%!|16=6 ...|
|00003730| 2c 48 f4 20 2a 2a 2a 20 | 4d 65 73 73 61 67 65 20 |,H. *** |Message |
|00003740| 52 41 4d 46 65 74 63 68 | 20 6e 6f 74 20 61 63 6b |RAMFetch| not ack|
|00003750| 6e 6f 77 6c 65 64 67 65 | 64 2c 20 73 6f 20 73 65 |nowledge|d, so se|
|00003760| 6e 64 20 6d 65 73 73 61 | 67 65 20 44 61 74 61 53 |nd messa|ge DataS|
|00003770| 61 76 65 41 63 6b 0d 15 | 36 2c f4 20 2a 2a 2a 20 |aveAck..|6,. *** |
|00003780| 74 6f 20 69 6e 69 74 69 | 61 74 65 20 66 69 6c 65 |to initi|ate file|
|00003790| 20 74 72 61 6e 73 66 65 | 72 20 70 72 6f 74 6f 63 | transfe|r protoc|
|000037a0| 6f 6c 0d 15 40 1d 50 61 | 72 61 42 6c 6f 63 6b 25 |ol..@.Pa|raBlock%|
|000037b0| 21 31 32 3d 4d 65 73 73 | 61 67 65 52 65 66 25 0d |!12=Mess|ageRef%.|
|000037c0| 15 4a 13 50 61 72 61 42 | 6c 6f 63 6b 25 21 31 36 |.J.ParaB|lock%!16|
|000037d0| 3d 32 0d 15 54 14 50 61 | 72 61 42 6c 6f 63 6b 25 |=2..T.Pa|raBlock%|
|000037e0| 21 33 36 3d 2d 31 0d 15 | 5e 23 24 28 50 61 72 61 |!36=-1..|^#$(Para|
|000037f0| 42 6c 6f 63 6b 25 2b 34 | 34 29 3d 22 3c 57 69 6d |Block%+4|4)="<Wim|
|00003800| 70 24 53 63 72 61 70 3e | 22 0d 15 68 12 21 50 61 |p$Scrap>|"..h.!Pa|
|00003810| 72 61 42 6c 6f 63 6b 25 | 3d 36 30 0d 15 72 34 c8 |raBlock%|=60..r4.|
|00003820| 99 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 |."Wimp_S|endMessa|
|00003830| 67 65 22 2c 31 37 2c 50 | 61 72 61 42 6c 6f 63 6b |ge",17,P|araBlock|
|00003840| 25 2c 53 65 6e 64 65 72 | 48 61 6e 64 6c 65 25 0d |%,Sender|Handle%.|
|00003850| 15 7c 5c f4 20 50 52 4f | 43 65 72 72 6f 72 28 22 |.|\. PRO|Cerror("|
|00003860| 44 61 74 61 53 61 76 65 | 41 63 6b 20 73 65 6e 74 |DataSave|Ack sent|
|00003870| 20 74 6f 20 26 22 2b 53 | 54 52 24 7e 28 53 65 6e | to &"+S|TR$~(Sen|
|00003880| 64 65 72 48 61 6e 64 6c | 65 25 29 2b 22 20 28 52 |derHandl|e%)+" (R|
|00003890| 41 4d 46 65 74 63 68 20 | 6e 6f 74 20 61 63 6b 6e |AMFetch |not ackn|
|000038a0| 6f 77 6c 65 64 67 65 64 | 29 22 29 0d 15 86 05 cd |owledged|)").....|
|000038b0| 0d 15 90 05 e1 0d 15 9a | 04 0d 15 a4 04 0d 15 ae |........|........|
|000038c0| 0e dd f2 44 61 74 61 53 | 61 76 65 0d 15 b8 2b 49 |...DataS|ave...+I|
|000038d0| 6e 46 69 6c 65 24 3d a4 | 52 65 61 64 53 74 72 69 |nFile$=.|ReadStri|
|000038e0| 6e 67 28 50 61 72 61 42 | 6c 6f 63 6b 25 2b 34 34 |ng(ParaB|lock%+44|
|000038f0| 29 2b bd 28 30 29 0d 15 | c2 1b 4c 6f 61 64 54 79 |)+.(0)..|..LoadTy|
|00003900| 70 65 25 3d 50 61 72 61 | 42 6c 6f 63 6b 25 21 34 |pe%=Para|Block%!4|
|00003910| 30 0d 15 cc 33 50 61 72 | 61 42 6c 6f 63 6b 25 21 |0...3Par|aBlock%!|
|00003920| 31 36 3d 36 3a 20 f4 20 | 2a 2a 2a 20 41 63 74 69 |16=6: . |*** Acti|
|00003930| 6f 6e 20 63 6f 64 65 20 | 66 6f 72 20 52 41 4d 46 |on code |for RAMF|
|00003940| 65 74 63 68 0d 15 d6 1d | 50 61 72 61 42 6c 6f 63 |etch....|ParaBloc|
|00003950| 6b 25 21 31 32 3d 4d 65 | 73 73 61 67 65 52 65 66 |k%!12=Me|ssageRef|
|00003960| 25 0d 15 e0 1e 50 61 72 | 61 42 6c 6f 63 6b 25 21 |%....Par|aBlock%!|
|00003970| 32 30 3d 54 72 61 6e 73 | 42 75 66 66 65 72 25 0d |20=Trans|Buffer%.|
|00003980| 15 ea 3e e7 20 4c 6f 61 | 64 54 79 70 65 25 3d 26 |..>. Loa|dType%=&|
|00003990| 46 45 44 20 8c 20 50 61 | 72 61 42 6c 6f 63 6b 25 |FED . Pa|raBlock%|
|000039a0| 21 32 34 3d 31 36 30 30 | 20 8b 20 50 61 72 61 42 |!24=1600| . ParaB|
|000039b0| 6c 6f 63 6b 25 21 32 34 | 3d 34 33 35 32 0d 15 f4 |lock%!24|=4352...|
|000039c0| 34 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |4.."Wimp|_SendMes|
|000039d0| 73 61 67 65 22 2c 31 38 | 2c 50 61 72 61 42 6c 6f |sage",18|,ParaBlo|
|000039e0| 63 6b 25 2c 53 65 6e 64 | 65 72 48 61 6e 64 6c 65 |ck%,Send|erHandle|
|000039f0| 25 0d 15 fe 5b f4 20 50 | 52 4f 43 65 72 72 6f 72 |%...[. P|ROCerror|
|00003a00| 28 22 52 41 4d 46 65 74 | 63 68 20 73 65 6e 74 20 |("RAMFet|ch sent |
|00003a10| 74 6f 20 26 22 2b 53 54 | 52 24 7e 28 53 65 6e 64 |to &"+ST|R$~(Send|
|00003a20| 65 72 48 61 6e 64 6c 65 | 25 29 2b 22 20 20 20 73 |erHandle|%)+" s|
|00003a30| 69 7a 65 20 3d 20 22 2b | 53 54 52 24 28 50 61 72 |ize = "+|STR$(Par|
|00003a40| 61 42 6c 6f 63 6b 25 21 | 32 34 29 29 0d 16 08 05 |aBlock%!|24))....|
|00003a50| e1 0d 16 12 04 0d 16 1c | 04 0d 16 26 11 dd f2 44 |........|...&...D|
|00003a60| 61 74 61 53 61 76 65 41 | 63 6b 0d 16 30 24 e7 20 |ataSaveA|ck..0$. |
|00003a70| 50 61 72 61 42 6c 6f 63 | 6b 25 21 33 36 3d 2d 31 |ParaBloc|k%!36=-1|
|00003a80| 20 8c 20 44 61 74 61 53 | 61 66 65 25 3d a3 0d 16 | . DataS|afe%=...|
|00003a90| 3a 27 4f 75 74 46 69 6c | 65 24 3d a4 52 65 61 64 |:'OutFil|e$=.Read|
|00003aa0| 53 74 72 69 6e 67 28 50 | 61 72 61 42 6c 6f 63 6b |String(P|araBlock|
|00003ab0| 25 2b 34 34 29 0d 16 44 | 26 f4 20 50 52 4f 43 65 |%+44)..D|&. PROCe|
|00003ac0| 72 72 6f 72 28 22 4f 75 | 74 46 69 6c 65 20 3d 20 |rror("Ou|tFile = |
|00003ad0| 22 2b 4f 75 74 46 69 6c | 65 24 29 0d 16 4e 0f f2 |"+OutFil|e$)..N..|
|00003ae0| 46 69 6c 6c 42 75 66 66 | 65 72 0d 16 58 0f f2 53 |FillBuff|er..X..S|
|00003af0| 61 76 65 54 6f 46 69 6c | 65 0d 16 62 1f 42 6c 6f |aveToFil|e..b.Blo|
|00003b00| 63 6b 4c 65 6e 67 74 68 | 25 3d 34 35 2b a9 28 4f |ckLength|%=45+.(O|
|00003b10| 75 74 46 69 6c 65 24 29 | 0d 16 6c 35 21 50 61 72 |utFile$)|..l5!Par|
|00003b20| 61 42 6c 6f 63 6b 25 3d | 34 2a 28 42 6c 6f 63 6b |aBlock%=|4*(Block|
|00003b30| 4c 65 6e 67 74 68 25 81 | 34 2d 28 42 6c 6f 63 6b |Length%.|4-(Block|
|00003b40| 4c 65 6e 67 74 68 25 83 | 34 3e 30 29 29 0d 16 76 |Length%.|4>0))..v|
|00003b50| 1d 50 61 72 61 42 6c 6f | 63 6b 25 21 31 32 3d 4d |.ParaBlo|ck%!12=M|
|00003b60| 65 73 73 61 67 65 52 65 | 66 25 0d 16 80 13 50 61 |essageRe|f%....Pa|
|00003b70| 72 61 42 6c 6f 63 6b 25 | 21 31 36 3d 33 0d 16 8a |raBlock%|!16=3...|
|00003b80| 34 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |4.."Wimp|_SendMes|
|00003b90| 73 61 67 65 22 2c 31 37 | 2c 50 61 72 61 42 6c 6f |sage",17|,ParaBlo|
|00003ba0| 63 6b 25 2c 53 65 6e 64 | 65 72 48 61 6e 64 6c 65 |ck%,Send|erHandle|
|00003bb0| 25 0d 16 94 51 f4 20 50 | 52 4f 43 65 72 72 6f 72 |%...Q. P|ROCerror|
|00003bc0| 28 22 44 61 74 61 4c 6f | 61 64 20 73 65 6e 74 20 |("DataLo|ad sent |
|00003bd0| 74 6f 20 26 22 2b 53 54 | 52 24 7e 28 53 65 6e 64 |to &"+ST|R$~(Send|
|00003be0| 65 72 48 61 6e 64 6c 65 | 25 29 2b 22 20 4f 75 74 |erHandle|%)+" Out|
|00003bf0| 46 69 6c 65 20 3d 20 22 | 2b 4f 75 74 46 69 6c 65 |File = "|+OutFile|
|00003c00| 24 29 0d 16 9e 25 f4 20 | 2a 2a 2a 20 73 65 6e 64 |$)...%. |*** send|
|00003c10| 20 44 61 74 61 4c 6f 61 | 64 20 62 61 63 6b 20 74 | DataLoa|d back t|
|00003c20| 6f 20 66 69 6c 65 72 0d | 16 a8 05 e1 0d 16 b2 04 |o filer.|........|
|00003c30| 0d 16 bc 04 0d 16 c6 11 | dd f2 44 61 74 61 4c 6f |........|..DataLo|
|00003c40| 61 64 41 63 6b 0d 16 d0 | 1d f2 43 6c 6f 73 65 57 |adAck...|..CloseW|
|00003c50| 69 6e 64 6f 77 28 53 61 | 76 65 48 61 6e 64 6c 65 |indow(Sa|veHandle|
|00003c60| 25 29 0d 16 da 05 e1 0d | 16 e4 04 0d 16 ee 04 0d |%)......|........|
|00003c70| 16 f8 0e dd f2 52 41 4d | 46 65 74 63 68 0d 17 02 |.....RAM|Fetch...|
|00003c80| 1d 50 61 72 61 42 6c 6f | 63 6b 25 21 31 32 3d 4d |.ParaBlo|ck%!12=M|
|00003c90| 65 73 73 61 67 65 52 65 | 66 25 0d 17 0c 34 c8 99 |essageRe|f%...4..|
|00003ca0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00003cb0| 65 22 2c 31 39 2c 50 61 | 72 61 42 6c 6f 63 6b 25 |e",19,Pa|raBlock%|
|00003cc0| 2c 53 65 6e 64 65 72 48 | 61 6e 64 6c 65 25 0d 17 |,SenderH|andle%..|
|00003cd0| 16 1c 42 75 66 66 53 74 | 61 72 74 25 3d 50 61 72 |..BuffSt|art%=Par|
|00003ce0| 61 42 6c 6f 63 6b 25 21 | 32 30 0d 17 20 1a 42 75 |aBlock%!|20.. .Bu|
|00003cf0| 66 66 4c 65 6e 25 3d 50 | 61 72 61 42 6c 6f 63 6b |ffLen%=P|araBlock|
|00003d00| 25 21 32 34 0d 17 2a 31 | f4 20 50 52 4f 43 65 72 |%!24..*1|. PROCer|
|00003d10| 72 6f 72 28 22 42 75 66 | 66 65 72 20 6c 65 6e 67 |ror("Buf|fer leng|
|00003d20| 74 68 3d 20 22 2b 53 54 | 52 24 28 42 75 66 66 4c |th= "+ST|R$(BuffL|
|00003d30| 65 6e 25 29 29 0d 17 34 | 15 e7 20 4e 6f 77 53 65 |en%))..4|.. NowSe|
|00003d40| 6e 64 69 6e 67 25 3d a3 | 20 8c 0d 17 3e 13 20 20 |nding%=.| ...>. |
|00003d50| 4e 6f 77 53 65 6e 64 69 | 6e 67 25 3d b9 0d 17 48 |NowSendi|ng%=...H|
|00003d60| 12 20 20 42 79 74 65 73 | 53 65 6e 74 25 3d 30 0d |. Bytes|Sent%=0.|
|00003d70| 17 52 13 20 20 f2 46 69 | 6c 6c 42 75 66 66 65 72 |.R. .Fi|llBuffer|
|00003d80| 20 20 0d 17 5c 05 cd 0d | 17 66 2a e7 20 42 75 66 | ..\...|.f*. Buf|
|00003d90| 66 4c 65 6e 25 3e 28 42 | 79 74 65 73 54 6f 53 61 |fLen%>(B|ytesToSa|
|00003da0| 76 65 25 2d 42 79 74 65 | 73 53 65 6e 74 25 29 20 |ve%-Byte|sSent%) |
|00003db0| 8c 0d 17 70 2c 20 20 42 | 79 74 65 73 54 68 69 73 |...p, B|ytesThis|
|00003dc0| 43 61 6c 6c 25 3d 42 79 | 74 65 73 54 6f 53 61 76 |Call%=By|tesToSav|
|00003dd0| 65 25 2d 42 79 74 65 73 | 53 65 6e 74 25 0d 17 7a |e%-Bytes|Sent%..z|
|00003de0| 05 cc 0d 17 84 1d 20 20 | 42 79 74 65 73 54 68 69 |...... |BytesThi|
|00003df0| 73 43 61 6c 6c 25 3d 42 | 75 66 66 4c 65 6e 25 0d |sCall%=B|uffLen%.|
|00003e00| 17 8e 05 cd 0d 17 98 68 | c8 99 22 57 69 6d 70 5f |.......h|.."Wimp_|
|00003e10| 54 72 61 6e 73 66 65 72 | 42 6c 6f 63 6b 22 2c 54 |Transfer|Block",T|
|00003e20| 61 73 6b 48 61 6e 64 6c | 65 25 2c 28 54 72 61 6e |askHandl|e%,(Tran|
|00003e30| 73 42 75 66 66 65 72 25 | 2b 42 79 74 65 73 53 65 |sBuffer%|+BytesSe|
|00003e40| 6e 74 25 29 2c 53 65 6e | 64 65 72 48 61 6e 64 6c |nt%),Sen|derHandl|
|00003e50| 65 25 2c 42 75 66 66 53 | 74 61 72 74 25 2c 42 79 |e%,BuffS|tart%,By|
|00003e60| 74 65 73 54 68 69 73 43 | 61 6c 6c 25 0d 17 a2 12 |tesThisC|all%....|
|00003e70| 21 50 61 72 61 42 6c 6f | 63 6b 25 3d 32 38 0d 17 |!ParaBlo|ck%=28..|
|00003e80| ac 20 50 61 72 61 42 6c | 6f 63 6b 25 21 32 34 3d |. ParaBl|ock%!24=|
|00003e90| 42 79 74 65 73 54 68 69 | 73 43 61 6c 6c 25 0d 17 |BytesThi|sCall%..|
|00003ea0| b6 35 50 61 72 61 42 6c | 6f 63 6b 25 21 31 36 3d |.5ParaBl|ock%!16=|
|00003eb0| 37 3a f4 20 2a 2a 2a 20 | 41 63 74 69 6f 6e 20 43 |7:. *** |Action C|
|00003ec0| 6f 64 65 20 66 6f 72 20 | 52 41 4d 54 72 61 6e 73 |ode for |RAMTrans|
|00003ed0| 6d 69 74 0d 17 c0 1e 42 | 79 74 65 73 53 65 6e 74 |mit....B|ytesSent|
|00003ee0| 25 2b 3d 42 79 74 65 73 | 54 68 69 73 43 61 6c 6c |%+=Bytes|ThisCall|
|00003ef0| 25 0d 17 ca 36 e7 20 42 | 79 74 65 73 54 68 69 73 |%...6. B|ytesThis|
|00003f00| 43 61 6c 6c 25 3d 42 79 | 74 65 73 54 6f 53 61 76 |Call%=By|tesToSav|
|00003f10| 65 25 20 84 20 42 79 74 | 65 73 54 68 69 73 43 61 |e% . Byt|esThisCa|
|00003f20| 6c 6c 25 3d 30 20 8c 0d | 17 d4 15 20 20 4d 65 73 |ll%=0 ..|... Mes|
|00003f30| 73 61 67 65 54 79 70 65 | 25 3d 31 37 0d 17 de 13 |sageType|%=17....|
|00003f40| 20 20 4e 6f 77 53 65 6e | 64 69 6e 67 25 3d a3 0d | NowSen|ding%=..|
|00003f50| 17 e8 1f 20 20 f2 43 6c | 6f 73 65 57 69 6e 64 6f |... .Cl|oseWindo|
|00003f60| 77 28 53 61 76 65 48 61 | 6e 64 6c 65 25 29 0d 17 |w(SaveHa|ndle%)..|
|00003f70| f2 05 cc 0d 17 fc 15 20 | 20 4d 65 73 73 61 67 65 |....... | Message|
|00003f80| 54 79 70 65 25 3d 31 38 | 0d 18 06 05 cd 0d 18 10 |Type%=18|........|
|00003f90| 3f c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |?.."Wimp|_SendMes|
|00003fa0| 73 61 67 65 22 2c 4d 65 | 73 73 61 67 65 54 79 70 |sage",Me|ssageTyp|
|00003fb0| 65 25 2c 50 61 72 61 42 | 6c 6f 63 6b 25 2c 53 65 |e%,ParaB|lock%,Se|
|00003fc0| 6e 64 65 72 48 61 6e 64 | 6c 65 25 20 0d 18 1a 82 |nderHand|le% ....|
|00003fd0| f4 20 50 52 4f 43 65 72 | 72 6f 72 28 22 52 41 4d |. PROCer|ror("RAM|
|00003fe0| 54 72 61 6e 73 6d 69 74 | 20 73 65 6e 74 20 74 6f |Transmit| sent to|
|00003ff0| 20 22 2b 53 54 52 24 7e | 28 53 65 6e 64 65 72 48 | "+STR$~|(SenderH|
|00004000| 61 6e 64 6c 65 25 29 2b | 22 20 20 22 2b 53 54 52 |andle%)+|" "+STR|
|00004010| 24 28 42 79 74 65 73 54 | 68 69 73 43 61 6c 6c 25 |$(BytesT|hisCall%|
|00004020| 29 2b 22 20 62 79 74 65 | 73 2c 20 6d 65 73 73 61 |)+" byte|s, messa|
|00004030| 67 65 20 74 79 70 65 20 | 3d 22 2b 53 54 52 24 28 |ge type |="+STR$(|
|00004040| 4d 65 73 73 61 67 65 54 | 79 70 65 25 29 29 0d 18 |MessageT|ype%))..|
|00004050| 24 05 e1 0d 18 2e 04 0d | 18 38 04 0d 18 42 11 dd |$.......|.8...B..|
|00004060| f2 52 41 4d 54 72 61 6e | 73 6d 69 74 0d 18 4c 1e |.RAMTran|smit..L.|
|00004070| 42 79 74 65 73 54 6f 52 | 65 61 64 25 3d 50 61 72 |BytesToR|ead%=Par|
|00004080| 61 42 6c 6f 63 6b 25 21 | 32 34 0d 18 56 46 f4 20 |aBlock%!|24..VF. |
|00004090| 50 52 4f 43 65 72 72 6f | 72 28 22 52 41 4d 54 72 |PROCerro|r("RAMTr|
|000040a0| 61 6e 73 6d 69 74 20 72 | 65 63 65 69 76 65 64 20 |ansmit r|eceived |
|000040b0| 3a 20 22 2b 53 54 52 24 | 28 42 79 74 65 73 54 6f |: "+STR$|(BytesTo|
|000040c0| 52 65 61 64 25 29 2b 22 | 20 62 79 74 65 73 22 29 |Read%)+"| bytes")|
|000040d0| 0d 18 60 0d 4c 6f 61 64 | 65 64 25 3d a3 0d 18 6a |..`.Load|ed%=...j|
|000040e0| 1e f2 52 65 61 64 46 72 | 6f 6d 42 75 66 66 65 72 |..ReadFr|omBuffer|
|000040f0| 28 4c 6f 61 64 54 79 70 | 65 25 29 0d 18 74 0f e7 |(LoadTyp|e%)..t..|
|00004100| 20 4c 6f 61 64 65 64 25 | 20 8c 0d 18 7e 20 20 20 | Loaded%| ...~ |
|00004110| 24 54 69 74 6c 65 25 3d | 22 50 61 6c 47 65 6e 3a |$Title%=|"PalGen:|
|00004120| 20 22 2b 49 6e 46 69 6c | 65 24 0d 18 88 26 20 20 | "+InFil|e$...& |
|00004130| f2 49 63 6f 6e 54 65 78 | 74 28 53 61 76 65 48 61 |.IconTex|t(SaveHa|
|00004140| 6e 64 6c 65 25 2c 32 2c | 49 6e 46 69 6c 65 24 29 |ndle%,2,|InFile$)|
|00004150| 0d 18 92 20 20 20 f2 57 | 72 69 74 65 53 70 72 69 |... .W|riteSpri|
|00004160| 74 65 50 61 6c 65 74 74 | 65 28 30 2c 32 35 35 29 |tePalett|e(0,255)|
|00004170| 0d 18 9c 1a 20 20 f2 44 | 72 61 77 47 72 61 70 68 |.... .D|rawGraph|
|00004180| 28 50 72 69 6d 61 72 79 | 25 29 0d 18 a6 1b 20 20 |(Primary|%).... |
|00004190| f2 52 65 54 69 74 6c 65 | 28 4d 61 69 6e 48 61 6e |.ReTitle|(MainHan|
|000041a0| 64 6c 65 25 29 0d 18 b0 | 1e 20 20 f2 52 65 54 69 |dle%)...|. .ReTi|
|000041b0| 74 6c 65 28 50 61 6c 65 | 74 74 65 48 61 6e 64 6c |tle(Pale|tteHandl|
|000041c0| 65 25 29 0d 18 ba 05 cd | 0d 18 c4 05 e1 0d 18 ce |e%).....|........|
|000041d0| 04 0d 18 d8 04 0d 18 e2 | 1f dd f2 52 65 61 64 46 |........|...ReadF|
|000041e0| 72 6f 6d 42 75 66 66 65 | 72 28 4c 6f 61 64 54 79 |romBuffe|r(LoadTy|
|000041f0| 70 65 25 29 0d 18 ec 0d | 4c 6f 61 64 65 64 25 3d |pe%)....|Loaded%=|
|00004200| a3 0d 18 f6 12 c8 8e 20 | 4c 6f 61 64 54 79 70 65 |....... |LoadType|
|00004210| 25 20 ca 0d 19 00 0a c9 | 20 26 46 45 44 0d 19 0a |% ......| &FED...|
|00004220| 25 20 20 74 65 73 74 25 | 3d 21 54 72 61 6e 73 42 |% test%|=!TransB|
|00004230| 75 66 66 65 72 25 20 80 | 20 26 30 30 46 46 46 46 |uffer% .| &00FFFF|
|00004240| 46 46 0d 19 14 2f 20 20 | e7 20 42 79 74 65 73 54 |FF.../ |. BytesT|
|00004250| 6f 52 65 61 64 25 20 3c | 3e 20 31 35 33 36 20 84 |oRead% <|> 1536 .|
|00004260| 20 74 65 73 74 25 3c 3e | 26 31 30 30 30 31 33 20 | test%<>|&100013 |
|00004270| 8c 0d 19 1e 48 20 20 20 | 20 f4 20 2a 2a 20 46 69 |....H | . ** Fi|
|00004280| 72 73 74 20 33 20 62 79 | 74 65 73 20 6f 66 20 70 |rst 3 by|tes of p|
|00004290| 61 6c 65 74 74 65 20 73 | 68 6f 75 6c 64 20 61 6c |alette s|hould al|
|000042a0| 77 61 79 73 20 62 65 20 | 31 33 20 30 30 20 31 30 |ways be |13 00 10|
|000042b0| 20 28 68 65 78 29 20 2a | 2a 0d 19 28 51 20 20 20 | (hex) *|*..(Q |
|000042c0| 20 f2 65 72 72 6f 72 28 | 22 54 68 69 73 20 69 73 | .error(|"This is|
|000042d0| 20 6e 6f 74 20 61 20 32 | 35 36 20 65 6e 74 72 79 | not a 2|56 entry|
|000042e0| 20 70 61 6c 65 74 74 65 | 20 66 69 6c 65 20 61 6e | palette| file an|
|000042f0| 64 20 73 6f 20 63 61 6e | 6e 6f 74 20 62 65 20 6c |d so can|not be l|
|00004300| 6f 61 64 65 64 22 29 20 | 20 20 0d 19 32 07 20 20 |oaded") | ..2. |
|00004310| cc 0d 19 3c 16 20 20 20 | 20 e3 20 4c 43 4e 25 3d |...<. | . LCN%=|
|00004320| 30 20 b8 20 32 35 35 0d | 19 46 32 20 20 20 20 20 |0 . 255.|.F2 |
|00004330| 20 50 61 6c 65 74 74 65 | 25 28 4c 43 4e 25 2c 30 | Palette|%(LCN%,0|
|00004340| 29 3d 54 72 61 6e 73 42 | 75 66 66 65 72 25 3f 28 |)=TransB|uffer%?(|
|00004350| 36 2a 4c 43 4e 25 2b 33 | 29 0d 19 50 32 20 20 20 |6*LCN%+3|)..P2 |
|00004360| 20 20 20 50 61 6c 65 74 | 74 65 25 28 4c 43 4e 25 | Palet|te%(LCN%|
|00004370| 2c 31 29 3d 54 72 61 6e | 73 42 75 66 66 65 72 25 |,1)=Tran|sBuffer%|
|00004380| 3f 28 36 2a 4c 43 4e 25 | 2b 34 29 0d 19 5a 32 20 |?(6*LCN%|+4)..Z2 |
|00004390| 20 20 20 20 20 50 61 6c | 65 74 74 65 25 28 4c 43 | Pal|ette%(LC|
|000043a0| 4e 25 2c 32 29 3d 54 72 | 61 6e 73 42 75 66 66 65 |N%,2)=Tr|ansBuffe|
|000043b0| 72 25 3f 28 36 2a 4c 43 | 4e 25 2b 35 29 0d 19 64 |r%?(6*LC|N%+5)..d|
|000043c0| 09 20 20 20 20 ed 0d 19 | 6e 11 20 20 20 20 4c 6f |. ...|n. Lo|
|000043d0| 61 64 65 64 25 3d b9 0d | 19 78 07 20 20 cd 0d 19 |aded%=..|.x. ...|
|000043e0| 82 0a c9 20 26 46 46 46 | 0d 19 8c 10 20 20 45 72 |... &FFF|.... Er|
|000043f0| 72 46 6c 61 67 25 3d a3 | 0d 19 96 0c 20 20 70 74 |rFlag%=.|.... pt|
|00004400| 72 25 3d 30 0d 19 a0 1d | 20 20 74 65 73 74 25 3d |r%=0....| test%=|
|00004410| a4 52 65 61 64 42 75 66 | 66 65 72 53 74 72 69 6e |.ReadBuf|ferStrin|
|00004420| 67 0d 19 aa 2c 20 20 e7 | 20 28 74 65 73 74 25 3c |g..., .| (test%<|
|00004430| 30 29 20 84 20 28 74 65 | 73 74 25 3e 32 35 35 29 |0) . (te|st%>255)|
|00004440| 20 84 20 28 70 74 72 25 | 3e 34 29 20 8c 0d 19 b4 | . (ptr%|>4) ....|
|00004450| 58 20 20 20 20 f4 20 2a | 2a 20 46 69 72 73 74 20 |X . *|* First |
|00004460| 33 20 62 79 74 65 73 20 | 73 68 6f 75 6c 64 20 63 |3 bytes |should c|
|00004470| 6f 6e 74 61 69 6e 20 74 | 68 65 20 61 73 63 69 69 |ontain t|he ascii|
|00004480| 20 63 68 61 72 61 63 74 | 65 72 73 20 6f 66 20 61 | charact|ers of a|
|00004490| 20 76 61 6c 69 64 20 6e | 75 6d 62 65 72 20 62 65 | valid n|umber be|
|000044a0| 74 77 65 65 6e 0d 19 be | 4b 20 20 20 20 f4 20 2a |tween...|K . *|
|000044b0| 2a 20 30 20 61 6e 64 20 | 32 35 35 20 28 66 6f 75 |* 0 and |255 (fou|
|000044c0| 72 74 68 20 62 79 74 65 | 20 6d 61 79 20 68 61 76 |rth byte| may hav|
|000044d0| 65 20 62 65 65 6e 20 72 | 65 61 64 2c 20 68 65 6e |e been r|ead, hen|
|000044e0| 63 65 20 70 74 72 25 20 | 6d 61 79 20 62 65 20 34 |ce ptr% |may be 4|
|000044f0| 0d 19 c8 65 20 20 20 20 | f2 65 72 72 6f 72 28 46 |...e |.error(F|
|00004500| 69 6c 65 24 2b 22 20 63 | 61 6e 6e 6f 74 20 62 65 |ile$+" c|annot be|
|00004510| 20 75 6e 64 65 72 73 74 | 6f 6f 64 20 62 79 20 74 | underst|ood by t|
|00004520| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 2d 20 61 72 |his prog|ram - ar|
|00004530| 65 20 79 6f 75 20 73 75 | 72 65 20 69 74 27 73 20 |e you su|re it's |
|00004540| 61 20 46 72 61 63 74 49 | 6e 74 20 70 61 6c 65 74 |a FractI|nt palet|
|00004550| 74 65 3f 22 29 0d 19 d2 | 07 20 20 cc 0d 19 dc 1e |te?")...|. .....|
|00004560| 20 20 20 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 | .. "|Hourglas|
|00004570| 73 5f 53 74 61 72 74 22 | 2c 31 0d 19 e6 0e 20 20 |s_Start"|,1.... |
|00004580| 20 20 70 74 72 25 3d 30 | 0d 19 f0 16 20 20 20 20 | ptr%=0|.... |
|00004590| e3 20 4c 43 4e 25 3d 30 | 20 b8 20 32 35 35 0d 19 |. LCN%=0| . 255..|
|000045a0| fa 3f 20 20 20 20 20 20 | e7 20 4c 43 4e 25 20 83 |.? |. LCN% .|
|000045b0| 20 32 35 3d 30 20 8c 20 | c8 99 22 48 6f 75 72 67 | 25=0 . |.."Hourg|
|000045c0| 6c 61 73 73 5f 50 65 72 | 63 65 6e 74 61 67 65 22 |lass_Per|centage"|
|000045d0| 2c 31 30 30 2a 4c 43 4e | 25 2f 32 35 35 0d 1a 04 |,100*LCN|%/255...|
|000045e0| 15 20 20 20 20 20 20 e3 | 20 70 25 3d 20 30 20 b8 |. .| p%= 0 .|
|000045f0| 20 32 0d 1a 0e 23 20 20 | 20 20 20 20 20 20 62 79 | 2...# | by|
|00004600| 74 65 25 3d a4 52 65 61 | 64 42 75 66 66 65 72 53 |te%=.Rea|dBufferS|
|00004610| 74 72 69 6e 67 0d 1a 18 | 23 20 20 20 20 20 20 20 |tring...|# |
|00004620| 20 e7 20 62 79 74 65 25 | 3c 30 20 84 20 62 79 74 | . byte%|<0 . byt|
|00004630| 65 25 3e 32 35 35 20 8c | 0d 1a 22 21 20 20 20 20 |e%>255 .|.."! |
|00004640| 20 20 20 20 20 20 50 61 | 6c 65 74 74 65 25 28 4c | Pa|lette%(L|
|00004650| 43 4e 25 2c 70 25 29 3d | 30 0d 1a 2c 18 20 20 20 |CN%,p%)=|0..,. |
|00004660| 20 20 20 20 20 20 20 45 | 72 72 46 6c 61 67 25 3d | E|rrFlag%=|
|00004670| b9 0d 1a 36 0d 20 20 20 | 20 20 20 20 20 cc 0d 1a |...6. | ...|
|00004680| 40 25 20 20 20 20 20 20 | 20 20 20 20 50 61 6c 65 |@% | Pale|
|00004690| 74 74 65 25 28 4c 43 4e | 25 2c 70 25 29 3d 62 79 |tte%(LCN|%,p%)=by|
|000046a0| 74 65 25 0d 1a 4a 0d 20 | 20 20 20 20 20 20 20 cd |te%..J. | .|
|000046b0| 0d 1a 54 0b 20 20 20 20 | 20 20 ed 0d 1a 5e 09 20 |..T. | ...^. |
|000046c0| 20 20 20 ed 0d 1a 68 1a | 20 20 20 20 c8 99 20 22 | ...h.| .. "|
|000046d0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 1a |Hourglas|s_Off"..|
|000046e0| 72 11 20 20 20 20 4c 6f | 61 64 65 64 25 3d b9 0d |r. Lo|aded%=..|
|000046f0| 1a 7c 61 20 20 20 20 e7 | 20 45 72 72 46 6c 61 67 |.|a .| ErrFlag|
|00004700| 25 20 8c 20 f2 65 72 72 | 6f 72 28 22 49 6e 76 61 |% . .err|or("Inva|
|00004710| 6c 69 64 20 6e 75 6d 62 | 65 72 73 20 77 65 72 65 |lid numb|ers were|
|00004720| 20 64 65 74 65 63 74 65 | 64 20 69 6e 20 22 2b 46 | detecte|d in "+F|
|00004730| 69 6c 65 24 2b 22 2e 20 | 20 5a 65 72 6f 20 68 61 |ile$+". | Zero ha|
|00004740| 73 20 62 65 65 6e 20 61 | 73 73 75 6d 65 64 22 29 |s been a|ssumed")|
|00004750| 0d 1a 86 08 20 20 cd 20 | 0d 1a 90 05 cb 0d 1a 9a |.... . |........|
|00004760| 05 e1 0d 1a a4 04 0d 1a | ae 04 0d 1a b8 16 dd a4 |........|........|
|00004770| 52 65 61 64 42 75 66 66 | 65 72 53 74 72 69 6e 67 |ReadBuff|erString|
|00004780| 0d 1a c2 0b 6e 75 6d 24 | 3d 22 22 0d 1a cc 05 f5 |....num$|="".....|
|00004790| 0d 1a d6 24 20 20 62 25 | 3d 54 72 61 6e 73 42 75 |...$ b%|=TransBu|
|000047a0| 66 66 65 72 25 3f 70 74 | 72 25 20 3a 20 70 74 72 |ffer%?pt|r% : ptr|
|000047b0| 25 2b 3d 31 0d 1a e0 13 | fd 20 62 25 3e 34 37 20 |%+=1....|. b%>47 |
|000047c0| 80 20 62 25 3c 35 38 0d | 1a ea 0b 70 74 72 25 2d |. b%<58.|...ptr%-|
|000047d0| 3d 31 0d 1a f4 05 f5 0d | 1a fe 24 20 20 62 25 3d |=1......|..$ b%=|
|000047e0| 54 72 61 6e 73 42 75 66 | 66 65 72 25 3f 70 74 72 |TransBuf|fer%?ptr|
|000047f0| 25 20 3a 20 70 74 72 25 | 2b 3d 31 0d 1b 08 15 20 |% : ptr%|+=1.... |
|00004800| 20 6e 75 6d 24 3d 6e 75 | 6d 24 2b bd 28 62 25 29 | num$=nu|m$+.(b%)|
|00004810| 0d 1b 12 13 fd 20 62 25 | 3c 34 38 20 84 20 62 25 |..... b%|<48 . b%|
|00004820| 3e 35 37 0d 1b 1c 20 62 | 25 3d 54 72 61 6e 73 42 |>57... b|%=TransB|
|00004830| 75 66 66 65 72 25 3f 70 | 74 72 25 3a 70 74 72 25 |uffer%?p|tr%:ptr%|
|00004840| 2b 3d 31 0d 1b 26 0c e7 | 20 62 25 3d 39 20 8c 0d |+=1..&..| b%=9 ..|
|00004850| 1b 30 48 20 20 f5 3a 62 | 25 3d 54 72 61 6e 73 42 |.0H .:b|%=TransB|
|00004860| 75 66 66 65 72 25 3f 70 | 74 72 25 3a 70 74 72 25 |uffer%?p|tr%:ptr%|
|00004870| 2b 3d 31 3a fd 20 62 25 | 3d 31 30 20 84 20 62 25 |+=1:. b%|=10 . b%|
|00004880| 3d 31 33 20 84 20 70 74 | 72 25 3e 42 79 74 65 73 |=13 . pt|r%>Bytes|
|00004890| 54 6f 52 65 61 64 25 0d | 1b 3a 05 cc 0d 1b 44 04 |ToRead%.|.:....D.|
|000048a0| 0d 1b 4e 0d 20 20 70 74 | 72 25 2d 3d 31 0d 1b 58 |..N. pt|r%-=1..X|
|000048b0| 05 cd 0d 1b 62 0c 3d bb | 28 6e 75 6d 24 29 0d 1b |....b.=.|(num$)..|
|000048c0| 6c 04 0d 1b 76 04 0d 1b | 80 10 dd f2 46 69 6c 6c |l...v...|....Fill|
|000048d0| 42 75 66 66 65 72 0d 1b | 8a 0a ea 20 4c 43 4e 25 |Buffer..|... LCN%|
|000048e0| 0d 1b 94 16 e7 20 53 61 | 76 65 54 79 70 65 25 3d |..... Sa|veType%=|
|000048f0| 26 46 45 44 20 8c 0d 1b | 9e 14 20 20 e3 20 4c 43 |&FED ...|.. . LC|
|00004900| 4e 25 3d 30 20 b8 20 32 | 35 35 0d 1b a8 1f 20 20 |N%=0 . 2|55.... |
|00004910| 54 72 61 6e 73 42 75 66 | 66 65 72 25 3f 28 4c 43 |TransBuf|fer%?(LC|
|00004920| 4e 25 2a 36 29 3d 26 31 | 33 0d 1b b2 22 20 20 54 |N%*6)=&1|3..." T|
|00004930| 72 61 6e 73 42 75 66 66 | 65 72 25 3f 28 4c 43 4e |ransBuff|er%?(LCN|
|00004940| 25 2a 36 2b 31 29 3d 4c | 43 4e 25 0d 1b bc 21 20 |%*6+1)=L|CN%...! |
|00004950| 20 54 72 61 6e 73 42 75 | 66 66 65 72 25 3f 28 4c | TransBu|ffer%?(L|
|00004960| 43 4e 25 2a 36 2b 32 29 | 3d 26 31 30 0d 1b c6 2e |CN%*6+2)|=&10....|
|00004970| 20 20 54 72 61 6e 73 42 | 75 66 66 65 72 25 3f 28 | TransB|uffer%?(|
|00004980| 4c 43 4e 25 2a 36 2b 33 | 29 3d 50 61 6c 65 74 74 |LCN%*6+3|)=Palett|
|00004990| 65 25 28 4c 43 4e 25 2c | 30 29 0d 1b d0 2e 20 20 |e%(LCN%,|0).... |
|000049a0| 54 72 61 6e 73 42 75 66 | 66 65 72 25 3f 28 4c 43 |TransBuf|fer%?(LC|
|000049b0| 4e 25 2a 36 2b 34 29 3d | 50 61 6c 65 74 74 65 25 |N%*6+4)=|Palette%|
|000049c0| 28 4c 43 4e 25 2c 31 29 | 0d 1b da 2e 20 20 54 72 |(LCN%,1)|.... Tr|
|000049d0| 61 6e 73 42 75 66 66 65 | 72 25 3f 28 4c 43 4e 25 |ansBuffe|r%?(LCN%|
|000049e0| 2a 36 2b 35 29 3d 50 61 | 6c 65 74 74 65 25 28 4c |*6+5)=Pa|lette%(L|
|000049f0| 43 4e 25 2c 32 29 0d 1b | e4 07 20 20 ed 0d 1b ee |CN%,2)..|.. ....|
|00004a00| 17 20 20 42 79 74 65 73 | 54 6f 53 61 76 65 25 3d |. Bytes|ToSave%=|
|00004a10| 31 35 33 36 0d 1b f8 05 | cc 0d 1c 02 14 20 20 42 |1536....|..... B|
|00004a20| 79 74 65 73 54 6f 53 61 | 76 65 25 3d 30 0d 1c 0c |ytesToSa|ve%=0...|
|00004a30| 1b 20 20 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |. .."Ho|urglass_|
|00004a40| 53 74 61 72 74 22 2c 31 | 0d 1c 16 14 20 20 e3 20 |Start",1|.... . |
|00004a50| 4c 43 4e 25 3d 30 20 b8 | 20 32 35 35 0d 1c 20 3d |LCN%=0 .| 255.. =|
|00004a60| 20 20 20 20 e7 20 4c 43 | 4e 25 20 83 20 32 35 3d | . LC|N% . 25=|
|00004a70| 30 20 8c 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |0 . .."H|ourglass|
|00004a80| 5f 50 65 72 63 65 6e 74 | 61 67 65 22 2c 31 30 30 |_Percent|age",100|
|00004a90| 2a 4c 43 4e 25 2f 32 35 | 35 0d 1c 2a 12 20 20 20 |*LCN%/25|5..*. |
|00004aa0| 20 e3 20 70 25 3d 30 20 | b8 20 32 0d 1c 34 30 20 | . p%=0 |. 2..40 |
|00004ab0| 20 20 20 20 20 f2 57 72 | 69 74 65 53 74 72 69 6e | .Wr|iteStrin|
|00004ac0| 67 28 c3 28 50 61 6c 65 | 74 74 65 25 28 4c 43 4e |g(.(Pale|tte%(LCN|
|00004ad0| 25 2c 70 25 29 29 2b 22 | 20 22 29 0d 1c 3e 09 20 |%,p%))+"| ")..>. |
|00004ae0| 20 20 20 ed 0d 1c 48 11 | 20 20 20 20 c8 8e 20 4c | ...H.| .. L|
|00004af0| 43 4e 25 20 ca 0d 1c 52 | 4d 20 20 20 20 20 20 c9 |CN% ...R|M .|
|00004b00| 20 30 3a f2 57 72 69 74 | 65 53 74 72 69 6e 67 28 | 0:.Writ|eString(|
|00004b10| bd 28 39 29 2b 22 20 20 | 54 68 69 73 20 70 61 6c |.(9)+" |This pal|
|00004b20| 65 74 74 65 20 66 69 6c | 65 20 77 61 73 20 63 72 |ette fil|e was cr|
|00004b30| 65 61 74 65 64 20 62 79 | 20 21 50 61 6c 47 65 6e |eated by| !PalGen|
|00004b40| 22 29 0d 1c 5c 46 20 20 | 20 20 20 20 c9 20 31 3a |")..\F | . 1:|
|00004b50| f2 57 72 69 74 65 53 74 | 72 69 6e 67 28 bd 28 39 |.WriteSt|ring(.(9|
|00004b60| 29 2b 22 20 20 72 75 6e | 6e 69 6e 67 20 6f 6e 20 |)+" run|ning on |
|00004b70| 41 63 6f 72 6e 20 33 32 | 2d 62 69 74 20 68 61 72 |Acorn 32|-bit har|
|00004b80| 64 77 61 72 65 2e 22 29 | 0d 1c 66 09 20 20 20 20 |dware.")|..f. |
|00004b90| cb 0d 1c 70 21 20 20 20 | 20 f2 57 72 69 74 65 53 |...p! | .WriteS|
|00004ba0| 74 72 69 6e 67 28 bd 28 | 31 33 29 2b bd 28 31 30 |tring(.(|13)+.(10|
|00004bb0| 29 29 0d 1c 7a 07 20 20 | ed 0d 1c 84 17 20 20 c8 |))..z. |..... .|
|00004bc0| 99 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 |."Hourgl|ass_Off"|
|00004bd0| 0d 1c 8e 05 cd 0d 1c 98 | 05 e1 0d 1c a2 04 0d 1c |........|........|
|00004be0| ac 04 0d 1c b6 1a dd f2 | 57 72 69 74 65 53 74 72 |........|WriteStr|
|00004bf0| 69 6e 67 28 73 74 72 69 | 6e 67 24 29 0d 1c c0 37 |ing(stri|ng$)...7|
|00004c00| e7 20 a9 28 73 74 72 69 | 6e 67 24 29 3c 34 20 8c |. .(stri|ng$)<4 .|
|00004c10| 20 73 74 72 69 6e 67 24 | 3d c4 34 2d a9 28 73 74 | string$|=.4-.(st|
|00004c20| 72 69 6e 67 24 29 2c 22 | 20 22 29 2b 73 74 72 69 |ring$),"| ")+stri|
|00004c30| 6e 67 24 0d 1c ca 19 e3 | 20 62 25 3d 30 20 b8 20 |ng$.....| b%=0 . |
|00004c40| a9 28 73 74 72 69 6e 67 | 24 29 2d 31 0d 1c d4 38 |.(string|$)-1...8|
|00004c50| 20 20 54 72 61 6e 73 42 | 75 66 66 65 72 25 3f 28 | TransB|uffer%?(|
|00004c60| 62 25 2b 42 79 74 65 73 | 54 6f 53 61 76 65 25 29 |b%+Bytes|ToSave%)|
|00004c70| 3d 97 28 c1 73 74 72 69 | 6e 67 24 2c 62 25 2b 31 |=.(.stri|ng$,b%+1|
|00004c80| 2c 31 29 29 0d 1c de 05 | ed 0d 1c e8 1c 42 79 74 |,1))....|.....Byt|
|00004c90| 65 73 54 6f 53 61 76 65 | 25 2b 3d a9 28 73 74 72 |esToSave|%+=.(str|
|00004ca0| 69 6e 67 24 29 0d 1c f2 | 05 e1 0d 1c fc 04 0d 1d |ing$)...|........|
|00004cb0| 06 04 0d 1d 10 10 dd f2 | 53 61 76 65 54 6f 46 69 |........|SaveToFi|
|00004cc0| 6c 65 0d 1d 1a 3c f4 20 | 50 52 4f 43 65 72 72 6f |le...<. |PROCerro|
|00004cd0| 72 28 22 53 61 76 69 6e | 67 20 74 6f 20 22 2b 4f |r("Savin|g to "+O|
|00004ce0| 75 74 46 69 6c 65 24 2b | 22 20 20 22 2b 53 54 52 |utFile$+|" "+STR|
|00004cf0| 24 7e 28 53 61 76 65 54 | 79 70 65 25 29 29 0d 1d |$~(SaveT|ype%))..|
|00004d00| 24 51 43 6f 6d 6d 24 3d | 22 53 61 76 65 20 22 2b |$QComm$=|"Save "+|
|00004d10| 4f 75 74 46 69 6c 65 24 | 2b 22 20 22 2b c3 7e 28 |OutFile$|+" "+.~(|
|00004d20| 54 72 61 6e 73 42 75 66 | 66 65 72 25 29 2b 22 20 |TransBuf|fer%)+" |
|00004d30| 22 2b c3 7e 28 54 72 61 | 6e 73 42 75 66 66 65 72 |"+.~(Tra|nsBuffer|
|00004d40| 25 2b 42 79 74 65 73 54 | 6f 53 61 76 65 25 29 0d |%+BytesT|oSave%).|
|00004d50| 1d 2e 0b ff 20 43 6f 6d | 6d 24 0d 1d 38 2f 43 6f |.... Com|m$..8/Co|
|00004d60| 6d 6d 24 3d 22 53 65 74 | 54 79 70 65 20 22 2b 4f |mm$="Set|Type "+O|
|00004d70| 75 74 46 69 6c 65 24 2b | 22 20 22 2b c3 7e 28 53 |utFile$+|" "+.~(S|
|00004d80| 61 76 65 54 79 70 65 25 | 29 0d 1d 42 0b ff 20 43 |aveType%|)..B.. C|
|00004d90| 6f 6d 6d 24 0d 1d 4c 1d | f2 43 6c 6f 73 65 57 69 |omm$..L.|.CloseWi|
|00004da0| 6e 64 6f 77 28 53 61 76 | 65 48 61 6e 64 6c 65 25 |ndow(Sav|eHandle%|
|00004db0| 29 0d 1d 56 2f 24 54 69 | 74 6c 65 25 3d 22 50 61 |)..V/$Ti|tle%="Pa|
|00004dc0| 6c 47 65 6e 3a 20 22 2b | a4 46 69 6e 64 4c 65 61 |lGen: "+|.FindLea|
|00004dd0| 66 28 4f 75 74 46 69 6c | 65 24 29 2b bd 28 30 29 |f(OutFil|e$)+.(0)|
|00004de0| 0d 1d 60 19 f2 52 65 54 | 69 74 6c 65 28 4d 61 69 |..`..ReT|itle(Mai|
|00004df0| 6e 48 61 6e 64 6c 65 25 | 29 0d 1d 6a 1c f2 52 65 |nHandle%|)..j..Re|
|00004e00| 54 69 74 6c 65 28 50 61 | 6c 65 74 74 65 48 61 6e |Title(Pa|letteHan|
|00004e10| 64 6c 65 25 29 0d 1d 74 | 06 e1 20 0d 1d 7e 04 0d |dle%)..t|.. ..~..|
|00004e20| 1d 88 04 0d 1d 92 16 dd | a4 52 65 61 64 53 74 72 |........|.ReadStr|
|00004e30| 69 6e 67 28 70 74 72 25 | 29 0d 1d 9c 08 ea 20 41 |ing(ptr%|)..... A|
|00004e40| 24 0d 1d a6 05 f5 0d 1d | b0 18 41 24 2b 3d bd 28 |$.......|..A$+=.(|
|00004e50| 3f 70 74 72 25 29 3a 70 | 74 72 25 2b 3d 31 0d 1d |?ptr%):p|tr%+=1..|
|00004e60| ba 0e fd 20 3f 70 74 72 | 25 3c 33 32 0d 1d c4 07 |... ?ptr|%<32....|
|00004e70| 3d 41 24 0d 1d ce 04 0d | 1d d8 04 0d 1d e2 12 dd |=A$.....|........|
|00004e80| a4 46 69 6e 64 4c 65 61 | 66 28 53 24 29 0d 1d ec |.FindLea|f(S$)...|
|00004e90| 08 ea 20 41 24 0d 1d f6 | 09 41 24 3d 22 22 0d 1e |.. A$...|.A$=""..|
|00004ea0| 00 0d 4c 25 3d a9 20 28 | 53 24 29 0d 1e 0a 10 e7 |..L%=. (|S$).....|
|00004eb0| 20 4c 25 3d 30 20 8c 20 | 3d 22 22 0d 1e 14 08 43 | L%=0 . |=""....C|
|00004ec0| 25 3d 30 0d 1e 1e 19 c8 | 95 20 a7 41 24 2c 22 2e |%=0.....|. .A$,".|
|00004ed0| 22 29 3d 30 20 80 20 43 | 25 3c 4c 25 0d 1e 28 16 |")=0 . C|%<L%..(.|
|00004ee0| 41 24 3d c1 53 24 2c 4c | 25 2d 43 25 2c 31 29 2b |A$=.S$,L|%-C%,1)+|
|00004ef0| 41 24 0d 1e 32 09 43 25 | 2b 3d 31 0d 1e 3c 05 ce |A$..2.C%|+=1..<..|
|00004f00| 0d 1e 46 23 e7 20 a7 41 | 24 2c 22 2e 22 29 3d 31 |..F#. .A|$,".")=1|
|00004f10| 20 8c 20 41 24 3d c2 41 | 24 2c a9 20 28 41 24 29 | . A$=.A|$,. (A$)|
|00004f20| 2d 31 29 0d 1e 50 07 3d | 41 24 0d 1e 5a 04 0d 1e |-1)..P.=|A$..Z...|
|00004f30| 64 04 0d 1e 6e 14 dd f2 | 4c 6f 61 64 50 61 6c 28 |d...n...|LoadPal(|
|00004f40| 46 69 6c 65 24 29 0d 1e | 78 0e 66 25 3d 8e 20 46 |File$)..|x.f%=. F|
|00004f50| 69 6c 65 24 0d 1e 82 15 | 42 79 74 65 73 54 6f 52 |ile$....|BytesToR|
|00004f60| 65 61 64 25 3d a2 23 66 | 25 0d 1e 8c 08 d9 23 66 |ead%=.#f|%.....#f|
|00004f70| 25 0d 1e 96 2c 43 6f 6d | 6d 24 3d 22 4c 6f 61 64 |%...,Com|m$="Load|
|00004f80| 20 22 2b 46 69 6c 65 24 | 2b 22 20 22 2b c3 7e 28 | "+File$|+" "+.~(|
|00004f90| 54 72 61 6e 73 42 75 66 | 66 65 72 25 29 0d 1e a0 |TransBuf|fer%)...|
|00004fa0| 0b ff 20 43 6f 6d 6d 24 | 0d 1e aa 1e f2 52 65 61 |.. Comm$|.....Rea|
|00004fb0| 64 46 72 6f 6d 42 75 66 | 66 65 72 28 4c 6f 61 64 |dFromBuf|fer(Load|
|00004fc0| 54 79 70 65 25 29 0d 1e | b4 0f e7 20 4c 6f 61 64 |Type%)..|... Load|
|00004fd0| 65 64 25 20 8c 0d 1e be | 29 20 20 24 54 69 74 6c |ed% ....|) $Titl|
|00004fe0| 65 25 3d 22 50 61 6c 47 | 65 6e 3a 20 22 2b a4 46 |e%="PalG|en: "+.F|
|00004ff0| 69 6e 64 4c 65 61 66 28 | 46 69 6c 65 24 29 0d 1e |indLeaf(|File$)..|
|00005000| c8 1a 20 20 f2 44 72 61 | 77 47 72 61 70 68 28 50 |.. .Dra|wGraph(P|
|00005010| 72 69 6d 61 72 79 25 29 | 0d 1e d2 20 20 20 f2 57 |rimary%)|... .W|
|00005020| 72 69 74 65 53 70 72 69 | 74 65 50 61 6c 65 74 74 |riteSpri|tePalett|
|00005030| 65 28 30 2c 32 35 35 29 | 0d 1e dc 2f 20 20 f2 49 |e(0,255)|.../ .I|
|00005040| 63 6f 6e 54 65 78 74 28 | 53 61 76 65 48 61 6e 64 |conText(|SaveHand|
|00005050| 6c 65 25 2c 32 2c a4 46 | 69 6e 64 4c 65 61 66 28 |le%,2,.F|indLeaf(|
|00005060| 46 69 6c 65 24 29 29 0d | 1e e6 05 cd 0d 1e f0 05 |File$)).|........|
|00005070| e1 0d 1e fa 04 0d 1f 04 | 04 0d 1f 0e 28 dd f2 57 |........|....(..W|
|00005080| 72 69 74 65 53 70 72 69 | 74 65 50 61 6c 65 74 74 |riteSpri|tePalett|
|00005090| 65 28 53 74 61 72 74 25 | 2c 46 69 6e 69 73 68 25 |e(Start%|,Finish%|
|000050a0| 29 0d 1f 18 13 ea 20 4c | 43 4e 25 2c 50 61 6c 57 |)..... L|CN%,PalW|
|000050b0| 6f 72 64 25 0d 1f 22 1b | e3 20 4c 43 4e 25 3d 53 |ord%..".|. LCN%=S|
|000050c0| 74 61 72 74 25 20 b8 20 | 46 69 6e 69 73 68 25 0d |tart% . |Finish%.|
|000050d0| 1f 2c 0f 20 50 61 6c 57 | 6f 72 64 25 3d 30 0d 1f |.,. PalW|ord%=0..|
|000050e0| 36 24 20 50 61 6c 57 6f | 72 64 25 2b 3d 28 50 61 |6$ PalWo|rd%+=(Pa|
|000050f0| 6c 65 74 74 65 25 28 4c | 43 4e 25 2c 30 29 3c 3c |lette%(L|CN%,0)<<|
|00005100| 38 29 0d 1f 40 25 20 50 | 61 6c 57 6f 72 64 25 2b |8)..@% P|alWord%+|
|00005110| 3d 28 50 61 6c 65 74 74 | 65 25 28 4c 43 4e 25 2c |=(Palett|e%(LCN%,|
|00005120| 31 29 3c 3c 31 36 29 0d | 1f 4a 25 20 50 61 6c 57 |1)<<16).|.J% PalW|
|00005130| 6f 72 64 25 2b 3d 28 50 | 61 6c 65 74 74 65 25 28 |ord%+=(P|alette%(|
|00005140| 4c 43 4e 25 2c 32 29 3c | 3c 32 34 29 0d 1f 54 25 |LCN%,2)<|<24)..T%|
|00005150| 20 50 61 6c 65 74 74 65 | 50 74 72 25 21 28 34 34 | Palette|Ptr%!(44|
|00005160| 2b 38 2a 4c 43 4e 25 29 | 3d 50 61 6c 57 6f 72 64 |+8*LCN%)|=PalWord|
|00005170| 25 0d 1f 5e 25 20 50 61 | 6c 65 74 74 65 50 74 72 |%..^% Pa|lettePtr|
|00005180| 25 21 28 34 38 2b 38 2a | 4c 43 4e 25 29 3d 50 61 |%!(48+8*|LCN%)=Pa|
|00005190| 6c 57 6f 72 64 25 0d 1f | 68 05 ed 0d 1f 72 05 e1 |lWord%..|h....r..|
|000051a0| 0d 1f 7c 04 0d 1f 86 04 | 0d 1f 90 13 dd f2 44 72 |..|.....|......Dr|
|000051b0| 61 77 47 72 61 70 68 28 | 43 25 29 0d 1f 9a 39 c8 |awGraph(|C%)...9.|
|000051c0| 99 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 |."OS_Spr|iteOp",&|
|000051d0| 32 33 43 2c 53 70 72 69 | 74 65 73 25 2c 47 72 61 |23C,Spri|tes%,Gra|
|000051e0| 70 68 50 74 72 25 2c 47 | 72 61 70 68 43 6f 6e 74 |phPtr%,G|raphCont|
|000051f0| 65 78 74 25 0d 1f a4 0b | e6 20 30 2c 30 3a db 0d |ext%....|. 0,0:..|
|00005200| 1f ae 1d c8 99 22 4f 53 | 5f 53 70 72 69 74 65 4f |....."OS|_SpriteO|
|00005210| 70 22 2c 26 31 33 43 2c | 30 2c 2c 31 0d 1f b8 0a |p",&13C,|0,,1....|
|00005220| ea 20 4c 43 4e 25 0d 1f | c2 1a c8 99 20 22 48 6f |. LCN%..|.... "Ho|
|00005230| 75 72 67 6c 61 73 73 5f | 53 74 61 72 74 22 2c 31 |urglass_|Start",1|
|00005240| 0d 1f cc 12 e3 20 4c 43 | 4e 25 3d 30 20 b8 20 32 |..... LC|N%=0 . 2|
|00005250| 35 35 0d 1f d6 3a 20 e7 | 20 4c 43 4e 25 20 83 20 |55...: .| LCN% . |
|00005260| 32 35 3d 30 20 8c 20 c8 | 99 22 48 6f 75 72 67 6c |25=0 . .|."Hourgl|
|00005270| 61 73 73 5f 50 65 72 63 | 65 6e 74 61 67 65 22 2c |ass_Perc|entage",|
|00005280| 31 30 30 2a 4c 43 4e 25 | 2f 32 35 35 0d 1f e0 2a |100*LCN%|/255...*|
|00005290| 20 f2 44 72 61 77 42 61 | 72 28 4c 43 4e 25 2c 43 | .DrawBa|r(LCN%,C|
|000052a0| 25 2c 30 2c 50 61 6c 65 | 74 74 65 25 28 4c 43 4e |%,0,Pale|tte%(LCN|
|000052b0| 25 2c 43 25 29 29 0d 1f | ea 05 ed 0d 1f f4 16 c8 |%,C%))..|........|
|000052c0| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 66 66 |. "Hourg|lass_Off|
|000052d0| 22 0d 1f fe 05 e1 0d 20 | 08 04 0d 20 12 04 0d 20 |"...... |... ... |
|000052e0| 1c 2c dd f2 44 72 61 77 | 42 61 72 28 4c 43 4e 25 |.,..Draw|Bar(LCN%|
|000052f0| 2c 43 25 2c 4f 6c 64 4c | 65 6e 67 74 68 25 2c 4e |,C%,OldL|ength%,N|
|00005300| 65 77 4c 65 6e 67 74 68 | 25 29 0d 20 26 39 c8 99 |ewLength|%). &9..|
|00005310| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 32 |"OS_Spri|teOp",&2|
|00005320| 33 43 2c 53 70 72 69 74 | 65 73 25 2c 47 72 61 70 |3C,Sprit|es%,Grap|
|00005330| 68 50 74 72 25 2c 47 72 | 61 70 68 43 6f 6e 74 65 |hPtr%,Gr|aphConte|
|00005340| 78 74 25 0d 20 30 2c e7 | 20 4e 65 77 4c 65 6e 67 |xt%. 0,.| NewLeng|
|00005350| 74 68 25 3e 4f 6c 64 4c | 65 6e 67 74 68 25 20 8c |th%>OldL|ength% .|
|00005360| 20 e6 20 30 2c 37 20 8b | 20 e6 20 20 30 2c 30 0d | . 0,7 .| . 0,0.|
|00005370| 20 3a 3c c8 93 c8 90 20 | 28 4c 43 4e 25 2a 34 29 | :<.... |(LCN%*4)|
|00005380| 2c 28 4f 6c 64 4c 65 6e | 67 74 68 25 2a 32 29 2c |,(OldLen|gth%*2),|
|00005390| 33 2c 28 4e 65 77 4c 65 | 6e 67 74 68 25 2d 4f 6c |3,(NewLe|ngth%-Ol|
|000053a0| 64 4c 65 6e 67 74 68 25 | 29 2a 32 0d 20 44 1d c8 |dLength%|)*2. D..|
|000053b0| 99 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 |."OS_Spr|iteOp",&|
|000053c0| 31 33 43 2c 30 2c 2c 31 | 0d 20 4e 05 e1 0d 20 58 |13C,0,,1|. N... X|
|000053d0| 04 0d 20 62 04 0d 20 6c | 0c dd f2 47 65 6e 50 61 |.. b.. l|...GenPa|
|000053e0| 6c 0d 20 76 3d c8 99 22 | 4f 53 5f 53 70 72 69 74 |l. v=.."|OS_Sprit|
|000053f0| 65 4f 70 22 2c 26 32 33 | 43 2c 53 70 72 69 74 65 |eOp",&23|C,Sprite|
|00005400| 73 25 2c 50 61 6c 65 74 | 74 65 50 74 72 25 2c 50 |s%,Palet|tePtr%,P|
|00005410| 61 6c 65 74 74 65 43 6f | 6e 74 65 78 74 25 0d 20 |aletteCo|ntext%. |
|00005420| 80 09 ec 20 30 2c 30 0d | 20 8a 12 e3 20 4c 43 4e |... 0,0.| ... LCN|
|00005430| 25 3d 30 20 b8 20 32 35 | 35 0d 20 94 17 20 52 4f |%=0 . 25|5. .. RO|
|00005440| 57 25 3d 37 2d 28 4c 43 | 4e 25 20 81 20 33 32 29 |W%=7-(LC|N% . 32)|
|00005450| 0d 20 9e 13 20 43 4f 4c | 25 3d 4c 43 4e 25 20 83 |. .. COL|%=LCN% .|
|00005460| 20 33 32 0d 20 a8 0a 20 | 47 43 25 3d 30 0d 20 b2 | 32. .. |GC%=0. .|
|00005470| 16 20 47 43 25 2b 3d 28 | 4c 43 4e 25 20 80 20 34 |. GC%+=(|LCN% . 4|
|00005480| 29 81 34 0d 20 bc 1a 20 | 47 43 25 2b 3d 32 2a 28 |).4. .. |GC%+=2*(|
|00005490| 4c 43 4e 25 20 80 20 31 | 36 29 81 31 36 0d 20 c6 |LCN% . 1|6).16. .|
|000054a0| 1a 20 47 43 25 2b 3d 34 | 2a 28 4c 43 4e 25 20 80 |. GC%+=4|*(LCN% .|
|000054b0| 20 33 32 29 81 33 32 0d | 20 d0 1a 20 47 43 25 2b | 32).32.| .. GC%+|
|000054c0| 3d 38 2a 28 4c 43 4e 25 | 20 80 20 36 34 29 81 36 |=8*(LCN%| . 64).6|
|000054d0| 34 0d 20 da 19 20 47 43 | 25 2b 3d 31 36 2a 28 4c |4. .. GC|%+=16*(L|
|000054e0| 43 4e 25 20 80 20 38 29 | 81 38 0d 20 e4 1d 20 47 |CN% . 8)|.8. .. G|
|000054f0| 43 25 2b 3d 33 32 2a 28 | 4c 43 4e 25 20 80 20 31 |C%+=32*(|LCN% . 1|
|00005500| 32 38 29 81 31 32 38 0d | 20 ee 1b 20 e6 20 47 43 |28).128.| .. . GC|
|00005510| 25 20 c8 9c 20 28 4c 43 | 4e 25 20 80 20 33 29 3c |% .. (LC|N% . 3)<|
|00005520| 3c 36 0d 20 f8 27 20 c8 | 93 c8 90 20 28 43 4f 4c |<6. .' .|... (COL|
|00005530| 25 2a 32 34 2b 32 29 2c | 28 52 4f 57 25 2a 32 34 |%*24+2),|(ROW%*24|
|00005540| 2b 32 29 2c 31 38 2c 31 | 38 0d 21 02 0a ed 20 4c |+2),18,1|8.!... L|
|00005550| 43 4e 25 0d 21 0c 1d c8 | 99 22 4f 53 5f 53 70 72 |CN%.!...|."OS_Spr|
|00005560| 69 74 65 4f 70 22 2c 26 | 31 33 43 2c 30 2c 2c 31 |iteOp",&|13C,0,,1|
|00005570| 0d 21 16 38 c8 99 22 4f | 53 5f 53 70 72 69 74 65 |.!.8.."O|S_Sprite|
|00005580| 4f 70 22 2c 26 31 30 43 | 2c 53 70 72 69 74 65 73 |Op",&10C|,Sprites|
|00005590| 25 2c 22 3c 50 61 6c 47 | 65 6e 24 44 69 72 3e 2e |%,"<PalG|en$Dir>.|
|000055a0| 73 70 72 69 74 65 73 22 | 0d 21 20 05 e1 0d ff |sprites"|.! .... |
+--------+-------------------------+-------------------------+--------+--------+
