home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | f8 01 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 4e 75 6d 65 72 69 | 63 00 00 00 ff ff ff ff |.!Numeri|c.......|
|00000070| 46 ff ff ff e9 5c 76 27 | 00 00 00 00 ff ff ff ff |F....\v'|........|
|00000080| d4 01 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 |.....!Bo|ot......|
|00000090| 3e 00 00 00 46 eb ff ff | 24 1c 45 01 03 00 12 dd |>...F...|$.E.....|
|000000a0| 3e 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |>...$...|.!Help..|
|000000b0| 00 00 00 00 7d 25 00 00 | 46 ff ff ff 28 1c 45 01 |....}%..|F...(.E.|
|000000c0| 03 00 f9 b7 7d 25 00 00 | 86 00 00 00 82 21 52 75 |....}%..|.....!Ru|
|000000d0| 6e 00 00 00 00 00 00 00 | 77 01 00 00 46 eb ff ff |n.......|w...F...|
|000000e0| 2c 1c 45 01 03 00 75 29 | 77 01 00 00 27 26 00 00 |,.E...u)|w...'&..|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 00 7f 3b 00 00 |.!RunIma|ge...;..|
|00000100| 46 fb ff ff 30 1c 45 01 | 03 00 a1 cb 7f 3b 00 00 |F...0.E.|.....;..|
|00000110| c2 27 00 00 82 21 53 70 | 72 69 74 65 73 00 00 00 |.'...!Sp|rites...|
|00000120| 14 02 00 00 46 f9 ff ff | 34 1c 45 01 03 00 49 87 |....F...|4.E...I.|
|00000130| 14 02 00 00 65 63 00 00 | 82 21 53 70 72 69 74 65 |....ec..|.!Sprite|
|00000140| 73 32 32 00 f0 03 00 00 | 46 f9 ff ff 38 1c 45 01 |s22.....|F...8.E.|
|00000150| 03 00 6f a3 f0 03 00 00 | 9d 65 00 00 82 4d 65 73 |..o.....|.e...Mes|
|00000160| 73 61 67 65 73 00 00 00 | 8c 03 00 00 46 ff ff ff |sages...|....F...|
|00000170| 3b 1c 45 01 03 00 c9 47 | 8c 03 00 00 b1 69 00 00 |;.E....G|.....i..|
|00000180| 82 4f 70 74 69 6f 6e 73 | 00 00 00 00 1a 00 00 00 |.Options|........|
|00000190| 46 fd ff ff 3f 1c 45 01 | 03 00 54 c7 1a 00 00 00 |F...?.E.|..T.....|
|000001a0| 61 6d 00 00 82 53 70 72 | 69 74 65 73 00 00 00 00 |am...Spr|ites....|
|000001b0| 4c 02 00 00 46 f9 ff ff | 43 1c 45 01 03 00 0e 41 |L...F...|C.E....A|
|000001c0| 4c 02 00 00 9f 6d 00 00 | 82 53 70 72 69 74 65 73 |L....m..|.Sprites|
|000001d0| 32 32 00 00 4c 04 00 00 | 46 f9 ff ff 47 1c 45 01 |22..L...|F...G.E.|
|000001e0| 03 00 56 0a 4c 04 00 00 | 0f 70 00 00 82 54 65 6d |..V.L...|.p...Tem|
|000001f0| 70 6c 61 74 65 73 00 00 | fc 13 00 00 46 ec ff ff |plates..|....F...|
|00000200| 4f 1c 45 01 03 00 b8 5d | fc 13 00 00 7f 74 00 00 |O.E....]|.....t..|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 18 20 04 00 00 30 05 02 | 38 0d 00 03 30 32 31 00 |. ...0..|8...021.|
|00000230| af 65 31 2d 00 00 00 00 | 00 00 00 00 00 00 00 00 |.e1-....|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 00 00 00 00 00 | 3e 00 00 00 46 eb ff ff |ot......|>...F...|
|00000370| 24 1c 45 01 03 00 12 dd | 53 65 74 20 4e 75 6d 65 |$.E.....|Set Nume|
|00000380| 72 69 63 24 44 69 72 20 | 3c 4f 62 65 79 24 44 69 |ric$Dir |<Obey$Di|
|00000390| 72 3e 0a 49 63 6f 6e 53 | 70 72 69 74 65 73 20 3c |r>.IconS|prites <|
|000003a0| 4e 75 6d 65 72 69 63 24 | 44 69 72 3e 2e 21 53 70 |Numeric$|Dir>.!Sp|
|000003b0| 72 69 74 65 73 0a 46 69 | 6c 65 44 61 74 61 82 21 |rites.Fi|leData.!|
|000003c0| 48 65 6c 70 00 00 00 00 | 00 00 7d 25 00 00 46 fd |Help....|..}%..F.|
|000003d0| ff ff a3 5d 76 27 03 00 | f9 b7 2d 2d 2d 2d 2d 2d |...]v'..|..------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |----. | |
|00000430| 20 20 20 20 20 21 4e 75 | 6d 65 72 69 63 20 28 76 | !Nu|meric (v|
|00000440| 31 2e 30 33 29 20 20 2d | 2d 20 20 a9 20 47 72 61 |1.03) -|- . Gra|
|00000450| 68 61 6d 20 48 69 63 6b | 2c 20 31 39 39 35 0a 2d |ham Hick|, 1995.-|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 0a 3d 3d 3d 20 31 |--------|-..=== 1|
|000004b0| 2e 20 49 6e 74 72 6f 64 | 75 63 74 69 6f 6e 20 3d |. Introd|uction =|
|000004c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004f0| 3d 3d 3d 3d 3d 0a 0a 54 | 68 69 73 20 70 72 6f 67 |=====..T|his prog|
|00000500| 72 61 6d 20 69 73 20 61 | 20 63 6f 6d 62 69 6e 61 |ram is a| combina|
|00000510| 74 69 6f 6e 20 6f 66 20 | 6d 79 20 70 72 65 76 69 |tion of |my previ|
|00000520| 6f 75 73 20 70 72 6f 67 | 72 61 6d 73 20 21 49 6e |ous prog|rams !In|
|00000530| 74 65 67 72 61 74 65 20 | 28 76 31 2e 30 33 29 0a |tegrate |(v1.03).|
|00000540| 61 6e 64 20 21 44 69 66 | 66 20 28 76 31 2e 30 31 |and !Dif|f (v1.01|
|00000550| 29 2c 20 77 68 69 63 68 | 2c 20 61 73 20 79 6f 75 |), which|, as you|
|00000560| 20 6d 69 67 68 74 20 65 | 78 70 65 63 74 2c 20 61 | might e|xpect, a|
|00000570| 6c 6c 6f 77 20 79 6f 75 | 20 74 6f 20 63 61 6c 63 |llow you| to calc|
|00000580| 75 6c 61 74 65 0a 69 6e | 74 65 67 72 61 6c 73 20 |ulate.in|tegrals |
|00000590| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 20 6f 6e 20 |of funct|ions on |
|000005a0| 62 6f 75 6e 64 65 64 20 | 69 6e 74 65 72 76 61 6c |bounded |interval|
|000005b0| 73 2c 20 61 6e 64 20 61 | 6c 73 6f 20 64 65 72 69 |s, and a|lso deri|
|000005c0| 76 61 74 69 76 65 73 20 | 6f 66 0a 66 75 6e 63 74 |vatives |of.funct|
|000005d0| 69 6f 6e 73 2c 20 61 74 | 20 61 20 70 6f 69 6e 74 |ions, at| a point|
|000005e0| 2e 20 49 74 20 61 6c 73 | 6f 20 63 6f 6e 74 61 69 |. It als|o contai|
|000005f0| 6e 73 20 6d 6f 64 75 6c | 65 73 20 66 6f 72 20 73 |ns modul|es for s|
|00000600| 6f 6c 75 74 69 6f 6e 20 | 6f 66 20 65 71 75 61 74 |olution |of equat|
|00000610| 69 6f 6e 73 0a 28 4e 65 | 77 74 6f 6e 2d 52 61 70 |ions.(Ne|wton-Rap|
|00000620| 68 73 6f 6e 20 6d 65 74 | 68 6f 64 29 20 61 6e 64 |hson met|hod) and|
|00000630| 20 73 75 6d 6d 61 74 69 | 6f 6e 20 6f 66 20 73 65 | summati|on of se|
|00000640| 72 69 65 73 2e 0a 0a 54 | 6f 20 75 73 65 20 74 68 |ries...T|o use th|
|00000650| 65 20 70 72 6f 67 72 61 | 6d 2c 20 63 6c 69 63 6b |e progra|m, click|
|00000660| 20 4d 65 6e 75 20 6f 6e | 20 74 68 65 20 69 63 6f | Menu on| the ico|
|00000670| 6e 2d 62 61 72 20 69 63 | 6f 6e 2c 20 61 6e 64 20 |n-bar ic|on, and |
|00000680| 73 65 6c 65 63 74 20 74 | 68 65 20 70 61 72 74 0a |select t|he part.|
|00000690| 6f 66 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 79 |of the p|rogram y|
|000006a0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 75 73 65 2e 20 |ou want |to use. |
|000006b0| 54 79 70 65 20 74 68 65 | 20 66 75 6e 63 74 69 6f |Type the| functio|
|000006c0| 6e 20 61 6e 64 20 72 65 | 6c 65 76 61 6e 74 20 76 |n and re|levant v|
|000006d0| 61 6c 75 65 28 73 29 0a | 69 6e 74 6f 20 74 68 65 |alue(s).|into the|
|000006e0| 20 62 6f 78 65 73 2c 20 | 61 6e 64 20 74 68 65 6e | boxes, |and then|
|000006f0| 20 63 6c 69 63 6b 20 6f | 6e 20 74 68 65 20 22 43 | click o|n the "C|
|00000700| 61 6c 63 75 6c 61 74 65 | 22 20 62 75 74 74 6f 6e |alculate|" button|
|00000710| 20 28 6f 72 20 70 72 65 | 73 73 20 45 6e 74 65 72 | (or pre|ss Enter|
|00000720| 0a 77 68 65 6e 20 69 6e | 20 74 68 65 20 6c 61 73 |.when in| the las|
|00000730| 74 20 77 72 69 74 61 62 | 6c 65 20 69 63 6f 6e 29 |t writab|le icon)|
|00000740| 20 74 6f 20 64 6f 20 74 | 68 65 20 63 61 6c 63 75 | to do t|he calcu|
|00000750| 6c 61 74 69 6f 6e 2e 20 | 41 6c 6c 20 61 6e 73 77 |lation. |All answ|
|00000760| 65 72 73 20 61 72 65 0a | 67 69 76 65 6e 20 74 6f |ers are.|given to|
|00000770| 20 35 20 73 69 67 6e 69 | 66 69 63 61 6e 74 20 66 | 5 signi|ficant f|
|00000780| 69 67 75 72 65 73 2e 0a | 0a 0a 3d 3d 3d 20 32 2e |igures..|..=== 2.|
|00000790| 20 45 78 70 72 65 73 73 | 69 6f 6e 20 73 79 6e 74 | Express|ion synt|
|000007a0| 61 78 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ax =====|========|
|000007b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007d0| 3d 3d 3d 3d 0a 0a 42 65 | 63 61 75 73 65 20 74 68 |====..Be|cause th|
|000007e0| 65 20 70 72 6f 67 72 61 | 6d 20 75 73 65 73 20 42 |e progra|m uses B|
|000007f0| 41 53 49 43 73 20 45 56 | 41 4c 20 66 75 6e 63 74 |ASICs EV|AL funct|
|00000800| 69 6f 6e 2c 20 74 68 65 | 20 66 75 6e 63 74 69 6f |ion, the| functio|
|00000810| 6e 20 61 6e 64 20 76 61 | 6c 75 65 73 0a 6d 75 73 |n and va|lues.mus|
|00000820| 74 20 62 65 20 69 6e 20 | 61 20 66 6f 72 6d 20 74 |t be in |a form t|
|00000830| 68 61 74 20 42 41 53 49 | 43 20 63 61 6e 20 75 6e |hat BASI|C can un|
|00000840| 64 65 72 73 74 61 6e 64 | 2c 20 65 2e 67 2e 0a 0a |derstand|, e.g...|
|00000850| 09 09 09 20 20 20 20 20 | 20 33 2a 78 20 72 61 74 |... | 3*x rat|
|00000860| 68 65 72 20 74 68 61 6e | 20 33 78 0a 09 09 09 31 |her than| 3x....1|
|00000870| 2f 28 63 6f 73 20 78 29 | 20 72 61 74 68 65 72 20 |/(cos x)| rather |
|00000880| 74 68 61 6e 20 73 65 63 | 20 78 0a 09 09 09 28 73 |than sec| x....(s|
|00000890| 69 6e 20 78 29 5e 32 20 | 72 61 74 68 65 72 20 74 |in x)^2 |rather t|
|000008a0| 68 61 6e 20 73 69 6e b2 | 78 0a 0a 55 70 70 65 72 |han sin.|x..Upper|
|000008b0| 20 6f 72 20 6c 6f 77 65 | 72 20 63 61 73 65 20 63 | or lowe|r case c|
|000008c0| 61 6e 20 62 65 20 75 73 | 65 64 20 74 68 72 6f 75 |an be us|ed throu|
|000008d0| 67 68 6f 75 74 2e 20 54 | 68 65 20 63 6f 6e 73 74 |ghout. T|he const|
|000008e0| 61 6e 74 73 20 27 50 69 | 27 20 61 6e 64 20 27 65 |ants 'Pi|' and 'e|
|000008f0| 27 20 63 61 6e 0a 62 65 | 20 75 73 65 64 20 69 6e |' can.be| used in|
|00000900| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 6f 72 | the fun|ction or|
|00000910| 20 76 61 6c 75 65 73 20 | 2d 20 6a 75 73 74 20 74 | values |- just t|
|00000920| 79 70 65 20 27 70 69 27 | 20 6f 72 20 27 65 27 20 |ype 'pi'| or 'e' |
|00000930| 72 65 73 70 65 63 74 69 | 76 65 6c 79 2e 0a 41 6c |respecti|vely..Al|
|00000940| 73 6f 2c 20 66 61 63 74 | 6f 72 69 61 6c 73 20 63 |so, fact|orials c|
|00000950| 61 6e 20 62 65 20 63 61 | 6c 63 75 6c 61 74 65 64 |an be ca|lculated|
|00000960| 2c 20 62 79 20 74 79 70 | 69 6e 67 20 27 46 4e 66 |, by typ|ing 'FNf|
|00000970| 61 63 74 28 6e 29 27 20 | 66 6f 72 20 6e 21 2e 20 |act(n)' |for n!. |
|00000980| 0a 0a 0a 3d 3d 3d 20 33 | 2e 20 4e 6f 74 65 73 20 |...=== 3|. Notes |
|00000990| 6f 6e 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 20 3d |on calcu|lation =|
|000009a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0a 0a 33 |========|=====..3|
|000009d0| 2e 31 20 49 6e 74 65 67 | 72 61 74 69 6f 6e 0a 0a |.1 Integ|ration..|
|000009e0| 20 20 20 20 4e 75 6d 65 | 72 69 63 61 6c 20 69 6e | Nume|rical in|
|000009f0| 74 65 67 72 61 74 69 6f | 6e 20 69 73 20 70 65 72 |tegratio|n is per|
|00000a00| 66 6f 72 6d 65 64 20 75 | 73 69 6e 67 20 22 53 69 |formed u|sing "Si|
|00000a10| 6d 70 73 6f 6e 27 73 20 | 52 75 6c 65 22 2e 20 54 |mpson's |Rule". T|
|00000a20| 68 65 20 6e 75 6d 62 65 | 72 0a 20 20 20 20 6f 66 |he numbe|r. of|
|00000a30| 20 73 74 72 69 70 73 20 | 75 73 65 64 20 69 73 20 | strips |used is |
|00000a40| 67 69 76 65 6e 20 69 6e | 20 74 68 65 20 6f 70 74 |given in| the opt|
|00000a50| 69 6f 6e 73 20 77 69 6e | 64 6f 77 20 28 73 65 65 |ions win|dow (see|
|00000a60| 20 6c 61 74 65 72 29 2e | 20 52 65 6d 65 6d 62 65 | later).| Remembe|
|00000a70| 72 0a 20 20 20 20 74 68 | 61 74 20 69 66 20 79 6f |r. th|at if yo|
|00000a80| 75 20 77 61 6e 74 20 73 | 6f 6d 65 74 68 69 6e 67 |u want s|omething|
|00000a90| 20 73 65 6e 73 69 62 6c | 65 20 74 6f 20 68 61 70 | sensibl|e to hap|
|00000aa0| 70 65 6e 2c 20 6d 61 6b | 65 20 73 75 72 65 20 79 |pen, mak|e sure y|
|00000ab0| 6f 75 72 20 66 75 6e 63 | 74 69 6f 6e 0a 20 20 20 |our func|tion. |
|00000ac0| 20 69 73 20 69 6e 74 65 | 67 72 61 62 6c 65 2e 20 | is inte|grable. |
|00000ad0| 49 66 20 79 6f 75 20 74 | 72 79 20 61 6e 64 20 69 |If you t|ry and i|
|00000ae0| 6e 74 65 67 72 61 74 65 | 20 31 2f 78 20 66 72 6f |ntegrate| 1/x fro|
|00000af0| 6d 20 2d 31 20 74 6f 20 | 31 2c 20 79 6f 75 27 72 |m -1 to |1, you'r|
|00000b00| 65 0a 20 20 20 20 61 73 | 6b 69 6e 67 20 66 6f 72 |e. as|king for|
|00000b10| 20 74 72 6f 75 62 6c 65 | 2e 20 54 72 61 70 70 69 | trouble|. Trappi|
|00000b20| 6e 67 20 74 68 69 73 20 | 6b 69 6e 64 20 6f 66 20 |ng this |kind of |
|00000b30| 74 68 69 6e 67 20 69 73 | 20 69 6e 68 65 72 65 6e |thing is| inheren|
|00000b40| 74 6c 79 20 76 65 72 79 | 0a 20 20 20 20 64 69 66 |tly very|. dif|
|00000b50| 66 69 63 75 6c 74 20 69 | 6e 20 61 20 6e 75 6d 65 |ficult i|n a nume|
|00000b60| 72 69 63 61 6c 20 73 79 | 73 74 65 6d 2c 20 73 69 |rical sy|stem, si|
|00000b70| 6e 63 65 20 69 74 27 73 | 20 6e 6f 74 20 70 6f 73 |nce it's| not pos|
|00000b80| 73 69 62 6c 65 20 74 6f | 20 73 61 6d 70 6c 65 0a |sible to| sample.|
|00000b90| 20 20 20 20 65 76 65 72 | 79 20 70 6f 69 6e 74 20 | ever|y point |
|00000ba0| 69 6e 20 74 68 65 20 64 | 6f 6d 61 69 6e 2e 20 49 |in the d|omain. I|
|00000bb0| 66 20 73 6f 6d 65 20 73 | 6f 72 74 20 6f 66 20 73 |f some s|ort of s|
|00000bc0| 69 6e 67 75 6c 61 72 69 | 74 79 20 68 61 70 70 65 |ingulari|ty happe|
|00000bd0| 6e 73 2c 20 74 68 65 0a | 20 20 20 20 70 72 6f 67 |ns, the.| prog|
|00000be0| 72 61 6d 20 6d 61 79 20 | 6f 72 20 6d 61 79 20 6e |ram may |or may n|
|00000bf0| 6f 74 20 66 69 6e 64 20 | 69 74 2c 20 64 65 70 65 |ot find |it, depe|
|00000c00| 6e 64 69 6e 67 20 6f 6e | 20 65 78 61 63 74 6c 79 |nding on| exactly|
|00000c10| 20 77 68 65 72 65 20 74 | 68 65 20 73 61 6d 70 6c | where t|he sampl|
|00000c20| 65 0a 20 20 20 20 70 6f | 69 6e 74 73 20 66 61 6c |e. po|ints fal|
|00000c30| 6c 2e 20 54 72 79 20 69 | 6e 74 65 67 72 61 74 69 |l. Try i|ntegrati|
|00000c40| 6e 67 20 31 2f 78 20 66 | 72 6f 6d 20 2d 31 20 74 |ng 1/x f|rom -1 t|
|00000c50| 6f 20 31 2e 30 30 31 2c | 20 61 6e 64 20 79 6f 75 |o 1.001,| and you|
|00000c60| 20 73 68 6f 75 6c 64 20 | 73 65 65 0a 20 20 20 20 | should |see. |
|00000c70| 77 68 61 74 20 49 20 6d | 65 61 6e 2e 0a 0a 33 2e |what I m|ean...3.|
|00000c80| 32 20 44 69 66 66 65 72 | 65 6e 74 69 61 74 69 6f |2 Differ|entiatio|
|00000c90| 6e 0a 0a 20 20 20 20 54 | 68 65 20 64 65 72 69 76 |n.. T|he deriv|
|00000ca0| 61 74 69 76 65 20 61 74 | 20 61 20 70 6f 69 6e 74 |ative at| a point|
|00000cb0| 20 69 73 20 66 6f 75 6e | 64 20 62 79 20 63 61 6c | is foun|d by cal|
|00000cc0| 63 75 6c 61 74 69 6e 67 | 20 74 68 65 20 73 6c 6f |culating| the slo|
|00000cd0| 70 65 20 6f 66 20 63 6c | 6f 73 65 72 0a 20 20 20 |pe of cl|oser. |
|00000ce0| 20 61 6e 64 20 63 6c 6f | 73 65 72 20 69 6e 74 65 | and clo|ser inte|
|00000cf0| 72 70 6f 6c 61 74 69 6f | 6e 20 6c 69 6e 65 73 2e |rpolatio|n lines.|
|00000d00| 20 49 74 20 69 73 20 6e | 6f 77 20 70 72 65 74 74 | It is n|ow prett|
|00000d10| 79 20 72 6f 62 75 73 74 | 2c 20 61 6e 64 0a 20 20 |y robust|, and. |
|00000d20| 20 20 70 61 74 68 6f 6c | 6f 67 69 63 61 6c 20 74 | pathol|ogical t|
|00000d30| 68 69 6e 67 73 20 6c 69 | 6b 65 20 74 68 65 20 70 |hings li|ke the p|
|00000d40| 65 72 65 6e 6e 69 61 6c | 20 66 61 76 6f 75 72 69 |erennial| favouri|
|00000d50| 74 65 20 73 69 6e 28 31 | 2f 78 29 20 73 68 6f 75 |te sin(1|/x) shou|
|00000d60| 6c 64 0a 20 20 20 20 61 | 6c 77 61 79 73 20 62 65 |ld. a|lways be|
|00000d70| 20 68 61 6e 64 6c 65 64 | 20 63 6f 72 72 65 63 74 | handled| correct|
|00000d80| 6c 79 2e 20 49 66 20 22 | 2d 2d 22 20 69 73 20 67 |ly. If "|--" is g|
|00000d90| 69 76 65 6e 20 61 73 20 | 74 68 65 20 61 6e 73 77 |iven as |the answ|
|00000da0| 65 72 2c 20 74 68 65 0a | 20 20 20 20 64 65 72 69 |er, the.| deri|
|00000db0| 76 61 74 69 76 65 20 64 | 6f 65 73 6e 27 74 20 65 |vative d|oesn't e|
|00000dc0| 78 69 73 74 20 2d 20 66 | 6f 72 20 65 78 61 6d 70 |xist - f|or examp|
|00000dd0| 6c 65 20 66 27 28 30 29 | 20 77 68 65 72 65 20 66 |le f'(0)| where f|
|00000de0| 28 78 29 a0 3d a0 61 62 | 73 28 78 29 2e 0a 0a 33 |(x).=.ab|s(x)...3|
|00000df0| 2e 33 20 53 75 6d 6d 61 | 74 69 6f 6e 0a 0a 20 20 |.3 Summa|tion.. |
|00000e00| 20 20 54 68 65 20 73 75 | 6d 20 69 73 20 63 61 6c | The su|m is cal|
|00000e10| 75 6c 61 74 65 64 20 68 | 6f 77 20 79 6f 75 20 6d |ulated h|ow you m|
|00000e20| 69 67 68 74 20 65 78 70 | 65 63 74 20 2d 20 62 79 |ight exp|ect - by|
|00000e30| 20 61 64 64 69 6e 67 20 | 75 70 20 61 6c 6c 20 74 | adding |up all t|
|00000e40| 68 65 0a 20 20 20 20 74 | 65 72 6d 73 2e 20 59 6f |he. t|erms. Yo|
|00000e50| 75 20 63 61 6e 20 70 75 | 74 20 22 69 6e 66 22 20 |u can pu|t "inf" |
|00000e60| 61 73 20 74 68 65 20 75 | 70 70 65 72 20 6c 69 6d |as the u|pper lim|
|00000e70| 69 74 2c 20 74 6f 20 63 | 61 6c 63 75 6c 61 74 65 |it, to c|alculate|
|00000e80| 20 61 6e 20 69 6e 66 69 | 6e 69 74 65 0a 20 20 20 | an infi|nite. |
|00000e90| 20 73 75 6d 2e 20 41 73 | 20 77 69 74 68 20 64 69 | sum. As| with di|
|00000ea0| 66 66 65 72 65 6e 74 69 | 61 74 69 6f 6e 2c 20 69 |fferenti|ation, i|
|00000eb0| 66 20 22 2d 22 20 69 73 | 20 67 69 76 65 6e 20 61 |f "-" is| given a|
|00000ec0| 73 20 74 68 65 20 61 6e | 73 77 65 72 2c 20 74 68 |s the an|swer, th|
|00000ed0| 65 20 73 75 6d 0a 20 20 | 20 20 64 6f 65 73 20 6e |e sum. | does n|
|00000ee0| 6f 74 20 63 6f 6e 76 65 | 72 67 65 2e 20 4e 6f 74 |ot conve|rge. Not|
|00000ef0| 65 20 74 68 65 20 66 61 | 63 74 6f 72 69 61 6c 20 |e the fa|ctorial |
|00000f00| 66 75 6e 63 74 69 6f 6e | 20 64 65 73 63 72 69 62 |function| describ|
|00000f10| 65 64 20 69 6e 20 73 65 | 63 74 69 6f 6e 20 31 2e |ed in se|ction 1.|
|00000f20| 0a 0a 33 2e 34 20 53 6f | 6c 75 74 69 6f 6e 0a 0a |..3.4 So|lution..|
|00000f30| 20 20 20 20 47 69 76 65 | 6e 20 61 6e 20 69 6e 69 | Give|n an ini|
|00000f40| 74 69 61 6c 20 22 67 75 | 65 73 73 22 20 74 68 65 |tial "gu|ess" the|
|00000f50| 20 69 74 65 72 61 74 69 | 76 65 20 4e 65 77 74 6f | iterati|ve Newto|
|00000f60| 6e 2d 52 61 70 68 73 6f | 6e 20 6d 65 74 68 6f 64 |n-Raphso|n method|
|00000f70| 20 69 73 20 6f 6e 65 20 | 6f 66 0a 20 20 20 20 74 | is one |of. t|
|00000f80| 68 65 20 62 65 73 74 20 | 77 61 79 73 20 6f 66 20 |he best |ways of |
|00000f90| 66 69 6e 64 69 6e 67 20 | 61 20 73 6f 6c 75 74 69 |finding |a soluti|
|00000fa0| 6f 6e 20 74 6f 20 61 6e | 20 65 71 75 61 74 69 6f |on to an| equatio|
|00000fb0| 6e 20 6f 66 20 74 68 65 | 20 66 6f 72 6d 0a 20 20 |n of the| form. |
|00000fc0| 20 20 66 28 78 29 a0 3d | a0 30 2e 20 46 6f 72 20 | f(x).=|.0. For |
|00000fd0| 69 6e 73 74 61 6e 63 65 | 2c 20 74 6f 20 66 69 6e |instance|, to fin|
|00000fe0| 64 20 74 68 65 20 63 75 | 62 65 20 72 6f 6f 74 20 |d the cu|be root |
|00000ff0| 6f 66 20 37 2c 20 67 69 | 76 65 20 66 28 78 29 20 |of 7, gi|ve f(x) |
|00001000| 61 73 0a 20 20 20 20 78 | 5e 33 a0 2d a0 37 2e 20 |as. x|^3.-.7. |
|00001010| 4e 6f 74 65 20 74 68 61 | 74 20 6f 6e 6c 79 20 72 |Note tha|t only r|
|00001020| 65 61 6c 20 73 6f 6c 75 | 74 69 6f 6e 73 20 61 72 |eal solu|tions ar|
|00001030| 65 20 66 6f 75 6e 64 20 | 2d 20 61 6e 64 20 79 6f |e found |- and yo|
|00001040| 75 20 64 6f 6e 27 74 0a | 20 20 20 20 61 6c 77 61 |u don't.| alwa|
|00001050| 79 73 20 67 65 74 20 61 | 6e 20 61 6e 73 77 65 72 |ys get a|n answer|
|00001060| 20 77 68 65 6e 20 66 28 | 78 29 a0 3e a0 30 20 61 | when f(|x).>.0 a|
|00001070| 72 6f 75 6e 64 20 74 68 | 65 20 65 78 70 65 63 74 |round th|e expect|
|00001080| 65 64 20 72 6f 6f 74 20 | 28 66 6f 72 0a 20 20 20 |ed root |(for. |
|00001090| 20 65 78 61 6d 70 6c 65 | 2c 20 74 72 79 20 66 28 | example|, try f(|
|000010a0| 78 29 a0 3d a0 78 5e 32 | 29 2e 0a 0a 0a 3d 3d 3d |x).=.x^2|)....===|
|000010b0| 20 34 2e 20 4f 70 74 69 | 6f 6e 73 20 3d 3d 3d 3d | 4. Opti|ons ====|
|000010c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010f0| 3d 3d 3d 3d 3d 3d 3d 0a | 0a 54 68 65 20 4f 70 74 |=======.|.The Opt|
|00001100| 69 6f 6e 73 20 77 69 6e | 64 6f 77 20 61 6c 6c 6f |ions win|dow allo|
|00001110| 77 73 20 79 6f 75 20 74 | 6f 20 63 75 73 74 6f 6d |ws you t|o custom|
|00001120| 69 7a 65 20 73 6f 6d 65 | 20 6f 66 20 74 68 65 20 |ize some| of the |
|00001130| 66 65 61 74 75 72 65 73 | 20 6f 66 20 74 68 65 0a |features| of the.|
|00001140| 70 72 6f 67 72 61 6d 3a | 0a 0a 34 2e 31 20 49 6e |program:|..4.1 In|
|00001150| 69 74 69 61 6c 20 57 69 | 6e 64 6f 77 73 0a 0a 20 |itial Wi|ndows.. |
|00001160| 20 20 20 46 69 72 73 74 | 6c 79 2c 20 74 68 65 20 | First|ly, the |
|00001170| 77 69 6e 64 6f 77 73 20 | 74 6f 20 62 65 20 6f 70 |windows |to be op|
|00001180| 65 6e 65 64 20 6f 6e 20 | 73 74 61 72 74 75 70 20 |ened on |startup |
|00001190| 63 61 6e 20 62 65 20 73 | 65 6c 65 63 74 65 64 20 |can be s|elected |
|000011a0| 69 6e 20 74 68 65 0a 20 | 20 20 20 74 6f 70 20 73 |in the. | top s|
|000011b0| 65 63 74 69 6f 6e 20 6f | 66 20 74 68 65 20 77 69 |ection o|f the wi|
|000011c0| 6e 64 6f 77 2e 0a 0a 34 | 2e 32 20 41 63 63 75 72 |ndow...4|.2 Accur|
|000011d0| 61 63 79 20 73 65 74 74 | 69 6e 67 73 0a 0a 20 20 |acy sett|ings.. |
|000011e0| 20 20 4d 6f 72 65 20 75 | 73 65 66 75 6c 6c 79 2c | More u|sefully,|
|000011f0| 20 70 65 72 68 61 70 73 | 2c 20 79 6f 75 20 63 61 | perhaps|, you ca|
|00001200| 6e 20 73 65 74 20 76 61 | 72 69 6f 75 73 20 74 68 |n set va|rious th|
|00001210| 72 65 73 68 6f 6c 64 20 | 76 61 6c 75 65 73 20 75 |reshold |values u|
|00001220| 73 65 64 20 69 6e 0a 20 | 20 20 20 76 61 72 69 6f |sed in. | vario|
|00001230| 75 73 20 62 69 74 73 20 | 6f 66 20 74 68 65 20 70 |us bits |of the p|
|00001240| 72 6f 67 72 61 6d 3a 0a | 0a 20 20 20 20 34 2e 32 |rogram:.|. 4.2|
|00001250| 2e 31 20 22 53 6e 61 70 | 20 74 6f 20 7a 65 72 6f |.1 "Snap| to zero|
|00001260| 22 20 65 78 70 6f 6e 65 | 6e 74 0a 0a 20 20 20 20 |" expone|nt.. |
|00001270| 20 20 20 20 54 68 69 73 | 20 6e 75 6d 62 65 72 20 | This| number |
|00001280| 72 65 70 72 65 73 65 6e | 74 73 20 74 68 65 20 73 |represen|ts the s|
|00001290| 6d 61 6c 6c 65 73 74 20 | 6e 75 6d 62 65 72 20 6e |mallest |number n|
|000012a0| 6f 74 20 74 6f 20 62 65 | 20 70 75 6c 6c 65 64 20 |ot to be| pulled |
|000012b0| 74 6f 0a 20 20 20 20 20 | 20 20 20 7a 65 72 6f 2e |to. | zero.|
|000012c0| 20 42 65 63 61 75 73 65 | 20 6f 66 20 74 68 65 20 | Because| of the |
|000012d0| 77 61 79 20 66 6c 6f 61 | 74 69 6e 67 20 70 6f 69 |way floa|ting poi|
|000012e0| 6e 74 20 77 6f 72 6b 73 | 2c 20 79 6f 75 20 73 6f |nt works|, you so|
|000012f0| 6d 65 74 69 6d 65 73 20 | 66 69 6e 64 0a 20 20 20 |metimes |find. |
|00001300| 20 20 20 20 20 28 61 6c | 74 68 6f 75 67 68 20 6e | (al|though n|
|00001310| 6f 74 20 73 6f 20 6d 75 | 63 68 20 77 69 74 68 20 |ot so mu|ch with |
|00001320| 42 41 53 49 43 36 34 29 | 20 74 68 61 74 20 61 6e |BASIC64)| that an|
|00001330| 20 65 78 70 65 63 74 65 | 64 20 61 6e 73 77 65 72 | expecte|d answer|
|00001340| 20 6f 66 0a 20 20 20 20 | 20 20 20 20 7a 65 72 6f | of. | zero|
|00001350| 20 77 69 6c 6c 20 61 63 | 74 75 61 6c 6c 79 20 63 | will ac|tually c|
|00001360| 6f 6d 65 20 6f 75 74 20 | 61 73 20 73 6f 6d 65 74 |ome out |as somet|
|00001370| 68 69 6e 67 20 6c 69 6b | 65 20 31 2e 32 37 45 2d |hing lik|e 1.27E-|
|00001380| 39 2c 20 77 68 69 63 68 | 20 79 6f 75 0a 20 20 20 |9, which| you. |
|00001390| 20 20 20 20 20 64 6f 6e | 27 74 20 77 61 6e 74 2e | don|'t want.|
|000013a0| 20 54 68 65 20 64 65 66 | 61 75 6c 74 20 76 61 6c | The def|ault val|
|000013b0| 75 65 20 6f 66 20 74 68 | 69 73 20 70 61 72 61 6d |ue of th|is param|
|000013c0| 65 74 65 72 20 69 73 20 | 2d 38 2c 20 6d 65 61 6e |eter is |-8, mean|
|000013d0| 69 6e 67 0a 20 20 20 20 | 20 20 20 20 74 68 61 74 |ing. | that|
|000013e0| 20 61 6e 79 74 68 69 6e | 67 20 77 69 74 68 20 61 | anythin|g with a|
|000013f0| 62 73 6f 6c 75 74 65 20 | 76 61 6c 75 65 20 6c 65 |bsolute |value le|
|00001400| 73 73 20 74 68 61 6e 20 | 31 45 2d 38 20 77 69 6c |ss than |1E-8 wil|
|00001410| 6c 20 62 65 20 73 68 6f | 77 6e 20 61 73 0a 20 20 |l be sho|wn as. |
|00001420| 20 20 20 20 20 20 7a 65 | 72 6f 2e 0a 0a 20 20 20 | ze|ro... |
|00001430| 20 34 2e 32 2e 32 20 49 | 6e 74 65 67 72 61 74 69 | 4.2.2 I|ntegrati|
|00001440| 6f 6e 20 73 74 72 69 70 | 73 0a 0a 20 20 20 20 20 |on strip|s.. |
|00001450| 20 20 20 54 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | The n|umber of|
|00001460| 20 73 74 72 69 70 73 20 | 74 6f 20 75 73 65 20 77 | strips |to use w|
|00001470| 68 65 6e 20 61 70 70 6c | 79 69 6e 67 20 53 69 6d |hen appl|ying Sim|
|00001480| 70 73 6f 6e 27 73 20 52 | 75 6c 65 20 74 6f 20 66 |pson's R|ule to f|
|00001490| 69 6e 64 0a 20 20 20 20 | 20 20 20 20 61 6e 20 69 |ind. | an i|
|000014a0| 6e 74 65 67 72 61 6c 2e | 20 54 68 65 20 64 65 66 |ntegral.| The def|
|000014b0| 61 75 6c 74 20 69 73 20 | 31 30 30 2e 0a 0a 20 20 |ault is |100... |
|000014c0| 20 20 34 2e 32 2e 33 20 | 44 65 72 69 76 61 74 69 | 4.2.3 |Derivati|
|000014d0| 76 65 20 63 6f 6e 76 65 | 72 67 65 6e 63 65 20 65 |ve conve|rgence e|
|000014e0| 78 70 6f 6e 65 6e 74 0a | 0a 20 20 20 20 20 20 20 |xponent.|. |
|000014f0| 20 57 68 65 6e 20 63 61 | 6c 63 75 6c 61 74 69 6e | When ca|lculatin|
|00001500| 67 20 61 20 64 65 72 69 | 76 61 74 69 76 65 2c 20 |g a deri|vative, |
|00001510| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 73 74 6f 70 |the prog|ram stop|
|00001520| 73 20 77 68 65 6e 20 74 | 77 6f 0a 20 20 20 20 20 |s when t|wo. |
|00001530| 20 20 20 73 75 63 63 65 | 73 73 69 76 65 20 61 70 | succe|ssive ap|
|00001540| 70 72 6f 78 69 6d 61 74 | 69 6f 6e 73 20 63 6f 6d |proximat|ions com|
|00001550| 65 20 77 69 74 68 69 6e | 20 61 20 63 65 72 74 61 |e within| a certa|
|00001560| 69 6e 20 64 69 73 74 61 | 6e 63 65 20 6f 66 20 65 |in dista|nce of e|
|00001570| 61 63 68 0a 20 20 20 20 | 20 20 20 20 6f 74 68 65 |ach. | othe|
|00001580| 72 2e 20 54 68 65 20 64 | 65 66 61 75 6c 74 20 76 |r. The d|efault v|
|00001590| 61 6c 75 65 20 69 73 20 | 31 45 2d 31 30 20 2d 20 |alue is |1E-10 - |
|000015a0| 69 2e 65 2e 20 65 78 70 | 6f 6e 65 6e 74 20 2d 31 |i.e. exp|onent -1|
|000015b0| 30 2e 0a 0a 20 20 20 20 | 34 2e 32 2e 34 20 53 75 |0... |4.2.4 Su|
|000015c0| 6d 6d 61 74 69 6f 6e 20 | 63 6f 6e 76 65 72 67 65 |mmation |converge|
|000015d0| 6e 63 65 20 65 78 70 6f | 6e 65 6e 74 0a 0a 20 20 |nce expo|nent.. |
|000015e0| 20 20 20 20 20 20 53 69 | 6d 69 6c 61 72 6c 79 2c | Si|milarly,|
|000015f0| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 64 69 73 | this is| the dis|
|00001600| 74 61 6e 63 65 20 74 68 | 61 74 20 74 77 6f 20 73 |tance th|at two s|
|00001610| 75 63 63 65 73 73 69 76 | 65 20 61 70 70 72 6f 78 |uccessiv|e approx|
|00001620| 69 6d 61 74 69 6f 6e 73 | 0a 20 20 20 20 20 20 20 |imations|. |
|00001630| 20 6d 75 73 74 20 63 6f | 6d 65 20 77 69 74 68 69 | must co|me withi|
|00001640| 6e 2c 20 69 6e 20 6f 72 | 64 65 72 20 66 6f 72 20 |n, in or|der for |
|00001650| 61 6e 20 69 6e 66 69 6e | 69 74 65 20 73 75 6d 20 |an infin|ite sum |
|00001660| 63 61 6c 63 75 6c 61 74 | 69 6f 6e 20 74 6f 0a 20 |calculat|ion to. |
|00001670| 20 20 20 20 20 20 20 73 | 74 6f 70 2e 20 54 68 65 | s|top. The|
|00001680| 20 64 65 66 61 75 6c 74 | 20 69 73 20 2d 37 2e 0a | default| is -7..|
|00001690| 0a 20 20 20 20 34 2e 32 | 2e 35 20 53 6f 6c 75 74 |. 4.2|.5 Solut|
|000016a0| 69 6f 6e 20 63 6f 6e 76 | 65 72 67 65 6e 63 65 20 |ion conv|ergence |
|000016b0| 65 78 70 6f 6e 65 6e 74 | 0a 0a 20 20 20 20 20 20 |exponent|.. |
|000016c0| 20 20 46 69 6e 61 6c 6c | 79 2c 20 74 68 65 20 73 | Finall|y, the s|
|000016d0| 61 6d 65 20 74 68 69 6e | 67 20 66 6f 72 20 74 68 |ame thin|g for th|
|000016e0| 65 20 4e 65 77 74 6f 6e | 2d 52 61 70 68 73 6f 6e |e Newton|-Raphson|
|000016f0| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 2e 20 54 68 | calcula|tion. Th|
|00001700| 65 0a 20 20 20 20 20 20 | 20 20 64 65 66 61 75 6c |e. | defaul|
|00001710| 74 20 69 73 20 2d 38 2e | 0a 0a 34 2e 33 20 53 61 |t is -8.|..4.3 Sa|
|00001720| 76 69 6e 67 20 6f 72 20 | 69 67 6e 6f 72 69 6e 67 |ving or |ignoring|
|00001730| 20 74 68 65 20 63 68 61 | 6e 67 65 73 0a 0a 20 20 | the cha|nges.. |
|00001740| 20 20 50 72 65 73 73 20 | 74 68 65 20 43 61 6e 63 | Press |the Canc|
|00001750| 65 6c 20 62 75 74 74 6f | 6e 20 74 6f 20 63 6c 6f |el butto|n to clo|
|00001760| 73 65 20 74 68 65 20 77 | 69 6e 64 6f 77 20 61 6e |se the w|indow an|
|00001770| 64 20 66 6f 72 67 65 74 | 20 61 6e 79 20 63 68 61 |d forget| any cha|
|00001780| 6e 67 65 73 0a 20 20 20 | 20 6d 61 64 65 20 74 6f |nges. | made to|
|00001790| 20 74 68 65 20 73 65 74 | 74 69 6e 67 73 20 73 69 | the set|tings si|
|000017a0| 6e 63 65 20 69 74 20 77 | 61 73 20 6f 70 65 6e 65 |nce it w|as opene|
|000017b0| 64 2e 20 50 72 65 73 73 | 20 74 68 65 20 43 6c 6f |d. Press| the Clo|
|000017c0| 73 65 20 62 75 74 74 6f | 6e 20 74 6f 0a 20 20 20 |se butto|n to. |
|000017d0| 20 75 70 64 61 74 65 20 | 74 68 65 20 73 65 74 74 | update |the sett|
|000017e0| 69 6e 67 73 2c 20 61 6e | 64 20 70 72 65 73 73 20 |ings, an|d press |
|000017f0| 53 61 76 65 20 74 6f 20 | 61 6c 73 6f 20 73 61 76 |Save to |also sav|
|00001800| 65 20 74 68 65 6d 20 74 | 6f 20 64 69 73 63 20 28 |e them t|o disc (|
|00001810| 73 6f 20 74 68 65 79 0a | 20 20 20 20 77 69 6c 6c |so they.| will|
|00001820| 20 62 65 20 6c 6f 61 64 | 65 64 20 6e 65 78 74 20 | be load|ed next |
|00001830| 74 69 6d 65 29 2e 0a 0a | 0a 3d 3d 3d 20 35 2e 20 |time)...|.=== 5. |
|00001840| 4d 69 73 63 20 70 72 6f | 67 72 61 6d 20 6e 6f 74 |Misc pro|gram not|
|00001850| 65 73 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |es =====|========|
|00001860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001880| 3d 3d 3d 0a 0a 35 2e 31 | 20 33 44 20 74 65 6d 70 |===..5.1| 3D temp|
|00001890| 6c 61 74 65 73 0a 0a 20 | 20 20 20 54 68 69 73 20 |lates.. | This |
|000018a0| 72 65 6c 65 61 73 65 20 | 6f 6e 6c 79 20 63 6f 6e |release |only con|
|000018b0| 74 61 69 6e 73 20 33 44 | 2d 73 74 79 6c 65 20 74 |tains 3D|-style t|
|000018c0| 65 6d 70 6c 61 74 65 73 | 2c 20 73 6f 20 69 74 20 |emplates|, so it |
|000018d0| 6f 6e 6c 79 20 77 6f 72 | 6b 73 0a 20 20 20 20 63 |only wor|ks. c|
|000018e0| 6f 6d 70 6c 65 74 65 6c | 79 20 72 69 67 68 74 20 |ompletel|y right |
|000018f0| 69 6e 20 52 49 53 43 20 | 4f 53 20 33 2e 31 30 20 |in RISC |OS 3.10 |
|00001900| 6f 72 20 6c 61 74 65 72 | 2e 20 49 74 20 73 68 6f |or later|. It sho|
|00001910| 75 6c 64 2c 20 68 6f 77 | 65 76 65 72 2c 20 73 74 |uld, how|ever, st|
|00001920| 69 6c 6c 0a 20 20 20 20 | 77 6f 72 6b 20 4f 4b 20 |ill. |work OK |
|00001930| 69 6e 20 52 49 53 43 20 | 4f 53 20 32 2c 20 62 75 |in RISC |OS 2, bu|
|00001940| 74 20 74 68 65 20 77 72 | 69 74 61 62 6c 65 20 69 |t the wr|itable i|
|00001950| 63 6f 6e 73 20 6d 61 79 | 20 6c 6f 6f 6b 20 74 6f |cons may| look to|
|00001960| 6f 20 62 69 67 2e 20 49 | 27 6d 0a 20 20 20 20 73 |o big. I|'m. s|
|00001970| 6f 72 72 79 20 61 62 6f | 75 74 20 74 68 69 73 2c |orry abo|ut this,|
|00001980| 20 62 75 74 20 49 20 66 | 6f 75 6e 64 20 64 65 76 | but I f|ound dev|
|00001990| 65 6c 6f 70 69 6e 67 20 | 74 77 6f 20 73 65 74 73 |eloping |two sets|
|000019a0| 20 6f 66 20 76 69 72 74 | 75 61 6c 6c 79 0a 20 20 | of virt|ually. |
|000019b0| 20 20 69 64 65 6e 74 69 | 63 61 6c 20 74 65 6d 70 | identi|cal temp|
|000019c0| 6c 61 74 65 73 20 74 6f | 6f 20 6d 75 63 68 20 6f |lates to|o much o|
|000019d0| 66 20 61 20 70 61 69 6e | 2e 20 49 66 20 79 6f 75 |f a pain|. If you|
|000019e0| 20 64 6f 6e 27 74 20 6c | 69 6b 65 20 74 68 69 73 | don't l|ike this|
|000019f0| 2c 20 74 68 65 6e 0a 20 | 20 20 20 70 6c 65 61 73 |, then. | pleas|
|00001a00| 65 20 74 65 6c 6c 20 6d | 65 21 0a 0a 35 2e 32 20 |e tell m|e!..5.2 |
|00001a10| 48 69 2d 72 65 73 20 73 | 70 72 69 74 65 73 0a 0a |Hi-res s|prites..|
|00001a20| 20 20 20 20 49 66 20 79 | 6f 75 20 61 72 65 20 69 | If y|ou are i|
|00001a30| 6e 20 61 20 68 69 67 68 | 2d 72 65 73 20 6d 6f 64 |n a high|-res mod|
|00001a40| 65 20 28 69 2e 65 2e 20 | 31 3a 31 20 70 69 78 65 |e (i.e. |1:1 pixe|
|00001a50| 6c 20 61 73 70 65 63 74 | 20 72 61 74 69 6f 29 20 |l aspect| ratio) |
|00001a60| 77 68 65 6e 20 74 68 65 | 0a 20 20 20 20 70 72 6f |when the|. pro|
|00001a70| 67 72 61 6d 20 73 74 61 | 72 74 73 2c 20 69 74 20 |gram sta|rts, it |
|00001a80| 77 69 6c 6c 20 6c 6f 61 | 64 20 68 69 67 68 2d 72 |will loa|d high-r|
|00001a90| 65 73 6f 6c 75 74 69 6f | 6e 20 76 65 72 73 69 6f |esolutio|n versio|
|00001aa0| 6e 73 20 6f 66 20 74 68 | 65 20 73 70 72 69 74 65 |ns of th|e sprite|
|00001ab0| 73 0a 20 20 20 20 77 68 | 69 63 68 20 69 74 20 75 |s. wh|ich it u|
|00001ac0| 73 65 73 2e 20 41 73 20 | 49 20 63 61 6e 27 74 20 |ses. As |I can't |
|00001ad0| 75 73 65 20 61 6c 6c 20 | 73 63 72 65 65 6e 20 6d |use all |screen m|
|00001ae0| 6f 64 65 73 20 28 49 20 | 6f 6e 6c 79 20 68 61 76 |odes (I |only hav|
|00001af0| 65 20 61 20 56 47 41 0a | 20 20 20 20 6d 6f 6e 69 |e a VGA.| moni|
|00001b00| 74 6f 72 29 20 61 6e 64 | 20 49 20 68 61 76 65 6e |tor) and| I haven|
|00001b10| 27 74 20 74 65 73 74 65 | 64 20 69 74 20 77 69 74 |'t teste|d it wit|
|00001b20| 68 20 74 68 69 72 64 2d | 70 61 72 74 79 20 73 63 |h third-|party sc|
|00001b30| 72 65 65 6e 20 6d 6f 64 | 65 73 20 28 73 75 63 68 |reen mod|es (such|
|00001b40| 0a 20 20 20 20 61 73 20 | 74 68 6f 73 65 20 70 72 |. as |those pr|
|00001b50| 6f 76 69 64 65 64 20 62 | 79 20 77 68 69 7a 7a 79 |ovided b|y whizzy|
|00001b60| 20 67 72 61 70 68 69 63 | 73 20 63 61 72 64 73 29 | graphic|s cards)|
|00001b70| 20 49 20 63 61 6e 27 74 | 20 67 75 61 72 61 6e 74 | I can't| guarant|
|00001b80| 65 65 20 74 68 61 74 0a | 20 20 20 20 74 68 69 73 |ee that.| this|
|00001b90| 20 77 6f 72 6b 73 20 77 | 69 74 68 20 79 6f 75 72 | works w|ith your|
|00001ba0| 20 73 65 74 2d 75 70 2e | 20 49 66 20 69 74 20 64 | set-up.| If it d|
|00001bb0| 6f 65 73 6e 27 74 2c 20 | 74 68 65 6e 20 70 6c 65 |oesn't, |then ple|
|00001bc0| 61 73 65 20 6c 65 74 20 | 6d 65 20 6b 6e 6f 77 2c |ase let |me know,|
|00001bd0| 0a 20 20 20 20 61 6e 64 | 20 74 65 6c 6c 20 6d 65 |. and| tell me|
|00001be0| 20 77 68 61 74 20 73 63 | 72 65 65 6e 20 6d 6f 64 | what sc|reen mod|
|00001bf0| 65 28 73 29 20 79 6f 75 | 20 61 72 65 20 75 73 69 |e(s) you| are usi|
|00001c00| 6e 67 2c 20 73 6f 20 49 | 20 63 61 6e 20 66 69 67 |ng, so I| can fig|
|00001c10| 75 72 65 0a 20 20 20 20 | 73 6f 6d 65 74 68 69 6e |ure. |somethin|
|00001c20| 67 20 6f 75 74 2e 0a 0a | 35 2e 33 20 42 41 53 49 |g out...|5.3 BASI|
|00001c30| 43 36 34 0a 0a 20 20 20 | 20 49 66 20 74 68 65 20 |C64.. | If the |
|00001c40| 6f 70 65 72 61 74 69 6e | 67 20 73 79 73 74 65 6d |operatin|g system|
|00001c50| 20 76 65 72 73 69 6f 6e | 20 69 73 20 3e 3d 20 33 | version| is >= 3|
|00001c60| 2c 20 4e 75 6d 65 72 69 | 63 20 77 69 6c 6c 20 61 |, Numeri|c will a|
|00001c70| 74 74 65 6d 70 74 20 74 | 6f 20 75 73 65 0a 20 20 |ttempt t|o use. |
|00001c80| 20 20 42 41 53 49 43 36 | 34 2c 20 77 68 69 63 68 | BASIC6|4, which|
|00001c90| 20 73 68 6f 75 6c 64 20 | 62 65 20 69 6e 20 74 68 | should |be in th|
|00001ca0| 65 20 53 79 73 74 65 6d | 3a 20 70 61 74 68 2e 20 |e System|: path. |
|00001cb0| 54 68 69 73 20 67 69 76 | 65 73 20 66 61 72 20 68 |This giv|es far h|
|00001cc0| 69 67 68 65 72 0a 20 20 | 20 20 61 63 63 75 72 61 |igher. | accura|
|00001cd0| 63 79 20 74 68 61 6e 20 | 74 68 65 20 75 73 75 61 |cy than |the usua|
|00001ce0| 6c 20 42 41 53 49 43 2e | 0a 0a 0a 3d 3d 3d 20 36 |l BASIC.|...=== 6|
|00001cf0| 2e 20 56 65 72 73 69 6f | 6e 20 68 69 73 74 6f 72 |. Versio|n histor|
|00001d00| 79 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |y ======|========|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d30| 3d 3d 3d 3d 3d 0a 0a 31 | 2e 30 30 20 28 44 61 74 |=====..1|.00 (Dat|
|00001d40| 65 20 75 6e 6b 6e 6f 77 | 6e 29 0a 0a 20 20 2a 20 |e unknow|n).. * |
|00001d50| 46 69 72 73 74 20 72 65 | 6c 65 61 73 65 20 76 65 |First re|lease ve|
|00001d60| 72 73 69 6f 6e 2c 20 77 | 69 74 68 20 49 6e 74 65 |rsion, w|ith Inte|
|00001d70| 67 72 61 74 65 20 61 6e | 64 20 44 69 66 66 20 69 |grate an|d Diff i|
|00001d80| 6e 74 65 67 72 61 74 65 | 64 20 28 73 6f 72 72 79 |ntegrate|d (sorry|
|00001d90| 2e 2e 2e 29 0a 20 20 20 | 20 69 6e 74 6f 20 6f 6e |...). | into on|
|00001da0| 65 20 70 61 63 6b 61 67 | 65 2e 0a 0a 31 2e 30 31 |e packag|e...1.01|
|00001db0| 20 28 31 35 20 41 70 72 | 20 31 39 39 34 29 0a 0a | (15 Apr| 1994)..|
|00001dc0| 20 20 2a 20 41 64 64 65 | 64 20 4e 65 77 74 6f 6e | * Adde|d Newton|
|00001dd0| 2d 52 61 70 68 73 6f 6e | 20 73 6f 6c 76 65 72 2c |-Raphson| solver,|
|00001de0| 20 61 6e 64 20 73 75 6d | 6d 61 74 69 6f 6e 2e 0a | and sum|mation..|
|00001df0| 20 20 2a 20 43 68 61 6e | 67 65 64 20 77 69 6e 64 | * Chan|ged wind|
|00001e00| 6f 77 20 6c 61 79 6f 75 | 74 73 20 73 6c 69 67 68 |ow layou|ts sligh|
|00001e10| 74 6c 79 2e 0a 20 20 2a | 20 57 72 6f 74 65 20 62 |tly.. *| Wrote b|
|00001e20| 65 74 74 65 72 28 3f 29 | 20 64 6f 63 75 6d 65 6e |etter(?)| documen|
|00001e30| 74 61 74 69 6f 6e 2e 0a | 20 20 2a 20 41 64 64 65 |tation..| * Adde|
|00001e40| 64 20 33 44 20 74 65 6d | 70 6c 61 74 65 73 20 61 |d 3D tem|plates a|
|00001e50| 6e 64 20 6e 65 77 20 73 | 70 72 69 74 65 73 2e 0a |nd new s|prites..|
|00001e60| 0a 31 2e 30 32 20 28 32 | 31 20 53 65 70 20 31 39 |.1.02 (2|1 Sep 19|
|00001e70| 39 34 29 0a 0a 20 20 2a | 20 52 65 76 69 73 65 64 |94).. *| Revised|
|00001e80| 20 74 68 65 20 74 65 6d | 70 6c 61 74 65 73 20 28 | the tem|plates (|
|00001e90| 74 68 61 6e 6b 73 20 74 | 6f 20 43 6f 6c 69 6e 20 |thanks t|o Colin |
|00001ea0| 54 75 72 6e 62 75 6c 6c | 20 66 6f 72 20 73 6f 6d |Turnbull| for som|
|00001eb0| 65 20 68 65 6c 70 66 75 | 6c 28 3f 29 0a 20 20 20 |e helpfu|l(?). |
|00001ec0| 20 63 6f 6d 6d 65 6e 74 | 73 20 6f 6e 20 74 68 69 | comment|s on thi|
|00001ed0| 73 21 29 2e 0a 20 20 2a | 20 4e 69 63 65 72 20 69 |s!).. *| Nicer i|
|00001ee0| 63 6f 6e 2d 62 61 72 20 | 6d 65 6e 75 2e 0a 20 20 |con-bar |menu.. |
|00001ef0| 2a 20 46 69 78 65 64 20 | 63 75 72 73 6f 72 20 75 |* Fixed |cursor u|
|00001f00| 70 2f 64 6f 77 6e 20 62 | 75 67 73 2e 0a 0a 31 2e |p/down b|ugs...1.|
|00001f10| 30 33 20 28 31 32 20 41 | 70 72 20 31 39 39 34 29 |03 (12 A|pr 1994)|
|00001f20| 0a 0a 20 20 2a 20 4e 65 | 77 20 61 70 70 20 69 63 |.. * Ne|w app ic|
|00001f30| 6f 6e 2e 0a 20 20 2a 20 | 41 64 64 65 64 20 6f 70 |on.. * |Added op|
|00001f40| 74 69 6f 6e 73 20 77 69 | 6e 64 6f 77 20 61 6e 64 |tions wi|ndow and|
|00001f50| 20 66 69 6c 65 2e 0a 20 | 20 2a 20 41 64 64 65 64 | file.. | * Added|
|00001f60| 20 69 6e 74 65 72 61 63 | 74 69 76 65 20 68 65 6c | interac|tive hel|
|00001f70| 70 20 73 75 70 70 6f 72 | 74 2e 0a 20 20 2a 20 43 |p suppor|t.. * C|
|00001f80| 68 61 6e 67 65 64 20 74 | 6f 20 42 41 53 49 43 36 |hanged t|o BASIC6|
|00001f90| 34 2e 0a 20 20 2a 20 49 | 6d 70 72 6f 76 65 64 20 |4.. * I|mproved |
|00001fa0| 64 69 66 66 65 72 65 6e | 74 69 61 74 69 6f 6e 20 |differen|tiation |
|00001fb0| 72 6f 75 74 69 6e 65 2e | 0a 20 20 2a 20 41 64 64 |routine.|. * Add|
|00001fc0| 65 64 20 69 6e 66 69 6e | 69 74 65 20 73 65 72 69 |ed infin|ite seri|
|00001fd0| 65 73 20 63 61 70 61 62 | 69 6c 69 74 79 2e 0a 20 |es capab|ility.. |
|00001fe0| 20 2a 20 49 6d 70 72 6f | 76 65 64 20 74 68 65 20 | * Impro|ved the |
|00001ff0| 65 72 72 6f 72 20 68 61 | 6e 64 6c 65 72 73 2e 0a |error ha|ndlers..|
|00002000| 20 20 2a 20 45 78 70 61 | 6e 64 65 64 20 61 6e 64 | * Expa|nded and|
|00002010| 20 72 65 66 6f 72 6d 61 | 74 74 65 64 20 74 68 69 | reforma|tted thi|
|00002020| 73 20 68 65 6c 70 20 66 | 69 6c 65 2e 0a 0a 0a 3d |s help f|ile....=|
|00002030| 3d 3d 20 37 2e 20 46 75 | 74 75 72 65 20 63 68 61 |== 7. Fu|ture cha|
|00002040| 6e 67 65 73 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |nges ===|========|
|00002050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0a 0a 20 20 2a 20 49 |========|=.. * I|
|00002080| 27 64 20 6c 69 6b 65 20 | 74 6f 20 62 65 20 61 62 |'d like |to be ab|
|00002090| 6c 65 20 74 6f 20 64 6f | 20 69 6e 74 65 67 72 61 |le to do| integra|
|000020a0| 74 69 6f 6e 20 6f 76 65 | 72 20 75 6e 62 6f 75 6e |tion ove|r unboun|
|000020b0| 64 65 64 20 69 6e 74 65 | 72 76 61 6c 73 2e 20 54 |ded inte|rvals. T|
|000020c0| 68 69 73 0a 20 20 20 20 | 73 68 6f 75 6c 64 20 62 |his. |should b|
|000020d0| 65 20 70 6f 73 73 69 62 | 6c 65 2c 20 62 79 20 74 |e possib|le, by t|
|000020e0| 65 73 74 69 6e 67 20 66 | 6f 72 20 63 6f 6e 76 65 |esting f|or conve|
|000020f0| 72 67 65 6e 63 65 20 77 | 69 74 68 20 72 65 70 65 |rgence w|ith repe|
|00002100| 61 74 65 64 0a 20 20 20 | 20 61 70 70 72 6f 78 69 |ated. | approxi|
|00002110| 6d 61 74 69 6f 6e 73 2e | 0a 0a 20 20 2a 20 44 6f |mations.|.. * Do|
|00002120| 20 61 20 70 72 65 2d 70 | 61 72 73 65 72 2c 20 74 | a pre-p|arser, t|
|00002130| 6f 20 74 61 6b 65 20 69 | 6e 74 6f 20 61 63 63 6f |o take i|nto acco|
|00002140| 75 6e 74 20 6d 61 74 68 | 65 6d 61 74 69 63 61 6c |unt math|ematical|
|00002150| 20 6e 6f 74 61 74 69 6f | 6e 20 28 61 73 0a 20 20 | notatio|n (as. |
|00002160| 20 20 6f 70 70 6f 73 65 | 64 20 74 6f 20 42 41 53 | oppose|d to BAS|
|00002170| 49 43 27 73 20 6d 6f 72 | 65 20 6c 69 6d 69 74 65 |IC's mor|e limite|
|00002180| 64 20 66 6f 72 6d 61 74 | 29 2e 20 41 6c 74 65 72 |d format|). Alter|
|00002190| 6e 61 74 69 76 65 6c 79 | 20 49 20 6d 61 79 20 61 |natively| I may a|
|000021a0| 62 61 6e 64 6f 6e 0a 20 | 20 20 20 45 56 41 4c 20 |bandon. | EVAL |
|000021b0| 61 6c 74 6f 67 65 74 68 | 65 72 2c 20 61 6e 64 20 |altogeth|er, and |
|000021c0| 77 72 69 74 65 20 61 20 | 63 6f 6d 70 6c 65 74 65 |write a |complete|
|000021d0| 6c 79 20 6e 65 77 20 70 | 61 72 73 65 72 20 28 49 |ly new p|arser (I|
|000021e0| 74 27 73 20 61 20 62 69 | 74 20 6f 66 20 61 0a 20 |t's a bi|t of a. |
|000021f0| 20 20 20 6b 6c 75 64 67 | 65 20 61 74 20 74 68 65 | kludg|e at the|
|00002200| 20 6d 6f 6d 65 6e 74 2c | 20 61 73 20 79 6f 75 20 | moment,| as you |
|00002210| 6d 69 67 68 74 20 6e 6f | 74 69 63 65 2e 2e 2e 29 |might no|tice...)|
|00002220| 2e 20 42 75 74 20 74 68 | 65 6e 20 61 67 61 69 6e |. But th|en again|
|00002230| 2c 20 49 20 6d 69 67 68 | 74 0a 20 20 20 20 6e 6f |, I migh|t. no|
|00002240| 74 20 62 6f 74 68 65 72 | 2e 2e 2e 0a 0a 0a 3d 3d |t bother|......==|
|00002250| 3d 20 38 2e 20 43 6f 70 | 79 72 69 67 68 74 3f 20 |= 8. Cop|yright? |
|00002260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002290| 3d 3d 3d 3d 3d 3d 3d 3d | 0a 0a 54 68 69 73 20 70 |========|..This p|
|000022a0| 72 6f 67 72 61 6d 20 69 | 73 20 22 46 72 65 65 77 |rogram i|s "Freew|
|000022b0| 61 72 65 22 2e 20 41 73 | 20 66 61 72 20 61 73 20 |are". As| far as |
|000022c0| 49 20 61 6d 20 63 6f 6e | 63 65 72 6e 65 64 2c 20 |I am con|cerned, |
|000022d0| 74 68 69 73 20 6d 65 61 | 6e 73 20 74 68 61 74 20 |this mea|ns that |
|000022e0| 79 6f 75 0a 63 61 6e 20 | 64 69 73 74 72 69 62 75 |you.can |distribu|
|000022f0| 74 65 20 69 74 20 74 6f | 20 61 6e 79 6f 6e 65 20 |te it to| anyone |
|00002300| 61 6e 64 20 65 76 65 72 | 79 6f 6e 65 2c 20 50 52 |and ever|yone, PR|
|00002310| 4f 56 49 44 49 4e 47 20 | 74 68 61 74 20 61 6c 6c |OVIDING |that all|
|00002320| 20 66 69 6c 65 73 20 77 | 69 74 68 69 6e 0a 74 68 | files w|ithin.th|
|00002330| 65 20 21 4e 75 6d 65 72 | 69 63 20 64 69 72 65 63 |e !Numer|ic direc|
|00002340| 74 6f 72 79 20 61 72 65 | 20 69 6e 63 6c 75 64 65 |tory are| include|
|00002350| 64 20 69 6e 20 74 68 65 | 69 72 20 6f 72 69 67 69 |d in the|ir origi|
|00002360| 6e 61 6c 20 66 6f 72 6d | 2c 20 61 6e 64 20 79 6f |nal form|, and yo|
|00002370| 75 20 64 6f 6e 27 74 0a | 6d 61 6b 65 20 61 6e 79 |u don't.|make any|
|00002380| 20 70 72 6f 66 69 74 20 | 66 72 6f 6d 20 64 69 73 | profit |from dis|
|00002390| 74 72 69 62 75 74 69 6f | 6e 2e 0a 0a 49 66 20 79 |tributio|n...If y|
|000023a0| 6f 75 20 66 65 65 6c 20 | 74 68 61 74 20 79 6f 75 |ou feel |that you|
|000023b0| 20 63 6f 75 6c 64 20 64 | 6f 20 62 65 74 74 65 72 | could d|o better|
|000023c0| 2c 20 70 6c 65 61 73 65 | 20 73 65 6e 64 20 79 6f |, please| send yo|
|000023d0| 75 72 20 69 6d 70 72 6f | 76 65 6d 65 6e 74 73 20 |ur impro|vements |
|000023e0| 6f 72 0a 73 75 67 67 65 | 73 74 69 6f 6e 73 20 74 |or.sugge|stions t|
|000023f0| 6f 20 6d 65 20 28 73 65 | 65 20 62 65 6c 6f 77 29 |o me (se|e below)|
|00002400| 20 72 61 74 68 65 72 20 | 74 68 61 6e 20 64 69 73 | rather |than dis|
|00002410| 74 72 69 62 75 74 69 6e | 67 20 74 68 65 6d 20 61 |tributin|g them a|
|00002420| 6c 6c 20 6f 76 65 72 20 | 74 68 65 0a 70 6c 61 63 |ll over |the.plac|
|00002430| 65 2c 20 61 73 20 74 68 | 69 73 20 63 61 6e 20 6c |e, as th|is can l|
|00002440| 65 61 64 20 74 6f 20 6c | 61 72 67 65 20 61 6d 6f |ead to l|arge amo|
|00002450| 75 6e 74 73 20 6f 66 20 | 63 6f 6e 66 75 73 69 6f |unts of |confusio|
|00002460| 6e 2e 0a 0a 0a 3d 3d 3d | 20 39 2e 20 43 6f 6e 74 |n....===| 9. Cont|
|00002470| 61 63 74 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |act ====|========|
|00002480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000024a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0a |========|=======.|
|000024b0| 0a 57 65 6c 6c 20 64 6f | 6e 65 2e 20 59 6f 75 20 |.Well do|ne. You |
|000024c0| 68 61 76 65 20 66 6f 75 | 6e 64 20 74 68 65 20 69 |have fou|nd the i|
|000024d0| 6e 74 65 72 65 73 74 69 | 6e 67 20 62 69 74 20 61 |nteresti|ng bit a|
|000024e0| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |t the en|d of the|
|000024f0| 0a 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 2d |.documen|tation -|
|00002500| 20 68 6f 77 20 74 6f 20 | 69 6e 73 75 6c 74 20 74 | how to |insult t|
|00002510| 68 65 20 61 75 74 68 6f | 72 2e 20 53 65 72 69 6f |he autho|r. Serio|
|00002520| 75 73 6c 79 2c 20 73 6f | 66 74 77 61 72 65 20 64 |usly, so|ftware d|
|00002530| 65 76 65 6c 6f 70 65 72 | 73 2c 0a 77 68 65 74 68 |eveloper|s,.wheth|
|00002540| 65 72 20 70 72 6f 66 65 | 73 73 69 6f 6e 61 6c 20 |er profe|ssional |
|00002550| 6f 72 20 75 6e 70 61 69 | 64 2c 20 61 6c 77 61 79 |or unpai|d, alway|
|00002560| 73 20 64 65 73 70 65 72 | 61 74 65 6c 79 20 6e 65 |s desper|ately ne|
|00002570| 65 64 20 66 65 65 64 62 | 61 63 6b 20 66 72 6f 6d |ed feedb|ack from|
|00002580| 0a 75 73 65 72 73 2e 20 | 53 6f 20 69 66 20 79 6f |.users. |So if yo|
|00002590| 75 20 68 61 76 65 20 41 | 4e 59 20 63 6f 6d 6d 65 |u have A|NY comme|
|000025a0| 6e 74 73 2c 20 73 75 67 | 67 65 73 74 69 6f 6e 73 |nts, sug|gestions|
|000025b0| 2c 20 69 6d 70 72 6f 76 | 65 6d 65 6e 74 73 20 6f |, improv|ements o|
|000025c0| 72 20 62 75 67 73 20 74 | 6f 0a 72 65 70 6f 72 74 |r bugs t|o.report|
|000025d0| 2c 20 74 68 65 6e 20 50 | 4c 45 41 53 45 20 50 4c |, then P|LEASE PL|
|000025e0| 45 41 53 45 20 50 4c 45 | 41 53 45 20 64 6f 20 6e |EASE PLE|ASE do n|
|000025f0| 6f 74 20 68 65 73 69 74 | 61 74 65 20 74 6f 20 67 |ot hesit|ate to g|
|00002600| 65 74 20 69 6e 20 74 6f | 75 63 68 20 77 69 74 68 |et in to|uch with|
|00002610| 20 6d 65 2e 0a 0a 41 6e | 64 20 68 65 72 65 27 73 | me...An|d here's|
|00002620| 20 68 6f 77 3a 0a 0a 45 | 69 74 68 65 72 20 61 74 | how:..E|ither at|
|00002630| 20 68 6f 6d 65 0a 0a 20 | 20 20 20 20 20 20 20 33 | home.. | 3|
|00002640| 33 20 41 73 68 6c 65 79 | 20 50 69 65 63 65 0a 20 |3 Ashley| Piece. |
|00002650| 20 20 20 20 20 20 20 52 | 61 6d 73 62 75 72 79 0a | R|amsbury.|
|00002660| 20 20 20 20 20 20 20 20 | 4d 61 72 6c 62 6f 72 6f | |Marlboro|
|00002670| 75 67 68 0a 20 20 20 20 | 20 20 20 20 57 69 6c 74 |ugh. | Wilt|
|00002680| 73 68 69 72 65 0a 20 20 | 20 20 20 20 20 20 53 4e |shire. | SN|
|00002690| 38 20 32 51 45 0a 0a 20 | 20 20 20 20 20 20 20 54 |8 2QE.. | T|
|000026a0| 65 6c 3a 20 4d 61 72 6c | 62 6f 72 6f 75 67 68 20 |el: Marl|borough |
|000026b0| 28 30 31 36 37 32 29 20 | 32 30 35 36 34 0a 20 20 |(01672) |20564. |
|000026c0| 20 20 20 20 20 20 5b 74 | 68 69 73 20 77 69 6c 6c | [t|his will|
|000026d0| 20 63 68 61 6e 67 65 20 | 74 6f 20 35 32 30 35 36 | change |to 52056|
|000026e0| 34 20 73 6f 6d 65 20 74 | 69 6d 65 20 64 75 72 69 |4 some t|ime duri|
|000026f0| 6e 67 20 4a 75 6e 65 20 | 31 39 39 35 5d 0a 0a 6f |ng June |1995]..o|
|00002700| 72 20 61 74 20 63 6f 6c | 6c 65 67 65 20 28 75 6e |r at col|lege (un|
|00002710| 74 69 6c 20 4a 75 6c 79 | 20 31 39 39 35 20 61 74 |til July| 1995 at|
|00002720| 20 6c 65 61 73 74 29 0a | 0a 20 20 20 20 20 20 20 | least).|. |
|00002730| 20 32 32 20 52 69 64 67 | 65 66 69 65 6c 64 20 52 | 22 Ridg|efield R|
|00002740| 6f 61 64 0a 20 20 20 20 | 20 20 20 20 4f 78 66 6f |oad. | Oxfo|
|00002750| 72 64 0a 20 20 20 20 20 | 20 20 20 4f 58 34 20 33 |rd. | OX4 3|
|00002760| 42 54 0a 0a 20 20 20 20 | 20 20 20 20 54 65 6c 3a |BT.. | Tel:|
|00002770| 20 4f 78 66 6f 72 64 20 | 28 30 31 38 36 35 29 20 | Oxford |(01865) |
|00002780| 37 39 38 31 35 31 0a 20 | 20 20 20 20 20 20 20 5b |798151. | [|
|00002790| 69 66 20 74 68 69 73 20 | 64 6f 65 73 6e 27 74 20 |if this |doesn't |
|000027a0| 77 6f 72 6b 2c 20 6c 65 | 61 76 65 20 61 20 6d 65 |work, le|ave a me|
|000027b0| 73 73 61 67 65 20 6f 6e | 20 28 30 31 38 36 35 29 |ssage on| (01865)|
|000027c0| 20 32 37 32 37 32 37 5d | 0a 0a 20 20 20 20 20 20 | 272727]|.. |
|000027d0| 20 20 46 61 78 3a 20 4f | 78 66 6f 72 64 20 28 30 | Fax: O|xford (0|
|000027e0| 31 38 36 35 29 20 32 37 | 32 37 30 35 0a 0a 20 20 |1865) 27|2705.. |
|000027f0| 20 20 20 20 20 20 45 2d | 6d 61 69 6c 3a 20 67 72 | E-|mail: gr|
|00002800| 61 68 61 6d 2e 68 69 63 | 6b 40 6b 65 62 6c 65 2e |aham.hic|k@keble.|
|00002810| 6f 78 66 6f 72 64 2e 61 | 63 2e 75 6b 0a 20 20 20 |oxford.a|c.uk. |
|00002820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 39 32 | | m92|
|00002830| 67 6a 68 40 65 63 73 2e | 6f 78 2e 61 63 2e 75 6b |gjh@ecs.|ox.ac.uk|
|00002840| 0a 0a 41 6c 6c 20 63 6f | 6d 6d 75 6e 69 63 61 74 |..All co|mmunicat|
|00002850| 69 6f 6e 20 57 49 4c 4c | 20 62 65 20 72 65 70 6c |ion WILL| be repl|
|00002860| 69 65 64 20 74 6f 2e 20 | 54 68 61 6e 6b 20 79 6f |ied to. |Thank yo|
|00002870| 75 20 66 6f 72 20 79 6f | 75 72 20 61 74 74 65 6e |u for yo|ur atten|
|00002880| 74 69 6f 6e 2e 0a 0a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tion...-|--------|
|00002890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000028a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000028b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000028c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000028d0| 2d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-. | |
|000028e0| 20 20 21 4e 75 6d 65 72 | 69 63 20 28 76 31 2e 30 | !Numer|ic (v1.0|
|000028f0| 33 29 20 20 2d 2d 20 20 | a9 20 47 72 61 68 61 6d |3) -- |. Graham|
|00002900| 20 48 69 63 6b 2c 20 31 | 39 39 35 0a 2d 2d 2d 2d | Hick, 1|995.----|
|00002910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002950| 2d 2d 2d 2d 2d 2d 0a 46 | 69 6c 65 44 61 74 61 82 |------.F|ileData.|
|00002960| 21 52 75 6e 00 00 00 00 | 00 00 00 77 01 00 00 46 |!Run....|...w...F|
|00002970| eb ff ff 2c 1c 45 01 03 | 00 75 29 53 65 74 20 4e |...,.E..|.u)Set N|
|00002980| 75 6d 65 72 69 63 24 44 | 69 72 20 3c 4f 62 65 79 |umeric$D|ir <Obey|
|00002990| 24 44 69 72 3e 0a 49 63 | 6f 6e 53 70 72 69 74 65 |$Dir>.Ic|onSprite|
|000029a0| 73 20 3c 4e 75 6d 65 72 | 69 63 24 44 69 72 3e 2e |s <Numer|ic$Dir>.|
|000029b0| 21 53 70 72 69 74 65 73 | 0a 53 65 74 20 4e 75 6d |!Sprites|.Set Num|
|000029c0| 65 72 69 63 24 54 72 79 | 36 34 20 31 0a 52 4d 45 |eric$Try|64 1.RME|
|000029d0| 6e 73 75 72 65 20 55 74 | 69 6c 69 74 79 4d 6f 64 |nsure Ut|ilityMod|
|000029e0| 75 6c 65 20 33 20 53 65 | 74 20 4e 75 6d 65 72 69 |ule 3 Se|t Numeri|
|000029f0| 63 24 54 72 79 36 34 20 | 30 0a 49 66 20 4e 75 6d |c$Try64 |0.If Num|
|00002a00| 65 72 69 63 24 54 72 79 | 36 34 20 3d 20 31 20 74 |eric$Try|64 = 1 t|
|00002a10| 68 65 6e 20 52 4d 65 6e | 73 75 72 65 20 42 41 53 |hen RMen|sure BAS|
|00002a20| 49 43 36 34 20 30 20 52 | 4d 6c 6f 61 64 20 53 79 |IC64 0 R|Mload Sy|
|00002a30| 73 74 65 6d 3a 4d 6f 64 | 75 6c 65 73 2e 42 41 53 |stem:Mod|ules.BAS|
|00002a40| 49 43 36 34 0a 57 69 6d | 70 53 6c 6f 74 20 2d 6d |IC64.Wim|pSlot -m|
|00002a50| 69 6e 20 36 34 4b 20 2d | 6d 61 78 20 36 34 4b 0a |in 64K -|max 64K.|
|00002a60| 49 66 20 4e 75 6d 65 72 | 69 63 24 54 72 79 36 34 |If Numer|ic$Try64|
|00002a70| 20 3d 20 30 20 74 68 65 | 6e 20 42 41 53 49 43 20 | = 0 the|n BASIC |
|00002a80| 2d 71 75 69 74 20 3c 4e | 75 6d 65 72 69 63 24 44 |-quit <N|umeric$D|
|00002a90| 69 72 3e 2e 21 52 75 6e | 49 6d 61 67 65 0a 49 66 |ir>.!Run|Image.If|
|00002aa0| 20 4e 75 6d 65 72 69 63 | 24 54 72 79 36 34 20 3d | Numeric|$Try64 =|
|00002ab0| 20 31 20 74 68 65 6e 20 | 42 41 53 49 43 36 34 20 | 1 then |BASIC64 |
|00002ac0| 2d 71 75 69 74 20 3c 4e | 75 6d 65 72 69 63 24 44 |-quit <N|umeric$D|
|00002ad0| 69 72 3e 2e 21 52 75 6e | 49 6d 61 67 65 0a 55 6e |ir>.!Run|Image.Un|
|00002ae0| 53 65 74 20 4e 75 6d 65 | 72 69 63 24 54 72 79 36 |Set Nume|ric$Try6|
|00002af0| 34 0a 46 69 6c 65 44 61 | 74 61 82 21 52 75 6e 49 |4.FileDa|ta.!RunI|
|00002b00| 6d 61 67 65 00 00 7f 3b | 00 00 46 fd ff ff 65 5e |mage...;|..F...e^|
|00002b10| 76 27 03 00 a1 cb 0d 00 | 0a 10 f4 20 3e 21 52 75 |v'......|... >!Ru|
|00002b20| 6e 49 6d 61 67 65 0d 00 | 14 0e ee 85 f2 65 72 72 |nImage..|.....err|
|00002b30| 6f 72 3a e0 0d 00 1e 1b | de 62 6c 6b 25 26 38 30 |or:.....|.blk%&80|
|00002b40| 30 2c 62 6c 6b 32 25 26 | 32 30 30 2c 71 25 34 0d |0,blk2%&|200,q%4.|
|00002b50| 00 28 1e de 6d 68 5f 69 | 62 61 72 25 26 31 30 30 |.(..mh_i|bar%&100|
|00002b60| 2c 6d 68 5f 77 69 6e 73 | 25 26 31 30 30 0d 00 32 |,mh_wins|%&100..2|
|00002b70| 16 de 6f 70 74 73 25 28 | 33 29 2c 6f 70 74 73 24 |..opts%(|3),opts$|
|00002b80| 28 35 29 0d 00 3c 1f 61 | 70 70 6e 61 6d 65 24 3d |(5)..<.a|ppname$=|
|00002b90| 22 4e 75 6d 65 72 69 63 | 20 41 6e 61 6c 79 73 69 |"Numeric| Analysi|
|00002ba0| 73 22 0d 00 46 0f 77 68 | 5f 69 62 61 72 25 3d 2d |s"..F.wh|_ibar%=-|
|00002bb0| 32 0d 00 50 0b 71 75 69 | 74 25 3d a3 0d 00 5a 0d |2..P.qui|t%=...Z.|
|00002bc0| 70 6c 61 63 65 24 3d 22 | 22 0d 00 64 0a 45 3d a1 |place$="|"..d.E=.|
|00002bd0| 28 31 29 0d 00 6e 21 c8 | 99 22 4f 53 5f 42 79 74 |(1)..n!.|."OS_Byt|
|00002be0| 65 22 2c 31 32 39 2c 30 | 2c 32 35 35 b8 2c 6f 73 |e",129,0|,255.,os|
|00002bf0| 76 65 72 25 0d 00 78 25 | e7 6f 73 76 65 72 25 3c |ver%..x%|.osver%<|
|00002c00| 26 41 34 8c 6f 73 76 65 | 72 25 3d 32 30 30 8b 6f |&A4.osve|r%=200.o|
|00002c10| 73 76 65 72 25 3d 33 31 | 30 0d 00 82 0a 71 25 21 |sver%=31|0....q%!|
|00002c20| 30 3d 30 0d 00 8c 3b c8 | 99 22 57 69 6d 70 5f 49 |0=0...;.|."Wimp_I|
|00002c30| 6e 69 74 69 61 6c 69 73 | 65 22 2c 6f 73 76 65 72 |nitialis|e",osver|
|00002c40| 25 2c 26 34 42 35 33 34 | 31 35 34 2c 61 70 70 6e |%,&4B534|154,appn|
|00002c50| 61 6d 65 24 2c 71 25 b8 | 2c 74 61 73 6b 25 0d 00 |ame$,q%.|,task%..|
|00002c60| 96 13 ee 85 e7 a4 77 69 | 6d 70 65 72 72 6f 72 8c |......wi|mperror.|
|00002c70| e0 0d 00 a0 19 c8 99 22 | 48 6f 75 72 67 6c 61 73 |......."|Hourglas|
|00002c80| 73 5f 53 74 61 72 74 22 | 2c 31 0d 00 aa 0d f2 6d |s_Start"|,1.....m|
|00002c90| 65 73 73 61 67 65 73 0d | 00 b4 0c f2 73 70 72 69 |essages.|....spri|
|00002ca0| 74 65 73 0d 00 be 0e f2 | 74 65 6d 70 6c 61 74 65 |tes.....|template|
|00002cb0| 73 0d 00 c8 0c f2 69 63 | 6f 6e 62 61 72 0d 00 d2 |s.....ic|onbar...|
|00002cc0| 0e f2 69 6e 69 74 6d 65 | 6e 75 73 0d 00 dc 27 f2 |..initme|nus...'.|
|00002cd0| 77 72 69 74 65 69 63 6f | 6e 74 65 78 74 28 77 68 |writeico|ntext(wh|
|00002ce0| 5f 69 6e 66 6f 25 2c 30 | 2c 61 70 70 6e 61 6d 65 |_info%,0|,appname|
|00002cf0| 24 29 0d 00 e6 32 f2 77 | 72 69 74 65 69 63 6f 6e |$)...2.w|riteicon|
|00002d00| 74 65 78 74 28 77 68 5f | 69 6e 66 6f 25 2c 31 2c |text(wh_|info%,1,|
|00002d10| a4 6d 65 73 73 61 67 65 | 28 22 50 75 72 70 6f 73 |.message|("Purpos|
|00002d20| 65 22 29 29 0d 00 f0 31 | f2 77 72 69 74 65 69 63 |e"))...1|.writeic|
|00002d30| 6f 6e 74 65 78 74 28 77 | 68 5f 69 6e 66 6f 25 2c |ontext(w|h_info%,|
|00002d40| 32 2c a4 6d 65 73 73 61 | 67 65 28 22 41 75 74 68 |2,.messa|ge("Auth|
|00002d50| 6f 72 22 29 29 0d 00 fa | 4c f2 77 72 69 74 65 69 |or"))...|L.writei|
|00002d60| 63 6f 6e 74 65 78 74 28 | 77 68 5f 69 6e 66 6f 25 |context(|wh_info%|
|00002d70| 2c 33 2c a4 6d 65 73 73 | 61 67 65 28 22 56 65 72 |,3,.mess|age("Ver|
|00002d80| 73 69 6f 6e 22 29 2b 22 | 20 28 22 2b a4 6d 65 73 |sion")+"| ("+.mes|
|00002d90| 73 61 67 65 28 22 44 61 | 74 65 22 29 2b 22 29 22 |sage("Da|te")+")"|
|00002da0| 29 0d 01 04 17 c8 99 22 | 48 6f 75 72 67 6c 61 73 |)......"|Hourglas|
|00002db0| 73 5f 53 6d 61 73 68 22 | 0d 01 0e 0d f2 6c 6f 61 |s_Smash"|.....loa|
|00002dc0| 64 6f 70 74 73 0d 01 18 | 13 ee 85 e7 a4 77 69 6d |dopts...|.....wim|
|00002dd0| 70 65 72 72 6f 72 8c e0 | 0d 01 22 05 f5 0d 01 2c |perror..|.."....,|
|00002de0| 09 f2 70 6f 6c 6c 0d 01 | 36 0a fd 71 75 69 74 25 |..poll..|6..quit%|
|00002df0| 0d 01 40 0a f2 63 6c 6f | 73 65 0d 01 4a 05 e0 0d |..@..clo|se..J...|
|00002e00| 01 54 0e dd f2 6d 65 73 | 73 61 67 65 73 0d 01 5e |.T...mes|sages..^|
|00002e10| 15 ea 66 6c 61 67 25 2c | 6c 65 6e 25 2c 73 69 7a |..flag%,|len%,siz|
|00002e20| 65 25 0d 01 68 10 73 69 | 7a 65 25 3d 34 2a 31 30 |e%..h.si|ze%=4*10|
|00002e30| 32 34 0d 01 72 1f de 6d | 73 67 66 69 6c 65 25 31 |24..r..m|sgfile%1|
|00002e40| 36 2c 6d 65 6d 25 73 69 | 7a 65 25 2c 73 24 28 34 |6,mem%si|ze%,s$(4|
|00002e50| 29 0d 01 7c 43 c8 99 22 | 4d 65 73 73 61 67 65 54 |)..|C.."|MessageT|
|00002e60| 72 61 6e 73 5f 46 69 6c | 65 49 6e 66 6f 22 2c 2c |rans_Fil|eInfo",,|
|00002e70| 22 3c 4e 75 6d 65 72 69 | 63 24 44 69 72 3e 2e 4d |"<Numeri|c$Dir>.M|
|00002e80| 65 73 73 61 67 65 73 22 | b8 66 6c 61 67 25 2c 2c |essages"|.flag%,,|
|00002e90| 6c 65 6e 25 0d 01 86 2d | e7 66 6c 61 67 25 80 20 |len%...-|.flag%. |
|00002ea0| 31 8c 6c 65 6e 25 3d 30 | 3a 6d 73 67 62 75 66 66 |1.len%=0|:msgbuff|
|00002eb0| 25 3d 30 8b 6d 73 67 62 | 75 66 66 25 3d 6d 65 6d |%=0.msgb|uff%=mem|
|00002ec0| 25 0d 01 90 27 e7 6c 65 | 6e 25 3e 73 69 7a 65 25 |%...'.le|n%>size%|
|00002ed0| 8c 85 31 2c a4 6d 65 73 | 73 61 67 65 28 22 65 72 |..1,.mes|sage("er|
|00002ee0| 72 2e 6d 65 73 73 22 29 | 0d 01 9a 48 c8 99 22 4d |r.mess")|...H.."M|
|00002ef0| 65 73 73 61 67 65 54 72 | 61 6e 73 5f 4f 70 65 6e |essageTr|ans_Open|
|00002f00| 46 69 6c 65 22 2c 6d 73 | 67 66 69 6c 65 25 2c 22 |File",ms|gfile%,"|
|00002f10| 3c 4e 75 6d 65 72 69 63 | 24 44 69 72 3e 2e 4d 65 |<Numeric|$Dir>.Me|
|00002f20| 73 73 61 67 65 73 22 2c | 6d 73 67 62 75 66 66 25 |ssages",|msgbuff%|
|00002f30| 0d 01 a4 05 e1 0d 01 ae | 0d dd f2 73 70 72 69 74 |........|...sprit|
|00002f40| 65 73 0d 01 b8 1f ea 78 | 61 73 70 25 2c 79 61 73 |es.....x|asp%,yas|
|00002f50| 70 25 2c 73 70 72 66 69 | 6c 65 24 2c 73 69 7a 65 |p%,sprfi|le$,size|
|00002f60| 25 0d 01 c2 27 c8 99 22 | 4f 53 5f 52 65 61 64 4d |%...'.."|OS_ReadM|
|00002f70| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c eb 2c 34 |odeVaria|ble",.,4|
|00002f80| b8 2c 2c 78 61 73 70 25 | 0d 01 cc 27 c8 99 22 4f |.,,xasp%|...'.."O|
|00002f90| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|00002fa0| 6c 65 22 2c eb 2c 35 b8 | 2c 2c 79 61 73 70 25 0d |le",.,5.|,,yasp%.|
|00002fb0| 01 d6 24 73 70 72 66 69 | 6c 65 24 3d 22 3c 4e 75 |..$sprfi|le$="<Nu|
|00002fc0| 6d 65 72 69 63 24 44 69 | 72 3e 2e 53 70 72 69 74 |meric$Di|r>.Sprit|
|00002fd0| 65 73 22 0d 01 e0 1f e7 | 78 61 73 70 25 3d 79 61 |es".....|xasp%=ya|
|00002fe0| 73 70 25 8c 73 70 72 66 | 69 6c 65 24 2b 3d 22 32 |sp%.sprf|ile$+="2|
|00002ff0| 32 22 0d 01 ea 24 c8 99 | 22 4f 53 5f 46 69 6c 65 |2"...$..|"OS_File|
|00003000| 22 2c 35 2c 73 70 72 66 | 69 6c 65 24 b8 2c 2c 2c |",5,sprf|ile$.,,,|
|00003010| 2c 73 69 7a 65 25 0d 01 | f4 0d 73 69 7a 65 25 2b |,size%..|..size%+|
|00003020| 3d 31 36 0d 01 fe 11 de | 73 70 72 69 74 65 25 73 |=16.....|sprite%s|
|00003030| 69 7a 65 25 0d 02 08 1f | 21 73 70 72 69 74 65 25 |ize%....|!sprite%|
|00003040| 3d 73 69 7a 65 25 3a 73 | 70 72 69 74 65 25 21 38 |=size%:s|prite%!8|
|00003050| 3d 31 36 0d 02 12 20 c8 | 99 22 4f 53 5f 53 70 72 |=16... .|."OS_Spr|
|00003060| 69 74 65 4f 70 22 2c 26 | 31 30 39 2c 73 70 72 69 |iteOp",&|109,spri|
|00003070| 74 65 25 0d 02 1c 29 c8 | 99 22 4f 53 5f 53 70 72 |te%...).|."OS_Spr|
|00003080| 69 74 65 4f 70 22 2c 26 | 31 30 41 2c 73 70 72 69 |iteOp",&|10A,spri|
|00003090| 74 65 25 2c 73 70 72 66 | 69 6c 65 24 0d 02 26 05 |te%,sprf|ile$..&.|
|000030a0| e1 0d 02 30 0f dd f2 74 | 65 6d 70 6c 61 74 65 73 |...0...t|emplates|
|000030b0| 0d 02 3a 18 ea 69 6e 64 | 62 6c 6b 25 2c 69 6e 64 |..:..ind|blk%,ind|
|000030c0| 25 2c 62 79 74 65 73 25 | 0d 02 44 0f 62 79 74 65 |%,bytes%|..D.byte|
|000030d0| 73 25 3d 26 38 30 30 0d | 02 4e 1f de 69 6e 64 62 |s%=&800.|.N..indb|
|000030e0| 6c 6b 25 62 79 74 65 73 | 25 3a 69 6e 64 25 3d 69 |lk%bytes|%:ind%=i|
|000030f0| 6e 64 62 6c 6b 25 0d 02 | 58 34 c8 99 22 57 69 6d |ndblk%..|X4.."Wim|
|00003100| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|00003110| 2c 22 3c 4e 75 6d 65 72 | 69 63 24 44 69 72 3e 2e |,"<Numer|ic$Dir>.|
|00003120| 54 65 6d 70 6c 61 74 65 | 73 22 0d 02 62 48 c8 99 |Template|s"..bH..|
|00003130| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00003140| 74 65 22 2c 2c 62 6c 6b | 25 2c 69 6e 64 25 2c 69 |te",,blk|%,ind%,i|
|00003150| 6e 64 62 6c 6b 25 2b 62 | 79 74 65 73 25 2c 2d 31 |ndblk%+b|ytes%,-1|
|00003160| 2c 22 70 72 6f 67 49 6e | 66 6f 22 b8 2c 2c 69 6e |,"progIn|fo".,,in|
|00003170| 64 25 0d 02 6c 28 c8 99 | 22 57 69 6d 70 5f 43 72 |d%..l(..|"Wimp_Cr|
|00003180| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6b |eateWind|ow",,blk|
|00003190| 25 b8 77 68 5f 69 6e 66 | 6f 25 0d 02 76 43 c8 99 |%.wh_inf|o%..vC..|
|000031a0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000031b0| 74 65 22 2c 2c 62 6c 6b | 25 2c 69 6e 64 25 2c 69 |te",,blk|%,ind%,i|
|000031c0| 6e 64 62 6c 6b 25 2b 62 | 79 74 65 73 25 2c 2d 31 |ndblk%+b|ytes%,-1|
|000031d0| 2c 22 69 6e 74 22 b8 2c | 2c 69 6e 64 25 0d 02 80 |,"int".,|,ind%...|
|000031e0| 1e 62 6c 6b 25 21 32 34 | 3d 2d 31 3a 62 6c 6b 25 |.blk%!24|=-1:blk%|
|000031f0| 21 36 34 3d 73 70 72 69 | 74 65 25 0d 02 8a 27 c8 |!64=spri|te%...'.|
|00003200| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e |."Wimp_C|reateWin|
|00003210| 64 6f 77 22 2c 2c 62 6c | 6b 25 b8 77 68 5f 69 6e |dow",,bl|k%.wh_in|
|00003220| 74 25 0d 02 94 44 c8 99 | 22 57 69 6d 70 5f 4c 6f |t%...D..|"Wimp_Lo|
|00003230| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6c 6b |adTempla|te",,blk|
|00003240| 25 2c 69 6e 64 25 2c 69 | 6e 64 62 6c 6b 25 2b 62 |%,ind%,i|ndblk%+b|
|00003250| 79 74 65 73 25 2c 2d 31 | 2c 22 64 69 66 66 22 b8 |ytes%,-1|,"diff".|
|00003260| 2c 2c 69 6e 64 25 0d 02 | 9e 0e 62 6c 6b 25 21 32 |,,ind%..|..blk%!2|
|00003270| 34 3d 2d 31 0d 02 a8 28 | c8 99 22 57 69 6d 70 5f |4=-1...(|.."Wimp_|
|00003280| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00003290| 6c 6b 25 b8 77 68 5f 64 | 69 66 66 25 0d 02 b2 43 |lk%.wh_d|iff%...C|
|000032a0| c8 99 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |.."Wimp_|LoadTemp|
|000032b0| 6c 61 74 65 22 2c 2c 62 | 6c 6b 25 2c 69 6e 64 25 |late",,b|lk%,ind%|
|000032c0| 2c 69 6e 64 62 6c 6b 25 | 2b 62 79 74 65 73 25 2c |,indblk%|+bytes%,|
|000032d0| 2d 31 2c 22 73 75 6d 22 | b8 2c 2c 69 6e 64 25 0d |-1,"sum"|.,,ind%.|
|000032e0| 02 bc 1e 62 6c 6b 25 21 | 32 34 3d 2d 31 3a 62 6c |...blk%!|24=-1:bl|
|000032f0| 6b 25 21 36 34 3d 73 70 | 72 69 74 65 25 0d 02 c6 |k%!64=sp|rite%...|
|00003300| 27 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |'.."Wimp|_CreateW|
|00003310| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 25 b8 77 68 5f |indow",,|blk%.wh_|
|00003320| 73 75 6d 25 0d 02 d0 42 | c8 99 22 57 69 6d 70 5f |sum%...B|.."Wimp_|
|00003330| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 62 |LoadTemp|late",,b|
|00003340| 6c 6b 25 2c 69 6e 64 25 | 2c 69 6e 64 62 6c 6b 25 |lk%,ind%|,indblk%|
|00003350| 2b 62 79 74 65 73 25 2c | 2d 31 2c 22 6e 72 22 b8 |+bytes%,|-1,"nr".|
|00003360| 2c 2c 69 6e 64 25 0d 02 | da 0e 62 6c 6b 25 21 32 |,,ind%..|..blk%!2|
|00003370| 34 3d 2d 31 0d 02 e4 26 | c8 99 22 57 69 6d 70 5f |4=-1...&|.."Wimp_|
|00003380| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |CreateWi|ndow",,b|
|00003390| 6c 6b 25 b8 77 68 5f 6e | 72 25 0d 02 ee 47 c8 99 |lk%.wh_n|r%...G..|
|000033a0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000033b0| 74 65 22 2c 2c 62 6c 6b | 25 2c 69 6e 64 25 2c 69 |te",,blk|%,ind%,i|
|000033c0| 6e 64 62 6c 6b 25 2b 62 | 79 74 65 73 25 2c 2d 31 |ndblk%+b|ytes%,-1|
|000033d0| 2c 22 6f 70 74 69 6f 6e | 73 22 b8 2c 2c 69 6e 64 |,"option|s".,,ind|
|000033e0| 25 0d 02 f8 0e 62 6c 6b | 25 21 32 34 3d 2d 31 0d |%....blk|%!24=-1.|
|000033f0| 03 02 28 c8 99 22 57 69 | 6d 70 5f 43 72 65 61 74 |..(.."Wi|mp_Creat|
|00003400| 65 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6b 25 b8 77 |eWindow"|,,blk%.w|
|00003410| 68 5f 6f 70 74 73 25 0d | 03 0c 1a c8 99 22 57 69 |h_opts%.|....."Wi|
|00003420| 6d 70 5f 43 6c 6f 73 65 | 54 65 6d 70 6c 61 74 65 |mp_Close|Template|
|00003430| 22 0d 03 16 05 e1 0d 03 | 20 0f dd f2 69 6e 69 74 |".......| ...init|
|00003440| 6d 65 6e 75 73 0d 03 2a | 0a ea 76 6f 69 64 25 0d |menus..*|..void%.|
|00003450| 03 34 14 de 6d 65 6e 75 | 5f 69 6e 64 69 72 25 26 |.4..menu|_indir%&|
|00003460| 31 30 30 0d 03 3e 1f 6d | 65 6e 75 5f 69 6e 64 69 |100..>.m|enu_indi|
|00003470| 72 5f 70 74 72 25 3d 6d | 65 6e 75 5f 69 6e 64 69 |r_ptr%=m|enu_indi|
|00003480| 72 25 0d 03 48 72 6d 68 | 67 74 5f 69 62 61 72 25 |r%..Hrmh|gt_ibar%|
|00003490| 3d a4 64 72 61 77 6d 65 | 6e 75 28 6d 68 5f 69 62 |=.drawme|nu(mh_ib|
|000034a0| 61 72 25 2c 22 4e 75 6d | 65 72 69 63 2c 49 6e 66 |ar%,"Num|eric,Inf|
|000034b0| 6f 2c 4f 70 74 69 6f 6e | 73 2e 2e 2e 5f 2c 49 6e |o,Option|s..._,In|
|000034c0| 74 65 67 72 61 74 69 6f | 6e 2c 44 69 66 66 65 72 |tegratio|n,Differ|
|000034d0| 65 6e 74 69 61 74 69 6f | 6e 2c 53 75 6d 6d 61 74 |entiatio|n,Summat|
|000034e0| 69 6f 6e 2c 53 6f 6c 75 | 74 69 6f 6e 5f 2c 51 75 |ion,Solu|tion_,Qu|
|000034f0| 69 74 22 29 0d 03 52 18 | 6d 68 5f 69 62 61 72 25 |it")..R.|mh_ibar%|
|00003500| 21 33 32 3d 77 68 5f 69 | 6e 66 6f 25 0d 03 5c 3d |!32=wh_i|nfo%..\=|
|00003510| 76 6f 69 64 25 3d a4 64 | 72 61 77 6d 65 6e 75 28 |void%=.d|rawmenu(|
|00003520| 6d 68 5f 77 69 6e 73 25 | 2c 22 4e 75 6d 65 72 69 |mh_wins%|,"Numeri|
|00003530| 63 2c 49 6e 66 6f 2c 4f | 70 74 69 6f 6e 73 2e 2e |c,Info,O|ptions..|
|00003540| 2e 5f 2c 51 75 69 74 22 | 29 0d 03 66 18 6d 68 5f |._,Quit"|)..f.mh_|
|00003550| 77 69 6e 73 25 21 33 32 | 3d 77 68 5f 69 6e 66 6f |wins%!32|=wh_info|
|00003560| 25 0d 03 70 05 e1 0d 03 | 7a 19 dd a4 64 72 61 77 |%..p....|z...draw|
|00003570| 6d 65 6e 75 28 6d 68 25 | 2c 6d 65 6e 75 24 29 0d |menu(mh%|,menu$).|
|00003580| 03 84 20 ea 6d 61 78 77 | 69 64 74 68 25 2c 77 69 |.. .maxw|idth%,wi|
|00003590| 64 74 68 25 2c 69 74 65 | 6d 24 2c 70 74 72 25 0d |dth%,ite|m$,ptr%.|
|000035a0| 03 8e 1e 24 6d 68 25 3d | c0 6d 65 6e 75 24 2c a7 |...$mh%=|.menu$,.|
|000035b0| 6d 65 6e 75 24 2c 22 2c | 22 29 2d 31 29 0d 03 98 |menu$,",|")-1)...|
|000035c0| 15 6d 68 25 3f 31 32 3d | 37 3a 6d 68 25 3f 31 33 |.mh%?12=|7:mh%?13|
|000035d0| 3d 32 0d 03 a2 15 6d 68 | 25 3f 31 34 3d 37 3a 6d |=2....mh|%?14=7:m|
|000035e0| 68 25 3f 31 35 3d 30 0d | 03 ac 0d 6d 68 25 21 32 |h%?15=0.|...mh%!2|
|000035f0| 30 3d 34 34 0d 03 b6 18 | 6d 68 25 21 32 34 3d 30 |0=44....|mh%!24=0|
|00003600| 3a 70 74 72 25 3d 6d 68 | 25 2b 32 38 0d 03 c0 1b |:ptr%=mh|%+28....|
|00003610| 6d 61 78 77 69 64 74 68 | 25 3d a7 6d 65 6e 75 24 |maxwidth|%=.menu$|
|00003620| 2c 22 2c 22 29 2d 31 0d | 03 ca 0e 6d 65 6e 75 24 |,",")-1.|...menu$|
|00003630| 2b 3d 22 2c 22 0d 03 d4 | 0d 68 65 69 67 68 74 25 |+=","...|.height%|
|00003640| 3d 30 0d 03 de 0f c8 95 | 6d 65 6e 75 24 3c 3e 22 |=0......|menu$<>"|
|00003650| 22 0d 03 e8 1f 6d 65 6e | 75 24 3d c1 6d 65 6e 75 |"....men|u$=.menu|
|00003660| 24 2c a7 6d 65 6e 75 24 | 2c 22 2c 22 29 2b 31 29 |$,.menu$|,",")+1)|
|00003670| 0d 03 f2 0f e7 6d 65 6e | 75 24 3c 3e 22 22 8c 0d |.....men|u$<>""..|
|00003680| 03 fc 0c 70 74 72 25 21 | 30 3d 30 0d 04 06 0d 70 |...ptr%!|0=0....p|
|00003690| 74 72 25 21 34 3d 2d 31 | 0d 04 10 13 70 74 72 25 |tr%!4=-1|....ptr%|
|000036a0| 21 38 3d 26 37 30 30 30 | 30 32 31 0d 04 1a 18 77 |!8=&7000|021....w|
|000036b0| 69 64 74 68 25 3d a7 6d | 65 6e 75 24 2c 22 2c 22 |idth%=.m|enu$,","|
|000036c0| 29 2d 31 0d 04 24 18 69 | 74 65 6d 24 3d c0 6d 65 |)-1..$.i|tem$=.me|
|000036d0| 6e 75 24 2c 77 69 64 74 | 68 25 29 0d 04 2e 13 e7 |nu$,widt|h%).....|
|000036e0| c2 69 74 65 6d 24 2c 31 | 29 3d 22 5f 22 8c 0d 04 |.item$,1|)="_"...|
|000036f0| 38 0d 77 69 64 74 68 25 | 2d 3d 31 0d 04 42 18 69 |8.width%|-=1..B.i|
|00003700| 74 65 6d 24 3d c0 69 74 | 65 6d 24 2c 77 69 64 74 |tem$=.it|em$,widt|
|00003710| 68 25 29 0d 04 4c 13 70 | 74 72 25 21 30 3d 70 74 |h%)..L.p|tr%!0=pt|
|00003720| 72 25 21 30 84 32 0d 04 | 56 0f 68 65 69 67 68 74 |r%!0.2..|V.height|
|00003730| 25 2b 3d 32 34 0d 04 60 | 05 cd 0d 04 6a 26 e7 77 |%+=24..`|....j&.w|
|00003740| 69 64 74 68 25 3e 6d 61 | 78 77 69 64 74 68 25 8c |idth%>ma|xwidth%.|
|00003750| 6d 61 78 77 69 64 74 68 | 25 3d 77 69 64 74 68 25 |maxwidth|%=width%|
|00003760| 0d 04 74 0f e7 77 69 64 | 74 68 25 3e 31 32 8c 0d |..t..wid|th%>12..|
|00003770| 04 7e 1d 24 6d 65 6e 75 | 5f 69 6e 64 69 72 5f 70 |.~.$menu|_indir_p|
|00003780| 74 72 25 3d 69 74 65 6d | 24 2b bd 30 0d 04 88 1b |tr%=item|$+.0....|
|00003790| 70 74 72 25 21 31 32 3d | 6d 65 6e 75 5f 69 6e 64 |ptr%!12=|menu_ind|
|000037a0| 69 72 5f 70 74 72 25 0d | 04 92 10 70 74 72 25 21 |ir_ptr%.|...ptr%!|
|000037b0| 31 36 3d 62 6c 6b 25 0d | 04 9c 14 70 74 72 25 21 |16=blk%.|...ptr%!|
|000037c0| 32 30 3d 77 69 64 74 68 | 25 2b 31 0d 04 a6 1d 6d |20=width|%+1....m|
|000037d0| 65 6e 75 5f 69 6e 64 69 | 72 5f 70 74 72 25 2b 3d |enu_indi|r_ptr%+=|
|000037e0| 77 69 64 74 68 25 2b 31 | 0d 04 b0 16 70 74 72 25 |width%+1|....ptr%|
|000037f0| 21 38 3d 70 74 72 25 21 | 38 84 26 31 30 30 0d 04 |!8=ptr%!|8.&100..|
|00003800| ba 05 cc 0d 04 c4 14 24 | 28 70 74 72 25 2b 31 32 |.......$|(ptr%+12|
|00003810| 29 3d 69 74 65 6d 24 0d | 04 ce 05 cd 0d 04 d8 1c |)=item$.|........|
|00003820| 70 74 72 25 2b 3d 32 34 | 3a 68 65 69 67 68 74 25 |ptr%+=24|:height%|
|00003830| 2b 3d 6d 68 25 21 32 30 | 0d 04 e2 05 cd 0d 04 ec |+=mh%!20|........|
|00003840| 05 ce 0d 04 f6 1a 6d 68 | 25 21 31 36 3d 31 36 2a |......mh|%!16=16*|
|00003850| 6d 61 78 77 69 64 74 68 | 25 2b 31 36 0d 05 00 19 |maxwidth|%+16....|
|00003860| 70 74 72 25 21 2d 32 34 | 3d 70 74 72 25 21 2d 32 |ptr%!-24|=ptr%!-2|
|00003870| 34 84 26 38 30 0d 05 0a | 0c 3d 68 65 69 67 68 74 |4.&80...|.=height|
|00003880| 25 0d 05 14 0d dd f2 69 | 63 6f 6e 62 61 72 0d 05 |%......i|conbar..|
|00003890| 1e 12 24 62 6c 6b 25 3d | c4 26 46 46 2c bd 30 29 |..$blk%=|.&FF,.0)|
|000038a0| 0d 05 28 1f 62 6c 6b 25 | 21 30 3d 2d 31 3a 62 6c |..(.blk%|!0=-1:bl|
|000038b0| 6b 25 21 34 3d 30 3a 62 | 6c 6b 25 21 38 3d 30 0d |k%!4=0:b|lk%!8=0.|
|000038c0| 05 32 1a 62 6c 6b 25 21 | 31 32 3d 31 31 32 3a 62 |.2.blk%!|12=112:b|
|000038d0| 6c 6b 25 21 31 36 3d 36 | 38 0d 05 3c 11 62 6c 6b |lk%!16=6|8..<.blk|
|000038e0| 25 21 32 30 3d 26 33 30 | 30 32 0d 05 46 19 24 28 |%!20=&30|02..F.$(|
|000038f0| 62 6c 6b 25 2b 32 34 29 | 3d 22 21 6e 75 6d 65 72 |blk%+24)|="!numer|
|00003900| 69 63 22 0d 05 50 29 c8 | 99 22 57 69 6d 70 5f 43 |ic"..P).|."Wimp_C|
|00003910| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 62 6c 6b 25 |reateIco|n",,blk%|
|00003920| b8 69 68 5f 69 63 6f 6e | 62 61 72 25 0d 05 5a 05 |.ih_icon|bar%..Z.|
|00003930| e1 0d 05 64 0b dd f2 65 | 72 72 6f 72 0d 05 6e 06 |...d...e|rror..n.|
|00003940| ef 34 0d 05 78 15 f1 f6 | 24 3b 22 20 61 74 20 6c |.4..x...|$;" at l|
|00003950| 69 6e 65 20 22 3b 9e 0d | 05 82 18 c8 99 22 58 48 |ine ";..|....."XH|
|00003960| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 0d |ourglass|_Smash".|
|00003970| 05 8c 05 e1 0d 05 96 0f | dd a4 77 69 6d 70 65 72 |........|..wimper|
|00003980| 72 6f 72 0d 05 a0 10 ea | 65 25 2c 6d 65 73 73 61 |ror.....|e%,messa|
|00003990| 67 65 24 0d 05 aa 0f e7 | 70 6c 61 63 65 24 3d 22 |ge$.....|place$="|
|000039a0| 22 8c 0d 05 b4 4c 6d 65 | 73 73 61 67 65 24 3d f6 |"....Lme|ssage$=.|
|000039b0| 24 2b 22 20 28 6c 69 6e | 65 20 22 2b c3 9e 2b 22 |$+" (lin|e "+..+"|
|000039c0| 29 22 2b 22 20 2d 20 50 | 72 65 73 73 20 4f 4b 20 |)"+" - P|ress OK |
|000039d0| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 20 6f 72 20 43 |to conti|nue or C|
|000039e0| 61 6e 63 65 6c 20 74 6f | 20 71 75 69 74 22 0d 05 |ancel to| quit"..|
|000039f0| be 05 cc 0d 05 c8 4b 6d | 65 73 73 61 67 65 24 3d |......Km|essage$=|
|00003a00| f6 24 2b 22 20 28 69 6e | 20 22 2b 70 6c 61 63 65 |.$+" (in| "+place|
|00003a10| 24 2b 22 29 20 2d 20 50 | 72 65 73 73 20 4f 4b 20 |$+") - P|ress OK |
|00003a20| 74 6f 20 63 6f 6e 74 69 | 6e 75 65 20 6f 72 20 43 |to conti|nue or C|
|00003a30| 61 6e 63 65 6c 20 74 6f | 20 71 75 69 74 22 0d 05 |ancel to| quit"..|
|00003a40| d2 05 cd 0d 05 dc 21 65 | 25 3d a4 65 72 72 6f 72 |......!e|%=.error|
|00003a50| 62 6f 78 28 9f 2c 6d 65 | 73 73 61 67 65 24 2c 25 |box(.,me|ssage$,%|
|00003a60| 31 31 31 29 0d 05 e6 16 | e7 65 25 8c f2 63 6c 6f |111)....|.e%..clo|
|00003a70| 73 65 3a 71 75 69 74 25 | 3d b9 0d 05 f0 07 3d 65 |se:quit%|=.....=e|
|00003a80| 25 0d 05 fa 24 dd a4 65 | 72 72 6f 72 62 6f 78 28 |%...$..e|rrorbox(|
|00003a90| 65 72 72 25 2c 6d 65 73 | 73 61 67 65 24 2c 66 6c |err%,mes|sage$,fl|
|00003aa0| 61 67 73 25 29 0d 06 04 | 17 62 6c 6b 25 21 30 3d |ags%)...|.blk%!0=|
|00003ab0| 9f 2b 28 74 61 73 6b 25 | 3c 3c 38 29 0d 06 0e 19 |.+(task%|<<8)....|
|00003ac0| 24 28 62 6c 6b 25 2b 34 | 29 3d 6d 65 73 73 61 67 |$(blk%+4|)=messag|
|00003ad0| 65 24 2b bd 30 0d 06 18 | 38 c8 99 22 57 69 6d 70 |e$+.0...|8.."Wimp|
|00003ae0| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 6c |_ReportE|rror",bl|
|00003af0| 6b 25 2c 66 6c 61 67 73 | 25 2c 61 70 70 6e 61 6d |k%,flags|%,appnam|
|00003b00| 65 24 b8 2c 72 65 73 70 | 6f 6e 73 65 25 0d 06 22 |e$.,resp|onse%.."|
|00003b10| 13 e7 72 65 73 70 6f 6e | 73 65 25 3d 32 8c 3d b9 |..respon|se%=2.=.|
|00003b20| 0d 06 2c 06 3d a3 0d 06 | 36 0a dd f2 70 6f 6c 6c |..,.=...|6...poll|
|00003b30| 0d 06 40 2d c8 99 22 57 | 69 6d 70 5f 50 6f 6c 6c |..@-.."W|imp_Poll|
|00003b40| 22 2c 25 31 31 30 30 30 | 30 30 31 31 30 30 30 31 |",%11000|00110001|
|00003b50| 2c 62 6c 6b 25 b8 72 65 | 61 73 6f 6e 25 0d 06 4a |,blk%.re|ason%..J|
|00003b60| 0e c8 8e 72 65 61 73 6f | 6e 25 ca 0d 06 54 20 c9 |...reaso|n%...T .|
|00003b70| 32 3a c8 99 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |2:.."Wim|p_OpenWi|
|00003b80| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 25 0d 06 5e 21 c9 |ndow",,b|lk%..^!.|
|00003b90| 33 3a c8 99 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |3:.."Wim|p_CloseW|
|00003ba0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 25 0d 06 68 0f |indow",,|blk%..h.|
|00003bb0| c9 36 3a f2 62 75 74 74 | 6f 6e 73 0d 06 72 06 c9 |.6:.butt|ons..r..|
|00003bc0| 38 0d 06 7c 0e c8 8e 62 | 6c 6b 25 21 32 34 ca 0d |8..|...b|lk%!24..|
|00003bd0| 06 86 0e c9 31 33 3a f2 | 65 6e 74 65 72 0d 06 90 |....13:.|enter...|
|00003be0| 0e c9 33 39 38 3a f2 64 | 6f 77 6e 0d 06 9a 0c c9 |..398:.d|own.....|
|00003bf0| 33 39 39 3a f2 75 70 0d | 06 a4 20 7f c8 99 22 57 |399:.up.|.. ..."W|
|00003c00| 69 6d 70 5f 50 72 6f 63 | 65 73 73 4b 65 79 22 2c |imp_Proc|essKey",|
|00003c10| 62 6c 6b 25 21 32 34 0d | 06 ae 05 cb 0d 06 b8 12 |blk%!24.|........|
|00003c20| c9 39 3a f2 6d 65 6e 75 | 73 65 6c 65 63 74 0d 06 |.9:.menu|select..|
|00003c30| c2 13 c9 31 37 2c 31 38 | 3a f2 72 65 63 65 69 76 |...17,18|:.receiv|
|00003c40| 65 0d 06 cc 05 cb 0d 06 | d6 05 e1 0d 06 e0 0b dd |e.......|........|
|00003c50| f2 63 6c 6f 73 65 0d 06 | ea 26 c8 99 22 57 69 6d |.close..|.&.."Wim|
|00003c60| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 74 61 73 |p_CloseD|own",tas|
|00003c70| 6b 25 2c 26 34 42 35 33 | 34 31 35 34 0d 06 f4 05 |k%,&4B53|4154....|
|00003c80| e1 0d 06 fe 15 dd f2 6f | 70 65 6e 77 69 6e 64 6f |.......o|penwindo|
|00003c90| 77 28 77 68 25 29 0d 07 | 08 0e 62 6c 6b 25 21 30 |w(wh%)..|..blk%!0|
|00003ca0| 3d 77 68 25 0d 07 12 21 | c8 99 22 57 69 6d 70 5f |=wh%...!|.."Wimp_|
|00003cb0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00003cc0| 2c 62 6c 6b 25 0d 07 1c | 0e 62 6c 6b 25 21 32 38 |,blk%...|.blk%!28|
|00003cd0| 3d 2d 31 0d 07 26 1d c8 | 99 22 57 69 6d 70 5f 4f |=-1..&..|."Wimp_O|
|00003ce0| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 25 |penWindo|w",,blk%|
|00003cf0| 0d 07 30 05 e1 0d 07 3a | 16 dd f2 63 6c 6f 73 65 |..0....:|...close|
|00003d00| 77 69 6e 64 6f 77 28 77 | 68 25 29 0d 07 44 0e 62 |window(w|h%)..D.b|
|00003d10| 6c 6b 25 21 30 3d 77 68 | 25 0d 07 4e 21 c8 99 22 |lk%!0=wh|%..N!.."|
|00003d20| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00003d30| 61 74 65 22 2c 2c 62 6c | 6b 25 0d 07 58 1e c8 99 |ate",,bl|k%..X...|
|00003d40| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00003d50| 77 22 2c 2c 62 6c 6b 25 | 0d 07 62 05 e1 0d 07 6c |w",,blk%|..b....l|
|00003d60| 0d dd f2 62 75 74 74 6f | 6e 73 0d 07 76 23 78 25 |...butto|ns..v#x%|
|00003d70| 3d 62 6c 6b 25 21 30 3a | 79 25 3d 62 6c 6b 25 21 |=blk%!0:|y%=blk%!|
|00003d80| 34 3a 62 75 74 25 3d 62 | 6c 6b 25 21 38 0d 07 80 |4:but%=b|lk%!8...|
|00003d90| 1d 77 68 25 3d 62 6c 6b | 25 21 31 32 3a 69 63 6f |.wh%=blk|%!12:ico|
|00003da0| 6e 25 3d 62 6c 6b 25 21 | 31 36 0d 07 8a 0a c8 8e |n%=blk%!|16......|
|00003db0| 77 68 25 ca 0d 07 94 0d | c9 77 68 5f 69 62 61 72 |wh%.....|.wh_ibar|
|00003dc0| 25 0d 07 9e 25 e7 62 75 | 74 25 3d 32 8c f2 73 68 |%...%.bu|t%=2..sh|
|00003dd0| 6f 77 6d 65 6e 75 28 6d | 68 5f 69 62 61 72 25 2c |owmenu(m|h_ibar%,|
|00003de0| 78 25 2c 79 25 29 0d 07 | a8 0d c9 77 68 5f 6f 70 |x%,y%)..|...wh_op|
|00003df0| 74 73 25 0d 07 b2 0c e7 | 62 75 74 25 3d 34 8c 0d |ts%.....|but%=4..|
|00003e00| 07 bc 0c c8 8e 69 63 6f | 6e 25 ca 0d 07 c6 14 c9 |.....ico|n%......|
|00003e10| 31 33 3a f2 64 65 66 61 | 75 6c 74 6f 70 74 73 0d |13:.defa|ultopts.|
|00003e20| 07 d0 2b c9 31 34 3a f2 | 63 6c 6f 73 65 77 69 6e |..+.14:.|closewin|
|00003e30| 64 6f 77 28 77 68 5f 6f | 70 74 73 25 29 3a f2 72 |dow(wh_o|pts%):.r|
|00003e40| 65 73 74 6f 72 65 6f 70 | 74 73 0d 07 da 27 c9 31 |estoreop|ts...'.1|
|00003e50| 35 3a f2 6e 65 77 6f 70 | 74 73 3a f2 63 6c 6f 73 |5:.newop|ts:.clos|
|00003e60| 65 77 69 6e 64 6f 77 28 | 77 68 5f 6f 70 74 73 25 |ewindow(|wh_opts%|
|00003e70| 29 0d 07 e4 31 c9 31 36 | 3a f2 6e 65 77 6f 70 74 |)...1.16|:.newopt|
|00003e80| 73 3a f2 73 61 76 65 6f | 70 74 73 3a f2 63 6c 6f |s:.saveo|pts:.clo|
|00003e90| 73 65 77 69 6e 64 6f 77 | 28 77 68 5f 6f 70 74 73 |sewindow|(wh_opts|
|00003ea0| 25 29 0d 07 ee 05 cb 0d | 07 f8 05 cd 0d 08 02 0c |%)......|........|
|00003eb0| c9 77 68 5f 69 6e 74 25 | 0d 08 0c 1f e7 62 75 74 |.wh_int%|.....but|
|00003ec0| 25 3d 34 80 20 69 63 6f | 6e 25 3d 32 8c f2 69 6e |%=4. ico|n%=2..in|
|00003ed0| 74 65 67 72 61 74 65 0d | 08 16 25 e7 62 75 74 25 |tegrate.|..%.but%|
|00003ee0| 3d 32 8c f2 73 68 6f 77 | 6d 65 6e 75 28 6d 68 5f |=2..show|menu(mh_|
|00003ef0| 77 69 6e 73 25 2c 78 25 | 2c 79 25 29 0d 08 20 0d |wins%,x%|,y%).. .|
|00003f00| c9 77 68 5f 64 69 66 66 | 25 0d 08 2a 1a e7 62 75 |.wh_diff|%..*..bu|
|00003f10| 74 25 3d 34 80 20 69 63 | 6f 6e 25 3d 32 8c f2 64 |t%=4. ic|on%=2..d|
|00003f20| 69 66 66 0d 08 34 25 e7 | 62 75 74 25 3d 32 8c f2 |iff..4%.|but%=2..|
|00003f30| 73 68 6f 77 6d 65 6e 75 | 28 6d 68 5f 77 69 6e 73 |showmenu|(mh_wins|
|00003f40| 25 2c 78 25 2c 79 25 29 | 0d 08 3e 0b c9 77 68 5f |%,x%,y%)|..>..wh_|
|00003f50| 6e 72 25 0d 08 48 18 e7 | 62 75 74 25 3d 34 80 20 |nr%..H..|but%=4. |
|00003f60| 69 63 6f 6e 25 3d 32 8c | f2 6e 72 0d 08 52 25 e7 |icon%=2.|.nr..R%.|
|00003f70| 62 75 74 25 3d 32 8c f2 | 73 68 6f 77 6d 65 6e 75 |but%=2..|showmenu|
|00003f80| 28 6d 68 5f 77 69 6e 73 | 25 2c 78 25 2c 79 25 29 |(mh_wins|%,x%,y%)|
|00003f90| 0d 08 5c 0c c9 77 68 5f | 73 75 6d 25 0d 08 66 19 |..\..wh_|sum%..f.|
|00003fa0| e7 62 75 74 25 3d 34 80 | 20 69 63 6f 6e 25 3d 32 |.but%=4.| icon%=2|
|00003fb0| 8c f2 73 75 6d 0d 08 70 | 25 e7 62 75 74 25 3d 32 |..sum..p|%.but%=2|
|00003fc0| 8c f2 73 68 6f 77 6d 65 | 6e 75 28 6d 68 5f 77 69 |..showme|nu(mh_wi|
|00003fd0| 6e 73 25 2c 78 25 2c 79 | 25 29 0d 08 7a 05 cb 0d |ns%,x%,y|%)..z...|
|00003fe0| 08 84 05 e1 0d 08 8e 0e | dd f2 73 61 76 65 6f 70 |........|..saveop|
|00003ff0| 74 73 0d 08 98 0a ea 66 | 25 2c 61 24 0d 08 a2 1f |ts.....f|%,a$....|
|00004000| 66 25 3d ae 22 3c 4e 75 | 6d 65 72 69 63 24 44 69 |f%=."<Nu|meric$Di|
|00004010| 72 3e 2e 4f 70 74 69 6f | 6e 73 22 0d 08 ac 2b e7 |r>.Optio|ns"...+.|
|00004020| a4 72 65 61 64 69 63 6f | 6e 73 65 6c 28 77 68 5f |.readico|nsel(wh_|
|00004030| 6f 70 74 73 25 2c 34 29 | 8c d5 23 66 25 2c 31 8b |opts%,4)|..#f%,1.|
|00004040| d5 23 66 25 2c 30 0d 08 | b6 2b e7 a4 72 65 61 64 |.#f%,0..|.+..read|
|00004050| 69 63 6f 6e 73 65 6c 28 | 77 68 5f 6f 70 74 73 25 |iconsel(|wh_opts%|
|00004060| 2c 35 29 8c d5 23 66 25 | 2c 31 8b d5 23 66 25 2c |,5)..#f%|,1..#f%,|
|00004070| 30 0d 08 c0 2b e7 a4 72 | 65 61 64 69 63 6f 6e 73 |0...+..r|eadicons|
|00004080| 65 6c 28 77 68 5f 6f 70 | 74 73 25 2c 36 29 8c d5 |el(wh_op|ts%,6)..|
|00004090| 23 66 25 2c 31 8b d5 23 | 66 25 2c 30 0d 08 ca 2b |#f%,1..#|f%,0...+|
|000040a0| e7 a4 72 65 61 64 69 63 | 6f 6e 73 65 6c 28 77 68 |..readic|onsel(wh|
|000040b0| 5f 6f 70 74 73 25 2c 37 | 29 8c d5 23 66 25 2c 31 |_opts%,7|)..#f%,1|
|000040c0| 8b d5 23 66 25 2c 30 0d | 08 d4 21 61 24 3d 24 a4 |..#f%,0.|..!a$=$.|
|000040d0| 72 65 61 64 69 63 6f 6e | 74 65 78 74 28 77 68 5f |readicon|text(wh_|
|000040e0| 6f 70 74 73 25 2c 38 29 | 0d 08 de 17 65 70 73 5f |opts%,8)|....eps_|
|000040f0| 73 6e 61 70 3d bb 28 22 | 31 45 22 2b 61 24 29 0d |snap=.("|1E"+a$).|
|00004100| 08 e8 0b f1 23 66 25 2c | 61 24 0d 08 f2 21 61 24 |....#f%,|a$...!a$|
|00004110| 3d 24 a4 72 65 61 64 69 | 63 6f 6e 74 65 78 74 28 |=$.readi|context(|
|00004120| 77 68 5f 6f 70 74 73 25 | 2c 39 29 0d 08 fc 13 69 |wh_opts%|,9)....i|
|00004130| 6e 74 5f 73 74 72 69 70 | 73 25 3d bb 61 24 0d 09 |nt_strip|s%=.a$..|
|00004140| 06 0b f1 23 66 25 2c 61 | 24 0d 09 10 22 61 24 3d |...#f%,a|$..."a$=|
|00004150| 24 a4 72 65 61 64 69 63 | 6f 6e 74 65 78 74 28 77 |$.readic|ontext(w|
|00004160| 68 5f 6f 70 74 73 25 2c | 31 30 29 0d 09 1a 17 65 |h_opts%,|10)....e|
|00004170| 70 73 5f 64 69 66 66 3d | bb 28 22 31 45 22 2b 61 |ps_diff=|.("1E"+a|
|00004180| 24 29 0d 09 24 0b f1 23 | 66 25 2c 61 24 0d 09 2e |$)..$..#|f%,a$...|
|00004190| 22 61 24 3d 24 a4 72 65 | 61 64 69 63 6f 6e 74 65 |"a$=$.re|adiconte|
|000041a0| 78 74 28 77 68 5f 6f 70 | 74 73 25 2c 31 31 29 0d |xt(wh_op|ts%,11).|
|000041b0| 09 38 16 65 70 73 5f 73 | 75 6d 3d bb 28 22 31 45 |.8.eps_s|um=.("1E|
|000041c0| 22 2b 61 24 29 0d 09 42 | 0b f1 23 66 25 2c 61 24 |"+a$)..B|..#f%,a$|
|000041d0| 0d 09 4c 22 61 24 3d 24 | a4 72 65 61 64 69 63 6f |..L"a$=$|.readico|
|000041e0| 6e 74 65 78 74 28 77 68 | 5f 6f 70 74 73 25 2c 31 |ntext(wh|_opts%,1|
|000041f0| 32 29 0d 09 56 15 65 70 | 73 5f 6e 72 3d bb 28 22 |2)..V.ep|s_nr=.("|
|00004200| 31 45 22 2b 61 24 29 0d | 09 60 0b f1 23 66 25 2c |1E"+a$).|.`..#f%,|
|00004210| 61 24 0d 09 6a 08 d9 23 | 66 25 0d 09 74 05 e1 0d |a$..j..#|f%..t...|
|00004220| 09 7e 0e dd f2 6c 6f 61 | 64 6f 70 74 73 0d 09 88 |.~...loa|dopts...|
|00004230| 0a ea 66 25 2c 61 24 0d | 09 92 1f 66 25 3d 8e 22 |..f%,a$.|...f%=."|
|00004240| 3c 4e 75 6d 65 72 69 63 | 24 44 69 72 3e 2e 4f 70 |<Numeric|$Dir>.Op|
|00004250| 74 69 6f 6e 73 22 0d 09 | 9c 22 e7 66 25 3d 30 8c |tions"..|.".f%=0.|
|00004260| f2 64 65 66 61 75 6c 74 | 6f 70 74 73 3a f2 73 61 |.default|opts:.sa|
|00004270| 76 65 6f 70 74 73 3a e1 | 0d 09 a6 0c e7 9a 23 66 |veopts:.|......#f|
|00004280| 25 3d 31 8c 0d 09 b0 18 | f2 6f 70 65 6e 77 69 6e |%=1.....|.openwin|
|00004290| 64 6f 77 28 77 68 5f 69 | 6e 74 25 29 0d 09 ba 1f |dow(wh_i|nt%)....|
|000042a0| f2 77 72 69 74 65 69 63 | 6f 6e 73 65 6c 28 77 68 |.writeic|onsel(wh|
|000042b0| 5f 6f 70 74 73 25 2c 34 | 2c b9 29 0d 09 c4 05 cd |_opts%,4|,.).....|
|000042c0| 0d 09 ce 0c e7 9a 23 66 | 25 3d 31 8c 0d 09 d8 19 |......#f|%=1.....|
|000042d0| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 77 68 5f 64 |.openwin|dow(wh_d|
|000042e0| 69 66 66 25 29 0d 09 e2 | 1f f2 77 72 69 74 65 69 |iff%)...|..writei|
|000042f0| 63 6f 6e 73 65 6c 28 77 | 68 5f 6f 70 74 73 25 2c |consel(w|h_opts%,|
|00004300| 35 2c b9 29 0d 09 ec 05 | cd 0d 09 f6 0c e7 9a 23 |5,.)....|.......#|
|00004310| 66 25 3d 31 8c 0d 0a 00 | 18 f2 6f 70 65 6e 77 69 |f%=1....|..openwi|
|00004320| 6e 64 6f 77 28 77 68 5f | 73 75 6d 25 29 0d 0a 0a |ndow(wh_|sum%)...|
|00004330| 1f f2 77 72 69 74 65 69 | 63 6f 6e 73 65 6c 28 77 |..writei|consel(w|
|00004340| 68 5f 6f 70 74 73 25 2c | 36 2c b9 29 0d 0a 14 05 |h_opts%,|6,.)....|
|00004350| cd 0d 0a 1e 0c e7 9a 23 | 66 25 3d 31 8c 0d 0a 28 |.......#|f%=1...(|
|00004360| 17 f2 6f 70 65 6e 77 69 | 6e 64 6f 77 28 77 68 5f |..openwi|ndow(wh_|
|00004370| 6e 72 25 29 0d 0a 32 1f | f2 77 72 69 74 65 69 63 |nr%)..2.|.writeic|
|00004380| 6f 6e 73 65 6c 28 77 68 | 5f 6f 70 74 73 25 2c 37 |onsel(wh|_opts%,7|
|00004390| 2c b9 29 0d 0a 3c 05 cd | 0d 0a 46 1f e8 23 66 25 |,.)..<..|..F..#f%|
|000043a0| 2c 61 24 3a 65 70 73 5f | 73 6e 61 70 3d bb 28 22 |,a$:eps_|snap=.("|
|000043b0| 31 45 22 2b 61 24 29 0d | 0a 50 21 f2 77 72 69 74 |1E"+a$).|.P!.writ|
|000043c0| 65 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 6f 70 74 |eicontex|t(wh_opt|
|000043d0| 73 25 2c 38 2c 61 24 29 | 0d 0a 5a 1b e8 23 66 25 |s%,8,a$)|..Z..#f%|
|000043e0| 2c 61 24 3a 69 6e 74 5f | 73 74 72 69 70 73 25 3d |,a$:int_|strips%=|
|000043f0| bb 61 24 0d 0a 64 21 f2 | 77 72 69 74 65 69 63 6f |.a$..d!.|writeico|
|00004400| 6e 74 65 78 74 28 77 68 | 5f 6f 70 74 73 25 2c 39 |ntext(wh|_opts%,9|
|00004410| 2c 61 24 29 0d 0a 6e 1f | e8 23 66 25 2c 61 24 3a |,a$)..n.|.#f%,a$:|
|00004420| 65 70 73 5f 64 69 66 66 | 3d bb 28 22 31 45 22 2b |eps_diff|=.("1E"+|
|00004430| 61 24 29 0d 0a 78 22 f2 | 77 72 69 74 65 69 63 6f |a$)..x".|writeico|
|00004440| 6e 74 65 78 74 28 77 68 | 5f 6f 70 74 73 25 2c 31 |ntext(wh|_opts%,1|
|00004450| 30 2c 61 24 29 0d 0a 82 | 1e e8 23 66 25 2c 61 24 |0,a$)...|..#f%,a$|
|00004460| 3a 65 70 73 5f 73 75 6d | 3d bb 28 22 31 45 22 2b |:eps_sum|=.("1E"+|
|00004470| 61 24 29 0d 0a 8c 22 f2 | 77 72 69 74 65 69 63 6f |a$)...".|writeico|
|00004480| 6e 74 65 78 74 28 77 68 | 5f 6f 70 74 73 25 2c 31 |ntext(wh|_opts%,1|
|00004490| 31 2c 61 24 29 0d 0a 96 | 1d e8 23 66 25 2c 61 24 |1,a$)...|..#f%,a$|
|000044a0| 3a 65 70 73 5f 6e 72 3d | bb 28 22 31 45 22 2b 61 |:eps_nr=|.("1E"+a|
|000044b0| 24 29 0d 0a a0 22 f2 77 | 72 69 74 65 69 63 6f 6e |$)...".w|riteicon|
|000044c0| 74 65 78 74 28 77 68 5f | 6f 70 74 73 25 2c 31 32 |text(wh_|opts%,12|
|000044d0| 2c 61 24 29 0d 0a aa 08 | d9 23 66 25 0d 0a b4 05 |,a$)....|.#f%....|
|000044e0| e1 0d 0a be 10 dd f2 62 | 61 63 6b 75 70 6f 70 74 |.......b|ackupopt|
|000044f0| 73 0d 0a c8 07 ea 69 25 | 0d 0a d2 0b e3 69 25 3d |s.....i%|.....i%=|
|00004500| 30 b8 33 0d 0a dc 29 6f | 70 74 73 25 28 69 25 29 |0.3...)o|pts%(i%)|
|00004510| 3d a4 72 65 61 64 69 63 | 6f 6e 73 65 6c 28 77 68 |=.readic|onsel(wh|
|00004520| 5f 6f 70 74 73 25 2c 69 | 25 2b 34 29 0d 0a e6 05 |_opts%,i|%+4)....|
|00004530| ed 0d 0a f0 0b e3 69 25 | 3d 30 b8 34 0d 0a fa 2b |......i%|=0.4...+|
|00004540| 6f 70 74 73 24 28 69 25 | 29 3d 24 a4 72 65 61 64 |opts$(i%|)=$.read|
|00004550| 69 63 6f 6e 74 65 78 74 | 28 77 68 5f 6f 70 74 73 |icontext|(wh_opts|
|00004560| 25 2c 69 25 2b 38 29 0d | 0b 04 05 ed 0d 0b 0e 05 |%,i%+8).|........|
|00004570| e1 0d 0b 18 11 dd f2 72 | 65 73 74 6f 72 65 6f 70 |.......r|estoreop|
|00004580| 74 73 0d 0b 22 07 ea 69 | 25 0d 0b 2c 0b e3 69 25 |ts.."..i|%..,..i%|
|00004590| 3d 30 b8 33 0d 0b 36 2a | f2 77 72 69 74 65 69 63 |=0.3..6*|.writeic|
|000045a0| 6f 6e 73 65 6c 28 77 68 | 5f 6f 70 74 73 25 2c 69 |onsel(wh|_opts%,i|
|000045b0| 25 2b 34 2c 6f 70 74 73 | 25 28 69 25 29 29 0d 0b |%+4,opts|%(i%))..|
|000045c0| 40 05 ed 0d 0b 4a 0b e3 | 69 25 3d 30 b8 34 0d 0b |@....J..|i%=0.4..|
|000045d0| 54 2b f2 77 72 69 74 65 | 69 63 6f 6e 74 65 78 74 |T+.write|icontext|
|000045e0| 28 77 68 5f 6f 70 74 73 | 25 2c 69 25 2b 38 2c 6f |(wh_opts|%,i%+8,o|
|000045f0| 70 74 73 24 28 69 25 29 | 29 0d 0b 5e 05 ed 0d 0b |pts$(i%)|)..^....|
|00004600| 68 05 e1 0d 0b 72 0d dd | f2 6e 65 77 6f 70 74 73 |h....r..|.newopts|
|00004610| 0d 0b 7c 2f 65 70 73 5f | 73 6e 61 70 3d bb 28 22 |..|/eps_|snap=.("|
|00004620| 31 45 22 2b 24 a4 72 65 | 61 64 69 63 6f 6e 74 65 |1E"+$.re|adiconte|
|00004630| 78 74 28 77 68 5f 6f 70 | 74 73 25 2c 38 29 29 0d |xt(wh_op|ts%,8)).|
|00004640| 0b 86 2d 69 6e 74 5f 73 | 74 72 69 70 73 25 3d bb |..-int_s|trips%=.|
|00004650| 28 24 a4 72 65 61 64 69 | 63 6f 6e 74 65 78 74 28 |($.readi|context(|
|00004660| 77 68 5f 6f 70 74 73 25 | 2c 39 29 29 0d 0b 90 30 |wh_opts%|,9))...0|
|00004670| 65 70 73 5f 64 69 66 66 | 3d bb 28 22 31 45 22 2b |eps_diff|=.("1E"+|
|00004680| 24 a4 72 65 61 64 69 63 | 6f 6e 74 65 78 74 28 77 |$.readic|ontext(w|
|00004690| 68 5f 6f 70 74 73 25 2c | 31 30 29 29 0d 0b 9a 2f |h_opts%,|10)).../|
|000046a0| 65 70 73 5f 73 75 6d 3d | bb 28 22 31 45 22 2b 24 |eps_sum=|.("1E"+$|
|000046b0| a4 72 65 61 64 69 63 6f | 6e 74 65 78 74 28 77 68 |.readico|ntext(wh|
|000046c0| 5f 6f 70 74 73 25 2c 31 | 31 29 29 0d 0b a4 2e 65 |_opts%,1|1))....e|
|000046d0| 70 73 5f 6e 72 3d bb 28 | 22 31 45 22 2b 24 a4 72 |ps_nr=.(|"1E"+$.r|
|000046e0| 65 61 64 69 63 6f 6e 74 | 65 78 74 28 77 68 5f 6f |eadicont|ext(wh_o|
|000046f0| 70 74 73 25 2c 31 32 29 | 29 0d 0b ae 05 e1 0d 0b |pts%,12)|).......|
|00004700| b8 11 dd f2 64 65 66 61 | 75 6c 74 6f 70 74 73 0d |....defa|ultopts.|
|00004710| 0b c2 16 ea 69 63 6f 6e | 25 2c 6f 6c 64 6c 25 2c |....icon|%,oldl%,|
|00004720| 6e 65 77 6c 25 0d 0b cc | 23 f2 77 72 69 74 65 69 |newl%...|#.writei|
|00004730| 63 6f 6e 74 65 78 74 28 | 77 68 5f 6f 70 74 73 25 |context(|wh_opts%|
|00004740| 2c 38 2c 22 2d 38 22 29 | 0d 0b d6 24 f2 77 72 69 |,8,"-8")|...$.wri|
|00004750| 74 65 69 63 6f 6e 74 65 | 78 74 28 77 68 5f 6f 70 |teiconte|xt(wh_op|
|00004760| 74 73 25 2c 39 2c 22 31 | 30 30 22 29 0d 0b e0 25 |ts%,9,"1|00")...%|
|00004770| f2 77 72 69 74 65 69 63 | 6f 6e 74 65 78 74 28 77 |.writeic|ontext(w|
|00004780| 68 5f 6f 70 74 73 25 2c | 31 30 2c 22 2d 31 30 22 |h_opts%,|10,"-10"|
|00004790| 29 0d 0b ea 24 f2 77 72 | 69 74 65 69 63 6f 6e 74 |)...$.wr|iteicont|
|000047a0| 65 78 74 28 77 68 5f 6f | 70 74 73 25 2c 31 31 2c |ext(wh_o|pts%,11,|
|000047b0| 22 2d 37 22 29 0d 0b f4 | 24 f2 77 72 69 74 65 69 |"-7")...|$.writei|
|000047c0| 63 6f 6e 74 65 78 74 28 | 77 68 5f 6f 70 74 73 25 |context(|wh_opts%|
|000047d0| 2c 31 32 2c 22 2d 38 22 | 29 0d 0b fe 24 c8 99 22 |,12,"-8"|)...$.."|
|000047e0| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|000047f0| 69 74 69 6f 6e 22 2c 2c | 62 6c 6b 32 25 0d 0c 08 |ition",,|blk2%...|
|00004800| 12 6f 6c 64 6c 25 3d 62 | 6c 6b 32 25 21 32 30 0d |.oldl%=b|lk2%!20.|
|00004810| 0c 12 16 e7 62 6c 6b 32 | 25 21 30 3d 77 68 5f 6f |....blk2|%!0=wh_o|
|00004820| 70 74 73 25 8c 0d 0c 1c | 11 69 63 6f 6e 25 3d 62 |pts%....|.icon%=b|
|00004830| 6c 6b 32 25 21 34 0d 0c | 26 2b 6e 65 77 6c 25 3d |lk2%!4..|&+newl%=|
|00004840| a9 28 24 a4 72 65 61 64 | 69 63 6f 6e 74 65 78 74 |.($.read|icontext|
|00004850| 28 77 68 5f 6f 70 74 73 | 25 2c 69 63 6f 6e 25 29 |(wh_opts|%,icon%)|
|00004860| 29 0d 0c 30 1c e7 6e 65 | 77 6c 25 3c 6f 6c 64 6c |)..0..ne|wl%<oldl|
|00004870| 25 8c 6f 6c 64 6c 25 3d | 6e 65 77 6c 25 0d 0c 3a |%.oldl%=|newl%..:|
|00004880| 37 c8 99 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |7.."Wimp|_SetCare|
|00004890| 74 50 6f 73 69 74 69 6f | 6e 22 2c 77 68 5f 6f 70 |tPositio|n",wh_op|
|000048a0| 74 73 25 2c 69 63 6f 6e | 25 2c 2c 2c 2d 31 2c 6f |ts%,icon|%,,,-1,o|
|000048b0| 6c 64 6c 25 0d 0c 44 05 | cd 0d 0c 4e 05 e1 0d 0c |ldl%..D.|...N....|
|000048c0| 58 10 dd f2 6d 65 6e 75 | 73 65 6c 65 63 74 0d 0c |X...menu|select..|
|000048d0| 62 1c ea 73 65 6c 31 24 | 2c 73 65 6c 32 24 2c 6d |b..sel1$|,sel2$,m|
|000048e0| 68 25 2c 61 64 6a 75 73 | 74 25 0d 0c 6c 0a c8 8e |h%,adjus|t%..l...|
|000048f0| 77 68 25 ca 0d 0c 76 1a | c9 77 68 5f 69 62 61 72 |wh%...v.|.wh_ibar|
|00004900| 25 3a 6d 68 25 3d 6d 68 | 5f 69 62 61 72 25 0d 0c |%:mh%=mh|_ibar%..|
|00004910| 80 12 7f 3a 6d 68 25 3d | 6d 68 5f 77 69 6e 73 25 |...:mh%=|mh_wins%|
|00004920| 0d 0c 8a 05 cb 0d 0c 94 | 27 c8 99 22 57 69 6d 70 |........|'.."Wimp|
|00004930| 5f 44 65 63 6f 64 65 4d | 65 6e 75 22 2c 2c 6d 68 |_DecodeM|enu",,mh|
|00004940| 25 2c 62 6c 6b 25 2c 62 | 6c 6b 32 25 0d 0c 9e 1e |%,blk%,b|lk2%....|
|00004950| f2 73 70 6c 69 74 28 24 | 62 6c 6b 32 25 2c 73 65 |.split($|blk2%,se|
|00004960| 6c 31 24 2c 73 65 6c 32 | 24 29 0d 0c a8 21 c8 99 |l1$,sel2|$)...!..|
|00004970| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00004980| 49 6e 66 6f 22 2c 2c 62 | 6c 6b 25 0d 0c b2 15 61 |Info",,b|lk%....a|
|00004990| 64 6a 75 73 74 25 3d 62 | 6c 6b 25 21 38 80 20 31 |djust%=b|lk%!8. 1|
|000049a0| 0d 0c bc 08 c8 8e b9 ca | 0d 0c c6 19 c9 73 65 6c |........|.....sel|
|000049b0| 31 24 3d 22 51 75 69 74 | 22 3a 71 75 69 74 25 3d |1$="Quit|":quit%=|
|000049c0| b9 0d 0c d0 14 c9 c0 73 | 65 6c 31 24 2c 33 29 3d |.......s|el1$,3)=|
|000049d0| 22 4f 70 74 22 0d 0c da | 0f f2 62 61 63 6b 75 70 |"Opt"...|..backup|
|000049e0| 6f 70 74 73 0d 0c e4 19 | f2 6f 70 65 6e 77 69 6e |opts....|.openwin|
|000049f0| 64 6f 77 28 77 68 5f 6f | 70 74 73 25 29 0d 0c ee |dow(wh_o|pts%)...|
|00004a00| 29 c9 c0 73 65 6c 31 24 | 2c 33 29 3d 22 49 6e 74 |)..sel1$|,3)="Int|
|00004a10| 22 3a f2 6f 70 65 6e 77 | 69 6e 64 6f 77 28 77 68 |":.openw|indow(wh|
|00004a20| 5f 69 6e 74 25 29 0d 0c | f8 2a c9 c0 73 65 6c 31 |_int%)..|.*..sel1|
|00004a30| 24 2c 33 29 3d 22 44 69 | 66 22 3a f2 6f 70 65 6e |$,3)="Di|f":.open|
|00004a40| 77 69 6e 64 6f 77 28 77 | 68 5f 64 69 66 66 25 29 |window(w|h_diff%)|
|00004a50| 0d 0d 02 29 c9 c0 73 65 | 6c 31 24 2c 33 29 3d 22 |...)..se|l1$,3)="|
|00004a60| 53 75 6d 22 3a f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |Sum":.op|enwindow|
|00004a70| 28 77 68 5f 73 75 6d 25 | 29 0d 0d 0c 28 c9 c0 73 |(wh_sum%|)...(..s|
|00004a80| 65 6c 31 24 2c 33 29 3d | 22 53 6f 6c 22 3a f2 6f |el1$,3)=|"Sol":.o|
|00004a90| 70 65 6e 77 69 6e 64 6f | 77 28 77 68 5f 6e 72 25 |penwindo|w(wh_nr%|
|00004aa0| 29 0d 0d 16 05 cb 0d 0d | 20 0c e7 ac 71 75 69 74 |).......| ...quit|
|00004ab0| 25 8c 0d 0d 2a 23 e7 61 | 64 6a 75 73 74 25 3d 31 |%...*#.a|djust%=1|
|00004ac0| 8c f2 73 68 6f 77 6d 65 | 6e 75 28 6d 68 25 2c 78 |..showme|nu(mh%,x|
|00004ad0| 25 2c 79 25 29 0d 0d 34 | 05 cd 0d 0d 3e 05 e1 0d |%,y%)..4|....>...|
|00004ae0| 0d 48 21 dd f2 73 70 6c | 69 74 28 74 65 78 74 24 |.H!..spl|it(text$|
|00004af0| 2c f8 66 69 72 73 74 24 | 2c f8 72 65 73 74 24 29 |,.first$|,.rest$)|
|00004b00| 0d 0d 52 13 e7 a7 74 65 | 78 74 24 2c 22 2e 22 29 |..R...te|xt$,".")|
|00004b10| 3d 30 8c 0d 0d 5c 10 66 | 69 72 73 74 24 3d 74 65 |=0...\.f|irst$=te|
|00004b20| 78 74 24 0d 0d 66 0c 72 | 65 73 74 24 3d 22 22 0d |xt$..f.r|est$="".|
|00004b30| 0d 70 05 cc 0d 0d 7a 20 | 66 69 72 73 74 24 3d c0 |.p....z |first$=.|
|00004b40| 74 65 78 74 24 2c a7 74 | 65 78 74 24 2c 22 2e 22 |text$,.t|ext$,"."|
|00004b50| 29 2d 31 29 0d 0d 84 26 | 72 65 73 74 24 3d c2 74 |)-1)...&|rest$=.t|
|00004b60| 65 78 74 24 2c a9 28 74 | 65 78 74 24 29 2d a7 74 |ext$,.(t|ext$)-.t|
|00004b70| 65 78 74 24 2c 22 2e 22 | 29 29 0d 0d 8e 05 cd 0d |ext$,"."|))......|
|00004b80| 0d 98 05 e1 0d 0d a2 1b | dd f2 73 68 6f 77 6d 65 |........|..showme|
|00004b90| 6e 75 28 6d 65 6e 75 25 | 2c 78 25 2c 79 25 29 0d |nu(menu%|,x%,y%).|
|00004ba0| 0d ac 0a ea 79 70 6f 73 | 25 0d 0d b6 31 e7 77 68 |....ypos|%...1.wh|
|00004bb0| 25 3d 77 68 5f 69 62 61 | 72 25 8c 79 70 6f 73 25 |%=wh_iba|r%.ypos%|
|00004bc0| 3d 39 36 2b 6d 68 67 74 | 5f 69 62 61 72 25 8b 79 |=96+mhgt|_ibar%.y|
|00004bd0| 70 6f 73 25 3d 79 25 2b | 32 30 0d 0d c0 2a c8 99 |pos%=y%+|20...*..|
|00004be0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00004bf0| 22 2c 2c 6d 65 6e 75 25 | 2c 78 25 2d 36 34 2c 79 |",,menu%|,x%-64,y|
|00004c00| 70 6f 73 25 0d 0d ca 05 | e1 0d 0d d4 1d dd a4 72 |pos%....|.......r|
|00004c10| 65 61 64 69 63 6f 6e 74 | 65 78 74 28 77 68 25 2c |eadicont|ext(wh%,|
|00004c20| 69 63 6f 6e 25 29 0d 0d | de 1d 62 6c 6b 32 25 21 |icon%)..|..blk2%!|
|00004c30| 30 3d 77 68 25 3a 62 6c | 6b 32 25 21 34 3d 69 63 |0=wh%:bl|k2%!4=ic|
|00004c40| 6f 6e 25 0d 0d e8 20 c8 | 99 22 57 69 6d 70 5f 47 |on%... .|."Wimp_G|
|00004c50| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00004c60| 6b 32 25 0d 0d f2 0d 3d | 62 6c 6b 32 25 21 32 38 |k2%....=|blk2%!28|
|00004c70| 0d 0d fc 24 dd f2 77 72 | 69 74 65 69 63 6f 6e 74 |...$..wr|iteicont|
|00004c80| 65 78 74 28 77 68 25 2c | 69 63 6f 6e 25 2c 74 65 |ext(wh%,|icon%,te|
|00004c90| 78 74 24 29 0d 0e 06 1d | 62 6c 6b 32 25 21 30 3d |xt$)....|blk2%!0=|
|00004ca0| 77 68 25 3a 62 6c 6b 32 | 25 21 34 3d 69 63 6f 6e |wh%:blk2|%!4=icon|
|00004cb0| 25 0d 0e 10 20 c8 99 22 | 57 69 6d 70 5f 47 65 74 |%... .."|Wimp_Get|
|00004cc0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 62 6c 6b 32 |IconStat|e",,blk2|
|00004cd0| 25 0d 0e 1a 37 e7 28 62 | 6c 6b 32 25 21 32 34 80 |%...7.(b|lk2%!24.|
|00004ce0| 20 31 3c 3c 38 29 3d 30 | 8c 85 31 2c a4 6d 65 73 | 1<<8)=0|..1,.mes|
|00004cf0| 73 61 67 65 28 22 65 72 | 72 2e 69 63 6f 6e 3a 22 |sage("er|r.icon:"|
|00004d00| 2b c3 69 63 6f 6e 25 29 | 0d 0e 24 1d 62 6c 6b 32 |+.icon%)|..$.blk2|
|00004d10| 25 21 30 3d 77 68 25 3a | 62 6c 6b 32 25 21 34 3d |%!0=wh%:|blk2%!4=|
|00004d20| 69 63 6f 6e 25 0d 0e 2e | 18 62 6c 6b 32 25 21 38 |icon%...|.blk2%!8|
|00004d30| 3d 30 3a 62 6c 6b 32 25 | 21 31 32 3d 30 0d 0e 38 |=0:blk2%|!12=0..8|
|00004d40| 15 24 28 62 6c 6b 32 25 | 21 32 38 29 3d 74 65 78 |.$(blk2%|!28)=tex|
|00004d50| 74 24 0d 0e 42 20 c8 99 | 22 57 69 6d 70 5f 53 65 |t$..B ..|"Wimp_Se|
|00004d60| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6b |tIconSta|te",,blk|
|00004d70| 32 25 0d 0e 4c 05 e1 0d | 0e 56 1c dd a4 72 65 61 |2%..L...|.V...rea|
|00004d80| 64 69 63 6f 6e 73 65 6c | 28 77 68 25 2c 69 63 6f |diconsel|(wh%,ico|
|00004d90| 6e 25 29 0d 0e 60 1d 62 | 6c 6b 32 25 21 30 3d 77 |n%)..`.b|lk2%!0=w|
|00004da0| 68 25 3a 62 6c 6b 32 25 | 21 34 3d 69 63 6f 6e 25 |h%:blk2%|!4=icon%|
|00004db0| 0d 0e 6a 20 c8 99 22 57 | 69 6d 70 5f 47 65 74 49 |..j .."W|imp_GetI|
|00004dc0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6b 32 25 |conState|",,blk2%|
|00004dd0| 0d 0e 74 18 3d 28 62 6c | 6b 32 25 21 32 34 80 20 |..t.=(bl|k2%!24. |
|00004de0| 31 3c 3c 32 31 29 3e 30 | 0d 0e 7e 22 dd f2 77 72 |1<<21)>0|..~"..wr|
|00004df0| 69 74 65 69 63 6f 6e 73 | 65 6c 28 77 68 25 2c 69 |iteicons|el(wh%,i|
|00004e00| 63 6f 6e 25 2c 73 65 6c | 25 29 0d 0e 88 1d 62 6c |con%,sel|%)....bl|
|00004e10| 6b 32 25 21 30 3d 77 68 | 25 3a 62 6c 6b 32 25 21 |k2%!0=wh|%:blk2%!|
|00004e20| 34 3d 69 63 6f 6e 25 0d | 0e 92 20 c8 99 22 57 69 |4=icon%.|.. .."Wi|
|00004e30| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00004e40| 2c 2c 62 6c 6b 32 25 0d | 0e 9c 1d 62 6c 6b 32 25 |,,blk2%.|...blk2%|
|00004e50| 21 30 3d 77 68 25 3a 62 | 6c 6b 32 25 21 34 3d 69 |!0=wh%:b|lk2%!4=i|
|00004e60| 63 6f 6e 25 0d 0e a6 21 | e7 73 65 6c 25 8c 62 6c |con%...!|.sel%.bl|
|00004e70| 6b 32 25 21 38 3d 31 3c | 3c 32 31 8b 62 6c 6b 32 |k2%!8=1<|<21.blk2|
|00004e80| 25 21 38 3d 30 0d 0e b0 | 12 62 6c 6b 32 25 21 31 |%!8=0...|.blk2%!1|
|00004e90| 32 3d 31 3c 3c 32 31 0d | 0e ba 20 c8 99 22 57 69 |2=1<<21.|.. .."Wi|
|00004ea0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00004eb0| 2c 2c 62 6c 6b 32 25 0d | 0e c4 05 e1 0d 0e ce 08 |,,blk2%.|........|
|00004ec0| dd f2 75 70 0d 0e d8 1a | ea 77 68 25 2c 69 63 6f |..up....|.wh%,ico|
|00004ed0| 6e 25 2c 6f 6c 64 6c 25 | 2c 6e 65 77 6c 25 0d 0e |n%,oldl%|,newl%..|
|00004ee0| e2 1b 77 68 25 3d 62 6c | 6b 25 21 30 3a 69 63 6f |..wh%=bl|k%!0:ico|
|00004ef0| 6e 25 3d 62 6c 6b 25 21 | 34 0d 0e ec 23 c8 99 22 |n%=blk%!|4...#.."|
|00004f00| 57 69 6d 70 5f 47 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Get|CaretPos|
|00004f10| 69 74 69 6f 6e 22 2c 2c | 62 6c 6b 25 0d 0e f6 11 |ition",,|blk%....|
|00004f20| 6f 6c 64 6c 25 3d 62 6c | 6b 25 21 32 30 0d 0f 00 |oldl%=bl|k%!20...|
|00004f30| 0a c8 8e 77 68 25 ca 0d | 0f 0a 14 c9 77 68 5f 69 |...wh%..|....wh_i|
|00004f40| 6e 74 25 2c 77 68 5f 73 | 75 6d 25 0d 0f 14 1b 69 |nt%,wh_s|um%....i|
|00004f50| 63 6f 6e 25 3d 28 28 69 | 63 6f 6e 25 2d 33 2b 32 |con%=((i|con%-3+2|
|00004f60| 29 83 33 29 2b 33 0d 0f | 1e 14 c9 77 68 5f 64 69 |).3)+3..|...wh_di|
|00004f70| 66 66 25 2c 77 68 5f 6e | 72 25 0d 0f 28 1b 69 63 |ff%,wh_n|r%..(.ic|
|00004f80| 6f 6e 25 3d 28 28 69 63 | 6f 6e 25 2d 33 2b 31 29 |on%=((ic|on%-3+1)|
|00004f90| 83 32 29 2b 33 0d 0f 32 | 0d c9 77 68 5f 6f 70 74 |.2)+3..2|..wh_opt|
|00004fa0| 73 25 0d 0f 3c 1b 69 63 | 6f 6e 25 3d 28 28 69 63 |s%..<.ic|on%=((ic|
|00004fb0| 6f 6e 25 2d 38 2b 34 29 | 83 35 29 2b 38 0d 0f 46 |on%-8+4)|.5)+8..F|
|00004fc0| 05 cb 0d 0f 50 26 6e 65 | 77 6c 25 3d a9 28 24 a4 |....P&ne|wl%=.($.|
|00004fd0| 72 65 61 64 69 63 6f 6e | 74 65 78 74 28 77 68 25 |readicon|text(wh%|
|00004fe0| 2c 69 63 6f 6e 25 29 29 | 0d 0f 5a 1c e7 6e 65 77 |,icon%))|..Z..new|
|00004ff0| 6c 25 3e 6f 6c 64 6c 25 | 8c 6e 65 77 6c 25 3d 6f |l%>oldl%|.newl%=o|
|00005000| 6c 64 6c 25 0d 0f 64 32 | c8 99 22 57 69 6d 70 5f |ldl%..d2|.."Wimp_|
|00005010| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00005020| 22 2c 77 68 25 2c 69 63 | 6f 6e 25 2c 2c 2c 2d 31 |",wh%,ic|on%,,,-1|
|00005030| 2c 6e 65 77 6c 25 0d 0f | 6e 05 e1 0d 0f 78 0a dd |,newl%..|n....x..|
|00005040| f2 64 6f 77 6e 0d 0f 82 | 0e ea 77 68 25 2c 69 63 |.down...|..wh%,ic|
|00005050| 6f 6e 25 0d 0f 8c 1b 77 | 68 25 3d 62 6c 6b 25 21 |on%....w|h%=blk%!|
|00005060| 30 3a 69 63 6f 6e 25 3d | 62 6c 6b 25 21 34 0d 0f |0:icon%=|blk%!4..|
|00005070| 96 23 c8 99 22 57 69 6d | 70 5f 47 65 74 43 61 72 |.#.."Wim|p_GetCar|
|00005080| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2c 62 6c 6b |etPositi|on",,blk|
|00005090| 25 0d 0f a0 11 6f 6c 64 | 6c 25 3d 62 6c 6b 25 21 |%....old|l%=blk%!|
|000050a0| 32 30 0d 0f aa 0a c8 8e | 77 68 25 ca 0d 0f b4 14 |20......|wh%.....|
|000050b0| c9 77 68 5f 69 6e 74 25 | 2c 77 68 5f 73 75 6d 25 |.wh_int%|,wh_sum%|
|000050c0| 0d 0f be 1b 69 63 6f 6e | 25 3d 28 28 69 63 6f 6e |....icon|%=((icon|
|000050d0| 25 2d 33 2b 31 29 83 33 | 29 2b 33 0d 0f c8 14 c9 |%-3+1).3|)+3.....|
|000050e0| 77 68 5f 64 69 66 66 25 | 2c 77 68 5f 6e 72 25 0d |wh_diff%|,wh_nr%.|
|000050f0| 0f d2 1b 69 63 6f 6e 25 | 3d 28 28 69 63 6f 6e 25 |...icon%|=((icon%|
|00005100| 2d 33 2b 31 29 83 32 29 | 2b 33 0d 0f dc 0d c9 77 |-3+1).2)|+3.....w|
|00005110| 68 5f 6f 70 74 73 25 0d | 0f e6 1b 69 63 6f 6e 25 |h_opts%.|...icon%|
|00005120| 3d 28 28 69 63 6f 6e 25 | 2d 38 2b 31 29 83 35 29 |=((icon%|-8+1).5)|
|00005130| 2b 38 0d 0f f0 05 cb 0d | 0f fa 26 6e 65 77 6c 25 |+8......|..&newl%|
|00005140| 3d a9 28 24 a4 72 65 61 | 64 69 63 6f 6e 74 65 78 |=.($.rea|dicontex|
|00005150| 74 28 77 68 25 2c 69 63 | 6f 6e 25 29 29 0d 10 04 |t(wh%,ic|on%))...|
|00005160| 1c e7 6e 65 77 6c 25 3e | 6f 6c 64 6c 25 8c 6e 65 |..newl%>|oldl%.ne|
|00005170| 77 6c 25 3d 6f 6c 64 6c | 25 0d 10 0e 32 c8 99 22 |wl%=oldl|%...2.."|
|00005180| 57 69 6d 70 5f 53 65 74 | 43 61 72 65 74 50 6f 73 |Wimp_Set|CaretPos|
|00005190| 69 74 69 6f 6e 22 2c 77 | 68 25 2c 69 63 6f 6e 25 |ition",w|h%,icon%|
|000051a0| 2c 2c 2c 2d 31 2c 6e 65 | 77 6c 25 0d 10 18 05 e1 |,,,-1,ne|wl%.....|
|000051b0| 0d 10 22 0b dd f2 65 6e | 74 65 72 0d 10 2c 0e ea |.."...en|ter..,..|
|000051c0| 77 68 25 2c 69 63 6f 6e | 25 0d 10 36 1b 77 68 25 |wh%,icon|%..6.wh%|
|000051d0| 3d 62 6c 6b 25 21 30 3a | 69 63 6f 6e 25 3d 62 6c |=blk%!0:|icon%=bl|
|000051e0| 6b 25 21 34 0d 10 40 0a | c8 8e 77 68 25 ca 0d 10 |k%!4..@.|..wh%...|
|000051f0| 4a 14 c9 77 68 5f 69 6e | 74 25 2c 77 68 5f 73 75 |J..wh_in|t%,wh_su|
|00005200| 6d 25 0d 10 54 0d e7 69 | 63 6f 6e 25 3d 35 8c 0d |m%..T..i|con%=5..|
|00005210| 10 5e 20 e7 77 68 25 3d | 77 68 5f 69 6e 74 25 8c |.^ .wh%=|wh_int%.|
|00005220| f2 69 6e 74 65 67 72 61 | 74 65 8b f2 73 75 6d 0d |.integra|te..sum.|
|00005230| 10 68 05 cc 0d 10 72 09 | f2 64 6f 77 6e 0d 10 7c |.h....r.|.down..||
|00005240| 05 cd 0d 10 86 14 c9 77 | 68 5f 64 69 66 66 25 2c |.......w|h_diff%,|
|00005250| 77 68 5f 6e 72 25 0d 10 | 90 0d e7 69 63 6f 6e 25 |wh_nr%..|...icon%|
|00005260| 3d 34 8c 0d 10 9a 19 e7 | 77 68 25 3d 77 68 5f 6e |=4......|wh%=wh_n|
|00005270| 72 25 8c f2 6e 72 8b f2 | 64 69 66 66 0d 10 a4 05 |r%..nr..|diff....|
|00005280| cc 0d 10 ae 09 f2 64 6f | 77 6e 0d 10 b8 05 cd 0d |......do|wn......|
|00005290| 10 c2 0d c9 77 68 5f 6f | 70 74 73 25 0d 10 cc 0e |....wh_o|pts%....|
|000052a0| e7 69 63 6f 6e 25 3d 31 | 32 8c 0d 10 d6 24 f2 73 |.icon%=1|2....$.s|
|000052b0| 61 76 65 6f 70 74 73 3a | f2 63 6c 6f 73 65 77 69 |aveopts:|.closewi|
|000052c0| 6e 64 6f 77 28 77 68 5f | 6f 70 74 73 25 29 0d 10 |ndow(wh_|opts%)..|
|000052d0| e0 05 cc 0d 10 ea 09 f2 | 64 6f 77 6e 0d 10 f4 05 |........|down....|
|000052e0| cd 0d 10 fe 05 cb 0d 11 | 08 05 e1 0d 11 12 14 dd |........|........|
|000052f0| a4 6d 65 73 73 61 67 65 | 28 6d 65 73 73 24 29 0d |.message|(mess$).|
|00005300| 11 1c 1d ea 69 25 2c 63 | 6f 6c 25 2c 6c 65 6e 25 |....i%,c|ol%,len%|
|00005310| 2c 74 6f 6b 65 6e 24 2c | 73 74 72 24 0d 11 26 1b |,token$,|str$..&.|
|00005320| 69 25 3d 30 3a 73 24 28 | 29 3d 22 22 3a 73 74 72 |i%=0:s$(|)="":str|
|00005330| 24 3d 6d 65 73 73 24 0d | 11 30 0e c8 95 73 74 72 |$=mess$.|.0...str|
|00005340| 24 3c 3e 22 22 0d 11 3a | 17 63 6f 6c 25 3d a7 73 |$<>""..:|.col%=.s|
|00005350| 74 72 24 2b 22 3a 22 2c | 22 3a 22 29 0d 11 44 18 |tr$+":",|":")..D.|
|00005360| 73 24 28 69 25 29 3d c0 | 73 74 72 24 2c 63 6f 6c |s$(i%)=.|str$,col|
|00005370| 25 2d 31 29 0d 11 4e 16 | 73 74 72 24 3d c1 73 74 |%-1)..N.|str$=.st|
|00005380| 72 24 2c 63 6f 6c 25 2b | 31 29 0d 11 58 09 69 25 |r$,col%+|1)..X.i%|
|00005390| 2b 3d 31 0d 11 62 05 ce | 0d 11 6c 10 74 6f 6b 65 |+=1..b..|..l.toke|
|000053a0| 6e 24 3d 73 24 28 30 29 | 0d 11 76 56 c8 99 22 4d |n$=s$(0)|..vV.."M|
|000053b0| 65 73 73 61 67 65 54 72 | 61 6e 73 5f 4c 6f 6f 6b |essageTr|ans_Look|
|000053c0| 75 70 22 2c 6d 73 67 66 | 69 6c 65 25 2c 74 6f 6b |up",msgf|ile%,tok|
|000053d0| 65 6e 24 2c 62 6c 6b 32 | 25 2c 26 32 30 30 2c 73 |en$,blk2|%,&200,s|
|000053e0| 24 28 31 29 2c 73 24 28 | 32 29 2c 73 24 28 33 29 |$(1),s$(|2),s$(3)|
|000053f0| 2c 73 24 28 34 29 b8 2c | 2c 2c 6c 65 6e 25 0d 11 |,s$(4).,|,,len%..|
|00005400| 80 11 62 6c 6b 32 25 3f | 6c 65 6e 25 3d 31 33 0d |..blk2%?|len%=13.|
|00005410| 11 8a 0b 3d 24 62 6c 6b | 32 25 0d 11 94 0d dd f2 |...=$blk|2%......|
|00005420| 72 65 63 65 69 76 65 0d | 11 9e 0e c8 8e 62 6c 6b |receive.|.....blk|
|00005430| 25 21 31 36 ca 0d 11 a8 | 0e c9 30 3a 71 75 69 74 |%!16....|..0:quit|
|00005440| 25 3d b9 0d 11 b2 20 c9 | 26 35 30 32 3a f2 68 65 |%=.... .|&502:.he|
|00005450| 6c 70 28 62 6c 6b 25 21 | 33 32 2c 62 6c 6b 25 21 |lp(blk%!|32,blk%!|
|00005460| 33 36 29 0d 11 bc 05 cb | 0d 11 c6 05 e1 0d 11 d0 |36).....|........|
|00005470| 15 dd f2 68 65 6c 70 28 | 77 68 25 2c 69 63 6f 6e |...help(|wh%,icon|
|00005480| 25 29 0d 11 da 0a ea 68 | 65 6c 70 24 0d 11 e4 0a |%).....h|elp$....|
|00005490| c8 8e 77 68 25 ca 0d 11 | ee 29 c9 77 68 5f 69 62 |..wh%...|.).wh_ib|
|000054a0| 61 72 25 3a 68 65 6c 70 | 24 3d a4 6d 65 73 73 61 |ar%:help|$=.messa|
|000054b0| 67 65 28 22 68 65 6c 70 | 2e 69 62 61 72 22 29 0d |ge("help|.ibar").|
|000054c0| 11 f8 29 c9 77 68 5f 69 | 6e 66 6f 25 3a 68 65 6c |..).wh_i|nfo%:hel|
|000054d0| 70 24 3d a4 6d 65 73 73 | 61 67 65 28 22 68 65 6c |p$=.mess|age("hel|
|000054e0| 70 2e 69 6e 66 6f 22 29 | 0d 12 02 0d c9 77 68 5f |p.info")|.....wh_|
|000054f0| 6f 70 74 73 25 0d 12 0c | 1f 68 65 6c 70 24 3d a4 |opts%...|.help$=.|
|00005500| 6d 65 73 73 61 67 65 28 | 22 68 65 6c 70 2e 6f 70 |message(|"help.op|
|00005510| 74 73 22 29 0d 12 16 0c | c8 8e 69 63 6f 6e 25 ca |ts")....|..icon%.|
|00005520| 0d 12 20 2f c9 30 2c 31 | 2c 34 2c 35 2c 36 2c 37 |.. /.0,1|,4,5,6,7|
|00005530| 3a 68 65 6c 70 24 2b 3d | a4 6d 65 73 73 61 67 65 |:help$+=|.message|
|00005540| 28 22 68 65 6c 70 2e 6f | 70 74 73 2e 77 22 29 0d |("help.o|pts.w").|
|00005550| 12 2a 43 c9 32 2c 33 2c | 38 2c 39 2c 31 30 2c 31 |.*C.2,3,|8,9,10,1|
|00005560| 31 2c 31 32 2c 31 37 2c | 31 38 2c 31 39 2c 32 30 |1,12,17,|18,19,20|
|00005570| 2c 32 31 3a 68 65 6c 70 | 24 2b 3d a4 6d 65 73 73 |,21:help|$+=.mess|
|00005580| 61 67 65 28 22 68 65 6c | 70 2e 6f 70 74 73 2e 76 |age("hel|p.opts.v|
|00005590| 22 29 0d 12 34 26 c9 31 | 33 3a 68 65 6c 70 24 2b |")..4&.1|3:help$+|
|000055a0| 3d a4 6d 65 73 73 61 67 | 65 28 22 68 65 6c 70 2e |=.messag|e("help.|
|000055b0| 6f 70 74 73 2e 64 22 29 | 0d 12 3e 26 c9 31 34 3a |opts.d")|..>&.14:|
|000055c0| 68 65 6c 70 24 2b 3d a4 | 6d 65 73 73 61 67 65 28 |help$+=.|message(|
|000055d0| 22 68 65 6c 70 2e 6f 70 | 74 73 2e 63 22 29 0d 12 |"help.op|ts.c")..|
|000055e0| 48 26 c9 31 35 3a 68 65 | 6c 70 24 2b 3d a4 6d 65 |H&.15:he|lp$+=.me|
|000055f0| 73 73 61 67 65 28 22 68 | 65 6c 70 2e 6f 70 74 73 |ssage("h|elp.opts|
|00005600| 2e 78 22 29 0d 12 52 26 | c9 31 36 3a 68 65 6c 70 |.x")..R&|.16:help|
|00005610| 24 2b 3d a4 6d 65 73 73 | 61 67 65 28 22 68 65 6c |$+=.mess|age("hel|
|00005620| 70 2e 6f 70 74 73 2e 73 | 22 29 0d 12 5c 05 cb 0d |p.opts.s|")..\...|
|00005630| 12 66 22 7f 3a 68 65 6c | 70 24 3d a4 6d 65 73 73 |.f".:hel|p$=.mess|
|00005640| 61 67 65 28 22 68 65 6c | 70 2e 6f 74 68 65 72 22 |age("hel|p.other"|
|00005650| 29 0d 12 70 05 cb 0d 12 | 7a 14 24 28 62 6c 6b 25 |)..p....|z.$(blk%|
|00005660| 2b 32 30 29 3d 68 65 6c | 70 24 0d 12 84 20 62 6c |+20)=hel|p$... bl|
|00005670| 6b 25 21 30 3d 34 2a 28 | 31 2b 28 a9 68 65 6c 70 |k%!0=4*(|1+(.help|
|00005680| 24 2b 31 29 81 34 29 2b | 32 30 0d 12 8e 12 62 6c |$+1).4)+|20....bl|
|00005690| 6b 25 21 31 32 3d 62 6c | 6b 25 21 38 0d 12 98 10 |k%!12=bl|k%!8....|
|000056a0| 62 6c 6b 25 21 31 36 3d | 26 35 30 33 0d 12 a2 27 |blk%!16=|&503...'|
|000056b0| c8 99 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |.."Wimp_|SendMess|
|000056c0| 61 67 65 22 2c 31 37 2c | 62 6c 6b 25 2c 62 6c 6b |age",17,|blk%,blk|
|000056d0| 25 21 34 0d 12 ac 05 e1 | 0d 12 b6 0f dd f2 69 6e |%!4.....|......in|
|000056e0| 74 65 67 72 61 74 65 0d | 12 c0 2a 79 24 3d a4 74 |tegrate.|..*y$=.t|
|000056f0| 6f 75 70 70 65 72 28 24 | a4 72 65 61 64 69 63 6f |oupper($|.readico|
|00005700| 6e 74 65 78 74 28 77 68 | 5f 69 6e 74 25 2c 33 29 |ntext(wh|_int%,3)|
|00005710| 29 0d 12 ca 2e 6c 6f 77 | 65 72 24 3d a4 74 6f 75 |)....low|er$=.tou|
|00005720| 70 70 65 72 28 24 a4 72 | 65 61 64 69 63 6f 6e 74 |pper($.r|eadicont|
|00005730| 65 78 74 28 77 68 5f 69 | 6e 74 25 2c 34 29 29 0d |ext(wh_i|nt%,4)).|
|00005740| 12 d4 2e 75 70 70 65 72 | 24 3d a4 74 6f 75 70 70 |...upper|$=.toupp|
|00005750| 65 72 28 24 a4 72 65 61 | 64 69 63 6f 6e 74 65 78 |er($.rea|dicontex|
|00005760| 74 28 77 68 5f 69 6e 74 | 25 2c 35 29 29 0d 12 de |t(wh_int|%,5))...|
|00005770| 18 70 6c 61 63 65 24 3d | 22 6c 6f 77 65 72 20 6c |.place$=|"lower l|
|00005780| 69 6d 69 74 22 0d 12 e8 | 13 6c 6f 77 65 72 3d a0 |imit"...|.lower=.|
|00005790| 28 6c 6f 77 65 72 24 29 | 0d 12 f2 18 70 6c 61 63 |(lower$)|....plac|
|000057a0| 65 24 3d 22 75 70 70 65 | 72 20 6c 69 6d 69 74 22 |e$="uppe|r limit"|
|000057b0| 0d 12 fc 13 75 70 70 65 | 72 3d a0 28 75 70 70 65 |....uppe|r=.(uppe|
|000057c0| 72 24 29 0d 13 06 0d 70 | 6c 61 63 65 24 3d 22 22 |r$)....p|lace$=""|
|000057d0| 0d 13 10 20 64 78 3d 28 | 75 70 70 65 72 2d 6c 6f |... dx=(|upper-lo|
|000057e0| 77 65 72 29 2f 69 6e 74 | 5f 73 74 72 69 70 73 25 |wer)/int|_strips%|
|000057f0| 0d 13 1a 14 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |......"H|ourglass|
|00005800| 5f 4f 6e 22 0d 13 24 0c | f2 63 61 6c 63 69 6e 74 |_On"..$.|.calcint|
|00005810| 0d 13 2e 22 f2 77 72 69 | 74 65 69 63 6f 6e 74 65 |...".wri|teiconte|
|00005820| 78 74 28 77 68 5f 69 6e | 74 25 2c 36 2c 61 6e 73 |xt(wh_in|t%,6,ans|
|00005830| 24 29 0d 13 38 22 f2 77 | 72 69 74 65 69 63 6f 6e |$)..8".w|riteicon|
|00005840| 74 65 78 74 28 77 68 5f | 69 6e 74 25 2c 37 2c 70 |text(wh_|int%,7,p|
|00005850| 77 72 24 29 0d 13 42 35 | 79 24 3d 22 41 42 53 28 |wr$)..B5|y$="ABS(|
|00005860| 22 2b a4 74 6f 75 70 70 | 65 72 28 24 a4 72 65 61 |"+.toupp|er($.rea|
|00005870| 64 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 69 6e 74 |dicontex|t(wh_int|
|00005880| 25 2c 33 29 29 2b 22 29 | 22 0d 13 4c 0c f2 63 61 |%,3))+")|"..L..ca|
|00005890| 6c 63 69 6e 74 0d 13 56 | 22 f2 77 72 69 74 65 69 |lcint..V|".writei|
|000058a0| 63 6f 6e 74 65 78 74 28 | 77 68 5f 69 6e 74 25 2c |context(|wh_int%,|
|000058b0| 38 2c 61 6e 73 24 29 0d | 13 60 22 f2 77 72 69 74 |8,ans$).|.`".writ|
|000058c0| 65 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 69 6e 74 |eicontex|t(wh_int|
|000058d0| 25 2c 39 2c 70 77 72 24 | 29 0d 13 6a 37 79 24 3d |%,9,pwr$|)..j7y$=|
|000058e0| 22 50 49 2a 28 22 2b a4 | 74 6f 75 70 70 65 72 28 |"PI*("+.|toupper(|
|000058f0| 24 a4 72 65 61 64 69 63 | 6f 6e 74 65 78 74 28 77 |$.readic|ontext(w|
|00005900| 68 5f 69 6e 74 25 2c 33 | 29 29 2b 22 29 5e 32 22 |h_int%,3|))+")^2"|
|00005910| 0d 13 74 0c f2 63 61 6c | 63 69 6e 74 0d 13 7e 23 |..t..cal|cint..~#|
|00005920| f2 77 72 69 74 65 69 63 | 6f 6e 74 65 78 74 28 77 |.writeic|ontext(w|
|00005930| 68 5f 69 6e 74 25 2c 31 | 30 2c 61 6e 73 24 29 0d |h_int%,1|0,ans$).|
|00005940| 13 88 23 f2 77 72 69 74 | 65 69 63 6f 6e 74 65 78 |..#.writ|eicontex|
|00005950| 74 28 77 68 5f 69 6e 74 | 25 2c 31 31 2c 70 77 72 |t(wh_int|%,11,pwr|
|00005960| 24 29 0d 13 92 15 c8 99 | 22 48 6f 75 72 67 6c 61 |$)......|"Hourgla|
|00005970| 73 73 5f 4f 66 66 22 0d | 13 9c 05 e1 0d 13 a6 0d |ss_Off".|........|
|00005980| dd f2 63 61 6c 63 69 6e | 74 0d 13 b0 06 ea 85 0d |..calcin|t.......|
|00005990| 13 ba 17 ee 85 ea f2 6d | 61 74 68 65 72 72 6f 72 |.......m|atherror|
|000059a0| 3a e5 8d 54 72 54 0d 13 | c4 0c 6e 6f 61 6e 73 25 |:..TrT..|..noans%|
|000059b0| 3d a3 0d 13 ce 07 69 3d | 30 0d 13 d8 19 e3 6e 25 |=.....i=|0.....n%|
|000059c0| 3d 30 b8 69 6e 74 5f 73 | 74 72 69 70 73 25 2d 32 |=0.int_s|trips%-2|
|000059d0| 88 32 0d 13 e2 11 58 3d | 6c 6f 77 65 72 2b 6e 25 |.2....X=|lower+n%|
|000059e0| 2a 64 78 0d 13 ec 0c 79 | 30 3d a0 28 79 24 29 0d |*dx....y|0=.(y$).|
|000059f0| 13 f6 15 58 3d 6c 6f 77 | 65 72 2b 28 6e 25 2b 31 |...X=low|er+(n%+1|
|00005a00| 29 2a 64 78 0d 14 00 0c | 79 31 3d a0 28 79 24 29 |)*dx....|y1=.(y$)|
|00005a10| 0d 14 0a 15 58 3d 6c 6f | 77 65 72 2b 28 6e 25 2b |....X=lo|wer+(n%+|
|00005a20| 32 29 2a 64 78 0d 14 14 | 0c 79 32 3d a0 28 79 24 |2)*dx...|.y2=.(y$|
|00005a30| 29 0d 14 1e 18 69 2b 3d | 64 78 2f 33 2a 28 79 30 |)....i+=|dx/3*(y0|
|00005a40| 2b 34 2a 79 31 2b 79 32 | 29 0d 14 28 07 ed 6e 25 |+4*y1+y2|)..(..n%|
|00005a50| 0d 14 32 0c e7 6e 6f 61 | 6e 73 25 8c 0d 14 3c 16 |..2..noa|ns%...<.|
|00005a60| 61 6e 73 24 3d 22 2d 2d | 22 3a 70 77 72 24 3d 22 |ans$="--|":pwr$="|
|00005a70| 30 22 0d 14 46 05 cc 0d | 14 50 17 f2 74 6f 35 73 |0"..F...|.P..to5s|
|00005a80| 66 28 69 2c 61 6e 73 24 | 2c 70 77 72 24 29 0d 14 |f(i,ans$|,pwr$)..|
|00005a90| 5a 05 cd 0d 14 64 05 e1 | 0d 14 6e 0a dd f2 64 69 |Z....d..|..n...di|
|00005aa0| 66 66 0d 14 78 06 ea 85 | 0d 14 82 2b 66 24 3d a4 |ff..x...|...+f$=.|
|00005ab0| 74 6f 75 70 70 65 72 28 | 24 a4 72 65 61 64 69 63 |toupper(|$.readic|
|00005ac0| 6f 6e 74 65 78 74 28 77 | 68 5f 64 69 66 66 25 2c |ontext(w|h_diff%,|
|00005ad0| 33 29 29 0d 14 8c 2b 78 | 24 3d a4 74 6f 75 70 70 |3))...+x|$=.toupp|
|00005ae0| 65 72 28 24 a4 72 65 61 | 64 69 63 6f 6e 74 65 78 |er($.rea|dicontex|
|00005af0| 74 28 77 68 5f 64 69 66 | 66 25 2c 34 29 29 0d 14 |t(wh_dif|f%,4))..|
|00005b00| 96 12 70 6c 61 63 65 24 | 3d 22 76 61 6c 75 65 22 |..place$|="value"|
|00005b10| 0d 14 a0 0b 78 3d a0 28 | 78 24 29 0d 14 aa 0d 70 |....x=.(|x$)....p|
|00005b20| 6c 61 63 65 24 3d 22 22 | 0d 14 b4 16 6e 6f 61 6e |lace$=""|....noan|
|00005b30| 73 25 3d a3 3a 64 72 3d | 30 3a 64 6c 3d 30 0d 14 |s%=.:dr=|0:dl=0..|
|00005b40| be 0b 6c 69 6d 25 3d 32 | 38 0d 14 c8 17 ee 85 ea |..lim%=2|8.......|
|00005b50| f2 6d 61 74 68 65 72 72 | 6f 72 3a e5 8d 74 64 55 |.matherr|or:..tdU|
|00005b60| 0d 14 d2 14 c8 99 22 48 | 6f 75 72 67 6c 61 73 73 |......"H|ourglass|
|00005b70| 5f 4f 6e 22 0d 14 dc 1b | 64 65 6c 74 61 3d 31 2f |_On"....|delta=1/|
|00005b80| 35 31 32 3a 64 31 3d 35 | 31 32 3a 6e 25 3d 30 0d |512:d1=5|12:n%=0.|
|00005b90| 14 e6 05 f5 0d 14 f0 09 | 6e 25 2b 3d 31 0d 14 fa |........|n%+=1...|
|00005ba0| 0b 6c 61 73 74 3d 64 72 | 0d 15 04 16 58 3d 78 2b |.last=dr|....X=x+|
|00005bb0| 64 65 6c 74 61 3a 59 31 | 3d a0 28 66 24 29 0d 15 |delta:Y1|=.(f$)..|
|00005bc0| 0e 18 58 3d 78 2b 64 65 | 6c 74 61 2a 32 3a 59 32 |..X=x+de|lta*2:Y2|
|00005bd0| 3d a0 28 66 24 29 0d 15 | 18 11 64 72 3d 28 59 32 |=.(f$)..|..dr=(Y2|
|00005be0| 2d 59 31 29 2a 64 31 0d | 15 22 19 64 65 6c 74 61 |-Y1)*d1.|.".delta|
|00005bf0| 3d 64 65 6c 74 61 2f 32 | 3a 64 31 3d 64 31 2a 32 |=delta/2|:d1=d1*2|
|00005c00| 0d 15 2c 27 fd 28 6e 25 | 3e 31 80 94 28 6c 61 73 |..,'.(n%|>1..(las|
|00005c10| 74 2d 64 72 29 3c 65 70 | 73 5f 64 69 66 66 29 84 |t-dr)<ep|s_diff).|
|00005c20| 6e 25 3e 6c 69 6d 25 0d | 15 36 15 e7 6e 25 3e 6c |n%>lim%.|.6..n%>l|
|00005c30| 69 6d 25 8c 6e 6f 61 6e | 73 25 3d b9 0d 15 40 1b |im%.noan|s%=...@.|
|00005c40| 64 65 6c 74 61 3d 31 2f | 35 31 32 3a 64 31 3d 35 |delta=1/|512:d1=5|
|00005c50| 31 32 3a 6e 25 3d 30 0d | 15 4a 05 f5 0d 15 54 09 |12:n%=0.|.J....T.|
|00005c60| 6e 25 2b 3d 31 0d 15 5e | 0b 6c 61 73 74 3d 64 6c |n%+=1..^|.last=dl|
|00005c70| 0d 15 68 18 58 3d 78 2d | 64 65 6c 74 61 2a 32 3a |..h.X=x-|delta*2:|
|00005c80| 59 31 3d a0 28 66 24 29 | 0d 15 72 16 58 3d 78 2d |Y1=.(f$)|..r.X=x-|
|00005c90| 64 65 6c 74 61 3a 59 32 | 3d a0 28 66 24 29 0d 15 |delta:Y2|=.(f$)..|
|00005ca0| 7c 11 64 6c 3d 28 59 32 | 2d 59 31 29 2a 64 31 0d ||.dl=(Y2|-Y1)*d1.|
|00005cb0| 15 86 19 64 65 6c 74 61 | 3d 64 65 6c 74 61 2f 32 |...delta|=delta/2|
|00005cc0| 3a 64 31 3d 64 31 2a 32 | 0d 15 90 24 fd 28 6e 25 |:d1=d1*2|...$.(n%|
|00005cd0| 3e 31 80 94 28 6c 61 73 | 74 2d 64 6c 29 3c 31 45 |>1..(las|t-dl)<1E|
|00005ce0| 2d 31 30 29 84 6e 25 3e | 6c 69 6d 25 0d 15 9a 15 |-10).n%>|lim%....|
|00005cf0| e7 6e 25 3e 6c 69 6d 25 | 8c 6e 6f 61 6e 73 25 3d |.n%>lim%|.noans%=|
|00005d00| b9 0d 15 a4 1a e7 6e 6f | 61 6e 73 25 84 94 28 64 |......no|ans%..(d|
|00005d10| 72 2d 64 6c 29 3e 31 45 | 2d 35 8c 0d 15 ae 16 61 |r-dl)>1E|-5.....a|
|00005d20| 6e 73 24 3d 22 2d 2d 22 | 3a 70 77 72 24 3d 22 30 |ns$="--"|:pwr$="0|
|00005d30| 22 0d 15 b8 05 cc 0d 15 | c2 18 f2 74 6f 35 73 66 |".......|...to5sf|
|00005d40| 28 64 6c 2c 61 6e 73 24 | 2c 70 77 72 24 29 0d 15 |(dl,ans$|,pwr$)..|
|00005d50| cc 05 cd 0d 15 d6 23 f2 | 77 72 69 74 65 69 63 6f |......#.|writeico|
|00005d60| 6e 74 65 78 74 28 77 68 | 5f 64 69 66 66 25 2c 35 |ntext(wh|_diff%,5|
|00005d70| 2c 61 6e 73 24 29 0d 15 | e0 23 f2 77 72 69 74 65 |,ans$)..|.#.write|
|00005d80| 69 63 6f 6e 74 65 78 74 | 28 77 68 5f 64 69 66 66 |icontext|(wh_diff|
|00005d90| 25 2c 36 2c 70 77 72 24 | 29 0d 15 ea 15 c8 99 22 |%,6,pwr$|)......"|
|00005da0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 15 |Hourglas|s_Off"..|
|00005db0| f4 05 e1 0d 15 fe 09 dd | f2 73 75 6d 0d 16 08 2b |........|.sum...+|
|00005dc0| 61 6e 24 3d a4 74 6f 75 | 70 70 65 72 28 24 a4 72 |an$=.tou|pper($.r|
|00005dd0| 65 61 64 69 63 6f 6e 74 | 65 78 74 28 77 68 5f 73 |eadicont|ext(wh_s|
|00005de0| 75 6d 25 2c 33 29 29 0d | 16 12 2a 69 24 3d a4 74 |um%,3)).|..*i$=.t|
|00005df0| 6f 75 70 70 65 72 28 24 | a4 72 65 61 64 69 63 6f |oupper($|.readico|
|00005e00| 6e 74 65 78 74 28 77 68 | 5f 73 75 6d 25 2c 34 29 |ntext(wh|_sum%,4)|
|00005e10| 29 0d 16 1c 2a 6a 24 3d | a4 74 6f 75 70 70 65 72 |)...*j$=|.toupper|
|00005e20| 28 24 a4 72 65 61 64 69 | 63 6f 6e 74 65 78 74 28 |($.readi|context(|
|00005e30| 77 68 5f 73 75 6d 25 2c | 35 29 29 0d 16 26 0e 70 |wh_sum%,|5))..&.p|
|00005e40| 6c 61 63 65 24 3d 22 69 | 22 0d 16 30 0b 69 3d a0 |lace$="i|"..0.i=.|
|00005e50| 28 69 24 29 0d 16 3a 0e | e7 6a 24 3d 22 49 4e 46 |(i$)..:.|.j$="INF|
|00005e60| 22 8c 0d 16 44 0d 70 6c | 61 63 65 24 3d 22 22 0d |"...D.pl|ace$="".|
|00005e70| 16 4e 14 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |.N..."Ho|urglass_|
|00005e80| 4f 6e 22 0d 16 58 0f f2 | 63 61 6c 63 69 6e 66 73 |On"..X..|calcinfs|
|00005e90| 75 6d 0d 16 62 22 f2 77 | 72 69 74 65 69 63 6f 6e |um..b".w|riteicon|
|00005ea0| 74 65 78 74 28 77 68 5f | 73 75 6d 25 2c 36 2c 61 |text(wh_|sum%,6,a|
|00005eb0| 6e 73 24 29 0d 16 6c 22 | f2 77 72 69 74 65 69 63 |ns$)..l"|.writeic|
|00005ec0| 6f 6e 74 65 78 74 28 77 | 68 5f 73 75 6d 25 2c 37 |ontext(w|h_sum%,7|
|00005ed0| 2c 70 77 72 24 29 0d 16 | 76 0c e7 6e 6f 61 6e 73 |,pwr$)..|v..noans|
|00005ee0| 25 8c 0d 16 80 22 f2 77 | 72 69 74 65 69 63 6f 6e |%....".w|riteicon|
|00005ef0| 74 65 78 74 28 77 68 5f | 73 75 6d 25 2c 38 2c 22 |text(wh_|sum%,8,"|
|00005f00| 2d 2d 22 29 0d 16 8a 21 | f2 77 72 69 74 65 69 63 |--")...!|.writeic|
|00005f10| 6f 6e 74 65 78 74 28 77 | 68 5f 73 75 6d 25 2c 39 |ontext(w|h_sum%,9|
|00005f20| 2c 22 30 22 29 0d 16 94 | 05 cc 0d 16 9e 16 61 6e |,"0")...|......an|
|00005f30| 24 3d 22 41 42 53 28 22 | 2b 61 6e 24 2b 22 29 22 |$="ABS("|+an$+")"|
|00005f40| 0d 16 a8 0f f2 63 61 6c | 63 69 6e 66 73 75 6d 0d |.....cal|cinfsum.|
|00005f50| 16 b2 22 f2 77 72 69 74 | 65 69 63 6f 6e 74 65 78 |..".writ|eicontex|
|00005f60| 74 28 77 68 5f 73 75 6d | 25 2c 38 2c 61 6e 73 24 |t(wh_sum|%,8,ans$|
|00005f70| 29 0d 16 bc 22 f2 77 72 | 69 74 65 69 63 6f 6e 74 |)...".wr|iteicont|
|00005f80| 65 78 74 28 77 68 5f 73 | 75 6d 25 2c 39 2c 70 77 |ext(wh_s|um%,9,pw|
|00005f90| 72 24 29 0d 16 c6 05 cd | 0d 16 d0 05 cc 0d 16 da |r$).....|........|
|00005fa0| 0e 70 6c 61 63 65 24 3d | 22 6a 22 0d 16 e4 0b 6a |.place$=|"j"....j|
|00005fb0| 3d a0 28 6a 24 29 0d 16 | ee 0d 70 6c 61 63 65 24 |=.(j$)..|..place$|
|00005fc0| 3d 22 22 0d 16 f8 14 c8 | 99 22 48 6f 75 72 67 6c |="".....|."Hourgl|
|00005fd0| 61 73 73 5f 4f 6e 22 0d | 17 02 12 f2 63 61 6c 63 |ass_On".|....calc|
|00005fe0| 66 69 6e 69 74 65 73 75 | 6d 0d 17 0c 22 f2 77 72 |finitesu|m...".wr|
|00005ff0| 69 74 65 69 63 6f 6e 74 | 65 78 74 28 77 68 5f 73 |iteicont|ext(wh_s|
|00006000| 75 6d 25 2c 36 2c 61 6e | 73 24 29 0d 17 16 22 f2 |um%,6,an|s$)...".|
|00006010| 77 72 69 74 65 69 63 6f | 6e 74 65 78 74 28 77 68 |writeico|ntext(wh|
|00006020| 5f 73 75 6d 25 2c 37 2c | 70 77 72 24 29 0d 17 20 |_sum%,7,|pwr$).. |
|00006030| 16 61 6e 24 3d 22 41 42 | 53 28 22 2b 61 6e 24 2b |.an$="AB|S("+an$+|
|00006040| 22 29 22 0d 17 2a 12 f2 | 63 61 6c 63 66 69 6e 69 |")"..*..|calcfini|
|00006050| 74 65 73 75 6d 0d 17 34 | 22 f2 77 72 69 74 65 69 |tesum..4|".writei|
|00006060| 63 6f 6e 74 65 78 74 28 | 77 68 5f 73 75 6d 25 2c |context(|wh_sum%,|
|00006070| 38 2c 61 6e 73 24 29 0d | 17 3e 22 f2 77 72 69 74 |8,ans$).|.>".writ|
|00006080| 65 69 63 6f 6e 74 65 78 | 74 28 77 68 5f 73 75 6d |eicontex|t(wh_sum|
|00006090| 25 2c 39 2c 70 77 72 24 | 29 0d 17 48 05 cd 0d 17 |%,9,pwr$|)..H....|
|000060a0| 52 15 c8 99 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |R..."Hou|rglass_O|
|000060b0| 66 66 22 0d 17 5c 05 e1 | 0d 17 66 13 dd f2 63 61 |ff"..\..|..f...ca|
|000060c0| 6c 63 66 69 6e 69 74 65 | 73 75 6d 0d 17 70 06 ea |lcfinite|sum..p..|
|000060d0| 85 0d 17 7a 17 ee 85 ea | f2 6d 61 74 68 65 72 72 |...z....|.matherr|
|000060e0| 6f 72 3a e5 8d 74 76 57 | 0d 17 84 0c 6e 6f 61 6e |or:..tvW|....noan|
|000060f0| 73 25 3d a3 0d 17 8e 09 | 73 75 6d 3d 30 0d 17 98 |s%=.....|sum=0...|
|00006100| 0a e3 4e 3d 69 b8 6a 0d | 17 a2 0f 73 75 6d 2b 3d |..N=i.j.|...sum+=|
|00006110| a0 28 61 6e 24 29 0d 17 | ac 05 ed 0d 17 b6 0c e7 |.(an$)..|........|
|00006120| 6e 6f 61 6e 73 25 8c 0d | 17 c0 16 61 6e 73 24 3d |noans%..|...ans$=|
|00006130| 22 2d 2d 22 3a 70 77 72 | 24 3d 22 30 22 0d 17 ca |"--":pwr|$="0"...|
|00006140| 05 cc 0d 17 d4 19 f2 74 | 6f 35 73 66 28 73 75 6d |.......t|o5sf(sum|
|00006150| 2c 61 6e 73 24 2c 70 77 | 72 24 29 0d 17 de 05 cd |,ans$,pw|r$).....|
|00006160| 0d 17 e8 05 e1 0d 17 f2 | 10 dd f2 63 61 6c 63 69 |........|...calci|
|00006170| 6e 66 73 75 6d 0d 17 fc | 09 ea 74 6f 70 25 0d 18 |nfsum...|..top%..|
|00006180| 06 06 ea 85 0d 18 10 17 | ee 85 ea f2 6d 61 74 68 |........|....math|
|00006190| 65 72 72 6f 72 3a e5 8d | 74 48 58 0d 18 1a 0c 6e |error:..|tHX....n|
|000061a0| 6f 61 6e 73 25 3d a3 0d | 18 24 13 6a 3d 69 2b 31 |oans%=..|.$.j=i+1|
|000061b0| 36 3a e7 6a 3c 30 8c 6a | 3d 30 0d 18 2e 0c 74 6f |6:.j<0.j|=0....to|
|000061c0| 70 25 3d 6a 2b 31 0d 18 | 38 12 f2 63 61 6c 63 66 |p%=j+1..|8..calcf|
|000061d0| 69 6e 69 74 65 73 75 6d | 0d 18 42 05 f5 0d 18 4c |initesum|..B....L|
|000061e0| 0c 6c 61 73 74 3d 73 75 | 6d 0d 18 56 14 e3 4e 3d |.last=su|m..V..N=|
|000061f0| 74 6f 70 25 b8 74 6f 70 | 25 2a 32 2d 31 0d 18 60 |top%.top|%*2-1..`|
|00006200| 0f 73 75 6d 2b 3d a0 28 | 61 6e 24 29 0d 18 6a 05 |.sum+=.(|an$)..j.|
|00006210| ed 0d 18 74 0f 74 6f 70 | 25 3d 74 6f 70 25 2a 32 |...t.top|%=top%*2|
|00006220| 0d 18 7e 22 fd 94 28 6c | 61 73 74 2d 73 75 6d 29 |..~"..(l|ast-sum)|
|00006230| 3c 65 70 73 5f 73 75 6d | 84 74 6f 70 25 3e 36 30 |<eps_sum|.top%>60|
|00006240| 30 30 0d 18 88 16 e7 6e | 6f 61 6e 73 25 84 74 6f |00.....n|oans%.to|
|00006250| 70 25 3e 36 30 30 30 8c | 0d 18 92 16 61 6e 73 24 |p%>6000.|....ans$|
|00006260| 3d 22 2d 2d 22 3a 70 77 | 72 24 3d 22 30 22 0d 18 |="--":pw|r$="0"..|
|00006270| 9c 05 cc 0d 18 a6 19 f2 | 74 6f 35 73 66 28 73 75 |........|to5sf(su|
|00006280| 6d 2c 61 6e 73 24 2c 70 | 77 72 24 29 0d 18 b0 05 |m,ans$,p|wr$)....|
|00006290| cd 0d 18 ba 05 e1 0d 18 | c4 08 dd f2 6e 72 0d 18 |........|....nr..|
|000062a0| ce 06 ea 85 0d 18 d8 17 | ee 85 ea f2 6d 61 74 68 |........|....math|
|000062b0| 65 72 72 6f 72 3a e5 8d | 74 4c 59 0d 18 e2 0c 6e |error:..|tLY....n|
|000062c0| 6f 61 6e 73 25 3d a3 0d | 18 ec 0d 6c 69 6d 25 3d |oans%=..|...lim%=|
|000062d0| 31 30 30 30 0d 18 f6 2a | 78 30 24 3d a4 74 6f 75 |1000...*|x0$=.tou|
|000062e0| 70 70 65 72 28 24 a4 72 | 65 61 64 69 63 6f 6e 74 |pper($.r|eadicont|
|000062f0| 65 78 74 28 77 68 5f 6e | 72 25 2c 33 29 29 0d 19 |ext(wh_n|r%,3))..|
|00006300| 00 29 66 24 3d a4 74 6f | 75 70 70 65 72 28 24 a4 |.)f$=.to|upper($.|
|00006310| 72 65 61 64 69 63 6f 6e | 74 65 78 74 28 77 68 5f |readicon|text(wh_|
|00006320| 6e 72 25 2c 34 29 29 0d | 19 0a 1a 70 6c 61 63 65 |nr%,4)).|...place|
|00006330| 24 3d 22 69 6e 69 74 69 | 61 6c 20 76 61 6c 75 65 |$="initi|al value|
|00006340| 22 0d 19 14 0c 78 3d a0 | 28 78 30 24 29 0d 19 1e |"....x=.|(x0$)...|
|00006350| 0d 70 6c 61 63 65 24 3d | 22 22 0d 19 28 14 c8 99 |.place$=|""..(...|
|00006360| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 19 |"Hourgla|ss_On"..|
|00006370| 32 08 6e 25 3d 30 0d 19 | 3c 05 f5 0d 19 46 08 6f |2.n%=0..|<....F.o|
|00006380| 78 3d 78 0d 19 50 10 58 | 3d 78 3a 79 31 3d a0 28 |x=x..P.X|=x:y1=.(|
|00006390| 66 24 29 0d 19 5a 17 58 | 3d 78 2b 30 2e 30 30 30 |f$)..Z.X|=x+0.000|
|000063a0| 31 3a 79 32 3d a0 28 66 | 24 29 0d 19 64 17 64 69 |1:y2=.(f|$)..d.di|
|000063b0| 66 66 3d 28 79 32 2d 79 | 31 29 2f 30 2e 30 30 30 |ff=(y2-y|1)/0.000|
|000063c0| 31 0d 19 6e 0f 78 3d 78 | 2d 79 31 2f 64 69 66 66 |1..n.x=x|-y1/diff|
|000063d0| 0d 19 78 09 6e 25 2b 3d | 31 0d 19 82 1b fd 94 28 |..x.n%+=|1......(|
|000063e0| 78 2d 6f 78 29 3c 65 70 | 73 5f 6e 72 84 6e 25 3e |x-ox)<ep|s_nr.n%>|
|000063f0| 6c 69 6d 25 0d 19 8c 14 | e7 6e 6f 61 6e 73 25 84 |lim%....|.noans%.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
