/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / evaluator / !Evaluator / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 21 f4 20 3e 20 | 3c 45 76 61 6c 75 61 74 |...!. > |<Evaluat|
|00000010| 6f 72 24 44 69 72 3e 2e | 21 52 75 6e 49 6d 61 67 |or$Dir>.|!RunImag|
|00000020| 65 0d 00 14 4b f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |e...K. *|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 00 1e 36 |********|****...6|
|00000070| f4 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 65 |. This p|rogram e|
|00000080| 76 61 6c 75 61 74 65 73 | 20 61 72 69 74 68 6d 61 |valuates| arithma|
|00000090| 74 69 63 61 6c 20 65 78 | 70 72 65 73 73 69 6f 6e |tical ex|pression|
|000000a0| 73 2e 0d 00 28 2e f4 20 | 4d 61 6b 65 73 20 75 73 |s...(.. |Makes us|
|000000b0| 65 20 6f 66 20 74 68 65 | 20 45 56 41 4c 2d 66 75 |e of the| EVAL-fu|
|000000c0| 6e 63 74 69 6f 6e 20 6f | 66 20 42 41 53 49 43 2e |nction o|f BASIC.|
|000000d0| 0d 00 32 41 f4 20 55 73 | 65 72 64 65 66 69 6e 65 |..2A. Us|erdefine|
|000000e0| 64 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 72 65 20 |d functi|ons are |
|000000f0| 73 70 65 63 69 66 69 65 | 64 20 69 6e 20 55 73 65 |specifie|d in Use|
|00000100| 72 46 6e 20 69 6e 20 64 | 69 72 65 63 74 6f 72 79 |rFn in d|irectory|
|00000110| 3a 0d 00 3c 17 f4 20 3c | 45 76 61 6c 75 61 74 6f |:..<.. <|Evaluato|
|00000120| 72 24 44 69 72 3e 2e 5e | 0d 00 46 36 f4 20 43 6f |r$Dir>.^|..F6. Co|
|00000130| 70 79 72 69 67 68 74 20 | 28 43 29 20 57 61 6c 74 |pyright |(C) Walt|
|00000140| 68 65 72 20 53 63 68 6f | 6f 6e 65 6e 62 65 72 67 |her Scho|onenberg|
|00000150| 2c 20 32 33 20 73 65 70 | 74 20 31 39 38 39 0d 00 |, 23 sep|t 1989..|
|00000160| 50 4b f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |PK. ****|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 00 5a 05 3a 0d 00 |********|*..Z.:..|
|000001b0| 64 1f c8 9b 20 22 3c 45 | 76 61 6c 75 61 74 6f 72 |d... "<E|valuator|
|000001c0| 24 44 69 72 3e 2e 55 73 | 65 72 46 6e 22 0d 00 6e |$Dir>.Us|erFn"..n|
|000001d0| 05 3a 0d 00 78 18 70 72 | 6f 67 72 61 6d 24 3d 22 |.:..x.pr|ogram$="|
|000001e0| 45 76 61 6c 75 61 74 6f | 72 22 0d 00 82 20 76 65 |Evaluato|r"... ve|
|000001f0| 72 73 69 6f 6e 24 3d 22 | 31 2e 31 30 20 28 32 33 |rsion$="|1.10 (23|
|00000200| 2d 53 65 70 74 2d 38 39 | 29 22 0d 00 8c 1e de 20 |-Sept-89|)"..... |
|00000210| 74 61 73 6b 69 64 25 34 | 3a 24 74 61 73 6b 69 64 |taskid%4|:$taskid|
|00000220| 25 3d 22 54 41 53 4b 22 | 0d 00 96 39 c8 99 20 22 |%="TASK"|...9.. "|
|00000230| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|00000240| 2c 32 30 30 2c 21 74 61 | 73 6b 69 64 25 2c 70 72 |,200,!ta|skid%,pr|
|00000250| 6f 67 72 61 6d 24 20 b8 | 20 76 65 72 73 69 6f 6e |ogram$ .| version|
|00000260| 25 0d 00 a0 13 ee 20 85 | 20 f2 65 72 72 6f 72 62 |%..... .| .errorb|
|00000270| 6f 78 3a e0 0d 00 aa 0c | de 20 71 25 20 32 35 36 |ox:.....|. q% 256|
|00000280| 0d 00 b4 11 de 20 62 6c | 6f 63 6b 25 20 31 30 32 |..... bl|ock% 102|
|00000290| 34 0d 00 be 2f 6d 61 78 | 77 73 25 3d 26 31 34 30 |4.../max|ws%=&140|
|000002a0| 30 3a de 20 77 73 25 20 | 6d 61 78 77 73 25 3a 77 |0:. ws% |maxws%:w|
|000002b0| 73 65 6e 64 25 3d 77 73 | 25 2b 6d 61 78 77 73 25 |send%=ws|%+maxws%|
|000002c0| 0d 00 c8 37 c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...7.. "|Wimp_Ope|
|000002d0| 6e 54 65 6d 70 6c 61 74 | 65 22 2c 2c 22 3c 45 76 |nTemplat|e",,"<Ev|
|000002e0| 61 6c 75 61 74 6f 72 24 | 44 69 72 3e 2e 54 65 6d |aluator$|Dir>.Tem|
|000002f0| 70 6c 61 74 65 73 22 0d | 00 d2 2b ee 20 85 20 c8 |plates".|..+. . .|
|00000300| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|00000310| 70 6c 61 74 65 22 3a f2 | 65 72 72 6f 72 62 6f 78 |plate":.|errorbox|
|00000320| 3a e0 0d 00 dc 41 c8 99 | 20 22 57 69 6d 70 5f 4c |:....A..| "Wimp_L|
|00000330| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000340| 6f 63 6b 25 2c 77 73 25 | 2c 77 73 65 6e 64 25 2c |ock%,ws%|,wsend%,|
|00000350| 2d 31 2c 22 49 6e 66 6f | 22 2c 30 20 b8 20 2c 2c |-1,"Info|",0 . ,,|
|00000360| 77 73 25 0d 00 e6 2a c8 | 99 20 22 57 69 6d 70 5f |ws%...*.|. "Wimp_|
|00000370| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000380| 6c 6f 63 6b 25 20 b8 20 | 69 6e 66 6f 25 0d 00 f0 |lock% . |info%...|
|00000390| 1f 76 65 72 73 69 6f 6e | 25 3d a4 69 63 6f 6e 61 |.version|%=.icona|
|000003a0| 64 64 72 28 69 6e 66 6f | 25 2c 34 29 0d 00 fa 16 |ddr(info|%,4)....|
|000003b0| 24 76 65 72 73 69 6f 6e | 25 3d 76 65 72 73 69 6f |$version|%=versio|
|000003c0| 6e 24 0d 01 04 41 c8 99 | 20 22 57 69 6d 70 5f 4c |n$...A..| "Wimp_L|
|000003d0| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|000003e0| 6f 63 6b 25 2c 77 73 25 | 2c 77 73 65 6e 64 25 2c |ock%,ws%|,wsend%,|
|000003f0| 2d 31 2c 22 4d 61 69 6e | 22 2c 30 20 b8 20 2c 2c |-1,"Main|",0 . ,,|
|00000400| 77 73 25 0d 01 0e 2a c8 | 99 20 22 57 69 6d 70 5f |ws%...*.|. "Wimp_|
|00000410| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00000420| 6c 6f 63 6b 25 20 b8 20 | 6d 61 69 6e 25 0d 01 18 |lock% . |main%...|
|00000430| 1d 69 6e 70 75 74 25 3d | a4 69 63 6f 6e 61 64 64 |.input%=|.iconadd|
|00000440| 72 28 6d 61 69 6e 25 2c | 30 29 0d 01 22 1e 6f 75 |r(main%,|0)..".ou|
|00000450| 74 70 75 74 25 3d a4 69 | 63 6f 6e 61 64 64 72 28 |tput%=.i|conaddr(|
|00000460| 6d 61 69 6e 25 2c 31 29 | 0d 01 2c 1b c8 99 20 22 |main%,1)|..,... "|
|00000470| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00000480| 74 65 22 0d 01 36 13 ee | 20 85 20 f2 65 72 72 6f |te"..6..| . .erro|
|00000490| 72 62 6f 78 3a e0 0d 01 | 40 09 f2 69 6e 69 74 0d |rbox:...|@..init.|
|000004a0| 01 4a 0b 71 75 69 74 25 | 3d a3 0d 01 54 23 6d 61 |.J.quit%|=...T#ma|
|000004b0| 73 6b 25 3d 31 3a 20 f4 | 20 6d 61 73 6b 20 6f 75 |sk%=1: .| mask ou|
|000004c0| 74 20 6e 75 6c 6c 5f 72 | 65 61 73 6f 6e 0d 01 5e |t null_r|eason..^|
|000004d0| 05 f5 0d 01 68 27 20 20 | c8 99 20 22 57 69 6d 70 |....h'  |.. "Wimp|
|000004e0| 5f 50 6f 6c 6c 22 2c 6d | 61 73 6b 25 2c 71 25 20 |_Poll",m|ask%,q% |
|000004f0| b8 20 72 65 61 73 6f 6e | 25 0d 01 72 12 20 20 c8 |. reason|%..r.  .|
|00000500| 8e 20 72 65 61 73 6f 6e | 25 20 ca 0d 01 7c 1e 20 |. reason|% ...|. |
|00000510| 20 c9 20 31 3a 20 f2 72 | 65 64 72 61 77 5f 77 69 | . 1: .r|edraw_wi|
|00000520| 6e 64 6f 77 28 21 71 25 | 29 0d 01 86 44 20 20 c9 |ndow(!q%|)...D  .|
|00000530| 20 32 3a 20 f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 | 2: .ope|n_window|
|00000540| 28 21 71 25 2c 71 25 21 | 34 2c 71 25 21 38 2c 71 |(!q%,q%!|4,q%!8,q|
|00000550| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00000560| 2c 71 25 21 32 34 2c 71 | 25 21 32 38 29 0d 01 90 |,q%!24,q|%!28)...|
|00000570| 1d 20 20 c9 20 33 3a 20 | f2 63 6c 6f 73 65 5f 77 |.  . 3: |.close_w|
|00000580| 69 6e 64 6f 77 28 21 71 | 25 29 0d 01 9a 38 20 20 |indow(!q|%)...8  |
|00000590| c9 20 36 3a 20 f2 6d 6f | 75 73 65 5f 63 6c 69 63 |. 6: .mo|use_clic|
|000005a0| 6b 28 21 71 25 2c 71 25 | 21 34 2c 71 25 21 38 2c |k(!q%,q%|!4,q%!8,|
|000005b0| 71 25 21 31 32 2c 71 25 | 21 31 36 2c 71 25 21 32 |q%!12,q%|!16,q%!2|
|000005c0| 30 29 0d 01 a4 20 20 20 | c9 20 38 3a 20 f2 6b 65 |0)...   |. 8: .ke|
|000005d0| 79 5f 70 72 65 73 73 28 | 21 71 25 2c 71 25 21 32 |y_press(|!q%,q%!2|
|000005e0| 34 29 0d 01 ae 17 20 20 | c9 20 39 3a 20 f2 6d 65 |4)....  |. 9: .me|
|000005f0| 6e 75 5f 73 65 6c 65 63 | 74 0d 01 b8 1e 20 20 c9 |nu_selec|t....  .|
|00000600| 20 31 37 2c 31 38 3a 20 | f2 72 65 63 65 69 76 65 | 17,18: |.receive|
|00000610| 28 71 25 21 31 36 29 0d | 01 c2 07 20 20 cb 0d 01 |(q%!16).|...  ...|
|00000620| cc 0b fd 20 71 75 69 74 | 25 0d 01 d6 17 c8 99 20 |... quit|%...... |
|00000630| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000640| 0d 01 e0 05 e0 0d 01 ea | 05 3a 0d 01 f4 0c dd 20 |........|.:..... |
|00000650| f2 63 6c 65 61 72 0d 01 | fe 11 ea 20 78 25 2c 79 |.clear..|... x%,y|
|00000660| 25 2c 68 25 2c 69 25 0d | 02 08 0d 69 6e 70 75 74 |%,h%,i%.|...input|
|00000670| 24 3d 22 22 0d 02 12 0e | 6f 75 74 70 75 74 24 3d |$=""....|output$=|
|00000680| 22 22 0d 02 1c 12 24 69 | 6e 70 75 74 25 3d 69 6e |""....$i|nput%=in|
|00000690| 70 75 74 24 0d 02 26 14 | 24 6f 75 74 70 75 74 25 |put$..&.|$output%|
|000006a0| 3d 6f 75 74 70 75 74 24 | 0d 02 30 31 c8 99 20 22 |=output$|..01.. "|
|000006b0| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|000006c0| 69 74 69 6f 6e 22 2c 6d | 61 69 6e 25 2c 30 2c 2d |ition",m|ain%,0,-|
|000006d0| 31 2c 2d 31 2c 2d 31 2c | 30 0d 02 3a 19 f2 72 65 |1,-1,-1,|0..:..re|
|000006e0| 64 72 61 77 5f 77 69 6e | 64 6f 77 28 6d 61 69 6e |draw_win|dow(main|
|000006f0| 25 29 0d 02 44 05 e1 0d | 02 4e 05 3a 0d 02 58 12 |%)..D...|.N.:..X.|
|00000700| dd 20 f2 6d 65 6d 6f 72 | 79 63 6c 65 61 72 0d 02 |. .memor|yclear..|
|00000710| 62 0b 76 61 72 28 29 3d | 30 0d 02 6c 05 e1 0d 02 |b.var()=|0..l....|
|00000720| 76 05 3a 0d 02 80 0f dd | 20 f2 65 76 61 6c 75 61 |v.:.....| .evalua|
|00000730| 74 65 0d 02 8a 1e ea 20 | 74 25 2c 69 25 2c 61 73 |te..... |t%,i%,as|
|00000740| 73 69 67 6e 25 2c 65 78 | 31 24 2c 65 78 76 61 6c |sign%,ex|1$,exval|
|00000750| 0d 02 94 07 ea 20 85 0d | 02 9e 1d ee 20 85 20 ea |..... ..|.... . .|
|00000760| 20 f2 65 76 61 6c 5f 65 | 72 72 6f 72 28 9f 2c f6 | .eval_e|rror(.,.|
|00000770| 24 29 3a e1 0d 02 a8 12 | 69 6e 70 75 74 24 3d 24 |$):.....|input$=$|
|00000780| 69 6e 70 75 74 25 0d 02 | b2 1d 65 78 24 3d a4 72 |input%..|..ex$=.r|
|00000790| 65 6d 6f 76 65 73 70 61 | 63 65 73 28 69 6e 70 75 |emovespa|ces(inpu|
|000007a0| 74 24 29 0d 02 bc 10 69 | 25 3d a7 65 78 24 2c 22 |t$)....i|%=.ex$,"|
|000007b0| 3d 22 29 0d 02 c6 0c e7 | 20 69 25 3d 30 20 8c 0d |=").....| i%=0 ..|
|000007c0| 02 d0 0f 20 20 61 73 73 | 69 67 6e 25 3d 30 0d 02 |...  ass|ign%=0..|
|000007d0| da 05 cc 0d 02 e4 2d 20 | 20 e7 20 69 25 3c 3e 32 |......- | . i%<>2|
|000007e0| 20 f2 65 76 61 6c 5f 65 | 72 72 6f 72 28 30 2c 22 | .eval_e|rror(0,"|
|000007f0| 53 79 6e 74 61 78 20 65 | 72 72 6f 72 22 29 3a e1 |Syntax e|rror"):.|
|00000800| 0d 02 ee 1e 20 20 65 78 | 31 24 3d c0 65 78 24 2c |....  ex|1$=.ex$,|
|00000810| 31 29 3a 65 78 24 3d c1 | 65 78 24 2c 33 29 0d 02 |1):ex$=.|ex$,3)..|
|00000820| f8 31 20 20 e7 20 a7 65 | 78 24 2c 22 3d 22 29 20 |.1  . .e|x$,"=") |
|00000830| f2 65 76 61 6c 5f 65 72 | 72 6f 72 28 30 2c 22 53 |.eval_er|ror(0,"S|
|00000840| 79 6e 74 61 78 20 65 72 | 72 6f 72 22 29 3a e1 0d |yntax er|ror"):..|
|00000850| 03 02 1e 20 20 61 73 73 | 69 67 6e 25 3d 97 28 65 |...  ass|ign%=.(e|
|00000860| 78 31 24 29 2d 97 28 22 | 61 22 29 2b 31 0d 03 0c |x1$)-.("|a")+1...|
|00000870| 3e 20 20 e7 20 61 73 73 | 69 67 6e 25 3c 31 20 84 |>  . ass|ign%<1 .|
|00000880| 20 61 73 73 69 67 6e 25 | 3e 32 36 20 f2 65 76 61 | assign%|>26 .eva|
|00000890| 6c 5f 65 72 72 6f 72 28 | 30 2c 22 53 79 6e 74 61 |l_error(|0,"Synta|
|000008a0| 78 20 65 72 72 6f 72 22 | 29 3a e1 0d 03 16 05 cd |x error"|):......|
|000008b0| 0d 03 20 13 e3 20 74 25 | 3d 31 20 b8 20 a9 28 65 |.. .. t%|=1 . .(e|
|000008c0| 78 24 29 0d 03 2a 23 20 | 20 f2 76 61 72 73 28 97 |x$)..*# | .vars(.|
|000008d0| 28 c1 65 78 24 2c 74 25 | 2c 31 29 29 2d 97 28 22 |(.ex$,t%|,1))-.("|
|000008e0| 61 22 29 2b 31 29 0d 03 | 34 05 ed 0d 03 3e 10 65 |a")+1)..|4....>.e|
|000008f0| 78 76 61 6c 3d a0 28 65 | 78 24 29 0d 03 48 20 e7 |xval=.(e|x$)..H .|
|00000900| 20 61 73 73 69 67 6e 25 | 20 76 61 72 28 61 73 73 | assign%| var(ass|
|00000910| 69 67 6e 25 29 3d 65 78 | 76 61 6c 0d 03 52 15 24 |ign%)=ex|val..R.$|
|00000920| 6f 75 74 70 75 74 25 3d | c3 28 65 78 76 61 6c 29 |output%=|.(exval)|
|00000930| 0d 03 5c 19 f2 72 65 64 | 72 61 77 5f 77 69 6e 64 |..\..red|raw_wind|
|00000940| 6f 77 28 6d 61 69 6e 25 | 29 0d 03 66 07 f7 20 85 |ow(main%|)..f.. .|
|00000950| 0d 03 70 05 e1 0d 03 7a | 05 3a 0d 03 84 0f dd 20 |..p....z|.:..... |
|00000960| f2 76 61 72 73 28 69 25 | 29 0d 03 8e 0b c8 8e 20 |.vars(i%|)...... |
|00000970| 69 25 20 ca 0d 03 98 13 | c9 20 20 31 3a 20 61 3d |i% .....|.  1: a=|
|00000980| 76 61 72 28 69 25 29 0d | 03 a2 13 c9 20 20 32 3a |var(i%).|....  2:|
|00000990| 20 62 3d 76 61 72 28 69 | 25 29 0d 03 ac 13 c9 20 | b=var(i|%)..... |
|000009a0| 20 33 3a 20 63 3d 76 61 | 72 28 69 25 29 0d 03 b6 | 3: c=va|r(i%)...|
|000009b0| 13 c9 20 20 34 3a 20 64 | 3d 76 61 72 28 69 25 29 |..  4: d|=var(i%)|
|000009c0| 0d 03 c0 13 c9 20 20 35 | 3a 20 65 3d 76 61 72 28 |.....  5|: e=var(|
|000009d0| 69 25 29 0d 03 ca 13 c9 | 20 20 36 3a 20 66 3d 76 |i%).....|  6: f=v|
|000009e0| 61 72 28 69 25 29 0d 03 | d4 13 c9 20 20 37 3a 20 |ar(i%)..|...  7: |
|000009f0| 67 3d 76 61 72 28 69 25 | 29 0d 03 de 13 c9 20 20 |g=var(i%|).....  |
|00000a00| 38 3a 20 68 3d 76 61 72 | 28 69 25 29 0d 03 e8 13 |8: h=var|(i%)....|
|00000a10| c9 20 20 39 3a 20 69 3d | 76 61 72 28 69 25 29 0d |.  9: i=|var(i%).|
|00000a20| 03 f2 13 c9 20 31 30 3a | 20 6a 3d 76 61 72 28 69 |.... 10:| j=var(i|
|00000a30| 25 29 0d 03 fc 13 c9 20 | 31 31 3a 20 6b 3d 76 61 |%)..... |11: k=va|
|00000a40| 72 28 69 25 29 0d 04 06 | 13 c9 20 31 32 3a 20 6c |r(i%)...|.. 12: l|
|00000a50| 3d 76 61 72 28 69 25 29 | 0d 04 10 13 c9 20 31 33 |=var(i%)|..... 13|
|00000a60| 3a 20 6d 3d 76 61 72 28 | 69 25 29 0d 04 1a 13 c9 |: m=var(|i%).....|
|00000a70| 20 31 34 3a 20 6e 3d 76 | 61 72 28 69 25 29 0d 04 | 14: n=v|ar(i%)..|
|00000a80| 24 13 c9 20 31 35 3a 20 | 6f 3d 76 61 72 28 69 25 |$.. 15: |o=var(i%|
|00000a90| 29 0d 04 2e 13 c9 20 31 | 36 3a 20 70 3d 76 61 72 |)..... 1|6: p=var|
|00000aa0| 28 69 25 29 0d 04 38 13 | c9 20 31 37 3a 20 71 3d |(i%)..8.|. 17: q=|
|00000ab0| 76 61 72 28 69 25 29 0d | 04 42 13 c9 20 31 38 3a |var(i%).|.B.. 18:|
|00000ac0| 20 72 3d 76 61 72 28 69 | 25 29 0d 04 4c 13 c9 20 | r=var(i|%)..L.. |
|00000ad0| 31 39 3a 20 73 3d 76 61 | 72 28 69 25 29 0d 04 56 |19: s=va|r(i%)..V|
|00000ae0| 13 c9 20 32 30 3a 20 74 | 3d 76 61 72 28 69 25 29 |.. 20: t|=var(i%)|
|00000af0| 0d 04 60 13 c9 20 32 31 | 3a 20 75 3d 76 61 72 28 |..`.. 21|: u=var(|
|00000b00| 69 25 29 0d 04 6a 13 c9 | 20 32 32 3a 20 76 3d 76 |i%)..j..| 22: v=v|
|00000b10| 61 72 28 69 25 29 0d 04 | 74 13 c9 20 32 33 3a 20 |ar(i%)..|t.. 23: |
|00000b20| 77 3d 76 61 72 28 69 25 | 29 0d 04 7e 13 c9 20 32 |w=var(i%|)..~.. 2|
|00000b30| 34 3a 20 78 3d 76 61 72 | 28 69 25 29 0d 04 88 13 |4: x=var|(i%)....|
|00000b40| c9 20 32 35 3a 20 79 3d | 76 61 72 28 69 25 29 0d |. 25: y=|var(i%).|
|00000b50| 04 92 13 c9 20 32 36 3a | 20 7a 3d 76 61 72 28 69 |.... 26:| z=var(i|
|00000b60| 25 29 0d 04 9c 05 cb 0d | 04 a6 05 e1 0d 04 b0 05 |%)......|........|
|00000b70| 3a 0d 04 ba 17 dd 20 a4 | 72 65 6d 6f 76 65 73 70 |:..... .|removesp|
|00000b80| 61 63 65 73 28 61 24 29 | 0d 04 c4 0b ea 20 69 25 |aces(a$)|..... i%|
|00000b90| 2c 62 24 0d 04 ce 09 62 | 24 3d 22 22 0d 04 d8 12 |,b$....b|$=""....|
|00000ba0| e3 20 69 25 3d 31 20 b8 | 20 a9 28 61 24 29 0d 04 |. i%=1 .| .(a$)..|
|00000bb0| e2 24 20 20 e7 20 c1 61 | 24 2c 69 25 2c 31 29 3c |.$  . .a|$,i%,1)<|
|00000bc0| 3e 22 20 22 20 62 24 2b | 3d c1 61 24 2c 69 25 2c |>" " b$+|=.a$,i%,|
|00000bd0| 31 29 0d 04 ec 05 ed 0d | 04 f6 07 3d 62 24 0d 05 |1)......|...=b$..|
|00000be0| 00 05 3a 0d 05 0a 1e dd | 20 f2 65 76 61 6c 5f 65 |..:.....| .eval_e|
|00000bf0| 72 72 6f 72 28 65 72 72 | 25 2c 65 72 72 6f 72 24 |rror(err|%,error$|
|00000c00| 29 0d 05 14 0d c8 8e 20 | 65 72 72 25 20 ca 0d 05 |)...... |err% ...|
|00000c10| 1e 2b c9 20 31 34 2c 32 | 39 20 20 20 20 20 3a 20 |.+. 14,2|9     : |
|00000c20| 65 72 72 6f 72 24 3d 22 | 55 6e 6b 6e 6f 77 6e 20 |error$="|Unknown |
|00000c30| 66 75 6e 63 74 69 6f 6e | 22 0d 05 28 29 c9 20 32 |function|"..(). 2|
|00000c40| 30 20 20 20 20 20 20 20 | 20 3a 20 65 72 72 6f 72 |0       | : error|
|00000c50| 24 3d 22 4e 75 6d 62 65 | 72 20 74 6f 6f 20 62 69 |$="Numbe|r too bi|
|00000c60| 67 22 0d 05 32 28 c9 20 | 32 33 20 20 20 20 20 20 |g"..2(. |23      |
|00000c70| 20 20 3a 20 65 72 72 6f | 72 24 3d 22 41 63 63 75 |  : erro|r$="Accu|
|00000c80| 72 61 63 79 20 6c 6f 73 | 74 22 0d 05 3c 27 c9 20 |racy los|t"..<'. |
|00000c90| 36 2c 32 36 2c 33 30 2c | 33 31 3a 20 65 72 72 6f |6,26,30,|31: erro|
|00000ca0| 72 24 3d 22 53 79 6e 74 | 61 78 20 65 72 72 6f 72 |r$="Synt|ax error|
|00000cb0| 22 0d 05 46 05 cb 0d 05 | 50 23 6f 75 74 70 75 74 |"..F....|P#output|
|00000cc0| 24 3d 65 72 72 6f 72 24 | 3a 24 6f 75 74 70 75 74 |$=error$|:$output|
|00000cd0| 25 3d 6f 75 74 70 75 74 | 24 0d 05 5a 19 f2 72 65 |%=output|$..Z..re|
|00000ce0| 64 72 61 77 5f 77 69 6e | 64 6f 77 28 6d 61 69 6e |draw_win|dow(main|
|00000cf0| 25 29 0d 05 64 05 e1 0d | 05 6e 05 3a 0d 05 78 18 |%)..d...|.n.:..x.|
|00000d00| dd 20 f2 72 65 63 65 69 | 76 65 28 6d 65 73 73 61 |. .recei|ve(messa|
|00000d10| 67 65 25 29 0d 05 82 11 | c8 8e 20 6d 65 73 73 61 |ge%)....|.. messa|
|00000d20| 67 65 25 20 ca 0d 05 8c | 10 c9 20 30 3a 20 71 75 |ge% ....|.. 0: qu|
|00000d30| 69 74 25 3d b9 0d 05 96 | 05 cb 0d 05 a0 05 e1 0d |it%=....|........|
|00000d40| 05 aa 05 3a 0d 05 b4 38 | dd 20 f2 6d 6f 75 73 65 |...:...8|. .mouse|
|00000d50| 5f 63 6c 69 63 6b 28 6d | 6f 75 73 65 78 25 2c 6d |_click(m|ousex%,m|
|00000d60| 6f 75 73 65 79 25 2c 62 | 25 2c 68 61 6e 64 6c 65 |ousey%,b|%,handle|
|00000d70| 25 2c 69 63 6f 6e 25 2c | 6f 62 25 29 0d 05 be 0b |%,icon%,|ob%)....|
|00000d80| c8 8e 20 62 25 20 ca 0d | 05 c8 07 c9 20 32 0d 05 |.. b% ..|.... 2..|
|00000d90| d2 1b 20 20 e7 20 68 61 | 6e 64 6c 65 25 3d 2d 32 |..  . ha|ndle%=-2|
|00000da0| 20 f2 64 6f 5f 6d 65 6e | 75 0d 05 dc 09 c9 20 31 | .do_men|u..... 1|
|00000db0| 2c 34 0d 05 e6 12 20 20 | c8 8e 20 68 61 6e 64 6c |,4....  |.. handl|
|00000dc0| 65 25 20 ca 0d 05 f0 0d | 20 20 c9 20 6d 61 69 6e |e% .....|  . main|
|00000dd0| 25 0d 05 fa 12 20 20 20 | 20 c8 8e 20 69 63 6f 6e |%....   | .. icon|
|00000de0| 25 20 ca 0d 06 04 15 20 | 20 20 20 20 20 c9 20 34 |% ..... |     . 4|
|00000df0| 3a 20 f2 63 6c 65 61 72 | 0d 06 0e 18 20 20 20 20 |: .clear|....    |
|00000e00| 20 20 c9 20 35 3a 20 f2 | 65 76 61 6c 75 61 74 65 |  . 5: .|evaluate|
|00000e10| 0d 06 18 1b 20 20 20 20 | 20 20 c9 20 36 3a 20 f2 |....    |  . 6: .|
|00000e20| 6d 65 6d 6f 72 79 63 6c | 65 61 72 0d 06 22 09 20 |memorycl|ear..". |
|00000e30| 20 20 20 cb 0d 06 2c 0a | 20 20 c9 20 2d 32 0d 06 |   ...,.|  . -2..|
|00000e40| 36 36 20 20 20 20 e7 20 | 6f 70 65 6e 25 20 f2 66 |66    . |open% .f|
|00000e50| 72 6f 6e 74 28 6d 61 69 | 6e 25 29 20 8b 20 f2 72 |ront(mai|n%) . .r|
|00000e60| 65 6f 70 65 6e 28 6d 61 | 69 6e 25 29 3a 6f 70 65 |eopen(ma|in%):ope|
|00000e70| 6e 25 3d b9 0d 06 40 07 | 20 20 cb 0d 06 4a 05 cb |n%=...@.|  ...J..|
|00000e80| 0d 06 54 05 e1 0d 06 5e | 05 3a 0d 06 68 1e dd 20 |..T....^|.:..h.. |
|00000e90| f2 6b 65 79 5f 70 72 65 | 73 73 28 68 61 6e 64 6c |.key_pre|ss(handl|
|00000ea0| 65 25 2c 6b 65 79 25 29 | 0d 06 72 16 e7 20 68 61 |e%,key%)|..r.. ha|
|00000eb0| 6e 64 6c 65 25 3c 3e 6d | 61 69 6e 25 20 e1 0d 06 |ndle%<>m|ain% ...|
|00000ec0| 7c 33 e7 20 6b 65 79 25 | 3d 31 33 20 f2 65 76 61 ||3. key%|=13 .eva|
|00000ed0| 6c 75 61 74 65 20 8b 20 | c8 99 20 22 57 69 6d 70 |luate . |.. "Wimp|
|00000ee0| 5f 50 72 6f 63 65 73 73 | 4b 65 79 22 2c 6b 65 79 |_Process|Key",key|
|00000ef0| 25 0d 06 86 05 e1 0d 06 | 90 05 3a 0d 06 9a 1c dd |%.......|..:.....|
|00000f00| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 68 | .close_|window(h|
|00000f10| 61 6e 64 6c 65 25 29 0d | 06 a4 12 f2 67 65 74 77 |andle%).|....getw|
|00000f20| 28 68 61 6e 64 6c 65 25 | 29 0d 06 ae 1b 78 6f 25 |(handle%|)....xo%|
|00000f30| 3d 78 30 25 3a 79 6f 25 | 3d 79 30 25 3a 6f 70 65 |=x0%:yo%|=y0%:ope|
|00000f40| 6e 25 3d a3 0d 06 b8 29 | 21 71 25 3d 68 61 6e 64 |n%=....)|!q%=hand|
|00000f50| 6c 65 25 3a c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |le%:.. "|Wimp_Clo|
|00000f60| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 0d 06 c2 |seWindow|",,q%...|
|00000f70| 05 e1 0d 06 cc 05 3a 0d | 06 d6 0e dd 20 f2 64 6f |......:.|.... .do|
|00000f80| 5f 6d 65 6e 75 0d 06 e0 | 34 c8 99 20 22 57 69 6d |_menu...|4.. "Wim|
|00000f90| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 69 |p_Create|Menu",,i|
|00000fa0| 63 6f 6e 6d 65 6e 75 25 | 2c 6d 6f 75 73 65 78 25 |conmenu%|,mousex%|
|00000fb0| 2d 36 34 2c 39 36 2b 38 | 30 0d 06 ea 05 e1 0d 06 |-64,96+8|0.......|
|00000fc0| f4 05 3a 0d 06 fe 24 dd | 20 f2 63 72 65 61 74 65 |..:...$.| .create|
|00000fd0| 5f 6d 65 6e 75 28 6d 65 | 6e 75 62 6c 6f 63 6b 25 |_menu(me|nublock%|
|00000fe0| 2c 74 65 78 74 24 29 0d | 07 08 44 ea 20 74 69 74 |,text$).|..D. tit|
|00000ff0| 6c 65 24 2c 70 74 72 25 | 2c 73 68 61 64 65 25 2c |le$,ptr%|,shade%,|
|00001000| 74 69 63 6b 25 2c 64 6f | 74 74 65 64 25 2c 66 67 |tick%,do|tted%,fg|
|00001010| 63 6f 6c 25 2c 73 75 62 | 6d 65 6e 75 25 2c 77 72 |col%,sub|menu%,wr|
|00001020| 69 74 61 62 6c 65 25 2c | 6d 62 25 0d 07 12 12 6d |itable%,|mb%....m|
|00001030| 62 25 3d 6d 65 6e 75 62 | 6c 6f 63 6b 25 0d 07 1c |b%=menub|lock%...|
|00001040| 20 74 69 74 6c 65 24 3d | c0 74 65 78 74 24 2c a7 | title$=|.text$,.|
|00001050| 74 65 78 74 24 2c 22 2c | 22 29 2d 31 29 0d 07 26 |text$,",|")-1)..&|
|00001060| 1f 74 65 78 74 24 3d c1 | 74 65 78 74 24 2c a7 74 |.text$=.|text$,.t|
|00001070| 65 78 74 24 2c 22 2c 22 | 29 2b 31 29 0d 07 30 14 |ext$,","|)+1)..0.|
|00001080| 24 6d 62 25 3d c0 74 69 | 74 6c 65 24 2c 31 31 29 |$mb%=.ti|tle$,11)|
|00001090| 0d 07 3a 36 6d 62 25 3f | 31 32 3d 60 74 66 63 6f |..:6mb%?|12=`tfco|
|000010a0| 6c 3a 6d 62 25 3f 31 33 | 3d 32 3a 6d 62 25 3f 31 |l:mb%?13|=2:mb%?1|
|000010b0| 34 3d 60 77 66 63 6f 6c | 3a 6d 62 25 3f 31 35 3d |4=`wfcol|:mb%?15=|
|000010c0| 60 77 62 63 6f 6c 0d 07 | 44 21 6d 62 25 21 31 36 |`wbcol..|D!mb%!16|
|000010d0| 3d 31 38 30 3a 6d 62 25 | 21 32 30 3d 34 30 3a 6d |=180:mb%|!20=40:m|
|000010e0| 62 25 21 32 34 3d 30 0d | 07 4e 1f e7 20 c2 74 65 |b%!24=0.|.N.. .te|
|000010f0| 78 74 24 2c 31 29 3c 3e | 22 2c 22 20 74 65 78 74 |xt$,1)<>|"," text|
|00001100| 24 2b 3d 22 2c 22 0d 07 | 58 0f 70 74 72 25 3d 6d |$+=","..|X.ptr%=m|
|00001110| 62 25 2b 32 38 0d 07 62 | 05 f5 0d 07 6c 0e 20 20 |b%+28..b|....l.  |
|00001120| 73 68 61 64 65 25 3d 30 | 0d 07 76 0d 20 20 74 69 |shade%=0|..v.  ti|
|00001130| 63 6b 25 3d 30 0d 07 80 | 0f 20 20 64 6f 74 74 65 |ck%=0...|.  dotte|
|00001140| 64 25 3d 30 0d 07 8a 11 | 20 20 73 75 62 6d 65 6e |d%=0....|  submen|
|00001150| 75 25 3d 2d 31 0d 07 94 | 34 20 20 e7 20 c0 74 65 |u%=-1...|4  . .te|
|00001160| 78 74 24 2c 31 29 3d 22 | 3c 22 20 73 68 61 64 65 |xt$,1)="|<" shade|
|00001170| 25 3d 26 34 30 30 30 30 | 30 3a 74 65 78 74 24 3d |%=&40000|0:text$=|
|00001180| c1 74 65 78 74 24 2c 32 | 29 0d 07 9e 2d 20 20 e7 |.text$,2|)...-  .|
|00001190| 20 c0 74 65 78 74 24 2c | 31 29 3d 22 3e 22 20 74 | .text$,|1)=">" t|
|000011a0| 69 63 6b 25 3d 31 3a 74 | 65 78 74 24 3d c1 74 65 |ick%=1:t|ext$=.te|
|000011b0| 78 74 24 2c 32 29 0d 07 | a8 2f 20 20 e7 20 c0 74 |xt$,2)..|./  . .t|
|000011c0| 65 78 74 24 2c 31 29 3d | 22 3a 22 20 64 6f 74 74 |ext$,1)=|":" dott|
|000011d0| 65 64 25 3d 32 3a 74 65 | 78 74 24 3d c1 74 65 78 |ed%=2:te|xt$=.tex|
|000011e0| 74 24 2c 32 29 0d 07 b2 | 34 20 20 e7 20 c0 74 65 |t$,2)...|4  . .te|
|000011f0| 78 74 24 2c 31 29 3d 22 | 21 22 20 73 75 62 6d 65 |xt$,1)="|!" subme|
|00001200| 6e 75 25 3d 69 6e 66 6f | 25 3a 74 65 78 74 24 3d |nu%=info|%:text$=|
|00001210| c1 74 65 78 74 24 2c 32 | 29 0d 07 bc 2b 20 20 24 |.text$,2|)...+  $|
|00001220| 28 70 74 72 25 2b 31 32 | 29 3d c0 c0 74 65 78 74 |(ptr%+12|)=..text|
|00001230| 24 2c a7 74 65 78 74 24 | 2c 22 2c 22 29 2d 31 29 |$,.text$|,",")-1)|
|00001240| 2c 31 31 29 0d 07 c6 21 | 20 20 74 65 78 74 24 3d |,11)...!|  text$=|
|00001250| c1 74 65 78 74 24 2c a7 | 74 65 78 74 24 2c 22 2c |.text$,.|text$,",|
|00001260| 22 29 2b 31 29 0d 07 d0 | 31 20 20 70 74 72 25 21 |")+1)...|1  ptr%!|
|00001270| 30 3d 74 69 63 6b 25 20 | 84 20 64 6f 74 74 65 64 |0=tick% |. dotted|
|00001280| 25 20 84 20 28 26 38 30 | 20 80 20 28 74 65 78 74 |% . (&80| . (text|
|00001290| 24 3d 22 22 29 29 0d 07 | da 15 20 20 70 74 72 25 |$=""))..|..  ptr%|
|000012a0| 21 34 3d 73 75 62 6d 65 | 6e 75 25 0d 07 e4 4c 20 |!4=subme|nu%...L |
|000012b0| 20 e7 20 73 68 61 64 65 | 25 20 8c 20 70 74 72 25 | . shade|% . ptr%|
|000012c0| 21 38 3d 26 34 30 30 30 | 30 30 20 84 20 26 30 31 |!8=&4000|00 . &01|
|000012d0| 30 30 32 31 20 84 20 37 | 3c 3c 32 38 20 84 20 30 |0021 . 7|<<28 . 0|
|000012e0| 3c 3c 32 34 20 8b 20 70 | 74 72 25 21 38 3d 26 30 |<<24 . p|tr%!8=&0|
|000012f0| 37 30 30 30 30 32 31 0d | 07 ee 0e 20 20 70 74 72 |7000021.|...  ptr|
|00001300| 25 2b 3d 32 34 0d 07 f8 | 0e fd 20 74 65 78 74 24 |%+=24...|.. text$|
|00001310| 3d 22 22 0d 08 02 05 e1 | 0d 08 0c 05 3a 0d 08 16 |="".....|....:...|
|00001320| 12 dd 20 f2 6d 65 6e 75 | 5f 73 65 6c 65 63 74 0d |.. .menu|_select.|
|00001330| 08 20 13 ea 20 6d 65 6e | 75 24 2c 61 64 6a 75 73 |. .. men|u$,adjus|
|00001340| 74 25 0d 08 2a 3b c8 99 | 20 22 57 69 6d 70 5f 47 |t%..*;..| "Wimp_G|
|00001350| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|00001360| 62 6c 6f 63 6b 25 3a 61 | 64 6a 75 73 74 25 3d 28 |block%:a|djust%=(|
|00001370| 62 6c 6f 63 6b 25 21 38 | 20 80 20 31 29 0d 08 34 |block%!8| . 1)..4|
|00001380| 39 c8 99 20 22 57 69 6d | 70 5f 44 65 63 6f 64 65 |9.. "Wim|p_Decode|
|00001390| 4d 65 6e 75 22 2c 2c 69 | 63 6f 6e 6d 65 6e 75 25 |Menu",,i|conmenu%|
|000013a0| 2c 71 25 2c c4 32 30 30 | 2c 22 20 22 29 b8 2c 2c |,q%,.200|," ").,,|
|000013b0| 2c 6d 65 6e 75 24 0d 08 | 3e 1a e7 20 6d 65 6e 75 |,menu$..|>.. menu|
|000013c0| 24 3d 22 51 75 69 74 22 | 20 71 75 69 74 25 3d b9 |$="Quit"| quit%=.|
|000013d0| 0d 08 48 16 e7 20 61 64 | 6a 75 73 74 25 20 f2 64 |..H.. ad|just% .d|
|000013e0| 6f 5f 6d 65 6e 75 0d 08 | 52 05 e1 0d 08 5c 05 3a |o_menu..|R....\.:|
|000013f0| 0d 08 66 1d dd 20 f2 72 | 65 64 72 61 77 5f 77 69 |..f.. .r|edraw_wi|
|00001400| 6e 64 6f 77 28 68 61 6e | 64 6c 65 25 29 0d 08 70 |ndow(han|dle%)..p|
|00001410| 0f 21 71 25 3d 68 61 6e | 64 6c 65 25 0d 08 7a 26 |.!q%=han|dle%..z&|
|00001420| c8 99 20 22 57 69 6d 70 | 5f 52 65 64 72 61 77 57 |.. "Wimp|_RedrawW|
|00001430| 69 6e 64 6f 77 22 2c 2c | 71 25 20 b8 20 6d 6f 72 |indow",,|q% . mor|
|00001440| 65 25 0d 08 84 0f f2 69 | 6e 66 6f 28 71 25 2b 34 |e%.....i|nfo(q%+4|
|00001450| 29 0d 08 8e 0c c8 95 20 | 6d 6f 72 65 25 0d 08 98 |)...... |more%...|
|00001460| 28 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 52 |(  .. "W|imp_GetR|
|00001470| 65 63 74 61 6e 67 6c 65 | 22 2c 2c 71 25 20 b8 20 |ectangle|",,q% . |
|00001480| 6d 6f 72 65 25 0d 08 a2 | 05 ce 0d 08 ac 05 e1 0d |more%...|........|
|00001490| 08 b6 05 3a 0d 08 c0 15 | dd 20 f2 66 72 6f 6e 74 |...:....|. .front|
|000014a0| 28 68 61 6e 64 6c 65 25 | 29 0d 08 ca 12 e7 20 68 |(handle%|)..... h|
|000014b0| 61 6e 64 6c 65 25 3d 2d | 31 20 e1 0d 08 d4 12 f2 |andle%=-|1 ......|
|000014c0| 67 65 74 77 28 68 61 6e | 64 6c 65 25 29 0d 08 de |getw(han|dle%)...|
|000014d0| 36 f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 68 61 |6.open_w|indow(ha|
|000014e0| 6e 64 6c 65 25 2c 78 30 | 25 2c 79 30 25 2c 78 31 |ndle%,x0|%,y0%,x1|
|000014f0| 25 2c 79 31 25 2c 73 63 | 78 25 2c 73 63 79 25 2c |%,y1%,sc|x%,scy%,|
|00001500| 2d 31 29 0d 08 e8 05 e1 | 0d 08 f2 05 3a 0d 08 fc |-1).....|....:...|
|00001510| 16 dd 20 f2 72 65 6f 70 | 65 6e 28 68 61 6e 64 6c |.. .reop|en(handl|
|00001520| 65 25 29 0d 09 06 12 f2 | 67 65 74 77 28 68 61 6e |e%).....|getw(han|
|00001530| 64 6c 65 25 29 0d 09 10 | 46 f2 6f 70 65 6e 5f 77 |dle%)...|F.open_w|
|00001540| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 2c 78 6f |indow(ha|ndle%,xo|
|00001550| 25 2c 79 6f 25 2c 78 31 | 25 2d 78 30 25 2b 78 6f |%,yo%,x1|%-x0%+xo|
|00001560| 25 2c 79 31 25 2d 79 30 | 25 2b 79 6f 25 2c 73 63 |%,y1%-y0|%+yo%,sc|
|00001570| 78 25 2c 73 63 79 25 2c | 2d 31 29 0d 09 1a 05 e1 |x%,scy%,|-1).....|
|00001580| 0d 09 24 05 3a 0d 09 2e | 3e dd 20 f2 6f 70 65 6e |..$.:...|>. .open|
|00001590| 5f 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 2c |_window(|handle%,|
|000015a0| 78 30 25 2c 79 30 25 2c | 78 31 25 2c 79 31 25 2c |x0%,y0%,|x1%,y1%,|
|000015b0| 73 63 78 25 2c 73 63 79 | 25 2c 62 68 61 6e 64 6c |scx%,scy|%,bhandl|
|000015c0| 65 25 29 0d 09 38 12 e7 | 20 68 61 6e 64 6c 65 25 |e%)..8..| handle%|
|000015d0| 3d 2d 31 20 e1 0d 09 42 | 27 62 6c 6f 63 6b 25 21 |=-1 ...B|'block%!|
|000015e0| 30 3d 68 61 6e 64 6c 65 | 25 3a 62 6c 6f 63 6b 25 |0=handle|%:block%|
|000015f0| 21 32 38 3d 62 68 61 6e | 64 6c 65 25 0d 09 4c 39 |!28=bhan|dle%..L9|
|00001600| 62 6c 6f 63 6b 25 21 34 | 3d 78 30 25 3a 62 6c 6f |block%!4|=x0%:blo|
|00001610| 63 6b 25 21 38 3d 79 30 | 25 3a 62 6c 6f 63 6b 25 |ck%!8=y0|%:block%|
|00001620| 21 31 32 3d 78 31 25 3a | 62 6c 6f 63 6b 25 21 31 |!12=x1%:|block%!1|
|00001630| 36 3d 79 31 25 0d 09 56 | 21 62 6c 6f 63 6b 25 21 |6=y1%..V|!block%!|
|00001640| 32 30 3d 73 63 78 25 3a | 62 6c 6f 63 6b 25 21 32 |20=scx%:|block%!2|
|00001650| 34 3d 73 63 79 25 0d 09 | 60 20 c8 99 20 22 57 69 |4=scy%..|` .. "Wi|
|00001660| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00001670| 62 6c 6f 63 6b 25 0d 09 | 6a 05 e1 0d 09 74 05 3a |block%..|j....t.:|
|00001680| 0d 09 7e 14 dd 20 f2 67 | 65 74 77 28 68 61 6e 64 |..~.. .g|etw(hand|
|00001690| 6c 65 25 29 0d 09 88 34 | 21 62 6c 6f 63 6b 25 3d |le%)...4|!block%=|
|000016a0| 68 61 6e 64 6c 65 25 3a | c8 99 20 22 57 69 6d 70 |handle%:|.. "Wimp|
|000016b0| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|000016c0| 2c 2c 62 6c 6f 63 6b 25 | 0d 09 92 37 f2 69 6e 66 |,,block%|...7.inf|
|000016d0| 6f 28 62 6c 6f 63 6b 25 | 2b 34 29 3a 62 68 61 6e |o(block%|+4):bhan|
|000016e0| 64 6c 65 25 3d 62 6c 6f | 63 6b 25 21 32 38 3a 66 |dle%=blo|ck%!28:f|
|000016f0| 6c 61 67 73 25 3d 62 6c | 6f 63 6b 25 21 33 32 0d |lags%=bl|ock%!32.|
|00001700| 09 9c 05 e1 0d 09 a6 05 | 3a 0d 09 b0 13 dd 20 f2 |........|:..... .|
|00001710| 69 6e 66 6f 28 62 6c 6f | 63 6b 25 29 0d 09 ba 55 |info(blo|ck%)...U|
|00001720| 78 30 25 3d 21 62 6c 6f | 63 6b 25 3a 79 30 25 3d |x0%=!blo|ck%:y0%=|
|00001730| 62 6c 6f 63 6b 25 21 34 | 3a 78 31 25 3d 62 6c 6f |block%!4|:x1%=blo|
|00001740| 63 6b 25 21 38 3a 79 31 | 25 3d 62 6c 6f 63 6b 25 |ck%!8:y1|%=block%|
|00001750| 21 31 32 3a 73 63 78 25 | 3d 62 6c 6f 63 6b 25 21 |!12:scx%|=block%!|
|00001760| 31 36 3a 73 63 79 25 3d | 62 6c 6f 63 6b 25 21 32 |16:scy%=|block%!2|
|00001770| 30 0d 09 c4 1d 62 78 25 | 3d 78 30 25 2d 73 63 78 |0....bx%|=x0%-scx|
|00001780| 25 3a 62 79 25 3d 79 31 | 25 2d 73 63 79 25 0d 09 |%:by%=y1|%-scy%..|
|00001790| ce 05 e1 0d 09 d8 05 3a | 0d 09 e2 11 dd 20 f2 67 |.......:|..... .g|
|000017a0| 65 74 70 6f 69 6e 74 65 | 72 0d 09 ec 24 c8 99 20 |etpointe|r...$.. |
|000017b0| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|000017c0| 49 6e 66 6f 22 2c 2c 62 | 6c 6f 63 6b 25 0d 09 f6 |Info",,b|lock%...|
|000017d0| 60 6d 6f 75 73 65 78 25 | 3d 21 62 6c 6f 63 6b 25 |`mousex%|=!block%|
|000017e0| 3a 6d 6f 75 73 65 79 25 | 3d 62 6c 6f 63 6b 25 21 |:mousey%|=block%!|
|000017f0| 34 3a 62 25 3d 62 6c 6f | 63 6b 25 21 38 3a 68 61 |4:b%=blo|ck%!8:ha|
|00001800| 6e 64 6c 65 25 3d 62 6c | 6f 63 6b 25 21 31 32 3a |ndle%=bl|ock%!12:|
|00001810| 69 63 6f 6e 25 3d 62 6c | 6f 63 6b 25 21 31 36 3a |icon%=bl|ock%!16:|
|00001820| 6f 62 25 3d 62 6c 6f 63 | 6b 25 21 32 30 0d 0a 00 |ob%=bloc|k%!20...|
|00001830| 05 e1 0d 0a 0a 05 3a 0d | 0a 14 0b dd 20 f2 69 6e |......:.|.... .in|
|00001840| 69 74 0d 0a 1e 49 60 77 | 62 63 6f 6c 3d 30 3a 60 |it...I`w|bcol=0:`|
|00001850| 74 62 63 6f 6c 3d 32 3a | 60 73 63 6f 3d 33 3a 60 |tbcol=2:|`sco=3:`|
|00001860| 6d 62 63 6f 6c 3d 32 3a | 60 77 66 63 6f 6c 3d 37 |mbcol=2:|`wfcol=7|
|00001870| 3a 60 74 66 63 6f 6c 3d | 37 3a 60 73 63 69 3d 31 |:`tfcol=|7:`sci=1|
|00001880| 3a 60 74 62 63 6f 6c 32 | 3d 31 32 0d 0a 28 13 de |:`tbcol2|=12..(..|
|00001890| 20 69 63 6f 6e 6d 65 6e | 75 25 20 32 36 38 0d 0a | iconmen|u% 268..|
|000018a0| 32 32 f2 63 72 65 61 74 | 65 5f 6d 65 6e 75 28 69 |22.creat|e_menu(i|
|000018b0| 63 6f 6e 6d 65 6e 75 25 | 2c 70 72 6f 67 72 61 6d |conmenu%|,program|
|000018c0| 24 2b 22 2c 21 49 6e 66 | 6f 2c 51 75 69 74 22 29 |$+",!Inf|o,Quit")|
|000018d0| 0d 0a 3c 4c 21 71 25 3d | 2d 31 3a 71 25 21 34 3d |..<L!q%=|-1:q%!4=|
|000018e0| 30 3a 71 25 21 38 3d 30 | 3a 71 25 21 31 32 3d 36 |0:q%!8=0|:q%!12=6|
|000018f0| 39 3a 71 25 21 31 36 3d | 36 38 3a 71 25 21 32 30 |9:q%!16=|68:q%!20|
|00001900| 3d 26 33 30 30 32 3a 24 | 28 71 25 2b 32 34 29 3d |=&3002:$|(q%+24)=|
|00001910| 22 21 65 76 61 6c 75 61 | 74 6f 72 22 0d 0a 46 27 |"!evalua|tor"..F'|
|00001920| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00001930| 63 6f 6e 22 2c 2c 71 25 | 20 b8 20 69 63 6f 6e 62 |con",,q%| . iconb|
|00001940| 61 72 25 0d 0a 50 0b 6f | 70 65 6e 25 3d a3 0d 0a |ar%..P.o|pen%=...|
|00001950| 5a 48 f2 67 65 74 70 6f | 69 6e 74 65 72 3a 78 6f |ZH.getpo|inter:xo|
|00001960| 25 3d 6d 6f 75 73 65 78 | 25 3a 79 6f 25 3d 6d 6f |%=mousex|%:yo%=mo|
|00001970| 75 73 65 79 25 3a 20 f4 | 20 6f 6e 6c 79 20 6e 65 |usey%: .| only ne|
|00001980| 63 65 73 73 61 72 79 20 | 69 66 20 6f 70 65 6e 25 |cessary |if open%|
|00001990| 3d 46 41 4c 53 45 0d 0a | 64 0d de 20 76 61 72 28 |=FALSE..|d.. var(|
|000019a0| 32 36 29 0d 0a 6e 05 e1 | 0d 0a 78 05 3a 0d 0a 82 |26)..n..|..x.:...|
|000019b0| 16 dd 20 a4 69 63 6f 6e | 61 64 64 72 28 68 25 2c |.. .icon|addr(h%,|
|000019c0| 69 25 29 0d 0a 8c 2d 21 | 71 25 3d 68 25 3a 71 25 |i%)...-!|q%=h%:q%|
|000019d0| 21 34 3d 69 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |!4=i%:..| "Wimp_G|
|000019e0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|000019f0| 0d 0a 96 33 e7 20 28 71 | 25 21 32 34 20 80 20 26 |...3. (q|%!24 . &|
|00001a00| 31 30 30 29 3d 30 20 85 | 20 30 2c 22 49 63 6f 6e |100)=0 .| 0,"Icon|
|00001a10| 20 69 73 20 6e 6f 74 20 | 69 6e 64 69 72 65 63 74 | is not |indirect|
|00001a20| 65 64 22 0d 0a a0 0a 3d | 71 25 21 32 38 0d 0a aa |ed"....=|q%!28...|
|00001a30| 05 3a 0d 0a b4 0f dd 20 | f2 65 72 72 6f 72 62 6f |.:..... |.errorbo|
|00001a40| 78 0d 0a be 07 ea 20 85 | 0d 0a c8 1f ee 20 85 20 |x..... .|..... . |
|00001a50| ea 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |. .. "Wi|mp_Close|
|00001a60| 44 6f 77 6e 22 3a e0 0d | 0a d2 36 21 71 25 3d 9f |Down":..|..6!q%=.|
|00001a70| 3a 24 28 71 25 2b 34 29 | 3d f6 24 2b 22 20 28 69 |:$(q%+4)|=.$+" (i|
|00001a80| 6e 74 65 72 6e 61 6c 20 | 65 72 72 6f 72 20 22 2b |nternal |error "+|
|00001a90| c3 28 9e 29 2b 22 29 22 | 2b bd 28 30 29 0d 0a dc |.(.)+")"|+.(0)...|
|00001aa0| 27 c8 99 20 22 57 69 6d | 70 5f 52 65 70 6f 72 74 |'.. "Wim|p_Report|
|00001ab0| 45 72 72 6f 72 22 2c 71 | 25 2c 31 2c 70 72 6f 67 |Error",q|%,1,prog|
|00001ac0| 72 61 6d 24 0d 0a e6 17 | c8 99 20 22 57 69 6d 70 |ram$....|.. "Wimp|
|00001ad0| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 0d 0a f0 05 e1 |_CloseDo|wn".....|
|00001ae0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+