home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-07-15 | 25.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 21 43 75 72 72 65 6e 74 |..... > |!Current|
|00000010| 0d 00 14 22 f4 20 28 63 | 29 20 45 2e 53 70 69 65 |...". (c|) E.Spie|
|00000020| 72 20 31 39 38 38 2c 38 | 39 2c 39 30 2c 39 31 2c |r 1988,8|9,90,91,|
|00000030| 39 32 0d 00 1e 2f f4 20 | 21 53 63 69 43 61 6c 63 |92.../. |!SciCalc|
|00000040| 20 2d 20 41 20 72 65 6d | 65 64 79 20 6f 66 20 41 | - A rem|edy of A|
|00000050| 63 6f 72 6e 27 73 20 6f | 6d 6d 69 73 73 69 6f 6e |corn's o|mmission|
|00000060| 21 0d 00 28 05 3a 0d 00 | 32 0c 64 65 62 75 67 25 |!..(.:..|2.debug%|
|00000070| 3d a3 0d 00 3c 05 3a 0d | 00 46 22 70 72 6f 67 5f |=...<.:.|.F"prog_|
|00000080| 64 61 74 65 24 3d 22 31 | 2e 30 36 64 20 28 31 36 |date$="1|.06d (16|
|00000090| 2d 4a 75 6c 2d 39 32 29 | 22 0d 00 50 1e de 20 74 |-Jul-92)|"..P.. t|
|000000a0| 61 73 6b 69 64 25 34 3a | 24 74 61 73 6b 69 64 25 |askid%4:|$taskid%|
|000000b0| 3d 22 54 41 53 4b 22 0d | 00 5a 2d ee 20 85 20 c8 |="TASK".|.Z-. . .|
|000000c0| 99 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e |."Wimp_C|loseDown|
|000000d0| 22 3a f6 3a f1 22 20 61 | 74 20 6c 69 6e 65 20 22 |":.:." a|t line "|
|000000e0| 3b 9e 3a e0 0d 00 64 4a | c8 99 20 22 57 69 6d 70 |;.:...dJ|.. "Wimp|
|000000f0| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|00000100| 2c 21 74 61 73 6b 69 64 | 25 2c 22 53 63 69 65 6e |,!taskid|%,"Scien|
|00000110| 74 69 66 69 63 20 43 61 | 6c 63 22 20 b8 20 76 65 |tific Ca|lc" . ve|
|00000120| 72 73 69 6f 6e 25 2c 74 | 61 73 6b 69 64 25 0d 00 |rsion%,t|askid%..|
|00000130| 6e 4d 60 77 62 63 6f 6c | 3d 31 30 3a 60 74 62 63 |nM`wbcol|=10:`tbc|
|00000140| 6f 6c 3d 31 30 3a 60 73 | 63 6f 3d 34 3a 60 6d 62 |ol=10:`s|co=4:`mb|
|00000150| 63 6f 6c 3d 30 3a 60 77 | 66 63 6f 6c 3d 26 37 3a |col=0:`w|fcol=&7:|
|00000160| 60 74 66 63 6f 6c 3d 37 | 3a 60 73 63 69 3d 26 44 |`tfcol=7|:`sci=&D|
|00000170| 3a 60 74 62 63 6f 6c 32 | 3d 26 43 0d 00 78 10 62 |:`tbcol2|=&C..x.b|
|00000180| 75 66 73 69 7a 65 25 3d | 32 35 36 0d 00 82 76 de |ufsize%=|256...v.|
|00000190| 20 71 25 20 32 30 34 38 | 2c 63 61 72 65 74 73 74 | q% 2048|,caretst|
|000001a0| 6f 72 65 25 20 32 38 2c | 74 65 6d 70 25 20 62 75 |ore% 28,|temp% bu|
|000001b0| 66 73 69 7a 65 25 2c 62 | 75 66 66 65 72 25 20 26 |fsize%,b|uffer% &|
|000001c0| 33 30 30 2c 43 24 28 38 | 29 2c 63 68 61 72 69 6d |300,C$(8|),charim|
|000001d0| 61 67 65 20 38 2c 69 6e | 70 75 74 76 61 72 73 25 |age 8,in|putvars%|
|000001e0| 20 33 2a 34 2c 6f 75 74 | 70 75 74 76 61 72 73 25 | 3*4,out|putvars%|
|000001f0| 20 32 2a 34 2c 6d 73 67 | 5f 62 6c 6b 25 20 32 35 | 2*4,msg|_blk% 25|
|00000200| 36 0d 00 8c 2f 65 6e 64 | 62 75 66 25 3d 2d 31 3a |6.../end|buf%=-1:|
|00000210| 63 75 72 62 75 66 25 3d | 62 75 66 66 65 72 25 3a |curbuf%=|buffer%:|
|00000220| 63 61 72 65 74 73 74 6f | 72 65 25 21 30 3d 2d 31 |caretsto|re%!0=-1|
|00000230| 0d 00 96 32 6c 65 61 66 | 6e 61 6d 65 24 3d 22 22 |...2leaf|name$=""|
|00000240| 3a 64 61 74 61 73 61 76 | 65 24 3d 22 52 65 73 75 |:datasav|e$="Resu|
|00000250| 6c 74 22 3a 73 61 76 65 | 74 6f 66 69 6c 65 24 3d |lt":save|tofile$=|
|00000260| 22 22 0d 00 a0 1c 68 6f | 74 6b 65 79 25 3d 2d 31 |""....ho|tkey%=-1|
|00000270| 3a 77 61 73 70 72 65 73 | 73 65 64 25 3d a3 0d 00 |:waspres|sed%=...|
|00000280| aa 05 3a 0d 00 b4 20 6c | 65 66 74 6d 61 72 67 69 |..:... l|eftmargi|
|00000290| 6e 25 3d 31 36 3a 74 6f | 70 6d 61 72 67 69 6e 25 |n%=16:to|pmargin%|
|000002a0| 3d 31 36 0d 00 be 1f 78 | 5f 73 70 61 63 69 6e 67 |=16....x|_spacing|
|000002b0| 25 3d 32 34 3a 79 5f 73 | 70 61 63 69 6e 67 25 3d |%=24:y_s|pacing%=|
|000002c0| 34 34 0d 00 c8 29 de 20 | 69 6e 70 75 74 76 61 72 |44...). |inputvar|
|000002d0| 73 25 20 33 2a 34 2d 31 | 2c 20 6f 75 74 70 75 74 |s% 3*4-1|, output|
|000002e0| 76 61 72 73 25 20 32 2a | 34 2d 31 0d 00 d2 10 f2 |vars% 2*|4-1.....|
|000002f0| 67 65 74 6d 6f 64 65 69 | 6e 66 6f 0d 00 dc 05 3a |getmodei|nfo....:|
|00000300| 0d 00 e6 32 53 25 3d 8e | 22 3c 43 61 6c 63 75 6c |...2S%=.|"<Calcul|
|00000310| 61 74 6f 72 24 44 69 72 | 3e 2e 53 70 72 69 74 65 |ator$Dir|>.Sprite|
|00000320| 73 22 3a 54 25 3d a2 23 | 53 25 2b 31 36 3a d9 23 |s":T%=.#|S%+16:.#|
|00000330| 53 25 0d 00 f0 11 de 20 | 73 70 72 69 74 65 73 25 |S%..... |sprites%|
|00000340| 20 54 25 0d 00 fa 1e 21 | 73 70 72 69 74 65 73 25 | T%....!|sprites%|
|00000350| 3d 54 25 3a 73 70 72 69 | 74 65 73 25 21 38 3d 31 |=T%:spri|tes%!8=1|
|00000360| 32 0d 01 04 22 c8 99 20 | 22 4f 53 5f 53 70 72 69 |2...".. |"OS_Spri|
|00000370| 74 65 4f 70 22 2c 26 31 | 30 39 2c 73 70 72 69 74 |teOp",&1|09,sprit|
|00000380| 65 73 25 0d 01 0e 3d c8 | 99 20 22 4f 53 5f 53 70 |es%...=.|. "OS_Sp|
|00000390| 72 69 74 65 4f 70 22 2c | 26 31 30 41 2c 73 70 72 |riteOp",|&10A,spr|
|000003a0| 69 74 65 73 25 2c 22 3c | 43 61 6c 63 75 6c 61 74 |ites%,"<|Calculat|
|000003b0| 6f 72 24 44 69 72 3e 2e | 53 70 72 69 74 65 73 22 |or$Dir>.|Sprites"|
|000003c0| 0d 01 18 14 69 63 63 61 | 6c 63 25 3d a4 69 63 6f |....icca|lc%=.ico|
|000003d0| 6e 62 61 72 0d 01 22 05 | 3a 0d 01 2c 38 6d 73 67 |nbar..".|:..,8msg|
|000003e0| 5f 66 69 6c 65 25 3d a4 | 69 6e 69 74 5f 6d 73 67 |_file%=.|init_msg|
|000003f0| 66 69 6c 65 28 22 3c 43 | 61 6c 63 75 6c 61 74 6f |file("<C|alculato|
|00000400| 72 24 44 69 72 3e 2e 6d | 65 73 73 61 67 65 73 22 |r$Dir>.m|essages"|
|00000410| 29 0d 01 36 0e 6f 6c 64 | 68 65 6c 70 3d 2d 31 0d |)..6.old|help=-1.|
|00000420| 01 40 05 3a 0d 01 4a 33 | 53 25 3d 8e 22 3c 43 61 |.@.:..J3|S%=."<Ca|
|00000430| 6c 63 75 6c 61 74 6f 72 | 24 44 69 72 3e 2e 4b 65 |lculator|$Dir>.Ke|
|00000440| 79 54 61 62 6c 65 22 3a | 54 25 3d a2 23 53 25 2b |yTable":|T%=.#S%+|
|00000450| 31 36 3a d9 23 53 25 0d | 01 54 17 de 20 6b 65 79 |16:.#S%.|.T.. key|
|00000460| 74 72 61 6e 73 61 72 72 | 61 79 25 20 54 25 0d 01 |transarr|ay% T%..|
|00000470| 5e 45 e3 20 6c 6f 6f 70 | 25 3d 6b 65 79 74 72 61 |^E. loop|%=keytra|
|00000480| 6e 73 61 72 72 61 79 25 | 20 b8 20 6b 65 79 74 72 |nsarray%| . keytr|
|00000490| 61 6e 73 61 72 72 61 79 | 25 2b 54 25 20 88 20 34 |ansarray|%+T% . 4|
|000004a0| 3a 21 6c 6f 6f 70 25 3d | 26 46 46 46 46 46 46 46 |:!loop%=|&FFFFFFF|
|000004b0| 46 3a ed 0d 01 68 41 c8 | 99 20 22 4f 53 5f 46 69 |F:...hA.|. "OS_Fi|
|000004c0| 6c 65 22 2c 26 46 46 2c | 22 3c 43 61 6c 63 75 6c |le",&FF,|"<Calcul|
|000004d0| 61 74 6f 72 24 44 69 72 | 3e 2e 4b 65 79 54 61 62 |ator$Dir|>.KeyTab|
|000004e0| 6c 65 22 2c 6b 65 79 74 | 72 61 6e 73 61 72 72 61 |le",keyt|ransarra|
|000004f0| 79 25 2c 30 0d 01 72 05 | 3a 0d 01 7c 37 c8 99 20 |y%,0..r.|:..|7.. |
|00000500| 22 57 69 6d 70 5f 4f 70 | 65 6e 54 65 6d 70 6c 61 |"Wimp_Op|enTempla|
|00000510| 74 65 22 2c 2c 22 3c 43 | 61 6c 63 75 6c 61 74 6f |te",,"<C|alculato|
|00000520| 72 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 22 |r$Dir>.T|emplate"|
|00000530| 0d 01 86 29 ee 20 85 20 | c8 99 20 22 57 69 6d 70 |...). . |.. "Wimp|
|00000540| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 3a |_CloseTe|mplate":|
|00000550| f2 65 72 72 6f 72 62 6f | 78 0d 01 90 4f c8 99 20 |.errorbo|x...O.. |
|00000560| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00000570| 74 65 22 2c 2c 71 25 2c | 74 65 6d 70 25 2c 74 65 |te",,q%,|temp%,te|
|00000580| 6d 70 25 2b 62 75 66 73 | 69 7a 65 25 2c 2d 31 2c |mp%+bufs|ize%,-1,|
|00000590| 22 63 61 6c 63 75 6c 61 | 74 6f 72 22 2c 30 20 b8 |"calcula|tor",0 .|
|000005a0| 20 2c 2c 74 65 6d 70 25 | 0d 01 9a 12 71 25 21 36 | ,,temp%|....q%!6|
|000005b0| 34 3d 73 70 72 69 74 65 | 73 25 0d 01 a4 26 c8 99 |4=sprite|s%...&..|
|000005c0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|000005d0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 63 61 6c 63 25 |dow",,q%| . calc%|
|000005e0| 0d 01 ae 3f c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...?.. "|Wimp_Loa|
|000005f0| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 25 2c 74 |dTemplat|e",,q%,t|
|00000600| 65 6d 70 25 2c 74 65 6d | 70 25 2b 62 75 66 73 69 |emp%,tem|p%+bufsi|
|00000610| 7a 65 25 2c 2d 31 2c 22 | 49 6e 66 6f 22 2c 30 0d |ze%,-1,"|Info",0.|
|00000620| 01 b8 12 71 25 21 36 34 | 3d 73 70 72 69 74 65 73 |...q%!64|=sprites|
|00000630| 25 0d 01 c2 26 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%...&.. |"Wimp_Cr|
|00000640| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|00000650| b8 20 69 6e 66 6f 25 0d | 01 cc 37 71 25 21 30 3d |. info%.|..7q%!0=|
|00000660| 69 6e 66 6f 25 3a 71 25 | 21 34 3d 33 3a c8 99 20 |info%:q%|!4=3:.. |
|00000670| 26 34 30 30 43 45 2c 2c | 71 25 3a f4 20 57 69 6d |&400CE,,|q%:. Wim|
|00000680| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 0d 01 |p_GetIco|nState..|
|00000690| d6 1a 24 28 21 28 71 25 | 2b 32 38 29 29 3d 70 72 |..$(!(q%|+28))=pr|
|000006a0| 6f 67 5f 64 61 74 65 24 | 0d 01 e0 40 c8 99 20 22 |og_date$|...@.. "|
|000006b0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|000006c0| 65 22 2c 2c 71 25 2c 74 | 65 6d 70 25 2c 74 65 6d |e",,q%,t|emp%,tem|
|000006d0| 70 25 2b 62 75 66 73 69 | 7a 65 25 2c 2d 31 2c 22 |p%+bufsi|ze%,-1,"|
|000006e0| 61 73 63 69 69 22 2c 30 | 0d 01 ea 12 71 25 21 36 |ascii",0|....q%!6|
|000006f0| 34 3d 73 70 72 69 74 65 | 73 25 0d 01 f4 27 c8 99 |4=sprite|s%...'..|
|00000700| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|00000710| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 61 73 63 69 69 |dow",,q%| . ascii|
|00000720| 25 0d 01 fe 1b c8 99 20 | 22 57 69 6d 70 5f 43 6c |%...... |"Wimp_Cl|
|00000730| 6f 73 65 54 65 6d 70 6c | 61 74 65 22 0d 02 08 05 |oseTempl|ate"....|
|00000740| 3a 0d 02 12 33 71 25 21 | 30 3d 63 61 6c 63 25 3a |:...3q%!|0=calc%:|
|00000750| 71 25 21 34 3d 31 37 3a | c8 99 20 26 34 30 30 43 |q%!4=17:|.. &400C|
|00000760| 45 2c 2c 71 25 3a 64 69 | 73 70 6c 61 79 25 3d 71 |E,,q%:di|splay%=q|
|00000770| 25 21 32 38 0d 02 1c 05 | 3a 0d 02 26 0d f2 63 61 |%!28....|:..&..ca|
|00000780| 6c 63 69 6e 69 74 0d 02 | 30 05 3a 0d 02 3a 10 ee |lcinit..|0.:..:..|
|00000790| 85 20 f2 65 72 72 6f 72 | 62 6f 78 0d 02 44 05 3a |. .error|box..D.:|
|000007a0| 0d 02 4e 45 c8 99 20 22 | 57 69 6d 70 5f 44 72 61 |..NE.. "|Wimp_Dra|
|000007b0| 67 42 6f 78 22 2c 2c 2d | 31 3a f2 67 65 74 70 6f |gBox",,-|1:.getpo|
|000007c0| 69 6e 74 65 72 3a 78 6f | 25 3d 6d 6f 75 73 65 78 |inter:xo|%=mousex|
|000007d0| 25 3a 79 6f 25 3d 6d 6f | 75 73 65 79 25 3a 6f 70 |%:yo%=mo|usey%:op|
|000007e0| 65 6e 25 3d a3 0d 02 58 | 05 f5 0d 02 62 1c c8 99 |en%=...X|....b...|
|000007f0| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 30 2c 71 | "Wimp_P|oll",0,q|
|00000800| 25 20 b8 20 41 25 0d 02 | 6c 0b c8 8e 20 41 25 20 |% . A%..|l... A% |
|00000810| ca 0d 02 76 10 c9 20 30 | 20 3a f2 68 6f 74 6b 65 |...v.. 0| :.hotke|
|00000820| 79 0d 02 80 1c c9 20 31 | 20 3a f2 72 65 64 72 61 |y..... 1| :.redra|
|00000830| 77 5f 77 69 6e 64 6f 77 | 28 21 71 25 29 0d 02 8a |w_window|(!q%)...|
|00000840| 42 c9 20 32 20 3a f2 6f | 70 65 6e 5f 77 69 6e 64 |B. 2 :.o|pen_wind|
|00000850| 6f 77 28 21 71 25 2c 71 | 25 21 34 2c 71 25 21 38 |ow(!q%,q|%!4,q%!8|
|00000860| 2c 71 25 21 31 32 2c 71 | 25 21 31 36 2c 71 25 21 |,q%!12,q|%!16,q%!|
|00000870| 32 30 2c 71 25 21 32 34 | 2c 71 25 21 32 38 29 0d |20,q%!24|,q%!28).|
|00000880| 02 94 1b c9 20 33 20 3a | f2 63 6c 6f 73 65 61 77 |.... 3 :|.closeaw|
|00000890| 69 6e 64 6f 77 28 21 71 | 25 29 0d 02 9e 35 c9 20 |indow(!q|%)...5. |
|000008a0| 36 20 3a f2 63 68 65 63 | 6b 6d 6f 75 73 65 28 21 |6 :.chec|kmouse(!|
|000008b0| 71 25 2c 71 25 21 34 2c | 71 25 21 38 2c 71 25 21 |q%,q%!4,|q%!8,q%!|
|000008c0| 31 32 2c 71 25 21 31 36 | 2c 71 25 21 32 30 29 0d |12,q%!16|,q%!20).|
|000008d0| 02 a8 15 c9 20 37 20 3a | f2 64 72 61 67 62 6f 78 |.... 7 :|.dragbox|
|000008e0| 28 71 25 29 0d 02 b2 2a | c9 20 38 20 3a e7 20 71 |(q%)...*|. 8 :. q|
|000008f0| 25 21 30 3d 63 61 6c 63 | 25 20 8c 20 f2 6b 65 79 |%!0=calc|% . .key|
|00000900| 70 72 65 73 73 65 64 28 | 71 25 21 32 34 29 0d 02 |pressed(|q%!24)..|
|00000910| bc 18 c9 20 39 20 3a f2 | 6d 65 6e 75 73 65 6c 65 |... 9 :.|menusele|
|00000920| 63 74 28 71 25 29 0d 02 | c6 35 c9 20 31 31 3a 63 |ct(q%)..|.5. 11:c|
|00000930| 61 72 65 74 73 74 6f 72 | 65 25 21 30 3d 2d 31 3a |aretstor|e%!0=-1:|
|00000940| f4 20 73 65 65 20 79 61 | 20 72 6f 75 6e 64 20 6c |. see ya| round l|
|00000950| 61 74 65 72 20 63 61 72 | 65 74 21 0d 02 d0 18 c9 |ater car|et!.....|
|00000960| 20 31 37 2c 31 38 3a f2 | 72 65 63 65 69 76 65 28 | 17,18:.|receive(|
|00000970| 71 25 29 0d 02 da 13 c9 | 20 31 39 3a f2 6e 6f 61 |q%).....| 19:.noa|
|00000980| 63 6b 28 71 25 29 0d 02 | e4 05 cb 0d 02 ee 07 fd |ck(q%)..|........|
|00000990| 20 a3 0d 02 f8 05 e0 0d | 03 02 05 3a 0d 03 0c 12 | .......|...:....|
|000009a0| dd 20 f2 72 65 63 65 69 | 76 65 28 71 25 29 0d 03 |. .recei|ve(q%)..|
|000009b0| 16 0e c8 8e 20 71 25 21 | 31 36 20 ca 0d 03 20 11 |.... q%!|16 ... .|
|000009c0| c9 20 30 3a f2 66 69 6e | 69 73 68 3a e0 0d 03 2a |. 0:.fin|ish:...*|
|000009d0| 18 c9 20 32 3a f2 64 61 | 74 61 73 61 76 65 61 63 |.. 2:.da|tasaveac|
|000009e0| 6b 28 71 25 29 0d 03 34 | 18 c9 20 34 3a f2 64 61 |k(q%)..4|.. 4:.da|
|000009f0| 74 61 6c 6f 61 64 61 63 | 6b 28 71 25 29 0d 03 3e |taloadac|k(q%)..>|
|00000a00| 15 c9 20 36 3a f2 72 61 | 6d 66 65 74 63 68 28 71 |.. 6:.ra|mfetch(q|
|00000a10| 25 29 0d 03 48 0a c9 20 | 26 35 30 32 0d 03 52 18 |%)..H.. |&502..R.|
|00000a20| e7 20 71 25 21 33 36 20 | 3c 3e 20 6f 6c 64 68 65 |. q%!36 |<> oldhe|
|00000a30| 6c 70 20 8c 0d 03 5c 1d | 6f 6c 64 68 65 6c 70 3d |lp ...\.|oldhelp=|
|00000a40| 71 25 21 33 36 3a 6f 6c | 64 68 65 6c 70 24 3d 22 |q%!36:ol|dhelp$="|
|00000a50| 22 0d 03 66 35 e7 20 71 | 25 21 33 32 3d 2d 32 20 |"..f5. q|%!32=-2 |
|00000a60| 8c 20 6f 6c 64 68 65 6c | 70 24 3d a4 6c 6f 6f 6b |. oldhel|p$=.look|
|00000a70| 75 70 5f 6d 73 67 28 22 | 2d 32 22 2c 6d 73 67 5f |up_msg("|-2",msg_|
|00000a80| 66 69 6c 65 25 29 0d 03 | 70 39 e7 20 71 25 21 33 |file%)..|p9. q%!3|
|00000a90| 32 3d 61 73 63 69 69 25 | 20 8c 20 6f 6c 64 68 65 |2=ascii%| . oldhe|
|00000aa0| 6c 70 24 3d a4 6c 6f 6f | 6b 75 70 5f 6d 73 67 28 |lp$=.loo|kup_msg(|
|00000ab0| 22 2d 33 22 2c 6d 73 67 | 5f 66 69 6c 65 25 29 0d |"-3",msg|_file%).|
|00000ac0| 03 7a 3d e7 20 71 25 21 | 33 32 3d 20 63 61 6c 63 |.z=. q%!|32= calc|
|00000ad0| 25 20 8c 20 6f 6c 64 68 | 65 6c 70 24 3d a4 6c 6f |% . oldh|elp$=.lo|
|00000ae0| 6f 6b 75 70 5f 6d 73 67 | 28 c3 28 71 25 21 33 36 |okup_msg|(.(q%!36|
|00000af0| 29 2c 6d 73 67 5f 66 69 | 6c 65 25 29 0d 03 84 05 |),msg_fi|le%)....|
|00000b00| cd 0d 03 8e 1b f2 73 65 | 6e 64 5f 68 65 6c 70 28 |......se|nd_help(|
|00000b10| 71 25 2c 6f 6c 64 68 65 | 6c 70 24 29 0d 03 98 19 |q%,oldhe|lp$)....|
|00000b20| c9 20 26 34 30 30 43 31 | 3a f2 67 65 74 6d 6f 64 |. &400C1|:.getmod|
|00000b30| 65 69 6e 66 6f 0d 03 a2 | 05 cb 0d 03 ac 05 e1 0d |einfo...|........|
|00000b40| 03 b6 05 3a 0d 03 c0 37 | dd 20 f2 63 68 65 63 6b |...:...7|. .check|
|00000b50| 6d 6f 75 73 65 28 6d 6f | 75 73 65 78 25 2c 6d 6f |mouse(mo|usex%,mo|
|00000b60| 75 73 65 79 25 2c 62 25 | 2c 68 61 6e 64 6c 65 25 |usey%,b%|,handle%|
|00000b70| 2c 69 63 6f 6e 25 2c 6f | 62 25 29 0d 03 ca 0f e7 |,icon%,o|b%).....|
|00000b80| 28 62 25 80 32 29 3c 3e | 30 8c 0d 03 d4 10 c8 8e |(b%.2)<>|0.......|
|00000b90| 20 68 61 6e 64 6c 65 25 | 20 ca 0d 03 de 4d c9 20 | handle%| ....M. |
|00000ba0| 2d 32 3a 20 f2 64 6f 6d | 65 6e 75 28 31 30 31 2c |-2: .dom|enu(101,|
|00000bb0| 62 75 66 66 65 72 25 2c | 22 3e 49 6e 66 6f 2e 69 |buffer%,|">Info.i|
|00000bc0| 6e 66 6f 25 2c 51 75 69 | 74 22 2c 22 43 61 6c 63 |nfo%,Qui|t","Calc|
|00000bd0| 75 6c 61 74 6f 72 22 2c | 6d 6f 75 73 65 78 25 2d |ulator",|mousex%-|
|00000be0| 36 34 2c 31 37 36 29 0d | 03 e8 41 c9 20 63 61 6c |64,176).|..A. cal|
|00000bf0| 63 25 3a 20 f2 64 6f 6d | 65 6e 75 28 31 30 32 2c |c%: .dom|enu(102,|
|00000c00| 62 75 66 66 65 72 25 2c | 6d 61 69 6e 24 2c 22 43 |buffer%,|main$,"C|
|00000c10| 61 6c 63 22 2c 6d 6f 75 | 73 65 78 25 2d 36 34 2c |alc",mou|sex%-64,|
|00000c20| 6d 6f 75 73 65 79 25 29 | 0d 03 f2 05 cb 0d 03 fc |mousey%)|........|
|00000c30| 05 cc 0d 04 06 1e e7 68 | 61 6e 64 6c 65 25 3e 2d |.......h|andle%>-|
|00000c40| 31 8c f2 67 65 74 77 28 | 68 61 6e 64 6c 65 25 29 |1..getw(|handle%)|
|00000c50| 0d 04 10 10 c8 8e 20 68 | 61 6e 64 6c 65 25 20 ca |...... h|andle% .|
|00000c60| 0d 04 1a 0d c9 20 61 73 | 63 69 69 25 3a 0d 04 24 |..... as|cii%:..$|
|00000c70| 24 61 3d a4 63 6f 6f 72 | 64 73 74 6f 63 68 61 72 |$a=.coor|dstochar|
|00000c80| 28 6d 6f 75 73 65 78 25 | 2c 6d 6f 75 73 65 79 25 |(mousex%|,mousey%|
|00000c90| 29 0d 04 2e 0d e7 20 61 | 3c 3e 2d 31 20 8c 0d 04 |)..... a|<>-1 ...|
|00000ca0| 38 22 72 65 67 69 73 74 | 65 72 3d 61 3a 65 6e 74 |8"regist|er=a:ent|
|00000cb0| 72 79 24 3d 22 30 22 3a | 69 63 6f 6e 25 3d 2d 31 |ry$="0":|icon%=-1|
|00000cc0| 0d 04 42 0e f2 64 6f 64 | 69 73 70 6c 61 79 0d 04 |..B..dod|isplay..|
|00000cd0| 4c 05 cd 0d 04 56 25 e7 | 20 62 25 3d 34 20 8c 20 |L....V%.| b%=4 . |
|00000ce0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00000cf0| 65 6e 75 22 2c 2c 2d 31 | 0d 04 60 0c c9 20 63 61 |enu",,-1|..`.. ca|
|00000d00| 6c 63 25 3a 0d 04 6a 11 | c8 99 20 26 34 30 30 44 |lc%:..j.|.. &400D|
|00000d10| 33 2c 2c 71 25 0d 04 74 | 23 e7 20 ac 28 68 61 6e |3,,q%..t|#. .(han|
|00000d20| 64 6c 65 25 3d 63 61 6c | 63 25 20 80 20 69 63 6f |dle%=cal|c% . ico|
|00000d30| 6e 25 3d 31 37 29 20 8c | 0d 04 7e 49 e7 20 71 25 |n%=17) .|..~I. q%|
|00000d40| 21 30 3c 3e 63 61 6c 63 | 25 20 8c 20 e3 20 6c 6f |!0<>calc|% . . lo|
|00000d50| 6f 70 25 3d 30 20 b8 20 | 32 34 20 88 20 34 3a 21 |op%=0 . |24 . 4:!|
|00000d60| 28 63 61 72 65 74 73 74 | 6f 72 65 25 2b 6c 6f 6f |(caretst|ore%+loo|
|00000d70| 70 25 29 3d 21 28 71 25 | 2b 6c 6f 6f 70 25 29 3a |p%)=!(q%|+loop%):|
|00000d80| ed 0d 04 88 34 c8 99 20 | 22 57 69 6d 70 5f 53 65 |....4.. |"Wimp_Se|
|00000d90| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|00000da0| 63 61 6c 63 25 2c 2d 31 | 2c 30 2c 30 2c 31 3c 3c |calc%,-1|,0,0,1<<|
|00000db0| 32 35 2c 2d 31 0d 04 92 | 05 cd 0d 04 9c 5d e7 20 |25,-1...|.....]. |
|00000dc0| 69 63 6f 6e 25 3c 3e 31 | 37 20 80 20 28 69 63 6f |icon%<>1|7 . (ico|
|00000dd0| 6e 25 3c 33 35 20 84 20 | 69 63 6f 6e 25 3e 33 39 |n%<35 . |icon%>39|
|00000de0| 29 20 80 20 28 69 63 6f | 6e 25 3c 34 36 20 84 20 |) . (ico|n%<46 . |
|00000df0| 69 63 6f 6e 25 3e 34 37 | 29 20 8c 20 f2 66 6c 61 |icon%>47|) . .fla|
|00000e00| 73 68 5f 69 63 6f 6e 28 | 63 61 6c 63 25 2c 69 63 |sh_icon(|calc%,ic|
|00000e10| 6f 6e 25 2c 71 25 29 0d | 04 a6 07 ea 20 85 0d 04 |on%,q%).|.... ...|
|00000e20| b0 1f ee 20 85 20 ea 20 | 65 72 72 6f 72 66 6c 61 |... . . |errorfla|
|00000e30| 67 25 3d b9 3a 69 63 6f | 6e 25 3d 2d 31 0d 04 ba |g%=.:ico|n%=-1...|
|00000e40| 0f 6f 70 63 6f 75 6e 74 | 25 2b 3d 31 0d 04 c4 21 |.opcount|%+=1...!|
|00000e50| e7 20 28 62 25 20 80 20 | 34 29 20 80 20 ac 20 69 |. (b% . |4) . . i|
|00000e60| 6e 76 65 72 73 65 5f 6b | 65 79 25 20 8c 0d 04 ce |nverse_k|ey% ....|
|00000e70| 12 e7 20 65 72 72 6f 72 | 66 6c 61 67 25 20 8c 0d |.. error|flag% ..|
|00000e80| 04 d8 18 e7 20 69 63 6f | 6e 25 3d 34 34 20 f2 61 |.... ico|n%=44 .a|
|00000e90| 6c 6c 63 6c 65 61 72 0d | 04 e2 05 cc 0d 04 ec 33 |llclear.|.......3|
|00000ea0| e7 20 69 63 6f 6e 25 3e | 39 20 80 20 69 63 6f 6e |. icon%>|9 . icon|
|00000eb0| 25 3c 31 36 20 80 20 62 | 61 73 65 25 3d 31 36 20 |%<16 . b|ase%=16 |
|00000ec0| 8c 20 f2 64 69 67 69 74 | 28 69 63 6f 6e 25 29 0d |. .digit|(icon%).|
|00000ed0| 04 f6 0e c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 05 00 |..... ic|on% ....|
|00000ee0| 09 c9 20 2d 31 3a 0d 05 | 0a 19 c9 20 30 2c 31 2c |.. -1:..|... 0,1,|
|00000ef0| 32 2c 33 2c 34 2c 35 2c | 36 2c 37 2c 38 2c 39 0d |2,3,4,5,|6,7,8,9.|
|00000f00| 05 14 11 e7 20 65 78 70 | 6f 6e 65 6e 74 25 20 8c |.... exp|onent% .|
|00000f10| 0d 05 1e 31 e7 20 69 63 | 6f 6e 25 3c 31 30 20 8c |...1. ic|on%<10 .|
|00000f20| 20 65 78 70 24 3d c2 22 | 30 30 22 2b 65 78 70 24 | exp$=."|00"+exp$|
|00000f30| 2b bd 28 69 63 6f 6e 25 | 2b 97 22 30 22 29 2c 32 |+.(icon%|+."0"),2|
|00000f40| 29 0d 05 28 05 cc 0d 05 | 32 28 e7 20 62 61 73 65 |)..(....|2(. base|
|00000f50| 25 3c 3e 32 20 84 20 69 | 63 6f 6e 25 3c 32 20 8c |%<>2 . i|con%<2 .|
|00000f60| 20 f2 64 69 67 69 74 28 | 69 63 6f 6e 25 29 0d 05 | .digit(|icon%)..|
|00000f70| 3c 05 cd 0d 05 46 13 c9 | 20 34 34 3a 20 f2 61 6c |<....F..| 44: .al|
|00000f80| 6c 63 6c 65 61 72 0d 05 | 50 16 c9 20 33 33 3a 20 |lclear..|P.. 33: |
|00000f90| e7 65 78 70 6f 6e 65 6e | 74 25 20 8c 0d 05 5a 0e |.exponen|t% ...Z.|
|00000fa0| 65 73 67 6e 3d 2d 65 73 | 67 6e 0d 05 64 05 cc 0d |esgn=-es|gn..d...|
|00000fb0| 05 6e 35 e7 20 62 61 73 | 65 25 3d 31 30 20 8c 20 |.n5. bas|e%=10 . |
|00000fc0| 72 65 67 69 73 74 65 72 | 3d 2d 72 65 67 69 73 74 |register|=-regist|
|00000fd0| 65 72 3a 65 6e 74 72 79 | 24 3d 22 2d 22 2b 65 6e |er:entry|$="-"+en|
|00000fe0| 74 72 79 24 0d 05 78 2e | e7 20 62 61 73 65 25 3d |try$..x.|. base%=|
|00000ff0| 31 36 20 8c 20 72 65 67 | 69 73 74 65 72 3d 2d 72 |16 . reg|ister=-r|
|00001000| 65 67 69 73 74 65 72 3a | 65 6e 74 72 79 24 3d 22 |egister:|entry$="|
|00001010| 30 22 0d 05 82 2e e7 20 | 62 61 73 65 25 3d 32 20 |0"..... |base%=2 |
|00001020| 20 8c 20 72 65 67 69 73 | 74 65 72 3d 2d 72 65 67 | . regis|ter=-reg|
|00001030| 69 73 74 65 72 3a 65 6e | 74 72 79 24 3d 22 30 22 |ister:en|try$="0"|
|00001040| 0d 05 8c 05 cd 0d 05 96 | 05 cd 0d 05 a0 05 7f 0d |........|........|
|00001050| 05 aa 13 e7 20 65 78 70 | 6f 6e 65 6e 74 25 3d b9 |.... exp|onent%=.|
|00001060| 20 8c 0d 05 b4 1a 65 78 | 70 6f 6e 65 6e 74 25 20 | .....ex|ponent% |
|00001070| 3d 20 65 73 67 6e 2a bb | 65 78 70 24 0d 05 be 29 |= esgn*.|exp$...)|
|00001080| 72 65 67 69 73 74 65 72 | 3d a4 6e 69 63 65 45 58 |register|=.niceEX|
|00001090| 50 28 72 65 67 69 73 74 | 65 72 2c 65 78 70 6f 6e |P(regist|er,expon|
|000010a0| 65 6e 74 25 29 0d 05 c8 | 0f 65 78 70 6f 6e 65 6e |ent%)...|.exponen|
|000010b0| 74 25 3d a3 0d 05 d2 05 | cd 0d 05 dc 0e c8 8e 20 |t%=.....|....... |
|000010c0| 69 63 6f 6e 25 20 ca 0d | 05 e6 26 c9 20 31 37 3a |icon% ..|..&. 17:|
|000010d0| 20 f2 73 65 74 75 70 64 | 72 61 67 62 6f 78 28 68 | .setupd|ragbox(h|
|000010e0| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 29 0d 05 f0 |andle%,i|con%)...|
|000010f0| 10 c9 20 31 36 3a 20 f2 | 70 6f 69 6e 74 0d 05 fa |.. 16: .|point...|
|00001100| 18 c9 20 32 39 3a 20 f2 | 6f 70 65 72 61 74 6f 72 |.. 29: .|operator|
|00001110| 28 22 3d 22 29 0d 06 04 | 18 c9 20 33 30 3a 20 f2 |("=")...|.. 30: .|
|00001120| 6f 70 65 72 61 74 6f 72 | 28 22 2b 22 29 0d 06 0e |operator|("+")...|
|00001130| 18 c9 20 32 30 3a 20 f2 | 6f 70 65 72 61 74 6f 72 |.. 20: .|operator|
|00001140| 28 22 2d 22 29 0d 06 18 | 18 c9 20 33 32 3a 20 f2 |("-")...|.. 32: .|
|00001150| 6f 70 65 72 61 74 6f 72 | 28 22 2a 22 29 0d 06 22 |operator|("*").."|
|00001160| 18 c9 20 33 31 3a 20 f2 | 6f 70 65 72 61 74 6f 72 |.. 31: .|operator|
|00001170| 28 22 2f 22 29 0d 06 2c | 10 c9 20 32 38 3a 20 f2 |("/")..,|.. 28: .|
|00001180| 63 6c 65 61 72 0d 06 36 | 26 c9 20 32 31 3a 20 6d |clear..6|&. 21: m|
|00001190| 65 6d 6f 72 79 20 20 3d | 72 65 67 69 73 74 65 72 |emory =|register|
|000011a0| 3a 65 6e 74 72 79 24 3d | 22 30 22 0d 06 40 26 c9 |:entry$=|"0"..@&.|
|000011b0| 20 32 32 3a 20 6d 65 6d | 6f 72 79 20 2b 3d 72 65 | 22: mem|ory +=re|
|000011c0| 67 69 73 74 65 72 3a 65 | 6e 74 72 79 24 3d 22 30 |gister:e|ntry$="0|
|000011d0| 22 0d 06 4a 18 c9 20 32 | 35 3a 20 f2 6f 70 65 72 |"..J.. 2|5: .oper|
|000011e0| 61 74 6f 72 28 22 28 22 | 29 0d 06 54 18 c9 20 32 |ator("("|)..T.. 2|
|000011f0| 36 3a 20 f2 6f 70 65 72 | 61 74 6f 72 28 22 29 22 |6: .oper|ator(")"|
|00001200| 29 0d 06 5e 18 c9 20 32 | 37 3a 20 f2 6f 70 65 72 |)..^.. 2|7: .oper|
|00001210| 61 74 6f 72 28 22 5e 22 | 29 0d 06 68 27 c9 20 34 |ator("^"|)..h'. 4|
|00001220| 30 3a 20 72 65 67 69 73 | 74 65 72 3d ac 72 65 67 |0: regis|ter=.reg|
|00001230| 69 73 74 65 72 3a 65 6e | 74 72 79 24 3d 22 30 22 |ister:en|try$="0"|
|00001240| 0d 06 72 1a c9 20 34 31 | 3a 20 f2 6f 70 65 72 61 |..r.. 41|: .opera|
|00001250| 74 6f 72 28 22 41 4e 44 | 22 29 0d 06 7c 19 c9 20 |tor("AND|")..|.. |
|00001260| 34 32 3a 20 f2 6f 70 65 | 72 61 74 6f 72 28 22 4f |42: .ope|rator("O|
|00001270| 52 22 29 0d 06 86 1a c9 | 20 34 33 3a 20 f2 6f 70 |R").....| 43: .op|
|00001280| 65 72 61 74 6f 72 28 22 | 45 4f 52 22 29 0d 06 90 |erator("|EOR")...|
|00001290| 24 c9 20 32 34 3a 20 72 | 65 67 69 73 74 65 72 3d |$. 24: r|egister=|
|000012a0| 6d 65 6d 6f 72 79 3a 65 | 6e 74 72 79 24 3d 22 30 |memory:e|ntry$="0|
|000012b0| 22 0d 06 9a 14 c9 20 34 | 39 3a 20 f2 73 65 6c 65 |"..... 4|9: .sele|
|000012c0| 63 74 44 65 67 0d 06 a4 | 14 c9 20 35 30 3a 20 f2 |ctDeg...|.. 50: .|
|000012d0| 73 65 6c 65 63 74 52 61 | 64 0d 06 ae 14 c9 20 35 |selectRa|d..... 5|
|000012e0| 31 3a 20 f2 73 65 6c 65 | 63 74 44 65 63 0d 06 b8 |1: .sele|ctDec...|
|000012f0| 14 c9 20 35 32 3a 20 f2 | 73 65 6c 65 63 74 48 65 |.. 52: .|selectHe|
|00001300| 78 0d 06 c2 14 c9 20 35 | 33 3a 20 f2 73 65 6c 65 |x..... 5|3: .sele|
|00001310| 63 74 42 69 6e 0d 06 cc | 25 c9 20 35 34 3a 20 69 |ctBin...|%. 54: i|
|00001320| 6e 76 65 72 73 65 5f 6b | 65 79 25 3d ac 20 69 6e |nverse_k|ey%=. in|
|00001330| 76 65 72 73 65 5f 6b 65 | 79 25 0d 06 d6 05 cb 0d |verse_ke|y%......|
|00001340| 06 e0 10 e7 20 62 61 73 | 65 25 3d 31 30 20 8c 0d |.... bas|e%=10 ..|
|00001350| 06 ea 0e c8 8e 20 69 63 | 6f 6e 25 20 ca 0d 06 f4 |..... ic|on% ....|
|00001360| 18 c9 20 31 38 3a 20 e7 | 20 bb 28 65 6e 74 72 79 |.. 18: .| .(entry|
|00001370| 24 29 3d 30 8c 0d 06 fe | 18 72 65 67 69 73 74 65 |$)=0....|.registe|
|00001380| 72 3d 33 2e 31 34 31 35 | 39 32 36 35 34 0d 07 08 |r=3.1415|92654...|
|00001390| 05 cc 0d 07 12 0f 65 78 | 70 6f 6e 65 6e 74 25 3d |......ex|ponent%=|
|000013a0| b9 0d 07 1c 29 64 69 73 | 70 6c 61 79 24 3d c0 c2 |....)dis|play$=..|
|000013b0| a4 64 69 73 70 6c 61 79 | 28 72 65 67 69 73 74 65 |.display|(registe|
|000013c0| 72 29 2c 31 34 29 2c 31 | 31 29 0d 07 26 14 65 78 |r),14),1|1)..&.ex|
|000013d0| 70 24 3d 22 30 30 22 3a | 65 73 67 6e 3d 31 0d 07 |p$="00":|esgn=1..|
|000013e0| 30 05 cd 0d 07 3a 32 c9 | 20 31 39 3a 20 72 65 67 |0....:2.| 19: reg|
|000013f0| 69 73 74 65 72 3d a4 66 | 61 63 74 6f 72 69 61 6c |ister=.f|actorial|
|00001400| 28 72 65 67 69 73 74 65 | 72 29 3a 65 6e 74 72 79 |(registe|r):entry|
|00001410| 24 3d 22 30 22 0d 07 44 | 2a c9 20 31 33 3a 20 72 |$="0"..D|*. 13: r|
|00001420| 65 67 69 73 74 65 72 3d | 28 31 2f 72 65 67 69 73 |egister=|(1/regis|
|00001430| 74 65 72 29 3a 65 6e 74 | 72 79 24 3d 22 30 22 0d |ter):ent|ry$="0".|
|00001440| 07 4e 27 c9 20 32 33 3a | 20 72 65 67 69 73 74 65 |.N'. 23:| registe|
|00001450| 72 3d b6 72 65 67 69 73 | 74 65 72 3a 65 6e 74 72 |r=.regis|ter:entr|
|00001460| 79 24 3d 22 30 22 0d 07 | 58 39 c9 20 31 30 3a 20 |y$="0"..|X9. 10: |
|00001470| 72 65 67 69 73 74 65 72 | 3d a0 28 22 53 49 4e 22 |register|=.("SIN"|
|00001480| 2b 61 6e 67 6c 65 69 6e | 24 2b c3 72 65 67 69 73 |+anglein|$+.regis|
|00001490| 74 65 72 29 3a 65 6e 74 | 72 79 24 3d 22 30 22 0d |ter):ent|ry$="0".|
|000014a0| 07 62 39 c9 20 31 31 3a | 20 72 65 67 69 73 74 65 |.b9. 11:| registe|
|000014b0| 72 3d a0 28 22 43 4f 53 | 22 2b 61 6e 67 6c 65 69 |r=.("COS|"+anglei|
|000014c0| 6e 24 2b c3 72 65 67 69 | 73 74 65 72 29 3a 65 6e |n$+.regi|ster):en|
|000014d0| 74 72 79 24 3d 22 30 22 | 0d 07 6c 39 c9 20 31 32 |try$="0"|..l9. 12|
|000014e0| 3a 20 72 65 67 69 73 74 | 65 72 3d a0 28 22 54 41 |: regist|er=.("TA|
|000014f0| 4e 22 2b 61 6e 67 6c 65 | 69 6e 24 2b c3 72 65 67 |N"+angle|in$+.reg|
|00001500| 69 73 74 65 72 29 3a 65 | 6e 74 72 79 24 3d 22 30 |ister):e|ntry$="0|
|00001510| 22 0d 07 76 27 c9 20 31 | 35 3a 20 72 65 67 69 73 |"..v'. 1|5: regis|
|00001520| 74 65 72 3d aa 72 65 67 | 69 73 74 65 72 3a 65 6e |ter=.reg|ister:en|
|00001530| 74 72 79 24 3d 22 30 22 | 0d 07 80 27 c9 20 31 34 |try$="0"|...'. 14|
|00001540| 3a 20 72 65 67 69 73 74 | 65 72 3d ab 72 65 67 69 |: regist|er=.regi|
|00001550| 73 74 65 72 3a 65 6e 74 | 72 79 24 3d 22 30 22 0d |ster:ent|ry$="0".|
|00001560| 07 8a 67 c9 20 34 38 3a | 20 f2 6f 70 65 72 61 74 |..g. 48:| .operat|
|00001570| 6f 72 28 22 3d 22 29 3a | 72 65 67 69 73 74 65 72 |or("="):|register|
|00001580| 3d a4 6e 69 63 65 45 58 | 50 28 bb c0 a4 64 69 73 |=.niceEX|P(...dis|
|00001590| 70 6c 61 79 28 72 65 67 | 69 73 74 65 72 29 2c 33 |play(reg|ister),3|
|000015a0| 32 29 2c bb c2 a4 64 69 | 73 70 6c 61 79 28 72 65 |2),...di|splay(re|
|000015b0| 67 69 73 74 65 72 29 2c | 32 29 29 3a 65 6e 74 72 |gister),|2)):entr|
|000015c0| 79 24 3d 22 30 22 0d 07 | 94 05 cb 0d 07 9e 05 cd |y$="0"..|........|
|000015d0| 0d 07 a8 05 cb 0d 07 b2 | 05 cc 0d 07 bc 12 e7 20 |........|....... |
|000015e0| 65 72 72 6f 72 66 6c 61 | 67 25 20 8c 0d 07 c6 35 |errorfla|g% ....5|
|000015f0| e7 20 69 63 6f 6e 25 3d | 34 34 20 f2 63 6c 65 61 |. icon%=|44 .clea|
|00001600| 72 3a f4 20 69 67 6e 6f | 72 65 20 75 6e 74 69 6c |r:. igno|re until|
|00001610| 20 65 72 72 6f 72 20 69 | 73 20 63 6c 65 61 72 65 | error i|s cleare|
|00001620| 64 0d 07 d0 05 cc 0d 07 | da 0e c8 8e 20 69 63 6f |d.......|.... ico|
|00001630| 6e 25 20 ca 0d 07 e4 27 | c9 20 32 32 3a 20 6d 65 |n% ....'|. 22: me|
|00001640| 6d 6f 72 79 20 2d 3d 20 | 72 65 67 69 73 74 65 72 |mory -= |register|
|00001650| 3a 65 6e 74 72 79 24 3d | 22 30 22 0d 07 ee 05 cb |:entry$=|"0".....|
|00001660| 0d 07 f8 10 e7 20 62 61 | 73 65 25 3d 31 30 20 8c |..... ba|se%=10 .|
|00001670| 0d 08 02 0e c8 8e 20 69 | 63 6f 6e 25 20 ca 0d 08 |...... i|con% ...|
|00001680| 0c 29 c9 20 31 38 3a 20 | 72 65 67 69 73 74 65 72 |.). 18: |register|
|00001690| 3d 33 2e 31 34 31 35 39 | 32 36 35 34 3a 65 6e 74 |=3.14159|2654:ent|
|000016a0| 72 79 24 3d 22 30 22 0d | 08 16 29 c9 20 32 33 3a |ry$="0".|..). 23:|
|000016b0| 20 72 65 67 69 73 74 65 | 72 3d 20 72 65 67 69 73 | registe|r= regis|
|000016c0| 74 65 72 5e 32 3a 65 6e | 74 72 79 24 3d 22 30 22 |ter^2:en|try$="0"|
|000016d0| 0d 08 20 1b c9 20 32 37 | 3a 20 f2 6f 70 65 72 61 |.. .. 27|: .opera|
|000016e0| 74 6f 72 28 22 5e 28 31 | 2f 22 29 0d 08 2a 39 c9 |tor("^(1|/")..*9.|
|000016f0| 20 31 30 3a 20 72 65 67 | 69 73 74 65 72 3d a0 28 | 10: reg|ister=.(|
|00001700| 61 6e 67 6c 65 6f 75 74 | 24 2b 22 41 53 4e 20 72 |angleout|$+"ASN r|
|00001710| 65 67 69 73 74 65 72 22 | 29 3a 65 6e 74 72 79 24 |egister"|):entry$|
|00001720| 3d 22 30 22 0d 08 34 39 | c9 20 31 31 3a 20 72 65 |="0"..49|. 11: re|
|00001730| 67 69 73 74 65 72 3d a0 | 28 61 6e 67 6c 65 6f 75 |gister=.|(angleou|
|00001740| 74 24 2b 22 41 43 53 20 | 72 65 67 69 73 74 65 72 |t$+"ACS |register|
|00001750| 22 29 3a 65 6e 74 72 79 | 24 3d 22 30 22 0d 08 3e |"):entry|$="0"..>|
|00001760| 39 c9 20 31 32 3a 20 72 | 65 67 69 73 74 65 72 3d |9. 12: r|egister=|
|00001770| a0 28 61 6e 67 6c 65 6f | 75 74 24 2b 22 41 54 4e |.(angleo|ut$+"ATN|
|00001780| 20 72 65 67 69 73 74 65 | 72 22 29 3a 65 6e 74 72 | registe|r"):entr|
|00001790| 79 24 3d 22 30 22 0d 08 | 48 32 c9 20 31 35 3a 20 |y$="0"..|H2. 15: |
|000017a0| 72 65 67 69 73 74 65 72 | 3d 28 32 2e 37 31 38 32 |register|=(2.7182|
|000017b0| 38 31 38 5e 72 65 67 69 | 73 74 65 72 29 3a 65 6e |818^regi|ster):en|
|000017c0| 74 72 79 24 3d 22 30 22 | 0d 08 52 2b c9 20 31 34 |try$="0"|..R+. 14|
|000017d0| 3a 20 72 65 67 69 73 74 | 65 72 3d 28 31 30 5e 72 |: regist|er=(10^r|
|000017e0| 65 67 69 73 74 65 72 29 | 3a 65 6e 74 72 79 24 3d |egister)|:entry$=|
|000017f0| 22 30 22 0d 08 5c 2a c9 | 20 34 38 3a 20 72 65 67 |"0"..\*.| 48: reg|
|00001800| 69 73 74 65 72 3d b3 28 | 31 30 30 30 29 2f 31 30 |ister=.(|1000)/10|
|00001810| 30 30 3a 65 6e 74 72 79 | 24 3d 22 30 22 0d 08 66 |00:entry|$="0"..f|
|00001820| 05 cb 0d 08 70 05 cd 0d | 08 7a 05 cd 0d 08 84 05 |....p...|.z......|
|00001830| cd 0d 08 8e 20 e7 20 69 | 63 6f 6e 25 3c 3e 35 34 |.... . i|con%<>54|
|00001840| 20 8c 20 69 6e 76 65 72 | 73 65 5f 6b 65 79 25 3d | . inver|se_key%=|
|00001850| a3 0d 08 98 0e f2 64 6f | 64 69 73 70 6c 61 79 0d |......do|display.|
|00001860| 08 a2 05 3a 0d 08 ac 08 | c9 20 2d 32 0d 08 b6 11 |...:....|. -2....|
|00001870| f2 66 72 6f 6e 74 28 63 | 61 6c 63 25 29 0d 08 c0 |.front(c|alc%)...|
|00001880| 11 c8 99 20 26 34 30 30 | 44 33 2c 2c 71 25 0d 08 |... &400|D3,,q%..|
|00001890| ca 23 e7 20 ac 28 68 61 | 6e 64 6c 65 25 3d 63 61 |.#. .(ha|ndle%=ca|
|000018a0| 6c 63 25 20 80 20 69 63 | 6f 6e 25 3d 31 37 29 20 |lc% . ic|on%=17) |
|000018b0| 8c 0d 08 d4 49 e7 20 71 | 25 21 30 3c 3e 63 61 6c |....I. q|%!0<>cal|
|000018c0| 63 25 20 8c 20 e3 20 6c | 6f 6f 70 25 3d 30 20 b8 |c% . . l|oop%=0 .|
|000018d0| 20 32 34 20 88 20 34 3a | 21 28 63 61 72 65 74 73 | 24 . 4:|!(carets|
|000018e0| 74 6f 72 65 25 2b 6c 6f | 6f 70 25 29 3d 21 28 71 |tore%+lo|op%)=!(q|
|000018f0| 25 2b 6c 6f 6f 70 25 29 | 3a ed 0d 08 de 34 c8 99 |%+loop%)|:....4..|
|00001900| 20 22 57 69 6d 70 5f 53 | 65 74 43 61 72 65 74 50 | "Wimp_S|etCaretP|
|00001910| 6f 73 69 74 69 6f 6e 22 | 2c 63 61 6c 63 25 2c 2d |osition"|,calc%,-|
|00001920| 31 2c 30 2c 30 2c 31 3c | 3c 32 35 2c 2d 31 0d 08 |1,0,0,1<|<25,-1..|
|00001930| e8 05 cd 0d 08 f2 0b 6f | 70 65 6e 25 3d b9 0d 08 |.......o|pen%=...|
|00001940| fc 05 cb 0d 09 06 05 cd | 0d 09 10 05 e1 0d 09 1a |........|........|
|00001950| 05 3a 0d 09 24 10 dd 20 | f2 64 6f 64 69 73 70 6c |.:..$.. |.dodispl|
|00001960| 61 79 0d 09 2e 12 e7 20 | 65 72 72 6f 72 66 6c 61 |ay..... |errorfla|
|00001970| 67 25 20 8c 0d 09 38 0e | e7 20 64 65 62 75 67 25 |g% ...8.|. debug%|
|00001980| 20 8c 0d 09 42 23 24 64 | 69 73 70 6c 61 79 25 3d | ...B#$d|isplay%=|
|00001990| f6 24 2b 22 20 40 20 6c | 69 6e 65 20 22 2b c3 28 |.$+" @ l|ine "+.(|
|000019a0| 9e 29 2b bd 30 0d 09 4c | 05 cc 0d 09 56 0a c8 8e |.)+.0..L|....V...|
|000019b0| 20 9f 20 ca 0d 09 60 23 | c9 20 32 30 3a 24 64 69 | . ...`#|. 20:$di|
|000019c0| 73 70 6c 61 79 25 3d 22 | 54 6f 6f 20 42 69 67 20 |splay%="|Too Big |
|000019d0| 20 20 22 2b bd 30 20 0d | 09 6a 22 c9 20 31 35 3a | "+.0 .|.j". 15:|
|000019e0| 24 64 69 73 70 6c 61 79 | 25 3d 22 42 72 61 63 6b |$display|%="Brack|
|000019f0| 65 74 73 20 20 22 2b bd | 30 0d 09 74 1f 7f 20 24 |ets "+.|0..t.. $|
|00001a00| 64 69 73 70 6c 61 79 25 | 3d 22 45 72 72 6f 72 20 |display%|="Error |
|00001a10| 20 20 20 20 22 2b bd 30 | 0d 09 7e 05 cb 0d 09 88 | "+.0|..~.....|
|00001a20| 05 cd 0d 09 92 05 cc 0d | 09 9c 16 e7 20 62 72 61 |........|.... bra|
|00001a30| 63 6b 65 74 6f 70 65 6e | 65 64 25 20 8c 0d 09 a6 |cketopen|ed% ....|
|00001a40| 26 24 64 69 73 70 6c 61 | 79 25 3d 22 42 72 61 63 |&$displa|y%="Brac|
|00001a50| 6b 65 74 20 22 2b c3 28 | 62 72 61 63 6b 65 74 29 |ket "+.(|bracket)|
|00001a60| 2b bd 30 0d 09 b0 14 62 | 72 61 63 6b 65 74 6f 70 |+.0....b|racketop|
|00001a70| 65 6e 65 64 25 3d a3 0d | 09 ba 05 cc 0d 09 c4 11 |ened%=..|........|
|00001a80| e7 20 65 78 70 6f 6e 65 | 6e 74 25 20 8c 0d 09 ce |. expone|nt% ....|
|00001a90| 35 24 64 69 73 70 6c 61 | 79 25 3d 64 69 73 70 6c |5$displa|y%=displ|
|00001aa0| 61 79 24 2b c0 c0 c3 65 | 73 67 6e 2c 65 73 67 6e |ay$+...e|sgn,esgn|
|00001ab0| 2d 31 29 2b 22 20 22 2c | 31 29 2b 65 78 70 24 2b |-1)+" ",|1)+exp$+|
|00001ac0| bd 30 0d 09 d8 05 cc 0d | 09 e2 25 24 64 69 73 70 |.0......|..%$disp|
|00001ad0| 6c 61 79 25 3d a4 64 69 | 73 70 6c 61 79 28 72 65 |lay%=.di|splay(re|
|00001ae0| 67 69 73 74 65 72 29 2b | bd 28 30 29 0d 09 ec 05 |gister)+|.(0)....|
|00001af0| cd 0d 09 f6 05 cd 0d 0a | 00 05 cd 0d 0a 0a 40 71 |........|......@q|
|00001b00| 25 21 30 3d 63 61 6c 63 | 25 3a 71 25 21 34 3d 31 |%!0=calc|%:q%!4=1|
|00001b10| 37 3a 71 25 21 38 3d 30 | 3a 71 25 21 31 32 3d 30 |7:q%!8=0|:q%!12=0|
|00001b20| 3a c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |:.. "Wim|p_SetIco|
|00001b30| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 0a 14 05 e1 |nState",|,q%.....|
|00001b40| 0d 0a 1e 05 3a 0d 0a 28 | 1c dd 20 f2 63 6c 6f 73 |....:..(|.. .clos|
|00001b50| 65 61 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |eawindow|(handle%|
|00001b60| 29 0d 0a 32 12 f2 67 65 | 74 77 28 68 61 6e 64 6c |)..2..ge|tw(handl|
|00001b70| 65 25 29 0d 0a 3c 1b 78 | 6f 25 3d 78 30 25 3a 79 |e%)..<.x|o%=x0%:y|
|00001b80| 6f 25 3d 79 30 25 3a 6f | 70 65 6e 25 3d a3 0d 0a |o%=y0%:o|pen%=...|
|00001b90| 46 98 e7 20 68 61 6e 64 | 6c 65 25 3d 63 61 6c 63 |F.. hand|le%=calc|
|00001ba0| 25 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |% . .. "|Wimp_Set|
|00001bb0| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 63 |CaretPos|ition",c|
|00001bc0| 61 72 65 74 73 74 6f 72 | 65 25 21 30 2c 63 61 72 |aretstor|e%!0,car|
|00001bd0| 65 74 73 74 6f 72 65 25 | 21 34 2c 63 61 72 65 74 |etstore%|!4,caret|
|00001be0| 73 74 6f 72 65 25 21 38 | 2c 63 61 72 65 74 73 74 |store%!8|,caretst|
|00001bf0| 6f 72 65 25 21 31 32 2c | 63 61 72 65 74 73 74 6f |ore%!12,|caretsto|
|00001c00| 72 65 25 21 31 36 2c 63 | 61 72 65 74 73 74 6f 72 |re%!16,c|aretstor|
|00001c10| 65 25 21 32 30 3a 63 61 | 72 65 74 73 74 6f 72 65 |e%!20:ca|retstore|
|00001c20| 25 21 30 3d 2d 31 0d 0a | 50 1a f2 63 6c 6f 73 65 |%!0=-1..|P..close|
|00001c30| 5f 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 29 |_window(|handle%)|
|00001c40| 0d 0a 5a 05 e1 0d 0a 64 | 05 3a 0d 0a 6e 34 dd 20 |..Z....d|.:..n4. |
|00001c50| f2 64 6f 6d 65 6e 75 28 | 68 61 6e 64 6c 65 25 2c |.domenu(|handle%,|
|00001c60| 6d 65 6e 75 70 74 72 25 | 2c 6d 65 6e 75 24 2c 6d |menuptr%|,menu$,m|
|00001c70| 65 6e 75 74 69 74 6c 65 | 24 2c 78 2c 79 29 0d 0a |enutitle|$,x,y)..|
|00001c80| 78 12 ea 20 64 75 6d 6d | 79 25 2c 6e 65 78 74 25 |x.. dumm|y%,next%|
|00001c90| 0d 0a 82 12 6e 65 78 74 | 25 3d 6d 65 6e 75 70 74 |....next|%=menupt|
|00001ca0| 72 25 0d 0a 8c 17 6d 65 | 6e 75 68 61 6e 64 6c 65 |r%....me|nuhandle|
|00001cb0| 25 3d 68 61 6e 64 6c 65 | 25 0d 0a 96 2a 64 75 6d |%=handle|%...*dum|
|00001cc0| 6d 79 25 3d a4 63 5f 6d | 28 6d 65 6e 75 70 74 72 |my%=.c_m|(menuptr|
|00001cd0| 25 2c 6d 65 6e 75 24 2c | 6d 65 6e 75 74 69 74 6c |%,menu$,|menutitl|
|00001ce0| 65 24 29 0d 0a a0 24 c8 | 99 20 22 57 69 6d 70 5f |e$)...$.|. "Wimp_|
|00001cf0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 64 75 6d |CreateMe|nu",,dum|
|00001d00| 6d 79 25 2c 78 2c 79 0d | 0a aa 05 e1 0d 0a b4 05 |my%,x,y.|........|
|00001d10| 3a 0d 0a be 25 dd 20 a4 | 63 5f 6d 28 6d 65 6e 75 |:...%. .|c_m(menu|
|00001d20| 70 74 72 25 2c 6d 65 6e | 75 24 2c 6d 65 6e 75 74 |ptr%,men|u$,menut|
|00001d30| 69 74 6c 65 24 29 0d 0a | c8 16 ea 20 69 25 2c 63 |itle$)..|... i%,c|
|00001d40| 61 6c 6c 25 2c 69 74 65 | 6d 24 2c 77 0d 0a d2 12 |all%,ite|m$,w....|
|00001d50| 63 61 6c 6c 25 3d 6d 65 | 6e 75 70 74 72 25 0d 0a |call%=me|nuptr%..|
|00001d60| dc 11 77 3d a9 6d 65 6e | 75 74 69 74 6c 65 24 0d |..w=.men|utitle$.|
|00001d70| 0a e6 0d 6e 65 78 74 25 | 2b 3d 35 32 0d 0a f0 11 |...next%|+=52....|
|00001d80| e3 20 69 25 3d 30 b8 a9 | 6d 65 6e 75 24 0d 0a fa |. i%=0..|menu$...|
|00001d90| 22 e7 20 c1 6d 65 6e 75 | 24 2c 69 25 2c 31 29 3d |". .menu|$,i%,1)=|
|00001da0| 22 2c 22 20 8c 20 6e 65 | 78 74 25 2b 3d 32 34 0d |"," . ne|xt%+=24.|
|00001db0| 0b 04 05 ed 0d 0b 0e 08 | 69 25 3d 30 0d 0b 18 12 |........|i%=0....|
|00001dc0| 6d 65 6e 75 70 74 72 25 | 21 32 30 3d 34 30 0d 0b |menuptr%|!20=40..|
|00001dd0| 22 18 24 6d 65 6e 75 70 | 74 72 25 3d 6d 65 6e 75 |".$menup|tr%=menu|
|00001de0| 74 69 74 6c 65 24 0d 0b | 2c 4a 6d 65 6e 75 70 74 |title$..|,Jmenupt|
|00001df0| 72 25 3f 31 32 3d 60 74 | 66 63 6f 6c 3a 6d 65 6e |r%?12=`t|fcol:men|
|00001e00| 75 70 74 72 25 3f 31 33 | 3d 32 3a 6d 65 6e 75 70 |uptr%?13|=2:menup|
|00001e10| 74 72 25 3f 31 34 3d 60 | 77 66 63 6f 6c 3a 6d 65 |tr%?14=`|wfcol:me|
|00001e20| 6e 75 70 74 72 25 3f 31 | 35 3d 60 6d 62 63 6f 6c |nuptr%?1|5=`mbcol|
|00001e30| 0d 0b 36 11 6d 65 6e 75 | 70 74 72 25 21 32 34 3d |..6.menu|ptr%!24=|
|00001e40| 30 0d 0b 40 10 6d 65 6e | 75 70 74 72 25 2b 3d 32 |0..@.men|uptr%+=2|
|00001e50| 38 0d 0b 4a 05 f5 0d 0b | 54 1c 69 74 65 6d 24 3d |8..J....|T.item$=|
|00001e60| a4 70 61 72 28 6d 65 6e | 75 24 2c 22 2c 22 2c 69 |.par(men|u$,",",i|
|00001e70| 25 29 0d 0b 5e 26 6d 65 | 6e 75 70 74 72 25 3d a4 |%)..^&me|nuptr%=.|
|00001e80| 6d 65 6e 75 69 74 65 6d | 28 6d 65 6e 75 70 74 72 |menuitem|(menuptr|
|00001e90| 25 2c 69 74 65 6d 24 29 | 0d 0b 68 31 e7 20 a9 20 |%,item$)|..h1. . |
|00001ea0| 24 28 6d 65 6e 75 70 74 | 72 25 2d 31 32 29 20 3e |$(menupt|r%-12) >|
|00001eb0| 20 77 20 8c 20 77 20 3d | 20 a9 20 24 28 6d 65 6e | w . w =| . $(men|
|00001ec0| 75 70 74 72 25 2d 31 32 | 29 0d 0b 72 0e fd 20 69 |uptr%-12|)..r.. i|
|00001ed0| 74 65 6d 24 3d 22 22 0d | 0b 7c 14 63 61 6c 6c 25 |tem$="".|.|.call%|
|00001ee0| 21 31 36 3d 31 36 2a 77 | 2b 31 32 0d 0b 86 23 6d |!16=16*w|+12...#m|
|00001ef0| 65 6e 75 70 74 72 25 21 | 2d 32 34 3d 28 6d 65 6e |enuptr%!|-24=(men|
|00001f00| 75 70 74 72 25 21 2d 32 | 34 29 84 26 38 30 0d 0b |uptr%!-2|4).&80..|
|00001f10| 90 0a 3d 63 61 6c 6c 25 | 0d 0b 9a 05 3a 0d 0b a4 |..=call%|....:...|
|00001f20| 1b dd 20 a4 6d 65 6e 75 | 69 74 65 6d 28 70 74 72 |.. .menu|item(ptr|
|00001f30| 25 2c 74 65 78 74 24 29 | 0d 0b ae 14 e7 20 74 65 |%,text$)|..... te|
|00001f40| 78 74 24 3d 22 22 20 3d | 70 74 72 25 0d 0b b8 0a |xt$="" =|ptr%....|
|00001f50| ea 20 61 2c 74 24 0d 0b | c2 07 61 3d 30 0d 0b cc |. a,t$..|..a=0...|
|00001f60| 0b 21 70 74 72 25 3d 30 | 0d 0b d6 14 70 74 72 25 |.!ptr%=0|....ptr%|
|00001f70| 21 38 3d 26 30 37 30 30 | 30 30 32 31 0d 0b e0 0d |!8=&0700|0021....|
|00001f80| 70 74 72 25 21 34 3d 2d | 31 0d 0b ea 15 e7 20 c0 |ptr%!4=-|1..... .|
|00001f90| 74 65 78 74 24 2c 31 29 | 3d 22 3e 22 20 8c 0d 0b |text$,1)|=">" ...|
|00001fa0| f4 13 74 65 78 74 24 3d | c1 74 65 78 74 24 2c 32 |..text$=|.text$,2|
|00001fb0| 29 0d 0b fe 18 74 24 3d | a4 70 61 72 28 74 65 78 |)....t$=|.par(tex|
|00001fc0| 74 24 2c 22 2e 22 2c 61 | 29 0d 0c 08 1f 70 74 72 |t$,".",a|)....ptr|
|00001fd0| 25 21 34 3d a0 28 a4 70 | 61 72 28 74 65 78 74 24 |%!4=.(.p|ar(text$|
|00001fe0| 2c 22 2e 22 2c 61 29 29 | 0d 0c 12 0c 74 65 78 74 |,".",a))|....text|
|00001ff0| 24 3d 74 24 0d 0c 1c 05 | cd 0d 0c 26 15 e7 20 c0 |$=t$....|...&.. .|
|00002000| 74 65 78 74 24 2c 31 29 | 3d 22 7e 22 20 8c 0d 0c |text$,1)|="~" ...|
|00002010| 30 13 74 65 78 74 24 3d | c1 74 65 78 74 24 2c 32 |0.text$=|.text$,2|
|00002020| 29 0d 0c 3a 18 74 24 3d | a4 70 61 72 28 74 65 78 |)..:.t$=|.par(tex|
|00002030| 74 24 2c 22 2e 22 2c 61 | 29 0d 0c 44 50 70 74 72 |t$,".",a|)..DPptr|
|00002040| 25 21 34 3d a0 28 22 46 | 4e 63 5f 6d 28 6e 65 78 |%!4=.("F|Nc_m(nex|
|00002050| 74 25 2c 22 2b a4 70 61 | 72 28 74 65 78 74 24 2c |t%,"+.pa|r(text$,|
|00002060| 22 2e 22 2c 61 29 2b 22 | 2c 22 2b bd 33 34 2b a4 |".",a)+"|,"+.34+.|
|00002070| 70 61 72 28 74 65 78 74 | 24 2c 22 2e 22 2c 61 29 |par(text|$,".",a)|
|00002080| 2b bd 33 34 2b 22 29 22 | 29 0d 0c 4e 0c 74 65 78 |+.34+")"|)..N.tex|
|00002090| 74 24 3d 74 24 0d 0c 58 | 05 cd 0d 0c 62 32 e7 20 |t$=t$..X|....b2. |
|000020a0| c0 74 65 78 74 24 2c 31 | 29 3d 22 3a 22 21 70 74 |.text$,1|)=":"!pt|
|000020b0| 72 25 3d 21 70 74 72 25 | 20 84 20 32 3a 74 65 78 |r%=!ptr%| . 2:tex|
|000020c0| 74 24 3d c1 74 65 78 74 | 24 2c 32 29 0d 0c 6c 37 |t$=.text|$,2)..l7|
|000020d0| e7 20 c0 74 65 78 74 24 | 2c 31 29 3d 22 3c 22 70 |. .text$|,1)="<"p|
|000020e0| 74 72 25 21 38 3d 70 74 | 72 25 21 38 20 84 20 32 |tr%!8=pt|r%!8 . 2|
|000020f0| 5e 32 32 3a 74 65 78 74 | 24 3d c1 74 65 78 74 24 |^22:text|$=.text$|
|00002100| 2c 32 29 0d 0c 76 36 e7 | 20 c0 74 65 78 74 24 2c |,2)..v6.| .text$,|
|00002110| 31 29 3d 22 40 22 21 70 | 74 72 25 3d 21 6d 65 6e |1)="@"!p|tr%=!men|
|00002120| 75 70 74 72 25 20 84 20 | 31 3a 74 65 78 74 24 3d |uptr% . |1:text$=|
|00002130| c1 74 65 78 74 24 2c 32 | 29 0d 0c 80 14 24 28 70 |.text$,2|)....$(p|
|00002140| 74 72 25 2b 31 32 29 3d | 74 65 78 74 24 0d 0c 8a |tr%+12)=|text$...|
|00002150| 0c 3d 70 74 72 25 2b 32 | 34 0d 0c 94 05 3a 0d 0c |.=ptr%+2|4....:..|
|00002160| 9e 16 dd 20 a4 70 61 72 | 28 61 24 2c 73 24 2c f8 |... .par|(a$,s$,.|
|00002170| 20 69 25 29 0d 0c a8 09 | ea 20 69 31 25 0d 0c b2 | i%)....|. i1%...|
|00002180| 1e 69 31 25 3d 69 25 2b | 31 3a 69 25 3d a7 61 24 |.i1%=i%+|1:i%=.a$|
|00002190| 2b 73 24 2c 73 24 2c 69 | 31 25 29 0d 0c bc 14 3d |+s$,s$,i|1%)....=|
|000021a0| c1 61 24 2c 69 31 25 2c | 69 25 2d 69 31 25 29 0d |.a$,i1%,|i%-i1%).|
|000021b0| 0c c6 05 3a 0d 0c d0 19 | dd 20 f2 6d 65 6e 75 73 |...:....|. .menus|
|000021c0| 65 6c 65 63 74 28 6d 65 | 6e 75 73 25 29 0d 0c da |elect(me|nus%)...|
|000021d0| 0d ea 20 61 2c 61 24 2c | 62 24 0d 0c e4 38 c8 99 |.. a,a$,|b$...8..|
|000021e0| 20 22 57 69 6d 70 5f 44 | 65 63 6f 64 65 4d 65 6e | "Wimp_D|ecodeMen|
|000021f0| 75 22 2c 2c 62 75 66 66 | 65 72 25 2c 6d 65 6e 75 |u",,buff|er%,menu|
|00002200| 73 25 2c c4 32 30 30 2c | 22 20 22 29 b8 2c 2c 2c |s%,.200,|" ").,,,|
|00002210| 62 24 0d 0c ee 0f e7 20 | 62 24 3d 22 22 20 8c 20 |b$..... |b$="" . |
|00002220| e1 0d 0c f8 15 61 24 3d | a4 70 61 72 28 62 24 2c |.....a$=|.par(b$,|
|00002230| 22 2e 22 2c 61 29 0d 0d | 02 15 62 24 3d a4 70 61 |".",a)..|..b$=.pa|
|00002240| 72 28 62 24 2c 22 2e 22 | 2c 61 29 0d 0d 0c 14 c8 |r(b$,"."|,a).....|
|00002250| 8e 20 6d 65 6e 75 68 61 | 6e 64 6c 65 25 20 ca 0d |. menuha|ndle% ..|
|00002260| 0d 16 1f c9 20 31 30 31 | 3a e7 20 61 24 3d 22 51 |.... 101|:. a$="Q|
|00002270| 75 69 74 22 3a f2 66 69 | 6e 69 73 68 3a e0 0d 0d |uit":.fi|nish:...|
|00002280| 20 09 c9 20 31 30 32 0d | 0d 2a 0b c8 8e 20 61 24 | .. 102.|.*... a$|
|00002290| 20 ca 0d 0d 34 17 c9 20 | 22 44 65 67 22 3a 20 f2 | ...4.. |"Deg": .|
|000022a0| 73 65 6c 65 63 74 44 65 | 67 0d 0d 3e 17 c9 20 22 |selectDe|g..>.. "|
|000022b0| 52 61 64 22 3a 20 f2 73 | 65 6c 65 63 74 52 61 64 |Rad": .s|electRad|
|000022c0| 0d 0d 48 17 c9 20 22 44 | 65 63 22 3a 20 f2 73 65 |..H.. "D|ec": .se|
|000022d0| 6c 65 63 74 44 65 63 0d | 0d 52 17 c9 20 22 48 65 |lectDec.|.R.. "He|
|000022e0| 78 22 3a 20 f2 73 65 6c | 65 63 74 48 65 78 0d 0d |x": .sel|ectHex..|
|000022f0| 5c 17 c9 20 22 42 69 6e | 22 3a 20 f2 73 65 6c 65 |\.. "Bin|": .sele|
|00002300| 63 74 42 69 6e 0d 0d 66 | 0c c9 20 22 4e 6f 72 6d |ctBin..f|.. "Norm|
|00002310| 22 0d 0d 70 2d e7 20 66 | 69 78 25 3c 3e 2d 31 20 |"..p-. f|ix%<>-1 |
|00002320| 8c 20 66 6e 75 6d 62 24 | 3d a4 75 6e 74 69 63 6b |. fnumb$|=.untick|
|00002330| 28 66 6e 75 6d 62 24 2c | c3 66 69 78 25 29 0d 0d |(fnumb$,|.fix%)..|
|00002340| 7a 2d e7 20 73 63 69 25 | 3c 3e 2d 31 20 8c 20 73 |z-. sci%|<>-1 . s|
|00002350| 6e 75 6d 62 24 3d a4 75 | 6e 74 69 63 6b 28 73 6e |numb$=.u|ntick(sn|
|00002360| 75 6d 62 24 2c c3 73 63 | 69 25 29 0d 0d 84 13 66 |umb$,.sc|i%)....f|
|00002370| 69 78 25 3d 2d 31 3a 73 | 63 69 25 3d 2d 31 0d 0d |ix%=-1:s|ci%=-1..|
|00002380| 8e 3b 6d 61 69 6e 24 3d | a4 74 69 63 6b 28 a4 75 |.;main$=|.tick(.u|
|00002390| 6e 74 69 63 6b 28 a4 75 | 6e 74 69 63 6b 28 6d 61 |ntick(.u|ntick(ma|
|000023a0| 69 6e 24 2c 22 46 69 78 | 22 29 2c 22 53 63 69 22 |in$,"Fix|"),"Sci"|
|000023b0| 29 2c 22 4e 6f 72 6d 22 | 29 0d 0d 98 2b 71 25 21 |),"Norm"|)...+q%!|
|000023c0| 30 3d 63 61 6c 63 25 3a | 71 25 21 34 3d 34 36 3a |0=calc%:|q%!4=46:|
|000023d0| 71 25 21 38 3d 32 5e 32 | 32 3a 71 25 21 31 32 3d |q%!8=2^2|2:q%!12=|
|000023e0| 32 5e 32 32 0d 0d a2 1d | c8 99 22 57 69 6d 70 5f |2^22....|.."Wimp_|
|000023f0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00002400| 25 0d 0d ac 2b 71 25 21 | 30 3d 63 61 6c 63 25 3a |%...+q%!|0=calc%:|
|00002410| 71 25 21 34 3d 34 37 3a | 71 25 21 38 3d 32 5e 32 |q%!4=47:|q%!8=2^2|
|00002420| 32 3a 71 25 21 31 32 3d | 32 5e 32 32 0d 0d b6 1d |2:q%!12=|2^22....|
|00002430| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|00002440| 74 61 74 65 22 2c 2c 71 | 25 0d 0d c0 26 69 63 6f |tate",,q|%...&ico|
|00002450| 6e 25 3d 32 39 3a f2 6f | 70 65 72 61 74 6f 72 28 |n%=29:.o|perator(|
|00002460| 22 3d 22 29 3a f2 64 6f | 64 69 73 70 6c 61 79 0d |"="):.do|display.|
|00002470| 0d ca 0b c9 20 22 46 69 | 78 22 0d 0d d4 0e e7 20 |.... "Fi|x"..... |
|00002480| 62 24 3c 3e 22 22 20 8c | 0d 0d de 2d e7 20 66 69 |b$<>"" .|...-. fi|
|00002490| 78 25 3c 3e 2d 31 20 8c | 20 66 6e 75 6d 62 24 3d |x%<>-1 .| fnumb$=|
|000024a0| a4 75 6e 74 69 63 6b 28 | 66 6e 75 6d 62 24 2c c3 |.untick(|fnumb$,.|
|000024b0| 66 69 78 25 29 0d 0d e8 | 2d e7 20 73 63 69 25 3c |fix%)...|-. sci%<|
|000024c0| 3e 2d 31 20 8c 20 73 6e | 75 6d 62 24 3d a4 75 6e |>-1 . sn|umb$=.un|
|000024d0| 74 69 63 6b 28 73 6e 75 | 6d 62 24 2c c3 73 63 69 |tick(snu|mb$,.sci|
|000024e0| 25 29 0d 0d f2 15 66 69 | 78 25 3d bb 20 62 24 3a |%)....fi|x%=. b$:|
|000024f0| 73 63 69 25 3d 2d 31 0d | 0d fc 1e 66 6e 75 6d 62 |sci%=-1.|...fnumb|
|00002500| 24 3d a4 74 69 63 6b 28 | 66 6e 75 6d 62 24 2c c3 |$=.tick(|fnumb$,.|
|00002510| 66 69 78 25 29 0d 0e 06 | 3b 6d 61 69 6e 24 3d a4 |fix%)...|;main$=.|
|00002520| 74 69 63 6b 28 a4 75 6e | 74 69 63 6b 28 a4 75 6e |tick(.un|tick(.un|
|00002530| 74 69 63 6b 28 6d 61 69 | 6e 24 2c 22 53 63 69 22 |tick(mai|n$,"Sci"|
|00002540| 29 2c 22 4e 6f 72 6d 22 | 29 2c 22 46 69 78 22 29 |),"Norm"|),"Fix")|
|00002550| 0d 0e 10 2b 71 25 21 30 | 3d 63 61 6c 63 25 3a 71 |...+q%!0|=calc%:q|
|00002560| 25 21 34 3d 34 36 3a 71 | 25 21 38 3d 30 20 20 20 |%!4=46:q|%!8=0 |
|00002570| 3a 71 25 21 31 32 3d 32 | 5e 32 32 0d 0e 1a 1d c8 |:q%!12=2|^22.....|
|00002580| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00002590| 61 74 65 22 2c 2c 71 25 | 0d 0e 24 2b 71 25 21 30 |ate",,q%|..$+q%!0|
|000025a0| 3d 63 61 6c 63 25 3a 71 | 25 21 34 3d 34 37 3a 71 |=calc%:q|%!4=47:q|
|000025b0| 25 21 38 3d 32 5e 32 32 | 3a 71 25 21 31 32 3d 32 |%!8=2^22|:q%!12=2|
|000025c0| 5e 32 32 0d 0e 2e 1d c8 | 99 22 57 69 6d 70 5f 53 |^22.....|."Wimp_S|
|000025d0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|000025e0| 0d 0e 38 26 69 63 6f 6e | 25 3d 32 39 3a f2 6f 70 |..8&icon|%=29:.op|
|000025f0| 65 72 61 74 6f 72 28 22 | 3d 22 29 3a f2 64 6f 64 |erator("|="):.dod|
|00002600| 69 73 70 6c 61 79 0d 0e | 42 05 cd 0d 0e 4c 0b c9 |isplay..|B....L..|
|00002610| 20 22 53 63 69 22 0d 0e | 56 0e e7 20 62 24 3c 3e | "Sci"..|V.. b$<>|
|00002620| 22 22 20 8c 0d 0e 60 2d | e7 20 66 69 78 25 3c 3e |"" ...`-|. fix%<>|
|00002630| 2d 31 20 8c 20 66 6e 75 | 6d 62 24 3d a4 75 6e 74 |-1 . fnu|mb$=.unt|
|00002640| 69 63 6b 28 66 6e 75 6d | 62 24 2c c3 66 69 78 25 |ick(fnum|b$,.fix%|
|00002650| 29 0d 0e 6a 2d e7 20 73 | 63 69 25 3c 3e 2d 31 20 |)..j-. s|ci%<>-1 |
|00002660| 8c 20 73 6e 75 6d 62 24 | 3d a4 75 6e 74 69 63 6b |. snumb$|=.untick|
|00002670| 28 73 6e 75 6d 62 24 2c | c3 73 63 69 25 29 0d 0e |(snumb$,|.sci%)..|
|00002680| 74 15 73 63 69 25 3d bb | 20 62 24 3a 66 69 78 25 |t.sci%=.| b$:fix%|
|00002690| 3d 2d 31 0d 0e 7e 1e 73 | 6e 75 6d 62 24 3d a4 74 |=-1..~.s|numb$=.t|
|000026a0| 69 63 6b 28 73 6e 75 6d | 62 24 2c c3 73 63 69 25 |ick(snum|b$,.sci%|
|000026b0| 29 0d 0e 88 3b 6d 61 69 | 6e 24 3d a4 74 69 63 6b |)...;mai|n$=.tick|
|000026c0| 28 a4 75 6e 74 69 63 6b | 28 a4 75 6e 74 69 63 6b |(.untick|(.untick|
|000026d0| 28 6d 61 69 6e 24 2c 22 | 46 69 78 22 29 2c 22 4e |(main$,"|Fix"),"N|
|000026e0| 6f 72 6d 22 29 2c 22 53 | 63 69 22 29 0d 0e 92 2b |orm"),"S|ci")...+|
|000026f0| 71 25 21 30 3d 63 61 6c | 63 25 3a 71 25 21 34 3d |q%!0=cal|c%:q%!4=|
|00002700| 34 36 3a 71 25 21 38 3d | 32 5e 32 32 3a 71 25 21 |46:q%!8=|2^22:q%!|
|00002710| 31 32 3d 32 5e 32 32 0d | 0e 9c 1d c8 99 22 57 69 |12=2^22.|....."Wi|
|00002720| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00002730| 2c 2c 71 25 0d 0e a6 2b | 71 25 21 30 3d 63 61 6c |,,q%...+|q%!0=cal|
|00002740| 63 25 3a 71 25 21 34 3d | 34 37 3a 71 25 21 38 3d |c%:q%!4=|47:q%!8=|
|00002750| 30 20 20 20 3a 71 25 21 | 31 32 3d 32 5e 32 32 0d |0 :q%!|12=2^22.|
|00002760| 0e b0 1d c8 99 22 57 69 | 6d 70 5f 53 65 74 49 63 |....."Wi|mp_SetIc|
|00002770| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 0e ba 26 |onState"|,,q%...&|
|00002780| 69 63 6f 6e 25 3d 32 39 | 3a f2 6f 70 65 72 61 74 |icon%=29|:.operat|
|00002790| 6f 72 28 22 3d 22 29 3a | f2 64 6f 64 69 73 70 6c |or("="):|.dodispl|
|000027a0| 61 79 0d 0e c4 05 cd 0d | 0e ce 05 cb 0d 0e d8 05 |ay......|........|
|000027b0| cb 0d 0e e2 0f f2 67 65 | 74 70 6f 69 6e 74 65 72 |......ge|tpointer|
|000027c0| 0d 0e ec 5d e7 20 28 62 | 25 20 80 20 31 29 3d 31 |...]. (b|% . 1)=1|
|000027d0| 20 80 20 6d 65 6e 75 68 | 61 6e 64 6c 65 25 3d 31 | . menuh|andle%=1|
|000027e0| 30 31 20 8c 20 f2 64 6f | 6d 65 6e 75 28 31 30 31 |01 . .do|menu(101|
|000027f0| 2c 62 75 66 66 65 72 25 | 2c 22 3e 49 6e 66 6f 2e |,buffer%|,">Info.|
|00002800| 69 6e 66 6f 25 2c 51 75 | 69 74 22 2c 22 43 61 6c |info%,Qu|it","Cal|
|00002810| 63 75 6c 61 74 6f 72 22 | 2c 30 2c 30 29 0d 0e f6 |culator"|,0,0)...|
|00002820| 4a e7 20 28 62 25 20 80 | 20 31 29 3d 31 20 80 20 |J. (b% .| 1)=1 . |
|00002830| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 3d 31 30 32 20 |menuhand|le%=102 |
|00002840| 8c 20 f2 64 6f 6d 65 6e | 75 28 31 30 32 2c 62 75 |. .domen|u(102,bu|
|00002850| 66 66 65 72 25 2c 6d 61 | 69 6e 24 2c 22 43 61 6c |ffer%,ma|in$,"Cal|
|00002860| 63 22 2c 30 2c 30 29 0d | 0f 00 05 e1 0d 0f 0a 05 |c",0,0).|........|
|00002870| 3a 0d 0f 14 10 dd 20 f2 | 73 65 6c 65 63 74 44 65 |:..... .|selectDe|
|00002880| 67 0d 0f 1e 22 61 6e 67 | 6c 65 69 6e 24 3d 22 52 |g..."ang|lein$="R|
|00002890| 41 44 22 3a 61 6e 67 6c | 65 6f 75 74 24 3d 22 44 |AD":angl|eout$="D|
|000028a0| 45 47 22 0d 0f 28 2b 6d | 61 69 6e 24 3d a4 74 69 |EG"..(+m|ain$=.ti|
|000028b0| 63 6b 28 a4 75 6e 74 69 | 63 6b 28 6d 61 69 6e 24 |ck(.unti|ck(main$|
|000028c0| 2c 22 52 61 64 22 29 2c | 22 44 65 67 22 29 0d 0f |,"Rad"),|"Deg")..|
|000028d0| 32 28 71 25 21 30 3d 63 | 61 6c 63 25 3a 71 25 21 |2(q%!0=c|alc%:q%!|
|000028e0| 34 3d 33 35 3a 71 25 21 | 38 3d 30 3a 71 25 21 31 |4=35:q%!|8=0:q%!1|
|000028f0| 32 3d 32 5e 32 32 0d 0f | 3c 1d c8 99 22 57 69 6d |2=2^22..|<..."Wim|
|00002900| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00002910| 2c 71 25 0d 0f 46 2b 71 | 25 21 30 3d 63 61 6c 63 |,q%..F+q|%!0=calc|
|00002920| 25 3a 71 25 21 34 3d 33 | 36 3a 71 25 21 38 3d 32 |%:q%!4=3|6:q%!8=2|
|00002930| 5e 32 32 3a 71 25 21 31 | 32 3d 32 5e 32 32 0d 0f |^22:q%!1|2=2^22..|
|00002940| 50 1d c8 99 22 57 69 6d | 70 5f 53 65 74 49 63 6f |P..."Wim|p_SetIco|
|00002950| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 0f 5a 05 e1 |nState",|,q%..Z..|
|00002960| 0d 0f 64 05 3a 0d 0f 6e | 10 dd 20 f2 73 65 6c 65 |..d.:..n|.. .sele|
|00002970| 63 74 52 61 64 0d 0f 78 | 1c 61 6e 67 6c 65 69 6e |ctRad..x|.anglein|
|00002980| 24 3d 22 22 3a 61 6e 67 | 6c 65 6f 75 74 24 3d 22 |$="":ang|leout$="|
|00002990| 22 0d 0f 82 2b 6d 61 69 | 6e 24 3d a4 74 69 63 6b |"...+mai|n$=.tick|
|000029a0| 28 a4 75 6e 74 69 63 6b | 28 6d 61 69 6e 24 2c 22 |(.untick|(main$,"|
|000029b0| 44 65 67 22 29 2c 22 52 | 61 64 22 29 0d 0f 8c 28 |Deg"),"R|ad")...(|
|000029c0| 71 25 21 30 3d 63 61 6c | 63 25 3a 71 25 21 34 3d |q%!0=cal|c%:q%!4=|
|000029d0| 33 36 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |36:q%!8=|0:q%!12=|
|000029e0| 32 5e 32 32 0d 0f 96 1d | c8 99 22 57 69 6d 70 5f |2^22....|.."Wimp_|
|000029f0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00002a00| 25 0d 0f a0 2b 71 25 21 | 30 3d 63 61 6c 63 25 3a |%...+q%!|0=calc%:|
|00002a10| 71 25 21 34 3d 33 35 3a | 71 25 21 38 3d 32 5e 32 |q%!4=35:|q%!8=2^2|
|00002a20| 32 3a 71 25 21 31 32 3d | 32 5e 32 32 0d 0f aa 1d |2:q%!12=|2^22....|
|00002a30| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|00002a40| 74 61 74 65 22 2c 2c 71 | 25 0d 0f b4 05 e1 0d 0f |tate",,q|%.......|
|00002a50| be 05 3a 0d 0f c8 10 dd | 20 f2 73 65 6c 65 63 74 |..:.....| .select|
|00002a60| 44 65 63 0d 0f d2 15 62 | 61 73 65 25 3d 31 30 3a |Dec....b|ase%=10:|
|00002a70| f2 64 65 63 6b 65 79 73 | 0d 0f dc 3a 6d 61 69 6e |.deckeys|...:main|
|00002a80| 24 3d a4 74 69 63 6b 28 | a4 75 6e 74 69 63 6b 28 |$=.tick(|.untick(|
|00002a90| a4 75 6e 74 69 63 6b 28 | 6d 61 69 6e 24 2c 22 48 |.untick(|main$,"H|
|00002aa0| 65 78 22 29 2c 22 42 69 | 6e 22 29 2c 22 44 65 63 |ex"),"Bi|n"),"Dec|
|00002ab0| 22 29 0d 0f e6 28 71 25 | 21 30 3d 63 61 6c 63 25 |")...(q%|!0=calc%|
|00002ac0| 3a 71 25 21 34 3d 33 37 | 3a 71 25 21 38 3d 30 3a |:q%!4=37|:q%!8=0:|
|00002ad0| 71 25 21 31 32 3d 32 5e | 32 32 0d 0f f0 1d c8 99 |q%!12=2^|22......|
|00002ae0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00002af0| 74 65 22 2c 2c 71 25 0d | 0f fa 2b 71 25 21 30 3d |te",,q%.|..+q%!0=|
|00002b00| 63 61 6c 63 25 3a 71 25 | 21 34 3d 33 38 3a 71 25 |calc%:q%|!4=38:q%|
|00002b10| 21 38 3d 32 5e 32 32 3a | 71 25 21 31 32 3d 32 5e |!8=2^22:|q%!12=2^|
|00002b20| 32 32 0d 10 04 1d c8 99 | 22 57 69 6d 70 5f 53 65 |22......|"Wimp_Se|
|00002b30| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00002b40| 10 0e 2b 71 25 21 30 3d | 63 61 6c 63 25 3a 71 25 |..+q%!0=|calc%:q%|
|00002b50| 21 34 3d 33 39 3a 71 25 | 21 38 3d 32 5e 32 32 3a |!4=39:q%|!8=2^22:|
|00002b60| 71 25 21 31 32 3d 32 5e | 32 32 0d 10 18 1d c8 99 |q%!12=2^|22......|
|00002b70| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00002b80| 74 65 22 2c 2c 71 25 0d | 10 22 26 69 63 6f 6e 25 |te",,q%.|."&icon%|
|00002b90| 3d 32 39 3a f2 6f 70 65 | 72 61 74 6f 72 28 22 3d |=29:.ope|rator("=|
|00002ba0| 22 29 3a f2 64 6f 64 69 | 73 70 6c 61 79 0d 10 2c |"):.dodi|splay..,|
|00002bb0| 05 e1 0d 10 36 05 3a 0d | 10 40 10 dd 20 f2 73 65 |....6.:.|.@.. .se|
|00002bc0| 6c 65 63 74 48 65 78 0d | 10 4a 15 62 61 73 65 25 |lectHex.|.J.base%|
|00002bd0| 3d 31 36 3a f2 68 65 78 | 6b 65 79 73 0d 10 54 3a |=16:.hex|keys..T:|
|00002be0| 6d 61 69 6e 24 3d a4 74 | 69 63 6b 28 a4 75 6e 74 |main$=.t|ick(.unt|
|00002bf0| 69 63 6b 28 a4 75 6e 74 | 69 63 6b 28 6d 61 69 6e |ick(.unt|ick(main|
|00002c00| 24 2c 22 44 65 63 22 29 | 2c 22 42 69 6e 22 29 2c |$,"Dec")|,"Bin"),|
|00002c10| 22 48 65 78 22 29 0d 10 | 5e 28 71 25 21 30 3d 63 |"Hex")..|^(q%!0=c|
|00002c20| 61 6c 63 25 3a 71 25 21 | 34 3d 33 38 3a 71 25 21 |alc%:q%!|4=38:q%!|
|00002c30| 38 3d 30 3a 71 25 21 31 | 32 3d 32 5e 32 32 0d 10 |8=0:q%!1|2=2^22..|
|00002c40| 68 1d c8 99 22 57 69 6d | 70 5f 53 65 74 49 63 6f |h..."Wim|p_SetIco|
|00002c50| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 10 72 2b 71 |nState",|,q%..r+q|
|00002c60| 25 21 30 3d 63 61 6c 63 | 25 3a 71 25 21 34 3d 33 |%!0=calc|%:q%!4=3|
|00002c70| 37 3a 71 25 21 38 3d 32 | 5e 32 32 3a 71 25 21 31 |7:q%!8=2|^22:q%!1|
|00002c80| 32 3d 32 5e 32 32 0d 10 | 7c 1d c8 99 22 57 69 6d |2=2^22..||..."Wim|
|00002c90| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00002ca0| 2c 71 25 0d 10 86 2b 71 | 25 21 30 3d 63 61 6c 63 |,q%...+q|%!0=calc|
|00002cb0| 25 3a 71 25 21 34 3d 33 | 39 3a 71 25 21 38 3d 32 |%:q%!4=3|9:q%!8=2|
|00002cc0| 5e 32 32 3a 71 25 21 31 | 32 3d 32 5e 32 32 0d 10 |^22:q%!1|2=2^22..|
|00002cd0| 90 1d c8 99 22 57 69 6d | 70 5f 53 65 74 49 63 6f |...."Wim|p_SetIco|
|00002ce0| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 10 9a 26 69 |nState",|,q%...&i|
|00002cf0| 63 6f 6e 25 3d 32 39 3a | f2 6f 70 65 72 61 74 6f |con%=29:|.operato|
|00002d00| 72 28 22 3d 22 29 3a f2 | 64 6f 64 69 73 70 6c 61 |r("="):.|dodispla|
|00002d10| 79 0d 10 a4 05 e1 0d 10 | ae 05 3a 0d 10 b8 10 dd |y.......|..:.....|
|00002d20| 20 f2 73 65 6c 65 63 74 | 42 69 6e 0d 10 c2 14 62 | .select|Bin....b|
|00002d30| 61 73 65 25 3d 32 3a f2 | 64 65 63 6b 65 79 73 0d |ase%=2:.|deckeys.|
|00002d40| 10 cc 3a 6d 61 69 6e 24 | 3d a4 74 69 63 6b 28 a4 |..:main$|=.tick(.|
|00002d50| 75 6e 74 69 63 6b 28 a4 | 75 6e 74 69 63 6b 28 6d |untick(.|untick(m|
|00002d60| 61 69 6e 24 2c 22 48 65 | 78 22 29 2c 22 44 65 63 |ain$,"He|x"),"Dec|
|00002d70| 22 29 2c 22 42 69 6e 22 | 29 0d 10 d6 28 71 25 21 |"),"Bin"|)...(q%!|
|00002d80| 30 3d 63 61 6c 63 25 3a | 71 25 21 34 3d 33 39 3a |0=calc%:|q%!4=39:|
|00002d90| 71 25 21 38 3d 30 3a 71 | 25 21 31 32 3d 32 5e 32 |q%!8=0:q|%!12=2^2|
|00002da0| 32 0d 10 e0 1d c8 99 22 | 57 69 6d 70 5f 53 65 74 |2......"|Wimp_Set|
|00002db0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 10 |IconStat|e",,q%..|
|00002dc0| ea 2b 71 25 21 30 3d 63 | 61 6c 63 25 3a 71 25 21 |.+q%!0=c|alc%:q%!|
|00002dd0| 34 3d 33 38 3a 71 25 21 | 38 3d 32 5e 32 32 3a 71 |4=38:q%!|8=2^22:q|
|00002de0| 25 21 31 32 3d 32 5e 32 | 32 0d 10 f4 1d c8 99 22 |%!12=2^2|2......"|
|00002df0| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00002e00| 65 22 2c 2c 71 25 0d 10 | fe 2b 71 25 21 30 3d 63 |e",,q%..|.+q%!0=c|
|00002e10| 61 6c 63 25 3a 71 25 21 | 34 3d 33 37 3a 71 25 21 |alc%:q%!|4=37:q%!|
|00002e20| 38 3d 32 5e 32 32 3a 71 | 25 21 31 32 3d 32 5e 32 |8=2^22:q|%!12=2^2|
|00002e30| 32 0d 11 08 1d c8 99 22 | 57 69 6d 70 5f 53 65 74 |2......"|Wimp_Set|
|00002e40| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 11 |IconStat|e",,q%..|
|00002e50| 12 26 69 63 6f 6e 25 3d | 32 39 3a f2 6f 70 65 72 |.&icon%=|29:.oper|
|00002e60| 61 74 6f 72 28 22 3d 22 | 29 3a f2 64 6f 64 69 73 |ator("="|):.dodis|
|00002e70| 70 6c 61 79 0d 11 1c 05 | e1 0d 11 26 05 3a 0d 11 |play....|...&.:..|
|00002e80| 30 12 dd 20 a4 74 69 63 | 6b 28 6d 24 2c 6e 24 29 |0.. .tic|k(m$,n$)|
|00002e90| 0d 11 3a 07 ea 20 61 0d | 11 44 15 e7 20 a7 6d 24 |..:.. a.|.D.. .m$|
|00002ea0| 2c 6e 24 29 3d 30 20 8c | 20 3d 6d 24 0d 11 4e 0d |,n$)=0 .| =m$..N.|
|00002eb0| 61 3d a7 6d 24 2c 6e 24 | 29 0d 11 58 1c e7 20 c1 |a=.m$,n$|)..X.. .|
|00002ec0| 6d 24 2c 61 2d 31 2c 31 | 29 20 3d 20 22 40 22 20 |m$,a-1,1|) = "@" |
|00002ed0| 8c 20 3d 6d 24 0d 11 62 | 18 3d c0 6d 24 2c 61 2d |. =m$..b|.=.m$,a-|
|00002ee0| 31 29 2b 22 40 22 2b c1 | 6d 24 2c 61 29 0d 11 6c |1)+"@"+.|m$,a)..l|
|00002ef0| 05 3a 0d 11 76 14 dd 20 | a4 75 6e 74 69 63 6b 28 |.:..v.. |.untick(|
|00002f00| 6d 24 2c 6e 24 29 0d 11 | 80 07 ea 20 61 0d 11 8a |m$,n$)..|... a...|
|00002f10| 15 e7 20 a7 6d 24 2c 6e | 24 29 3d 30 20 8c 20 3d |.. .m$,n|$)=0 . =|
|00002f20| 6d 24 0d 11 94 0d 61 3d | a7 6d 24 2c 6e 24 29 0d |m$....a=|.m$,n$).|
|00002f30| 11 9e 1d e7 20 c1 6d 24 | 2c 61 2d 31 2c 31 29 20 |.... .m$|,a-1,1) |
|00002f40| 3c 3e 20 22 40 22 20 8c | 20 3d 6d 24 0d 11 a8 14 |<> "@" .| =m$....|
|00002f50| 3d c0 6d 24 2c 61 2d 32 | 29 2b c1 6d 24 2c 61 29 |=.m$,a-2|)+.m$,a)|
|00002f60| 0d 11 b2 05 3a 0d 11 bc | 15 dd 20 f2 66 72 6f 6e |....:...|.. .fron|
|00002f70| 74 28 68 61 6e 64 6c 65 | 25 29 0d 11 c6 11 e7 68 |t(handle|%).....h|
|00002f80| 61 6e 64 6c 65 25 3d 2d | 31 8c e1 0d 11 d0 12 f2 |andle%=-|1.......|
|00002f90| 67 65 74 77 28 68 61 6e | 64 6c 65 25 29 0d 11 da |getw(han|dle%)...|
|00002fa0| 36 f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 68 61 |6.open_w|indow(ha|
|00002fb0| 6e 64 6c 65 25 2c 78 30 | 25 2c 79 30 25 2c 78 31 |ndle%,x0|%,y0%,x1|
|00002fc0| 25 2c 79 31 25 2c 73 63 | 78 25 2c 73 63 79 25 2c |%,y1%,sc|x%,scy%,|
|00002fd0| 2d 31 29 0d 11 e4 05 e1 | 0d 11 ee 05 3a 0d 11 f8 |-1).....|....:...|
|00002fe0| 16 dd 20 f2 72 65 6f 70 | 65 6e 28 68 61 6e 64 6c |.. .reop|en(handl|
|00002ff0| 65 25 29 0d 12 02 12 f2 | 67 65 74 77 28 68 61 6e |e%).....|getw(han|
|00003000| 64 6c 65 25 29 0d 12 0c | 46 f2 6f 70 65 6e 5f 77 |dle%)...|F.open_w|
|00003010| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 2c 78 6f |indow(ha|ndle%,xo|
|00003020| 25 2c 79 6f 25 2c 78 31 | 25 2d 78 30 25 2b 78 6f |%,yo%,x1|%-x0%+xo|
|00003030| 25 2c 79 31 25 2d 79 30 | 25 2b 79 6f 25 2c 73 63 |%,y1%-y0|%+yo%,sc|
|00003040| 78 25 2c 73 63 79 25 2c | 2d 31 29 0d 12 16 05 e1 |x%,scy%,|-1).....|
|00003050| 0d 12 20 05 3a 0d 12 2a | 3e dd 20 f2 6f 70 65 6e |.. .:..*|>. .open|
|00003060| 5f 77 69 6e 64 6f 77 28 | 68 61 6e 64 6c 65 25 2c |_window(|handle%,|
|00003070| 78 30 25 2c 79 30 25 2c | 78 31 25 2c 79 31 25 2c |x0%,y0%,|x1%,y1%,|
|00003080| 73 63 78 25 2c 73 63 79 | 25 2c 62 68 61 6e 64 6c |scx%,scy|%,bhandl|
|00003090| 65 25 29 0d 12 34 11 e7 | 68 61 6e 64 6c 65 25 3d |e%)..4..|handle%=|
|000030a0| 2d 31 8c e1 0d 12 3e 1f | 71 25 21 30 3d 68 61 6e |-1....>.|q%!0=han|
|000030b0| 64 6c 65 25 3a 71 25 21 | 32 38 3d 62 68 61 6e 64 |dle%:q%!|28=bhand|
|000030c0| 6c 65 25 0d 12 48 29 71 | 25 21 34 3d 78 30 25 3a |le%..H)q|%!4=x0%:|
|000030d0| 71 25 21 38 3d 79 30 25 | 3a 71 25 21 31 32 3d 78 |q%!8=y0%|:q%!12=x|
|000030e0| 31 25 3a 71 25 21 31 36 | 3d 79 31 25 0d 12 52 19 |1%:q%!16|=y1%..R.|
|000030f0| 71 25 21 32 30 3d 73 63 | 78 25 3a 71 25 21 32 34 |q%!20=sc|x%:q%!24|
|00003100| 3d 73 63 79 25 0d 12 5c | 1c c8 99 20 22 57 69 6d |=scy%..\|... "Wim|
|00003110| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 71 |p_OpenWi|ndow",,q|
|00003120| 25 0d 12 66 05 e1 0d 12 | 70 05 3a 0d 12 7a 14 dd |%..f....|p.:..z..|
|00003130| 20 f2 67 65 74 77 28 68 | 61 6e 64 6c 65 25 29 0d | .getw(h|andle%).|
|00003140| 12 84 2b 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a c8 |..+!q%=h|andle%:.|
|00003150| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00003160| 77 49 6e 66 6f 22 2c 2c | 71 25 0d 12 8e 2b f2 69 |wInfo",,|q%...+.i|
|00003170| 6e 66 6f 28 71 25 2b 34 | 29 3a 62 68 61 6e 64 6c |nfo(q%+4|):bhandl|
|00003180| 65 25 3d 71 25 21 32 38 | 3a 66 6c 61 67 73 25 3d |e%=q%!28|:flags%=|
|00003190| 71 25 21 33 32 0d 12 98 | 05 e1 0d 12 a2 05 3a 0d |q%!32...|......:.|
|000031a0| 12 ac 0f dd 20 f2 69 6e | 66 6f 28 71 25 29 0d 12 |.... .in|fo(q%)..|
|000031b0| b6 3d 78 30 25 3d 21 71 | 25 3a 79 30 25 3d 71 25 |.=x0%=!q|%:y0%=q%|
|000031c0| 21 34 3a 78 31 25 3d 71 | 25 21 38 3a 79 31 25 3d |!4:x1%=q|%!8:y1%=|
|000031d0| 71 25 21 31 32 3a 73 63 | 78 25 3d 71 25 21 31 36 |q%!12:sc|x%=q%!16|
|000031e0| 3a 73 63 79 25 3d 71 25 | 21 32 30 0d 12 c0 1d 62 |:scy%=q%|!20....b|
|000031f0| 78 25 3d 78 30 25 2d 73 | 63 78 25 3a 62 79 25 3d |x%=x0%-s|cx%:by%=|
|00003200| 79 31 25 2d 73 63 79 25 | 0d 12 ca 05 e1 0d 12 d4 |y1%-scy%|........|
|00003210| 05 3a 0d 12 de 1c dd 20 | f2 63 6c 6f 73 65 5f 77 |.:..... |.close_w|
|00003220| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 29 0d 12 |indow(ha|ndle%)..|
|00003230| e8 29 21 71 25 3d 68 61 | 6e 64 6c 65 25 3a c8 99 |.)!q%=ha|ndle%:..|
|00003240| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00003250| 6f 77 22 2c 2c 71 25 0d | 12 f2 05 e1 0d 12 fc 05 |ow",,q%.|........|
|00003260| 3a 0d 13 06 11 dd 20 f2 | 67 65 74 70 6f 69 6e 74 |:..... .|getpoint|
|00003270| 65 72 0d 13 10 20 c8 99 | 20 22 57 69 6d 70 5f 47 |er... ..| "Wimp_G|
|00003280| 65 74 50 6f 69 6e 74 65 | 72 49 6e 66 6f 22 2c 2c |etPointe|rInfo",,|
|00003290| 71 25 0d 13 1a 48 6d 6f | 75 73 65 78 25 3d 21 71 |q%...Hmo|usex%=!q|
|000032a0| 25 3a 6d 6f 75 73 65 79 | 25 3d 71 25 21 34 3a 62 |%:mousey|%=q%!4:b|
|000032b0| 25 3d 71 25 21 38 3a 68 | 61 6e 64 6c 65 25 3d 71 |%=q%!8:h|andle%=q|
|000032c0| 25 21 31 32 3a 69 63 6f | 6e 25 3d 71 25 21 31 36 |%!12:ico|n%=q%!16|
|000032d0| 3a 6f 62 25 3d 71 25 21 | 32 30 0d 13 24 05 e1 0d |:ob%=q%!|20..$...|
|000032e0| 13 2e 05 3a 0d 13 38 19 | dd 20 f2 65 72 72 6f 72 |...:..8.|. .error|
|000032f0| 62 6f 78 3a ea 20 72 65 | 73 75 6c 74 25 0d 13 42 |box:. re|sult%..B|
|00003300| 33 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |3.. "Wim|p_DragBo|
|00003310| 78 22 2c 2c 2d 31 3a c8 | 99 20 22 48 6f 75 72 67 |x",,-1:.|. "Hourg|
|00003320| 6c 61 73 73 5f 53 6d 61 | 73 68 22 3a d9 20 23 30 |lass_Sma|sh":. #0|
|00003330| 0d 13 4c 8d e7 20 63 61 | 72 65 74 73 74 6f 72 65 |..L.. ca|retstore|
|00003340| 25 21 30 20 3c 3e 2d 31 | 20 8c 20 c8 99 20 22 58 |%!0 <>-1| . .. "X|
|00003350| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00003360| 69 74 69 6f 6e 22 2c 63 | 61 72 65 74 73 74 6f 72 |ition",c|aretstor|
|00003370| 65 25 21 30 2c 63 61 72 | 65 74 73 74 6f 72 65 25 |e%!0,car|etstore%|
|00003380| 21 34 2c 63 61 72 65 74 | 73 74 6f 72 65 25 21 38 |!4,caret|store%!8|
|00003390| 2c 63 61 72 65 74 73 74 | 6f 72 65 25 21 31 32 2c |,caretst|ore%!12,|
|000033a0| 63 61 72 65 74 73 74 6f | 72 65 25 21 31 36 2c 63 |caretsto|re%!16,c|
|000033b0| 61 72 65 74 73 74 6f 72 | 65 25 21 32 30 0d 13 56 |aretstor|e%!20..V|
|000033c0| 6a 21 71 25 3d 9f 3a 24 | 28 71 25 2b 34 29 3d 22 |j!q%=.:$|(q%+4)="|
|000033d0| 49 6e 74 65 72 6e 61 6c | 20 65 72 72 6f 72 20 22 |Internal| error "|
|000033e0| 2b f6 24 2b 22 20 28 22 | 2b c3 9e 2b 22 29 22 2b |+.$+" ("|+..+")"+|
|000033f0| 22 20 4f 6b 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 |" Ok to |continue|
|00003400| 2c 20 43 61 6e 63 65 6c | 20 74 6f 20 6b 69 6c 6c |, Cancel| to kill|
|00003410| 20 22 2b 22 53 63 69 65 | 6e 74 69 66 69 63 20 43 | "+"Scie|ntific C|
|00003420| 61 6c 63 22 2b bd 30 0d | 13 60 3b c8 99 20 22 57 |alc"+.0.|.`;.. "W|
|00003430| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00003440| 2c 71 25 2c 33 2c 22 53 | 63 69 65 6e 74 69 66 69 |,q%,3,"S|cientifi|
|00003450| 63 20 43 61 6c 63 22 20 | b8 20 2c 72 65 73 75 6c |c Calc" |. ,resul|
|00003460| 74 25 0d 13 6a 19 e7 20 | 72 65 73 75 6c 74 25 3d |t%..j.. |result%=|
|00003470| 32 20 8c 20 f2 66 69 6e | 69 73 68 0d 13 74 05 e1 |2 . .fin|ish..t..|
|00003480| 0d 13 7e 05 3a 0d 13 88 | 0d dd 20 f2 66 69 6e 69 |..~.:...|.. .fini|
|00003490| 73 68 0d 13 92 1e ee 20 | 85 20 c8 99 20 22 58 57 |sh..... |. .. "XW|
|000034a0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 3a e0 |imp_Clos|eDown":.|
|000034b0| 0d 13 9c 18 c8 99 20 22 | 48 6f 75 72 47 6c 61 73 |...... "|HourGlas|
|000034c0| 73 5f 53 6d 61 73 68 22 | 0d 13 a6 18 c8 99 20 22 |s_Smash"|...... "|
|000034d0| 57 69 6d 70 5f 44 72 61 | 67 42 6f 78 22 2c 2d 31 |Wimp_Dra|gBox",-1|
|000034e0| 0d 13 b0 2a c8 99 20 22 | 58 4d 65 73 73 61 67 65 |...*.. "|XMessage|
|000034f0| 54 72 61 6e 73 5f 43 6c | 6f 73 65 46 69 6c 65 22 |Trans_Cl|oseFile"|
|00003500| 2c 6d 73 67 5f 66 69 6c | 65 25 0d 13 ba 20 c8 99 |,msg_fil|e%... ..|
|00003510| 20 22 58 4f 53 5f 4d 6f | 64 75 6c 65 22 2c 37 2c | "XOS_Mo|dule",7,|
|00003520| 2c 6d 73 67 5f 66 69 6c | 65 25 0d 13 c4 17 c8 99 |,msg_fil|e%......|
|00003530| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e | "Wimp_C|loseDown|
|00003540| 22 0d 13 ce 05 e0 0d 13 | d8 05 e1 0d 13 e2 05 3a |".......|.......:|
|00003550| 0d 13 ec 0e dd 20 a4 69 | 63 6f 6e 62 61 72 0d 13 |..... .i|conbar..|
|00003560| f6 36 21 71 25 3d 2d 31 | 3a 71 25 21 34 3d 30 3a |.6!q%=-1|:q%!4=0:|
|00003570| 71 25 21 38 3d 30 3a 71 | 25 21 31 32 3d 36 33 3a |q%!8=0:q|%!12=63:|
|00003580| 71 25 21 31 36 3d 36 38 | 3a 71 25 21 32 30 3d 26 |q%!16=68|:q%!20=&|
|00003590| 32 31 30 32 0d 14 00 13 | 73 70 6e 61 6d 65 24 3d |2102....|spname$=|
|000035a0| 22 21 63 61 6c 63 22 0d | 14 0a 38 de 20 71 25 21 |"!calc".|..8. q%!|
|000035b0| 32 34 20 28 a9 73 70 6e | 61 6d 65 24 2b 31 29 3a |24 (.spn|ame$+1):|
|000035c0| 24 28 71 25 21 32 34 29 | 3d 73 70 6e 61 6d 65 24 |$(q%!24)|=spname$|
|000035d0| 3a 71 25 21 32 38 3d 73 | 70 72 69 74 65 73 25 0d |:q%!28=s|prites%.|
|000035e0| 14 14 14 71 25 21 33 32 | 3d a9 73 70 6e 61 6d 65 |...q%!32|=.spname|
|000035f0| 24 2b 31 0d 14 1e 22 c8 | 99 20 22 57 69 6d 70 5f |$+1...".|. "Wimp_|
|00003600| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 71 25 20 |CreateIc|on",,q% |
|00003610| b8 20 69 63 25 0d 14 28 | 08 3d 69 63 25 0d 14 32 |. ic%..(|.=ic%..2|
|00003620| 05 3a 0d 14 3c 13 dd 20 | a4 66 61 63 74 6f 72 69 |.:..<.. |.factori|
|00003630| 61 6c 28 6e 29 0d 14 46 | 0e ea 20 73 75 6d 2c 6c |al(n)..F|.. sum,l|
|00003640| 6f 6f 70 0d 14 50 0f e7 | 20 6e 3d 30 20 8c 20 3d |oop..P..| n=0 . =|
|00003650| 20 31 0d 14 5a 14 e7 20 | 6e 3c 3e a8 28 6e 29 20 | 1..Z.. |n<>.(n) |
|00003660| 8c 20 3d 30 2f 30 0d 14 | 64 09 73 75 6d 3d 31 0d |. =0/0..|d.sum=1.|
|00003670| 14 6e 0e e3 20 6c 6f 6f | 70 3d 31 b8 6e 0d 14 78 |.n.. loo|p=1.n..x|
|00003680| 10 73 75 6d 3d 73 75 6d | 2a 6c 6f 6f 70 0d 14 82 |.sum=sum|*loop...|
|00003690| 05 ed 0d 14 8c 08 3d 73 | 75 6d 0d 14 96 05 3a 0d |......=s|um....:.|
|000036a0| 14 a0 11 dd 20 f2 64 69 | 67 69 74 28 6b 65 79 29 |.... .di|git(key)|
|000036b0| 0d 14 aa 5f e7 20 28 62 | 61 73 65 25 3d 31 30 20 |..._. (b|ase%=10 |
|000036c0| 80 20 a9 65 6e 74 72 79 | 24 20 2d 20 b4 28 a7 65 |. .entry|$ - .(.e|
|000036d0| 6e 74 72 79 24 2c 22 2e | 22 29 29 20 3c 20 39 29 |ntry$,".|")) < 9)|
|000036e0| 84 20 62 61 73 65 25 3d | 31 36 20 80 20 a9 65 6e |. base%=|16 . .en|
|000036f0| 74 72 79 24 3c 38 20 84 | 20 62 61 73 65 25 3d 32 |try$<8 .| base%=2|
|00003700| 20 80 20 a9 65 6e 74 72 | 79 24 3c 33 32 20 8c 0d | . .entr|y$<32 ..|
|00003710| 14 b4 35 e7 20 65 6e 74 | 72 79 24 3d 22 30 22 20 |..5. ent|ry$="0" |
|00003720| 8c 20 65 6e 74 72 79 24 | 3d c3 7e 6b 65 79 20 8b |. entry$|=.~key .|
|00003730| 20 65 6e 74 72 79 24 3d | 65 6e 74 72 79 24 2b c3 | entry$=|entry$+.|
|00003740| 7e 6b 65 79 0d 14 be 05 | cd 0d 14 c8 23 e7 20 62 |~key....|....#. b|
|00003750| 61 73 65 25 3d 31 30 20 | 8c 20 72 65 67 69 73 74 |ase%=10 |. regist|
|00003760| 65 72 3d a0 28 65 6e 74 | 72 79 24 29 0d 14 d2 27 |er=.(ent|ry$)...'|
|00003770| e7 20 62 61 73 65 25 3d | 31 36 20 8c 20 72 65 67 |. base%=|16 . reg|
|00003780| 69 73 74 65 72 3d a0 28 | 22 26 22 2b 65 6e 74 72 |ister=.(|"&"+entr|
|00003790| 79 24 29 0d 14 dc 27 e7 | 20 62 61 73 65 25 3d 32 |y$)...'.| base%=2|
|000037a0| 20 20 8c 20 72 65 67 69 | 73 74 65 72 3d a0 28 22 | . regi|ster=.("|
|000037b0| 25 22 2b 65 6e 74 72 79 | 24 29 0d 14 e6 05 e1 0d |%"+entry|$)......|
|000037c0| 14 f0 05 3a 0d 14 fa 0c | dd 20 f2 70 6f 69 6e 74 |...:....|. .point|
|000037d0| 0d 15 04 36 e7 20 a7 65 | 6e 74 72 79 24 2c 22 2e |...6. .e|ntry$,".|
|000037e0| 22 29 3d 30 20 80 20 a9 | 65 6e 74 72 79 24 20 3c |")=0 . .|entry$ <|
|000037f0| 20 39 20 8c 20 65 6e 74 | 72 79 24 3d 65 6e 74 72 | 9 . ent|ry$=entr|
|00003800| 79 24 2b 22 2e 22 0d 15 | 0e 16 72 65 67 69 73 74 |y$+"."..|..regist|
|00003810| 65 72 3d bb 28 65 6e 74 | 72 79 24 29 0d 15 18 05 |er=.(ent|ry$)....|
|00003820| e1 0d 15 22 05 3a 0d 15 | 2c 05 3a 0d 15 36 15 dd |...".:..|,.:..6..|
|00003830| 20 f2 6f 70 65 72 61 74 | 6f 72 28 6b 65 79 24 29 | .operat|or(key$)|
|00003840| 0d 15 40 14 62 72 61 63 | 6b 65 74 6f 70 65 6e 65 |..@.brac|ketopene|
|00003850| 64 25 3d a3 0d 15 4a 05 | 3a 0d 15 54 36 e7 20 6b |d%=...J.|:..T6. k|
|00003860| 65 79 24 3d 6f 70 65 72 | 61 74 6f 72 24 20 80 20 |ey$=oper|ator$ . |
|00003870| a7 22 3d 28 29 22 2c 6b | 65 79 24 29 3d 30 20 80 |."=()",k|ey$)=0 .|
|00003880| 20 62 72 61 63 6b 65 74 | 3c 3e 30 20 8c 20 e1 0d | bracket|<>0 . ..|
|00003890| 15 5e 6e e7 20 6f 70 63 | 6f 75 6e 74 25 3d 31 20 |.^n. opc|ount%=1 |
|000038a0| 80 20 6b 65 79 24 3d 6f | 70 65 72 61 74 6f 72 24 |. key$=o|perator$|
|000038b0| 20 80 20 63 6e 73 74 6f | 70 24 20 3d 22 22 20 80 | . cnsto|p$ ="" .|
|000038c0| 20 a7 22 3d 28 29 22 2c | 6b 65 79 24 29 3d 30 20 | ."=()",|key$)=0 |
|000038d0| 8c 20 63 6e 73 74 6f 70 | 24 3d 6b 65 79 24 3a 63 |. cnstop|$=key$:c|
|000038e0| 6e 73 74 6e 75 6d 62 3d | 72 65 67 69 73 74 65 72 |nstnumb=|register|
|000038f0| 3a 6f 70 63 6f 75 6e 74 | 25 3d 30 3a e1 0d 15 68 |:opcount|%=0:...h|
|00003900| 6a e7 20 a7 22 3d 28 29 | 22 2c 6b 65 79 24 29 3d |j. ."=()|",key$)=|
|00003910| 30 20 80 20 62 72 61 63 | 6b 65 74 3d 30 20 80 20 |0 . brac|ket=0 . |
|00003920| 63 6e 73 74 6f 70 24 20 | 3c 3e 20 22 22 20 8c 20 |cnstop$ |<> "" . |
|00003930| 63 6e 73 74 6f 70 24 3d | 22 22 3a 72 65 67 69 73 |cnstop$=|"":regis|
|00003940| 74 65 72 3d 74 65 6d 70 | 72 65 67 3a 6f 70 65 72 |ter=temp|reg:oper|
|00003950| 61 74 6f 72 24 3d 6b 65 | 79 24 3a 6f 70 63 6f 75 |ator$=ke|y$:opcou|
|00003960| 6e 74 25 3d 30 3a e1 0d | 15 72 5f e7 20 63 6e 73 |nt%=0:..|.r_. cns|
|00003970| 74 6f 70 24 3c 3e 22 22 | 20 80 20 6b 65 79 24 3d |top$<>""| . key$=|
|00003980| 22 3d 22 20 80 20 62 72 | 61 63 6b 65 74 3d 30 20 |"=" . br|acket=0 |
|00003990| 8c 20 6f 70 65 72 61 74 | 6f 72 24 3d 63 6e 73 74 |. operat|or$=cnst|
|000039a0| 6f 70 24 3a 74 65 6d 70 | 72 65 67 3d 72 65 67 69 |op$:temp|reg=regi|
|000039b0| 73 74 65 72 3a 72 65 67 | 69 73 74 65 72 3d 63 6e |ster:reg|ister=cn|
|000039c0| 73 74 6e 75 6d 62 0d 15 | 7c 4a e7 20 6f 70 63 6f |stnumb..||J. opco|
|000039d0| 75 6e 74 25 3d 31 20 80 | 20 a7 22 3d 28 29 22 2c |unt%=1 .| ."=()",|
|000039e0| 6b 65 79 24 29 3d 30 20 | 8c 20 6f 70 65 72 61 74 |key$)=0 |. operat|
|000039f0| 6f 72 24 3d 6b 65 79 24 | 3a 63 6e 73 74 6f 70 24 |or$=key$|:cnstop$|
|00003a00| 3d 22 22 3a 6f 70 63 6f | 75 6e 74 25 3d 30 3a e1 |="":opco|unt%=0:.|
|00003a10| 0d 15 86 05 3a 0d 15 90 | 10 e7 20 6b 65 79 24 3d |....:...|.. key$=|
|00003a20| 22 28 22 20 8c 0d 15 9a | 13 f2 70 75 73 68 28 c3 |"(" ....|..push(.|
|00003a30| 74 65 6d 70 72 65 67 29 | 0d 15 a4 14 f2 70 75 73 |tempreg)|.....pus|
|00003a40| 68 28 6f 70 65 72 61 74 | 6f 72 24 29 0d 15 ae 10 |h(operat|or$)....|
|00003a50| f2 70 75 73 68 28 c3 6d | 75 6c 74 29 0d 15 b8 0f |.push(.m|ult)....|
|00003a60| f2 70 75 73 68 28 c3 70 | 6f 77 29 0d 15 c2 18 72 |.push(.p|ow)....r|
|00003a70| 65 67 69 73 74 65 72 3d | 30 3a 74 65 6d 70 72 65 |egister=|0:tempre|
|00003a80| 67 3d 30 0d 15 cc 0e 62 | 72 61 63 6b 65 74 2b 3d |g=0....b|racket+=|
|00003a90| 31 0d 15 d6 10 6d 75 6c | 74 3d a3 3a 70 6f 77 3d |1....mul|t=.:pow=|
|00003aa0| a3 0d 15 e0 1e 6b 65 79 | 24 3d 22 42 3d 22 3a 62 |.....key|$="B=":b|
|00003ab0| 72 61 63 6b 65 74 6f 70 | 65 6e 65 64 25 3d b9 0d |racketop|ened%=..|
|00003ac0| 15 ea 05 cd 0d 15 f4 05 | 3a 0d 15 fe 2d e7 20 a7 |........|:...-. .|
|00003ad0| 22 2b 2d 2a 2f 22 2c 6f | 70 65 72 61 74 6f 72 24 |"+-*/",o|perator$|
|00003ae0| 29 3c 3e 30 20 80 20 a7 | 6b 65 79 24 2c 22 5e 22 |)<>0 . .|key$,"^"|
|00003af0| 29 3c 3e 30 20 8c 0d 16 | 08 15 70 5f 74 65 6d 70 |)<>0 ...|..p_temp|
|00003b00| 72 65 67 3d 74 65 6d 70 | 72 65 67 0d 16 12 19 70 |reg=temp|reg....p|
|00003b10| 5f 6f 70 65 72 61 74 6f | 72 24 3d 6f 70 65 72 61 |_operato|r$=opera|
|00003b20| 74 6f 72 24 0d 16 1c 11 | 6f 70 65 72 61 74 6f 72 |tor$....|operator|
|00003b30| 24 3d 22 3d 22 0d 16 26 | 09 70 6f 77 3d b9 0d 16 |$="="..&|.pow=...|
|00003b40| 30 05 cd 0d 16 3a 05 3a | 0d 16 44 2c e7 20 a7 22 |0....:.:|..D,. ."|
|00003b50| 2b 2d 22 2c 6f 70 65 72 | 61 74 6f 72 24 29 3c 3e |+-",oper|ator$)<>|
|00003b60| 30 20 80 20 a7 22 2a 2f | 22 2c 6b 65 79 24 29 3c |0 . ."*/|",key$)<|
|00003b70| 3e 30 20 8c 0d 16 4e 15 | 6d 5f 74 65 6d 70 72 65 |>0 ...N.|m_tempre|
|00003b80| 67 3d 74 65 6d 70 72 65 | 67 0d 16 58 19 6d 5f 6f |g=tempre|g..X.m_o|
|00003b90| 70 65 72 61 74 6f 72 24 | 3d 6f 70 65 72 61 74 6f |perator$|=operato|
|00003ba0| 72 24 0d 16 62 11 6f 70 | 65 72 61 74 6f 72 24 3d |r$..b.op|erator$=|
|00003bb0| 22 3d 22 0d 16 6c 0a 6d | 75 6c 74 3d b9 0d 16 76 |"="..l.m|ult=...v|
|00003bc0| 05 cd 0d 16 80 05 3a 0d | 16 8a 18 e7 20 ac 20 62 |......:.|.... . b|
|00003bd0| 72 61 63 6b 65 74 6f 70 | 65 6e 65 64 25 20 8c 0d |racketop|ened% ..|
|00003be0| 16 94 12 c8 8e 20 6f 70 | 65 72 61 74 6f 72 24 20 |..... op|erator$ |
|00003bf0| ca 0d 16 9e 52 c9 20 22 | 5e 22 2c 22 2a 22 2c 22 |....R. "|^","*","|
|00003c00| 2f 22 2c 22 2b 22 2c 22 | 2d 22 2c 22 41 4e 44 22 |/","+","|-","AND"|
|00003c10| 2c 22 45 4f 52 22 2c 22 | 4f 52 22 3a 74 65 6d 70 |,"EOR","|OR":temp|
|00003c20| 72 65 67 3d a0 28 c3 74 | 65 6d 70 72 65 67 2b 6f |reg=.(.t|empreg+o|
|00003c30| 70 65 72 61 74 6f 72 24 | 2b c3 72 65 67 69 73 74 |perator$|+.regist|
|00003c40| 65 72 29 0d 16 a8 3a c9 | 20 22 5e 28 31 2f 22 20 |er)...:.| "^(1/" |
|00003c50| 20 3a 74 65 6d 70 72 65 | 67 3d a0 28 c3 74 65 6d | :tempre|g=.(.tem|
|00003c60| 70 72 65 67 2b 6f 70 65 | 72 61 74 6f 72 24 2b c3 |preg+ope|rator$+.|
|00003c70| 72 65 67 69 73 74 65 72 | 2b 22 29 22 29 0d 16 b2 |register|+")")...|
|00003c80| 1f c9 20 22 3d 22 2c 22 | 42 3d 22 3a 74 65 6d 70 |.. "=","|B=":temp|
|00003c90| 72 65 67 3d 72 65 67 69 | 73 74 65 72 0d 16 bc 05 |reg=regi|ster....|
|00003ca0| cb 0d 16 c6 05 cd 0d 16 | d0 05 3a 0d 16 da 22 e7 |........|..:...".|
|00003cb0| 20 70 6f 77 3d b9 20 80 | 20 a7 22 2b 2d 2a 2f 3d | pow=. .| ."+-*/=|
|00003cc0| 29 22 2c 6b 65 79 24 29 | 3c 3e 30 20 8c 0d 16 e4 |)",key$)|<>0 ....|
|00003cd0| 14 72 65 67 69 73 74 65 | 72 3d 74 65 6d 70 72 65 |.registe|r=tempre|
|00003ce0| 67 0d 16 ee 15 74 65 6d | 70 72 65 67 3d 70 5f 74 |g....tem|preg=p_t|
|00003cf0| 65 6d 70 72 65 67 0d 16 | f8 19 6f 70 65 72 61 74 |empreg..|..operat|
|00003d00| 6f 72 24 3d 70 5f 6f 70 | 65 72 61 74 6f 72 24 0d |or$=p_op|erator$.|
|00003d10| 17 02 09 70 6f 77 3d a3 | 0d 17 0c 2b 74 65 6d 70 |...pow=.|...+temp|
|00003d20| 72 65 67 3d a0 28 c3 74 | 65 6d 70 72 65 67 2b 6f |reg=.(.t|empreg+o|
|00003d30| 70 65 72 61 74 6f 72 24 | 2b c3 72 65 67 69 73 74 |perator$|+.regist|
|00003d40| 65 72 29 0d 17 16 05 cd | 0d 17 20 05 3a 0d 17 2a |er).....|.. .:..*|
|00003d50| 21 e7 20 6d 75 6c 74 3d | b9 20 80 20 a7 22 2b 2d |!. mult=|. . ."+-|
|00003d60| 3d 29 22 2c 6b 65 79 24 | 29 3c 3e 30 20 8c 0d 17 |=)",key$|)<>0 ...|
|00003d70| 34 14 72 65 67 69 73 74 | 65 72 3d 74 65 6d 70 72 |4.regist|er=tempr|
|00003d80| 65 67 0d 17 3e 15 74 65 | 6d 70 72 65 67 3d 6d 5f |eg..>.te|mpreg=m_|
|00003d90| 74 65 6d 70 72 65 67 0d | 17 48 19 6f 70 65 72 61 |tempreg.|.H.opera|
|00003da0| 74 6f 72 24 3d 6d 5f 6f | 70 65 72 61 74 6f 72 24 |tor$=m_o|perator$|
|00003db0| 0d 17 52 0a 6d 75 6c 74 | 3d a3 0d 17 5c 2b 74 65 |..R.mult|=...\+te|
|00003dc0| 6d 70 72 65 67 3d a0 28 | c3 74 65 6d 70 72 65 67 |mpreg=.(|.tempreg|
|00003dd0| 2b 6f 70 65 72 61 74 6f | 72 24 2b c3 72 65 67 69 |+operato|r$+.regi|
|00003de0| 73 74 65 72 29 0d 17 66 | 05 cd 0d 17 70 05 3a 0d |ster)..f|....p.:.|
|00003df0| 17 7a 14 72 65 67 69 73 | 74 65 72 3d 74 65 6d 70 |.z.regis|ter=temp|
|00003e00| 72 65 67 0d 17 84 12 6f | 70 65 72 61 74 6f 72 24 |reg....o|perator$|
|00003e10| 3d 6b 65 79 24 0d 17 8e | 0e 6f 70 63 6f 75 6e 74 |=key$...|.opcount|
|00003e20| 25 3d 30 0d 17 98 05 3a | 0d 17 a2 34 e7 20 6b 65 |%=0....:|...4. ke|
|00003e30| 79 24 3d 22 3d 22 20 80 | 20 62 72 61 63 6b 65 74 |y$="=" .| bracket|
|00003e40| 20 3c 3e 20 30 20 80 20 | ac 20 74 69 64 79 69 6e | <> 0 . |. tidyin|
|00003e50| 67 62 72 61 63 6b 65 74 | 73 25 20 8c 0d 17 ac 16 |gbracket|s% .....|
|00003e60| 74 69 64 79 69 6e 67 62 | 72 61 63 6b 65 74 73 25 |tidyingb|rackets%|
|00003e70| 3d b9 0d 17 b6 12 c8 95 | 20 62 72 61 63 6b 65 74 |=.......| bracket|
|00003e80| 20 3e 20 30 0d 17 c0 12 | f2 6f 70 65 72 61 74 6f | > 0....|.operato|
|00003e90| 72 28 22 29 22 29 0d 17 | ca 05 ce 0d 17 d4 12 f2 |r(")")..|........|
|00003ea0| 6f 70 65 72 61 74 6f 72 | 28 22 3d 22 29 0d 17 de |operator|("=")...|
|00003eb0| 16 74 69 64 79 69 6e 67 | 62 72 61 63 6b 65 74 73 |.tidying|brackets|
|00003ec0| 25 3d a3 0d 17 e8 05 cd | 0d 17 f2 05 3a 0d 17 fc |%=......|....:...|
|00003ed0| 1f e7 20 6b 65 79 24 3d | 22 29 22 20 80 20 62 72 |.. key$=|")" . br|
|00003ee0| 61 63 6b 65 74 20 3c 3e | 20 30 20 8c 0d 18 06 0f |acket <>| 0 .....|
|00003ef0| 70 6f 77 3d bb 20 a4 70 | 75 6c 6c 0d 18 10 10 6d |pow=. .p|ull....m|
|00003f00| 75 6c 74 3d bb 20 a4 70 | 75 6c 6c 0d 18 1a 13 6f |ult=. .p|ull....o|
|00003f10| 70 65 72 61 74 6f 72 24 | 3d a4 70 75 6c 6c 0d 18 |perator$|=.pull..|
|00003f20| 24 13 74 65 6d 70 72 65 | 67 3d bb 20 a4 70 75 6c |$.tempre|g=. .pul|
|00003f30| 6c 0d 18 2e 0e 62 72 61 | 63 6b 65 74 2d 3d 31 0d |l....bra|cket-=1.|
|00003f40| 18 38 0e 6f 70 63 6f 75 | 6e 74 25 3d 31 0d 18 42 |.8.opcou|nt%=1..B|
|00003f50| 14 63 6c 6f 73 65 64 62 | 72 61 63 6b 65 74 25 3d |.closedb|racket%=|
|00003f60| b9 0d 18 4c 05 cd 0d 18 | 56 05 3a 0d 18 60 0e 65 |...L....|V.:..`.e|
|00003f70| 6e 74 72 79 24 3d 22 30 | 22 0d 18 6a 05 e1 0d 18 |ntry$="0|"..j....|
|00003f80| 74 05 3a 0d 18 7e 13 dd | 20 a4 64 69 73 70 6c 61 |t.:..~..| .displa|
|00003f90| 79 28 72 65 67 29 0d 18 | 88 16 ea 20 40 25 2c 73 |y(reg)..|... @%,s|
|00003fa0| 69 67 6e 24 2c 65 78 70 | 24 2c 64 24 0d 18 92 10 |ign$,exp|$,d$....|
|00003fb0| 40 25 3d 26 30 31 30 30 | 30 39 30 41 0d 18 9c 0e |@%=&0100|090A....|
|00003fc0| 65 78 70 24 3d 22 20 20 | 20 22 0d 18 a6 0e c8 8e |exp$=" | "......|
|00003fd0| 20 62 61 73 65 25 20 ca | 0d 18 b0 08 c9 20 31 30 | base% .|..... 10|
|00003fe0| 0d 18 ba 3c e7 20 28 69 | 63 6f 6e 25 3e 39 20 80 |...<. (i|con%>9 .|
|00003ff0| 20 69 63 6f 6e 25 3c 3e | 31 36 20 80 20 ac 20 65 | icon%<>|16 . . e|
|00004000| 78 70 6f 6e 65 6e 74 25 | 29 20 84 20 68 61 6e 64 |xponent%|) . hand|
|00004010| 6c 65 25 3d 61 73 63 69 | 69 25 20 8c 0d 18 c4 46 |le%=asci|i% ....F|
|00004020| e7 20 72 65 67 3c 3e 30 | 20 80 20 28 94 72 65 67 |. reg<>0| . (.reg|
|00004030| 3e 3d 31 30 30 30 30 30 | 30 30 30 30 20 84 20 94 |>=100000|0000 . .|
|00004040| 72 65 67 3c 3d 2e 30 31 | 20 84 20 73 63 69 25 3c |reg<=.01| . sci%<|
|00004050| 3e 2d 31 29 20 80 20 28 | 66 69 78 25 3d 2d 31 29 |>-1) . (|fix%=-1)|
|00004060| 20 8c 0d 18 ce 1f 65 78 | 70 24 3d c2 22 30 22 2b | .....ex|p$=."0"+|
|00004070| c3 28 94 20 a8 20 ab 28 | 94 72 65 67 29 29 2c 32 |.(. . .(|.reg)),2|
|00004080| 29 0d 18 d8 2f e7 20 94 | 72 65 67 20 3c 3d 2e 31 |).../. .|reg <=.1|
|00004090| 20 8c 20 65 78 70 24 3d | 22 2d 22 2b 65 78 70 24 | . exp$=|"-"+exp$|
|000040a0| 20 8b 20 65 78 70 24 3d | 22 20 22 2b 65 78 70 24 | . exp$=|" "+exp$|
|000040b0| 0d 18 e2 1c 72 65 67 3d | a4 6e 69 63 65 45 58 50 |....reg=|.niceEXP|
|000040c0| 28 72 65 67 2c 2d bb 65 | 78 70 24 29 0d 18 ec 05 |(reg,-.e|xp$)....|
|000040d0| cd 0d 18 f6 2d e7 20 28 | 94 72 65 67 3c 3d 2e 30 |....-. (|.reg<=.0|
|000040e0| 31 29 20 80 20 28 66 69 | 78 25 3c 3e 2d 31 29 20 |1) . (fi|x%<>-1) |
|000040f0| 8c 20 40 25 3d 26 30 31 | 30 32 30 39 30 41 0d 19 |. @%=&01|02090A..|
|00004100| 00 0b 64 24 3d c3 72 65 | 67 0d 19 0a 1c e7 20 a7 |..d$=.re|g..... .|
|00004110| 64 24 2c 22 2e 22 29 3d | 30 20 8c 20 64 24 3d 64 |d$,".")=|0 . d$=d|
|00004120| 24 2b 22 2e 22 0d 19 14 | 1b e7 20 66 69 78 25 3c |$+"."...|.. fix%<|
|00004130| 3e 2d 31 20 84 20 73 63 | 69 25 3c 3e 2d 31 20 8c |>-1 . sc|i%<>-1 .|
|00004140| 0d 19 1e 1b 64 24 3d a4 | 72 6e 64 28 64 24 2c 66 |....d$=.|rnd(d$,f|
|00004150| 69 78 25 2b 73 63 69 25 | 2b 31 29 0d 19 28 05 cc |ix%+sci%|+1)..(..|
|00004160| 0d 19 32 1f c8 95 20 c2 | 64 24 2c 31 29 3d 22 30 |..2... .|d$,1)="0|
|00004170| 22 20 80 20 a7 64 24 2c | 22 2e 22 29 3c 3e 30 0d |" . .d$,|".")<>0.|
|00004180| 19 3c 11 64 24 3d c0 64 | 24 2c a9 64 24 2d 31 29 |.<.d$=.d|$,.d$-1)|
|00004190| 0d 19 46 05 ce 0d 19 50 | 05 cd 0d 19 5a 05 cc 0d |..F....P|....Z...|
|000041a0| 19 64 0d 64 24 3d 65 6e | 74 72 79 24 0d 19 6e 05 |.d.d$=en|try$..n.|
|000041b0| cd 0d 19 78 1c e7 20 a7 | 64 24 2c 22 2e 22 29 3d |...x.. .|d$,".")=|
|000041c0| 30 20 8c 20 64 24 3d 64 | 24 2b 22 2e 22 0d 19 82 |0 . d$=d|$+"."...|
|000041d0| 08 c9 20 31 36 0d 19 8c | 15 e7 20 72 65 67 3e 26 |.. 16...|.. reg>&|
|000041e0| 37 46 46 46 46 46 46 46 | 20 8c 0d 19 96 28 65 72 |7FFFFFFF| ....(er|
|000041f0| 72 6f 72 66 6c 61 67 25 | 3d b9 3a 69 63 6f 6e 25 |rorflag%|=.:icon%|
|00004200| 3d 2d 31 3a fa 3a 64 24 | 3d 22 54 6f 6f 20 42 69 |=-1:.:d$|="Too Bi|
|00004210| 67 22 0d 19 a0 05 cc 0d | 19 aa 13 64 24 3d a4 68 |g"......|...d$=.h|
|00004220| 65 78 73 74 72 28 72 65 | 67 29 0d 19 b4 1b e7 20 |exstr(re|g)..... |
|00004230| 65 6e 74 72 79 24 3d 22 | 38 30 30 30 30 30 30 30 |entry$="|80000000|
|00004240| 22 20 8c 20 fa 0d 19 be | 11 c8 95 20 c0 64 24 2c |" . ....|... .d$,|
|00004250| 31 29 3d 22 30 22 0d 19 | c8 11 64 24 3d c2 64 24 |1)="0"..|..d$=.d$|
|00004260| 2c a9 64 24 2d 31 29 0d | 19 d2 05 ce 0d 19 dc 14 |,.d$-1).|........|
|00004270| e7 20 64 24 3d 22 22 20 | 8c 20 64 24 3d 22 30 22 |. d$="" |. d$="0"|
|00004280| 0d 19 e6 0d 65 78 70 24 | 3d 22 20 20 22 0d 19 f0 |....exp$|=" "...|
|00004290| 05 cd 0d 19 fa 07 c9 20 | 32 0d 1a 04 15 e7 20 72 |....... |2..... r|
|000042a0| 65 67 3e 26 37 46 46 46 | 46 46 46 46 20 8c 0d 1a |eg>&7FFF|FFFF ...|
|000042b0| 0e 26 65 72 72 6f 72 66 | 6c 61 67 25 3d b9 3a 69 |.&errorf|lag%=.:i|
|000042c0| 63 6f 6e 25 3d 2d 31 3a | 64 24 3d 22 54 6f 6f 20 |con%=-1:|d$="Too |
|000042d0| 42 69 67 22 0d 1a 18 05 | cc 0d 1a 22 13 64 24 3d |Big"....|...".d$=|
|000042e0| a4 62 69 6e 73 74 72 28 | 72 65 67 29 0d 1a 2c 11 |.binstr(|reg)..,.|
|000042f0| c8 95 20 c0 64 24 2c 31 | 29 3d 22 30 22 0d 1a 36 |.. .d$,1|)="0"..6|
|00004300| 11 64 24 3d c2 64 24 2c | a9 64 24 2d 31 29 0d 1a |.d$=.d$,|.d$-1)..|
|00004310| 40 05 ce 0d 1a 4a 14 e7 | 20 64 24 3d 22 22 20 8c |@....J..| d$="" .|
|00004320| 20 64 24 3d 22 30 22 0d | 1a 54 0d 65 78 70 24 3d | d$="0".|.T.exp$=|
|00004330| 22 20 20 22 0d 1a 5e 05 | cd 0d 1a 68 05 cb 0d 1a |" "..^.|...h....|
|00004340| 72 18 e7 20 69 6e 76 65 | 72 73 65 5f 6b 65 79 25 |r.. inve|rse_key%|
|00004350| 20 3d 20 b9 20 8c 0d 1a | 7c 42 71 25 21 30 3d 63 | = . ...||Bq%!0=c|
|00004360| 61 6c 63 25 3a 71 25 21 | 34 3d 35 35 3a 71 25 21 |alc%:q%!|4=55:q%!|
|00004370| 38 3d 30 3a 71 25 21 31 | 32 3d 32 5e 32 32 3a c8 |8=0:q%!1|2=2^22:.|
|00004380| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00004390| 61 74 65 22 2c 2c 71 25 | 0d 1a 86 05 cc 0d 1a 90 |ate",,q%|........|
|000043a0| 45 71 25 21 30 3d 63 61 | 6c 63 25 3a 71 25 21 34 |Eq%!0=ca|lc%:q%!4|
|000043b0| 3d 35 35 3a 71 25 21 38 | 3d 32 5e 32 32 3a 71 25 |=55:q%!8|=2^22:q%|
|000043c0| 21 31 32 3d 32 5e 32 32 | 3a c8 99 22 57 69 6d 70 |!12=2^22|:.."Wimp|
|000043d0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|000043e0| 71 25 0d 1a 9a 05 cd 0d | 1a a4 11 e7 20 6d 65 6d |q%......|.... mem|
|000043f0| 6f 72 79 3c 3e 30 20 8c | 0d 1a ae 42 71 25 21 30 |ory<>0 .|...Bq%!0|
|00004400| 3d 63 61 6c 63 25 3a 71 | 25 21 34 3d 33 34 3a 71 |=calc%:q|%!4=34:q|
|00004410| 25 21 38 3d 30 3a 71 25 | 21 31 32 3d 32 5e 32 32 |%!8=0:q%|!12=2^22|
|00004420| 3a c8 99 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |:.."Wimp|_SetIcon|
|00004430| 53 74 61 74 65 22 2c 2c | 71 25 0d 1a b8 05 cc 0d |State",,|q%......|
|00004440| 1a c2 45 71 25 21 30 3d | 63 61 6c 63 25 3a 71 25 |..Eq%!0=|calc%:q%|
|00004450| 21 34 3d 33 34 3a 71 25 | 21 38 3d 32 5e 32 32 3a |!4=34:q%|!8=2^22:|
|00004460| 71 25 21 31 32 3d 32 5e | 32 32 3a c8 99 22 57 69 |q%!12=2^|22:.."Wi|
|00004470| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00004480| 2c 2c 71 25 0d 1a cc 05 | cd 0d 1a d6 13 e7 20 63 |,,q%....|...... c|
|00004490| 6e 73 74 6f 70 24 3c 3e | 22 22 20 8c 0d 1a e0 42 |nstop$<>|"" ....B|
|000044a0| 71 25 21 30 3d 63 61 6c | 63 25 3a 71 25 21 34 3d |q%!0=cal|c%:q%!4=|
|000044b0| 34 35 3a 71 25 21 38 3d | 30 3a 71 25 21 31 32 3d |45:q%!8=|0:q%!12=|
|000044c0| 32 5e 32 32 3a c8 99 22 | 57 69 6d 70 5f 53 65 74 |2^22:.."|Wimp_Set|
|000044d0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 1a |IconStat|e",,q%..|
|000044e0| ea 05 cc 0d 1a f4 45 71 | 25 21 30 3d 63 61 6c 63 |......Eq|%!0=calc|
|000044f0| 25 3a 71 25 21 34 3d 34 | 35 3a 71 25 21 38 3d 32 |%:q%!4=4|5:q%!8=2|
|00004500| 5e 32 32 3a 71 25 21 31 | 32 3d 32 5e 32 32 3a c8 |^22:q%!1|2=2^22:.|
|00004510| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00004520| 61 74 65 22 2c 2c 71 25 | 0d 1a fe 05 cd 0d 1b 08 |ate",,q%|........|
|00004530| 1a 3d c2 c4 33 32 2c 22 | 20 22 29 2b 64 24 2c 33 |.=..32,"| ")+d$,3|
|00004540| 32 29 2b 65 78 70 24 0d | 1b 12 05 3a 0d 1b 1c 0e |2)+exp$.|...:....|
|00004550| dd 20 f2 68 65 78 6b 65 | 79 73 0d 1b 26 3f 71 25 |. .hexke|ys..&?q%|
|00004560| 21 30 3d 63 61 6c 63 25 | 3a 71 25 21 34 3d 31 30 |!0=calc%|:q%!4=10|
|00004570| 3a 71 25 21 38 3d 31 3a | 71 25 21 31 32 3d 33 3a |:q%!8=1:|q%!12=3:|
|00004580| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|00004590| 74 61 74 65 22 2c 2c 71 | 25 0d 1b 30 3f 71 25 21 |tate",,q|%..0?q%!|
|000045a0| 30 3d 63 61 6c 63 25 3a | 71 25 21 34 3d 31 31 3a |0=calc%:|q%!4=11:|
|000045b0| 71 25 21 38 3d 31 3a 71 | 25 21 31 32 3d 33 3a c8 |q%!8=1:q|%!12=3:.|
|000045c0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|000045d0| 61 74 65 22 2c 2c 71 25 | 0d 1b 3a 3f 71 25 21 30 |ate",,q%|..:?q%!0|
|000045e0| 3d 63 61 6c 63 25 3a 71 | 25 21 34 3d 31 32 3a 71 |=calc%:q|%!4=12:q|
|000045f0| 25 21 38 3d 31 3a 71 25 | 21 31 32 3d 33 3a c8 99 |%!8=1:q%|!12=3:..|
|00004600| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00004610| 74 65 22 2c 2c 71 25 0d | 1b 44 3f 71 25 21 30 3d |te",,q%.|.D?q%!0=|
|00004620| 63 61 6c 63 25 3a 71 25 | 21 34 3d 31 33 3a 71 25 |calc%:q%|!4=13:q%|
|00004630| 21 38 3d 31 3a 71 25 21 | 31 32 3d 33 3a c8 99 22 |!8=1:q%!|12=3:.."|
|00004640| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00004650| 65 22 2c 2c 71 25 0d 1b | 4e 3f 71 25 21 30 3d 63 |e",,q%..|N?q%!0=c|
|00004660| 61 6c 63 25 3a 71 25 21 | 34 3d 31 34 3a 71 25 21 |alc%:q%!|4=14:q%!|
|00004670| 38 3d 31 3a 71 25 21 31 | 32 3d 33 3a c8 99 22 57 |8=1:q%!1|2=3:.."W|
|00004680| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00004690| 22 2c 2c 71 25 0d 1b 58 | 3f 71 25 21 30 3d 63 61 |",,q%..X|?q%!0=ca|
|000046a0| 6c 63 25 3a 71 25 21 34 | 3d 31 35 3a 71 25 21 38 |lc%:q%!4|=15:q%!8|
|000046b0| 3d 31 3a 71 25 21 31 32 | 3d 33 3a c8 99 22 57 69 |=1:q%!12|=3:.."Wi|
|000046c0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|000046d0| 2c 2c 71 25 0d 1b 62 05 | e1 0d 1b 6c 05 3a 0d 1b |,,q%..b.|...l.:..|
|000046e0| 76 0e dd 20 f2 64 65 63 | 6b 65 79 73 0d 1b 80 3f |v.. .dec|keys...?|
|000046f0| 71 25 21 30 3d 63 61 6c | 63 25 3a 71 25 21 34 3d |q%!0=cal|c%:q%!4=|
|00004700| 31 30 3a 71 25 21 38 3d | 32 3a 71 25 21 31 32 3d |10:q%!8=|2:q%!12=|
|00004710| 33 3a c8 99 22 57 69 6d | 70 5f 53 65 74 49 63 6f |3:.."Wim|p_SetIco|
|00004720| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 1b 8a 3f 71 |nState",|,q%...?q|
|00004730| 25 21 30 3d 63 61 6c 63 | 25 3a 71 25 21 34 3d 31 |%!0=calc|%:q%!4=1|
|00004740| 31 3a 71 25 21 38 3d 32 | 3a 71 25 21 31 32 3d 33 |1:q%!8=2|:q%!12=3|
|00004750| 3a c8 99 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |:.."Wimp|_SetIcon|
|00004760| 53 74 61 74 65 22 2c 2c | 71 25 0d 1b 94 3f 71 25 |State",,|q%...?q%|
|00004770| 21 30 3d 63 61 6c 63 25 | 3a 71 25 21 34 3d 31 32 |!0=calc%|:q%!4=12|
|00004780| 3a 71 25 21 38 3d 32 3a | 71 25 21 31 32 3d 33 3a |:q%!8=2:|q%!12=3:|
|00004790| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|000047a0| 74 61 74 65 22 2c 2c 71 | 25 0d 1b 9e 3f 71 25 21 |tate",,q|%...?q%!|
|000047b0| 30 3d 63 61 6c 63 25 3a | 71 25 21 34 3d 31 33 3a |0=calc%:|q%!4=13:|
|000047c0| 71 25 21 38 3d 32 3a 71 | 25 21 31 32 3d 33 3a c8 |q%!8=2:q|%!12=3:.|
|000047d0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|000047e0| 61 74 65 22 2c 2c 71 25 | 0d 1b a8 3f 71 25 21 30 |ate",,q%|...?q%!0|
|000047f0| 3d 63 61 6c 63 25 3a 71 | 25 21 34 3d 31 34 3a 71 |=calc%:q|%!4=14:q|
|00004800| 25 21 38 3d 32 3a 71 25 | 21 31 32 3d 33 3a c8 99 |%!8=2:q%|!12=3:..|
|00004810| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00004820| 74 65 22 2c 2c 71 25 0d | 1b b2 3f 71 25 21 30 3d |te",,q%.|..?q%!0=|
|00004830| 63 61 6c 63 25 3a 71 25 | 21 34 3d 31 35 3a 71 25 |calc%:q%|!4=15:q%|
|00004840| 21 38 3d 32 3a 71 25 21 | 31 32 3d 33 3a c8 99 22 |!8=2:q%!|12=3:.."|
|00004850| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00004860| 65 22 2c 2c 71 25 0d 1b | bc 05 e1 0d 1b c6 05 3a |e",,q%..|.......:|
|00004870| 0d 1b d0 0f dd 20 f2 63 | 61 6c 63 69 6e 69 74 0d |..... .c|alcinit.|
|00004880| 1b da 10 de 20 73 74 61 | 63 6b 24 28 38 30 29 0d |.... sta|ck$(80).|
|00004890| 1b e4 12 61 6e 67 6c 65 | 69 6e 24 3d 22 52 41 44 |...angle|in$="RAD|
|000048a0| 22 0d 1b ee 13 61 6e 67 | 6c 65 6f 75 74 24 3d 22 |"....ang|leout$="|
|000048b0| 44 45 47 22 0d 1b f8 52 | 6d 61 69 6e 24 3d 22 3e |DEG"...R|main$=">|
|000048c0| 3a 41 73 63 69 69 2e 61 | 73 63 69 69 25 2c 40 44 |:Ascii.a|scii%,@D|
|000048d0| 65 67 2c 3a 52 61 64 2c | 40 44 65 63 2c 48 65 78 |eg,:Rad,|@Dec,Hex|
|000048e0| 2c 3a 42 69 6e 2c 40 4e | 6f 72 6d 2c 7e 46 69 78 |,:Bin,@N|orm,~Fix|
|000048f0| 2e 66 6e 75 6d 62 24 2e | 2c 7e 53 63 69 2e 73 6e |.fnumb$.|,~Sci.sn|
|00004900| 75 6d 62 24 2e 22 0d 1c | 02 1e 66 6e 75 6d 62 24 |umb$."..|..fnumb$|
|00004910| 3d 22 30 2c 31 2c 32 2c | 33 2c 34 2c 35 2c 36 2c |="0,1,2,|3,4,5,6,|
|00004920| 37 2c 38 22 0d 1c 0c 1e | 73 6e 75 6d 62 24 3d 22 |7,8"....|snumb$="|
|00004930| 30 2c 31 2c 32 2c 33 2c | 34 2c 35 2c 36 2c 37 2c |0,1,2,3,|4,5,6,7,|
|00004940| 38 22 0d 1c 16 0b 66 69 | 78 25 3d 2d 31 0d 1c 20 |8"....fi|x%=-1.. |
|00004950| 0b 73 63 69 25 3d 2d 31 | 0d 1c 2a 0c 62 61 73 65 |.sci%=-1|..*.base|
|00004960| 25 3d 31 30 0d 1c 34 0e | 73 74 61 63 6b 70 74 72 |%=10..4.|stackptr|
|00004970| 3d 30 0d 1c 3e 0c 6d 65 | 6d 6f 72 79 3d 30 0d 1c |=0..>.me|mory=0..|
|00004980| 48 0d 62 72 61 63 6b 65 | 74 3d 30 0d 1c 52 14 62 |H.bracke|t=0..R.b|
|00004990| 72 61 63 6b 65 74 6f 70 | 65 6e 65 64 25 3d 30 0d |racketop|ened%=0.|
|000049a0| 1c 5c 16 74 69 64 79 69 | 6e 67 62 72 61 63 6b 65 |.\.tidyi|ngbracke|
|000049b0| 74 73 25 3d a3 0d 1c 66 | 0d f2 61 6c 6c 63 6c 65 |ts%=...f|..allcle|
|000049c0| 61 72 0d 1c 70 15 69 63 | 6f 6e 25 3d 30 3a 68 61 |ar..p.ic|on%=0:ha|
|000049d0| 6e 64 6c 65 25 3d 30 0d | 1c 7a 20 6d 61 69 6e 24 |ndle%=0.|.z main$|
|000049e0| 3d a4 74 69 63 6b 28 6d | 61 69 6e 24 2c 22 44 65 |=.tick(m|ain$,"De|
|000049f0| 67 72 65 65 73 22 29 0d | 1c 84 45 71 25 21 30 3d |grees").|..Eq%!0=|
|00004a00| 63 61 6c 63 25 3a 71 25 | 21 34 3d 33 35 3a 71 25 |calc%:q%|!4=35:q%|
|00004a10| 21 38 3d 30 20 20 20 3a | 71 25 21 31 32 3d 32 5e |!8=0 :|q%!12=2^|
|00004a20| 32 32 3a c8 99 22 57 69 | 6d 70 5f 53 65 74 49 63 |22:.."Wi|mp_SetIc|
|00004a30| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 1c 8e 45 |onState"|,,q%...E|
|00004a40| 71 25 21 30 3d 63 61 6c | 63 25 3a 71 25 21 34 3d |q%!0=cal|c%:q%!4=|
|00004a50| 33 36 3a 71 25 21 38 3d | 32 5e 32 32 3a 71 25 21 |36:q%!8=|2^22:q%!|
|00004a60| 31 32 3d 32 5e 32 32 3a | c8 99 22 57 69 6d 70 5f |12=2^22:|.."Wimp_|
|00004a70| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00004a80| 25 0d 1c 98 29 6d 61 69 | 6e 24 3d a4 74 69 63 6b |%...)mai|n$=.tick|
|00004a90| 28 6d 61 69 6e 24 2c 22 | 44 65 63 69 6d 61 6c 22 |(main$,"|Decimal"|
|00004aa0| 29 3a f2 64 65 63 6b 65 | 79 73 0d 1c a2 45 71 25 |):.decke|ys...Eq%|
|00004ab0| 21 30 3d 63 61 6c 63 25 | 3a 71 25 21 34 3d 33 37 |!0=calc%|:q%!4=37|
|00004ac0| 3a 71 25 21 38 3d 30 20 | 20 20 3a 71 25 21 31 32 |:q%!8=0 | :q%!12|
|00004ad0| 3d 32 5e 32 32 3a c8 99 | 22 57 69 6d 70 5f 53 65 |=2^22:..|"Wimp_Se|
|00004ae0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00004af0| 1c ac 45 71 25 21 30 3d | 63 61 6c 63 25 3a 71 25 |..Eq%!0=|calc%:q%|
|00004b00| 21 34 3d 33 38 3a 71 25 | 21 38 3d 32 5e 32 32 3a |!4=38:q%|!8=2^22:|
|00004b10| 71 25 21 31 32 3d 32 5e | 32 32 3a c8 99 22 57 69 |q%!12=2^|22:.."Wi|
|00004b20| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00004b30| 2c 2c 71 25 0d 1c b6 45 | 71 25 21 30 3d 63 61 6c |,,q%...E|q%!0=cal|
|00004b40| 63 25 3a 71 25 21 34 3d | 33 39 3a 71 25 21 38 3d |c%:q%!4=|39:q%!8=|
|00004b50| 32 5e 32 32 3a 71 25 21 | 31 32 3d 32 5e 32 32 3a |2^22:q%!|12=2^22:|
|00004b60| c8 99 22 57 69 6d 70 5f | 53 65 74 49 63 6f 6e 53 |.."Wimp_|SetIconS|
|00004b70| 74 61 74 65 22 2c 2c 71 | 25 0d 1c c0 45 71 25 21 |tate",,q|%...Eq%!|
|00004b80| 30 3d 63 61 6c 63 25 3a | 71 25 21 34 3d 34 36 3a |0=calc%:|q%!4=46:|
|00004b90| 71 25 21 38 3d 32 5e 32 | 32 3a 71 25 21 31 32 3d |q%!8=2^2|2:q%!12=|
|00004ba0| 32 5e 32 32 3a c8 99 22 | 57 69 6d 70 5f 53 65 74 |2^22:.."|Wimp_Set|
|00004bb0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 1c |IconStat|e",,q%..|
|00004bc0| ca 45 71 25 21 30 3d 63 | 61 6c 63 25 3a 71 25 21 |.Eq%!0=c|alc%:q%!|
|00004bd0| 34 3d 34 37 3a 71 25 21 | 38 3d 32 5e 32 32 3a 71 |4=47:q%!|8=2^22:q|
|00004be0| 25 21 31 32 3d 32 5e 32 | 32 3a c8 99 22 57 69 6d |%!12=2^2|2:.."Wim|
|00004bf0| 70 5f 53 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_SetIco|nState",|
|00004c00| 2c 71 25 0d 1c d4 25 24 | 64 69 73 70 6c 61 79 25 |,q%...%$|display%|
|00004c10| 3d a4 64 69 73 70 6c 61 | 79 28 72 65 67 69 73 74 |=.displa|y(regist|
|00004c20| 65 72 29 2b bd 28 30 29 | 0d 1c de 05 e1 0d 1c e8 |er)+.(0)|........|
|00004c30| 05 3a 0d 1c f2 0f dd 20 | f2 61 6c 6c 63 6c 65 61 |.:..... |.allclea|
|00004c40| 72 0d 1c fc 10 65 72 72 | 6f 72 66 6c 61 67 25 3d |r....err|orflag%=|
|00004c50| a3 0d 1d 06 31 74 65 6d | 70 72 65 67 3d 30 3a 65 |....1tem|preg=0:e|
|00004c60| 6e 74 72 79 24 3d 22 30 | 22 3a 6f 70 65 72 61 74 |ntry$="0|":operat|
|00004c70| 6f 72 24 3d 22 3d 22 3a | 72 65 67 69 73 74 65 72 |or$="=":|register|
|00004c80| 3d 30 0d 1d 10 30 62 72 | 61 63 6b 65 74 3d 30 3a |=0...0br|acket=0:|
|00004c90| 73 74 61 63 6b 70 74 72 | 3d 30 3a 65 78 70 6f 6e |stackptr|=0:expon|
|00004ca0| 65 6e 74 25 3d a3 3a 64 | 69 73 70 6c 61 79 24 3d |ent%=.:d|isplay$=|
|00004cb0| 22 22 0d 1d 1a 2a 63 6e | 73 74 6f 70 24 3d 22 22 |""...*cn|stop$=""|
|00004cc0| 3a 63 6e 73 74 6e 75 6d | 62 3d 30 3a 62 72 61 63 |:cnstnum|b=0:brac|
|00004cd0| 6b 65 74 6f 70 65 6e 65 | 64 25 3d a3 0d 1d 24 21 |ketopene|d%=...$!|
|00004ce0| 65 73 67 6e 3d 31 3a 65 | 78 70 24 3d 22 30 30 22 |esgn=1:e|xp$="00"|
|00004cf0| 3a 6d 75 6c 74 3d a3 3a | 70 6f 77 3d a3 0d 1d 2e |:mult=.:|pow=....|
|00004d00| 2e 6f 70 63 6f 75 6e 74 | 25 3d 30 3a 69 6e 76 65 |.opcount|%=0:inve|
|00004d10| 72 73 65 5f 6b 65 79 25 | 3d a3 3a 69 6e 76 65 72 |rse_key%|=.:inver|
|00004d20| 73 65 5f 63 6f 75 6e 74 | 25 3d 30 0d 1d 38 05 e1 |se_count|%=0..8..|
|00004d30| 0d 1d 42 05 3a 0d 1d 4c | 0b dd f2 63 6c 65 61 72 |..B.:..L|...clear|
|00004d40| 0d 1d 56 39 65 6e 74 72 | 79 24 3d 22 30 22 3a 72 |..V9entr|y$="0":r|
|00004d50| 65 67 69 73 74 65 72 3d | 30 3a 69 6e 76 65 72 73 |egister=|0:invers|
|00004d60| 65 5f 6b 65 79 25 3d a3 | 3a 69 6e 76 65 72 73 65 |e_key%=.|:inverse|
|00004d70| 5f 63 6f 75 6e 74 25 3d | 30 0d 1d 60 05 e1 0d 1d |_count%=|0..`....|
|00004d80| 6a 05 3a 0d 1d 74 0f dd | 20 f2 70 75 73 68 28 61 |j.:..t..| .push(a|
|00004d90| 24 29 0d 1d 7e 25 73 74 | 61 63 6b 24 28 73 74 61 |$)..~%st|ack$(sta|
|00004da0| 63 6b 70 74 72 29 3d 61 | 24 3a 73 74 61 63 6b 70 |ckptr)=a|$:stackp|
|00004db0| 74 72 2b 3d 31 3a e1 0d | 1d 88 05 3a 0d 1d 92 0b |tr+=1:..|...:....|
|00004dc0| dd 20 a4 70 75 6c 6c 0d | 1d 9c 21 73 74 61 63 6b |. .pull.|..!stack|
|00004dd0| 70 74 72 2d 3d 31 3a 3d | 73 74 61 63 6b 24 28 73 |ptr-=1:=|stack$(s|
|00004de0| 74 61 63 6b 70 74 72 29 | 0d 1d a6 05 3a 0d 1d b0 |tackptr)|....:...|
|00004df0| 13 dd 20 a4 6e 69 63 65 | 45 58 50 28 61 2c 62 29 |.. .nice|EXP(a,b)|
|00004e00| 0d 1d ba 0f e7 20 62 3d | 30 20 8c 20 3d 20 61 0d |..... b=|0 . = a.|
|00004e10| 1d c4 26 e7 20 62 3e 31 | 20 8c 20 e3 20 6c 6f 6f |..&. b>1| . . loo|
|00004e20| 70 20 3d 31 20 b8 20 62 | 3a 61 20 3d 20 61 20 2a |p =1 . b|:a = a *|
|00004e30| 20 31 30 3a ed 0d 1d ce | 2c e7 20 62 3c 2d 31 8c | 10:....|,. b<-1.|
|00004e40| 20 e3 20 6c 6f 6f 70 20 | 3d 2d 31 20 b8 20 62 20 | . loop |=-1 . b |
|00004e50| 88 20 2d 31 3a 61 20 3d | 20 61 20 2f 20 31 30 3a |. -1:a =| a / 10:|
|00004e60| ed 0d 1d d8 05 cd 0d 1d | e2 06 3d 61 0d 1d ec 05 |........|..=a....|
|00004e70| 3a 0d 1d f6 12 dd a4 62 | 69 6e 73 74 72 28 76 61 |:......b|instr(va|
|00004e80| 6c 25 29 0d 1e 00 0a ea | 20 62 75 66 25 0d 1e 0a |l%).....| buf%...|
|00004e90| 0d de 20 62 75 66 25 20 | 33 33 0d 1e 14 33 c8 99 |.. buf% |33...3..|
|00004ea0| 20 22 4f 53 5f 43 6f 6e | 76 65 72 74 42 69 6e 61 | "OS_Con|vertBina|
|00004eb0| 72 79 34 22 2c 76 61 6c | 25 2c 62 75 66 25 2c 33 |ry4",val|%,buf%,3|
|00004ec0| 33 20 b8 20 62 75 66 25 | 2c 6c 65 6e 25 0d 1e 1e |3 . buf%|,len%...|
|00004ed0| 0c 3f 6c 65 6e 25 3d 31 | 33 0d 1e 28 0a 3d 24 62 |.?len%=1|3..(.=$b|
|00004ee0| 75 66 25 0d 1e 32 05 3a | 0d 1e 3c 12 dd a4 68 65 |uf%..2.:|..<...he|
|00004ef0| 78 73 74 72 28 76 61 6c | 25 29 0d 1e 46 0a ea 20 |xstr(val|%)..F.. |
|00004f00| 62 75 66 25 0d 1e 50 0d | de 20 62 75 66 25 20 33 |buf%..P.|. buf% 3|
|00004f10| 32 0d 1e 5a 30 c8 99 20 | 22 4f 53 5f 43 6f 6e 76 |2..Z0.. |"OS_Conv|
|00004f20| 65 72 74 48 65 78 38 22 | 2c 76 61 6c 25 2c 62 75 |ertHex8"|,val%,bu|
|00004f30| 66 25 2c 31 36 20 b8 20 | 62 75 66 25 2c 6c 65 6e |f%,16 . |buf%,len|
|00004f40| 25 0d 1e 64 0c 3f 6c 65 | 6e 25 3d 31 33 0d 1e 6e |%..d.?le|n%=13..n|
|00004f50| 0a 3d 24 62 75 66 25 0d | 1e 78 05 3a 0d 1e 82 10 |.=$buf%.|.x.:....|
|00004f60| dd 20 a4 72 6e 64 28 61 | 24 2c 6e 29 0d 1e 8c 12 |. .rnd(a|$,n)....|
|00004f70| ea 20 62 2c 63 2c 62 24 | 2c 7a 24 2c 40 25 0d 1e |. b,c,b$|,z$,@%..|
|00004f80| 96 16 62 24 3d c1 61 24 | 2c a7 61 24 2c 22 2e 22 |..b$=.a$|,.a$,"."|
|00004f90| 29 2b 31 29 0d 1e a0 09 | 7a 24 3d 22 22 0d 1e aa |)+1)....|z$=""...|
|00004fa0| 1e c8 95 20 28 c0 62 24 | 2c 31 29 3d 22 30 22 29 |... (.b$|,1)="0")|
|00004fb0| 20 80 20 28 62 24 3c 3e | 22 22 29 0d 1e b4 0b 7a | . (b$<>|"")....z|
|00004fc0| 24 2b 3d 22 30 22 0d 1e | be 0d 62 24 3d c1 62 24 |$+="0"..|..b$=.b$|
|00004fd0| 2c 32 29 0d 1e c8 05 ce | 0d 1e d2 12 62 3d bb 20 |,2).....|....b=. |
|00004fe0| c0 62 24 2c 6e 2d a9 7a | 24 29 0d 1e dc 16 63 3d |.b$,n-.z|$)....c=|
|00004ff0| bb 20 c1 62 24 2c 6e 2b | 31 2d a9 7a 24 2c 31 29 |. .b$,n+|1-.z$,1)|
|00005000| 0d 1e e6 0c e7 20 63 3e | 3d 35 20 8c 0d 1e f0 1e |..... c>|=5 .....|
|00005010| e7 20 a9 28 c3 62 29 3d | a9 28 c3 28 62 2b 31 29 |. .(.b)=|.(.(b+1)|
|00005020| 29 20 80 20 6e 3c 3e 30 | 20 8c 0d 1e fa 08 62 2b |) . n<>0| .....b+|
|00005030| 3d 31 0d 1f 04 05 cc 0d | 1f 0e 28 61 24 3d c3 28 |=1......|..(a$=.(|
|00005040| 20 bb 28 20 c1 61 24 2c | 31 2c a7 61 24 2c 22 2e | .( .a$,|1,.a$,".|
|00005050| 22 29 29 20 29 20 2b 31 | 29 20 2b 20 22 2e 22 0d |")) ) +1|) + ".".|
|00005060| 1f 18 07 62 3d 30 0d 1f | 22 05 cd 0d 1f 2c 05 cd |...b=0..|"....,..|
|00005070| 0d 1f 36 2e 3d c0 c0 61 | 24 2c a7 61 24 2c 22 2e |..6.=..a|$,.a$,".|
|00005080| 22 29 29 2b c0 7a 24 2b | c3 62 2b 22 30 30 30 30 |"))+.z$+|.b+"0000|
|00005090| 30 30 30 30 30 30 22 2c | 6e 29 2c 31 31 29 0d 1f |000000",|n),11)..|
|000050a0| 40 05 3a 0d 1f 4a 14 dd | 20 f2 6b 65 79 70 72 65 |@.:..J..| .keypre|
|000050b0| 73 73 65 64 28 6b 29 0d | 1f 54 0c ea 20 62 2c 73 |ssed(k).|.T.. b,s|
|000050c0| 65 6e 64 0d 1f 5e 15 e7 | 20 a6 2d 31 20 8c 20 62 |end..^..| .-1 . b|
|000050d0| 3d 31 20 8b 20 62 3d 34 | 0d 1f 68 0c 73 65 6e 64 |=1 . b=4|..h.send|
|000050e0| 3d 32 35 35 0d 1f 72 14 | e7 20 6b 3d 31 33 20 8c |=255..r.|. k=13 .|
|000050f0| 20 73 65 6e 64 3d 32 39 | 0d 1f 7c 15 e7 20 6b 3d | send=29|..|.. k=|
|00005100| 31 32 37 20 8c 20 73 65 | 6e 64 3d 32 38 0d 1f 86 |127 . se|nd=28...|
|00005110| 8f e7 20 6b 3d 32 37 20 | 8c 20 c8 99 20 22 57 69 |.. k=27 |. .. "Wi|
|00005120| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00005130| 69 6f 6e 22 2c 63 61 72 | 65 74 73 74 6f 72 65 25 |ion",car|etstore%|
|00005140| 21 30 2c 63 61 72 65 74 | 73 74 6f 72 65 25 21 34 |!0,caret|store%!4|
|00005150| 2c 63 61 72 65 74 73 74 | 6f 72 65 25 21 38 2c 63 |,caretst|ore%!8,c|
|00005160| 61 72 65 74 73 74 6f 72 | 65 25 21 31 32 2c 63 61 |aretstor|e%!12,ca|
|00005170| 72 65 74 73 74 6f 72 65 | 25 21 31 36 2c 63 61 72 |retstore|%!16,car|
|00005180| 65 74 73 74 6f 72 65 25 | 21 32 30 3a 63 61 72 65 |etstore%|!20:care|
|00005190| 74 73 74 6f 72 65 25 21 | 30 3d 2d 31 0d 1f 90 1f |tstore%!|0=-1....|
|000051a0| e7 20 6b 3d 31 32 37 20 | 80 20 a6 2d 31 20 8c 20 |. k=127 |. .-1 . |
|000051b0| 73 65 6e 64 3d 34 34 3a | 62 3d 34 0d 1f 9a 26 e7 |send=44:|b=4...&.|
|000051c0| 20 6b 20 3e 20 39 36 20 | 80 20 6b 20 3c 20 31 30 | k > 96 |. k < 10|
|000051d0| 33 20 8c 20 6b 3d 6b 20 | 80 20 26 44 46 3a 62 3d |3 . k=k |. &DF:b=|
|000051e0| 34 0d 1f a4 33 e7 20 6b | 20 3e 20 33 31 20 80 20 |4...3. k| > 31 . |
|000051f0| 6b 20 3c 20 39 35 20 8c | 20 73 65 6e 64 3d 3f 28 |k < 95 .| send=?(|
|00005200| 6b 65 79 74 72 61 6e 73 | 61 72 72 61 79 25 2b 6b |keytrans|array%+k|
|00005210| 2d 33 32 29 0d 1f ae 11 | e7 20 73 65 6e 64 3c 3e |-32)....|. send<>|
|00005220| 32 35 35 20 8c 0d 1f b8 | 23 f2 63 68 65 63 6b 6d |255 ....|#.checkm|
|00005230| 6f 75 73 65 28 30 2c 30 | 2c 62 2c 63 61 6c 63 25 |ouse(0,0|,b,calc%|
|00005240| 2c 73 65 6e 64 2c 30 29 | 0d 1f c2 05 cc 0d 1f cc |,send,0)|........|
|00005250| 1a c8 99 20 22 57 69 6d | 70 5f 50 72 6f 63 65 73 |... "Wim|p_Proces|
|00005260| 73 4b 65 79 22 2c 6b 0d | 1f d6 05 cd 0d 1f e0 05 |sKey",k.|........|
|00005270| e1 0d 1f ea 05 3a 0d 1f | f4 1b dd 20 f2 73 65 6e |.....:..|... .sen|
|00005280| 64 5f 68 65 6c 70 28 62 | 6c 6f 63 6b 25 2c 61 24 |d_help(b|lock%,a$|
|00005290| 29 0d 1f fe 1e 21 28 62 | 6c 6f 63 6b 25 2b 30 30 |)....!(b|lock%+00|
|000052a0| 29 3d 28 a9 61 24 2b 32 | 35 29 20 80 20 ac 33 0d |)=(.a$+2|5) . .3.|
|000052b0| 20 08 16 62 6c 6f 63 6b | 25 21 31 32 3d 62 6c 6f | ..block|%!12=blo|
|000052c0| 63 6b 25 21 38 0d 20 12 | 15 21 28 62 6c 6f 63 6b |ck%!8. .|.!(block|
|000052d0| 25 2b 31 36 29 3d 26 35 | 30 33 0d 20 1c 13 24 28 |%+16)=&5|03. ..$(|
|000052e0| 62 6c 6f 63 6b 25 2b 32 | 30 29 3d 61 24 0d 20 26 |block%+2|0)=a$. &|
|000052f0| 18 3f 28 62 6c 6f 63 6b | 25 2b 32 30 2b a9 61 24 |.?(block|%+20+.a$|
|00005300| 2b 31 29 3d 30 0d 20 30 | 2c c8 99 20 22 57 69 6d |+1)=0. 0|,.. "Wim|
|00005310| 70 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 31 |p_SendMe|ssage",1|
|00005320| 37 2c 62 6c 6f 63 6b 25 | 2c 62 6c 6f 63 6b 25 21 |7,block%|,block%!|
|00005330| 34 0d 20 3a 05 e1 0d 20 | 44 05 3a 0d 20 4e 1b dd |4. :... |D.:. N..|
|00005340| 20 f2 66 6c 61 73 68 5f | 69 63 6f 6e 28 77 25 2c | .flash_|icon(w%,|
|00005350| 69 25 2c 71 25 29 0d 20 | 58 07 ea 20 74 0d 20 62 |i%,q%). |X.. t. b|
|00005360| 10 ff 20 28 22 66 78 32 | 31 2c 30 22 29 0d 20 6c |.. ("fx2|1,0"). l|
|00005370| 44 71 25 21 30 3d 77 25 | 3a 71 25 21 34 3d 69 25 |Dq%!0=w%|:q%!4=i%|
|00005380| 3a 71 25 21 38 3d 31 3c | 3c 32 31 3a 71 25 21 31 |:q%!8=1<|<21:q%!1|
|00005390| 32 3d 31 3c 3c 32 31 3a | c8 99 22 57 69 6d 70 5f |2=1<<21:|.."Wimp_|
|000053a0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|000053b0| 25 0d 20 76 14 74 3d 91 | 3a f5 20 fd 20 91 3e 28 |%. v.t=.|:. . .>(|
|000053c0| 74 2b 31 30 29 0d 20 80 | 40 71 25 21 30 3d 77 25 |t+10). .|@q%!0=w%|
|000053d0| 3a 71 25 21 34 3d 69 25 | 3a 71 25 21 38 3d 30 3a |:q%!4=i%|:q%!8=0:|
|000053e0| 71 25 21 31 32 3d 31 3c | 3c 32 31 3a c8 99 22 57 |q%!12=1<|<21:.."W|
|000053f0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|00005400| 22 2c 2c 71 25 0d 20 8a | 05 e1 0d 20 94 05 3a 0d |",,q%. .|... ..:.|
|00005410| 20 9e 12 dd 20 f2 64 72 | 61 67 62 6f 78 28 71 25 | ... .dr|agbox(q%|
|00005420| 29 0d 20 a8 16 e7 20 64 | 72 61 67 62 6f 78 73 61 |). ... d|ragboxsa|
|00005430| 76 65 25 3d b9 20 8c 0d | 20 b2 12 64 72 61 67 62 |ve%=. ..| ..dragb|
|00005440| 6f 78 73 61 76 65 25 3d | a3 0d 20 bc 0f f2 67 65 |oxsave%=|.. ...ge|
|00005450| 74 70 6f 69 6e 74 65 72 | 0d 20 c6 0b 71 25 21 30 |tpointer|. ..q%!0|
|00005460| 3d 36 30 0d 20 d0 0b 71 | 25 21 31 32 3d 30 0d 20 |=60. ..q|%!12=0. |
|00005470| da 0b 71 25 21 31 36 3d | 31 0d 20 e4 11 71 25 21 |..q%!16=|1. ..q%!|
|00005480| 32 30 3d 68 61 6e 64 6c | 65 25 0d 20 ee 0f 71 25 |20=handl|e%. ..q%|
|00005490| 21 32 34 3d 69 63 6f 6e | 25 0d 20 f8 11 71 25 21 |!24=icon|%. ..q%!|
|000054a0| 32 38 3d 6d 6f 75 73 65 | 78 25 0d 21 02 11 71 25 |28=mouse|x%.!..q%|
|000054b0| 21 33 32 3d 6d 6f 75 73 | 65 79 25 0d 21 0c 34 71 |!32=mous|ey%.!.4q|
|000054c0| 25 21 33 36 3d 33 32 3a | f4 20 74 68 65 20 6c 65 |%!36=32:|. the le|
|000054d0| 6e 67 74 68 20 69 65 20 | 74 68 65 20 77 68 6f 6c |ngth ie |the whol|
|000054e0| 65 20 72 65 73 75 6c 74 | 20 73 63 72 65 65 6e 0d |e result| screen.|
|000054f0| 21 16 0e 71 25 21 34 30 | 3d 26 46 46 46 0d 21 20 |!..q%!40|=&FFF.! |
|00005500| 22 24 28 71 25 2b 34 34 | 29 3d a4 6c 65 61 66 28 |"$(q%+44|)=.leaf(|
|00005510| 64 61 74 61 73 61 76 65 | 24 29 2b bd 28 30 29 0d |datasave|$)+.(0).|
|00005520| 21 2a 2d c8 99 20 22 57 | 69 6d 70 5f 53 65 6e 64 |!*-.. "W|imp_Send|
|00005530| 4d 65 73 73 61 67 65 22 | 2c 31 37 2c 71 25 2c 68 |Message"|,17,q%,h|
|00005540| 61 6e 64 6c 65 25 2c 69 | 63 6f 6e 25 0d 21 34 0f |andle%,i|con%.!4.|
|00005550| 6d 79 72 65 66 25 3d 71 | 25 21 38 0d 21 3e 05 cd |myref%=q|%!8.!>..|
|00005560| 0d 21 48 05 e1 0d 21 52 | 05 3a 0d 21 5c 10 dd 20 |.!H...!R|.:.!\.. |
|00005570| f2 6e 6f 61 63 6b 28 71 | 25 29 0d 21 66 15 e7 20 |.noack(q|%).!f.. |
|00005580| 71 25 21 38 20 3d 20 6d | 79 72 65 66 25 20 8c 0d |q%!8 = m|yref% ..|
|00005590| 21 70 2f e7 20 73 61 76 | 65 74 6f 66 69 6c 65 24 |!p/. sav|etofile$|
|000055a0| 3c 3e 22 22 20 8c 20 ff | 20 22 44 65 6c 65 74 65 |<>"" . .| "Delete|
|000055b0| 20 22 2b 73 61 76 65 74 | 6f 66 69 6c 65 24 0d 21 | "+savet|ofile$.!|
|000055c0| 7a 34 24 28 71 25 2b 34 | 29 3d 22 48 6d 6d 2e 20 |z4$(q%+4|)="Hmm. |
|000055d0| 57 68 79 20 64 6f 65 73 | 20 6e 6f 6f 6e 65 20 61 |Why does| noone a|
|000055e0| 63 6b 6e 6f 77 6c 65 64 | 67 65 20 6d 65 3f 22 2b |cknowled|ge me?"+|
|000055f0| bd 30 0d 21 84 2a c8 99 | 20 22 57 69 6d 70 5f 52 |.0.!.*..| "Wimp_R|
|00005600| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 71 25 2c 31 |eportErr|or",q%,1|
|00005610| 2c 70 72 6f 67 5f 74 69 | 74 6c 65 24 0d 21 8e 0d |,prog_ti|tle$.!..|
|00005620| 6d 79 72 65 66 25 3d 2d | 31 0d 21 98 07 cd 20 20 |myref%=-|1.!... |
|00005630| 0d 21 a2 05 e1 0d 21 ac | 05 3a 0d 21 b6 16 dd 20 |.!....!.|.:.!... |
|00005640| f2 64 61 74 61 73 61 76 | 65 61 63 6b 28 71 25 29 |.datasav|eack(q%)|
|00005650| 0d 21 c0 10 ea 20 68 61 | 6e 64 6c 65 25 2c 61 24 |.!... ha|ndle%,a$|
|00005660| 0d 21 ca 14 e7 20 71 25 | 21 31 32 3d 6d 79 72 65 |.!... q%|!12=myre|
|00005670| 66 25 20 8c 0d 21 d4 24 | 73 61 76 65 74 6f 66 69 |f% ..!.$|savetofi|
|00005680| 6c 65 24 3d a4 6d 65 6d | 74 6f 73 74 72 28 71 25 |le$=.mem|tostr(q%|
|00005690| 2b 34 34 2c 31 30 30 29 | 0d 21 de 1a 68 61 6e 64 |+44,100)|.!..hand|
|000056a0| 6c 65 25 3d ae 28 73 61 | 76 65 74 6f 66 69 6c 65 |le%=.(sa|vetofile|
|000056b0| 24 29 0d 21 e8 18 61 24 | 3d a4 73 74 72 69 70 28 |$).!..a$|=.strip(|
|000056c0| 24 64 69 73 70 6c 61 79 | 25 29 0d 21 f2 15 e3 20 |$display|%).!... |
|000056d0| 6c 6f 6f 70 20 3d 20 31 | 20 b8 20 a9 20 61 24 0d |loop = 1| . . a$.|
|000056e0| 21 fc 1c d5 23 68 61 6e | 64 6c 65 25 2c 97 28 c1 |!...#han|dle%,.(.|
|000056f0| 61 24 2c 6c 6f 6f 70 2c | 31 29 29 0d 22 06 05 ed |a$,loop,|1))."...|
|00005700| 0d 22 10 0d d9 23 68 61 | 6e 64 6c 65 25 0d 22 1a |."...#ha|ndle%.".|
|00005710| 23 ff 20 22 53 65 74 54 | 79 70 65 20 22 2b 73 61 |#. "SetT|ype "+sa|
|00005720| 76 65 74 6f 66 69 6c 65 | 24 2b 22 20 46 46 46 22 |vetofile|$+" FFF"|
|00005730| 0d 22 24 0e 71 25 21 31 | 32 3d 71 25 21 38 0d 22 |."$.q%!1|2=q%!8."|
|00005740| 2e 0b 71 25 21 31 36 3d | 33 0d 22 38 24 c8 99 20 |..q%!16=|3."8$.. |
|00005750| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00005760| 65 22 2c 31 38 2c 71 25 | 2c 71 25 21 34 0d 22 42 |e",18,q%|,q%!4."B|
|00005770| 10 6d 79 72 65 66 25 3d | 71 25 21 38 20 0d 22 4c |.myref%=|q%!8 ."L|
|00005780| 05 cd 0d 22 56 05 e1 0d | 22 60 05 3a 0d 22 6a 16 |..."V...|"`.:."j.|
|00005790| dd 20 f2 64 61 74 61 6c | 6f 61 64 61 63 6b 28 71 |. .datal|oadack(q|
|000057a0| 25 29 0d 22 74 14 e7 20 | 71 25 21 31 32 3d 6d 79 |%)."t.. |q%!12=my|
|000057b0| 72 65 66 25 20 8c 0d 22 | 7e 14 e7 20 73 61 76 65 |ref% .."|~.. save|
|000057c0| 74 6f 66 69 6c 65 24 3d | 22 22 0d 22 88 0d 6d 79 |tofile$=|""."..my|
|000057d0| 72 65 66 25 3d 2d 31 0d | 22 92 05 cd 0d 22 9c 05 |ref%=-1.|"...."..|
|000057e0| e1 0d 22 a6 05 3a 0d 22 | b0 13 dd 20 f2 72 61 6d |.."..:."|... .ram|
|000057f0| 66 65 74 63 68 28 71 25 | 29 0d 22 ba 14 e7 20 71 |fetch(q%|)."... q|
|00005800| 25 21 31 32 3d 6d 79 72 | 65 66 25 20 8c 0d 22 c4 |%!12=myr|ef% ..".|
|00005810| 1f 24 28 71 25 2b 31 30 | 30 29 3d a4 73 74 72 69 |.$(q%+10|0)=.stri|
|00005820| 70 28 24 64 69 73 70 6c | 61 79 25 29 0d 22 ce 40 |p($displ|ay%).".@|
|00005830| c8 99 20 22 57 69 6d 70 | 5f 54 72 61 6e 73 66 65 |.. "Wimp|_Transfe|
|00005840| 72 42 6c 6f 63 6b 22 2c | 74 61 73 6b 69 64 25 2c |rBlock",|taskid%,|
|00005850| 71 25 2b 31 30 30 2c 71 | 25 21 34 2c 71 25 21 32 |q%+100,q|%!4,q%!2|
|00005860| 30 2c a9 24 28 71 25 2b | 31 30 30 29 0d 22 d8 0b |0,.$(q%+|100)."..|
|00005870| 71 25 21 30 3d 33 32 0d | 22 e2 0e 71 25 21 31 32 |q%!0=32.|"..q%!12|
|00005880| 3d 71 25 21 38 0d 22 ec | 0b 71 25 21 31 36 3d 37 |=q%!8.".|.q%!16=7|
|00005890| 0d 22 f6 14 71 25 21 32 | 34 3d a9 24 28 71 25 2b |."..q%!2|4=.$(q%+|
|000058a0| 31 30 30 29 0d 23 00 24 | c8 99 20 22 57 69 6d 70 |100).#.$|.. "Wimp|
|000058b0| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 31 38 |_SendMes|sage",18|
|000058c0| 2c 71 25 2c 71 25 21 34 | 0d 23 0a 0d 6d 79 72 65 |,q%,q%!4|.#..myre|
|000058d0| 66 25 3d 2d 31 0d 23 14 | 05 cd 0d 23 1e 05 e1 0d |f%=-1.#.|...#....|
|000058e0| 23 28 05 3a 0d 23 32 0d | dd 20 f2 68 6f 74 6b 65 |#(.:.#2.|. .hotke|
|000058f0| 79 0d 23 3c 16 70 72 65 | 73 73 65 64 25 3d a6 20 |y.#<.pre|ssed%=. |
|00005900| 68 6f 74 6b 65 79 25 0d | 23 46 20 e7 20 70 72 65 |hotkey%.|#F . pre|
|00005910| 73 73 65 64 25 20 80 20 | ac 20 77 61 73 70 72 65 |ssed% . |. waspre|
|00005920| 73 73 65 64 25 20 8c 0d | 23 50 0f f2 67 65 74 70 |ssed% ..|#P..getp|
|00005930| 6f 69 6e 74 65 72 0d 23 | 5a 35 e7 20 68 61 6e 64 |ointer.#|Z5. hand|
|00005940| 6c 65 25 3d 63 61 6c 63 | 25 20 80 20 63 61 72 65 |le%=calc|% . care|
|00005950| 74 73 74 6f 72 65 25 21 | 30 3d 2d 31 20 8c 20 f2 |tstore%!|0=-1 . .|
|00005960| 6b 65 79 69 6e 72 65 73 | 75 6c 74 0d 23 64 05 cd |keyinres|ult.#d..|
|00005970| 0d 23 6e 18 77 61 73 70 | 72 65 73 73 65 64 25 3d |.#n.wasp|ressed%=|
|00005980| 70 72 65 73 73 65 64 25 | 0d 23 78 05 e1 0d 23 82 |pressed%|.#x...#.|
|00005990| 05 3a 0d 23 8c 12 dd 20 | f2 6b 65 79 69 6e 72 65 |.:.#... |.keyinre|
|000059a0| 73 75 6c 74 0d 23 96 1e | 73 65 6e 64 6b 65 79 24 |sult.#..|sendkey$|
|000059b0| 3d a4 73 74 72 69 70 28 | 24 64 69 73 70 6c 61 79 |=.strip(|$display|
|000059c0| 25 29 0d 23 a0 1a e3 20 | 6c 6f 6f 70 25 3d 31 20 |%).#... |loop%=1 |
|000059d0| b8 20 a9 20 73 65 6e 64 | 6b 65 79 24 0d 23 aa 2c |. . send|key$.#.,|
|000059e0| c8 99 20 22 4f 53 5f 42 | 79 74 65 22 2c 31 35 33 |.. "OS_B|yte",153|
|000059f0| 2c 30 2c 97 28 c1 73 65 | 6e 64 6b 65 79 24 2c 6c |,0,.(.se|ndkey$,l|
|00005a00| 6f 6f 70 25 2c 31 29 29 | 0d 23 b4 05 ed 0d 23 be |oop%,1))|.#....#.|
|00005a10| 05 e1 0d 23 c8 05 3a 0d | 23 d2 12 dd 20 a4 6c 65 |...#..:.|#... .le|
|00005a20| 61 66 28 70 61 74 68 24 | 29 0d 23 dc 2e c8 95 20 |af(path$|).#.... |
|00005a30| a7 70 61 74 68 24 2c 22 | 2e 22 29 3a 70 61 74 68 |.path$,"|."):path|
|00005a40| 24 3d c1 70 61 74 68 24 | 2c a7 70 61 74 68 24 2c |$=.path$|,.path$,|
|00005a50| 22 2e 22 29 2b 31 29 0d | 23 e6 05 ce 0d 23 f0 0a |".")+1).|#....#..|
|00005a60| 3d 70 61 74 68 24 0d 23 | fa 05 3a 0d 24 04 15 dd |=path$.#|..:.$...|
|00005a70| 20 a4 6c 65 61 66 64 69 | 72 28 70 61 74 68 24 29 | .leafdi|r(path$)|
|00005a80| 0d 24 0e 2e c8 95 20 c2 | 70 61 74 68 24 2c 31 29 |.$.... .|path$,1)|
|00005a90| 20 3c 3e 20 22 2e 22 20 | 70 61 74 68 24 3d c0 70 | <> "." |path$=.p|
|00005aa0| 61 74 68 24 2c a9 70 61 | 74 68 24 2d 31 29 0d 24 |ath$,.pa|th$-1).$|
|00005ab0| 18 05 ce 0d 24 22 15 3d | c0 70 61 74 68 24 2c a9 |....$".=|.path$,.|
|00005ac0| 70 61 74 68 24 2d 31 29 | 0d 24 2c 05 3a 0d 24 36 |path$-1)|.$,.:.$6|
|00005ad0| 17 dd 20 a4 6d 65 6d 74 | 6f 73 74 72 28 70 74 72 |.. .memt|ostr(ptr|
|00005ae0| 2c 6d 6c 29 0d 24 40 17 | ea 20 66 24 2c 6d 61 78 |,ml).$@.|. f$,max|
|00005af0| 3a 6d 61 78 3d 70 74 72 | 2b 6d 6c 0d 24 4a 27 c8 |:max=ptr|+ml.$J'.|
|00005b00| 95 20 3f 70 74 72 20 80 | 20 70 74 72 3c 3d 6d 61 |. ?ptr .| ptr<=ma|
|00005b10| 78 20 66 24 2b 3d bd 3f | 70 74 72 3a 70 74 72 2b |x f$+=.?|ptr:ptr+|
|00005b20| 3d 31 0d 24 54 05 ce 0d | 24 5e 07 3d 66 24 0d 24 |=1.$T...|$^.=f$.$|
|00005b30| 68 05 3a 0d 24 72 14 dd | a4 70 61 64 28 61 24 2c |h.:.$r..|.pad(a$,|
|00005b40| 73 70 61 63 65 73 29 0d | 24 7c 1d 3d c0 61 24 2b |spaces).|$|.=.a$+|
|00005b50| c4 73 70 61 63 65 73 2c | 22 20 22 29 2c 73 70 61 |.spaces,|" "),spa|
|00005b60| 63 65 73 29 0d 24 86 05 | 3a 0d 24 90 0f dd a4 73 |ces).$..|:.$....s|
|00005b70| 74 72 69 70 28 61 24 29 | 0d 24 9a 1d c8 95 20 c2 |trip(a$)|.$.... .|
|00005b80| 61 24 2c 31 29 3d 22 20 | 22 20 84 20 c2 61 24 2c |a$,1)=" |" . .a$,|
|00005b90| 31 29 3d bd 30 0d 24 a4 | 15 61 24 3d c0 61 24 2c |1)=.0.$.|.a$=.a$,|
|00005ba0| a9 20 61 24 20 2d 20 31 | 20 29 0d 24 ae 05 ce 0d |. a$ - 1| ).$....|
|00005bb0| 24 b8 11 c8 95 20 c0 61 | 24 2c 31 29 3d 22 20 22 |$.... .a|$,1)=" "|
|00005bc0| 0d 24 c2 15 61 24 3d c2 | 61 24 2c a9 20 61 24 20 |.$..a$=.|a$,. a$ |
|00005bd0| 2d 20 31 20 29 0d 24 cc | 05 ce 0d 24 d6 07 3d 61 |- 1 ).$.|...$..=a|
|00005be0| 24 0d 24 e0 05 3a 0d 24 | ea 1a dd 20 f2 73 65 74 |$.$..:.$|... .set|
|00005bf0| 75 70 64 72 61 67 62 6f | 78 28 77 25 2c 69 25 29 |updragbo|x(w%,i%)|
|00005c00| 0d 24 f4 0d ea 20 77 65 | 78 2c 77 65 79 0d 24 fe |.$... we|x,wey.$.|
|00005c10| 6a 71 25 21 30 3d 77 25 | 3a c8 99 20 22 57 69 6d |jq%!0=w%|:.. "Wim|
|00005c20| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00005c30| 22 2c 2c 71 25 3a 77 65 | 78 3d 71 25 21 34 2d 71 |",,q%:we|x=q%!4-q|
|00005c40| 25 21 32 30 3a 77 65 79 | 3d 71 25 21 31 36 2d 71 |%!20:wey|=q%!16-q|
|00005c50| 25 21 32 34 3a 71 25 21 | 34 3d 69 25 3a c8 99 20 |%!24:q%!|4=i%:.. |
|00005c60| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00005c70| 74 65 22 2c 2c 71 25 0d | 25 08 5f 21 71 25 3d 77 |te",,q%.|%._!q%=w|
|00005c80| 25 3a 71 25 21 34 3d 35 | 3a 71 25 21 38 3d 71 25 |%:q%!4=5|:q%!8=q%|
|00005c90| 21 38 2b 77 65 78 3a 71 | 25 21 31 32 3d 71 25 21 |!8+wex:q|%!12=q%!|
|00005ca0| 31 32 2b 77 65 79 3a 71 | 25 21 31 36 3d 71 25 21 |12+wey:q|%!16=q%!|
|00005cb0| 31 36 2b 77 65 78 3a 71 | 25 21 32 30 3d 71 25 21 |16+wex:q|%!20=q%!|
|00005cc0| 32 30 2b 77 65 79 3a 71 | 25 21 32 34 3d 30 3a 71 |20+wey:q|%!24=0:q|
|00005cd0| 25 21 32 38 3d 30 0d 25 | 12 39 71 25 21 33 32 3d |%!28=0.%|.9q%!32=|
|00005ce0| 26 37 46 46 46 46 46 46 | 46 3a 71 25 21 33 36 3d |&7FFFFFF|F:q%!36=|
|00005cf0| 26 37 46 46 46 46 46 46 | 46 3a c8 99 20 22 57 69 |&7FFFFFF|F:.. "Wi|
|00005d00| 6d 70 5f 44 72 61 67 42 | 6f 78 22 2c 2c 71 25 0d |mp_DragB|ox",,q%.|
|00005d10| 25 1c 12 64 72 61 67 62 | 6f 78 73 61 76 65 25 3d |%..dragb|oxsave%=|
|00005d20| b9 0d 25 26 05 e1 0d 25 | 30 05 3a 0d 25 3a 19 dd |..%&...%|0.:.%:..|
|00005d30| 20 f2 72 65 64 72 61 77 | 5f 77 69 6e 64 6f 77 28 | .redraw|_window(|
|00005d40| 21 71 25 29 0d 25 44 0b | ea 20 66 6c 61 67 25 0d |!q%).%D.|. flag%.|
|00005d50| 25 4e 13 e7 20 71 25 21 | 30 3d 61 73 63 69 69 25 |%N.. q%!|0=ascii%|
|00005d60| 20 8c 0d 25 58 26 c8 99 | 20 22 57 69 6d 70 5f 52 | ..%X&..| "Wimp_R|
|00005d70| 65 64 72 61 77 57 69 6e | 64 6f 77 22 2c 2c 71 25 |edrawWin|dow",,q%|
|00005d80| 20 b8 20 66 6c 61 67 25 | 0d 25 62 37 ef 32 33 2c | . flag%|.%b7.23,|
|00005d90| 31 37 2c 37 2c 34 2c 78 | 5f 73 70 61 63 69 6e 67 |17,7,4,x|_spacing|
|00005da0| 25 3e 3e 78 5f 65 69 67 | 25 3b 79 5f 73 70 61 63 |%>>x_eig|%;y_spac|
|00005db0| 69 6e 67 25 3e 3e 79 5f | 65 69 67 25 3b 30 3b 0d |ing%>>y_|eig%;0;.|
|00005dc0| 25 6c 0c c8 95 20 66 6c | 61 67 25 0d 25 76 41 53 |%l... fl|ag%.%vAS|
|00005dd0| 74 61 72 74 58 25 3d 71 | 25 21 34 2b 6c 65 66 74 |tartX%=q|%!4+left|
|00005de0| 6d 61 72 67 69 6e 25 2d | 71 25 21 32 30 3a 53 74 |margin%-|q%!20:St|
|00005df0| 61 72 74 59 25 3d 71 25 | 21 31 36 2d 74 6f 70 6d |artY%=q%|!16-topm|
|00005e00| 61 72 67 69 6e 25 2d 71 | 25 21 32 34 0d 25 80 28 |argin%-q|%!24.%.(|
|00005e10| e3 20 59 25 3d 30 20 b8 | 20 37 3a 43 59 25 3d 53 |. Y%=0 .| 7:CY%=S|
|00005e20| 74 61 72 74 59 25 2d 59 | 25 2a 79 5f 73 70 61 63 |tartY%-Y|%*y_spac|
|00005e30| 69 6e 67 25 0d 25 8a 21 | e7 20 43 59 25 3c 71 25 |ing%.%.!|. CY%<q%|
|00005e40| 21 34 30 2b 33 31 20 80 | 20 43 59 25 3e 3d 71 25 |!40+31 .| CY%>=q%|
|00005e50| 21 33 32 20 8c 0d 25 94 | 2b ec 20 53 74 61 72 74 |!32 ..%.|+. Start|
|00005e60| 58 25 2c 43 59 25 3a f1 | 20 43 24 28 59 25 29 3b |X%,CY%:.| C$(Y%);|
|00005e70| 3a e7 20 59 25 3d 30 20 | f1 20 43 24 28 38 29 3b |:. Y%=0 |. C$(8);|
|00005e80| 0d 25 9e 05 cd 0d 25 a8 | 05 ed 0d 25 b2 26 c8 99 |.%....%.|...%.&..|
|00005e90| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00005ea0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 66 6c 61 67 25 |dow",,q%| . flag%|
|00005eb0| 0d 25 bc 05 ce 0d 25 c6 | 27 ef 32 33 2c 31 37 2c |.%....%.|'.23,17,|
|00005ec0| 37 2c 34 2c 31 36 3e 3e | 78 5f 65 69 67 25 3b 33 |7,4,16>>|x_eig%;3|
|00005ed0| 32 3e 3e 79 5f 65 69 67 | 25 3b 30 3b 0d 25 d0 05 |2>>y_eig|%;0;.%..|
|00005ee0| cd 0d 25 da 05 e1 0d 25 | e4 05 3a 0d 25 ee 0f dd |..%....%|..:.%...|
|00005ef0| a4 63 68 28 78 25 2c 79 | 25 29 0d 25 f8 0d ea 20 |.ch(x%,y|%).%... |
|00005f00| 63 68 61 72 2c 43 24 0d | 26 02 11 63 68 61 72 3d |char,C$.|&..char=|
|00005f10| 78 25 2b 79 25 2a 33 32 | 0d 26 0c 1a e7 20 63 68 |x%+y%*32|.&... ch|
|00005f20| 61 72 3c 33 32 20 84 20 | 63 68 61 72 3d 31 32 37 |ar<32 . |char=127|
|00005f30| 20 8c 0d 26 16 2d e7 20 | 63 68 61 72 3d 31 32 37 | ..&.-. |char=127|
|00005f40| 20 8c 20 63 68 61 72 3d | 97 22 3f 22 20 8b 20 63 | . char=|."?" . c|
|00005f50| 68 61 72 3d 63 68 61 72 | 20 84 20 97 22 40 22 0d |har=char| . ."@".|
|00005f60| 26 20 2d 63 68 61 72 69 | 6d 61 67 65 3f 30 3d 63 |& -chari|mage?0=c|
|00005f70| 68 61 72 3a c8 99 22 4f | 53 5f 57 6f 72 64 22 2c |har:.."O|S_Word",|
|00005f80| 31 30 2c 63 68 61 72 69 | 6d 61 67 65 0d 26 2a 0e |10,chari|mage.&*.|
|00005f90| 43 24 3d bd 32 33 2b bd | 33 32 0d 26 34 0e e3 20 |C$=.23+.|32.&4.. |
|00005fa0| 49 25 3d 31 20 b8 20 38 | 0d 26 3e 1d 43 24 2b 3d |I%=1 . 8|.&>.C$+=|
|00005fb0| bd 28 63 68 61 72 69 6d | 61 67 65 3f 49 25 20 82 |.(charim|age?I% .|
|00005fc0| 20 26 46 46 29 0d 26 48 | 05 ed 0d 26 52 0b 43 24 | &FF).&H|...&R.C$|
|00005fd0| 2b 3d 22 20 22 0d 26 5c | 05 cc 0d 26 66 0c 43 24 |+=" ".&\|...&f.C$|
|00005fe0| 3d bd 63 68 61 72 0d 26 | 70 05 cd 0d 26 7a 07 3d |=.char.&|p...&z.=|
|00005ff0| 43 24 0d 26 84 05 3a 0d | 26 8e 19 dd a4 63 6f 6f |C$.&..:.|&....coo|
|00006000| 72 64 73 74 6f 63 68 61 | 72 28 78 25 2c 79 25 29 |rdstocha|r(x%,y%)|
|00006010| 0d 26 98 0b ea 20 63 68 | 61 72 25 0d 26 a2 0e 21 |.&... ch|ar%.&..!|
|00006020| 71 25 3d 61 73 63 69 69 | 25 0d 26 ac 20 c8 99 20 |q%=ascii|%.&. .. |
|00006030| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00006040| 74 61 74 65 22 2c 2c 71 | 25 0d 26 b6 49 79 6f 66 |tate",,q|%.&.Iyof|
|00006050| 66 73 65 74 25 3d 28 71 | 25 21 31 36 2d 74 6f 70 |fset%=(q|%!16-top|
|00006060| 6d 61 72 67 69 6e 25 2d | 71 25 21 32 34 2b 28 28 |margin%-|q%!24+((|
|00006070| 79 5f 73 70 61 63 69 6e | 67 25 2d 33 32 29 3e 3e |y_spacin|g%-32)>>|
|00006080| 31 29 2d 79 25 29 81 20 | 79 5f 73 70 61 63 69 6e |1)-y%). |y_spacin|
|00006090| 67 25 0d 26 c0 0c 63 68 | 61 72 25 3d 2d 31 0d 26 |g%.&..ch|ar%=-1.&|
|000060a0| ca 21 e7 20 79 6f 66 66 | 73 65 74 25 3e 3d 30 20 |.!. yoff|set%>=0 |
|000060b0| 80 20 79 6f 66 66 73 65 | 74 25 3c 3d 37 20 8c 0d |. yoffse|t%<=7 ..|
|000060c0| 26 d4 4b 78 6f 66 66 73 | 65 74 25 3d 28 78 25 2d |&.Kxoffs|et%=(x%-|
|000060d0| 28 71 25 21 34 2b 6c 65 | 66 74 6d 61 72 67 69 6e |(q%!4+le|ftmargin|
|000060e0| 25 2d 71 25 21 32 30 2b | 28 28 31 36 2d 78 5f 73 |%-q%!20+|((16-x_s|
|000060f0| 70 61 63 69 6e 67 25 29 | 3e 3e 31 29 29 29 81 20 |pacing%)|>>1))). |
|00006100| 78 5f 73 70 61 63 69 6e | 67 25 0d 26 de 22 e7 20 |x_spacin|g%.&.". |
|00006110| 78 6f 66 66 73 65 74 25 | 3e 3d 30 20 80 20 78 6f |xoffset%|>=0 . xo|
|00006120| 66 66 73 65 74 25 3c 3d | 33 31 20 8c 0d 26 e8 1e |ffset%<=|31 ..&..|
|00006130| 63 68 61 72 25 3d 78 6f | 66 66 73 65 74 25 2b 79 |char%=xo|ffset%+y|
|00006140| 6f 66 66 73 65 74 25 2a | 33 32 0d 26 f2 05 cd 0d |offset%*|32.&....|
|00006150| 26 fc 05 cd 0d 27 06 0a | 3d 63 68 61 72 25 0d 27 |&....'..|=char%.'|
|00006160| 10 05 3a 0d 27 1a 12 dd | 20 f2 67 65 74 6d 6f 64 |..:.'...| .getmod|
|00006170| 65 69 6e 66 6f 0d 27 24 | 15 ea 20 78 5f 6c 6f 6f |einfo.'$|.. x_loo|
|00006180| 70 25 2c 79 5f 6c 6f 6f | 70 25 0d 27 2e 31 69 6e |p%,y_loo|p%.'.1in|
|00006190| 70 75 74 76 61 72 73 25 | 21 30 3d 34 3a 69 6e 70 |putvars%|!0=4:inp|
|000061a0| 75 74 76 61 72 73 25 21 | 34 3d 35 3a 69 6e 70 75 |utvars%!|4=5:inpu|
|000061b0| 74 76 61 72 73 25 21 38 | 3d 2d 31 0d 27 38 32 c8 |tvars%!8|=-1.'82.|
|000061c0| 99 22 4f 53 5f 52 65 61 | 64 56 64 75 56 61 72 69 |."OS_Rea|dVduVari|
|000061d0| 61 62 6c 65 73 22 2c 69 | 6e 70 75 74 76 61 72 73 |ables",i|nputvars|
|000061e0| 25 2c 6f 75 74 70 75 74 | 76 61 72 73 25 0d 27 42 |%,output|vars%.'B|
|000061f0| 2d 78 5f 65 69 67 25 3d | 6f 75 74 70 75 74 76 61 |-x_eig%=|outputva|
|00006200| 72 73 25 21 30 3a 79 5f | 65 69 67 25 3d 6f 75 74 |rs%!0:y_|eig%=out|
|00006210| 70 75 74 76 61 72 73 25 | 21 34 0d 27 4c 0b 43 24 |putvars%|!4.'L.C$|
|00006220| 28 29 3d 22 22 0d 27 56 | 14 e3 20 78 5f 6c 6f 6f |()="".'V|.. x_loo|
|00006230| 70 25 3d 30 20 b8 20 33 | 31 0d 27 60 41 e7 20 78 |p%=0 . 3|1.'`A. x|
|00006240| 5f 6c 6f 6f 70 25 3c 3d | 31 35 20 8c 20 43 24 28 |_loop%<=|15 . C$(|
|00006250| 30 29 2b 3d a4 63 68 28 | 78 5f 6c 6f 6f 70 25 2c |0)+=.ch(|x_loop%,|
|00006260| 30 29 20 8b 20 43 24 28 | 38 29 2b 3d a4 63 68 28 |0) . C$(|8)+=.ch(|
|00006270| 78 5f 6c 6f 6f 70 25 2c | 30 29 0d 27 6a 37 e3 20 |x_loop%,|0).'j7. |
|00006280| 79 5f 6c 6f 6f 70 25 3d | 31 20 b8 20 37 3a 43 24 |y_loop%=|1 . 7:C$|
|00006290| 28 79 5f 6c 6f 6f 70 25 | 29 2b 3d a4 63 68 28 78 |(y_loop%|)+=.ch(x|
|000062a0| 5f 6c 6f 6f 70 25 2c 79 | 5f 6c 6f 6f 70 25 29 3a |_loop%,y|_loop%):|
|000062b0| ed 0d 27 74 05 ed 0d 27 | 7e 29 52 24 3d bd 32 33 |..'t...'|~)R$=.23|
|000062c0| 2b bd 33 32 2b c4 38 2c | bd 30 29 3a 43 24 28 33 |+.32+.8,|.0):C$(3|
|000062d0| 29 2b 3d 52 24 3a 43 24 | 28 38 29 2b 3d 52 24 0d |)+=R$:C$|(8)+=R$.|
|000062e0| 27 88 05 e1 0d 27 92 05 | 3a 0d 27 9c 1b dd 20 a4 |'....'..|:.'... .|
|000062f0| 69 6e 69 74 5f 6d 73 67 | 66 69 6c 65 28 66 6e 61 |init_msg|file(fna|
|00006300| 6d 65 24 29 0d 27 a6 11 | ea 20 6d 73 67 5f 73 74 |me$).'..|. msg_st|
|00006310| 72 75 63 74 25 0d 27 b0 | 26 c8 99 20 22 4d 65 73 |ruct%.'.|&.. "Mes|
|00006320| 73 61 67 65 54 72 61 6e | 73 5f 46 69 6c 65 49 6e |sageTran|s_FileIn|
|00006330| 66 6f 22 2c 2c 66 6e 61 | 6d 65 24 0d 27 ba 33 c8 |fo",,fna|me$.'.3.|
|00006340| 99 20 22 4f 53 5f 4d 6f | 64 75 6c 65 22 2c 36 2c |. "OS_Mo|dule",6,|
|00006350| 2c 2c 31 37 2b a9 28 66 | 6e 61 6d 65 24 29 20 b8 |,,17+.(f|name$) .|
|00006360| 20 2c 2c 6d 73 67 5f 73 | 74 72 75 63 74 25 0d 27 | ,,msg_s|truct%.'|
|00006370| c4 1c 24 28 6d 73 67 5f | 73 74 72 75 63 74 25 2b |..$(msg_|struct%+|
|00006380| 31 36 29 3d 66 6e 61 6d | 65 24 0d 27 ce 39 c8 99 |16)=fnam|e$.'.9..|
|00006390| 20 22 4d 65 73 73 61 67 | 65 54 72 61 6e 73 5f 4f | "Messag|eTrans_O|
|000063a0| 70 65 6e 46 69 6c 65 22 | 2c 6d 73 67 5f 73 74 72 |penFile"|,msg_str|
|000063b0| 75 63 74 25 2c 6d 73 67 | 5f 73 74 72 75 63 74 25 |uct%,msg|_struct%|
|000063c0| 2b 31 36 0d 27 d8 10 3d | 6d 73 67 5f 73 74 72 75 |+16.'..=|msg_stru|
|000063d0| 63 74 25 0d 27 e2 05 3a | 0d 27 ec 23 dd 20 a4 6c |ct%.'..:|.'.#. .l|
|000063e0| 6f 6f 6b 75 70 5f 6d 73 | 67 28 74 6f 6b 24 2c 6d |ookup_ms|g(tok$,m|
|000063f0| 73 67 5f 73 74 72 75 63 | 74 25 29 0d 27 f6 11 ea |sg_struc|t%).'...|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
