/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsd / dla / !DLA / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d ee 20 85 20 | f1 20 f6 24 2b 22 20 61 |..... . |. .$+" a|
|00000010| 74 20 6c 69 6e 65 20 22 | 2b c3 9e 3a e0 0d 00 14 |t line "|+..:....|
|00000020| 05 3a 0d 00 1e 11 6c 65 | 66 74 5f 73 68 69 66 74 |.:....le|ft_shift|
|00000030| 25 3d 30 0d 00 28 11 64 | 6f 77 6e 5f 73 68 69 66 |%=0..(.d|own_shif|
|00000040| 74 25 3d 30 0d 00 32 0e | 64 75 6d 25 3d b3 28 2d |t%=0..2.|dum%=.(-|
|00000050| 91 29 0d 00 3c 0f f2 69 | 6e 69 74 69 61 6c 69 73 |.)..<..i|nitialis|
|00000060| 65 0d 00 46 0f f2 66 69 | 6e 64 5f 73 68 69 66 74 |e..F..fi|nd_shift|
|00000070| 0d 00 50 0b 64 65 61 64 | 25 3d a3 0d 00 5a 05 3a |..P.dead|%=...Z.:|
|00000080| 0d 00 64 0e c8 95 20 ac | 20 64 65 61 64 25 0d 00 |..d... .| dead%..|
|00000090| 6e 2b 20 20 c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c |n+  .. "|Wimp_Pol|
|000000a0| 6c 22 2c 6d 61 73 6b 25 | 2c 62 6c 6f 63 6b 25 20 |l",mask%|,block% |
|000000b0| b8 20 72 65 61 73 6f 6e | 25 0d 00 78 12 20 20 c8 |. reason|%..x.  .|
|000000c0| 8e 20 72 65 61 73 6f 6e | 25 20 ca 0d 00 82 2a 20 |. reason|% ....* |
|000000d0| 20 20 20 c9 20 30 3a e3 | 20 77 61 6c 6b 73 25 3d |   . 0:.| walks%=|
|000000e0| 31 20 b8 20 6e 6f 5f 77 | 61 6c 6b 73 25 3a f2 77 |1 . no_w|alks%:.w|
|000000f0| 61 6c 6b 3a ed 0d 00 8c | 1a 20 20 20 20 c9 20 31 |alk:....|.    . 1|
|00000100| 3a f2 72 65 64 72 61 77 | 5f 77 69 6e 64 6f 77 0d |:.redraw|_window.|
|00000110| 00 96 28 20 20 20 20 c9 | 20 32 3a c8 99 20 22 57 |..(    .| 2:.. "W|
|00000120| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00000130| 2c 62 6c 6f 63 6b 25 0d | 00 a0 29 20 20 20 20 c9 |,block%.|..)    .|
|00000140| 20 33 3a c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 | 3:.. "W|imp_Clos|
|00000150| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00000160| 0d 00 aa 42 20 20 20 20 | c9 20 36 3a f2 63 6c 69 |...B    |. 6:.cli|
|00000170| 63 6b 28 62 6c 6f 63 6b | 25 21 30 2c 62 6c 6f 63 |ck(block|%!0,bloc|
|00000180| 6b 25 21 34 2c 62 6c 6f | 63 6b 25 21 38 2c 62 6c |k%!4,blo|ck%!8,bl|
|00000190| 6f 63 6b 25 21 31 32 2c | 62 6c 6f 63 6b 25 21 31 |ock%!12,|block%!1|
|000001a0| 36 29 0d 00 b4 31 20 20 | 20 20 c9 20 38 3a f2 6b |6)...1  |  . 8:.k|
|000001b0| 65 79 70 72 65 73 73 28 | 21 62 6c 6f 63 6b 25 2c |eypress(|!block%,|
|000001c0| 62 6c 6f 63 6b 25 21 34 | 2c 62 6c 6f 63 6b 25 21 |block%!4|,block%!|
|000001d0| 32 34 29 0d 00 be 17 20 | 20 20 20 c9 20 37 3a f2 |24).... |   . 7:.|
|000001e0| 64 72 61 67 5f 65 6e 64 | 65 64 0d 00 c8 18 20 20 |drag_end|ed....  |
|000001f0| 20 20 c9 20 39 3a f2 6d | 65 6e 75 5f 73 65 6c 65 |  . 9:.m|enu_sele|
|00000200| 63 74 0d 00 d2 23 20 20 | 20 20 c9 20 31 37 2c 31 |ct...#  |  . 17,1|
|00000210| 38 3a f2 6d 65 73 73 61 | 67 65 28 62 6c 6f 63 6b |8:.messa|ge(block|
|00000220| 25 21 31 36 29 0d 00 dc | 07 20 20 cb 0d 00 e6 05 |%!16)...|.  .....|
|00000230| ce 0d 00 f0 05 3a 0d 01 | 0e 17 c8 99 20 22 57 69 |.....:..|.... "Wi|
|00000240| 6d 70 5f 43 6c 6f 73 65 | 44 6f 77 6e 22 0d 01 18 |mp_Close|Down"...|
|00000250| 05 e0 0d 01 22 05 3a 0d | 01 4a 15 dd 20 f2 6d 65 |....".:.|.J.. .me|
|00000260| 73 73 61 67 65 28 63 6f | 64 65 25 29 0d 01 54 0e |ssage(co|de%)..T.|
|00000270| c8 8e 20 63 6f 64 65 25 | 20 ca 0d 01 5e 11 20 20 |.. code%| ...^.  |
|00000280| c9 20 30 3a 64 65 61 64 | 25 3d b9 0d 01 68 1a 20 |. 0:dead|%=...h. |
|00000290| 20 c9 20 26 34 30 30 43 | 31 3a f2 66 69 6e 64 5f | . &400C|1:.find_|
|000002a0| 73 68 69 66 74 0d 01 72 | 05 cb 0d 01 7c 05 e1 0d |shift..r|....|...|
|000002b0| 01 86 05 3a 0d 01 90 11 | dd 20 f2 66 69 6e 64 5f |...:....|. .find_|
|000002c0| 73 68 69 66 74 0d 01 9a | 0f 6d 6f 64 65 25 3d a4 |shift...|.mode%=.|
|000002d0| 6d 6f 64 65 0d 01 a4 12 | 70 69 78 79 25 3d a4 70 |mode....|pixy%=.p|
|000002e0| 69 78 65 6c 73 59 0d 01 | ae 12 70 69 78 78 25 3d |ixelsY..|..pixx%=|
|000002f0| a4 70 69 78 65 6c 73 58 | 0d 01 b8 2a 64 6f 77 6e |.pixelsX|...*down|
|00000300| 5f 73 68 69 66 74 25 3d | a8 28 28 a4 6f 73 75 6e |_shift%=|.((.osun|
|00000310| 69 74 73 59 20 81 20 28 | 32 2a 70 69 78 79 25 29 |itsY . (|2*pixy%)|
|00000320| 29 29 0d 01 c2 1d 64 6f | 77 6e 5f 73 68 69 66 74 |))....do|wn_shift|
|00000330| 25 3d 32 2d 64 6f 77 6e | 5f 73 68 69 66 74 25 0d |%=2-down|_shift%.|
|00000340| 01 cc 2a 6c 65 66 74 5f | 73 68 69 66 74 25 3d a8 |..*left_|shift%=.|
|00000350| 28 28 a4 6f 73 75 6e 69 | 74 73 58 20 81 20 28 32 |((.osuni|tsX . (2|
|00000360| 2a 70 69 78 78 25 29 29 | 29 0d 01 d6 05 e1 0d 01 |*pixx%))|).......|
|00000370| e0 05 3a 0d 01 ea 0b dd | 20 a4 6d 6f 64 65 0d 01 |..:.....| .mode..|
|00000380| f4 1e c8 99 20 22 4f 53 | 5f 42 79 74 65 22 2c 31 |.... "OS|_Byte",1|
|00000390| 33 35 20 b8 20 2c 2c 6d | 6f 64 65 25 0d 01 fe 0a |35 . ,,m|ode%....|
|000003a0| 3d 6d 6f 64 65 25 0d 02 | 08 05 3a 0d 02 12 0e dd |=mode%..|..:.....|
|000003b0| a4 6f 73 75 6e 69 74 73 | 58 0d 02 1c 2e c8 99 20 |.osunits|X...... |
|000003c0| 22 4f 53 5f 52 65 61 64 | 4d 6f 64 65 56 61 72 69 |"OS_Read|ModeVari|
|000003d0| 61 62 6c 65 22 2c 2d 31 | 2c 31 31 20 b8 20 2c 2c |able",-1|,11 . ,,|
|000003e0| 78 6c 69 6d 69 74 25 0d | 02 26 2b c8 99 20 22 4f |xlimit%.|.&+.. "O|
|000003f0| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|00000400| 6c 65 22 2c 2d 31 2c 34 | 20 b8 20 2c 2c 78 65 69 |le",-1,4| . ,,xei|
|00000410| 67 25 0d 02 30 17 3d 28 | 78 6c 69 6d 69 74 25 2b |g%..0.=(|xlimit%+|
|00000420| 31 29 3c 3c 78 65 69 67 | 25 0d 02 3a 05 3a 0d 02 |1)<<xeig|%..:.:..|
|00000430| 44 0e dd a4 6f 73 75 6e | 69 74 73 59 0d 02 4e 2e |D...osun|itsY..N.|
|00000440| c8 99 20 22 4f 53 5f 52 | 65 61 64 4d 6f 64 65 56 |.. "OS_R|eadModeV|
|00000450| 61 72 69 61 62 6c 65 22 | 2c 2d 31 2c 31 32 20 b8 |ariable"|,-1,12 .|
|00000460| 20 2c 2c 79 6c 69 6d 69 | 74 25 0d 02 58 2b c8 99 | ,,ylimi|t%..X+..|
|00000470| 20 22 4f 53 5f 52 65 61 | 64 4d 6f 64 65 56 61 72 | "OS_Rea|dModeVar|
|00000480| 69 61 62 6c 65 22 2c 2d | 31 2c 35 20 b8 20 2c 2c |iable",-|1,5 . ,,|
|00000490| 79 65 69 67 25 0d 02 62 | 17 3d 28 79 6c 69 6d 69 |yeig%..b|.=(ylimi|
|000004a0| 74 25 2b 31 29 3c 3c 79 | 65 69 67 25 0d 02 6c 05 |t%+1)<<y|eig%..l.|
|000004b0| 3a 0d 02 76 0d dd a4 70 | 69 78 65 6c 73 58 0d 02 |:..v...p|ixelsX..|
|000004c0| 80 2e c8 99 20 22 4f 53 | 5f 52 65 61 64 4d 6f 64 |.... "OS|_ReadMod|
|000004d0| 65 56 61 72 69 61 62 6c | 65 22 2c 2d 31 2c 31 31 |eVariabl|e",-1,11|
|000004e0| 20 b8 20 2c 2c 78 6c 69 | 6d 69 74 25 0d 02 8a 0e | . ,,xli|mit%....|
|000004f0| 3d 78 6c 69 6d 69 74 25 | 2b 31 0d 02 94 05 3a 0d |=xlimit%|+1....:.|
|00000500| 02 9e 0d dd a4 70 69 78 | 65 6c 73 59 0d 02 a8 2e |.....pix|elsY....|
|00000510| c8 99 20 22 4f 53 5f 52 | 65 61 64 4d 6f 64 65 56 |.. "OS_R|eadModeV|
|00000520| 61 72 69 61 62 6c 65 22 | 2c 2d 31 2c 31 32 20 b8 |ariable"|,-1,12 .|
|00000530| 20 2c 2c 79 6c 69 6d 69 | 74 25 0d 02 b2 0e 3d 79 | ,,ylimi|t%....=y|
|00000540| 6c 69 6d 69 74 25 2b 31 | 0d 02 bc 05 3a 0d 02 c6 |limit%+1|....:...|
|00000550| 0b dd 20 f2 77 61 6c 6b | 0d 02 d0 23 e7 20 a4 6f |.. .walk|...#. .o|
|00000560| 66 66 28 63 75 72 5f 64 | 6f 74 78 25 2c 63 75 72 |ff(cur_d|otx%,cur|
|00000570| 5f 64 6f 74 79 25 29 3d | b9 20 8c 0d 02 da 12 61 |_doty%)=|. .....a|
|00000580| 6e 67 6c 65 3d b3 28 31 | 29 2a 32 2a af 0d 02 e4 |ngle=.(1|)*2*....|
|00000590| 27 63 75 72 5f 64 6f 74 | 78 25 3d 28 72 61 64 69 |'cur_dot|x%=(radi|
|000005a0| 75 73 25 2a 9b 61 6e 67 | 6c 65 29 2b 63 65 6e 74 |us%*.ang|le)+cent|
|000005b0| 72 65 78 25 0d 02 ee 27 | 63 75 72 5f 64 6f 74 79 |rex%...'|cur_doty|
|000005c0| 25 3d 28 72 61 64 69 75 | 73 25 2a b5 61 6e 67 6c |%=(radiu|s%*.angl|
|000005d0| 65 29 2b 63 65 6e 74 72 | 65 79 25 0d 02 f8 05 cd |e)+centr|ey%.....|
|000005e0| 0d 03 02 28 e7 20 a4 61 | 64 6a 61 63 61 6e 74 28 |...(. .a|djacant(|
|000005f0| 63 75 72 5f 64 6f 74 78 | 25 2c 63 75 72 5f 64 6f |cur_dotx|%,cur_do|
|00000600| 74 79 25 29 3d b9 20 8c | 0d 03 0c 11 f2 64 6f 74 |ty%)=. .|.....dot|
|00000610| 5f 61 64 6a 61 63 61 6e | 74 0d 03 16 05 cd 0d 03 |_adjacan|t.......|
|00000620| 20 0f 20 20 64 69 72 25 | 3d b3 28 34 29 0d 03 2a | .  dir%|=.(4)..*|
|00000630| 0f 20 20 6d 6f 76 65 73 | 25 2b 3d 31 0d 03 34 0f |.  moves|%+=1..4.|
|00000640| 20 20 c8 8e 20 64 69 72 | 25 20 ca 0d 03 3e 18 20 |  .. dir|% ...>. |
|00000650| 20 20 20 c9 20 31 3a 63 | 75 72 5f 64 6f 74 78 25 |   . 1:c|ur_dotx%|
|00000660| 2b 3d 31 0d 03 48 18 20 | 20 20 20 c9 20 32 3a 63 |+=1..H. |   . 2:c|
|00000670| 75 72 5f 64 6f 74 78 25 | 2d 3d 31 0d 03 52 18 20 |ur_dotx%|-=1..R. |
|00000680| 20 20 20 c9 20 33 3a 63 | 75 72 5f 64 6f 74 79 25 |   . 3:c|ur_doty%|
|00000690| 2b 3d 31 0d 03 5c 18 20 | 20 20 20 c9 20 34 3a 63 |+=1..\. |   . 4:c|
|000006a0| 75 72 5f 64 6f 74 79 25 | 2d 3d 31 0d 03 66 07 20 |ur_doty%|-=1..f. |
|000006b0| 20 cb 0d 03 70 12 e7 20 | 6d 6f 76 65 73 25 3e 38 | ...p.. |moves%>8|
|000006c0| 30 30 20 8c 0d 03 84 19 | 63 75 72 5f 64 6f 74 78 |00 .....|cur_dotx|
|000006d0| 25 3d 2d 31 3a 6d 6f 76 | 65 73 25 3d 30 0d 03 8e |%=-1:mov|es%=0...|
|000006e0| 05 cd 0d 03 98 05 e1 0d | 03 a2 05 3a 0d 03 ac 13 |........|...:....|
|000006f0| dd 20 f2 64 6f 74 5f 61 | 64 6a 61 63 61 6e 74 0d |. .dot_a|djacant.|
|00000700| 03 b6 32 66 72 61 63 74 | 61 6c 5f 70 69 63 25 28 |..2fract|al_pic%(|
|00000710| 63 75 72 5f 64 6f 74 78 | 25 2c 63 75 72 5f 64 6f |cur_dotx|%,cur_do|
|00000720| 74 79 25 29 3d 63 75 72 | 5f 64 6f 74 5f 63 6f 6c |ty%)=cur|_dot_col|
|00000730| 25 0d 03 c0 0c 6d 6f 76 | 65 73 25 3d 30 0d 03 ca |%....mov|es%=0...|
|00000740| 0c 64 6f 74 73 25 2b 3d | 31 0d 03 d4 22 20 20 e7 |.dots%+=|1..."  .|
|00000750| 20 28 64 6f 74 73 25 20 | 83 20 72 65 64 72 61 77 | (dots% |. redraw|
|00000760| 5f 72 61 74 65 25 29 3d | 30 20 8c 0d 03 de 22 20 |_rate%)=|0 ...." |
|00000770| 20 20 63 75 72 5f 64 6f | 74 5f 63 6f 6c 25 3d 33 |  cur_do|t_col%=3|
|00000780| 2d 63 75 72 5f 64 6f 74 | 5f 63 6f 6c 25 0d 03 e8 |-cur_dot|_col%...|
|00000790| 17 20 20 f2 73 68 6f 77 | 5f 66 72 61 63 74 61 6c |.  .show|_fractal|
|000007a0| 28 32 30 29 0d 03 f2 07 | 20 20 cd 0d 03 fc 62 73 |(20)....|  ....bs|
|000007b0| 71 64 69 73 74 3d 28 28 | 63 75 72 5f 64 6f 74 78 |qdist=((|cur_dotx|
|000007c0| 25 2d 63 65 6e 74 72 65 | 78 25 29 2a 28 63 75 72 |%-centre|x%)*(cur|
|000007d0| 5f 64 6f 74 78 25 2d 63 | 65 6e 74 72 65 78 25 29 |_dotx%-c|entrex%)|
|000007e0| 29 2b 28 28 63 75 72 5f | 64 6f 74 79 25 2d 63 65 |)+((cur_|doty%-ce|
|000007f0| 6e 74 72 65 79 25 29 2a | 28 63 75 72 5f 64 6f 74 |ntrey%)*|(cur_dot|
|00000800| 79 25 2d 63 65 6e 74 72 | 65 79 25 29 29 0d 04 06 |y%-centr|ey%))...|
|00000810| 24 20 20 e7 20 73 71 64 | 69 73 74 2b 38 3e 73 71 |$  . sqd|ist+8>sq|
|00000820| 75 61 72 65 5f 6f 66 5f | 72 61 64 69 75 73 25 20 |uare_of_|radius% |
|00000830| 8c 0d 04 10 28 20 20 20 | 20 72 61 64 69 75 73 25 |....(   | radius%|
|00000840| 3d 28 b6 28 73 71 64 69 | 73 74 29 29 2b 72 61 64 |=(.(sqdi|st))+rad|
|00000850| 69 75 73 5f 73 69 7a 65 | 25 0d 04 1a 29 20 20 20 |ius_size|%...)   |
|00000860| 20 73 71 75 61 72 65 5f | 6f 66 5f 72 61 64 69 75 | square_|of_radiu|
|00000870| 73 25 3d 72 61 64 69 75 | 73 25 2a 72 61 64 69 75 |s%=radiu|s%*radiu|
|00000880| 73 25 0d 04 24 07 20 20 | cd 0d 04 2e 2d 20 20 f2 |s%..$.  |....-  .|
|00000890| 75 70 64 61 74 65 5f 62 | 6f 75 6e 64 61 72 69 65 |update_b|oundarie|
|000008a0| 73 28 63 75 72 5f 64 6f | 74 78 25 2c 63 75 72 5f |s(cur_do|tx%,cur_|
|000008b0| 64 6f 74 79 25 29 0d 04 | 38 10 63 75 72 5f 64 6f |doty%)..|8.cur_do|
|000008c0| 74 78 25 3d 2d 31 0d 04 | 42 05 e1 0d 04 4c 05 3a |tx%=-1..|B....L.:|
|000008d0| 0d 04 56 21 dd 20 f2 75 | 70 64 61 74 65 5f 62 6f |..V!. .u|pdate_bo|
|000008e0| 75 6e 64 61 72 69 65 73 | 28 62 78 25 2c 62 79 25 |undaries|(bx%,by%|
|000008f0| 29 0d 04 60 1b e7 20 62 | 78 25 3c 6d 69 6e 78 25 |)..`.. b|x%<minx%|
|00000900| 20 8c 20 6d 69 6e 78 25 | 3d 62 78 25 0d 04 6a 1b | . minx%|=bx%..j.|
|00000910| e7 20 62 78 25 3e 6d 61 | 78 78 25 20 8c 20 6d 61 |. bx%>ma|xx% . ma|
|00000920| 78 78 25 3d 62 78 25 0d | 04 74 1b e7 20 62 79 25 |xx%=bx%.|.t.. by%|
|00000930| 3c 6d 69 6e 79 25 20 8c | 20 6d 69 6e 79 25 3d 62 |<miny% .| miny%=b|
|00000940| 79 25 0d 04 7e 1b e7 20 | 62 79 25 3e 6d 61 78 79 |y%..~.. |by%>maxy|
|00000950| 25 20 8c 20 6d 61 78 79 | 25 3d 62 79 25 0d 04 88 |% . maxy|%=by%...|
|00000960| 05 e1 0d 04 92 05 3a 0d | 04 9c 18 dd 20 a4 61 64 |......:.|.... .ad|
|00000970| 6a 61 63 61 6e 74 28 63 | 78 25 2c 63 79 25 29 0d |jacant(c|x%,cy%).|
|00000980| 04 a6 0a 61 6e 73 25 3d | a3 0d 04 b0 29 e7 20 66 |...ans%=|....). f|
|00000990| 72 61 63 74 61 6c 5f 70 | 69 63 25 28 63 78 25 2b |ractal_p|ic%(cx%+|
|000009a0| 31 2c 63 79 25 29 20 3e | 30 20 8c 20 61 6e 73 25 |1,cy%) >|0 . ans%|
|000009b0| 3d b9 0d 04 ba 29 e7 20 | 66 72 61 63 74 61 6c 5f |=....). |fractal_|
|000009c0| 70 69 63 25 28 63 78 25 | 2c 63 79 25 2d 31 29 20 |pic%(cx%|,cy%-1) |
|000009d0| 3e 30 20 8c 20 61 6e 73 | 25 3d b9 0d 04 c4 29 e7 |>0 . ans|%=....).|
|000009e0| 20 66 72 61 63 74 61 6c | 5f 70 69 63 25 28 63 78 | fractal|_pic%(cx|
|000009f0| 25 2c 63 79 25 2b 31 29 | 20 3e 30 20 8c 20 61 6e |%,cy%+1)| >0 . an|
|00000a00| 73 25 3d b9 0d 04 ce 29 | e7 20 66 72 61 63 74 61 |s%=....)|. fracta|
|00000a10| 6c 5f 70 69 63 25 28 63 | 78 25 2d 31 2c 63 79 25 |l_pic%(c|x%-1,cy%|
|00000a20| 29 20 3e 30 20 8c 20 61 | 6e 73 25 3d b9 0d 04 d8 |) >0 . a|ns%=....|
|00000a30| 09 3d 61 6e 73 25 0d 04 | e2 05 3a 0d 04 ec 13 dd |.=ans%..|..:.....|
|00000a40| 20 a4 6f 66 66 28 76 78 | 25 2c 76 79 25 29 0d 04 | .off(vx|%,vy%)..|
|00000a50| f6 0e 61 6e 73 5f 6f 66 | 66 25 3d a3 0d 05 00 17 |..ans_of|f%=.....|
|00000a60| 72 65 6c 5f 78 25 3d 76 | 78 25 2d 63 65 6e 74 72 |rel_x%=v|x%-centr|
|00000a70| 65 78 25 0d 05 0a 17 72 | 65 6c 5f 79 25 3d 76 79 |ex%....r|el_y%=vy|
|00000a80| 25 2d 63 65 6e 74 72 65 | 79 25 0d 05 14 44 e7 20 |%-centre|y%...D. |
|00000a90| 28 72 65 6c 5f 78 25 2a | 72 65 6c 5f 78 25 2b 72 |(rel_x%*|rel_x%+r|
|00000aa0| 65 6c 5f 79 25 2a 72 65 | 6c 5f 79 25 29 2b 32 3e |el_y%*re|l_y%)+2>|
|00000ab0| 73 71 75 61 72 65 5f 6f | 66 5f 72 61 64 69 75 73 |square_o|f_radius|
|00000ac0| 25 20 8c 20 61 6e 73 5f | 6f 66 66 25 3d b9 0d 05 |% . ans_|off%=...|
|00000ad0| 1e 18 e7 20 76 78 25 3c | 30 20 8c 20 61 6e 73 5f |... vx%<|0 . ans_|
|00000ae0| 6f 66 66 25 3d b9 0d 05 | 28 0d 3d 61 6e 73 5f 6f |off%=...|(.=ans_o|
|00000af0| 66 66 25 0d 05 32 04 0d | 05 3c 15 dd 20 a4 6f 75 |ff%..2..|.<.. .ou|
|00000b00| 74 73 69 64 65 28 78 25 | 2c 79 25 29 0d 05 46 0a |tside(x%|,y%)..F.|
|00000b10| 61 6e 73 25 3d a3 0d 05 | 50 40 e7 20 78 25 3c 6d |ans%=...|P@. x%<m|
|00000b20| 69 6e 78 25 2b 34 20 84 | 20 78 25 3e 6d 61 78 78 |inx%+4 .| x%>maxx|
|00000b30| 25 2d 34 20 84 20 79 25 | 3e 6d 61 78 79 25 2d 34 |%-4 . y%|>maxy%-4|
|00000b40| 20 84 20 79 25 3c 6d 69 | 6e 79 25 2b 34 20 8c 20 | . y%<mi|ny%+4 . |
|00000b50| 61 6e 73 25 3d b9 0d 05 | 5a 09 3d 61 6e 73 25 0d |ans%=...|Z.=ans%.|
|00000b60| 05 64 04 0d 05 6e 1f dd | 20 f2 73 68 6f 77 5f 66 |.d...n..| .show_f|
|00000b70| 72 61 63 74 61 6c 28 73 | 74 65 70 5f 64 6f 74 73 |ractal(s|tep_dots|
|00000b80| 25 29 0d 05 78 09 e7 20 | a3 20 8c 0d 05 82 2c d5 |%)..x.. |. ....,.|
|00000b90| 23 64 61 74 61 5f 66 69 | 6c 65 25 2c c3 28 73 74 |#data_fi|le%,.(st|
|00000ba0| 65 70 5f 64 6f 74 73 25 | 2f 28 91 2d 6f 6c 64 5f |ep_dots%|/(.-old_|
|00000bb0| 74 69 6d 65 25 29 29 0d | 05 8c 11 e7 20 64 6f 74 |time%)).|.... dot|
|00000bc0| 73 25 3e 35 30 30 20 8c | 0d 05 96 2d d5 23 64 61 |s%>500 .|...-.#da|
|00000bd0| 74 61 5f 66 69 6c 65 25 | 2c 22 20 21 21 21 20 35 |ta_file%|," !!! 5|
|00000be0| 30 30 20 64 6f 74 73 20 | 65 78 63 65 65 64 65 64 |00 dots |exceeded|
|00000bf0| 20 21 21 21 22 0d 05 a0 | 10 d9 23 64 61 74 61 5f | !!!"...|..#data_|
|00000c00| 66 69 6c 65 25 0d 05 aa | 33 ff 28 22 53 65 74 54 |file%...|3.("SetT|
|00000c10| 79 70 65 20 3c 44 6c 61 | 24 44 69 72 3e 2e 22 2b |ype <Dla|$Dir>."+|
|00000c20| 64 61 74 61 5f 66 69 6c | 65 5f 6e 61 6d 65 24 2b |data_fil|e_name$+|
|00000c30| 22 20 26 44 46 45 22 29 | 0d 05 b4 0b 64 65 61 64 |" &DFE")|....dead|
|00000c40| 25 3d b9 0d 05 be 05 cd | 0d 05 c8 0f 6f 6c 64 5f |%=......|....old_|
|00000c50| 74 69 6d 65 25 3d 91 0d | 05 d2 05 cd 0d 05 e9 8c |time%=..|........|
|00000c60| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|00000c70| 64 72 61 77 22 2c 66 72 | 61 63 74 61 6c 5f 77 69 |draw",fr|actal_wi|
|00000c80| 6e 25 2c 28 63 65 6e 74 | 72 65 78 25 2d 72 61 64 |n%,(cent|rex%-rad|
|00000c90| 69 75 73 25 29 2a 34 2c | 2d 28 28 63 65 6e 74 72 |ius%)*4,|-((centr|
|00000ca0| 65 79 25 2b 28 31 36 30 | 2d 72 61 64 69 75 73 25 |ey%+(160|-radius%|
|00000cb0| 29 29 2a 34 29 2c 28 63 | 65 6e 74 72 65 78 25 2b |))*4),(c|entrex%+|
|00000cc0| 72 61 64 69 75 73 25 29 | 2a 34 2c 2d 28 28 63 65 |radius%)|*4,-((ce|
|00000cd0| 6e 74 72 65 79 25 2d 28 | 31 36 30 2d 72 61 64 69 |ntrey%-(|160-radi|
|00000ce0| 75 73 25 29 29 2a 34 29 | 0d 05 f0 05 e1 0d 05 fa |us%))*4)|........|
|00000cf0| 05 3a 0d 06 04 14 dd 20 | f2 72 65 64 72 61 77 5f |.:..... |.redraw_|
|00000d00| 77 69 6e 64 6f 77 0d 06 | 0e 2a c8 99 20 22 57 69 |window..|.*.. "Wi|
|00000d10| 6d 70 5f 52 65 64 72 61 | 77 57 69 6e 64 6f 77 22 |mp_Redra|wWindow"|
|00000d20| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 6d 6f 72 65 25 |,,block%| . more%|
|00000d30| 0d 06 18 1a 6f 78 25 3d | 62 6c 6f 63 6b 25 21 34 |....ox%=|block%!4|
|00000d40| 2d 62 6c 6f 63 6b 25 21 | 32 30 0d 06 22 1b 6f 79 |-block%!|20..".oy|
|00000d50| 25 3d 62 6c 6f 63 6b 25 | 21 31 36 2d 62 6c 6f 63 |%=block%|!16-bloc|
|00000d60| 6b 25 21 32 34 0d 06 2c | 1d 74 6f 70 25 3d 31 30 |k%!24..,|.top%=10|
|00000d70| 32 34 2d 28 6f 79 25 2d | 62 6c 6f 63 6b 25 21 34 |24-(oy%-|block%!4|
|00000d80| 30 29 0d 06 36 20 62 6f | 74 74 6f 6d 25 3d 31 30 |0)..6 bo|ttom%=10|
|00000d90| 32 34 2d 28 6f 79 25 2d | 62 6c 6f 63 6b 25 21 33 |24-(oy%-|block%!3|
|00000da0| 32 29 0d 06 40 17 6c 65 | 66 74 25 3d 6f 78 25 2b |2)..@.le|ft%=ox%+|
|00000db0| 62 6c 6f 63 6b 25 21 32 | 38 0d 06 4a 18 72 69 67 |block%!2|8..J.rig|
|00000dc0| 68 74 25 3d 6f 78 25 2b | 62 6c 6f 63 6b 25 21 33 |ht%=ox%+|block%!3|
|00000dd0| 36 0d 06 54 04 0d 06 5e | 0c c8 95 20 6d 6f 72 65 |6..T...^|... more|
|00000de0| 25 0d 06 68 2c f2 64 72 | 61 77 28 6f 78 25 2c 6f |%..h,.dr|aw(ox%,o|
|00000df0| 79 25 2c 6c 65 66 74 25 | 2c 72 69 67 68 74 25 2c |y%,left%|,right%,|
|00000e00| 74 6f 70 25 2c 62 6f 74 | 74 6f 6d 25 29 0d 06 72 |top%,bot|tom%)..r|
|00000e10| 2a c8 99 20 22 57 69 6d | 70 5f 47 65 74 52 65 63 |*.. "Wim|p_GetRec|
|00000e20| 74 61 6e 67 6c 65 22 2c | 2c 62 6c 6f 63 6b 25 20 |tangle",|,block% |
|00000e30| b8 20 6d 6f 72 65 25 0d | 06 7c 05 ce 0d 06 86 05 |. more%.|.|......|
|00000e40| e1 0d 06 90 05 3a 0d 06 | 9a 2e dd 20 f2 64 72 61 |.....:..|... .dra|
|00000e50| 77 28 78 25 2c 79 25 2c | 64 6d 69 6e 78 25 2c 64 |w(x%,y%,|dminx%,d|
|00000e60| 6d 61 78 78 25 2c 64 6d | 61 78 79 25 2c 64 6d 69 |maxx%,dm|axy%,dmi|
|00000e70| 6e 79 25 29 0d 07 4e 04 | 0d 07 58 10 64 6f 5f 72 |ny%)..N.|..X.do_r|
|00000e80| 65 64 72 61 77 25 3d b9 | 0d 07 a8 04 0d 07 b2 12 |edraw%=.|........|
|00000e90| e7 20 64 6f 5f 72 65 64 | 72 61 77 25 20 8c 0d 07 |. do_red|raw% ...|
|00000ea0| bc 24 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 43 6f |.$.. "Wi|mp_SetCo|
|00000eb0| 6c 6f 75 72 22 2c 64 6f | 74 5f 63 6f 6c 5f 6f 6e |lour",do|t_col_on|
|00000ec0| 65 25 0d 07 c6 31 e3 20 | 78 78 25 3d 63 65 6e 74 |e%...1. |xx%=cent|
|00000ed0| 72 65 78 25 2d 72 61 64 | 69 75 73 25 2d 34 20 b8 |rex%-rad|ius%-4 .|
|00000ee0| 20 63 65 6e 74 72 65 78 | 25 2b 72 61 64 69 75 73 | centrex|%+radius|
|00000ef0| 25 2b 34 0d 07 d0 31 e3 | 20 79 79 25 3d 63 65 6e |%+4...1.| yy%=cen|
|00000f00| 74 72 65 79 25 2d 72 61 | 64 69 75 73 25 2d 34 20 |trey%-ra|dius%-4 |
|00000f10| b8 20 63 65 6e 74 72 65 | 79 25 2b 72 61 64 69 75 |. centre|y%+radiu|
|00000f20| 73 25 2b 34 0d 07 da 1f | e7 20 66 72 61 63 74 61 |s%+4....|. fracta|
|00000f30| 6c 5f 70 69 63 25 28 78 | 78 25 2c 79 79 25 29 3d |l_pic%(x|x%,yy%)=|
|00000f40| 31 20 8c 0d 07 e4 23 c8 | 92 20 78 25 2b 28 78 78 |1 ....#.|. x%+(xx|
|00000f50| 25 2a 34 29 2c 28 79 25 | 2b 28 79 79 25 2a 34 29 |%*4),(y%|+(yy%*4)|
|00000f60| 29 2d 31 30 32 34 0d 07 | ee 2f c8 92 20 78 25 2b |)-1024..|./.. x%+|
|00000f70| 28 78 78 25 2a 34 29 2d | 6c 65 66 74 5f 73 68 69 |(xx%*4)-|left_shi|
|00000f80| 66 74 25 2c 28 79 25 2b | 28 79 79 25 2a 34 29 29 |ft%,(y%+|(yy%*4))|
|00000f90| 2d 31 30 32 34 0d 07 f8 | 2f c8 92 20 78 25 2b 28 |-1024...|/.. x%+(|
|00000fa0| 78 78 25 2a 34 29 2c 28 | 79 25 2b 28 79 79 25 2a |xx%*4),(|y%+(yy%*|
|00000fb0| 34 29 29 2d 64 6f 77 6e | 5f 73 68 69 66 74 25 2d |4))-down|_shift%-|
|00000fc0| 31 30 32 34 0d 08 02 3b | c8 92 20 78 25 2b 28 78 |1024...;|.. x%+(x|
|00000fd0| 78 25 2a 34 29 2d 6c 65 | 66 74 5f 73 68 69 66 74 |x%*4)-le|ft_shift|
|00000fe0| 25 2c 28 79 25 2b 28 79 | 79 25 2a 34 29 29 2d 64 |%,(y%+(y|y%*4))-d|
|00000ff0| 6f 77 6e 5f 73 68 69 66 | 74 25 2d 31 30 32 34 0d |own_shif|t%-1024.|
|00001000| 08 0c 05 cd 0d 08 16 05 | ed 0d 08 20 05 ed 0d 08 |........|... ....|
|00001010| 2a 04 0d 08 34 24 c8 99 | 20 22 57 69 6d 70 5f 53 |*...4$..| "Wimp_S|
|00001020| 65 74 43 6f 6c 6f 75 72 | 22 2c 64 6f 74 5f 63 6f |etColour|",dot_co|
|00001030| 6c 5f 74 77 6f 25 0d 08 | 3e 04 0d 08 48 31 e3 20 |l_two%..|>...H1. |
|00001040| 78 78 25 3d 63 65 6e 74 | 72 65 78 25 2d 72 61 64 |xx%=cent|rex%-rad|
|00001050| 69 75 73 25 2d 34 20 b8 | 20 63 65 6e 74 72 65 78 |ius%-4 .| centrex|
|00001060| 25 2b 72 61 64 69 75 73 | 25 2b 34 0d 08 52 31 e3 |%+radius|%+4..R1.|
|00001070| 20 79 79 25 3d 63 65 6e | 74 72 65 79 25 2d 72 61 | yy%=cen|trey%-ra|
|00001080| 64 69 75 73 25 2d 34 20 | b8 20 63 65 6e 74 72 65 |dius%-4 |. centre|
|00001090| 79 25 2b 72 61 64 69 75 | 73 25 2b 34 0d 08 66 1f |y%+radiu|s%+4..f.|
|000010a0| e7 20 66 72 61 63 74 61 | 6c 5f 70 69 63 25 28 78 |. fracta|l_pic%(x|
|000010b0| 78 25 2c 79 79 25 29 3d | 32 20 8c 0d 08 70 23 c8 |x%,yy%)=|2 ...p#.|
|000010c0| 92 20 78 25 2b 28 78 78 | 25 2a 34 29 2c 28 79 25 |. x%+(xx|%*4),(y%|
|000010d0| 2b 28 79 79 25 2a 34 29 | 29 2d 31 30 32 34 0d 08 |+(yy%*4)|)-1024..|
|000010e0| 7a 2f c8 92 20 78 25 2b | 28 78 78 25 2a 34 29 2d |z/.. x%+|(xx%*4)-|
|000010f0| 6c 65 66 74 5f 73 68 69 | 66 74 25 2c 28 79 25 2b |left_shi|ft%,(y%+|
|00001100| 28 79 79 25 2a 34 29 29 | 2d 31 30 32 34 0d 08 84 |(yy%*4))|-1024...|
|00001110| 2f c8 92 20 78 25 2b 28 | 78 78 25 2a 34 29 2c 28 |/.. x%+(|xx%*4),(|
|00001120| 79 25 2b 28 79 79 25 2a | 34 29 29 2d 64 6f 77 6e |y%+(yy%*|4))-down|
|00001130| 5f 73 68 69 66 74 25 2d | 31 30 32 34 0d 08 8e 3b |_shift%-|1024...;|
|00001140| c8 92 20 78 25 2b 28 78 | 78 25 2a 34 29 2d 6c 65 |.. x%+(x|x%*4)-le|
|00001150| 66 74 5f 73 68 69 66 74 | 25 2c 28 79 25 2b 28 79 |ft_shift|%,(y%+(y|
|00001160| 79 25 2a 34 29 29 2d 64 | 6f 77 6e 5f 73 68 69 66 |y%*4))-d|own_shif|
|00001170| 74 25 2d 31 30 32 34 0d | 08 98 05 cd 0d 08 a2 05 |t%-1024.|........|
|00001180| ed 0d 08 ac 05 ed 0d 08 | b6 19 c8 99 20 22 57 69 |........|.... "Wi|
|00001190| 6d 70 5f 53 65 74 43 6f | 6c 6f 75 72 22 2c 38 0d |mp_SetCo|lour",8.|
|000011a0| 08 c0 35 c8 8f 20 78 25 | 2b 28 63 65 6e 74 72 65 |..5.. x%|+(centre|
|000011b0| 78 25 2a 34 29 2c 79 25 | 2d 31 30 32 34 2b 28 63 |x%*4),y%|-1024+(c|
|000011c0| 65 6e 74 72 65 79 25 2a | 34 29 2c 72 61 64 69 75 |entrey%*|4),radiu|
|000011d0| 73 25 2a 34 0d 08 ca 05 | cd 0d 08 d4 05 e1 0d 08 |s%*4....|........|
|000011e0| de 05 3a 0d 08 e8 11 dd | 20 f2 69 6e 69 74 69 61 |..:.....| .initia|
|000011f0| 6c 69 73 65 0d 08 f2 09 | e7 20 a3 20 8c 0d 08 fc |lise....|. . ....|
|00001200| 10 64 61 74 61 5f 66 69 | 6c 65 25 3d 30 0d 09 06 |.data_fi|le%=0...|
|00001210| 17 64 61 74 61 5f 66 69 | 6c 65 5f 6e 75 6d 62 65 |.data_fi|le_numbe|
|00001220| 72 25 3d 30 0d 09 10 05 | f5 0d 09 1a 18 64 61 74 |r%=0....|.....dat|
|00001230| 61 5f 66 69 6c 65 5f 6e | 75 6d 62 65 72 25 2b 3d |a_file_n|umber%+=|
|00001240| 31 0d 09 24 31 64 61 74 | 61 5f 66 69 6c 65 5f 6e |1..$1dat|a_file_n|
|00001250| 61 6d 65 24 3d 22 28 4f | 6e 53 63 72 6e 29 22 2b |ame$="(O|nScrn)"+|
|00001260| c3 64 61 74 61 5f 66 69 | 6c 65 5f 6e 75 6d 62 65 |.data_fi|le_numbe|
|00001270| 72 25 0d 09 2e 2d 64 61 | 74 61 5f 66 69 6c 25 3d |r%...-da|ta_fil%=|
|00001280| ad 28 22 3c 44 6c 61 24 | 44 69 72 3e 2e 22 2b 64 |.("<Dla$|Dir>."+d|
|00001290| 61 74 61 5f 66 69 6c 65 | 5f 6e 61 6d 65 24 29 0d |ata_file|_name$).|
|000012a0| 09 38 04 0d 09 42 11 e7 | 20 64 61 74 61 5f 66 69 |.8...B..| data_fi|
|000012b0| 6c 25 20 8c 0d 09 4c 0f | d9 23 64 61 74 61 5f 66 |l% ...L.|.#data_f|
|000012c0| 69 6c 25 0d 09 56 27 f1 | 20 64 61 74 61 5f 66 69 |il%..V'.| data_fi|
|000012d0| 6c 65 5f 6e 61 6d 65 24 | 2b 22 20 61 6c 72 65 61 |le_name$|+" alrea|
|000012e0| 64 79 20 65 78 69 73 74 | 73 22 0d 09 60 05 cc 0d |dy exist|s"..`...|
|000012f0| 09 6a 0f d9 23 64 61 74 | 61 5f 66 69 6c 25 0d 09 |.j..#dat|a_fil%..|
|00001300| 74 2e 64 61 74 61 5f 66 | 69 6c 65 25 3d ae 28 22 |t.data_f|ile%=.("|
|00001310| 3c 44 6c 61 24 44 69 72 | 3e 2e 22 2b 64 61 74 61 |<Dla$Dir|>."+data|
|00001320| 5f 66 69 6c 65 5f 6e 61 | 6d 65 24 29 0d 09 7e 05 |_file_na|me$)..~.|
|00001330| cd 0d 09 88 10 fd 20 64 | 61 74 61 5f 66 69 6c 65 |...... d|ata_file|
|00001340| 25 0d 09 92 05 cd 0d 09 | 9c 04 0d 09 a6 13 72 65 |%.......|......re|
|00001350| 64 72 61 77 5f 72 61 74 | 65 25 3d 32 30 0d 09 b0 |draw_rat|e%=20...|
|00001360| 13 64 6f 74 5f 63 6f 6c | 5f 6f 6e 65 25 3d 31 30 |.dot_col|_one%=10|
|00001370| 0d 09 ba 13 64 6f 74 5f | 63 6f 6c 5f 74 77 6f 25 |....dot_|col_two%|
|00001380| 3d 31 34 0d 09 c4 12 63 | 75 72 5f 64 6f 74 5f 63 |=14....c|ur_dot_c|
|00001390| 6f 6c 25 3d 31 0d 09 ce | 12 72 61 64 69 75 73 5f |ol%=1...|.radius_|
|000013a0| 73 69 7a 65 25 3d 38 0d | 09 d8 0d 72 61 64 69 75 |size%=8.|...radiu|
|000013b0| 73 25 3d 38 0d 09 d9 10 | 6e 6f 5f 77 61 6c 6b 73 |s%=8....|no_walks|
|000013c0| 25 3d 31 35 0d 09 e2 25 | 73 71 75 61 72 65 5f 6f |%=15...%|square_o|
|000013d0| 66 5f 72 61 64 69 75 73 | 25 3d 72 61 64 69 75 73 |f_radius|%=radius|
|000013e0| 25 2a 72 61 64 69 75 73 | 25 0d 09 ec 04 0d 0a 00 |%*radius|%.......|
|000013f0| 04 0d 0a 0a 0f 6f 6c 64 | 5f 74 69 6d 65 25 3d 91 |.....old|_time%=.|
|00001400| 0d 0a 14 24 6d 61 73 6b | 25 3d 25 30 30 30 30 30 |...$mask|%=%00000|
|00001410| 30 30 30 30 30 30 31 31 | 31 30 30 30 30 30 31 31 |00000011|10000011|
|00001420| 30 30 30 30 0d 0a 1e 0b | 6d 61 73 6b 25 3d 30 0d |0000....|mask%=0.|
|00001430| 0a 28 13 63 65 6e 74 72 | 65 78 25 3d 31 32 38 30 |.(.centr|ex%=1280|
|00001440| 2f 38 0d 0a 32 13 63 65 | 6e 74 72 65 79 25 3d 31 |/8..2.ce|ntrey%=1|
|00001450| 30 32 34 2f 38 0d 0a 3c | 21 de 20 66 72 61 63 74 |024/8..<|!. fract|
|00001460| 61 6c 5f 70 69 63 25 28 | 31 32 38 30 2f 34 2c 31 |al_pic%(|1280/4,1|
|00001470| 30 32 34 2f 34 29 0d 0a | 46 0c 6d 6f 76 65 73 25 |024/4)..|F.moves%|
|00001480| 3d 30 0d 0a 50 11 de 20 | 62 6c 6f 63 6b 25 20 32 |=0..P.. |block% 2|
|00001490| 30 34 38 0d 0a 5a 12 de | 20 69 6e 64 64 61 74 61 |048..Z..| inddata|
|000014a0| 25 20 32 35 30 0d 0a 64 | 0f de 20 6d 65 6e 75 25 |% 250..d|.. menu%|
|000014b0| 20 31 35 30 0d 0a 6e 0e | de 20 6e 61 6d 65 25 20 | 150..n.|. name% |
|000014c0| 31 33 0d 0a 78 05 3a 0d | 0a 82 12 61 6c 74 65 72 |13..x.:.|...alter|
|000014d0| 5f 62 6c 6f 63 6b 25 3d | a3 0d 0a 8c 11 61 6c 74 |_block%=|.....alt|
|000014e0| 65 72 5f 64 6f 74 73 25 | 3d b9 0d 0a 96 34 c8 99 |er_dots%|=....4..|
|000014f0| 20 22 57 69 6d 70 5f 49 | 6e 69 74 69 61 6c 69 73 | "Wimp_I|nitialis|
|00001500| 65 22 2c 32 30 30 2c 26 | 34 42 35 33 34 31 35 34 |e",200,&|4B534154|
|00001510| 2c 22 44 4c 41 20 46 72 | 61 63 74 61 6c 22 0d 0a |,"DLA Fr|actal"..|
|00001520| a0 23 ee 20 85 20 f2 65 | 72 72 6f 72 28 f6 24 2b |.#. . .e|rror(.$+|
|00001530| 22 20 61 74 20 6c 69 6e | 65 20 22 2b c3 9e 29 3a |" at lin|e "+..):|
|00001540| e0 0d 0a dc 05 3a 0d 0a | e6 16 6d 61 78 78 25 3d |.....:..|..maxx%=|
|00001550| 28 63 65 6e 74 72 65 78 | 25 29 2b 34 0d 0a f0 16 |(centrex|%)+4....|
|00001560| 6d 69 6e 78 25 3d 28 63 | 65 6e 74 72 65 78 25 29 |minx%=(c|entrex%)|
|00001570| 2d 34 0d 0a fa 16 6d 61 | 78 79 25 3d 28 63 65 6e |-4....ma|xy%=(cen|
|00001580| 74 72 65 79 25 29 2b 34 | 0d 0b 04 16 6d 69 6e 79 |trey%)+4|....miny|
|00001590| 25 3d 28 63 65 6e 74 72 | 65 79 25 29 2d 34 0d 0b |%=(centr|ey%)-4..|
|000015a0| 0e 18 63 75 72 5f 64 6f | 74 78 25 3d 28 63 65 6e |..cur_do|tx%=(cen|
|000015b0| 74 72 65 78 25 29 0d 0b | 18 18 63 75 72 5f 64 6f |trex%)..|..cur_do|
|000015c0| 74 79 25 3d 28 63 65 6e | 74 72 65 79 25 29 0d 0b |ty%=(cen|trey%)..|
|000015d0| 22 2c 66 72 61 63 74 61 | 6c 5f 70 69 63 25 28 31 |",fracta|l_pic%(1|
|000015e0| 32 38 30 2f 38 2c 31 30 | 32 34 2f 38 29 3d 63 75 |280/8,10|24/8)=cu|
|000015f0| 72 5f 64 6f 74 5f 63 6f | 6c 25 0d 0b 36 0b 64 6f |r_dot_co|l%..6.do|
|00001600| 74 73 25 3d 31 0d 0b 40 | 19 de 20 66 72 61 63 74 |ts%=1..@|.. fract|
|00001610| 61 6c 5f 77 69 6e 5f 69 | 6e 64 25 20 34 30 0d 0b |al_win_i|nd% 40..|
|00001620| 4a 1a de 20 63 6f 6e 74 | 72 6f 6c 5f 77 69 6e 5f |J.. cont|rol_win_|
|00001630| 69 6e 64 25 20 31 37 30 | 0d 0b 54 17 de 20 69 6e |ind% 170|..T.. in|
|00001640| 66 6f 5f 77 69 6e 5f 69 | 6e 64 25 20 31 31 30 0d |fo_win_i|nd% 110.|
|00001650| 0b 5e 31 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.^1.. "W|imp_Open|
|00001660| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 3c 44 6c 61 |Template|",,"<Dla|
|00001670| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 61 74 65 73 22 |$Dir>.Te|mplates"|
|00001680| 0d 0b 68 11 24 6e 61 6d | 65 25 3d 22 49 6e 66 6f |..h.$nam|e%="Info|
|00001690| 22 0d 0b 72 4d c8 99 20 | 22 57 69 6d 70 5f 4c 6f |"..rM.. |"Wimp_Lo|
|000016a0| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6c 6f |adTempla|te",,blo|
|000016b0| 63 6b 25 2c 69 6e 66 6f | 5f 77 69 6e 5f 69 6e 64 |ck%,info|_win_ind|
|000016c0| 25 2c 69 6e 66 6f 5f 77 | 69 6e 5f 69 6e 64 25 2b |%,info_w|in_ind%+|
|000016d0| 31 31 30 2c 2d 31 2c 6e | 61 6d 65 25 2c 30 0d 0b |110,-1,n|ame%,0..|
|000016e0| 7c 2e c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 ||... "Wi|mp_Creat|
|000016f0| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |eWindow"|,,block%|
|00001700| 20 b8 20 69 6e 66 6f 5f | 77 69 6e 25 0d 0b 86 04 | . info_|win%....|
|00001710| 0d 0b 90 14 24 6e 61 6d | 65 25 3d 22 66 72 61 63 |....$nam|e%="frac|
|00001720| 74 61 6c 22 0d 0b 9a 52 | c8 99 20 22 57 69 6d 70 |tal"...R|.. "Wimp|
|00001730| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00001740| 62 6c 6f 63 6b 25 2c 66 | 72 61 63 74 61 6c 5f 77 |block%,f|ractal_w|
|00001750| 69 6e 5f 69 6e 64 25 2c | 66 72 61 63 74 61 6c 5f |in_ind%,|fractal_|
|00001760| 77 69 6e 5f 69 6e 64 25 | 2b 34 30 2c 2d 31 2c 6e |win_ind%|+40,-1,n|
|00001770| 61 6d 65 25 2c 30 0d 0b | a4 31 c8 99 20 22 57 69 |ame%,0..|.1.. "Wi|
|00001780| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00001790| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 66 72 61 63 74 |,,block%| . fract|
|000017a0| 61 6c 5f 77 69 6e 25 0d | 0b ae 04 0d 0b b8 14 24 |al_win%.|.......$|
|000017b0| 6e 61 6d 65 25 3d 22 63 | 6f 6e 74 72 6f 6c 22 0d |name%="c|ontrol".|
|000017c0| 0b c2 53 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..S.. "W|imp_Load|
|000017d0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|000017e0| 25 2c 63 6f 6e 74 72 6f | 6c 5f 77 69 6e 5f 69 6e |%,contro|l_win_in|
|000017f0| 64 25 2c 63 6f 6e 74 72 | 6f 6c 5f 77 69 6e 5f 69 |d%,contr|ol_win_i|
|00001800| 6e 64 25 2b 31 37 30 2c | 2d 31 2c 6e 61 6d 65 25 |nd%+170,|-1,name%|
|00001810| 2c 30 0d 0b cc 31 c8 99 | 20 22 57 69 6d 70 5f 43 |,0...1..| "Wimp_C|
|00001820| 72 65 61 74 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |reateWin|dow",,bl|
|00001830| 6f 63 6b 25 20 b8 20 63 | 6f 6e 74 72 6f 6c 5f 77 |ock% . c|ontrol_w|
|00001840| 69 6e 25 0d 0b d6 1b c8 | 99 20 22 57 69 6d 70 5f |in%.....|. "Wimp_|
|00001850| 43 6c 6f 73 65 54 65 6d | 70 6c 61 74 65 22 0d 0b |CloseTem|plate"..|
|00001860| ea 05 3a 0d 0c b2 1b f7 | 20 8d 44 7a 52 3a f2 6d |..:.....| .DzR:.m|
|00001870| 65 6e 75 64 61 74 61 28 | 6d 65 6e 75 25 29 0d 0c |enudata(|menu%)..|
|00001880| bc 05 3a 0d 0c c6 0f 62 | 6c 6f 63 6b 25 21 30 3d |..:....b|lock%!0=|
|00001890| 2d 31 0d 0c d0 19 62 6c | 6f 63 6b 25 21 34 3d 30 |-1....bl|ock%!4=0|
|000018a0| 3a 62 6c 6f 63 6b 25 21 | 38 3d 30 0d 0c da 1d 62 |:block%!|8=0....b|
|000018b0| 6c 6f 63 6b 25 21 31 32 | 3d 36 38 3a 62 6c 6f 63 |lock%!12|=68:bloc|
|000018c0| 6b 25 21 31 36 3d 36 38 | 0d 0c e4 13 62 6c 6f 63 |k%!16=68|....bloc|
|000018d0| 6b 25 21 32 30 3d 26 33 | 30 31 41 0d 0c ee 1a 24 |k%!20=&3|01A....$|
|000018e0| 28 62 6c 6f 63 6b 25 2b | 32 34 29 3d 22 21 64 6c |(block%+|24)="!dl|
|000018f0| 61 22 2b bd 30 0d 0c f8 | 27 c8 99 22 57 69 6d 70 |a"+.0...|'.."Wimp|
|00001900| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 62 6c |_CreateI|con",,bl|
|00001910| 6f 63 6b 25 20 b8 20 69 | 63 6f 6e 25 0d 0d 02 05 |ock% . i|con%....|
|00001920| e1 0d 0d 0c 05 3a 0d 0d | 16 16 dd 20 f2 6d 65 6e |.....:..|... .men|
|00001930| 75 64 61 74 61 28 6d 65 | 6e 75 25 29 0d 0d 20 a1 |udata(me|nu%).. .|
|00001940| f3 20 74 69 74 6c 65 24 | 2c 6e 75 6d 62 65 72 25 |. title$|,number%|
|00001950| 3a 24 6d 65 6e 75 25 3d | 74 69 74 6c 65 24 3a 6d |:$menu%=|title$:m|
|00001960| 65 6e 75 77 69 64 74 68 | 25 3d 28 a9 28 74 69 74 |enuwidth|%=(.(tit|
|00001970| 6c 65 24 29 2d 32 29 2a | 31 36 3a 6d 65 6e 75 25 |le$)-2)*|16:menu%|
|00001980| 21 31 32 3d 26 37 30 32 | 30 37 3a 6d 65 6e 75 25 |!12=&702|07:menu%|
|00001990| 21 32 30 3d 34 34 3a 6d | 65 6e 75 25 21 32 34 3d |!20=44:m|enu%!24=|
|000019a0| 30 3a 70 6f 69 6e 74 25 | 3d 6d 65 6e 75 25 2b 32 |0:point%|=menu%+2|
|000019b0| 38 3a e3 20 69 25 3d 31 | b8 6e 75 6d 62 65 72 25 |8:. i%=1|.number%|
|000019c0| 3a f3 20 6d 65 6e 75 66 | 6c 61 67 73 25 2c 73 75 |:. menuf|lags%,su|
|000019d0| 62 70 6f 69 6e 74 25 2c | 69 74 65 6d 24 0d 0d 2a |bpoint%,|item$..*|
|000019e0| 82 21 70 6f 69 6e 74 25 | 3d 6d 65 6e 75 66 6c 61 |.!point%|=menufla|
|000019f0| 67 73 25 3a 70 6f 69 6e | 74 25 21 34 3d 73 75 62 |gs%:poin|t%!4=sub|
|00001a00| 70 6f 69 6e 74 25 3a 70 | 6f 69 6e 74 25 21 38 3d |point%:p|oint%!8=|
|00001a10| 26 37 30 30 30 30 32 31 | 3a 24 28 70 6f 69 6e 74 |&7000021|:$(point|
|00001a20| 25 2b 31 32 29 3d 69 74 | 65 6d 24 3a 61 25 3d 28 |%+12)=it|em$:a%=(|
|00001a30| a9 28 69 74 65 6d 24 29 | 2b 31 29 2a 31 36 3a e7 |.(item$)|+1)*16:.|
|00001a40| 20 61 25 3e 20 6d 65 6e | 75 77 69 64 74 68 25 20 | a%> men|uwidth% |
|00001a50| 6d 65 6e 75 77 69 64 74 | 68 25 3d 61 25 3a cd 0d |menuwidt|h%=a%:..|
|00001a60| 0d 34 24 70 6f 69 6e 74 | 25 2b 3d 32 34 3a ed 3a |.4$point|%+=24:.:|
|00001a70| 6d 65 6e 75 25 21 31 36 | 3d 6d 65 6e 75 77 69 64 |menu%!16|=menuwid|
|00001a80| 74 68 25 0d 0d 3e 05 e1 | 0d 0d 48 05 3a 0d 0d 52 |th%..>..|..H.:..R|
|00001a90| 18 dd 20 f2 65 72 72 6f | 72 28 65 72 72 6f 72 74 |.. .erro|r(errort|
|00001aa0| 65 78 74 24 29 0d 0d 70 | 1a f2 77 61 72 6e 69 6e |ext$)..p|..warnin|
|00001ab0| 67 28 65 72 72 6f 72 74 | 65 78 74 24 2c 31 29 0d |g(errort|ext$,1).|
|00001ac0| 0d 7a 19 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |.z... "W|imp_Clos|
|00001ad0| 65 44 6f 77 6e 22 3a e0 | 0d 0d 84 05 e1 0d 0d 8e |eDown":.|........|
|00001ae0| 05 3a 0d 0d 98 1d dd 20 | f2 77 61 72 6e 69 6e 67 |.:..... |.warning|
|00001af0| 28 65 72 72 6f 72 24 2c | 66 6c 61 67 73 25 29 0d |(error$,|flags%).|
|00001b00| 0d a2 31 6e 61 6d 65 24 | 3d 22 44 4c 41 22 3a 21 |..1name$|="DLA":!|
|00001b10| 62 6c 6f 63 6b 25 3d 32 | 35 35 3a 24 28 62 6c 6f |block%=2|55:$(blo|
|00001b20| 63 6b 25 2b 34 29 3d 65 | 72 72 6f 72 24 2b bd 30 |ck%+4)=e|rror$+.0|
|00001b30| 0d 0d ac 3a c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |...:.. "|Wimp_Rep|
|00001b40| 6f 72 74 45 72 72 6f 72 | 22 2c 62 6c 6f 63 6b 25 |ortError|",block%|
|00001b50| 2c 66 6c 61 67 73 25 2c | 6e 61 6d 65 24 20 b8 20 |,flags%,|name$ . |
|00001b60| 2c 65 72 72 63 6c 69 63 | 6b 25 0d 0d b6 05 e1 0d |,errclic|k%......|
|00001b70| 0d c0 05 3a 0d 0d ca 12 | dd 20 f2 6d 65 6e 75 5f |...:....|. .menu_|
|00001b80| 73 65 6c 65 63 74 0d 0d | d4 10 c8 8e 20 21 62 6c |select..|.... !bl|
|00001b90| 6f 63 6b 25 20 ca 0d 0d | e8 22 c9 20 31 3a f2 6f |ock% ...|.". 1:.o|
|00001ba0| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 63 6f 6e 74 72 |pen_wind|ow(contr|
|00001bb0| 6f 6c 5f 77 69 6e 25 29 | 0d 0d f2 0f c9 20 32 3a |ol_win%)|..... 2:|
|00001bc0| 64 65 61 64 25 3d b9 0d | 0d fc 05 cb 0d 0e 06 05 |dead%=..|........|
|00001bd0| e1 0d 0e 10 05 3a 0d 0e | 1a 1b dd 20 f2 6f 70 65 |.....:..|... .ope|
|00001be0| 6e 5f 77 69 6e 64 6f 77 | 28 21 62 6c 6f 63 6b 25 |n_window|(!block%|
|00001bf0| 29 0d 0e 24 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |)..$$.. |"Wimp_Ge|
|00001c00| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00001c10| 6c 6f 63 6b 25 0d 0e 2e | 20 c8 99 20 22 57 69 6d |lock%...| .. "Wim|
|00001c20| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00001c30| 6c 6f 63 6b 25 0d 0e 38 | 05 e1 0d 0e 42 05 3a 0d |lock%..8|....B.:.|
|00001c40| 0e 4c 35 dd 20 f2 63 6c | 69 63 6b 28 63 6c 69 63 |.L5. .cl|ick(clic|
|00001c50| 6b 5f 78 25 2c 63 6c 69 | 63 6b 5f 79 25 2c 62 75 |k_x%,cli|ck_y%,bu|
|00001c60| 74 74 6f 6e 25 2c 77 69 | 6e 64 6f 77 25 2c 69 63 |tton%,wi|ndow%,ic|
|00001c70| 6f 6e 25 29 0d 0e 56 10 | 77 69 6e 5f 72 65 6c 5f |on%)..V.|win_rel_|
|00001c80| 78 25 3d 30 0d 0e 60 10 | 77 69 6e 5f 72 65 6c 5f |x%=0..`.|win_rel_|
|00001c90| 79 25 3d 30 0d 0e 6a 10 | c8 8e 20 77 69 6e 64 6f |y%=0..j.|.. windo|
|00001ca0| 77 25 20 ca 0d 0e 74 04 | 0d 0e 7e 17 20 20 c9 20 |w% ...t.|..~.  . |
|00001cb0| 2d 32 3a c8 8e 20 62 75 | 74 74 6f 6e 25 20 ca 0d |-2:.. bu|tton% ..|
|00001cc0| 0e 88 28 20 20 20 20 c9 | 20 31 2c 34 3a f2 6f 70 |..(    .| 1,4:.op|
|00001cd0| 65 6e 5f 77 69 6e 64 6f | 77 28 66 72 61 63 74 61 |en_windo|w(fracta|
|00001ce0| 6c 5f 77 69 6e 25 29 0d | 0e 92 2c 20 20 20 20 c9 |l_win%).|..,    .|
|00001cf0| 20 32 3a c8 99 20 26 34 | 30 30 44 34 2c 2c 6d 65 | 2:.. &4|00D4,,me|
|00001d00| 6e 75 25 2c 63 6c 69 63 | 6b 5f 78 25 2d 34 38 2c |nu%,clic|k_x%-48,|
|00001d10| 32 32 38 0d 0e 9c 08 20 | 20 20 cb 0d 0e a6 06 20 |228.... |  ..... |
|00001d20| 20 0d 0e b0 26 20 20 c9 | 20 66 72 61 63 74 61 6c | ...&  .| fractal|
|00001d30| 5f 77 69 6e 25 3a f2 63 | 6c 69 63 6b 5f 6f 6e 5f |_win%:.c|lick_on_|
|00001d40| 66 72 61 63 74 61 6c 0d | 0e ba 26 20 20 c9 20 63 |fractal.|..&  . c|
|00001d50| 6f 6e 74 72 6f 6c 5f 77 | 69 6e 25 3a f2 63 6c 69 |ontrol_w|in%:.cli|
|00001d60| 63 6b 5f 6f 6e 5f 63 6f | 6e 74 72 6f 6c 0d 0e c4 |ck_on_co|ntrol...|
|00001d70| 06 20 20 0d 0e ce 05 cb | 0d 0e d8 05 e1 0d 0e e2 |.  .....|........|
|00001d80| 05 3a 0d 0e ec 17 dd 20 | f2 63 6c 69 63 6b 5f 6f |.:..... |.click_o|
|00001d90| 6e 5f 66 72 61 63 74 61 | 6c 0d 0e f6 4a f2 66 69 |n_fracta|l...J.fi|
|00001da0| 6e 64 5f 77 69 6e 64 6f | 77 5f 72 65 6c 61 74 69 |nd_windo|w_relati|
|00001db0| 76 65 28 63 6c 69 63 6b | 5f 78 25 2c 63 6c 69 63 |ve(click|_x%,clic|
|00001dc0| 6b 5f 79 25 2c 77 69 6e | 5f 72 65 6c 5f 78 25 2c |k_y%,win|_rel_x%,|
|00001dd0| 77 69 6e 5f 72 65 6c 5f | 79 25 2c 77 69 6e 64 6f |win_rel_|y%,windo|
|00001de0| 77 25 29 0d 0f 00 10 c8 | 8e 20 62 75 74 74 6f 6e |w%).....|. button|
|00001df0| 25 20 ca 0d 0f 0a 0e c9 | 20 34 3a c8 8e 20 b9 20 |% ......| 4:.. . |
|00001e00| ca 0d 0f 14 39 20 20 c9 | 20 61 6c 74 65 72 5f 64 |....9  .| alter_d|
|00001e10| 6f 74 73 25 3a f2 70 6c | 61 63 65 5f 64 6f 74 28 |ots%:.pl|ace_dot(|
|00001e20| 77 69 6e 5f 72 65 6c 5f | 78 25 2f 34 2c 77 69 6e |win_rel_|x%/4,win|
|00001e30| 5f 72 65 6c 5f 79 25 2f | 34 29 0d 0f 1e 05 cb 0d |_rel_y%/|4)......|
|00001e40| 0f 28 0e c9 20 31 3a c8 | 8e 20 b9 20 ca 0d 0f 32 |.(.. 1:.|. . ...2|
|00001e50| 3c 20 20 c9 20 61 6c 74 | 65 72 5f 64 6f 74 73 25 |<  . alt|er_dots%|
|00001e60| 3a f4 20 61 64 64 20 64 | 6f 74 73 20 61 74 20 77 |:. add d|ots at w|
|00001e70| 69 6e 5f 72 65 6c 5f 78 | 25 20 20 20 20 20 20 77 |in_rel_x|%      w|
|00001e80| 69 6e 20 72 65 6c 5f 79 | 25 0d 0f 3c 05 cb 0d 0f |in rel_y|%..<....|
|00001e90| 46 05 cb 0d 0f 50 05 e1 | 0d 0f 5a 05 3a 0d 0f 64 |F....P..|..Z.:..d|
|00001ea0| 17 dd 20 f2 63 6c 69 63 | 6b 5f 6f 6e 5f 63 6f 6e |.. .clic|k_on_con|
|00001eb0| 74 72 6f 6c 0d 0f 6e 0e | c8 8e 20 69 63 6f 6e 25 |trol..n.|.. icon%|
|00001ec0| 20 ca 0d 0f 78 24 20 20 | c9 20 30 3a 61 6c 74 65 | ...x$  |. 0:alte|
|00001ed0| 72 5f 64 6f 74 73 25 3d | ac 28 61 6c 74 65 72 5f |r_dots%=|.(alter_|
|00001ee0| 64 6f 74 73 25 29 0d 0f | 82 17 20 20 20 20 e7 20 |dots%)..|..    . |
|00001ef0| 61 6c 74 65 72 5f 64 6f | 74 73 25 20 8c 0d 0f 8c |alter_do|ts% ....|
|00001f00| 2f 20 20 20 20 f2 73 65 | 74 5f 69 63 6f 6e 5f 74 |/    .se|t_icon_t|
|00001f10| 65 78 74 28 63 6f 6e 74 | 72 6f 6c 5f 77 69 6e 25 |ext(cont|rol_win%|
|00001f20| 2c 30 2c 22 4e 6f 72 6d | 61 6c 22 29 0d 0f 96 09 |,0,"Norm|al")....|
|00001f30| 20 20 20 20 cc 0d 0f a0 | 33 20 20 20 20 f2 73 65 |    ....|3    .se|
|00001f40| 74 5f 69 63 6f 6e 5f 74 | 65 78 74 28 63 6f 6e 74 |t_icon_t|ext(cont|
|00001f50| 72 6f 6c 5f 77 69 6e 25 | 2c 30 2c 22 41 6c 74 65 |rol_win%|,0,"Alte|
|00001f60| 72 20 64 6f 74 73 22 29 | 0d 0f aa 09 20 20 20 20 |r dots")|....    |
|00001f70| cd 0d 0f b4 2e 20 20 c9 | 20 34 3a 63 65 6e 74 72 |.....  .| 4:centr|
|00001f80| 65 78 25 2d 3d 31 3a 20 | e7 20 63 65 6e 74 72 65 |ex%-=1: |. centre|
|00001f90| 78 25 3c 30 20 63 65 6e | 74 72 65 78 25 3d 30 0d |x%<0 cen|trex%=0.|
|00001fa0| 0f be 32 20 20 20 20 f2 | 73 65 74 5f 69 63 6f 6e |..2    .|set_icon|
|00001fb0| 5f 74 65 78 74 28 63 6f | 6e 74 72 6f 6c 5f 77 69 |_text(co|ntrol_wi|
|00001fc0| 6e 25 2c 33 2c c3 28 63 | 65 6e 74 72 65 78 25 29 |n%,3,.(c|entrex%)|
|00001fd0| 29 0d 0f c8 39 20 20 c9 | 20 35 3a 63 65 6e 74 72 |)...9  .| 5:centr|
|00001fe0| 65 78 25 2b 3d 31 3a 20 | e7 20 63 65 6e 74 72 65 |ex%+=1: |. centre|
|00001ff0| 78 25 3e 20 31 32 38 30 | 2f 34 20 63 65 6e 74 72 |x%> 1280|/4 centr|
|00002000| 65 78 25 3d 31 32 38 30 | 2f 34 0d 0f d2 32 20 20 |ex%=1280|/4...2  |
|00002010| 20 20 f2 73 65 74 5f 69 | 63 6f 6e 5f 74 65 78 74 |  .set_i|con_text|
|00002020| 28 63 6f 6e 74 72 6f 6c | 5f 77 69 6e 25 2c 33 2c |(control|_win%,3,|
|00002030| c3 28 63 65 6e 74 72 65 | 78 25 29 29 0d 0f dc 2e |.(centre|x%))....|
|00002040| 20 20 c9 20 38 3a 63 65 | 6e 74 72 65 79 25 2d 3d |  . 8:ce|ntrey%-=|
|00002050| 31 3a 20 e7 20 63 65 6e | 74 72 65 79 25 3c 30 20 |1: . cen|trey%<0 |
|00002060| 63 65 6e 74 72 65 79 25 | 3d 30 0d 0f e6 32 20 20 |centrey%|=0...2  |
|00002070| 20 20 f2 73 65 74 5f 69 | 63 6f 6e 5f 74 65 78 74 |  .set_i|con_text|
|00002080| 28 63 6f 6e 74 72 6f 6c | 5f 77 69 6e 25 2c 37 2c |(control|_win%,7,|
|00002090| c3 28 63 65 6e 74 72 65 | 79 25 29 29 0d 0f f0 39 |.(centre|y%))...9|
|000020a0| 20 20 c9 20 39 3a 63 65 | 6e 74 72 65 79 25 2b 3d |  . 9:ce|ntrey%+=|
|000020b0| 31 3a 20 e7 20 63 65 6e | 74 72 65 79 25 3e 20 31 |1: . cen|trey%> 1|
|000020c0| 32 38 30 2f 34 20 63 65 | 6e 74 72 65 79 25 3d 31 |280/4 ce|ntrey%=1|
|000020d0| 32 38 30 2f 34 0d 0f fa | 32 20 20 20 20 f2 73 65 |280/4...|2    .se|
|000020e0| 74 5f 69 63 6f 6e 5f 74 | 65 78 74 28 63 6f 6e 74 |t_icon_t|ext(cont|
|000020f0| 72 6f 6c 5f 77 69 6e 25 | 2c 37 2c c3 28 63 65 6e |rol_win%|,7,.(cen|
|00002100| 74 72 65 79 25 29 29 0d | 10 04 08 20 20 20 20 0d |trey%)).|...    .|
|00002110| 10 0e 3a 20 20 c9 20 31 | 35 3a 64 6f 74 5f 63 6f |..:  . 1|5:dot_co|
|00002120| 6c 5f 6f 6e 65 25 2d 3d | 31 3a e7 20 64 6f 74 5f |l_one%-=|1:. dot_|
|00002130| 63 6f 6c 5f 6f 6e 65 25 | 3c 30 20 64 6f 74 5f 63 |col_one%|<0 dot_c|
|00002140| 6f 6c 5f 6f 6e 65 25 3d | 30 0d 10 18 34 20 20 f2 |ol_one%=|0...4  .|
|00002150| 73 65 74 5f 69 63 6f 6e | 5f 63 6f 6c 6f 75 72 28 |set_icon|_colour(|
|00002160| 63 6f 6e 74 72 6f 6c 5f | 77 69 6e 25 2c 31 36 2c |control_|win%,16,|
|00002170| 64 6f 74 5f 63 6f 6c 5f | 6f 6e 65 25 29 0d 10 22 |dot_col_|one%).."|
|00002180| 3c 20 20 c9 20 31 37 3a | 64 6f 74 5f 63 6f 6c 5f |<  . 17:|dot_col_|
|00002190| 6f 6e 65 25 2b 3d 31 3a | e7 20 64 6f 74 5f 63 6f |one%+=1:|. dot_co|
|000021a0| 6c 5f 6f 6e 65 25 3e 31 | 35 20 64 6f 74 5f 63 6f |l_one%>1|5 dot_co|
|000021b0| 6c 5f 6f 6e 65 25 3d 31 | 35 0d 10 2c 34 20 20 f2 |l_one%=1|5..,4  .|
|000021c0| 73 65 74 5f 69 63 6f 6e | 5f 63 6f 6c 6f 75 72 28 |set_icon|_colour(|
|000021d0| 63 6f 6e 74 72 6f 6c 5f | 77 69 6e 25 2c 31 36 2c |control_|win%,16,|
|000021e0| 64 6f 74 5f 63 6f 6c 5f | 6f 6e 65 25 29 0d 10 36 |dot_col_|one%)..6|
|000021f0| 3a 20 20 c9 20 31 39 3a | 64 6f 74 5f 63 6f 6c 5f |:  . 19:|dot_col_|
|00002200| 74 77 6f 25 2d 3d 31 3a | e7 20 64 6f 74 5f 63 6f |two%-=1:|. dot_co|
|00002210| 6c 5f 74 77 6f 25 3c 30 | 20 64 6f 74 5f 63 6f 6c |l_two%<0| dot_col|
|00002220| 5f 74 77 6f 25 3d 30 0d | 10 40 34 20 20 f2 73 65 |_two%=0.|.@4  .se|
|00002230| 74 5f 69 63 6f 6e 5f 63 | 6f 6c 6f 75 72 28 63 6f |t_icon_c|olour(co|
|00002240| 6e 74 72 6f 6c 5f 77 69 | 6e 25 2c 32 30 2c 64 6f |ntrol_wi|n%,20,do|
|00002250| 74 5f 63 6f 6c 5f 74 77 | 6f 25 29 0d 10 4a 3c 20 |t_col_tw|o%)..J< |
|00002260| 20 c9 20 32 31 3a 64 6f | 74 5f 63 6f 6c 5f 74 77 | . 21:do|t_col_tw|
|00002270| 6f 25 2b 3d 31 3a e7 20 | 64 6f 74 5f 63 6f 6c 5f |o%+=1:. |dot_col_|
|00002280| 74 77 6f 25 3e 31 35 20 | 64 6f 74 5f 63 6f 6c 5f |two%>15 |dot_col_|
|00002290| 74 77 6f 25 3d 31 35 0d | 10 54 34 20 20 f2 73 65 |two%=15.|.T4  .se|
|000022a0| 74 5f 69 63 6f 6e 5f 63 | 6f 6c 6f 75 72 28 63 6f |t_icon_c|olour(co|
|000022b0| 6e 74 72 6f 6c 5f 77 69 | 6e 25 2c 32 30 2c 64 6f |ntrol_wi|n%,20,do|
|000022c0| 74 5f 63 6f 6c 5f 74 77 | 6f 25 29 0d 10 5e 07 20 |t_col_tw|o%)..^. |
|000022d0| 20 cb 0d 10 68 04 0d 10 | 72 05 e1 0d 10 7c 05 3a | ...h...|r....|.:|
|000022e0| 0d 10 86 2d dd 20 f2 73 | 65 74 5f 69 63 6f 6e 5f |...-. .s|et_icon_|
|000022f0| 63 6f 6c 6f 75 72 28 77 | 69 6e 64 6f 77 25 2c 69 |colour(w|indow%,i|
|00002300| 63 6f 6e 25 2c 63 6f 6c | 6f 75 72 25 29 0d 10 90 |con%,col|our%)...|
|00002310| 13 21 62 6c 6f 63 6b 25 | 3d 77 69 6e 64 6f 77 25 |.!block%|=window%|
|00002320| 0d 10 9a 12 62 6c 6f 63 | 6b 25 21 34 3d 69 63 6f |....bloc|k%!4=ico|
|00002330| 6e 25 0d 10 a4 22 c8 99 | 20 22 57 69 6d 70 5f 47 |n%..."..| "Wimp_G|
|00002340| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00002350| 6f 63 6b 25 0d 10 cc 10 | 6f 66 66 73 65 74 25 3d |ock%....|offset%=|
|00002360| 32 34 2a 34 0d 10 d6 14 | 66 6c 61 67 73 25 3d 62 |24*4....|flags%=b|
|00002370| 6c 6f 63 6b 25 21 32 34 | 0d 10 e0 04 0d 10 ea 18 |lock%!24|........|
|00002380| 63 6c 65 61 72 5f 77 6f | 72 64 25 3d 28 31 35 3c |clear_wo|rd%=(15<|
|00002390| 3c 32 38 29 0d 10 f4 1b | 65 6f 72 5f 77 6f 72 64 |<28)....|eor_word|
|000023a0| 25 3d 28 63 6f 6c 6f 75 | 72 25 3c 3c 32 38 29 0d |%=(colou|r%<<28).|
|000023b0| 10 fe 14 62 6c 6f 63 6b | 25 21 30 3d 77 69 6e 64 |...block|%!0=wind|
|000023c0| 6f 77 25 0d 11 08 12 62 | 6c 6f 63 6b 25 21 34 3d |ow%....b|lock%!4=|
|000023d0| 69 63 6f 6e 25 0d 11 12 | 16 62 6c 6f 63 6b 25 21 |icon%...|.block%!|
|000023e0| 38 3d 65 6f 72 5f 77 6f | 72 64 25 0d 11 1c 19 62 |8=eor_wo|rd%....b|
|000023f0| 6c 6f 63 6b 25 21 31 32 | 3d 63 6c 65 61 72 5f 77 |lock%!12|=clear_w|
|00002400| 6f 72 64 25 0d 11 26 22 | c8 99 20 22 57 69 6d 70 |ord%..&"|.. "Wimp|
|00002410| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00002420| 62 6c 6f 63 6b 25 0d 11 | 30 05 e1 0d 11 3a 05 3a |block%..|0....:.:|
|00002430| 0d 11 44 1d dd 20 f2 70 | 6c 61 63 65 5f 64 6f 74 |..D.. .p|lace_dot|
|00002440| 28 64 6f 74 78 25 2c 64 | 6f 74 79 25 29 0d 11 4e |(dotx%,d|oty%)..N|
|00002450| 1f 66 72 61 63 74 61 6c | 5f 70 69 63 25 28 64 6f |.fractal|_pic%(do|
|00002460| 74 78 25 2c 64 6f 74 79 | 25 29 3d 31 0d 11 62 27 |tx%,doty|%)=1..b'|
|00002470| e7 20 6d 61 78 78 25 3c | 28 64 6f 74 78 25 29 20 |. maxx%<|(dotx%) |
|00002480| 8c 20 6d 61 78 78 25 3d | 28 64 6f 74 78 25 29 2b |. maxx%=|(dotx%)+|
|00002490| 28 34 29 0d 11 6c 27 e7 | 20 6d 69 6e 78 25 3e 28 |(4)..l'.| minx%>(|
|000024a0| 64 6f 74 78 25 29 20 8c | 20 6d 69 6e 78 25 3d 28 |dotx%) .| minx%=(|
|000024b0| 64 6f 74 78 25 29 2d 28 | 34 29 0d 11 76 27 e7 20 |dotx%)-(|4)..v'. |
|000024c0| 6d 61 78 79 25 3c 28 64 | 6f 74 79 25 29 20 8c 20 |maxy%<(d|oty%) . |
|000024d0| 6d 61 78 79 25 3d 28 64 | 6f 74 79 25 29 2b 28 34 |maxy%=(d|oty%)+(4|
|000024e0| 29 0d 11 80 27 e7 20 6d | 69 6e 79 25 3e 28 64 6f |)...'. m|iny%>(do|
|000024f0| 74 79 25 29 20 8c 20 6d | 69 6e 79 25 3d 28 64 6f |ty%) . m|iny%=(do|
|00002500| 74 79 25 29 2d 28 34 29 | 0d 11 8a 05 e1 0d 11 94 |ty%)-(4)|........|
|00002510| 04 0d 11 9e 05 51 0d 11 | a8 51 dd 20 f2 66 69 6e |.....Q..|.Q. .fin|
|00002520| 64 5f 77 69 6e 64 6f 77 | 5f 72 65 6c 61 74 69 76 |d_window|_relativ|
|00002530| 65 28 69 6e 78 25 2c 69 | 6e 79 25 2c f8 20 6f 75 |e(inx%,i|ny%,. ou|
|00002540| 74 78 25 2c f8 20 6f 75 | 74 79 25 2c 77 69 6e 25 |tx%,. ou|ty%,win%|
|00002550| 29 20 20 20 20 3a f4 20 | 52 45 54 55 52 4e 20 6c |)    :. |RETURN l|
|00002560| 61 73 74 20 74 77 6f 0d | 11 b2 0e 6f 75 74 78 25 |ast two.|...outx%|
|00002570| 3d 69 6e 78 25 0d 11 bc | 0e 6f 75 74 79 25 3d 69 |=inx%...|.outy%=i|
|00002580| 6e 79 25 0d 11 c6 10 21 | 62 6c 6f 63 6b 25 3d 77 |ny%....!|block%=w|
|00002590| 69 6e 25 0d 11 d0 24 c8 | 99 20 22 57 69 6d 70 5f |in%...$.|. "Wimp_|
|000025a0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000025b0| 2c 62 6c 6f 63 6b 25 0d | 11 da 16 76 69 73 5f 6d |,block%.|...vis_m|
|000025c0| 69 6e 78 25 3d 62 6c 6f | 63 6b 25 21 34 0d 11 e4 |inx%=blo|ck%!4...|
|000025d0| 16 76 69 73 5f 6d 69 6e | 79 25 3d 62 6c 6f 63 6b |.vis_min|y%=block|
|000025e0| 25 21 38 0d 11 ee 17 76 | 69 73 5f 6d 61 78 78 25 |%!8....v|is_maxx%|
|000025f0| 3d 62 6c 6f 63 6b 25 21 | 31 32 0d 11 f8 17 76 69 |=block%!|12....vi|
|00002600| 73 5f 6d 61 78 79 25 3d | 62 6c 6f 63 6b 25 21 31 |s_maxy%=|block%!1|
|00002610| 36 0d 12 02 16 73 63 72 | 6f 6c 6c 78 25 3d 62 6c |6....scr|ollx%=bl|
|00002620| 6f 63 6b 25 21 32 30 0d | 12 0c 16 73 63 72 6f 6c |ock%!20.|...scrol|
|00002630| 6c 79 25 3d 62 6c 6f 63 | 6b 25 21 32 34 0d 12 16 |ly%=bloc|k%!24...|
|00002640| 04 0d 12 20 1d 77 6f 72 | 6b 78 25 3d 76 69 73 5f |... .wor|kx%=vis_|
|00002650| 6d 69 6e 78 25 2d 73 63 | 72 6f 6c 6c 78 25 0d 12 |minx%-sc|rollx%..|
|00002660| 2a 1d 77 6f 72 6b 79 25 | 3d 76 69 73 5f 6d 61 78 |*.worky%|=vis_max|
|00002670| 79 25 2d 73 63 72 6f 6c | 6c 79 25 0d 12 34 04 0d |y%-scrol|ly%..4..|
|00002680| 12 3e 1b 78 5f 72 65 6c | 5f 77 6f 72 6b 25 3d 69 |.>.x_rel|_work%=i|
|00002690| 6e 78 25 2d 77 6f 72 6b | 78 25 0d 12 48 22 79 5f |nx%-work|x%..H"y_|
|000026a0| 72 65 6c 5f 77 6f 72 6b | 25 3d 69 6e 79 25 2d 28 |rel_work|%=iny%-(|
|000026b0| 77 6f 72 6b 79 25 2d 31 | 30 32 34 29 0d 12 52 15 |worky%-1|024)..R.|
|000026c0| 6f 75 74 78 25 3d 78 5f | 72 65 6c 5f 77 6f 72 6b |outx%=x_|rel_work|
|000026d0| 25 0d 12 5c 15 6f 75 74 | 79 25 3d 79 5f 72 65 6c |%..\.out|y%=y_rel|
|000026e0| 5f 77 6f 72 6b 25 0d 12 | 66 05 e1 0d 12 70 04 0d |_work%..|f....p..|
|000026f0| 12 7a 39 dc 20 46 72 61 | 63 74 61 6c 2c 33 2c 30 |.z9. Fra|ctal,3,0|
|00002700| 2c 69 6e 66 6f 5f 77 69 | 6e 25 2c 49 6e 66 6f 2c |,info_wi|n%,Info,|
|00002710| 30 2c 2d 31 2c 43 6f 6e | 74 72 6f 6c 2c 26 38 30 |0,-1,Con|trol,&80|
|00002720| 2c 2d 31 2c 51 75 69 74 | 0d 12 84 04 0d 12 8e 2c |,-1,Quit|.......,|
|00002730| dd 20 f2 73 65 74 5f 69 | 63 6f 6e 5f 74 65 78 74 |. .set_i|con_text|
|00002740| 28 21 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |(!block%|,block%!|
|00002750| 34 2c 74 65 78 74 24 29 | 0d 12 98 15 c8 99 20 26 |4,text$)|...... &|
|00002760| 34 30 30 43 45 2c 2c 62 | 6c 6f 63 6b 25 0d 12 a2 |400CE,,b|lock%...|
|00002770| 16 24 28 62 6c 6f 63 6b | 25 21 32 38 29 3d 74 65 |.$(block|%!28)=te|
|00002780| 78 74 24 0d 12 ac 1a 62 | 6c 6f 63 6b 25 21 38 3d |xt$....b|lock%!8=|
|00002790| 30 3a 62 6c 6f 63 6b 25 | 21 31 32 3d 30 0d 12 b6 |0:block%|!12=0...|
|000027a0| 15 c8 99 20 26 34 30 30 | 43 44 2c 2c 62 6c 6f 63 |... &400|CD,,bloc|
|000027b0| 6b 25 0d 12 c0 05 e1 0d | 12 ca 05 3a 0d 12 d4 26 |k%......|...:...&|
|000027c0| dd 20 a4 67 65 74 5f 69 | 63 6f 6e 5f 74 65 78 74 |. .get_i|con_text|
|000027d0| 28 21 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |(!block%|,block%!|
|000027e0| 34 29 0d 12 de 22 c8 99 | 20 22 57 69 6d 70 5f 47 |4)..."..| "Wimp_G|
|000027f0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00002800| 6f 63 6b 25 0d 12 e8 11 | 3d 24 28 62 6c 6f 63 6b |ock%....|=$(block|
|00002810| 25 21 32 38 29 0d 12 f2 | 04 0d 12 fc 23 dd 20 f2 |%!28)...|....#. .|
|00002820| 6b 65 79 70 72 65 73 73 | 28 77 69 6e 64 6f 77 25 |keypress|(window%|
|00002830| 2c 69 63 6f 6e 25 2c 6b | 65 79 25 29 0d 13 06 10 |,icon%,k|ey%)....|
|00002840| c8 8e 20 77 69 6e 64 6f | 77 25 20 ca 0d 13 10 1f |.. windo|w% .....|
|00002850| 20 20 c9 20 63 6f 6e 74 | 72 6f 6c 5f 77 69 6e 25 |  . cont|rol_win%|
|00002860| 3a c8 8e 20 69 63 6f 6e | 25 20 ca 0d 13 1a 46 20 |:.. icon|% ....F |
|00002870| 20 20 20 c9 20 31 31 3a | e7 20 6b 65 79 25 3d 31 |   . 11:|. key%=1|
|00002880| 33 3a 72 65 64 72 61 77 | 5f 72 61 74 65 25 3d bb |3:redraw|_rate%=.|
|00002890| 28 a4 67 65 74 5f 69 63 | 6f 6e 5f 74 65 78 74 28 |(.get_ic|on_text(|
|000028a0| 63 6f 6e 74 72 6f 6c 5f | 77 69 6e 25 2c 31 31 29 |control_|win%,11)|
|000028b0| 29 0d 13 24 46 20 20 20 | 20 c9 20 31 33 3a e7 20 |)..$F   | . 13:. |
|000028c0| 6b 65 79 25 3d 31 33 3a | 72 61 64 69 75 73 5f 73 |key%=13:|radius_s|
|000028d0| 69 7a 65 25 3d bb 28 a4 | 67 65 74 5f 69 63 6f 6e |ize%=.(.|get_icon|
|000028e0| 5f 74 65 78 74 28 63 6f | 6e 74 72 6f 6c 5f 77 69 |_text(co|ntrol_wi|
|000028f0| 6e 25 2c 31 33 29 29 0d | 13 25 43 20 20 20 20 c9 |n%,13)).|.%C    .|
|00002900| 20 32 33 3a e7 20 6b 65 | 79 25 3d 31 33 3a 6e 6f | 23:. ke|y%=13:no|
|00002910| 5f 77 61 6c 6b 73 25 3d | bb 28 a4 67 65 74 5f 69 |_walks%=|.(.get_i|
|00002920| 63 6f 6e 5f 74 65 78 74 | 28 63 6f 6e 74 72 6f 6c |con_text|(control|
|00002930| 5f 77 69 6e 25 2c 32 33 | 29 29 0d 13 2e 07 20 20 |_win%,23|))....  |
|00002940| cb 0d 13 38 05 cb 0d 13 | 42 16 e7 20 72 65 64 72 |...8....|B.. redr|
|00002950| 61 77 5f 72 61 74 65 25 | 3d 30 20 8c 0d 13 4c 40 |aw_rate%|=0 ...L@|
|00002960| 72 65 64 72 61 77 5f 72 | 61 74 65 25 3d 31 3a f2 |redraw_r|ate%=1:.|
|00002970| 73 65 74 5f 69 63 6f 6e | 5f 74 65 78 74 28 63 6f |set_icon|_text(co|
|00002980| 6e 74 72 6f 6c 5f 77 69 | 6e 25 2c 31 31 2c c3 72 |ntrol_wi|n%,11,.r|
|00002990| 65 64 72 61 77 5f 72 61 | 74 65 25 29 0d 13 56 05 |edraw_ra|te%)..V.|
|000029a0| cd 0d 13 60 05 e1 0d ff |                         |...`....|        |
+--------+-------------------------+-------------------------+--------+--------+