00000000  02 00 00 01 01 00 00 00  00 00 01 01 00 00 00 00  |................|
00000010  00 01 01 00 00 00 00 00  01 01 00 00 00 00 00 01  |................|
00000020  01 00 00 00 00 00 01 01  00 00 00 00 00 01 01 00  |................|
00000030  00 00 00 00 01 01 00 00  00 00 00 01 6f 6e 01 00  |............on..|
00000040  00 00 00 00 01 01 00 00  00 00 00 01 01 00 00 00  |................|
00000050  00 00 01 01 00 00 00 00  00 01 01 00 00 00 00 00  |................|
00000060  01 01 00 00 00 00 00 01  01 00 00 00 00 00 01 01  |................|
00000070  00 00 00 00 00 01 01 00  00 00 00 99 00 01 01 00  |................|
00000080  00 00 00 00 01 01 00 00  00 00 00 01 01 00 00 00  |................|
00000090  00 00 01 01 00 00 00 00  00 01 01 00 00 00 00 00  |................|
000000a0  01 01 00 00 00 00 00 01  01 00 00 00 00 00 01 01  |................|
000000b0  00 00 00 00 00 01 01 00  00 25 00 00 00 01 01 00  |.........%......|
000000c0  00 00 00 00 01 01 00 00  00 00 00 01 01 00 00 00  |................|
000000d0  00 00 01 01 00 00 00 00  00 01 01 00 00 00 00 00  |................|
000000e0  01 01 00 00 00 00 00 01  01 00 00 00 00 00 01 01  |................|
000000f0  00 00 00 00 00 01 01 00  00 00 00 00 01 01 00 00  |................|
00000100  00 00 00 01 01 00 00 00  00 00 01 01 00 00 00 00  |................|
00000110  00 01 01 00 00 00 31 00  00 01 01 00 00 00 00 00  |......1.........|
00000120  01 01 00 00 00 00 00 01  01 00 00 00 00 00 01 01  |................|
00000130  00 00 00 00 00 01 01 00  00 00 00 00 01 01 00 00  |................|
00000140  00 00 00 01 01 00 00 00  00 00 01 01 00 00 00 00  |................|
00000150  00 01 01 00 69 00 00 00  00 01 01 00 00 00 00 00  |....i...........|
00000160  01 01 00 00 00 00 00 01  01 00 00 00 00 02 02 01  |................|
00000170  00 00 00 00 0d 27 24 28  69 5f 66 6c 61 67 73 25  |.....'$(i_flags%|
00000180  2b 32 38 2b 31 32 2b 32  34 0d 31 34 29 3d 22 46  |+28+12+24.14)="F|
00000190  67 20 63 6f 6c 6f 75 72  22 0d 20 94 27 24 0d 69  |g colour". .'$.i|
000001a0  5f 66 6c 61 67 73 25 2b  32 38 2b 31 32 2b 32 34  |_flags%+28+12+24|
000001b0  2a 31 35 0d 3d 22 42 67  20 63 6f 6c 6f 75 72 22  |*15.="Bg colour"|
000001c0  0d 20 9e 34 e7 66 6c 61  0d 73 25 80 26 30 32 8c  |. .4.fla.s%.&02.|
000001d0  24 28 69 5f 66 6c 61 67  73 25 2b 32 38 0d 31 32  |$(i_flags%+28.12|
000001e0  2b 32 34 2a 31 34 29 3d  22 45 4f 52 20 63 6f 6c  |+24*14)="EOR col|
000001f0  6f 75 0d 22 0d 20 a8 34  e7 66 6c 61 67 73 25 80  |ou.". .4.flags%.|
00000200  26 32 30 8b 24 28 69 0d  66 6c 61 67 73 25 2b 32  |&20.$(i.flags%+2|
00000210  38 2b 31 32 2b 32 34 2a  31 35 29 3d 0d 45 4f 52  |8+12+24*15)=.EOR|
00000220  20 63 6f 6c 6f 75 72 22  0d 20 b2 10 e7 66 6c 61  | colour". ...fla|
00000230  67 0d 25 80 26 34 30 8c  0d 20 bc 1c 69 5f 66 6c  |g.%.&40.. ..i_fl|
00000240  61 67 73 25 3f 28 0d 38  2b 31 31 2b 32 34 2a 31  |ags%?(.8+11+24*1|
00000250  34 29 3d 37 0d 20 c6 1c  69 5f 66 0d 61 67 73 25  |4)=7. ..i_f.ags%|
00000260  3f 28 32 38 2b 31 31 2b  32 34 2a 31 35 29 3d 37  |?(28+11+24*15)=7|
00000270  0d 20 d0 2b f2 73 68 61  64 65 28 69 5f 66 6c 61  |. .+.shade(i_fla|
00000280  67 73 25 2c 31 0d 29 3a  f2 73 68 61 64 65 28 69  |gs%,1.):.shade(i|
00000290  5f 66 6c 61 67 73 25 2c  31 35 0d 0d 20 da 05 cc  |_flags%,15.. ...|
000002a0  0d 20 e4 35 69 5f 66 6c  61 67 73 25 3f 28 32 0d  |. .5i_flags%?(2.|
000002b0  2b 31 31 2b 32 34 2a 31  34 29 3d a4 66 6f 72 65  |+11+24*14)=.fore|
000002c0  62 61 63 6b 0d 28 66 6c  61 67 73 25 3e 3e 32 34  |back.(flags%>>24|
000002d0  29 80 26 46 29 0d 20 ee  35 0d 5f 66 6c 61 67 73  |).&F). .5._flags|
000002e0  25 3f 28 32 38 2b 31 31  2b 32 34 2a 31 35 0d 3d  |%?(28+11+24*15.=|
000002f0  a4 66 6f 72 65 62 61 63  6b 28 28 66 6c 61 67 73  |.foreback((flags|
00000300  25 3e 3e 0d 38 29 80 26  46 29 0d 20 f8 05 cd 0d  |%>>.8).&F). ....|
00000310  21 02 17 f2 65 6e 63 6f  0d 65 6d 65 6e 75 28 69  |!...enco.emenu(i|
00000320  5f 65 73 67 25 29 0d 21  0c 0b c9 69 5f 0d 73 67  |_esg%).!...i_.sg|
00000330  25 0d 21 16 22 f2 74 69  63 6b 28 69 5f 65 73 67  |%.!.".tick(i_esg|
00000340  25 2c 0d 66 6c 61 67 73  25 3e 3e 31 36 29 80 26  |%,.flags%>>16).&|
00000350  30 46 29 0d 21 20 0e 0d  69 5f 62 75 74 74 6f 6e  |0F).! ..i_button|
00000360  25 0d 21 2a 25 f2 74 69  63 6b 28 69 0d 62 75 74  |%.!*%.tick(i.but|
00000370  74 6f 6e 25 2c 28 66 6c  61 67 73 25 3e 3e 31 32  |ton%,(flags%>>12|
00000380  29 0d 26 30 46 29 0d 21  34 0f c9 77 5f 67 65 6e  |).&0F).!4..w_gen|
00000390  65 72 61 6c 25 0d 0d 3e  24 e7 63 75 72 72 65 6e  |eral%..>$.curren|
000003a0  74 77 69 6e 64 6f 77 25  3d 2d 31 0d 3d a3 3a f4  |twindow%=-1.=.:.|
000003b0  20 64 65 6c 65 74 65 64  21 0d 21 48 27 24 6d 62  | deleted!.!H'$mb|
000003c0  0d 77 69 64 65 6e 74 25  3d 77 69 64 65 6e 74 24  |.wident%=wident$|
000003d0  28 63 75 72 72 0d 6e 74  77 69 6e 64 6f 77 25 29  |(curr.ntwindow%)|
000003e0  0d 21 52 0c f2 67 65 74  63 75 0d 69 0d 21 5c 37  |.!R..getcu.i.!\7|
000003f0  e7 66 6c 61 67 73 25 80  26 38 30 30 30 30 30 0d  |.flags%.&800000.|
00000400  63 75 72 72 65 6e 74 69  63 6f 6e 25 3d 2d 31 3a  |currenticon%=-1:|
00000410  f4 20 68 61 0d 20 62 65  65 6e 20 64 65 6c 65 74  |. ha. been delet|
00000420  65 64 21 0d 21 66 16 e7  63 0d 72 72 65 6e 74 69  |ed!.!f..c.rrenti|
00000430  63 6f 6e 25 3c 3e 2d 31  8c 0d 21 70 3f 24 0d 77  |con%<>-1..!p?$.w|
00000440  5f 67 65 6e 65 72 61 6c  25 21 28 32 38 2b 32 34  |_general%!(28+24|
00000450  2a 31 2b 0d 32 29 2b a9  22 41 6d 65 6e 64 20 69  |*1+.2)+."Amend i|
00000460  63 6f 6e 20 22 29 3d 22  0d 22 2b c3 63 75 72 72  |con ")="."+.curr|
00000470  65 6e 74 69 63 6f 6e 25  0d 21 7a 41 24 0d 77 5f  |enticon%.!zA$.w_|
00000480  67 65 6e 65 72 61 6c 25  21 28 32 38 2b 32 34 2a  |general%!(28+24*|
00000490  32 2b 0d 32 29 2b a9 22  52 65 6e 75 6d 62 65 72  |2+.2)+."Renumber|
000004a0  20 20 20 22 29 3d 22 0d  22 2b c3 bb 24 6d 62 5f  |   ")="."+..$mb_|
000004b0  72 65 6e 75 6d 62 65 72  25 0d 21 84 0d f2 65 6e  |renumber%.!...en|
000004c0  63 6f 64 65 6d 65 6e 75  28 69 5f 66 6c 61 67 73  |codemenu(i_flags|
000004d0  25 0d 0d 21 8e 1a f2 65  6e 63 6f 64 65 6d 65 6e  |%..!...encodemen|
000004e0  75 28 69 5f 62 75 0d 74  6f 6e 25 29 0d 21 98 31  |u(i_bu.ton%).!.1|
000004f0  cc 24 28 77 5f 67 65 6e  65 72 61 0d 25 21 28 32  |.$(w_genera.%!(2|
00000500  38 2b 32 34 2a 31 2b 31  32 29 2b a9 22 41 6d 65  |8+24*1+12)+."Ame|
00000510  0d 64 20 69 63 6f 6e 20  22 29 3d 22 22 0d 21 a2  |.d icon ")="".!.|
00000520  30 24 28 77 5f 0d 65 6e  65 72 61 6c 25 21 28 32  |0$(w_.eneral%!(2|
00000530  38 2b 32 34 2a 32 2b 31  32 29 0d a9 22 52 65 6e  |8+24*2+12).."Ren|
00000540  75 6d 62 65 72 20 20 20  22 29 3d 22 22 0d 21 0d  |umber   ")="".!.|
00000550  23 e3 49 25 3d 31 b8 34  3a f2 73 68 61 64 65 28  |#.I%=1.4:.shade(|
00000560  77 5f 67 65 0d 65 72 61  6c 25 2c 49 25 29 3a ed  |w_ge.eral%,I%):.|
00000570  0d 21 b6 05 cd 0d 21 c0  19 0d 65 6e 63 6f 64 65  |.!....!...encode|
00000580  6d 65 6e 75 28 77 5f 66  6c 61 67 73 25 29 0d 21  |menu(w_flags%).!|
00000590  ca 28 24 6d 62 5f 77 6f  72 6b 61 72 65 61 30 25  |.($mb_workarea0%|
000005a0  3d c3 28 0d 25 21 34 34  29 2b 22 2c 22 2b c3 28  |=.(.%!44)+","+.(|
000005b0  71 25 21 34 38 29 0d 21  0d 28 24 6d 62 5f 77 6f  |q%!48).!.($mb_wo|
000005c0  72 6b 61 72 65 61 31 25  3d c3 28 71 25 0d 35 32  |rkarea1%=.(q%.52|
000005d0  29 2b 22 2c 22 2b c3 28  71 25 21 35 36 29 0d 21  |)+","+.(q%!56).!|
000005e0  de 1c 0d 6d 62 5f 6d 69  6e 78 25 3d c3 28 71 25  |...mb_minx%=.(q%|
000005f0  21 37 32 80 26 46 46 0d  46 29 0d 21 e8 1a 24 6d  |!72.&FF.F).!..$m|
00000600  62 5f 6d 69 6e 79 25 3d  c3 28 71 25 0d 37 32 3e  |b_miny%=.(q%.72>|
00000610  3e 31 36 29 0d 21 f2 28  6d 77 78 30 25 3d 71 25  |>16).!.(mwx0%=q%|
00000620  21 0d 30 3a 6d 77 79 30  25 3d 71 25 21 32 34 2b  |!.0:mwy0%=q%!24+|
00000630  28 71 25 21 38 2d 0d 25  21 31 36 29 0d 21 fc 28  |(q%!8-.%!16).!.(|
00000640  6d 77 78 31 25 3d 71 25  21 32 30 0d 28 71 25 21  |mwx1%=q%!20.(q%!|
00000650  31 32 2d 71 25 21 34 29  3a 6d 77 79 31 25 3d 71  |12-q%!4):mwy1%=q|
00000660  0d 21 32 34 0d 22 06 16  f2 65 6e 63 6f 64 65 70  |.!24."...encodep|
00000670  61 6c 6d 65 6e 0d 28 2d  31 29 0d 22 10 14 49 25  |almen.(-1)."..I%|
00000680  3d 77 5f 63 6f 6c 6f 75  72 73 0d 2b 32 38 0d 22  |=w_colours.+28."|
00000690  1a 3a e3 4a 25 3d 71 25  2b 33 36 b8 71 25 2b 0d  |.:.J%=q%+36.q%+.|
000006a0  32 3a 49 25 3f 31 31 3d  28 3f 4a 25 3c 3c 34 29  |2:I%?11=(?J%<<4)|
000006b0  84 75 6e 63 0d 6c 6f 75  72 25 28 3f 4a 25 29 3a  |.unc.lour%(?J%):|
000006c0  49 25 2b 3d 32 34 3a ed  0d 0d 24 0d c9 77 5f 66  |I%+=24:...$..w_f|
000006d0  6c 61 67 73 25 0d 22 2e  1f 21 71 25 3d 68 0d 6e  |lags%."..!q%=h.n|
000006e0  64 6c 65 25 28 63 75 72  72 65 6e 74 77 69 6e 64  |dle%(currentwind|
000006f0  6f 77 25 0d 0d 22 38 1e  c8 99 22 57 69 6d 70 5f  |ow%.."8..."Wimp_|
00000700  47 65 74 57 69 6e 64 6f  0d 49 6e 66 6f 22 2c 2c  |GetWindo.Info",,|
00000710  71 25 0d 22 42 0b e3 49  25 3d 30 b8 37 0d 22 4c  |q%."B..I%=0.7."L|
00000720  25 e7 71 25 21 33 32 80  28 31 3c 3c 49 25 29 8c  |%.q%!32.(1<<I%).|
00000730  f2 74 0d 63 6b 28 77 5f  66 6c 61 67 73 25 2c 49  |.t.ck(w_flags%,I|
00000740  25 29 0d 22 56 05 ed 0d  22 60 23 e7 71 25 21 33  |%)."V..."`#.q%!3|
00000750  32 80 28 33 3c 3c 38 29  8c f2 74 69 0d 6b 28 77  |2.(3<<8)..ti.k(w|
00000760  5f 66 6c 61 67 73 25 2c  38 29 0d 22 6a 33 e7 71  |_flags%,8)."j3.q|
00000770  25 0d 33 32 80 28 31 3c  3c 31 30 29 8c f2 74 69  |%.32.(1<<10)..ti|
00000780  63 6b 28 77 5f 66 0d 61  67 73 25 2c 39 29 3a f4  |ck(w_f.ags%,9):.|
00000790  20 72 65 61 6c 20 63 6f  6c 6f 75 0d 73 0d 22 74  | real colou.s."t|
000007a0  33 e7 71 25 21 33 32 80  28 31 3c 3c 31 31 29 8c  |3.q%!32.(1<<11).|
000007b0  0d 74 69 63 6b 28 77 5f  66 6c 61 67 73 25 2c 31  |.tick(w_flags%,1|
000007c0  30 29 3a f4 20 0d 61 63  6b 20 77 69 6e 64 6f 77  |0):. .ack window|
000007d0  0d 22 7e 31 e7 71 25 21  33 32 0d 28 31 3c 3c 31  |."~1.q%!32.(1<<1|
000007e0  32 29 8c f2 74 69 63 6b  28 77 5f 66 6c 61 67 0d  |2)..tick(w_flag.|
000007f0  25 2c 31 31 29 3a f4 20  67 72 61 62 20 6b 65 79  |%,11):. grab key|
00000800  73 0d 22 88 0d f2 65 6e  63 6f 64 65 6d 65 6e 75  |s."...encodemenu|
00000810  28 74 5f 66 6c 61 67 73  25 0d 0d 22 92 15 e7 63  |(t_flags%.."...c|
00000820  75 72 72 65 6e 74 69 63  6f 6e 25 3d 2d 31 0d 0d  |urrenticon%=-1..|
00000830  22 9c 27 66 6c 61 67 73  25 3d 71 25 21 36 34 3a  |".'flags%=q%!64:|
00000840  f2 65 6e 0d 6f 64 65 6d  65 6e 75 28 69 5f 62 75  |.en.odemenu(i_bu|
00000850  74 74 6f 6e 25 29 0d 22  0d 18 cc f2 73 68 61 64  |tton%)."....shad|
00000860  65 28 77 5f 66 6c 61 67  73 25 2c 31 32 0d 0d 22  |e(w_flags%,12.."|
00000870  b0 05 cd 0d 22 ba 0d e3  49 25 3d 31 34 b8 32 30  |...."...I%=14.20|
00000880  0d 22 0d 2d e7 71 25 21  33 32 80 28 31 3c 3c 28  |.".-.q%!32.(1<<(|
00000890  49 25 2b 32 34 2d 31 0d  29 29 8c f2 74 69 63 6b  |I%+24-1.))..tick|
000008a0  28 77 5f 66 6c 61 67 73  25 2c 49 25 0d 0d 22 ce  |(w_flags%,I%..".|
000008b0  05 ed 0d 22 d8 15 e7 71  25 21 33 32 80 26 38 30  |..."...q%!32.&80|
000008c0  30 0d 30 30 30 30 8c 0d  22 e2 16 f2 74 69 63 6b  |0.0000.."...tick|
000008d0  28 77 5f 66 6c 61 0d 73  25 2c 31 33 29 0d 22 ec  |(w_fla.s%,13).".|
000008e0  16 f2 73 68 61 64 65 28  77 5f 66 0d 61 67 73 25  |..shade(w_f.ags%|
000008f0  2c 30 29 0d 22 f6 16 f2  73 68 61 64 65 28 77 5f  |,0)."...shade(w_|
00000900  0d 6c 61 67 73 25 2c 32  29 0d 23 00 16 f2 73 68  |.lags%,2).#...sh|
00000910  61 64 65 28 77 0d 66 6c  61 67 73 25 2c 33 29 0d  |ade(w.flags%,3).|
00000920  23 0a 16 f2 73 68 61 64  65 28 0d 5f 66 6c 61 67  |#...shade(._flag|
00000930  73 25 2c 37 29 0d 23 14  05 cc 0d 23 1e 23 e3 0d  |s%,7).#....#.#..|
00000940  25 3d 31 34 b8 32 30 3a  f2 73 68 61 64 65 28 77  |%=14.20:.shade(w|
00000950  5f 66 6c 61 0d 73 25 2c  49 25 29 3a ed 0d 23 28  |_fla.s%,I%):..#(|
00000960  05 cd 0d 23 32 0d c9 74  5f 0d 6c 61 67 73 25 0d  |...#2..t_.lags%.|
00000970  23 3c 30 71 25 21 36 30  3d 71 25 21 36 30 0d 26  |#<0q%!60=q%!60.&|
00000980  32 34 3a f4 20 6d 75 73  74 20 62 65 20 66 69 6c  |24:. must be fil|
00000990  6c 65 64 0d 77 69 74 68  20 62 6f 72 64 65 72 0d  |led.with border.|
000009a0  23 46 3b f2 65 6e 63 6f  0d 65 69 63 6f 6e 28 74  |#F;.enco.eicon(t|
000009b0  5f 66 6c 61 67 73 25 2c  36 2c 71 25 21 0d 30 2c  |_flags%,6,q%!.0,|
000009c0  71 25 2b 37 36 2c 74 62  5f 74 65 78 74 25 2c 74  |q%+76,tb_text%,t|
000009d0  62 5f 0d 70 72 69 74 65  25 29 0d 23 50 17 24 74  |b_.prite%).#P.$t|
000009e0  62 5f 62 75 66 66 65 0d  73 69 7a 65 25 3d c3 4c  |b_buffe.size%=.L|
000009f0  25 0d 23 5a 21 e7 71 25  21 36 30 80 0d 31 30 30  |%.#Z!.q%!60..100|
00000a00  8c f2 74 69 63 6b 28 74  5f 66 6c 61 67 73 25 2c  |..tick(t_flags%,|
00000a10  37 0d 0d 23 64 21 e7 71  25 21 36 30 80 26 32 30  |7..#d!.q%!60.&20|
00000a20  30 8c f2 74 69 63 0d 28  74 5f 66 6c 61 67 73 25  |0..tic.(t_flags%|
00000a30  2c 38 29 0d 23 6e 0e c9  77 5f 73 0d 72 6f 6c 6c  |,8).#n..w_s.roll|
00000a40  25 0d 23 78 0c f2 67 65  74 63 75 72 77 0d 23 82  |%.#x..getcurw.#.|
00000a50  0d e7 66 6c 61 67 73 25  80 26 31 30 30 8c f2 74  |..flags%.&100..t|
00000a60  69 63 6b 28 77 0d 73 63  72 6f 6c 6c 25 2c 30 29  |ick(w.scroll%,0)|
00000a70  0d 23 8c 23 e7 66 6c 61  67 73 0d 80 26 32 30 30  |.#.#.flags..&200|
00000a80  8c f2 74 69 63 6b 28 77  5f 73 63 72 6f 6c 6c 0d  |..tick(w_scroll.|
00000a90  2c 31 29 0d 23 96 0e c9  6d 5f 73 70 72 69 74 65  |,1).#...m_sprite|
00000aa0  25 0d 23 a0 0d 73 24 3d  73 70 72 69 74 65 6e 24  |%.#..s$=spriten$|
00000ab0  28 63 75 72 72 65 6e 74  73 0d 72 69 74 65 25 29  |(currents.rite%)|
00000ac0  0d 23 aa 3f e7 75 6e 64  6f 6e 61 6d 65 24 0d 3e  |.#.?.undoname$.>|
00000ad0  73 24 84 75 6e 64 6f 73  63 72 65 65 6e 25 3c 3e  |s$.undoscreen%<>|
00000ae0  65 64 69 0d 62 75 66 66  65 72 25 8c f2 73 68 61  |edi.buffer%..sha|
00000af0  64 65 28 6d 5f 73 70 72  0d 74 65 25 2c 30 29 0d  |de(m_spr.te%,0).|
00000b00  23 b4 24 f2 67 65 74 73  70 72 69 74 65 0d 79 28  |#.$.getsprite.y(|
00000b10  63 75 72 72 65 6e 74 73  70 72 69 74 65 25 2c 30  |currentsprite%,0|
00000b20  2c 30 0d 0d 23 be 25 e7  73 70 72 63 6f 6c 6f 75  |,0..#.%.sprcolou|
00000b30  72 25 3d 31 36 8c f2 0d  69 63 6b 28 6d 5f 73 70  |r%=16...ick(m_sp|
00000b40  72 69 74 65 25 2c 32 29  0d 23 c8 0e 0d 68 61 73  |rite%,2).#...has|
00000b50  6d 61 73 6b 25 8c 0d 23  d2 17 f2 73 68 61 64 65  |mask%..#...shade|
00000b60  28 0d 5f 73 70 72 69 74  65 25 2c 33 29 0d 23 dc  |(._sprite%,3).#.|
00000b70  18 cc f2 73 68 61 0d 65  28 6d 5f 73 70 72 69 74  |...sha.e(m_sprit|
00000b80  65 25 2c 32 29 0d 23 e6  17 f2 73 0d 61 64 65 28  |e%,2).#...s.ade(|
00000b90  6d 5f 73 70 72 69 74 65  25 2c 34 29 0d 23 f0 05  |m_sprite%,4).#..|
00000ba0  0d 0d 23 fa 15 63 25 3d  63 75 72 72 65 6e 74 73  |..#..c%=currents|
00000bb0  70 72 69 74 65 0d 0d 24  04 31 24 73 70 72 62 75  |prite..$.1$sprbu|
00000bc0  66 66 25 3d c3 73 70 72  78 73 0d 61 6c 65 25 28  |ff%=.sprxs.ale%(|
00000bd0  63 25 29 2b 22 78 22 2b  c3 73 70 72 79 73 63 0d  |c%)+"x"+.sprysc.|
00000be0  6c 65 25 28 63 25 29 0d  24 0e 1e f2 65 6e 63 6f  |le%(c%).$...enco|
00000bf0  64 65 70 61 0d 6d 65 6e  75 28 73 70 72 63 6f 6c  |depa.menu(sprcol|
00000c00  6f 75 72 25 29 0d 24 18  12 0d 6d 5f 73 70 72 69  |our%).$...m_spri|
00000c10  74 65 6c 69 73 74 25 0d  24 22 2a 24 6d 62 0d 63  |telist%.$"*$mb.c|
00000c20  72 73 70 72 69 74 65 25  3d 22 22 3a 24 6d 62 5f  |rsprite%="":$mb_|
00000c30  73 70 72 0d 74 65 66 25  3d 73 70 72 69 74 65 66  |spr.tef%=spritef|
00000c40  24 0d 24 2c 13 69 66 6c  0d 67 73 25 3d 26 34 30  |$.$,.ifl.gs%=&40|
00000c50  30 30 30 30 0d 24 36 25  e7 69 63 6f 6e 0d 3c 3e  |0000.$6%.icon.<>|
00000c60  2d 31 8c f2 67 65 74 69  28 68 61 6e 64 6c 65 25  |-1..geti(handle%|
00000c70  2c 69 0d 6f 6e 25 84 31  29 0d 24 40 15 e7 69 66  |,i.on%.1).$@..if|
00000c80  6c 61 67 73 25 80 26 0d  30 30 30 30 30 8c 0d 24  |lags%.&.00000..$|
00000c90  4a 1b f2 73 68 61 64 65  28 6d 5f 73 0d 72 69 74  |J..shade(m_s.rit|
00000ca0  65 6c 69 73 74 25 2c 33  29 0d 24 54 1b f2 73 68  |elist%,3).$T..sh|
00000cb0  61 0d 65 28 6d 5f 73 70  72 69 74 65 6c 69 73 74  |a.e(m_spritelist|
00000cc0  25 2c 34 29 0d 24 0d 05  cc 0d 24 68 2d 72 65 6e  |%,4).$....$h-ren|
00000cd0  61 6d 65 73 70 72 69 74  65 24 3d 0d 69 63 6f 6e  |amesprite$=.icon|
00000ce0  73 74 72 69 6e 67 28 69  66 6c 61 67 73 25 2c 69  |string(iflags%,i|
00000cf0  0d 61 74 61 25 29 0d 24  72 1f 24 6d 62 5f 72 6e  |.ata%).$r.$mb_rn|
00000d00  73 70 72 69 74 0d 25 3d  72 65 6e 61 6d 65 73 70  |sprit.%=renamesp|
00000d10  72 69 74 65 24 0d 24 7c  05 cd 0d 24 86 35 c8 99  |rite$.$|...$.5..|
00000d20  22 57 69 6d 70 5f 57 68  69 63 68 49 63 6f 6e 0d  |"Wimp_WhichIcon.|
00000d30  2c 73 70 72 69 74 65 6c  69 73 74 25 2c 71 25 2c  |,spritelist%,q%,|
00000d40  26 32 30 30 0d 30 31 2c  26 32 30 30 30 30 31 0d  |&200.01,&200001.|
00000d50  24 90 23 e7 21 71 25 3d  2d 0d 8c f2 73 68 61 64  |$.#.!q%=-...shad|
00000d60  65 28 6d 5f 73 70 72 69  74 65 6c 69 73 74 0d 2c  |e(m_spritelist.,|
00000d70  32 29 0d 24 9a 2b e7 21  71 25 3d 2d 31 84 71 25  |2).$.+.!q%=-1.q%|
00000d80  21 34 3d 0d 31 8c f2 73  68 61 64 65 28 6d 5f 73  |!4=.1..shade(m_s|
00000d90  70 72 69 74 65 6c 69 73  0d 25 2c 31 29 0d 24 a4  |pritelis.%,1).$.|
00000da0  05 cb 0d 24 ae 06 3d b9  0d 24 b8 04 0d 0d c2 13  |...$..=..$......|
00000db0  dd f2 73 68 61 64 65 28  6d 68 25 2c 49 25 29 0d  |..shade(mh%,I%).|
00000dc0  24 cc 0d 6d 68 25 21 28  32 38 2b 38 2b 32 34 2a  |$..mh%!(28+8+24*|
00000dd0  49 25 29 3d 6d 68 25 0d  28 32 38 2b 38 2b 32 34  |I%)=mh%.(28+8+24|
00000de0  2a 49 25 29 84 26 34 30  30 30 30 30 0d e1 0d 24  |*I%).&400000...$|
00000df0  d6 04 0d 24 e0 12 dd f2  74 69 63 6b 28 6d 68 25  |...$....tick(mh%|
00000e00  2c 0d 25 29 0d 24 ea 27  6d 68 25 21 28 32 38 2b  |,.%).$.'mh%!(28+|
00000e10  32 34 2a 49 25 29 0d 6d  68 25 21 28 32 38 2b 32  |24*I%).mh%!(28+2|
00000e20  34 2a 49 25 29 84 26 30  31 3a e1 0d 24 f4 04 0d  |4*I%).&01:..$...|
00000e30  24 fe 13 dd f2 73 65 6c  65 63 74 28 68 25 2c 69  |$....select(h%,i|
00000e40  0d 29 0d 25 08 47 21 71  25 3d 68 25 3a 71 25 21  |.).%.G!q%=h%:q%!|
00000e50  34 3d 69 25 3a 0d 25 21  38 3d 26 32 30 30 30 30  |4=i%:.%!8=&20000|
00000e60  30 3a 71 25 21 31 32 3d  26 32 0d 30 30 30 30 3a  |0:q%!12=&2.0000:|
00000e70  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 0d  |.."Wimp_SetIcon.|
00000e80  74 61 74 65 22 2c 2c 71  25 0d 25 12 05 e1 0d 25  |tate",,q%.%....%|
00000e90  1c 04 0d 25 0d 15 dd f2  64 65 73 65 6c 65 63 74  |...%....deselect|
00000ea0  28 68 25 2c 69 25 29 0d  25 0d 41 21 71 25 3d 68  |(h%,i%).%.A!q%=h|
00000eb0  25 3a 71 25 21 34 3d 69  25 3a 71 25 21 38 0d 30  |%:q%!4=i%:q%!8.0|
00000ec0  3a 71 25 21 31 32 3d 26  32 30 30 30 30 30 3a c8  |:q%!12=&200000:.|
00000ed0  99 22 57 0d 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."W.mp_SetIconSt|
00000ee0  61 74 65 22 2c 2c 71 25  0d 25 3a 05 e1 0d 25 44  |ate",,q%.%:...%D|
00000ef0  04 0d 25 4e 3c dd f2 65  6e 63 6f 64 65 0d 63 6f  |..%N<..encode.co|
00000f00  6e 28 69 63 6f 6e 6d 65  6e 75 25 2c 6e 6d 65 6e  |n(iconmenu%,nmen|
00000f10  75 25 0d 66 6c 61 67 73  25 2c 71 25 2c 69 74 65  |u%.flags%,q%,ite|
00000f20  78 74 25 2c 69 73 70 0d  69 74 65 25 29 0d 25 58  |xt%,isp.ite%).%X|
00000f30  22 e7 69 5f 66 6f 6e 74  25 3c 30 8c 0d 73 68 61  |".i_font%<0..sha|
00000f40  64 65 28 69 63 6f 6e 6d  65 6e 75 25 2c 36 29 0d  |de(iconmenu%,6).|
00000f50  25 0d 1b 24 69 74 65 78  74 25 3d 22 22 3a 24 69  |%..$itext%="":$i|
00000f60  73 70 72 69 74 65 0d 3d  22 22 0d 25 6c 2e e7 66  |sprite.="".%l..f|
00000f70  6c 61 67 73 25 80 26 30  31 8c 24 0d 74 65 78 74  |lags%.&01.$.text|
00000f80  25 3d a4 69 63 6f 6e 73  74 72 69 6e 67 28 66 6c  |%=.iconstring(fl|
00000f90  0d 67 73 25 2c 71 25 29  0d 25 76 36 e7 28 66 6c  |.gs%,q%).%v6.(fl|
00000fa0  61 67 73 25 80 0d 30 33  29 3d 26 30 32 8c 24 69  |ags%..03)=&02.$i|
00000fb0  73 70 72 69 74 65 25 3d  a4 69 0d 6f 6e 73 74 72  |sprite%=.i.onstr|
00000fc0  69 6e 67 28 66 6c 61 67  73 25 2c 71 25 29 0d 0d  |ing(flags%,q%)..|
00000fd0  80 33 e7 66 6c 61 67 73  25 80 26 31 30 30 8c 4c  |.3.flags%.&100.L|
00000fe0  25 3d 71 25 0d 38 8b 4c  25 3d 31 32 3a f4 20 72  |%=q%.8.L%=12:. r|
00000ff0  65 74 75 72 6e 65 64 20  74 0d 20 63 61 6c 6c 65  |eturned t. calle|
00001000  72 0d 25 8a 18 49 25 3d  69 63 6f 6e 6d 65 0d 75  |r.%..I%=iconme.u|
00001010  25 2b 32 38 3a 4a 25 3d  31 0d 25 94 2a e3 69 74  |%+28:J%=1.%.*.it|
00001020  65 6d 25 0d 30 b8 6e 6d  65 6e 75 25 3a e7 66 6c  |em%.0.nmenu%:.fl|
00001030  61 67 73 25 80 4a 25 8c  0d 49 25 3d 21 49 25 84  |ags%.J%..I%=!I%.|
00001040  26 30 31 0d 25 9e 13 49  25 2b 3d 32 34 0d 4a 25  |&01.%..I%+=24.J%|
00001050  2b 3d 4a 25 3a ed 0d 25  a8 05 e1 0d 25 b2 04 0d  |+=J%:..%....%...|
00001060  25 bc 0d dd f2 64 65 63  6f 64 65 6d 65 6e 75 28  |%....decodemenu(|
00001070  6d 65 6e 75 68 61 6e 0d  6c 65 25 2c 6d 65 6e 75  |menuhan.le%,menu|
00001080  73 25 29 0d 25 c6 12 c8  8e 6d 65 6e 0d 68 61 6e  |s%).%....men.han|
00001090  64 6c 65 25 ca 0d 25 d0  0e c9 6d 61 69 6e 6d 65  |dle%..%...mainme|
000010a0  6e 0d 25 0d 25 da 0e c8  8e 21 6d 65 6e 75 73 25  |n.%.%....!menus%|
000010b0  ca 0d 25 e4 11 c9 0d 3a  f4 20 69 6e 66 6f 20 62  |..%....:. info b|
000010c0  6f 78 0d 25 ee 12 c9 31  3a f2 67 0d 74 70 6f 69  |ox.%...1:.g.tpoi|
000010d0  6e 74 65 72 0d 25 f8 1f  f2 63 68 65 63 6b 69 64  |nter.%...checkid|
000010e0  0d 6e 74 28 24 6d 62 5f  77 69 64 65 6e 74 25 2c  |.nt($mb_wident%,|
000010f0  22 22 29 0d 26 0d 35 f2  63 72 65 61 74 65 77 69  |"").&.5.createwi|
00001100  6e 64 6f 77 28 6d 6f 75  73 65 0d 25 2d 31 30 30  |ndow(mouse.%-100|
00001110  2c 6d 6f 75 73 65 79 25  2b 31 36 2c 24 6d 62 0d  |,mousey%+16,$mb.|
00001120  77 69 64 65 6e 74 25 29  0d 26 0c 36 f4 20 20 20  |wident%).&.6.   |
00001130  20 20 57 48 0d 4e 20 31  3a 50 52 4f 43 73 70 72  |  WH.N 1:PROCspr|
00001140  69 74 65 69 6e 66 6f 3a  50 0d 4f 43 66 72 6f 6e  |iteinfo:P.OCfron|
00001150  74 28 73 70 72 69 74 65  6c 69 73 74 25 29 0d 26  |t(spritelist%).&|
00001160  16 42 f4 20 20 20 20 20  57 48 45 4e 20 32 3a 50  |.B.     WHEN 2:P|
00001170  52 4f 43 0d 6e 63 6f 64  65 70 61 6c 28 30 2c 31  |ROC.ncodepal(0,1|
00001180  35 29 3a 50 52 4f 43 66  0d 6f 6e 74 28 70 61 6c  |5):PROCf.ont(pal|
00001190  65 74 74 65 25 29 3a 50  52 4f 43 68 74 0d 61 6c  |ette%):PROCht.al|
000011a0  0d 26 20 25 c9 32 3a f2  6c 6f 61 64 74 65 6d 70  |.& %.2:.loadtemp|
000011b0  6c 61 0d 65 73 28 24 6d  62 5f 74 65 6d 70 6c 61  |la.es($mb_templa|
000011c0  74 65 73 25 29 0d 26 0d  21 c9 33 3a f2 63 68 65  |tes%).&.!.3:.che|
000011d0  63 6b 66 75 6c 6c 28 24  6d 62 5f 74 0d 6d 70 6c  |ckfull($mb_t.mpl|
000011e0  61 74 65 73 25 29 0d 26  34 24 f2 73 61 76 65 74  |ates%).&4$.savet|
000011f0  65 0d 70 6c 61 74 65 73  28 24 6d 62 5f 74 65 6d  |e.plates($mb_tem|
00001200  70 6c 61 74 65 73 0d 2c  b9 29 0d 26 3e 10 c9 34  |plates.,.).&>..4|
00001210  3a f2 66 69 6e 69 73 68  3a e0 0d 0d 48 05 cb 0d  |:.finish:...H...|
00001220  26 52 0f c9 77 5f 67 65  6e 65 72 61 6c 25 0d 26  |&R..w_general%.&|
00001230  0d 0e c8 8e 21 6d 65 6e  75 73 25 ca 0d 26 66 0f  |....!menus%..&f.|
00001240  c9 30 3a f2 67 0d 74 63  75 72 77 0d 26 70 25 6d  |.0:.g.tcurw.&p%m|
00001250  78 25 3d 6d 6d 6f 75 73  65 78 0d 2d 62 78 25 3a  |x%=mmousex.-bx%:|
00001260  6d 79 25 3d 6d 6d 6f 75  73 65 79 25 2d 62 79 0d  |my%=mmousey%-by.|
00001270  0d 26 7a 1f 69 78 25 3d  64 65 66 61 75 6c 74 25  |.&z.ix%=default%|
00001280  21 39 36 2d 0d 65 66 61  75 6c 74 25 21 38 38 0d  |!96-.efault%!88.|
00001290  26 84 20 69 79 25 3d 64  65 0d 61 75 6c 74 25 21  |&. iy%=de.ault%!|
000012a0  31 30 30 2d 64 65 66 61  75 6c 74 25 21 39 0d 0d  |100-default%!9..|
000012b0  26 8e 3f 71 25 21 34 3d  6d 78 25 2d 69 78 25 2f  |&.?q%!4=mx%-ix%/|
000012c0  32 3a 71 0d 21 38 3d 6d  79 25 2d 69 79 25 2f 32  |2:q.!8=my%-iy%/2|
000012d0  3a 71 25 21 31 32 3d 71  0d 21 34 2b 69 78 25 3a  |:q%!12=q.!4+ix%:|
000012e0  71 25 21 31 36 3d 71 25  21 38 2b 69 79 0d 0d 26  |q%!16=q%!8+iy..&|
000012f0  98 2d e3 49 25 3d 30 b8  31 32 88 34 3a 71 25 21  |.-.I%=0.12.4:q%!|
00001300  28 32 0d 2b 49 25 29 3d  64 65 66 61 75 6c 74 25  |(2.+I%)=default%|
00001310  21 28 31 30 34 2b 49 0d  29 3a ed 0d 26 a2 28 c8  |!(104+I.):..&.(.|
00001320  99 22 57 69 6d 70 5f 43  72 65 61 74 0d 49 63 6f  |."Wimp_Creat.Ico|
00001330  6e 22 2c 2c 71 25 b8 63  75 72 72 65 6e 74 69 63  |n",,q%.currentic|
00001340  6f 0d 25 0d 26 ac 32 c8  99 22 57 69 6d 70 5f 46  |o.%.&.2.."Wimp_F|
00001350  6f 72 63 65 52 65 0d 72  61 77 22 2c 21 71 25 2c  |orceRe.raw",!q%,|
00001360  71 25 21 34 2c 71 25 21  38 2c 71 0d 21 31 32 2c  |q%!4,q%!8,q.!12,|
00001370  71 25 21 31 36 0d 26 b6  0f c9 31 3a f2 67 65 74  |q%!16.&...1:.get|
00001380  0d 75 72 69 0d 26 c0 19  f2 64 65 6c 65 74 65 69  |.uri.&...deletei|
00001390  63 6f 6e 28 21 0d 25 2c  71 25 21 34 29 0d 26 ca  |con(!.%,q%!4).&.|
000013a0  58 f2 64 65 63 6f 64 65  69 63 0d 6e 28 6d 65 6e  |X.decodeic.n(men|
000013b0  75 73 25 2b 34 2c 71 25  2b 32 34 2c 71 25 2b 0d  |us%+4,q%+24,q%+.|
000013c0  38 2c 69 62 5f 74 65 78  74 25 2c 69 62 5f 73 70  |8,ib_text%,ib_sp|
000013d0  72 69 74 65 0d 2c 69 62  5f 62 75 66 66 65 72 73  |rite.,ib_buffers|
000013e0  69 7a 65 25 2c 24 69 62  5f 0d 61 6c 69 64 61 74  |ize%,$ib_.alidat|
000013f0  69 6f 6e 25 29 0d 26 d4  4c 63 75 72 72 65 0d 74  |ion%).&.Lcurre.t|
00001400  69 63 6f 6e 25 3d a4 63  72 69 63 6f 6e 28 21 71  |icon%=.cricon(!q|
00001410  25 2c 71 0d 21 38 2c 71  25 21 31 32 2c 71 25 21  |%,q.!8,q%!12,q%!|
00001420  31 36 2c 71 25 21 32 30  0d 71 25 21 32 34 2c 71  |16,q%!20.q%!24,q|
00001430  25 21 32 38 2c 71 25 21  33 32 2c 71 25 0d 33 36  |%!28,q%!32,q%.36|
00001440  29 0d 26 de 1f c9 32 3a  72 65 6e 75 6d 62 65 72  |).&...2:renumber|
00001450  25 3d 0d 24 6d 62 5f 72  65 6e 75 6d 62 65 72 25  |%=.$mb_renumber%|
00001460  0d 26 e8 34 f2 72 65 0d  75 6d 62 65 72 28 63 75  |.&.4.re.umber(cu|
00001470  72 72 65 6e 74 77 69 6e  64 6f 77 25 0d 63 75 72  |rrentwindow%.cur|
00001480  72 65 6e 74 69 63 6f 6e  25 2c 72 65 6e 75 6d 62  |renticon%,renumb|
00001490  65 0d 25 29 0d 26 f2 30  e7 72 65 6e 75 6d 62 65  |e.%).&.0.renumbe|
000014a0  72 25 3c 39 39 39 0d 8c  24 6d 62 5f 72 65 6e 75  |r%<999..$mb_renu|
000014b0  6d 62 65 72 25 3d c3 28  72 65 6e 0d 6d 62 65 72  |mber%=.(ren.mber|
000014c0  25 2b 31 29 0d 26 fc 0f  c9 33 3a f2 67 65 74 63  |%+1).&...3:.getc|
000014d0  0d 72 69 0d 27 06 11 e7  66 6c 61 67 73 25 80 26  |.ri.'...flags%.&|
000014e0  31 30 30 8c 0d 0d 10 2b  42 25 3d a4 77 6f 72 6b  |100....+B%=.work|
000014f0  73 70 61 63 65 28 71 25  21 33 0d 29 3a 24 42 25  |space(q%!3.):$B%|
00001500  3d 74 65 78 74 24 3a 71  25 21 32 38 3d 42 25 0d  |=text$:q%!28=B%.|
00001510  27 1a 3d e7 71 25 21 33  32 3e 30 8c 42 25 3d a4  |'.=.q%!32>0.B%=.|
00001520  77 6f 72 6b 0d 70 61 63  65 28 a9 24 28 71 25 21  |work.pace(.$(q%!|
00001530  33 32 29 2b 31 29 3a 24  42 0d 3d 24 28 71 25 21  |32)+1):$B.=$(q%!|
00001540  33 32 29 3a 71 25 21 33  32 3d 42 25 0d 27 0d 05  |32):q%!32=B%.'..|
00001550  cd 0d 27 2e 2a 78 30 25  3d 71 25 21 38 3a 79 30  |..'.*x0%=q%!8:y0|
00001560  25 3d 71 0d 21 31 32 3a  78 31 25 3d 71 25 21 31  |%=q.!12:x1%=q%!1|
00001570  36 3a 79 31 25 3d 71 25  0d 32 30 0d 27 38 0f c8  |6:y1%=q%.20.'8..|
00001580  8e 6d 65 6e 75 73 25 21  34 ca 0d 27 42 0d c9 2d  |.menus%!4..'B..-|
00001590  31 3a 63 6f 70 79 78 25  3d 31 36 3a 63 6f 70 79  |1:copyx%=16:copy|
000015a0  79 25 0d 2d 31 36 0d 27  4c 1e c9 30 3a 63 6f 70  |y%.-16.'L..0:cop|
000015b0  79 78 25 3d 78 30 25 0d  78 31 25 3a 63 6f 70 79  |yx%=x0%.x1%:copy|
000015c0  79 25 3d 30 0d 27 56 1e  c9 31 3a 63 0d 70 79 78  |y%=0.'V..1:c.pyx|
000015d0  25 3d 78 31 25 2d 78 30  25 3a 63 6f 70 79 79 25  |%=x1%-x0%:copyy%|
000015e0  3d 0d 0d 27 60 1e c9 32  3a 63 6f 70 79 78 25 3d  |=..'`..2:copyx%=|
000015f0  30 3a 63 6f 70 79 0d 25  3d 79 31 25 2d 79 30 25  |0:copy.%=y1%-y0%|
00001600  0d 27 6a 1e c9 33 3a 63  6f 70 79 0d 25 3d 30 3a  |.'j..3:copy.%=0:|
00001610  63 6f 70 79 79 25 3d 79  30 25 2d 79 31 25 0d 27  |copyy%=y0%-y1%.'|
00001620  0d 05 cb 0d 27 7e 33 78  30 25 2b 3d 63 6f 70 79  |....'~3x0%+=copy|
00001630  78 25 3a 79 30 0d 2b 3d  63 6f 70 79 79 25 3a 78  |x%:y0.+=copyy%:x|
00001640  31 25 2b 3d 63 6f 70 79  78 25 0d 79 31 25 2b 3d  |1%+=copyx%.y1%+=|
00001650  63 6f 70 79 79 25 0d 27  88 45 63 75 72 72 65 0d  |copyy%.'.Ecurre.|
00001660  74 69 63 6f 6e 25 3d a4  63 72 69 63 6f 6e 28 21  |ticon%=.cricon(!|
00001670  71 25 2c 78 0d 25 2c 79  30 25 2c 78 31 25 2c 79  |q%,x.%,y0%,x1%,y|
00001680  31 25 2c 71 25 21 32 34  2c 0d 25 21 32 38 2c 71  |1%,q%!24,.%!28,q|
00001690  25 21 33 32 2c 71 25 21  33 36 29 0d 27 92 0d c9  |%!32,q%!36).'...|
000016a0  34 3a 68 25 3d 68 61 6e  64 6c 65 25 28 63 75 72  |4:h%=handle%(cur|
000016b0  72 65 6e 0d 77 69 6e 64  6f 77 25 29 0d 27 9c 1a  |ren.window%).'..|
000016c0  f2 67 65 74 69 28 68 25  0d 63 75 72 72 65 6e 74  |.geti(h%.current|
000016d0  69 63 6f 6e 25 29 0d 27  a6 38 6f 6c 64 0d 25 3d  |icon%).'.8old.%=|
000016e0  69 66 6c 61 67 73 25 3a  6f 30 25 3d 69 64 61 74  |iflags%:o0%=idat|
000016f0  61 25 0d 30 3a 6f 31 25  3d 69 64 61 74 61 25 21  |a%.0:o1%=idata%!|
00001700  34 3a 6f 32 25 3d 69 0d  61 74 61 25 21 38 0d 27  |4:o2%=i.ata%!8.'|
00001710  b0 20 f2 64 65 6c 65 74  65 69 63 6f 0d 28 68 25  |. .deleteico.(h%|
00001720  2c 63 75 72 72 65 6e 74  69 63 6f 6e 25 29 0d 27  |,currenticon%).'|
00001730  ba 0d c8 8e 6d 65 6e 75  73 25 21 34 ca 0d 27 c4  |....menus%!4..'.|
00001740  1a c9 30 3a 69 78 0d 25  2d 3d 64 78 25 3a 69 78  |..0:ix.%-=dx%:ix|
00001750  31 25 2d 3d 64 78 25 0d  27 ce 1a 0d 31 3a 69 78  |1%-=dx%.'...1:ix|
00001760  30 25 2b 3d 64 78 25 3a  69 78 31 25 2b 3d 64 78  |0%+=dx%:ix1%+=dx|
00001770  0d 0d 27 d8 1a c9 32 3a  69 79 30 25 2b 3d 64 79  |..'...2:iy0%+=dy|
00001780  25 3a 69 79 31 0d 2b 3d  64 79 25 0d 27 e2 1a c9  |%:iy1.+=dy%.'...|
00001790  33 3a 69 79 30 25 2d 3d  64 79 0d 3a 69 79 31 25  |3:iy0%-=dy.:iy1%|
000017a0  2d 3d 64 79 25 0d 27 ec  05 cb 0d 27 f6 42 63 0d  |-=dy%.'....'.Bc.|
000017b0  72 72 65 6e 74 69 63 6f  6e 25 3d a4 63 72 69 63  |rrenticon%=.cric|
000017c0  6f 6e 28 68 0d 2c 69 78  30 25 2c 69 79 30 25 2c  |on(h.,ix0%,iy0%,|
000017d0  69 78 31 25 2c 69 79 31  25 0d 6f 6c 64 66 25 2c  |ix1%,iy1%.oldf%,|
000017e0  6f 30 25 2c 6f 31 25 2c  6f 32 25 29 0d 28 0d 38  |o0%,o1%,o2%).(.8|
000017f0  c9 35 3a f2 64 65 6c 65  74 65 69 63 6f 6e 28 68  |.5:.deleteicon(h|
00001800  61 6e 64 0d 65 25 28 63  75 72 72 65 6e 74 77 69  |and.e%(currentwi|
00001810  6e 64 6f 77 25 29 2c 63  0d 72 72 65 6e 74 69 63  |ndow%),c.rrentic|
00001820  6f 6e 25 29 0d 28 0a 25  c9 36 3a f2 64 0d 63 6f  |on%).(.%.6:.d.co|
00001830  64 65 6d 65 6e 75 28 77  5f 66 6c 61 67 73 25 2c  |demenu(w_flags%,|
00001840  6d 65 0d 75 73 25 2b 34  29 0d 28 14 22 c9 37 3a  |me.us%+4).(.".7:|
00001850  e7 6d 65 6e 75 73 25 0d  34 3c 3e 2d 31 80 6d 65  |.menus%.4<>-1.me|
00001860  6e 75 73 25 21 38 3c 3e  2d 31 8c 0d 0d 1e 1f 21  |nus%!8<>-1.....!|
00001870  71 25 3d 68 61 6e 64 6c  65 25 28 63 75 72 72 65  |q%=handle%(curre|
00001880  6e 0d 77 69 6e 64 6f 77  25 29 0d 28 28 1e c8 99  |n.window%).((...|
00001890  22 57 69 6d 70 5f 0d 65  74 57 69 6e 64 6f 77 49  |"Wimp_.etWindowI|
000018a0  6e 66 6f 22 2c 2c 71 25  0d 28 32 0d 71 25 3f 28  |nfo",,q%.(2.q%?(|
000018b0  33 36 2b 6d 65 6e 75 73  25 21 34 29 3d 6d 65 6e  |36+menus%!4)=men|
000018c0  0d 73 25 21 38 0d 28 3c  18 63 75 72 77 25 3d 63  |.s%!8.(<.curw%=c|
000018d0  75 72 72 65 6e 0d 77 69  6e 64 6f 77 25 0d 28 46  |urren.window%.(F|
000018e0  22 f2 63 72 77 69 6e 64  6f 77 0d 71 25 2b 34 2c  |".crwindow.q%+4,|
000018f0  77 69 64 65 6e 74 24 28  63 75 72 77 25 29 29 0d  |wident$(curw%)).|
00001900  28 50 18 f2 64 65 6c 65  74 65 77 69 6e 64 6f 77  |(P..deletewindow|
00001910  28 63 75 72 0d 25 29 0d  28 5a 05 cd 0d 28 64 23  |(cur.%).(Z...(d#|
00001920  c9 38 3a f2 73 65 74 77  6f 0d 6b 61 72 65 61 28  |.8:.setwo.karea(|
00001930  63 75 72 72 65 6e 74 77  69 6e 64 6f 77 25 0d 0d  |currentwindow%..|
00001940  28 6e 37 c9 39 3a f2 63  68 65 63 6b 69 64 65 6e  |(n7.9:.checkiden|
00001950  74 28 24 0d 62 5f 77 69  64 65 6e 74 25 2c 77 69  |t($.b_wident%,wi|
00001960  64 65 6e 74 24 28 63 75  0d 72 65 6e 74 77 69 6e  |dent$(cu.rentwin|
00001970  64 6f 77 25 29 29 0d 28  78 27 77 69 64 0d 6e 74  |dow%)).(x'wid.nt|
00001980  24 28 63 75 72 72 65 6e  74 77 69 6e 64 6f 77 25  |$(currentwindow%|
00001990  29 3d 0d 6d 62 5f 77 69  64 65 6e 74 25 0d 28 82  |)=.mb_wident%.(.|
000019a0  37 c9 31 30 3a f2 64 0d  6c 65 74 65 77 69 6e 64  |7.10:.d.letewind|
000019b0  6f 77 28 63 75 72 72 65  6e 74 77 69 0d 64 6f 77  |ow(currentwi.dow|
000019c0  25 29 3a 63 75 72 72 65  6e 74 77 69 6e 64 6f 77  |%):currentwindow|
000019d0  25 0d 2d 31 0d 28 8c 05  cb 0d 28 96 0d c9 77 5f  |%.-1.(....(...w_|
000019e0  66 6c 61 67 73 25 0d 28  a0 11 e7 21 6d 65 6e 75  |flags%.(...!menu|
000019f0  73 25 3d 2d 31 8c e1 0d  28 aa 1f 0d 71 25 3d 68  |s%=-1...(...q%=h|
00001a00  61 6e 64 6c 65 25 28 63  75 72 72 65 6e 74 77 69  |andle%(currentwi|
00001a10  6e 64 6f 77 25 29 0d 28  b4 1e c8 99 22 57 69 6d  |ndow%).(...."Wim|
00001a20  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00001a30  2c 2c 71 25 0d 28 be 0e  c8 8e 21 6d 65 6e 75 73  |,,q%.(....!menus|
00001a40  25 ca 0d 28 c8 16 c9 30  3a f2 64 65 63 6f 64 65  |%..(...0:.decode|
00001a50  74 69 74 6c 65 28 31 29  0d 28 d2 16 c9 31 3a 71  |title(1).(...1:q|
00001a60  25 21 33 32 3d 71 25 21  33 32 82 26 30 32 0d 28  |%!32=q%!32.&02.(|
00001a70  dc 16 c9 32 3a 71 25 21  33 32 3d 71 25 21 33 32  |...2:q%!32=q%!32|
00001a80  82 26 30 34 0d 28 e6 16  c9 33 3a 71 25 21 33 32  |.&04.(...3:q%!32|
00001a90  3d 71 25 21 33 32 82 26  30 38 0d 28 f0 16 c9 34  |=q%!32.&08.(...4|
00001aa0  3a 71 25 21 33 32 3d 71  25 21 33 32 82 26 31 30  |:q%!32=q%!32.&10|
00001ab0  0d 28 fa 16 c9 35 3a 71  25 21 33 32 3d 71 25 21  |.(...5:q%!32=q%!|
00001ac0  33 32 82 26 32 30 0d 29  04 16 c9 36 3a 71 25 21  |32.&20.)...6:q%!|
00001ad0  33 32 3d 71 25 21 33 32  82 26 34 30 0d 29 0e 16  |32=q%!32.&40.)..|
00001ae0  c9 37 0d 71 25 21 33 32  3d 71 25 21 33 32 82 26  |.7.q%!32=q%!32.&|
00001af0  38 30 0d 29 18 18 c9 0d  3a 71 25 21 33 32 3d 71  |80.)....:q%!32=q|
00001b00  25 21 33 32 80 ac 26 33  30 30 0d 29 0d 0f c8 8e  |%!32..&300.)....|
00001b10  6d 65 6e 75 73 25 21 34  ca 0d 29 2c 17 c9 30 3a  |menus%!4..),..0:|
00001b20  71 0d 21 33 32 3d 71 25  21 33 32 84 26 31 30 30  |q.!32=q%!32.&100|
00001b30  0d 29 36 17 c9 31 0d 71  25 21 33 32 3d 71 25 21  |.)6..1.q%!32=q%!|
00001b40  33 32 84 26 32 30 30 0d  29 40 05 0d 61 72 72 79  |32.&200.)@..arry|
00001b50  27 73 20 42 69 72 74 68  64 61 79 0d 32 3d 71 25  |'s Birthday.2=q%|
00001b60  0d 33 32 82 26 34 30 30  0d 29 5e 18 c9 31 30 3a  |.32.&400.)^..10:|
00001b70  71 25 21 33 32 0d 71 25  21 33 32 82 26 38 30 30  |q%!32.q%!32.&800|
00001b80  0d 29 68 19 c9 31 31 3a  71 25 0d 33 32 3d 71 25  |.)h..11:q%.32=q%|
00001b90  21 33 32 82 26 31 30 30  30 0d 29 72 2a c9 31 0d  |!32.&1000.)r*.1.|
00001ba0  3a e7 6d 65 6e 75 73 25  21 34 3c 3e 2d 31 8c 71  |:.menus%!4<>-1.q|
00001bb0  25 21 36 34 0d 28 6d 65  6e 75 73 25 21 34 29 3c  |%!64.(menus%!4)<|
00001bc0  3c 31 32 0d 29 7c 1d c9  31 0d 3a 71 25 21 33 32  |<12.)|..1.:q%!32|
00001bd0  3d 71 25 21 33 32 82 26  38 30 30 30 30 30 0d 30  |=q%!32.&800000.0|
00001be0  0d 29 86 34 c9 31 34 2c  31 35 2c 31 37 2c 31 38  |.).4.14,15,17,18|
00001bf0  2c 31 39 0d 32 30 3a 71  25 21 33 32 3d 71 25 21  |,19.20:q%!32=q%!|
00001c00  33 32 82 28 31 3c 3c 28  0d 30 2b 21 6d 65 6e 75  |32.(1<<(.0+!menu|
00001c10  73 25 29 29 0d 29 90 1b  c9 31 36 3a f2 0d 65 63  |s%)).)...16:..ec|
00001c20  6f 64 65 74 69 74 6c 65  28 31 3c 3c 32 36 29 0d  |odetitle(1<<26).|
00001c30  29 9a 0d cb 0d 29 a4 18  63 75 72 77 25 3d 63 75  |)....)..curw%=cu|
00001c40  72 72 65 6e 74 77 69 0d  64 6f 77 25 0d 29 ae 22  |rrentwi.dow%.)."|
00001c50  f2 63 72 77 69 6e 64 6f  77 28 71 25 0d 34 2c 77  |.crwindow(q%.4,w|
00001c60  69 64 65 6e 74 24 28 63  75 72 77 25 29 29 0d 29  |ident$(curw%)).)|
00001c70  b8 0d f2 64 65 6c 65 74  65 77 69 6e 64 6f 77 28  |...deletewindow(|
00001c80  63 75 72 77 25 29 0d 29  c2 0e c9 6d 5f 73 70 72  |curw%).)...m_spr|
00001c90  69 74 65 25 0d 29 cc 0e  c8 8e 21 0d 65 6e 75 73  |ite%.)....!.enus|
00001ca0  25 ca 0d 29 d6 1c c9 30  3a f2 75 6e 64 6f 28 63  |%..)...0:.undo(c|
00001cb0  0d 72 72 65 6e 74 73 70  72 69 74 65 25 29 0d 29  |.rrentsprite%).)|
00001cc0  e0 15 c9 31 3a 0d 6d 65  6e 75 73 25 21 34 3c 3e  |...1:.menus%!4<>|
00001cd0  2d 31 8c 0d 29 ea 17 73  70 72 0d 6f 6c 6f 75 72  |-1..)..spr.olour|
00001ce0  25 3d 6d 65 6e 75 73 25  21 34 0d 29 f4 29 f2 0d  |%=menus%!4.).)..|
00001cf0  6e 68 74 70 61 6c 3a 70  61 6c 63 6f 6c 6f 75 72  |nhtpal:palcolour|
00001d00  25 3d 73 70 0d 63 6f 6c  6f 75 72 25 3a f2 68 74  |%=sp.colour%:.ht|
00001d10  70 61 6c 0d 29 fe 05 cd  0d 0d 08 14 c9 32 3a 73  |pal.)........2:s|
00001d20  70 72 63 6f 6c 6f 75 72  25 3d 31 36 0d 2a 0d 40  |prcolour%=16.*.@|
00001d30  c9 33 3a c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.3:.."OS_SpriteO|
00001d40  70 22 2c 0d 31 31 44 2c  73 70 72 69 74 65 61 72  |p",.11D,spritear|
00001d50  65 61 25 2c 73 70 72 69  0d 65 6e 24 28 63 75 72  |ea%,spri.en$(cur|
00001d60  72 65 6e 74 73 70 72 69  74 65 25 29 0d 0d 1c 21  |rentsprite%)...!|
00001d70  f2 75 70 64 61 74 65 73  70 72 69 74 65 28 63 75  |.updatesprite(cu|
00001d80  72 72 0d 6e 74 73 70 72  69 74 65 25 29 0d 2a 26  |rr.ntsprite%).*&|
00001d90  40 c9 34 3a c8 99 22 0d  53 5f 53 70 72 69 74 65  |@.4:..".S_Sprite|
00001da0  4f 70 22 2c 26 31 31 45  2c 73 70 72 0d 74 65 61  |Op",&11E,spr.tea|
00001db0  72 65 61 25 2c 73 70 72  69 74 65 6e 24 28 63 75  |rea%,spriten$(cu|
00001dc0  72 0d 65 6e 74 73 70 72  69 74 65 25 29 0d 2a 30  |r.entsprite%).*0|
00001dd0  21 f2 75 70 64 61 0d 65  73 70 72 69 74 65 28 63  |!.upda.esprite(c|
00001de0  75 72 72 65 6e 74 73 70  72 69 74 0d 25 29 0d 2a  |urrentsprit.%).*|
00001df0  3a 3b c9 35 2c 36 2c 37  2c 38 3a f2 61 64 6a 75  |:;.5,6,7,8:.adju|
00001e00  0d 74 73 69 7a 65 28 63  75 72 72 65 6e 74 73 70  |.tsize(currentsp|
00001e10  72 69 74 65 25 0d 21 6d  65 6e 75 73 25 2d 35 2c  |rite%.!menus%-5,|
00001e20  6d 65 6e 75 73 25 21 34  29 0d 0d 44 1d c9 39 3a  |menus%!4)..D..9:|
00001e30  f2 66 6c 69 70 78 28 63  75 72 72 65 6e 74 73 0d  |.flipx(currents.|
00001e40  72 69 74 65 25 29 0d 2a  4e 1e c9 31 30 3a f2 66  |rite%).*N..10:.f|
00001e50  6c 69 70 79 0d 63 75 72  72 65 6e 74 73 70 72 69  |lipy.currentspri|
00001e60  74 65 25 29 0d 2a 58 05  cb 0d 2a 62 12 c9 6d 5f  |te%).*X...*b..m_|
00001e70  73 70 72 69 74 65 6c 69  73 74 25 0d 2a 6c 0d c8  |spritelist%.*l..|
00001e80  8e 21 6d 65 6e 75 73 25  ca 0d 2a 76 1a c9 30 3a  |.!menus%..*v..0:|
00001e90  e7 24 6d 0d 5f 63 72 73  70 72 69 74 65 25 3c 3e  |.$m._crsprite%<>|
00001ea0  22 22 8c 0d 2a 80 39 c8  0d 22 58 4f 53 5f 53 70  |""..*.9.."XOS_Sp|
00001eb0  72 69 74 65 4f 70 22 2c  26 31 32 38 2c 0d 70 72  |riteOp",&128,.pr|
00001ec0  69 74 65 61 72 65 61 25  2c 6d 62 5f 63 72 73 70  |itearea%,mb_crsp|
00001ed0  72 69 0d 65 25 b8 52 30  25 3b 66 25 0d 2a 8a 28  |ri.e%.R0%;f%.*.(|
00001ee0  e7 28 66 25 80 31 29 0d  30 8c 85 31 2c 22 53 70  |.(f%.1).0..1,"Sp|
00001ef0  72 69 74 65 20 61 6c 72  65 61 64 79 0d 65 78 69  |rite already.exi|
00001f00  73 74 73 22 0d 2a 94 3b  c8 99 22 4f 53 5f 53 70  |sts".*.;.."OS_Sp|
00001f10  72 0d 74 65 4f 70 22 2c  26 31 30 46 2c 73 70 72  |r.teOp",&10F,spr|
00001f20  69 74 65 61 72 65 0d 25  2c 6d 62 5f 63 72 73 70  |iteare.%,mb_crsp|
00001f30  72 69 74 65 25 2c 30 2c  31 36 2c 0d 2c 31 32 0d  |rite%,0,16,.,12.|
00001f40  2a 9e 0f f2 73 70 72 69  74 65 69 6e 66 6f 0d 2a  |*...spriteinfo.*|
00001f50  0d 05 cd 0d 2a b2 07 c9  31 3a 0d 2a bc 1a 6d 25  |....*...1:.*..m%|
00001f60  3d 6d 65 6e 75 0d 25 21  34 3a e7 6d 25 3c 30 8c  |=menu.%!4:.m%<0.|
00001f70  6d 25 3d 30 0d 2a c6 39  c8 99 0d 57 69 6d 70 5f  |m%=0.*.9...Wimp_|
00001f80  57 68 69 63 68 49 63 6f  6e 22 2c 73 70 72 69 0d  |WhichIcon",spri.|
00001f90  65 6c 69 73 74 25 2c 71  25 2b 26 38 30 2c 26 32  |elist%,q%+&80,&2|
00001fa0  30 30 30 30 0d 2c 26 32  30 30 30 30 31 0d 2a d0  |0000.,&200001.*.|
00001fb0  41 f2 67 65 74 69 28 73  70 0d 69 74 65 6c 69 73  |A.geti(sp.itelis|
00001fc0  74 25 2c 71 25 21 26 38  30 29 3a 6d 61 73 0d 65  |t%,q%!&80):mas.e|
00001fd0  72 24 3d a4 69 63 6f 6e  73 74 72 69 6e 67 28 69  |r$=.iconstring(i|
00001fe0  66 6c 61 0d 73 25 2c 69  64 61 74 61 25 29 0d 2a  |fla.s%,idata%).*|
00001ff0  da 06 ef 37 0d 2a e4 17  0d 25 3d 71 25 2b 26 38  |...7.*...%=q%+&8|
00002000  34 3a c8 95 21 49 25 3c  3e 2d 31 0d 2a 0d 3c f2  |4:..!I%<>-1.*.<.|
00002010  67 65 74 69 28 73 70 72  69 74 65 6c 69 73 74 25  |geti(spritelist%|
00002020  2c 21 0d 25 29 3a 74 65  78 74 24 3d a4 69 63 6f  |,!.%):text$=.ico|
00002030  6e 73 74 72 69 6e 67 0d  69 66 6c 61 67 73 25 2c  |nstring.iflags%,|
00002040  69 64 61 74 61 25 29 0d  2a f8 35 c8 0d 22 4f 53  |idata%).*.5.."OS|
00002050  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 33 2c  |_SpriteOp",&123,|
00002060  73 0d 72 69 74 65 61 72  65 61 25 2c 6d 61 73 74  |s.ritearea%,mast|
00002070  65 72 24 2c 74 65 0d 74  24 2c 6d 25 0d 2b 02 0b  |er$,te.t$,m%.+..|
00002080  49 25 2b 3d 34 3a ce 0d  2b 0c 06 0d 37 0d 2b 16  |I%+=4:..+...7.+.|
00002090  0f f2 73 70 72 69 74 65  69 6e 66 6f 0d 2b 20 12  |..spriteinfo.+ .|
000020a0  0d 32 3a f2 67 65 74 70  6f 69 6e 74 65 72 0d 2b  |.2:.getpointer.+|
000020b0  2a 32 f2 64 69 0d 6c 6f  67 75 65 28 64 69 61 6c  |*2.di.logue(dial|
000020c0  5f 64 65 6c 65 74 65 25  2c 6d 0d 75 73 65 78 25  |_delete%,m.usex%|
000020d0  2d 31 30 30 2c 6d 6f 75  73 65 79 25 2b 32 30 0d  |-100,mousey%+20.|
000020e0  0d 2b 34 25 c9 33 3a e7  24 6d 62 5f 72 6e 73 70  |.+4%.3:.$mb_rnsp|
000020f0  72 69 74 65 0d 3c 3e 72  65 6e 61 6d 65 73 70 72  |rite.<>renamespr|
00002100  69 74 65 24 8c 0d 2b 3e  3f 0d 99 22 4f 53 5f 53  |ite$..+>?.."OS_S|
00002110  70 72 69 74 65 4f 70 22  2c 26 31 31 42 2c 0d 70  |priteOp",&11B,.p|
00002120  72 69 74 65 61 72 65 61  25 2c 72 65 6e 61 6d 65  |ritearea%,rename|
00002130  73 70 72 0d 74 65 24 2c  6d 62 5f 72 6e 73 70 72  |spr.te$,mb_rnspr|
00002140  69 74 65 25 0d 2b 48 0f  0d 73 70 72 69 74 65 69  |ite%.+H..spritei|
00002150  6e 66 6f 0d 2b 52 05 cd  0d 2b 5c 25 c9 0d 3a e7  |nfo.+R...+\%..:.|
00002160  24 6d 62 5f 72 6e 73 70  72 69 74 65 25 3c 3e 72  |$mb_rnsprite%<>r|
00002170  65 6e 0d 6d 65 73 70 72  69 74 65 24 8c 0d 2b 66  |en.mesprite$..+f|
00002180  3f c8 99 22 4f 53 5f 0d  70 72 69 74 65 4f 70 22  |?.."OS_.priteOp"|
00002190  2c 26 31 31 41 2c 73 70  72 69 74 65 0d 72 65 61  |,&11A,sprite.rea|
000021a0  25 2c 72 65 6e 61 6d 65  73 70 72 69 74 65 24 2c  |%,renamesprite$,|
000021b0  6d 0d 5f 72 6e 73 70 72  69 74 65 25 0d 2b 70 0f  |m._rnsprite%.+p.|
000021c0  f2 73 70 72 69 74 0d 69  6e 66 6f 0d 2b 7a 05 cd  |.sprit.info.+z..|
000021d0  0d 2b 84 2d c9 35 3a f2  6c 6f 61 0d 73 70 72 69  |.+.-.5:.loa.spri|
000021e0  74 65 73 28 24 6d 62 5f  73 70 72 69 74 65 66 25  |tes($mb_spritef%|
000021f0  0d 3a f2 73 70 72 69 74  65 69 6e 66 6f 0d 2b 8e  |.:.spriteinfo.+.|
00002200  24 c9 36 3a f4 0d 50 52  4f 43 63 68 65 63 6b 66  |$.6:..PROCcheckf|
00002210  75 6c 6c 28 24 6d 62 5f  73 70 0d 69 74 65 66 25  |ull($mb_sp.itef%|
00002220  29 0d 2b 98 28 f4 20 50  52 4f 43 73 61 76 65 0d  |).+.(. PROCsave.|
00002230  70 72 69 74 65 73 28 24  6d 62 5f 73 70 72 69 74  |prites($mb_sprit|
00002240  65 66 25 2c 0d 52 55 45  29 0d 2b a2 2e c9 37 3a  |ef%,.RUE).+...7:|
00002250  f2 6d 65 72 67 65 73 70  72 0d 74 65 73 28 24 6d  |.mergespr.tes($m|
00002260  62 5f 73 70 72 69 74 65  66 25 29 3a f2 73 0d 72  |b_spritef%):.s.r|
00002270  69 74 65 69 6e 66 6f 0d  2b ac 05 cb 0d 2b b6 05  |iteinfo.+....+..|
00002280  cb 0d 2b 0d 05 e1 0d 2b  ca 04 0d 2b d4 22 dd f2  |..+....+...+."..|
00002290  6c 6f 61 64 73 70 72 69  0d 65 73 28 66 24 29 f4  |loadspri.es(f$).|
000022a0  20 4c 4f 43 41 4c 20 49  25 2c 66 24 0d 0d de 27  | LOCAL I%,f$...'|
000022b0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000022c0  26 31 0d 41 2c 73 70 72  69 74 65 61 72 65 61 25  |&1.A,spritearea%|
000022d0  2c 66 24 0d 2b e8 23 0d  66 24 3c 3e 22 3c 57 69  |,f$.+.#.f$<>"<Wi|
000022e0  6d 70 24 53 63 72 61 70  3e 22 8c 73 0d 72 69 74  |mp$Scrap>".s.rit|
000022f0  65 66 24 3d 66 24 0d 2b  f2 12 f2 72 65 64 72 61  |ef$=f$.+...redra|
00002300  77 0d 69 6e 64 6f 77 73  0d 2b fc 05 e1 0d 2c 06  |w.indows.+....,.|
00002310  04 0d 2c 10 1b dd 0d 73  61 76 65 73 70 72 69 74  |..,....savesprit|
00002320  65 73 28 66 24 2c 73 61  66 65 25 0d 0d 2c 1a 27  |es(f$,safe%..,.'|
00002330  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00002340  0d 31 30 43 2c 73 70 72  69 74 65 61 72 65 61 25  |.10C,spritearea%|
00002350  2c 66 24 0d 2c 0d 0c e7  73 61 66 65 25 8b e1 0d  |,f$.,...safe%...|
00002360  2c 2e 0f 73 70 72 69 74  65 66 0d 3d 66 24 0d 2c  |,..spritef.=f$.,|
00002370  38 23 e7 24 73 70 72 69  74 65 66 25 3c 3e a4 0d  |8#.$spritef%<>..|
00002380  70 66 6e 61 6d 65 28 73  70 72 69 74 65 66 24 29  |pfname(spritef$)|
00002390  8c 0d 2c 42 0d 24 73 70  72 69 74 65 66 25 3d a4  |..,B.$spritef%=.|
000023a0  73 70 66 6e 61 6d 65 28  73 0d 72 69 74 65 66 24  |spfname(s.ritef$|
000023b0  29 0d 2c 4c 2c 21 71 25  3d 73 70 72 69 74 0d 6c  |).,L,!q%=sprit.l|
000023c0  69 73 74 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |ist%:.."Wimp_Clo|
000023d0  73 65 57 0d 6e 64 6f 77  22 2c 2c 71 25 0d 2c 56  |seW.ndow",,q%.,V|
000023e0  17 f2 66 72 6f 6e 74 28  0d 70 72 69 74 65 6c 69  |..front(.priteli|
000023f0  73 74 25 29 0d 2c 60 05  cd 0d 2c 6a 05 0d 0d 2c  |st%).,`...,j...,|
00002400  74 04 0d 2c 7e 16 dd f2  6d 65 72 67 65 73 70 72  |t..,~...mergespr|
00002410  69 74 0d 73 28 66 24 29  0d 2c 88 27 c8 99 22 4f  |it.s(f$).,.'.."O|
00002420  53 5f 53 70 72 69 74 0d  4f 70 22 2c 26 31 30 42  |S_Sprit.Op",&10B|
00002430  2c 73 70 72 69 74 65 61  72 65 61 25 0d 66 24 0d  |,spritearea%.f$.|
00002440  2c 92 12 f2 72 65 64 72  61 77 77 69 6e 64 6f 77  |,...redrawwindow|
00002450  73 0d 2c 9c 05 e1 0d 2c  a6 04 0d 2c b0 13 dd f2  |s.,....,...,....|
00002460  72 65 64 72 61 77 0d 69  6e 64 6f 77 73 0d 2c ba  |redraw.indows.,.|
00002470  07 ea 49 25 0d 2c c4 0d  e3 49 25 0d 30 b8 6e 68  |..I%.,...I%.0.nh|
00002480  25 0d 2c ce 47 e7 68 61  6e 64 6c 65 25 28 49 25  |%.,.G.handle%(I%|
00002490  0d 3e 6e 68 25 8c c8 99  22 57 69 6d 70 5f 46 6f  |.>nh%..."Wimp_Fo|
000024a0  72 63 65 52 65 0d 72 61  77 22 2c 68 61 6e 64 6c  |rceRe.raw",handl|
000024b0  65 25 28 49 25 29 2c 2d  31 45 0d 2c 2d 31 45 38  |e%(I%),-1E.,-1E8|
000024c0  2c 31 45 38 2c 31 45 38  0d 2c d8 05 ed 0d 2c 0d  |,1E8,1E8.,....,.|
000024d0  05 e1 0d 2c ec 04 0d 2c  f6 12 dd a4 66 69 6c 65  |...,...,....file|
000024e0  74 79 70 65 0d 66 24 29  0d 2d 00 0d ea 66 25 2c  |type.f$).-...f%,|
000024f0  74 79 70 65 25 0d 2d 0a  1f 0d 99 22 4f 53 5f 46  |type%.-...."OS_F|
00002500  69 6c 65 22 2c 31 37 2c  66 24 b8 74 79 70 0d 25  |ile",17,f$.typ.%|
00002510  2c 2c 66 25 0d 2d 14 11  e7 74 79 70 65 25 3c 3e  |,,f%.-...type%<>|
00002520  31 8c 3d 0d 32 0d 2d 1e  26 e7 28 66 25 3e 3e 3e  |1.=.2.-.&.(f%>>>|
00002530  32 30 29 3d 26 46 46 46  0d 3d 28 66 25 3e 3e 3e  |20)=&FFF.=(f%>>>|
00002540  38 29 80 26 46 46 46 8b  3d 2d 31 0d 2d 0d 04 0d  |8).&FFF.=-1.-...|
00002550  2d 32 17 dd f2 64 65 63  6f 64 65 74 69 74 6c 65  |-2...decodetitle|
00002560  28 62 0d 74 25 29 0d 2d  3c 0f c8 8e 6d 65 6e 75  |(b.t%).-<...menu|
00002570  73 25 21 34 ca 0d 2d 0d  18 c9 2d 31 3a 71 25 21  |s%!4..-...-1:q%!|
00002580  33 32 3d 71 25 21 33 32  82 62 69 74 0d 0d 2d 50  |32=q%!32.bit..-P|
00002590  16 7f 3a 71 25 21 33 32  3d 71 25 21 33 32 84 62  |..:q%!32=q%!32.b|
000025a0  69 0d 25 0d 2d 5a 05 cb  0d 2d 64 3c e7 6d 65 6e  |i.%.-Z...-d<.men|
000025b0  75 73 25 21 34 3d 0d 8c  6d 65 6e 75 73 25 21 34  |us%!4=..menus%!4|
000025c0  3d 39 3a f4 20 62 6f 64  67 65 20 0d 6f 72 20 27  |=9:. bodge .or '|
000025d0  72 69 67 68 74 2d 6a 75  73 74 69 66 69 65 64 27  |right-justified'|
000025e0  0d 62 69 74 0d 2d 6e 37  e7 6d 65 6e 75 73 25 21  |.bit.-n7.menus%!|
000025f0  34 3d 37 8c 6d 0d 6e 75  73 25 21 34 3d 38 3a f4  |4=7.m.nus%!4=8:.|
00002600  20 62 6f 64 67 65 20 66  6f 72 0d 27 69 6e 64 69  | bodge for.'indi|
00002610  72 65 63 74 65 64 27 20  62 69 74 0d 2d 78 4b 0d  |rected' bit.-xK.|
00002620  64 65 63 6f 64 65 69 63  6f 6e 28 6d 65 6e 75 73  |decodeicon(menus|
00002630  25 2b 34 2c 0d 25 2b 36  30 2c 71 25 2b 37 36 2c  |%+4,.%+60,q%+76,|
00002640  74 62 5f 74 65 78 74 25  2c 0d 62 5f 73 70 72 69  |tb_text%,.b_spri|
00002650  74 65 25 2c 74 62 5f 62  75 66 66 65 72 73 0d 7a  |te%,tb_buffers.z|
00002660  65 25 2c 22 22 29 0d 2d  82 05 e1 0d 2d 8c 04 0d  |e%,"").-....-...|
00002670  2d 96 1c 0d f2 73 65 74  78 79 28 f8 78 25 2c f8  |-....setxy(.x%,.|
00002680  79 25 2c 61 24 2c 73 65  0d 24 29 0d 2d a0 1f 78  |y%,a$,se.$).-..x|
00002690  25 3d bb 61 24 3a 79 25  3d bb c1 61 24 0d a7 61  |%=.a$:y%=..a$..a|
000026a0  24 2c 73 65 70 24 29 2b  31 29 0d 2d aa 05 e1 0d  |$,sep$)+1).-....|
000026b0  2d b4 0d 0d 2d be 14 dd  f2 73 65 74 77 6f 72 6b  |-...-....setwork|
000026c0  28 71 25 2c 76 25 29 0d  2d c8 22 21 71 25 3d bb  |(q%,v%).-."!q%=.|
000026d0  24 76 25 3a 71 25 21 34  3d bb 24 28 0d 25 2b a7  |$v%:q%!4=.$(.%+.|
000026e0  24 76 25 2c 22 2c 22 29  29 0d 2d d2 05 e1 0d 2d  |$v%,",")).-....-|
000026f0  dc 0d 0d 2d e6 18 dd f2  73 65 74 77 6f 72 6b 61  |...-....setworka|
00002700  72 65 61 28 63 75 0d 77  25 29 0d 2d f0 07 ea 68  |rea(cu.w%).-...h|
00002710  25 0d 2d fa 15 68 25 3d  68 61 6e 0d 6c 65 25 28  |%.-..h%=han.le%(|
00002720  63 75 72 77 25 29 0d 2e  04 1e f2 73 65 74 77 6f  |curw%).....setwo|
00002730  0d 6b 28 71 25 2c 6d 62  5f 77 6f 72 6b 61 72 65  |.k(q%,mb_workare|
00002740  61 30 25 29 0d 0d 0e 20  f2 73 65 74 77 6f 72 6b  |a0%)... .setwork|
00002750  28 71 25 2b 38 2c 6d 62  5f 77 0d 72 6b 61 72 65  |(q%+8,mb_w.rkare|
00002760  61 31 25 29 0d 2e 18 1c  c8 99 22 57 69 6d 70 0d  |a1%)......"Wimp.|
00002770  53 65 74 45 78 74 65 6e  74 22 2c 68 25 2c 71 25  |SetExtent",h%,q%|
00002780  0d 2e 22 2c 0d 69 6e 25  3d 28 bb 24 6d 62 5f 6d  |..",.in%=(.$mb_m|
00002790  69 6e 78 25 80 26 46 46  46 0d 29 84 28 bb 24 6d  |inx%.&FFF.).(.$m|
000027a0  62 5f 6d 69 6e 79 25 3c  3c 31 36 29 0d 2e 0d 25  |b_miny%<<16)...%|
000027b0  21 71 25 3d 68 25 3a c8  99 22 57 69 6d 70 5f 47  |!q%=h%:.."Wimp_G|
000027c0  65 74 57 0d 6e 64 6f 77  49 6e 66 6f 22 2c 2c 71  |etW.ndowInfo",,q|
000027d0  25 0d 2e 36 11 e7 71 25  0d 37 32 3c 3e 6d 69 6e  |%..6..q%.72<>min|
000027e0  25 8c 0d 2e 40 39 71 25  21 37 32 3d 6d 0d 6e 25  |%...@9q%!72=m.n%|
000027f0  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |:.."Wimp_CreateW|
00002800  69 6e 0d 6f 77 22 2c 2c  71 25 2b 34 b8 68 61 6e  |in.ow",,q%+4.han|
00002810  64 6c 65 25 28 63 75 0d  77 25 29 0d 2e 4a 2e 21  |dle%(cu.w%)..J.!|
00002820  71 25 3d 68 61 6e 64 6c  65 25 28 63 0d 72 77 25  |q%=handle%(c.rw%|
00002830  29 3a c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |):.."Wimp_OpenWi|
00002840  6e 0d 6f 77 22 2c 2c 71  25 0d 2e 54 24 21 71 25  |n.ow",,q%..T$!q%|
00002850  3d 68 25 3a c8 99 0d 57  69 6d 70 5f 44 65 6c 65  |=h%:...Wimp_Dele|
00002860  74 65 57 69 6e 64 6f 77  22 2c 2c 0d 25 0d 2e 5e  |teWindow",,.%..^|
00002870  05 cd 0d 2e 68 05 e1 0d  2e 72 04 0d 2e 7c 15 dd  |....h....r...|..|
00002880  0d 67 6f 64 65 6c 65 74  65 73 70 72 69 74 65 73  |.godeletesprites|
00002890  0d 2e 86 3f 49 0d 3d 71  25 2b 26 34 30 3a c8 99  |...?I.=q%+&40:..|
000028a0  22 57 69 6d 70 5f 57 68  69 63 0d 49 63 6f 6e 22  |"Wimp_Whic.Icon"|
000028b0  2c 73 70 72 69 74 65 6c  69 73 74 25 2c 49 25 0d  |,spritelist%,I%.|
000028c0  26 32 30 30 30 30 31 2c  26 32 30 30 30 30 31 0d  |&200001,&200001.|
000028d0  2e 90 13 21 0d 25 3d 73  70 72 69 74 65 6c 69 73  |...!.%=spritelis|
000028e0  74 25 0d 2e 9a 0d c8 95  21 0d 25 3c 3e 2d 31 0d  |t%......!.%<>-1.|
000028f0  2e a4 26 71 25 21 34 3d  21 49 25 3a c8 99 0d 57  |..&q%!4=!I%:...W|
00002900  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002910  22 2c 2c 0d 25 0d 2e ae  2a c8 99 22 4f 53 5f 53  |",,.%...*.."OS_S|
00002920  70 72 69 74 65 4f 70 22  0d 26 31 31 39 2c 73 70  |priteOp".&119,sp|
00002930  72 69 74 65 61 72 65 61  25 2c 71 25 2b 0d 38 0d  |ritearea%,q%+.8.|
00002940  2e b8 0b 49 25 2b 3d 34  3a ce 0d 2e c2 0f f2 73  |...I%+=4:......s|
00002950  70 72 0d 74 65 69 6e 66  6f 0d 2e cc 05 e1 0d 2e  |pr.teinfo.......|
00002960  d6 04 0d 2e e0 4a dd 0d  64 65 63 6f 64 65 69 63  |.....J..decodeic|
00002970  6f 6e 28 6d 65 6e 75 73  25 2c 66 70 0d 72 25 2c  |on(menus%,fp.r%,|
00002980  71 70 74 72 25 2c 6d 62  5f 74 65 78 74 25 2c 6d  |qptr%,mb_text%,m|
00002990  62 0d 73 70 72 69 74 65  25 2c 6d 62 5f 62 75 66  |b.sprite%,mb_buf|
000029a0  66 65 72 73 69 7a 0d 25  2c 76 24 29 0d 2e ea 0e  |fersiz.%,v$)....|
000029b0  c8 8e 21 6d 65 6e 75 73  25 ca 0d 0d f4 13 c9 30  |..!menus%......0|
000029c0  3a 6f 6c 64 66 25 3d 21  66 70 74 72 25 0d 2e fe  |:oldf%=!fptr%...|
000029d0  0d c8 8e 6d 65 6e 75 73  25 21 34 ca 0d 2f 08 19  |...menus%!4../..|
000029e0  c9 2d 31 3a 21 0d 70 74  72 25 3d 21 66 70 74 72  |.-1:!.ptr%=!fptr|
000029f0  25 82 26 30 31 0d 2f 12  39 f4 0d 20 20 20 20 20  |%.&01./.9..     |
00002a00  20 20 20 20 20 20 49 46  21 66 70 74 72 25 41 0d  |      IF!fptr%A.|
00002a10  44 26 30 31 54 48 45 4e  21 66 70 74 72 25 3d 21  |D&01THEN!fptr%=!|
00002a20  66 70 74 72 0d 41 4e 44  4e 4f 54 26 30 32 0d 2f  |fptr.ANDNOT&02./|
00002a30  1c 17 7f 3a 21 66 70 74  72 0d 3d 21 66 70 74 72  |...:!fptr.=!fptr|
00002a40  25 84 26 30 31 0d 2f 26  25 e7 28 6f 6c 64 0d 25  |%.&01./&%.(old.%|
00002a50  80 26 30 31 29 3d 30 8c  21 66 70 74 72 25 3d 21  |.&01)=0.!fptr%=!|
00002a60  66 70 74 0d 25 80 ac 26  30 32 0d 2f 30 05 cb 0d  |fpt.%..&02./0...|
00002a70  2f 3a 2f f2 70 75 74 69  0d 6f 6e 73 74 72 69 6e  |/:/.puti.onstrin|
00002a80  67 28 6f 6c 64 66 25 2c  66 70 74 72 25 0d 71 70  |g(oldf%,fptr%.qp|
00002a90  74 72 25 2c 24 6d 62 5f  74 65 78 74 25 29 0d 2f  |tr%,$mb_text%)./|
00002aa0  44 13 0d 31 3a 6f 6c 64  66 25 3d 21 66 70 74 72  |D..1:oldf%=!fptr|
00002ab0  25 0d 2f 4e 0f c8 8e 0d  65 6e 75 73 25 21 34 ca  |%./N....enus%!4.|
00002ac0  0d 2f 58 19 c9 2d 31 3a  21 66 70 74 0d 25 3d 21  |./X..-1:!fpt.%=!|
00002ad0  66 70 74 72 25 82 26 30  32 0d 2f 62 39 f4 20 20  |fptr%.&02./b9.  |
00002ae0  20 0d 20 20 20 20 20 20  20 20 49 46 21 66 70 74  | .        IF!fpt|
00002af0  72 25 41 4e 44 26 0d 32  54 48 45 4e 21 66 70 74  |r%AND&.2THEN!fpt|
00002b00  72 25 3d 21 66 70 74 72  25 41 4e 0d 4e 4f 54 26  |r%=!fptr%AN.NOT&|
00002b10  30 31 0d 2f 6c 1e 7f 3a  21 66 70 74 72 25 3d 28  |01./l..:!fptr%=(|
00002b20  0d 66 70 74 72 25 80 ac  26 30 33 29 84 26 30 32  |.fptr%..&03).&02|
00002b30  0d 2f 76 05 cb 0d 2f 80  2b e7 21 66 70 74 72 25  |./v.../.+.!fptr%|
00002b40  80 26 30 31 8c 41 24 3d  24 6d 0d 5f 74 65 78 74  |.&01.A$=$m._text|
00002b50  25 8b 41 24 3d 24 6d 62  5f 73 70 72 69 74 65 0d  |%.A$=$mb_sprite.|
00002b60  0d 2f 8a 28 f2 70 75 74  69 63 6f 6e 73 74 72 69  |./.(.puticonstri|
00002b70  6e 67 28 6f 0d 64 66 25  2c 66 70 74 72 25 2c 71  |ng(o.df%,fptr%,q|
00002b80  70 74 72 25 2c 41 24 29  0d 0d 94 18 c9 32 3a 21  |ptr%,A$).....2:!|
00002b90  66 70 74 72 25 3d 21 66  70 74 72 25 82 26 0d 34  |fptr%=!fptr%.&.4|
00002ba0  0d 2f 9e 18 c9 33 3a 21  66 70 74 72 25 3d 21 66  |./...3:!fptr%=!f|
00002bb0  70 74 72 0d 82 26 30 38  0d 2f a8 18 c9 34 3a 21  |ptr..&08./...4:!|
00002bc0  66 70 74 72 25 3d 21 66  0d 74 72 25 82 26 31 30  |fptr%=!f.tr%.&10|
00002bd0  0d 2f b2 18 c9 35 3a 21  66 70 74 72 25 0d 21 66  |./...5:!fptr%.!f|
00002be0  70 74 72 25 82 26 32 30  0d 2f bc 43 c9 36 3a c8  |ptr%.&20./.C.6:.|
00002bf0  99 22 0d 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  |.".imp_DecodeMen|
00002c00  75 22 2c 2c 69 5f 66 0d  6e 74 25 2c 6d 65 6e 75  |u",,i_f.nt%,menu|
00002c10  73 25 2b 34 2c c4 31 30  30 2c 22 20 0d 29 b8 2c  |s%+4,.100," .).,|
00002c20  2c 2c 66 6f 6e 74 6e 61  6d 65 24 0d 2f c6 30 e7  |,,fontname$./.0.|
00002c30  6d 0d 6e 75 73 25 21 34  3c 3e 2d 31 e7 6d 65 6e  |m.nus%!4<>-1.men|
00002c40  75 73 25 21 38 3d 0d 8c  66 6f 6e 74 6e 61 6d 65  |us%!8=..fontname|
00002c50  24 2b 3d 22 20 70 6f 69  6e 74 22 0d 2f d0 12 e7  |$+=" point"./...|
00002c60  66 6f 6e 74 6e 61 6d 65  24 3d 22 22 8c 0d 2f da  |fontname$=""../.|
00002c70  0d 21 66 70 74 72 25 3d  21 66 70 74 72 25 80 ac  |.!fptr%=!fptr%..|
00002c80  26 34 30 0d 2f 0d 0f 66  70 74 72 25 3f 33 3d 26  |&40./..fptr%?3=&|
00002c90  44 37 0d 2f ee 16 cc 21  66 70 0d 72 25 3d 21 66  |D7./...!fp.r%=!f|
00002ca0  70 74 72 25 84 26 34 30  0d 2f f8 1b e7 c2 66 0d  |ptr%.&40./....f.|
00002cb0  6e 74 6e 61 6d 65 24 2c  35 29 3d 22 70 6f 69 6e  |ntname$,5)="poin|
00002cc0  74 22 8c 0d 0d 02 11 49  25 3d a9 66 6f 6e 74 6e  |t".....I%=.fontn|
00002cd0  61 6d 65 24 0d 30 0c 22  f5 0d 25 3d 49 25 2d 31  |ame$.0."..%=I%-1|
00002ce0  3a fd c1 66 6f 6e 74 6e  61 6d 65 24 2c 49 0d 2c  |:..fontname$,I.,|
00002cf0  31 29 3d 22 2e 22 0d 30  16 1b 70 73 69 7a 25 3d  |1)=".".0..psiz%=|
00002d00  bb c1 66 0d 6e 74 6e 61  6d 65 24 2c 49 25 2b 31  |..f.ntname$,I%+1|
00002d10  29 0d 30 20 1e 66 6f 6e  0d 6e 61 6d 65 24 3d c0  |).0 .fon.name$=.|
00002d20  66 6f 6e 74 6e 61 6d 65  24 2c 49 25 2d 0d 29 0d  |fontname$,I%-.).|
00002d30  30 2a 0d cc 70 73 69 7a  25 3d 31 32 0d 30 34 05  |0*..psiz%=12.04.|
00002d40  cd 0d 0d 3e 26 66 70 74  72 25 3f 33 3d a4 66 69  |...>&fptr%?3=.fi|
00002d50  6e 64 66 6f 6e 74 28 0d  6f 6e 74 6e 61 6d 65 24  |ndfont(.ontname$|
00002d60  2c 70 73 69 7a 25 29 0d  30 48 05 cd 0d 30 52 18  |,psiz%).0H...0R.|
00002d70  c9 37 3a 21 66 70 74 72  25 3d 21 66 70 74 72 25  |.7:!fptr%=!fptr%|
00002d80  82 0d 38 30 0d 30 5c 28  c9 38 3a e7 21 66 70 74  |..80.0\(.8:.!fpt|
00002d90  72 25 80 26 31 30 0d 8c  42 24 3d 24 21 71 70 74  |r%.&10..B$=$!qpt|
00002da0  72 25 8b 42 24 3d 24 71  70 74 72 0d 0d 30 66 36  |r%.B$=$qptr..0f6|
00002db0  e7 6d 65 6e 75 73 25 21  34 3d 2d 31 8c 21 66 70  |.menus%!4=-1.!fp|
00002dc0  0d 72 25 3d 21 66 70 74  72 25 82 26 31 30 30 8b  |.r%=!fptr%.&100.|
00002dd0  21 66 70 74 72 0d 3d 21  66 70 74 72 25 84 26 31  |!fptr.=!fptr%.&1|
00002de0  30 30 0d 30 70 11 e7 21  66 70 0d 72 25 80 26 31  |00.0p..!fp.r%.&1|
00002df0  30 30 8c 0d 30 7a 1c 71  70 74 72 25 21 38 3d 0d  |00..0z.qptr%!8=.|
00002e00  24 6d 62 5f 62 75 66 66  65 72 73 69 7a 65 25 0d  |$mb_buffersize%.|
00002e10  30 84 35 21 0d 70 74 72  25 3d a4 77 6f 72 6b 73  |0.5!.ptr%=.works|
00002e20  70 61 63 65 28 71 70 74  72 0d 21 38 29 3a 24 21  |pace(qptr.!8):$!|
00002e30  71 70 74 72 25 3d c0 42  24 2c 71 70 74 72 0d 21  |qptr%=.B$,qptr.!|
00002e40  38 2d 31 29 0d 30 8e 0b  e7 76 24 3d 22 22 8c 0d  |8-1).0...v$=""..|
00002e50  30 98 0e 0d 70 74 72 25  21 34 3d 2d 31 0d 30 a2  |0...ptr%!4=-1.0.|
00002e60  17 cc e7 28 21 66 70 74  0d 25 80 26 30 33 29 3d  |...(!fpt.%.&03)=|
00002e70  26 30 32 8c 0d 30 ac 17  71 70 74 72 25 0d 34 3d  |&02..0..qptr%.4=|
00002e80  73 70 72 69 74 65 61 72  65 61 25 0d 30 b6 2c cc  |spritearea%.0.,.|
00002e90  71 70 0d 72 25 21 34 3d  a4 77 6f 72 6b 73 70 61  |qp.r%!4=.workspa|
00002ea0  63 65 28 a9 76 24 2b 0d  29 3a 24 28 71 70 74 72  |ce(.v$+.):$(qptr|
00002eb0  25 21 34 29 3d 76 24 0d  30 c0 05 cd 0d 30 ca 05  |%!4)=v$.0....0..|
00002ec0  cd 0d 30 d4 13 cc 24 71  70 74 72 25 3d c0 42 24  |..0...$qptr%=.B$|
00002ed0  2c 0d 31 29 0d 30 de 05  cd 0d 30 e8 18 e7 28 21  |,.1).0....0...(!|
00002ee0  66 70 74 72 25 80 0d 31  30 33 29 3d 26 31 30 32  |fptr%..103)=&102|
00002ef0  8c 0d 30 f2 21 e7 71 70  74 72 25 0d 34 3e 31 8c  |..0.!.qptr%.4>1.|
00002f00  21 66 70 74 72 25 3d 21  66 70 74 72 25 80 ac 26  |!fptr%=!fptr%..&|
00002f10  0d 32 0d 30 fc 05 cd 0d  31 06 19 c9 39 3a 21 66  |.2.0....1...9:!f|
00002f20  70 74 72 25 3d 0d 66 70  74 72 25 82 26 32 30 30  |ptr%=.fptr%.&200|
00002f30  0d 31 10 1a c9 31 30 3a  21 66 0d 74 72 25 3d 21  |.1...10:!f.tr%=!|
00002f40  66 70 74 72 25 82 26 34  30 30 0d 31 1a 1a c9 0d  |fptr%.&400.1....|
00002f50  31 3a 21 66 70 74 72 25  3d 21 66 70 74 72 25 82  |1:!fptr%=!fptr%.|
00002f60  26 38 30 30 0d 31 24 2b  c9 31 32 3a 21 66 70 74  |&800.1$+.12:!fpt|
00002f70  72 25 3d a4 66 69 65 6c  64 0d 21 66 70 74 72 25  |r%=.field.!fptr%|
00002f80  2c 31 32 2c 34 2c 6d 65  6e 75 73 25 21 34 0d 0d  |,12,4,menus%!4..|
00002f90  31 2e 2b c9 31 33 3a 21  66 70 74 72 25 3d a4 66  |1.+.13:!fptr%=.f|
00002fa0  69 65 6c 0d 28 21 66 70  74 72 25 2c 31 36 2c 35  |iel.(!fptr%,16,5|
00002fb0  2c 6d 65 6e 75 73 25 21  0d 29 0d 31 38 2b c9 31  |,menus%!.).18+.1|
00002fc0  34 3a 21 66 70 74 72 25  3d a4 66 69 65 0d 64 28  |4:!fptr%=.fie.d(|
00002fd0  21 66 70 74 72 25 2c 32  34 2c 34 2c 6d 65 6e 75  |!fptr%,24,4,menu|
00002fe0  73 25 0d 34 29 0d 31 42  2b c9 31 35 3a 21 66 70  |s%.4).1B+.15:!fp|
00002ff0  74 72 25 3d a4 66 69 0d  6c 64 28 21 66 70 74 72  |tr%=.fi.ld(!fptr|
00003000  25 2c 32 38 2c 34 2c 6d  65 6e 75 73 0d 21 34 29  |%,28,4,menus.!4)|
00003010  0d 31 4c 05 cb 0d 31 56  05 e1 0d 31 60 04 0d 31  |.1L...1V...1`..1|
00003020  6a 0d dd a4 66 69 65 6c  64 28 66 6c 67 25 2c 62  |j...field(flg%,b|
00003030  30 25 2c 6e 62 25 0d 69  25 29 0d 31 74 36 e7 69  |0%,nb%.i%).1t6.i|
00003040  25 3c 3e 2d 31 8c 3d 66  6c 67 25 0d ac 28 28 28  |%<>-1.=flg%..(((|
00003050  31 3c 3c 6e 62 25 29 2d  31 29 3c 3c 62 30 25 29  |1<<nb%)-1)<<b0%)|
00003060  0d 28 69 25 3c 3c 62 30  25 29 8b 3d 66 6c 67 25  |.(i%<<b0%).=flg%|
00003070  0d 31 7e 04 0d 0d 88 29  dd f2 70 75 74 69 63 6f  |.1~....)..putico|
00003080  6e 73 74 72 69 6e 67 28  6f 6c 0d 66 25 2c 66 70  |nstring(ol.f%,fp|
00003090  74 72 25 2c 71 70 74 72  25 2c 41 24 29 0d 31 0d  |tr%,qptr%,A$).1.|
000030a0  10 e7 6f 6c 64 66 25 80  26 31 30 30 8c 0d 31 9c  |..oldf%.&100..1.|
000030b0  31 e7 28 21 0d 70 74 72  25 80 26 30 33 29 3d 26  |1.(!.ptr%.&03)=&|
000030c0  30 32 8c 71 70 74 72 25  21 0d 3d 2d 31 3a f4 20  |02.qptr%!.=-1:. |
000030d0  6e 6f 20 73 70 72 69 74  65 20 61 72 65 61 0d 31  |no sprite area.1|
000030e0  a6 11 e7 a9 41 24 3c 71  70 74 72 25 21 38 8c 0d  |....A$<qptr%!8..|
000030f0  31 b0 23 0d 21 71 70 74  72 25 3d 41 24 3a 21 66  |1.#.!qptr%=A$:!f|
00003100  70 74 72 25 3d 21 66 70  0d 72 25 84 26 31 30 30  |ptr%=!fp.r%.&100|
00003110  3a e1 0d 31 ba 05 cd 0d  31 c4 0d cc e7 0d 41 24  |:..1....1.....A$|
00003120  3c 31 32 8c 0d 31 ce 23  24 71 70 74 72 25 3d 41  |<12..1.#$qptr%=A|
00003130  24 3a 0d 66 70 74 72 25  3d 21 66 70 74 72 25 80  |$:.fptr%=!fptr%.|
00003140  ac 26 31 30 30 3a e1 0d  31 d8 05 cd 0d 31 e2 05  |.&100:..1....1..|
00003150  cd 0d 31 ec 16 21 66 70  74 72 25 3d 0d 66 70 74  |..1..!fptr%=.fpt|
00003160  72 25 84 26 31 30 30 0d  31 f6 2a 21 71 70 74 72  |r%.&100.1.*!qptr|
00003170  25 0d a4 77 6f 72 6b 73  70 61 63 65 28 a9 41 24  |%..workspace(.A$|
00003180  2b 31 29 3a 71 70 0d 72  25 21 38 3d a9 41 24 2b  |+1):qp.r%!8=.A$+|
00003190  31 0d 32 00 0e 24 21 71  70 74 72 0d 3d 41 24 0d  |1.2..$!qptr.=A$.|
000031a0  32 0a 43 e7 28 6f 6c 64  66 25 80 26 31 30 30 29  |2.C.(oldf%.&100)|
000031b0  0d 30 8c 71 70 74 72 25  21 34 3d 2d 31 3a f4 20  |.0.qptr%!4=-1:. |
000031c0  6b 65 65 70 20 0d 6c 64  20 76 61 6c 69 64 61 74  |keep .ld validat|
000031d0  69 6f 6e 20 73 74 72 69  6e 67 0d 20 69 66 20 61  |ion string. if a|
000031e0  6e 79 0d 32 14 05 e1 0d  32 1e 04 0d 32 28 52 0d  |ny.2....2...2(R.|
000031f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003200  2d 2d 2d 2d 0d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----.-----------|
00003210  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 2d 2d 2d 2d 2d 2d  |---------.------|
00003220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 2d  |--------------.-|
00003230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 32 32  |-------------.22|
00003240  04 0d 32 0d 21 dd f2 72  65 6e 75 6d 62 65 72 28  |..2.!..renumber(|
00003250  63 75 72 77 25 2c 63 75  0d 69 25 2c 6e 65 77 69  |curw%,cu.i%,newi|
00003260  25 29 0d 32 46 0a ea 4d  25 2c 4e 25 0d 0d 50 16  |%).2F..M%,N%..P.|
00003270  21 71 25 3d 68 61 6e 64  6c 65 25 28 63 75 72 77  |!q%=handle%(curw|
00003280  25 29 0d 32 5a 1e c8 99  22 57 69 6d 70 5f 47 65  |%).2Z..."Wimp_Ge|
00003290  74 57 69 6e 64 6f 77 0d  6e 66 6f 22 2c 2c 71 25  |tWindow.nfo",,q%|
000032a0  0d 32 64 2f e7 71 25 21  38 38 3c 3d 0d 65 77 69  |.2d/.q%!88<=.ewi|
000032b0  25 8c 85 31 2c 22 49 63  6f 6e 20 6e 75 6d 62 65  |%..1,"Icon numbe|
000032c0  72 0d 6f 75 74 20 6f 66  20 72 61 6e 67 65 22 0d  |r.out of range".|
000032d0  32 6e 17 4d 25 3d 0d 25  2b 34 2b 38 38 2b 33 32  |2n.M%=.%+4+88+32|
000032e0  2a 63 75 72 69 25 0d 32  78 17 4e 0d 3d 71 25 2b  |*curi%.2x.N.=q%+|
000032f0  34 2b 38 38 2b 33 32 2a  6e 65 77 69 25 0d 32 82  |4+88+32*newi%.2.|
00003300  0d e3 49 25 3d 30 b8 32  38 88 34 3a c8 94 4d 25  |..I%=0.28.4:..M%|
00003310  21 49 25 2c 4e 0d 21 49  25 3a ed 0d 32 8c 0c 49  |!I%,N.!I%:..2..I|
00003320  25 3d 71 25 21 38 38 0d  32 96 0d c8 95 49 25 3e  |%=q%!88.2....I%>|
00003330  30 0d 32 a0 37 e7 71 25  21 28 34 2b 38 38 2b 0d  |0.2.7.q%!(4+88+.|
00003340  32 2a 28 49 25 2d 31 29  2b 31 36 29 80 28 31 3c  |2*(I%-1)+16).(1<|
00003350  3c 32 33 29 0d 49 25 2d  3d 31 3a 71 25 21 38 38  |<23).I%-=1:q%!88|
00003360  3d 49 25 8b 49 25 3d 30  0d 0d aa 05 ce 0d 32 b4  |=I%.I%=0......2.|
00003370  22 f2 63 72 77 69 6e 64  6f 77 28 71 25 2b 0d 2c  |".crwindow(q%+.,|
00003380  77 69 64 65 6e 74 24 28  63 75 72 77 25 29 29 0d  |wident$(curw%)).|
00003390  32 be 18 0d 64 65 6c 65  74 65 77 69 6e 64 6f 77  |2...deletewindow|
000033a0  28 63 75 72 77 25 29 0d  0d c8 05 e1 0d 32 d2 04  |(curw%)......2..|
000033b0  0d 32 dc 52 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 2d 2d  |.2.R---------.--|
000033c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000033d0  2d 2d 0d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |--.-------------|
000033e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003400  2d 2d 0d 32 e6 04 0d 32  f0 1f dd f2 64 69 61 6c  |--.2...2....dial|
00003410  6f 67 75 65 28 68 61 6e  64 6c 65 25 2c 6d 78 25  |ogue(handle%,mx%|
00003420  2c 6d 79 25 29 0d 32 fa  12 f2 67 65 74 77 28 68  |,my%).2...getw(h|
00003430  61 6e 64 6c 65 25 29 0d  33 04 39 f2 6f 70 65 6e  |andle%).3.9.open|
00003440  28 68 61 6e 64 6c 65 25  2c 6d 78 25 2c 6d 79 25  |(handle%,mx%,my%|
00003450  0d 79 30 25 2d 79 31 25  2c 6d 78 25 2b 78 31 25  |.y0%-y1%,mx%+x1%|
00003460  2d 78 30 25 2c 0d 79 25  2c 30 2c 30 2c 2d 31 29  |-x0%,.y%,0,0,-1)|
00003470  0d 33 0e 37 c8 99 22 57  69 6d 0d 5f 53 65 74 43  |.3.7.."Wim._SetC|
00003480  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 68 0d  |aretPosition",h.|
00003490  6e 64 6c 65 25 2c 2d 31  2c 30 2c 30 2c 26 33 30  |ndle%,-1,0,0,&30|
000034a0  30 30 30 30 0d 2c 30 0d  33 18 12 f2 67 65 74 77  |0000.,0.3...getw|
000034b0  28 68 61 6e 64 6c 65 25  29 0d 33 22 22 c8 97 c8  |(handle%).3""...|
000034c0  93 78 30 25 2c 79 30 25  2c 78 31 25 2d 78 0d 25  |.x0%,y0%,x1%-x.%|
000034d0  2c 79 31 25 2d 79 30 25  2b 34 30 0d 33 2c 15 64  |,y1%-y0%+40.3,.d|
000034e0  69 61 6c 0d 67 75 65 25  3d 68 61 6e 64 6c 65 25  |ial.gue%=handle%|
000034f0  0d 33 36 05 e1 0d 33 40  0d 0d 33 4a 52 2d 2d 2d  |.36...3@..3JR---|
00003500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 2d 2d  |-------------.--|
00003510  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003520  2d 2d 0d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |--.-------------|
00003530  2d 2d 2d 2d 2d 2d 2d 0d  2d 2d 2d 2d 2d 2d 2d 2d  |-------.--------|
00003540  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0d 54 04 0d  |-----------..T..|
00003550  33 5e 1f dd f2 73 74 61  6e 64 61 72 64 77 69 6e  |3^...standardwin|
00003560  64 0d 77 28 62 72 78 25  2c 62 72 79 25 29 0d 33  |d.w(brx%,bry%).3|
00003570  68 2a e3 49 25 3d 0d b8  38 34 88 34 3a 71 25 21  |h*.I%=..84.4:q%!|
00003580  49 25 3d 64 65 66 61 75  6c 74 25 0d 49 25 3a ed  |I%=default%.I%:.|
00003590  3a 71 25 21 38 34 3d 30  0d 33 72 15 71 25 21 36  |:q%!84=0.3r.q%!6|
000035a0  0d 3d 73 70 72 69 74 65  61 72 65 61 25 0d 33 7c  |.=spritearea%.3||
000035b0  27 49 25 3d 71 0d 21 38  2d 71 25 21 30 3a 71 25  |'I%=q.!8-q%!0:q%|
000035c0  21 30 3d 62 72 78 25 3a  71 25 0d 38 3d 71 25 21  |!0=brx%:q%.8=q%!|
000035d0  30 2b 49 25 0d 33 86 2a  49 25 3d 71 25 21 34 0d  |0+I%.3.*I%=q%!4.|
000035e0  71 25 21 31 32 3a 71 25  21 31 32 3d 62 72 79 25  |q%!12:q%!12=bry%|
000035f0  3a 71 25 21 0d 3d 71 25  21 31 32 2b 49 25 0d 33  |:q%!.=q%!12+I%.3|
00003600  90 05 e1 0d 33 9a 04 0d  33 0d 4c 21 71 25 3d 62  |....3...3.L!q%=b|
00003610  72 78 25 3a 71 25 21 34  3d 62 72 79 25 2d 0d 30  |rx%:q%!4=bry%-.0|
00003620  30 3a 71 25 21 38 3d 62  72 78 25 2b 32 30 30 3a  |0:q%!8=brx%+200:|
00003630  71 25 21 0d 32 3d 62 72  79 25 3a 71 25 21 31 36  |q%!.2=bry%:q%!16|
00003640  3d 30 3a 71 25 21 32 30  0d 30 3a 71 25 21 32 34  |=0:q%!20.0:q%!24|
00003650  3d 2d 31 0d 33 ae 0d 71  25 21 32 38 3d 0d 31 46  |=-1.3..q%!28=.1F|
00003660  0d 33 b8 37 71 25 3f 33  32 3d 60 74 66 63 6f 6c  |.3.7q%?32=`tfcol|
00003670  3a 71 0d 3f 33 33 3d 60  74 62 63 6f 6c 3a 71 25  |:q.?33=`tbcol:q%|
00003680  3f 33 34 3d 60 77 66 0d  6f 6c 3a 71 25 3f 33 35  |?34=`wf.ol:q%?35|
00003690  3d 60 77 62 63 6f 6c 0d  33 c2 2e 71 0d 3f 33 36  |=`wbcol.3..q.?36|
000036a0  3d 34 3a 71 25 3f 33 37  3d 60 74 62 63 6f 6c 3a  |=4:q%?37=`tbcol:|
000036b0  71 0d 3f 33 38 3d 60 74  62 63 6f 6c 32 3a 71 25  |q.?38=`tbcol2:q%|
000036c0  3f 33 39 3d 30 0d 0d cc  2a 71 25 21 34 30 3d 30  |?39=0...*q%!40=0|
000036d0  3a 71 25 21 34 34 3d 2d  31 30 32 0d 3a 71 25 21  |:q%!44=-102.:q%!|
000036e0  34 38 3d 31 32 38 30 3a  71 25 21 35 32 3d 30 0d  |48=1280:q%!52=0.|
000036f0  0d d6 23 71 25 21 35 36  3d 26 30 30 30 30 30 30  |..#q%!56=&000000|
00003700  33 44 3a 71 25 0d 36 30  3d 26 30 30 30 30 33 30  |3D:q%.60=&000030|
00003710  30 30 0d 33 e0 1d 71 25  21 36 0d 3d 73 70 72 69  |00.3..q%!6.=spri|
00003720  74 65 61 72 65 61 25 3a  71 25 21 36 38 3d 30 0d  |tearea%:q%!68=0.|
00003730  33 ea 19 24 28 71 25 2b  37 32 29 3d 22 3c 55 6e  |3..$(q%+72)="<Un|
00003740  74 69 74 6c 0d 64 3e 22  0d 33 f4 0b 71 25 21 38  |titl.d>".3..q%!8|
00003750  34 3d 30 0d 33 fe 05 e1  0d 0d 08 04 0d 34 12 25  |4=0.3........4.%|
00003760  dd f2 63 72 65 61 74 65  77 69 6e 64 6f 77 0d 62  |..createwindow.b|
00003770  72 78 25 2c 62 72 79 25  2c 77 69 64 65 6e 74 24  |rx%,bry%,wident$|
00003780  29 0d 34 0d 1e f2 73 74  61 6e 64 61 72 64 77 69  |).4...standardwi|
00003790  6e 64 6f 77 28 62 72 78  0d 2c 62 72 79 25 29 0d  |ndow(brx.,bry%).|
000037a0  34 26 19 f2 63 72 77 69  6e 64 6f 77 28 0d 25 2c  |4&..crwindow(.%,|
000037b0  77 69 64 65 6e 74 24 29  0d 34 30 05 e1 0d 34 3a  |wident$).40...4:|
000037c0  04 0d 0d 44 1a dd f2 63  72 77 69 6e 64 6f 77 28  |...D...crwindow(|
000037d0  71 25 2c 77 69 64 65 0d  74 24 29 0d 34 4e 25 c8  |q%,wide.t$).4N%.|
000037e0  99 22 57 69 6d 70 5f 43  72 65 61 74 0d 57 69 6e  |."Wimp_Creat.Win|
000037f0  64 6f 77 22 2c 2c 71 25  b8 68 61 6e 64 6c 65 25  |dow",,q%.handle%|
00003800  0d 0d 58 41 6d 25 3d 68  61 6e 64 6c 65 53 50 25  |..XAm%=handleSP%|
00003810  3a 68 61 6e 64 6c 0d 53  50 25 3d 68 61 6e 64 6c  |:handl.SP%=handl|
00003820  65 25 28 68 61 6e 64 6c  65 53 50 0d 29 3a 68 61  |e%(handleSP.):ha|
00003830  6e 64 6c 65 25 28 6d 25  29 3d 68 61 6e 64 6c 65  |ndle%(m%)=handle|
00003840  0d 0d 34 62 0f 21 71 25  3d 68 61 6e 64 6c 65 25  |..4b.!q%=handle%|
00003850  0d 34 6c 1f c8 0d 22 57  69 6d 70 5f 47 65 74 57  |.4l..."Wimp_GetW|
00003860  69 6e 64 6f 77 53 74 61  74 65 0d 2c 2c 71 25 0d  |indowState.,,q%.|
00003870  34 76 1b c8 99 22 57 69  6d 70 5f 4f 70 65 6e 0d  |4v..."Wimp_Open.|
00003880  69 6e 64 6f 77 22 2c 2c  71 25 0d 34 80 29 63 75  |indow",,q%.4.)cu|
00003890  72 72 65 6e 0d 77 69 6e  64 6f 77 25 3d 6d 25 3a  |rren.window%=m%:|
000038a0  77 69 64 65 6e 74 24 28  6d 0d 29 3d 77 69 64 65  |wident$(m.)=wide|
000038b0  6e 74 24 0d 34 8a 13 63  75 72 72 65 6e 74 0d 63  |nt$.4..current.c|
000038c0  6f 6e 25 3d 2d 31 0d 34  94 12 f2 68 69 67 68 6c  |on%=-1.4...highl|
000038d0  69 67 68 0d 28 6d 25 29  0d 34 9e 05 e1 0d 34 a8  |igh.(m%).4....4.|
000038e0  04 0d 34 b2 1a dd a4 77  0d 69 63 68 77 69 6e 64  |..4....w.ichwind|
000038f0  6f 77 28 68 61 6e 64 6c  65 25 29 0d 34 0d 07 ea  |ow(handle%).4...|
00003900  49 25 0d 34 c6 13 e7 68  61 6e 64 6c 65 25 3d 2d  |I%.4...handle%=-|
00003910  31 8c 0d 2d 31 0d 34 d0  1a 68 61 6e 64 6c 65 25  |1..-1.4..handle%|
00003920  28 6e 68 25 2b 31 29 0d  68 61 6e 64 6c 65 25 0d  |(nh%+1).handle%.|
00003930  34 da 25 49 25 3d 2d 31  3a f5 49 25 0d 3d 31 3a  |4.%I%=-1:.I%.=1:|
00003940  fd 68 61 6e 64 6c 65 25  28 49 25 29 3d 68 61 6e  |.handle%(I%)=han|
00003950  64 0d 65 25 0d 34 e4 13  e7 49 25 3e 6e 68 25 8c  |d.e%.4...I%>nh%.|
00003960  3d 2d 31 8b 3d 49 0d 0d  34 ee 04 0d 34 f8 1a dd  |=-1.=I..4...4...|
00003970  a4 77 68 69 63 68 73 70  72 69 74 0d 28 68 61 6e  |.whichsprit.(han|
00003980  64 6c 65 25 29 0d 35 02  13 e7 68 61 6e 64 6c 65  |dle%).5...handle|
00003990  0d 3d 2d 31 8c 3d 2d 31  0d 35 0c 1b 73 70 72 69  |.=-1.=-1.5..spri|
000039a0  74 65 77 25 28 0d 73 25  2b 31 29 3d 68 61 6e 64  |tew%(.s%+1)=hand|
000039b0  6c 65 25 0d 35 16 26 49  25 3d 0d 31 3a f5 49 25  |le%.5.&I%=.1:.I%|
000039c0  2b 3d 31 3a fd 73 70 72  69 74 65 77 25 28 49 0d  |+=1:.spritew%(I.|
000039d0  29 3d 68 61 6e 64 6c 65  25 0d 35 20 13 e7 49 25  |)=handle%.5 ..I%|
000039e0  3e 6e 73 25 0d 3d 2d 31  8b 3d 49 25 0d 35 2a 04  |>ns%.=-1.=I%.5*.|
000039f0  0d 35 34 16 dd f2 64 65  6c 0d 74 65 77 69 6e 64  |.54...del.tewind|
00003a00  6f 77 28 49 25 29 0d 35  3e 13 21 71 25 3d 0d 61  |ow(I%).5>.!q%=.a|
00003a10  6e 64 6c 65 25 28 49 25  29 0d 35 48 26 68 61 6e  |ndle%(I%).5H&han|
00003a20  64 6c 65 0d 28 49 25 29  3d 68 61 6e 64 6c 65 53  |dle.(I%)=handleS|
00003a30  50 25 3a 68 61 6e 64 6c  0d 53 50 25 3d 49 25 0d  |P%:handl.SP%=I%.|
00003a40  35 52 1d c8 99 22 57 69  6d 70 5f 44 65 0d 65 74  |5R..."Wimp_De.et|
00003a50  65 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 35 5c 12  |eWindow",,q%.5\.|
00003a60  77 69 0d 65 6e 74 24 28  49 25 29 3d 22 22 0d 35  |wi.ent$(I%)="".5|
00003a70  66 05 e1 0d 35 70 04 0d  35 7a 16 dd f2 64 65 6c  |f...5p..5z...del|
00003a80  65 74 65 73 70 72 69 74  65 28 49 25 0d 0d 35 84  |etesprite(I%..5.|
00003a90  30 e7 28 28 70 61 69 6e  74 5f 64 72 61 67 25 3e  |0.((paint_drag%>|
00003aa0  3e 0d 36 29 80 26 37 46  46 46 29 3d 49 25 8c 70  |>.6).&7FFF)=I%.p|
00003ab0  61 69 6e 74 5f 64 0d 61  67 25 3d 2d 31 0d 35 8e  |aint_d.ag%=-1.5.|
00003ac0  07 ea 69 25 0d 35 98 10  e7 73 70 0d 53 50 32 25  |..i%.5...sp.SP2%|
00003ad0  3d 49 25 8c 0d 35 a2 18  73 70 72 53 50 32 25 3d  |=I%..5..sprSP2%=|
00003ae0  0d 73 70 72 69 74 65 25  28 49 25 29 0d 35 ac 2e  |.sprite%(I%).5..|
00003af0  cc 69 25 3d 73 0d 72 53  50 32 25 3a f5 69 31 25  |.i%=s.rSP2%:.i1%|
00003b00  3d 69 25 3a 69 25 3d 6e  73 70 0d 69 74 65 25 28  |=i%:i%=nsp.ite%(|
00003b10  69 25 29 3a fd 69 25 3d  49 25 0d 35 b6 1e 6e 0d  |i%):.i%=I%.5..n.|
00003b20  70 72 69 74 65 25 28 69  31 25 29 3d 6e 73 70 72  |prite%(i1%)=nspr|
00003b30  69 74 65 25 0d 69 25 29  0d 35 c0 05 cd 0d 35 ca  |ite%.i%).5....5.|
00003b40  2f f2 73 65 74 69 28 73  70 0d 69 74 65 6c 69 73  |/.seti(sp.itelis|
00003b50  74 25 2c 73 70 72 69 74  65 69 25 28 49 25 0d 84  |t%,spritei%(I%..|
00003b60  31 2c 30 2c 26 36 30 30  30 30 30 29 0d 35 d4 14  |1,0,&600000).5..|
00003b70  21 71 25 0d 73 70 72 69  74 65 77 25 28 49 25 29  |!q%.spritew%(I%)|
00003b80  0d 35 de 21 73 70 72 69  0d 65 77 25 28 49 25 29  |.5.!spri.ew%(I%)|
00003b90  3d 73 70 72 53 50 25 3a  73 70 72 53 50 0d 3d 49  |=sprSP%:sprSP.=I|
00003ba0  25 0d 35 e8 1d c8 99 22  57 69 6d 70 5f 44 65 6c  |%.5...."Wimp_Del|
00003bb0  65 74 0d 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 35  |et.Window",,q%.5|
00003bc0  f2 05 e1 0d 35 fc 04 0d  36 06 0d dd f2 67 65 74  |....5...6....get|
00003bd0  63 75 72 77 0d 36 10 1f  21 71 25 3d 0d 61 6e 64  |curw.6..!q%=.and|
00003be0  6c 65 25 28 63 75 72 72  65 6e 74 77 69 6e 64 6f  |le%(currentwindo|
00003bf0  77 0d 29 0d 36 1a 1f c8  99 22 57 69 6d 70 5f 47  |w.).6...."Wimp_G|
00003c00  65 74 57 69 6e 64 0d 77  53 74 61 74 65 22 2c 2c  |etWind.wState",,|
00003c10  71 25 0d 36 24 0f f2 69  6e 66 6f 0d 71 25 2b 34  |q%.6$..info.q%+4|
00003c20  29 0d 36 2e 05 e1 0d 36  38 04 0d 36 42 0d dd f2  |).6....68..6B...|
00003c30  0d 65 74 63 75 72 69 0d  36 4c 1f 21 71 25 3d 68  |.etcuri.6L.!q%=h|
00003c40  61 6e 64 6c 65 0d 28 63  75 72 72 65 6e 74 77 69  |andle.(currentwi|
00003c50  6e 64 6f 77 25 29 0d 36  56 15 0d 25 21 34 3d 63  |ndow%).6V..%!4=c|
00003c60  75 72 72 65 6e 74 69 63  6f 6e 25 0d 36 60 1d 0d  |urrenticon%.6`..|
00003c70  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00003c80  61 74 65 22 0d 2c 71 25  0d 36 6a 2e 63 78 30 25  |ate".,q%.6j.cx0%|
00003c90  3d 71 25 21 38 3a 63 79  30 0d 3d 71 25 21 31 32  |=q%!8:cy0.=q%!12|
00003ca0  3a 63 78 31 25 3d 71 25  21 31 36 3a 63 79 0d 25  |:cx1%=q%!16:cy.%|
00003cb0  3d 71 25 21 32 30 0d 36  74 10 66 6c 61 67 73 25  |=q%!20.6t.flags%|
00003cc0  3d 71 25 0d 32 34 0d 36  7e 2e e7 66 6c 61 67 73  |=q%.24.6~..flags|
00003cd0  25 80 26 31 30 30 8c 74  0d 78 74 24 3d 24 28 71  |%.&100.t.xt$=$(q|
00003ce0  25 21 32 38 29 8b 74 65  78 74 24 3d 24 0d 71 25  |%!28).text$=$.q%|
00003cf0  2b 32 38 29 0d 36 88 44  e7 28 66 6c 61 67 73 25  |+28).6.D.(flags%|
00003d00  80 26 0d 30 33 29 3d 26  31 30 33 8c 73 70 72 69  |.&.03)=&103.spri|
00003d10  74 65 24 3d a4 67 65 0d  63 6f 6d 6d 61 6e 64 28  |te$=.ge.command(|
00003d20  71 25 21 33 32 2c 22 53  22 29 8b 73 0d 72 69 74  |q%!32,"S").s.rit|
00003d30  65 24 3d 74 65 78 74 24  0d 36 92 05 e1 0d 36 9c  |e$=text$.6....6.|
00003d40  04 0d 36 a6 17 dd a4 67  65 74 63 6f 6d 6d 61 6e  |..6....getcomman|
00003d50  64 28 76 25 2c 63 0d 29  0d 36 b0 0e e7 76 25 3c  |d(v%,c.).6...v%<|
00003d60  3d 30 8c 3d 22 22 0d 36  ba 07 ea 0d 25 0d 36 c4  |=0.="".6....%.6.|
00003d70  21 49 25 3d a7 22 3b 22  2b 24 76 25 2c 22 3b 22  |!I%=.";"+$v%,";"|
00003d80  0d 63 24 29 3a e7 49 25  3d 30 8c 3d 22 22 0d 36  |.c$):.I%=0.="".6|
00003d90  ce 24 3d c0 24 0d 76 25  2b 49 25 29 2c a7 24 28  |.$=.$.v%+I%),.$(|
00003da0  76 25 2b 49 25 29 2b 22  3b 22 0d 22 3b 22 29 2d  |v%+I%)+";".";")-|
00003db0  31 29 0d 36 d8 04 0d 36  e2 0a 63 24 3d c1 24 0d  |1).6...6..c$=.$.|
00003dc0  0d 36 ec 04 0d 36 f6 19  dd a4 69 63 6f 6e 73 74  |.6...6....iconst|
00003dd0  72 69 6e 67 0d 66 6c 67  25 2c 70 25 29 0d 37 00  |ring.flg%,p%).7.|
00003de0  0a ea 69 25 2c 69 24 0d  37 0d 38 e7 66 6c 67 25  |..i%,i$.7.8.flg%|
00003df0  80 26 31 30 30 8c 69 24  3d 24 21 70 25 8b 0d 25  |.&100.i$=$!p%..%|
00003e00  3d 70 25 3f 31 32 3a 70  25 3f 31 32 3d 31 33 3a  |=p%?12:p%?12=13:|
00003e10  69 24 3d 0d 70 25 3a 70  25 3f 31 32 3d 69 25 0d  |i$=.p%:p%?12=i%.|
00003e20  37 14 07 3d 69 24 0d 37  0d 04 0d 37 28 10 dd f2  |7..=i$.7...7(...|
00003e30  67 65 74 70 6f 69 6e 74  65 72 0d 37 32 0d c8 99  |getpointer.72...|
00003e40  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00003e50  49 6e 0d 6f 22 2c 2c 71  25 0d 37 3c 2a 6d 6f 75  |In.o",,q%.7<*mou|
00003e60  73 65 78 25 3d 21 71 0d  3a 6d 6f 75 73 65 79 25  |sex%=!q.:mousey%|
00003e70  3d 71 25 21 34 3a 62 75  74 74 6f 6e 0d 25 3d 71  |=q%!4:button.%=q|
00003e80  25 21 38 0d 37 46 1d 68  61 6e 64 6c 65 25 3d 71  |%!8.7F.handle%=q|
00003e90  25 0d 31 32 3a 69 63 6f  6e 25 3d 71 25 21 31 36  |%.12:icon%=q%!16|
00003ea0  0d 37 50 05 e1 0d 0d 5a  04 0d 37 64 52 2d 2d 2d  |.7P....Z..7dR---|
00003eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 2d 2d 2d 2d  |-----------.----|
00003ec0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003ed0  0d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
00003ee0  2d 2d 2d 2d 2d 0d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |-----.----------|
00003ef0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0d 37 6e 04 0d  |----------..7n..|
00003f00  37 78 1e dd f2 65 72 72  6f 72 62 6f 78 28 65 0d  |7x...errorbox(e.|
00003f10  72 25 2c 65 72 72 24 2c  65 72 6c 25 29 0d 37 82  |r%,err$,erl%).7.|
00003f20  10 f2 65 64 0d 74 6f 66  66 28 22 22 29 0d 37 8c  |..ed.toff("").7.|
00003f30  21 45 72 72 25 3d 65 72  72 0d 3a 45 72 72 24 3d  |!Err%=err.:Err$=|
00003f40  65 72 72 24 3a 45 72 6c  25 3d 65 72 6c 25 0d 37  |err$:Erl%=erl%.7|
00003f50  96 2f e7 69 6e 65 72 72  6f 72 25 84 a6 2d 31 8c  |./.inerror%..-1.|
00003f60  f2 65 72 0d 6f 72 64 69  73 70 6c 61 79 28 65 72  |.er.ordisplay(er|
00003f70  72 25 2c 65 72 72 24 2c  0d 72 6c 25 29 0d 37 a0  |r%,err$,.rl%).7.|
00003f80  0e 69 6e 65 72 72 6f 72  25 3d b9 0d 37 0d 2e c8  |.inerror%=..7...|
00003f90  99 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  |."Wimp_DragBox",|
00003fa0  2c 2d 0d 3a 64 72 61 67  74 79 70 65 25 3d 30 3a  |,-.:dragtype%=0:|
00003fb0  70 64 72 61 67 25 3d 0d  31 0d 37 b4 24 e7 64 69  |pdrag%=.1.7.$.di|
00003fc0  61 6c 6f 67 75 65 25 3c  3e 2d 31 8c 0d 63 6c 6f  |alogue%<>-1..clo|
00003fd0  73 65 28 64 69 61 6c 6f  67 75 65 25 29 0d 37 be  |se(dialogue%).7.|
00003fe0  12 0d 76 65 72 73 69 6f  6e 25 3e 31 32 30 8c 0d  |..version%>120..|
00003ff0  37 c8 0f de 65 72 0d 62  75 66 25 32 35 35 0d 37  |7...er.buf%255.7|
00004000  d2 36 21 65 72 72 62 75  66 25 3d 0d 72 72 25 3a  |.6!errbuf%=.rr%:|
00004010  24 28 65 72 72 62 75 66  25 2b 34 29 3d 65 72 72  |$(errbuf%+4)=err|
00004020  0d 3a 3f 28 65 72 72 62  75 66 25 2b 34 2b a9 f6  |.:?(errbuf%+4+..|
00004030  24 29 3d 30 0d 0d dc 2b  c8 99 22 57 69 6d 70 5f  |$)=0...+.."Wimp_|
00004040  52 65 70 6f 72 74 45 72  72 6f 0d 22 2c 65 72 72  |ReportErro.",err|
00004050  62 75 66 25 2c 31 2c 22  46 6f 72 6d 45 64 22 0d  |buf%,1,"FormEd".|
00004060  37 e6 0e cc ef 34 3a f1  65 72 72 24 3b 0d 37 f0  |7....4:.err$;.7.|
00004070  1e e7 65 72 0d 25 3c 3e  30 8c f1 22 20 61 74 20  |..er.%<>0.." at |
00004080  6c 69 6e 65 20 22 3b 65  72 0d 25 0d 37 fa 06 e7  |line ";er.%.7...|
00004090  a5 0d 38 04 2d c8 99 22  57 69 6d 70 5f 46 0d 72  |..8.-.."Wimp_F.r|
000040a0  63 65 52 65 64 72 61 77  22 2c 2d 31 2c 2d 31 45  |ceRedraw",-1,-1E|
000040b0  38 2c 2d 0d 45 38 2c 31  45 38 2c 31 45 38 0d 38  |8,-.E8,1E8,1E8.8|
000040c0  0e 05 cd 0d 38 18 0e 69  0d 65 72 72 6f 72 25 3d  |....8..i.error%=|
000040d0  a3 0d 38 22 05 e1 0d 38  2c 04 0d 38 36 0d f4 20  |..8"...8,..86.. |
000040e0  2f 2f 2f 20 6f 6c 64 20  65 72 72 6f 72 62 6f 78  |/// old errorbox|
000040f0  20 68 0d 6e 64 6c 69 6e  67 20 2f 2f 2f 0d 38 40  | h.ndling ///.8@|
00004100  0b e3 49 25 3d 31 b8 0d  0d 38 4a 33 21 71 25 3d  |..I%=1...8J3!q%=|
00004110  65 72 72 6f 72 62 6f 78  25 3a 71 25 0d 34 3d 49  |errorbox%:q%.4=I|
00004120  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00004130  6e 0d 74 61 74 65 22 2c  2c 71 25 0d 38 54 1a 65  |n.tate",,q%.8T.e|
00004140  72 72 6f 72 61 64 0d 72  25 28 49 25 29 3d 71 25  |rrorad.r%(I%)=q%|
00004150  21 32 38 3a ed 0d 38 5e  20 e3 49 0d 3d 31 b8 34  |!28:..8^ .I.=1.4|
00004160  3a 3f 65 72 72 6f 72 61  64 64 72 25 28 49 25 29  |:?erroraddr%(I%)|
00004170  0d 31 33 3a ed 0d 38 68  1d 6d 65 6e 75 24 3d 65  |.13:..8h.menu$=e|
00004180  72 72 24 3a 49 0d 3d 31  3a 4a 25 3d 30 3a 69 25  |rr$:I.=1:J%=0:i%|
00004190  3d 30 0d 38 72 11 f5 77  24 3d 0d 70 61 72 28 22  |=0.8r..w$=.par("|
000041a0  20 22 29 0d 38 7c 3b e7  4a 25 3e 30 e7 4a 25 0d  | ").8|;.J%>0.J%.|
000041b0  31 2b a9 77 24 3e 31 39  8c 49 25 2b 3d 31 3a 4a  |1+.w$>19.I%+=1:J|
000041c0  25 3d 30 3a 0d 49 25 3e  34 8c 85 31 2c 22 45 72  |%=0:.I%>4..1,"Er|
000041d0  72 6f 72 20 74 6f 6f 20  62 0d 67 22 3a fa 0d 38  |ror too b.g":..8|
000041e0  86 13 e7 4a 25 3e 30 8c  77 24 3d 22 20 22 0d 77  |...J%>0.w$=" ".w|
000041f0  24 0d 38 90 23 24 28 65  72 72 6f 72 61 64 64 72  |$.8.#$(erroraddr|
00004200  25 28 49 0d 29 2b 4a 25  29 3d 77 24 3a 4a 25 2b  |%(I.)+J%)=w$:J%+|
00004210  3d a9 77 24 0d 38 9a 11  0d 77 24 3d 22 22 84 77  |=.w$.8...w$="".w|
00004220  24 3d 22 20 22 0d 38 a4  20 f2 64 69 61 0d 6f 67  |$=" ".8. .dia.og|
00004230  75 65 28 65 72 72 6f 72  62 6f 78 25 2c 33 30 30  |ue(errorbox%,300|
00004240  2c 36 0d 30 29 0d 38 ae  05 e1 0d 38 b8 04 0d 38  |,6.0).8....8...8|
00004250  c2 22 dd f2 65 72 72 0d  72 64 69 73 70 6c 61 79  |."..err.rdisplay|
00004260  28 65 72 72 25 2c 65 72  72 24 2c 65 0d 6c 25 29  |(err%,err$,e.l%)|
00004270  0d 38 cc 07 ee 85 87 0d  38 d6 12 e7 76 65 72 73  |.8......8...vers|
00004280  69 0d 6e 25 3e 31 32 30  8c 0d 38 e0 0f de 65 72  |i.n%>120..8...er|
00004290  72 62 75 66 25 32 0d 35  0d 38 ea 36 21 65 72 72  |rbuf%2.5.8.6!err|
000042a0  62 75 66 25 3d 65 72 72  25 3a 24 0d 65 72 72 62  |buf%=err%:$.errb|
000042b0  75 66 25 2b 34 29 3d 65  72 72 24 3a 3f 28 65 72  |uf%+4)=err$:?(er|
000042c0  0d 62 75 66 25 2b 34 2b  a9 f6 24 29 3d 30 0d 38  |.buf%+4+..$)=0.8|
000042d0  f4 2b c8 99 22 0d 69 6d  70 5f 52 65 70 6f 72 74  |.+..".imp_Report|
000042e0  45 72 72 6f 72 22 2c 65  72 72 0d 75 66 25 2c 32  |Error",err.uf%,2|
000042f0  2c 22 46 6f 72 6d 45 64  22 0d 38 fe 0e cc ef 0d  |,"FormEd".8.....|
00004300  3a f1 65 72 72 24 3b 0d  39 08 1e e7 65 72 6c 25  |:.err$;.9...erl%|
00004310  3c 3e 30 8c 0d 22 20 61  74 20 6c 69 6e 65 20 22  |<>0.." at line "|
00004320  3b 65 72 6c 25 0d 39 12  05 0d 0d 39 1c 0b f2 66  |;erl%.9....9...f|
00004330  69 6e 69 73 68 0d 39 26  05 e0 0d 39 30 04 0d 39  |inish.9&...90..9|
00004340  3a 0c dd f2 66 69 6e 69  73 68 0d 39 44 0d e3 49  |:...finish.9D..I|
00004350  25 3d 30 0d 32 35 35 0d  39 4e 3f c8 95 66 6f 6e  |%=0.255.9N?..fon|
00004360  74 63 6f 75 6e 74 73 25  0d 49 25 3e 30 3a c8 99  |tcounts%.I%>0:..|
00004370  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 0d 22 2c  |"Font_LoseFon.",|
00004380  49 25 3a 66 6f 6e 74 63  6f 75 6e 74 73 25 3f 49  |I%:fontcounts%?I|
00004390  25 2d 0d 31 3a ce 0d 39  58 05 ed 0d 39 62 0e e7  |%-.1:..9X...9b..|
000043a0  62 6f 64 67 65 69 74 0d  8c 0d 39 6c 2d e3 49 25  |bodgeit...9l-.I%|
000043b0  3d 31 b8 38 3a c8 99 22  4f 53 5f 42 0d 74 65 22  |=1.8:.."OS_B.te"|
000043c0  2c 49 25 2b 32 32 30 2c  6f 6c 64 66 78 25 28 49  |,I%+220,oldfx%(I|
000043d0  25 0d 2c 30 3a ed 0d 39  76 1f c8 99 22 4f 53 5f  |%.,0:..9v..."OS_|
000043e0  42 79 74 65 22 2c 0d 31  39 2c 6f 6c 64 66 78 32  |Byte",.19,oldfx2|
000043f0  31 39 25 2c 30 0d 39 80  17 cc c8 0d 22 57 69 6d  |19%,0.9....."Wim|
00004400  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 39 8a 05  |p_CloseDown".9..|
00004410  0d 0d 39 94 29 e7 76 65  72 73 69 6f 6e 25 3c 31  |..9.).version%<1|
00004420  32 30 8c ef 34 0d 32 36  2c 33 30 2c 31 37 2c 26  |20..4.26,30,17,&|
00004430  38 46 2c 31 37 2c 30 2c  31 32 0d 39 9e 05 e1 0d  |8F,17,0,12.9....|
00004440  39 a8 04 0d 39 b2 0f f4  20 2a 46 58 20 32 32 0d  |9...9... *FX 22.|
00004450  20 31 0d 39 bc 28 f4 20  4f 53 43 4c 49 22 4b 65  | 1.9.(. OSCLI"Ke|
00004460  79 20 39 20 0d 49 53 54  20 22 2b 53 54 52 24 65  |y 9 .IST "+STR$e|
00004470  72 6c 25 2b 22 7c 4b 7c  4d 0d 0d 39 c6 0e f4 20  |rl%+"|K|M..9... |
00004480  2a 46 58 20 31 35 20 31  0d 39 d0 23 f4 20 0d 46  |*FX 15 1.9.#. .F|
00004490  20 65 72 6c 25 3c 3e 30  20 54 48 45 4e 20 2a 46  | erl%<>0 THEN *F|
000044a0  58 20 31 0d 38 20 30 20  31 33 37 0d 39 da 09 f4  |X 1.8 0 137.9...|
000044b0  20 45 4e 44 0d 39 e4 04  0d 39 ee 52 2d 2d 2d 2d  | END.9...9.R----|
000044c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 2d 2d  |-------------.--|
000044d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000044e0  2d 2d 0d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |--.-------------|
000044f0  2d 2d 2d 2d 2d 2d 2d 0d  2d 2d 2d 2d 2d 2d 2d 2d  |-------.--------|
00004500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 39 0d 04 0d 3a  |----------.9...:|
00004510  02 13 dd a4 77 6f 72 6b  73 70 61 63 65 28 4c 25  |....workspace(L%|
00004520  29 0d 3a 0c 3a e7 63 75  72 62 75 66 66 25 2b 4c  |).:.:.curbuff%+L|
00004530  25 3e 62 75 66 66 0d 72  25 2b 6d 61 78 62 75 66  |%>buff.r%+maxbuf|
00004540  25 8c 85 31 2c 22 4e 6f  20 6d 6f 0d 65 20 62 75  |%..1,"No mo.e bu|
00004550  66 66 65 72 20 73 70 61  63 65 22 0d 3a 16 1d 63  |ffer space".:..c|
00004560  0d 72 62 75 66 66 25 2b  3d 4c 25 3a 3d 63 75 72  |.rbuff%+=L%:=cur|
00004570  62 75 66 66 25 0d 4c 25  0d 3a 20 04 0d 3a 2a 52  |buff%.L%.: ..:*R|
00004580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 2d 2d 2d 2d 2d  |----------.-----|
00004590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000045a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000045b0  2d 2d 2d 2d 0d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----.-----------|
000045c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 2d 2d 2d 2d 0d 3a  |---------.----.:|
000045d0  34 04 0d 3a 3e 14 dd a4  66 69 6e 64 66 6f 0d 74  |4..:>...findfo.t|
000045e0  28 66 24 2c 70 29 0d 3a  48 07 ea 66 25 0d 3a 52  |(f$,p).:H..f%.:R|
000045f0  2a c8 99 0d 46 6f 6e 74  5f 46 69 6e 64 46 6f 6e  |*...Font_FindFon|
00004600  74 22 2c 2c 66 24 2c 70  0d 31 36 2c 70 2a 31 36  |t",,f$,p.16,p*16|
00004610  2c 30 2c 30 b8 66 25 0d  3a 5c 15 66 6f 0d 74 63  |,0,0.f%.:\.fo.tc|
00004620  6f 75 6e 74 73 25 3f 66  25 2b 3d 31 0d 3a 66 36  |ounts%?f%+=1.:f6|
00004630  e7 66 0d 6e 74 63 6f 75  6e 74 73 25 3f 66 25 3e  |.f.ntcounts%?f%>|
00004640  3d 32 35 35 8c 85 31 0d  22 49 6e 74 65 72 6e 61  |=255..1."Interna|
00004650  6c 20 66 6f 6e 74 20 74  61 62 6c 65 0d 66 75 6c  |l font table.ful|
00004660  6c 22 0d 3a 70 07 3d 66  25 0d 3a 7a 04 0d 3a 84  |l".:p.=f%.:z..:.|
00004670  52 0d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |R.--------------|
00004680  2d 2d 2d 2d 2d 2d 0d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |------.---------|
00004690  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 2d 2d 2d 2d  |-----------.----|
000046a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000046b0  0d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |.--------------.|
000046c0  3a 8e 04 0d 3a 0d 10 dd  f2 73 70 72 69 74 65 69  |:...:....spritei|
000046d0  6e 66 6f 0d 3a a2 07 ea  49 25 0d 3a ac 37 49 25  |nfo.:...I%.:.7I%|
000046e0  3d 71 25 2b 34 3a c8 99  22 57 69 6d 70 5f 57 0d  |=q%+4:.."Wimp_W.|
000046f0  69 63 68 49 63 6f 6e 22  2c 73 70 72 69 74 65 6c  |ichIcon",spritel|
00004700  69 73 74 25 0d 49 25 2c  26 38 30 30 30 30 30 2c  |ist%.I%,&800000,|
00004710  30 0d 3a b6 41 c8 95 21  49 0d 3c 3e 2d 31 3a 49  |0.:.A..!I.<>-1:I|
00004720  25 21 2d 34 3d 73 70 72  69 74 65 6c 69 73 0d 25  |%!-4=spritelis.%|
00004730  3a c8 99 22 57 69 6d 70  5f 44 65 6c 65 74 65 49  |:.."Wimp_DeleteI|
00004740  63 6f 6e 0d 2c 2c 49 25  2d 34 3a 49 25 2b 3d 34  |con.,,I%-4:I%+=4|
00004750  3a ce 0d 3a c0 39 69 25  0d 73 70 72 53 50 32 25  |:..:.9i%.sprSP2%|
00004760  3a c8 95 69 25 3c 3e 2d  31 3a 73 70 72 0d 74 65  |:..i%<>-1:spr.te|
00004770  69 25 28 69 25 29 3d 2d  31 3a 69 25 3d 6e 73 70  |i%(i%)=-1:i%=nsp|
00004780  72 69 0d 65 25 28 69 25  29 3a ce 0d 3a ca 2c 21  |ri.e%(i%):..:.,!|
00004790  71 25 3d 73 70 72 69 0d  65 6c 69 73 74 25 3a c8  |q%=spri.elist%:.|
000047a0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 0d 69 6e 64  |."Wimp_Close.ind|
000047b0  6f 77 22 2c 2c 71 25 0d  3a d4 20 24 73 70 72 69  |ow",,q%.:. $spri|
000047c0  74 0d 66 25 3d a4 73 70  66 6e 61 6d 65 28 73 70  |t.f%=.spfname(sp|
000047d0  72 69 74 65 66 24 0d 0d  3a de 31 c8 99 22 4f 53  |ritef$..:.1.."OS|
000047e0  5f 53 70 72 69 74 65 4f  70 22 2c 0d 31 30 38 2c  |_SpriteOp",.108,|
000047f0  73 70 72 69 74 65 61 72  65 61 25 b8 2c 2c 2c 6e  |spritearea%.,,,n|
00004800  0d 70 72 69 74 65 73 25  0d 3a e8 3f 6d 61 78 73  |.prites%.:.?maxs|
00004810  70 77 69 64 74 0d 25 3d  73 63 72 78 31 25 2d 38  |pwidt.%=scrx1%-8|
00004820  30 3a 63 75 72 78 25 3d  30 3a 0d 75 72 79 25 3d  |0:curx%=0:.ury%=|
00004830  30 3a 6d 61 78 77 25 3d  30 3a 6d 61 78 68 25 0d  |0:maxw%=0:maxh%.|
00004840  30 3a 69 78 25 3d 30 0d  3a f2 11 e7 6e 73 70 72  |0:ix%=0.:...nspr|
00004850  69 74 65 73 0d 3e 30 8c  0d 3a fc 13 e3 49 25 3d  |ites.>0..:...I%=|
00004860  31 b8 6e 73 70 72 69 74  65 0d 25 0d 3b 06 13 f2  |1.nsprite.%.;...|
00004870  72 65 61 64 73 70 72 69  74 65 28 49 25 29 0d 3b  |readsprite(I%).;|
00004880  10 45 66 6c 61 67 73 25  3d 26 31 37 30 31 41 34  |.Eflags%=&1701A4|
00004890  32 39 3a 0d 65 78 74 24  3d 24 73 70 72 69 74 65  |29:.ext$=$sprite|
000048a0  6e 61 6d 65 25 3a f2 67  0d 74 6d 69 6e 78 79 28  |name%:.g.tminxy(|
000048b0  66 6c 61 67 73 25 2c 74  65 78 74 24 2c 0d 65 78  |flags%,text$,.ex|
000048c0  74 24 29 0d 3b 1a 2c e7  6d 69 6e 78 25 3e 73 70  |t$).;.,.minx%>sp|
000048d0  77 25 0d 73 70 77 78 25  3d 6d 69 6e 78 25 2b 33  |w%.spwx%=minx%+3|
000048e0  32 8b 73 70 77 78 25 0d  73 70 77 25 2b 33 32 0d  |2.spwx%.spw%+32.|
000048f0  3b 24 2b e7 63 75 72 78  25 2b 73 70 0d 78 25 3e  |;$+.curx%+sp.x%>|
00004900  6d 61 78 73 70 77 69 64  74 68 25 8c f2 6c 69 6e  |maxspwidth%..lin|
00004910  65 0d 66 73 70 72 69 74  65 73 0d 3b 2e 14 73 70  |e.fsprites.;..sp|
00004920  77 78 25 28 69 78 0d 29  3d 73 70 77 78 25 0d 3b  |wx%(ix.)=spwx%.;|
00004930  38 32 e7 2d 33 32 2d 73  70 68 25 0d 6d 69 6e 79  |82.-32-sph%.miny|
00004940  25 2d 38 3c 6d 61 78 68  25 8c 6d 61 78 68 25 3d  |%-8<maxh%.maxh%=|
00004950  0d 33 32 2d 73 70 68 25  2d 6d 69 6e 79 25 2d 38  |.32-sph%-miny%-8|
00004960  0d 3b 42 43 73 0d 77 25  28 69 78 25 29 3d 73 70  |.;BCs.w%(ix%)=sp|
00004970  77 25 3a 73 70 68 25 28  69 78 0d 29 3d 73 70 68  |w%:sph%(ix.)=sph|
00004980  25 3a 6d 69 6e 78 25 28  69 78 25 29 3d 6d 69 0d  |%:minx%(ix%)=mi.|
00004990  78 25 3a 6d 69 6e 79 25  28 69 78 25 29 3d 6d 69  |x%:miny%(ix%)=mi|
000049a0  6e 79 25 0d 0d 4c 1d 73  70 6e 61 6d 65 24 28 69  |ny%..L.spname$(i|
000049b0  78 25 29 3d 24 73 70 72  69 0d 65 6e 61 6d 65 25  |x%)=$spri.ename%|
000049c0  0d 3b 56 1c 63 75 72 78  25 2b 3d 73 70 77 0d 25  |.;V.curx%+=spw.%|
000049d0  28 69 78 25 29 3a 69 78  25 2b 3d 31 0d 3b 60 05  |(ix%):ix%+=1.;`.|
000049e0  ed 0d 3b 0d 12 f2 6c 69  6e 65 6f 66 73 70 72 69  |..;...lineofspri|
000049f0  74 65 73 0d 3b 74 05 cd  0d 3b 7e 27 21 71 25 3d  |tes.;t...;~'!q%=|
00004a00  30 3a 71 25 21 34 3d 63  75 72 79 25 3a 0d 25 21  |0:q%!4=cury%:.%!|
00004a10  38 3d 6d 61 78 77 25 3a  71 25 21 31 32 3d 30 0d  |8=maxw%:q%!12=0.|
00004a20  3b 88 0d c8 99 22 57 69  6d 70 5f 53 65 74 45 78  |;...."Wimp_SetEx|
00004a30  74 65 6e 74 22 2c 73 0d  72 69 74 65 6c 69 73 74  |tent",s.ritelist|
00004a40  25 2c 71 25 0d 3b 92 17  f2 66 72 6f 0d 74 28 73  |%,q%.;...fro.t(s|
00004a50  70 72 69 74 65 6c 69 73  74 25 29 0d 3b 9c 17 69  |pritelist%).;..i|
00004a60  25 0d 73 70 72 53 50 32  25 3a c8 95 69 25 3c 3e  |%.sprSP2%:..i%<>|
00004a70  2d 31 0d 3b a6 14 0d 32  25 3d 6e 73 70 72 69 74  |-1.;...2%=nsprit|
00004a80  65 25 28 69 25 29 0d 3b  b0 18 f2 0d 6c 6f 73 65  |e%(i%).;....lose|
00004a90  28 73 70 72 69 74 65 77  25 28 69 25 29 29 0d 3b  |(spritew%(i%)).;|
00004aa0  0d 2e e7 73 70 72 69 74  65 69 25 28 69 25 29 3e  |...spritei%(i%)>|
00004ab0  3d 30 8c f2 6f 0d 65 6e  73 70 72 69 74 65 28 73  |=0..o.ensprite(s|
00004ac0  70 72 69 74 65 69 25 28  69 25 0d 29 0d 3b c4 0c  |pritei%(i%.).;..|
00004ad0  69 25 3d 69 32 25 3a ce  0d 3b ce 35 c8 99 22 0d  |i%=i2%:..;.5..".|
00004ae0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00004af0  2c 73 70 72 0d 74 65 6c  69 73 74 25 2c 30 2c 2d  |,spr.telist%,0,-|
00004b00  33 30 30 30 30 2c 33 30  30 0d 30 2c 30 0d 3b d8  |30000,300.0,0.;.|
00004b10  05 e1 0d 3b e2 04 0d 3b  ec 12 dd a4 73 70 0d 6e  |...;...;....sp.n|
00004b20  61 6d 65 28 73 70 24 29  0d 3b f6 3c e7 a9 73 70  |ame(sp$).;.<..sp|
00004b30  24 3e 73 0d 66 6c 65 6e  25 2d 32 8c 3d 22 27 2e  |$>s.flen%-2.="'.|
00004b40  2e 2e 22 2b c2 73 70 24  0d 73 70 66 6c 65 6e 25  |.."+.sp$.spflen%|
00004b50  2d 35 29 2b 22 27 22 8b  3d 22 27 22 2b 0d 70 24  |-5)+"'".="'"+.p$|
00004b60  2b 22 27 22 0d 3c 00 04  0d 3c 0a 13 dd f2 6c 69  |+"'".<...<....li|
00004b70  6e 65 0d 66 73 70 72 69  74 65 73 0d 3c 14 20 63  |ne.fsprites.<. c|
00004b80  75 72 78 25 3d 30 3a 0d  75 72 79 25 2b 3d 6d 61  |urx%=0:.ury%+=ma|
00004b90  78 68 25 3a 6d 61 78 68  25 3d 30 0d 0d 1e 0b e7  |xh%:maxh%=0.....|
00004ba0  69 78 25 3e 30 8c 0d 3c  28 0f e3 4a 25 3d 30 b8  |ix%>0..<(..J%=0.|
00004bb0  69 0d 25 2d 31 0d 3c 32  4d 21 71 25 3d 73 70 72  |i.%-1.<2M!q%=spr|
00004bc0  69 74 65 6c 69 73 0d 25  3a 71 25 21 34 3d 63 75  |itelis.%:q%!4=cu|
00004bd0  72 78 25 2b 28 73 70 77  78 25 28 0d 25 29 2d 73  |rx%+(spwx%(.%)-s|
00004be0  70 77 25 28 4a 25 29 29  81 32 3a 71 25 21 38 3d  |pw%(J%)).2:q%!8=|
00004bf0  0d 75 72 79 25 2b 6d 69  6e 79 25 28 4a 25 29 2b  |.ury%+miny%(J%)+|
00004c00  31 36 0d 3c 3c 0d 71 25  21 31 32 3d 63 75 72 78  |16.<<.q%!12=curx|
00004c10  25 2b 28 73 70 77 78 25  28 4a 0d 29 2b 73 70 77  |%+(spwx%(J.)+spw|
00004c20  25 28 4a 25 29 29 81 32  3a 71 25 21 31 36 3d 0d  |%(J%)).2:q%!16=.|
00004c30  75 72 79 25 2b 6d 69 6e  79 25 28 4a 25 29 2b 31  |ury%+miny%(J%)+1|
00004c40  36 2b 73 70 0d 25 28 4a  25 29 2b 31 36 0d 3c 46  |6+sp.%(J%)+16.<F|
00004c50  20 71 25 21 32 30 3d a4  73 0d 72 66 6c 61 67 73  | q%!20=.s.rflags|
00004c60  28 73 70 6e 61 6d 65 24  28 4a 25 29 29 0d 0d 50  |(spname$(J%))..P|
00004c70  34 24 28 71 25 2b 32 34  29 3d 73 70 6e 61 6d 65  |4$(q%+24)=spname|
00004c80  24 28 4a 0d 29 3a c8 99  22 57 69 6d 70 5f 43 72  |$(J.):.."Wimp_Cr|
00004c90  65 61 74 65 49 63 6f 6e  0d 2c 2c 71 25 b8 69 63  |eateIcon.,,q%.ic|
00004ca0  25 0d 3c 5a 18 66 25 3d  66 6c 61 67 73 0d 3a 69  |%.<Z.f%=flags.:i|
00004cb0  25 3d 73 70 72 53 50 32  25 0d 3c 64 45 c8 95 69  |%=sprSP2%.<dE..i|
00004cc0  25 3c 0d 2d 31 3a e7 73  70 72 69 74 65 6e 24 28  |%<.-1:.spriten$(|
00004cd0  69 25 29 3d 73 70 6e 0d  6d 65 24 28 4a 25 29 8c  |i%)=spn.me$(J%).|
00004ce0  66 25 3d 66 25 84 26 34  30 30 30 30 0d 3a 73 70  |f%=f%.&40000.:sp|
00004cf0  72 69 74 65 69 25 28 69  25 29 3d 69 63 25 0d 3c  |ritei%(i%)=ic%.<|
00004d00  6e 0d 69 25 3d 6e 73 70  72 69 74 65 25 28 69 25  |n.i%=nsprite%(i%|
00004d10  29 3a ce 0d 3c 78 0d 21  71 25 3d 73 70 72 69 74  |):..<x.!q%=sprit|
00004d20  65 6c 69 73 74 25 3a 71  25 21 34 0d 63 75 72 78  |elist%:q%!4.curx|
00004d30  25 2b 28 73 70 77 78 25  28 4a 25 29 2d 6d 69 6e  |%+(spwx%(J%)-min|
00004d40  0d 25 28 4a 25 29 29 81  32 3a 71 25 21 38 3d 63  |.%(J%)).2:q%!8=c|
00004d50  75 72 79 25 2b 31 36 0d  3c 82 40 71 25 21 31 32  |ury%+16.<.@q%!12|
00004d60  3d 63 75 72 78 25 2b 28  73 70 77 78 25 28 4a 25  |=curx%+(spwx%(J%|
00004d70  29 2b 6d 69 6e 78 25 28  4a 25 29 29 81 32 3a 71  |)+minx%(J%)).2:q|
00004d80  25 21 31 36 3d 63 75 72  79 25 2b 6d 69 6e 79 25  |%!16=cury%+miny%|
00004d90  28 4a 25 29 2b 31 36 0d  3c 8c 39 71 25 21 32 30  |(J%)+16.<.9q%!20|
00004da0  3d 66 25 3a 24 28 71 25  2b 32 34 29 3d 73 70 6e  |=f%:$(q%+24)=spn|
00004db0  61 6d 65 24 28 4a 25 29  3a c8 99 22 57 69 0d 70  |ame$(J%):.."Wi.p|
00004dc0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 71 25  |_CreateIcon",,q%|
00004dd0  0d 3c 96 0d 63 75 72 78  25 2b 3d 73 70 77 78 25  |.<..curx%+=spwx%|
00004de0  28 4a 25 29 0d 3c a0 05  0d 0d 3c aa 05 cd 0d 3c  |(J%).<....<....<|
00004df0  b4 1c e7 63 75 72 78 25  3e 6d 61 78 77 0d 8c 6d  |...curx%>maxw..m|
00004e00  61 78 77 25 3d 63 75 72  78 25 0d 3c be 11 69 78  |axw%=curx%.<..ix|
00004e10  25 3d 0d 3a 63 75 72 78  25 3d 30 0d 3c c8 05 e1  |%=.:curx%=0.<...|
00004e20  0d 3c d2 04 0d 3c dc 0d  dd a4 73 70 72 66 6c 61  |.<...<....sprfla|
00004e30  67 73 28 73 70 24 29 0d  3c e6 36 c8 0d 22 4f 53  |gs(sp$).<.6.."OS|
00004e40  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 38 2c  |_SpriteOp",&128,|
00004e50  73 0d 72 69 74 65 61 72  65 61 25 2c 73 70 24 b8  |s.ritearea%,sp$.|
00004e60  2c 2c 2c 2c 2c 68 0d 73  6d 61 73 6b 25 0d 3c f0  |,,,,,h.smask%.<.|
00004e70  23 e7 68 61 73 6d 61 73  6b 25 8c 0d 26 31 37 30  |#.hasmask%..&170|
00004e80  31 41 30 33 32 8b 3d 26  31 37 30 31 41 30 31 32  |1A032.=&1701A012|
00004e90  0d 3c fa 04 0d 3d 04 14  dd f2 72 65 61 64 73 70  |.<...=....readsp|
00004ea0  72 69 74 65 28 0d 25 29  0d 3d 0e 16 ea 53 25 3a  |rite(.%).=...S%:|
00004eb0  53 25 3d 73 70 72 69 74  65 61 0d 65 61 25 0d 3d  |S%=spritea.ea%.=|
00004ec0  18 4d c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 0d  |.M.."OS_SpriteO.|
00004ed0  22 2c 26 31 30 44 2c 53  25 2c 73 70 72 69 74 65  |",&10D,S%,sprite|
00004ee0  6e 61 6d 65 0d 2c 31 32  2c 49 25 b8 2c 2c 2c 73  |name.,12,I%.,,,s|
00004ef0  70 6c 65 6e 25 3a 73 70  72 0d 74 65 6e 61 6d 65  |plen%:spr.tename|
00004f00  25 3f 73 70 6c 65 6e 25  3d 31 33 0d 3d 22 0d c8  |%?splen%=13.="..|
00004f10  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00004f20  31 32 38 0d 53 25 2c 73  70 72 69 74 65 6e 61 6d  |128.S%,spritenam|
00004f30  65 25 b8 2c 2c 2c 73 70  0d 25 2c 73 70 68 25 2c  |e%.,,,sp.%,sph%,|
00004f40  68 61 73 6d 61 73 6b 25  2c 73 70 6d 25 0d 3d 2c  |hasmask%,spm%.=,|
00004f50  39 c8 99 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |9.."OS_ReadModeV|
00004f60  61 72 0d 61 62 6c 65 22  2c 73 70 6d 25 2c 34 b8  |ar.able",spm%,4.|
00004f70  2c 2c 73 70 78 25 3a 0d  70 77 25 3d 73 70 77 25  |,,spx%:.pw%=spw%|
00004f80  3c 3c 73 70 78 25 0d 3d  36 39 c8 99 0d 4f 53 5f  |<<spx%.=69...OS_|
00004f90  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00004fa0  22 0d 73 70 6d 25 2c 35  b8 2c 2c 73 70 79 25 3a  |".spm%,5.,,spy%:|
00004fb0  73 70 68 25 3d 73 0d 68  25 3c 3c 73 70 79 25 0d  |sph%=s.h%<<spy%.|
00004fc0  3d 40 05 e1 0d 3d 4a 04  0d 3d 54 0d dd f2 64 65  |=@...=J..=T...de|
00004fd0  73 65 6c 65 63 74 73 70  72 69 74 65 73 0d 3d 5e  |selectsprites.=^|
00004fe0  0d 49 25 3d 71 25 2b 31  36 0d 3d 68 35 c8 99 22  |.I%=q%+16.=h5.."|
00004ff0  57 69 6d 70 5f 0d 68 69  63 68 49 63 6f 6e 22 2c  |Wimp_.hichIcon",|
00005000  73 70 72 69 74 65 6c 69  73 74 0d 2c 49 25 2c 26  |spritelist.,I%,&|
00005010  32 30 30 30 30 30 2c 26  32 30 30 30 30 30 0d 0d  |200000,&200000..|
00005020  72 2f c8 95 21 49 25 3e  2d 31 3a f2 64 65 73 65  |r/..!I%>-1:.dese|
00005030  6c 65 63 74 0d 73 70 72  69 74 65 6c 69 73 74 25  |lect.spritelist%|
00005040  2c 21 49 25 29 3a 49 25  2b 0d 34 3a ce 0d 3d 7c  |,!I%):I%+.4:..=||
00005050  05 e1 0d 3d 86 04 0d 3d  90 17 dd f2 6f 70 0d 6e  |...=...=....op.n|
00005060  73 70 72 69 74 65 28 69  63 6f 6e 25 29 0d 3d 9a  |sprite(icon%).=.|
00005070  2b e7 73 0d 72 53 50 25  3d 2d 31 8c 85 31 2c 22  |+.s.rSP%=-1..1,"|
00005080  4e 6f 20 6d 6f 72 65 20  0d 70 72 69 74 65 20 77  |No more .prite w|
00005090  69 6e 64 6f 77 73 21 22  0d 3d a4 1e f2 0d 65 74  |indows!".=....et|
000050a0  69 28 73 70 72 69 74 65  6c 69 73 74 25 2c 69 63  |i(spritelist%,ic|
000050b0  6f 6e 0d 84 31 29 0d 3d  ae 36 69 64 61 74 61 30  |on..1).=.6idata0|
000050c0  25 3d 69 64 61 74 61 0d  21 30 3a 69 64 61 74 61  |%=idata.!0:idata|
000050d0  34 25 3d 69 64 61 74 61  25 21 34 3a 0d 64 61 74  |4%=idata%!4:.dat|
000050e0  61 38 25 3d 69 64 61 74  61 25 21 38 0d 3d b8 25  |a8%=idata%!8.=.%|
000050f0  74 0d 78 74 24 3d a4 69  63 6f 6e 73 74 72 69 6e  |t.xt$=.iconstrin|
00005100  67 28 69 66 6c 61 0d 73  25 2c 69 64 61 74 61 25  |g(ifla.s%,idata%|
00005110  29 0d 3d c2 18 f2 73 74  61 6e 64 0d 72 64 77 69  |).=...stand.rdwi|
00005120  6e 64 6f 77 28 30 2c 30  29 0d 3d cc 0d 71 25 21  |ndow(0,0).=..q%!|
00005130  0d 38 3d 26 30 46 0d 3d  d6 0c 71 25 3f 33 35 3d  |.8=&0F.=..q%?35=|
00005140  2d 31 0d 3d e0 0d 71 25  21 35 36 3d 28 69 66 6c  |-1.=..q%!56=(ifl|
00005150  61 67 73 25 80 26 31 30  30 29 0d 26 33 44 0d 3d  |ags%.&100).&3D.=|
00005160  ea 3a 71 25 21 37 32 3d  69 64 61 74 61 30 25 0d  |.:q%!72=idata0%.|
00005170  71 25 21 37 36 3d 69 64  61 74 61 34 25 3a 71 25  |q%!76=idata4%:q%|
00005180  21 38 30 3d 0d 64 61 74  61 38 25 3a f4 20 73 68  |!80=.data8%:. sh|
00005190  61 72 65 20 64 61 74 61  0d 0d f4 0f 71 25 21 36  |are data....q%!6|
000051a0  30 3d 26 33 30 30 30 0d  3d fe 3d c8 99 22 0d 53  |0=&3000.=.=..".S|
000051b0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 38 2c  |_SpriteOp",&128,|
000051c0  73 70 72 0d 74 65 61 72  65 61 25 2c 74 65 78 74  |spr.tearea%,text|
000051d0  24 b8 2c 2c 2c 73 70 77  0d 2c 73 70 68 25 2c 2c  |$.,,,spw.,sph%,,|
000051e0  73 70 6d 25 0d 3e 08 36  c8 99 22 4f 53 0d 52 65  |spm%.>.6.."OS.Re|
000051f0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00005200  73 70 0d 25 2c 34 b8 2c  2c 73 70 78 25 3a 78 73  |sp.%,4.,,spx%:xs|
00005210  63 25 3d 36 3c 3c 73 0d  78 25 0d 3e 12 36 c8 99  |c%=6<<s.x%.>.6..|
00005220  22 4f 53 5f 52 65 61 64  4d 6f 64 65 0d 61 72 69  |"OS_ReadMode.ari|
00005230  61 62 6c 65 22 2c 73 70  6d 25 2c 35 b8 2c 2c 73  |able",spm%,5.,,s|
00005240  70 0d 25 3a 79 73 63 25  3d 36 3c 3c 73 70 79 25  |p.%:ysc%=6<<spy%|
00005250  0d 3e 1c 1f 77 78 0d 3d  73 70 77 25 2a 78 73 63  |.>..wx.=spw%*xsc|
00005260  25 3a 77 79 25 3d 73 70  68 25 2a 0d 73 63 25 0d  |%:wy%=sph%*.sc%.|
00005270  3e 26 2b 71 25 21 34 3d  2d 77 79 25 3a 71 25 21  |>&+q%!4=-wy%:q%!|
00005280  0d 3d 77 78 25 3a 71 25  21 34 34 3d 2d 77 79 25  |.=wx%:q%!44=-wy%|
00005290  3a 71 25 21 34 0d 3d 77  78 25 0d 3e 30 25 c8 99  |:q%!4.=wx%.>0%..|
000052a0  22 57 69 6d 70 5f 43 72  65 61 0d 65 57 69 6e 64  |"Wimp_Crea.eWind|
000052b0  6f 77 22 2c 2c 71 25 b8  68 61 6e 64 6c 65 25 0d  |ow",,q%.handle%.|
000052c0  3e 3a 36 6d 25 3d 73 70  72 53 50 25 3a 73 70 72  |>:6m%=sprSP%:spr|
000052d0  53 50 25 3d 0d 70 72 69  74 65 77 25 28 6d 25 29  |SP%=.pritew%(m%)|
000052e0  3a 73 70 72 69 74 65 77  25 0d 6d 25 29 3d 68 61  |:spritew%.m%)=ha|
000052f0  6e 64 6c 65 25 0d 3e 44  23 6e 73 70 72 69 0d 65  |ndle%.>D#nspri.e|
00005300  25 28 6d 25 29 3d 73 70  72 53 50 32 25 3a 73 70  |%(m%)=sprSP2%:sp|
00005310  72 53 50 0d 25 3d 6d 25  0d 3e 4e 3e 73 70 72 69  |rSP.%=m%.>N>spri|
00005320  74 65 6e 24 28 6d 25 29  0d 74 65 78 74 24 3a 73  |ten$(m%).text$:s|
00005330  70 72 78 73 63 61 6c 65  25 28 6d 25 29 0d 78 73  |prxscale%(m%).xs|
00005340  63 25 3a 73 70 72 79 73  63 61 6c 65 25 28 6d 25  |c%:spryscale%(m%|
00005350  29 3d 0d 73 63 25 0d 3e  58 19 73 70 72 69 74 65  |)=.sc%.>X.sprite|
00005360  69 25 28 6d 25 29 3d 0d  63 6f 6e 25 80 ac 31 0d  |i%(m%)=.con%..1.|
00005370  3e 62 23 f2 64 65 73 65  6c 65 63 74 0d 73 70 72  |>b#.deselect.spr|
00005380  69 74 65 6c 69 73 74 25  2c 69 63 6f 6e 25 80 ac  |itelist%,icon%..|
00005390  31 0d 0d 3e 6c 46 f2 73  65 74 69 28 73 70 72 69  |1..>lF.seti(spri|
000053a0  74 65 6c 69 73 74 0d 2c  69 63 6f 6e 25 84 31 2c  |telist.,icon%.1,|
000053b0  26 34 30 30 30 30 30 2c  26 36 30 0d 30 30 30 29  |&400000,&60.000)|
000053c0  3a f4 20 73 68 61 64 65  64 20 61 6e 64 20 64 65  |:. shaded and de|
000053d0  0d 65 6c 65 63 74 65 64  0d 3e 76 28 21 71 25 3d  |.elected.>v(!q%=|
000053e0  68 61 6e 64 6c 0d 25 3a  71 25 21 32 30 3d 30 3a  |handl.%:q%!20=0:|
000053f0  71 25 21 32 34 3d 30 3a  71 25 0d 32 38 3d 2d 31  |q%!24=0:q%.28=-1|
00005400  0d 3e 80 49 71 25 21 34  3d 6d 6f 75 73 65 78 0d  |.>.Iq%!4=mousex.|
00005410  2d 77 78 25 81 32 3a 71  25 21 38 3d 6d 6f 75 73  |-wx%.2:q%!8=mous|
00005420  65 79 25 2d 0d 79 25 3a  71 25 21 31 32 3d 6d 6f  |ey%-.y%:q%!12=mo|
00005430  75 73 65 78 25 2b 77 78  25 0d 32 3a 71 25 21 31  |usex%+wx%.2:q%!1|
00005440  36 3d 6d 6f 75 73 65 79  25 0d 3e 8a 1b c8 0d 22  |6=mousey%.>...."|
00005450  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00005460  2c 2c 71 0d 0d 3e 94 05  e1 0d 3e 9e 04 0d 3e a8  |,,q..>....>...>.|
00005470  1d dd f2 67 65 74 73 70  0d 69 74 65 78 79 28 49  |...getsp.itexy(I|
00005480  25 2c 6d 78 25 2c 6d 79  25 29 0d 3e b2 0d 78 73  |%,mx%,my%).>..xs|
00005490  25 3d 73 70 72 78 73 63  61 6c 65 25 28 49 25 29  |%=sprxscale%(I%)|
000054a0  3a 79 0d 25 3d 73 70 72  79 73 63 61 6c 65 25 28  |:y.%=spryscale%(|
000054b0  49 25 29 0d 3e bc 14 0d  25 3d 28 6d 78 25 2d 62  |I%).>...%=(mx%-b|
000054c0  78 25 29 2f 78 73 25 0d  3e c6 18 79 0d 3d 28 62  |x%)/xs%.>..y.=(b|
000054d0  79 25 2d 6d 79 25 2d 64  79 25 29 2f 79 73 25 0d  |y%-my%-dy%)/ys%.|
000054e0  3e 0d 4c c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |>.L.."OS_SpriteO|
000054f0  70 22 2c 26 31 32 0d 2c  73 70 72 69 74 65 61 72  |p",&12.,spritear|
00005500  65 61 25 2c 73 70 72 69  74 65 6e 0d 28 49 25 29  |ea%,spriten.(I%)|
00005510  b8 2c 2c 2c 73 70 77 25  2c 73 70 68 25 2c 68 61  |.,,,spw%,sph%,ha|
00005520  0d 6d 61 73 6b 25 2c 73  70 6d 25 0d 3e da 29 c8  |.mask%,spm%.>.).|
00005530  99 22 4f 53 5f 0d 65 61  64 4d 6f 64 65 56 61 72  |."OS_.eadModeVar|
00005540  69 61 62 6c 65 22 2c 73  70 6d 0d 2c 34 b8 2c 2c  |iable",spm.,4.,,|
00005550  73 70 78 25 0d 3e e4 29  c8 99 22 4f 53 5f 52 0d  |spx%.>.).."OS_R.|
00005560  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00005570  73 70 6d 25 0d 35 b8 2c  2c 73 70 79 25 0d 3e ee  |spm%.5.,,spy%.>.|
00005580  1d 77 78 25 3d 73 70 77  25 0d 78 73 25 3a 77 79  |.wx%=spw%.xs%:wy|
00005590  25 3d 73 70 68 25 2a 79  73 25 0d 3e f8 0d 0d 78  |%=sph%*ys%.>...x|
000055a0  25 3c 30 78 25 3d 30 0d  3f 02 0d e7 79 25 3c 30  |%<0x%=0.?...y%<0|
000055b0  79 25 3d 0d 0d 3f 0c 16  e7 78 25 3e 3d 73 70 77  |y%=..?...x%>=spw|
000055c0  25 78 25 3d 73 70 77 25  0d 31 0d 3f 16 16 e7 79  |%x%=spw%.1.?...y|
000055d0  25 3e 3d 73 70 68 25 79  25 3d 73 70 68 0d 2d 31  |%>=sph%y%=sph.-1|
000055e0  0d 3f 20 05 e1 0d 3f 2a  04 0d 3f 34 24 dd f2 61  |.? ...?*..?4$..a|
000055f0  64 6a 0d 73 74 73 69 7a  65 28 49 25 2c 69 6e 73  |dj.stsize(I%,ins|
00005600  64 65 6c 25 2c 72 6f 0d  63 6f 6c 25 29 0d 3f 3e  |del%,ro.col%).?>|
00005610  17 f2 67 65 74 77 28 73  70 72 69 74 0d 77 25 28  |..getw(sprit.w%(|
00005620  49 25 29 29 0d 3f 48 26  f2 67 65 74 73 70 72 69  |I%)).?H&.getspri|
00005630  74 0d 78 79 28 49 25 2c  6d 6d 6f 75 73 65 78 25  |t.xy(I%,mmousex%|
00005640  2c 6d 6d 6f 75 73 0d 79  25 29 0d 3f 52 15 6f 77  |,mmous.y%).?R.ow|
00005650  78 25 3d 77 78 25 3a 6f  77 79 25 0d 77 79 25 0d  |x%=wx%:owy%.wy%.|
00005660  3f 5c 0e c8 8e 72 6f 77  63 6f 6c 25 ca 0d 3f 66  |?\...rowcol%..?f|
00005670  0d c9 30 3a c8 8e 69 6e  73 64 65 6c 25 ca 0d 3f  |..0:..insdel%..?|
00005680  70 22 c9 30 3a 0d 63 6f  64 65 25 3d 33 31 3a 72  |p".0:.code%=31:r|
00005690  63 25 3d 73 70 68 25 3a  77 79 0d 2b 3d 79 73 25  |c%=sph%:wy.+=ys%|
000056a0  0d 3f 7a 2d c9 31 3a 72  63 6f 64 65 25 3d 33 0d  |.?z-.1:rcode%=3.|
000056b0  3a 72 63 25 3d 73 70 68  25 2d 31 3a 77 79 25 2d  |:rc%=sph%-1:wy%-|
000056c0  3d 79 73 25 0d e7 77 79  25 3c 31 8c e1 0d 3f 84  |=ys%..wy%<1...?.|
000056d0  27 c9 32 3a 72 63 6f 64  65 0d 3d 33 31 3a 72 63  |'.2:rcode.=31:rc|
000056e0  25 3d 73 70 68 25 2d 31  2d 79 25 3a 77 79 0d 2b  |%=sph%-1-y%:wy.+|
000056f0  3d 79 73 25 0d 3f 8e 30  c9 33 3a 72 63 6f 64 65  |=ys%.?.0.3:rcode|
00005700  25 3d 33 0d 3a 72 63 25  3d 73 70 68 25 2d 31 2d  |%=3.:rc%=sph%-1-|
00005710  79 25 3a 77 79 25 2d 3d  0d 73 25 3a e7 77 79 25  |y%:wy%-=.s%:.wy%|
00005720  3c 31 8c e1 0d 3f 98 05  cb 0d 3f a2 11 0d 31 3a  |<1...?....?...1:|
00005730  c8 8e 69 6e 73 64 65 6c  25 ca 0d 3f ac 22 c9 30  |..insdel%..?.".0|
00005740  3a 72 0d 6f 64 65 25 3d  34 35 3a 72 63 25 3d 73  |:r.ode%=45:rc%=s|
00005750  70 77 25 3a 77 78 25 0d  3d 78 73 25 0d 3f b6 2d  |pw%:wx%.=xs%.?.-|
00005760  c9 31 3a 72 63 6f 64 65  25 3d 34 36 0d 72 63 25  |.1:rcode%=46.rc%|
00005770  3d 73 70 77 25 2d 31 3a  77 78 25 2d 3d 78 73 25  |=spw%-1:wx%-=xs%|
00005780  3a 0d 77 78 25 3c 31 8c  e1 0d 3f c0 20 c9 32 3a  |:.wx%<1...?. .2:|
00005790  72 63 6f 64 65 25 0d 34  35 3a 72 63 25 3d 78 25  |rcode%.45:rc%=x%|
000057a0  3a 77 78 25 2b 3d 78 73  25 0d 3f 0d 29 c9 33 3a  |:wx%+=xs%.?.).3:|
000057b0  72 63 6f 64 65 25 3d 34  36 3a 72 63 25 3d 78 25  |rcode%=46:rc%=x%|
000057c0  0d 77 78 25 2d 3d 78 73  25 3a e7 77 78 25 3c 31  |.wx%-=xs%:.wx%<1|
000057d0  8c e1 0d 3f d4 0d cb 0d  3f de 07 7f 3a e1 0d 3f  |...?....?...:..?|
000057e0  e8 05 cb 0d 3f f2 3c c8  99 22 0d 53 5f 53 70 72  |....?.<..".S_Spr|
000057f0  69 74 65 4f 70 22 2c 26  31 30 30 2b 72 63 6f 0d  |iteOp",&100+rco.|
00005800  65 25 2c 73 70 72 69 74  65 61 72 65 61 25 2c 73  |e%,spritearea%,s|
00005810  70 72 69 74 0d 6e 24 28  49 25 29 2c 72 63 25 0d  |prit.n$(I%),rc%.|
00005820  3f fc 22 f2 6e 65 77 73  69 0d 65 28 49 25 2c 6f  |?.".newsi.e(I%,o|
00005830  77 78 25 2c 6f 77 79 25  2c 77 78 25 2c 77 0d 25  |wx%,owy%,wx%,w.%|
00005840  29 0d 40 06 25 f2 75 70  69 63 6f 6e 28 73 70 72  |).@.%.upicon(spr|
00005850  69 74 65 0d 69 73 74 25  2c 73 70 72 69 74 65 69  |ite.ist%,spritei|
00005860  25 28 49 25 29 29 0d 40  0d 05 e1 0d 40 1a 04 0d  |%(I%)).@....@...|
00005870  40 24 27 dd f2 6e 65 77  73 69 7a 65 28 0d 25 2c  |@$'..newsize(.%,|
00005880  77 78 25 2c 77 79 25 2c  6e 65 77 77 78 25 2c 6e  |wx%,wy%,newwx%,n|
00005890  65 77 0d 79 25 29 0d 40  2e 17 f2 67 65 74 77 28  |ew.y%).@...getw(|
000058a0  73 70 72 69 74 65 77 0d  28 49 25 29 29 0d 40 38  |spritew.(I%)).@8|
000058b0  17 6c 69 6d 69 74 78 25  3d b9 3a 6c 0d 6d 69 74  |.limitx%=.:l.mit|
000058c0  79 25 3d b9 0d 40 42 33  f4 20 6c 69 6d 69 74 78  |y%=..@B3. limitx|
000058d0  25 0d 28 78 31 25 2d 62  78 25 3e 3d 77 78 25 29  |%.(x1%-bx%>=wx%)|
000058e0  3a 6c 69 6d 69 74 0d 25  3d 28 62 79 25 2d 79 30  |:limit.%=(by%-y0|
000058f0  25 3e 3d 77 79 25 29 0d  40 4c 19 0d 78 25 3d 6e  |%>=wy%).@L..x%=n|
00005900  65 77 77 78 25 3a 77 79  25 3d 6e 65 77 77 79 25  |ewwx%:wy%=newwy%|
00005910  0d 40 56 32 e7 6c 69 6d  69 74 78 25 84 28 77 78  |.@V2.limitx%.(wx|
00005920  25 3c 78 31 25 0d 62 78  25 29 8c 6e 65 77 78 25  |%<x1%.bx%).newx%|
00005930  3d 62 78 25 2b 77 78 25  8b 6e 0d 77 78 25 3d 78  |=bx%+wx%.n.wx%=x|
00005940  31 25 0d 40 60 32 e7 6c  69 6d 69 74 79 25 84 0d  |1%.@`2.limity%..|
00005950  77 79 25 3c 62 79 25 2d  79 30 25 29 8c 6e 65 77  |wy%<by%-y0%).new|
00005960  79 25 3d 62 0d 25 2d 77  79 25 8b 6e 65 77 79 25  |y%=b.%-wy%.newy%|
00005970  3d 79 30 25 0d 40 6a 47  e7 0d 65 77 78 25 3c 78  |=y0%.@jG..ewx%<x|
00005980  31 25 84 6e 65 77 79 25  3e 79 30 25 8c 71 0d 21  |1%.newy%>y0%.q.!|
00005990  38 3d 6e 65 77 79 25 3a  71 25 21 31 32 3d 6e 65  |8=newy%:q%!12=ne|
000059a0  77 78 25 0d c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |wx%..."Wimp_Open|
000059b0  57 69 6e 64 6f 77 22 2c  0d 71 25 0d 40 74 2c 71  |Window",.q%.@t,q|
000059c0  25 21 26 38 30 3d 30 3a  71 25 21 26 38 0d 3d 2d  |%!&80=0:q%!&8.=-|
000059d0  77 79 25 3a 71 25 21 26  38 38 3d 77 78 25 3a 71  |wy%:q%!&88=wx%:q|
000059e0  25 21 0d 38 43 3d 30 0d  40 7e 2a c8 99 22 57 69  |%!.8C=0.@~*.."Wi|
000059f0  6d 70 5f 53 65 74 45 0d  74 65 6e 74 22 2c 73 70  |mp_SetE.tent",sp|
00005a00  72 69 74 65 77 25 28 49  25 29 2c 71 0d 2b 26 38  |ritew%(I%),q.+&8|
00005a10  30 0d 40 88 47 e7 6e 65  77 78 25 3e 78 31 25 84  |0.@.G.newx%>x1%.|
00005a20  6e 0d 77 79 25 3c 79 30  25 8c 71 25 21 38 3d 6e  |n.wy%<y0%.q%!8=n|
00005a30  65 77 79 25 3a 71 0d 21  31 32 3d 6e 65 77 78 25  |ewy%:q.!12=newx%|
00005a40  3a c8 99 22 57 69 6d 70  5f 4f 70 0d 6e 57 69 6e  |:.."Wimp_Op.nWin|
00005a50  64 6f 77 22 2c 2c 71 25  0d 40 92 36 c8 99 22 57  |dow",,q%.@.6.."W|
00005a60  0d 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |.mp_ForceRedraw"|
00005a70  2c 73 70 72 69 0d 65 77  25 28 49 25 29 2c 30 2c  |,spri.ew%(I%),0,|
00005a80  2d 33 30 30 30 30 2c 33  30 30 0d 30 2c 30 0d 40  |-30000,300.0,0.@|
00005a90  9c 05 e1 0d 40 a6 04 0d  40 b0 16 dd f2 75 70 0d  |....@...@....up.|
00005aa0  61 74 65 73 70 72 69 74  65 28 49 25 29 0d 40 ba  |atesprite(I%).@.|
00005ab0  36 c8 99 22 0d 69 6d 70  5f 46 6f 72 63 65 52 65  |6..".imp_ForceRe|
00005ac0  64 72 61 77 22 2c 73 70  72 0d 74 65 77 25 28 49  |draw",spr.tew%(I|
00005ad0  25 29 2c 30 2c 2d 33 30  30 30 30 2c 33 30 0d 30  |%),0,-30000,30.0|
00005ae0  30 2c 30 0d 40 c4 25 f2  75 70 69 63 6f 6e 28 73  |0,0.@.%.upicon(s|
00005af0  70 72 69 0d 65 6c 69 73  74 25 2c 73 70 72 69 74  |pri.elist%,sprit|
00005b00  65 69 25 28 49 25 29 29  0d 40 ce 05 e1 0d 40 d8  |ei%(I%)).@....@.|
00005b10  04 0d 40 e2 1e dd f2 63  68 61 6e 67 65 0d 69 7a  |..@....change.iz|
00005b20  65 28 49 25 2c 78 73 63  25 2c 79 73 63 25 29 0d  |e(I%,xsc%,ysc%).|
00005b30  40 ec 0d 78 73 25 3d 73  70 72 78 73 63 61 6c 65  |@..xs%=sprxscale|
00005b40  25 28 49 25 29 3a 79 0d  25 3d 73 70 72 79 73 63  |%(I%):y.%=sprysc|
00005b50  61 6c 65 25 28 49 25 29  0d 40 f6 2b 0d 70 72 78  |ale%(I%).@.+.prx|
00005b60  73 63 61 6c 65 25 28 49  25 29 3d 78 73 63 25 3a  |scale%(I%)=xsc%:|
00005b70  73 0d 72 79 73 63 61 6c  65 25 28 49 25 29 3d 79  |s.ryscale%(I%)=y|
00005b80  73 63 25 0d 41 00 0d c8  99 22 4f 53 5f 53 70 72  |sc%.A...."OS_Spr|
00005b90  69 74 65 4f 70 22 2c 26  31 32 38 0d 73 70 72 69  |iteOp",&128.spri|
00005ba0  74 65 61 72 65 61 25 2c  73 70 72 69 74 65 6e 24  |tearea%,spriten$|
00005bb0  0d 49 25 29 b8 2c 2c 2c  73 70 77 25 2c 73 70 68  |.I%).,,,spw%,sph|
00005bc0  25 0d 41 0a 36 0d 6e 65  77 73 69 7a 65 28 49 25  |%.A.6.newsize(I%|
00005bd0  2c 73 70 77 25 2a 78 73  25 2c 0d 70 68 25 2a 79  |,spw%*xs%,.ph%*y|
00005be0  73 25 2c 73 70 77 25 2a  78 73 63 25 2c 73 70 0d  |s%,spw%*xsc%,sp.|
00005bf0  25 2a 79 73 63 25 29 0d  41 14 05 e1 0d 41 1e 04  |%*ysc%).A....A..|
00005c00  0d 41 28 0f 0d f2 66 6c  69 70 78 28 49 25 29 0d  |.A(...flipx(I%).|
00005c10  41 32 31 c8 99 22 4f 53  5f 0d 70 72 69 74 65 4f  |A21.."OS_.priteO|
00005c20  70 22 2c 26 31 32 46 2c  73 70 72 69 74 65 0d 72  |p",&12F,sprite.r|
00005c30  65 61 25 2c 73 70 72 69  74 65 6e 24 28 49 25 29  |ea%,spriten$(I%)|
00005c40  0d 41 3c 0d c8 99 22 57  69 6d 70 5f 46 6f 72 63  |.A<..."Wimp_Forc|
00005c50  65 52 65 64 72 61 77 22  0d 73 70 72 69 74 65 77  |eRedraw".spritew|
00005c60  25 28 49 25 29 2c 30 2c  2d 33 30 30 30 0d 2c 33  |%(I%),0,-3000.,3|
00005c70  30 30 30 30 2c 30 0d 41  46 25 f2 75 70 69 63 6f  |0000,0.AF%.upico|
00005c80  6e 28 0d 70 72 69 74 65  6c 69 73 74 25 2c 73 70  |n(.pritelist%,sp|
00005c90  72 69 74 65 69 25 28 0d  25 29 29 0d 41 50 05 e1  |ritei%(.%)).AP..|
00005ca0  0d 41 5a 04 0d 41 64 0f  dd f2 66 6c 0d 70 79 28  |.AZ..Ad...fl.py(|
00005cb0  49 25 29 0d 41 6e 31 c8  99 22 4f 53 5f 53 70 72  |I%).An1.."OS_Spr|
00005cc0  69 0d 65 4f 70 22 2c 26  31 32 31 2c 73 70 72 69  |i.eOp",&121,spri|
00005cd0  74 65 61 72 65 61 0d 2c  73 70 72 69 74 65 6e 24  |tearea.,spriten$|
00005ce0  28 49 25 29 0d 41 78 36  c8 99 22 0d 69 6d 70 5f  |(I%).Ax6..".imp_|
00005cf0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 73 70 72  |ForceRedraw",spr|
00005d00  0d 74 65 77 25 28 49 25  29 2c 30 2c 2d 33 30 30  |.tew%(I%),0,-300|
00005d10  30 30 2c 33 30 0d 30 30  2c 30 0d 41 82 25 f2 75  |00,30.00,0.A.%.u|
00005d20  70 69 63 6f 6e 28 73 70  72 69 0d 65 6c 69 73 74  |picon(spri.elist|
00005d30  25 2c 73 70 72 69 74 65  69 25 28 49 25 29 29 0d  |%,spritei%(I%)).|
00005d40  41 8c 05 e1 0d 41 96 04  0d 41 a0 13 dd f2 62 69  |A....A...A....bi|
00005d50  67 73 70 72 0d 74 65 28  49 25 29 0d 41 aa 17 ea  |gspr.te(I%).A...|
00005d60  78 73 25 2c 79 73 25 2c  42 0d 25 2c 70 61 69 6e  |xs%,ys%,B.%,pain|
00005d70  74 25 0d 41 b4 43 70 61  69 6e 74 25 3d a3 0d e7  |t%.A.Cpaint%=...|
00005d80  70 61 69 6e 74 5f 64 72  61 67 25 3e 3d 30 8c 70  |paint_drag%>=0.p|
00005d90  61 69 6e 0d 25 3d 28 21  71 25 3d 73 70 72 69 74  |ain.%=(!q%=sprit|
00005da0  65 77 25 28 70 61 69 6e  0d 5f 64 72 61 67 25 3e  |ew%(pain._drag%>|
00005db0  3e 31 36 29 29 0d 41 be  1d 24 73 70 72 0d 74 65  |>16)).A..$spr.te|
00005dc0  6e 61 6d 65 25 3d 73 70  72 69 74 65 6e 24 28 49  |name%=spriten$(I|
00005dd0  25 29 0d 41 c8 29 78 73  25 3d 73 70 72 78 73 63  |%).A.)xs%=sprxsc|
00005de0  61 6c 65 25 28 49 25 0d  3a 79 73 25 3d 73 70 72  |ale%(I%.:ys%=spr|
00005df0  79 73 63 61 6c 65 25 28  49 25 29 0d 0d d2 1a ef  |yscale%(I%).....|
00005e00  32 33 2c 31 32 2c 30 2c  37 2c 30 2c 37 2c 30 2c  |23,12,0,7,0,7,0,|
00005e10  37 0d 30 2c 37 0d 41 dc  46 c8 99 22 4f 53 5f 53  |7.0,7.A.F.."OS_S|
00005e20  70 72 69 74 65 4f 0d 22  2c 26 31 32 38 2c 73 70  |priteO.",&128,sp|
00005e30  72 69 74 65 61 72 65 61  25 2c 73 0d 72 69 74 65  |ritearea%,s.rite|
00005e40  6e 61 6d 65 25 b8 2c 2c  2c 73 70 77 25 2c 73 70  |name%.,,,spw%,sp|
00005e50  0d 25 2c 68 61 73 6d 61  73 6b 25 0d 41 e6 14 42  |.%,hasmask%.A..B|
00005e60  79 25 3d 62 79 0d 2d 73  70 68 25 2a 79 73 25 0d  |y%=by.-sph%*ys%.|
00005e70  41 f0 0b c8 95 6d 6f 72  65 25 0d 41 fa 17 e7 68  |A....more%.A...h|
00005e80  61 73 6d 61 73 6b 25 8c  e6 31 36 2c 31 32 38 0d  |asmask%..16,128.|
00005e90  da 0d 42 04 12 e7 76 65  72 73 69 6f 6e 25 3e 31  |..B...version%>1|
00005ea0  32 30 8c 0d 0d 0e 4c c8  99 22 57 69 6d 70 5f 52  |20....L.."Wimp_R|
00005eb0  65 61 64 50 69 78 54 72  61 0d 73 22 2c 26 31 30  |eadPixTra.s",&10|
00005ec0  30 2c 73 70 72 69 74 65  61 72 65 61 25 2c 0d 70  |0,spritearea%,.p|
00005ed0  72 69 74 65 6e 61 6d 65  25 2c 2c 2c 2c 66 61 63  |ritename%,,,,fac|
00005ee0  74 6f 72 0d 25 2c 70 69  78 74 72 61 6e 73 25 0d  |tor.%,pixtrans%.|
00005ef0  42 18 21 66 61 63 74 6f  0d 73 25 21 30 3d 78 73  |B.!facto.s%!0=xs|
00005f00  25 3a 66 61 63 74 6f 72  73 25 21 34 3d 0d 73 25  |%:factors%!4=.s%|
00005f10  0d 42 22 41 cc 66 61 63  74 6f 72 73 25 21 30 3d  |.B"A.factors%!0=|
00005f20  78 73 0d 3a 66 61 63 74  6f 72 73 25 21 34 3d 79  |xs.:factors%!4=y|
00005f30  73 25 3a 66 61 63 74 0d  72 73 25 21 38 3d 64 78  |s%:fact.rs%!8=dx|
00005f40  25 3a 66 61 63 74 6f 72  73 25 21 31 0d 3d 64 79  |%:factors%!1.=dy|
00005f50  25 0d 42 2c 05 cd 0d 42  36 4d c8 99 22 4f 53 5f  |%.B,...B6M.."OS_|
00005f60  53 0d 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 73  |S.riteOp",&134,s|
00005f70  70 72 69 74 65 61 0d 65  61 25 2c 73 70 72 69 74  |pritea.ea%,sprit|
00005f80  65 6e 61 6d 65 25 2c 62  78 25 2c 0d 79 25 2c 38  |ename%,bx%,.y%,8|
00005f90  2c 66 61 63 74 6f 72 73  25 2c 70 69 78 74 72 61  |,factors%,pixtra|
00005fa0  0d 73 25 0d 42 40 13 e7  70 61 69 6e 74 25 8c f2  |.s%.B@..paint%..|
00005fb0  64 72 67 6f 66 0d 0d 42  4a 23 c8 99 22 57 69 6d  |drgof..BJ#.."Wim|
00005fc0  70 5f 47 65 74 52 65 63  74 61 0d 67 6c 65 22 2c  |p_GetRecta.gle",|
00005fd0  2c 71 25 b8 6d 6f 72 65  25 0d 42 54 05 ce 0d 0d  |,q%.more%.BT....|
00005fe0  5e 05 e1 0d 42 68 04 0d  42 72 52 2d 2d 2d 2d 2d  |^...Bh..BrR-----|
00005ff0  2d 2d 2d 2d 0d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----.-----------|
00006000  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 2d 2d 2d 2d 2d 2d  |---------.------|
00006010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 2d  |--------------.-|
00006020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00006030  2d 2d 2d 0d 2d 2d 2d 2d  2d 0d 42 7c 04 0d 42 86  |---.-----.B|..B.|
00006040  15 dd f2 73 70 72 69 74  0d 70 69 78 65 6c 28 49  |...sprit.pixel(I|
00006050  25 29 0d 42 90 17 f2 67  65 74 77 28 73 0d 72 69  |%).B...getw(s.ri|
00006060  74 65 77 25 28 49 25 29  29 0d 42 9a 29 78 73 25  |tew%(I%)).B.)xs%|
00006070  3d 73 0d 72 78 73 63 61  6c 65 25 28 49 25 29 3a  |=s.rxscale%(I%):|
00006080  79 73 25 3d 73 70 72 0d  73 63 61 6c 65 25 28 49  |ys%=spr.scale%(I|
00006090  25 29 0d 42 a4 24 f2 67  65 74 73 70 0d 69 74 65  |%).B.$.getsp.ite|
000060a0  78 79 28 49 25 2c 6d 6f  75 73 65 78 25 2c 6d 6f  |xy(I%,mousex%,mo|
000060b0  75 0d 65 79 25 29 0d 42  ae 10 79 25 3d 73 70 68  |u.ey%).B..y%=sph|
000060c0  25 2d 31 2d 79 25 0d 42  b8 22 e7 78 25 3c 30 84  |%-1-y%.B.".x%<0.|
000060d0  79 25 3c 30 84 78 25 3e  3d 73 70 0d 25 84 79 25  |y%<0.x%>=sp.%.y%|
000060e0  3e 3d 73 70 68 25 8c e1  0d 42 c2 11 c8 8e 70 61  |>=sph%...B....pa|
000060f0  0d 6e 74 6d 6f 64 65 25  ca 0d 42 cc 19 c9 31 36  |.ntmode%..B...16|
00006100  3a f2 70 61 69 0d 74 5f  70 69 78 65 6c 28 26 34  |:.pai.t_pixel(&4|
00006110  30 29 0d 42 d6 14 c9 31  37 3a 0d 70 61 69 6e 74  |0).B...17:.paint|
00006120  5f 73 70 72 61 79 0d 42  e0 19 c9 31 38 3a f2 0d  |_spray.B...18:..|
00006130  61 69 6e 74 5f 66 6c 6f  6f 64 28 26 38 30 29 0d  |aint_flood(&80).|
00006140  42 ea 18 c9 0d 39 3a f2  70 61 69 6e 74 5f 6c 69  |B....9:.paint_li|
00006150  6e 65 28 26 30 30 29 0d  42 0d 1b c9 32 30 3a f2  |ne(&00).B...20:.|
00006160  70 61 69 6e 74 5f 65 6c  6c 69 70 73 65 28 0d 43  |paint_ellipse(.C|
00006170  30 29 0d 42 fe 1b c9 32  31 3a f2 70 61 69 6e 74  |0).B...21:.paint|
00006180  5f 65 6c 0d 69 70 73 65  28 26 43 38 29 0d 43 08  |_el.ipse(&C8).C.|
00006190  1a c9 32 32 3a f2 70 61  0d 6e 74 5f 63 69 72 63  |..22:.pa.nt_circ|
000061a0  6c 65 28 26 39 30 29 0d  43 12 1a c9 32 0d 3a f2  |le(&90).C...2.:.|
000061b0  70 61 69 6e 74 5f 63 69  72 63 6c 65 28 26 39 38  |paint_circle(&98|
000061c0  29 0d 0d 1c 17 c9 32 34  3a f2 70 61 69 6e 74 5f  |).....24:.paint_|
000061d0  61 72 63 28 26 41 30 0d  0d 43 26 1b c9 32 35 3a  |arc(&A0..C&..25:|
000061e0  f2 70 61 69 6e 74 5f 73  65 67 6d 65 0d 74 28 26  |.paint_segme.t(&|
000061f0  41 38 29 0d 43 30 1a c9  32 36 3a f2 70 61 69 6e  |A8).C0..26:.pain|
00006200  74 0d 73 65 63 74 6f 72  28 26 42 30 29 0d 43 3a  |t.sector(&B0).C:|
00006210  1c c9 32 37 3a f2 0d 61  69 6e 74 5f 74 72 69 61  |..27:..aint_tria|
00006220  6e 67 6c 65 28 26 35 30  29 0d 43 0d 1d c9 32 38  |ngle(&50).C...28|
00006230  3a f2 70 61 69 6e 74 5f  62 6c 6f 63 6b 63 6f 70  |:.paint_blockcop|
00006240  0d 28 26 42 45 29 0d 43  4e 1d c9 32 39 3a f2 70  |.(&BE).CN..29:.p|
00006250  61 69 6e 74 5f 0d 6c 6f  63 6b 6d 6f 76 65 28 26  |aint_.lockmove(&|
00006260  42 44 29 0d 43 58 17 c9  33 30 0d f2 70 61 69 6e  |BD).CX..30..pain|
00006270  74 5f 74 79 70 65 74 65  78 74 0d 43 62 1d 7f 0d  |t_typetext.Cb...|
00006280  31 2c 22 55 6e 6b 6e 6f  77 6e 20 70 61 69 6e 74  |1,"Unknown paint|
00006290  20 6d 6f 64 0d 21 22 0d  43 6c 05 cb 0d 43 76 25  | mod.!".Cl...Cv%|
000062a0  f2 75 70 69 63 6f 6e 28  73 0d 72 69 74 65 6c 69  |.upicon(s.riteli|
000062b0  73 74 25 2c 73 70 72 69  74 65 69 25 28 49 0d 29  |st%,spritei%(I.)|
000062c0  29 0d 43 80 05 e1 0d 43  8a 04 0d 43 94 18 dd f2  |).C....C...C....|
000062d0  70 61 69 0d 74 5f 70 69  78 65 6c 28 76 6f 69 64  |pai.t_pixel(void|
000062e0  25 29 0d 43 9e 24 70 61  0d 6e 74 5f 64 72 61 67  |%).C.$pa.nt_drag|
000062f0  25 3d 49 25 3c 3c 31 36  3a f4 20 61 75 0d 6f 2d  |%=I%<<16:. au.o-|
00006300  72 65 70 65 61 74 0d 43  a8 1c e7 73 70 72 63 6f  |repeat.C...sprco|
00006310  6c 6f 0d 72 25 3d 31 36  80 68 61 73 6d 61 73 6b  |lo.r%=16.hasmask|
00006320  25 8c 0d 43 b2 1b e7 0d  75 74 74 6f 6e 73 25 3d  |%..C....uttons%=|
00006330  26 30 31 8c 63 25 3d 31  8b 63 25 3d 0d 0d 43 bc  |&01.c%=1.c%=..C.|
00006340  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00006350  2c 0d 31 32 43 2c 73 70  72 69 74 65 61 72 65 61  |,.12C,spritearea|
00006360  25 2c 73 70 72 69 0d 65  6e 24 28 49 25 29 2c 78  |%,spri.en$(I%),x|
00006370  25 2c 79 25 2c 63 25 0d  43 c6 0a 0d 63 25 3d 30  |%,y%,c%.C...c%=0|
00006380  8c 0d 43 d0 09 63 25 3d  31 36 0d 43 da 40 cc c8  |..C..c%=16.C.@..|
00006390  0d 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
000063a0  31 32 39 2c 73 0d 72 69  74 65 61 72 65 61 25 2c  |129,s.ritearea%,|
000063b0  73 70 72 69 74 65 6e 24  28 49 0d 29 2c 78 25 2c  |spriten$(I.),x%,|
000063c0  79 25 b8 2c 2c 2c 2c 2c  63 25 0d 43 e4 05 cd 0d  |y%.,,,,,c%.C....|
000063d0  43 ee 05 cc 0d 43 f8 24  e7 62 75 74 74 6f 6e 73  |C....C.$.buttons|
000063e0  25 3d 26 30 0d 8c 63 25  3d 30 8b 63 25 3d 73 70  |%=&0..c%=0.c%=sp|
000063f0  72 63 6f 6c 6f 75 72 25  0d 0d 02 0f e7 63 25 3d  |rcolour%.....c%=|
00006400  31 36 8c 63 25 3d 30 0d  44 0c 3a c8 99 22 0d 53  |16.c%=0.D.:..".S|
00006410  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 41 2c  |_SpriteOp",&12A,|
00006420  73 70 72 0d 74 65 61 72  65 61 25 2c 73 70 72 69  |spr.tearea%,spri|
00006430  74 65 6e 24 28 49 25 29  0d 78 25 2c 79 25 2c 63  |ten$(I%).x%,y%,c|
00006440  25 0d 44 16 43 e7 68 61  73 6d 61 73 6b 0d 8c c8  |%.D.C.hasmask...|
00006450  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00006460  31 32 0d 2c 73 70 72 69  74 65 61 72 65 61 25 2c  |12.,spritearea%,|
00006470  73 70 72 69 74 65 6e 0d  28 49 25 29 2c 78 25 2c  |spriten.(I%),x%,|
00006480  79 25 2c 31 0d 44 20 05  cd 0d 44 2a 0d f2 75 70  |y%,1.D ...D*..up|
00006490  64 61 74 65 28 73 70 72  69 74 65 77 25 28 49 25  |date(spritew%(I%|
000064a0  29 0d 78 25 2a 78 73 25  2c 2d 28 73 70 68 25 2d  |).x%*xs%,-(sph%-|
000064b0  79 25 29 2a 79 73 0d 2c  28 78 25 2b 31 29 2a 78  |y%)*ys.,(x%+1)*x|
000064c0  73 25 2c 2d 28 73 70 68  25 2d 31 0d 79 25 29 2a  |s%,-(sph%-1.y%)*|
000064d0  79 73 25 29 0d 44 34 0b  c8 95 6d 6f 72 65 25 0d  |ys%).D4...more%.|
000064e0  0d 3e 2d e7 63 25 3d 31  36 8c ef 32 33 2c 31 32  |.>-.c%=16..23,12|
000064f0  2c 30 2c 37 2c 0d 2c 37  2c 30 2c 37 2c 30 2c 37  |,0,7,.,7,0,7,0,7|
00006500  3a e6 31 36 2c 30 8b e6  30 2c 0d 25 0d 44 48 21  |:.16,0..0,.%.DH!|
00006510  ec 62 78 25 2b 78 25 2a  78 73 25 2c 62 79 25 0d  |.bx%+x%*xs%,by%.|
00006520  28 73 70 68 25 2d 79 25  29 2a 79 73 25 0d 44 52  |(sph%-y%)*ys%.DR|
00006530  2f f0 26 36 0d 2c 62 78  25 2b 28 78 25 2b 31 29  |/.&6.,bx%+(x%+1)|
00006540  2a 78 73 25 2d 31 2c 62  79 0d 2d 28 73 70 68 25  |*xs%-1,by.-(sph%|
00006550  2d 31 2d 79 25 29 2a 79  73 25 2d 31 0d 44 0d 25  |-1-y%)*ys%-1.D.%|
00006560  c8 99 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |.."Wimp_GetRecta|
00006570  6e 67 6c 0d 22 2c 2c 71  25 b8 6d 6f 72 65 25 3a  |ngl.",,q%.more%:|
00006580  ce 0d 44 66 05 e1 0d 44  0d 04 0d 44 7a 18 dd f2  |..Df...D...Dz...|
00006590  70 61 69 6e 74 5f 66 6c  6f 6f 64 28 63 0d 64 65  |paint_flood(c.de|
000065a0  25 29 0d 44 84 1d e7 62  75 74 74 6f 6e 73 25 80  |%).D...buttons%.|
000065b0  26 30 0d 8c f2 75 6e 64  6f 28 49 25 29 3a e1 0d  |&0...undo(I%):..|
000065c0  44 8e 3f c8 99 22 4f 0d  5f 53 70 72 69 74 65 4f  |D.?.."O._SpriteO|
000065d0  70 22 2c 26 31 32 39 2c  73 70 72 69 0d 65 61 72  |p",&129,spri.ear|
000065e0  65 61 25 2c 73 70 72 69  74 65 6e 24 28 49 25 29  |ea%,spriten$(I%)|
000065f0  2c 0d 25 2c 79 25 b8 2c  2c 2c 2c 2c 63 25 0d 44  |,.%,y%.,,,,,c%.D|
00006600  98 17 f2 65 64 69 0d 28  73 70 72 69 74 65 6e 24  |...edi.(spriten$|
00006610  28 49 25 29 29 0d 44 a2  1b e6 30 0d 31 32 38 2b  |(I%)).D...0.128+|
00006620  63 25 3a e6 30 2c 73 70  72 63 6f 6c 6f 75 72 25  |c%:.0,sprcolour%|
00006630  0d 44 ac 1e f0 63 6f 64  65 25 2b 35 2c 78 25 3c  |.D...code%+5,x%<|
00006640  3c 73 70 78 25 0d 79 25  3c 3c 73 70 79 25 0d 44  |<spx%.y%<<spy%.D|
00006650  b6 1a f2 65 64 69 74 6f  66 66 0d 73 70 72 69 74  |...editoff.sprit|
00006660  65 6e 24 28 49 25 29 29  0d 44 c0 15 f2 75 70 0d  |en$(I%)).D...up.|
00006670  61 74 65 73 70 72 69 74  65 28 49 25 29 0d 44 ca  |atesprite(I%).D.|
00006680  05 e1 0d 44 0d 04 0d 44  de 17 dd f2 70 61 69 6e  |...D...D....pain|
00006690  74 5f 6c 69 6e 65 28 63  6f 0d 65 25 29 0d 44 e8  |t_line(co.e%).D.|
000066a0  19 dd f2 70 61 69 6e 74  5f 63 69 72 63 6c 0d 28  |...paint_circl.(|
000066b0  63 6f 64 65 25 29 0d 44  f2 17 f2 64 72 61 67 63  |code%).D...dragc|
000066c0  6c 69 63 0d 28 31 2c 63  6f 64 65 25 29 0d 44 fc  |lic.(1,code%).D.|
000066d0  05 e1 0d 45 06 04 0d 45  0d 1a dd f2 70 61 69 6e  |...E...E....pain|
000066e0  74 5f 65 6c 6c 69 70 73  65 28 63 6f 64 0d 25 29  |t_ellipse(cod.%)|
000066f0  0d 45 1a 16 dd f2 70 61  69 6e 74 5f 61 72 63 28  |.E....paint_arc(|
00006700  63 6f 0d 65 25 29 0d 45  24 1a dd f2 70 61 69 6e  |co.e%).E$...pain|
00006710  74 5f 73 65 67 6d 65 0d  74 28 63 6f 64 65 25 29  |t_segme.t(code%)|
00006720  0d 45 2e 19 dd f2 70 61  69 6e 74 5f 0d 65 63 74  |.E....paint_.ect|
00006730  6f 72 28 63 6f 64 65 25  29 0d 45 38 1b dd f2 70  |or(code%).E8...p|
00006740  61 0d 6e 74 5f 74 72 69  61 6e 67 6c 65 28 63 6f  |a.nt_triangle(co|
00006750  64 65 25 29 0d 45 0d 1c  dd f2 70 61 69 6e 74 5f  |de%).E....paint_|
00006760  62 6c 6f 63 6b 63 6f 70  79 28 63 0d 64 65 25 29  |blockcopy(c.de%)|
00006770  0d 45 4c 1c dd f2 70 61  69 6e 74 5f 62 6c 6f 63  |.EL...paint_bloc|
00006780  0d 6d 6f 76 65 28 63 6f  64 65 25 29 0d 45 56 17  |.move(code%).EV.|
00006790  f2 64 72 61 67 0d 6c 69  63 6b 28 32 2c 63 6f 64  |.drag.lick(2,cod|
000067a0  65 25 29 0d 45 60 05 e1  0d 45 0d 04 0d 45 74 1f  |e%).E`...E...Et.|
000067b0  dd f2 64 72 61 67 63 6c  69 63 6b 28 6e 63 6c 0d  |..dragclick(ncl.|
000067c0  63 6b 73 25 2c 63 6f 64  65 25 29 0d 45 7e 2b e7  |cks%,code%).E~+.|
000067d0  62 75 74 74 0d 6e 73 25  80 26 30 31 8c f2 64 72  |butt.ns%.&01..dr|
000067e0  61 67 6f 66 66 3a 70 61  69 0d 74 5f 64 72 61 67  |agoff:pai.t_drag|
000067f0  25 3d 2d 31 3a e1 0d 45  88 14 e7 70 61 69 0d 74  |%=-1:..E...pai.t|
00006800  5f 64 72 61 67 25 3e 3d  30 8c 0d 45 92 0c f2 64  |_drag%>=0..E...d|
00006810  72 61 67 0d 66 66 0d 45  9c 2d c8 8e 28 28 70 61  |rag.ff.E.-..((pa|
00006820  69 6e 74 5f 64 72 61 67  0d 3e 3e 34 29 80 26 46  |int_drag.>>4).&F|
00006830  29 2d 28 70 61 69 6e 74  5f 64 72 61 67 0d 80 26  |)-(paint_drag..&|
00006840  46 29 ca 0d 45 a6 06 c9  31 0d 45 b0 23 64 72 61  |F)..E...1.E.#dra|
00006850  67 78 0d 25 3d 64 72 61  67 78 30 25 3a 64 72 61  |gx.%=dragx0%:dra|
00006860  67 79 31 25 3d 64 72 0d  67 79 30 25 0d 45 ba 1f  |gy1%=dr.gy0%.E..|
00006870  73 70 72 78 31 25 3d 73  70 72 78 30 0d 3a 73 70  |sprx1%=sprx0.:sp|
00006880  72 79 31 25 3d 73 70 72  79 30 25 0d 45 c4 2b 64  |ry1%=spry0%.E.+d|
00006890  72 0d 67 78 30 25 3d 6d  6f 75 73 65 78 25 2d 62  |r.gx0%=mousex%-b|
000068a0  78 25 3a 64 72 61 0d 79  30 25 3d 6d 6f 75 73 65  |x%:dra.y0%=mouse|
000068b0  79 25 2d 62 79 25 0d 45  ce 35 64 0d 61 67 78 25  |y%-by%.E.5d.agx%|
000068c0  3d 64 72 61 67 78 30 25  3a 64 72 61 67 79 25 3d  |=dragx0%:dragy%=|
000068d0  0d 72 61 67 79 30 25 3a  73 70 72 78 30 25 3d 78  |.ragy0%:sprx0%=x|
000068e0  25 3a 73 70 72 0d 30 25  3d 79 25 0d 45 d8 12 70  |%:spr.0%=y%.E..p|
000068f0  61 69 6e 74 5f 64 72 61  67 25 0d 3d 31 0d 45 e2  |aint_drag%.=1.E.|
00006900  06 c9 30 0d 45 ec 17 f2  65 64 69 74 28 73 70 0d  |..0.E...edit(sp.|
00006910  69 74 65 6e 24 28 49 25  29 29 0d 45 f6 11 e6 30  |iten$(I%)).E...0|
00006920  2c 73 70 72 0d 6f 6c 6f  75 72 25 0d 46 00 15 e6  |,spr.olour%.F...|
00006930  30 2c 31 32 38 2b 73 70  72 0d 6f 6c 6f 75 72 25  |0,128+spr.olour%|
00006940  0d 46 0a 35 e7 28 70 61  69 6e 74 5f 64 72 0d 67  |.F.5.(paint_dr.g|
00006950  25 80 26 46 30 29 3d 26  31 30 8c ec 73 70 72 78  |%.&F0)=&10..sprx|
00006960  31 25 3c 0d 73 70 78 25  2c 73 70 72 79 31 25 3c  |1%<.spx%,spry1%<|
00006970  3c 73 70 79 25 0d 46 14  0d ec 73 70 72 78 30 25  |<spy%.F...sprx0%|
00006980  3c 3c 73 70 78 25 2c 73  70 72 79 30 25 0d 3c 73  |<<spx%,spry0%.<s|
00006990  70 79 25 0d 46 1e 11 c8  8e 70 61 69 6e 74 6d 6f  |py%.F....paintmo|
000069a0  64 65 0d ca 0d 46 28 0a  c9 32 38 2c 32 39 0d 46  |de...F(..28,29.F|
000069b0  32 26 e7 73 70 72 78 0d  25 2d 73 70 72 78 30 25  |2&.sprx.%-sprx0%|
000069c0  3c 30 8c 78 25 2b 3d 73  70 72 78 31 0d 2d 73 70  |<0.x%+=sprx1.-sp|
000069d0  72 78 30 25 0d 46 3c 26  e7 73 70 72 79 31 25 2d  |rx0%.F<&.spry1%-|
000069e0  73 0d 72 79 30 25 3c 30  8c 79 25 2b 3d 73 70 72  |s.ry0%<0.y%+=spr|
000069f0  79 31 25 2d 73 70 0d 79  30 25 0d 46 46 1c f0 63  |y1%-sp.y0%.FF..c|
00006a00  6f 64 65 25 2c 78 25 3c  3c 73 70 0d 25 2c 79 25  |ode%,x%<<sp.%,y%|
00006a10  3c 3c 73 70 79 25 0d 46  50 05 7f 0d 46 5a 1e f0  |<<spy%.FP...FZ..|
00006a20  0d 6f 64 65 25 2b 35 2c  78 25 3c 3c 73 70 78 25  |.ode%+5,x%<<spx%|
00006a30  2c 79 25 3c 3c 0d 70 79  25 0d 46 64 05 cb 0d 46  |,y%<<.py%.Fd...F|
00006a40  6e 1a f2 65 64 69 74 6f  66 66 0d 73 70 72 69 74  |n..editoff.sprit|
00006a50  65 6e 24 28 49 25 29 29  0d 46 78 15 f2 75 70 0d  |en$(I%)).Fx..up.|
00006a60  61 74 65 73 70 72 69 74  65 28 49 25 29 0d 46 82  |atesprite(I%).F.|
00006a70  11 c8 8e 70 0d 69 6e 74  6d 6f 64 65 25 ca 0d 46  |...p.intmode%..F|
00006a80  8c 08 c9 31 39 3a 0d 46  96 0d c9 32 38 3a 64 72  |...19:.F...28:dr|
00006a90  61 67 78 25 3d 6d 6f 75  73 65 78 25 2d 62 0d 25  |agx%=mousex%-b.%|
00006aa0  3a 64 72 61 67 79 25 3d  6d 6f 75 73 65 79 25 2d  |:dragy%=mousey%-|
00006ab0  62 79 25 0d f2 64 72 61  67 6f 66 66 3a e1 0d 46  |by%..dragoff:..F|
00006ac0  a0 27 c9 32 37 3a 64 72  0d 67 78 31 25 3d 64 72  |.'.27:dr.gx1%=dr|
00006ad0  61 67 78 30 25 3a 64 72  61 67 79 31 25 0d 64 72  |agx0%:dragy1%.dr|
00006ae0  61 67 79 30 25 0d 46 aa  1f 73 70 72 78 31 25 3d  |agy0%.F..sprx1%=|
00006af0  73 70 0d 78 30 25 3a 73  70 72 79 31 25 3d 73 70  |sp.x0%:spry1%=sp|
00006b00  72 79 30 25 0d 46 b4 0d  7f 3a 70 61 69 6e 74 5f  |ry0%.F...:paint_|
00006b10  64 72 61 67 25 3d 2d 31  0d 46 be 05 0d 0d 46 c8  |drag%=-1.F....F.|
00006b20  05 cb 0d 46 d2 05 cc 0d  46 dc 33 70 61 69 6e 74  |...F....F.3paint|
00006b30  5f 0d 72 61 67 25 3d 28  49 25 3c 3c 31 36 29 84  |_.rag%=(I%<<16).|
00006b40  28 63 6f 64 65 25 0d 3c  38 29 84 28 6e 63 6c 69  |(code%.<8).(ncli|
00006b50  63 6b 73 25 2d 31 3c 3c  34 29 0d 0d e6 05 cd 0d  |cks%-1<<4)......|
00006b60  46 f0 2b 64 72 61 67 78  30 25 3d 6d 6f 75 73 65  |F.+dragx0%=mouse|
00006b70  0d 25 2d 62 78 25 3a 64  72 61 67 79 30 25 3d 6d  |.%-bx%:dragy0%=m|
00006b80  6f 75 73 65 79 0d 2d 62  79 25 0d 46 fa 35 64 72  |ousey.-by%.F.5dr|
00006b90  61 67 78 25 3d 64 72 61  67 78 0d 25 3a 64 72 61  |agx%=dragx.%:dra|
00006ba0  67 79 25 3d 64 72 61 67  79 30 25 3a 73 70 72 0d  |gy%=dragy0%:spr.|
00006bb0  30 25 3d 78 25 3a 73 70  72 79 30 25 3d 79 25 0d  |0%=x%:spry0%=y%.|
00006bc0  47 04 0c f2 0d 72 61 67  6f 66 66 0d 47 0e 05 e1  |G....ragoff.G...|
00006bd0  0d 47 18 04 0d 47 22 43  dd 0d 70 61 69 6e 74 64  |.G...G"C..paintd|
00006be0  72 61 67 28 6d 6f 75 73  65 78 25 2c 6d 6f 0d 73  |rag(mousex%,mo.s|
00006bf0  65 79 25 2c 62 75 74 74  6f 6e 73 25 2c 68 61 6e  |ey%,buttons%,han|
00006c00  64 6c 65 0d 2c 69 63 6f  6e 25 2c 6f 6c 64 62 75  |dle.,icon%,oldbu|
00006c10  74 74 6f 6e 73 25 29 0d  0d 2c 24 f2 67 65 74 77  |ttons%)..,$.getw|
00006c20  28 73 70 72 69 74 65 77  25 28 70 61 69 0d 74 5f  |(spritew%(pai.t_|
00006c30  64 72 61 67 25 3e 3e 31  36 29 29 0d 47 36 0c f2  |drag%>>16)).G6..|
00006c40  64 72 0d 67 6f 66 66 0d  47 40 38 e7 68 61 6e 64  |dr.goff.G@8.hand|
00006c50  6c 65 25 3c 3e 73 70 0d  69 74 65 77 25 28 70 61  |le%<>sp.itew%(pa|
00006c60  69 6e 74 5f 64 72 61 67  25 3e 3e 31 0d 29 8c 70  |int_drag%>>1.).p|
00006c70  61 69 6e 74 5f 64 72 61  67 25 3d 2d 31 3a e1 0d  |aint_drag%=-1:..|
00006c80  47 0d 29 64 72 61 67 78  25 3d 6d 6f 75 73 65 78  |G.)dragx%=mousex|
00006c90  25 2d 62 78 25 3a 0d 72  61 67 79 25 3d 6d 6f 75  |%-bx%:.ragy%=mou|
00006ca0  73 65 79 25 2d 62 79 25  0d 47 54 0d e7 28 70 61  |sey%-by%.GT..(pa|
00006cb0  69 6e 74 6d 6f 64 65 25  3d 32 30 84 70 61 69 6e  |intmode%=20.pain|
00006cc0  0d 6d 6f 64 65 25 3d 32  31 29 80 28 70 61 69 6e  |.mode%=21).(pain|
00006cd0  74 5f 64 72 61 0d 25 80  26 46 29 3d 30 8c 64 72  |t_dra.%.&F)=0.dr|
00006ce0  61 67 79 25 3d 64 72 61  67 79 0d 25 0d 47 5e 15  |agy%=dragy.%.G^.|
00006cf0  f2 64 72 61 67 6f 6e 28  62 75 74 74 6f 6e 73 0d  |.dragon(buttons.|
00006d00  29 0d 47 68 05 e1 0d 47  72 04 0d 47 7c 0d dd f2  |).Gh...Gr..G|...|
00006d10  64 72 61 67 0d 66 66 0d  47 86 15 e7 70 61 69 6e  |drag.ff.G...pain|
00006d20  74 5f 64 72 61 67 25 3d  2d 0d 8c e1 0d 47 90 11  |t_drag%=-....G..|
00006d30  c8 8e 70 61 69 6e 74 6d  6f 64 65 25 ca 0d 0d 9a  |..paintmode%....|
00006d40  17 c9 31 36 2c 31 38 3a  f4 20 64 6f 20 6e 6f 74  |..16,18:. do not|
00006d50  68 69 6e 0d 0d 47 a4 05  7f 0d 47 ae 49 21 71 25  |hin..G....G.I!q%|
00006d60  3d 73 70 72 69 74 65 77  0d 28 70 61 69 6e 74 5f  |=spritew.(paint_|
00006d70  64 72 61 67 25 3e 3e 31  36 29 3a 71 25 0d 34 3d  |drag%>>16):q%.4=|
00006d80  2d 31 45 38 3a 71 25 21  38 3d 2d 31 45 38 3a 71  |-1E8:q%!8=-1E8:q|
00006d90  25 21 0d 32 3d 31 45 38  3a 71 25 21 31 36 3d 31  |%!.2=1E8:q%!16=1|
00006da0  45 38 0d 47 b8 23 c8 0d  22 57 69 6d 70 5f 55 70  |E8.G.#.."Wimp_Up|
00006db0  64 61 74 65 57 69 6e 64  6f 77 22 2c 0d 71 25 b8  |dateWindow",.q%.|
00006dc0  6d 6f 72 65 25 0d 47 c2  35 c8 95 6d 6f 72 65 25  |more%.G.5..more%|
00006dd0  3a 0d 64 72 67 6f 66 66  3a c8 99 22 57 69 6d 70  |:.drgoff:.."Wimp|
00006de0  5f 47 65 74 52 65 0d 74  61 6e 67 6c 65 22 2c 2c  |_GetRe.tangle",,|
00006df0  71 25 b8 6d 6f 72 65 25  3a ce 0d 0d cc 05 cb 0d  |q%.more%:.......|
00006e00  47 d6 05 e1 0d 47 e0 04  0d 47 ea 0c dd f2 64 72  |G....G...G....dr|
00006e10  0d 6f 66 66 0d 47 f4 08  e6 33 2c 37 0d 47 fe 1e  |.off.G...3,7.G..|
00006e20  63 6f 64 65 25 0d 28 70  61 69 6e 74 5f 64 72 61  |code%.(paint_dra|
00006e30  67 25 3e 3e 38 29 80 26  46 46 0d 48 08 11 c8 8e  |g%>>8).&FF.H....|
00006e40  70 61 69 6e 74 6d 6f 64  65 25 ca 0d 48 12 0a 0d  |paintmode%..H...|
00006e50  32 38 2c 32 39 0d 48 1c  15 c8 8e 70 61 69 6e 74  |28,29.H....paint|
00006e60  5f 64 72 61 0d 25 80 26  46 ca 0d 48 26 3e c9 30  |_dra.%.&F..H&>.0|
00006e70  3a c8 93 62 78 25 2b 64  72 0d 67 78 30 25 2c 62  |:..bx%+dr.gx0%,b|
00006e80  79 25 2b 64 72 61 67 79  30 25 2c 64 72 61 0d 78  |y%+dragy0%,dra.x|
00006e90  25 2d 64 72 61 67 78 30  25 2c 64 72 61 67 79 25  |%-dragx0%,dragy%|
00006ea0  2d 64 72 0d 67 79 30 25  0d 48 30 3e c9 31 3a c8  |-dr.gy0%.H0>.1:.|
00006eb0  93 62 78 25 2b 64 72 61  0d 78 25 2c 62 79 25 2b  |.bx%+dra.x%,by%+|
00006ec0  64 72 61 67 79 25 2c 64  72 61 67 78 31 0d 2d 64  |dragy%,dragx1.-d|
00006ed0  72 61 67 78 30 25 2c 64  72 61 67 79 31 25 2d 64  |ragx0%,dragy1%-d|
00006ee0  72 61 0d 79 30 25 0d 48  3a 1c ec 62 78 25 2b 64  |ra.y0%.H:..bx%+d|
00006ef0  72 61 67 78 30 25 2c 0d  79 25 2b 64 72 61 67 79  |ragx0%,.y%+dragy|
00006f00  30 25 0d 48 44 3b f0 32  39 2c 62 78 0d 2b 64 72  |0%.HD;.29,bx.+dr|
00006f10  61 67 78 31 25 2c 62 79  25 2b 64 72 61 67 79 30  |agx1%,by%+dragy0|
00006f20  25 0d f0 32 39 2c 62 78  25 2b 64 72 61 67 78 31  |%..29,bx%+dragx1|
00006f30  25 2c 62 79 25 2b 0d 72  61 67 79 31 25 0d 48 4e  |%,by%+.ragy1%.HN|
00006f40  3b f0 32 39 2c 62 78 25  2b 64 72 0d 67 78 30 25  |;.29,bx%+dr.gx0%|
00006f50  2c 62 79 25 2b 64 72 61  67 79 31 25 3a f0 32 39  |,by%+dragy1%:.29|
00006f60  0d 62 78 25 2b 64 72 61  67 78 30 25 2c 62 79 25  |.bx%+dragx0%,by%|
00006f70  2b 64 72 61 67 0d 30 25  0d 48 58 05 cb 0d 48 62  |+drag.0%.HX...Hb|
00006f80  1f c9 31 39 2c 32 30 2c  32 31 0d 32 32 2c 32 33  |..19,20,21.22,23|
00006f90  2c 32 34 2c 32 35 2c 32  36 2c 32 37 0d 48 6c 0d  |,24,25,26,27.Hl.|
00006fa0  c8 8e 70 61 69 6e 74 5f  64 72 61 67 25 80 26 46  |..paint_drag%.&F|
00006fb0  ca 0d 48 76 0d c9 30 3a  0d 48 80 16 c8 8e 70 61  |..Hv..0:.H....pa|
00006fc0  69 6e 74 5f 64 72 61 67  25 0d 26 46 30 ca 0d 48  |int_drag%.&F0..H|
00006fd0  8a 38 c9 26 31 30 3a ec  62 78 25 2b 64 72 0d 67  |.8.&10:.bx%+dr.g|
00006fe0  78 30 25 2c 62 79 25 2b  64 72 61 67 79 30 25 3a  |x0%,by%+dragy0%:|
00006ff0  df 62 78 0d 2b 64 72 61  67 78 25 2c 62 79 25 2b  |.bx.+dragx%,by%+|
00007000  64 72 61 67 79 25 0d 48  0d 40 c9 26 30 30 3a ec  |dragy%.H.@.&00:.|
00007010  62 78 25 2b 64 72 61 67  78 30 25 2c 62 0d 25 2b  |bx%+dragx0%,b.%+|
00007020  64 72 61 67 79 30 25 3a  f0 63 6f 64 65 25 2b 35  |dragy0%:.code%+5|
00007030  2c 62 0d 25 2b 64 72 61  67 78 25 2c 62 79 25 2b  |,b.%+dragx%,by%+|
00007040  64 72 61 67 79 25 0d 0d  9e 05 cb 0d 48 a8 21 c9  |dragy%......H.!.|
00007050  31 3a 63 6f 64 65 25 3d  28 70 61 69 0d 74 5f 64  |1:code%=(pai.t_d|
00007060  72 61 67 25 3e 3e 38 29  80 26 46 46 0d 48 b2 1c  |rag%>>8).&FF.H..|
00007070  ec 0d 78 25 2b 64 72 61  67 78 31 25 2c 62 79 25  |..x%+dragx1%,by%|
00007080  2b 64 72 61 67 79 0d 25  0d 48 bc 0c c8 8e 63 6f  |+dragy.%.H....co|
00007090  64 65 25 ca 0d 48 c6 21  c9 26 30 0d 3a df 62 78  |de%..H.!.&0.:.bx|
000070a0  25 2b 64 72 61 67 78 30  25 2c 62 79 25 2b 64 72  |%+dragx0%,by%+dr|
000070b0  0d 67 79 30 25 0d 48 d0  1a df 62 78 25 2b 64 72  |.gy0%.H...bx%+dr|
000070c0  61 67 78 25 2c 0d 79 25  2b 64 72 61 67 79 25 0d  |agx%,.y%+dragy%.|
000070d0  48 da 1c df 62 78 25 2b  64 72 0d 67 78 31 25 2c  |H...bx%+dr.gx1%,|
000070e0  62 79 25 2b 64 72 61 67  79 31 25 0d 48 e4 1e 0d  |by%+dragy1%.H...|
000070f0  3a ec 62 78 25 2b 64 72  61 67 78 30 25 2c 62 79  |:.bx%+dragx0%,by|
00007100  25 2b 64 72 0d 67 79 30  25 0d 48 ee 22 f0 63 6f  |%+dr.gy0%.H.".co|
00007110  64 65 25 2b 35 2c 62 78  25 0d 64 72 61 67 78 25  |de%+5,bx%.dragx%|
00007120  2c 62 79 25 2b 64 72 61  67 79 25 0d 48 f8 0d cb  |,by%+dragy%.H...|
00007130  0d 49 02 05 cb 0d 49 0c  05 cb 0d 49 16 05 e1 0d  |.I....I....I....|
00007140  49 20 04 0d 49 2a 16 dd  f2 64 72 61 67 6f 6e 28  |I ..I*...dragon(|
00007150  62 75 74 74 6f 6e 73 25  0d 0d 49 34 11 c8 8e 70  |buttons%..I4...p|
00007160  61 69 6e 74 6d 6f 64 65  25 ca 0d 49 3e 0d c9 31  |aintmode%..I>..1|
00007170  36 0d 49 48 12 e7 62 75  74 74 6f 6e 73 25 80 26  |6.IH..buttons%.&|
00007180  30 35 0d 0d 49 52 21 f2  73 70 72 69 74 65 70 69  |05..IR!.spritepi|
00007190  78 65 6c 28 70 61 69 0d  74 5f 64 72 61 67 25 3e  |xel(pai.t_drag%>|
000071a0  3e 31 36 29 0d 49 5c 13  cc 70 61 69 0d 74 5f 64  |>16).I\..pai.t_d|
000071b0  72 61 67 25 3d 2d 31 0d  49 66 05 cd 0d 49 70 14  |rag%=-1.If...Ip.|
000071c0  c9 0d 30 3a f4 20 64 6f  20 6e 6f 74 68 69 6e 67  |..0:. do nothing|
000071d0  0d 49 7a 0d 7f f2 0d 72  61 67 6f 66 66 0d 49 84  |.Iz....ragoff.I.|
000071e0  05 cb 0d 49 8e 05 e1 0d  49 98 04 0d 49 a2 13 dd  |...I....I...I...|
000071f0  f2 65 64 69 74 28 73 70  6e 61 6d 65 24 29 0d 49  |.edit(spname$).I|
00007200  0d 4a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.J.."OS_SpriteOp|
00007210  22 2c 26 31 33 0d 2c 73  70 72 69 74 65 61 72 65  |",&13.,spriteare|
00007220  61 25 2c 73 70 6e 61 6d  65 24 0d 30 b8 6f 6c 64  |a%,spname$.0.old|
00007230  52 30 25 2c 6f 6c 64 52  31 25 2c 6f 6c 64 52 0d  |R0%,oldR1%,oldR.|
00007240  25 2c 6f 6c 64 52 33 25  0d 49 b6 0f 73 77 69 74  |%,oldR3%.I..swit|
00007250  63 68 65 64 0d 3d b9 0d  49 c0 05 e1 0d 49 ca 04  |ched.=..I....I..|
00007260  0d 49 d4 11 3b ea 41 25  2c 0d 25 2c 73 70 74 72  |.I..;.A%,.%,sptr|
00007270  25 0d 49 de 28 3b 41 25  3d a4 73 70 72 69 0d 65  |%.I.(;A%=.spri.e|
00007280  61 64 64 72 28 73 70 72  69 74 65 61 72 65 61 25  |addr(spritearea%|
00007290  2c 73 70 0d 61 6d 65 24  29 0d 49 e8 20 3b e7 28  |,sp.ame$).I. ;.(|
000072a0  73 70 74 72 25 21 31 36  0d 31 29 2a 34 3d 6c 69  |sptr%!16.1)*4=li|
000072b0  6e 65 6c 65 6e 25 80 a3  8c 0d 49 f2 13 0d 21 76  |nelen%....I...!v|
000072c0  64 75 73 63 72 65 65 6e  25 3d 41 25 0d 49 fc 2d  |duscreen%=A%.I.-|
000072d0  3b c8 0d 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |;.."OS_ReadModeV|
000072e0  61 72 69 61 62 6c 65 0d  2c 73 70 74 72 25 21 34  |ariable.,sptr%!4|
000072f0  30 2c 31 30 b8 2c 2c 42  25 0d 4a 06 0d 3b ef 32  |0,10.,,B%.J..;.2|
00007300  39 2c 28 73 70 74 72 25  21 32 34 3e 3e 42 25 29  |9,(sptr%!24>>B%)|
00007310  2a 0d 78 25 3b 30 3b 0d  4a 10 21 3b 8b 21 76 64  |*.x%;0;.J.!;.!vd|
00007320  75 73 63 72 65 65 0d 25  3d 65 64 69 74 62 75 66  |uscree.%=editbuf|
00007330  66 65 72 25 3a ef 32 36  0d 4a 1a 0d 3b c8 99 22  |fer%:.26.J..;.."|
00007340  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00007350  0d 2c 73 70 72 69 74 65  61 72 65 61 25 2c 73 70  |.,spritearea%,sp|
00007360  6e 61 6d 65 24 0d 30 2c  31 30 32 34 2d 73 70 68  |name$.0,1024-sph|
00007370  25 2a 64 79 25 2c 30 0d  4a 24 06 3b cd 0d 4a 2e  |%*dy%,0.J$.;..J.|
00007380  27 3b ef 32 34 2c 30 3b  31 30 32 34 2d 73 70 68  |';.24,0;1024-sph|
00007390  25 2a 64 79 25 3b 73 70  77 25 2a 64 78 25 3b 31  |%*dy%;spw%*dx%;1|
000073a0  30 32 33 3b 0d 4a 38 06  3b e1 0d 4a 42 04 0d 4a  |023;.J8.;..JB..J|
000073b0  4c 16 dd f2 65 64 69 74  6f 66 66 28 73 70 6e 61  |L...editoff(spna|
000073c0  6d 65 24 29 0d 4a 56 0f  e7 73 77 69 74 63 68 65  |me$).JV..switche|
000073d0  64 25 8c 0d 4a 60 2f c8  99 22 4f 53 5f 53 70 72  |d%..J`/.."OS_Spr|
000073e0  69 74 65 0d 70 22 2c 6f  6c 64 52 30 25 2c 6f 6c  |ite.p",oldR0%,ol|
000073f0  64 52 31 25 2c 6f 6c 64  0d 32 25 2c 6f 6c 64 52  |dR1%,old.2%,oldR|
00007400  33 25 0d 4a 6a 15 75 6e  64 6f 6e 61 6d 0d 24 3d  |3%.Jj.undonam.$=|
00007410  73 70 6e 61 6d 65 24 0d  4a 74 0f 73 77 69 74 63  |spname$.Jt.switc|
00007420  68 65 0d 25 3d a3 0d 4a  7e 05 cd 0d 4a 88 05 e1  |he.%=..J~...J...|
00007430  0d 4a 92 04 0d 4a 9c 0d  3b ea 41 25 2c 42 25 2c  |.J...J..;.A%,B%,|
00007440  45 25 2c 48 25 2c 4c 25  2c 57 25 2c 0d 25 2c 4a  |E%,H%,L%,W%,.%,J|
00007450  25 2c 54 25 0d 4a a6 1e  3b e7 21 76 64 75 73 63  |%,T%.J..;.!vdusc|
00007460  72 0d 65 6e 25 3d 65 64  69 74 62 75 66 66 65 72  |r.en%=editbuffer|
00007470  25 8c 0d 4a b0 17 0d f4  20 49 46 20 68 61 73 6d  |%..J.... IF hasm|
00007480  61 73 6b 25 20 54 48 45  4e 0d 4a 0d 28 3b 41 25  |ask% THEN.J.(;A%|
00007490  3d a4 73 70 72 69 74 65  61 64 64 72 28 73 70 72  |=.spriteaddr(spr|
000074a0  0d 74 65 61 72 65 61 25  2c 73 70 6e 61 6d 65 24  |.tearea%,spname$|
000074b0  29 0d 4a c4 12 0d e7 73  70 74 72 25 21 32 34 3c  |).J....sptr%!24<|
000074c0  3e 30 8c 0d 4a ce 2d 3b  c8 99 0d 4f 53 5f 52 65  |>0..J.-;...OS_Re|
000074d0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 0d  |adModeVariable".|
000074e0  73 70 74 72 25 21 34 30  2c 31 30 b8 2c 2c 42 25  |sptr%!40,10.,,B%|
000074f0  0d 4a d8 1f 0d 4a 25 3d  73 70 74 72 25 21 32 34  |.J...J%=sptr%!24|
00007500  3e 3e 42 25 3a 73 70 74  72 0d 21 32 34 3d 30 0d  |>>B%:sptr.!24=0.|
00007510  4a e2 38 3b e3 49 25 3d  31 b8 4a 25 3a c8 0d 22  |J.8;.I%=1.J%:.."|
00007520  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 32 32  |OS_SpriteOp",&22|
00007530  45 2c 73 0d 72 69 74 65  61 72 65 61 25 2c 73 70  |E,s.ritearea%,sp|
00007540  74 72 25 2c 30 3a ed 0d  0d ec 06 3b cd 0d 4a f6  |tr%,0:.....;..J.|
00007550  24 3b 57 25 3d 28 73 70  74 72 25 21 31 0d 2b 31  |$;W%=(sptr%!1.+1|
00007560  29 2a 34 3a 48 25 3d 73  70 74 72 25 21 32 30 2b  |)*4:H%=sptr%!20+|
00007570  31 0d 0d 00 27 3b 45 25  3d 65 64 69 74 62 75 66  |1...';E%=editbuf|
00007580  66 65 72 25 3a 4c 25 0d  65 64 69 74 62 75 66 66  |fer%:L%.editbuff|
00007590  65 72 77 69 64 74 68 25  0d 4b 0a 4c 0d 73 67 65  |erwidth%.K.L.sge|
000075a0  74 70 61 72 73 21 30 3d  41 25 3a 73 67 65 74 70  |tpars!0=A%:sgetp|
000075b0  61 0d 73 21 34 3d 45 25  3a 73 67 65 74 70 61 72  |a.s!4=E%:sgetpar|
000075c0  73 21 38 3d 57 25 0d 73  67 65 74 70 61 72 73 21  |s!8=W%.sgetpars!|
000075d0  31 32 3d 48 25 3a 73 67  65 74 70 0d 72 73 21 31  |12=H%:sgetp.rs!1|
000075e0  36 3d 4c 25 0d 4b 14 0a  3b d6 73 67 65 74 0d 4b  |6=L%.K..;.sget.K|
000075f0  0d 4e f4 20 46 4f 52 20  4a 25 3d 31 20 54 4f 20  |.N. FOR J%=1 TO |
00007600  48 25 3a 46 4f 0d 20 49  25 3d 30 20 54 4f 20 57  |H%:FO. I%=0 TO W|
00007610  25 2d 31 20 53 54 45 50  34 3a 0d 25 3d 41 25 21  |%-1 STEP4:.%=A%!|
00007620  49 25 3a 41 25 21 49 25  3d 45 25 21 49 25 3a 0d  |I%:A%!I%=E%!I%:.|
00007630  25 21 49 25 3d 54 25 3a  4e 45 58 54 0d 4b 28 18  |%!I%=T%:NEXT.K(.|
00007640  f4 20 41 25 0d 3d 57 25  3a 45 25 2b 3d 4c 25 3a  |. A%.=W%:E%+=L%:|
00007650  4e 45 58 54 0d 4b 32 0a  f4 0d 45 4c 53 45 0d 4b  |NEXT.K2...ELSE.K|
00007660  3c 51 f4 20 53 59 53 22  4f 53 5f 53 70 72 0d 74  |<Q. SYS"OS_Spr.t|
00007670  65 4f 70 22 2c 26 31 31  30 2c 73 70 72 69 74 65  |eOp",&110,sprite|
00007680  61 72 65 0d 25 2c 73 70  6e 61 6d 65 24 2c 30 2c  |are.%,spname$,0,|
00007690  30 2c 31 30 32 34 2d 73  0d 68 25 2a 64 79 25 2c  |0,1024-s.h%*dy%,|
000076a0  73 70 77 25 2a 64 78 25  2d 31 2c 31 30 0d 33 0d  |spw%*dx%-1,10.3.|
000076b0  4b 46 0b f4 20 45 4e 44  49 46 0d 4b 50 06 3b cd  |KF.. ENDIF.KP.;.|
000076c0  0d 4b 0d 2e 3b 75 6e 64  6f 73 63 72 65 65 6e 25  |.K..;undoscreen%|
000076d0  3d 21 76 64 75 73 63 0d  65 65 6e 25 3a 75 6e 64  |=!vdusc.een%:und|
000076e0  6f 6e 61 6d 65 24 3d 73  70 6e 61 6d 0d 24 0d 4b  |oname$=spnam.$.K|
000076f0  64 23 3b 21 76 64 75 73  63 72 65 65 6e 25 3d 6f  |d#;!vduscreen%=o|
00007700  6c 0d 76 64 75 25 3a ef  32 39 2c 30 3b 30 3b 32  |l.vdu%:.29,0;0;2|
00007710  36 0d 4b 6e 06 3b 0d 0d  4b 78 04 0d 4b 82 13 dd  |6.Kn.;..Kx..K...|
00007720  f2 75 6e 64 6f 28 73 70  72 69 74 0d 25 29 0d 4b  |.undo(sprit.%).K|
00007730  8c 08 ef 37 3a e1 0d 4b  96 04 0d 4b a0 3b 3b e7  |...7:..K...K.;;.|
00007740  0d 6e 64 6f 6e 61 6d 65  24 3c 3e 73 70 72 69 74  |.ndoname$<>sprit|
00007750  65 6e 24 28 49 0d 29 84  75 6e 64 6f 73 63 72 65  |en$(I.).undoscre|
00007760  65 6e 25 3c 3e 65 64 69  74 62 0d 66 66 65 72 25  |en%<>editb.ffer%|
00007770  8c ef 37 3a e1 0d 4b aa  1c 3b 21 76 64 75 73 0d  |..7:..K..;!vdus.|
00007780  72 65 65 6e 25 3d 75 6e  64 6f 73 63 72 65 65 6e  |reen%=undoscreen|
00007790  25 0d 4b b4 0d 3b f2 65  64 69 74 6f 66 66 28 73  |%.K..;.editoff(s|
000077a0  70 72 69 74 65 6e 24 28  49 0d 29 29 0d 4b be 16  |priten$(I.)).K..|
000077b0  3b f2 75 70 64 61 74 65  73 70 72 69 74 65 0d 49  |;.updatesprite.I|
000077c0  25 29 0d 4b c8 06 3b e1  0d 4b d2 04 0d 4b dc 1a  |%).K..;..K...K..|
000077d0  dd a4 73 0d 72 69 74 65  61 64 64 72 28 41 25 2c  |..s.riteaddr(A%,|
000077e0  6e 61 6d 65 24 29 0d 4b  0d 16 ea 4e 25 2c 4e 31  |name$).K...N%,N1|
000077f0  25 2c 4e 32 25 2c 4e 33  25 2c 49 25 0d 0d f0 37  |%,N2%,N3%,I%...7|
00007800  24 73 70 72 69 74 65 6e  61 6d 65 25 3d 6e 61 6d  |$spritename%=nam|
00007810  65 24 0d e3 49 25 3d a9  6e 61 6d 65 24 b8 31 31  |e$..I%=.name$.11|
00007820  3a 73 70 72 69 74 65 0d  61 6d 65 25 3f 49 25 3d  |:sprite.ame%?I%=|
00007830  30 3a ed 0d 4b fa 39 4e  31 25 3d 73 0d 72 69 74  |0:..K.9N1%=s.rit|
00007840  65 6e 61 6d 65 25 21 30  3a 4e 32 25 3d 73 70 72  |ename%!0:N2%=spr|
00007850  69 0d 65 6e 61 6d 65 25  21 34 3a 4e 33 25 3d 73  |i.ename%!4:N3%=s|
00007860  70 72 69 74 65 6e 0d 6d  65 25 21 38 0d 4c 04 1a  |priten.me%!8.L..|
00007870  4e 25 3d 41 25 2b 41 25  21 31 32 0d 41 25 3d 41  |N%=A%+A%!12.A%=A|
00007880  25 2b 41 25 21 38 0d 4c  0e 3b c8 95 41 25 3c 4e  |%+A%!8.L.;..A%<N|
00007890  0d 3a e7 41 25 21 34 3d  4e 31 25 e7 41 25 21 38  |.:.A%!4=N1%.A%!8|
000078a0  3d 4e 32 25 e7 0d 25 21  31 32 3d 4e 33 25 8c 73  |=N2%..%!12=N3%.s|
000078b0  70 74 72 25 3d 41 25 3a  3d 41 0d 2b 41 25 21 33  |ptr%=A%:=A.+A%!3|
000078c0  32 0d 4c 18 0d 41 25 2b  3d 21 41 25 3a ce 0d 0d  |2.L..A%+=!A%:...|
000078d0  22 35 85 31 2c 22 53 70  72 69 74 65 20 27 22 2b  |"5.1,"Sprite '"+|
000078e0  6e 61 6d 65 0d 2b 22 27  20 6e 6f 74 20 66 6f 75  |name.+"' not fou|
000078f0  6e 64 20 62 79 20 46 4e  73 0d 72 69 74 65 61 64  |nd by FNs.ritead|
00007900  64 72 22 0d 4c 2c 04 0d  4c 36 52 2d 2d 2d 0d 2d  |dr".L,..L6R---.-|
00007910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00007920  2d 2d 2d 0d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |---.------------|
00007930  2d 2d 2d 2d 2d 2d 2d 2d  0d 2d 2d 2d 2d 2d 2d 2d  |--------.-------|
00007940  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 2d 2d  |-------------.--|
00007950  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 4c 40 04 0d 4c 4a  |---------.L@..LJ|
00007960  0d dd 0d 70 61 6c 65 74  74 65 0d 4c 54 0c c8 8e  |...palette.LT...|
00007970  69 63 6f 6e 25 ca 0d 0d  5e 09 c9 2d 31 3a e1 0d  |icon%...^..-1:..|
00007980  4c 68 27 c9 33 31 3a f2  73 65 74 69 0d 70 61 6c  |Lh'.31:.seti.pal|
00007990  65 74 74 65 25 2c 69 63  6f 6e 25 2c 26 32 30 30  |ette%,icon%,&200|
000079a0  30 0d 30 2c 30 29 0d 4c  72 10 67 72 69 64 25 3d  |0.0,0).Lr.grid%=|
000079b0  ac 67 72 69 64 25 0d 4c  7c 05 7f 0d 4c 86 0e e7  |.grid%.L|...L...|
000079c0  69 63 6f 6e 25 3c 31 36  8c 0d 4c 0d 0c f2 75 6e  |icon%<16..L...un|
000079d0  68 74 70 61 6c 0d 4c 9a  14 70 61 6c 63 6f 6c 6f  |htpal.L..palcolo|
000079e0  0d 72 25 3d 69 63 6f 6e  25 0d 4c a4 19 73 70 72  |.r%=icon%.L..spr|
000079f0  63 6f 6c 6f 75 0d 25 3d  70 61 6c 63 6f 6c 6f 75  |colou.%=palcolou|
00007a00  72 25 0d 4c ae 0a f2 68  74 70 0d 6c 0d 4c b8 05  |r%.L...htp.l.L..|
00007a10  cc 0d 4c c2 17 e7 69 63  6f 6e 25 3c 3e 70 61 0d  |..L...icon%<>pa.|
00007a20  6e 74 6d 6f 64 65 25 8c  0d 4c cc 22 f2 64 65 73  |ntmode%..L.".des|
00007a30  65 6c 65 63 0d 28 70 61  6c 65 74 74 65 25 2c 70  |elec.(palette%,p|
00007a40  61 69 6e 74 6d 6f 64 65  25 0d 0d 4c d6 1b f2 73  |aintmode%..L...s|
00007a50  65 6c 65 63 74 28 70 61  6c 65 74 74 65 25 0d 69  |elect(palette%.i|
00007a60  63 6f 6e 25 29 0d 4c e0  23 70 61 69 6e 74 6d 6f  |con%).L.#paintmo|
00007a70  64 65 25 0d 69 63 6f 6e  25 3a 70 61 69 6e 74 5f  |de%.icon%:paint_|
00007a80  64 72 61 67 25 3d 2d 31  0d 4c ea 05 cd 0d 4c f4  |drag%=-1.L....L.|
00007a90  05 cd 0d 4c fe 05 cb 0d  4d 08 05 e1 0d 0d 12 04  |...L....M.......|
00007aa0  0d 4d 1c 20 dd f2 78 6f  72 28 68 61 6e 64 6c 65  |.M. ..xor(handle|
00007ab0  25 2c 0d 63 6f 6e 25 2c  6e 74 69 6d 65 73 25 29  |%,.con%,ntimes%)|
00007ac0  0d 4d 26 34 ea 49 25 0d  e3 49 25 3d 31 b8 6e 74  |.M&4.I%..I%=1.nt|
00007ad0  69 6d 65 73 25 3a f2 73  65 74 69 28 0d 61 6e 64  |imes%:.seti(.and|
00007ae0  6c 65 25 2c 69 63 6f 6e  25 2c 26 32 30 30 30 30  |le%,icon%,&20000|
00007af0  30 0d 30 29 0d 4d 30 1b  74 65 6d 70 74 25 3d 91  |0.0).M0.tempt%=.|
00007b00  3a f5 fd 91 2d 74 0d 6d  70 74 25 3e 33 3a ed 0d  |:...-t.mpt%>3:..|
00007b10  4d 3a 05 e1 0d 4d 44 04  0d 4d 4e 0d dd f2 75 6e  |M:...MD..MN...un|
00007b20  68 74 70 61 6c 0d 4d 58  14 e7 70 61 6c 63 6f 6c  |htpal.MX..palcol|
00007b30  0d 75 72 25 3d 2d 31 8c  e1 0d 4d 62 26 f2 73 65  |.ur%=-1...Mb&.se|
00007b40  74 69 28 70 61 0d 65 74  74 65 25 2c 70 61 6c 63  |ti(pa.ette%,palc|
00007b50  6f 6c 6f 75 72 25 2c 26  30 30 0d 26 30 35 29 0d  |olour%,&00.&05).|
00007b60  4d 6c 05 e1 0d 4d 76 04  0d 4d 80 0b dd f2 68 0d  |Ml...Mv..M....h.|
00007b70  70 61 6c 0d 4d 8a 08 ea  63 33 25 0d 4d 94 14 e7  |pal.M...c3%.M...|
00007b80  70 61 6c 63 0d 6c 6f 75  72 25 3d 2d 31 8c e1 0d  |palc.lour%=-1...|
00007b90  4d 9e 21 63 33 25 3d 75  6e 0d 6f 6c 6f 75 72 25  |M.!c3%=un.olour%|
00007ba0  28 70 61 6c 63 6f 6c 6f  75 72 25 29 3c 3c 0d 34  |(palcolour%)<<.4|
00007bb0  0d 4d a8 30 f2 73 65 74  69 28 70 61 6c 65 74 74  |.M.0.seti(palett|
00007bc0  65 25 2c 0d 61 6c 63 6f  6c 6f 75 72 25 2c 63 33  |e%,.alcolour%,c3|
00007bd0  25 84 26 30 35 2c 26 30  0d 30 30 30 30 30 35 29  |%.&05,&0.000005)|
00007be0  0d 4d b2 05 e1 0d 4d bc  04 0d 4d c6 23 0d f2 73  |.M....M...M.#..s|
00007bf0  65 74 69 28 68 61 6e 64  6c 65 25 2c 69 63 6f 6e  |eti(handle%,icon|
00007c00  25 2c 0d 6f 72 25 2c 62  69 63 25 29 0d 4d d0 49  |%,.or%,bic%).M.I|
00007c10  21 71 25 3d 68 61 6e 0d  6c 65 25 3a 71 25 21 34  |!q%=han.le%:q%!4|
00007c20  3d 69 63 6f 6e 25 3a 71  25 21 38 3d 0d 6f 72 25  |=icon%:q%!8=.or%|
00007c30  3a 71 25 21 31 32 3d 62  69 63 25 3a c8 99 22 57  |:q%!12=bic%:.."W|
00007c40  69 0d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |i.p_SetIconState|
00007c50  22 2c 2c 71 25 0d 0d da  05 e1 0d 4d e4 04 0d 4d  |",,q%......M...M|
00007c60  ee 1a dd f2 73 65 74 72  67 62 76 0d 6c 73 28 72  |....setrgbv.ls(r|
00007c70  25 2c 67 25 2c 62 25 29  0d 4d f8 07 ea 49 25 0d  |%,g%,b%).M...I%.|
00007c80  0d 02 24 70 61 6c 25 28  30 29 3d 72 25 3a 70 61  |..$pal%(0)=r%:pa|
00007c90  6c 25 28 31 29 0d 67 25  3a 70 61 6c 25 28 32 29  |l%(1).g%:pal%(2)|
00007ca0  3d 62 25 0d 4e 0c 0b e3  49 25 0d 30 b8 32 0d 4e  |=b%.N...I%.0.2.N|
00007cb0  16 1a f2 73 65 74 69 28  70 61 6c 65 74 74 65 0d  |...seti(palette.|
00007cc0  2c 49 25 2c 30 2c 30 29  0d 4e 20 05 ed 0d 4e 2a  |,I%,0,0).N ...N*|
00007cd0  05 e1 0d 4e 0d 04 0d 4e  3e 15 dd f2 72 65 61 64  |...N...N>...read|
00007ce0  70 61 6c 28 63 25 2c 63  32 0d 29 0d 4e 48 1a e7  |pal(c%,c2.).NH..|
00007cf0  63 32 25 3d 31 36 80 76  65 72 73 69 6f 6e 0d 3e  |c2%=16.version.>|
00007d00  3d 31 33 34 8c 0d 4e 52  1d 70 61 6c 77 6f 72 64  |=134..NR.palword|
00007d10  25 3d 70 0d 6c 74 61 62  6c 65 25 21 28 34 2a 63  |%=p.ltable%!(4*c|
00007d20  25 29 0d 4e 5c 29 cc c8  0d 22 4f 53 5f 52 65 61  |%).N\)..."OS_Rea|
00007d30  64 50 61 6c 65 74 74 65  22 2c 63 25 2c 0d 32 25  |dPalette",c%,.2%|
00007d40  b8 2c 2c 70 61 6c 77 6f  72 64 25 0d 4e 66 05 cd  |.,,palword%.Nf..|
00007d50  0d 4e 0d 18 72 25 3d 28  70 61 6c 77 6f 72 64 25  |.N..r%=(palword%|
00007d60  3e 3e 38 29 80 26 46 0d  0d 4e 7a 19 67 25 3d 28  |>>8).&F..Nz.g%=(|
00007d70  70 61 6c 77 6f 72 64 25  3e 3e 31 36 0d 80 26 46  |palword%>>16..&F|
00007d80  46 0d 4e 84 19 62 25 3d  28 70 61 6c 77 6f 72 64  |F.N..b%=(palword|
00007d90  25 0d 3e 32 34 29 80 26  46 46 0d 4e 8e 05 e1 0d  |%.>24).&FF.N....|
00007da0  4e 98 04 0d 4e a2 0d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |N...N..---------|
00007db0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 2d 2d 2d 2d  |-----------.----|
00007dc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00007dd0  0d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
00007de0  2d 2d 2d 2d 2d 0d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |-----.----------|
00007df0  2d 2d 2d 2d 2d 0d 4e ac  04 0d 0d b6 20 dd f2 65  |-----.N..... ..e|
00007e00  6e 63 6f 64 65 70 61 6c  6d 65 6e 75 28 74 69 0d  |ncodepalmenu(ti.|
00007e10  6b 63 6f 6c 6f 75 72 25  29 0d 4e c0 14 f2 65 6e  |kcolour%).N...en|
00007e20  63 6f 64 65 0d 61 6c 28  30 2c 31 35 29 0d 4e ca  |code.al(0,15).N.|
00007e30  14 49 25 3d 6d 5f 70 61  6c 0d 74 74 65 25 2b 32  |.I%=m_pal.tte%+2|
00007e40  38 0d 4e d4 0c e3 63 25  3d 30 b8 31 35 0d 0d de  |8.N...c%=0.15...|
00007e50  39 49 25 3f 31 31 3d 28  63 25 3c 3c 34 29 2b 75  |9I%?11=(c%<<4)+u|
00007e60  6e 63 6f 0d 6f 75 72 25  28 63 25 29 3a 49 25 21  |nco.our%(c%):I%!|
00007e70  38 3d 49 25 21 38 84 26  0d 38 3a f4 20 68 20 63  |8=I%!8.&.8:. h c|
00007e80  65 6e 74 72 65 64 0d 4e  e8 2c e7 63 25 0d 74 69  |entred.N.,.c%.ti|
00007e90  63 6b 63 6f 6c 6f 75 72  25 8c 21 49 25 3d 21 49  |ckcolour%.!I%=!I|
00007ea0  25 84 0d 30 31 8b 21 49  25 3d 21 49 25 80 ac 26  |%..01.!I%=!I%..&|
00007eb0  30 31 0d 4e f2 0c 49 0d  2b 3d 32 34 3a ed 0d 4e  |01.N..I.+=24:..N|
00007ec0  fc 05 e1 0d 4f 06 04 0d  4f 10 18 dd 0d 65 6e 63  |....O...O....enc|
00007ed0  6f 64 65 70 61 6c 28 63  31 25 2c 63 32 25 29 0d  |odepal(c1%,c2%).|
00007ee0  4f 0d 1d ea 63 25 2c 64  25 2c 65 25 2c 62 72 25  |O...c%,d%,e%,br%|
00007ef0  2c 6d 61 78 64 25 0d 6d  61 78 65 25 0d 4f 24 32  |,maxd%.maxe%.O$2|
00007f00  e7 76 65 72 73 69 6f 6e  25 3e 3d 0d 33 34 8c c8  |.version%>=.34..|
00007f10  99 22 57 69 6d 70 5f 52  65 61 64 50 61 6c 65 74  |."Wimp_ReadPalet|
00007f20  0d 65 22 2c 2c 70 61 6c  74 61 62 6c 65 25 0d 4f  |.e",,paltable%.O|
00007f30  2e 2d e3 63 25 0d 63 31  25 b8 63 32 25 3a 62 72  |.-.c%.c1%.c2%:br|
00007f40  69 67 68 74 25 28 63 25  29 3d 0d 62 72 69 67 68  |ight%(c%)=.brigh|
00007f50  74 6e 65 73 73 28 63 25  29 3a ed 0d 4f 38 28 0d  |tness(c%):..O8(.|
00007f60  63 25 3d 63 31 25 b8 63  32 25 3a 62 72 25 3d 62  |c%=c1%.c2%:br%=b|
00007f70  72 69 67 68 0d 25 28 63  25 29 3a 6d 61 78 65 25  |righ.%(c%):maxe%|
00007f80  3d 2d 31 0d 4f 42 22 e3  64 0d 3d 30 b8 31 35 3a  |=-1.OB".d.=0.15:|
00007f90  65 25 3d 94 28 62 72 69  67 68 74 25 28 64 0d 29  |e%=.(bright%(d.)|
00007fa0  2d 62 72 25 29 0d 4f 4c  1f e7 65 25 3e 6d 61 78  |-br%).OL..e%>max|
00007fb0  65 25 8c 0d 61 78 65 25  3d 65 25 3a 6d 61 78 64  |e%..axe%=e%:maxd|
00007fc0  25 3d 64 25 0d 4f 56 1b  0d 3a 75 6e 63 6f 6c 6f  |%=d%.OV..:uncolo|
00007fd0  75 72 25 28 63 25 29 3d  6d 61 78 64 25 0d ed 0d  |ur%(c%)=maxd%...|
00007fe0  4f 60 05 e1 0d 4f 6a 04  0d 4f 74 14 dd a4 62 72  |O`...Oj..Ot...br|
00007ff0  69 67 0d 74 6e 65 73 73  28 63 25 29 0d 4f 7e 0d  |ig.tness(c%).O~.|
00008000  ea 72 25 2c 67 25 2c 0d  25 0d 4f 88 13 f2 72 65  |.r%,g%,.%.O...re|
00008010  61 64 70 61 6c 28 63 25  2c 31 36 29 0d 4f 92 10  |adpal(c%,16).O..|
00008020  3d 72 25 2b 67 25 2b 67  25 2b 62 25 0d 4f 9c 04  |=r%+g%+g%+b%.O..|
00008030  0d 0d a6 28 dd a4 66 6f  72 65 62 61 63 6b 28 63  |...(..foreback(c|
00008040  25 29 3d 28 63 25 0d 3c  34 29 84 75 6e 63 6f 6c  |%)=(c%.<4).uncol|
00008050  6f 75 72 25 28 63 25 29  0d 4f b0 0d 0d 4f ba 1d  |our%(c%).O...O..|
00008060  dd a4 63 6f 6c 6f 75 72  64 69 66 66 28 72 67 62  |..colourdiff(rgb|
00008070  0d 25 2c 72 67 62 32 25  29 0d 4f c4 16 ea 72 25  |.%,rgb2%).O...r%|
00008080  2c 67 25 2c 62 0d 2c 52  25 2c 47 25 2c 42 25 0d  |,g%,b.,R%,G%,B%.|
00008090  4f ce 3b 72 25 3d 28 72  62 67 0d 25 3e 3e 38 29  |O.;r%=(rbg.%>>8)|
000080a0  80 26 46 46 3a 67 25 3d  28 72 62 67 31 25 3e 0d  |.&FF:g%=(rbg1%>.|
000080b0  31 36 29 80 26 46 46 3a  62 25 3d 28 72 62 67 31  |16).&FF:b%=(rbg1|
000080c0  25 3e 3e 32 0d 29 80 26  46 46 0d 4f d8 3b 52 25  |%>>2.).&FF.O.;R%|
000080d0  3d 28 72 62 67 32 25 3e  3e 0d 29 80 26 46 46 3a  |=(rbg2%>>.).&FF:|
000080e0  47 25 3d 28 72 62 67 32  25 3e 3e 31 36 29 0d 26  |G%=(rbg2%>>16).&|
000080f0  46 46 3a 42 25 3d 28 72  62 67 32 25 3e 3e 32 34  |FF:B%=(rbg2%>>24|
00008100  29 80 26 0d 46 0d 4f e2  22 3d 28 52 25 2d 72 25  |).&.F.O."=(R%-r%|
00008110  29 5e 32 2b 28 47 25 2d  0d 25 29 5e 32 2b 28 42  |)^2+(G%-.%)^2+(B|
00008120  25 2d 62 25 29 5e 32 0d  4f ec 04 0d 4f 0d 52 2d  |%-b%)^2.O...O.R-|
00008130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00008140  2d 2d 0d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |--.-------------|
00008150  2d 2d 2d 2d 2d 2d 2d 0d  2d 2d 2d 2d 2d 2d 2d 2d  |-------.--------|
00008160  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 2d 2d 2d  |------------.---|
00008170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 50 00  |-------------.P.|
00008180  04 0d 50 0a 13 dd f2 63  68 65 63 6b 66 75 6c 6c  |..P....checkfull|
00008190  28 66 24 29 0d 50 0d 18  e7 a7 66 24 2c 22 2e 22  |(f$).P....f$,"."|
000081a0  29 84 a7 66 24 2c 22 3a  22 29 8c 0d 0d 50 1e 3a  |)..f$,":")...P.:|
000081b0  85 31 2c 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |.1,"To save, dra|
000081c0  0d 20 74 68 65 20 66 69  6c 65 20 69 63 6f 6e 20  |. the file icon |
000081d0  74 6f 20 61 20 0d 69 72  65 63 74 6f 72 79 20 76  |to a .irectory v|
000081e0  69 65 77 65 72 22 0d 50  28 04 0d 50 32 17 dd f2  |iewer".P(..P2...|
000081f0  63 68 65 63 6b 69 64 65  6e 74 28 41 24 2c 42 0d  |checkident(A$,B.|
00008200  29 0d 50 3c 0c e7 41 24  3d 42 24 8c e1 0d 50 46  |).P<..A$=B$...PF|
00008210  37 e7 a4 6d 0d 74 63 68  69 64 65 6e 74 28 41 24  |7..m.tchident(A$|
00008220  29 3c 3e 2d 31 8c 85 31  2c 0d 49 64 65 6e 74 69  |)<>-1..1,.Identi|
00008230  66 69 65 72 20 6d 75 73  74 20 62 65 20 75 0d 69  |fier must be u.i|
00008240  71 75 65 22 0d 50 50 05  e1 0d 50 5a 04 0d 50 64  |que".PP...PZ..Pd|
00008250  14 dd a4 0d 61 74 63 68  69 64 65 6e 74 28 41 24  |....atchident(A$|
00008260  29 0d 50 6e 0e e7 41 24  0d 22 22 8c 3d 2d 31 0d  |).Pn..A$."".=-1.|
00008270  50 78 07 ea 49 25 0d 50  82 2a 49 25 3d 0d 68 25  |Px..I%.P.*I%=.h%|
00008280  2b 31 3a f5 49 25 3d 49  25 2d 31 3a fd 41 24 3d  |+1:.I%=I%-1:.A$=|
00008290  77 69 0d 65 6e 74 24 28  49 25 29 84 49 25 3d 30  |wi.ent$(I%).I%=0|
000082a0  0d 50 8c 1b e7 41 24 0d  77 69 64 65 6e 74 24 28  |.P...A$.wident$(|
000082b0  49 25 29 8c 3d 49 25 8b  3d 2d 31 0d 0d 96 04 0d  |I%).=I%.=-1.....|
000082c0  50 a0 21 dd f2 73 61 76  65 74 65 6d 70 6c 61 74  |P.!..savetemplat|
000082d0  65 0d 28 74 66 69 6c 65  24 2c 73 61 66 65 25 29  |e.(tfile$,safe%)|
000082e0  0d 50 aa 12 4a 25 0d 30  3a e3 49 25 3d 30 b8 6e  |.P..J%.0:.I%=0.n|
000082f0  68 25 0d 50 b4 15 e7 68  61 6e 64 0d 65 25 28 49  |h%.P...hand.e%(I|
00008300  25 29 3e 6e 68 25 8c 0d  50 be 38 e7 77 69 64 65  |%)>nh%..P.8.wide|
00008310  0d 74 24 28 49 25 29 3d  22 22 8c 85 31 2c 22 4f  |.t$(I%)=""..1,"O|
00008320  6e 6c 79 20 6e 0d 6d 65  64 20 77 69 6e 64 6f 77  |nly n.med window|
00008330  73 20 63 61 6e 20 62 65  20 73 0d 76 65 64 22 0d  |s can be s.ved".|
00008340  50 c8 16 77 70 74 72 25  28 4a 25 29 3d 49 25 0d  |P..wptr%(J%)=I%.|
00008350  4a 25 2b 3d 31 0d 50 d2  05 cd 0d 50 dc 05 ed 0d  |J%+=1.P....P....|
00008360  50 e6 10 f2 0d 6f 72 74  77 69 6e 64 6f 77 73 0d  |P....ortwindows.|
00008370  50 f0 21 e3 49 25 3d 30  b8 0d 35 35 3a 66 6f 6e  |P.!.I%=0..55:fon|
00008380  74 62 69 6e 64 69 6e 67  25 3f 49 25 3d 30 0d ed  |tbinding%?I%=0..|
00008390  0d 50 fa 2e 66 72 65 65  66 25 3d 31 3a f4 20 69  |.P..freef%=1:. i|
000083a0  6e 74 65 0d 6e 61 6c 20  66 6f 6e 74 20 68 61 6e  |nte.nal font han|
000083b0  64 6c 65 20 61 6c 6c 6f  0d 61 74 69 6f 6e 0d 51  |dle allo.ation.Q|
000083c0  04 0e 74 66 5f 68 64 72  25 3d 31 36 0d 0d 0e 10  |..tf_hdr%=16....|
000083d0  74 66 5f 66 73 69 7a 65  25 3d 34 38 0d 51 18 18  |tf_fsize%=48.Q..|
000083e0  74 66 0d 68 61 6e 64 6c  65 25 3d ae 28 74 66 69  |tf.handle%=.(tfi|
000083f0  6c 65 24 29 0d 51 22 0d  e7 74 66 5f 68 61 6e 64  |le$).Q"..tf_hand|
00008400  6c 65 25 3d 30 8c 85 31  2c 22 43 61 0d 27 74 20  |le%=0..1,"Ca.'t |
00008410  6f 70 65 6e 20 66 69 6c  65 20 27 22 2b 74 66 69  |open file '"+tfi|
00008420  6c 0d 24 2b 22 27 22 0d  51 2c 1f 74 66 5f 64 61  |l.$+"'".Q,.tf_da|
00008430  74 61 70 74 72 25 0d 74  66 5f 68 64 72 25 2b 4a  |taptr%.tf_hdr%+J|
00008440  25 2a 32 34 2b 34 0d 51  36 25 e3 0d 25 3d 30 b8  |%*24+4.Q6%..%=0.|
00008450  74 66 5f 68 64 72 25 2d  31 3a 69 6e 64 65 78 64  |tf_hdr%-1:indexd|
00008460  0d 74 61 25 3f 49 25 3d  30 3a ed 0d 51 40 20 74  |.ta%?I%=0:..Q@ t|
00008470  66 5f 69 6e 64 0d 78 25  3d 69 6e 64 65 78 64 61  |f_ind.x%=indexda|
00008480  74 61 25 2b 74 66 5f 68  64 72 0d 0d 51 4a 0e e3  |ta%+tf_hdr..QJ..|
00008490  49 25 3d 30 b8 4a 25 2d  31 0d 51 54 35 21 71 0d  |I%=0.J%-1.QT5!q.|
000084a0  3d 68 61 6e 64 6c 65 25  28 77 70 74 72 25 28 49  |=handle%(wptr%(I|
000084b0  25 29 29 3a 0d 99 22 57  69 6d 70 5f 47 65 74 57  |%)):.."Wimp_GetW|
000084c0  69 6e 64 6f 77 49 6e 66  6f 0d 2c 2c 71 25 0d 51  |indowInfo.,,q%.Q|
000084d0  5e 37 71 25 21 36 38 3d  31 3a f4 20 61 73 0d 75  |^7q%!68=1:. as.u|
000084e0  6d 65 20 63 6f 6d 6d 6f  6e 20 73 70 72 69 74 65  |me common sprite|
000084f0  20 61 72 0d 61 20 77 68  65 6e 20 72 65 2d 6c 6f  | ar.a when re-lo|
00008500  61 64 69 6e 67 0d 51 68  0d 74 66 5f 64 61 74 61  |ading.Qh.tf_data|
00008510  73 69 7a 65 25 3d 38 38  2b 33 32 2a 71 0d 21 38  |size%=88+32*q.!8|
00008520  38 0d 51 72 1d f2 70 72  6f 63 65 73 73 69 63 6f  |8.Qr..processico|
00008530  6e 28 0d 25 2b 36 30 2c  71 25 2b 37 36 29 0d 51  |n(.%+60,q%+76).Q|
00008540  7c 1a e7 71 25 21 38 0d  3e 30 8c f2 70 72 6f 63  ||..q%!8.>0..proc|
00008550  65 73 73 69 63 6f 6e 73  0d 51 86 3a 0d 99 22 4f  |essicons.Q.:.."O|
00008560  53 5f 47 42 50 42 22 2c  31 2c 74 66 5f 68 61 6e  |S_GBPB",1,tf_han|
00008570  64 0d 65 25 2c 71 25 2b  34 2c 74 66 5f 64 61 74  |d.e%,q%+4,tf_dat|
00008580  61 73 69 7a 65 25 0d 74  66 5f 64 61 74 61 70 74  |asize%.tf_datapt|
00008590  72 25 0d 51 90 1b 74 66  5f 69 6e 0d 65 78 25 21  |r%.Q..tf_in.ex%!|
000085a0  30 3d 74 66 5f 64 61 74  61 70 74 72 25 0d 51 9a  |0=tf_dataptr%.Q.|
000085b0  0d 74 66 5f 69 6e 64 65  78 25 21 34 3d 74 66 5f  |.tf_index%!4=tf_|
000085c0  64 61 74 61 73 0d 7a 65  25 0d 51 a4 11 74 66 5f  |datas.ze%.Q..tf_|
000085d0  69 6e 64 65 78 25 21 38  3d 31 0d 51 ae 26 24 28  |index%!8=1.Q.&$(|
000085e0  74 66 5f 69 6e 64 65 78  25 2b 31 32 29 3d 77 0d  |tf_index%+12)=w.|
000085f0  64 65 6e 74 24 28 77 70  74 72 25 28 49 25 29 29  |dent$(wptr%(I%))|
00008600  0d 51 b8 2b 0d 66 5f 69  6e 64 65 78 25 2b 3d 32  |.Q.+.f_index%+=2|
00008610  34 3a 74 66 5f 64 61 74  61 0d 74 72 25 2b 3d 74  |4:tf_data.tr%+=t|
00008620  66 5f 64 61 74 61 73 69  7a 65 25 0d 51 c2 0d ed  |f_datasize%.Q...|
00008630  0d 51 cc 10 21 74 66 5f  69 6e 64 65 78 25 3d 30  |.Q..!tf_index%=0|
00008640  0d 51 d6 0d e7 66 72 65  65 66 25 3d 31 8c 21 69  |.Q...freef%=1.!i|
00008650  6e 64 65 78 64 61 74 61  0d 3d 2d 31 8b 21 69 6e  |ndexdata.=-1.!in|
00008660  64 65 78 64 61 74 61 25  3d 74 66 5f 64 0d 74 61  |dexdata%=tf_d.ta|
00008670  70 74 72 25 0d 51 e0 40  c8 99 22 4f 53 5f 47 42  |ptr%.Q.@.."OS_GB|
00008680  50 42 0d 2c 31 2c 74 66  5f 68 61 6e 64 6c 65 25  |PB.,1,tf_handle%|
00008690  2c 69 6e 64 65 78 64 0d  74 61 25 2c 74 66 5f 69  |,indexd.ta%,tf_i|
000086a0  6e 64 65 78 25 2b 34 2d  69 6e 64 65 0d 64 61 74  |ndex%+4-inde.dat|
000086b0  61 25 2c 30 0d 51 ea 0e  e7 66 72 65 65 66 25 3e  |a%,0.Q...freef%>|
000086c0  31 0d 0d 51 f4 27 e3 49  25 3d 30 b8 74 66 5f 66  |1..Q.'.I%=0.tf_f|
000086d0  73 69 7a 65 25 2d 0d 3a  69 6e 64 65 78 64 61 74  |size%-.:indexdat|
000086e0  61 25 3f 49 25 3d 30 3a  ed 0d 51 0d 12 e3 49 25  |a%?I%=0:..Q...I%|
000086f0  3d 31 b8 66 72 65 65 66  25 2d 31 0d 52 08 23 4a  |=1.freef%-1.R.#J|
00008700  0d 3d 30 3a f5 4a 25 2b  3d 31 3a fd 66 6f 6e 74  |.=0:.J%+=1:.font|
00008710  62 69 6e 64 69 0d 67 25  3f 4a 25 3d 49 25 0d 52  |bindi.g%?J%=I%.R|
00008720  12 41 c8 99 22 46 6f 6e  74 5f 0d 65 61 64 44 65  |.A.."Font_.eadDe|
00008730  66 6e 22 2c 4a 25 2c 69  6e 64 65 78 64 61 74 0d  |fn",J%,indexdat.|
00008740  25 2b 38 b8 2c 2c 69 6e  64 65 78 64 61 74 61 25  |%+8.,,indexdata%|
00008750  21 30 2c 69 0d 64 65 78  64 61 74 61 25 21 34 0d  |!0,i.dexdata%!4.|
00008760  52 1c 3d c8 99 22 4f 53  5f 0d 42 50 42 22 2c 31  |R.=.."OS_.BPB",1|
00008770  2c 74 66 5f 68 61 6e 64  6c 65 25 2c 69 6e 0d 65  |,tf_handle%,in.e|
00008780  78 64 61 74 61 25 2c 74  66 5f 66 73 69 7a 65 25  |xdata%,tf_fsize%|
00008790  2c 74 66 0d 64 61 74 61  70 74 72 25 0d 52 26 1a  |,tf.dataptr%.R&.|
000087a0  74 66 5f 64 61 74 61 70  0d 72 25 2b 3d 74 66 5f  |tf_datap.r%+=tf_|
000087b0  66 73 69 7a 65 25 0d 52  30 05 ed 0d 52 0d 05 cd  |fsize%.R0...R...|
000087c0  0d 52 44 10 d9 23 74 66  5f 68 61 6e 64 6c 65 25  |.RD..#tf_handle%|
000087d0  0d 52 0d 24 ff 28 22 53  65 74 74 79 70 65 20 22  |.R.$.("Settype "|
000087e0  2b 74 66 69 6c 65 24 0d  22 20 54 65 6d 70 6c 61  |+tfile$." Templa|
000087f0  74 65 22 29 0d 52 58 16  ff 28 22 53 0d 61 6d 70  |te").RX..("S.amp|
00008800  20 22 2b 74 66 69 6c 65  24 29 0d 52 62 1c e7 73  | "+tfile$).Rb..s|
00008810  61 0d 65 25 8c 74 65 6d  70 6c 61 74 65 66 24 3d  |a.e%.templatef$=|
00008820  74 66 69 6c 65 24 0d 52  6c 05 e1 0d 52 76 04 0d  |tfile$.Rl...Rv..|
00008830  52 80 12 dd f2 70 72 6f  63 65 73 0d 69 63 6f 6e  |R....proces.icon|
00008840  73 0d 52 8a 0a ea 49 25  2c 4a 25 0d 52 94 0c 4a  |s.R...I%,J%.R..J|
00008850  0d 3d 71 25 2b 39 32 0d  52 9e 34 e3 49 25 3d 30  |.=q%+92.R.4.I%=0|
00008860  b8 71 25 21 38 0d 2d 31  3a f2 70 72 6f 63 65 73  |.q%!8.-1:.proces|
00008870  73 69 63 6f 6e 28 4a 25  2b 31 0d 2c 4a 25 2b 32  |sicon(J%+1.,J%+2|
00008880  30 29 3a 4a 25 2b 3d 33  32 3a ed 0d 52 a8 05 0d  |0):J%+=32:..R...|
00008890  0d 52 b2 04 0d 52 bc 1e  dd f2 70 72 6f 63 65 73  |.R...R....proces|
000088a0  73 69 63 6f 0d 28 66 70  74 72 25 2c 71 70 74 72  |sico.(fptr%,qptr|
000088b0  25 29 0d 52 c6 10 e7 21  66 0d 74 72 25 80 26 34  |%).R...!f.tr%.&4|
000088c0  30 8c 0d 52 d0 2a 65 78  74 66 25 3d 66 70 0d 72  |0..R.*extf%=fp.r|
000088d0  25 3f 33 3a 69 6e 74 66  25 3d 66 6f 6e 74 62 69  |%?3:intf%=fontbi|
000088e0  6e 64 69 0d 67 25 3f 65  78 74 66 25 0d 52 da 3c  |ndi.g%?extf%.R.<|
000088f0  e7 69 6e 74 66 25 3d 30  0d 69 6e 74 66 25 3d 66  |.intf%=0.intf%=f|
00008900  72 65 65 66 25 3a 66 72  65 65 66 25 2b 0d 31 3a  |reef%:freef%+.1:|
00008910  66 6f 6e 74 62 69 6e 64  69 6e 67 25 3f 65 78 74  |fontbinding%?ext|
00008920  66 25 0d 69 6e 74 66 25  0d 52 e4 11 66 70 74 72  |f%.intf%.R..fptr|
00008930  25 3f 33 3d 69 6e 74 0d  25 0d 52 ee 05 cd 0d 52  |%?3=int.%.R....R|
00008940  f8 11 e7 21 66 70 74 72  25 80 26 31 0d 30 8c 0d  |...!fptr%.&1.0..|
00008950  53 02 18 42 25 3d 71 25  2b 34 2b 74 66 5f 64 61  |S..B%=q%+4+tf_da|
00008960  74 0d 73 69 7a 65 25 0d  53 0c 38 24 42 25 3d 24  |t.size%.S.8$B%=$|
00008970  21 71 70 74 72 25 0d 21  71 70 74 72 25 3d 74 66  |!qptr%.!qptr%=tf|
00008980  5f 64 61 74 61 73 69 7a  65 25 3a 0d 66 5f 64 61  |_datasize%:.f_da|
00008990  74 61 73 69 7a 65 25 2b  3d a9 24 42 25 2b 31 0d  |tasize%+=.$B%+1.|
000089a0  0d 16 0f e7 71 70 74 72  25 21 34 3e 30 8c 0d 53  |....qptr%!4>0..S|
000089b0  20 18 42 25 3d 0d 25 2b  34 2b 74 66 5f 64 61 74  | .B%=.%+4+tf_dat|
000089c0  61 73 69 7a 65 25 0d 53  2a 3c 0d 42 25 3d 24 28  |asize%.S*<.B%=$(|
000089d0  71 70 74 72 25 21 34 29  3a 71 70 74 72 25 21 0d  |qptr%!4):qptr%!.|
000089e0  3d 74 66 5f 64 61 74 61  73 69 7a 65 25 3a 74 66  |=tf_datasize%:tf|
000089f0  5f 64 61 74 0d 73 69 7a  65 25 2b 3d a9 24 42 25  |_dat.size%+=.$B%|
00008a00  2b 31 0d 53 34 05 cd 0d  53 0d 05 cd 0d 53 48 05  |+1.S4...S....SH.|
00008a10  e1 0d 53 52 04 0d 53 5c  1b dd f2 6c 6f 61 0d 74  |..SR..S\...loa.t|
00008a20  65 6d 70 6c 61 74 65 73  28 74 66 69 6c 65 24 29  |emplates(tfile$)|
00008a30  0d 53 66 0d ea 49 25 2c  66 24 0d 53 70 21 c8 99  |.Sf..I%,f$.Sp!..|
00008a40  22 57 69 6d 70 5f 4f 70  0d 6e 54 65 6d 70 6c 61  |"Wimp_Op.nTempla|
00008a50  74 65 22 2c 2c 74 66 69  6c 65 24 0d 53 0d 47 e7  |te",,tfile$.S.G.|
00008a60  74 66 69 6c 65 24 3c 3e  22 3c 57 69 6d 70 24 53  |tfile$<>"<Wimp$S|
00008a70  63 72 0d 70 3e 22 8c 74  65 6d 70 6c 61 74 65 66  |cr.p>".templatef|
00008a80  24 3d 74 66 69 6c 65 0d  3a f4 20 6f 6e 6c 79 20  |$=tfile.:. only |
00008a90  69 66 20 6c 6f 61 64 20  73 75 63 63 0d 65 64 65  |if load succ.ede|
00008aa0  64 21 0d 53 84 06 ea 85  0d 53 8e 28 ee 85 ea 3a  |d!.S.....S.(...:|
00008ab0  ee 0d f7 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |...:.."Wimp_Clos|
00008ac0  65 54 65 6d 70 6c 0d 74  65 22 3a 85 9f 2c f6 24  |eTempl.te":..,.$|
00008ad0  0d 53 98 11 74 66 5f 69  6e 64 65 0d 25 3d 30 3a  |.S..tf_inde.%=0:|
00008ae0  f5 0d 53 a2 13 24 6d 62  5f 77 69 64 65 6e 74 25  |..S..$mb_wident%|
00008af0  0d 22 2a 22 0d 53 ac 71  c8 99 22 57 69 6d 70 5f  |."*".S.q.."Wimp_|
00008b00  4c 6f 61 64 54 0d 6d 70  6c 61 74 65 22 2c 2c 71  |LoadT.mplate",,q|
00008b10  25 2b 34 2c 63 75 72 62  75 66 0d 25 2c 62 75 66  |%+4,curbuf.%,buf|
00008b20  66 65 72 25 2b 6d 61 78  62 75 66 25 2c 66 6f 0d  |fer%+maxbuf%,fo.|
00008b30  74 63 6f 75 6e 74 73 25  2c 6d 62 5f 77 69 64 65  |tcounts%,mb_wide|
00008b40  6e 74 25 2c 0d 66 5f 69  6e 64 65 78 25 b8 2c 2c  |nt%,.f_index%.,,|
00008b50  63 75 72 62 75 66 66 25  2c 0d 2c 2c 74 66 5f 69  |curbuff%,.,,tf_i|
00008b60  6e 64 65 78 25 0d 53 b6  28 e7 74 66 5f 69 0d 64  |ndex%.S.(.tf_i.d|
00008b70  65 78 25 3c 3e 30 8c f2  6c 6f 61 64 74 65 6d 70  |ex%<>0..loadtemp|
00008b80  28 24 6d 0d 5f 77 69 64  65 6e 74 25 29 0d 53 c0  |($m._wident%).S.|
00008b90  10 fd 74 66 5f 69 6e 64  0d 78 25 3d 30 0d 53 ca  |..tf_ind.x%=0.S.|
00008ba0  1a c8 99 22 57 69 6d 70  5f 43 6c 6f 73 0d 54 65  |..."Wimp_Clos.Te|
00008bb0  6d 70 6c 61 74 65 22 0d  53 d4 05 e1 0d 53 de 04  |mplate".S....S..|
00008bc0  0d 53 0d 17 dd f2 6c 6f  61 64 74 65 6d 70 28 77  |.S....loadtemp(w|
00008bd0  69 64 65 6e 74 24 29 0d  53 f2 35 49 25 3d a4 6d  |ident$).S.5I%=.m|
00008be0  61 74 63 68 69 64 65 6e  74 28 77 69 0d 65 6e 74  |atchident(wi.ent|
00008bf0  24 29 3a e7 49 25 3c 3e  2d 31 8c f2 64 65 6c 65  |$):.I%<>-1..dele|
00008c00  74 0d 77 69 6e 64 6f 77  28 49 25 29 0d 53 fc 28  |t.window(I%).S.(|
00008c10  71 25 21 36 38 3d 0d 70  72 69 74 65 61 72 65 61  |q%!68=.pritearea|
00008c20  25 3a f4 20 75 73 65 72  20 73 70 0d 69 74 65 20  |%:. user sp.ite |
00008c30  61 72 65 61 0d 54 06 1b  f2 63 72 77 69 6e 64 6f  |area.T...crwindo|
00008c40  0d 28 71 25 2b 34 2c 77  69 64 65 6e 74 24 29 0d  |.(q%+4,wident$).|
00008c50  54 10 05 e1 0d 0d 1a 04  0d 54 24 52 2d 2d 2d 2d  |T........T$R----|
00008c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 2d 2d 2d 2d 2d  |----------.-----|
00008c70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00008c80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00008c90  2d 2d 2d 2d 0d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----.-----------|
00008ca0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 0d 54 2e 04 0d 54  |---------..T...T|
00008cb0  38 14 dd f2 64 65 66 61  75 6c 74 77 69 6e 0d 6f  |8...defaultwin.o|
00008cc0  77 73 0d 54 42 33 c8 99  22 57 69 6d 70 5f 4f 70  |ws.TB3.."Wimp_Op|
00008cd0  65 6e 54 0d 6d 70 6c 61  74 65 22 2c 2c 22 3c 46  |enT.mplate",,"<F|
00008ce0  6f 72 6d 45 64 24 44 69  72 3e 2e 54 65 6d 70 6c  |ormEd$Dir>.Templ|
00008cf0  61 74 65 73 22 0d 54 4c  2b de 69 63 6f 6e 62 61  |ates".TL+.iconba|
00008d00  72 25 20 28 38 38 2b 31  30 2a 33 32 29 2c 64 65  |r% (88+10*32),de|
00008d10  66 61 75 6c 74 25 20 28  38 38 2b 31 2a 33 32 29  |fault% (88+1*32)|
00008d20  0d 54 56 23 f2 6c 6f 61  64 63 72 74 65 6d 70 28  |.TV#.loadcrtemp(|
00008d30  22 69 63 6f 6e 62 61 72  22 2c 69 63 6f 6e 62 61  |"iconbar",iconba|
00008d40  72 25 29 0d 54 60 23 f2  6c 6f 61 64 63 72 74 65  |r%).T`#.loadcrte|
00008d50  6d 0d 28 22 64 65 66 61  75 6c 74 22 2c 64 65 66  |m.("default",def|
00008d60  61 75 6c 74 25 29 0d 54  6a 1b 6d 5f 69 6e 66 6f  |ault%).Tj.m_info|
00008d70  25 3d a4 63 72 74 65 6d  70 28 22 0d 6e 66 6f 22  |%=.crtemp(".nfo"|
00008d80  29 0d 54 74 25 73 70 72  69 74 65 6c 69 73 74 25  |).Tt%spritelist%|
00008d90  0d a4 63 72 74 65 6d 70  28 22 73 70 72 69 74 65  |..crtemp("sprite|
00008da0  6c 69 73 74 22 0d 0d 54  7e 1f 6d 5f 73 63 61 6c  |list"..T~.m_scal|
00008db0  65 25 3d a4 63 72 74 65  6d 70 0d 22 6d 5f 73 63  |e%=.crtemp."m_sc|
00008dc0  61 6c 65 22 29 0d 54 88  25 6d 5f 77 6f 72 6b 0d  |ale").T.%m_work.|
00008dd0  72 65 61 25 3d a4 63 72  74 65 6d 70 28 22 6d 5f  |rea%=.crtemp("m_|
00008de0  77 6f 72 6b 0d 72 65 61  22 29 0d 54 92 1f 70 61  |work.rea").T..pa|
00008df0  6c 65 74 74 65 25 3d a4  63 0d 74 65 6d 70 28 22  |lette%=.c.temp("|
00008e00  70 61 6c 65 74 74 65 22  29 0d 54 9c 24 6d 0d 73  |palette").T.$m.s|
00008e10  61 76 65 74 65 6d 70 25  3d a4 63 72 74 65 6d 70  |avetemp%=.crtemp|
00008e20  28 22 73 0d 76 65 5f 74  65 6d 70 22 29 0d 54 a6  |("s.ve_temp").T.|
00008e30  25 6d 5f 73 61 76 65 73  0d 72 25 3d a4 63 72 74  |%m_saves.r%=.crt|
00008e40  65 6d 70 28 22 73 61 76  65 5f 73 70 72 0d 74 65  |emp("save_spr.te|
00008e50  22 29 0d 54 b0 28 f4 20  65 72 72 6f 72 62 6f 78  |").T.(. errorbox|
00008e60  25 20 0d 20 3d 20 46 4e  63 72 74 65 6d 70 28 22  |% . = FNcrtemp("|
00008e70  65 72 72 6f 72 62 6f 0d  22 29 0d 54 ba 27 64 69  |errorbo.").T.'di|
00008e80  61 6c 5f 64 65 6c 65 74  65 25 3d a4 0d 72 74 65  |al_delete%=..rte|
00008e90  6d 70 28 22 64 69 61 6c  5f 64 65 6c 65 74 65 22  |mp("dial_delete"|
00008ea0  29 0d 54 c4 1a c8 99 22  57 69 6d 70 5f 43 6c 6f  |).T...."Wimp_Clo|
00008eb0  73 65 54 65 6d 70 0d 61  74 65 22 0d 54 ce 22 73  |seTemp.ate".T."s|
00008ec0  70 72 62 75 66 66 25 3d  a4 69 63 0d 6e 61 64 64  |prbuff%=.ic.nadd|
00008ed0  72 28 6d 5f 73 63 61 6c  65 25 2c 33 29 0d 54 d8  |r(m_scale%,3).T.|
00008ee0  0d 6d 62 5f 74 65 6d 70  6c 61 74 65 73 25 3d a4  |.mb_templates%=.|
00008ef0  69 63 6f 6e 61 0d 64 72  28 6d 5f 73 61 76 65 74  |icona.dr(m_savet|
00008f00  65 6d 70 25 2c 31 29 0d  54 e2 0d 6d 62 5f 73 70  |emp%,1).T..mb_sp|
00008f10  72 69 74 65 66 25 3d a4  69 63 6f 6e 61 64 64 0d  |ritef%=.iconadd.|
00008f20  28 6d 5f 73 61 76 65 73  70 72 25 2c 31 29 0d 54  |(m_savespr%,1).T|
00008f30  ec 2a 6d 62 0d 77 6f 72  6b 61 72 65 61 30 25 3d  |.*mb.workarea0%=|
00008f40  a4 69 63 6f 6e 61 64 64  72 0d 6d 5f 77 6f 72 6b  |.iconaddr.m_work|
00008f50  61 72 65 61 25 2c 39 29  0d 54 f6 2b 6d 62 0d 77  |area%,9).T.+mb.w|
00008f60  6f 72 6b 61 72 65 61 31  25 3d a4 69 63 6f 6e 61  |orkarea1%=.icona|
00008f70  64 64 72 0d 6d 5f 77 6f  72 6b 61 72 65 61 25 2c  |ddr.m_workarea%,|
00008f80  31 30 29 0d 55 00 26 6d  0d 5f 6d 69 6e 78 25 3d  |10).U.&m._minx%=|
00008f90  a4 69 63 6f 6e 61 64 64  72 28 6d 5f 77 0d 72 6b  |.iconaddr(m_w.rk|
00008fa0  61 72 65 61 25 2c 31 34  29 0d 55 0a 26 6d 62 5f  |area%,14).U.&mb_|
00008fb0  6d 69 0d 79 25 3d a4 69  63 6f 6e 61 64 64 72 28  |mi.y%=.iconaddr(|
00008fc0  6d 5f 77 6f 72 6b 61 0d  65 61 25 2c 31 35 29 0d  |m_worka.ea%,15).|
00008fd0  55 14 43 f2 67 65 74 69  28 6d 5f 73 0d 61 6c 65  |U.C.geti(m_s.ale|
00008fe0  25 2c 32 29 3a 73 70 72  78 6f 66 66 25 3d 28 69  |%,2):sprxoff%=(i|
00008ff0  78 0d 25 2b 69 78 31 25  29 81 32 3a 73 70 72 79  |x.%+ix1%).2:spry|
00009000  6f 66 66 25 3d 28 0d 79  30 25 2b 69 79 31 25 29  |off%=(.y0%+iy1%)|
00009010  81 32 0d 55 1e 05 e1 0d  55 28 04 0d 55 32 15 dd  |.2.U....U(..U2..|
00009020  a4 63 72 74 65 6d 70 28  77 69 64 65 6e 74 24 29  |.crtemp(wident$)|
00009030  0d 55 3c 1b f2 6c 6f 61  64 63 72 74 65 6d 70 28  |.U<..loadcrtemp(|
00009040  77 69 64 65 6e 0d 24 2c  71 25 29 0d 55 46 20 c8  |widen.$,q%).UF .|
00009050  99 22 57 69 6d 70 5f 43  72 65 0d 74 65 57 69 6e  |."Wimp_Cre.teWin|
00009060  64 6f 77 22 2c 2c 71 25  b8 49 25 0d 55 50 07 0d  |dow",,q%.I%.UP..|
00009070  49 25 0d 55 5a 04 0d 55  64 1c dd f2 6c 6f 61 64  |I%.UZ..Ud...load|
00009080  63 72 74 65 0d 70 28 77  69 64 65 6e 74 24 2c 71  |crte.p(wident$,q|
00009090  25 29 0d 55 6e 11 ea 49  25 0d 63 25 2c 63 32 25  |%).Un..I%.c%,c2%|
000090a0  2c 77 24 0d 55 78 23 63  25 3d 63 75 72 62 0d 66  |,w$.Ux#c%=curb.f|
000090b0  66 25 3a 63 32 25 3d 62  75 66 66 65 72 25 2b 6d  |f%:c2%=buffer%+m|
000090c0  61 78 62 0d 66 25 0d 55  82 20 77 24 3d 77 69 64  |axb.f%.U. w$=wid|
000090d0  65 6e 74 24 2b c4 31 32  0d a9 77 69 64 65 6e 74  |ent$+.12..wident|
000090e0  24 2c bd 31 33 29 0d 55  8c 46 c8 99 22 0d 69 6d  |$,.13).U.F..".im|
000090f0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00009100  2c 71 0d 2c 63 25 2c 63  32 25 2c 66 6f 6e 74 63  |,q.,c%,c2%,fontc|
00009110  6f 75 6e 74 73 25 2c 0d  24 2c 30 b8 2c 2c 63 75  |ounts%,.$,0.,,cu|
00009120  72 62 75 66 66 25 2c 2c  2c 2c 63 25 0d 55 96 2a  |rbuff%,,,,c%.U.*|
00009130  e7 63 25 3d 30 8c 85 31  2c 22 57 69 6e 64 6f 77  |.c%=0..1,"Window|
00009140  20 0d 65 66 69 6e 69 74  69 6f 6e 20 6e 6f 74 20  | .efinition not |
00009150  66 6f 75 6e 64 22 0d 55  a0 25 e7 77 69 64 65 6e  |found".U.%.widen|
00009160  74 24 3d 22 69 63 6f 6e  62 61 72 0d 8c 71 25 21  |t$="iconbar..q%!|
00009170  32 38 3d 71 25 21 32 38  80 ac 31 0d 55 aa 18 71  |28=q%!28..1.U..q|
00009180  0d 21 36 34 3d 73 79 73  74 65 6d 73 70 72 69 74  |.!64=systemsprit|
00009190  65 73 25 0d 55 0d 2b e7  77 69 64 65 6e 74 24 3d  |es%.U.+.wident$=|
000091a0  22 73 70 72 69 74 65 6c  69 73 0d 22 8c 71 25 21  |"spritelis.".q%!|
000091b0  36 34 3d 73 70 72 69 74  65 61 72 65 61 25 0d 0d  |64=spritearea%..|
000091c0  be 36 e7 77 69 64 65 6e  74 24 3d 22 73 61 76 65  |.6.wident$="save|
000091d0  5f 74 65 6d 0d 22 84 77  69 64 65 6e 74 24 3d 22  |_tem.".wident$="|
000091e0  73 61 76 65 5f 73 70 72  69 0d 65 22 8c 71 25 21  |save_spri.e".q%!|
000091f0  36 34 3d 31 0d 55 c8 42  e7 77 69 64 65 6e 0d 24  |64=1.U.B.widen.$|
00009200  3d 22 73 70 72 69 74 65  6c 69 73 74 22 8c 73 70  |="spritelist".sp|
00009210  72 69 74 0d 66 25 3d 71  25 21 37 32 3a 73 70 66  |rit.f%=q%!72:spf|
00009220  6c 65 6e 25 3d 71 25 21  0d 30 2d 31 3a 71 25 21  |len%=q%!.0-1:q%!|
00009230  36 38 3d 31 30 30 0d 55  d2 05 e1 0d 55 0d 04 0d  |68=100.U....U...|
00009240  55 e6 15 dd a4 69 63 6f  6e 61 64 64 72 28 68 25  |U....iconaddr(h%|
00009250  2c 69 0d 29 0d 55 f0 2c  21 71 25 3d 68 25 3a 71  |,i.).U.,!q%=h%:q|
00009260  25 21 34 3d 69 25 3a 0d  99 22 57 69 6d 70 5f 47  |%!4=i%:.."Wimp_G|
00009270  65 74 49 63 6f 6e 53 74  61 74 65 22 0d 2c 71 25  |etIconState".,q%|
00009280  0d 55 fa 16 e7 71 25 21  32 34 80 26 31 30 30 8c  |.U...q%!24.&100.|
00009290  3d 0d 25 21 32 38 0d 56  04 1f 85 31 2c 22 49 63  |=.%!28.V...1,"Ic|
000092a0  6f 6e 20 69 73 20 0d 6f  74 20 69 6e 64 69 72 65  |on is .ot indire|
000092b0  63 74 65 64 22 0d 56 0e  04 0d 56 0d 1b dd a4 69  |cted".V...V....i|
000092c0  63 6f 6e 62 61 72 28 69  63 6f 6e 62 61 72 25 2c  |conbar(iconbar%,|
000092d0  0d 63 25 29 0d 56 22 1c  69 63 6f 6e 25 3d 69 63  |.c%).V".icon%=ic|
000092e0  6f 6e 62 61 72 0d 2b 38  38 2b 33 32 2a 69 63 25  |onbar.+88+32*ic%|
000092f0  0d 56 2c 0a 21 71 25 3d  2d 31 0d 56 36 3c 71 25  |.V,.!q%=-1.V6<q%|
00009300  21 34 3d 69 63 6f 6e 25  21 30 3a 71 25 21 38 0d  |!4=icon%!0:q%!8.|
00009310  30 3a 71 25 21 31 32 3d  69 63 6f 6e 25 21 38 3a  |0:q%!12=icon%!8:|
00009320  71 25 21 31 0d 3d 69 63  6f 6e 25 21 31 32 2d 69  |q%!1.=icon%!12-i|
00009330  63 6f 6e 25 21 34 0d 56  40 0d 71 25 21 32 30 3d  |con%!4.V@.q%!20=|
00009340  69 63 6f 6e 25 21 31 36  0d 56 4a 12 71 25 0d 32  |icon%!16.VJ.q%.2|
00009350  34 3d 69 63 6f 6e 25 21  32 30 0d 56 54 12 71 25  |4=icon%!20.VT.q%|
00009360  21 32 38 0d 69 63 6f 6e  25 21 32 34 0d 56 5e 12  |!28.icon%!24.V^.|
00009370  71 25 21 33 32 3d 69 63  0d 6e 25 21 32 38 0d 56  |q%!32=ic.n%!28.V|
00009380  68 1f c8 99 22 57 69 6d  70 5f 43 72 65 0d 74 65  |h..."Wimp_Cre.te|
00009390  49 63 6f 6e 22 2c 2c 71  25 b8 69 63 25 0d 56 72  |Icon",,q%.ic%.Vr|
000093a0  08 3d 0d 63 25 0d 56 7c  04 0d 56 86 19 f4 20 73  |.=.c%.V|..V... s|
000093b0  70 6e 61 6d 65 24 3d 0d  28 69 63 6f 6e 25 2b 32  |pname$=.(icon%+2|
000093c0  30 29 0d 56 90 36 f4 20  71 25 21 32 0d 3d 46 4e  |0).V.6. q%!2.=FN|
000093d0  77 6f 72 6b 73 70 61 63  65 28 4c 45 4e 73 70 6e  |workspace(LENspn|
000093e0  61 0d 65 24 2b 31 29 3a  24 28 71 25 21 32 34 29  |a.e$+1):$(q%!24)|
000093f0  3d 73 70 6e 61 6d 0d 24  0d 56 9a 1a f4 20 71 25  |=spnam.$.V... q%|
00009400  21 32 38 3d 73 79 73 74  65 6d 73 0d 72 69 74 65  |!28=systems.rite|
00009410  73 25 0d 56 a4 18 f4 20  71 25 21 33 32 3d 4c 45  |s%.V... q%!32=LE|
00009420  0d 73 70 6e 61 6d 65 24  2b 31 0d 56 ae 04 0d 56  |.spname$+1.V...V|
00009430  b8 52 2d 2d 2d 0d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.R---.----------|
00009440  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 2d 2d 2d 2d 2d  |----------.-----|
00009450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00009460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00009470  2d 2d 2d 2d 0d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----.-----------|
00009480  0d 56 c2 04 0d 56 cc 10  dd 0d 63 72 65 61 74 65  |.V...V....create|
00009490  6d 65 6e 75 0d 56 d6 25  85 31 2c 22 4e 6f 0d 20  |menu.V.%.1,"No. |
000094a0  79 65 74 20 69 6d 70 6c  65 6d 65 6e 74 65 64 20  |yet implemented |
000094b0  2d 20 73 0d 72 72 79 21  22 0d 56 e0 05 e1 0d 56  |- s.rry!".V....V|
000094c0  ea 04 0d 56 f4 52 2d 2d  0d 2d 2d 2d 2d 2d 2d 2d  |...V.R--.-------|
000094d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 2d 2d  |-------------.--|
000094e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000094f0  2d 2d 0d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |--.-------------|
00009500  2d 2d 2d 2d 2d 2d 2d 0d  2d 2d 2d 2d 2d 2d 2d 2d  |-------.--------|
00009510  2d 2d 2d 2d 0d 56 fe 04  0d 57 08 11 0d f2 70 72  |----.V...W....pr|
00009520  69 6e 74 73 63 72 65 65  6e 0d 57 12 0b f2 65 6e  |intscreen.W...en|
00009530  73 0d 72 65 0d 57 1c 33  c8 99 22 50 72 69 6e 74  |s.re.W.3.."Print|
00009540  5f 50 61 67 65 53 0d 7a  65 22 b8 2c 78 73 25 2c  |_PageS.ze".,xs%,|
00009550  79 73 25 2c 70 78 30 25  2c 70 79 0d 25 2c 70 78  |ys%,px0%,py.%,px|
00009560  31 25 2c 70 79 31 25 0d  57 26 46 71 25 21 26 39  |1%,py1%.W&Fq%!&9|
00009570  0d 3d 30 3a 71 25 21 26  39 34 3d 30 3a 71 25 21  |.=0:q%!&94=0:q%!|
00009580  26 39 38 3d 73 0d 72 78  31 25 3a 71 25 21 26 39  |&98=s.rx1%:q%!&9|
00009590  43 3d 73 63 72 79 31 25  3a f4 0d 69 6e 70 75 74  |C=scry1%:..input|
000095a0  20 62 6f 75 6e 64 69 6e  67 20 62 6f 78 0d 57 0d  | bounding box.W.|
000095b0  06 ea 85 0d 57 3a 47 ee  85 ea 3a c8 99 22 50 72  |....W:G...:.."Pr|
000095c0  69 6e 74 5f 0d 62 6f 72  74 4a 6f 62 22 3a f2 69  |int_.bortJob":.i|
000095d0  6e 76 61 6c 69 64 61 74  65 0d 2d 31 2c 30 2c 30  |nvalidate.-1,0,0|
000095e0  2c 73 63 72 78 31 25 2c  73 63 72 79 31 25 0d 3a  |,scrx1%,scry1%.:|
000095f0  f7 85 3a 85 9f 2c f6 24  3a e1 0d 57 44 16 c8 99  |..:..,.$:..WD...|
00009600  22 50 72 0d 6e 74 5f 53  74 61 72 74 4a 6f 62 22  |"Pr.nt_StartJob"|
00009610  0d 57 4e 22 ef 32 33 2c  0d 35 2c 26 38 30 2c 31  |.WN".23,.5,&80,1|
00009620  2c 26 46 30 2c 26 46 30  2c 26 46 30 2c 0d 2c 30  |,&F0,&F0,&F0,.,0|
00009630  2c 30 0d 57 58 09 fb 31  34 2c 30 0d 57 62 4e f2  |,0.WX..14,0.WbN.|
00009640  6d 61 0d 72 69 78 28 71  25 2b 26 41 30 2c 33 30  |ma.rix(q%+&A0,30|
00009650  30 2c 30 2c 30 2c 33 0d  30 2c 28 78 73 25 2d 73  |0,0,0,3.0,(xs%-s|
00009660  63 72 78 31 25 2a 33 30  30 29 2f 32 0d 70 79 31  |crx1%*300)/2.py1|
00009670  25 2d 73 63 72 79 31 25  2a 33 30 30 2d 31 38 30  |%-scry1%*300-180|
00009680  30 0d 29 3a f2 70 61 67  65 0d 57 6c 34 f4 20 50  |0.):.page.Wl4. P|
00009690  52 4f 43 6d 61 74 0d 69  78 28 71 25 2b 26 41 30  |ROCmat.ix(q%+&A0|
000096a0  2c 30 2c 2d 34 30 30 2c  34 30 30 0d 30 2c 30 2c  |,0,-400,400.0,0,|
000096b0  79 73 25 29 3a 50 52 4f  43 70 61 67 65 0d 57 76  |ys%):PROCpage.Wv|
000096c0  0d f4 20 50 52 4f 43 6d  61 74 72 69 78 28 71 25  |.. PROCmatrix(q%|
000096d0  2b 26 41 30 2c 0d 2c 35  30 30 2c 2d 34 30 30 2c  |+&A0,.,500,-400,|
000096e0  30 2c 78 73 25 2c 30 29  3a 50 0d 4f 43 70 61 67  |0,xs%,0):P.OCpag|
000096f0  65 0d 57 80 14 c8 99 22  50 72 69 6e 74 5f 45 0d  |e.W...."Print_E.|
00009700  64 4a 6f 62 22 0d 57 8a  06 ef 37 0d 57 94 05 e1  |dJob".W...7.W...|
00009710  0d 57 9e 04 0d 57 a8 0a  dd f2 70 61 67 65 0d 57  |.W...W....page.W|
00009720  b2 33 c8 99 22 50 72 69  6e 0d 5f 44 72 61 77 50  |.3.."Prin._DrawP|
00009730  61 67 65 22 2c 2c 71 25  2b 26 38 30 2c 71 0d 2b  |age",,q%+&80,q.+|
00009740  26 39 30 2c 71 25 2b 26  41 30 b8 70 6d 6f 72 65  |&90,q%+&A0.pmore|
00009750  25 0d 57 0d 0c c8 95 70  6d 6f 72 65 25 0d 57 c6  |%.W....pmore%.W.|
00009760  2f f2 69 6e 76 61 6c 69  0d 61 74 65 28 2d 31 2c  |/.invali.ate(-1,|
00009770  71 25 21 26 38 30 2c 71  25 21 26 38 34 0d 71 25  |q%!&80,q%!&84.q%|
00009780  21 26 38 38 2c 71 25 21  26 38 43 29 0d 57 d0 2d  |!&88,q%!&8C).W.-|
00009790  f4 20 0d 20 20 50 52 4f  43 69 6e 76 61 6c 69 64  |. .  PROCinvalid|
000097a0  61 74 65 28 2d 31 2c 0d  2c 30 2c 73 63 72 78 31  |ate(-1,.,0,scrx1|
000097b0  25 2c 73 63 72 79 31 25  29 0d 57 da 0d f2 65 6e  |%,scry1%).W...en|
000097c0  73 75 72 65 0d 57 e4 2a  c8 99 22 50 72 69 6e 74  |sure.W.*.."Print|
000097d0  5f 0d 65 78 74 52 65 63  74 61 6e 67 6c 65 22 2c  |_.extRectangle",|
000097e0  2c 71 25 2b 26 38 0d b8  70 6d 6f 72 65 25 0d 57  |,q%+&8..pmore%.W|
000097f0  ee 05 ce 0d 57 f8 05 e1  0d 58 02 0d 0d 58 0c 1c  |....W....X...X..|
00009800  dd f2 6d 61 74 72 69 78  28 71 25 2c 61 2c 62 2c  |..matrix(q%,a,b,|
00009810  0d 2c 64 2c 65 2c 66 29  0d 58 16 30 71 25 21 30  |.,d,e,f).X.0q%!0|
00009820  3d 61 3a 71 25 0d 34 3d  62 3a 71 25 21 38 3d 63  |=a:q%.4=b:q%!8=c|
00009830  3a 71 25 21 31 32 3d 64  3a 71 0d 21 31 36 3d 65  |:q%!12=d:q.!16=e|
00009840  3a 71 25 21 32 30 3d 66  0d 58 20 05 e1 0d 58 0d  |:q%!20=f.X ...X.|
00009850  04 0d 58 34 24 dd f2 69  6e 76 61 6c 69 64 61 74  |..X4$..invalidat|
00009860  65 28 68 25 0d 78 30 25  2c 79 30 25 2c 78 31 25  |e(h%.x0%,y0%,x1%|
00009870  2c 79 31 25 29 0d 58 3e  2b 0d 99 22 57 69 6d 70  |,y1%).X>+.."Wimp|
00009880  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 0d 25  |_ForceRedraw",.%|
00009890  2c 78 30 25 2c 79 30 25  2c 78 31 25 2c 79 31 25  |,x0%,y0%,x1%,y1%|
000098a0  0d 58 48 0d e1 0d 58 52  04 0d 58 5c 0c dd f2 65  |.XH...XR..X\...e|
000098b0  6e 73 75 72 65 0d 58 66  0d f5 c8 99 22 57 69 6d  |nsure.Xf...."Wim|
000098c0  70 5f 50 6f 6c 6c 22 2c  ac 33 2c 71 25 0d 61 63  |p_Poll",.3,q%.ac|
000098d0  74 69 6f 6e 25 0d 58 70  1b e7 61 63 74 69 6f 6e  |tion%.Xp..action|
000098e0  25 3d 0d 8c f2 72 65 64  72 61 77 28 21 71 25 29  |%=...redraw(!q%)|
000098f0  0d 58 7a 0e fd 61 63 0d  69 6f 6e 25 3d 30 0d 58  |.Xz..ac.ion%=0.X|
00009900  84 05 e1 0d 58 8e 04 0d  58 98 52 2d 0d 2d 2d 2d  |....X...X.R-.---|
00009910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00009920  2d 0d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |-.--------------|
00009930  2d 2d 2d 2d 2d 2d 0d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |------.---------|
00009940  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 2d 2d 2d 2d  |-----------.----|
00009950  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 58 a2 04 0d 58 ac  |---------.X...X.|
00009960  0d dd f2 73 6f 72 74 77  69 6e 64 6f 77 73 0d 58  |...sortwindows.X|
00009970  b6 1d e3 49 25 0d 30 b8  4a 25 2d 31 3a 77 66 6c  |...I%.0.J%-1:wfl|
00009980  61 67 25 28 49 25 29 3d  30 3a 0d 0d 58 c0 0e e3  |ag%(I%)=0:..X...|
00009990  49 25 3d 30 b8 4a 25 2d  31 0d 58 ca 12 e7 77 0d  |I%=0.J%-1.X...w.|
000099a0  6c 61 67 25 28 49 25 29  3d 30 8c 0d 58 d4 09 4b  |lag%(I%)=0..X..K|
000099b0  25 3d 49 25 0d 58 de 10  77 66 6c 61 67 25 28 4b  |%=I%.X..wflag%(K|
000099c0  25 29 3d 31 0d 58 e8 1a  21 0d 25 3d 68 61 6e 64  |%)=1.X..!.%=hand|
000099d0  6c 65 25 28 77 70 74 72  25 28 4b 25 29 29 0d 58  |le%(wptr%(K%)).X|
000099e0  f2 05 f5 0d 58 fc 1f c8  99 22 57 69 6d 70 5f 47  |....X...."Wimp_G|
000099f0  65 74 57 0d 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etW.ndowState",,|
00009a00  71 25 0d 59 06 0e e7 71                           |q%.Y...q|
00009a08