/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / acorn / riscos2 / apps2 / !Calc / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 1e de 20 74 | 61 73 6b 69 64 25 34 3a |e..... t|askid%4:|
|00000020| 24 74 61 73 6b 69 64 25 | 3d 22 54 41 53 4b 22 0d |$taskid%|="TASK".|
|00000030| 00 1e 3d c8 99 20 22 57 | 69 6d 70 5f 49 6e 69 74 |..=.. "W|imp_Init|
|00000040| 69 61 6c 69 73 65 22 2c | 32 30 30 2c 21 74 61 73 |ialise",|200,!tas|
|00000050| 6b 69 64 25 2c 22 43 61 | 6c 63 75 6c 61 74 6f 72 |kid%,"Ca|lculator|
|00000060| 22 20 b8 20 76 65 72 73 | 69 6f 6e 25 0d 00 28 4d |" . vers|ion%..(M|
|00000070| 60 77 62 63 6f 6c 3d 31 | 30 3a 60 74 62 63 6f 6c |`wbcol=1|0:`tbcol|
|00000080| 3d 31 32 3a 60 73 63 6f | 3d 34 3a 60 6d 62 63 6f |=12:`sco|=4:`mbco|
|00000090| 6c 3d 32 3a 60 77 66 63 | 6f 6c 3d 26 37 3a 60 74 |l=2:`wfc|ol=&7:`t|
|000000a0| 66 63 6f 6c 3d 37 3a 60 | 73 63 69 3d 26 44 3a 60 |fcol=7:`|sci=&D:`|
|000000b0| 74 62 63 6f 6c 32 3d 26 | 43 0d 00 32 09 f2 76 61 |tbcol2=&|C..2..va|
|000000c0| 72 73 0d 00 3c 3f de 20 | 71 25 20 26 33 30 30 2c |rs..<?. |q% &300,|
|000000d0| 74 65 6d 70 25 20 32 35 | 36 2c 62 75 66 66 65 72 |temp% 25|6,buffer|
|000000e0| 25 20 26 32 30 30 2c 65 | 6e 64 62 75 66 25 20 2d |% &200,e|ndbuf% -|
|000000f0| 31 3a 63 75 72 62 75 66 | 25 3d 62 75 66 66 65 72 |1:curbuf|%=buffer|
|00000100| 25 0d 00 46 04 0d 00 50 | 37 c8 99 20 22 57 69 6d |%..F...P|7.. "Wim|
|00000110| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00000120| 2c 22 3c 43 61 6c 63 75 | 6c 61 74 6f 72 24 44 69 |,"<Calcu|lator$Di|
|00000130| 72 3e 2e 54 65 6d 70 6c | 61 74 65 22 0d 00 5a 35 |r>.Templ|ate"..Z5|
|00000140| ee 20 85 20 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |. . .. "|Wimp_Clo|
|00000150| 73 65 54 65 6d 70 6c 61 | 74 65 22 3a f2 65 72 72 |seTempla|te":.err|
|00000160| 6f 72 64 69 73 70 6c 61 | 79 28 9f 2c f6 24 2c 9e |ordispla|y(.,.$,.|
|00000170| 29 0d 00 64 3e c8 99 20 | 22 57 69 6d 70 5f 4c 6f |)..d>.. |"Wimp_Lo|
|00000180| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 71 25 2c |adTempla|te",,q%,|
|00000190| 74 65 6d 70 25 2c 74 65 | 6d 70 25 2b 31 2c 2d 31 |temp%,te|mp%+1,-1|
|000001a0| 2c 22 63 61 6c 63 75 6c | 61 74 6f 72 22 2c 30 0d |,"calcul|ator",0.|
|000001b0| 00 6e 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.n&.. "W|imp_Crea|
|000001c0| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|000001d0| 63 61 6c 63 25 0d 00 78 | 3a c8 99 20 22 57 69 6d |calc%..x|:.. "Wim|
|000001e0| 70 5f 4c 6f 61 64 54 65 | 6d 70 6c 61 74 65 22 2c |p_LoadTe|mplate",|
|000001f0| 2c 71 25 2c 74 65 6d 70 | 25 2c 74 65 6d 70 25 2b |,q%,temp|%,temp%+|
|00000200| 32 35 36 2c 2d 31 2c 22 | 49 6e 66 6f 22 2c 30 0d |256,-1,"|Info",0.|
|00000210| 00 82 26 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..&.. "W|imp_Crea|
|00000220| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|00000230| 69 6e 66 6f 25 0d 00 8c | 1b c8 99 20 22 57 69 6d |info%...|... "Wim|
|00000240| 70 5f 43 6c 6f 73 65 54 | 65 6d 70 6c 61 74 65 22 |p_CloseT|emplate"|
|00000250| 0d 00 96 10 ee 85 20 f2 | 65 72 72 6f 72 62 6f 78 |...... .|errorbox|
|00000260| 0d 00 a0 05 20 0d 00 aa | 33 53 25 3d 8e 22 3c 43 |.... ...|3S%=."<C|
|00000270| 61 6c 63 75 6c 61 74 6f | 72 24 44 69 72 3e 2e 21 |alculato|r$Dir>.!|
|00000280| 53 70 72 69 74 65 73 22 | 3a 54 25 3d a2 23 53 25 |Sprites"|:T%=.#S%|
|00000290| 2b 31 36 3a d9 23 53 25 | 0d 00 b4 11 de 20 73 70 |+16:.#S%|..... sp|
|000002a0| 72 69 74 65 73 25 20 54 | 25 0d 00 be 1d 21 73 70 |rites% T|%....!sp|
|000002b0| 72 69 74 65 73 25 3d 54 | 25 3a 73 70 72 69 74 65 |rites%=T|%:sprite|
|000002c0| 73 25 21 38 3d 31 0d 00 | c8 22 c8 99 20 22 4f 53 |s%!8=1..|.".. "OS|
|000002d0| 5f 53 70 72 69 74 65 4f | 70 22 2c 26 31 30 39 2c |_SpriteO|p",&109,|
|000002e0| 73 70 72 69 74 65 73 25 | 0d 00 d2 3e c8 99 20 22 |sprites%|...>.. "|
|000002f0| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 30 |OS_Sprit|eOp",&10|
|00000300| 41 2c 73 70 72 69 74 65 | 73 25 2c 22 3c 43 61 6c |A,sprite|s%,"<Cal|
|00000310| 63 75 6c 61 74 6f 72 24 | 44 69 72 3e 2e 21 53 70 |culator$|Dir>.!Sp|
|00000320| 72 69 74 65 73 22 0d 00 | dc 1b 69 63 63 61 6c 63 |rites"..|..iccalc|
|00000330| 25 3d a4 69 63 6f 6e 62 | 61 72 3a f2 63 6c 65 61 |%=.iconb|ar:.clea|
|00000340| 72 0d 00 e6 05 20 0d 00 | f0 3b c8 99 20 44 72 61 |r.... ..|.;.. Dra|
|00000350| 67 2c 2c 2d 31 3a f2 67 | 65 74 70 6f 69 6e 74 65 |g,,-1:.g|etpointe|
|00000360| 72 3a 78 6f 25 3d 6d 6f | 75 73 65 78 25 3a 79 6f |r:xo%=mo|usex%:yo|
|00000370| 25 3d 6d 6f 75 73 65 79 | 25 3a 6f 70 65 6e 25 3d |%=mousey|%:open%=|
|00000380| a3 0d 00 fa 05 f5 0d 01 | 04 18 20 20 c8 99 20 50 |........|..  .. P|
|00000390| 6f 6c 6c 25 2c 31 2c 71 | 25 20 b8 20 41 25 0d 01 |oll%,1,q|% . A%..|
|000003a0| 0e 0d 20 20 c8 8e 20 41 | 25 20 ca 0d 01 18 1e 20 |..  .. A|% ..... |
|000003b0| 20 c9 20 31 20 3a f2 72 | 65 64 72 61 77 5f 77 69 | . 1 :.r|edraw_wi|
|000003c0| 6e 64 6f 77 28 21 71 25 | 29 0d 01 22 44 20 20 c9 |ndow(!q%|).."D  .|
|000003d0| 20 32 20 3a f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 | 2 :.ope|n_window|
|000003e0| 28 21 71 25 2c 71 25 21 | 34 2c 71 25 21 38 2c 71 |(!q%,q%!|4,q%!8,q|
|000003f0| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00000400| 2c 71 25 21 32 34 2c 71 | 25 21 32 38 29 0d 01 2c |,q%!24,q|%!28)..,|
|00000410| 1d 20 20 c9 20 33 20 3a | f2 63 6c 6f 73 65 61 77 |.  . 3 :|.closeaw|
|00000420| 69 6e 64 6f 77 28 21 71 | 25 29 0d 01 36 37 20 20 |indow(!q|%)..67  |
|00000430| c9 20 36 20 3a f2 63 68 | 65 63 6b 6d 6f 75 73 65 |. 6 :.ch|eckmouse|
|00000440| 28 21 71 25 2c 71 25 21 | 34 2c 71 25 21 38 2c 71 |(!q%,q%!|4,q%!8,q|
|00000450| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00000460| 29 0d 01 40 1a 20 20 c9 | 20 39 20 3a f2 6d 65 6e |)..@.  .| 9 :.men|
|00000470| 75 73 65 6c 65 63 74 28 | 71 25 29 0d 01 4a 1a 20 |uselect(|q%)..J. |
|00000480| 20 c9 20 31 37 2c 31 38 | 3a f2 72 65 63 65 69 76 | . 17,18|:.receiv|
|00000490| 65 28 71 25 29 0d 01 54 | 07 20 20 cb 0d 01 5e 07 |e(q%)..T|.  ...^.|
|000004a0| fd 20 a3 0d 01 68 05 20 | 0d 01 72 12 dd 20 f2 72 |. ...h. |..r.. .r|
|000004b0| 65 63 65 69 76 65 28 71 | 25 29 0d 01 7c 0e c8 8e |eceive(q|%)..|...|
|000004c0| 20 71 25 21 31 36 20 ca | 0d 01 86 11 c9 20 30 3a | q%!16 .|..... 0:|
|000004d0| f2 66 69 6e 69 73 68 3a | e0 0d 01 90 05 cb 0d 01 |.finish:|........|
|000004e0| 9a 05 e1 0d 01 a4 05 20 | 0d 01 ae 37 dd 20 f2 63 |....... |...7. .c|
|000004f0| 68 65 63 6b 6d 6f 75 73 | 65 28 6d 6f 75 73 65 78 |heckmous|e(mousex|
|00000500| 25 2c 6d 6f 75 73 65 79 | 25 2c 62 25 2c 68 61 6e |%,mousey|%,b%,han|
|00000510| 64 6c 65 25 2c 69 63 6f | 6e 25 2c 6f 62 25 29 0d |dle%,ico|n%,ob%).|
|00000520| 01 b8 0c e7 28 62 25 80 | 32 29 8c 0d 01 c2 12 20 |....(b%.|2)..... |
|00000530| 20 c8 8e 20 68 61 6e 64 | 6c 65 25 20 ca 0d 01 cc | .. hand|le% ....|
|00000540| 0a 20 20 c9 20 2d 32 0d | 01 d6 2e 20 20 20 20 f2 |.  . -2.|...    .|
|00000550| 64 6f 6d 65 6e 75 28 31 | 30 31 2c 22 3e 49 6e 66 |domenu(1|01,">Inf|
|00000560| 6f 2c 51 75 69 74 22 2c | 22 43 61 6c 63 75 6c 61 |o,Quit",|"Calcula|
|00000570| 74 6f 72 22 29 0d 01 e0 | 07 20 20 cb 0d 01 ea 05 |tor")...|.  .....|
|00000580| cd 0d 01 f4 0c e7 28 62 | 25 80 35 29 8c 0d 01 fe |......(b|%.5)....|
|00000590| 20 20 20 e7 68 61 6e 64 | 6c 65 25 3e 2d 31 8c f2 |   .hand|le%>-1..|
|000005a0| 67 65 74 77 28 68 61 6e | 64 6c 65 25 29 0d 02 08 |getw(han|dle%)...|
|000005b0| 12 20 20 c8 8e 20 68 61 | 6e 64 6c 65 25 20 ca 0d |.  .. ha|ndle% ..|
|000005c0| 02 12 0e 20 20 c9 20 63 | 61 6c 63 25 3a 0d 02 1c |...  . c|alc%:...|
|000005d0| 0b 20 20 20 20 ea 20 85 | 0d 02 26 33 20 20 20 20 |.    . .|..&3    |
|000005e0| ee 20 85 20 ea 20 65 72 | 72 6f 72 66 6c 61 67 25 |. . . er|rorflag%|
|000005f0| 3d b9 3a 20 64 72 65 67 | 24 3d 22 45 72 72 6f 72 |=.: dreg|$="Error|
|00000600| 22 3a 20 69 63 6f 6e 25 | 3d 2d 31 0d 02 30 16 20 |": icon%|=-1..0. |
|00000610| 20 20 20 e7 20 65 72 72 | 6f 72 66 6c 61 67 25 20 |   . err|orflag% |
|00000620| 8c 0d 02 3a 3b 20 20 20 | 20 20 20 e7 20 69 63 6f |...:;   |   . ico|
|00000630| 6e 25 3d 31 36 20 f2 63 | 6c 65 61 72 3a f4 20 69 |n%=16 .c|lear:. i|
|00000640| 67 6e 6f 72 65 20 75 6e | 74 69 6c 20 65 72 72 6f |gnore un|til erro|
|00000650| 72 20 69 73 20 63 6c 65 | 61 72 65 64 0d 02 44 09 |r is cle|ared..D.|
|00000660| 20 20 20 20 cc 0d 02 4e | 12 20 20 20 20 c8 8e 20 |    ...N|.    .. |
|00000670| 69 63 6f 6e 25 20 ca 0d | 02 58 36 20 20 20 20 20 |icon% ..|.X6     |
|00000680| 20 c9 20 30 2c 31 2c 32 | 2c 33 2c 34 2c 35 2c 36 | . 0,1,2|,3,4,5,6|
|00000690| 2c 37 2c 38 2c 39 3a 20 | f2 64 69 67 69 74 28 bd |,7,8,9: |.digit(.|
|000006a0| 28 69 63 6f 6e 25 2b 97 | 22 30 22 29 29 0d 02 62 |(icon%+.|"0"))..b|
|000006b0| 16 20 20 20 20 20 20 c9 | 20 31 30 3a 20 f2 70 6f |.      .| 10: .po|
|000006c0| 69 6e 74 0d 02 6c 1e 20 | 20 20 20 20 20 c9 20 31 |int..l. |     . 1|
|000006d0| 31 3a 20 f2 6f 70 65 72 | 61 74 6f 72 28 22 3d 22 |1: .oper|ator("="|
|000006e0| 29 0d 02 76 1e 20 20 20 | 20 20 20 c9 20 31 32 3a |)..v.   |   . 12:|
|000006f0| 20 f2 6f 70 65 72 61 74 | 6f 72 28 22 2b 22 29 0d | .operat|or("+").|
|00000700| 02 80 1e 20 20 20 20 20 | 20 c9 20 31 33 3a 20 f2 |...     | . 13: .|
|00000710| 6f 70 65 72 61 74 6f 72 | 28 22 2d 22 29 0d 02 8a |operator|("-")...|
|00000720| 1e 20 20 20 20 20 20 c9 | 20 31 34 3a 20 f2 6f 70 |.      .| 14: .op|
|00000730| 65 72 61 74 6f 72 28 22 | 2a 22 29 0d 02 94 1e 20 |erator("|*").... |
|00000740| 20 20 20 20 20 c9 20 31 | 35 3a 20 f2 6f 70 65 72 |     . 1|5: .oper|
|00000750| 61 74 6f 72 28 22 2f 22 | 29 0d 02 9e 16 20 20 20 |ator("/"|)....   |
|00000760| 20 20 20 c9 20 31 36 3a | 20 f2 63 6c 65 61 72 0d |   . 16:| .clear.|
|00000770| 02 a8 09 20 20 20 20 cb | 0d 02 b2 09 20 20 20 20 |...    .|....    |
|00000780| cd 0d 02 bc 33 20 20 20 | 20 f2 75 70 64 61 74 65 |....3   | .update|
|00000790| 28 63 61 6c 63 25 2c 31 | 32 2c 2d 32 38 2d 33 32 |(calc%,1|2,-28-32|
|000007a0| 2c 31 30 2a 31 36 2b 31 | 32 2c 2d 32 34 29 3a f2 |,10*16+1|2,-24):.|
|000007b0| 63 61 6c 63 0d 02 c6 38 | 20 20 c9 20 2d 32 3a e7 |calc...8|  . -2:.|
|000007c0| 6f 70 65 6e 25 20 f2 66 | 72 6f 6e 74 28 63 61 6c |open% .f|ront(cal|
|000007d0| 63 25 29 20 8b 20 f2 72 | 65 6f 70 65 6e 28 63 61 |c%) . .r|eopen(ca|
|000007e0| 6c 63 25 29 3a 6f 70 65 | 6e 25 3d b9 0d 02 d0 07 |lc%):ope|n%=.....|
|000007f0| 20 20 cb 0d 02 da 05 cd | 0d 02 e4 05 e1 0d 02 ee |  ......|........|
|00000800| 05 20 0d 02 f8 1c dd 20 | f2 63 6c 6f 73 65 61 77 |. ..... |.closeaw|
|00000810| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 29 0d 03 |indow(ha|ndle%)..|
|00000820| 02 12 f2 67 65 74 77 28 | 68 61 6e 64 6c 65 25 29 |...getw(|handle%)|
|00000830| 0d 03 0c 1b 78 6f 25 3d | 78 30 25 3a 79 6f 25 3d |....xo%=|x0%:yo%=|
|00000840| 79 30 25 3a 6f 70 65 6e | 25 3d a3 0d 03 16 1a f2 |y0%:open|%=......|
|00000850| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 68 61 6e |close_wi|ndow(han|
|00000860| 64 6c 65 25 29 0d 03 20 | 05 e1 0d 03 2a 05 20 0d |dle%).. |....*. .|
|00000870| 03 34 0d dd 20 f2 66 69 | 6e 69 73 68 0d 03 3e 17 |.4.. .fi|nish..>.|
|00000880| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|00000890| 77 6e 22 0d 03 48 05 e1 | 0d 03 52 05 20 0d 03 5c |wn"..H..|..R. ..\|
|000008a0| 27 dd 20 f2 64 6f 6d 65 | 6e 75 28 68 61 6e 64 6c |'. .dome|nu(handl|
|000008b0| 65 25 2c 6d 65 6e 75 24 | 2c 6d 65 6e 75 74 69 74 |e%,menu$|,menutit|
|000008c0| 6c 65 24 29 0d 03 66 17 | 6d 65 6e 75 68 61 6e 64 |le$)..f.|menuhand|
|000008d0| 6c 65 25 3d 68 61 6e 64 | 6c 65 25 0d 03 70 14 6d |le%=hand|le%..p.m|
|000008e0| 65 6e 75 70 74 72 25 3d | 62 75 66 66 65 72 25 0d |enuptr%=|buffer%.|
|000008f0| 03 7a 08 69 25 3d 30 0d | 03 84 12 6d 65 6e 75 70 |.z.i%=0.|...menup|
|00000900| 74 72 25 21 32 30 3d 34 | 30 0d 03 8e 18 24 6d 65 |tr%!20=4|0....$me|
|00000910| 6e 75 70 74 72 25 3d 6d | 65 6e 75 74 69 74 6c 65 |nuptr%=m|enutitle|
|00000920| 24 0d 03 98 4a 6d 65 6e | 75 70 74 72 25 3f 31 32 |$...Jmen|uptr%?12|
|00000930| 3d 60 74 66 63 6f 6c 3a | 6d 65 6e 75 70 74 72 25 |=`tfcol:|menuptr%|
|00000940| 3f 31 33 3d 32 3a 6d 65 | 6e 75 70 74 72 25 3f 31 |?13=2:me|nuptr%?1|
|00000950| 34 3d 60 77 66 63 6f 6c | 3a 6d 65 6e 75 70 74 72 |4=`wfcol|:menuptr|
|00000960| 25 3f 31 35 3d 60 77 62 | 63 6f 6c 0d 03 a2 24 6d |%?15=`wb|col...$m|
|00000970| 65 6e 75 70 74 72 25 21 | 31 36 3d 31 39 36 2d 32 |enuptr%!|16=196-2|
|00000980| 34 3a 6d 65 6e 75 70 74 | 72 25 21 32 34 3d 30 0d |4:menupt|r%!24=0.|
|00000990| 03 ac 10 6d 65 6e 75 70 | 74 72 25 2b 3d 32 38 0d |...menup|tr%+=28.|
|000009a0| 03 b6 31 f5 20 69 74 65 | 6d 24 3d a4 70 61 72 28 |..1. ite|m$=.par(|
|000009b0| 22 2c 22 29 3a f2 6d 65 | 6e 75 69 74 65 6d 28 69 |","):.me|nuitem(i|
|000009c0| 74 65 6d 24 29 3a fd 20 | 69 74 65 6d 24 3d 22 22 |tem$):. |item$=""|
|000009d0| 0d 03 c0 23 6d 65 6e 75 | 70 74 72 25 21 2d 32 34 |...#menu|ptr%!-24|
|000009e0| 3d 28 6d 65 6e 75 70 74 | 72 25 21 2d 32 34 29 84 |=(menupt|r%!-24).|
|000009f0| 26 38 30 0d 03 ca 27 c8 | 99 20 43 72 4d 65 6e 75 |&80...'.|. CrMenu|
|00000a00| 2c 2c 62 75 66 66 65 72 | 25 2c 6d 6f 75 73 65 78 |,,buffer|%,mousex|
|00000a10| 25 2d 36 34 2c 39 36 2b | 38 30 0d 03 d4 05 e1 0d |%-64,96+|80......|
|00000a20| 03 de 05 20 0d 03 e8 16 | dd 20 f2 6d 65 6e 75 69 |... ....|. .menui|
|00000a30| 74 65 6d 28 74 65 78 74 | 24 29 0d 03 f2 10 e7 20 |tem(text|$)..... |
|00000a40| 74 65 78 74 24 3d 22 22 | 20 e1 0d 03 fc 0f 21 6d |text$=""| .....!m|
|00000a50| 65 6e 75 70 74 72 25 3d | 30 0d 04 06 34 e7 20 c0 |enuptr%=|0...4. .|
|00000a60| 74 65 78 74 24 2c 31 29 | 3d 22 3e 22 20 6d 65 6e |text$,1)|=">" men|
|00000a70| 75 70 74 72 25 21 34 3d | 69 6e 66 6f 25 20 8b 20 |uptr%!4=|info% . |
|00000a80| 6d 65 6e 75 70 74 72 25 | 21 34 3d 2d 31 0d 04 10 |menuptr%|!4=-1...|
|00000a90| 18 6d 65 6e 75 70 74 72 | 25 21 38 3d 26 30 37 30 |.menuptr|%!8=&070|
|00000aa0| 30 30 30 32 31 0d 04 1a | 43 e7 20 c0 74 65 78 74 |00021...|C. .text|
|00000ab0| 24 2c 31 29 3d 22 3e 22 | 20 24 28 6d 65 6e 75 70 |$,1)=">"| $(menup|
|00000ac0| 74 72 25 2b 31 32 29 3d | c1 74 65 78 74 24 2c 32 |tr%+12)=|.text$,2|
|00000ad0| 29 20 8b 20 24 28 6d 65 | 6e 75 70 74 72 25 2b 31 |) . $(me|nuptr%+1|
|00000ae0| 32 29 3d 74 65 78 74 24 | 0d 04 24 10 6d 65 6e 75 |2)=text$|..$.menu|
|00000af0| 70 74 72 25 2b 3d 32 34 | 0d 04 2e 05 e1 0d 04 38 |ptr%+=24|.......8|
|00000b00| 05 20 0d 04 42 10 dd 20 | a4 70 61 72 28 73 65 70 |. ..B.. |.par(sep|
|00000b10| 24 29 0d 04 4c 25 69 31 | 25 3d 69 25 2b 31 3a 69 |$)..L%i1|%=i%+1:i|
|00000b20| 25 3d a7 6d 65 6e 75 24 | 2b 73 65 70 24 2c 73 65 |%=.menu$|+sep$,se|
|00000b30| 70 24 2c 69 31 25 29 0d | 04 56 17 3d c1 6d 65 6e |p$,i1%).|.V.=.men|
|00000b40| 75 24 2c 69 31 25 2c 69 | 25 2d 69 31 25 29 0d 04 |u$,i1%,i|%-i1%)..|
|00000b50| 60 05 20 0d 04 6a 19 dd | 20 f2 6d 65 6e 75 73 65 |`. ..j..| .menuse|
|00000b60| 6c 65 63 74 28 6d 65 6e | 75 73 25 29 0d 04 74 2d |lect(men|us%)..t-|
|00000b70| c8 99 20 44 63 4d 65 6e | 75 2c 2c 62 75 66 66 65 |.. DcMen|u,,buffe|
|00000b80| 72 25 2c 6d 65 6e 75 73 | 25 2c c4 32 30 30 2c 22 |r%,menus|%,.200,"|
|00000b90| 20 22 29 b8 2c 2c 2c 61 | 24 0d 04 7e 0f e7 20 61 | ").,,,a|$..~.. a|
|00000ba0| 24 3d 22 22 20 8c 20 e1 | 0d 04 88 14 c8 8e 20 6d |$="" . .|...... m|
|00000bb0| 65 6e 75 68 61 6e 64 6c | 65 25 20 ca 0d 04 92 1f |enuhandl|e% .....|
|00000bc0| c9 20 31 30 31 3a e7 20 | 61 24 3d 22 51 75 69 74 |. 101:. |a$="Quit|
|00000bd0| 22 3a f2 66 69 6e 69 73 | 68 3a e0 0d 04 9c 05 cb |":.finis|h:......|
|00000be0| 0d 04 a6 05 e1 0d 04 b0 | 05 20 0d 04 ba 0b dd 20 |........|. ..... |
|00000bf0| f2 63 61 6c 63 0d 04 c4 | 0c c8 95 20 6d 6f 72 65 |.calc...|... more|
|00000c00| 25 0d 04 ce 2c 20 20 c8 | 99 43 6f 6c 25 2c 30 3a |%...,  .|.Col%,0:|
|00000c10| c8 93 20 c8 90 20 62 78 | 25 2b 31 32 2c 62 79 25 |.. .. bx|%+12,by%|
|00000c20| 2d 32 38 2c 31 30 2a 31 | 36 2c 2d 33 32 0d 04 d8 |-28,10*1|6,-32...|
|00000c30| 34 20 20 c8 99 43 6f 6c | 25 2c 37 3a ec 20 62 78 |4  ..Col|%,7:. bx|
|00000c40| 25 2b 31 32 2b 31 36 2a | 28 31 30 2d a9 64 72 65 |%+12+16*|(10-.dre|
|00000c50| 67 24 29 2c 62 79 25 2d | 32 38 3a f1 64 72 65 67 |g$),by%-|28:.dreg|
|00000c60| 24 0d 04 e2 1a 20 20 c8 | 99 20 47 65 74 52 25 2c |$....  .|. GetR%,|
|00000c70| 2c 71 25 20 b8 20 6d 6f | 72 65 25 0d 04 ec 05 ce |,q% . mo|re%.....|
|00000c80| 0d 04 f6 05 e1 0d 05 00 | 05 20 0d 05 0a 15 dd 20 |........|. ..... |
|00000c90| f2 66 72 6f 6e 74 28 68 | 61 6e 64 6c 65 25 29 0d |.front(h|andle%).|
|00000ca0| 05 14 11 e7 68 61 6e 64 | 6c 65 25 3d 2d 31 8c e1 |....hand|le%=-1..|
|00000cb0| 0d 05 1e 12 f2 67 65 74 | 77 28 68 61 6e 64 6c 65 |.....get|w(handle|
|00000cc0| 25 29 0d 05 28 36 f2 6f | 70 65 6e 5f 77 69 6e 64 |%)..(6.o|pen_wind|
|00000cd0| 6f 77 28 68 61 6e 64 6c | 65 25 2c 78 30 25 2c 79 |ow(handl|e%,x0%,y|
|00000ce0| 30 25 2c 78 31 25 2c 79 | 31 25 2c 73 63 78 25 2c |0%,x1%,y|1%,scx%,|
|00000cf0| 73 63 79 25 2c 2d 31 29 | 0d 05 32 05 e1 0d 05 3c |scy%,-1)|..2....<|
|00000d00| 05 20 0d 05 46 15 dd 20 | f2 70 6f 70 75 70 28 68 |. ..F.. |.popup(h|
|00000d10| 61 6e 64 6c 65 25 29 0d | 05 50 12 f2 67 65 74 77 |andle%).|.P..getw|
|00000d20| 28 68 61 6e 64 6c 65 25 | 29 0d 05 5a 30 78 6f 25 |(handle%|)..Z0xo%|
|00000d30| 3d 6d 6f 75 73 65 78 25 | 2d 28 78 30 25 2b 78 31 |=mousex%|-(x0%+x1|
|00000d40| 25 29 2f 32 3a 79 6f 25 | 3d 6d 6f 75 73 65 79 25 |%)/2:yo%|=mousey%|
|00000d50| 2d 28 79 31 25 2b 36 34 | 29 0d 05 64 46 f2 6f 70 |-(y1%+64|)..dF.op|
|00000d60| 65 6e 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |en_windo|w(handle|
|00000d70| 25 2c 78 30 25 2b 78 6f | 25 2c 79 30 25 2b 79 6f |%,x0%+xo|%,y0%+yo|
|00000d80| 25 2c 78 31 25 2b 78 6f | 25 2c 79 31 25 2b 79 6f |%,x1%+xo|%,y1%+yo|
|00000d90| 25 2c 73 63 78 25 2c 73 | 63 79 25 2c 2d 31 29 0d |%,scx%,s|cy%,-1).|
|00000da0| 05 6e 05 e1 0d 05 78 05 | 20 0d 05 82 16 dd 20 f2 |.n....x.| ..... .|
|00000db0| 72 65 6f 70 65 6e 28 68 | 61 6e 64 6c 65 25 29 0d |reopen(h|andle%).|
|00000dc0| 05 8c 12 f2 67 65 74 77 | 28 68 61 6e 64 6c 65 25 |....getw|(handle%|
|00000dd0| 29 0d 05 96 46 f2 6f 70 | 65 6e 5f 77 69 6e 64 6f |)...F.op|en_windo|
|00000de0| 77 28 68 61 6e 64 6c 65 | 25 2c 78 6f 25 2c 79 6f |w(handle|%,xo%,yo|
|00000df0| 25 2c 78 31 25 2d 78 30 | 25 2b 78 6f 25 2c 79 31 |%,x1%-x0|%+xo%,y1|
|00000e00| 25 2d 79 30 25 2b 79 6f | 25 2c 73 63 78 25 2c 73 |%-y0%+yo|%,scx%,s|
|00000e10| 63 79 25 2c 2d 31 29 0d | 05 a0 05 e1 0d 05 aa 05 |cy%,-1).|........|
|00000e20| 20 0d 05 b4 3e dd 20 f2 | 6f 70 65 6e 5f 77 69 6e | ...>. .|open_win|
|00000e30| 64 6f 77 28 68 61 6e 64 | 6c 65 25 2c 78 30 25 2c |dow(hand|le%,x0%,|
|00000e40| 79 30 25 2c 78 31 25 2c | 79 31 25 2c 73 63 78 25 |y0%,x1%,|y1%,scx%|
|00000e50| 2c 73 63 79 25 2c 62 68 | 61 6e 64 6c 65 25 29 0d |,scy%,bh|andle%).|
|00000e60| 05 be 11 e7 68 61 6e 64 | 6c 65 25 3d 2d 31 8c e1 |....hand|le%=-1..|
|00000e70| 0d 05 c8 1f 71 25 21 30 | 3d 68 61 6e 64 6c 65 25 |....q%!0|=handle%|
|00000e80| 3a 71 25 21 32 38 3d 62 | 68 61 6e 64 6c 65 25 0d |:q%!28=b|handle%.|
|00000e90| 05 d2 29 71 25 21 34 3d | 78 30 25 3a 71 25 21 38 |..)q%!4=|x0%:q%!8|
|00000ea0| 3d 79 30 25 3a 71 25 21 | 31 32 3d 78 31 25 3a 71 |=y0%:q%!|12=x1%:q|
|00000eb0| 25 21 31 36 3d 79 31 25 | 0d 05 dc 19 71 25 21 32 |%!16=y1%|....q%!2|
|00000ec0| 30 3d 73 63 78 25 3a 71 | 25 21 32 34 3d 73 63 79 |0=scx%:q|%!24=scy|
|00000ed0| 25 0d 05 e6 10 c8 99 20 | 4f 70 65 6e 57 2c 2c 71 |%...... |OpenW,,q|
|00000ee0| 25 0d 05 f0 05 e1 0d 05 | fa 05 20 0d 06 04 14 dd |%.......|.. .....|
|00000ef0| 20 f2 67 65 74 77 28 68 | 61 6e 64 6c 65 25 29 0d | .getw(h|andle%).|
|00000f00| 06 0e 1b 21 71 25 3d 68 | 61 6e 64 6c 65 25 3a c8 |...!q%=h|andle%:.|
|00000f10| 99 20 47 65 74 57 2c 2c | 71 25 0d 06 18 2b f2 69 |. GetW,,|q%...+.i|
|00000f20| 6e 66 6f 28 71 25 2b 34 | 29 3a 62 68 61 6e 64 6c |nfo(q%+4|):bhandl|
|00000f30| 65 25 3d 71 25 21 32 38 | 3a 66 6c 61 67 73 25 3d |e%=q%!28|:flags%=|
|00000f40| 71 25 21 33 32 0d 06 22 | 05 e1 0d 06 2c 05 20 0d |q%!32.."|....,. .|
|00000f50| 06 36 0f dd 20 f2 69 6e | 66 6f 28 71 25 29 0d 06 |.6.. .in|fo(q%)..|
|00000f60| 40 3d 78 30 25 3d 21 71 | 25 3a 79 30 25 3d 71 25 |@=x0%=!q|%:y0%=q%|
|00000f70| 21 34 3a 78 31 25 3d 71 | 25 21 38 3a 79 31 25 3d |!4:x1%=q|%!8:y1%=|
|00000f80| 71 25 21 31 32 3a 73 63 | 78 25 3d 71 25 21 31 36 |q%!12:sc|x%=q%!16|
|00000f90| 3a 73 63 79 25 3d 71 25 | 21 32 30 0d 06 4a 1d 62 |:scy%=q%|!20..J.b|
|00000fa0| 78 25 3d 78 30 25 2d 73 | 63 78 25 3a 62 79 25 3d |x%=x0%-s|cx%:by%=|
|00000fb0| 79 31 25 2d 73 63 79 25 | 0d 06 54 05 e1 0d 06 5e |y1%-scy%|..T....^|
|00000fc0| 05 20 0d 06 68 2a dd 20 | f2 75 70 64 61 74 65 28 |. ..h*. |.update(|
|00000fd0| 68 61 6e 64 6c 65 25 2c | 75 78 30 25 2c 75 79 30 |handle%,|ux0%,uy0|
|00000fe0| 25 2c 75 78 31 25 2c 75 | 79 31 25 29 0d 06 72 39 |%,ux1%,u|y1%)..r9|
|00000ff0| 21 71 25 3d 68 61 6e 64 | 6c 65 25 3a 71 25 21 34 |!q%=hand|le%:q%!4|
|00001000| 3d 75 78 30 25 3a 71 25 | 21 38 3d 75 79 30 25 3a |=ux0%:q%|!8=uy0%:|
|00001010| 71 25 21 31 32 3d 75 78 | 31 25 3a 71 25 21 31 36 |q%!12=ux|1%:q%!16|
|00001020| 3d 75 79 31 25 0d 06 7c | 26 c8 99 20 55 70 64 61 |=uy1%..||&.. Upda|
|00001030| 74 65 57 2c 2c 71 25 20 | b8 20 6d 6f 72 65 25 3a |teW,,q% |. more%:|
|00001040| f2 69 6e 66 6f 28 71 25 | 2b 34 29 0d 06 86 05 e1 |.info(q%|+4).....|
|00001050| 0d 06 90 05 20 0d 06 9a | 1d dd 20 f2 72 65 64 72 |.... ...|.. .redr|
|00001060| 61 77 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |aw_windo|w(handle|
|00001070| 25 29 0d 06 a4 14 e7 68 | 61 6e 64 6c 65 25 3d 63 |%).....h|andle%=c|
|00001080| 61 6c 63 25 20 8c 0d 06 | ae 0f 21 71 25 3d 68 61 |alc% ...|..!q%=ha|
|00001090| 6e 64 6c 65 25 0d 06 b8 | 1a c8 99 20 52 65 64 72 |ndle%...|... Redr|
|000010a0| 61 77 57 2c 2c 71 25 20 | b8 20 6d 6f 72 65 25 0d |awW,,q% |. more%.|
|000010b0| 06 c2 0f f2 69 6e 66 6f | 28 71 25 2b 34 29 0d 06 |....info|(q%+4)..|
|000010c0| cc 09 f2 63 61 6c 63 0d | 06 d6 05 cd 0d 06 e0 05 |...calc.|........|
|000010d0| e1 0d 06 ea 05 20 0d 06 | f4 1c dd 20 f2 63 6c 6f |..... ..|... .clo|
|000010e0| 73 65 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |se_windo|w(handle|
|000010f0| 25 29 0d 06 fe 1d 21 71 | 25 3d 68 61 6e 64 6c 65 |%)....!q|%=handle|
|00001100| 25 3a c8 99 20 43 6c 6f | 73 65 57 2c 2c 71 25 0d |%:.. Clo|seW,,q%.|
|00001110| 07 08 05 e1 0d 07 12 05 | 20 0d 07 1c 0b dd 20 f2 |........| ..... .|
|00001120| 76 61 72 73 0d 07 26 1e | 57 69 6d 70 20 20 20 20 |vars..&.|Wimp    |
|00001130| 3d 20 28 31 3c 3c 31 38 | 29 20 2b 20 28 33 3c 3c |= (1<<18|) + (3<<|
|00001140| 36 29 0d 07 30 14 43 72 | 65 61 74 65 57 20 3d 20 |6)..0.Cr|eateW = |
|00001150| 57 69 6d 70 2b 31 0d 07 | 3a 14 4f 70 65 6e 57 20 |Wimp+1..|:.OpenW |
|00001160| 20 20 3d 20 57 69 6d 70 | 2b 35 0d 07 44 14 43 6c |  = Wimp|+5..D.Cl|
|00001170| 6f 73 65 57 20 20 3d 20 | 57 69 6d 70 2b 36 0d 07 |oseW  = |Wimp+6..|
|00001180| 4e 14 50 6f 6c 6c 25 20 | 20 20 3d 20 57 69 6d 70 |N.Poll% |  = Wimp|
|00001190| 2b 37 0d 07 58 14 52 65 | 64 72 61 77 57 20 3d 20 |+7..X.Re|drawW = |
|000011a0| 57 69 6d 70 2b 38 0d 07 | 62 14 55 70 64 61 74 65 |Wimp+8..|b.Update|
|000011b0| 57 20 3d 20 57 69 6d 70 | 2b 39 0d 07 6c 15 47 65 |W = Wimp|+9..l.Ge|
|000011c0| 74 52 25 20 20 20 3d 20 | 57 69 6d 70 2b 31 30 0d |tR%   = |Wimp+10.|
|000011d0| 07 76 15 47 65 74 57 20 | 20 20 20 3d 20 57 69 6d |.v.GetW |   = Wim|
|000011e0| 70 2b 31 31 0d 07 80 15 | 47 65 74 50 20 20 20 20 |p+11....|GetP    |
|000011f0| 3d 20 57 69 6d 70 2b 31 | 35 0d 07 8a 15 44 72 61 |= Wimp+1|5....Dra|
|00001200| 67 20 20 20 20 3d 20 57 | 69 6d 70 2b 31 36 0d 07 |g    = W|imp+16..|
|00001210| 94 15 43 72 4d 65 6e 75 | 20 20 3d 20 57 69 6d 70 |..CrMenu|  = Wimp|
|00001220| 2b 32 30 0d 07 9e 15 44 | 63 4d 65 6e 75 20 20 3d |+20....D|cMenu  =|
|00001230| 20 57 69 6d 70 2b 32 31 | 0d 07 a8 38 c8 99 20 22 | Wimp+21|...8.. "|
|00001240| 4f 53 5f 53 57 49 4e 75 | 6d 62 65 72 46 72 6f 6d |OS_SWINu|mberFrom|
|00001250| 53 74 72 69 6e 67 22 2c | 2c 22 57 69 6d 70 5f 53 |String",|,"Wimp_S|
|00001260| 65 74 43 6f 6c 6f 75 72 | 22 20 b8 20 43 6f 6c 25 |etColour|" . Col%|
|00001270| 0d 07 b2 05 e1 0d 07 bc | 05 20 0d 07 c6 11 dd 20 |........|. ..... |
|00001280| f2 67 65 74 70 6f 69 6e | 74 65 72 0d 07 d0 0f c8 |.getpoin|ter.....|
|00001290| 99 20 47 65 74 50 2c 2c | 71 25 0d 07 da 48 6d 6f |. GetP,,|q%...Hmo|
|000012a0| 75 73 65 78 25 3d 21 71 | 25 3a 6d 6f 75 73 65 79 |usex%=!q|%:mousey|
|000012b0| 25 3d 71 25 21 34 3a 62 | 25 3d 71 25 21 38 3a 68 |%=q%!4:b|%=q%!8:h|
|000012c0| 61 6e 64 6c 65 25 3d 71 | 25 21 31 32 3a 69 63 6f |andle%=q|%!12:ico|
|000012d0| 6e 25 3d 71 25 21 31 36 | 3a 6f 62 25 3d 71 25 21 |n%=q%!16|:ob%=q%!|
|000012e0| 32 30 0d 07 e4 05 e1 0d | 07 ee 05 20 0d 07 f8 0f |20......|... ....|
|000012f0| dd 20 f2 65 72 72 6f 72 | 62 6f 78 0d 08 02 0f c8 |. .error|box.....|
|00001300| 99 20 44 72 61 67 2c 2c | 2d 31 0d 08 0c 30 21 62 |. Drag,,|-1...0!b|
|00001310| 75 66 66 65 72 25 3d 9f | 3a 24 28 62 75 66 66 65 |uffer%=.|:$(buffe|
|00001320| 72 25 2b 34 29 3d f6 24 | 2b 22 20 61 74 20 6c 69 |r%+4)=.$|+" at li|
|00001330| 6e 65 20 22 2b c3 9e 2b | bd 30 0d 08 16 30 c8 99 |ne "+..+|.0...0..|
|00001340| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00001350| 6f 72 22 2c 62 75 66 66 | 65 72 25 2c 31 2c 22 43 |or",buff|er%,1,"C|
|00001360| 61 6c 63 75 6c 61 74 6f | 72 22 0d 08 20 0d f2 66 |alculato|r".. ..f|
|00001370| 69 6e 69 73 68 3a e0 0d | 08 2a 05 e1 0d 08 34 05 |inish:..|.*....4.|
|00001380| 20 0d 08 3e 13 dd 20 a4 | 74 65 6d 70 6c 61 74 65 | ..>.. .|template|
|00001390| 28 61 24 29 0d 08 48 08 | ea 20 63 25 0d 08 52 47 |(a$)..H.|. c%..RG|
|000013a0| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|000013b0| 70 6c 61 74 65 22 2c 2c | 71 25 2c 63 75 72 62 75 |plate",,|q%,curbu|
|000013c0| 66 25 2c 65 6e 64 62 75 | 66 25 2c 30 2c 61 24 2c |f%,endbu|f%,0,a$,|
|000013d0| 30 20 b8 20 2c 2c 63 75 | 72 62 75 66 25 2c 2c 2c |0 . ,,cu|rbuf%,,,|
|000013e0| 2c 63 25 0d 08 5c 2c e7 | 20 63 25 3d 30 20 85 20 |,c%..\,.| c%=0 . |
|000013f0| 31 2c 22 54 65 6d 70 6c | 61 74 65 20 27 22 2b 61 |1,"Templ|ate '"+a|
|00001400| 24 2b 22 27 20 6e 6f 74 | 20 66 6f 75 6e 64 22 0d |$+"' not| found".|
|00001410| 08 66 23 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.f#.. "W|imp_Crea|
|00001420| 74 65 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 b8 20 |teWindow|",,q% . |
|00001430| 63 25 0d 08 70 07 3d 63 | 25 0d 08 7a 05 20 0d 08 |c%..p.=c|%..z. ..|
|00001440| 84 0e dd 20 a4 69 63 6f | 6e 62 61 72 0d 08 8e 36 |... .ico|nbar...6|
|00001450| 21 71 25 3d 2d 31 3a 71 | 25 21 34 3d 30 3a 71 25 |!q%=-1:q|%!4=0:q%|
|00001460| 21 38 3d 30 3a 71 25 21 | 31 32 3d 36 33 3a 71 25 |!8=0:q%!|12=63:q%|
|00001470| 21 31 36 3d 36 38 3a 71 | 25 21 32 30 3d 26 32 31 |!16=68:q|%!20=&21|
|00001480| 30 32 0d 08 98 13 73 70 | 6e 61 6d 65 24 3d 22 21 |02....sp|name$="!|
|00001490| 63 61 6c 63 22 0d 08 a2 | 38 de 20 71 25 21 32 34 |calc"...|8. q%!24|
|000014a0| 20 28 a9 73 70 6e 61 6d | 65 24 2b 31 29 3a 24 28 | (.spnam|e$+1):$(|
|000014b0| 71 25 21 32 34 29 3d 73 | 70 6e 61 6d 65 24 3a 71 |q%!24)=s|pname$:q|
|000014c0| 25 21 32 38 3d 73 70 72 | 69 74 65 73 25 0d 08 ac |%!28=spr|ites%...|
|000014d0| 14 71 25 21 33 32 3d a9 | 73 70 6e 61 6d 65 24 2b |.q%!32=.|spname$+|
|000014e0| 31 0d 08 b6 22 c8 99 20 | 22 57 69 6d 70 5f 43 72 |1...".. |"Wimp_Cr|
|000014f0| 65 61 74 65 49 63 6f 6e | 22 2c 2c 71 25 20 b8 20 |eateIcon|",,q% . |
|00001500| 69 63 25 0d 08 c0 08 3d | 69 63 25 0d 08 ca 05 20 |ic%....=|ic%.... |
|00001510| 0d 08 d4 0c dd 20 f2 63 | 6c 65 61 72 0d 08 de 40 |..... .c|lear...@|
|00001520| 65 72 72 6f 72 66 6c 61 | 67 25 3d a3 3a 74 65 6d |errorfla|g%=.:tem|
|00001530| 70 72 65 67 3d 30 3a 65 | 6e 74 72 79 24 3d 22 30 |preg=0:e|ntry$="0|
|00001540| 22 3a 6f 70 65 72 61 74 | 6f 72 24 3d 22 3d 22 3a |":operat|or$="=":|
|00001550| 64 72 65 67 24 3d 65 6e | 74 72 79 24 0d 08 e8 05 |dreg$=en|try$....|
|00001560| e1 0d 08 f2 05 20 0d 08 | fc 12 dd 20 f2 64 69 67 |..... ..|... .dig|
|00001570| 69 74 28 6b 65 79 24 29 | 0d 09 06 25 e7 20 a9 65 |it(key$)|...%. .e|
|00001580| 6e 74 72 79 24 20 2d 20 | b4 28 a7 65 6e 74 72 79 |ntry$ - |.(.entry|
|00001590| 24 2c 22 2e 22 29 29 20 | 3c 20 38 20 8c 0d 09 10 |$,".")) |< 8 ....|
|000015a0| 33 20 20 e7 20 65 6e 74 | 72 79 24 3d 22 30 22 20 |3  . ent|ry$="0" |
|000015b0| 65 6e 74 72 79 24 3d 6b | 65 79 24 20 8b 20 65 6e |entry$=k|ey$ . en|
|000015c0| 74 72 79 24 3d 65 6e 74 | 72 79 24 2b 6b 65 79 24 |try$=ent|ry$+key$|
|000015d0| 0d 09 1a 05 cd 0d 09 24 | 10 64 72 65 67 24 3d 65 |.......$|.dreg$=e|
|000015e0| 6e 74 72 79 24 0d 09 2e | 05 e1 0d 09 38 05 20 0d |ntry$...|....8. .|
|000015f0| 09 42 0c dd 20 f2 70 6f | 69 6e 74 0d 09 4c 34 e7 |.B.. .po|int..L4.|
|00001600| 20 a7 65 6e 74 72 79 24 | 2c 22 2e 22 29 3d 30 20 | .entry$|,".")=0 |
|00001610| 80 20 a9 65 6e 74 72 79 | 24 20 3c 20 38 20 65 6e |. .entry|$ < 8 en|
|00001620| 74 72 79 24 3d 65 6e 74 | 72 79 24 2b 22 2e 22 0d |try$=ent|ry$+".".|
|00001630| 09 56 10 64 72 65 67 24 | 3d 65 6e 74 72 79 24 0d |.V.dreg$|=entry$.|
|00001640| 09 60 05 e1 0d 09 6a 05 | 20 0d 09 74 15 dd 20 f2 |.`....j.| ..t.. .|
|00001650| 6f 70 65 72 61 74 6f 72 | 28 6b 65 79 24 29 0d 09 |operator|(key$)..|
|00001660| 7e 08 ea 20 40 25 0d 09 | 88 10 40 25 3d 26 30 31 |~.. @%..|..@%=&01|
|00001670| 30 32 30 37 31 31 0d 09 | 92 48 e7 20 6f 70 65 72 |020711..|.H. oper|
|00001680| 61 74 6f 72 24 3d 22 3d | 22 20 74 65 6d 70 72 65 |ator$="=|" tempre|
|00001690| 67 3d bb 64 72 65 67 24 | 20 8b 20 74 65 6d 70 72 |g=.dreg$| . tempr|
|000016a0| 65 67 3d a0 28 c3 74 65 | 6d 70 72 65 67 2b 6f 70 |eg=.(.te|mpreg+op|
|000016b0| 65 72 61 74 6f 72 24 2b | 64 72 65 67 24 29 0d 09 |erator$+|dreg$)..|
|000016c0| 9c 16 f2 64 69 73 70 6c | 61 79 28 c3 74 65 6d 70 |...displ|ay(.temp|
|000016d0| 72 65 67 29 0d 09 a6 1d | 65 6e 74 72 79 24 3d 22 |reg)....|entry$="|
|000016e0| 30 22 3a 6f 70 65 72 61 | 74 6f 72 24 3d 6b 65 79 |0":opera|tor$=key|
|000016f0| 24 0d 09 b0 05 e1 0d 09 | ba 05 20 0d 09 c4 16 dd |$.......|.. .....|
|00001700| 20 f2 64 69 73 70 6c 61 | 79 28 76 61 6c 75 65 24 | .displa|y(value$|
|00001710| 29 0d 09 ce 16 64 69 73 | 70 6c 61 79 72 65 67 3d |)....dis|playreg=|
|00001720| bb 76 61 6c 75 65 24 0d | 09 d8 2d e7 20 94 64 69 |.value$.|..-. .di|
|00001730| 73 70 6c 61 79 72 65 67 | 20 3e 3d 20 31 30 30 30 |splayreg| >= 1000|
|00001740| 30 30 30 30 30 20 64 69 | 73 70 6c 61 79 72 65 67 |00000 di|splayreg|
|00001750| 3d 30 2f 30 0d 09 e2 26 | c8 95 20 c2 76 61 6c 75 |=0/0...&|.. .valu|
|00001760| 65 24 2c 31 29 3d 22 30 | 22 20 80 20 a7 76 61 6c |e$,1)="0|" . .val|
|00001770| 75 65 24 2c 22 2e 22 29 | 3e 30 0d 09 ec 21 20 20 |ue$,".")|>0...!  |
|00001780| 76 61 6c 75 65 24 3d c0 | 76 61 6c 75 65 24 2c a9 |value$=.|value$,.|
|00001790| 28 76 61 6c 75 65 24 29 | 2d 31 29 0d 09 f6 05 ce |(value$)|-1).....|
|000017a0| 0d 0a 00 35 76 61 6c 75 | 65 24 3d c0 76 61 6c 75 |...5valu|e$=.valu|
|000017b0| 65 24 2c 38 2b b4 28 a7 | 76 61 6c 75 65 24 2c 22 |e$,8+.(.|value$,"|
|000017c0| 2e 22 29 29 2b b4 28 a7 | 76 61 6c 75 65 24 2c 22 |."))+.(.|value$,"|
|000017d0| 2d 22 29 29 29 0d 0a 0a | 30 e7 20 c2 76 61 6c 75 |-")))...|0. .valu|
|000017e0| 65 24 2c 31 29 3d 22 2e | 22 20 76 61 6c 75 65 24 |e$,1)=".|" value$|
|000017f0| 3d c0 76 61 6c 75 65 24 | 2c a9 28 76 61 6c 75 65 |=.value$|,.(value|
|00001800| 24 29 2d 31 29 0d 0a 14 | 1c e7 20 76 61 6c 75 65 |$)-1)...|.. value|
|00001810| 24 3d 22 2d 30 22 20 76 | 61 6c 75 65 24 3d 22 30 |$="-0" v|alue$="0|
|00001820| 22 0d 0a 1e 10 64 72 65 | 67 24 3d 76 61 6c 75 65 |"....dre|g$=value|
|00001830| 24 0d 0a 28 05 e1 0d ff |                         |$..(....|        |
+--------+-------------------------+-------------------------+--------+--------+