00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 05 3a 0d 00  1e 1e de 20 74 61 73 6b  |e....:..... task|
00000020  69 64 25 34 3a 24 74 61  73 6b 69 64 25 3d 22 54  |id%4:$taskid%="T|
00000030  41 53 4b 22 0d 00 28 2d  ee 20 85 20 c8 99 22 57  |ASK"..(-. . .."W|
00000040  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a f6  |imp_CloseDown":.|
00000050  3a f1 22 20 61 74 20 6c  69 6e 65 20 22 3b 9e 3a  |:." at line ";.:|
00000060  e0 0d 00 32 42 c8 99 20  22 57 69 6d 70 5f 49 6e  |...2B.. "Wimp_In|
00000070  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 74  |itialise",200,!t|
00000080  61 73 6b 69 64 25 2c 22  53 63 69 65 6e 74 69 66  |askid%,"Scientif|
00000090  69 63 20 43 61 6c 63 22  20 b8 20 76 65 72 73 69  |ic Calc" . versi|
000000a0  6f 6e 25 0d 00 3c 4d 60  77 62 63 6f 6c 3d 31 30  |on%..<M`wbcol=10|
000000b0  3a 60 74 62 63 6f 6c 3d  31 30 3a 60 73 63 6f 3d  |:`tbcol=10:`sco=|
000000c0  34 3a 60 6d 62 63 6f 6c  3d 30 3a 60 77 66 63 6f  |4:`mbcol=0:`wfco|
000000d0  6c 3d 26 37 3a 60 74 66  63 6f 6c 3d 37 3a 60 73  |l=&7:`tfcol=7:`s|
000000e0  63 69 3d 26 44 3a 60 74  62 63 6f 6c 32 3d 26 43  |ci=&D:`tbcol2=&C|
000000f0  0d 00 46 10 62 75 66 73  69 7a 65 25 3d 35 30 30  |..F.bufsize%=500|
00000100  0d 00 50 64 de 20 71 25  20 26 37 30 30 2c 63 61  |..Pd. q% &700,ca|
00000110  72 65 74 73 74 6f 72 65  25 20 32 38 2c 74 65 6d  |retstore% 28,tem|
00000120  70 25 20 62 75 66 73 69  7a 65 25 2c 62 75 66 66  |p% bufsize%,buff|
00000130  65 72 25 20 26 33 30 30  2c 65 6e 64 62 75 66 25  |er% &300,endbuf%|
00000140  20 2d 31 3a 63 75 72 62  75 66 25 3d 62 75 66 66  | -1:curbuf%=buff|
00000150  65 72 25 3a 63 61 72 65  74 73 74 6f 72 65 25 21  |er%:caretstore%!|
00000160  30 3d 2d 31 0d 00 5a 05  3a 0d 00 64 32 53 25 3d  |0=-1..Z.:..d2S%=|
00000170  8e 22 3c 43 61 6c 63 75  6c 61 74 6f 72 24 44 69  |."<Calculator$Di|
00000180  72 3e 2e 53 70 72 69 74  65 73 22 3a 54 25 3d a2  |r>.Sprites":T%=.|
00000190  23 53 25 2b 31 36 3a d9  23 53 25 0d 00 6e 11 de  |#S%+16:.#S%..n..|
000001a0  20 73 70 72 69 74 65 73  25 20 54 25 0d 00 78 1e  | sprites% T%..x.|
000001b0  21 73 70 72 69 74 65 73  25 3d 54 25 3a 73 70 72  |!sprites%=T%:spr|
000001c0  69 74 65 73 25 21 38 3d  31 32 0d 00 82 22 c8 99  |ites%!8=12..."..|
000001d0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
000001e0  31 30 39 2c 73 70 72 69  74 65 73 25 0d 00 8c 3d  |109,sprites%...=|
000001f0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000200  2c 26 31 30 41 2c 73 70  72 69 74 65 73 25 2c 22  |,&10A,sprites%,"|
00000210  3c 43 61 6c 63 75 6c 61  74 6f 72 24 44 69 72 3e  |<Calculator$Dir>|
00000220  2e 53 70 72 69 74 65 73  22 0d 00 96 14 69 63 63  |.Sprites"....icc|
00000230  61 6c 63 25 3d a4 69 63  6f 6e 62 61 72 0d 00 a0  |alc%=.iconbar...|
00000240  05 3a 0d 00 aa 33 53 25  3d 8e 22 3c 43 61 6c 63  |.:...3S%=."<Calc|
00000250  75 6c 61 74 6f 72 24 44  69 72 3e 2e 48 65 6c 70  |ulator$Dir>.Help|
00000260  54 65 78 74 22 3a 54 25  3d a2 23 53 25 2b 31 36  |Text":T%=.#S%+16|
00000270  3a d9 23 53 25 0d 00 b4  0e de 20 68 65 6c 70 25  |:.#S%..... help%|
00000280  20 54 25 0d 00 be 47 c8  99 20 22 4f 53 5f 46 69  | T%...G.. "OS_Fi|
00000290  6c 65 22 2c 26 46 46 2c  22 3c 43 61 6c 63 75 6c  |le",&FF,"<Calcul|
000002a0  61 74 6f 72 24 44 69 72  3e 2e 48 65 6c 70 54 65  |ator$Dir>.HelpTe|
000002b0  78 74 22 2c 68 65 6c 70  25 2c 30 20 b8 20 2c 2c  |xt",help%,0 . ,,|
000002c0  2c 2c 68 65 6c 70 6c 65  6e 25 0d 00 c8 0e 6f 6c  |,,helplen%....ol|
000002d0  64 68 65 6c 70 3d 2d 31  0d 00 d2 05 3a 0d 00 dc  |dhelp=-1....:...|
000002e0  32 53 25 3d 8e 22 3c 43  61 6c 63 75 6c 61 74 6f  |2S%=."<Calculato|
000002f0  72 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 3a  |r$Dir>.Sprites":|
00000300  54 25 3d a2 23 53 25 2b  31 36 3a d9 23 53 25 0d  |T%=.#S%+16:.#S%.|
00000310  00 e6 17 de 20 6b 65 79  74 72 61 6e 73 61 72 72  |.... keytransarr|
00000320  61 79 25 20 54 25 0d 00  f0 45 e3 20 6c 6f 6f 70  |ay% T%...E. loop|
00000330  25 3d 6b 65 79 74 72 61  6e 73 61 72 72 61 79 25  |%=keytransarray%|
00000340  20 b8 20 6b 65 79 74 72  61 6e 73 61 72 72 61 79  | . keytransarray|
00000350  25 2b 54 25 20 88 20 34  3a 21 6c 6f 6f 70 25 3d  |%+T% . 4:!loop%=|
00000360  26 46 46 46 46 46 46 46  46 3a ed 0d 00 fa 41 c8  |&FFFFFFFF:....A.|
00000370  99 20 22 4f 53 5f 46 69  6c 65 22 2c 26 46 46 2c  |. "OS_File",&FF,|
00000380  22 3c 43 61 6c 63 75 6c  61 74 6f 72 24 44 69 72  |"<Calculator$Dir|
00000390  3e 2e 4b 65 79 54 61 62  6c 65 22 2c 6b 65 79 74  |>.KeyTable",keyt|
000003a0  72 61 6e 73 61 72 72 61  79 25 2c 30 0d 01 04 05  |ransarray%,0....|
000003b0  3a 0d 01 0e 37 c8 99 20  22 57 69 6d 70 5f 4f 70  |:...7.. "Wimp_Op|
000003c0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 43  |enTemplate",,"<C|
000003d0  61 6c 63 75 6c 61 74 6f  72 24 44 69 72 3e 2e 54  |alculator$Dir>.T|
000003e0  65 6d 70 6c 61 74 65 22  0d 01 18 29 ee 20 85 20  |emplate"...). . |
000003f0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00000400  6d 70 6c 61 74 65 22 3a  f2 65 72 72 6f 72 62 6f  |mplate":.errorbo|
00000410  78 0d 01 22 12 64 69 73  70 6c 61 79 25 3d 74 65  |x..".display%=te|
00000420  6d 70 25 0d 01 2c 4f c8  99 20 22 57 69 6d 70 5f  |mp%..,O.. "Wimp_|
00000430  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000440  25 2c 74 65 6d 70 25 2c  74 65 6d 70 25 2b 62 75  |%,temp%,temp%+bu|
00000450  66 73 69 7a 65 25 2c 2d  31 2c 22 63 61 6c 63 75  |fsize%,-1,"calcu|
00000460  6c 61 74 6f 72 22 2c 30  20 b8 20 2c 2c 74 65 6d  |lator",0 . ,,tem|
00000470  70 25 0d 01 36 12 71 25  21 36 34 3d 73 70 72 69  |p%..6.q%!64=spri|
00000480  74 65 73 25 0d 01 40 26  c8 99 20 22 57 69 6d 70  |tes%..@&.. "Wimp|
00000490  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000004a0  71 25 20 b8 20 63 61 6c  63 25 0d 01 4a 42 c8 99  |q% . calc%..JB..|
000004b0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000004c0  61 74 65 22 2c 2c 71 25  2c 74 65 6d 70 25 2c 64  |ate",,q%,temp%,d|
000004d0  69 73 70 6c 61 79 25 2b  62 75 66 73 69 7a 65 25  |isplay%+bufsize%|
000004e0  2c 2d 31 2c 22 49 6e 66  6f 22 2c 30 0d 01 54 12  |,-1,"Info",0..T.|
000004f0  71 25 21 36 34 3d 73 70  72 69 74 65 73 25 0d 01  |q%!64=sprites%..|
00000500  5e 26 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |^&.. "Wimp_Creat|
00000510  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 69  |eWindow",,q% . i|
00000520  6e 66 6f 25 0d 01 68 1b  c8 99 20 22 57 69 6d 70  |nfo%..h... "Wimp|
00000530  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000540  01 72 05 3a 0d 01 7c 10  ee 85 20 f2 65 72 72 6f  |.r.:..|... .erro|
00000550  72 62 6f 78 0d 01 86 05  3a 0d 01 90 1b f2 63 61  |rbox....:.....ca|
00000560  6c 63 69 6e 69 74 3a 6b  65 79 73 74 61 74 75 73  |lcinit:keystatus|
00000570  3d 35 31 32 0d 01 9a 05  3a 0d 01 a4 45 c8 99 20  |=512....:...E.. |
00000580  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00000590  2d 31 3a f2 67 65 74 70  6f 69 6e 74 65 72 3a 78  |-1:.getpointer:x|
000005a0  6f 25 3d 6d 6f 75 73 65  78 25 3a 79 6f 25 3d 6d  |o%=mousex%:yo%=m|
000005b0  6f 75 73 65 79 25 3a 6f  70 65 6e 25 3d a3 0d 01  |ousey%:open%=...|
000005c0  ae 05 f5 0d 01 b8 1c c8  99 20 22 57 69 6d 70 5f  |......... "Wimp_|
000005d0  50 6f 6c 6c 22 2c 31 2c  71 25 20 b8 20 41 25 0d  |Poll",1,q% . A%.|
000005e0  01 c2 0b c8 8e 20 41 25  20 ca 0d 01 cc 1c c9 20  |..... A% ...... |
000005f0  31 20 3a f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |1 :.redraw_windo|
00000600  77 28 21 71 25 29 0d 01  d6 42 c9 20 32 20 3a f2  |w(!q%)...B. 2 :.|
00000610  6f 70 65 6e 5f 77 69 6e  64 6f 77 28 21 71 25 2c  |open_window(!q%,|
00000620  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 2c  |q%!4,q%!8,q%!12,|
00000630  71 25 21 31 36 2c 71 25  21 32 30 2c 71 25 21 32  |q%!16,q%!20,q%!2|
00000640  34 2c 71 25 21 32 38 29  0d 01 e0 1b c9 20 33 20  |4,q%!28)..... 3 |
00000650  3a f2 63 6c 6f 73 65 61  77 69 6e 64 6f 77 28 21  |:.closeawindow(!|
00000660  71 25 29 0d 01 ea 35 c9  20 36 20 3a f2 63 68 65  |q%)...5. 6 :.che|
00000670  63 6b 6d 6f 75 73 65 28  21 71 25 2c 71 25 21 34  |ckmouse(!q%,q%!4|
00000680  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00000690  36 2c 71 25 21 32 30 29  0d 01 f4 2a c9 20 38 20  |6,q%!20)...*. 8 |
000006a0  3a e7 20 71 25 21 30 3d  63 61 6c 63 25 20 8c 20  |:. q%!0=calc% . |
000006b0  f2 6b 65 79 70 72 65 73  73 65 64 28 71 25 21 32  |.keypressed(q%!2|
000006c0  34 29 0d 01 fe 19 c9 20  39 20 3a f2 6d 65 6e 75  |4)..... 9 :.menu|
000006d0  73 65 6c 65 63 74 28 71  25 29 20 0d 02 08 18 c9  |select(q%) .....|
000006e0  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 28  | 17,18:.receive(|
000006f0  71 25 29 0d 02 12 05 cb  0d 02 1c 07 fd 20 a3 0d  |q%).......... ..|
00000700  02 26 05 e0 0d 02 30 05  3a 0d 02 3a 12 dd 20 f2  |.&....0.:..:.. .|
00000710  72 65 63 65 69 76 65 28  71 25 29 0d 02 44 0e c8  |receive(q%)..D..|
00000720  8e 20 71 25 21 31 36 20  ca 0d 02 4e 11 c9 20 30  |. q%!16 ...N.. 0|
00000730  3a f2 66 69 6e 69 73 68  3a e0 0d 02 58 0a c9 20  |:.finish:...X.. |
00000740  26 35 30 32 0d 02 62 18  e7 20 71 25 21 33 36 20  |&502..b.. q%!36 |
00000750  3c 3e 20 6f 6c 64 68 65  6c 70 20 8c 0d 02 6c 1d  |<> oldhelp ...l.|
00000760  6f 6c 64 68 65 6c 70 3d  71 25 21 33 36 3a 6f 6c  |oldhelp=q%!36:ol|
00000770  64 68 65 6c 70 24 3d 22  22 0d 02 76 3d e7 20 71  |dhelp$=""..v=. q|
00000780  25 21 33 32 3d 2d 32 20  8c 20 6f 6c 64 68 65 6c  |%!32=-2 . oldhel|
00000790  70 24 3d a4 68 65 6c 70  5f 74 65 78 74 28 68 65  |p$=.help_text(he|
000007a0  6c 70 25 2c 68 65 6c 70  6c 65 6e 25 2b 68 65 6c  |lp%,helplen%+hel|
000007b0  70 25 2c 2d 32 29 0d 02  80 44 e7 20 71 25 21 33  |p%,-2)...D. q%!3|
000007c0  32 3d 20 63 61 6c 63 25  20 8c 20 6f 6c 64 68 65  |2= calc% . oldhe|
000007d0  6c 70 24 3d a4 68 65 6c  70 5f 74 65 78 74 28 68  |lp$=.help_text(h|
000007e0  65 6c 70 25 2c 68 65 6c  70 6c 65 6e 25 2b 68 65  |elp%,helplen%+he|
000007f0  6c 70 25 2c 71 25 21 33  36 29 0d 02 8a 05 cd 0d  |lp%,q%!36)......|
00000800  02 94 1b f2 73 65 6e 64  5f 68 65 6c 70 28 71 25  |....send_help(q%|
00000810  2c 6f 6c 64 68 65 6c 70  24 29 0d 02 9e 05 cb 0d  |,oldhelp$)......|
00000820  02 a8 05 e1 0d 02 b2 05  3a 0d 02 bc 37 dd 20 f2  |........:...7. .|
00000830  63 68 65 63 6b 6d 6f 75  73 65 28 6d 6f 75 73 65  |checkmouse(mouse|
00000840  78 25 2c 6d 6f 75 73 65  79 25 2c 62 25 2c 68 61  |x%,mousey%,b%,ha|
00000850  6e 64 6c 65 25 2c 69 63  6f 6e 25 2c 6f 62 25 29  |ndle%,icon%,ob%)|
00000860  0d 02 c6 09 ea 20 6b 65  79 0d 02 d0 0f e7 28 62  |..... key.....(b|
00000870  25 80 32 29 3c 3e 30 8c  0d 02 da 10 c8 8e 20 68  |%.2)<>0....... h|
00000880  61 6e 64 6c 65 25 20 ca  0d 02 e4 4d c9 20 2d 32  |andle% ....M. -2|
00000890  3a 20 f2 64 6f 6d 65 6e  75 28 31 30 31 2c 62 75  |: .domenu(101,bu|
000008a0  66 66 65 72 25 2c 22 3e  49 6e 66 6f 2e 69 6e 66  |ffer%,">Info.inf|
000008b0  6f 25 2c 51 75 69 74 22  2c 22 43 61 6c 63 75 6c  |o%,Quit","Calcul|
000008c0  61 74 6f 72 22 2c 6d 6f  75 73 65 78 25 2d 36 34  |ator",mousex%-64|
000008d0  2c 31 37 36 29 0d 02 ee  41 c9 20 63 61 6c 63 25  |,176)...A. calc%|
000008e0  3a 20 f2 64 6f 6d 65 6e  75 28 31 30 32 2c 62 75  |: .domenu(102,bu|
000008f0  66 66 65 72 25 2c 6d 61  69 6e 24 2c 22 43 61 6c  |ffer%,main$,"Cal|
00000900  63 22 2c 6d 6f 75 73 65  78 25 2d 36 34 2c 6d 6f  |c",mousex%-64,mo|
00000910  75 73 65 79 25 29 0d 02  f8 05 cb 0d 03 02 05 cc  |usey%)..........|
00000920  0d 03 0c 1e e7 68 61 6e  64 6c 65 25 3e 2d 31 8c  |.....handle%>-1.|
00000930  f2 67 65 74 77 28 68 61  6e 64 6c 65 25 29 0d 03  |.getw(handle%)..|
00000940  16 10 c8 8e 20 68 61 6e  64 6c 65 25 20 ca 0d 03  |.... handle% ...|
00000950  20 0c c9 20 63 61 6c 63  25 3a 0d 03 2a 11 c8 99  | .. calc%:..*...|
00000960  20 26 34 30 30 44 33 2c  2c 71 25 0d 03 34 49 e7  | &400D3,,q%..4I.|
00000970  20 71 25 21 30 3c 3e 63  61 6c 63 25 20 8c 20 e3  | q%!0<>calc% . .|
00000980  20 6c 6f 6f 70 25 3d 30  20 b8 20 32 34 20 88 20  | loop%=0 . 24 . |
00000990  34 3a 21 28 63 61 72 65  74 73 74 6f 72 65 25 2b  |4:!(caretstore%+|
000009a0  6c 6f 6f 70 25 29 3d 21  28 71 25 2b 6c 6f 6f 70  |loop%)=!(q%+loop|
000009b0  25 29 3a ed 0d 03 3e 34  c8 99 20 22 57 69 6d 70  |%):...>4.. "Wimp|
000009c0  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
000009d0  6e 22 2c 63 61 6c 63 25  2c 2d 31 2c 30 2c 30 2c  |n",calc%,-1,0,0,|
000009e0  31 3c 3c 32 35 2c 2d 31  0d 03 48 5d e7 20 69 63  |1<<25,-1..H]. ic|
000009f0  6f 6e 25 3c 3e 31 37 20  80 20 28 69 63 6f 6e 25  |on%<>17 . (icon%|
00000a00  3c 33 35 20 84 20 69 63  6f 6e 25 3e 33 39 29 20  |<35 . icon%>39) |
00000a10  80 20 28 69 63 6f 6e 25  3c 34 36 20 84 20 69 63  |. (icon%<46 . ic|
00000a20  6f 6e 25 3e 34 37 29 20  8c 20 f2 66 6c 61 73 68  |on%>47) . .flash|
00000a30  5f 69 63 6f 6e 28 63 61  6c 63 25 2c 69 63 6f 6e  |_icon(calc%,icon|
00000a40  25 2c 71 25 29 0d 03 52  07 ea 20 85 0d 03 5c 1f  |%,q%)..R.. ...\.|
00000a50  ee 20 85 20 ea 20 65 72  72 6f 72 66 6c 61 67 25  |. . . errorflag%|
00000a60  3d b9 3a 69 63 6f 6e 25  3d 2d 31 0d 03 66 10 e7  |=.:icon%=-1..f..|
00000a70  20 28 62 25 20 80 20 34  29 20 8c 0d 03 70 12 e7  | (b% . 4) ...p..|
00000a80  20 65 72 72 6f 72 66 6c  61 67 25 20 8c 0d 03 7a  | errorflag% ...z|
00000a90  18 e7 20 69 63 6f 6e 25  3d 34 34 20 f2 61 6c 6c  |.. icon%=44 .all|
00000aa0  63 6c 65 61 72 0d 03 84  05 cc 0d 03 8e 33 e7 20  |clear........3. |
00000ab0  69 63 6f 6e 25 3e 39 20  80 20 69 63 6f 6e 25 3c  |icon%>9 . icon%<|
00000ac0  31 36 20 80 20 62 61 73  65 25 3d 31 36 20 8c 20  |16 . base%=16 . |
00000ad0  f2 64 69 67 69 74 28 69  63 6f 6e 25 29 0d 03 98  |.digit(icon%)...|
00000ae0  0e c8 8e 20 69 63 6f 6e  25 20 ca 0d 03 a2 09 c9  |... icon% ......|
00000af0  20 2d 31 3a 0d 03 ac 19  c9 20 30 2c 31 2c 32 2c  | -1:..... 0,1,2,|
00000b00  33 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 0d 03 b6  |3,4,5,6,7,8,9...|
00000b10  11 e7 20 65 78 70 6f 6e  65 6e 74 25 20 8c 0d 03  |.. exponent% ...|
00000b20  c0 31 e7 20 69 63 6f 6e  25 3c 31 30 20 8c 20 65  |.1. icon%<10 . e|
00000b30  78 70 24 3d c2 22 30 30  22 2b 65 78 70 24 2b bd  |xp$=."00"+exp$+.|
00000b40  28 69 63 6f 6e 25 2b 97  22 30 22 29 2c 32 29 0d  |(icon%+."0"),2).|
00000b50  03 ca 05 cc 0d 03 d4 28  e7 20 62 61 73 65 25 3c  |.......(. base%<|
00000b60  3e 32 20 84 20 69 63 6f  6e 25 3c 32 20 8c 20 f2  |>2 . icon%<2 . .|
00000b70  64 69 67 69 74 28 69 63  6f 6e 25 29 0d 03 de 05  |digit(icon%)....|
00000b80  cd 0d 03 e8 13 c9 20 34  34 3a 20 f2 61 6c 6c 63  |...... 44: .allc|
00000b90  6c 65 61 72 0d 03 f2 16  c9 20 33 33 3a 20 e7 65  |lear..... 33: .e|
00000ba0  78 70 6f 6e 65 6e 74 25  20 8c 0d 03 fc 0e 65 73  |xponent% .....es|
00000bb0  67 6e 3d 2d 65 73 67 6e  0d 04 06 05 cc 0d 04 10  |gn=-esgn........|
00000bc0  35 e7 20 62 61 73 65 25  3d 31 30 20 8c 20 72 65  |5. base%=10 . re|
00000bd0  67 69 73 74 65 72 3d 2d  72 65 67 69 73 74 65 72  |gister=-register|
00000be0  3a 65 6e 74 72 79 24 3d  22 2d 22 2b 65 6e 74 72  |:entry$="-"+entr|
00000bf0  79 24 0d 04 1a 2e e7 20  62 61 73 65 25 3d 31 36  |y$..... base%=16|
00000c00  20 8c 20 72 65 67 69 73  74 65 72 3d 2d 72 65 67  | . register=-reg|
00000c10  69 73 74 65 72 3a 65 6e  74 72 79 24 3d 22 30 22  |ister:entry$="0"|
00000c20  0d 04 24 2e e7 20 62 61  73 65 25 3d 32 20 20 8c  |..$.. base%=2  .|
00000c30  20 72 65 67 69 73 74 65  72 3d 2d 72 65 67 69 73  | register=-regis|
00000c40  74 65 72 3a 65 6e 74 72  79 24 3d 22 30 22 0d 04  |ter:entry$="0"..|
00000c50  2e 05 cd 0d 04 38 05 cd  0d 04 42 05 7f 0d 04 4c  |.....8....B....L|
00000c60  13 e7 20 65 78 70 6f 6e  65 6e 74 25 3d b9 20 8c  |.. exponent%=. .|
00000c70  0d 04 56 1a 65 78 70 6f  6e 65 6e 74 25 20 3d 20  |..V.exponent% = |
00000c80  65 73 67 6e 2a bb 65 78  70 24 0d 04 60 29 72 65  |esgn*.exp$..`)re|
00000c90  67 69 73 74 65 72 3d a4  6e 69 63 65 45 58 50 28  |gister=.niceEXP(|
00000ca0  72 65 67 69 73 74 65 72  2c 65 78 70 6f 6e 65 6e  |register,exponen|
00000cb0  74 25 29 0d 04 6a 0f 65  78 70 6f 6e 65 6e 74 25  |t%)..j.exponent%|
00000cc0  3d a3 0d 04 74 05 cd 0d  04 7e 0e c8 8e 20 69 63  |=...t....~... ic|
00000cd0  6f 6e 25 20 ca 0d 04 88  10 c9 20 31 36 3a 20 f2  |on% ...... 16: .|
00000ce0  70 6f 69 6e 74 0d 04 92  18 c9 20 32 39 3a 20 f2  |point..... 29: .|
00000cf0  6f 70 65 72 61 74 6f 72  28 22 3d 22 29 0d 04 9c  |operator("=")...|
00000d00  18 c9 20 33 30 3a 20 f2  6f 70 65 72 61 74 6f 72  |.. 30: .operator|
00000d10  28 22 2b 22 29 0d 04 a6  18 c9 20 32 30 3a 20 f2  |("+")..... 20: .|
00000d20  6f 70 65 72 61 74 6f 72  28 22 2d 22 29 0d 04 b0  |operator("-")...|
00000d30  18 c9 20 33 32 3a 20 f2  6f 70 65 72 61 74 6f 72  |.. 32: .operator|
00000d40  28 22 2a 22 29 0d 04 ba  18 c9 20 33 31 3a 20 f2  |("*")..... 31: .|
00000d50  6f 70 65 72 61 74 6f 72  28 22 2f 22 29 0d 04 c4  |operator("/")...|
00000d60  10 c9 20 32 38 3a 20 f2  63 6c 65 61 72 0d 04 ce  |.. 28: .clear...|
00000d70  26 c9 20 32 31 3a 20 6d  65 6d 6f 72 79 20 20 3d  |&. 21: memory  =|
00000d80  72 65 67 69 73 74 65 72  3a 65 6e 74 72 79 24 3d  |register:entry$=|
00000d90  22 30 22 0d 04 d8 26 c9  20 32 32 3a 20 6d 65 6d  |"0"...&. 22: mem|
00000da0  6f 72 79 20 2b 3d 72 65  67 69 73 74 65 72 3a 65  |ory +=register:e|
00000db0  6e 74 72 79 24 3d 22 30  22 0d 04 e2 18 c9 20 32  |ntry$="0"..... 2|
00000dc0  35 3a 20 f2 6f 70 65 72  61 74 6f 72 28 22 28 22  |5: .operator("("|
00000dd0  29 0d 04 ec 18 c9 20 32  36 3a 20 f2 6f 70 65 72  |)..... 26: .oper|
00000de0  61 74 6f 72 28 22 29 22  29 0d 04 f6 18 c9 20 32  |ator(")")..... 2|
00000df0  37 3a 20 f2 6f 70 65 72  61 74 6f 72 28 22 5e 22  |7: .operator("^"|
00000e00  29 0d 05 00 27 c9 20 34  30 3a 20 72 65 67 69 73  |)...'. 40: regis|
00000e10  74 65 72 3d ac 72 65 67  69 73 74 65 72 3a 65 6e  |ter=.register:en|
00000e20  74 72 79 24 3d 22 30 22  0d 05 0a 1a c9 20 34 31  |try$="0"..... 41|
00000e30  3a 20 f2 6f 70 65 72 61  74 6f 72 28 22 41 4e 44  |: .operator("AND|
00000e40  22 29 0d 05 14 19 c9 20  34 32 3a 20 f2 6f 70 65  |")..... 42: .ope|
00000e50  72 61 74 6f 72 28 22 4f  52 22 29 0d 05 1e 1a c9  |rator("OR").....|
00000e60  20 34 33 3a 20 f2 6f 70  65 72 61 74 6f 72 28 22  | 43: .operator("|
00000e70  45 4f 52 22 29 0d 05 28  24 c9 20 32 34 3a 20 72  |EOR")..($. 24: r|
00000e80  65 67 69 73 74 65 72 3d  6d 65 6d 6f 72 79 3a 65  |egister=memory:e|
00000e90  6e 74 72 79 24 3d 22 30  22 0d 05 32 05 cb 0d 05  |ntry$="0"..2....|
00000ea0  3c 10 e7 20 62 61 73 65  25 3d 31 30 20 8c 0d 05  |<.. base%=10 ...|
00000eb0  46 0e c8 8e 20 69 63 6f  6e 25 20 ca 0d 05 50 18  |F... icon% ...P.|
00000ec0  c9 20 31 38 3a 20 e7 20  bb 28 65 6e 74 72 79 24  |. 18: . .(entry$|
00000ed0  29 3d 30 8c 0d 05 5a 18  72 65 67 69 73 74 65 72  |)=0...Z.register|
00000ee0  3d 33 2e 31 34 31 35 39  32 36 35 34 0d 05 64 05  |=3.141592654..d.|
00000ef0  cc 0d 05 6e 0f 65 78 70  6f 6e 65 6e 74 25 3d b9  |...n.exponent%=.|
00000f00  0d 05 78 29 64 69 73 70  6c 61 79 24 3d c0 c2 a4  |..x)display$=...|
00000f10  64 69 73 70 6c 61 79 28  72 65 67 69 73 74 65 72  |display(register|
00000f20  29 2c 31 34 29 2c 31 31  29 0d 05 82 14 65 78 70  |),14),11)....exp|
00000f30  24 3d 22 30 30 22 3a 65  73 67 6e 3d 31 0d 05 8c  |$="00":esgn=1...|
00000f40  05 cd 0d 05 96 32 c9 20  31 39 3a 20 72 65 67 69  |.....2. 19: regi|
00000f50  73 74 65 72 3d a4 66 61  63 74 6f 72 69 61 6c 28  |ster=.factorial(|
00000f60  72 65 67 69 73 74 65 72  29 3a 65 6e 74 72 79 24  |register):entry$|
00000f70  3d 22 30 22 0d 05 a0 2a  c9 20 31 33 3a 20 72 65  |="0"...*. 13: re|
00000f80  67 69 73 74 65 72 3d 28  31 2f 72 65 67 69 73 74  |gister=(1/regist|
00000f90  65 72 29 3a 65 6e 74 72  79 24 3d 22 30 22 0d 05  |er):entry$="0"..|
00000fa0  aa 27 c9 20 32 33 3a 20  72 65 67 69 73 74 65 72  |.'. 23: register|
00000fb0  3d b6 72 65 67 69 73 74  65 72 3a 65 6e 74 72 79  |=.register:entry|
00000fc0  24 3d 22 30 22 0d 05 b4  39 c9 20 31 30 3a 20 72  |$="0"...9. 10: r|
00000fd0  65 67 69 73 74 65 72 3d  a0 28 22 53 49 4e 22 2b  |egister=.("SIN"+|
00000fe0  61 6e 67 6c 65 69 6e 24  2b c3 72 65 67 69 73 74  |anglein$+.regist|
00000ff0  65 72 29 3a 65 6e 74 72  79 24 3d 22 30 22 0d 05  |er):entry$="0"..|
00001000  be 39 c9 20 31 31 3a 20  72 65 67 69 73 74 65 72  |.9. 11: register|
00001010  3d a0 28 22 43 4f 53 22  2b 61 6e 67 6c 65 69 6e  |=.("COS"+anglein|
00001020  24 2b c3 72 65 67 69 73  74 65 72 29 3a 65 6e 74  |$+.register):ent|
00001030  72 79 24 3d 22 30 22 0d  05 c8 39 c9 20 31 32 3a  |ry$="0"...9. 12:|
00001040  20 72 65 67 69 73 74 65  72 3d a0 28 22 54 41 4e  | register=.("TAN|
00001050  22 2b 61 6e 67 6c 65 69  6e 24 2b c3 72 65 67 69  |"+anglein$+.regi|
00001060  73 74 65 72 29 3a 65 6e  74 72 79 24 3d 22 30 22  |ster):entry$="0"|
00001070  0d 05 d2 27 c9 20 31 35  3a 20 72 65 67 69 73 74  |...'. 15: regist|
00001080  65 72 3d aa 72 65 67 69  73 74 65 72 3a 65 6e 74  |er=.register:ent|
00001090  72 79 24 3d 22 30 22 0d  05 dc 27 c9 20 31 34 3a  |ry$="0"...'. 14:|
000010a0  20 72 65 67 69 73 74 65  72 3d ab 72 65 67 69 73  | register=.regis|
000010b0  74 65 72 3a 65 6e 74 72  79 24 3d 22 30 22 0d 05  |ter:entry$="0"..|
000010c0  e6 67 c9 20 34 38 3a 20  f2 6f 70 65 72 61 74 6f  |.g. 48: .operato|
000010d0  72 28 22 3d 22 29 3a 72  65 67 69 73 74 65 72 3d  |r("="):register=|
000010e0  a4 6e 69 63 65 45 58 50  28 bb c0 a4 64 69 73 70  |.niceEXP(...disp|
000010f0  6c 61 79 28 72 65 67 69  73 74 65 72 29 2c 33 32  |lay(register),32|
00001100  29 2c bb c2 a4 64 69 73  70 6c 61 79 28 72 65 67  |),...display(reg|
00001110  69 73 74 65 72 29 2c 32  29 29 3a 65 6e 74 72 79  |ister),2)):entry|
00001120  24 3d 22 30 22 0d 05 f0  05 cb 0d 05 fa 05 cd 0d  |$="0"...........|
00001130  06 04 05 cb 0d 06 0e 05  cc 0d 06 18 12 e7 20 65  |.............. e|
00001140  72 72 6f 72 66 6c 61 67  25 20 8c 0d 06 22 35 e7  |rrorflag% ..."5.|
00001150  20 69 63 6f 6e 25 3d 34  34 20 f2 63 6c 65 61 72  | icon%=44 .clear|
00001160  3a f4 20 69 67 6e 6f 72  65 20 75 6e 74 69 6c 20  |:. ignore until |
00001170  65 72 72 6f 72 20 69 73  20 63 6c 65 61 72 65 64  |error is cleared|
00001180  0d 06 2c 05 cc 0d 06 36  0e c8 8e 20 69 63 6f 6e  |..,....6... icon|
00001190  25 20 ca 0d 06 40 27 c9  20 32 32 3a 20 6d 65 6d  |% ...@'. 22: mem|
000011a0  6f 72 79 20 2d 3d 20 72  65 67 69 73 74 65 72 3a  |ory -= register:|
000011b0  65 6e 74 72 79 24 3d 22  30 22 0d 06 4a 05 cb 0d  |entry$="0"..J...|
000011c0  06 54 10 e7 20 62 61 73  65 25 3d 31 30 20 8c 0d  |.T.. base%=10 ..|
000011d0  06 5e 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 06 68  |.^... icon% ...h|
000011e0  29 c9 20 31 38 3a 20 72  65 67 69 73 74 65 72 3d  |). 18: register=|
000011f0  33 2e 31 34 31 35 39 32  36 35 34 3a 65 6e 74 72  |3.141592654:entr|
00001200  79 24 3d 22 30 22 0d 06  72 29 c9 20 32 33 3a 20  |y$="0"..r). 23: |
00001210  72 65 67 69 73 74 65 72  3d 20 72 65 67 69 73 74  |register= regist|
00001220  65 72 5e 32 3a 65 6e 74  72 79 24 3d 22 30 22 0d  |er^2:entry$="0".|
00001230  06 7c 1b c9 20 32 37 3a  20 f2 6f 70 65 72 61 74  |.|.. 27: .operat|
00001240  6f 72 28 22 5e 28 31 2f  22 29 0d 06 86 39 c9 20  |or("^(1/")...9. |
00001250  31 30 3a 20 72 65 67 69  73 74 65 72 3d a0 28 61  |10: register=.(a|
00001260  6e 67 6c 65 6f 75 74 24  2b 22 41 53 4e 20 72 65  |ngleout$+"ASN re|
00001270  67 69 73 74 65 72 22 29  3a 65 6e 74 72 79 24 3d  |gister"):entry$=|
00001280  22 30 22 0d 06 90 39 c9  20 31 31 3a 20 72 65 67  |"0"...9. 11: reg|
00001290  69 73 74 65 72 3d a0 28  61 6e 67 6c 65 6f 75 74  |ister=.(angleout|
000012a0  24 2b 22 41 43 53 20 72  65 67 69 73 74 65 72 22  |$+"ACS register"|
000012b0  29 3a 65 6e 74 72 79 24  3d 22 30 22 0d 06 9a 39  |):entry$="0"...9|
000012c0  c9 20 31 32 3a 20 72 65  67 69 73 74 65 72 3d a0  |. 12: register=.|
000012d0  28 61 6e 67 6c 65 6f 75  74 24 2b 22 41 54 4e 20  |(angleout$+"ATN |
000012e0  72 65 67 69 73 74 65 72  22 29 3a 65 6e 74 72 79  |register"):entry|
000012f0  24 3d 22 30 22 0d 06 a4  32 c9 20 31 35 3a 20 72  |$="0"...2. 15: r|
00001300  65 67 69 73 74 65 72 3d  28 32 2e 37 31 38 32 38  |egister=(2.71828|
00001310  31 38 5e 72 65 67 69 73  74 65 72 29 3a 65 6e 74  |18^register):ent|
00001320  72 79 24 3d 22 30 22 0d  06 ae 2b c9 20 31 34 3a  |ry$="0"...+. 14:|
00001330  20 72 65 67 69 73 74 65  72 3d 28 31 30 5e 72 65  | register=(10^re|
00001340  67 69 73 74 65 72 29 3a  65 6e 74 72 79 24 3d 22  |gister):entry$="|
00001350  30 22 0d 06 b8 2a c9 20  34 38 3a 20 72 65 67 69  |0"...*. 48: regi|
00001360  73 74 65 72 3d b3 28 31  30 30 30 29 2f 31 30 30  |ster=.(1000)/100|
00001370  30 3a 65 6e 74 72 79 24  3d 22 30 22 0d 06 c2 05  |0:entry$="0"....|
00001380  cb 0d 06 cc 05 cd 0d 06  d6 05 cd 0d 06 e0 05 cd  |................|
00001390  0d 06 ea 0e f2 64 6f 64  69 73 70 6c 61 79 0d 06  |.....dodisplay..|
000013a0  f4 05 3a 0d 06 fe 36 c9  20 2d 32 3a e7 6f 70 65  |..:...6. -2:.ope|
000013b0  6e 25 20 f2 66 72 6f 6e  74 28 63 61 6c 63 25 29  |n% .front(calc%)|
000013c0  20 8b 20 f2 72 65 6f 70  65 6e 28 63 61 6c 63 25  | . .reopen(calc%|
000013d0  29 3a 6f 70 65 6e 25 3d  b9 0d 07 08 05 cb 0d 07  |):open%=........|
000013e0  12 05 cd 0d 07 1c 05 e1  0d 07 26 05 3a 0d 07 30  |..........&.:..0|
000013f0  10 dd 20 f2 64 6f 64 69  73 70 6c 61 79 0d 07 3a  |.. .dodisplay..:|
00001400  12 e7 20 65 72 72 6f 72  66 6c 61 67 25 20 8c 0d  |.. errorflag% ..|
00001410  07 44 3d e7 20 9f 3d 32  30 20 24 64 69 73 70 6c  |.D=. .=20 $displ|
00001420  61 79 25 3d 22 54 6f 6f  20 42 69 67 20 20 20 22  |ay%="Too Big   "|
00001430  2b bd 30 20 8b 24 64 69  73 70 6c 61 79 25 3d 22  |+.0 .$display%="|
00001440  45 72 72 6f 72 20 20 20  22 2b bd 30 0d 07 4e 05  |Error   "+.0..N.|
00001450  cc 0d 07 58 11 e7 20 65  78 70 6f 6e 65 6e 74 25  |...X.. exponent%|
00001460  20 8c 0d 07 62 35 24 64  69 73 70 6c 61 79 25 3d  | ...b5$display%=|
00001470  64 69 73 70 6c 61 79 24  2b c0 c0 c3 65 73 67 6e  |display$+...esgn|
00001480  2c 65 73 67 6e 2d 31 29  2b 22 20 22 2c 31 29 2b  |,esgn-1)+" ",1)+|
00001490  65 78 70 24 2b bd 30 0d  07 6c 05 cc 0d 07 76 25  |exp$+.0..l....v%|
000014a0  24 64 69 73 70 6c 61 79  25 3d a4 64 69 73 70 6c  |$display%=.displ|
000014b0  61 79 28 72 65 67 69 73  74 65 72 29 2b bd 28 30  |ay(register)+.(0|
000014c0  29 0d 07 80 05 cd 0d 07  8a 05 cd 0d 07 94 40 71  |).............@q|
000014d0  25 21 30 3d 63 61 6c 63  25 3a 71 25 21 34 3d 31  |%!0=calc%:q%!4=1|
000014e0  37 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |7:q%!8=0:q%!12=0|
000014f0  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
00001500  6e 53 74 61 74 65 22 2c  2c 71 25 0d 07 9e 05 e1  |nState",,q%.....|
00001510  0d 07 a8 05 3a 0d 07 b2  1c dd 20 f2 63 6c 6f 73  |....:..... .clos|
00001520  65 61 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |eawindow(handle%|
00001530  29 0d 07 bc 12 f2 67 65  74 77 28 68 61 6e 64 6c  |).....getw(handl|
00001540  65 25 29 0d 07 c6 1b 78  6f 25 3d 78 30 25 3a 79  |e%)....xo%=x0%:y|
00001550  6f 25 3d 79 30 25 3a 6f  70 65 6e 25 3d a3 0d 07  |o%=y0%:open%=...|
00001560  d0 1a f2 63 6c 6f 73 65  5f 77 69 6e 64 6f 77 28  |...close_window(|
00001570  68 61 6e 64 6c 65 25 29  0d 07 da 05 e1 0d 07 e4  |handle%)........|
00001580  05 3a 0d 07 ee 0d dd 20  f2 66 69 6e 69 73 68 0d  |.:..... .finish.|
00001590  07 f8 8c e7 20 63 61 72  65 74 73 74 6f 72 65 25  |.... caretstore%|
000015a0  21 30 20 3c 3e 2d 31 20  8c 20 c8 99 20 22 57 69  |!0 <>-1 . .. "Wi|
000015b0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
000015c0  69 6f 6e 22 2c 63 61 72  65 74 73 74 6f 72 65 25  |ion",caretstore%|
000015d0  21 30 2c 63 61 72 65 74  73 74 6f 72 65 25 21 34  |!0,caretstore%!4|
000015e0  2c 63 61 72 65 74 73 74  6f 72 65 25 21 38 2c 63  |,caretstore%!8,c|
000015f0  61 72 65 74 73 74 6f 72  65 25 21 31 32 2c 63 61  |aretstore%!12,ca|
00001600  72 65 74 73 74 6f 72 65  25 21 31 36 2c 63 61 72  |retstore%!16,car|
00001610  65 74 73 74 6f 72 65 25  21 32 30 0d 08 02 17 c8  |etstore%!20.....|
00001620  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00001630  6e 22 0d 08 0c 05 e1 0d  08 16 05 3a 0d 08 20 34  |n".........:.. 4|
00001640  dd 20 f2 64 6f 6d 65 6e  75 28 68 61 6e 64 6c 65  |. .domenu(handle|
00001650  25 2c 6d 65 6e 75 70 74  72 25 2c 6d 65 6e 75 24  |%,menuptr%,menu$|
00001660  2c 6d 65 6e 75 74 69 74  6c 65 24 2c 78 2c 79 29  |,menutitle$,x,y)|
00001670  0d 08 2a 12 ea 20 64 75  6d 6d 79 25 2c 6e 65 78  |..*.. dummy%,nex|
00001680  74 25 0d 08 34 12 6e 65  78 74 25 3d 6d 65 6e 75  |t%..4.next%=menu|
00001690  70 74 72 25 0d 08 3e 17  6d 65 6e 75 68 61 6e 64  |ptr%..>.menuhand|
000016a0  6c 65 25 3d 68 61 6e 64  6c 65 25 0d 08 48 2a 64  |le%=handle%..H*d|
000016b0  75 6d 6d 79 25 3d a4 63  5f 6d 28 6d 65 6e 75 70  |ummy%=.c_m(menup|
000016c0  74 72 25 2c 6d 65 6e 75  24 2c 6d 65 6e 75 74 69  |tr%,menu$,menuti|
000016d0  74 6c 65 24 29 0d 08 52  24 c8 99 20 22 57 69 6d  |tle$)..R$.. "Wim|
000016e0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 64  |p_CreateMenu",,d|
000016f0  75 6d 6d 79 25 2c 78 2c  79 0d 08 5c 05 e1 0d 08  |ummy%,x,y..\....|
00001700  66 05 3a 0d 08 70 25 dd  20 a4 63 5f 6d 28 6d 65  |f.:..p%. .c_m(me|
00001710  6e 75 70 74 72 25 2c 6d  65 6e 75 24 2c 6d 65 6e  |nuptr%,menu$,men|
00001720  75 74 69 74 6c 65 24 29  0d 08 7a 16 ea 20 69 25  |utitle$)..z.. i%|
00001730  2c 63 61 6c 6c 25 2c 69  74 65 6d 24 2c 77 0d 08  |,call%,item$,w..|
00001740  84 12 63 61 6c 6c 25 3d  6d 65 6e 75 70 74 72 25  |..call%=menuptr%|
00001750  0d 08 8e 11 77 3d a9 6d  65 6e 75 74 69 74 6c 65  |....w=.menutitle|
00001760  24 0d 08 98 0d 6e 65 78  74 25 2b 3d 35 32 0d 08  |$....next%+=52..|
00001770  a2 11 e3 20 69 25 3d 30  b8 a9 6d 65 6e 75 24 0d  |... i%=0..menu$.|
00001780  08 ac 22 e7 20 c1 6d 65  6e 75 24 2c 69 25 2c 31  |..". .menu$,i%,1|
00001790  29 3d 22 2c 22 20 8c 20  6e 65 78 74 25 2b 3d 32  |)="," . next%+=2|
000017a0  34 0d 08 b6 05 ed 0d 08  c0 08 69 25 3d 30 0d 08  |4.........i%=0..|
000017b0  ca 12 6d 65 6e 75 70 74  72 25 21 32 30 3d 34 30  |..menuptr%!20=40|
000017c0  0d 08 d4 18 24 6d 65 6e  75 70 74 72 25 3d 6d 65  |....$menuptr%=me|
000017d0  6e 75 74 69 74 6c 65 24  0d 08 de 4a 6d 65 6e 75  |nutitle$...Jmenu|
000017e0  70 74 72 25 3f 31 32 3d  60 74 66 63 6f 6c 3a 6d  |ptr%?12=`tfcol:m|
000017f0  65 6e 75 70 74 72 25 3f  31 33 3d 32 3a 6d 65 6e  |enuptr%?13=2:men|
00001800  75 70 74 72 25 3f 31 34  3d 60 77 66 63 6f 6c 3a  |uptr%?14=`wfcol:|
00001810  6d 65 6e 75 70 74 72 25  3f 31 35 3d 60 6d 62 63  |menuptr%?15=`mbc|
00001820  6f 6c 0d 08 e8 11 6d 65  6e 75 70 74 72 25 21 32  |ol....menuptr%!2|
00001830  34 3d 30 0d 08 f2 10 6d  65 6e 75 70 74 72 25 2b  |4=0....menuptr%+|
00001840  3d 32 38 0d 08 fc 05 f5  0d 09 06 1c 69 74 65 6d  |=28.........item|
00001850  24 3d a4 70 61 72 28 6d  65 6e 75 24 2c 22 2c 22  |$=.par(menu$,","|
00001860  2c 69 25 29 0d 09 10 40  f4 20 49 46 20 49 4e 53  |,i%)...@. IF INS|
00001870  54 52 28 69 74 65 6d 24  2c 22 2e 22 29 20 3d 20  |TR(item$,".") = |
00001880  30 20 41 4e 44 20 4c 45  4e 69 74 65 6d 24 20 3e  |0 AND LENitem$ >|
00001890  20 77 20 54 48 45 4e 20  77 20 3d 20 4c 45 4e 69  | w THEN w = LENi|
000018a0  74 65 6d 24 0d 09 1a 37  f4 20 49 46 20 49 4e 53  |tem$...7. IF INS|
000018b0  54 52 28 69 74 65 6d 24  2c 22 2e 22 29 20 3e 20  |TR(item$,".") > |
000018c0  77 20 54 48 45 4e 20 77  20 3d 20 49 4e 53 54 52  |w THEN w = INSTR|
000018d0  28 69 74 65 6d 24 2c 22  2e 22 29 0d 09 24 26 6d  |(item$,".")..$&m|
000018e0  65 6e 75 70 74 72 25 3d  a4 6d 65 6e 75 69 74 65  |enuptr%=.menuite|
000018f0  6d 28 6d 65 6e 75 70 74  72 25 2c 69 74 65 6d 24  |m(menuptr%,item$|
00001900  29 0d 09 2e 31 e7 20 a9  20 24 28 6d 65 6e 75 70  |)...1. . $(menup|
00001910  74 72 25 2d 31 32 29 20  3e 20 77 20 8c 20 77 20  |tr%-12) > w . w |
00001920  3d 20 a9 20 24 28 6d 65  6e 75 70 74 72 25 2d 31  |= . $(menuptr%-1|
00001930  32 29 0d 09 38 0e fd 20  69 74 65 6d 24 3d 22 22  |2)..8.. item$=""|
00001940  0d 09 42 14 63 61 6c 6c  25 21 31 36 3d 31 36 2a  |..B.call%!16=16*|
00001950  77 2b 31 32 0d 09 4c 23  6d 65 6e 75 70 74 72 25  |w+12..L#menuptr%|
00001960  21 2d 32 34 3d 28 6d 65  6e 75 70 74 72 25 21 2d  |!-24=(menuptr%!-|
00001970  32 34 29 84 26 38 30 0d  09 56 0a 3d 63 61 6c 6c  |24).&80..V.=call|
00001980  25 0d 09 60 05 3a 0d 09  6a 1b dd 20 a4 6d 65 6e  |%..`.:..j.. .men|
00001990  75 69 74 65 6d 28 70 74  72 25 2c 74 65 78 74 24  |uitem(ptr%,text$|
000019a0  29 0d 09 74 14 e7 20 74  65 78 74 24 3d 22 22 20  |)..t.. text$="" |
000019b0  3d 70 74 72 25 0d 09 7e  0a ea 20 61 2c 74 24 0d  |=ptr%..~.. a,t$.|
000019c0  09 88 07 61 3d 30 0d 09  92 0b 21 70 74 72 25 3d  |...a=0....!ptr%=|
000019d0  30 0d 09 9c 14 70 74 72  25 21 38 3d 26 30 37 30  |0....ptr%!8=&070|
000019e0  30 30 30 32 31 0d 09 a6  0d 70 74 72 25 21 34 3d  |00021....ptr%!4=|
000019f0  2d 31 0d 09 b0 15 e7 20  c0 74 65 78 74 24 2c 31  |-1..... .text$,1|
00001a00  29 3d 22 3e 22 20 8c 0d  09 ba 13 74 65 78 74 24  |)=">" .....text$|
00001a10  3d c1 74 65 78 74 24 2c  32 29 0d 09 c4 18 74 24  |=.text$,2)....t$|
00001a20  3d a4 70 61 72 28 74 65  78 74 24 2c 22 2e 22 2c  |=.par(text$,".",|
00001a30  61 29 0d 09 ce 1f 70 74  72 25 21 34 3d a0 28 a4  |a)....ptr%!4=.(.|
00001a40  70 61 72 28 74 65 78 74  24 2c 22 2e 22 2c 61 29  |par(text$,".",a)|
00001a50  29 0d 09 d8 0c 74 65 78  74 24 3d 74 24 0d 09 e2  |)....text$=t$...|
00001a60  05 cd 0d 09 ec 15 e7 20  c0 74 65 78 74 24 2c 31  |....... .text$,1|
00001a70  29 3d 22 7e 22 20 8c 0d  09 f6 13 74 65 78 74 24  |)="~" .....text$|
00001a80  3d c1 74 65 78 74 24 2c  32 29 0d 0a 00 18 74 24  |=.text$,2)....t$|
00001a90  3d a4 70 61 72 28 74 65  78 74 24 2c 22 2e 22 2c  |=.par(text$,".",|
00001aa0  61 29 0d 0a 0a 50 70 74  72 25 21 34 3d a0 28 22  |a)...Pptr%!4=.("|
00001ab0  46 4e 63 5f 6d 28 6e 65  78 74 25 2c 22 2b a4 70  |FNc_m(next%,"+.p|
00001ac0  61 72 28 74 65 78 74 24  2c 22 2e 22 2c 61 29 2b  |ar(text$,".",a)+|
00001ad0  22 2c 22 2b bd 33 34 2b  a4 70 61 72 28 74 65 78  |","+.34+.par(tex|
00001ae0  74 24 2c 22 2e 22 2c 61  29 2b bd 33 34 2b 22 29  |t$,".",a)+.34+")|
00001af0  22 29 0d 0a 14 0c 74 65  78 74 24 3d 74 24 0d 0a  |")....text$=t$..|
00001b00  1e 05 cd 0d 0a 28 32 e7  20 c0 74 65 78 74 24 2c  |.....(2. .text$,|
00001b10  31 29 3d 22 3a 22 21 70  74 72 25 3d 21 70 74 72  |1)=":"!ptr%=!ptr|
00001b20  25 20 84 20 32 3a 74 65  78 74 24 3d c1 74 65 78  |% . 2:text$=.tex|
00001b30  74 24 2c 32 29 0d 0a 32  37 e7 20 c0 74 65 78 74  |t$,2)..27. .text|
00001b40  24 2c 31 29 3d 22 3c 22  70 74 72 25 21 38 3d 70  |$,1)="<"ptr%!8=p|
00001b50  74 72 25 21 38 20 84 20  32 5e 32 32 3a 74 65 78  |tr%!8 . 2^22:tex|
00001b60  74 24 3d c1 74 65 78 74  24 2c 32 29 0d 0a 3c 36  |t$=.text$,2)..<6|
00001b70  e7 20 c0 74 65 78 74 24  2c 31 29 3d 22 40 22 21  |. .text$,1)="@"!|
00001b80  70 74 72 25 3d 21 6d 65  6e 75 70 74 72 25 20 84  |ptr%=!menuptr% .|
00001b90  20 31 3a 74 65 78 74 24  3d c1 74 65 78 74 24 2c  | 1:text$=.text$,|
00001ba0  32 29 0d 0a 46 14 24 28  70 74 72 25 2b 31 32 29  |2)..F.$(ptr%+12)|
00001bb0  3d 74 65 78 74 24 0d 0a  50 0c 3d 70 74 72 25 2b  |=text$..P.=ptr%+|
00001bc0  32 34 0d 0a 5a 05 3a 0d  0a 64 16 dd 20 a4 70 61  |24..Z.:..d.. .pa|
00001bd0  72 28 61 24 2c 73 24 2c  f8 20 69 25 29 0d 0a 6e  |r(a$,s$,. i%)..n|
00001be0  09 ea 20 69 31 25 0d 0a  78 1e 69 31 25 3d 69 25  |.. i1%..x.i1%=i%|
00001bf0  2b 31 3a 69 25 3d a7 61  24 2b 73 24 2c 73 24 2c  |+1:i%=.a$+s$,s$,|
00001c00  69 31 25 29 0d 0a 82 14  3d c1 61 24 2c 69 31 25  |i1%)....=.a$,i1%|
00001c10  2c 69 25 2d 69 31 25 29  0d 0a 8c 05 3a 0d 0a 96  |,i%-i1%)....:...|
00001c20  19 dd 20 f2 6d 65 6e 75  73 65 6c 65 63 74 28 6d  |.. .menuselect(m|
00001c30  65 6e 75 73 25 29 0d 0a  a0 0d ea 20 61 2c 61 24  |enus%)..... a,a$|
00001c40  2c 62 24 0d 0a aa 38 c8  99 20 22 57 69 6d 70 5f  |,b$...8.. "Wimp_|
00001c50  44 65 63 6f 64 65 4d 65  6e 75 22 2c 2c 62 75 66  |DecodeMenu",,buf|
00001c60  66 65 72 25 2c 6d 65 6e  75 73 25 2c c4 32 30 30  |fer%,menus%,.200|
00001c70  2c 22 20 22 29 b8 2c 2c  2c 62 24 0d 0a b4 0f e7  |," ").,,,b$.....|
00001c80  20 62 24 3d 22 22 20 8c  20 e1 0d 0a be 15 61 24  | b$="" . .....a$|
00001c90  3d a4 70 61 72 28 62 24  2c 22 2e 22 2c 61 29 0d  |=.par(b$,".",a).|
00001ca0  0a c8 15 62 24 3d a4 70  61 72 28 62 24 2c 22 2e  |...b$=.par(b$,".|
00001cb0  22 2c 61 29 0d 0a d2 14  c8 8e 20 6d 65 6e 75 68  |",a)...... menuh|
00001cc0  61 6e 64 6c 65 25 20 ca  0d 0a dc 1f c9 20 31 30  |andle% ...... 10|
00001cd0  31 3a e7 20 61 24 3d 22  51 75 69 74 22 3a f2 66  |1:. a$="Quit":.f|
00001ce0  69 6e 69 73 68 3a e0 0d  0a e6 09 c9 20 31 30 32  |inish:...... 102|
00001cf0  0d 0a f0 0b c8 8e 20 61  24 20 ca 0d 0a fa 2a c9  |...... a$ ....*.|
00001d00  20 22 44 65 67 22 3a 61  6e 67 6c 65 69 6e 24 3d  | "Deg":anglein$=|
00001d10  22 52 41 44 22 3a 61 6e  67 6c 65 6f 75 74 24 3d  |"RAD":angleout$=|
00001d20  22 44 45 47 22 0d 0b 04  2b 6d 61 69 6e 24 3d a4  |"DEG"...+main$=.|
00001d30  74 69 63 6b 28 a4 75 6e  74 69 63 6b 28 6d 61 69  |tick(.untick(mai|
00001d40  6e 24 2c 22 52 61 64 22  29 2c 22 44 65 67 22 29  |n$,"Rad"),"Deg")|
00001d50  0d 0b 0e 28 71 25 21 30  3d 63 61 6c 63 25 3a 71  |...(q%!0=calc%:q|
00001d60  25 21 34 3d 33 35 3a 71  25 21 38 3d 30 3a 71 25  |%!4=35:q%!8=0:q%|
00001d70  21 31 32 3d 32 5e 32 32  0d 0b 18 1d c8 99 22 57  |!12=2^22......"W|
00001d80  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001d90  22 2c 2c 71 25 0d 0b 22  2b 71 25 21 30 3d 63 61  |",,q%.."+q%!0=ca|
00001da0  6c 63 25 3a 71 25 21 34  3d 33 36 3a 71 25 21 38  |lc%:q%!4=36:q%!8|
00001db0  3d 32 5e 32 32 3a 71 25  21 31 32 3d 32 5e 32 32  |=2^22:q%!12=2^22|
00001dc0  0d 0b 2c 1d c8 99 22 57  69 6d 70 5f 53 65 74 49  |..,..."Wimp_SetI|
00001dd0  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 0b 36  |conState",,q%..6|
00001de0  0b c9 20 22 52 61 64 22  0d 0b 40 1c 61 6e 67 6c  |.. "Rad"..@.angl|
00001df0  65 69 6e 24 3d 22 22 3a  61 6e 67 6c 65 6f 75 74  |ein$="":angleout|
00001e00  24 3d 22 22 0d 0b 4a 2b  6d 61 69 6e 24 3d a4 74  |$=""..J+main$=.t|
00001e10  69 63 6b 28 a4 75 6e 74  69 63 6b 28 6d 61 69 6e  |ick(.untick(main|
00001e20  24 2c 22 44 65 67 22 29  2c 22 52 61 64 22 29 0d  |$,"Deg"),"Rad").|
00001e30  0b 54 28 71 25 21 30 3d  63 61 6c 63 25 3a 71 25  |.T(q%!0=calc%:q%|
00001e40  21 34 3d 33 36 3a 71 25  21 38 3d 30 3a 71 25 21  |!4=36:q%!8=0:q%!|
00001e50  31 32 3d 32 5e 32 32 0d  0b 5e 1d c8 99 22 57 69  |12=2^22..^..."Wi|
00001e60  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00001e70  2c 2c 71 25 0d 0b 68 2b  71 25 21 30 3d 63 61 6c  |,,q%..h+q%!0=cal|
00001e80  63 25 3a 71 25 21 34 3d  33 35 3a 71 25 21 38 3d  |c%:q%!4=35:q%!8=|
00001e90  32 5e 32 32 3a 71 25 21  31 32 3d 32 5e 32 32 0d  |2^22:q%!12=2^22.|
00001ea0  0b 72 1d c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |.r..."Wimp_SetIc|
00001eb0  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 0b 7c 0b  |onState",,q%..|.|
00001ec0  c9 20 22 44 65 63 22 0d  0b 86 15 62 61 73 65 25  |. "Dec"....base%|
00001ed0  3d 31 30 3a f2 64 65 63  6b 65 79 73 0d 0b 90 3a  |=10:.deckeys...:|
00001ee0  6d 61 69 6e 24 3d a4 74  69 63 6b 28 a4 75 6e 74  |main$=.tick(.unt|
00001ef0  69 63 6b 28 a4 75 6e 74  69 63 6b 28 6d 61 69 6e  |ick(.untick(main|
00001f00  24 2c 22 48 65 78 22 29  2c 22 42 69 6e 22 29 2c  |$,"Hex"),"Bin"),|
00001f10  22 44 65 63 22 29 0d 0b  9a 28 71 25 21 30 3d 63  |"Dec")...(q%!0=c|
00001f20  61 6c 63 25 3a 71 25 21  34 3d 33 37 3a 71 25 21  |alc%:q%!4=37:q%!|
00001f30  38 3d 30 3a 71 25 21 31  32 3d 32 5e 32 32 0d 0b  |8=0:q%!12=2^22..|
00001f40  a4 1d c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |...."Wimp_SetIco|
00001f50  6e 53 74 61 74 65 22 2c  2c 71 25 0d 0b ae 2b 71  |nState",,q%...+q|
00001f60  25 21 30 3d 63 61 6c 63  25 3a 71 25 21 34 3d 33  |%!0=calc%:q%!4=3|
00001f70  38 3a 71 25 21 38 3d 32  5e 32 32 3a 71 25 21 31  |8:q%!8=2^22:q%!1|
00001f80  32 3d 32 5e 32 32 0d 0b  b8 1d c8 99 22 57 69 6d  |2=2^22......"Wim|
00001f90  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00001fa0  2c 71 25 0d 0b c2 2b 71  25 21 30 3d 63 61 6c 63  |,q%...+q%!0=calc|
00001fb0  25 3a 71 25 21 34 3d 33  39 3a 71 25 21 38 3d 32  |%:q%!4=39:q%!8=2|
00001fc0  5e 32 32 3a 71 25 21 31  32 3d 32 5e 32 32 0d 0b  |^22:q%!12=2^22..|
00001fd0  cc 1d c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |...."Wimp_SetIco|
00001fe0  6e 53 74 61 74 65 22 2c  2c 71 25 0d 0b d6 26 69  |nState",,q%...&i|
00001ff0  63 6f 6e 25 3d 32 39 3a  f2 6f 70 65 72 61 74 6f  |con%=29:.operato|
00002000  72 28 22 3d 22 29 3a f2  64 6f 64 69 73 70 6c 61  |r("="):.dodispla|
00002010  79 0d 0b e0 0b c9 20 22  48 65 78 22 0d 0b ea 15  |y..... "Hex"....|
00002020  62 61 73 65 25 3d 31 36  3a f2 68 65 78 6b 65 79  |base%=16:.hexkey|
00002030  73 0d 0b f4 3a 6d 61 69  6e 24 3d a4 74 69 63 6b  |s...:main$=.tick|
00002040  28 a4 75 6e 74 69 63 6b  28 a4 75 6e 74 69 63 6b  |(.untick(.untick|
00002050  28 6d 61 69 6e 24 2c 22  44 65 63 22 29 2c 22 42  |(main$,"Dec"),"B|
00002060  69 6e 22 29 2c 22 48 65  78 22 29 0d 0b fe 28 71  |in"),"Hex")...(q|
00002070  25 21 30 3d 63 61 6c 63  25 3a 71 25 21 34 3d 33  |%!0=calc%:q%!4=3|
00002080  38 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 32  |8:q%!8=0:q%!12=2|
00002090  5e 32 32 0d 0c 08 1d c8  99 22 57 69 6d 70 5f 53  |^22......"Wimp_S|
000020a0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000020b0  0d 0c 12 2b 71 25 21 30  3d 63 61 6c 63 25 3a 71  |...+q%!0=calc%:q|
000020c0  25 21 34 3d 33 37 3a 71  25 21 38 3d 32 5e 32 32  |%!4=37:q%!8=2^22|
000020d0  3a 71 25 21 31 32 3d 32  5e 32 32 0d 0c 1c 1d c8  |:q%!12=2^22.....|
000020e0  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000020f0  61 74 65 22 2c 2c 71 25  0d 0c 26 2b 71 25 21 30  |ate",,q%..&+q%!0|
00002100  3d 63 61 6c 63 25 3a 71  25 21 34 3d 33 39 3a 71  |=calc%:q%!4=39:q|
00002110  25 21 38 3d 32 5e 32 32  3a 71 25 21 31 32 3d 32  |%!8=2^22:q%!12=2|
00002120  5e 32 32 0d 0c 30 1d c8  99 22 57 69 6d 70 5f 53  |^22..0..."Wimp_S|
00002130  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00002140  0d 0c 3a 26 69 63 6f 6e  25 3d 32 39 3a f2 6f 70  |..:&icon%=29:.op|
00002150  65 72 61 74 6f 72 28 22  3d 22 29 3a f2 64 6f 64  |erator("="):.dod|
00002160  69 73 70 6c 61 79 0d 0c  44 0b c9 20 22 42 69 6e  |isplay..D.. "Bin|
00002170  22 0d 0c 4e 14 62 61 73  65 25 3d 32 3a f2 64 65  |"..N.base%=2:.de|
00002180  63 6b 65 79 73 0d 0c 58  3a 6d 61 69 6e 24 3d a4  |ckeys..X:main$=.|
00002190  74 69 63 6b 28 a4 75 6e  74 69 63 6b 28 a4 75 6e  |tick(.untick(.un|
000021a0  74 69 63 6b 28 6d 61 69  6e 24 2c 22 48 65 78 22  |tick(main$,"Hex"|
000021b0  29 2c 22 44 65 63 22 29  2c 22 42 69 6e 22 29 0d  |),"Dec"),"Bin").|
000021c0  0c 62 28 71 25 21 30 3d  63 61 6c 63 25 3a 71 25  |.b(q%!0=calc%:q%|
000021d0  21 34 3d 33 39 3a 71 25  21 38 3d 30 3a 71 25 21  |!4=39:q%!8=0:q%!|
000021e0  31 32 3d 32 5e 32 32 0d  0c 6c 1d c8 99 22 57 69  |12=2^22..l..."Wi|
000021f0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002200  2c 2c 71 25 0d 0c 76 2b  71 25 21 30 3d 63 61 6c  |,,q%..v+q%!0=cal|
00002210  63 25 3a 71 25 21 34 3d  33 38 3a 71 25 21 38 3d  |c%:q%!4=38:q%!8=|
00002220  32 5e 32 32 3a 71 25 21  31 32 3d 32 5e 32 32 0d  |2^22:q%!12=2^22.|
00002230  0c 80 1d c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |....."Wimp_SetIc|
00002240  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 0c 8a 2b  |onState",,q%...+|
00002250  71 25 21 30 3d 63 61 6c  63 25 3a 71 25 21 34 3d  |q%!0=calc%:q%!4=|
00002260  33 37 3a 71 25 21 38 3d  32 5e 32 32 3a 71 25 21  |37:q%!8=2^22:q%!|
00002270  31 32 3d 32 5e 32 32 0d  0c 94 1d c8 99 22 57 69  |12=2^22......"Wi|
00002280  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002290  2c 2c 71 25 0d 0c 9e 26  69 63 6f 6e 25 3d 32 39  |,,q%...&icon%=29|
000022a0  3a f2 3a f2 3a 6f 72 28  22 3d 22 29 3a f2 64 6f  |:.:.:or("="):.do|
000022b0  64 69 73 70 6c 61 79 0d  0c a8 0c c9 20 22 4e 6f  |display..... "No|
000022c0  72 6d 22 0d 0c b2 2d e7  20 66 69 78 25 3c 3e 2d  |rm"...-. fix%<>-|
000022d0  31 20 8c 20 66 6e 75 6d  62 24 3d a4 75 6e 74 69  |1 . fnumb$=.unti|
000022e0  63 6b 28 66 6e 75 6d 62  24 2c c3 66 69 78 25 29  |ck(fnumb$,.fix%)|
000022f0  0d 0c bc 2d e7 20 73 63  69 25 3c 3e 2d 31 20 8c  |...-. sci%<>-1 .|
00002300  20 73 6e 75 6d 62 24 3d  a4 75 6e 74 69 63 6b 28  | snumb$=.untick(|
00002310  73 6e 75 6d 62 24 2c c3  73 63 69 25 29 0d 0c c6  |snumb$,.sci%)...|
00002320  13 66 69 78 25 3d 2d 31  3a 73 63 69 25 3d 2d 31  |.fix%=-1:sci%=-1|
00002330  0d 0c d0 3b 6d 61 69 6e  24 3d a4 74 69 63 6b 28  |...;main$=.tick(|
00002340  a4 75 6e 74 69 63 6b 28  a4 75 6e 74 69 63 6b 28  |.untick(.untick(|
00002350  6d 61 69 6e 24 2c 22 46  69 78 22 29 2c 22 53 63  |main$,"Fix"),"Sc|
00002360  69 22 29 2c 22 4e 6f 72  6d 22 29 0d 0c da 2b 71  |i"),"Norm")...+q|
00002370  25 21 30 3d 63 61 6c 63  25 3a 71 25 21 34 3d 34  |%!0=calc%:q%!4=4|
00002380  36 3a 71 25 21 38 3d 32  5e 32 32 3a 71 25 21 31  |6:q%!8=2^22:q%!1|
00002390  32 3d 32 5e 32 32 0d 0c  e4 1d c8 99 22 57 69 6d  |2=2^22......"Wim|
000023a0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000023b0  2c 71 25 0d 0c ee 2b 71  25 21 30 3d 63 61 6c 63  |,q%...+q%!0=calc|
000023c0  25 3a 71 25 21 34 3d 34  37 3a 71 25 21 38 3d 32  |%:q%!4=47:q%!8=2|
000023d0  5e 32 32 3a 71 25 21 31  32 3d 32 5e 32 32 0d 0c  |^22:q%!12=2^22..|
000023e0  f8 1d c8 99 22 57 69 6d  70 5f 53 65 74 49 63 6f  |...."Wimp_SetIco|
000023f0  6e 53 74 61 74 65 22 2c  2c 71 25 0d 0d 02 26 69  |nState",,q%...&i|
00002400  63 6f 6e 25 3d 32 39 3a  f2 3a f2 3a 6f 72 28 22  |con%=29:.:.:or("|
00002410  3d 22 29 3a f2 64 6f 64  69 73 70 6c 61 79 0d 0d  |="):.dodisplay..|
00002420  0c 0b c9 20 22 46 69 78  22 0d 0d 16 0e e7 20 62  |... "Fix"..... b|
00002430  24 3c 3e 22 22 20 8c 0d  0d 20 2d e7 20 66 69 78  |$<>"" ... -. fix|
00002440  25 3c 3e 2d 31 20 8c 20  66 6e 75 6d 62 24 3d a4  |%<>-1 . fnumb$=.|
00002450  75 6e 74 69 63 6b 28 66  6e 75 6d 62 24 2c c3 66  |untick(fnumb$,.f|
00002460  69 78 25 29 0d 0d 2a 2d  e7 20 73 63 69 25 3c 3e  |ix%)..*-. sci%<>|
00002470  2d 31 20 8c 20 73 6e 75  6d 62 24 3d a4 75 6e 74  |-1 . snumb$=.unt|
00002480  69 63 6b 28 73 6e 75 6d  62 24 2c c3 73 63 69 25  |ick(snumb$,.sci%|
00002490  29 0d 0d 34 15 66 69 78  25 3d bb 20 62 24 3a 73  |)..4.fix%=. b$:s|
000024a0  63 69 25 3d 2d 31 0d 0d  3e 1e 66 6e 75 6d 62 24  |ci%=-1..>.fnumb$|
000024b0  3d a4 74 69 63 6b 28 66  6e 75 6d 62 24 2c c3 66  |=.tick(fnumb$,.f|
000024c0  69 78 25 29 0d 0d 48 3b  6d 61 69 6e 24 3d a4 74  |ix%)..H;main$=.t|
000024d0  69 63 6b 28 a4 75 6e 74  69 63 6b 28 a4 75 6e 74  |ick(.untick(.unt|
000024e0  69 63 6b 28 6d 61 69 6e  24 2c 22 53 63 69 22 29  |ick(main$,"Sci")|
000024f0  2c 22 4e 6f 72 6d 22 29  2c 22 46 69 78 22 29 0d  |,"Norm"),"Fix").|
00002500  0d 52 2b 71 25 21 30 3d  63 61 6c 63 25 3a 71 25  |.R+q%!0=calc%:q%|
00002510  21 34 3d 34 36 3a 71 25  21 38 3d 30 20 20 20 3a  |!4=46:q%!8=0   :|
00002520  71 25 21 31 32 3d 32 5e  32 32 0d 0d 5c 1d c8 99  |q%!12=2^22..\...|
00002530  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002540  74 65 22 2c 2c 71 25 0d  0d 66 2b 71 25 21 30 3d  |te",,q%..f+q%!0=|
00002550  63 61 6c 63 25 3a 71 25  21 34 3d 34 37 3a 71 25  |calc%:q%!4=47:q%|
00002560  21 38 3d 32 5e 32 32 3a  71 25 21 31 32 3d 32 5e  |!8=2^22:q%!12=2^|
00002570  32 32 0d 0d 70 1d c8 99  22 57 69 6d 70 5f 53 65  |22..p..."Wimp_Se|
00002580  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00002590  0d 7a 26 69 63 6f 6e 25  3d 32 39 3a f2 3a f2 3a  |.z&icon%=29:.:.:|
000025a0  6f 72 28 22 3d 22 29 3a  f2 64 6f 64 69 73 70 6c  |or("="):.dodispl|
000025b0  61 79 0d 0d 84 05 cd 0d  0d 8e 0b c9 20 22 53 63  |ay.......... "Sc|
000025c0  69 22 0d 0d 98 0e e7 20  62 24 3c 3e 22 22 20 8c  |i"..... b$<>"" .|
000025d0  0d 0d a2 2d e7 20 66 69  78 25 3c 3e 2d 31 20 8c  |...-. fix%<>-1 .|
000025e0  20 66 6e 75 6d 62 24 3d  a4 75 6e 74 69 63 6b 28  | fnumb$=.untick(|
000025f0  66 6e 75 6d 62 24 2c c3  66 69 78 25 29 0d 0d ac  |fnumb$,.fix%)...|
00002600  2d e7 20 73 63 69 25 3c  3e 2d 31 20 8c 20 73 6e  |-. sci%<>-1 . sn|
00002610  75 6d 62 24 3d a4 75 6e  74 69 63 6b 28 73 6e 75  |umb$=.untick(snu|
00002620  6d 62 24 2c c3 73 63 69  25 29 0d 0d b6 15 73 63  |mb$,.sci%)....sc|
00002630  69 25 3d bb 20 62 24 3a  66 69 78 25 3d 2d 31 0d  |i%=. b$:fix%=-1.|
00002640  0d c0 1e 73 6e 75 6d 62  24 3d a4 74 69 63 6b 28  |...snumb$=.tick(|
00002650  73 6e 75 6d 62 24 2c c3  73 63 69 25 29 0d 0d ca  |snumb$,.sci%)...|
00002660  3b 6d 61 69 6e 24 3d a4  74 69 63 6b 28 a4 75 6e  |;main$=.tick(.un|
00002670  74 69 63 6b 28 a4 75 6e  74 69 63 6b 28 6d 61 69  |tick(.untick(mai|
00002680  6e 24 2c 22 46 69 78 22  29 2c 22 4e 6f 72 6d 22  |n$,"Fix"),"Norm"|
00002690  29 2c 22 53 63 69 22 29  0d 0d d4 2b 71 25 21 30  |),"Sci")...+q%!0|
000026a0  3d 63 61 6c 63 25 3a 71  25 21 34 3d 34 36 3a 71  |=calc%:q%!4=46:q|
000026b0  25 21 38 3d 32 5e 32 32  3a 71 25 21 31 32 3d 32  |%!8=2^22:q%!12=2|
000026c0  5e 32 32 0d 0d de 1d c8  99 22 57 69 6d 70 5f 53  |^22......"Wimp_S|
000026d0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000026e0  0d 0d e8 2b 71 25 21 30  3d 63 61 6c 63 25 3a 71  |...+q%!0=calc%:q|
000026f0  25 21 34 3d 34 37 3a 71  25 21 38 3d 30 20 20 20  |%!4=47:q%!8=0   |
00002700  3a 71 25 21 31 32 3d 32  5e 32 32 0d 0d f2 1d c8  |:q%!12=2^22.....|
00002710  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00002720  61 74 65 22 2c 2c 71 25  0d 0d fc 26 69 63 6f 6e  |ate",,q%...&icon|
00002730  25 3d 32 39 3a f2 3a f2  3a 6f 72 28 22 3d 22 29  |%=29:.:.:or("=")|
00002740  3a f2 64 6f 64 69 73 70  6c 61 79 0d 0e 06 05 cd  |:.dodisplay.....|
00002750  0d 0e 10 05 cb 0d 0e 1a  05 cb 0d 0e 24 0f f2 67  |............$..g|
00002760  65 74 70 6f 69 6e 74 65  72 0d 0e 2e 5d e7 20 28  |etpointer...]. (|
00002770  62 25 20 80 20 31 29 3d  31 20 80 20 6d 65 6e 75  |b% . 1)=1 . menu|
00002780  68 61 6e 64 6c 65 25 3d  31 30 31 20 8c 20 f2 64  |handle%=101 . .d|
00002790  6f 6d 65 6e 75 28 31 30  31 2c 62 75 66 66 65 72  |omenu(101,buffer|
000027a0  25 2c 22 3e 49 6e 66 6f  2e 69 6e 66 6f 25 2c 51  |%,">Info.info%,Q|
000027b0  75 69 74 22 2c 22 43 61  6c 63 75 6c 61 74 6f 72  |uit","Calculator|
000027c0  22 2c 30 2c 30 29 0d 0e  38 4a e7 20 28 62 25 20  |",0,0)..8J. (b% |
000027d0  80 20 31 29 3d 31 20 80  20 6d 65 6e 75 68 61 6e  |. 1)=1 . menuhan|
000027e0  64 6c 65 25 3d 31 30 32  20 8c 20 f2 64 6f 6d 65  |dle%=102 . .dome|
000027f0  6e 75 28 31 30 32 2c 62  75 66 66 65 72 25 2c 6d  |nu(102,buffer%,m|
00002800  61 69 6e 24 2c 22 43 61  6c 63 22 2c 30 2c 30 29  |ain$,"Calc",0,0)|
00002810  0d 0e 42 05 e1 0d 0e 4c  05 3a 0d 0e 56 12 dd 20  |..B....L.:..V.. |
00002820  a4 74 69 63 6b 28 6d 24  2c 6e 24 29 0d 0e 60 07  |.tick(m$,n$)..`.|
00002830  ea 20 61 0d 0e 6a 15 e7  20 a7 6d 24 2c 6e 24 29  |. a..j.. .m$,n$)|
00002840  3d 30 20 8c 20 3d 6d 24  0d 0e 74 0d 61 3d a7 6d  |=0 . =m$..t.a=.m|
00002850  24 2c 6e 24 29 0d 0e 7e  1c e7 20 c1 6d 24 2c 61  |$,n$)..~.. .m$,a|
00002860  2d 31 2c 31 29 20 3d 20  22 40 22 20 8c 20 3d 6d  |-1,1) = "@" . =m|
00002870  24 0d 0e 88 18 3d c0 6d  24 2c 61 2d 31 29 2b 22  |$....=.m$,a-1)+"|
00002880  40 22 2b c1 6d 24 2c 61  29 0d 0e 92 05 3a 0d 0e  |@"+.m$,a)....:..|
00002890  9c 14 dd 20 a4 75 6e 74  69 63 6b 28 6d 24 2c 6e  |... .untick(m$,n|
000028a0  24 29 0d 0e a6 07 ea 20  61 0d 0e b0 15 e7 20 a7  |$)..... a..... .|
000028b0  6d 24 2c 6e 24 29 3d 30  20 8c 20 3d 6d 24 0d 0e  |m$,n$)=0 . =m$..|
000028c0  ba 0d 61 3d a7 6d 24 2c  6e 24 29 0d 0e c4 1d e7  |..a=.m$,n$).....|
000028d0  20 c1 6d 24 2c 61 2d 31  2c 31 29 20 3c 3e 20 22  | .m$,a-1,1) <> "|
000028e0  40 22 20 8c 20 3d 6d 24  0d 0e ce 14 3d c0 6d 24  |@" . =m$....=.m$|
000028f0  2c 61 2d 32 29 2b c1 6d  24 2c 61 29 0d 0e d8 05  |,a-2)+.m$,a)....|
00002900  3a 0d 0e e2 15 dd 20 f2  66 72 6f 6e 74 28 68 61  |:..... .front(ha|
00002910  6e 64 6c 65 25 29 0d 0e  ec 11 e7 68 61 6e 64 6c  |ndle%).....handl|
00002920  65 25 3d 2d 31 8c e1 0d  0e f6 12 f2 67 65 74 77  |e%=-1.......getw|
00002930  28 68 61 6e 64 6c 65 25  29 0d 0f 00 36 f2 6f 70  |(handle%)...6.op|
00002940  65 6e 5f 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |en_window(handle|
00002950  25 2c 78 30 25 2c 79 30  25 2c 78 31 25 2c 79 31  |%,x0%,y0%,x1%,y1|
00002960  25 2c 73 63 78 25 2c 73  63 79 25 2c 2d 31 29 0d  |%,scx%,scy%,-1).|
00002970  0f 0a 05 e1 0d 0f 14 05  3a 0d 0f 1e 16 dd 20 f2  |........:..... .|
00002980  72 65 6f 70 65 6e 28 68  61 6e 64 6c 65 25 29 0d  |reopen(handle%).|
00002990  0f 28 12 f2 67 65 74 77  28 68 61 6e 64 6c 65 25  |.(..getw(handle%|
000029a0  29 0d 0f 32 46 f2 6f 70  65 6e 5f 77 69 6e 64 6f  |)..2F.open_windo|
000029b0  77 28 68 61 6e 64 6c 65  25 2c 78 6f 25 2c 79 6f  |w(handle%,xo%,yo|
000029c0  25 2c 78 31 25 2d 78 30  25 2b 78 6f 25 2c 79 31  |%,x1%-x0%+xo%,y1|
000029d0  25 2d 79 30 25 2b 79 6f  25 2c 73 63 78 25 2c 73  |%-y0%+yo%,scx%,s|
000029e0  63 79 25 2c 2d 31 29 0d  0f 3c 05 e1 0d 0f 46 05  |cy%,-1)..<....F.|
000029f0  3a 0d 0f 50 3e dd 20 f2  6f 70 65 6e 5f 77 69 6e  |:..P>. .open_win|
00002a00  64 6f 77 28 68 61 6e 64  6c 65 25 2c 78 30 25 2c  |dow(handle%,x0%,|
00002a10  79 30 25 2c 78 31 25 2c  79 31 25 2c 73 63 78 25  |y0%,x1%,y1%,scx%|
00002a20  2c 73 63 79 25 2c 62 68  61 6e 64 6c 65 25 29 0d  |,scy%,bhandle%).|
00002a30  0f 5a 11 e7 68 61 6e 64  6c 65 25 3d 2d 31 8c e1  |.Z..handle%=-1..|
00002a40  0d 0f 64 1f 71 25 21 30  3d 68 61 6e 64 6c 65 25  |..d.q%!0=handle%|
00002a50  3a 71 25 21 32 38 3d 62  68 61 6e 64 6c 65 25 0d  |:q%!28=bhandle%.|
00002a60  0f 6e 29 71 25 21 34 3d  78 30 25 3a 71 25 21 38  |.n)q%!4=x0%:q%!8|
00002a70  3d 79 30 25 3a 71 25 21  31 32 3d 78 31 25 3a 71  |=y0%:q%!12=x1%:q|
00002a80  25 21 31 36 3d 79 31 25  0d 0f 78 19 71 25 21 32  |%!16=y1%..x.q%!2|
00002a90  30 3d 73 63 78 25 3a 71  25 21 32 34 3d 73 63 79  |0=scx%:q%!24=scy|
00002aa0  25 0d 0f 82 1c c8 99 20  22 57 69 6d 70 5f 4f 70  |%...... "Wimp_Op|
00002ab0  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 0f 8c  |enWindow",,q%...|
00002ac0  05 e1 0d 0f 96 05 3a 0d  0f a0 14 dd 20 f2 67 65  |......:..... .ge|
00002ad0  74 77 28 68 61 6e 64 6c  65 25 29 0d 0f aa 2b 21  |tw(handle%)...+!|
00002ae0  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00002af0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00002b00  6f 22 2c 2c 71 25 0d 0f  b4 2b f2 69 6e 66 6f 28  |o",,q%...+.info(|
00002b10  71 25 2b 34 29 3a 62 68  61 6e 64 6c 65 25 3d 71  |q%+4):bhandle%=q|
00002b20  25 21 32 38 3a 66 6c 61  67 73 25 3d 71 25 21 33  |%!28:flags%=q%!3|
00002b30  32 0d 0f be 05 e1 0d 0f  c8 05 3a 0d 0f d2 0f dd  |2.........:.....|
00002b40  20 f2 69 6e 66 6f 28 71  25 29 0d 0f dc 3d 78 30  | .info(q%)...=x0|
00002b50  25 3d 21 71 25 3a 79 30  25 3d 71 25 21 34 3a 78  |%=!q%:y0%=q%!4:x|
00002b60  31 25 3d 71 25 21 38 3a  79 31 25 3d 71 25 21 31  |1%=q%!8:y1%=q%!1|
00002b70  32 3a 73 63 78 25 3d 71  25 21 31 36 3a 73 63 79  |2:scx%=q%!16:scy|
00002b80  25 3d 71 25 21 32 30 0d  0f e6 1d 62 78 25 3d 78  |%=q%!20....bx%=x|
00002b90  30 25 2d 73 63 78 25 3a  62 79 25 3d 79 31 25 2d  |0%-scx%:by%=y1%-|
00002ba0  73 63 79 25 0d 0f f0 05  e1 0d 0f fa 05 3a 0d 10  |scy%.........:..|
00002bb0  04 1c dd 20 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |... .close_windo|
00002bc0  77 28 68 61 6e 64 6c 65  25 29 0d 10 0e 29 21 71  |w(handle%)...)!q|
00002bd0  25 3d 68 61 6e 64 6c 65  25 3a c8 99 20 22 57 69  |%=handle%:.. "Wi|
00002be0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00002bf0  2c 71 25 0d 10 18 05 e1  0d 10 22 05 3a 0d 10 2c  |,q%.......".:..,|
00002c00  11 dd 20 f2 67 65 74 70  6f 69 6e 74 65 72 0d 10  |.. .getpointer..|
00002c10  36 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |6 .. "Wimp_GetPo|
00002c20  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 0d 10  |interInfo",,q%..|
00002c30  40 48 6d 6f 75 73 65 78  25 3d 21 71 25 3a 6d 6f  |@Hmousex%=!q%:mo|
00002c40  75 73 65 79 25 3d 71 25  21 34 3a 62 25 3d 71 25  |usey%=q%!4:b%=q%|
00002c50  21 38 3a 68 61 6e 64 6c  65 25 3d 71 25 21 31 32  |!8:handle%=q%!12|
00002c60  3a 69 63 6f 6e 25 3d 71  25 21 31 36 3a 6f 62 25  |:icon%=q%!16:ob%|
00002c70  3d 71 25 21 32 30 0d 10  4a 05 e1 0d 10 54 05 3a  |=q%!20..J....T.:|
00002c80  0d 10 5e 0f dd 20 f2 65  72 72 6f 72 62 6f 78 0d  |..^.. .errorbox.|
00002c90  10 68 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |.h... "Wimp_Drag|
00002ca0  42 6f 78 22 2c 2c 2d 31  0d 10 72 30 21 62 75 66  |Box",,-1..r0!buf|
00002cb0  66 65 72 25 3d 9f 3a 24  28 62 75 66 66 65 72 25  |fer%=.:$(buffer%|
00002cc0  2b 34 29 3d f6 24 2b 22  20 61 74 20 6c 69 6e 65  |+4)=.$+" at line|
00002cd0  20 22 2b c3 9e 2b bd 30  0d 10 7c 35 c8 99 20 22  | "+..+.0..|5.. "|
00002ce0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00002cf0  22 2c 62 75 66 66 65 72  25 2c 31 2c 22 53 63 69  |",buffer%,1,"Sci|
00002d00  65 6e 74 69 66 69 63 20  43 61 6c 63 22 0d 10 86  |entific Calc"...|
00002d10  0d f2 66 69 6e 69 73 68  3a e0 0d 10 90 05 e1 0d  |..finish:.......|
00002d20  10 9a 05 3a 0d 10 a4 0e  dd 20 a4 69 63 6f 6e 62  |...:..... .iconb|
00002d30  61 72 0d 10 ae 36 21 71  25 3d 2d 31 3a 71 25 21  |ar...6!q%=-1:q%!|
00002d40  34 3d 30 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |4=0:q%!8=0:q%!12|
00002d50  3d 36 33 3a 71 25 21 31  36 3d 36 38 3a 71 25 21  |=63:q%!16=68:q%!|
00002d60  32 30 3d 26 32 31 30 32  0d 10 b8 13 73 70 6e 61  |20=&2102....spna|
00002d70  6d 65 24 3d 22 21 63 61  6c 63 22 0d 10 c2 38 de  |me$="!calc"...8.|
00002d80  20 71 25 21 32 34 20 28  a9 73 70 6e 61 6d 65 24  | q%!24 (.spname$|
00002d90  2b 31 29 3a 24 28 71 25  21 32 34 29 3d 73 70 6e  |+1):$(q%!24)=spn|
00002da0  61 6d 65 24 3a 71 25 21  32 38 3d 73 70 72 69 74  |ame$:q%!28=sprit|
00002db0  65 73 25 0d 10 cc 14 71  25 21 33 32 3d a9 73 70  |es%....q%!32=.sp|
00002dc0  6e 61 6d 65 24 2b 31 0d  10 d6 22 c8 99 20 22 57  |name$+1...".. "W|
00002dd0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00002de0  2c 71 25 20 b8 20 69 63  25 0d 10 e0 08 3d 69 63  |,q% . ic%....=ic|
00002df0  25 0d 10 ea 05 3a 0d 10  f4 13 dd 20 a4 66 61 63  |%....:..... .fac|
00002e00  74 6f 72 69 61 6c 28 6e  29 0d 10 fe 0e ea 20 73  |torial(n)..... s|
00002e10  75 6d 2c 6c 6f 6f 70 0d  11 08 0f e7 20 6e 3d 30  |um,loop..... n=0|
00002e20  20 8c 20 3d 20 31 0d 11  12 14 e7 20 6e 3c 3e a8  | . = 1..... n<>.|
00002e30  28 6e 29 20 8c 20 3d 30  2f 30 0d 11 1c 09 73 75  |(n) . =0/0....su|
00002e40  6d 3d 31 0d 11 26 0e e3  20 6c 6f 6f 70 3d 31 b8  |m=1..&.. loop=1.|
00002e50  6e 0d 11 30 10 73 75 6d  3d 73 75 6d 2a 6c 6f 6f  |n..0.sum=sum*loo|
00002e60  70 0d 11 3a 05 ed 0d 11  44 08 3d 73 75 6d 0d 11  |p..:....D.=sum..|
00002e70  4e 05 3a 0d 11 58 0f dd  20 f2 61 6c 6c 63 6c 65  |N.:..X.. .allcle|
00002e80  61 72 0d 11 62 10 65 72  72 6f 72 66 6c 61 67 25  |ar..b.errorflag%|
00002e90  3d a3 0d 11 6c 31 74 65  6d 70 72 65 67 3d 30 3a  |=...l1tempreg=0:|
00002ea0  65 6e 74 72 79 24 3d 22  30 22 3a 6f 70 65 72 61  |entry$="0":opera|
00002eb0  74 6f 72 24 3d 22 3d 22  3a 72 65 67 69 73 74 65  |tor$="=":registe|
00002ec0  72 3d 30 0d 11 76 30 62  72 61 63 6b 65 74 3d 30  |r=0..v0bracket=0|
00002ed0  3a 73 74 61 63 6b 70 74  72 3d 30 3a 65 78 70 6f  |:stackptr=0:expo|
00002ee0  6e 65 6e 74 25 3d a3 3a  64 69 73 70 6c 61 79 24  |nent%=.:display$|
00002ef0  3d 22 22 0d 11 80 21 65  73 67 6e 3d 31 3a 65 78  |=""...!esgn=1:ex|
00002f00  70 24 3d 22 30 30 22 3a  6d 75 6c 74 3d a3 3a 70  |p$="00":mult=.:p|
00002f10  6f 77 3d a3 0d 11 8a 05  e1 0d 11 94 05 3a 0d 11  |ow=..........:..|
00002f20  9e 0b dd f2 63 6c 65 61  72 0d 11 a8 19 65 6e 74  |....clear....ent|
00002f30  72 79 24 3d 22 30 22 3a  72 65 67 69 73 74 65 72  |ry$="0":register|
00002f40  3d 30 0d 11 b2 05 e1 0d  11 bc 05 3a 0d 11 c6 11  |=0.........:....|
00002f50  dd 20 f2 64 69 67 69 74  28 6b 65 79 29 0d 11 d0  |. .digit(key)...|
00002f60  5f e7 20 28 62 61 73 65  25 3d 31 30 20 80 20 a9  |_. (base%=10 . .|
00002f70  65 6e 74 72 79 24 20 2d  20 b4 28 a7 65 6e 74 72  |entry$ - .(.entr|
00002f80  79 24 2c 22 2e 22 29 29  20 3c 20 39 29 84 20 62  |y$,".")) < 9). b|
00002f90  61 73 65 25 3d 31 36 20  80 20 a9 65 6e 74 72 79  |ase%=16 . .entry|
00002fa0  24 3c 38 20 84 20 62 61  73 65 25 3d 32 20 80 20  |$<8 . base%=2 . |
00002fb0  a9 65 6e 74 72 79 24 3c  33 32 20 8c 0d 11 da 35  |.entry$<32 ....5|
00002fc0  e7 20 65 6e 74 72 79 24  3d 22 30 22 20 8c 20 65  |. entry$="0" . e|
00002fd0  6e 74 72 79 24 3d c3 7e  6b 65 79 20 8b 20 65 6e  |ntry$=.~key . en|
00002fe0  74 72 79 24 3d 65 6e 74  72 79 24 2b c3 7e 6b 65  |try$=entry$+.~ke|
00002ff0  79 0d 11 e4 05 cd 0d 11  ee 23 e7 20 62 61 73 65  |y........#. base|
00003000  25 3d 31 30 20 8c 20 72  65 67 69 73 74 65 72 3d  |%=10 . register=|
00003010  a0 28 65 6e 74 72 79 24  29 0d 11 f8 27 e7 20 62  |.(entry$)...'. b|
00003020  61 73 65 25 3d 31 36 20  8c 20 72 65 67 69 73 74  |ase%=16 . regist|
00003030  65 72 3d a0 28 22 26 22  2b 65 6e 74 72 79 24 29  |er=.("&"+entry$)|
00003040  0d 12 02 27 e7 20 62 61  73 65 25 3d 32 20 20 8c  |...'. base%=2  .|
00003050  20 72 65 67 69 73 74 65  72 3d a0 28 22 25 22 2b  | register=.("%"+|
00003060  65 6e 74 72 79 24 29 0d  12 0c 05 e1 0d 12 16 05  |entry$).........|
00003070  3a 0d 12 20 0c dd 20 f2  70 6f 69 6e 74 0d 12 2a  |:.. .. .point..*|
00003080  36 e7 20 a7 65 6e 74 72  79 24 2c 22 2e 22 29 3d  |6. .entry$,".")=|
00003090  30 20 80 20 a9 65 6e 74  72 79 24 20 3c 20 39 20  |0 . .entry$ < 9 |
000030a0  8c 20 65 6e 74 72 79 24  3d 65 6e 74 72 79 24 2b  |. entry$=entry$+|
000030b0  22 2e 22 0d 12 34 16 72  65 67 69 73 74 65 72 3d  |"."..4.register=|
000030c0  bb 28 65 6e 74 72 79 24  29 0d 12 3e 05 e1 0d 12  |.(entry$)..>....|
000030d0  48 05 3a 0d 12 52 05 3a  0d 12 5c 15 dd 20 f2 dd  |H.:..R.:..\.. ..|
000030e0  20 f2 dd 6f 72 28 6b 65  79 24 29 0d 12 66 05 3a  | ..or(key$)..f.:|
000030f0  0d 12 70 10 e7 20 6b 65  79 24 3d 22 28 22 20 8c  |..p.. key$="(" .|
00003100  0d 12 7a 13 f2 70 75 73  68 28 c3 74 65 6d 70 72  |..z..push(.tempr|
00003110  65 67 29 0d 12 84 14 f2  70 75 73 68 28 28 28 6f  |eg).....push(((o|
00003120  72 24 29 0d 12 8e 10 f2  70 75 73 68 28 c3 6d 75  |r$).....push(.mu|
00003130  6c 74 29 0d 12 98 0f f2  70 75 73 68 28 c3 70 6f  |lt).....push(.po|
00003140  77 29 0d 12 a2 18 72 65  67 69 73 74 65 72 3d 30  |w)....register=0|
00003150  3a 74 65 6d 70 72 65 67  3d 30 0d 12 ac 0e 62 72  |:tempreg=0....br|
00003160  61 63 6b 65 74 2b 3d 31  0d 12 b6 10 6d 75 6c 74  |acket+=1....mult|
00003170  3d a3 3a 70 6f 77 3d a3  0d 12 c0 0c 6b 65 79 24  |=.:pow=.....key$|
00003180  3d 22 3d 22 0d 12 ca 05  cd 0d 12 d4 05 3a 0d 12  |="=".........:..|
00003190  de 2d e7 20 a7 22 2b 2d  2a 2f 22 2c 6f 70 65 72  |.-. ."+-*/",oper|
000031a0  61 74 6f 72 24 29 3c 3e  30 20 80 20 a7 6b 65 79  |ator$)<>0 . .key|
000031b0  24 2c 22 5e 22 29 3c 3e  30 20 8c 0d 12 e8 15 70  |$,"^")<>0 .....p|
000031c0  5f 74 65 6d 70 72 65 67  3d 74 65 6d 70 72 65 67  |_tempreg=tempreg|
000031d0  0d 12 f2 19 70 5f 70 5f  70 6f 72 24 3d 3d 3d 6f  |....p_p_por$===o|
000031e0  72 24 0d 12 fc 11 11 11  6f 72 24 3d 22 3d 22 0d  |r$......or$="=".|
000031f0  13 06 09 70 6f 77 3d b9  0d 13 10 05 cd 0d 13 1a  |...pow=.........|
00003200  05 3a 0d 13 24 2c e7 20  a7 22 2b 2d 22 2c 6f 70  |.:..$,. ."+-",op|
00003210  65 72 61 74 6f 72 24 29  3c 3e 30 20 80 20 a7 22  |erator$)<>0 . ."|
00003220  2a 2f 22 2c 6b 65 79 24  29 3c 3e 30 20 8c 0d 13  |*/",key$)<>0 ...|
00003230  2e 15 6d 5f 74 65 6d 70  72 65 67 3d 74 65 6d 70  |..m_tempreg=temp|
00003240  72 65 67 0d 13 38 19 6d  5f 5f 5f 6f 72 24 3d 3d  |reg..8.m___or$==|
00003250  3d 6f 72 24 0d 13 42 11  11 11 6f 72 24 3d 22 3d  |=or$..B...or$="=|
00003260  22 0d 13 4c 0a 6d 75 6c  74 3d b9 0d 13 56 05 cd  |"..L.mult=...V..|
00003270  0d 13 60 05 3a 0d 13 6a  12 c8 8e 20 c8 8e 20 c8  |..`.:..j... .. .|
00003280  6f 72 24 20 ca 0d 13 74  52 c9 20 22 5e 22 2c 22  |or$ ...tR. "^","|
00003290  2a 22 2c 22 2f 22 2c 22  2b 22 2c 22 2d 22 2c 22  |*","/","+","-","|
000032a0  41 4e 44 22 2c 22 45 4f  52 22 2c 22 4f 52 22 3a  |AND","EOR","OR":|
000032b0  74 65 6d 70 72 65 67 3d  a0 28 c3 74 65 6d 70 72  |tempreg=.(.tempr|
000032c0  65 67 2b 2b 2b 6f 72 24  2b c3 72 65 67 69 73 74  |eg+++or$+.regist|
000032d0  65 72 29 0d 13 7e 3a c9  20 22 5e 28 31 2f 22 20  |er)..~:. "^(1/" |
000032e0  20 3a 74 65 6d 70 72 65  67 3d a0 28 c3 74 65 6d  | :tempreg=.(.tem|
000032f0  70 72 65 67 2b 2b 2b 6f  72 24 2b c3 72 65 67 69  |preg+++or$+.regi|
00003300  73 74 65 72 2b 22 29 22  29 0d 13 88 1f c9 20 22  |ster+")")..... "|
00003310  3d 22 20 20 20 20 20 3a  74 65 6d 70 72 65 67 3d  |="     :tempreg=|
00003320  72 65 67 69 73 74 65 72  0d 13 92 05 cb 0d 13 9c  |register........|
00003330  05 3a 0d 13 a6 22 e7 20  70 6f 77 3d b9 20 80 20  |.:...". pow=. . |
00003340  a7 22 2b 2d 2a 2f 3d 29  22 2c 6b 65 79 24 29 3c  |."+-*/=)",key$)<|
00003350  3e 30 20 8c 0d 13 b0 14  72 65 67 69 73 74 65 72  |>0 .....register|
00003360  3d 74 65 6d 70 72 65 67  0d 13 ba 15 74 65 6d 70  |=tempreg....temp|
00003370  72 65 67 3d 70 5f 74 65  6d 70 72 65 67 0d 13 c4  |reg=p_tempreg...|
00003380  19 19 19 6f 72 24 3d 70  5f 5f 5f 6f 72 24 0d 13  |...or$=p___or$..|
00003390  ce 09 70 6f 77 3d a3 0d  13 d8 2b 74 65 6d 70 72  |..pow=....+tempr|
000033a0  65 67 3d a0 28 c3 74 65  6d 70 72 65 67 2b 2b 2b  |eg=.(.tempreg+++|
000033b0  6f 72 24 2b c3 72 65 67  69 73 74 65 72 29 0d 13  |or$+.register)..|
000033c0  e2 05 cd 0d 13 ec 05 3a  0d 13 f6 21 e7 20 6d 75  |.......:...!. mu|
000033d0  6c 74 3d b9 20 80 20 a7  22 2b 2d 3d 29 22 2c 6b  |lt=. . ."+-=)",k|
000033e0  65 79 24 29 3c 3e 30 20  8c 0d 14 00 14 72 65 67  |ey$)<>0 .....reg|
000033f0  69 73 74 65 72 3d 74 65  6d 70 72 65 67 0d 14 0a  |ister=tempreg...|
00003400  15 74 65 6d 70 72 65 67  3d 6d 5f 74 65 6d 70 72  |.tempreg=m_tempr|
00003410  65 67 0d 14 14 19 14 19  14 6f 72 24 3d 6d 5f 5f  |eg.......or$=m__|
00003420  5f 6f 72 24 0d 14 1e 0a  6d 75 6c 74 3d a3 0d 14  |_or$....mult=...|
00003430  28 2b 74 65 6d 70 72 65  67 3d a0 28 c3 74 65 6d  |(+tempreg=.(.tem|
00003440  70 72 65 67 2b 2b 2b 6f  72 24 2b c3 72 65 67 69  |preg+++or$+.regi|
00003450  73 74 65 72 29 0d 14 32  05 cd 0d 14 3c 05 3a 0d  |ster)..2....<.:.|
00003460  14 46 14 72 65 67 69 73  74 65 72 3d 74 65 6d 70  |.F.register=temp|
00003470  72 65 67 0d 14 50 12 12  12 6f 72 24 3d 6b 65 79  |reg..P...or$=key|
00003480  24 0d 14 5a 05 3a 0d 14  64 1f e7 20 6b 65 79 24  |$..Z.:..d.. key$|
00003490  3d 22 29 22 20 80 20 62  72 61 63 6b 65 74 20 3c  |=")" . bracket <|
000034a0  3e 20 30 20 8c 0d 14 6e  0f 70 6f 77 3d bb 20 a4  |> 0 ...n.pow=. .|
000034b0  70 75 6c 6c 0d 14 78 10  6d 75 6c 74 3d bb 20 a4  |pull..x.mult=. .|
000034c0  70 75 6c 6c 0d 14 82 13  13 13 6f 72 24 3d a4 70  |pull......or$=.p|
000034d0  75 6c 6c 0d 14 8c 13 74  65 6d 70 72 65 67 3d bb  |ull....tempreg=.|
000034e0  20 a4 70 75 6c 6c 0d 14  96 0e 62 72 61 63 6b 65  | .pull....bracke|
000034f0  74 2d 3d 31 0d 14 a0 05  cd 0d 14 aa 05 3a 0d 14  |t-=1.........:..|
00003500  b4 0e 65 6e 74 72 79 24  3d 22 30 22 0d 14 be 05  |..entry$="0"....|
00003510  e1 0d 14 c8 05 3a 0d 14  d2 13 dd 20 a4 64 69 73  |.....:..... .dis|
00003520  70 6c 61 79 28 72 65 67  29 0d 14 dc 16 ea 20 40  |play(reg)..... @|
00003530  25 2c 73 69 67 6e 24 2c  65 78 70 24 2c 64 24 0d  |%,sign$,exp$,d$.|
00003540  14 e6 10 40 25 3d 26 30  31 30 30 30 39 30 41 0d  |...@%=&0100090A.|
00003550  14 f0 0e 65 78 70 24 3d  22 20 20 20 22 0d 14 fa  |...exp$="   "...|
00003560  0e c8 8e 20 62 61 73 65  25 20 ca 0d 15 04 08 c9  |... base% ......|
00003570  20 31 30 0d 15 0e 28 e7  20 69 63 6f 6e 25 3e 39  | 10...(. icon%>9|
00003580  20 80 20 69 63 6f 6e 25  3c 3e 31 36 20 80 20 ac  | . icon%<>16 . .|
00003590  20 65 78 70 6f 6e 65 6e  74 25 8c 0d 15 18 3a e7  | exponent%....:.|
000035a0  20 72 65 67 3c 3e 30 20  80 20 28 94 72 65 67 3e  | reg<>0 . (.reg>|
000035b0  3d 31 30 30 30 30 30 30  30 30 30 20 84 20 94 72  |=1000000000 . .r|
000035c0  65 67 3c 3d 2e 30 31 20  84 20 73 63 69 25 3c 3e  |eg<=.01 . sci%<>|
000035d0  2d 31 29 20 8c 0d 15 22  1f 65 78 70 24 3d c2 22  |-1) ...".exp$=."|
000035e0  30 22 2b c3 28 94 20 a8  20 ab 28 94 72 65 67 29  |0"+.(. . .(.reg)|
000035f0  29 2c 32 29 0d 15 2c 30  e7 20 94 72 65 67 20 3c  |),2)..,0. .reg <|
00003600  3d 2e 30 31 20 8c 20 65  78 70 24 3d 22 2d 22 2b  |=.01 . exp$="-"+|
00003610  65 78 70 24 20 8b 20 65  78 70 24 3d 22 20 22 2b  |exp$ . exp$=" "+|
00003620  65 78 70 24 0d 15 36 1c  72 65 67 3d a4 6e 69 63  |exp$..6.reg=.nic|
00003630  65 45 58 50 28 72 65 67  2c 2d bb 65 78 70 24 29  |eEXP(reg,-.exp$)|
00003640  0d 15 40 05 cd 0d 15 4a  0b 64 24 3d c3 72 65 67  |..@....J.d$=.reg|
00003650  0d 15 54 1c e7 20 a7 64  24 2c 22 2e 22 29 3d 30  |..T.. .d$,".")=0|
00003660  20 8c 20 64 24 3d 64 24  2b 22 2e 22 0d 15 5e 1b  | . d$=d$+"."..^.|
00003670  e7 20 66 69 78 25 3c 3e  2d 31 20 84 20 73 63 69  |. fix%<>-1 . sci|
00003680  25 3c 3e 2d 31 20 8c 0d  15 68 1b 64 24 3d a4 72  |%<>-1 ...h.d$=.r|
00003690  6e 64 28 64 24 2c 66 69  78 25 2b 73 63 69 25 2b  |nd(d$,fix%+sci%+|
000036a0  31 29 0d 15 72 05 cc 0d  15 7c 1f c8 95 20 c2 64  |1)..r....|... .d|
000036b0  24 2c 31 29 3d 22 30 22  20 80 20 a7 64 24 2c 22  |$,1)="0" . .d$,"|
000036c0  2e 22 29 3c 3e 30 0d 15  86 11 64 24 3d c0 64 24  |.")<>0....d$=.d$|
000036d0  2c a9 64 24 2d 31 29 0d  15 90 05 ce 0d 15 9a 05  |,.d$-1).........|
000036e0  cd 0d 15 a4 05 cc 0d 15  ae 0d 64 24 3d 65 6e 74  |..........d$=ent|
000036f0  72 79 24 0d 15 b8 05 cd  0d 15 c2 1c e7 20 a7 64  |ry$.......... .d|
00003700  24 2c 22 2e 22 29 3d 30  20 8c 20 64 24 3d 64 24  |$,".")=0 . d$=d$|
00003710  2b 22 2e 22 0d 15 cc 08  c9 20 31 36 0d 15 d6 15  |+"."..... 16....|
00003720  e7 20 72 65 67 3e 26 37  46 46 46 46 46 46 46 20  |. reg>&7FFFFFFF |
00003730  8c 0d 15 e0 28 65 72 72  6f 72 66 6c 61 67 25 3d  |....(errorflag%=|
00003740  b9 3a 69 63 6f 6e 25 3d  2d 31 3a fa 3a 64 24 3d  |.:icon%=-1:.:d$=|
00003750  22 54 6f 6f 20 42 69 67  22 0d 15 ea 05 cc 0d 15  |"Too Big".......|
00003760  f4 13 64 24 3d a4 68 65  78 73 74 72 28 72 65 67  |..d$=.hexstr(reg|
00003770  29 0d 15 fe 1b e7 20 65  6e 74 72 79 24 3d 22 38  |)..... entry$="8|
00003780  30 30 30 30 30 30 30 22  20 8c 20 fa 0d 16 08 11  |0000000" . .....|
00003790  c8 95 20 c0 64 24 2c 31  29 3d 22 30 22 0d 16 12  |.. .d$,1)="0"...|
000037a0  11 64 24 3d c2 64 24 2c  a9 64 24 2d 31 29 0d 16  |.d$=.d$,.d$-1)..|
000037b0  1c 05 ce 0d 16 26 14 e7  20 64 24 3d 22 22 20 8c  |.....&.. d$="" .|
000037c0  20 64 24 3d 22 30 22 0d  16 30 0d 65 78 70 24 3d  | d$="0"..0.exp$=|
000037d0  22 20 20 22 0d 16 3a 05  cd 0d 16 44 07 c9 20 32  |"  "..:....D.. 2|
000037e0  0d 16 4e 15 e7 20 72 65  67 3e 26 37 46 46 46 46  |..N.. reg>&7FFFF|
000037f0  46 46 46 20 8c 0d 16 58  26 65 72 72 6f 72 66 6c  |FFF ...X&errorfl|
00003800  61 67 25 3d b9 3a 69 63  6f 6e 25 3d 2d 31 3a 64  |ag%=.:icon%=-1:d|
00003810  24 3d 22 54 6f 6f 20 42  69 67 22 0d 16 62 05 cc  |$="Too Big"..b..|
00003820  0d 16 6c 13 64 24 3d a4  62 69 6e 73 74 72 28 72  |..l.d$=.binstr(r|
00003830  65 67 29 0d 16 76 11 c8  95 20 c0 64 24 2c 31 29  |eg)..v... .d$,1)|
00003840  3d 22 30 22 0d 16 80 11  64 24 3d c2 64 24 2c a9  |="0"....d$=.d$,.|
00003850  64 24 2d 31 29 0d 16 8a  05 ce 0d 16 94 14 e7 20  |d$-1).......... |
00003860  64 24 3d 22 22 20 8c 20  64 24 3d 22 30 22 0d 16  |d$="" . d$="0"..|
00003870  9e 0d 65 78 70 24 3d 22  20 20 22 0d 16 a8 05 cd  |..exp$="  ".....|
00003880  0d 16 b2 05 cb 0d 16 bc  11 e7 20 6d 65 6d 6f 72  |.......... memor|
00003890  79 3c 3e 30 20 8c 0d 16  c6 42 71 25 21 30 3d 63  |y<>0 ....Bq%!0=c|
000038a0  61 6c 63 25 3a 71 25 21  34 3d 33 34 3a 71 25 21  |alc%:q%!4=34:q%!|
000038b0  38 3d 30 3a 71 25 21 31  32 3d 32 5e 32 32 3a c8  |8=0:q%!12=2^22:.|
000038c0  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000038d0  61 74 65 22 2c 2c 71 25  0d 16 d0 05 cc 0d 16 da  |ate",,q%........|
000038e0  45 71 25 21 30 3d 63 61  6c 63 25 3a 71 25 21 34  |Eq%!0=calc%:q%!4|
000038f0  3d 33 34 3a 71 25 21 38  3d 32 5e 32 32 3a 71 25  |=34:q%!8=2^22:q%|
00003900  21 31 32 3d 32 5e 32 32  3a c8 99 22 57 69 6d 70  |!12=2^22:.."Wimp|
00003910  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003920  71 25 0d 16 e4 05 cd 0d  16 ee 1a 3d c2 c4 33 32  |q%.........=..32|
00003930  2c 22 20 22 29 2b 64 24  2c 33 32 29 2b 65 78 70  |," ")+d$,32)+exp|
00003940  24 0d 16 f8 05 3a 0d 17  02 0e dd 20 f2 68 65 78  |$....:..... .hex|
00003950  6b 65 79 73 0d 17 0c 3f  71 25 21 30 3d 63 61 6c  |keys...?q%!0=cal|
00003960  63 25 3a 71 25 21 34 3d  31 30 3a 71 25 21 38 3d  |c%:q%!4=10:q%!8=|
00003970  31 3a 71 25 21 31 32 3d  33 3a c8 99 22 57 69 6d  |1:q%!12=3:.."Wim|
00003980  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00003990  2c 71 25 0d 17 16 3f 71  25 21 30 3d 63 61 6c 63  |,q%...?q%!0=calc|
000039a0  25 3a 71 25 21 34 3d 31  31 3a 71 25 21 38 3d 31  |%:q%!4=11:q%!8=1|
000039b0  3a 71 25 21 31 32 3d 33  3a c8 99 22 57 69 6d 70  |:q%!12=3:.."Wimp|
000039c0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000039d0  71 25 0d 17 20 3f 71 25  21 30 3d 63 61 6c 63 25  |q%.. ?q%!0=calc%|
000039e0  3a 71 25 21 34 3d 31 32  3a 71 25 21 38 3d 31 3a  |:q%!4=12:q%!8=1:|
000039f0  71 25 21 31 32 3d 33 3a  c8 99 22 57 69 6d 70 5f  |q%!12=3:.."Wimp_|
00003a00  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00003a10  25 0d 17 2a 3f 71 25 21  30 3d 63 61 6c 63 25 3a  |%..*?q%!0=calc%:|
00003a20  71 25 21 34 3d 31 33 3a  71 25 21 38 3d 31 3a 71  |q%!4=13:q%!8=1:q|
00003a30  25 21 31 32 3d 33 3a c8  99 22 57 69 6d 70 5f 53  |%!12=3:.."Wimp_S|
00003a40  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00003a50  0d 17 34 3f 71 25 21 30  3d 63 61 6c 63 25 3a 71  |..4?q%!0=calc%:q|
00003a60  25 21 34 3d 31 34 3a 71  25 21 38 3d 31 3a 71 25  |%!4=14:q%!8=1:q%|
00003a70  21 31 32 3d 33 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=3:.."Wimp_Se|
00003a80  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00003a90  17 3e 3f 71 25 21 30 3d  63 61 6c 63 25 3a 71 25  |.>?q%!0=calc%:q%|
00003aa0  21 34 3d 31 35 3a 71 25  21 38 3d 31 3a 71 25 21  |!4=15:q%!8=1:q%!|
00003ab0  31 32 3d 33 3a c8 99 22  57 69 6d 70 5f 53 65 74  |12=3:.."Wimp_Set|
00003ac0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 17  |IconState",,q%..|
00003ad0  48 05 e1 0d 17 52 05 3a  0d 17 5c 0e dd 20 f2 64  |H....R.:..\.. .d|
00003ae0  65 63 6b 65 79 73 0d 17  66 3f 71 25 21 30 3d 63  |eckeys..f?q%!0=c|
00003af0  61 6c 63 25 3a 71 25 21  34 3d 31 30 3a 71 25 21  |alc%:q%!4=10:q%!|
00003b00  38 3d 32 3a 71 25 21 31  32 3d 33 3a c8 99 22 57  |8=2:q%!12=3:.."W|
00003b10  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00003b20  22 2c 2c 71 25 0d 17 70  3f 71 25 21 30 3d 63 61  |",,q%..p?q%!0=ca|
00003b30  6c 63 25 3a 71 25 21 34  3d 31 31 3a 71 25 21 38  |lc%:q%!4=11:q%!8|
00003b40  3d 32 3a 71 25 21 31 32  3d 33 3a c8 99 22 57 69  |=2:q%!12=3:.."Wi|
00003b50  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003b60  2c 2c 71 25 0d 17 7a 3f  71 25 21 30 3d 63 61 6c  |,,q%..z?q%!0=cal|
00003b70  63 25 3a 71 25 21 34 3d  31 32 3a 71 25 21 38 3d  |c%:q%!4=12:q%!8=|
00003b80  32 3a 71 25 21 31 32 3d  33 3a c8 99 22 57 69 6d  |2:q%!12=3:.."Wim|
00003b90  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00003ba0  2c 71 25 0d 17 84 3f 71  25 21 30 3d 63 61 6c 63  |,q%...?q%!0=calc|
00003bb0  25 3a 71 25 21 34 3d 31  33 3a 71 25 21 38 3d 32  |%:q%!4=13:q%!8=2|
00003bc0  3a 71 25 21 31 32 3d 33  3a c8 99 22 57 69 6d 70  |:q%!12=3:.."Wimp|
00003bd0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003be0  71 25 0d 17 8e 3f 71 25  21 30 3d 63 61 6c 63 25  |q%...?q%!0=calc%|
00003bf0  3a 71 25 21 34 3d 31 34  3a 71 25 21 38 3d 32 3a  |:q%!4=14:q%!8=2:|
00003c00  71 25 21 31 32 3d 33 3a  c8 99 22 57 69 6d 70 5f  |q%!12=3:.."Wimp_|
00003c10  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00003c20  25 0d 17 98 3f 71 25 21  30 3d 63 61 6c 63 25 3a  |%...?q%!0=calc%:|
00003c30  71 25 21 34 3d 31 35 3a  71 25 21 38 3d 32 3a 71  |q%!4=15:q%!8=2:q|
00003c40  25 21 31 32 3d 33 3a c8  99 22 57 69 6d 70 5f 53  |%!12=3:.."Wimp_S|
00003c50  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00003c60  0d 17 a2 05 e1 0d 17 ac  05 3a 0d 17 b6 0f dd 20  |.........:..... |
00003c70  f2 63 61 6c 63 69 6e 69  74 0d 17 c0 10 de 20 73  |.calcinit..... s|
00003c80  74 61 63 6b 24 28 38 30  29 0d 17 ca 12 61 6e 67  |tack$(80)....ang|
00003c90  6c 65 69 6e 24 3d 22 52  41 44 22 0d 17 d4 13 61  |lein$="RAD"....a|
00003ca0  6e 67 6c 65 6f 75 74 24  3d 22 44 45 47 22 0d 17  |ngleout$="DEG"..|
00003cb0  de 43 6d 61 69 6e 24 3d  22 40 44 65 67 2c 3a 52  |.Cmain$="@Deg,:R|
00003cc0  61 64 2c 40 44 65 63 2c  48 65 78 2c 3a 42 69 6e  |ad,@Dec,Hex,:Bin|
00003cd0  2c 40 4e 6f 72 6d 2c 7e  46 69 78 2e 66 6e 75 6d  |,@Norm,~Fix.fnum|
00003ce0  62 24 2e 2c 7e 53 63 69  2e 73 6e 75 6d 62 24 2e  |b$.,~Sci.snumb$.|
00003cf0  22 0d 17 e8 20 66 6e 75  6d 62 24 3d 22 30 2c 31  |"... fnumb$="0,1|
00003d00  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
00003d10  22 0d 17 f2 20 73 6e 75  6d 62 24 3d 22 30 2c 31  |"... snumb$="0,1|
00003d20  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
00003d30  22 0d 17 fc 0b 66 69 78  25 3d 2d 31 0d 18 06 0b  |"....fix%=-1....|
00003d40  73 63 69 25 3d 2d 31 0d  18 10 0c 62 61 73 65 25  |sci%=-1....base%|
00003d50  3d 31 30 0d 18 1a 0e 73  74 61 63 6b 70 74 72 3d  |=10....stackptr=|
00003d60  30 0d 18 24 0c 6d 65 6d  6f 72 79 3d 30 0d 18 2e  |0..$.memory=0...|
00003d70  0d 62 72 61 63 6b 65 74  3d 30 0d 18 38 0d f2 61  |.bracket=0..8..a|
00003d80  6c 6c 63 6c 65 61 72 0d  18 42 0b 69 63 6f 6e 25  |llclear..B.icon%|
00003d90  3d 30 0d 18 4c 20 6d 61  69 6e 24 3d a4 74 69 63  |=0..L main$=.tic|
00003da0  6b 28 6d 61 69 6e 24 2c  22 44 65 67 72 65 65 73  |k(main$,"Degrees|
00003db0  22 29 0d 18 56 45 71 25  21 30 3d 63 61 6c 63 25  |")..VEq%!0=calc%|
00003dc0  3a 71 25 21 34 3d 33 35  3a 71 25 21 38 3d 30 20  |:q%!4=35:q%!8=0 |
00003dd0  20 20 3a 71 25 21 31 32  3d 32 5e 32 32 3a c8 99  |  :q%!12=2^22:..|
00003de0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003df0  74 65 22 2c 2c 71 25 0d  18 60 45 71 25 21 30 3d  |te",,q%..`Eq%!0=|
00003e00  63 61 6c 63 25 3a 71 25  21 34 3d 33 36 3a 71 25  |calc%:q%!4=36:q%|
00003e10  21 38 3d 32 5e 32 32 3a  71 25 21 31 32 3d 32 5e  |!8=2^22:q%!12=2^|
00003e20  32 32 3a c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |22:.."Wimp_SetIc|
00003e30  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 18 6a 29  |onState",,q%..j)|
00003e40  6d 61 69 6e 24 3d a4 74  69 63 6b 28 6d 61 69 6e  |main$=.tick(main|
00003e50  24 2c 22 44 65 63 69 6d  61 6c 22 29 3a f2 64 65  |$,"Decimal"):.de|
00003e60  63 6b 65 79 73 0d 18 74  45 71 25 21 30 3d 63 61  |ckeys..tEq%!0=ca|
00003e70  6c 63 25 3a 71 25 21 34  3d 33 37 3a 71 25 21 38  |lc%:q%!4=37:q%!8|
00003e80  3d 30 20 20 20 3a 71 25  21 31 32 3d 32 5e 32 32  |=0   :q%!12=2^22|
00003e90  3a c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |:.."Wimp_SetIcon|
00003ea0  53 74 61 74 65 22 2c 2c  71 25 0d 18 7e 45 71 25  |State",,q%..~Eq%|
00003eb0  21 30 3d 63 61 6c 63 25  3a 71 25 21 34 3d 33 38  |!0=calc%:q%!4=38|
00003ec0  3a 71 25 21 38 3d 32 5e  32 32 3a 71 25 21 31 32  |:q%!8=2^22:q%!12|
00003ed0  3d 32 5e 32 32 3a c8 99  22 57 69 6d 70 5f 53 65  |=2^22:.."Wimp_Se|
00003ee0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00003ef0  18 88 45 71 25 21 30 3d  63 61 6c 63 25 3a 71 25  |..Eq%!0=calc%:q%|
00003f00  21 34 3d 33 39 3a 71 25  21 38 3d 32 5e 32 32 3a  |!4=39:q%!8=2^22:|
00003f10  71 25 21 31 32 3d 32 5e  32 32 3a c8 99 22 57 69  |q%!12=2^22:.."Wi|
00003f20  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003f30  2c 2c 71 25 0d 18 92 45  71 25 21 30 3d 63 61 6c  |,,q%...Eq%!0=cal|
00003f40  63 25 3a 71 25 21 34 3d  34 35 3a 71 25 21 38 3d  |c%:q%!4=45:q%!8=|
00003f50  32 5e 32 33 3a 71 25 21  31 32 3d 32 5e 32 33 3a  |2^23:q%!12=2^23:|
00003f60  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00003f70  74 61 74 65 22 2c 2c 71  25 0d 18 9c 45 71 25 21  |tate",,q%...Eq%!|
00003f80  30 3d 63 61 6c 63 25 3a  71 25 21 34 3d 34 36 3a  |0=calc%:q%!4=46:|
00003f90  71 25 21 38 3d 32 5e 32  32 3a 71 25 21 31 32 3d  |q%!8=2^22:q%!12=|
00003fa0  32 5e 32 32 3a c8 99 22  57 69 6d 70 5f 53 65 74  |2^22:.."Wimp_Set|
00003fb0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 18  |IconState",,q%..|
00003fc0  a6 45 71 25 21 30 3d 63  61 6c 63 25 3a 71 25 21  |.Eq%!0=calc%:q%!|
00003fd0  34 3d 34 37 3a 71 25 21  38 3d 32 5e 32 32 3a 71  |4=47:q%!8=2^22:q|
00003fe0  25 21 31 32 3d 32 5e 32  32 3a c8 99 22 57 69 6d  |%!12=2^22:.."Wim|
00003ff0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00004000  2c 71 25 0d 18 b0 25 24  64 69 73 70 6c 61 79 25  |,q%...%$display%|
00004010  3d a4 64 69 73 70 6c 61  79 28 72 65 67 69 73 74  |=.display(regist|
00004020  65 72 29 2b bd 28 30 29  0d 18 ba 05 e1 0d 18 c4  |er)+.(0)........|
00004030  05 3a 0d 18 ce 0f dd 20  f2 70 75 73 68 28 61 24  |.:..... .push(a$|
00004040  29 0d 18 d8 25 73 74 61  63 6b 24 28 73 74 61 63  |)...%stack$(stac|
00004050  6b 70 74 72 29 3d 61 24  3a 73 74 61 63 6b 70 74  |kptr)=a$:stackpt|
00004060  72 2b 3d 31 3a e1 0d 18  e2 05 3a 0d 18 ec 0b dd  |r+=1:.....:.....|
00004070  20 a4 70 75 6c 6c 0d 18  f6 21 73 74 61 63 6b 70  | .pull...!stackp|
00004080  74 72 2d 3d 31 3a 3d 73  74 61 63 6b 24 28 73 74  |tr-=1:=stack$(st|
00004090  61 63 6b 70 74 72 29 0d  19 00 05 3a 0d 19 0a 13  |ackptr)....:....|
000040a0  dd 20 a4 6e 69 63 65 45  58 50 28 61 2c 62 29 0d  |. .niceEXP(a,b).|
000040b0  19 14 0f e7 20 62 3d 30  20 8c 20 3d 20 61 0d 19  |.... b=0 . = a..|
000040c0  1e 0b e7 20 62 3e 30 20  8c 0d 19 28 1e e3 20 6c  |... b>0 ...(.. l|
000040d0  6f 6f 70 20 3d 31 20 b8  20 62 3a 61 20 3d 20 61  |oop =1 . b:a = a|
000040e0  20 2a 20 31 30 3a ed 0d  19 32 05 cc 0d 19 3c 24  | * 10:...2....<$|
000040f0  e3 20 6c 6f 6f 70 20 3d  2d 31 20 b8 20 62 20 88  |. loop =-1 . b .|
00004100  20 2d 31 3a 61 20 3d 20  61 20 2f 20 31 30 3a ed  | -1:a = a / 10:.|
00004110  0d 19 46 05 cd 0d 19 50  06 3d 61 0d 19 5a 05 3a  |..F....P.=a..Z.:|
00004120  0d 19 64 12 dd a4 62 69  6e 73 74 72 28 76 61 6c  |..d...binstr(val|
00004130  25 29 0d 19 6e 0a ea 20  62 75 66 25 0d 19 78 0d  |%)..n.. buf%..x.|
00004140  de 20 62 75 66 25 20 33  33 0d 19 82 33 c8 99 20  |. buf% 33...3.. |
00004150  22 4f 53 5f 43 6f 6e 76  65 72 74 42 69 6e 61 72  |"OS_ConvertBinar|
00004160  79 34 22 2c 76 61 6c 25  2c 62 75 66 25 2c 33 33  |y4",val%,buf%,33|
00004170  20 b8 20 62 75 66 25 2c  6c 65 6e 25 0d 19 8c 0c  | . buf%,len%....|
00004180  3f 6c 65 6e 25 3d 31 33  0d 19 96 0a 3d 24 62 75  |?len%=13....=$bu|
00004190  66 25 0d 19 a0 05 3a 0d  19 aa 12 dd a4 68 65 78  |f%....:......hex|
000041a0  73 74 72 28 76 61 6c 25  29 0d 19 b4 0a ea 20 62  |str(val%)..... b|
000041b0  75 66 25 0d 19 be 0d de  20 62 75 66 25 20 33 32  |uf%..... buf% 32|
000041c0  0d 19 c8 30 c8 99 20 22  4f 53 5f 43 6f 6e 76 65  |...0.. "OS_Conve|
000041d0  72 74 48 65 78 38 22 2c  76 61 6c 25 2c 62 75 66  |rtHex8",val%,buf|
000041e0  25 2c 31 36 20 b8 20 62  75 66 25 2c 6c 65 6e 25  |%,16 . buf%,len%|
000041f0  0d 19 d2 0c 3f 6c 65 6e  25 3d 31 33 0d 19 dc 0a  |....?len%=13....|
00004200  3d 24 62 75 66 25 0d 19  e6 05 3a 0d 19 f0 10 dd  |=$buf%....:.....|
00004210  20 a4 72 6e 64 28 61 24  2c 6e 29 0d 19 fa 16 62  | .rnd(a$,n)....b|
00004220  24 3d c1 61 24 2c a7 61  24 2c 22 2e 22 29 2b 31  |$=.a$,.a$,".")+1|
00004230  29 0d 1a 04 0e 62 3d bb  20 c0 62 24 2c 6e 29 0d  |)....b=. .b$,n).|
00004240  1a 0e 12 63 3d bb 20 c1  62 24 2c 6e 2b 31 2c 31  |...c=. .b$,n+1,1|
00004250  29 0d 1a 18 11 e7 20 63  3e 3d 35 20 8c 20 62 2b  |)..... c>=5 . b+|
00004260  3d 31 0d 1a 22 26 3d c0  61 24 2c a7 61 24 2c 22  |=1.."&=.a$,.a$,"|
00004270  2e 22 29 29 2b c0 c3 62  2b 22 30 30 30 30 30 30  |."))+..b+"000000|
00004280  30 30 30 30 22 2c 6e 29  0d 1a 2c 05 3a 0d 1a 36  |0000",n)..,.:..6|
00004290  14 dd 20 f2 6b 65 79 70  72 65 73 73 65 64 28 6b  |.. .keypressed(k|
000042a0  29 0d 1a 40 0a ea 20 73  65 6e 64 0d 1a 4a 0c 73  |)..@.. send..J.s|
000042b0  65 6e 64 3d 32 35 35 0d  1a 54 14 e7 20 6b 3d 31  |end=255..T.. k=1|
000042c0  33 20 8c 20 73 65 6e 64  3d 32 39 0d 1a 5e 15 e7  |3 . send=29..^..|
000042d0  20 6b 3d 31 32 37 20 8c  20 73 65 6e 64 3d 32 38  | k=127 . send=28|
000042e0  0d 1a 68 1b e7 20 6b 3d  31 32 37 20 80 20 a6 2d  |..h.. k=127 . .-|
000042f0  31 20 8c 20 73 65 6e 64  3d 34 34 0d 1a 72 8f e7  |1 . send=44..r..|
00004300  20 6b 3d 32 37 20 8c 20  c8 99 20 22 57 69 6d 70  | k=27 . .. "Wimp|
00004310  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00004320  6e 22 2c 63 61 72 65 74  73 74 6f 72 65 25 21 30  |n",caretstore%!0|
00004330  2c 63 61 72 65 74 73 74  6f 72 65 25 21 34 2c 63  |,caretstore%!4,c|
00004340  61 72 65 74 73 74 6f 72  65 25 21 38 2c 63 61 72  |aretstore%!8,car|
00004350  65 74 73 74 6f 72 65 25  21 31 32 2c 63 61 72 65  |etstore%!12,care|
00004360  74 73 74 6f 72 65 25 21  31 36 2c 63 61 72 65 74  |tstore%!16,caret|
00004370  73 74 6f 72 65 25 21 32  30 3a 63 61 72 65 74 73  |store%!20:carets|
00004380  74 6f 72 65 25 21 30 3d  2d 31 0d 1a 7c 33 e7 20  |tore%!0=-1..|3. |
00004390  6b 20 3e 20 33 31 20 80  20 6b 20 3c 20 39 35 20  |k > 31 . k < 95 |
000043a0  8c 20 73 65 6e 64 3d 3f  28 6b 65 79 74 72 61 6e  |. send=?(keytran|
000043b0  73 61 72 72 61 79 25 2b  6b 2d 33 32 29 0d 1a 86  |sarray%+k-32)...|
000043c0  11 e7 20 73 65 6e 64 3c  3e 32 35 35 20 8c 0d 1a  |.. send<>255 ...|
000043d0  90 23 f2 63 68 65 63 6b  6d 6f 75 73 65 28 30 2c  |.#.checkmouse(0,|
000043e0  30 2c 34 2c 63 61 6c 63  25 2c 73 65 6e 64 2c 30  |0,4,calc%,send,0|
000043f0  29 0d 1a 9a 05 cc 0d 1a  a4 1a c8 99 20 22 57 69  |)........... "Wi|
00004400  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
00004410  0d 1a ae 05 cd 0d 1a b8  05 e1 0d 1a c2 05 3a 0d  |..............:.|
00004420  1a cc 1b dd 20 f2 73 65  6e 64 5f 68 65 6c 70 28  |.... .send_help(|
00004430  62 6c 6f 63 6b 25 2c 61  24 29 0d 1a d6 1e 21 28  |block%,a$)....!(|
00004440  62 6c 6f 63 6b 25 2b 30  30 29 3d 28 a9 61 24 2b  |block%+00)=(.a$+|
00004450  32 35 29 20 80 20 ac 33  0d 1a e0 16 62 6c 6f 63  |25) . .3....bloc|
00004460  6b 25 21 31 32 3d 62 6c  6f 63 6b 25 21 38 0d 1a  |k%!12=block%!8..|
00004470  ea 15 21 28 62 6c 6f 63  6b 25 2b 31 36 29 3d 26  |..!(block%+16)=&|
00004480  35 30 33 0d 1a f4 13 24  28 62 6c 6f 63 6b 25 2b  |503....$(block%+|
00004490  32 30 29 3d 61 24 0d 1a  fe 18 3f 28 62 6c 6f 63  |20)=a$....?(bloc|
000044a0  6b 25 2b 32 30 2b a9 61  24 2b 31 29 3d 30 0d 1b  |k%+20+.a$+1)=0..|
000044b0  08 2c c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.,.. "Wimp_SendM|
000044c0  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
000044d0  25 2c 62 6c 6f 63 6b 25  21 34 0d 1b 12 05 e1 0d  |%,block%!4......|
000044e0  1b 1c 05 3a 0d 1b 26 23  dd 20 a4 68 65 6c 70 5f  |...:..&#. .help_|
000044f0  74 65 78 74 28 62 75 66  25 2c 65 6e 64 62 75 66  |text(buf%,endbuf|
00004500  25 2c 6e 75 6d 62 29 0d  1b 30 14 ea 20 6e 65 78  |%,numb)..0.. nex|
00004510  74 25 2c 61 24 2c 6c 6f  6f 70 25 0d 1b 3a 1f c8  |t%,a$,loop%..:..|
00004520  95 20 6e 65 78 74 25 20  3c 3d 20 65 6e 64 62 75  |. next% <= endbu|
00004530  66 25 20 80 20 61 24 3d  22 22 0d 1b 44 10 6e 65  |f% . a$=""..D.ne|
00004540  78 74 25 3d 62 75 66 25  2b 32 0d 1b 4e 05 f5 0d  |xt%=buf%+2..N...|
00004550  1b 58 0c 6e 65 78 74 25  2b 3d 31 0d 1b 62 32 fd  |.X.next%+=1..b2.|
00004560  20 3f 6e 65 78 74 25 20  3d 20 31 30 20 84 20 3f  | ?next% = 10 . ?|
00004570  6e 65 78 74 25 20 3d 20  31 33 20 84 20 6e 65 78  |next% = 13 . nex|
00004580  74 25 20 3e 3d 20 65 6e  64 62 75 66 25 0d 1b 6c  |t% >= endbuf%..l|
00004590  33 e7 20 6e 75 6d 62 3d  bb 28 bd 3f 62 75 66 25  |3. numb=.(.?buf%|
000045a0  2b bd 3f 28 62 75 66 25  2b 31 29 29 20 80 20 6e  |+.?(buf%+1)) . n|
000045b0  65 78 74 25 20 3c 20 65  6e 64 62 75 66 25 20 8c  |ext% < endbuf% .|
000045c0  0d 1b 76 1c e3 20 6c 6f  6f 70 25 3d 62 75 66 25  |..v.. loop%=buf%|
000045d0  2b 32 20 b8 20 6e 65 78  74 25 2d 31 0d 1b 80 13  |+2 . next%-1....|
000045e0  61 24 3d 61 24 2b bd 28  3f 6c 6f 6f 70 25 29 0d  |a$=a$+.(?loop%).|
000045f0  1b 8a 05 ed 0d 1b 94 05  cd 0d 1b 9e 10 62 75 66  |.............buf|
00004600  25 3d 6e 65 78 74 25 2b  31 0d 1b a8 05 ce 0d 1b  |%=next%+1.......|
00004610  b2 07 3d 61 24 0d 1b bc  05 3a 0d 1b c6 1b dd 20  |..=a$....:..... |
00004620  f2 66 6c 61 73 68 5f 69  63 6f 6e 28 77 25 2c 69  |.flash_icon(w%,i|
00004630  25 2c 71 25 29 0d 1b d0  07 ea 20 74 0d 1b da 10  |%,q%)..... t....|
00004640  ff 20 28 22 66 78 32 31  2c 30 22 29 0d 1b e4 44  |. ("fx21,0")...D|
00004650  71 25 21 30 3d 77 25 3a  71 25 21 34 3d 69 25 3a  |q%!0=w%:q%!4=i%:|
00004660  71 25 21 38 3d 31 3c 3c  32 31 3a 71 25 21 31 32  |q%!8=1<<21:q%!12|
00004670  3d 31 3c 3c 32 31 3a c8  99 22 57 69 6d 70 5f 53  |=1<<21:.."Wimp_S|
00004680  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00004690  0d 1b ee 14 74 3d 91 3a  f5 20 fd 20 91 3e 28 74  |....t=.:. . .>(t|
000046a0  2b 31 30 29 0d 1b f8 40  71 25 21 30 3d 77 25 3a  |+10)...@q%!0=w%:|
000046b0  71 25 21 34 3d 69 25 3a  71 25 21 38 3d 30 3a 71  |q%!4=i%:q%!8=0:q|
000046c0  25 21 31 32 3d 31 3c 3c  32 31 3a c8 99 22 57 69  |%!12=1<<21:.."Wi|
000046d0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000046e0  2c 2c 71 25 0d 1c 02 05  e1 0d ff                 |,,q%.......|
000046eb