/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities / _graph

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 20 01 00 00 80 01 00 00 |Archive.| .......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 47 72 61 70 68 00 | 00 00 00 00 ff ff ff ff |.!Graph.|........|
|00000070| 45 fd ff ff ab c7 e4 99 | 80 00 00 00 ff ff ff ff |E.......|........|
|00000080| fc 00 00 80 82 21 72 75 | 6e 00 04 00 b0 01 00 00 |.....!ru|n.......|
|00000090| 50 00 00 00 42 eb ff ff | 78 80 ca b9 93 00 0a b0 |P...B...|x.......|
|000000a0| 50 00 00 00 24 00 00 00 | 82 21 72 75 6e 69 6d 61 |P...$...|.!runima|
|000000b0| 67 65 00 00 64 92 00 00 | 42 fb ff ff fe 1e fc ba |ge..d...|B.......|
|000000c0| 93 00 06 a6 64 92 00 00 | 98 00 00 00 82 21 53 70 |....d...|.....!Sp|
|000000d0| 72 69 74 65 73 00 00 00 | 60 04 00 00 45 f9 ff ff |rites...|`...E...|
|000000e0| 57 b7 1b 76 03 00 9c dc | 60 04 00 00 20 93 00 00 |W..v....|`... ...|
|000000f0| 82 4d 65 6e 75 00 04 00 | b0 01 00 00 d4 00 00 00 |.Menu...|........|
|00000100| 42 ff ff ff 1d 24 77 ba | 93 00 c4 c8 d4 00 00 00 |B....$w.|........|
|00000110| a4 97 00 00 82 54 65 6d | 70 6c 61 74 65 73 00 00 |.....Tem|plates..|
|00000120| 30 0e 00 00 42 ec ff ff | d7 63 76 ba 93 00 2d 50 |0...B...|.cv...-P|
|00000130| 30 0e 00 00 9c 98 00 00 | 00 00 00 00 c3 00 04 00 |0.......|........|
|00000140| b0 01 00 00 3b 00 00 00 | 43 eb ff ff a3 eb c1 db |....;...|C.......|
|00000150| 13 00 b0 9a 3b 00 00 00 | 20 01 00 00 00 00 00 00 |....;...| .......|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 d4 01 00 00 |........|........|
|00000180| 46 69 6c 65 44 61 74 61 | 82 21 72 75 6e 00 04 00 |FileData|.!run...|
|00000190| b0 01 00 00 50 00 00 00 | 42 eb ff ff 78 80 ca b9 |....P...|B...x...|
|000001a0| 03 00 0a b0 77 69 6d 70 | 73 6c 6f 74 20 2d 6d 69 |....wimp|slot -mi|
|000001b0| 6e 20 36 30 30 4b 20 2d | 6d 61 78 20 36 30 30 4b |n 600K -|max 600K|
|000001c0| 0a 73 65 74 20 67 72 61 | 70 68 24 64 69 72 20 3c |.set gra|ph$dir <|
|000001d0| 6f 62 65 79 24 64 69 72 | 3e 0a 72 75 6e 20 3c 67 |obey$dir|>.run <g|
|000001e0| 72 61 70 68 24 64 69 72 | 3e 2e 21 72 75 6e 69 6d |raph$dir|>.!runim|
|000001f0| 61 67 65 0a 46 69 6c 65 | 44 61 74 61 82 21 72 75 |age.File|Data.!ru|
|00000200| 6e 69 6d 61 67 65 00 00 | 64 92 00 00 42 fb ff ff |nimage..|d...B...|
|00000210| fe 1e fc ba 03 00 06 a6 | 0d 00 0a 0f f4 3e 21 72 |........|.....>!r|
|00000220| 75 6e 69 6d 61 67 65 0d | 00 14 29 f4 20 73 6b 65 |unimage.|..). ske|
|00000230| 6c 65 74 6f 6e 20 6d 75 | 6c 74 69 74 61 73 6b 20 |leton mu|ltitask |
|00000240| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 61 72 63 2c |program |for arc,|
|00000250| 0d 00 1e 44 f4 20 63 68 | 61 6e 67 65 20 64 65 74 |...D. ch|ange det|
|00000260| 61 69 6c 73 20 62 65 6c | 6f 77 20 74 6f 20 79 6f |ails bel|ow to yo|
|00000270| 75 72 20 61 70 70 6c 69 | 63 20 6e 61 6d 65 2c 20 |ur appli|c name, |
|00000280| 61 6e 64 20 61 6c 6c 20 | 77 69 6c 6c 20 62 65 20 |and all |will be |
|00000290| 77 65 6c 6c 0d 00 28 23 | f4 20 70 6f 6c 61 72 20 |well..(#|. polar |
|000002a0| 63 69 72 63 6c 65 73 20 | 69 6e 20 77 72 6f 6e 67 |circles |in wrong|
|000002b0| 20 6f 72 69 67 69 6e 0d | 00 32 1a f4 20 6e 6f 20 | origin.|.2.. no |
|000002c0| 69 6d 70 6c 69 63 69 74 | 20 70 6c 6f 74 73 2e 2e |implicit| plots..|
|000002d0| 2e 0d 00 3c 37 f4 20 53 | 6b 69 70 20 64 6f 77 6e |...<7. S|kip down|
|000002e0| 20 74 68 65 20 77 72 69 | 74 65 61 62 6c 65 20 69 | the wri|teable i|
|000002f0| 63 6f 6e 73 20 6f 6e 20 | 52 45 54 55 52 4e 20 70 |cons on |RETURN p|
|00000300| 72 65 73 73 65 64 2e 2e | 0d 00 46 1f f4 20 49 6e |ressed..|..F.. In|
|00000310| 74 65 72 61 63 74 69 76 | 65 20 48 45 4c 50 20 69 |teractiv|e HELP i|
|00000320| 6e 66 6f 20 2e 2e 2e 0d | 00 50 04 0d 00 5a 04 0d |nfo ....|.P...Z..|
|00000330| 00 64 04 0d 00 6e 1f f4 | 20 2e 2e 2e 66 6f 72 20 |.d...n..| ...for |
|00000340| 74 68 65 20 69 6e 66 6f | 20 77 69 6e 64 6f 77 2e |the info| window.|
|00000350| 2e 2e 0d 00 78 04 0d 00 | 82 31 61 70 70 6c 69 63 |....x...|.1applic|
|00000360| 5f 6e 61 6d 65 24 3d 22 | 47 72 61 70 68 22 20 20 |_name$="|Graph"  |
|00000370| 20 20 3a f4 20 2e 2e 6e | 6f 20 21 20 62 65 66 6f |  :. ..n|o ! befo|
|00000380| 72 65 20 69 74 21 21 0d | 00 8c 1f 70 75 72 70 6f |re it!!.|...purpo|
|00000390| 73 65 24 3d 22 32 44 20 | 47 72 61 70 68 20 70 6c |se$="2D |Graph pl|
|000003a0| 6f 74 74 65 72 22 0d 00 | 96 20 61 75 74 68 6f 72 |otter"..|. author|
|000003b0| 24 3d 22 28 43 29 20 4d | 2e 20 54 77 65 6c 6c 73 |$="(C) M|. Twells|
|000003c0| 20 31 39 39 30 22 0d 00 | a0 1f 76 65 72 73 69 6f | 1990"..|..versio|
|000003d0| 6e 24 3d 22 30 2e 30 32 | 20 32 35 20 4f 63 74 20 |n$="0.02| 25 Oct |
|000003e0| 31 39 39 30 22 0d 00 aa | 04 0d 00 b4 16 68 65 61 |1990"...|.....hea|
|000003f0| 70 5f 73 69 7a 65 25 3d | 34 2a 32 30 30 30 30 0d |p_size%=|4*20000.|
|00000400| 00 be 43 de 20 68 65 61 | 70 25 20 68 65 61 70 5f |..C. hea|p% heap_|
|00000410| 73 69 7a 65 25 20 3a f4 | 20 61 6c 6c 20 61 6c 6c |size% :.| all all|
|00000420| 6f 63 61 74 69 6f 6e 73 | 20 64 6f 6e 65 20 75 73 |ocations| done us|
|00000430| 69 6e 67 20 74 68 69 73 | 20 61 73 20 61 20 68 65 |ing this| as a he|
|00000440| 61 70 0d 00 c8 04 0d 00 | d2 2d de 20 74 65 6d 70 |ap......|.-. temp|
|00000450| 6c 61 74 65 5f 6e 61 6d | 65 24 28 32 30 29 2c 74 |late_nam|e$(20),t|
|00000460| 65 6d 70 6c 61 74 65 5f | 68 61 6e 64 6c 65 25 28 |emplate_|handle%(|
|00000470| 32 30 29 0d 00 dc 1a 6e | 75 6d 62 65 72 5f 6f 66 |20)....n|umber_of|
|00000480| 5f 74 65 6d 70 6c 61 74 | 65 73 25 3d 36 0d 00 e6 |_templat|es%=6...|
|00000490| 04 0d 00 f0 20 74 65 6d | 70 6c 61 74 65 5f 6e 61 |.... tem|plate_na|
|000004a0| 6d 65 24 28 31 29 3d 22 | 50 72 6f 67 49 6e 66 6f |me$(1)="|ProgInfo|
|000004b0| 22 0d 00 fa 22 74 65 6d | 70 6c 61 74 65 5f 6e 61 |"..."tem|plate_na|
|000004c0| 6d 65 24 28 32 29 3d 22 | 50 6c 6f 74 57 69 6e 64 |me$(2)="|PlotWind|
|000004d0| 6f 77 22 0d 01 04 21 74 | 65 6d 70 6c 61 74 65 5f |ow"...!t|emplate_|
|000004e0| 6e 61 6d 65 24 28 33 29 | 3d 22 78 66 65 72 5f 73 |name$(3)|="xfer_s|
|000004f0| 65 6e 64 22 0d 01 0e 20 | 74 65 6d 70 6c 61 74 65 |end"... |template|
|00000500| 5f 6e 61 6d 65 24 28 34 | 29 3d 22 66 69 6c 65 69 |_name$(4|)="filei|
|00000510| 6e 66 6f 22 0d 01 18 1d | 74 65 6d 70 6c 61 74 65 |nfo"....|template|
|00000520| 5f 6e 61 6d 65 24 28 35 | 29 3d 22 53 65 74 75 70 |_name$(5|)="Setup|
|00000530| 22 0d 01 22 1f 74 65 6d | 70 6c 61 74 65 5f 6e 61 |"..".tem|plate_na|
|00000540| 6d 65 24 28 36 29 3d 22 | 6e 65 77 66 75 6e 63 22 |me$(6)="|newfunc"|
|00000550| 0d 01 2c 04 0d 01 36 04 | 0d 01 40 12 de 20 65 71 |..,...6.|..@.. eq|
|00000560| 75 61 74 69 6f 6e 24 28 | 34 29 0d 01 4a 23 de 20 |uation$(|4)..J#. |
|00000570| 63 75 72 76 65 5f 78 28 | 34 2c 35 30 30 29 2c 63 |curve_x(|4,500),c|
|00000580| 75 72 76 65 5f 79 28 34 | 2c 35 30 30 29 0d 01 54 |urve_y(4|,500)..T|
|00000590| 11 6e 75 6d 63 75 72 76 | 65 73 25 3d 2d 31 0d 01 |.numcurv|es%=-1..|
|000005a0| 5e 04 0d 01 68 36 20 20 | 20 20 20 20 20 20 20 20 |^...h6  |        |
|000005b0| 20 20 20 20 20 20 20 20 | f4 20 64 65 66 61 75 6c |        |. defaul|
|000005c0| 74 20 73 65 74 74 69 6e | 67 73 20 66 6f 72 20 72 |t settin|gs for r|
|000005d0| 61 6e 67 65 73 2e 2e 2e | 0d 01 72 0b 6d 69 6e 5f |anges...|..r.min_|
|000005e0| 78 3d 30 0d 01 7c 0c 6d | 61 78 5f 78 3d 31 30 0d |x=0..|.m|ax_x=10.|
|000005f0| 01 86 0b 6d 69 6e 5f 79 | 3d 30 0d 01 90 0c 6d 61 |...min_y|=0....ma|
|00000600| 78 5f 79 3d 31 30 0d 01 | 9a 04 0d 01 a4 0b 6d 69 |x_y=10..|......mi|
|00000610| 6e 5f 74 3d 30 0d 01 ae | 0d 6d 61 78 5f 74 3d 32 |n_t=0...|.max_t=2|
|00000620| 2a af 0d 01 b8 04 0d 01 | c2 0b 67 72 69 64 25 3d |*.......|..grid%=|
|00000630| b9 0d 01 cc 2b 61 75 74 | 6f 73 63 61 6c 65 25 3d |....+aut|oscale%=|
|00000640| b9 20 20 20 3a f4 20 73 | 63 61 6c 65 73 20 6f 6e |.   :. s|cales on|
|00000650| 20 66 69 72 73 74 20 63 | 75 72 76 65 0d 01 d6 0c | first c|urve....|
|00000660| 70 6f 6c 61 72 25 3d a3 | 0d 01 e0 0f 65 78 70 6c |polar%=.|....expl|
|00000670| 69 63 69 74 25 3d b9 0d | 01 ea 3b 6e 73 25 3d 35 |icit%=..|..;ns%=5|
|00000680| 30 30 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |00      |     :. |
|00000690| 4e 75 6d 62 65 72 20 6f | 66 20 70 6c 6f 74 73 20 |Number o|f plots |
|000006a0| 72 65 63 6f 72 64 65 64 | 20 70 65 72 20 63 75 72 |recorded| per cur|
|000006b0| 76 65 0d 01 f4 33 63 61 | 72 74 5f 61 78 65 73 25 |ve...3ca|rt_axes%|
|000006c0| 3d b9 20 20 20 3a f4 20 | 46 41 4c 53 45 20 67 69 |=.   :. |FALSE gi|
|000006d0| 76 65 73 20 70 6f 6c 61 | 72 20 61 78 69 73 20 73 |ves pola|r axis s|
|000006e0| 79 73 74 65 6d 0d 01 fe | 04 0d 02 08 04 0d 02 12 |ystem...|........|
|000006f0| 3b f4 20 73 69 7a 65 20 | 61 6e 64 20 6f 66 66 73 |;. size |and offs|
|00000700| 65 74 20 6f 66 20 67 72 | 61 70 68 20 66 72 6f 6d |et of gr|aph from|
|00000710| 20 77 69 6e 64 6f 77 20 | 77 6f 72 6b 20 61 72 65 | window |work are|
|00000720| 61 20 6f 72 69 67 69 6e | 0d 02 1c 10 78 5f 65 78 |a origin|....x_ex|
|00000730| 74 65 6e 74 3d 38 30 30 | 0d 02 26 10 79 5f 65 78 |tent=800|..&.y_ex|
|00000740| 74 65 6e 74 3d 36 30 30 | 0d 02 30 10 78 5f 6f 66 |tent=600|..0.x_of|
|00000750| 66 73 65 74 3d 31 30 30 | 0d 02 3a 10 79 5f 6f 66 |fset=100|..:.y_of|
|00000760| 66 73 65 74 3d 31 30 30 | 0d 02 44 04 0d 02 4e 20 |fset=100|..D...N |
|00000770| f4 20 66 6f 72 20 64 72 | 61 77 66 69 6c 65 20 70 |. for dr|awfile p|
|00000780| 72 6f 64 75 63 74 69 6f | 6e 2e 2e 2e 0d 02 58 04 |roductio|n.....X.|
|00000790| 0d 02 62 04 0d 02 6c 21 | de 20 78 63 28 31 30 30 |..b...l!|. xc(100|
|000007a0| 30 29 2c 79 63 28 31 30 | 30 30 29 2c 74 79 24 28 |0),yc(10|00),ty$(|
|000007b0| 31 30 30 30 29 0d 02 76 | 0d 78 6d 75 6c 74 3d 34 |1000)..v|.xmult=4|
|000007c0| 30 30 0d 02 80 0d 79 6d | 75 6c 74 3d 34 30 30 0d |00....ym|ult=400.|
|000007d0| 02 8a 0a 78 6f 66 66 3d | 30 0d 02 94 0a 79 6f 66 |...xoff=|0....yof|
|000007e0| 66 3d 30 0d 02 9e 0d 70 | 63 6f 75 6e 74 25 3d 30 |f=0....p|count%=0|
|000007f0| 0d 02 a8 0e de 20 66 6f | 6e 74 24 28 32 29 0d 02 |..... fo|nt$(2)..|
|00000800| b2 12 de 20 64 72 61 77 | 66 6f 6e 74 25 20 35 30 |... draw|font% 50|
|00000810| 0d 02 bc 1e 66 6f 6e 74 | 24 28 31 29 3d 22 68 6f |....font|$(1)="ho|
|00000820| 6d 65 72 74 6f 6e 2e 6d | 65 64 69 75 6d 22 0d 02 |merton.m|edium"..|
|00000830| c6 18 66 6f 6e 74 24 28 | 32 29 3d 22 4d 61 74 68 |..font$(|2)="Math|
|00000840| 47 72 65 65 6b 22 0d 02 | d0 0e de 20 64 61 73 68 |Greek"..|... dash|
|00000850| 25 28 33 29 0d 02 da 15 | 64 61 73 68 25 28 29 20 |%(3)....|dash%() |
|00000860| 3d 20 31 30 2c 31 2c 31 | 30 0d 02 e4 14 74 68 69 |= 10,1,1|0....thi|
|00000870| 63 6b 5f 6c 69 6e 65 25 | 3d 31 30 30 30 0d 02 ee |ck_line%|=1000...|
|00000880| 10 74 68 69 6e 5f 6c 69 | 6e 65 25 3d 30 0d 02 f8 |.thin_li|ne%=0...|
|00000890| 04 0d 03 02 1f f4 20 65 | 6e 64 20 6f 66 20 64 72 |...... e|nd of dr|
|000008a0| 61 77 66 69 6c 65 20 76 | 61 72 69 61 62 6c 65 73 |awfile v|ariables|
|000008b0| 0d 03 0c 04 0d 03 16 04 | 0d 03 20 21 f4 20 6e 65 |........|.. !. ne|
|000008c0| 77 66 75 6e 63 74 69 6f | 6e 20 77 69 6e 64 6f 77 |wfunctio|n window|
|000008d0| 20 69 63 6f 6e 73 2e 2e | 2e 0d 03 2a 17 6e 65 77 | icons..|...*.new|
|000008e0| 66 75 6e 63 5f 70 6f 6c | 5f 65 78 70 6c 25 3d 34 |func_pol|_expl%=4|
|000008f0| 0d 03 34 18 6e 65 77 66 | 75 6e 63 5f 70 6f 6c 5f |..4.newf|unc_pol_|
|00000900| 70 61 72 61 6d 25 3d 35 | 0d 03 3e 18 6e 65 77 66 |param%=5|..>.newf|
|00000910| 75 6e 63 5f 72 65 63 74 | 5f 65 78 70 6c 25 3d 36 |unc_rect|_expl%=6|
|00000920| 0d 03 48 19 6e 65 77 66 | 75 6e 63 5f 72 65 63 74 |..H.newf|unc_rect|
|00000930| 5f 70 61 72 61 6d 25 3d | 37 0d 03 52 04 0d 03 5c |_param%=|7..R...\|
|00000940| 13 6e 65 77 66 75 6e 63 | 5f 69 6e 70 31 25 3d 39 |.newfunc|_inp1%=9|
|00000950| 0d 03 66 14 6e 65 77 66 | 75 6e 63 5f 69 6e 70 32 |..f.newf|unc_inp2|
|00000960| 25 3d 31 30 0d 03 70 11 | 6e 66 5f 69 6e 70 31 74 |%=10..p.|nf_inp1t|
|00000970| 78 74 25 3d 38 0d 03 7a | 12 6e 66 5f 69 6e 70 32 |xt%=8..z|.nf_inp2|
|00000980| 74 78 74 25 3d 31 31 0d | 03 84 14 6e 65 77 66 75 |txt%=11.|...newfu|
|00000990| 6e 63 5f 6f 6b 25 20 3d | 20 31 32 0d 03 8e 04 0d |nc_ok% =| 12.....|
|000009a0| 03 98 18 f4 20 73 65 74 | 75 70 20 77 69 6e 64 6f |.... set|up windo|
|000009b0| 77 20 69 63 6f 6e 73 0d | 03 a2 04 0d 03 ac 16 73 |w icons.|.......s|
|000009c0| 65 74 75 70 5f 61 75 74 | 6f 73 63 61 6c 65 25 3d |etup_aut|oscale%=|
|000009d0| 37 0d 03 b6 11 73 65 74 | 75 70 5f 67 72 69 64 25 |7....set|up_grid%|
|000009e0| 3d 35 0d 03 c0 18 73 65 | 74 75 70 5f 72 65 63 74 |=5....se|tup_rect|
|000009f0| 61 6e 67 75 6c 61 72 25 | 3d 32 0d 03 ca 12 73 65 |angular%|=2....se|
|00000a00| 74 75 70 5f 70 6f 6c 61 | 72 25 3d 33 0d 03 d4 04 |tup_pola|r%=3....|
|00000a10| 0d 03 de 18 f4 20 77 72 | 69 74 65 61 62 6c 65 20 |..... wr|iteable |
|00000a20| 69 63 6f 6e 73 2e 2e 2e | 0d 03 e8 04 0d 03 f2 12 |icons...|........|
|00000a30| 73 65 74 75 70 5f 78 6d | 69 6e 25 3d 31 38 0d 03 |setup_xm|in%=18..|
|00000a40| fc 12 73 65 74 75 70 5f | 78 6d 61 78 25 3d 31 39 |..setup_|xmax%=19|
|00000a50| 0d 04 06 12 73 65 74 75 | 70 5f 79 6d 69 6e 25 3d |....setu|p_ymin%=|
|00000a60| 32 30 0d 04 10 12 73 65 | 74 75 70 5f 79 6d 61 78 |20....se|tup_ymax|
|00000a70| 25 3d 32 31 0d 04 1a 12 | 73 65 74 75 70 5f 74 6d |%=21....|setup_tm|
|00000a80| 69 6e 25 3d 32 32 0d 04 | 24 12 73 65 74 75 70 5f |in%=22..|$.setup_|
|00000a90| 74 6d 61 78 25 3d 32 33 | 0d 04 2e 04 0d 04 38 04 |tmax%=23|......8.|
|00000aa0| 0d 04 42 04 0d 04 4c 10 | 73 65 74 75 70 5f 6f 6b |..B...L.|setup_ok|
|00000ab0| 25 3d 31 30 0d 04 56 04 | 0d 04 60 04 0d 04 6a 04 |%=10..V.|..`...j.|
|00000ac0| 0d 04 74 04 0d 04 7e 22 | f4 20 65 6e 64 20 6f 66 |..t...~"|. end of|
|00000ad0| 20 73 65 74 75 70 20 77 | 69 6e 64 6f 77 20 69 63 | setup w|indow ic|
|00000ae0| 6f 6e 73 2e 2e 2e 0d 04 | 88 04 0d 04 92 04 0d 04 |ons.....|........|
|00000af0| 9c 04 0d 04 a6 04 0d 04 | b0 0e ee 20 85 20 f2 65 |........|... . .e|
|00000b00| 72 72 6f 72 0d 04 ba 0f | f2 77 69 6d 70 5f 73 65 |rror....|.wimp_se|
|00000b10| 74 75 70 0d 04 c4 09 f2 | 6d 61 69 6e 0d 04 ce 05 |tup.....|main....|
|00000b20| e0 0d 04 d8 04 0d 04 e2 | 04 0d 04 ec 04 0d 04 f6 |........|........|
|00000b30| 04 0d 05 00 04 0d 05 0a | 11 dd 20 f2 77 69 6d 70 |........|.. .wimp|
|00000b40| 5f 73 65 74 75 70 0d 05 | 14 23 61 6c 69 61 73 24 |_setup..|.#alias$|
|00000b50| 3d 22 3c 22 2b 61 70 70 | 6c 69 63 5f 6e 61 6d 65 |="<"+app|lic_name|
|00000b60| 24 2b 22 24 44 69 72 3e | 22 0d 05 1e 23 c8 99 22 |$+"$Dir>|"...#.."|
|00000b70| 4f 53 5f 48 65 61 70 22 | 2c 30 2c 68 65 61 70 25 |OS_Heap"|,0,heap%|
|00000b80| 2c 2c 68 65 61 70 5f 73 | 69 7a 65 25 0d 05 28 17 |,,heap_s|ize%..(.|
|00000b90| c8 99 22 4f 53 5f 48 65 | 61 70 22 2c 31 2c 68 65 |.."OS_He|ap",1,he|
|00000ba0| 61 70 25 0d 05 32 18 71 | 25 3d a4 68 65 61 70 5f |ap%..2.q|%=.heap_|
|00000bb0| 6d 61 6c 6c 6f 63 28 33 | 30 30 29 0d 05 3c 1d 62 |malloc(3|00)..<.b|
|00000bc0| 6c 6f 63 6b 25 3d a4 68 | 65 61 70 5f 6d 61 6c 6c |lock%=.h|eap_mall|
|00000bd0| 6f 63 28 31 30 30 30 29 | 0d 05 46 1e 6d 65 6e 62 |oc(1000)|..F.menb|
|00000be0| 6c 6b 25 3d a4 68 65 61 | 70 5f 6d 61 6c 6c 6f 63 |lk%=.hea|p_malloc|
|00000bf0| 28 31 30 30 30 29 0d 05 | 50 1c 6d 65 6e 75 64 25 |(1000)..|P.menud%|
|00000c00| 3d a4 68 65 61 70 5f 6d | 61 6c 6c 6f 63 28 35 30 |=.heap_m|alloc(50|
|00000c10| 30 29 0d 05 5a 20 6d 61 | 69 6e 5f 62 6c 6b 25 3d |0)..Z ma|in_blk%=|
|00000c20| a4 68 65 61 70 5f 6d 61 | 6c 6c 6f 63 28 31 30 30 |.heap_ma|lloc(100|
|00000c30| 30 29 0d 05 64 1b 6c 6f | 61 64 25 3d a4 68 65 61 |0)..d.lo|ad%=.hea|
|00000c40| 70 5f 6d 61 6c 6c 6f 63 | 28 31 30 30 29 0d 05 6e |p_malloc|(100)..n|
|00000c50| 0e 24 71 25 3d 22 54 41 | 53 4b 22 0d 05 78 36 c8 |.$q%="TA|SK"..x6.|
|00000c60| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|00000c70| 73 65 22 2c 32 30 30 2c | 21 71 25 2c 61 70 70 6c |se",200,|!q%,appl|
|00000c80| 69 63 5f 6e 61 6d 65 24 | 20 b8 20 2c 74 61 73 6b |ic_name$| . ,task|
|00000c90| 25 0d 05 82 20 f2 73 70 | 72 69 74 65 73 28 61 6c |%... .sp|rites(al|
|00000ca0| 69 61 73 24 2b 22 2e 21 | 53 70 72 69 74 65 73 22 |ias$+".!|Sprites"|
|00000cb0| 29 0d 05 8c 25 69 63 6f | 6e 68 25 3d a4 69 63 6f |)...%ico|nh%=.ico|
|00000cc0| 6e 62 61 72 28 22 21 22 | 2b 61 70 70 6c 69 63 5f |nbar("!"|+applic_|
|00000cd0| 6e 61 6d 65 24 29 0d 05 | 96 04 0d 05 a0 04 0d 05 |name$)..|........|
|00000ce0| aa 5c f2 74 65 6d 70 6c | 61 74 65 73 28 74 65 6d |.\.templ|ates(tem|
|00000cf0| 70 6c 61 74 65 5f 6e 61 | 6d 65 24 28 29 2c 6e 75 |plate_na|me$(),nu|
|00000d00| 6d 62 65 72 5f 6f 66 5f | 74 65 6d 70 6c 61 74 65 |mber_of_|template|
|00000d10| 73 25 2c 74 65 6d 70 6c | 61 74 65 5f 68 61 6e 64 |s%,templ|ate_hand|
|00000d20| 6c 65 25 28 29 2c 61 6c | 69 61 73 24 2b 22 2e 54 |le%(),al|ias$+".T|
|00000d30| 65 6d 70 6c 61 74 65 73 | 22 29 0d 05 b4 04 0d 05 |emplates|")......|
|00000d40| be 1d 69 6e 66 6f 25 3d | 74 65 6d 70 6c 61 74 65 |..info%=|template|
|00000d50| 5f 68 61 6e 64 6c 65 25 | 28 31 29 0d 05 c8 1d 6d |_handle%|(1)....m|
|00000d60| 61 69 6e 25 3d 74 65 6d | 70 6c 61 74 65 5f 68 61 |ain%=tem|plate_ha|
|00000d70| 6e 64 6c 65 25 28 32 29 | 0d 05 d2 1d 73 61 76 65 |ndle%(2)|....save|
|00000d80| 25 3d 74 65 6d 70 6c 61 | 74 65 5f 68 61 6e 64 6c |%=templa|te_handl|
|00000d90| 65 25 28 33 29 0d 05 dc | 21 66 69 6c 65 69 6e 66 |e%(3)...|!fileinf|
|00000da0| 6f 25 3d 74 65 6d 70 6c | 61 74 65 5f 68 61 6e 64 |o%=templ|ate_hand|
|00000db0| 6c 65 25 28 34 29 0d 05 | e6 1e 73 65 74 75 70 25 |le%(4)..|..setup%|
|00000dc0| 3d 74 65 6d 70 6c 61 74 | 65 5f 68 61 6e 64 6c 65 |=templat|e_handle|
|00000dd0| 25 28 35 29 0d 05 f0 20 | 6e 65 77 66 75 6e 63 25 |%(5)... |newfunc%|
|00000de0| 3d 74 65 6d 70 6c 61 74 | 65 5f 68 61 6e 64 6c 65 |=templat|e_handle|
|00000df0| 25 28 36 29 0d 05 fa 04 | 0d 06 04 04 0d 06 0e 28 |%(6)....|.......(|
|00000e00| f2 73 65 74 5f 66 69 65 | 6c 64 28 69 6e 66 6f 25 |.set_fie|ld(info%|
|00000e10| 2c 31 2c 22 21 22 2b 61 | 70 70 6c 69 63 5f 6e 61 |,1,"!"+a|pplic_na|
|00000e20| 6d 65 24 29 0d 06 18 20 | f2 73 65 74 5f 66 69 65 |me$)... |.set_fie|
|00000e30| 6c 64 28 69 6e 66 6f 25 | 2c 32 2c 70 75 72 70 6f |ld(info%|,2,purpo|
|00000e40| 73 65 24 29 0d 06 22 1f | f2 73 65 74 5f 66 69 65 |se$)..".|.set_fie|
|00000e50| 6c 64 28 69 6e 66 6f 25 | 2c 33 2c 61 75 74 68 6f |ld(info%|,3,autho|
|00000e60| 72 24 29 0d 06 2c 20 f2 | 73 65 74 5f 66 69 65 6c |r$).., .|set_fiel|
|00000e70| 64 28 69 6e 66 6f 25 2c | 34 2c 76 65 72 73 69 6f |d(info%,|4,versio|
|00000e80| 6e 24 29 0d 06 36 22 f2 | 73 65 74 5f 66 69 65 6c |n$)..6".|set_fiel|
|00000e90| 64 28 73 61 76 65 25 2c | 32 2c 22 44 72 61 77 46 |d(save%,|2,"DrawF|
|00000ea0| 69 6c 65 22 29 0d 06 40 | 29 f2 73 65 74 5f 66 69 |ile")..@|).set_fi|
|00000eb0| 65 6c 64 28 73 65 74 75 | 70 25 2c 73 65 74 75 70 |eld(setu|p%,setup|
|00000ec0| 5f 78 6d 69 6e 25 2c c3 | 6d 69 6e 5f 78 29 0d 06 |_xmin%,.|min_x)..|
|00000ed0| 4a 29 f2 73 65 74 5f 66 | 69 65 6c 64 28 73 65 74 |J).set_f|ield(set|
|00000ee0| 75 70 25 2c 73 65 74 75 | 70 5f 78 6d 61 78 25 2c |up%,setu|p_xmax%,|
|00000ef0| c3 6d 61 78 5f 78 29 0d | 06 54 29 f2 73 65 74 5f |.max_x).|.T).set_|
|00000f00| 66 69 65 6c 64 28 73 65 | 74 75 70 25 2c 73 65 74 |field(se|tup%,set|
|00000f10| 75 70 5f 79 6d 69 6e 25 | 2c c3 6d 69 6e 5f 79 29 |up_ymin%|,.min_y)|
|00000f20| 0d 06 5e 29 f2 73 65 74 | 5f 66 69 65 6c 64 28 73 |..^).set|_field(s|
|00000f30| 65 74 75 70 25 2c 73 65 | 74 75 70 5f 79 6d 61 78 |etup%,se|tup_ymax|
|00000f40| 25 2c c3 6d 61 78 5f 79 | 29 0d 06 68 29 f2 73 65 |%,.max_y|)..h).se|
|00000f50| 74 5f 66 69 65 6c 64 28 | 73 65 74 75 70 25 2c 73 |t_field(|setup%,s|
|00000f60| 65 74 75 70 5f 74 6d 69 | 6e 25 2c c3 6d 69 6e 5f |etup_tmi|n%,.min_|
|00000f70| 74 29 0d 06 72 29 f2 73 | 65 74 5f 66 69 65 6c 64 |t)..r).s|et_field|
|00000f80| 28 73 65 74 75 70 25 2c | 73 65 74 75 70 5f 74 6d |(setup%,|setup_tm|
|00000f90| 61 78 25 2c c3 6d 61 78 | 5f 74 29 0d 06 7c 04 0d |ax%,.max|_t)..|..|
|00000fa0| 06 86 27 f2 66 61 64 65 | 5f 66 69 65 6c 64 28 6e |..'.fade|_field(n|
|00000fb0| 65 77 66 75 6e 63 25 2c | 6e 65 77 66 75 6e 63 5f |ewfunc%,|newfunc_|
|00000fc0| 69 6e 70 32 25 29 0d 06 | 90 27 f2 73 65 74 5f 66 |inp2%)..|.'.set_f|
|00000fd0| 69 65 6c 64 28 6e 65 77 | 66 75 6e 63 25 2c 6e 66 |ield(new|func%,nf|
|00000fe0| 5f 69 6e 70 32 74 78 74 | 25 2c 22 22 29 0d 06 9a |_inp2txt|%,"")...|
|00000ff0| 2c f2 73 65 74 5f 66 69 | 65 6c 64 28 6e 65 77 66 |,.set_fi|eld(newf|
|00001000| 75 6e 63 25 2c 6e 66 5f | 69 6e 70 31 74 78 74 25 |unc%,nf_|inp1txt%|
|00001010| 2c 22 66 28 78 29 3d 22 | 29 0d 06 a4 25 f2 66 61 |,"f(x)="|)...%.fa|
|00001020| 64 65 5f 66 69 65 6c 64 | 28 6e 65 77 66 75 6e 63 |de_field|(newfunc|
|00001030| 25 2c 6e 66 5f 69 6e 70 | 32 74 78 74 25 29 0d 06 |%,nf_inp|2txt%)..|
|00001040| ae 0c 70 6f 6c 61 72 25 | 3d a3 0d 06 b8 0f 65 78 |..polar%|=.....ex|
|00001050| 70 6c 69 63 69 74 25 3d | b9 0d 06 c2 2b f2 73 65 |plicit%=|....+.se|
|00001060| 6c 65 63 74 5f 69 63 6f | 6e 28 73 65 74 75 70 25 |lect_ico|n(setup%|
|00001070| 2c 73 65 74 75 70 5f 72 | 65 63 74 61 6e 67 75 6c |,setup_r|ectangul|
|00001080| 61 72 25 29 0d 06 cc 27 | f2 75 6e 73 65 6c 65 63 |ar%)...'|.unselec|
|00001090| 74 5f 69 63 6f 6e 28 73 | 65 74 75 70 25 2c 73 65 |t_icon(s|etup%,se|
|000010a0| 74 75 70 5f 70 6f 6c 61 | 72 25 29 0d 06 d6 2d f2 |tup_pola|r%)...-.|
|000010b0| 73 65 6c 65 63 74 5f 69 | 63 6f 6e 28 6e 65 77 66 |select_i|con(newf|
|000010c0| 75 6e 63 25 2c 6e 65 77 | 66 75 6e 63 5f 72 65 63 |unc%,new|func_rec|
|000010d0| 74 5f 65 78 70 6c 25 29 | 0d 06 e0 2e f2 75 6e 73 |t_expl%)|.....uns|
|000010e0| 65 6c 65 63 74 5f 69 63 | 6f 6e 28 6e 65 77 66 75 |elect_ic|on(newfu|
|000010f0| 6e 63 25 2c 6e 65 77 66 | 75 6e 63 5f 70 6f 6c 5f |nc%,newf|unc_pol_|
|00001100| 65 78 70 6c 25 29 0d 06 | ea 2f f2 75 6e 73 65 6c |expl%)..|./.unsel|
|00001110| 65 63 74 5f 69 63 6f 6e | 28 6e 65 77 66 75 6e 63 |ect_icon|(newfunc|
|00001120| 25 2c 6e 65 77 66 75 6e | 63 5f 70 6f 6c 5f 70 61 |%,newfun|c_pol_pa|
|00001130| 72 61 6d 25 29 0d 06 f4 | 30 f2 75 6e 73 65 6c 65 |ram%)...|0.unsele|
|00001140| 63 74 5f 69 63 6f 6e 28 | 6e 65 77 66 75 6e 63 25 |ct_icon(|newfunc%|
|00001150| 2c 6e 65 77 66 75 6e 63 | 5f 72 65 63 74 5f 70 61 |,newfunc|_rect_pa|
|00001160| 72 61 6d 25 29 0d 06 fe | 04 0d 07 08 0f f2 6c 6f |ram%)...|......lo|
|00001170| 61 64 5f 6d 65 6e 75 73 | 0d 07 12 05 e1 0d 07 1c |ad_menus|........|
|00001180| 04 0d 07 26 17 dd a4 68 | 65 61 70 5f 6d 61 6c 6c |...&...h|eap_mall|
|00001190| 6f 63 28 6e 75 6d 25 29 | 0d 07 30 0a ea 20 61 64 |oc(num%)|..0.. ad|
|000011a0| 72 25 0d 07 3a 26 c8 99 | 22 4f 53 5f 48 65 61 70 |r%..:&..|"OS_Heap|
|000011b0| 22 2c 32 2c 68 65 61 70 | 25 2c 2c 6e 75 6d 25 20 |",2,heap|%,,num% |
|000011c0| b8 20 2c 2c 61 64 72 25 | 0d 07 44 31 e7 20 61 64 |. ,,adr%|..D1. ad|
|000011d0| 72 25 3d 30 20 8c 20 85 | 20 30 2c 22 43 61 6e 27 |r%=0 . .| 0,"Can'|
|000011e0| 74 20 61 6c 6c 6f 63 61 | 74 65 20 65 6e 6f 75 67 |t alloca|te enoug|
|000011f0| 68 20 6d 65 6d 6f 72 79 | 22 0d 07 4e 09 3d 61 64 |h memory|"..N.=ad|
|00001200| 72 25 0d 07 58 04 0d 07 | 62 15 dd f2 68 65 61 70 |r%..X...|b...heap|
|00001210| 5f 66 72 65 65 28 62 6c | 6b 25 29 0d 07 6c 1c c8 |_free(bl|k%)..l..|
|00001220| 99 22 4f 53 5f 48 65 61 | 70 22 2c 33 2c 68 65 61 |."OS_Hea|p",3,hea|
|00001230| 70 25 2c 62 6c 6b 25 0d | 07 76 05 e1 0d 07 80 04 |p%,blk%.|.v......|
|00001240| 0d 07 8a 11 dd 20 f2 6c | 6f 61 64 5f 6d 65 6e 75 |..... .l|oad_menu|
|00001250| 73 0d 07 94 19 6c 6d 25 | 3d 8e 28 61 6c 69 61 73 |s....lm%|=.(alias|
|00001260| 24 2b 22 2e 4d 65 6e 75 | 22 29 0d 07 9e 0e 64 69 |$+".Menu|")....di|
|00001270| 6d 25 3d a2 23 6c 6d 25 | 0d 07 a8 09 d9 23 6c 6d |m%=.#lm%|.....#lm|
|00001280| 25 0d 07 b2 21 6d 65 6e | 75 5f 64 61 74 61 25 3d |%...!men|u_data%=|
|00001290| a4 68 65 61 70 5f 6d 61 | 6c 6c 6f 63 28 64 69 6d |.heap_ma|lloc(dim|
|000012a0| 25 29 0d 07 bc 2c ff 20 | 22 4c 4f 41 44 20 22 2b |%)...,. |"LOAD "+|
|000012b0| 61 6c 69 61 73 24 2b 22 | 2e 4d 65 6e 75 20 22 2b |alias$+"|.Menu "+|
|000012c0| c3 7e 28 6d 65 6e 75 5f | 64 61 74 61 25 29 0d 07 |.~(menu_|data%)..|
|000012d0| c6 14 63 75 72 72 65 6e | 74 5f 6d 65 6e 75 24 3d |..curren|t_menu$=|
|000012e0| 22 22 0d 07 d0 05 e1 0d | 07 da 05 3a 0d 07 e4 0b |""......|...:....|
|000012f0| dd 20 f2 6d 61 69 6e 0d | 07 ee 05 f5 0d 07 f8 20 |. .main.|....... |
|00001300| f2 70 6f 6c 6c 28 25 31 | 30 30 30 30 30 30 31 31 |.poll(%1|00000011|
|00001310| 30 30 31 30 30 31 31 30 | 30 31 31 29 0d 08 02 2d |00100110|011)...-|
|00001320| fd 20 28 72 65 61 73 6f | 6e 25 3d 31 37 20 84 20 |. (reaso|n%=17 . |
|00001330| 72 65 61 73 6f 6e 25 3d | 31 38 29 20 80 20 62 6c |reason%=|18) . bl|
|00001340| 6f 63 6b 25 21 31 36 3d | 30 0d 08 0c 05 e1 0d 08 |ock%!16=|0.......|
|00001350| 16 05 3a 0d 08 20 17 dd | 20 a4 69 63 6f 6e 62 61 |..:.. ..| .iconba|
|00001360| 72 28 73 70 6e 61 6d 65 | 24 29 0d 08 2a 0e 21 62 |r(spname|$)..*.!b|
|00001370| 6c 6f 63 6b 25 3d 2d 31 | 0d 08 34 0e 62 6c 6f 63 |lock%=-1|..4.bloc|
|00001380| 6b 25 21 34 3d 30 0d 08 | 3e 0e 62 6c 6f 63 6b 25 |k%!4=0..|>.block%|
|00001390| 21 38 3d 30 0d 08 48 10 | 62 6c 6f 63 6b 25 21 31 |!8=0..H.|block%!1|
|000013a0| 32 3d 36 33 0d 08 52 10 | 62 6c 6f 63 6b 25 21 31 |2=63..R.|block%!1|
|000013b0| 36 3d 36 34 0d 08 5c 13 | 62 6c 6f 63 6b 25 21 32 |6=64..\.|block%!2|
|000013c0| 30 3d 26 32 31 30 32 0d | 08 66 1c de 20 62 6c 6f |0=&2102.|.f.. blo|
|000013d0| 63 6b 25 21 32 34 20 28 | a9 73 70 6e 61 6d 65 24 |ck%!24 (|.spname$|
|000013e0| 2b 31 29 0d 08 70 18 24 | 28 62 6c 6f 63 6b 25 21 |+1)..p.$|(block%!|
|000013f0| 32 34 29 3d 73 70 6e 61 | 6d 65 24 0d 08 7a 27 c8 |24)=spna|me$..z'.|
|00001400| 99 22 57 69 6d 70 5f 42 | 61 73 65 4f 66 53 70 72 |."Wimp_B|aseOfSpr|
|00001410| 69 74 65 73 22 20 b8 20 | 2c 62 6c 6f 63 6b 25 21 |ites" . |,block%!|
|00001420| 32 38 0d 08 84 1a 62 6c | 6f 63 6b 25 21 33 32 3d |28....bl|ock%!32=|
|00001430| 28 a9 73 70 6e 61 6d 65 | 24 2b 31 29 0d 08 8e 28 |(.spname|$+1)...(|
|00001440| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00001450| 63 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 20 b8 20 69 |con",,bl|ock% . i|
|00001460| 63 6f 6e 25 0d 08 98 0a | 3d 69 63 6f 6e 25 0d 08 |con%....|=icon%..|
|00001470| a2 05 3a 0d 08 ac 15 dd | 20 f2 73 70 72 69 74 65 |..:.....| .sprite|
|00001480| 73 28 66 69 6c 65 24 29 | 0d 08 b6 20 c8 99 20 22 |s(file$)|... .. "|
|00001490| 57 69 6d 70 5f 53 70 72 | 69 74 65 4f 70 22 2c 31 |Wimp_Spr|iteOp",1|
|000014a0| 31 2c 2c 66 69 6c 65 24 | 0d 08 c0 05 e1 0d 08 ca |1,,file$|........|
|000014b0| 04 0d 08 d4 18 dd f2 6d | 65 73 73 61 67 65 5f 62 |.......m|essage_b|
|000014c0| 6f 78 28 74 65 78 74 24 | 29 0d 08 de 1e 65 72 72 |ox(text$|)....err|
|000014d0| 62 6c 6f 63 6b 3d a4 68 | 65 61 70 5f 6d 61 6c 6c |block=.h|eap_mall|
|000014e0| 6f 63 28 31 30 30 29 0d | 08 e8 0f 21 65 72 72 62 |oc(100).|...!errb|
|000014f0| 6c 6f 63 6b 3d 30 0d 08 | f2 17 24 28 65 72 72 62 |lock=0..|..$(errb|
|00001500| 6c 6f 63 6b 2b 34 29 3d | 74 65 78 74 24 0d 08 fc |lock+4)=|text$...|
|00001510| 30 c8 99 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |0.."Wimp|_ReportE|
|00001520| 72 72 6f 72 22 2c 65 72 | 72 62 6c 6f 63 6b 2c 31 |rror",er|rblock,1|
|00001530| 2c 61 70 70 6c 69 63 5f | 6e 61 6d 65 24 0d 09 06 |,applic_|name$...|
|00001540| 18 f2 68 65 61 70 5f 66 | 72 65 65 28 65 72 72 62 |..heap_f|ree(errb|
|00001550| 6c 6f 63 6b 29 0d 09 10 | 05 e1 0d 09 1a 04 0d 09 |lock)...|........|
|00001560| 24 04 0d 09 2e 31 dd a4 | 6c 6f 61 64 5f 64 61 74 |$....1..|load_dat|
|00001570| 61 5f 72 65 71 75 65 73 | 74 28 6e 61 6d 65 70 25 |a_reques|t(namep%|
|00001580| 2c 74 79 70 65 25 2c 65 | 73 74 5f 6c 65 6e 67 74 |,type%,e|st_lengt|
|00001590| 68 25 29 0d 09 38 06 3d | a3 0d 09 42 04 0d 09 4c |h%)..8.=|...B...L|
|000015a0| 04 0d 09 56 04 0d 09 60 | 1d dd f2 73 61 76 65 5f |...V...`|...save_|
|000015b0| 64 61 74 61 5f 74 6f 28 | 66 69 6c 65 6e 61 6d 65 |data_to(|filename|
|000015c0| 24 29 0d 09 6a 39 f4 20 | 53 61 76 65 69 6e 67 20 |$)..j9. |Saveing |
|000015d0| 64 61 74 61 20 74 6f 20 | 74 68 69 73 20 67 69 76 |data to |this giv|
|000015e0| 65 6e 20 66 69 6c 65 6e | 61 6d 65 20 2e 2e 2e 20 |en filen|ame ... |
|000015f0| 64 6f 20 74 68 65 20 73 | 61 76 65 0d 09 74 18 f2 |do the s|ave..t..|
|00001600| 64 72 61 77 66 69 6c 65 | 28 66 69 6c 65 6e 61 6d |drawfile|(filenam|
|00001610| 65 24 29 0d 09 7e 1a c8 | 99 22 57 69 6d 70 5f 43 |e$)..~..|."Wimp_C|
|00001620| 72 65 61 74 65 4d 65 6e | 75 22 2c 2d 31 0d 09 88 |reateMen|u",-1...|
|00001630| 05 e1 0d 09 92 04 0d 09 | 9c 04 0d 09 a6 04 0d 09 |........|........|
|00001640| b0 1d dd a4 68 65 6c 70 | 5f 66 6f 72 28 77 69 6e |....help|_for(win|
|00001650| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 09 ba 3c f4 |dow%,ico|n%)...<.|
|00001660| 20 72 65 74 75 72 6e 20 | 61 20 73 74 72 69 6e 67 | return |a string|
|00001670| 20 67 69 76 69 6e 67 20 | 68 65 6c 70 20 66 6f 72 | giving |help for|
|00001680| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 2c 20 74 68 | this wi|ndow, th|
|00001690| 69 73 20 69 63 6f 6e 0d | 09 c4 0b ea 20 74 65 6d |is icon.|.... tem|
|000016a0| 70 24 0d 09 ce 10 c8 8e | 20 77 69 6e 64 6f 77 25 |p$......| window%|
|000016b0| 20 ca 0d 09 d8 15 c9 20 | 2d 32 20 3a 20 f4 20 69 | ...... |-2 : . i|
|000016c0| 63 6f 6e 20 62 61 72 0d | 09 e2 5b 20 20 20 20 20 |con bar.|..[     |
|000016d0| 20 20 20 20 20 e7 20 69 | 63 6f 6e 25 3d 69 63 6f |     . i|con%=ico|
|000016e0| 6e 68 25 20 8c 20 74 65 | 6d 70 24 3d 22 43 6c 69 |nh% . te|mp$="Cli|
|000016f0| 63 6b 20 77 69 74 68 20 | 6c 65 66 74 20 62 75 74 |ck with |left but|
|00001700| 74 6f 6e 20 74 6f 20 77 | 61 6b 65 20 75 70 20 22 |ton to w|ake up "|
|00001710| 2b 61 70 70 6c 69 63 5f | 6e 61 6d 65 24 2b 22 7c |+applic_|name$+"||
|00001720| 4d 22 0d 09 ec 40 c9 20 | 6d 61 69 6e 25 20 3a 20 |M"...@. |main% : |
|00001730| 74 65 6d 70 24 3d 22 54 | 68 69 73 20 69 73 20 74 |temp$="T|his is t|
|00001740| 68 65 20 6d 61 69 6e 20 | 22 2b 61 70 70 6c 69 63 |he main |"+applic|
|00001750| 5f 6e 61 6d 65 24 2b 22 | 20 77 69 6e 64 6f 77 7c |_name$+"| window||
|00001760| 4d 22 0d 09 f6 31 7f 20 | 20 3a 20 74 65 6d 70 24 |M"...1. | : temp$|
|00001770| 3d 22 57 69 6e 64 6f 77 | 20 22 2b c3 77 69 6e 64 |="Window| "+.wind|
|00001780| 6f 77 25 2b 22 20 69 63 | 6f 6e 20 22 2b c3 69 63 |ow%+" ic|on "+.ic|
|00001790| 6f 6e 25 0d 0a 00 05 cb | 0d 0a 0a 13 3d 74 65 6d |on%.....|....=tem|
|000017a0| 70 24 2b bd 31 33 2b bd | 28 30 29 0d 0a 14 04 0d |p$+.13+.|(0).....|
|000017b0| 0a 1e 04 0d 0a 28 1e dd | a4 73 63 72 65 65 6e 74 |.....(..|.screent|
|000017c0| 6f 77 69 6e 64 58 28 77 | 68 25 2c 70 6f 73 58 25 |owindX(w|h%,posX%|
|000017d0| 29 0d 0a 32 39 f4 20 63 | 6f 6e 76 65 72 74 20 70 |)..29. c|onvert p|
|000017e0| 6f 73 58 25 2c 20 69 6e | 20 73 63 72 65 65 6e 20 |osX%, in| screen |
|000017f0| 63 6f 6f 72 64 69 6e 61 | 74 65 73 2c 20 74 6f 20 |coordina|tes, to |
|00001800| 61 20 70 6f 73 69 74 69 | 6f 6e 0d 0a 3c 2b f4 20 |a positi|on..<+. |
|00001810| 69 6e 20 74 68 65 20 77 | 69 6e 64 6f 77 20 77 6f |in the w|indow wo|
|00001820| 72 6b 20 61 72 65 61 20 | 6f 66 20 77 69 6e 64 6f |rk area |of windo|
|00001830| 77 20 77 68 25 0d 0a 46 | 08 ea 20 71 25 0d 0a 50 |w wh%..F|.. q%..P|
|00001840| 18 71 25 3d a4 68 65 61 | 70 5f 6d 61 6c 6c 6f 63 |.q%=.hea|p_malloc|
|00001850| 28 33 30 30 29 0d 0a 5a | 0b 21 71 25 3d 77 68 25 |(300)..Z|.!q%=wh%|
|00001860| 0d 0a 64 1e c8 99 22 57 | 69 6d 70 5f 47 65 74 57 |..d..."W|imp_GetW|
|00001870| 69 6e 64 6f 77 49 6e 66 | 6f 22 2c 2c 71 25 0d 0a |indowInf|o",,q%..|
|00001880| 6e 12 f2 68 65 61 70 5f | 66 72 65 65 28 71 25 29 |n..heap_|free(q%)|
|00001890| 0d 0a 78 17 3d 70 6f 73 | 58 25 2d 28 71 25 21 34 |..x.=pos|X%-(q%!4|
|000018a0| 2d 71 25 21 32 30 29 0d | 0a 82 04 0d 0a 8c 1e dd |-q%!20).|........|
|000018b0| a4 73 63 72 65 65 6e 74 | 6f 77 69 6e 64 59 28 77 |.screent|owindY(w|
|000018c0| 68 25 2c 70 6f 73 59 25 | 29 0d 0a 96 38 f4 20 63 |h%,posY%|)...8. c|
|000018d0| 6f 6e 76 65 72 74 20 70 | 6f 73 59 25 2c 20 69 6e |onvert p|osY%, in|
|000018e0| 20 73 63 72 65 65 6e 20 | 63 6f 6f 72 64 69 6e 61 | screen |coordina|
|000018f0| 74 65 73 20 74 6f 20 61 | 20 70 6f 73 69 74 69 6f |tes to a| positio|
|00001900| 6e 0d 0a a0 25 f4 20 69 | 6e 20 74 68 65 20 67 69 |n...%. i|n the gi|
|00001910| 76 65 6e 20 77 69 6e 64 | 6f 77 27 73 20 77 6f 72 |ven wind|ow's wor|
|00001920| 6b 20 61 72 65 61 0d 0a | aa 08 ea 20 71 25 0d 0a |k area..|... q%..|
|00001930| b4 18 71 25 3d a4 68 65 | 61 70 5f 6d 61 6c 6c 6f |..q%=.he|ap_mallo|
|00001940| 63 28 33 30 30 29 0d 0a | be 0b 21 71 25 3d 77 68 |c(300)..|..!q%=wh|
|00001950| 25 0d 0a c8 1e c8 99 22 | 57 69 6d 70 5f 47 65 74 |%......"|Wimp_Get|
|00001960| 57 69 6e 64 6f 77 49 6e | 66 6f 22 2c 2c 71 25 0d |WindowIn|fo",,q%.|
|00001970| 0a d2 12 f2 68 65 61 70 | 5f 66 72 65 65 28 71 25 |....heap|_free(q%|
|00001980| 29 0d 0a dc 18 3d 70 6f | 73 59 25 2d 28 71 25 21 |)....=po|sY%-(q%!|
|00001990| 31 36 2d 71 25 21 32 34 | 29 0d 0a e6 04 0d 0a f0 |16-q%!24|).......|
|000019a0| 04 0d 0a fa 1e dd a4 77 | 69 6e 64 74 6f 73 63 72 |.......w|indtoscr|
|000019b0| 65 65 6e 58 28 77 68 25 | 2c 70 6f 73 58 25 29 0d |eenX(wh%|,posX%).|
|000019c0| 0b 04 41 f4 20 63 6f 6e | 76 65 72 74 20 70 6f 73 |..A. con|vert pos|
|000019d0| 58 25 20 69 6e 20 77 69 | 6e 64 6f 77 20 63 6f 6f |X% in wi|ndow coo|
|000019e0| 72 64 73 2c 20 74 6f 20 | 61 20 70 6f 69 6e 74 20 |rds, to |a point |
|000019f0| 6f 6e 20 74 68 65 20 73 | 63 72 65 65 6e 2e 2e 2e |on the s|creen...|
|00001a00| 0d 0b 0e 08 ea 20 71 25 | 0d 0b 18 18 71 25 3d a4 |..... q%|....q%=.|
|00001a10| 68 65 61 70 5f 6d 61 6c | 6c 6f 63 28 33 30 30 29 |heap_mal|loc(300)|
|00001a20| 0d 0b 22 0b 21 71 25 3d | 77 68 25 0d 0b 2c 1e c8 |..".!q%=|wh%..,..|
|00001a30| 99 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 |."Wimp_G|etWindow|
|00001a40| 49 6e 66 6f 22 2c 2c 71 | 25 0d 0b 36 12 f2 68 65 |Info",,q|%..6..he|
|00001a50| 61 70 5f 66 72 65 65 28 | 71 25 29 0d 0b 40 17 3d |ap_free(|q%)..@.=|
|00001a60| 70 6f 73 58 25 2b 28 71 | 25 21 34 2d 71 25 21 32 |posX%+(q|%!4-q%!2|
|00001a70| 30 29 0d 0b 4a 04 0d 0b | 54 1e dd a4 77 69 6e 64 |0)..J...|T...wind|
|00001a80| 74 6f 73 63 72 65 65 6e | 59 28 77 68 25 2c 70 6f |toscreen|Y(wh%,po|
|00001a90| 73 59 25 29 0d 0b 5e 41 | f4 20 63 6f 6e 76 65 72 |sY%)..^A|. conver|
|00001aa0| 74 20 70 6f 73 59 25 20 | 69 6e 20 77 69 6e 64 6f |t posY% |in windo|
|00001ab0| 77 20 63 6f 6f 72 64 73 | 2c 20 74 6f 20 61 20 70 |w coords|, to a p|
|00001ac0| 6f 69 6e 74 20 6f 6e 20 | 74 68 65 20 73 63 72 65 |oint on |the scre|
|00001ad0| 65 6e 2e 2e 2e 0d 0b 68 | 08 ea 20 71 25 0d 0b 72 |en.....h|.. q%..r|
|00001ae0| 18 71 25 3d a4 68 65 61 | 70 5f 6d 61 6c 6c 6f 63 |.q%=.hea|p_malloc|
|00001af0| 28 33 30 30 29 0d 0b 7c | 0b 21 71 25 3d 77 68 25 |(300)..||.!q%=wh%|
|00001b00| 0d 0b 86 1e c8 99 22 57 | 69 6d 70 5f 47 65 74 57 |......"W|imp_GetW|
|00001b10| 69 6e 64 6f 77 49 6e 66 | 6f 22 2c 2c 71 25 0d 0b |indowInf|o",,q%..|
|00001b20| 90 12 f2 68 65 61 70 5f | 66 72 65 65 28 71 25 29 |...heap_|free(q%)|
|00001b30| 0d 0b 9a 18 3d 70 6f 73 | 59 25 2b 28 71 25 21 31 |....=pos|Y%+(q%!1|
|00001b40| 36 2d 71 25 21 32 34 29 | 0d 0b a4 04 0d 0b ae 04 |6-q%!24)|........|
|00001b50| 0d 0b b8 12 dd f2 64 72 | 61 67 5f 62 6f 78 28 62 |......dr|ag_box(b|
|00001b60| 25 29 0d 0b c2 08 ea 20 | 71 25 0d 0b cc 18 71 25 |%)..... |q%....q%|
|00001b70| 3d a4 68 65 61 70 5f 6d | 61 6c 6c 6f 63 28 33 30 |=.heap_m|alloc(30|
|00001b80| 30 29 0d 0b d6 1f c8 99 | 22 57 69 6d 70 5f 47 65 |0)......|"Wimp_Ge|
|00001b90| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 71 |tPointer|Info",,q|
|00001ba0| 25 0d 0b e0 12 77 68 61 | 6e 64 6c 65 25 3d 71 25 |%....wha|ndle%=q%|
|00001bb0| 21 31 32 0d 0b ea 12 69 | 68 61 6e 64 6c 65 25 3d |!12....i|handle%=|
|00001bc0| 71 25 21 31 36 0d 0b f4 | 21 66 69 6c 65 6e 61 6d |q%!16...|!filenam|
|00001bd0| 65 24 3d a4 67 65 74 5f | 66 69 65 6c 64 28 73 61 |e$=.get_|field(sa|
|00001be0| 76 65 25 2c 32 29 0d 0b | fe 04 0d 0c 08 16 62 6c |ve%,2)..|......bl|
|00001bf0| 6f 63 6b 25 21 32 30 3d | 77 68 61 6e 64 6c 65 25 |ock%!20=|whandle%|
|00001c00| 0d 0c 12 16 62 6c 6f 63 | 6b 25 21 32 34 3d 69 68 |....bloc|k%!24=ih|
|00001c10| 61 6e 64 6c 65 25 0d 0c | 1c 11 62 6c 6f 63 6b 25 |andle%..|..block%|
|00001c20| 21 32 38 3d 21 71 25 0d | 0c 26 12 62 6c 6f 63 6b |!28=!q%.|.&.block|
|00001c30| 25 21 33 32 3d 71 25 21 | 34 0d 0c 30 2a 62 6c 6f |%!32=q%!|4..0*blo|
|00001c40| 63 6b 25 21 33 36 3d 30 | 20 3a f4 20 65 73 74 69 |ck%!36=0| :. esti|
|00001c50| 6d 61 74 65 64 20 73 69 | 7a 65 20 69 6e 20 62 79 |mated si|ze in by|
|00001c60| 74 65 73 0d 0c 3a 1f 62 | 6c 6f 63 6b 25 21 34 30 |tes..:.b|lock%!40|
|00001c70| 3d 26 46 46 46 20 3a f4 | 20 66 69 6c 65 20 74 79 |=&FFF :.| file ty|
|00001c80| 70 65 0d 0c 44 1a 24 28 | 62 6c 6f 63 6b 25 2b 34 |pe..D.$(|block%+4|
|00001c90| 34 29 3d 66 69 6c 65 6e | 61 6d 65 24 0d 0c 4e 1d |4)=filen|ame$..N.|
|00001ca0| 3f 28 62 6c 6f 63 6b 25 | 2b 34 34 2b a9 66 69 6c |?(block%|+44+.fil|
|00001cb0| 65 6e 61 6d 65 24 29 3d | 30 0d 0c 58 25 21 62 6c |ename$)=|0..X%!bl|
|00001cc0| 6f 63 6b 25 3d 28 34 34 | 2b a9 28 66 69 6c 65 6e |ock%=(44|+.(filen|
|00001cd0| 61 6d 65 24 29 2b 34 29 | 20 80 20 ac 20 33 0d 0c |ame$)+4)| . . 3..|
|00001ce0| 62 29 62 6c 6f 63 6b 25 | 21 31 32 3d 30 20 3a f4 |b)block%|!12=0 :.|
|00001cf0| 20 6f 72 69 67 69 6e 61 | 74 69 6e 67 20 6d 65 73 | origina|ting mes|
|00001d00| 73 61 67 65 2e 2e 2e 0d | 0c 6c 1b 62 6c 6f 63 6b |sage....|.l.block|
|00001d10| 25 21 31 36 3d 31 20 3a | f4 20 64 61 74 61 73 61 |%!16=1 :|. datasa|
|00001d20| 76 65 0d 0c 76 24 c8 99 | 22 57 69 6d 70 5f 53 65 |ve..v$..|"Wimp_Se|
|00001d30| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 6c |ndMessag|e",17,bl|
|00001d40| 6f 63 6b 25 2c 30 0d 0c | 80 12 f2 68 65 61 70 5f |ock%,0..|...heap_|
|00001d50| 66 72 65 65 28 71 25 29 | 0d 0c 8a 05 e1 0d 0c 94 |free(q%)|........|
|00001d60| 04 0d 0c 9e 04 0d 0c a8 | 04 0d 0c b2 3d dd f2 6d |........|....=..m|
|00001d70| 65 73 73 61 67 65 28 6c | 65 6e 67 74 68 25 2c 79 |essage(l|ength%,y|
|00001d80| 6f 75 72 5f 72 65 66 25 | 2c 61 63 74 69 6f 6e 25 |our_ref%|,action%|
|00001d90| 2c 64 61 74 61 25 2c 62 | 6c 6f 63 6b 25 2c 72 65 |,data%,b|lock%,re|
|00001da0| 61 73 6f 6e 25 29 0d 0c | bc 0b ea 20 74 65 6d 70 |ason%)..|... temp|
|00001db0| 24 0d 0c c6 23 f4 20 77 | 69 6d 70 20 68 61 73 20 |$...#. w|imp has |
|00001dc0| 73 65 6e 74 20 75 73 20 | 61 20 6d 65 73 73 61 67 |sent us |a messag|
|00001dd0| 65 2e 2e 2e 0d 0c d0 10 | c8 8e 20 61 63 74 69 6f |e.......|.. actio|
|00001de0| 6e 25 20 ca 0d 0c da 2c | c9 20 30 20 20 3a 20 f2 |n% ....,|. 0  : .|
|00001df0| 6d 65 73 73 61 67 65 5f | 62 6f 78 28 22 41 62 74 |message_|box("Abt|
|00001e00| 20 74 6f 20 63 6c 6f 73 | 65 20 64 6f 77 6e 22 29 | to clos|e down")|
|00001e10| 0d 0c e4 33 c9 20 38 20 | 20 3a 20 f2 6d 65 73 73 |...3. 8 | : .mess|
|00001e20| 61 67 65 5f 62 6f 78 28 | 22 49 20 64 6f 6e 74 20 |age_box(|"I dont |
|00001e30| 6d 69 6e 64 20 63 6c 6f | 73 69 6e 67 20 64 6f 77 |mind clo|sing dow|
|00001e40| 6e 22 29 0d 0c ee 2c c9 | 20 39 20 20 3a 20 f2 6d |n")...,.| 9  : .m|
|00001e50| 65 73 73 61 67 65 5f 62 | 6f 78 28 22 50 61 6c 65 |essage_b|ox("Pale|
|00001e60| 74 74 65 20 63 68 61 6e | 67 65 2e 2e 2e 22 29 0d |tte chan|ge...").|
|00001e70| 0c f8 04 0d 0d 02 31 c9 | 20 26 35 30 32 20 3a 20 |......1.| &502 : |
|00001e80| f4 20 48 65 6c 70 20 72 | 65 71 75 65 73 74 20 66 |. Help r|equest f|
|00001e90| 72 6f 6d 20 49 6e 74 65 | 72 61 63 74 69 76 65 20 |rom Inte|ractive |
|00001ea0| 68 65 6c 70 0d 0d 0c 1e | 20 20 20 20 20 20 20 20 |help....|        |
|00001eb0| 20 6f 6c 64 74 61 73 6b | 25 3d 62 6c 6f 63 6b 25 | oldtask|%=block%|
|00001ec0| 21 34 0d 0d 16 1b 20 20 | 20 20 20 20 20 20 20 62 |!4....  |       b|
|00001ed0| 6c 6f 63 6b 25 21 34 3d | 74 61 73 6b 25 0d 0d 20 |lock%!4=|task%.. |
|00001ee0| 1f 20 20 20 20 20 20 20 | 20 20 62 6c 6f 63 6b 25 |.       |  block%|
|00001ef0| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 38 0d 0d 2a 23 |!12=bloc|k%!8..*#|
|00001f00| 20 20 20 20 20 20 20 20 | 20 68 65 6c 70 5f 73 74 |        | help_st|
|00001f10| 72 69 6e 67 25 3d 62 6c | 6f 63 6b 25 2b 32 30 0d |ring%=bl|ock%+20.|
|00001f20| 0d 34 48 20 20 20 20 20 | 20 20 20 20 24 68 65 6c |.4H     |    $hel|
|00001f30| 70 5f 73 74 72 69 6e 67 | 25 3d a4 68 65 6c 70 5f |p_string|%=.help_|
|00001f40| 66 6f 72 28 62 6c 6f 63 | 6b 25 21 33 32 2c 62 6c |for(bloc|k%!32,bl|
|00001f50| 6f 63 6b 25 21 33 36 29 | 20 3a f4 20 77 69 6e 64 |ock%!36)| :. wind|
|00001f60| 6f 77 2c 69 63 6f 6e 0d | 0d 3e 34 20 20 20 20 20 |ow,icon.|.>4     |
|00001f70| 20 20 20 20 62 6c 6f 63 | 6b 25 21 31 36 3d 26 35 |    bloc|k%!16=&5|
|00001f80| 30 33 20 3a f4 20 72 65 | 70 6c 79 20 74 6f 20 68 |03 :. re|ply to h|
|00001f90| 65 6c 70 20 72 65 71 75 | 65 73 74 0d 0d 48 24 20 |elp requ|est..H$ |
|00001fa0| 20 20 20 20 20 20 20 20 | f4 20 73 65 74 20 6d 65 |        |. set me|
|00001fb0| 73 73 61 67 65 20 6c 65 | 6e 67 74 68 2e 2e 2e 0d |ssage le|ngth....|
|00001fc0| 0d 52 43 20 20 20 20 20 | 20 20 20 20 21 62 6c 6f |.RC     |    !blo|
|00001fd0| 63 6b 25 3d 28 68 65 6c | 70 5f 73 74 72 69 6e 67 |ck%=(hel|p_string|
|00001fe0| 25 2b a9 28 24 68 65 6c | 70 5f 73 74 72 69 6e 67 |%+.($hel|p_string|
|00001ff0| 25 29 2b 34 2d 62 6c 6f | 63 6b 25 29 20 80 20 ac |%)+4-blo|ck%) . .|
|00002000| 20 33 0d 0d 5c 34 20 20 | 20 20 20 20 20 20 20 c8 | 3..\4  |       .|
|00002010| 99 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 |."Wimp_S|endMessa|
|00002020| 67 65 22 2c 31 37 2c 62 | 6c 6f 63 6b 25 2c 6f 6c |ge",17,b|lock%,ol|
|00002030| 64 74 61 73 6b 25 0d 0d | 66 04 0d 0d 70 2f c9 20 |dtask%..|f...p/. |
|00002040| 26 34 30 30 43 31 20 3a | 20 f4 20 50 52 4f 43 6d |&400C1 :| . PROCm|
|00002050| 65 73 73 61 67 65 5f 62 | 6f 78 28 22 4d 6f 64 65 |essage_b|ox("Mode|
|00002060| 20 63 68 61 6e 67 65 22 | 29 0d 0d 7a 04 0d 0d 84 | change"|)..z....|
|00002070| 04 0d 0d 8e 1e f4 20 44 | 61 74 61 20 74 72 61 6e |...... D|ata tran|
|00002080| 73 66 65 72 20 70 72 6f | 74 6f 63 6f 6c 20 3a 0d |sfer pro|tocol :.|
|00002090| 0d 98 04 0d 0d a2 1e c9 | 20 31 20 20 3a 20 f4 20 |........| 1  : . |
|000020a0| 6d 65 73 73 61 67 65 5f | 64 61 74 61 5f 73 61 76 |message_|data_sav|
|000020b0| 65 0d 0d ac 04 0d 0d b6 | 09 c9 20 32 20 3a 0d 0d |e.......|.. 2 :..|
|000020c0| c0 16 20 20 20 20 20 20 | 20 20 20 20 74 65 6d 70 |..      |    temp|
|000020d0| 24 3d 22 22 0d 0d ca 13 | 20 20 20 20 20 20 20 20 |$=""....|        |
|000020e0| 20 20 49 25 3d 34 34 0d | 0d d4 3f 20 20 20 20 20 |  I%=44.|..?     |
|000020f0| 20 20 20 20 20 c8 95 20 | 28 62 6c 6f 63 6b 25 3f |     .. |(block%?|
|00002100| 49 25 3c 3e 30 29 20 3a | 20 74 65 6d 70 24 2b 3d |I%<>0) :| temp$+=|
|00002110| bd 62 6c 6f 63 6b 25 3f | 49 25 20 3a 20 49 25 2b |.block%?|I% : I%+|
|00002120| 3d 31 20 3a 20 ce 0d 0d | de 1e 20 20 20 20 20 20 |=1 : ...|..      |
|00002130| 20 20 20 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |    .."H|ourglass|
|00002140| 5f 4f 6e 22 0d 0d e8 22 | 20 20 20 20 20 20 20 20 |_On"..."|        |
|00002150| 20 20 f2 73 61 76 65 5f | 64 61 74 61 5f 74 6f 28 |  .save_|data_to(|
|00002160| 74 65 6d 70 24 29 0d 0d | f2 1f 20 20 20 20 20 20 |temp$)..|..      |
|00002170| 20 20 20 20 6f 6c 64 74 | 61 73 6b 25 3d 62 6c 6f |    oldt|ask%=blo|
|00002180| 63 6b 25 21 34 0d 0d fc | 20 20 20 20 20 20 20 20 |ck%!4...|        |
|00002190| 20 20 20 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f |   block|%!12=blo|
|000021a0| 63 6b 25 21 38 0d 0e 06 | 1c 20 20 20 20 20 20 20 |ck%!8...|.       |
|000021b0| 20 20 20 62 6c 6f 63 6b | 25 21 34 3d 74 61 73 6b |   block|%!4=task|
|000021c0| 25 0d 0e 10 47 20 20 20 | 20 20 20 20 20 20 20 62 |%...G   |       b|
|000021d0| 6c 6f 63 6b 25 21 31 36 | 20 3d 20 33 20 3a f4 20 |lock%!16| = 3 :. |
|000021e0| 6d 75 73 74 20 64 6f 20 | 61 20 4c 4f 41 44 20 6d |must do |a LOAD m|
|000021f0| 65 73 73 61 67 65 20 21 | 20 28 70 61 67 65 20 31 |essage !| (page 1|
|00002200| 32 36 33 20 70 72 6d 29 | 0d 0e 1a 35 20 20 20 20 |263 prm)|...5    |
|00002210| 20 20 20 20 20 20 c8 99 | 22 57 69 6d 70 5f 53 65 |      ..|"Wimp_Se|
|00002220| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 6c |ndMessag|e",17,bl|
|00002230| 6f 63 6b 25 2c 6f 6c 64 | 74 61 73 6b 25 0d 0e 24 |ock%,old|task%..$|
|00002240| 1f 20 20 20 20 20 20 20 | 20 20 20 c8 99 22 48 6f |.       |   .."Ho|
|00002250| 75 72 67 6c 61 73 73 5f | 4f 66 66 22 0d 0e 2e 04 |urglass_|Off"....|
|00002260| 0d 0e 38 04 0d 0e 42 1e | c9 20 33 20 20 3a 20 f4 |..8...B.|. 3  : .|
|00002270| 20 4d 65 73 73 61 67 65 | 5f 44 61 74 61 5f 4c 6f | Message|_Data_Lo|
|00002280| 61 64 0d 0e 4c 45 20 20 | 20 20 20 20 20 20 20 20 |ad..LE  |        |
|00002290| e7 20 a4 6c 6f 61 64 5f | 64 61 74 61 5f 72 65 71 |. .load_|data_req|
|000022a0| 75 65 73 74 28 62 6c 6f | 63 6b 25 2b 34 34 2c 62 |uest(blo|ck%+44,b|
|000022b0| 6c 6f 63 6b 25 21 34 30 | 2c 62 6c 6f 63 6b 25 21 |lock%!40|,block%!|
|000022c0| 33 36 29 3d b9 20 8c 0d | 0e 56 21 20 20 20 20 20 |36)=. ..|.V!     |
|000022d0| 20 20 20 20 20 20 20 6f | 6c 64 74 61 73 6b 25 3d |       o|ldtask%=|
|000022e0| 62 6c 6f 63 6b 25 21 34 | 0d 0e 60 22 20 20 20 20 |block%!4|..`"    |
|000022f0| 20 20 20 20 20 20 20 20 | 62 6c 6f 63 6b 25 21 31 |        |block%!1|
|00002300| 32 3d 62 6c 6f 63 6b 25 | 21 38 0d 0e 6a 1e 20 20 |2=block%|!8..j.  |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 62 6c 6f 63 6b 25 |        |  block%|
|00002320| 21 34 3d 74 61 73 6b 25 | 0d 0e 74 2d 20 20 20 20 |!4=task%|..t-    |
|00002330| 20 20 20 20 20 20 20 20 | 62 6c 6f 63 6b 25 21 31 |        |block%!1|
|00002340| 36 3d 20 34 20 3a f4 20 | 44 61 74 61 5f 4c 6f 61 |6= 4 :. |Data_Loa|
|00002350| 64 5f 61 63 6b 0d 0e 7e | 37 20 20 20 20 20 20 20 |d_ack..~|7       |
|00002360| 20 20 20 20 20 c8 99 22 | 57 69 6d 70 5f 53 65 6e |     .."|Wimp_Sen|
|00002370| 64 4d 65 73 73 61 67 65 | 22 2c 31 39 2c 62 6c 6f |dMessage|",19,blo|
|00002380| 63 6b 25 2c 6f 6c 64 74 | 61 73 6b 25 0d 0e 88 0f |ck%,oldt|ask%....|
|00002390| 20 20 20 20 20 20 20 20 | 20 20 cd 0d 0e 92 04 0d |        |  ......|
|000023a0| 0e 9c 1c c9 20 35 20 3a | 20 f4 20 6d 65 73 73 61 |.... 5 :| . messa|
|000023b0| 67 65 5f 44 61 74 61 4f | 70 65 6e 0d 0e a6 45 20 |ge_DataO|pen...E |
|000023c0| 20 20 20 20 20 20 20 20 | 20 e7 20 a4 6c 6f 61 64 |        | . .load|
|000023d0| 5f 64 61 74 61 5f 72 65 | 71 75 65 73 74 28 62 6c |_data_re|quest(bl|
|000023e0| 6f 63 6b 25 2b 34 34 2c | 62 6c 6f 63 6b 25 21 34 |ock%+44,|block%!4|
|000023f0| 30 2c 62 6c 6f 63 6b 25 | 21 33 36 29 3d b9 20 8c |0,block%|!36)=. .|
|00002400| 0d 0e b0 21 20 20 20 20 | 20 20 20 20 20 20 20 20 |...!    |        |
|00002410| 6f 6c 64 74 61 73 6b 25 | 3d 62 6c 6f 63 6b 25 21 |oldtask%|=block%!|
|00002420| 34 0d 0e ba 22 20 20 20 | 20 20 20 20 20 20 20 20 |4..."   |        |
|00002430| 20 62 6c 6f 63 6b 25 21 | 31 32 3d 62 6c 6f 63 6b | block%!|12=block|
|00002440| 25 21 38 0d 0e c4 1e 20 | 20 20 20 20 20 20 20 20 |%!8.... |        |
|00002450| 20 20 20 62 6c 6f 63 6b | 25 21 34 3d 74 61 73 6b |   block|%!4=task|
|00002460| 25 0d 0e ce 2d 20 20 20 | 20 20 20 20 20 20 20 20 |%...-   |        |
|00002470| 20 62 6c 6f 63 6b 25 21 | 31 36 3d 20 34 20 3a f4 | block%!|16= 4 :.|
|00002480| 20 44 61 74 61 5f 4c 6f | 61 64 5f 61 63 6b 0d 0e | Data_Lo|ad_ack..|
|00002490| d8 37 20 20 20 20 20 20 | 20 20 20 20 20 20 c8 99 |.7      |      ..|
|000024a0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|000024b0| 65 22 2c 31 39 2c 62 6c | 6f 63 6b 25 2c 6f 6c 64 |e",19,bl|ock%,old|
|000024c0| 74 61 73 6b 25 0d 0e e2 | 0f 20 20 20 20 20 20 20 |task%...|.       |
|000024d0| 20 20 20 cd 0d 0e ec 04 | 0d 0e f6 05 cb 0d 0f 00 |   .....|........|
|000024e0| 05 e1 0d 0f 0a 04 0d 0f | 14 12 dd 20 f2 70 6f 6c |........|... .pol|
|000024f0| 6c 28 6d 61 73 6b 25 29 | 0d 0f 1e 11 21 62 6c 6f |l(mask%)|....!blo|
|00002500| 63 6b 25 3d 6d 61 73 6b | 25 0d 0f 28 25 c8 99 20 |ck%=mask|%..(%.. |
|00002510| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 30 2c 62 6c |"Wimp_Po|ll",0,bl|
|00002520| 6f 63 6b 25 20 b8 20 72 | 65 61 73 6f 6e 25 0d 0f |ock% . r|eason%..|
|00002530| 32 1e e7 20 72 65 61 73 | 6f 6e 25 20 f2 61 63 74 |2.. reas|on% .act|
|00002540| 69 6f 6e 28 72 65 61 73 | 6f 6e 25 29 0d 0f 3c 05 |ion(reas|on%)..<.|
|00002550| e1 0d 0f 46 04 0d 0f 50 | 04 0d 0f 5a 04 0d 0f 64 |...F...P|...Z...d|
|00002560| 16 dd 20 f2 61 63 74 69 | 6f 6e 28 72 65 61 73 6f |.. .acti|on(reaso|
|00002570| 6e 25 29 0d 0f 6e 0c ea | 20 63 61 6e 74 64 6f 0d |n%)..n..| cantdo.|
|00002580| 0f 78 10 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.x... re|ason% ..|
|00002590| 0f 82 21 c9 20 31 20 3a | 20 f2 72 65 64 72 61 77 |..!. 1 :| .redraw|
|000025a0| 5f 72 65 71 75 65 73 74 | 28 62 6c 6f 63 6b 25 29 |_request|(block%)|
|000025b0| 0d 0f 8c 1e c9 20 32 20 | 3a 20 f2 6f 70 65 6e 5f |..... 2 |: .open_|
|000025c0| 77 69 6e 64 6f 77 28 62 | 6c 6f 63 6b 25 29 0d 0f |window(b|lock%)..|
|000025d0| 96 20 c9 20 33 20 3a 20 | f2 63 6c 6f 73 65 5f 77 |. . 3 : |.close_w|
|000025e0| 69 6e 64 6f 77 28 21 62 | 6c 6f 63 6b 25 29 0d 0f |indow(!b|lock%)..|
|000025f0| a0 45 c9 20 36 20 3a 20 | f2 63 68 65 63 6b 5f 6d |.E. 6 : |.check_m|
|00002600| 6f 75 73 65 28 21 62 6c | 6f 63 6b 25 2c 62 6c 6f |ouse(!bl|ock%,blo|
|00002610| 63 6b 25 21 34 2c 62 6c | 6f 63 6b 25 21 38 2c 62 |ck%!4,bl|ock%!8,b|
|00002620| 6c 6f 63 6b 25 21 31 32 | 2c 62 6c 6f 63 6b 25 21 |lock%!12|,block%!|
|00002630| 31 36 29 0d 0f aa 1b c9 | 20 37 20 3a 20 f2 64 72 |16).....| 7 : .dr|
|00002640| 61 67 5f 62 6f 78 28 62 | 6c 6f 63 6b 25 29 0d 0f |ag_box(b|lock%)..|
|00002650| b4 1e c9 20 38 20 3a 20 | f2 6b 65 79 5f 70 72 65 |... 8 : |.key_pre|
|00002660| 73 73 65 64 28 62 6c 6f | 63 6b 25 29 0d 0f be 16 |ssed(blo|ck%)....|
|00002670| c9 20 39 20 3a 20 f2 6d | 65 6e 75 5f 73 65 6c 65 |. 9 : .m|enu_sele|
|00002680| 63 74 0d 0f c8 48 c9 20 | 31 37 3a 20 f2 6d 65 73 |ct...H. |17: .mes|
|00002690| 73 61 67 65 28 21 62 6c | 6f 63 6b 25 2c 62 6c 6f |sage(!bl|ock%,blo|
|000026a0| 63 6b 25 21 31 32 2c 62 | 6c 6f 63 6b 25 21 31 36 |ck%!12,b|lock%!16|
|000026b0| 2c 62 6c 6f 63 6b 25 2b | 32 30 2c 62 6c 6f 63 6b |,block%+|20,block|
|000026c0| 25 2c 72 65 61 73 6f 6e | 25 29 0d 0f d2 48 c9 20 |%,reason|%)...H. |
|000026d0| 31 38 3a 20 f2 6d 65 73 | 73 61 67 65 28 21 62 6c |18: .mes|sage(!bl|
|000026e0| 6f 63 6b 25 2c 62 6c 6f | 63 6b 25 21 31 32 2c 62 |ock%,blo|ck%!12,b|
|000026f0| 6c 6f 63 6b 25 21 31 36 | 2c 62 6c 6f 63 6b 25 2b |lock%!16|,block%+|
|00002700| 32 30 2c 62 6c 6f 63 6b | 25 2c 72 65 61 73 6f 6e |20,block|%,reason|
|00002710| 25 29 0d 0f dc 05 cb 0d | 0f e6 04 0d 0f f0 05 e1 |%)......|........|
|00002720| 0d 0f fa 04 0d 10 04 04 | 0d 10 0e 19 dd f2 6b 65 |........|......ke|
|00002730| 79 5f 70 72 65 73 73 65 | 64 28 62 6c 6f 63 6b 25 |y_presse|d(block%|
|00002740| 29 0d 10 18 0b ea 20 62 | 25 2c 49 25 0d 10 22 18 |)..... b|%,I%..".|
|00002750| 62 25 3d a4 68 65 61 70 | 5f 6d 61 6c 6c 6f 63 28 |b%=.heap|_malloc(|
|00002760| 31 30 30 29 0d 10 2c 52 | c8 99 22 57 69 6d 70 5f |100)..,R|.."Wimp_|
|00002770| 57 68 69 63 68 49 63 6f | 6e 22 2c 21 62 6c 6f 63 |WhichIco|n",!bloc|
|00002780| 6b 25 2c 62 25 2c 28 33 | 3c 3c 32 32 29 2b 28 31 |k%,b%,(3|<<22)+(1|
|00002790| 35 3c 3c 31 32 29 2c 28 | 31 35 3c 3c 31 32 29 20 |5<<12),(|15<<12) |
|000027a0| 3a f4 20 67 65 74 20 6c | 69 73 74 20 6f 66 20 77 |:. get l|ist of w|
|000027b0| 72 20 69 63 27 73 0d 10 | 36 08 49 25 3d 30 0d 10 |r ic's..|6.I%=0..|
|000027c0| 40 16 e7 20 62 6c 6f 63 | 6b 25 21 34 20 3c 3e 20 |@.. bloc|k%!4 <> |
|000027d0| 2d 31 20 8c 0d 10 4a 24 | c8 95 20 28 62 25 21 49 |-1 ...J$|.. (b%!I|
|000027e0| 25 3c 3e 62 6c 6f 63 6b | 25 21 34 29 20 80 20 62 |%<>block|%!4) . b|
|000027f0| 25 21 49 25 3c 3e 2d 31 | 0d 10 54 0c 20 20 20 49 |%!I%<>-1|..T.   I|
|00002800| 25 2b 3d 34 0d 10 5e 17 | ce 20 3a f4 20 66 69 6e |%+=4..^.|. :. fin|
|00002810| 64 20 74 68 69 73 20 69 | 63 6f 6e 0d 10 68 04 0d |d this i|con..h..|
|00002820| 10 72 12 c8 8e 20 62 6c | 6f 63 6b 25 21 32 34 20 |.r... bl|ock%!24 |
|00002830| ca 0d 10 7c 04 0d 10 86 | 2a c9 20 31 33 2c 26 31 |...|....|*. 13,&1|
|00002840| 38 45 20 20 3a f4 20 72 | 65 74 75 72 6e 20 6b 65 |8E  :. r|eturn ke|
|00002850| 79 20 6f 72 20 64 6f 77 | 6e 20 61 72 72 6f 77 0d |y or dow|n arrow.|
|00002860| 10 90 3a 20 20 20 20 e7 | 20 62 25 21 49 25 3c 3e |..:    .| b%!I%<>|
|00002870| 2d 31 20 8c 20 20 49 25 | 2b 3d 34 20 3a f4 20 6d |-1 .  I%|+=4 :. m|
|00002880| 6f 76 65 20 74 6f 20 4e | 45 58 54 20 77 72 69 74 |ove to N|EXT writ|
|00002890| 65 61 62 6c 65 20 6f 6e | 65 0d 10 9a 17 20 20 20 |eable on|e....   |
|000028a0| 20 e7 20 62 25 21 49 25 | 20 3c 3e 20 2d 31 20 8c | . b%!I%| <> -1 .|
|000028b0| 0d 10 a4 29 20 20 20 20 | 20 20 20 20 20 f4 20 67 |...)    |     . g|
|000028c0| 69 76 65 20 6e 65 78 74 | 20 69 63 6f 6e 20 69 6e |ive next| icon in|
|000028d0| 70 75 74 20 66 6f 63 75 | 73 0d 10 ae 3e 20 20 20 |put focu|s...>   |
|000028e0| 20 20 20 20 20 20 c8 99 | 22 57 69 6d 70 5f 53 65 |      ..|"Wimp_Se|
|000028f0| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00002900| 21 62 6c 6f 63 6b 25 2c | 62 25 21 49 25 2c 30 2c |!block%,|b%!I%,0,|
|00002910| 30 2c 2d 31 2c 2d 31 0d | 10 b8 09 20 20 20 20 cc |0,-1,-1.|...    .|
|00002920| 0d 10 c2 1f 20 20 20 20 | 20 20 20 20 20 f4 20 61 |....    |     . a|
|00002930| 6d 6f 75 6e 74 73 20 74 | 6f 20 4f 6b 2e 2e 2e 0d |mounts t|o Ok....|
|00002940| 10 cc 27 20 20 20 20 20 | 20 20 20 20 f4 20 73 69 |..'     |    . si|
|00002950| 6d 75 6c 61 74 65 20 61 | 20 63 6c 69 63 6b 20 6f |mulate a| click o|
|00002960| 6e 20 4f 6b 2e 2e 0d 10 | d6 21 20 20 20 20 20 20 |n Ok....|.!      |
|00002970| 20 20 20 6d 62 25 3d a4 | 68 65 61 70 5f 6d 61 6c |   mb%=.|heap_mal|
|00002980| 6c 6f 63 28 33 30 29 0d | 10 e0 13 20 20 20 20 20 |loc(30).|...     |
|00002990| 20 20 20 20 21 6d 62 25 | 3d 30 0d 10 ea 14 20 20 |    !mb%|=0....  |
|000029a0| 20 20 20 20 20 20 20 6d | 62 25 21 34 3d 30 0d 10 |       m|b%!4=0..|
|000029b0| f4 14 20 20 20 20 20 20 | 20 20 20 6d 62 25 21 38 |..      |   mb%!8|
|000029c0| 3d 34 0d 10 fe 1b 20 20 | 20 20 20 20 20 20 20 6d |=4....  |       m|
|000029d0| 62 25 21 31 32 3d 21 62 | 6c 6f 63 6b 25 0d 11 08 |b%!12=!b|lock%...|
|000029e0| 04 0d 11 12 19 20 20 20 | 20 20 20 20 20 20 c8 8e |.....   |      ..|
|000029f0| 20 21 62 6c 6f 63 6b 25 | 20 ca 0d 11 1c 2d 20 20 | !block%| ....-  |
|00002a00| 20 20 20 20 20 20 20 20 | c9 20 6e 65 77 66 75 6e |        |. newfun|
|00002a10| 63 25 20 3a 20 6d 62 25 | 21 31 36 3d 6e 65 77 66 |c% : mb%|!16=newf|
|00002a20| 75 6e 63 5f 6f 6b 25 0d | 11 26 2b 20 20 20 20 20 |unc_ok%.|.&+     |
|00002a30| 20 20 20 20 20 c9 20 73 | 65 74 75 70 25 20 20 20 |     . s|etup%   |
|00002a40| 3a 20 6d 62 25 21 31 36 | 3d 73 65 74 75 70 5f 6f |: mb%!16|=setup_o|
|00002a50| 6b 25 0d 11 30 0e 20 20 | 20 20 20 20 20 20 20 cb |k%..0.  |       .|
|00002a60| 0d 11 3a 2d 20 20 20 20 | 20 20 20 20 20 c8 99 22 |..:-    |     .."|
|00002a70| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00002a80| 22 2c 36 2c 6d 62 25 2c | 74 61 73 6b 25 0d 11 44 |",6,mb%,|task%..D|
|00002a90| 1c 20 20 20 20 20 20 20 | 20 20 f2 68 65 61 70 5f |.       |  .heap_|
|00002aa0| 66 72 65 65 28 6d 62 25 | 29 0d 11 4e 09 20 20 20 |free(mb%|)..N.   |
|00002ab0| 20 cd 0d 11 58 04 0d 11 | 62 17 c9 20 26 31 38 46 | ...X...|b.. &18F|
|00002ac0| 20 3a 20 f4 20 75 70 20 | 61 72 72 6f 77 0d 11 6c | : . up |arrow..l|
|00002ad0| 17 20 20 20 20 e7 20 49 | 25 3c 3e 30 20 8c 20 49 |.    . I|%<>0 . I|
|00002ae0| 25 2d 3d 34 0d 11 76 39 | 20 20 20 20 c8 99 22 57 |%-=4..v9|    .."W|
|00002af0| 69 6d 70 5f 53 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_SetC|aretPosi|
|00002b00| 74 69 6f 6e 22 2c 21 62 | 6c 6f 63 6b 25 2c 62 25 |tion",!b|lock%,b%|
|00002b10| 21 49 25 2c 30 2c 30 2c | 2d 31 2c 2d 31 0d 11 80 |!I%,0,0,|-1,-1...|
|00002b20| 04 0d 11 8a 04 0d 11 94 | 04 0d 11 9e 05 7f 0d 11 |........|........|
|00002b30| a8 24 20 20 20 c8 99 22 | 57 69 6d 70 5f 50 72 6f |.$   .."|Wimp_Pro|
|00002b40| 63 65 73 73 4b 65 79 22 | 2c 62 6c 6f 63 6b 25 21 |cessKey"|,block%!|
|00002b50| 32 34 0d 11 b2 05 cb 0d | 11 bc 05 cd 0d 11 c6 12 |24......|........|
|00002b60| f2 68 65 61 70 5f 66 72 | 65 65 28 62 25 29 0d 11 |.heap_fr|ee(b%)..|
|00002b70| d0 05 e1 0d 11 da 04 0d | 11 e4 04 0d 11 ee 04 0d |........|........|
|00002b80| 11 f8 04 0d 12 02 04 0d | 12 0c 18 dd f2 72 65 64 |........|.....red|
|00002b90| 72 61 77 5f 72 65 71 75 | 65 73 74 28 62 25 29 0d |raw_requ|est(b%).|
|00002ba0| 12 16 25 c8 99 22 57 69 | 6d 70 5f 52 65 64 72 61 |..%.."Wi|mp_Redra|
|00002bb0| 77 57 69 6e 64 6f 77 22 | 2c 2c 62 25 20 b8 20 64 |wWindow"|,,b% . d|
|00002bc0| 6f 6e 65 25 0d 12 20 0f | c8 95 20 64 6f 6e 65 25 |one%.. .|.. done%|
|00002bd0| 3c 3e 30 0d 12 2a 15 20 | 20 20 f2 64 6f 5f 72 65 |<>0..*. |  .do_re|
|00002be0| 64 72 61 77 28 62 25 29 | 0d 12 34 28 20 20 20 c8 |draw(b%)|..4(   .|
|00002bf0| 99 22 57 69 6d 70 5f 47 | 65 74 52 65 63 74 61 6e |."Wimp_G|etRectan|
|00002c00| 67 6c 65 22 2c 2c 62 25 | 20 b8 20 64 6f 6e 65 25 |gle",,b%| . done%|
|00002c10| 0d 12 3e 05 ce 0d 12 48 | 05 e1 0d 12 52 04 0d 12 |..>....H|....R...|
|00002c20| 5c 04 0d 12 66 13 dd f2 | 64 6f 5f 72 65 64 72 61 |\...f...|do_redra|
|00002c30| 77 28 62 25 29 0d 12 70 | 0c c8 8e 20 21 62 25 20 |w(b%)..p|... !b% |
|00002c40| ca 0d 12 7a 25 20 20 c9 | 20 6d 61 69 6e 25 20 3a |...z%  .| main% :|
|00002c50| 20 f2 6d 61 6b 65 70 6c | 6f 74 28 6e 75 6d 63 75 | .makepl|ot(numcu|
|00002c60| 72 76 65 73 25 29 0d 12 | 84 0a 20 20 7f 20 20 3a |rves%)..|..  .  :|
|00002c70| 0d 12 8e 05 cb 0d 12 98 | 05 e1 0d 12 a2 04 0d 12 |........|........|
|00002c80| ac 04 0d 12 b6 04 0d 12 | c0 20 dd f2 75 73 65 72 |........|. ..user|
|00002c90| 5f 64 72 61 67 28 6d 78 | 25 2c 6d 79 25 2c 77 68 |_drag(mx|%,my%,wh|
|00002ca0| 25 2c 69 68 25 29 0d 12 | ca 25 f4 20 69 6e 69 74 |%,ih%)..|.%. init|
|00002cb0| 69 61 74 65 20 61 20 75 | 73 65 72 20 64 72 61 67 |iate a u|ser drag|
|00002cc0| 20 6f 66 20 61 6e 20 69 | 63 6f 6e 0d 12 d4 0c ea | of an i|con.....|
|00002cd0| 20 71 25 2c 69 63 25 0d | 12 de 18 71 25 3d a4 68 | q%,ic%.|...q%=.h|
|00002ce0| 65 61 70 5f 6d 61 6c 6c | 6f 63 28 33 30 30 29 0d |eap_mall|oc(300).|
|00002cf0| 12 e8 19 69 63 25 3d a4 | 68 65 61 70 5f 6d 61 6c |...ic%=.|heap_mal|
|00002d00| 6c 6f 63 28 33 30 30 29 | 0d 12 f2 0c 21 69 63 25 |loc(300)|....!ic%|
|00002d10| 3d 77 68 25 0d 12 fc 0d | 69 63 25 21 34 3d 69 68 |=wh%....|ic%!4=ih|
|00002d20| 25 0d 13 06 1e c8 99 22 | 57 69 6d 70 5f 47 65 74 |%......"|Wimp_Get|
|00002d30| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 69 63 25 0d |IconStat|e",,ic%.|
|00002d40| 13 10 04 0d 13 1a 09 21 | 71 25 3d 30 0d 13 24 0a |.......!|q%=0..$.|
|00002d50| 71 25 21 34 3d 35 0d 13 | 2e 22 71 25 21 38 3d a4 |q%!4=5..|."q%!8=.|
|00002d60| 77 69 6e 64 74 6f 73 63 | 72 65 65 6e 58 28 77 68 |windtosc|reenX(wh|
|00002d70| 25 2c 69 63 25 21 38 29 | 0d 13 38 24 71 25 21 31 |%,ic%!8)|..8$q%!1|
|00002d80| 32 3d a4 77 69 6e 64 74 | 6f 73 63 72 65 65 6e 59 |2=.windt|oscreenY|
|00002d90| 28 77 68 25 2c 69 63 25 | 21 31 32 29 0d 13 42 24 |(wh%,ic%|!12)..B$|
|00002da0| 71 25 21 31 36 3d a4 77 | 69 6e 64 74 6f 73 63 72 |q%!16=.w|indtoscr|
|00002db0| 65 65 6e 58 28 77 68 25 | 2c 69 63 25 21 31 36 29 |eenX(wh%|,ic%!16)|
|00002dc0| 0d 13 4c 24 71 25 21 32 | 30 3d a4 77 69 6e 64 74 |..L$q%!2|0=.windt|
|00002dd0| 6f 73 63 72 65 65 6e 59 | 28 77 68 25 2c 69 63 25 |oscreenY|(wh%,ic%|
|00002de0| 21 32 30 29 0d 13 56 0b | 71 25 21 32 34 3d 30 0d |!20)..V.|q%!24=0.|
|00002df0| 13 60 0b 71 25 21 32 38 | 3d 30 0d 13 6a 0e 71 25 |.`.q%!28|=0..j.q%|
|00002e00| 21 33 32 3d 31 32 38 30 | 0d 13 74 0e 71 25 21 33 |!32=1280|..t.q%!3|
|00002e10| 36 3d 31 30 32 34 0d 13 | 7e 18 c8 99 22 57 69 6d |6=1024..|~..."Wim|
|00002e20| 70 5f 44 72 61 67 42 6f | 78 22 2c 2c 71 25 0d 13 |p_DragBo|x",,q%..|
|00002e30| 88 12 f2 68 65 61 70 5f | 66 72 65 65 28 71 25 29 |...heap_|free(q%)|
|00002e40| 0d 13 92 13 f2 68 65 61 | 70 5f 66 72 65 65 28 69 |.....hea|p_free(i|
|00002e50| 63 25 29 0d 13 9c 05 e1 | 0d 13 a6 04 0d 13 b0 04 |c%).....|........|
|00002e60| 0d 13 ba 27 dd f2 6d 6f | 75 73 65 5f 6f 6e 5f 73 |...'..mo|use_on_s|
|00002e70| 61 76 65 28 6d 78 25 2c | 6d 79 25 2c 62 75 74 25 |ave(mx%,|my%,but%|
|00002e80| 2c 69 68 6e 64 25 29 0d | 13 c4 04 0d 13 ce 0e c8 |,ihnd%).|........|
|00002e90| 8e 20 69 68 6e 64 25 20 | ca 0d 13 d8 07 c9 20 30 |. ihnd% |...... 0|
|00002ea0| 0d 13 e2 1c 20 20 20 20 | f2 63 6c 6f 73 65 5f 77 |....    |.close_w|
|00002eb0| 69 6e 64 6f 77 28 73 61 | 76 65 25 29 0d 13 ec 40 |indow(sa|ve%)...@|
|00002ec0| 20 20 20 20 f2 6d 65 73 | 73 61 67 65 5f 62 6f 78 |    .mes|sage_box|
|00002ed0| 28 22 54 6f 20 73 61 76 | 65 2c 20 64 72 61 67 20 |("To sav|e, drag |
|00002ee0| 69 63 6f 6e 20 74 6f 20 | 61 20 64 69 72 65 63 74 |icon to |a direct|
|00002ef0| 6f 72 79 20 76 69 65 77 | 65 72 22 29 0d 13 f6 07 |ory view|er")....|
|00002f00| c9 20 33 0d 14 00 11 20 | 20 20 20 c8 8e 20 62 75 |. 3.... |   .. bu|
|00002f10| 74 25 20 ca 0d 14 0a 2e | 20 20 20 20 c9 20 36 34 |t% .....|    . 64|
|00002f20| 20 3a 20 f2 75 73 65 72 | 5f 64 72 61 67 28 6d 78 | : .user|_drag(mx|
|00002f30| 25 2c 6d 79 25 2c 73 61 | 76 65 25 2c 69 68 6e 64 |%,my%,sa|ve%,ihnd|
|00002f40| 25 29 0d 14 14 09 20 20 | 20 20 cb 0d 14 1e 05 cb |%)....  |  ......|
|00002f50| 0d 14 28 05 e1 0d 14 32 | 04 0d 14 3c 04 0d 14 46 |..(....2|...<...F|
|00002f60| 2c dd 20 f2 63 68 65 63 | 6b 5f 6d 6f 75 73 65 28 |,. .chec|k_mouse(|
|00002f70| 6d 78 25 2c 6d 79 25 2c | 62 75 74 25 2c 77 68 6e |mx%,my%,|but%,whn|
|00002f80| 64 25 2c 69 68 6e 64 25 | 29 0d 14 50 19 ea 20 69 |d%,ihnd%|)..P.. i|
|00002f90| 63 6f 6e 25 2c 72 6f 6f | 74 24 2c 61 63 63 6e 75 |con%,roo|t$,accnu|
|00002fa0| 6d 24 0d 14 5a 0e c8 8e | 20 77 68 6e 64 25 20 ca |m$..Z...| whnd% .|
|00002fb0| 0d 14 64 2f c9 20 73 61 | 76 65 25 20 3a f2 6d 6f |..d/. sa|ve% :.mo|
|00002fc0| 75 73 65 5f 6f 6e 5f 73 | 61 76 65 28 6d 78 25 2c |use_on_s|ave(mx%,|
|00002fd0| 6d 79 25 2c 62 75 74 25 | 2c 69 68 6e 64 25 29 0d |my%,but%|,ihnd%).|
|00002fe0| 14 6e 30 c9 20 73 65 74 | 75 70 25 3a f2 6d 6f 75 |.n0. set|up%:.mou|
|00002ff0| 73 65 5f 6f 6e 5f 73 65 | 74 75 70 28 6d 78 25 2c |se_on_se|tup(mx%,|
|00003000| 6d 79 25 2c 62 75 74 25 | 2c 69 68 6e 64 25 29 0d |my%,but%|,ihnd%).|
|00003010| 14 78 36 c9 20 6e 65 77 | 66 75 6e 63 25 20 3a 20 |.x6. new|func% : |
|00003020| f2 6d 6f 75 73 65 5f 6f | 6e 5f 6e 65 77 66 75 6e |.mouse_o|n_newfun|
|00003030| 63 28 6d 78 25 2c 6d 79 | 25 2c 62 75 74 25 2c 69 |c(mx%,my|%,but%,i|
|00003040| 68 6e 64 25 29 0d 14 82 | 05 7f 0d 14 8c 10 20 20 |hnd%)...|......  |
|00003050| 20 c8 8e 20 62 75 74 25 | 20 ca 0d 14 96 2c 20 20 | .. but%| ....,  |
|00003060| 20 c9 20 36 34 3a 20 f2 | 75 73 65 72 5f 64 72 61 | . 64: .|user_dra|
|00003070| 67 28 6d 78 25 2c 6d 79 | 25 2c 77 68 6e 64 25 2c |g(mx%,my|%,whnd%,|
|00003080| 69 68 6e 64 25 29 0d 14 | a0 19 20 20 20 c9 20 32 |ihnd%)..|..   . 2|
|00003090| 20 3a 20 e7 20 77 68 6e | 64 25 3d 2d 32 20 8c 0d | : . whn|d%=-2 ..|
|000030a0| 14 aa 36 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..6     |        |
|000030b0| 20 20 f2 63 72 65 61 74 | 65 5f 69 63 6f 6e 5f 6d |  .creat|e_icon_m|
|000030c0| 65 6e 75 28 61 70 70 6c | 69 63 5f 6e 61 6d 65 24 |enu(appl|ic_name$|
|000030d0| 2c 6d 78 25 29 0d 14 b4 | 11 20 20 20 20 20 20 20 |,mx%)...|.       |
|000030e0| 20 20 20 20 20 cc 0d 14 | be 2f 20 20 20 20 20 20 |     ...|./      |
|000030f0| 20 20 20 20 20 20 20 20 | 20 f2 63 72 65 61 74 65 |        | .create|
|00003100| 5f 6d 65 6e 75 28 22 4d | 61 69 6e 22 2c 6d 78 25 |_menu("M|ain",mx%|
|00003110| 2c 6d 79 25 29 0d 14 c8 | 11 20 20 20 20 20 20 20 |,my%)...|.       |
|00003120| 20 20 20 20 20 cd 0d 14 | d2 04 0d 14 dc 17 20 20 |     ...|......  |
|00003130| 20 c9 20 34 20 3a 20 c8 | 8e 20 77 68 6e 64 25 20 | . 4 : .|. whnd% |
|00003140| ca 0d 14 e6 14 20 20 20 | 20 20 20 20 20 20 20 20 |.....   |        |
|00003150| 20 c9 20 2d 32 0d 14 f0 | 38 20 20 20 20 20 20 20 | . -2...|8       |
|00003160| 20 20 20 20 20 20 20 20 | 20 20 20 20 f2 6f 70 65 |        |    .ope|
|00003170| 6e 5f 77 69 6e 64 6f 77 | 5f 66 72 6f 6d 5f 74 65 |n_window|_from_te|
|00003180| 6d 70 6c 61 74 65 28 6d | 61 69 6e 25 29 0d 14 fa |mplate(m|ain%)...|
|00003190| 11 20 20 20 20 20 20 20 | 20 20 20 20 20 cb 0d 15 |.       |     ...|
|000031a0| 04 04 0d 15 0e 17 20 20 | 20 c9 20 31 20 3a 20 c8 |......  | . 1 : .|
|000031b0| 8e 20 77 68 6e 64 25 20 | ca 0d 15 18 11 20 20 20 |. whnd% |.....   |
|000031c0| 20 20 20 20 20 20 20 20 | 20 cb 0d 15 22 08 20 20 |        | ...".  |
|000031d0| 20 cb 0d 15 2c 05 cb 0d | 15 36 05 e1 0d 15 40 05 | ...,...|.6....@.|
|000031e0| 3a 0d 15 4a 04 0d 15 54 | 04 0d 15 5e 29 f4 3d 3d |:..J...T|...^).==|
|000031f0| 3d 3d 3d 4d 65 6e 75 20 | 73 79 73 74 65 6d 20 54 |===Menu |system T|
|00003200| 77 6f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |wo======|========|
|00003210| 3d 3d 0d 15 68 04 0d 15 | 72 04 0d 15 7c 20 dd 20 |==..h...|r...| . |
|00003220| f2 63 72 65 61 74 65 5f | 6d 65 6e 75 28 74 69 74 |.create_|menu(tit|
|00003230| 6c 65 24 2c 78 25 2c 79 | 25 29 0d 15 86 0d 6d 65 |le$,x%,y|%)....me|
|00003240| 6e 75 79 25 3d 79 25 0d | 15 90 1e f2 62 75 69 6c |nuy%=y%.|....buil|
|00003250| 64 5f 6d 65 6e 75 28 74 | 69 74 6c 65 24 2c 6d 65 |d_menu(t|itle$,me|
|00003260| 6e 75 79 25 29 0d 15 9a | 10 6d 65 6e 75 78 25 3d |nuy%)...|.menux%=|
|00003270| 78 25 2d 36 34 0d 15 a4 | 0d 6d 65 6e 75 79 25 3d |x%-64...|.menuy%=|
|00003280| 79 25 0d 15 ae 2c c8 99 | 20 22 57 69 6d 70 5f 43 |y%...,..| "Wimp_C|
|00003290| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 62 6c 6b 25 |reateMen|u",,blk%|
|000032a0| 2c 6d 65 6e 75 78 25 2c | 6d 65 6e 75 79 25 0d 15 |,menux%,|menuy%..|
|000032b0| b8 05 e1 0d 15 c2 05 3a | 0d 15 cc 22 dd 20 f2 63 |.......:|...". .c|
|000032c0| 72 65 61 74 65 5f 69 63 | 6f 6e 5f 6d 65 6e 75 28 |reate_ic|on_menu(|
|000032d0| 74 69 74 6c 65 24 2c 78 | 25 29 0d 15 d6 0c 6d 65 |title$,x|%)....me|
|000032e0| 6e 75 79 25 3d 30 0d 15 | e0 1e f2 62 75 69 6c 64 |nuy%=0..|...build|
|000032f0| 5f 6d 65 6e 75 28 74 69 | 74 6c 65 24 2c 6d 65 6e |_menu(ti|tle$,men|
|00003300| 75 79 25 29 0d 15 ea 10 | 6d 65 6e 75 78 25 3d 78 |uy%)....|menux%=x|
|00003310| 25 2d 36 34 0d 15 f4 2c | c8 99 20 22 57 69 6d 70 |%-64...,|.. "Wimp|
|00003320| 5f 43 72 65 61 74 65 4d | 65 6e 75 22 2c 2c 62 6c |_CreateM|enu",,bl|
|00003330| 6b 25 2c 6d 65 6e 75 78 | 25 2c 6d 65 6e 75 79 25 |k%,menux|%,menuy%|
|00003340| 0d 15 fe 05 e1 0d 16 08 | 05 3a 0d 16 12 23 dd 20 |........|.:...#. |
|00003350| f2 62 75 69 6c 64 5f 6d | 65 6e 75 28 74 69 74 6c |.build_m|enu(titl|
|00003360| 65 24 2c f8 20 68 65 69 | 67 68 74 25 29 0d 16 1c |e$,. hei|ght%)...|
|00003370| 41 ea 20 6f 66 66 73 65 | 74 25 2c 69 25 2c 6d 65 |A. offse|t%,i%,me|
|00003380| 6e 75 49 74 65 6d 73 25 | 2c 64 6f 74 73 25 2c 77 |nuItems%|,dots%,w|
|00003390| 69 6d 70 66 6c 61 67 73 | 2c 66 6c 61 67 73 2c 70 |impflags|,flags,p|
|000033a0| 74 72 25 2c 6e 61 6d 65 | 24 2c 70 74 72 24 0d 16 |tr%,name|$,ptr$..|
|000033b0| 26 29 6f 66 66 73 65 74 | 25 3d a4 66 69 6e 64 5f |&)offset|%=.find_|
|000033c0| 6d 65 6e 75 28 74 69 74 | 6c 65 24 2c 6d 65 6e 75 |menu(tit|le$,menu|
|000033d0| 5f 64 61 74 61 25 29 0d | 16 30 39 e7 20 6f 66 66 |_data%).|.09. off|
|000033e0| 73 65 74 25 3d b9 20 8c | 20 85 20 34 32 2c 22 43 |set%=. .| . 42,"C|
|000033f0| 61 6e 27 74 20 66 69 6e | 64 20 6d 65 6e 75 20 64 |an't fin|d menu d|
|00003400| 61 74 61 20 66 6f 72 20 | 22 2b 74 69 74 6c 65 24 |ata for |"+title$|
|00003410| 0d 16 3a 2b 62 6c 6b 24 | 3d a4 67 65 74 5f 6d 65 |..:+blk$|=.get_me|
|00003420| 6e 75 5f 69 74 65 6d 28 | 6d 65 6e 75 5f 64 61 74 |nu_item(|menu_dat|
|00003430| 61 25 2c 6f 66 66 73 65 | 74 25 29 0d 16 44 10 62 |a%,offse|t%)..D.b|
|00003440| 6c 6b 25 3d a0 28 62 6c | 6b 24 29 0d 16 4e 15 24 |lk%=.(bl|k$)..N.$|
|00003450| 62 6c 6b 25 3d c0 74 69 | 74 6c 65 24 2c 31 32 29 |blk%=.ti|tle$,12)|
|00003460| 0d 16 58 0d 62 6c 6b 25 | 3f 31 32 3d 37 0d 16 62 |..X.blk%|?12=7..b|
|00003470| 0d 62 6c 6b 25 3f 31 33 | 3d 32 0d 16 6c 0d 62 6c |.blk%?13|=2..l.bl|
|00003480| 6b 25 3f 31 34 3d 37 0d | 16 76 0d 62 6c 6b 25 3f |k%?14=7.|.v.blk%?|
|00003490| 31 35 3d 30 0d 16 80 0f | 62 6c 6b 25 21 31 36 3d |15=0....|blk%!16=|
|000034a0| 31 37 32 0d 16 8a 0e 62 | 6c 6b 25 21 32 30 3d 34 |172....b|lk%!20=4|
|000034b0| 34 0d 16 94 0d 62 6c 6b | 25 21 32 34 3d 30 0d 16 |4....blk|%!24=0..|
|000034c0| 9e 09 69 25 3d 32 38 0d | 16 a8 10 6d 65 6e 75 49 |..i%=28.|...menuI|
|000034d0| 74 65 6d 73 25 3d 30 0d | 16 b2 0b 64 6f 74 73 25 |tems%=0.|...dots%|
|000034e0| 3d 30 0d 16 bc 3a c8 95 | 20 6d 65 6e 75 5f 64 61 |=0...:..| menu_da|
|000034f0| 74 61 25 3f 6f 66 66 73 | 65 74 25 3c 3e 97 22 7e |ta%?offs|et%<>."~|
|00003500| 22 20 80 20 6d 65 6e 75 | 5f 64 61 74 61 25 3f 6f |" . menu|_data%?o|
|00003510| 66 66 73 65 74 25 3c 3e | 97 22 5e 22 0d 16 c6 0e |ffset%<>|."^"....|
|00003520| f2 6d 65 6e 75 5f 69 74 | 65 6d 0d 16 d0 4c e7 20 |.menu_it|em...L. |
|00003530| c2 6e 61 6d 65 24 2c 31 | 29 3d 22 40 22 20 8c 20 |.name$,1|)="@" . |
|00003540| 6e 61 6d 65 24 3d c0 6e | 61 6d 65 24 2c a9 6e 61 |name$=.n|ame$,.na|
|00003550| 6d 65 24 2d 31 29 3a 70 | 74 72 24 3d a4 62 75 69 |me$-1):p|tr$=.bui|
|00003560| 6c 64 5f 73 75 62 6d 65 | 6e 75 28 6e 61 6d 65 24 |ld_subme|nu(name$|
|00003570| 2c 70 6f 73 25 29 0d 16 | da 15 e7 20 28 66 6c 61 |,pos%)..|... (fla|
|00003580| 67 73 20 80 20 34 29 3d | 34 20 8c 0d 16 e4 15 69 |gs . 4)=|4 .....i|
|00003590| 6e 73 74 72 25 3d a7 70 | 74 72 24 2c 22 2c 22 29 |nstr%=.p|tr$,",")|
|000035a0| 0d 16 ee 23 62 6c 6b 25 | 21 28 69 25 2b 31 32 29 |...#blk%|!(i%+12)|
|000035b0| 3d a0 28 c0 70 74 72 24 | 2c 69 6e 73 74 72 25 2d |=.(.ptr$|,instr%-|
|000035c0| 31 29 29 0d 16 f8 18 70 | 74 72 24 3d c1 70 74 72 |1))....p|tr$=.ptr|
|000035d0| 24 2c 69 6e 73 74 72 25 | 2b 31 29 0d 17 02 15 69 |$,instr%|+1)....i|
|000035e0| 6e 73 74 72 25 3d a7 70 | 74 72 24 2c 22 2c 22 29 |nstr%=.p|tr$,",")|
|000035f0| 0d 17 0c 23 62 6c 6b 25 | 21 28 69 25 2b 31 36 29 |...#blk%|!(i%+16)|
|00003600| 3d a0 28 c0 70 74 72 24 | 2c 69 6e 73 74 72 25 2d |=.(.ptr$|,instr%-|
|00003610| 31 29 29 0d 17 16 18 70 | 74 72 24 3d c1 70 74 72 |1))....p|tr$=.ptr|
|00003620| 24 2c 69 6e 73 74 72 25 | 2b 31 29 0d 17 20 18 62 |$,instr%|+1).. .b|
|00003630| 6c 6b 25 21 28 69 25 2b | 32 30 29 3d a0 28 70 74 |lk%!(i%+|20)=.(pt|
|00003640| 72 24 29 0d 17 2a 1d 77 | 69 6d 70 66 6c 61 67 73 |r$)..*.w|impflags|
|00003650| 3d 77 69 6d 70 66 6c 61 | 67 73 20 84 20 32 5e 38 |=wimpfla|gs . 2^8|
|00003660| 0d 17 34 0b 70 74 72 25 | 3d 2d 31 0d 17 3e 28 24 |..4.ptr%|=-1..>($|
|00003670| 28 62 6c 6b 25 21 28 69 | 25 2b 31 32 29 29 3d c0 |(blk%!(i|%+12))=.|
|00003680| 6e 61 6d 65 24 2c 62 6c | 6b 25 21 28 69 25 2b 32 |name$,bl|k%!(i%+2|
|00003690| 30 29 29 0d 17 48 05 cc | 0d 17 52 1c 24 28 62 6c |0))..H..|..R.$(bl|
|000036a0| 6b 25 2b 69 25 2b 31 32 | 29 3d c0 6e 61 6d 65 24 |k%+i%+12|)=.name$|
|000036b0| 2c 31 32 29 0d 17 5c 10 | 70 74 72 25 3d a0 28 70 |,12)..\.|ptr%=.(p|
|000036c0| 74 72 24 29 0d 17 66 05 | cd 0d 17 70 11 62 6c 6b |tr$)..f.|...p.blk|
|000036d0| 25 21 69 25 3d 66 6c 61 | 67 73 0d 17 7a 14 62 6c |%!i%=fla|gs..z.bl|
|000036e0| 6b 25 21 28 69 25 2b 34 | 29 3d 70 74 72 25 0d 17 |k%!(i%+4|)=ptr%..|
|000036f0| 84 19 62 6c 6b 25 21 28 | 69 25 2b 38 29 3d 77 69 |..blk%!(|i%+8)=wi|
|00003700| 6d 70 66 6c 61 67 73 0d | 17 8e 0c 69 25 3d 69 25 |mpflags.|...i%=i%|
|00003710| 2b 32 34 0d 17 98 11 6d | 65 6e 75 49 74 65 6d 73 |+24....m|enuItems|
|00003720| 25 2b 3d 31 0d 17 a2 05 | ce 0d 17 ac 29 68 65 69 |%+=1....|....)hei|
|00003730| 67 68 74 25 3d 39 36 2b | 28 6d 65 6e 75 49 74 65 |ght%=96+|(menuIte|
|00003740| 6d 73 25 2a 34 34 29 2b | 28 64 6f 74 73 25 2a 32 |ms%*44)+|(dots%*2|
|00003750| 34 29 0d 17 b6 1c 63 75 | 72 72 65 6e 74 5f 6d 65 |4)....cu|rrent_me|
|00003760| 6e 75 24 3d c0 24 62 6c | 6b 25 2c 31 32 29 0d 17 |nu$=.$bl|k%,12)..|
|00003770| c0 05 e1 0d 17 ca 05 3a | 0d 17 d4 10 dd 20 f2 6d |.......:|..... .m|
|00003780| 65 6e 75 5f 69 74 65 6d | 0d 17 de 16 77 69 6d 70 |enu_item|....wimp|
|00003790| 66 6c 61 67 73 3d 26 37 | 30 30 30 30 32 31 0d 17 |flags=&7|000021..|
|000037a0| e8 0b 66 6c 61 67 73 3d | 30 0d 17 f2 0d 70 74 72 |..flags=|0....ptr|
|000037b0| 24 3d 22 2d 31 22 0d 17 | fc 0c 66 75 6e 63 24 3d |$="-1"..|..func$=|
|000037c0| 22 22 0d 18 06 2c 6e 61 | 6d 65 24 3d a4 67 65 74 |""...,na|me$=.get|
|000037d0| 5f 6d 65 6e 75 5f 69 74 | 65 6d 28 6d 65 6e 75 5f |_menu_it|em(menu_|
|000037e0| 64 61 74 61 25 2c 6f 66 | 66 73 65 74 25 29 0d 18 |data%,of|fset%)..|
|000037f0| 10 50 e7 20 6d 65 6e 75 | 5f 64 61 74 61 25 3f 6f |.P. menu|_data%?o|
|00003800| 66 66 73 65 74 25 3d 97 | 22 21 22 20 6f 66 66 73 |ffset%=.|"!" offs|
|00003810| 65 74 25 2b 3d 31 3a 70 | 74 72 24 3d a4 67 65 74 |et%+=1:p|tr$=.get|
|00003820| 5f 6d 65 6e 75 5f 69 74 | 65 6d 28 6d 65 6e 75 5f |_menu_it|em(menu_|
|00003830| 64 61 74 61 25 2c 6f 66 | 66 73 65 74 25 29 0d 18 |data%,of|fset%)..|
|00003840| 1a 58 e7 20 6d 65 6e 75 | 5f 64 61 74 61 25 3f 6f |.X. menu|_data%?o|
|00003850| 66 66 73 65 74 25 3d 97 | 22 7b 22 20 6f 66 66 73 |ffset%=.|"{" offs|
|00003860| 65 74 25 2b 3d 31 3a 77 | 69 6d 70 66 6c 61 67 73 |et%+=1:w|impflags|
|00003870| 3d a0 28 a4 67 65 74 5f | 6d 65 6e 75 5f 69 74 65 |=.(.get_|menu_ite|
|00003880| 6d 28 6d 65 6e 75 5f 64 | 61 74 61 25 2c 6f 66 66 |m(menu_d|ata%,off|
|00003890| 73 65 74 25 29 29 0d 18 | 24 51 e7 20 6d 65 6e 75 |set%))..|$Q. menu|
|000038a0| 5f 64 61 74 61 25 3f 6f | 66 66 73 65 74 25 3d 97 |_data%?o|ffset%=.|
|000038b0| 22 5c 22 20 6f 66 66 73 | 65 74 25 2b 3d 31 3a 66 |"\" offs|et%+=1:f|
|000038c0| 75 6e 63 24 3d a4 67 65 | 74 5f 6d 65 6e 75 5f 69 |unc$=.ge|t_menu_i|
|000038d0| 74 65 6d 28 6d 65 6e 75 | 5f 64 61 74 61 25 2c 6f |tem(menu|_data%,o|
|000038e0| 66 66 73 65 74 25 29 0d | 18 2e 49 e7 20 6d 65 6e |ffset%).|..I. men|
|000038f0| 75 5f 64 61 74 61 25 3f | 6f 66 66 73 65 74 25 3d |u_data%?|offset%=|
|00003900| 97 22 7e 22 20 84 20 6d | 65 6e 75 5f 64 61 74 61 |."~" . m|enu_data|
|00003910| 25 3f 6f 66 66 73 65 74 | 25 3d 97 22 5e 22 20 66 |%?offset|%=."^" f|
|00003920| 6c 61 67 73 3d 66 6c 61 | 67 73 20 84 20 26 38 30 |lags=fla|gs . &80|
|00003930| 0d 18 38 2e e7 20 c0 6e | 61 6d 65 24 2c 31 29 3d |..8.. .n|ame$,1)=|
|00003940| 22 7d 22 20 8c 20 66 6c | 61 67 73 2b 3d 31 3a 6e |"}" . fl|ags+=1:n|
|00003950| 61 6d 65 24 3d c1 6e 61 | 6d 65 24 2c 32 29 0d 18 |ame$=.na|me$,2)..|
|00003960| 42 2e e7 20 c0 6e 61 6d | 65 24 2c 31 29 3d 22 23 |B.. .nam|e$,1)="#|
|00003970| 22 20 8c 20 66 6c 61 67 | 73 2b 3d 34 3a 6e 61 6d |" . flag|s+=4:nam|
|00003980| 65 24 3d c1 6e 61 6d 65 | 24 2c 32 29 0d 18 4c 3e |e$=.name|$,2)..L>|
|00003990| e7 20 c2 6e 61 6d 65 24 | 2c 31 29 3d 22 7d 22 20 |. .name$|,1)="}" |
|000039a0| 8c 20 66 6c 61 67 73 2b | 3d 32 3a 6e 61 6d 65 24 |. flags+|=2:name$|
|000039b0| 3d c0 6e 61 6d 65 24 2c | a9 6e 61 6d 65 24 2d 31 |=.name$,|.name$-1|
|000039c0| 29 3a 64 6f 74 73 25 2b | 3d 31 0d 18 56 05 e1 0d |):dots%+|=1..V...|
|000039d0| 18 60 05 3a 0d 18 6a 21 | dd 20 a4 62 75 69 6c 64 |.`.:..j!|. .build|
|000039e0| 5f 73 75 62 6d 65 6e 75 | 28 74 69 74 6c 65 24 2c |_submenu|(title$,|
|000039f0| 70 6f 73 25 29 0d 18 74 | 0f ea 20 62 6c 6b 24 2c |pos%)..t|.. blk$,|
|00003a00| 62 6c 6b 25 0d 18 7e 1c | f2 62 75 69 6c 64 5f 6d |blk%..~.|.build_m|
|00003a10| 65 6e 75 28 74 69 74 6c | 65 24 2c 70 6f 73 25 29 |enu(titl|e$,pos%)|
|00003a20| 0d 18 88 09 3d 62 6c 6b | 24 0d 18 92 05 3a 0d 18 |....=blk|$....:..|
|00003a30| 9c 04 0d 18 a6 28 f4 3d | 3d 3d 3d 3d 45 6e 64 20 |.....(.=|====End |
|00003a40| 6f 66 20 6d 65 6e 75 20 | 73 79 73 74 65 6d 54 57 |of menu |systemTW|
|00003a50| 4f 20 2d 3d 3d 3d 3d 3d | 3d 3d 0d 18 b0 04 0d 18 |O -=====|==......|
|00003a60| ba 04 0d 18 c4 25 f4 20 | 3d 3d 3d 3d 3d 3d 3d 3d |.....%. |========|
|00003a70| 44 69 61 6c 6f 67 20 62 | 6f 78 65 73 3d 3d 3d 3d |Dialog b|oxes====|
|00003a80| 3d 3d 3d 3d 3d 3d 3d 0d | 18 ce 04 0d 18 d8 15 dd |=======.|........|
|00003a90| f2 64 62 6f 78 5f 73 65 | 74 75 70 28 77 68 25 29 |.dbox_se|tup(wh%)|
|00003aa0| 0d 18 e2 09 ea 20 62 6c | 25 0d 18 ec 19 62 6c 25 |..... bl|%....bl%|
|00003ab0| 3d a4 68 65 61 70 5f 6d | 61 6c 6c 6f 63 28 33 30 |=.heap_m|alloc(30|
|00003ac0| 30 29 0d 18 f6 0c 21 62 | 6c 25 3d 77 68 25 0d 19 |0)....!b|l%=wh%..|
|00003ad0| 00 1f c8 99 22 57 69 6d | 70 5f 47 65 74 57 69 6e |...."Wim|p_GetWin|
|00003ae0| 64 6f 77 49 6e 66 6f 22 | 2c 2c 62 6c 25 0d 19 0a |dowInfo"|,,bl%...|
|00003af0| 1c c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |..."Wimp|_OpenWin|
|00003b00| 64 6f 77 22 2c 2c 62 6c | 25 0d 19 14 13 f2 68 65 |dow",,bl|%.....he|
|00003b10| 61 70 5f 66 72 65 65 28 | 62 6c 25 29 0d 19 1e 05 |ap_free(|bl%)....|
|00003b20| e1 0d 19 28 04 0d 19 32 | 04 0d 19 3c 16 dd a4 64 |...(...2|...<...d|
|00003b30| 62 6f 78 5f 66 69 6c 6c | 69 6e 28 77 68 25 29 0d |box_fill|in(wh%).|
|00003b40| 19 46 05 f5 0d 19 50 13 | 20 20 21 62 6c 6f 63 6b |.F....P.|  !block|
|00003b50| 25 3d 6d 61 73 6b 25 0d | 19 5a 27 20 20 c8 99 20 |%=mask%.|.Z'  .. |
|00003b60| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 30 2c 62 6c |"Wimp_Po|ll",0,bl|
|00003b70| 6f 63 6b 25 20 b8 20 72 | 65 61 73 6f 6e 25 0d 19 |ock% . r|eason%..|
|00003b80| 64 12 20 20 c8 8e 20 72 | 65 61 73 6f 6e 25 20 ca |d.  .. r|eason% .|
|00003b90| 0d 19 6e 19 20 20 7f 20 | 3a 20 f4 20 6e 6f 74 68 |..n.  . |: . noth|
|00003ba0| 69 6e 67 20 74 6f 20 64 | 6f 0d 19 78 07 20 20 cb |ing to d|o..x.  .|
|00003bb0| 0d 19 82 37 fd 20 28 72 | 65 61 73 6f 6e 25 3d 36 |...7. (r|eason%=6|
|00003bc0| 20 80 20 62 6c 6f 63 6b | 25 21 31 32 3d 77 68 25 | . block|%!12=wh%|
|00003bd0| 29 20 3a f4 20 36 20 69 | 73 20 61 20 6d 6f 75 73 |) :. 6 i|s a mous|
|00003be0| 65 20 63 6c 69 63 6b 0d | 19 8c 24 3d 62 6c 6f 63 |e click.|..$=bloc|
|00003bf0| 6b 25 21 31 36 20 20 3a | f4 20 74 68 65 20 72 65 |k%!16  :|. the re|
|00003c00| 74 75 72 6e 65 64 20 49 | 43 4f 4e 0d 19 96 04 0d |turned I|CON.....|
|00003c10| 19 a0 04 0d 19 aa 17 dd | f2 64 62 6f 78 5f 64 69 |........|.dbox_di|
|00003c20| 73 70 6f 73 65 28 77 68 | 25 29 0d 19 b4 17 20 f2 |spose(wh|%).... .|
|00003c30| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 77 68 25 |close_wi|ndow(wh%|
|00003c40| 29 0d 19 be 05 e1 0d 19 | c8 04 0d 19 d2 04 0d 19 |).......|........|
|00003c50| dc 23 f4 3d 3d 3d 3d 3d | 3d 3d 3d 45 6e 64 20 6f |.#.=====|===End o|
|00003c60| 66 20 44 62 6f 78 65 73 | 3d 3d 3d 3d 3d 3d 3d 3d |f Dboxes|========|
|00003c70| 3d 0d 19 e6 04 0d 19 f0 | 04 0d 19 fa 12 dd 20 f2 |=.......|...... .|
|00003c80| 6d 65 6e 75 5f 73 65 6c | 65 63 74 0d 1a 04 20 c8 |menu_sel|ect... .|
|00003c90| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00003ca0| 65 72 49 6e 66 6f 22 2c | 2c 71 25 0d 1a 0e 0d 62 |erInfo",|,q%....b|
|00003cb0| 75 74 25 3d 71 25 21 38 | 0d 1a 18 0c 64 65 70 74 |ut%=q%!8|....dept|
|00003cc0| 68 25 3d 30 0d 1a 22 1f | f2 64 65 63 6f 64 65 5f |h%=0..".|.decode_|
|00003cd0| 6d 65 6e 75 28 63 75 72 | 72 65 6e 74 5f 6d 65 6e |menu(cur|rent_men|
|00003ce0| 75 24 29 0d 1a 2c 14 e7 | 20 28 62 75 74 25 20 80 |u$)..,..| (but% .|
|00003cf0| 20 31 29 3d 31 20 8c 0d | 1a 36 2d f2 72 65 5f 6f | 1)=1 ..|.6-.re_o|
|00003d00| 70 65 6e 6d 65 6e 75 28 | 63 75 72 72 65 6e 74 5f |penmenu(|current_|
|00003d10| 6d 65 6e 75 24 2c 6d 65 | 6e 75 78 25 2c 6d 65 6e |menu$,me|nux%,men|
|00003d20| 75 79 25 29 0d 1a 40 05 | cc 0d 1a 4a 14 63 75 72 |uy%)..@.|...J.cur|
|00003d30| 72 65 6e 74 5f 6d 65 6e | 75 24 3d 22 22 0d 1a 54 |rent_men|u$=""..T|
|00003d40| 05 cd 0d 1a 5e 05 e1 0d | 1a 68 05 3a 0d 1a 72 26 |....^...|.h.:..r&|
|00003d50| dd 20 f2 72 65 5f 6f 70 | 65 6e 6d 65 6e 75 28 74 |. .re_op|enmenu(t|
|00003d60| 69 74 6c 65 24 2c 6d 65 | 6e 78 25 2c 6d 65 6e 79 |itle$,me|nx%,meny|
|00003d70| 25 29 0d 1a 7c 29 6f 66 | 66 73 65 74 25 3d a4 66 |%)..|)of|fset%=.f|
|00003d80| 69 6e 64 5f 6d 65 6e 75 | 28 74 69 74 6c 65 24 2c |ind_menu|(title$,|
|00003d90| 6d 65 6e 75 5f 64 61 74 | 61 25 29 0d 1a 86 2e 62 |menu_dat|a%)....b|
|00003da0| 6c 6b 25 3d a0 28 a4 67 | 65 74 5f 6d 65 6e 75 5f |lk%=.(.g|et_menu_|
|00003db0| 69 74 65 6d 28 6d 65 6e | 75 5f 64 61 74 61 25 2c |item(men|u_data%,|
|00003dc0| 6f 66 66 73 65 74 25 29 | 29 0d 1a 90 2a c8 99 20 |offset%)|)...*.. |
|00003dd0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00003de0| 22 2c 2c 62 6c 6b 25 2c | 6d 65 6e 78 25 2c 6d 65 |",,blk%,|menx%,me|
|00003df0| 6e 79 25 0d 1a 9a 18 63 | 75 72 72 65 6e 74 5f 6d |ny%....c|urrent_m|
|00003e00| 65 6e 75 24 3d 74 69 74 | 6c 65 24 0d 1a a4 05 e1 |enu$=tit|le$.....|
|00003e10| 0d 1a ae 05 3a 0d 1a b8 | 1a dd 20 f2 64 65 63 6f |....:...|.. .deco|
|00003e20| 64 65 5f 6d 65 6e 75 28 | 74 69 74 6c 65 24 29 0d |de_menu(|title$).|
|00003e30| 1a c2 15 ea 20 6d 65 6e | 5f 6c 6f 6f 70 25 2c 66 |.... men|_loop%,f|
|00003e40| 75 6e 63 24 0d 1a cc 29 | 6f 66 66 73 65 74 25 3d |unc$...)|offset%=|
|00003e50| a4 66 69 6e 64 5f 6d 65 | 6e 75 28 74 69 74 6c 65 |.find_me|nu(title|
|00003e60| 24 2c 6d 65 6e 75 5f 64 | 61 74 61 25 29 0d 1a d6 |$,menu_d|ata%)...|
|00003e70| 2e 62 6c 6b 25 3d a0 28 | a4 67 65 74 5f 6d 65 6e |.blk%=.(|.get_men|
|00003e80| 75 5f 69 74 65 6d 28 6d | 65 6e 75 5f 64 61 74 61 |u_item(m|enu_data|
|00003e90| 25 2c 6f 66 66 73 65 74 | 25 29 29 0d 1a e0 0f 6d |%,offset|%))....m|
|00003ea0| 65 6e 5f 6c 6f 6f 70 25 | 3d 30 0d 1a ea 1f c8 95 |en_loop%|=0......|
|00003eb0| 20 6d 65 6e 5f 6c 6f 6f | 70 25 3c 3d 62 6c 6f 63 | men_loo|p%<=bloc|
|00003ec0| 6b 25 21 64 65 70 74 68 | 25 0d 1a f4 0b 64 6f 74 |k%!depth|%....dot|
|00003ed0| 73 25 3d 30 0d 1a fe 0e | f2 6d 65 6e 75 5f 69 74 |s%=0....|.menu_it|
|00003ee0| 65 6d 0d 1b 08 10 6d 65 | 6e 5f 6c 6f 6f 70 25 2b |em....me|n_loop%+|
|00003ef0| 3d 31 0d 1b 12 05 ce 0d | 1b 1c 18 e7 20 62 6c 6f |=1......|.... blo|
|00003f00| 63 6b 25 21 64 65 70 74 | 68 25 3e 2d 31 20 8c 0d |ck%!dept|h%>-1 ..|
|00003f10| 1b 26 15 e7 20 c2 6e 61 | 6d 65 24 2c 31 29 3d 22 |.&.. .na|me$,1)="|
|00003f20| 40 22 20 8c 0d 1b 30 1a | 6e 61 6d 65 24 3d c0 6e |@" ...0.|name$=.n|
|00003f30| 61 6d 65 24 2c a9 6e 61 | 6d 65 24 2d 31 29 0d 1b |ame$,.na|me$-1)..|
|00003f40| 3a 0d 64 65 70 74 68 25 | 2b 3d 34 0d 1b 44 17 f2 |:.depth%|+=4..D..|
|00003f50| 64 65 63 6f 64 65 5f 6d | 65 6e 75 28 6e 61 6d 65 |decode_m|enu(name|
|00003f60| 24 29 0d 1b 4e 05 cd 0d | 1b 58 21 e7 20 66 75 6e |$)..N...|.X!. fun|
|00003f70| 63 24 3c 3e 22 22 20 8c | 20 61 3d a0 28 22 46 4e |c$<>"" .| a=.("FN|
|00003f80| 22 2b 66 75 6e 63 24 29 | 0d 1b 62 05 cd 0d 1b 6c |"+func$)|..b....l|
|00003f90| 05 e1 0d 1b 76 04 0d 1b | 80 04 0d 1b 8a 31 dd 20 |....v...|.....1. |
|00003fa0| f2 74 65 6d 70 6c 61 74 | 65 73 28 74 6e 61 6d 65 |.templat|es(tname|
|00003fb0| 24 28 29 2c 6e 75 6d 2c | f8 20 74 68 61 6e 64 6c |$(),num,|. thandl|
|00003fc0| 65 25 28 29 2c 66 69 6c | 65 24 29 0d 1b 94 08 ea |e%(),fil|e$).....|
|00003fd0| 20 49 25 0d 1b 9e 0f 6d | 61 78 77 73 25 3d 26 34 | I%....m|axws%=&4|
|00003fe0| 30 30 0d 1b a8 21 c8 99 | 20 22 57 69 6d 70 5f 4f |00...!..| "Wimp_O|
|00003ff0| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 66 69 |penTempl|ate",,fi|
|00004000| 6c 65 24 0d 1b b2 10 e3 | 20 49 25 3d 31 20 b8 20 |le$.....| I%=1 . |
|00004010| 6e 75 6d 0d 1b bc 1d 20 | 20 20 20 51 25 3d a4 68 |num.... |   Q%=.h|
|00004020| 65 61 70 5f 6d 61 6c 6c | 6f 63 28 32 30 34 38 29 |eap_mall|oc(2048)|
|00004030| 0d 1b c6 23 20 20 20 20 | 69 6e 64 69 72 25 3d a4 |...#    |indir%=.|
|00004040| 68 65 61 70 5f 6d 61 6c | 6c 6f 63 28 6d 61 78 77 |heap_mal|loc(maxw|
|00004050| 73 25 29 0d 1b d0 47 20 | 20 20 20 c8 99 20 22 57 |s%)...G |   .. "W|
|00004060| 69 6d 70 5f 4c 6f 61 64 | 54 65 6d 70 6c 61 74 65 |imp_Load|Template|
|00004070| 22 2c 2c 51 25 2c 69 6e | 64 69 72 25 2c 69 6e 64 |",,Q%,in|dir%,ind|
|00004080| 69 72 25 2b 6d 61 78 77 | 73 25 2c 2d 31 2c 74 6e |ir%+maxw|s%,-1,tn|
|00004090| 61 6d 65 24 28 49 25 29 | 2c 30 0d 1b da 31 20 20 |ame$(I%)|,0...1  |
|000040a0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |  .. "Wi|mp_Creat|
|000040b0| 65 57 69 6e 64 6f 77 22 | 2c 2c 51 25 20 b8 20 74 |eWindow"|,,Q% . t|
|000040c0| 68 61 6e 64 6c 65 25 28 | 49 25 29 0d 1b e4 08 ed |handle%(|I%).....|
|000040d0| 20 49 25 0d 1b ee 1b c8 | 99 20 22 57 69 6d 70 5f | I%.....|. "Wimp_|
|000040e0| 43 6c 6f 73 65 54 65 6d | 70 6c 61 74 65 22 0d 1b |CloseTem|plate"..|
|000040f0| f8 05 e1 0d 1c 02 04 0d | 1c 0c 04 0d 1c 16 04 0d |........|........|
|00004100| 1c 20 1d dd 20 f2 73 65 | 74 5f 66 69 65 6c 64 28 |. .. .se|t_field(|
|00004110| 70 74 25 2c 48 25 2c 76 | 65 72 24 29 0d 1c 2a 0b |pt%,H%,v|er$)..*.|
|00004120| 21 71 25 3d 70 74 25 0d | 1c 34 0b 71 25 21 34 3d |!q%=pt%.|.4.q%!4=|
|00004130| 48 25 0d 1c 3e 1d c8 99 | 22 57 69 6d 70 5f 47 65 |H%..>...|"Wimp_Ge|
|00004140| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00004150| 1c 48 0f 24 71 25 21 32 | 38 3d 76 65 72 24 0d 1c |.H.$q%!2|8=ver$..|
|00004160| 52 0a 71 25 21 38 3d 30 | 0d 1c 5c 0b 71 25 21 31 |R.q%!8=0|..\.q%!1|
|00004170| 32 3d 30 0d 1c 66 1e c8 | 99 20 22 57 69 6d 70 5f |2=0..f..|. "Wimp_|
|00004180| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00004190| 25 0d 1c 70 05 e1 0d 1c | 7a 04 0d 1c 84 04 0d 1c |%..p....|z.......|
|000041a0| 8e 17 dd f2 66 61 64 65 | 5f 66 69 65 6c 64 28 77 |....fade|_field(w|
|000041b0| 25 2c 69 25 29 0d 1c 98 | 2c f4 20 66 61 64 65 20 |%,i%)...|,. fade |
|000041c0| 74 68 65 20 66 69 65 6c | 64 20 74 6f 20 6d 61 6b |the fiel|d to mak|
|000041d0| 65 20 69 74 20 75 6e 73 | 65 6c 65 63 74 61 62 6c |e it uns|electabl|
|000041e0| 65 0d 1c a2 0f ea 20 66 | 6c 61 67 73 25 2c 62 25 |e..... f|lags%,b%|
|000041f0| 0d 1c ac 17 62 25 3d a4 | 68 65 61 70 5f 6d 61 6c |....b%=.|heap_mal|
|00004200| 6c 6f 63 28 32 30 29 0d | 1c b6 0a 21 62 25 3d 77 |loc(20).|...!b%=w|
|00004210| 25 0d 1c c0 0b 62 25 21 | 34 3d 69 25 0d 1c ca 0e |%....b%!|4=i%....|
|00004220| 62 25 21 38 3d 31 3c 3c | 32 32 0d 1c d4 0f 62 25 |b%!8=1<<|22....b%|
|00004230| 21 31 32 3d 31 3c 3c 32 | 32 0d 1c de 1d c8 99 22 |!12=1<<2|2......"|
|00004240| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00004250| 65 22 2c 2c 62 25 0d 1c | e8 12 f2 68 65 61 70 5f |e",,b%..|...heap_|
|00004260| 66 72 65 65 28 62 25 29 | 0d 1c f2 05 e1 0d 1c fc |free(b%)|........|
|00004270| 04 0d 1d 06 04 0d 1d 10 | 19 dd f2 75 6e 66 61 64 |........|...unfad|
|00004280| 65 5f 66 69 65 6c 64 28 | 77 25 2c 69 25 29 0d 1d |e_field(|w%,i%)..|
|00004290| 1a 2d f4 20 75 6e 66 61 | 64 65 73 20 74 68 65 20 |.-. unfa|des the |
|000042a0| 66 69 65 6c 64 20 74 6f | 20 6d 61 6b 65 20 69 74 |field to| make it|
|000042b0| 20 73 65 6c 65 63 74 61 | 62 6c 65 0d 1d 24 0f ea | selecta|ble..$..|
|000042c0| 20 66 6c 61 67 73 25 2c | 62 25 0d 1d 2e 17 62 25 | flags%,|b%....b%|
|000042d0| 3d a4 68 65 61 70 5f 6d | 61 6c 6c 6f 63 28 32 30 |=.heap_m|alloc(20|
|000042e0| 29 0d 1d 38 0a 21 62 25 | 3d 77 25 0d 1d 42 0b 62 |)..8.!b%|=w%..B.b|
|000042f0| 25 21 34 3d 69 25 0d 1d | 4c 0a 62 25 21 38 3d 30 |%!4=i%..|L.b%!8=0|
|00004300| 0d 1d 56 0f 62 25 21 31 | 32 3d 31 3c 3c 32 32 0d |..V.b%!1|2=1<<22.|
|00004310| 1d 60 1d c8 99 22 57 69 | 6d 70 5f 53 65 74 49 63 |.`..."Wi|mp_SetIc|
|00004320| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 25 0d 1d 6a 12 |onState"|,,b%..j.|
|00004330| f2 68 65 61 70 5f 66 72 | 65 65 28 62 25 29 0d 1d |.heap_fr|ee(b%)..|
|00004340| 74 05 e1 0d 1d 7e 04 0d | 1d 88 18 dd f2 73 65 6c |t....~..|.....sel|
|00004350| 65 63 74 5f 69 63 6f 6e | 28 77 25 2c 69 25 29 0d |ect_icon|(w%,i%).|
|00004360| 1d 92 31 f4 20 73 65 6c | 65 63 74 73 20 74 68 65 |..1. sel|ects the|
|00004370| 20 69 63 6f 6e 20 28 67 | 65 6e 65 72 61 6c 6c 79 | icon (g|enerally|
|00004380| 20 61 20 72 61 64 69 6f | 20 62 75 74 74 6f 6e 29 | a radio| button)|
|00004390| 0d 1d 9c 0f ea 20 66 6c | 61 67 73 25 2c 62 25 0d |..... fl|ags%,b%.|
|000043a0| 1d a6 17 62 25 3d a4 68 | 65 61 70 5f 6d 61 6c 6c |...b%=.h|eap_mall|
|000043b0| 6f 63 28 32 30 29 0d 1d | b0 0a 21 62 25 3d 77 25 |oc(20)..|..!b%=w%|
|000043c0| 0d 1d ba 0b 62 25 21 34 | 3d 69 25 0d 1d c4 10 62 |....b%!4|=i%....b|
|000043d0| 25 21 38 3d 28 31 3c 3c | 32 31 29 0d 1d ce 19 62 |%!8=(1<<|21)....b|
|000043e0| 25 21 31 32 3d 28 31 3c | 3c 32 32 29 2b 28 31 3c |%!12=(1<|<22)+(1<|
|000043f0| 3c 32 31 29 0d 1d d8 1d | c8 99 22 57 69 6d 70 5f |<21)....|.."Wimp_|
|00004400| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |SetIconS|tate",,b|
|00004410| 25 0d 1d e2 12 f2 68 65 | 61 70 5f 66 72 65 65 28 |%.....he|ap_free(|
|00004420| 62 25 29 0d 1d ec 05 e1 | 0d 1d f6 04 0d 1e 00 04 |b%).....|........|
|00004430| 0d 1e 0a 1a dd f2 75 6e | 73 65 6c 65 63 74 5f 69 |......un|select_i|
|00004440| 63 6f 6e 28 77 25 2c 69 | 25 29 0d 1e 14 33 f4 20 |con(w%,i|%)...3. |
|00004450| 75 6e 73 65 6c 65 63 74 | 73 20 74 68 65 20 69 63 |unselect|s the ic|
|00004460| 6f 6e 20 28 67 65 6e 65 | 72 61 6c 6c 79 20 61 20 |on (gene|rally a |
|00004470| 72 61 64 69 6f 20 62 75 | 74 74 6f 6e 29 0d 1e 1e |radio bu|tton)...|
|00004480| 0f ea 20 66 6c 61 67 73 | 25 2c 62 25 0d 1e 28 17 |.. flags|%,b%..(.|
|00004490| 62 25 3d a4 68 65 61 70 | 5f 6d 61 6c 6c 6f 63 28 |b%=.heap|_malloc(|
|000044a0| 32 30 29 0d 1e 32 0a 21 | 62 25 3d 77 25 0d 1e 3c |20)..2.!|b%=w%..<|
|000044b0| 0b 62 25 21 34 3d 69 25 | 0d 1e 46 0a 62 25 21 38 |.b%!4=i%|..F.b%!8|
|000044c0| 3d 30 0d 1e 50 19 62 25 | 21 31 32 3d 28 31 3c 3c |=0..P.b%|!12=(1<<|
|000044d0| 32 32 29 2b 28 31 3c 3c | 32 31 29 0d 1e 5a 1d c8 |22)+(1<<|21)..Z..|
|000044e0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|000044f0| 61 74 65 22 2c 2c 62 25 | 0d 1e 64 12 f2 68 65 61 |ate",,b%|..d..hea|
|00004500| 70 5f 66 72 65 65 28 62 | 25 29 0d 1e 6e 05 e1 0d |p_free(b|%)..n...|
|00004510| 1e 78 04 0d 1e 82 04 0d | 1e 8c 04 0d 1e 96 04 0d |.x......|........|
|00004520| 1e a0 1e dd a4 67 65 74 | 5f 66 69 65 6c 64 28 77 |.....get|_field(w|
|00004530| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 29 0d 1e aa |indow%,i|con%)...|
|00004540| 0f 21 71 25 3d 77 69 6e | 64 6f 77 25 0d 1e b4 0e |.!q%=win|dow%....|
|00004550| 71 25 21 34 3d 69 63 6f | 6e 25 0d 1e be 1d c8 99 |q%!4=ico|n%......|
|00004560| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00004570| 74 65 22 2c 2c 71 25 0d | 1e c8 0b 3d 24 71 25 21 |te",,q%.|...=$q%!|
|00004580| 32 38 0d 1e d2 04 0d 1e | dc 25 dd a4 69 73 5f 69 |28......|.%..is_i|
|00004590| 63 6f 6e 5f 73 65 6c 65 | 63 74 65 64 28 77 69 6e |con_sele|cted(win|
|000045a0| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 1e e6 0f 21 |dow%,ico|n%)....!|
|000045b0| 71 25 3d 77 69 6e 64 6f | 77 25 0d 1e f0 0e 71 25 |q%=windo|w%....q%|
|000045c0| 21 34 3d 69 63 6f 6e 25 | 0d 1e fa 1d c8 99 22 57 |!4=icon%|......"W|
|000045d0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|000045e0| 22 2c 2c 71 25 0d 1f 04 | 1e 3d 28 28 28 71 25 21 |",,q%...|.=(((q%!|
|000045f0| 32 34 29 20 80 20 28 31 | 3c 3c 32 31 29 29 20 3c |24) . (1|<<21)) <|
|00004600| 3e 30 29 0d 1f 0e 04 0d | 1f 18 0d dd 20 f2 66 69 |>0).....|.... .fi|
|00004610| 6e 69 73 68 0d 1f 22 21 | c8 99 20 22 57 69 6d 70 |nish.."!|.. "Wimp|
|00004620| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 74 61 73 6b |_CloseDo|wn",task|
|00004630| 25 2c 21 71 25 0d 1f 2c | 05 e0 0d 1f 36 05 e1 0d |%,!q%..,|....6...|
|00004640| 1f 40 05 3a 0d 1f 4a 0c | dd 20 f2 65 72 72 6f 72 |.@.:..J.|. .error|
|00004650| 0d 1f 54 18 c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |..T... "|Wimp_Dra|
|00004660| 67 42 6f 78 22 2c 2c 30 | 0d 1f 5e 0d 21 62 6c 6f |gBox",,0|..^.!blo|
|00004670| 63 6b 25 3d 9f 0d 1f 68 | 0b 65 72 72 6f 72 3d b9 |ck%=...h|.error=.|
|00004680| 0d 1f 72 0a c8 8e 20 9f | 20 ca 0d 1f 7c 3d c9 20 |..r... .| ...|=. |
|00004690| 32 32 32 20 3a 20 24 28 | 62 6c 6f 63 6b 25 2b 34 |222 : $(|block%+4|
|000046a0| 29 3d 22 54 68 69 73 20 | 66 69 6c 65 20 64 6f 65 |)="This |file doe|
|000046b0| 73 20 6e 6f 74 20 65 78 | 69 73 74 22 2b bd 30 3a |s not ex|ist"+.0:|
|000046c0| 65 72 72 6f 72 3d a3 0d | 1f 86 05 7f 0d 1f 90 37 |error=..|.......7|
|000046d0| 24 28 62 6c 6f 63 6b 25 | 2b 34 29 3d 22 28 49 6e |$(block%|+4)="(In|
|000046e0| 74 65 72 6e 61 6c 20 65 | 72 72 6f 72 20 63 6f 64 |ternal e|rror cod|
|000046f0| 65 20 22 2b c3 28 9e 29 | 2b 22 29 20 22 2b f6 24 |e "+.(.)|+") "+.$|
|00004700| 2b bd 30 0d 1f 9a 05 cb | 0d 1f a4 0b 66 6c 61 67 |+.0.....|....flag|
|00004710| 73 3d 31 0d 1f ae 33 c8 | 99 20 22 57 69 6d 70 5f |s=1...3.|. "Wimp_|
|00004720| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 62 6c 6f |ReportEr|ror",blo|
|00004730| 63 6b 25 2c 66 6c 61 67 | 73 2c 61 70 70 6c 69 63 |ck%,flag|s,applic|
|00004740| 5f 6e 61 6d 65 24 0d 1f | b8 1f e7 20 65 72 72 6f |_name$..|... erro|
|00004750| 72 20 8c 20 f2 66 69 6e | 69 73 68 20 8b 20 f2 6d |r . .fin|ish . .m|
|00004760| 61 69 6e 3a e0 0d 1f c2 | 05 e1 0d 1f cc 04 0d 1f |ain:....|........|
|00004770| d6 04 0d 1f e0 18 dd 20 | f2 63 6c 6f 73 65 5f 77 |....... |.close_w|
|00004780| 69 6e 64 6f 77 28 77 68 | 25 29 0d 1f ea 09 ea 20 |indow(wh|%)..... |
|00004790| 62 6c 25 0d 1f f4 17 62 | 6c 25 3d a4 68 65 61 70 |bl%....b|l%=.heap|
|000047a0| 5f 6d 61 6c 6c 6f 63 28 | 35 29 0d 1f fe 0c 21 62 |_malloc(|5)....!b|
|000047b0| 6c 25 3d 77 68 25 0d 20 | 08 1e c8 99 20 22 57 69 |l%=wh%. |.... "Wi|
|000047c0| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|000047d0| 2c 62 6c 25 0d 20 12 13 | f2 68 65 61 70 5f 66 72 |,bl%. ..|.heap_fr|
|000047e0| 65 65 28 62 6c 25 29 0d | 20 1c 05 e1 0d 20 26 04 |ee(bl%).| .... &.|
|000047f0| 0d 20 30 04 0d 20 3a 04 | 0d 20 44 24 dd 20 f2 6f |. 0.. :.|. D$. .o|
|00004800| 70 65 6e 5f 77 69 6e 64 | 6f 77 5f 66 72 6f 6d 5f |pen_wind|ow_from_|
|00004810| 74 65 6d 70 6c 61 74 65 | 28 77 25 29 0d 20 4e 08 |template|(w%). N.|
|00004820| ea 20 62 25 0d 20 58 19 | 62 25 3d a4 68 65 61 70 |. b%. X.|b%=.heap|
|00004830| 5f 6d 61 6c 6c 6f 63 28 | 31 30 30 30 29 0d 20 62 |_malloc(|1000). b|
|00004840| 43 e7 20 62 25 3d 30 20 | 8c 20 85 20 30 2c 22 4e |C. b%=0 |. . 0,"N|
|00004850| 6f 74 20 65 6e 6f 75 67 | 68 20 6d 65 6d 6f 72 79 |ot enoug|h memory|
|00004860| 20 66 6f 72 20 62 6c 6f | 63 6b 20 28 4f 50 45 4e | for blo|ck (OPEN|
|00004870| 20 66 72 6f 6d 20 74 65 | 6d 70 6c 61 74 65 29 22 | from te|mplate)"|
|00004880| 0d 20 6c 0a 21 62 25 3d | 77 25 0d 20 76 1e c8 99 |. l.!b%=|w%. v...|
|00004890| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|000048a0| 6e 66 6f 22 2c 2c 62 25 | 0d 20 80 0c 62 25 21 32 |nfo",,b%|. ..b%!2|
|000048b0| 38 3d 2d 31 0d 20 8a 14 | f2 6f 70 65 6e 5f 77 69 |8=-1. ..|.open_wi|
|000048c0| 6e 64 6f 77 28 62 25 29 | 0d 20 94 12 f2 68 65 61 |ndow(b%)|. ...hea|
|000048d0| 70 5f 66 72 65 65 28 62 | 25 29 0d 20 9e 05 e1 0d |p_free(b|%). ....|
|000048e0| 20 a8 04 0d 20 b2 04 0d | 20 bc 15 dd f2 6f 70 65 | ... ...| ....ope|
|000048f0| 6e 5f 77 69 6e 64 6f 77 | 28 62 25 29 0d 20 c6 1c |n_window|(b%). ..|
|00004900| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00004910| 64 6f 77 22 2c 2c 62 25 | 0d 20 d0 05 e1 0d 20 da |dow",,b%|. .... .|
|00004920| 04 0d 20 e4 04 0d 20 ee | 04 0d 20 f8 04 0d 21 02 |.. ... .|.. ...!.|
|00004930| 20 dd 20 a4 67 65 74 5f | 6d 65 6e 75 5f 69 74 65 | . .get_|menu_ite|
|00004940| 6d 28 64 62 25 2c f8 20 | 6f 66 66 25 29 0d 21 0c |m(db%,. |off%).!.|
|00004950| 09 ea 20 73 74 24 0d 21 | 16 22 c8 95 20 64 62 25 |.. st$.!|.".. db%|
|00004960| 3f 6f 66 66 25 3c 3e 31 | 30 20 80 20 64 62 25 3f |?off%<>1|0 . db%?|
|00004970| 6f 66 66 25 3c 3e 31 33 | 0d 21 20 14 73 74 24 2b |off%<>13|.! .st$+|
|00004980| 3d bd 28 64 62 25 3f 6f | 66 66 25 29 0d 21 2a 0b |=.(db%?o|ff%).!*.|
|00004990| 6f 66 66 25 2b 3d 31 0d | 21 34 05 ce 0d 21 3e 0b |off%+=1.|!4...!>.|
|000049a0| 6f 66 66 25 2b 3d 31 0d | 21 48 08 3d 73 74 24 0d |off%+=1.|!H.=st$.|
|000049b0| 21 52 05 3a 0d 21 5c 1d | dd 20 a4 66 69 6e 64 5f |!R.:.!\.|. .find_|
|000049c0| 6d 65 6e 75 28 6e 61 6d | 65 24 2c 64 61 74 61 25 |menu(nam|e$,data%|
|000049d0| 29 0d 21 66 09 ea 20 66 | 69 24 0d 21 70 13 6e 61 |).!f.. f|i$.!p.na|
|000049e0| 6d 65 24 3d 22 5e 22 2b | 6e 61 6d 65 24 0d 21 7a |me$="^"+|name$.!z|
|000049f0| 0d 6f 66 66 73 65 74 25 | 3d 30 0d 21 84 05 f5 0d |.offset%|=0.!....|
|00004a00| 21 8e 25 66 69 24 3d a4 | 67 65 74 5f 6d 65 6e 75 |!.%fi$=.|get_menu|
|00004a10| 5f 69 74 65 6d 28 64 61 | 74 61 25 2c 6f 66 66 73 |_item(da|ta%,offs|
|00004a20| 65 74 25 29 0d 21 98 19 | fd 20 66 69 24 3d 6e 61 |et%).!..|. fi$=na|
|00004a30| 6d 65 24 20 84 20 66 69 | 24 3d 22 7e 22 0d 21 a2 |me$ . fi|$="~".!.|
|00004a40| 12 e7 20 66 69 24 3d 22 | 7e 22 20 8c 20 3d b9 0d |.. fi$="|~" . =..|
|00004a50| 21 ac 0c 3d 6f 66 66 73 | 65 74 25 0d 21 b6 05 3a |!..=offs|et%.!..:|
|00004a60| 0d 21 c0 0a dd 20 a4 66 | 69 6e 0d 21 ca 0b f2 66 |.!... .f|in.!...f|
|00004a70| 69 6e 69 73 68 0d 21 d4 | 06 3d 30 0d 21 de 05 3a |inish.!.|.=0.!..:|
|00004a80| 0d 21 e8 04 0d 21 f2 0e | dd a4 64 72 61 77 66 6f |.!...!..|..drawfo|
|00004a90| 6e 74 0d 21 fc 08 ea 20 | 49 25 0d 22 06 08 49 25 |nt.!... |I%."..I%|
|00004aa0| 3d 30 0d 22 10 17 66 6f | 6e 74 24 28 31 29 3d 24 |=0."..fo|nt$(1)=$|
|00004ab0| 64 72 61 77 66 6f 6e 74 | 25 0d 22 1a 06 3d 30 0d |drawfont|%."..=0.|
|00004ac0| 22 24 04 0d 22 2e 04 0d | 22 38 0a dd a4 64 62 6f |"$.."...|"8...dbo|
|00004ad0| 78 0d 22 42 0b ea 20 66 | 69 65 6c 64 0d 22 4c 16 |x."B.. f|ield."L.|
|00004ae0| f2 64 62 6f 78 5f 73 65 | 74 75 70 28 64 62 6f 78 |.dbox_se|tup(dbox|
|00004af0| 25 29 0d 22 56 05 f5 0d | 22 60 20 20 20 20 66 69 |%)."V...|"`    fi|
|00004b00| 65 6c 64 3d a4 64 62 6f | 78 5f 66 69 6c 6c 69 6e |eld=.dbo|x_fillin|
|00004b10| 28 64 62 6f 78 25 29 0d | 22 6a 0d fd 20 66 69 65 |(dbox%).|"j.. fie|
|00004b20| 6c 64 3d 32 0d 22 74 18 | f2 64 62 6f 78 5f 64 69 |ld=2."t.|.dbox_di|
|00004b30| 73 70 6f 73 65 28 64 62 | 6f 78 25 29 0d 22 7e 06 |spose(db|ox%)."~.|
|00004b40| 3d 30 0d 22 88 04 0d 22 | 92 23 f4 3d 3d 3d 3d 3d |=0."..."|.#.=====|
|00004b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 22 9c 1f f4 20 57 |========|=."... W|
|00004b70| 49 4d 50 20 69 6e 74 65 | 72 66 61 63 65 20 66 6f |IMP inte|rface fo|
|00004b80| 72 20 21 67 72 61 70 68 | 0d 22 a6 22 f4 3d 3d 3d |r !graph|.".".===|
|00004b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ba0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 22 b0 04 0d 22 |========|==."..."|
|00004bb0| ba 17 f4 20 6d 65 6e 75 | 20 66 75 6e 63 74 69 6f |... menu| functio|
|00004bc0| 6e 73 2e 2e 2e 0d 22 c4 | 04 0d 22 ce 0d dd a4 6b |ns....".|.."....k|
|00004bd0| 65 79 64 65 66 73 0d 22 | d8 06 3d 30 0d 22 e2 04 |eydefs."|..=0."..|
|00004be0| 0d 22 ec 04 0d 22 f6 11 | dd a4 63 6c 65 61 72 5f |."..."..|..clear_|
|00004bf0| 67 72 61 70 68 0d 23 00 | 11 6e 75 6d 63 75 72 76 |graph.#.|.numcurv|
|00004c00| 65 73 25 3d 2d 31 0d 23 | 0a 2c c8 99 22 57 69 6d |es%=-1.#|.,.."Wim|
|00004c10| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 6d |p_ForceR|edraw",m|
|00004c20| 61 69 6e 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |ain%,0,0|,1280,10|
|00004c30| 32 34 0d 23 14 06 3d 30 | 0d 23 1e 04 0d 23 28 04 |24.#..=0|.#...#(.|
|00004c40| 0d 23 32 18 dd f2 66 6f | 72 63 65 5f 72 65 64 72 |.#2...fo|rce_redr|
|00004c50| 61 77 5f 67 72 61 70 68 | 0d 23 3c 2c c8 99 22 57 |aw_graph|.#<,.."W|
|00004c60| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|00004c70| 2c 6d 61 69 6e 25 2c 30 | 2c 30 2c 31 32 38 30 2c |,main%,0|,0,1280,|
|00004c80| 31 30 32 34 0d 23 46 05 | e1 0d 23 50 04 0d 23 5a |1024.#F.|..#P..#Z|
|00004c90| 04 0d 23 64 11 dd a4 64 | 72 61 77 5f 67 72 61 70 |..#d...d|raw_grap|
|00004ca0| 68 73 0d 23 6e 17 f2 66 | 6f 72 63 65 5f 72 65 64 |hs.#n..f|orce_red|
|00004cb0| 72 61 77 5f 67 72 61 70 | 68 0d 23 78 06 3d 30 0d |raw_grap|h.#x.=0.|
|00004cc0| 23 82 04 0d 23 8c 04 0d | 23 96 28 dd f2 6d 6f 75 |#...#...|#.(..mou|
|00004cd0| 73 65 5f 6f 6e 5f 73 65 | 74 75 70 28 6d 78 25 2c |se_on_se|tup(mx%,|
|00004ce0| 6d 79 25 2c 62 75 74 25 | 2c 69 68 6e 64 25 29 0d |my%,but%|,ihnd%).|
|00004cf0| 23 a0 08 ea 20 49 25 0d | 23 aa 17 e7 20 69 68 6e |#... I%.|#... ihn|
|00004d00| 64 25 3d 73 65 74 75 70 | 5f 6f 6b 25 20 8c 0d 23 |d%=setup|_ok% ..#|
|00004d10| b4 1c 20 20 20 f2 63 6c | 6f 73 65 5f 77 69 6e 64 |..   .cl|ose_wind|
|00004d20| 6f 77 28 73 65 74 75 70 | 25 29 0d 23 be 1e 20 20 |ow(setup|%).#..  |
|00004d30| 20 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d | .."Wimp|_CreateM|
|00004d40| 65 6e 75 22 2c 2c 2d 31 | 0d 23 c8 2c 20 20 20 6d |enu",,-1|.#.,   m|
|00004d50| 69 6e 5f 78 3d bb a4 67 | 65 74 5f 66 69 65 6c 64 |in_x=..g|et_field|
|00004d60| 28 73 65 74 75 70 25 2c | 73 65 74 75 70 5f 78 6d |(setup%,|setup_xm|
|00004d70| 69 6e 25 29 0d 23 d2 2c | 20 20 20 6d 61 78 5f 78 |in%).#.,|   max_x|
|00004d80| 3d bb a4 67 65 74 5f 66 | 69 65 6c 64 28 73 65 74 |=..get_f|ield(set|
|00004d90| 75 70 25 2c 73 65 74 75 | 70 5f 78 6d 61 78 25 29 |up%,setu|p_xmax%)|
|00004da0| 0d 23 dc 2c 20 20 20 6d | 69 6e 5f 79 3d bb a4 67 |.#.,   m|in_y=..g|
|00004db0| 65 74 5f 66 69 65 6c 64 | 28 73 65 74 75 70 25 2c |et_field|(setup%,|
|00004dc0| 73 65 74 75 70 5f 79 6d | 69 6e 25 29 0d 23 e6 2c |setup_ym|in%).#.,|
|00004dd0| 20 20 20 6d 61 78 5f 79 | 3d bb a4 67 65 74 5f 66 |   max_y|=..get_f|
|00004de0| 69 65 6c 64 28 73 65 74 | 75 70 25 2c 73 65 74 75 |ield(set|up%,setu|
|00004df0| 70 5f 79 6d 61 78 25 29 | 0d 23 f0 2c 20 20 20 6d |p_ymax%)|.#.,   m|
|00004e00| 69 6e 5f 74 3d bb a4 67 | 65 74 5f 66 69 65 6c 64 |in_t=..g|et_field|
|00004e10| 28 73 65 74 75 70 25 2c | 73 65 74 75 70 5f 74 6d |(setup%,|setup_tm|
|00004e20| 69 6e 25 29 0d 23 fa 2c | 20 20 20 6d 61 78 5f 74 |in%).#.,|   max_t|
|00004e30| 3d bb a4 67 65 74 5f 66 | 69 65 6c 64 28 73 65 74 |=..get_f|ield(set|
|00004e40| 75 70 25 2c 73 65 74 75 | 70 5f 74 6d 61 78 25 29 |up%,setu|p_tmax%)|
|00004e50| 0d 24 04 12 20 20 20 f2 | 63 61 6c 63 70 61 72 61 |.$..   .|calcpara|
|00004e60| 6d 73 0d 24 0e 3c 20 20 | 20 61 75 74 6f 73 63 61 |ms.$.<  | autosca|
|00004e70| 6c 65 25 3d a4 69 73 5f | 69 63 6f 6e 5f 73 65 6c |le%=.is_|icon_sel|
|00004e80| 65 63 74 65 64 28 73 65 | 74 75 70 25 2c 73 65 74 |ected(se|tup%,set|
|00004e90| 75 70 5f 61 75 74 6f 73 | 63 61 6c 65 25 29 0d 24 |up_autos|cale%).$|
|00004ea0| 18 3e 20 20 20 63 61 72 | 74 5f 61 78 65 73 25 3d |.>   car|t_axes%=|
|00004eb0| a4 69 73 5f 69 63 6f 6e | 5f 73 65 6c 65 63 74 65 |.is_icon|_selecte|
|00004ec0| 64 28 73 65 74 75 70 25 | 2c 73 65 74 75 70 5f 72 |d(setup%|,setup_r|
|00004ed0| 65 63 74 61 6e 67 75 6c | 61 72 25 29 0d 24 22 32 |ectangul|ar%).$"2|
|00004ee0| 20 20 20 67 72 69 64 25 | 3d a4 69 73 5f 69 63 6f |   grid%|=.is_ico|
|00004ef0| 6e 5f 73 65 6c 65 63 74 | 65 64 28 73 65 74 75 70 |n_select|ed(setup|
|00004f00| 25 2c 73 65 74 75 70 5f | 67 72 69 64 25 29 0d 24 |%,setup_|grid%).$|
|00004f10| 2c 1d 20 20 20 c8 99 22 | 57 69 6d 70 5f 43 72 65 |,.   .."|Wimp_Cre|
|00004f20| 61 74 65 4d 65 6e 75 22 | 2c 2d 31 0d 24 36 1a 20 |ateMenu"|,-1.$6. |
|00004f30| 20 20 f2 66 6f 72 63 65 | 5f 72 65 64 72 61 77 5f |  .force|_redraw_|
|00004f40| 67 72 61 70 68 0d 24 40 | 06 20 cd 0d 24 4a 05 e1 |graph.$@|. ..$J..|
|00004f50| 0d 24 54 04 0d 24 5e 15 | dd a4 74 6f 75 70 70 65 |.$T..$^.|..touppe|
|00004f60| 72 28 69 6e 70 75 74 24 | 29 0d 24 68 0c ea 20 49 |r(input$|).$h.. I|
|00004f70| 25 2c 6f 70 24 0d 24 72 | 0a 6f 70 24 3d 22 22 0d |%,op$.$r|.op$="".|
|00004f80| 24 7c 16 e3 20 49 25 3d | 31 20 b8 20 a9 28 69 6e |$|.. I%=|1 . .(in|
|00004f90| 70 75 74 24 29 0d 24 86 | 18 20 20 20 63 68 3d 97 |put$).$.|.   ch=.|
|00004fa0| c1 69 6e 70 75 74 24 2c | 49 25 2c 31 29 0d 24 90 |.input$,|I%,1).$.|
|00004fb0| 1c 20 20 20 e7 20 63 68 | 3e 3d 26 36 31 20 80 20 |.   . ch|>=&61 . |
|00004fc0| 63 68 3c 3d 26 37 41 20 | 8c 0d 24 9a 18 20 20 20 |ch<=&7A |..$..   |
|00004fd0| 20 20 20 6f 70 24 2b 3d | bd 28 63 68 2d 26 32 30 |   op$+=|.(ch-&20|
|00004fe0| 29 0d 24 a4 08 20 20 20 | cc 0d 24 ae 12 20 20 20 |).$..   |..$..   |
|00004ff0| 20 20 20 6f 70 24 2b 3d | bd 63 68 0d 24 b8 08 20 |   op$+=|.ch.$.. |
|00005000| 20 20 cd 0d 24 c2 08 ed | 20 49 25 0d 24 cc 08 3d |  ..$...| I%.$..=|
|00005010| 6f 70 24 0d 24 d6 04 0d | 24 e0 04 0d 24 ea 2a dd |op$.$...|$...$.*.|
|00005020| f2 6d 6f 75 73 65 5f 6f | 6e 5f 6e 65 77 66 75 6e |.mouse_o|n_newfun|
|00005030| 63 28 6d 78 25 2c 6d 79 | 25 2c 62 75 74 25 2c 69 |c(mx%,my|%,but%,i|
|00005040| 68 6e 64 25 29 0d 24 f4 | 15 ea 20 69 6e 70 75 74 |hnd%).$.|.. input|
|00005050| 31 25 2c 69 6e 70 75 74 | 32 25 0d 24 fe 04 0d 25 |1%,input|2%.$...%|
|00005060| 08 0e c8 8e 20 69 68 6e | 64 25 20 ca 0d 25 12 11 |.... ihn|d% ..%..|
|00005070| c9 20 6e 65 77 66 75 6e | 63 5f 6f 6b 25 0d 25 1c |. newfun|c_ok%.%.|
|00005080| 20 20 20 20 69 6e 70 75 | 74 31 25 3d a4 68 65 61 |    inpu|t1%=.hea|
|00005090| 70 5f 6d 61 6c 6c 6f 63 | 28 31 30 30 29 0d 25 26 |p_malloc|(100).%&|
|000050a0| 20 20 20 20 69 6e 70 75 | 74 32 25 3d a4 68 65 61 |    inpu|t2%=.hea|
|000050b0| 70 5f 6d 61 6c 6c 6f 63 | 28 31 30 30 29 0d 25 30 |p_malloc|(100).%0|
|000050c0| 04 0d 25 3a 32 20 20 20 | 24 69 6e 70 75 74 31 25 |..%:2   |$input1%|
|000050d0| 3d a4 67 65 74 5f 66 69 | 65 6c 64 28 6e 65 77 66 |=.get_fi|eld(newf|
|000050e0| 75 6e 63 25 2c 6e 65 77 | 66 75 6e 63 5f 69 6e 70 |unc%,new|func_inp|
|000050f0| 31 25 29 0d 25 44 32 20 | 20 20 24 69 6e 70 75 74 |1%).%D2 |  $input|
|00005100| 32 25 3d a4 67 65 74 5f | 66 69 65 6c 64 28 6e 65 |2%=.get_|field(ne|
|00005110| 77 66 75 6e 63 25 2c 6e | 65 77 66 75 6e 63 5f 69 |wfunc%,n|ewfunc_i|
|00005120| 6e 70 32 25 29 0d 25 4e | 14 20 20 20 6e 75 6d 63 |np2%).%N|.   numc|
|00005130| 75 72 76 65 73 25 2b 3d | 31 0d 25 58 04 0d 25 62 |urves%+=|1.%X..%b|
|00005140| 14 20 20 20 e7 20 65 78 | 70 6c 69 63 69 74 25 20 |.   . ex|plicit% |
|00005150| 8c 0d 25 6c 28 20 20 20 | 20 20 20 65 71 75 61 74 |..%l(   |   equat|
|00005160| 69 6f 6e 24 28 6e 75 6d | 63 75 72 76 65 73 25 29 |ion$(num|curves%)|
|00005170| 3d 24 69 6e 70 75 74 31 | 25 0d 25 76 20 20 20 20 |=$input1|%.%v    |
|00005180| 20 20 20 65 78 24 3d a4 | 74 6f 75 70 70 65 72 28 |   ex$=.|toupper(|
|00005190| 24 69 6e 70 75 74 31 25 | 29 0d 25 80 08 20 20 20 |$input1%|).%..   |
|000051a0| cc 0d 25 8a 37 20 20 20 | 20 20 20 65 71 75 61 74 |..%.7   |   equat|
|000051b0| 69 6f 6e 24 28 6e 75 6d | 63 75 72 76 65 73 25 29 |ion$(num|curves%)|
|000051c0| 3d 24 69 6e 70 75 74 31 | 25 2b 22 20 3b 20 22 2b |=$input1|%+" ; "+|
|000051d0| 24 69 6e 70 75 74 32 25 | 0d 25 94 20 20 20 20 20 |$input2%|.%.     |
|000051e0| 20 20 70 78 24 3d a4 74 | 6f 75 70 70 65 72 28 24 |  px$=.t|oupper($|
|000051f0| 69 6e 70 75 74 31 25 29 | 0d 25 9e 20 20 20 20 20 |input1%)|.%.     |
|00005200| 20 20 70 79 24 3d a4 74 | 6f 75 70 70 65 72 28 24 |  py$=.t|oupper($|
|00005210| 69 6e 70 75 74 32 25 29 | 0d 25 a8 08 20 20 20 cd |input2%)|.%..   .|
|00005220| 0d 25 b2 04 0d 25 bc 1d | 20 20 20 f2 69 6e 61 6e |.%...%..|   .inan|
|00005230| 64 63 61 6c 63 28 6e 75 | 6d 63 75 72 76 65 73 25 |dcalc(nu|mcurves%|
|00005240| 29 0d 25 c6 1e 20 20 20 | f2 63 6c 6f 73 65 5f 77 |).%..   |.close_w|
|00005250| 69 6e 64 6f 77 28 6e 65 | 77 66 75 6e 63 25 29 0d |indow(ne|wfunc%).|
|00005260| 25 d0 1d 20 20 20 c8 99 | 22 57 69 6d 70 5f 43 72 |%..   ..|"Wimp_Cr|
|00005270| 65 61 74 65 4d 65 6e 75 | 22 2c 2d 31 0d 25 da 1a |eateMenu|",-1.%..|
|00005280| 20 20 20 f2 66 6f 72 63 | 65 5f 72 65 64 72 61 77 |   .forc|e_redraw|
|00005290| 5f 67 72 61 70 68 0d 25 | e4 1a 20 20 20 f2 68 65 |_graph.%|..   .he|
|000052a0| 61 70 5f 66 72 65 65 28 | 69 6e 70 75 74 31 25 29 |ap_free(|input1%)|
|000052b0| 0d 25 ee 1a 20 20 20 f2 | 68 65 61 70 5f 66 72 65 |.%..   .|heap_fre|
|000052c0| 65 28 69 6e 70 75 74 32 | 25 29 0d 25 f8 04 0d 26 |e(input2|%).%...&|
|000052d0| 02 19 c9 20 6e 65 77 66 | 75 6e 63 5f 70 6f 6c 5f |... newf|unc_pol_|
|000052e0| 65 78 70 6c 25 20 3a 0d | 26 0c 2a 20 20 20 f2 66 |expl% :.|&.*   .f|
|000052f0| 61 64 65 5f 66 69 65 6c | 64 28 6e 65 77 66 75 6e |ade_fiel|d(newfun|
|00005300| 63 25 2c 6e 65 77 66 75 | 6e 63 5f 69 6e 70 32 25 |c%,newfu|nc_inp2%|
|00005310| 29 0d 26 16 2a 20 20 20 | f2 73 65 74 5f 66 69 65 |).&.*   |.set_fie|
|00005320| 6c 64 28 6e 65 77 66 75 | 6e 63 25 2c 6e 66 5f 69 |ld(newfu|nc%,nf_i|
|00005330| 6e 70 32 74 78 74 25 2c | 22 22 29 0d 26 20 2f 20 |np2txt%,|"").& / |
|00005340| 20 20 f2 73 65 74 5f 66 | 69 65 6c 64 28 6e 65 77 |  .set_f|ield(new|
|00005350| 66 75 6e 63 25 2c 6e 66 | 5f 69 6e 70 31 74 78 74 |func%,nf|_inp1txt|
|00005360| 25 2c 22 72 28 74 29 3d | 22 29 0d 26 2a 28 20 20 |%,"r(t)=|").&*(  |
|00005370| 20 f2 66 61 64 65 5f 66 | 69 65 6c 64 28 6e 65 77 | .fade_f|ield(new|
|00005380| 66 75 6e 63 25 2c 6e 66 | 5f 69 6e 70 32 74 78 74 |func%,nf|_inp2txt|
|00005390| 25 29 0d 26 34 0f 20 20 | 20 70 6f 6c 61 72 25 3d |%).&4.  | polar%=|
|000053a0| b9 0d 26 3e 12 20 20 20 | 65 78 70 6c 69 63 69 74 |..&>.   |explicit|
|000053b0| 25 3d b9 0d 26 48 04 0d | 26 52 1a c9 20 6e 65 77 |%=..&H..|&R.. new|
|000053c0| 66 75 6e 63 5f 70 6f 6c | 5f 70 61 72 61 6d 25 20 |func_pol|_param% |
|000053d0| 3a 0d 26 5c 2c 20 20 20 | f2 75 6e 66 61 64 65 5f |:.&\,   |.unfade_|
|000053e0| 66 69 65 6c 64 28 6e 65 | 77 66 75 6e 63 25 2c 6e |field(ne|wfunc%,n|
|000053f0| 65 77 66 75 6e 63 5f 69 | 6e 70 32 25 29 0d 26 66 |ewfunc_i|np2%).&f|
|00005400| 2a 20 20 20 f2 75 6e 66 | 61 64 65 5f 66 69 65 6c |*   .unf|ade_fiel|
|00005410| 64 28 6e 65 77 66 75 6e | 63 25 2c 6e 66 5f 69 6e |d(newfun|c%,nf_in|
|00005420| 70 32 74 78 74 25 29 0d | 26 70 30 20 20 20 f2 73 |p2txt%).|&p0   .s|
|00005430| 65 74 5f 66 69 65 6c 64 | 28 6e 65 77 66 75 6e 63 |et_field|(newfunc|
|00005440| 25 2c 6e 66 5f 69 6e 70 | 32 74 78 74 25 2c 22 74 |%,nf_inp|2txt%,"t|
|00005450| 68 65 74 61 3d 22 29 0d | 26 7a 2c 20 20 20 f2 73 |heta=").|&z,   .s|
|00005460| 65 74 5f 66 69 65 6c 64 | 28 6e 65 77 66 75 6e 63 |et_field|(newfunc|
|00005470| 25 2c 6e 66 5f 69 6e 70 | 31 74 78 74 25 2c 22 72 |%,nf_inp|1txt%,"r|
|00005480| 3d 22 29 0d 26 84 0f 20 | 20 20 70 6f 6c 61 72 25 |=").&.. |  polar%|
|00005490| 3d b9 0d 26 8e 12 20 20 | 20 65 78 70 6c 69 63 69 |=..&..  | explici|
|000054a0| 74 25 3d a3 0d 26 98 04 | 0d 26 a2 04 0d 26 ac 18 |t%=..&..|.&...&..|
|000054b0| c9 20 6e 65 77 66 75 6e | 63 5f 72 65 63 74 5f 65 |. newfun|c_rect_e|
|000054c0| 78 70 6c 25 0d 26 b6 2a | 20 20 20 f2 66 61 64 65 |xpl%.&.*|   .fade|
|000054d0| 5f 66 69 65 6c 64 28 6e | 65 77 66 75 6e 63 25 2c |_field(n|ewfunc%,|
|000054e0| 6e 65 77 66 75 6e 63 5f | 69 6e 70 32 25 29 0d 26 |newfunc_|inp2%).&|
|000054f0| c0 2a 20 20 20 f2 73 65 | 74 5f 66 69 65 6c 64 28 |.*   .se|t_field(|
|00005500| 6e 65 77 66 75 6e 63 25 | 2c 6e 66 5f 69 6e 70 32 |newfunc%|,nf_inp2|
|00005510| 74 78 74 25 2c 22 22 29 | 0d 26 ca 2f 20 20 20 f2 |txt%,"")|.&./   .|
|00005520| 73 65 74 5f 66 69 65 6c | 64 28 6e 65 77 66 75 6e |set_fiel|d(newfun|
|00005530| 63 25 2c 6e 66 5f 69 6e | 70 31 74 78 74 25 2c 22 |c%,nf_in|p1txt%,"|
|00005540| 66 28 78 29 3d 22 29 0d | 26 d4 28 20 20 20 f2 66 |f(x)=").|&.(   .f|
|00005550| 61 64 65 5f 66 69 65 6c | 64 28 6e 65 77 66 75 6e |ade_fiel|d(newfun|
|00005560| 63 25 2c 6e 66 5f 69 6e | 70 32 74 78 74 25 29 0d |c%,nf_in|p2txt%).|
|00005570| 26 de 0f 20 20 20 70 6f | 6c 61 72 25 3d a3 0d 26 |&..   po|lar%=..&|
|00005580| e8 12 20 20 20 65 78 70 | 6c 69 63 69 74 25 3d b9 |..   exp|licit%=.|
|00005590| 0d 26 f2 04 0d 26 fc 19 | c9 20 6e 65 77 66 75 6e |.&...&..|. newfun|
|000055a0| 63 5f 72 65 63 74 5f 70 | 61 72 61 6d 25 0d 27 06 |c_rect_p|aram%.'.|
|000055b0| 2c 20 20 20 f2 75 6e 66 | 61 64 65 5f 66 69 65 6c |,   .unf|ade_fiel|
|000055c0| 64 28 6e 65 77 66 75 6e | 63 25 2c 6e 65 77 66 75 |d(newfun|c%,newfu|
|000055d0| 6e 63 5f 69 6e 70 32 25 | 29 0d 27 10 2a 20 20 20 |nc_inp2%|).'.*   |
|000055e0| f2 75 6e 66 61 64 65 5f | 66 69 65 6c 64 28 6e 65 |.unfade_|field(ne|
|000055f0| 77 66 75 6e 63 25 2c 6e | 66 5f 69 6e 70 32 74 78 |wfunc%,n|f_inp2tx|
|00005600| 74 25 29 0d 27 1a 2f 20 | 20 20 f2 73 65 74 5f 66 |t%).'./ |  .set_f|
|00005610| 69 65 6c 64 28 6e 65 77 | 66 75 6e 63 25 2c 6e 66 |ield(new|func%,nf|
|00005620| 5f 69 6e 70 32 74 78 74 | 25 2c 22 78 28 74 29 3d |_inp2txt|%,"x(t)=|
|00005630| 22 29 0d 27 24 2f 20 20 | 20 f2 73 65 74 5f 66 69 |").'$/  | .set_fi|
|00005640| 65 6c 64 28 6e 65 77 66 | 75 6e 63 25 2c 6e 66 5f |eld(newf|unc%,nf_|
|00005650| 69 6e 70 31 74 78 74 25 | 2c 22 79 28 74 29 3d 22 |inp1txt%|,"y(t)="|
|00005660| 29 0d 27 2e 0f 20 20 20 | 70 6f 6c 61 72 25 3d a3 |).'..   |polar%=.|
|00005670| 0d 27 38 12 20 20 20 65 | 78 70 6c 69 63 69 74 25 |.'8.   e|xplicit%|
|00005680| 3d a3 0d 27 42 04 0d 27 | 4c 04 0d 27 56 05 cb 0d |=..'B..'|L..'V...|
|00005690| 27 60 04 0d 27 6a 04 0d | 27 74 05 e1 0d 27 7e 04 |'`..'j..|'t...'~.|
|000056a0| 0d 27 88 04 0d 27 92 29 | f4 20 3d 3d 3d 3d 3d 3d |.'...'.)|. ======|
|000056b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000056c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 27 9c |========|=====.'.|
|000056d0| 24 f4 20 54 68 65 20 72 | 6f 75 74 69 6e 65 73 20 |$. The r|outines |
|000056e0| 66 6f 72 20 21 67 72 61 | 70 68 20 66 6f 6c 6c 6f |for !gra|ph follo|
|000056f0| 77 0d 27 a6 29 f4 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |w.'.). =|========|
|00005700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 27 b0 04 0d 27 |========|==.'...'|
|00005720| ba 04 0d 27 c4 10 f4 20 | 3e 61 72 63 70 6c 6f 74 |...'... |>arcplot|
|00005730| 31 32 0d 27 ce 04 0d 27 | d8 19 f4 20 7a 6f 6f 6d |12.'...'|... zoom|
|00005740| 20 69 73 6e 27 74 20 72 | 69 67 68 74 2e 2e 2e 0d | isn't r|ight....|
|00005750| 27 e2 04 0d 27 ec 2a 20 | f4 20 66 69 6c 65 20 61 |'...'.* |. file a|
|00005760| 6e 64 20 70 6c 6f 74 6d | 61 74 65 20 72 65 6d 6f |nd plotm|ate remo|
|00005770| 76 65 64 20 66 6f 72 20 | 42 65 65 62 73 0d 27 f6 |ved for |Beebs.'.|
|00005780| 1e 20 f4 20 61 64 64 20 | 69 6e 20 7a 6f 6f 6d 20 |. . add |in zoom |
|00005790| 66 75 6e 63 74 69 6f 6e | 2e 2e 2e 0d 28 00 04 0d |function|....(...|
|000057a0| 28 0a 24 f4 20 6e 6f 20 | 64 61 74 61 20 66 69 31 |(.$. no |data fi1|
|000057b0| 69 6e 67 20 69 6e 20 74 | 68 69 73 20 76 65 72 73 |ing in t|his vers|
|000057c0| 69 6f 6e 0d 28 14 11 f4 | 20 76 65 72 73 69 6f 6e |ion.(...| version|
|000057d0| 20 31 2e 32 0d 28 1e 04 | 0d 28 28 04 0d 28 32 04 | 1.2.(..|.((..(2.|
|000057e0| 0d 28 3c 04 0d 28 46 09 | 2a 73 68 75 74 0d 28 50 |.(<..(F.|*shut.(P|
|000057f0| 04 0d 28 5a 12 20 f4 20 | 4d 61 69 6e 20 6c 6f 6f |..(Z. . |Main loo|
|00005800| 70 20 3a 0d 28 64 1a 20 | f4 20 20 4f 4e 20 45 52 |p :.(d. |.  ON ER|
|00005810| 52 4f 52 20 50 52 4f 43 | 65 72 72 6f 72 0d 28 6e |ROR PROC|error.(n|
|00005820| 10 20 f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 28 78 |. .initi|alise.(x|
|00005830| 0a 20 f2 6d 65 6e 75 0d | 28 82 04 0d 28 8c 04 0d |. .menu.|(...(...|
|00005840| 28 96 05 e0 0d 28 a0 04 | 0d 28 aa 32 f4 2a 2a 2a |(....(..|.(.2.***|
|00005850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 28 b4 1e f4 20 |********|**.(... |
|00005880| 50 52 4f 43 45 44 55 52 | 45 53 20 61 6e 64 20 46 |PROCEDUR|ES and F|
|00005890| 55 4e 43 54 49 4f 4e 53 | 0d 28 be 32 f4 2a 2a 2a |UNCTIONS|.(.2.***|
|000058a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000058b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000058c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 28 c8 04 0d 28 |********|**.(...(|
|000058d0| d2 04 0d 28 dc 04 0d 28 | e6 04 0d 28 f0 0f dd a4 |...(...(|...(....|
|000058e0| 65 76 6c 66 75 6e 28 58 | 29 0d 28 fa 1b e7 20 a9 |evlfun(X|).(... .|
|000058f0| 65 78 24 3e 30 20 8c 20 | 3d a0 28 65 78 24 29 20 |ex$>0 . |=.(ex$) |
|00005900| 8b 20 3d 30 0d 29 04 04 | 0d 29 0e 10 dd a4 65 76 |. =0.)..|.)....ev|
|00005910| 6c 66 75 6e 54 28 54 29 | 0d 29 18 1b e7 20 a9 65 |lfunT(T)|.)... .e|
|00005920| 78 24 3e 30 20 8c 20 3d | a0 28 65 78 24 29 20 8b |x$>0 . =|.(ex$) .|
|00005930| 20 3d 30 0d 29 22 04 0d | 29 2c 10 dd a4 65 76 6c | =0.)"..|),...evl|
|00005940| 66 75 6e 78 28 54 29 0d | 29 36 0b 3d a0 28 70 78 |funx(T).|)6.=.(px|
|00005950| 24 29 0d 29 40 04 0d 29 | 4a 10 dd a4 65 76 6c 66 |$).)@..)|J...evlf|
|00005960| 75 6e 79 28 54 29 0d 29 | 54 0b 3d a0 28 70 79 24 |uny(T).)|T.=.(py$|
|00005970| 29 0d 29 5e 04 0d 29 68 | 04 0d 29 72 15 dd f2 64 |).)^..)h|..)r...d|
|00005980| 6f 73 63 72 65 65 6e 63 | 6f 6e 76 65 72 74 0d 29 |oscreenc|onvert.)|
|00005990| 7c 24 78 63 6f 6e 76 65 | 72 74 3d a4 77 69 6e 64 ||$xconve|rt=.wind|
|000059a0| 74 6f 73 63 72 65 65 6e | 58 28 6d 61 69 6e 25 2c |toscreen|X(main%,|
|000059b0| 30 29 0d 29 86 24 79 63 | 6f 6e 76 65 72 74 3d a4 |0).).$yc|onvert=.|
|000059c0| 77 69 6e 64 74 6f 73 63 | 72 65 65 6e 59 28 6d 61 |windtosc|reenY(ma|
|000059d0| 69 6e 25 2c 30 29 0d 29 | 90 05 e1 0d 29 9a 04 0d |in%,0).)|....)...|
|000059e0| 29 a4 04 0d 29 ae 13 dd | f2 6d 6f 76 65 28 78 2c |)...)...|.move(x,|
|000059f0| 79 2c 64 66 25 29 0d 29 | b8 0b e7 20 64 66 25 20 |y,df%).)|... df% |
|00005a00| 8c 0d 29 c2 2f 20 20 f2 | 65 6e 74 65 72 64 72 61 |..)./  .|enterdra|
|00005a10| 77 66 69 6c 65 28 22 4d | 22 2c 78 2b 78 5f 6f 66 |wfile("M|",x+x_of|
|00005a20| 66 73 65 74 2c 79 2b 79 | 5f 6f 66 66 73 65 74 29 |fset,y+y|_offset)|
|00005a30| 0d 29 cc 05 cc 0d 29 d6 | 2f 20 20 ec 20 78 2b 78 |.)....).|/  . x+x|
|00005a40| 5f 6f 66 66 73 65 74 2b | 78 63 6f 6e 76 65 72 74 |_offset+|xconvert|
|00005a50| 2c 79 2b 79 5f 6f 66 66 | 73 65 74 2b 79 63 6f 6e |,y+y_off|set+ycon|
|00005a60| 76 65 72 74 0d 29 e0 05 | cd 0d 29 ea 05 e1 0d 29 |vert.)..|..)....)|
|00005a70| f4 04 0d 29 fe 04 0d 2a | 08 13 dd f2 64 72 61 77 |...)...*|....draw|
|00005a80| 28 78 2c 79 2c 64 66 25 | 29 0d 2a 12 04 0d 2a 1c |(x,y,df%|).*...*.|
|00005a90| 0b e7 20 64 66 25 20 8c | 0d 2a 26 30 20 20 20 f2 |.. df% .|.*&0   .|
|00005aa0| 65 6e 74 65 72 64 72 61 | 77 66 69 6c 65 28 22 44 |enterdra|wfile("D|
|00005ab0| 22 2c 78 2b 78 5f 6f 66 | 66 73 65 74 2c 79 2b 79 |",x+x_of|fset,y+y|
|00005ac0| 5f 6f 66 66 73 65 74 29 | 0d 2a 30 05 cc 0d 2a 3a |_offset)|.*0...*:|
|00005ad0| 30 20 20 20 df 20 78 2b | 78 5f 6f 66 66 73 65 74 |0   . x+|x_offset|
|00005ae0| 2b 78 63 6f 6e 76 65 72 | 74 2c 79 2b 79 5f 6f 66 |+xconver|t,y+y_of|
|00005af0| 66 73 65 74 2b 79 63 6f | 6e 76 65 72 74 0d 2a 44 |fset+yco|nvert.*D|
|00005b00| 05 cd 0d 2a 4e 05 e1 0d | 2a 58 04 0d 2a 62 04 0d |...*N...|*X..*b..|
|00005b10| 2a 6c 1b dd f2 6c 69 6e | 65 28 78 31 2c 79 31 2c |*l...lin|e(x1,y1,|
|00005b20| 78 32 2c 79 32 2c 64 66 | 25 29 0d 2a 76 0b e7 20 |x2,y2,df|%).*v.. |
|00005b30| 64 66 25 20 8c 0d 2a 80 | 31 20 20 f2 65 6e 74 65 |df% ..*.|1  .ente|
|00005b40| 72 64 72 61 77 66 69 6c | 65 28 22 4d 22 2c 78 31 |rdrawfil|e("M",x1|
|00005b50| 2b 78 5f 6f 66 66 73 65 | 74 2c 79 31 2b 79 5f 6f |+x_offse|t,y1+y_o|
|00005b60| 66 66 73 65 74 29 0d 2a | 8a 31 20 20 f2 65 6e 74 |ffset).*|.1  .ent|
|00005b70| 65 72 64 72 61 77 66 69 | 6c 65 28 22 44 22 2c 78 |erdrawfi|le("D",x|
|00005b80| 32 2b 78 5f 6f 66 66 73 | 65 74 2c 79 32 2b 79 5f |2+x_offs|et,y2+y_|
|00005b90| 6f 66 66 73 65 74 29 0d | 2a 94 05 cc 0d 2a 9e 5b |offset).|*....*.[|
|00005ba0| 20 20 86 20 78 31 2b 78 | 5f 6f 66 66 73 65 74 2b |  . x1+x|_offset+|
|00005bb0| 78 63 6f 6e 76 65 72 74 | 2c 79 31 2b 79 5f 6f 66 |xconvert|,y1+y_of|
|00005bc0| 66 73 65 74 2b 79 63 6f | 6e 76 65 72 74 2c 78 32 |fset+yco|nvert,x2|
|00005bd0| 2b 78 5f 6f 66 66 73 65 | 74 2b 78 63 6f 6e 76 65 |+x_offse|t+xconve|
|00005be0| 72 74 2c 79 32 2b 79 5f | 6f 66 66 73 65 74 2b 79 |rt,y2+y_|offset+y|
|00005bf0| 63 6f 6e 76 65 72 74 0d | 2a a8 05 cd 0d 2a b2 05 |convert.|*....*..|
|00005c00| e1 0d 2a bc 04 0d 2a c6 | 13 dd f2 63 69 72 63 6c |..*...*.|...circl|
|00005c10| 65 28 78 2c 79 2c 72 29 | 0d 2a d0 33 20 20 20 c8 |e(x,y,r)|.*.3   .|
|00005c20| 8f 20 78 2b 78 5f 6f 66 | 66 73 65 74 2b 78 63 6f |. x+x_of|fset+xco|
|00005c30| 6e 76 65 72 74 2c 79 2b | 79 5f 6f 66 66 73 65 74 |nvert,y+|y_offset|
|00005c40| 2b 79 63 6f 6e 76 65 72 | 74 2c 72 0d 2a da 05 e1 |+yconver|t,r.*...|
|00005c50| 0d 2a e4 04 0d 2a ee 04 | 0d 2a f8 04 0d 2b 02 19 |.*...*..|.*...+..|
|00005c60| dd f2 64 72 61 77 64 6f | 74 74 65 64 28 78 2c 79 |..drawdo|tted(x,y|
|00005c70| 2c 64 66 25 29 0d 2b 0c | 0b e7 20 64 66 25 20 8c |,df%).+.|.. df% .|
|00005c80| 0d 2b 16 30 20 20 20 f2 | 65 6e 74 65 72 64 72 61 |.+.0   .|enterdra|
|00005c90| 77 66 69 6c 65 28 22 44 | 22 2c 78 2b 78 5f 6f 66 |wfile("D|",x+x_of|
|00005ca0| 66 73 65 74 2c 79 2b 79 | 5f 6f 66 66 73 65 74 29 |fset,y+y|_offset)|
|00005cb0| 0d 2b 20 05 cc 0d 2b 2a | 33 20 20 20 f0 20 32 31 |.+ ...+*|3   . 21|
|00005cc0| 2c 78 2b 78 5f 6f 66 66 | 73 65 74 2b 78 63 6f 6e |,x+x_off|set+xcon|
|00005cd0| 76 65 72 74 2c 79 2b 79 | 5f 6f 66 66 73 65 74 2b |vert,y+y|_offset+|
|00005ce0| 79 63 6f 6e 76 65 72 74 | 0d 2b 34 05 cd 0d 2b 3e |yconvert|.+4...+>|
|00005cf0| 05 e1 0d 2b 48 04 0d 2b | 52 04 0d 2b 5c 1b dd f2 |...+H..+|R..+\...|
|00005d00| 65 6e 74 65 72 64 72 61 | 77 66 69 6c 65 28 74 24 |enterdra|wfile(t$|
|00005d10| 2c 78 2c 79 29 0d 2b 66 | 0e 70 63 6f 75 6e 74 25 |,x,y).+f|.pcount%|
|00005d20| 2b 3d 31 0d 2b 70 13 74 | 79 24 28 70 63 6f 75 6e |+=1.+p.t|y$(pcoun|
|00005d30| 74 25 29 3d 74 24 0d 2b | 7a 11 78 63 28 70 63 6f |t%)=t$.+|z.xc(pco|
|00005d40| 75 6e 74 25 29 3d 78 0d | 2b 84 11 79 63 28 70 63 |unt%)=x.|+..yc(pc|
|00005d50| 6f 75 6e 74 25 29 3d 79 | 0d 2b 8e 05 e1 0d 2b 98 |ount%)=y|.+....+.|
|00005d60| 04 0d 2b a2 04 0d 2b ac | 04 0d 2b b6 04 0d 2b c0 |..+...+.|..+...+.|
|00005d70| 17 dd f2 69 6e 61 6e 64 | 63 61 6c 63 28 63 75 72 |...inand|calc(cur|
|00005d80| 76 65 25 29 0d 2b ca 1e | ea 20 78 76 61 6c 75 65 |ve%).+..|. xvalue|
|00005d90| 2c 74 78 2c 74 79 2c 64 | 6f 5f 78 5f 73 63 61 6c |,tx,ty,d|o_x_scal|
|00005da0| 65 25 0d 2b d4 04 0d 2b | de 1d 20 e7 20 70 6f 6c |e%.+...+|.. . pol|
|00005db0| 61 72 25 20 84 20 ac 20 | 65 78 70 6c 69 63 69 74 |ar% . . |explicit|
|00005dc0| 25 20 8c 0d 2b e8 1c 20 | 20 20 20 69 63 3d 28 6d |% ..+.. |   ic=(m|
|00005dd0| 61 78 5f 74 2d 6d 69 6e | 5f 74 29 2f 6e 73 25 0d |ax_t-min|_t)/ns%.|
|00005de0| 2b f2 06 20 cc 0d 2b fc | 1c 20 20 20 20 69 63 3d |+.. ..+.|.    ic=|
|00005df0| 28 6d 61 78 5f 78 2d 6d | 69 6e 5f 78 29 2f 6e 73 |(max_x-m|in_x)/ns|
|00005e00| 25 0d 2c 06 06 20 cd 0d | 2c 10 04 0d 2c 1a 04 0d |%.,.. ..|,...,...|
|00005e10| 2c 24 1d 20 e7 20 ac 20 | 65 78 70 6c 69 63 69 74 |,$. . . |explicit|
|00005e20| 25 20 84 20 70 6f 6c 61 | 72 25 20 8c 0d 2c 2e 14 |% . pola|r% ..,..|
|00005e30| 20 20 20 20 78 76 61 6c | 75 65 3d 6d 69 6e 5f 74 |    xval|ue=min_t|
|00005e40| 0d 2c 38 06 20 cc 0d 2c | 42 14 20 20 20 20 78 76 |.,8. ..,|B.    xv|
|00005e50| 61 6c 75 65 3d 6d 69 6e | 5f 78 0d 2c 4c 06 20 cd |alue=min|_x.,L. .|
|00005e60| 0d 2c 56 04 0d 2c 60 37 | 20 f2 63 61 6c 63 78 28 |.,V..,`7| .calcx(|
|00005e70| 78 76 61 6c 75 65 2c 63 | 75 72 76 65 5f 78 28 63 |xvalue,c|urve_x(c|
|00005e80| 75 72 76 65 25 2c 30 29 | 2c 63 75 72 76 65 5f 79 |urve%,0)|,curve_y|
|00005e90| 28 63 75 72 76 65 25 2c | 30 29 29 0d 2c 6a 04 0d |(curve%,|0)).,j..|
|00005ea0| 2c 74 12 20 64 6f 5f 78 | 5f 73 63 61 6c 65 25 3d |,t. do_x|_scale%=|
|00005eb0| a3 0d 2c 7e 04 0d 2c 88 | 1f 20 e7 20 61 75 74 6f |..,~..,.|. . auto|
|00005ec0| 73 63 61 6c 65 25 20 80 | 20 63 75 72 76 65 25 3d |scale% .| curve%=|
|00005ed0| 30 20 20 8c 0d 2c 92 27 | 20 20 20 64 6f 5f 78 5f |0  ..,.'|   do_x_|
|00005ee0| 73 63 61 6c 65 25 3d 70 | 6f 6c 61 72 25 20 84 20 |scale%=p|olar% . |
|00005ef0| ac 20 65 78 70 6c 69 63 | 69 74 25 0d 2c 9c 1c 20 |. explic|it%.,.. |
|00005f00| 20 20 78 69 74 3d 63 75 | 72 76 65 5f 78 28 63 75 |  xit=cu|rve_x(cu|
|00005f10| 72 76 65 25 2c 30 29 0d | 2c a6 1e 20 20 20 6d 69 |rve%,0).|,..   mi|
|00005f20| 6e 5f 79 3d 63 75 72 76 | 65 5f 79 28 63 75 72 76 |n_y=curv|e_y(curv|
|00005f30| 65 25 2c 30 29 0d 2c b0 | 12 20 20 20 6d 61 78 5f |e%,0).,.|.   max_|
|00005f40| 79 3d 6d 69 6e 5f 79 0d | 2c ba 16 20 20 20 e7 20 |y=min_y.|,..   . |
|00005f50| 64 6f 5f 78 5f 73 63 61 | 6c 65 25 20 8c 0d 2c c4 |do_x_sca|le% ..,.|
|00005f60| 13 20 20 20 20 20 20 6d | 69 6e 5f 78 3d 78 69 74 |.      m|in_x=xit|
|00005f70| 0d 2c ce 15 20 20 20 20 | 20 20 6d 61 78 5f 78 3d |.,..    |  max_x=|
|00005f80| 6d 69 6e 5f 78 0d 2c d8 | 08 20 20 20 cd 0d 2c e2 |min_x.,.|.   ..,.|
|00005f90| 06 20 cd 0d 2c ec 04 0d | 2c f6 15 20 c8 99 22 48 |. ..,...|,.. .."H|
|00005fa0| 6f 75 72 67 6c 61 73 73 | 5f 4f 6e 22 0d 2d 00 04 |ourglass|_On".-..|
|00005fb0| 0d 2d 0a 11 20 e3 20 49 | 25 3d 31 20 b8 20 6e 73 |.-.. . I|%=1 . ns|
|00005fc0| 25 0d 2d 14 2e 20 20 20 | 20 c8 99 22 48 6f 75 72 |%.-..   | .."Hour|
|00005fd0| 67 6c 61 73 73 5f 50 65 | 72 63 65 6e 74 61 67 65 |glass_Pe|rcentage|
|00005fe0| 22 2c a8 28 49 25 2f 6e | 73 25 2a 31 30 30 29 0d |",.(I%/n|s%*100).|
|00005ff0| 2d 1e 1a 20 20 20 20 f2 | 63 61 6c 63 78 28 78 76 |-..    .|calcx(xv|
|00006000| 61 6c 75 65 2c 78 2c 79 | 29 0d 2d 28 1c 20 20 20 |alue,x,y|).-(.   |
|00006010| 20 63 75 72 76 65 5f 78 | 28 63 75 72 76 65 25 2c | curve_x|(curve%,|
|00006020| 49 25 29 3d 78 0d 2d 32 | 1c 20 20 20 20 63 75 72 |I%)=x.-2|.    cur|
|00006030| 76 65 5f 79 28 63 75 72 | 76 65 25 2c 49 25 29 3d |ve_y(cur|ve%,I%)=|
|00006040| 79 0d 2d 3c 12 20 20 20 | 20 78 76 61 6c 75 65 2b |y.-<.   | xvalue+|
|00006050| 3d 69 63 0d 2d 46 1c 20 | 20 20 20 20 6d 69 6e 5f |=ic.-F. |    min_|
|00006060| 79 3d a4 6d 69 6e 28 6d | 69 6e 5f 79 2c 79 29 0d |y=.min(m|in_y,y).|
|00006070| 2d 50 1c 20 20 20 20 20 | 6d 61 78 5f 79 3d a4 6d |-P.     |max_y=.m|
|00006080| 61 78 28 6d 61 78 5f 79 | 2c 79 29 0d 2d 5a 18 20 |ax(max_y|,y).-Z. |
|00006090| 20 20 20 20 e7 20 64 6f | 5f 78 5f 73 63 61 6c 65 |    . do|_x_scale|
|000060a0| 25 20 8c 0d 2d 64 20 20 | 20 20 20 20 20 20 20 20 |% ..-d  |        |
|000060b0| 6d 69 6e 5f 78 3d a4 6d | 69 6e 28 6d 69 6e 5f 78 |min_x=.m|in(min_x|
|000060c0| 2c 78 29 0d 2d 6e 20 20 | 20 20 20 20 20 20 20 20 |,x).-n  |        |
|000060d0| 6d 61 78 5f 78 3d a4 6d | 61 78 28 6d 61 78 5f 78 |max_x=.m|ax(max_x|
|000060e0| 2c 78 29 0d 2d 78 0a 20 | 20 20 20 20 cd 0d 2d 82 |,x).-x. |    ..-.|
|000060f0| 09 20 ed 20 49 25 0d 2d | 8c 04 0d 2d 96 04 0d 2d |. . I%.-|...-...-|
|00006100| a0 0d 20 f2 72 6f 75 6e | 64 65 6d 0d 2d aa 04 0d |.. .roun|dem.-...|
|00006110| 2d b4 2a 20 f2 73 65 74 | 5f 66 69 65 6c 64 28 73 |-.* .set|_field(s|
|00006120| 65 74 75 70 25 2c 73 65 | 74 75 70 5f 78 6d 69 6e |etup%,se|tup_xmin|
|00006130| 25 2c c3 6d 69 6e 5f 78 | 29 0d 2d be 2a 20 f2 73 |%,.min_x|).-.* .s|
|00006140| 65 74 5f 66 69 65 6c 64 | 28 73 65 74 75 70 25 2c |et_field|(setup%,|
|00006150| 73 65 74 75 70 5f 78 6d | 61 78 25 2c c3 6d 61 78 |setup_xm|ax%,.max|
|00006160| 5f 78 29 0d 2d c8 2a 20 | f2 73 65 74 5f 66 69 65 |_x).-.* |.set_fie|
|00006170| 6c 64 28 73 65 74 75 70 | 25 2c 73 65 74 75 70 5f |ld(setup|%,setup_|
|00006180| 79 6d 69 6e 25 2c c3 6d | 69 6e 5f 79 29 0d 2d d2 |ymin%,.m|in_y).-.|
|00006190| 2a 20 f2 73 65 74 5f 66 | 69 65 6c 64 28 73 65 74 |* .set_f|ield(set|
|000061a0| 75 70 25 2c 73 65 74 75 | 70 5f 79 6d 61 78 25 2c |up%,setu|p_ymax%,|
|000061b0| c3 6d 61 78 5f 79 29 0d | 2d dc 04 0d 2d e6 04 0d |.max_y).|-...-...|
|000061c0| 2d f0 10 20 f2 63 61 6c | 63 70 61 72 61 6d 73 0d |-.. .cal|cparams.|
|000061d0| 2d fa 16 20 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |-.. .."H|ourglass|
|000061e0| 5f 4f 66 66 22 0d 2e 04 | 04 0d 2e 0e 05 e1 0d 2e |_Off"...|........|
|000061f0| 18 04 0d 2e 22 04 0d 2e | 2c 04 0d 2e 36 04 0d 2e |...."...|,...6...|
|00006200| 40 1b 20 dd f2 6d 61 6b | 65 70 6c 6f 74 28 6e 75 |@. ..mak|eplot(nu|
|00006210| 6d 63 75 72 76 65 73 25 | 29 0d 2e 4a 09 20 ea 20 |mcurves%|)..J. . |
|00006220| 49 25 0d 2e 54 15 20 f2 | 64 6f 73 63 72 65 65 6e |I%..T. .|doscreen|
|00006230| 63 6f 6e 76 65 72 74 0d | 2e 5e 06 20 da 0d 2e 68 |convert.|.^. ...h|
|00006240| 16 20 e7 20 6e 75 6d 63 | 75 72 76 65 73 25 3e 3d |. . numc|urves%>=|
|00006250| 30 20 8c 0d 2e 72 0d 20 | 20 20 20 f2 61 78 65 73 |0 ...r. |   .axes|
|00006260| 0d 2e 7c 1b 20 20 20 20 | e3 20 49 25 3d 30 20 b8 |..|.    |. I%=0 .|
|00006270| 20 6e 75 6d 63 75 72 76 | 65 73 25 0d 2e 86 15 20 | numcurv|es%.... |
|00006280| 20 20 20 20 20 f2 64 6f | 70 6c 6f 74 28 49 25 29 |     .do|plot(I%)|
|00006290| 0d 2e 90 31 20 20 20 20 | 20 20 f2 6d 6f 76 65 28 |...1    |  .move(|
|000062a0| 78 5f 65 78 74 65 6e 74 | 20 81 20 33 2c 79 5f 65 |x_extent| . 3,y_e|
|000062b0| 78 74 65 6e 74 2b 35 30 | 2b 33 30 2a 49 25 2c a3 |xtent+50|+30*I%,.|
|000062c0| 29 0d 2e 9a 18 20 20 20 | 20 20 20 f1 65 71 75 61 |)....   |   .equa|
|000062d0| 74 69 6f 6e 24 28 49 25 | 29 0d 2e a4 0c 20 20 20 |tion$(I%|)....   |
|000062e0| 20 ed 20 49 25 0d 2e ae | 06 20 cd 0d 2e b8 05 e1 | . I%...|. ......|
|000062f0| 0d 2e c2 04 0d 2e cc 04 | 0d 2e d6 04 0d 2e e0 04 |........|........|
|00006300| 0d 2e ea 14 dd f2 64 6f | 70 6c 6f 74 28 63 75 72 |......do|plot(cur|
|00006310| 76 65 25 29 0d 2e f4 04 | 0d 2e fe 1c f4 20 50 6c |ve%)....|..... Pl|
|00006320| 6f 74 20 61 6e 20 65 78 | 69 73 74 69 6e 67 20 63 |ot an ex|isting c|
|00006330| 75 72 76 65 0d 2f 08 04 | 0d 2f 12 13 20 ea 78 2c |urve./..|./.. .x,|
|00006340| 79 2c 70 6f 73 69 74 25 | 2c 49 25 0d 2f 1c 15 20 |y,posit%|,I%./.. |
|00006350| 70 6f 73 69 74 25 3d 30 | 3a 78 3d 30 3a 79 3d 30 |posit%=0|:x=0:y=0|
|00006360| 0d 2f 26 3d 20 f2 6d 6f | 76 65 28 a4 78 63 6f 28 |./&= .mo|ve(.xco(|
|00006370| 63 75 72 76 65 5f 78 28 | 63 75 72 76 65 25 2c 30 |curve_x(|curve%,0|
|00006380| 29 29 2c a4 79 63 6f 28 | 63 75 72 76 65 5f 79 28 |)),.yco(|curve_y(|
|00006390| 63 75 72 76 65 25 2c 30 | 29 29 2c a3 29 0d 2f 30 |curve%,0|)),.)./0|
|000063a0| 16 20 e6 20 28 63 75 72 | 76 65 25 20 83 20 31 36 |. . (cur|ve% . 16|
|000063b0| 29 2b 38 0d 2f 3a 11 20 | e3 20 49 25 3d 31 20 b8 |)+8./:. |. I%=1 .|
|000063c0| 20 6e 73 25 0d 2f 44 18 | 20 20 e7 20 28 28 63 75 | ns%./D.|  . ((cu|
|000063d0| 72 76 65 25 3e 3e 34 29 | 3d 30 29 8c 0d 2f 4e 42 |rve%>>4)|=0)../NB|
|000063e0| 20 20 20 20 f2 64 72 61 | 77 28 a4 78 63 6f 28 63 |    .dra|w(.xco(c|
|000063f0| 75 72 76 65 5f 78 28 63 | 75 72 76 65 25 2c 49 25 |urve_x(c|urve%,I%|
+--------+-------------------------+-------------------------+--------+--------+