home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1996-07-19 | 8.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f2 69 6e 69 | 74 0d 00 14 05 3a 0d 00 |.....ini|t....:..|
|00000010| 1e 0c c8 95 ac 71 75 69 | 74 25 0d 00 28 09 f2 70 |.....qui|t%..(..p|
|00000020| 6f 6c 6c 0d 00 32 05 ce | 0d 00 3c 16 c8 99 22 57 |oll..2..|..<..."W|
|00000030| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 00 |imp_Clos|eDown"..|
|00000040| 46 05 e0 0d 00 50 05 3a | 0d 00 5a 0a dd f2 69 6e |F....P.:|..Z...in|
|00000050| 69 74 0d 00 78 1d 61 70 | 70 24 3d 22 46 69 6e 61 |it..x.ap|p$="Fina|
|00000060| 6e 63 65 20 43 61 6c 63 | 75 6c 61 74 6f 72 22 0d |nce Calc|ulator".|
|00000070| 00 82 5f de 20 62 6c 6f | 63 6b 25 20 32 30 34 38 |.._. blo|ck% 2048|
|00000080| 2c 69 6d 65 6e 75 25 20 | 39 39 2c 61 6d 65 6e 75 |,imenu% |99,amenu|
|00000090| 25 20 39 39 2c 6e 61 6d | 65 25 20 31 31 2c 69 6e |% 99,nam|e% 11,in|
|000000a0| 66 6f 69 6e 64 25 20 35 | 35 35 2c 6d 61 69 6e 69 |foind% 5|55,maini|
|000000b0| 6e 64 25 20 34 35 35 2c | 63 61 6c 63 69 6e 64 25 |nd% 455,|calcind%|
|000000c0| 20 35 35 35 2c 66 6f 6e | 74 25 20 32 35 35 0d 00 | 555,fon|t% 255..|
|000000d0| 8c 0b 71 75 69 74 25 3d | a3 0d 00 96 2a c8 99 22 |..quit%=|....*.."|
|000000e0| 57 69 6d 70 5f 49 6e 69 | 74 69 61 6c 69 73 65 22 |Wimp_Ini|tialise"|
|000000f0| 2c 33 31 30 2c 26 34 42 | 35 33 34 31 35 34 2c 61 |,310,&4B|534154,a|
|00000100| 70 70 24 0d 00 97 5e 57 | 69 6d 70 3d 28 31 3c 3c |pp$...^W|imp=(1<<|
|00000110| 31 38 29 2b 28 33 3c 3c | 36 29 3a 47 65 74 49 3d |18)+(3<<|6):GetI=|
|00000120| 57 69 6d 70 2b 31 34 3a | 61 6e 73 25 3d 31 3a 77 |Wimp+14:|ans%=1:w|
|00000130| 72 69 74 61 62 6c 65 25 | 3d 33 3a 73 79 6d 62 6f |ritable%|=3:symbo|
|00000140| 6c 24 3d 22 22 3a 66 6c | 61 67 25 3d 30 3a 6e 75 |l$="":fl|ag%=0:nu|
|00000150| 6d 24 3d 22 22 3a 6d 65 | 6e 75 66 6c 61 67 25 3d |m$="":me|nuflag%=|
|00000160| a3 0d 00 9b 1e 76 65 72 | 73 69 6f 6e 24 3d 22 32 |.....ver|sion$="2|
|00000170| 2e 38 30 20 20 20 30 39 | 2f 30 34 2f 39 36 22 0d |.80 09|/04/96".|
|00000180| 00 a0 21 ee 20 85 20 f2 | 65 72 72 6f 72 28 f6 24 |..!. . .|error(.$|
|00000190| 2b 22 20 61 74 20 6c 69 | 6e 65 20 22 2b c3 9e 29 |+" at li|ne "+..)|
|000001a0| 0d 00 aa 31 c8 99 22 57 | 69 6d 70 5f 4f 70 65 6e |...1.."W|imp_Open|
|000001b0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 3c 4f 62 65 |Template|",,"<Obe|
|000001c0| 79 24 44 69 72 3e 2e 54 | 65 6d 70 6c 61 74 65 73 |y$Dir>.T|emplates|
|000001d0| 22 0d 00 b4 11 24 6e 61 | 6d 65 25 3d 22 49 6e 66 |"....$na|me%="Inf|
|000001e0| 6f 22 0d 00 be 45 c8 99 | 22 57 69 6d 70 5f 4c 6f |o"...E..|"Wimp_Lo|
|000001f0| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6c 6f |adTempla|te",,blo|
|00000200| 63 6b 25 2c 69 6e 66 6f | 69 6e 64 25 2c 69 6e 66 |ck%,info|ind%,inf|
|00000210| 6f 69 6e 64 25 2b 34 30 | 30 2c 66 6f 6e 74 25 2c |oind%+40|0,font%,|
|00000220| 6e 61 6d 65 25 2c 30 0d | 00 c8 29 c8 99 22 57 69 |name%,0.|..).."Wi|
|00000230| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000240| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 69 6e 66 6f 25 |,,block%| . info%|
|00000250| 0d 00 e7 11 24 6e 61 6d | 65 25 3d 22 4d 61 69 6e |....$nam|e%="Main|
|00000260| 22 0d 00 e8 45 c8 99 22 | 57 69 6d 70 5f 4c 6f 61 |"...E.."|Wimp_Loa|
|00000270| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 62 6c 6f 63 |dTemplat|e",,bloc|
|00000280| 6b 25 2c 6d 61 69 6e 69 | 6e 64 25 2c 6d 61 69 6e |k%,maini|nd%,main|
|00000290| 69 6e 64 25 2b 34 30 30 | 2c 66 6f 6e 74 25 2c 6e |ind%+400|,font%,n|
|000002a0| 61 6d 65 25 2c 30 0d 00 | e9 2c c8 99 22 57 69 6d |ame%,0..|.,.."Wim|
|000002b0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000002c0| 2c 62 6c 6f 63 6b 25 20 | b8 20 77 68 61 6e 64 6c |,block% |. whandl|
|000002d0| 65 25 0d 00 ea 11 24 6e | 61 6d 65 25 3d 22 43 61 |e%....$n|ame%="Ca|
|000002e0| 6c 63 22 0d 00 eb 45 c8 | 99 22 57 69 6d 70 5f 4c |lc"...E.|."Wimp_L|
|000002f0| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000300| 6f 63 6b 25 2c 63 61 6c | 63 69 6e 64 25 2c 63 61 |ock%,cal|cind%,ca|
|00000310| 6c 63 69 6e 64 25 2b 35 | 30 30 2c 66 6f 6e 74 25 |lcind%+5|00,font%|
|00000320| 2c 6e 61 6d 65 25 2c 30 | 0d 00 ec 29 c8 99 22 57 |,name%,0|...).."W|
|00000330| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000340| 22 2c 2c 62 6c 6f 63 6b | 25 20 b8 20 63 61 6c 63 |",,block|% . calc|
|00000350| 25 0d 00 f0 1a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |%......"|Wimp_Clo|
|00000360| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 00 fa 3f 69 |seTempla|te"...?i|
|00000370| 62 68 61 6e 64 6c 65 25 | 3d a4 63 72 65 61 74 65 |bhandle%|=.create|
|00000380| 5f 69 63 6f 6e 28 2d 31 | 2c 30 2c 30 2c 36 38 2c |_icon(-1|,0,0,68,|
|00000390| 36 38 2c 26 33 30 30 32 | 2c 22 21 66 69 6e 61 6e |68,&3002|,"!finan|
|000003a0| 63 65 22 2c 30 2c 30 2c | 30 29 0d 00 ff 29 f2 57 |ce",0,0,|0)...).W|
|000003b0| 69 6d 70 5f 50 75 74 54 | 65 78 74 49 6e 49 63 6f |imp_PutT|extInIco|
|000003c0| 6e 28 69 6e 66 6f 25 2c | 35 2c 76 65 72 73 69 6f |n(info%,|5,versio|
|000003d0| 6e 24 29 0d 01 04 1d f7 | 20 8d 50 60 4e 3a f2 73 |n$).....| .P`N:.s|
|000003e0| 65 74 75 70 6d 65 6e 75 | 28 69 6d 65 6e 75 25 29 |etupmenu|(imenu%)|
|000003f0| 0d 01 09 1d f7 20 8d 50 | 70 75 3a f2 73 65 74 75 |..... .P|pu:.setu|
|00000400| 70 6d 65 6e 75 28 61 6d | 65 6e 75 25 29 0d 01 0e |pmenu(am|enu%)...|
|00000410| 05 e1 0d 01 18 05 3a 0d | 01 22 10 dd 20 f2 65 72 |......:.|.".. .er|
|00000420| 72 6f 72 28 61 24 29 0d | 01 28 16 f2 72 65 70 6f |ror(a$).|.(..repo|
|00000430| 72 74 28 61 24 2c 25 31 | 30 30 30 31 29 0d 01 29 |rt(a$,%1|0001)..)|
|00000440| 16 c8 99 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |..."Wimp|_CloseDo|
|00000450| 77 6e 22 0d 01 2a 05 e0 | 0d 01 4a 05 e1 0d 01 54 |wn"..*..|..J....T|
|00000460| 05 3a 0d 01 5e 19 dd 20 | f2 72 65 70 6f 72 74 28 |.:..^.. |.report(|
|00000470| 65 72 72 24 2c 66 6c 61 | 67 25 29 0d 01 68 0e 6e |err$,fla|g%)..h.n|
|00000480| 61 6d 65 24 3d 61 70 70 | 24 0d 01 72 2c e7 20 66 |ame$=app|$..r,. f|
|00000490| 6c 61 67 25 20 80 20 31 | 36 20 8c 20 6e 61 6d 65 |lag% . 1|6 . name|
|000004a0| 24 3d 22 45 72 72 6f 72 | 20 66 72 6f 6d 20 22 2b |$="Error| from "+|
|000004b0| 6e 61 6d 65 24 0d 01 7c | 0f 21 62 6c 6f 63 6b 25 |name$..||.!block%|
|000004c0| 3d 32 35 35 0d 01 86 17 | 24 28 62 6c 6f 63 6b 25 |=255....|$(block%|
|000004d0| 2b 34 29 3d 65 72 72 24 | 2b bd 30 0d 01 90 37 c8 |+4)=err$|+.0...7.|
|000004e0| 99 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 |."Wimp_R|eportErr|
|000004f0| 6f 72 22 2c 62 6c 6f 63 | 6b 25 2c 66 6c 61 67 25 |or",bloc|k%,flag%|
|00000500| 2c 6e 61 6d 65 24 20 b8 | 20 65 72 72 63 6c 69 63 |,name$ .| errclic|
|00000510| 6b 25 0d 01 9a 05 e1 0d | 01 a4 05 3a 0d 01 ae 0a |k%......|...:....|
|00000520| dd f2 70 6f 6c 6c 0d 01 | b8 1f c8 99 22 57 69 6d |..poll..|...."Wim|
|00000530| 70 5f 50 6f 6c 6c 22 2c | 30 2c 62 6c 6f 63 6b 25 |p_Poll",|0,block%|
|00000540| 20 b8 20 62 25 0d 01 c2 | 0b c8 8e 20 62 25 20 ca | . b%...|... b% .|
|00000550| 0d 01 cc 24 20 c9 20 32 | 3a c8 99 22 57 69 6d 70 |...$ . 2|:.."Wimp|
|00000560| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00000570| 6f 63 6b 25 0d 01 d6 25 | 20 c9 20 33 3a c8 99 22 |ock%...%| . 3:.."|
|00000580| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|00000590| 22 2c 2c 62 6c 6f 63 6b | 25 0d 01 e0 1a 20 c9 20 |",,block|%.... . |
|000005a0| 36 3a f2 63 6c 69 63 6b | 28 62 6c 6f 63 6b 25 21 |6:.click|(block%!|
|000005b0| 31 32 29 0d 01 e6 1f 20 | c9 20 38 3a f2 44 65 63 |12).... |. 8:.Dec|
|000005c0| 6f 64 65 4b 65 79 73 28 | 62 6c 6f 63 6b 25 21 32 |odeKeys(|block%!2|
|000005d0| 34 29 0d 01 ea 14 20 c9 | 20 39 3a f2 64 65 63 6f |4).... .| 9:.deco|
|000005e0| 64 65 6d 65 6e 75 0d 01 | f4 15 20 c9 20 31 37 2c |demenu..|.. . 17,|
|000005f0| 31 38 3a f2 72 65 63 65 | 69 76 65 0d 01 fe 05 cb |18:.rece|ive.....|
|00000600| 0d 02 08 05 e1 0d 02 12 | 05 3a 0d 02 1c 0e dd 20 |........|.:..... |
|00000610| f2 72 65 63 65 69 76 65 | 0d 02 26 12 c8 8e 20 62 |.receive|..&... b|
|00000620| 6c 6f 63 6b 25 21 31 36 | 20 ca 0d 02 30 10 20 c9 |lock%!16| ...0. .|
|00000630| 20 30 3a 71 75 69 74 25 | 3d b9 0d 02 3a 05 cb 0d | 0:quit%|=...:...|
|00000640| 02 44 05 e1 0d 02 4e 05 | 3a 0d 02 58 12 dd 20 f2 |.D....N.|:..X.. .|
|00000650| 63 6c 69 63 6b 28 77 69 | 6e 25 29 0d 02 62 0d c8 |click(wi|n%)..b..|
|00000660| 8e 20 77 69 6e 25 20 ca | 0d 02 6c 18 20 c9 2d 32 |. win% .|..l. .-2|
|00000670| 3a f2 69 62 61 72 28 62 | 6c 6f 63 6b 25 21 38 29 |:.ibar(b|lock%!8)|
|00000680| 0d 02 76 2a 20 c9 20 77 | 68 61 6e 64 6c 65 25 3a |..v* . w|handle%:|
|00000690| c8 97 20 78 25 2c 79 25 | 2c 6e 75 6c 6c 25 3a e7 |.. x%,y%|,null%:.|
|000006a0| 20 6e 75 6c 6c 25 3d 32 | 20 8c 0d 02 77 2a 20 20 | null%=2| ...w* |
|000006b0| 20 f2 73 68 6f 77 6d 65 | 6e 75 28 61 6d 65 6e 75 | .showme|nu(amenu|
|000006c0| 25 2c 78 25 2c 79 25 29 | 3a 6d 65 6e 75 66 6c 61 |%,x%,y%)|:menufla|
|000006d0| 67 25 3d a3 0d 02 78 07 | 20 20 cc 0d 02 79 8b 20 |g%=...x.| ...y. |
|000006e0| 20 20 e7 20 62 6c 6f 63 | 6b 25 21 31 36 3d 39 20 | . bloc|k%!16=9 |
|000006f0| 8c 20 61 6e 73 25 3d 31 | 3a 8b e7 20 62 6c 6f 63 |. ans%=1|:.. bloc|
|00000700| 6b 25 21 31 36 3d 31 31 | 20 8c 20 61 6e 73 25 3d |k%!16=11| . ans%=|
|00000710| 30 3a 8b e7 20 62 6c 6f | 63 6b 25 21 31 36 3d 31 |0:.. blo|ck%!16=1|
|00000720| 34 20 80 20 61 6e 73 25 | 3d 31 20 f2 43 61 6c 63 |4 . ans%|=1 .Calc|
|00000730| 75 6c 61 74 65 41 6e 73 | 77 65 72 3a 8b e7 20 62 |ulateAns|wer:.. b|
|00000740| 6c 6f 63 6b 25 21 31 36 | 3d 31 34 20 80 20 61 6e |lock%!16|=14 . an|
|00000750| 73 25 3d 30 20 f2 43 61 | 6c 63 75 6c 61 74 65 41 |s%=0 .Ca|lculateA|
|00000760| 6e 73 77 65 72 31 0d 02 | 70 07 20 20 cd 0d 02 80 |nswer1..|p. ....|
|00000770| 1d 20 c9 20 63 61 6c 63 | 25 3a f2 63 61 6c 63 28 |. . calc|%:.calc(|
|00000780| 62 6c 6f 63 6b 25 21 31 | 36 29 0d 02 8a 05 cb 0d |block%!1|6)......|
|00000790| 02 94 05 e1 0d 02 9e 05 | 3a 0d 02 a8 14 dd 20 f2 |........|:..... .|
|000007a0| 69 62 61 72 28 62 75 74 | 74 6f 6e 25 29 0d 02 b2 |ibar(but|ton%)...|
|000007b0| 10 c8 8e 20 62 75 74 74 | 6f 6e 25 20 ca 0d 02 c6 |... butt|on% ....|
|000007c0| 35 20 c9 20 32 3a f2 73 | 68 6f 77 6d 65 6e 75 28 |5 . 2:.s|howmenu(|
|000007d0| 69 6d 65 6e 75 25 2c 21 | 62 6c 6f 63 6b 25 2d 36 |imenu%,!|block%-6|
|000007e0| 34 2c 32 32 34 29 3a 6d | 65 6e 75 66 6c 61 67 25 |4,224):m|enuflag%|
|000007f0| 3d b9 0d 02 d0 75 20 c9 | 20 31 2c 34 3a 21 62 6c |=....u .| 1,4:!bl|
|00000800| 6f 63 6b 25 3d 77 68 61 | 6e 64 6c 65 25 3a c8 99 |ock%=wha|ndle%:..|
|00000810| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00000820| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 3a c8 99 |tate",,b|lock%:..|
|00000830| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00000840| 22 2c 2c 62 6c 6f 63 6b | 25 3a f2 57 69 6d 70 5f |",,block|%:.Wimp_|
|00000850| 49 63 6f 6e 43 61 72 65 | 74 28 77 68 61 6e 64 6c |IconCare|t(whandl|
|00000860| 65 25 2c 33 2c 30 29 0d | 02 da 05 cb 0d 02 e4 05 |e%,3,0).|........|
|00000870| e1 0d 02 ee 05 3a 0d 02 | f8 47 dd 20 a4 63 72 65 |.....:..|.G. .cre|
|00000880| 61 74 65 5f 69 63 6f 6e | 28 77 68 61 6e 25 2c 69 |ate_icon|(whan%,i|
|00000890| 78 25 2c 69 79 25 2c 69 | 77 25 2c 69 68 25 2c 66 |x%,iy%,i|w%,ih%,f|
|000008a0| 6c 61 67 25 2c 74 65 78 | 74 24 2c 70 74 72 31 25 |lag%,tex|t$,ptr1%|
|000008b0| 2c 70 74 72 32 25 2c 70 | 74 72 33 25 29 0d 03 02 |,ptr2%,p|tr3%)...|
|000008c0| 11 21 62 6c 6f 63 6b 25 | 3d 77 68 61 6e 25 0d 03 |.!block%|=whan%..|
|000008d0| 0c 10 62 6c 6f 63 6b 25 | 21 34 3d 69 78 25 0d 03 |..block%|!4=ix%..|
|000008e0| 16 10 62 6c 6f 63 6b 25 | 21 38 3d 69 79 25 0d 03 |..block%|!8=iy%..|
|000008f0| 20 15 62 6c 6f 63 6b 25 | 21 31 32 3d 69 78 25 2b | .block%|!12=ix%+|
|00000900| 69 77 25 0d 03 2a 15 62 | 6c 6f 63 6b 25 21 31 36 |iw%..*.b|lock%!16|
|00000910| 3d 69 79 25 2b 69 68 25 | 0d 03 34 13 62 6c 6f 63 |=iy%+ih%|..4.bloc|
|00000920| 6b 25 21 32 30 3d 66 6c | 61 67 25 0d 03 3e 16 24 |k%!20=fl|ag%..>.$|
|00000930| 28 62 6c 6f 63 6b 25 2b | 32 34 29 3d 74 65 78 74 |(block%+|24)=text|
|00000940| 24 0d 03 48 2a c8 99 22 | 57 69 6d 70 5f 43 72 65 |$..H*.."|Wimp_Cre|
|00000950| 61 74 65 49 63 6f 6e 22 | 2c 2c 62 6c 6f 63 6b 25 |ateIcon"|,,block%|
|00000960| 20 b8 20 69 68 61 6e 64 | 6c 65 25 0d 03 52 0d 3d | . ihand|le%..R.=|
|00000970| 69 68 61 6e 64 6c 65 25 | 0d 03 5c 05 3a 0d 03 66 |ihandle%|..\.:..f|
|00000980| 17 dd 20 f2 73 65 74 75 | 70 6d 65 6e 75 28 6d 65 |.. .setu|pmenu(me|
|00000990| 6e 75 25 29 0d 03 70 11 | f3 20 74 69 74 6c 65 24 |nu%)..p.|. title$|
|000009a0| 2c 6e 75 6d 25 0d 03 7a | 11 24 6d 65 6e 75 25 3d |,num%..z|.$menu%=|
|000009b0| 74 69 74 6c 65 24 0d 03 | 84 1b 77 69 64 74 68 25 |title$..|..width%|
|000009c0| 3d 28 a9 28 74 69 74 6c | 65 24 29 2d 32 29 2a 31 |=(.(titl|e$)-2)*1|
|000009d0| 36 0d 03 8e 16 6d 65 6e | 75 25 21 31 32 3d 26 30 |6....men|u%!12=&0|
|000009e0| 30 30 37 30 32 30 37 0d | 03 98 0f 6d 65 6e 75 25 |0070207.|...menu%|
|000009f0| 21 32 30 3d 34 34 0d 03 | a2 0e 6d 65 6e 75 25 21 |!20=44..|..menu%!|
|00000a00| 32 34 3d 30 0d 03 ac 11 | 70 74 72 25 3d 6d 65 6e |24=0....|ptr%=men|
|00000a10| 75 25 2b 32 38 0d 03 b6 | 11 e3 20 69 25 3d 31 20 |u%+28...|.. i%=1 |
|00000a20| b8 20 6e 75 6d 25 0d 03 | c0 1c 20 f3 20 6d 66 6c |. num%..|.. . mfl|
|00000a30| 61 67 73 25 2c 73 75 62 | 70 74 72 25 2c 69 74 65 |ags%,sub|ptr%,ite|
|00000a40| 6d 24 0d 03 ca 12 20 21 | 70 74 72 25 3d 6d 66 6c |m$.... !|ptr%=mfl|
|00000a50| 61 67 73 25 0d 03 d4 13 | 20 70 74 72 25 21 34 3d |ags%....| ptr%!4=|
|00000a60| 73 75 62 70 74 72 25 0d | 03 de 14 20 70 74 72 25 |subptr%.|... ptr%|
|00000a70| 21 38 3d 26 37 30 30 30 | 30 32 31 0d 03 e8 15 20 |!8=&7000|021.... |
|00000a80| 24 28 70 74 72 25 2b 31 | 32 29 3d 69 74 65 6d 24 |$(ptr%+1|2)=item$|
|00000a90| 0d 03 f2 17 20 61 25 3d | 28 a9 28 69 74 65 6d 24 |.... a%=|(.(item$|
|00000aa0| 29 2b 31 29 2a 31 36 0d | 03 fc 1a 20 e7 20 61 25 |)+1)*16.|... . a%|
|00000ab0| 3e 77 69 64 74 68 25 20 | 77 69 64 74 68 25 3d 61 |>width% |width%=a|
|00000ac0| 25 0d 04 06 0d 20 70 74 | 72 25 2b 3d 32 34 0d 04 |%.... pt|r%+=24..|
|00000ad0| 10 05 ed 0d 04 1a 13 6d | 65 6e 75 25 21 31 36 3d |.......m|enu%!16=|
|00000ae0| 77 69 64 74 68 25 0d 04 | 24 05 e1 0d 04 2e 05 3a |width%..|$......:|
|00000af0| 0d 04 38 1e dd 20 f2 73 | 68 6f 77 6d 65 6e 75 28 |..8.. .s|howmenu(|
|00000b00| 6d 65 6e 75 25 2c 6d 78 | 25 2c 6d 79 25 29 0d 04 |menu%,mx|%,my%)..|
|00000b10| 42 26 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |B&.."Wim|p_Create|
|00000b20| 4d 65 6e 75 22 2c 2c 6d | 65 6e 75 25 2c 6d 78 25 |Menu",,m|enu%,mx%|
|00000b30| 2c 6d 79 25 0d 04 4c 05 | e1 0d 04 56 05 3a 0d 04 |,my%..L.|...V.:..|
|00000b40| 60 11 dd 20 f2 64 65 63 | 6f 64 65 6d 65 6e 75 0d |`.. .dec|odemenu.|
|00000b50| 04 65 11 e7 20 6d 65 6e | 75 66 6c 61 67 25 20 8c |.e.. men|uflag% .|
|00000b60| 0d 04 6a 11 20 c8 8e 20 | 21 62 6c 6f 63 6b 25 20 |..j. .. |!block% |
|00000b70| ca 0d 04 6f 53 20 20 c9 | 20 31 3a 21 62 6c 6f 63 |...oS .| 1:!bloc|
|00000b80| 6b 25 3d 63 61 6c 63 25 | 3a c8 99 22 57 69 6d 70 |k%=calc%|:.."Wimp|
|00000b90| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00000ba0| 2c 2c 62 6c 6f 63 6b 25 | 3a c8 99 22 57 69 6d 70 |,,block%|:.."Wimp|
|00000bb0| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00000bc0| 6f 63 6b 25 0d 04 74 11 | 20 20 c9 20 32 3a 71 75 |ock%..t.| . 2:qu|
|00000bd0| 69 74 25 3d b9 0d 04 7e | 06 20 cb 0d 04 80 05 cd |it%=...~|. ......|
|00000be0| 0d 04 81 12 e7 20 ac 6d | 65 6e 75 66 6c 61 67 25 |..... .m|enuflag%|
|00000bf0| 20 8c 0d 04 82 11 20 c8 | 8e 20 21 62 6c 6f 63 6b | ..... .|. !block|
|00000c00| 25 20 ca 0d 04 83 53 20 | 20 c9 20 31 3a 21 62 6c |% ....S | . 1:!bl|
|00000c10| 6f 63 6b 25 3d 63 61 6c | 63 25 3a c8 99 22 57 69 |ock%=cal|c%:.."Wi|
|00000c20| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00000c30| 65 22 2c 2c 62 6c 6f 63 | 6b 25 3a c8 99 22 57 69 |e",,bloc|k%:.."Wi|
|00000c40| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000c50| 62 6c 6f 63 6b 25 0d 04 | 84 06 20 cb 0d 04 85 05 |block%..|.. .....|
|00000c60| cd 0d 04 88 05 e1 0d 04 | 92 05 3a 0d 04 9c 2e dd |........|..:.....|
|00000c70| 20 f2 57 69 6d 70 5f 50 | 75 74 54 65 78 74 49 6e | .Wimp_P|utTextIn|
|00000c80| 49 63 6f 6e 28 77 69 6e | 64 6f 77 25 2c 69 63 6f |Icon(win|dow%,ico|
|00000c90| 6e 25 2c 74 65 78 74 24 | 29 0d 04 a6 25 62 6c 6f |n%,text$|)...%blo|
|00000ca0| 63 6b 25 21 30 3d 77 69 | 6e 64 6f 77 25 20 3a 20 |ck%!0=wi|ndow% : |
|00000cb0| 62 6c 6f 63 6b 25 21 34 | 3d 69 63 6f 6e 25 0d 04 |block%!4|=icon%..|
|00000cc0| b0 22 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 49 63 |.".. "Wi|mp_GetIc|
|00000cd0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6f 63 6b 25 |onState"|,,block%|
|00000ce0| 0d 04 ba 38 e7 20 28 28 | 62 6c 6f 63 6b 25 21 32 |...8. ((|block%!2|
|00000cf0| 34 29 20 80 20 26 31 30 | 30 29 3d 30 20 85 20 31 |4) . &10|0)=0 . 1|
|00000d00| 2c 22 49 63 6f 6e 20 69 | 73 6e 27 74 20 69 6e 64 |,"Icon i|sn't ind|
|00000d10| 69 72 65 63 74 65 64 22 | 0d 04 c4 16 24 28 62 6c |irected"|....$(bl|
|00000d20| 6f 63 6b 25 21 32 38 29 | 3d 74 65 78 74 24 0d 04 |ock%!28)|=text$..|
|00000d30| ce 25 62 6c 6f 63 6b 25 | 21 30 3d 77 69 6e 64 6f |.%block%|!0=windo|
|00000d40| 77 25 20 3a 20 62 6c 6f | 63 6b 25 21 34 3d 69 63 |w% : blo|ck%!4=ic|
|00000d50| 6f 6e 25 0d 04 d8 1c 62 | 6c 6f 63 6b 25 21 38 3d |on%....b|lock%!8=|
|00000d60| 30 20 3a 20 62 6c 6f 63 | 6b 25 21 31 32 3d 30 0d |0 : bloc|k%!12=0.|
|00000d70| 04 e2 22 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |..".. "W|imp_SetI|
|00000d80| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00000d90| 25 0d 04 ec 05 e1 0d 04 | f6 05 3a 0d 05 00 2e 20 |%.......|..:.... |
|00000da0| dd 20 f2 57 69 6d 70 5f | 41 6c 65 72 74 42 6f 78 |. .Wimp_|AlertBox|
|00000db0| 28 74 69 74 6c 65 24 2c | 6d 65 73 73 61 67 65 24 |(title$,|message$|
|00000dc0| 2c 62 75 74 74 6f 6e 25 | 29 0d 05 0a 0f ea 20 72 |,button%|)..... r|
|00000dd0| 65 73 70 6f 6e 73 65 25 | 0d 05 14 18 24 28 62 6c |esponse%|....$(bl|
|00000de0| 6f 63 6b 25 2b 34 29 3d | 6d 65 73 73 61 67 65 24 |ock%+4)=|message$|
|00000df0| 0d 05 1e 10 c8 8e 20 62 | 75 74 74 6f 6e 25 20 ca |...... b|utton% .|
|00000e00| 0d 05 28 19 20 c9 20 32 | 20 20 20 20 3a 20 72 65 |..(. . 2| : re|
|00000e10| 73 70 6f 6e 73 65 25 3d | 31 0d 05 32 1a 20 c9 20 |sponse%=|1..2. . |
|00000e20| 31 20 20 20 20 3a 20 72 | 65 73 70 6f 6e 73 65 25 |1 : r|esponse%|
|00000e30| 3d 31 35 0d 05 3c 21 20 | c9 20 33 20 20 20 20 3a |=15..<! |. 3 :|
|00000e40| 20 72 65 73 70 6f 6e 73 | 65 25 3d 28 31 3c 3c 35 | respons|e%=(1<<5|
|00000e50| 29 2b 31 36 0d 05 46 21 | 20 c9 20 34 20 20 20 20 |)+16..F!| . 4 |
|00000e60| 3a 20 72 65 73 70 6f 6e | 73 65 25 3d 28 31 3c 3c |: respon|se%=(1<<|
|00000e70| 36 29 2b 31 36 0d 05 50 | 15 20 7f 20 3a 20 72 65 |6)+16..P|. . : re|
|00000e80| 73 70 6f 6e 73 65 25 3d | 31 36 0d 05 5a 05 cb 0d |sponse%=|16..Z...|
|00000e90| 05 64 3e c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |.d>.. "W|imp_Repo|
|00000ea0| 72 74 45 72 72 6f 72 22 | 2c 62 6c 6f 63 6b 25 2c |rtError"|,block%,|
|00000eb0| 72 65 73 70 6f 6e 73 65 | 25 2c 74 69 74 6c 65 24 |response|%,title$|
|00000ec0| 20 b8 20 2c 72 65 73 70 | 6f 6e 73 65 25 0d 05 6e | . ,resp|onse%..n|
|00000ed0| 05 e1 0d 05 78 05 3a 0d | 05 82 2a dd 20 a4 57 69 |....x.:.|..*. .Wi|
|00000ee0| 6d 70 5f 47 65 74 54 65 | 78 74 46 72 6f 6d 49 63 |mp_GetTe|xtFromIc|
|00000ef0| 6f 6e 28 77 69 6e 64 6f | 77 25 2c 69 63 6f 6e 25 |on(windo|w%,icon%|
|00000f00| 29 0d 05 8c 25 62 6c 6f | 63 6b 25 21 30 3d 77 69 |)...%blo|ck%!0=wi|
|00000f10| 6e 64 6f 77 25 20 3a 20 | 62 6c 6f 63 6b 25 21 34 |ndow% : |block%!4|
|00000f20| 3d 69 63 6f 6e 25 0d 05 | 96 22 c8 99 20 22 57 69 |=icon%..|.".. "Wi|
|00000f30| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00000f40| 2c 2c 62 6c 6f 63 6b 25 | 0d 05 a0 38 e7 20 28 28 |,,block%|...8. ((|
|00000f50| 62 6c 6f 63 6b 25 21 32 | 34 29 20 80 20 26 31 30 |block%!2|4) . &10|
|00000f60| 30 29 3d 30 20 85 20 31 | 2c 22 49 63 6f 6e 20 69 |0)=0 . 1|,"Icon i|
|00000f70| 73 6e 27 74 20 69 6e 64 | 69 72 65 63 74 65 64 22 |sn't ind|irected"|
|00000f80| 0d 05 aa 11 3d 24 28 62 | 6c 6f 63 6b 25 21 32 38 |....=$(b|lock%!28|
|00000f90| 29 0d 05 b4 05 3a 0d 05 | be 16 dd 20 f2 43 61 6c |)....:..|... .Cal|
|00000fa0| 63 75 6c 61 74 65 41 6e | 73 77 65 72 0d 05 c3 2e |culateAn|swer....|
|00000fb0| 64 65 70 6f 73 69 74 24 | 3d a4 57 69 6d 70 5f 47 |deposit$|=.Wimp_G|
|00000fc0| 65 74 54 65 78 74 46 72 | 6f 6d 49 63 6f 6e 28 77 |etTextFr|omIcon(w|
|00000fd0| 68 61 6e 64 6c 65 25 2c | 36 29 0d 05 c8 2d 61 6d |handle%,|6)...-am|
|00000fe0| 6f 75 6e 74 24 3d a4 57 | 69 6d 70 5f 47 65 74 54 |ount$=.W|imp_GetT|
|00000ff0| 65 78 74 46 72 6f 6d 49 | 63 6f 6e 28 77 68 61 6e |extFromI|con(whan|
|00001000| 64 6c 65 25 2c 33 29 0d | 05 d2 2b 72 61 74 65 24 |dle%,3).|..+rate$|
|00001010| 3d a4 57 69 6d 70 5f 47 | 65 74 54 65 78 74 46 72 |=.Wimp_G|etTextFr|
|00001020| 6f 6d 49 63 6f 6e 28 77 | 68 61 6e 64 6c 65 25 2c |omIcon(w|handle%,|
|00001030| 34 29 0d 05 dc 2b 74 65 | 72 6d 24 3d a4 57 69 6d |4)...+te|rm$=.Wim|
|00001040| 70 5f 47 65 74 54 65 78 | 74 46 72 6f 6d 49 63 6f |p_GetTex|tFromIco|
|00001050| 6e 28 77 68 61 6e 64 6c | 65 25 2c 35 29 0d 05 e6 |n(whandl|e%,5)...|
|00001060| d7 e7 20 61 6d 6f 75 6e | 74 24 3d 22 22 20 8c 20 |.. amoun|t$="" . |
|00001070| f2 57 69 6d 70 5f 41 6c | 65 72 74 42 6f 78 28 22 |.Wimp_Al|ertBox("|
|00001080| 4d 65 73 73 61 67 65 20 | 66 72 6f 6d 20 46 69 6e |Message |from Fin|
|00001090| 61 6e 63 65 20 43 61 6c | 63 75 6c 61 74 6f 72 22 |ance Cal|culator"|
|000010a0| 2c 22 43 61 6e 6e 6f 74 | 20 63 61 6c 63 75 6c 61 |,"Cannot| calcula|
|000010b0| 74 65 20 77 69 74 68 6f | 75 74 20 61 6e 20 69 6e |te witho|ut an in|
|000010c0| 69 74 69 61 6c 20 61 6d | 6f 75 6e 74 22 2c 30 29 |itial am|ount",0)|
|000010d0| 3a 77 72 69 74 61 62 6c | 65 25 3d 32 3a f2 57 69 |:writabl|e%=2:.Wi|
|000010e0| 6d 70 5f 49 63 6f 6e 43 | 61 72 65 74 28 77 68 61 |mp_IconC|aret(wha|
|000010f0| 6e 64 6c 65 25 2c 77 72 | 69 74 61 62 6c 65 25 2c |ndle%,wr|itable%,|
|00001100| a9 28 a4 57 69 6d 70 5f | 47 65 74 54 65 78 74 46 |.(.Wimp_|GetTextF|
|00001110| 72 6f 6d 49 63 6f 6e 28 | 77 68 61 6e 64 6c 65 25 |romIcon(|whandle%|
|00001120| 2c 77 72 69 74 61 62 6c | 65 25 29 29 29 3a e5 20 |,writabl|e%))):. |
|00001130| 8d 54 62 46 0d 05 f0 d4 | e7 20 72 61 74 65 24 3d |.TbF....|. rate$=|
|00001140| 22 22 20 8c 20 f2 57 69 | 6d 70 5f 41 6c 65 72 74 |"" . .Wi|mp_Alert|
|00001150| 42 6f 78 28 22 4d 65 73 | 73 61 67 65 20 66 72 6f |Box("Mes|sage fro|
|00001160| 6d 20 46 69 6e 61 6e 63 | 65 20 43 61 6c 63 75 6c |m Financ|e Calcul|
|00001170| 61 74 6f 72 22 2c 22 43 | 61 6e 6e 6f 74 20 63 61 |ator","C|annot ca|
|00001180| 6c 63 75 6c 61 74 65 20 | 77 69 74 68 6f 75 74 20 |lculate |without |
|00001190| 61 6e 20 69 6e 74 65 72 | 65 73 74 20 72 61 74 65 |an inter|est rate|
|000011a0| 22 2c 30 29 3a 77 72 69 | 74 61 62 6c 65 25 3d 33 |",0):wri|table%=3|
|000011b0| 3a f2 57 69 6d 70 5f 49 | 63 6f 6e 43 61 72 65 74 |:.Wimp_I|conCaret|
|000011c0| 28 77 68 61 6e 64 6c 65 | 25 2c 77 72 69 74 61 62 |(whandle|%,writab|
|000011d0| 6c 65 25 2c a9 28 a4 57 | 69 6d 70 5f 47 65 74 54 |le%,.(.W|imp_GetT|
|000011e0| 65 78 74 46 72 6f 6d 49 | 63 6f 6e 28 77 68 61 6e |extFromI|con(whan|
|000011f0| 64 6c 65 25 2c 77 72 69 | 74 61 62 6c 65 25 29 29 |dle%,wri|table%))|
|00001200| 29 3a e5 20 8d 54 62 46 | 0d 05 fa d7 e7 20 74 65 |):. .TbF|..... te|
|00001210| 72 6d 24 3d 22 22 20 8c | 20 f2 57 69 6d 70 5f 41 |rm$="" .| .Wimp_A|
|00001220| 6c 65 72 74 42 6f 78 28 | 22 4d 65 73 73 61 67 65 |lertBox(|"Message|
|00001230| 20 66 72 6f 6d 20 46 69 | 6e 61 6e 63 65 20 43 61 | from Fi|nance Ca|
|00001240| 6c 63 75 6c 61 74 6f 72 | 22 2c 22 43 61 6e 6e 6f |lculator|","Canno|
|00001250| 74 20 63 61 6c 63 75 6c | 61 74 65 20 77 69 74 68 |t calcul|ate with|
|00001260| 6f 75 74 20 61 20 74 65 | 72 6d 20 6f 66 20 72 65 |out a te|rm of re|
|00001270| 70 61 79 6d 65 6e 74 22 | 2c 30 29 3a 77 72 69 74 |payment"|,0):writ|
|00001280| 61 62 6c 65 25 3d 34 3a | f2 57 69 6d 70 5f 49 63 |able%=4:|.Wimp_Ic|
|00001290| 6f 6e 43 61 72 65 74 28 | 77 68 61 6e 64 6c 65 25 |onCaret(|whandle%|
|000012a0| 2c 77 72 69 74 61 62 6c | 65 25 2c a9 28 a4 57 69 |,writabl|e%,.(.Wi|
|000012b0| 6d 70 5f 47 65 74 54 65 | 78 74 46 72 6f 6d 49 63 |mp_GetTe|xtFromIc|
|000012c0| 6f 6e 28 77 68 61 6e 64 | 6c 65 25 2c 77 72 69 74 |on(whand|le%,writ|
|000012d0| 61 62 6c 65 25 29 29 29 | 3a e5 20 8d 54 62 46 0d |able%)))|:. .TbF.|
|000012e0| 05 ff 20 e7 20 64 65 70 | 6f 73 69 74 24 3d 22 22 |.. . dep|osit$=""|
|000012f0| 20 8c 20 64 65 70 6f 73 | 69 74 24 3d 22 30 22 0d | . depos|it$="0".|
|00001300| 06 00 1e 64 65 70 3d a0 | 28 22 56 41 4c 28 64 65 |...dep=.|("VAL(de|
|00001310| 70 6f 73 69 74 24 29 2f | 31 30 30 22 29 0d 06 04 |posit$)/|100")...|
|00001320| 1a 61 6e 73 3d a0 28 22 | 56 41 4c 28 74 65 72 6d |.ans=.("|VAL(term|
|00001330| 24 29 2f 31 32 22 29 0d | 06 09 2c 61 6d 74 3d a0 |$)/12").|..,amt=.|
|00001340| 28 22 56 41 4c 28 61 6d | 6f 75 6e 74 24 29 2d 28 |("VAL(am|ount$)-(|
|00001350| 56 41 4c 28 61 6d 6f 75 | 6e 74 24 29 2a 64 65 70 |VAL(amou|nt$)*dep|
|00001360| 29 22 29 0d 06 0e 3e 63 | 61 6c 63 3d a0 28 22 28 |)")...>c|alc=.("(|
|00001370| 22 2b c3 28 61 6d 74 29 | 2b 22 2a 28 31 2b 22 2b |"+.(amt)|+"*(1+"+|
|00001380| 72 61 74 65 24 2b 22 2f | 31 30 30 29 5e 22 2b c3 |rate$+"/|100)^"+.|
|00001390| 28 61 6e 73 29 2b 22 29 | 2f 22 2b 74 65 72 6d 24 |(ans)+")|/"+term$|
|000013a0| 29 0d 06 0f 37 6f 73 74 | 72 69 63 68 25 3d a7 c3 |)...7ost|rich%=..|
|000013b0| 28 63 61 6c 63 29 2c 22 | 2e 22 29 3a 61 6e 73 77 |(calc),"|."):answ|
|000013c0| 65 72 24 3d c0 c3 28 63 | 61 6c 63 29 2c 6f 73 74 |er$=..(c|alc),ost|
|000013d0| 72 69 63 68 25 2b 32 29 | 0d 06 13 3b f2 57 69 6d |rich%+2)|...;.Wim|
|000013e0| 70 5f 50 75 74 54 65 78 | 74 49 6e 49 63 6f 6e 28 |p_PutTex|tInIcon(|
|000013f0| 77 68 61 6e 64 6c 65 25 | 2c 37 2c 22 20 20 20 20 |whandle%|,7," |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001410| 20 22 29 0d 06 18 3c f2 | 57 69 6d 70 5f 50 75 74 | ")...<.|Wimp_Put|
|00001420| 54 65 78 74 49 6e 49 63 | 6f 6e 28 77 68 61 6e 64 |TextInIc|on(whand|
|00001430| 6c 65 25 2c 37 2c 22 a3 | 22 2b 61 6e 73 77 65 72 |le%,7,".|"+answer|
|00001440| 24 2b 22 20 70 65 72 20 | 6d 6f 6e 74 68 22 29 0d |$+" per |month").|
|00001450| 06 22 05 e1 0d 06 2c 05 | 3a 0d 06 36 22 dd 20 a4 |."....,.|:..6". .|
|00001460| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 28 68 61 6e |GetIconS|tate(han|
|00001470| 64 6c 65 25 2c 69 63 6f | 6e 25 29 0d 06 40 32 21 |dle%,ico|n%)..@2!|
|00001480| 62 6c 6f 63 6b 25 3d 68 | 61 6e 64 6c 65 25 3a 62 |block%=h|andle%:b|
|00001490| 6c 6f 63 6b 25 21 34 3d | 69 63 6f 6e 25 3a c8 99 |lock%!4=|icon%:..|
|000014a0| 20 47 65 74 49 2c 2c 62 | 6c 6f 63 6b 25 0d 06 4a | GetI,,b|lock%..J|
|000014b0| 16 3d 62 6c 6f 63 6b 25 | 21 32 34 3e 3e 32 31 20 |.=block%|!24>>21 |
|000014c0| 80 20 31 0d 06 54 05 3a | 0d 06 5e 17 dd 20 f2 43 |. 1..T.:|..^.. .C|
|000014d0| 61 6c 63 75 6c 61 74 65 | 41 6e 73 77 65 72 31 0d |alculate|Answer1.|
|000014e0| 06 68 2e 64 65 70 6f 73 | 69 74 24 3d a4 57 69 6d |.h.depos|it$=.Wim|
|000014f0| 70 5f 47 65 74 54 65 78 | 74 46 72 6f 6d 49 63 6f |p_GetTex|tFromIco|
|00001500| 6e 28 77 68 61 6e 64 6c | 65 25 2c 36 29 0d 06 72 |n(whandl|e%,6)..r|
|00001510| 2d 61 6d 6f 75 6e 74 24 | 3d a4 57 69 6d 70 5f 47 |-amount$|=.Wimp_G|
|00001520| 65 74 54 65 78 74 46 72 | 6f 6d 49 63 6f 6e 28 77 |etTextFr|omIcon(w|
|00001530| 68 61 6e 64 6c 65 25 2c | 33 29 0d 06 7c 2b 72 61 |handle%,|3)..|+ra|
|00001540| 74 65 24 3d a4 57 69 6d | 70 5f 47 65 74 54 65 78 |te$=.Wim|p_GetTex|
|00001550| 74 46 72 6f 6d 49 63 6f | 6e 28 77 68 61 6e 64 6c |tFromIco|n(whandl|
|00001560| 65 25 2c 34 29 0d 06 86 | 2b 74 65 72 6d 24 3d a4 |e%,4)...|+term$=.|
|00001570| 57 69 6d 70 5f 47 65 74 | 54 65 78 74 46 72 6f 6d |Wimp_Get|TextFrom|
|00001580| 49 63 6f 6e 28 77 68 61 | 6e 64 6c 65 25 2c 35 29 |Icon(wha|ndle%,5)|
|00001590| 0d 06 90 d7 e7 20 61 6d | 6f 75 6e 74 24 3d 22 22 |..... am|ount$=""|
|000015a0| 20 8c 20 f2 57 69 6d 70 | 5f 41 6c 65 72 74 42 6f | . .Wimp|_AlertBo|
|000015b0| 78 28 22 4d 65 73 73 61 | 67 65 20 66 72 6f 6d 20 |x("Messa|ge from |
|000015c0| 46 69 6e 61 6e 63 65 20 | 43 61 6c 63 75 6c 61 74 |Finance |Calculat|
|000015d0| 6f 72 22 2c 22 43 61 6e | 6e 6f 74 20 63 61 6c 63 |or","Can|not calc|
|000015e0| 75 6c 61 74 65 20 77 69 | 74 68 6f 75 74 20 61 6e |ulate wi|thout an|
|000015f0| 20 69 6e 69 74 69 61 6c | 20 61 6d 6f 75 6e 74 22 | initial| amount"|
|00001600| 2c 30 29 3a 77 72 69 74 | 61 62 6c 65 25 3d 32 3a |,0):writ|able%=2:|
|00001610| f2 57 69 6d 70 5f 49 63 | 6f 6e 43 61 72 65 74 28 |.Wimp_Ic|onCaret(|
|00001620| 77 68 61 6e 64 6c 65 25 | 2c 77 72 69 74 61 62 6c |whandle%|,writabl|
|00001630| 65 25 2c a9 28 a4 57 69 | 6d 70 5f 47 65 74 54 65 |e%,.(.Wi|mp_GetTe|
|00001640| 78 74 46 72 6f 6d 49 63 | 6f 6e 28 77 68 61 6e 64 |xtFromIc|on(whand|
|00001650| 6c 65 25 2c 77 72 69 74 | 61 62 6c 65 25 29 29 29 |le%,writ|able%)))|
|00001660| 3a e5 20 8d 54 62 46 0d | 06 9a d4 e7 20 72 61 74 |:. .TbF.|.... rat|
|00001670| 65 24 3d 22 22 20 8c 20 | f2 57 69 6d 70 5f 41 6c |e$="" . |.Wimp_Al|
|00001680| 65 72 74 42 6f 78 28 22 | 4d 65 73 73 61 67 65 20 |ertBox("|Message |
|00001690| 66 72 6f 6d 20 46 69 6e | 61 6e 63 65 20 43 61 6c |from Fin|ance Cal|
|000016a0| 63 75 6c 61 74 6f 72 22 | 2c 22 43 61 6e 6e 6f 74 |culator"|,"Cannot|
|000016b0| 20 63 61 6c 63 75 6c 61 | 74 65 20 77 69 74 68 6f | calcula|te witho|
|000016c0| 75 74 20 61 6e 20 69 6e | 74 65 72 65 73 74 20 72 |ut an in|terest r|
|000016d0| 61 74 65 22 2c 30 29 3a | 77 72 69 74 61 62 6c 65 |ate",0):|writable|
|000016e0| 25 3d 33 3a f2 57 69 6d | 70 5f 49 63 6f 6e 43 61 |%=3:.Wim|p_IconCa|
|000016f0| 72 65 74 28 77 68 61 6e | 64 6c 65 25 2c 77 72 69 |ret(whan|dle%,wri|
|00001700| 74 61 62 6c 65 25 2c a9 | 28 a4 57 69 6d 70 5f 47 |table%,.|(.Wimp_G|
|00001710| 65 74 54 65 78 74 46 72 | 6f 6d 49 63 6f 6e 28 77 |etTextFr|omIcon(w|
|00001720| 68 61 6e 64 6c 65 25 2c | 77 72 69 74 61 62 6c 65 |handle%,|writable|
|00001730| 25 29 29 29 3a e5 20 8d | 54 62 46 0d 06 a4 d7 e7 |%))):. .|TbF.....|
|00001740| 20 74 65 72 6d 24 3d 22 | 22 20 8c 20 f2 57 69 6d | term$="|" . .Wim|
|00001750| 70 5f 41 6c 65 72 74 42 | 6f 78 28 22 4d 65 73 73 |p_AlertB|ox("Mess|
|00001760| 61 67 65 20 66 72 6f 6d | 20 46 69 6e 61 6e 63 65 |age from| Finance|
|00001770| 20 43 61 6c 63 75 6c 61 | 74 6f 72 22 2c 22 43 61 | Calcula|tor","Ca|
|00001780| 6e 6e 6f 74 20 63 61 6c | 63 75 6c 61 74 65 20 77 |nnot cal|culate w|
|00001790| 69 74 68 6f 75 74 20 61 | 20 74 65 72 6d 20 6f 66 |ithout a| term of|
|000017a0| 20 72 65 70 61 79 6d 65 | 6e 74 22 2c 30 29 3a 77 | repayme|nt",0):w|
|000017b0| 72 69 74 61 62 6c 65 25 | 3d 34 3a f2 57 69 6d 70 |ritable%|=4:.Wimp|
|000017c0| 5f 49 63 6f 6e 43 61 72 | 65 74 28 77 68 61 6e 64 |_IconCar|et(whand|
|000017d0| 6c 65 25 2c 77 72 69 74 | 61 62 6c 65 25 2c a9 28 |le%,writ|able%,.(|
|000017e0| a4 57 69 6d 70 5f 47 65 | 74 54 65 78 74 46 72 6f |.Wimp_Ge|tTextFro|
|000017f0| 6d 49 63 6f 6e 28 77 68 | 61 6e 64 6c 65 25 2c 77 |mIcon(wh|andle%,w|
|00001800| 72 69 74 61 62 6c 65 25 | 29 29 29 3a e5 20 8d 54 |ritable%|))):. .T|
|00001810| 62 46 0d 06 ae 20 e7 20 | 64 65 70 6f 73 69 74 24 |bF... . |deposit$|
|00001820| 3d 22 22 20 8c 20 64 65 | 70 6f 73 69 74 24 3d 22 |="" . de|posit$="|
|00001830| 30 22 0d 06 b8 1e 64 65 | 70 3d a0 28 22 56 41 4c |0"....de|p=.("VAL|
|00001840| 28 64 65 70 6f 73 69 74 | 24 29 2f 31 30 30 22 29 |(deposit|$)/100")|
|00001850| 0d 06 c2 1a 61 6e 73 3d | a0 28 22 56 41 4c 28 74 |....ans=|.("VAL(t|
|00001860| 65 72 6d 24 29 2f 31 32 | 22 29 0d 06 cc 2c 61 6d |erm$)/12|")...,am|
|00001870| 74 3d a0 28 22 56 41 4c | 28 61 6d 6f 75 6e 74 24 |t=.("VAL|(amount$|
|00001880| 29 2d 28 56 41 4c 28 61 | 6d 6f 75 6e 74 24 29 2a |)-(VAL(a|mount$)*|
|00001890| 64 65 70 29 22 29 0d 06 | d6 37 63 61 6c 63 3d a0 |dep)")..|.7calc=.|
|000018a0| 28 22 28 61 6d 74 2b 28 | 61 6d 74 2a 56 41 4c 28 |("(amt+(|amt*VAL(|
|000018b0| 72 61 74 65 24 29 2a 61 | 6e 73 2f 31 30 30 29 29 |rate$)*a|ns/100))|
|000018c0| 2f 56 41 4c 28 74 65 72 | 6d 24 29 22 29 0d 06 e0 |/VAL(ter|m$)")...|
|000018d0| 37 6f 73 74 72 69 63 68 | 25 3d a7 c3 28 63 61 6c |7ostrich|%=..(cal|
|000018e0| 63 29 2c 22 2e 22 29 3a | 61 6e 73 77 65 72 24 3d |c),"."):|answer$=|
|000018f0| c0 c3 28 63 61 6c 63 29 | 2c 6f 73 74 72 69 63 68 |..(calc)|,ostrich|
|00001900| 25 2b 32 29 0d 06 e5 3b | f2 57 69 6d 70 5f 50 75 |%+2)...;|.Wimp_Pu|
|00001910| 74 54 65 78 74 49 6e 49 | 63 6f 6e 28 77 68 61 6e |tTextInI|con(whan|
|00001920| 64 6c 65 25 2c 37 2c 22 | 20 20 20 20 20 20 20 20 |dle%,7,"| |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 29 0d | | ").|
|00001940| 06 ea 3c f2 57 69 6d 70 | 5f 50 75 74 54 65 78 74 |..<.Wimp|_PutText|
|00001950| 49 6e 49 63 6f 6e 28 77 | 68 61 6e 64 6c 65 25 2c |InIcon(w|handle%,|
|00001960| 37 2c 22 a3 22 2b 61 6e | 73 77 65 72 24 2b 22 20 |7,"."+an|swer$+" |
|00001970| 70 65 72 20 6d 6f 6e 74 | 68 22 29 0d 06 f4 05 e1 |per mont|h").....|
|00001980| 0d 06 fe 05 3a 0d 07 08 | 17 dd 20 f2 44 65 63 6f |....:...|.. .Deco|
|00001990| 64 65 4b 65 79 73 28 6b | 65 79 25 29 0d 07 09 62 |deKeys(k|ey%)...b|
|000019a0| 63 74 25 3d 33 3a f5 3a | c8 99 22 57 69 6d 70 5f |ct%=3:.:|.."Wimp_|
|000019b0| 47 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |GetCaret|Position|
|000019c0| 22 2c 2c 62 6c 6f 63 6b | 25 3a e7 20 62 6c 6f 63 |",,block|%:. bloc|
|000019d0| 6b 25 21 31 36 3c 3e 2d | 31 20 77 72 69 74 61 62 |k%!16<>-|1 writab|
|000019e0| 6c 65 25 3d 62 6c 6f 63 | 6b 25 21 34 3a 63 74 25 |le%=bloc|k%!4:ct%|
|000019f0| 3d 63 74 25 2b 31 3a fd | 20 63 74 25 3d 36 0d 07 |=ct%+1:.| ct%=6..|
|00001a00| 0d 0d c8 8e 20 6b 65 79 | 25 20 ca 0d 07 0e 0a 20 |.... key|% ..... |
|00001a10| c9 20 31 33 3a 0d 07 12 | 1f 20 20 20 20 e7 20 77 |. 13:...|. . w|
|00001a20| 72 69 74 61 62 6c 65 25 | 3d 36 20 c8 8e 20 61 6e |ritable%|=6 .. an|
|00001a30| 73 25 20 ca 0d 07 14 23 | 20 20 20 20 20 20 20 20 |s% ....#| |
|00001a40| 20 20 c9 20 30 3a f2 43 | 61 6c 63 75 6c 61 74 65 | . 0:.C|alculate|
|00001a50| 41 6e 73 77 65 72 31 0d | 07 15 22 20 20 20 20 20 |Answer1.|.." |
|00001a60| 20 20 20 20 20 c9 20 31 | 3a f2 43 61 6c 63 75 6c | . 1|:.Calcul|
|00001a70| 61 74 65 41 6e 73 77 65 | 72 0d 07 16 0c 20 20 20 |ateAnswe|r.... |
|00001a80| 20 20 20 20 cb 0d 07 17 | 36 20 e7 20 77 72 69 74 | ....|6 . writ|
|00001a90| 61 62 6c 65 25 3d 36 20 | 77 72 69 74 61 62 6c 65 |able%=6 |writable|
|00001aa0| 25 3d 33 20 8b 20 77 72 | 69 74 61 62 6c 65 25 3d |%=3 . wr|itable%=|
|00001ab0| 77 72 69 74 61 62 6c 65 | 25 2b 31 0d 07 1b 3c 20 |writable|%+1...< |
|00001ac0| c9 20 33 39 38 3a e7 20 | 77 72 69 74 61 62 6c 65 |. 398:. |writable|
|00001ad0| 25 3d 36 20 77 72 69 74 | 61 62 6c 65 25 3d 33 20 |%=6 writ|able%=3 |
|00001ae0| 8b 20 77 72 69 74 61 62 | 6c 65 25 3d 77 72 69 74 |. writab|le%=writ|
|00001af0| 61 62 6c 65 25 2b 31 0d | 07 1c 3c 20 c9 20 33 39 |able%+1.|..< . 39|
|00001b00| 39 3a e7 20 77 72 69 74 | 61 62 6c 65 25 3d 33 20 |9:. writ|able%=3 |
|00001b10| 77 72 69 74 61 62 6c 65 | 25 3d 36 20 8b 20 77 72 |writable|%=6 . wr|
|00001b20| 69 74 61 62 6c 65 25 3d | 77 72 69 74 61 62 6c 65 |itable%=|writable|
|00001b30| 25 2d 31 0d 07 20 1f 20 | 7f 3a c8 99 22 57 69 6d |%-1.. . |.:.."Wim|
|00001b40| 70 5f 50 72 6f 63 65 73 | 73 4b 65 79 22 2c 6b 65 |p_Proces|sKey",ke|
|00001b50| 79 25 0d 07 26 05 cb 0d | 07 30 54 f2 57 69 6d 70 |y%..&...|.0T.Wimp|
|00001b60| 5f 49 63 6f 6e 43 61 72 | 65 74 28 77 68 61 6e 64 |_IconCar|et(whand|
|00001b70| 6c 65 25 2c 77 72 69 74 | 61 62 6c 65 25 2c a9 28 |le%,writ|able%,.(|
|00001b80| a4 57 69 6d 70 5f 47 65 | 74 54 65 78 74 46 72 6f |.Wimp_Ge|tTextFro|
|00001b90| 6d 49 63 6f 6e 28 77 68 | 61 6e 64 6c 65 25 2c 77 |mIcon(wh|andle%,w|
|00001ba0| 72 69 74 61 62 6c 65 25 | 29 29 29 0d 07 3a 05 e1 |ritable%|)))..:..|
|00001bb0| 0d 07 44 05 3a 0d 07 4e | 2b dd 20 f2 57 69 6d 70 |..D.:..N|+. .Wimp|
|00001bc0| 5f 49 63 6f 6e 43 61 72 | 65 74 28 77 69 6e 64 6f |_IconCar|et(windo|
|00001bd0| 77 25 2c 69 63 6f 6e 25 | 2c 63 68 61 72 73 25 29 |w%,icon%|,chars%)|
|00001be0| 0d 07 58 38 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..X8.. "|Wimp_Set|
|00001bf0| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 77 |CaretPos|ition",w|
|00001c00| 69 6e 64 6f 77 25 2c 69 | 63 6f 6e 25 2c 2c 2c 2d |indow%,i|con%,,,-|
|00001c10| 31 2c 63 68 61 72 73 25 | 0d 07 62 05 e1 0d 07 6c |1,chars%|..b....l|
|00001c20| 05 3a 0d 07 76 29 dd 20 | a4 57 69 6d 70 5f 49 63 |.:..v). |.Wimp_Ic|
|00001c30| 6f 6e 56 61 6c 69 64 61 | 74 69 6f 6e 28 77 69 6e |onValida|tion(win|
|00001c40| 64 6f 77 25 2c 69 63 6f | 6e 25 29 0d 07 80 25 62 |dow%,ico|n%)...%b|
|00001c50| 6c 6f 63 6b 25 21 30 3d | 77 69 6e 64 6f 77 25 20 |lock%!0=|window% |
|00001c60| 3a 20 62 6c 6f 63 6b 25 | 21 34 3d 69 63 6f 6e 25 |: block%|!4=icon%|
|00001c70| 0d 07 8a 22 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...".. "|Wimp_Get|
|00001c80| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6f 63 |IconStat|e",,bloc|
|00001c90| 6b 25 0d 07 94 38 e7 20 | 28 28 62 6c 6f 63 6b 25 |k%...8. |((block%|
|00001ca0| 21 32 34 29 20 80 20 26 | 31 30 30 29 3d 30 20 85 |!24) . &|100)=0 .|
|00001cb0| 20 31 2c 22 49 63 6f 6e | 20 69 73 6e 27 74 20 69 | 1,"Icon| isn't i|
|00001cc0| 6e 64 69 72 65 63 74 65 | 64 22 0d 07 9e 11 3d 24 |ndirecte|d"....=$|
|00001cd0| 28 62 6c 6f 63 6b 25 21 | 33 32 29 0d 07 a8 05 3a |(block%!|32)....:|
|00001ce0| 0d 07 b2 11 dd 20 f2 63 | 61 6c 63 28 62 75 74 25 |..... .c|alc(but%|
|00001cf0| 29 0d 07 bc 0d c8 8e 20 | 62 75 74 25 20 ca 0d 07 |)...... |but% ...|
|00001d00| c6 7c 20 c9 20 30 2c 31 | 2c 32 2c 33 2c 34 2c 35 |.| . 0,1|,2,3,4,5|
|00001d10| 2c 36 2c 37 2c 38 2c 39 | 3a e7 20 28 a9 28 6e 75 |,6,7,8,9|:. (.(nu|
|00001d20| 6d 24 29 3c 31 36 20 80 | 20 66 6c 61 67 25 3d 30 |m$)<16 .| flag%=0|
|00001d30| 29 20 6e 75 6d 24 3d 6e | 75 6d 24 2b c3 28 62 75 |) num$=n|um$+.(bu|
|00001d40| 74 25 29 3a f2 57 69 6d | 70 5f 50 75 74 54 65 78 |t%):.Wim|p_PutTex|
|00001d50| 74 49 6e 49 63 6f 6e 28 | 63 61 6c 63 25 2c 31 33 |tInIcon(|calc%,13|
|00001d60| 2c 6e 75 6d 24 29 3a 63 | 61 6c 63 24 3d 63 61 6c |,num$):c|alc$=cal|
|00001d70| 63 24 2b c3 28 62 75 74 | 25 29 0d 07 d0 62 20 c9 |c$+.(but|%)...b .|
|00001d80| 20 31 30 3a e7 20 28 a9 | 28 6e 75 6d 24 29 3c 31 | 10:. (.|(num$)<1|
|00001d90| 36 20 80 20 66 6c 61 67 | 25 3d 30 29 6e 75 6d 24 |6 . flag|%=0)num$|
|00001da0| 3d 6e 75 6d 24 2b 22 28 | 22 3a f2 57 69 6d 70 5f |=num$+"(|":.Wimp_|
|00001db0| 50 75 74 54 65 78 74 49 | 6e 49 63 6f 6e 28 63 61 |PutTextI|nIcon(ca|
|00001dc0| 6c 63 25 2c 31 33 2c 6e | 75 6d 24 29 3a 63 61 6c |lc%,13,n|um$):cal|
|00001dd0| 63 24 3d 63 61 6c 63 24 | 2b 22 28 22 0d 07 da 63 |c$=calc$|+"("...c|
|00001de0| 20 c9 20 31 31 3a e7 20 | 28 a9 28 6e 75 6d 24 29 | . 11:. |(.(num$)|
|00001df0| 3c 31 36 20 80 20 66 6c | 61 67 25 3d 30 29 20 6e |<16 . fl|ag%=0) n|
|00001e00| 75 6d 24 3d 6e 75 6d 24 | 2b 22 2e 22 3a f2 57 69 |um$=num$|+".":.Wi|
|00001e10| 6d 70 5f 50 75 74 54 65 | 78 74 49 6e 49 63 6f 6e |mp_PutTe|xtInIcon|
|00001e20| 28 63 61 6c 63 25 2c 31 | 33 2c 6e 75 6d 24 29 3a |(calc%,1|3,num$):|
|00001e30| 63 61 6c 63 24 3d 63 61 | 6c 63 24 2b 22 2e 22 0d |calc$=ca|lc$+".".|
|00001e40| 07 e4 63 20 c9 20 31 34 | 3a e7 20 28 a9 28 6e 75 |..c . 14|:. (.(nu|
|00001e50| 6d 24 29 3c 31 36 20 80 | 20 66 6c 61 67 25 3d 30 |m$)<16 .| flag%=0|
|00001e60| 29 20 6e 75 6d 24 3d 6e | 75 6d 24 2b 22 29 22 3a |) num$=n|um$+")":|
|00001e70| f2 57 69 6d 70 5f 50 75 | 74 54 65 78 74 49 6e 49 |.Wimp_Pu|tTextInI|
|00001e80| 63 6f 6e 28 63 61 6c 63 | 25 2c 31 33 2c 6e 75 6d |con(calc|%,13,num|
|00001e90| 24 29 3a 63 61 6c 63 24 | 3d 63 61 6c 63 24 2b 22 |$):calc$|=calc$+"|
|00001ea0| 29 22 0d 07 ee 72 20 c9 | 20 31 35 3a e7 20 66 6c |)"...r .| 15:. fl|
|00001eb0| 61 67 25 3d 30 20 6e 75 | 6d 24 3d 22 22 3a 63 61 |ag%=0 nu|m$="":ca|
|00001ec0| 6c 63 24 3d 22 22 3a f2 | 57 69 6d 70 5f 50 75 74 |lc$="":.|Wimp_Put|
|00001ed0| 54 65 78 74 49 6e 49 63 | 6f 6e 28 63 61 6c 63 25 |TextInIc|on(calc%|
|00001ee0| 2c 31 33 2c 22 22 29 20 | 8b 20 f2 57 69 6d 70 5f |,13,"") |. .Wimp_|
|00001ef0| 50 75 74 54 65 78 74 49 | 6e 49 63 6f 6e 28 63 61 |PutTextI|nIcon(ca|
|00001f00| 6c 63 25 2c 31 33 2c 6e | 75 6d 24 29 3a 66 6c 61 |lc%,13,n|um$):fla|
|00001f10| 67 25 3d 30 0d 07 f8 1a | 20 c9 20 31 36 3a e7 20 |g%=0....| . 16:. |
|00001f20| a4 63 68 65 63 6b 73 74 | 72 69 6e 67 20 8c 0d 07 |.checkst|ring ...|
|00001f30| f9 12 20 20 62 65 72 3d | a0 28 63 61 6c 63 24 29 |.. ber=|.(calc$)|
|00001f40| 0d 07 fa 11 20 20 6e 75 | 6d 24 3d c3 28 62 65 72 |.... nu|m$=.(ber|
|00001f50| 29 0d 07 fb 28 20 20 f2 | 57 69 6d 70 5f 50 75 74 |)...( .|Wimp_Put|
|00001f60| 54 65 78 74 49 6e 49 63 | 6f 6e 28 63 61 6c 63 25 |TextInIc|on(calc%|
|00001f70| 2c 31 33 2c 6e 75 6d 24 | 29 0d 07 fc 06 20 cc 0d |,13,num$|).... ..|
|00001f80| 07 fd 32 20 20 f2 57 69 | 6d 70 5f 50 75 74 54 65 |..2 .Wi|mp_PutTe|
|00001f90| 78 74 49 6e 49 63 6f 6e | 28 63 61 6c 63 25 2c 31 |xtInIcon|(calc%,1|
|00001fa0| 33 2c 22 53 79 6e 74 61 | 78 20 65 72 72 6f 72 22 |3,"Synta|x error"|
|00001fb0| 29 0d 07 fe 06 20 cd 0d | 08 02 63 20 c9 20 31 37 |).... ..|..c . 17|
|00001fc0| 3a e7 20 28 a9 28 6e 75 | 6d 24 29 3c 31 36 20 80 |:. (.(nu|m$)<16 .|
|00001fd0| 20 66 6c 61 67 25 3d 30 | 29 20 6e 75 6d 24 3d 6e | flag%=0|) num$=n|
|00001fe0| 75 6d 24 2b 22 2b 22 3a | f2 57 69 6d 70 5f 50 75 |um$+"+":|.Wimp_Pu|
|00001ff0| 74 54 65 78 74 49 6e 49 | 63 6f 6e 28 63 61 6c 63 |tTextInI|con(calc|
|00002000| 25 2c 31 33 2c 6e 75 6d | 24 29 3a 63 61 6c 63 24 |%,13,num|$):calc$|
|00002010| 3d 63 61 6c 63 24 2b 22 | 2b 22 0d 08 0c 63 20 c9 |=calc$+"|+"...c .|
|00002020| 20 31 38 3a e7 20 28 a9 | 28 6e 75 6d 24 29 3c 31 | 18:. (.|(num$)<1|
|00002030| 36 20 80 20 66 6c 61 67 | 25 3d 30 29 20 6e 75 6d |6 . flag|%=0) num|
|00002040| 24 3d 6e 75 6d 24 2b 22 | 2d 22 3a f2 57 69 6d 70 |$=num$+"|-":.Wimp|
|00002050| 5f 50 75 74 54 65 78 74 | 49 6e 49 63 6f 6e 28 63 |_PutText|InIcon(c|
|00002060| 61 6c 63 25 2c 31 33 2c | 6e 75 6d 24 29 3a 63 61 |alc%,13,|num$):ca|
|00002070| 6c 63 24 3d 63 61 6c 63 | 24 2b 22 2d 22 0d 08 16 |lc$=calc|$+"-"...|
|00002080| 63 20 c9 20 31 39 3a e7 | 20 28 a9 28 6e 75 6d 24 |c . 19:.| (.(num$|
|00002090| 29 3c 31 36 20 80 20 66 | 6c 61 67 25 3d 30 29 20 |)<16 . f|lag%=0) |
|000020a0| 6e 75 6d 24 3d 6e 75 6d | 24 2b 22 d7 22 3a f2 57 |num$=num|$+".":.W|
|000020b0| 69 6d 70 5f 50 75 74 54 | 65 78 74 49 6e 49 63 6f |imp_PutT|extInIco|
|000020c0| 6e 28 63 61 6c 63 25 2c | 31 33 2c 6e 75 6d 24 29 |n(calc%,|13,num$)|
|000020d0| 3a 63 61 6c 63 24 3d 63 | 61 6c 63 24 2b 22 2a 22 |:calc$=c|alc$+"*"|
|000020e0| 0d 08 20 63 20 c9 20 32 | 30 3a e7 20 28 a9 28 6e |.. c . 2|0:. (.(n|
|000020f0| 75 6d 24 29 3c 31 36 20 | 80 20 66 6c 61 67 25 3d |um$)<16 |. flag%=|
|00002100| 30 29 20 6e 75 6d 24 3d | 6e 75 6d 24 2b 22 f7 22 |0) num$=|num$+"."|
|00002110| 3a f2 57 69 6d 70 5f 50 | 75 74 54 65 78 74 49 6e |:.Wimp_P|utTextIn|
|00002120| 49 63 6f 6e 28 63 61 6c | 63 25 2c 31 33 2c 6e 75 |Icon(cal|c%,13,nu|
|00002130| 6d 24 29 3a 63 61 6c 63 | 24 3d 63 61 6c 63 24 2b |m$):calc|$=calc$+|
|00002140| 22 2f 22 0d 08 25 65 20 | c9 20 32 31 3a e7 20 66 |"/"..%e |. 21:. f|
|00002150| 6c 61 67 25 3d 30 20 6e | 75 6d 24 3d c0 6e 75 6d |lag%=0 n|um$=.num|
|00002160| 24 2c a9 28 6e 75 6d 24 | 29 2d 31 29 3a f2 57 69 |$,.(num$|)-1):.Wi|
|00002170| 6d 70 5f 50 75 74 54 65 | 78 74 49 6e 49 63 6f 6e |mp_PutTe|xtInIcon|
|00002180| 28 63 61 6c 63 25 2c 31 | 33 2c 6e 75 6d 24 29 3a |(calc%,1|3,num$):|
|00002190| 63 61 6c 63 24 3d c0 63 | 61 6c 63 24 2c a9 28 63 |calc$=.c|alc$,.(c|
|000021a0| 61 6c 63 24 29 2d 31 29 | 0d 08 2a 05 cb 0d 08 34 |alc$)-1)|..*....4|
|000021b0| 05 e1 0d 08 3e 05 3a 0d | 08 48 12 dd 20 a4 63 68 |....>.:.|.H.. .ch|
|000021c0| 65 63 6b 73 74 72 69 6e | 67 0d 08 52 0c 76 61 6c |eckstrin|g..R.val|
|000021d0| 69 64 25 3d a3 0d 08 70 | 18 74 65 6d 70 24 3d 63 |id%=...p|.temp$=c|
|000021e0| 61 6c 63 24 3a 63 74 32 | 25 3d 30 3a f5 0d 08 72 |alc$:ct2|%=0:...r|
|000021f0| 4b 6e 75 6c 6c 25 3d a7 | 74 65 6d 70 24 2c 22 28 |Knull%=.|temp$,"(|
|00002200| 22 29 3a e7 20 6e 75 6c | 6c 25 3c 3e 30 20 74 65 |"):. nul|l%<>0 te|
|00002210| 6d 70 24 3d c2 74 65 6d | 70 24 2c a9 74 65 6d 70 |mp$=.tem|p$,.temp|
|00002220| 24 2d 28 6e 75 6c 6c 25 | 2b 31 29 29 3a 63 74 32 |$-(null%|+1)):ct2|
|00002230| 25 3d 63 74 32 25 2b 31 | 0d 08 75 0d fd 20 6e 75 |%=ct2%+1|..u.. nu|
|00002240| 6c 6c 25 3d 30 0d 08 7a | 18 74 65 6d 70 24 3d 63 |ll%=0..z|.temp$=c|
|00002250| 61 6c 63 24 3a 63 74 31 | 25 3d 30 3a f5 0d 08 7c |alc$:ct1|%=0:...||
|00002260| 4b 6e 69 6c 6c 25 3d a7 | 74 65 6d 70 24 2c 22 29 |Knill%=.|temp$,")|
|00002270| 22 29 3a e7 20 6e 69 6c | 6c 25 3c 3e 30 20 74 65 |"):. nil|l%<>0 te|
|00002280| 6d 70 24 3d c2 74 65 6d | 70 24 2c a9 74 65 6d 70 |mp$=.tem|p$,.temp|
|00002290| 24 2d 28 6e 69 6c 6c 25 | 2b 31 29 29 3a 63 74 31 |$-(nill%|+1)):ct1|
|000022a0| 25 3d 63 74 31 25 2b 31 | 0d 08 7f 0d fd 20 6e 69 |%=ct1%+1|..... ni|
|000022b0| 6c 6c 25 3d 30 0d 08 80 | 57 e7 20 28 28 28 97 28 |ll%=0...|W. (((.(|
|000022c0| c2 63 61 6c 63 24 29 29 | 3e 34 37 20 80 20 97 28 |.calc$))|>47 . .(|
|000022d0| c2 63 61 6c 63 24 29 29 | 3c 35 38 29 20 84 20 c2 |.calc$))|<58) . .|
|000022e0| 63 61 6c 63 24 29 3d 22 | 29 22 29 20 80 20 63 74 |calc$)="|)") . ct|
|000022f0| 31 25 3d 63 74 32 25 29 | 20 76 61 6c 69 64 25 3d |1%=ct2%)| valid%=|
|00002300| b9 20 8b 20 76 61 6c 69 | 64 25 3d a3 0d 08 81 0b |. . vali|d%=.....|
|00002310| 3d 76 61 6c 69 64 25 0d | 08 84 05 3a 0d 4e 20 3f |=valid%.|...:.N ?|
|00002320| dc 20 46 69 6e 61 6e 63 | 65 20 43 61 6c 63 2c 33 |. Financ|e Calc,3|
|00002330| 2c 30 2c 69 6e 66 6f 25 | 2c 49 6e 66 6f 2c 30 2c |,0,info%|,Info,0,|
|00002340| 30 2c 43 61 6c 63 75 6c | 61 74 6f 72 2e 2e 2e 2c |0,Calcul|ator...,|
|00002350| 26 38 30 2c 2d 31 2c 51 | 75 69 74 0d 75 30 36 dc |&80,-1,Q|uit.u06.|
|00002360| 20 46 69 6e 61 6e 63 65 | 20 43 61 6c 63 2c 32 2c | Finance| Calc,2,|
|00002370| 30 2c 69 6e 66 6f 25 2c | 49 6e 66 6f 2c 26 38 30 |0,info%,|Info,&80|
|00002380| 2c 2d 31 2c 43 61 6c 63 | 75 6c 61 74 6f 72 2e 2e |,-1,Calc|ulator..|
|00002390| 2e 0d ff | |... | |
+--------+-------------------------+-------------------------+--------+--------+
