home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1996-05-19 | 124.6 KB | [TEXT/PJMM] |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: proFit_interface.p
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| ZX81 Sinclair BASIC (image/sinclairBASIC)
| ext
| Supported |
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| bsdiff patch (other/bsdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| imgdiff patch (other/imgdiffPatch)
| ext
| Unsupported |
| 1%
| dexvert
| WSUS Patch Storage File (other/wsusPatchStorageFile)
| ext
| Unsupported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Sun May 19 14:55:12 1996, modified Sun May 19 14:55:12 1996, creator Think Pascal, type ASCII, 126895 bytes "proFit_interface.p" , at 0x1f02f 410 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [PJMM] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 70 72 6f 46 69 74 | 5f 69 6e 74 65 72 66 61 |..proFit|_interfa|
|00000010| 63 65 2e 70 00 00 00 00 | 00 00 00 00 00 00 00 00 |ce.p....|........|
|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 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 01 ef af 00 | 00 01 9a ad c5 1f 10 ad |........|........|
|00000060| c5 1f 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d2 ac 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|000000d0| 7d 0d 7b 20 20 70 72 6f | 46 69 74 5f 69 6e 74 65 |}.{ pro|Fit_inte|
|000000e0| 72 66 61 63 65 2e 70 20 | 20 20 09 09 09 09 09 09 |rface.p | ......|
|000000f0| 09 09 09 09 09 09 7d 0d | 7b 2a 2a 2a 2a 2a 2a 2a |......}.|{*******|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 7d 0d 7b 20 48 69 73 74 |********|}.{ Hist|
|00000150| 6f 72 79 3a 09 09 09 09 | 09 09 09 09 09 09 09 09 |ory:....|........|
|00000160| 09 09 09 09 09 7d 0d 7b | 20 20 32 34 2e 30 33 2e |.....}.{| 24.03.|
|00000170| 39 36 3a 09 61 64 64 65 | 64 20 53 65 74 54 65 78 |96:.adde|d SetTex|
|00000180| 74 46 69 6c 65 46 6f 72 | 6d 61 74 2c 20 63 68 61 |tFileFor|mat, cha|
|00000190| 6e 67 65 64 20 53 61 76 | 65 44 61 74 61 41 73 54 |nged Sav|eDataAsT|
|000001a0| 65 78 74 20 7d 0d 7b 20 | 20 31 37 2e 30 33 2e 39 |ext }.{ | 17.03.9|
|000001b0| 36 3a 09 61 64 64 65 64 | 20 47 65 74 41 6e 64 53 |6:.added| GetAndS|
|000001c0| 65 74 53 74 61 74 75 73 | 20 7d 0d 7b 20 20 31 35 |etStatus| }.{ 15|
|000001d0| 2e 30 33 2e 39 36 3a 09 | 61 64 64 65 64 20 4e 75 |.03.96:.|added Nu|
|000001e0| 6d 62 65 72 54 6f 53 74 | 72 32 35 35 2c 20 53 74 |mberToSt|r255, St|
|000001f0| 72 32 35 35 54 6f 4e 75 | 6d 62 65 72 20 7d 0d 7b |r255ToNu|mber }.{|
|00000200| 20 20 31 30 2e 30 33 2e | 39 36 3a 09 61 64 64 65 | 10.03.|96:.adde|
|00000210| 64 20 47 65 74 46 75 6e | 63 74 69 6f 6e 50 61 72 |d GetFun|ctionPar|
|00000220| 61 6d 4e 61 6d 65 2c 20 | 43 61 6e 63 65 6c 45 76 |amName, |CancelEv|
|00000230| 65 6e 74 20 7d 0d 7b 20 | 20 30 36 2e 30 33 2e 39 |ent }.{ | 06.03.9|
|00000240| 36 3a 09 66 69 78 65 64 | 20 61 20 62 75 67 20 77 |6:.fixed| a bug w|
|00000250| 68 65 72 65 20 74 68 65 | 20 77 72 6f 6e 67 20 73 |here the| wrong s|
|00000260| 65 6c 65 63 74 6f 72 20 | 66 6f 72 20 53 74 6f 70 |elector |for Stop|
|00000270| 45 78 65 63 75 74 69 6f | 6e 20 77 61 73 20 75 73 |Executio|n was us|
|00000280| 65 64 20 7d 0d 7b 20 20 | 32 39 2e 30 32 2e 39 35 |ed }.{ |29.02.95|
|00000290| 3a 09 61 64 64 65 64 20 | 57 72 69 74 65 54 65 78 |:.added |WriteTex|
|000002a0| 74 2c 20 42 35 20 61 6e | 64 20 6c 61 74 65 72 20 |t, B5 an|d later |
|000002b0| 20 09 09 09 09 09 09 09 | 09 7d 0d 7b 20 20 32 31 | .......|.}.{ 21|
|000002c0| 2e 30 32 2e 39 35 3a 09 | 61 64 64 65 64 20 53 65 |.02.95:.|added Se|
|000002d0| 74 57 69 6e 64 6f 77 49 | 6e 66 6f 2c 20 53 65 74 |tWindowI|nfo, Set|
|000002e0| 42 6f 78 54 69 74 6c 65 | 20 61 6e 64 20 49 6e 70 |BoxTitle| and Inp|
|000002f0| 75 74 42 6f 78 20 66 6f | 72 20 73 74 72 69 6e 67 |utBox fo|r string|
|00000300| 73 2c 20 42 35 20 61 6e | 64 20 6c 61 74 65 72 7d |s, B5 an|d later}|
|00000310| 0d 7b 20 20 33 30 2e 31 | 32 2e 39 35 3a 09 63 6f |.{ 30.1|2.95:.co|
|00000320| 6d 70 61 74 69 62 69 6c | 69 74 79 20 77 69 74 68 |mpatibil|ity with|
|00000330| 20 4d 57 65 72 6b 73 20 | 37 20 28 36 38 6b 2b 50 | MWerks |7 (68k+P|
|00000340| 50 43 29 20 61 6e 64 20 | 54 68 69 6e 6b 50 61 73 |PC) and |ThinkPas|
|00000350| 63 61 6c 20 7d 0d 7b 20 | 20 31 35 2e 31 32 2e 39 |cal }.{ | 15.12.9|
|00000360| 35 3a 09 35 2e 30 20 72 | 65 6c 65 61 73 65 09 09 |5:.5.0 r|elease..|
|00000370| 09 09 09 09 09 09 09 09 | 09 7d 0d 7b 20 20 32 37 |........|.}.{ 27|
|00000380| 2e 30 31 2e 39 35 3a 09 | 61 64 64 65 64 20 63 6f |.01.95:.|added co|
|00000390| 6e 64 69 74 69 6f 6e 61 | 6c 73 20 66 6f 72 20 63 |nditiona|ls for c|
|000003a0| 6f 6d 70 61 74 69 62 69 | 6c 69 74 79 20 77 69 74 |ompatibi|lity wit|
|000003b0| 68 20 09 09 09 09 09 7d | 0d 7b 09 09 09 4d 65 74 |h .....}|.{...Met|
|000003c0| 72 6f 77 65 72 6b 73 20 | 50 61 73 63 61 6c 20 36 |rowerks |Pascal 6|
|000003d0| 38 6b 2f 50 50 43 20 61 | 6e 64 20 75 6e 69 76 65 |8k/PPC a|nd unive|
|000003e0| 72 73 61 6c 20 68 65 61 | 64 65 72 73 20 32 2e 30 |rsal hea|ders 2.0|
|000003f0| 61 33 09 09 09 7d 0d 7b | 20 20 32 36 2e 30 39 2e |a3...}.{| 26.09.|
|00000400| 39 34 3a 09 34 2e 32 2e | 30 20 72 65 6c 65 61 73 |94:.4.2.|0 releas|
|00000410| 65 09 20 20 20 20 20 20 | 20 09 09 09 09 09 09 09 |e. | .......|
|00000420| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |........|.......}|
|00000430| 0d 7b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.{******|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 7d 0d 0d 0d 0d 0d 7b | 20 57 65 6c 63 6f 6d 65 |*}.....{| Welcome|
|00000490| 20 74 6f 20 74 68 65 20 | 70 72 6f 20 46 69 74 20 | to the |pro Fit |
|000004a0| 65 78 74 65 72 6e 61 6c | 20 6d 6f 64 75 6c 65 73 |external| modules|
|000004b0| 21 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |!.......|........|
|000004c0| 09 09 09 7d 0d 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...}.{ -|--------|
|000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 09 09 |--------|------..|
|000004f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |........|.......}|
|00000500| 0d 0d 7b 20 45 78 74 65 | 72 6e 61 6c 20 6d 6f 64 |..{ Exte|rnal mod|
|00000510| 75 6c 65 73 20 61 72 65 | 20 70 69 65 63 65 73 20 |ules are| pieces |
|00000520| 6f 66 20 63 6f 64 65 20 | 74 68 61 74 20 79 6f 75 |of code |that you|
|00000530| 20 70 72 6f 64 75 63 65 | 20 77 69 74 68 20 79 6f | produce| with yo|
|00000540| 75 72 20 66 61 76 6f 72 | 69 74 65 20 63 6f 6d 70 |ur favor|ite comp|
|00000550| 69 6c 65 72 20 61 6e 64 | 20 74 68 61 74 09 09 09 |iler and| that...|
|00000560| 09 7d 0d 7b 20 79 6f 75 | 20 63 61 6e 20 62 75 69 |.}.{ you| can bui|
|00000570| 6c 64 20 69 6e 74 6f 20 | 70 72 6f 20 46 69 74 20 |ld into |pro Fit |
|00000580| 61 73 20 66 75 6e 63 74 | 69 6f 6e 73 20 6f 72 20 |as funct|ions or |
|00000590| 22 75 73 65 72 22 20 70 | 72 6f 67 72 61 6d 73 2e |"user" p|rograms.|
|000005a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 0d |........|.....}..|
|000005b0| 7b 20 49 66 20 69 74 20 | 69 73 20 74 68 65 20 66 |{ If it |is the f|
|000005c0| 69 72 73 74 20 74 69 6d | 65 20 79 6f 75 20 64 6f |irst tim|e you do|
|000005d0| 20 73 6f 6d 65 74 68 69 | 6e 67 20 77 69 74 68 20 | somethi|ng with |
|000005e0| 65 78 74 65 72 6e 61 6c | 20 6d 6f 64 75 6c 65 73 |external| modules|
|000005f0| 20 61 6e 64 20 79 6f 75 | 20 77 61 6e 74 20 74 6f | and you| want to|
|00000600| 20 73 65 65 20 77 68 61 | 74 20 69 73 09 09 09 09 | see wha|t is....|
|00000610| 7d 0d 7b 20 6e 65 65 64 | 65 64 20 74 6f 20 69 6d |}.{ need|ed to im|
|00000620| 70 6c 65 6d 65 6e 74 20 | 74 68 65 6d 2c 20 6a 75 |plement |them, ju|
|00000630| 73 74 20 74 61 6b 65 20 | 61 20 6c 6f 6f 6b 20 61 |st take |a look a|
|00000640| 74 20 74 68 65 20 65 78 | 61 6d 70 6c 65 20 66 69 |t the ex|ample fi|
|00000650| 6c 65 73 2e 09 09 09 09 | 09 09 09 09 09 09 09 7d |les.....|.......}|
|00000660| 0d 0d 7b 20 46 6f 72 20 | 65 78 61 6d 70 6c 65 20 |..{ For |example |
|00000670| 79 6f 75 20 6d 69 67 68 | 74 20 77 61 6e 74 20 74 |you migh|t want t|
|00000680| 6f 20 73 74 75 64 79 20 | 74 68 65 20 66 69 6c 65 |o study |the file|
|00000690| 20 45 72 72 6f 72 46 75 | 6e 63 2e 70 20 61 6e 64 | ErrorFu|nc.p and|
|000006a0| 20 6c 6f 6f 6b 20 61 74 | 20 74 68 65 20 66 75 6e | look at| the fun|
|000006b0| 63 74 69 6f 6e 73 20 74 | 68 61 74 20 61 72 65 09 |ctions t|hat are.|
|000006c0| 09 09 7d 0d 7b 20 64 65 | 66 69 6e 65 64 20 74 68 |..}.{ de|fined th|
|000006d0| 65 72 65 2e 09 09 09 09 | 09 09 09 09 09 09 09 09 |ere.....|........|
|000006e0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 0d |........|.....}..|
|000006f0| 7b 20 4d 6f 73 74 20 66 | 75 6e 63 74 69 6f 6e 20 |{ Most f|unction |
|00000700| 6e 61 6d 65 73 20 61 72 | 65 20 74 68 65 20 73 61 |names ar|e the sa|
|00000710| 6d 65 20 6f 6e 65 73 20 | 75 73 65 64 20 66 6f 72 |me ones |used for|
|00000720| 20 64 65 66 69 6e 69 6e | 67 20 66 75 6e 63 74 69 | definin|g functi|
|00000730| 6f 6e 73 20 61 6e 64 20 | 70 72 6f 67 72 61 6d 73 |ons and |programs|
|00000740| 09 09 09 09 09 09 7d 0d | 7b 20 77 69 74 68 69 6e |......}.|{ within|
|00000750| 20 70 72 6f 20 46 69 74 | 2e 09 09 09 09 09 09 09 | pro Fit|........|
|00000760| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000770| 09 09 7d 0d 7b 20 54 6f | 20 64 65 66 69 6e 65 20 |..}.{ To| define |
|00000780| 79 6f 75 72 20 6f 77 6e | 20 65 78 74 65 72 6e 61 |your own| externa|
|00000790| 6c 20 6d 6f 64 75 6c 65 | 2c 20 73 69 6d 70 6c 79 |l module|, simply|
|000007a0| 20 66 69 6c 6c 20 69 6e | 20 74 68 65 73 65 20 66 | fill in| these f|
|000007b0| 75 6e 63 74 69 6f 6e 73 | 20 77 69 74 68 20 79 6f |unctions| with yo|
|000007c0| 75 72 20 63 6f 64 65 2e | 09 09 09 09 09 09 7d 0d |ur code.|......}.|
|000007d0| 0d 7b 20 48 61 76 65 20 | 61 20 6c 6f 6f 6b 20 61 |.{ Have |a look a|
|000007e0| 74 20 74 68 65 20 70 72 | 6f 20 46 69 74 20 75 73 |t the pr|o Fit us|
|000007f0| 65 72 20 6d 61 6e 75 61 | 6c 20 66 6f 72 20 64 65 |er manua|l for de|
|00000800| 74 61 69 6c 73 20 6f 6e | 20 74 68 65 20 70 61 72 |tails on| the par|
|00000810| 61 6d 65 74 65 72 20 6c | 69 73 74 73 20 6f 66 20 |ameter l|ists of |
|00000820| 74 68 65 73 65 09 09 09 | 09 09 09 7d 0d 7b 20 66 |these...|...}.{ f|
|00000830| 75 6e 63 74 69 6f 6e 73 | 2e 09 09 09 09 09 09 09 |unctions|........|
|00000840| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000850| 09 09 09 7d 0d 0d 7b 20 | 49 6e 20 6f 72 64 65 72 |...}..{ |In order|
|00000860| 20 74 6f 20 62 75 69 6c | 64 20 61 6e 20 65 78 74 | to buil|d an ext|
|00000870| 65 72 6e 61 6c 20 66 75 | 6e 63 74 69 6f 6e 20 6f |ernal fu|nction o|
|00000880| 72 20 70 72 6f 67 72 61 | 6d 2c 20 79 6f 75 20 6d |r progra|m, you m|
|00000890| 75 73 74 20 63 6f 6d 70 | 69 6c 65 20 61 6e 64 20 |ust comp|ile and |
|000008a0| 6c 69 6e 6b 20 74 68 65 | 09 09 09 09 09 09 09 7d |link the|.......}|
|000008b0| 0d 7b 20 66 6f 6c 6c 6f | 77 69 6e 67 20 66 69 6c |.{ follo|wing fil|
|000008c0| 65 73 3a 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |es:.....|........|
|000008d0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7d 0d 0d 7b |........|....}..{|
|000008e0| 20 20 09 70 72 6f 46 69 | 74 5f 69 6e 74 65 72 66 | .proFi|t_interf|
|000008f0| 61 63 65 2e 70 09 09 09 | 28 22 67 6c 75 65 22 20 |ace.p...|("glue" |
|00000900| 63 6f 64 65 20 73 74 61 | 6e 64 69 6e 67 20 62 65 |code sta|nding be|
|00000910| 74 77 65 65 6e 20 70 72 | 6f 20 46 69 74 20 61 6e |tween pr|o Fit an|
|00000920| 64 20 79 6f 75 72 20 70 | 72 6f 63 65 64 75 72 65 |d your p|rocedure|
|00000930| 73 29 09 09 09 09 7d 0d | 7b 20 20 09 58 58 58 58 |s)....}.|{ .XXXX|
|00000940| 58 58 2e 70 09 09 09 09 | 09 09 28 79 6f 75 72 20 |XX.p....|..(your |
|00000950| 70 72 6f 63 65 64 75 72 | 65 73 2c 20 77 68 65 72 |procedur|es, wher|
|00000960| 65 20 58 58 58 58 58 58 | 20 69 73 20 61 20 6e 61 |e XXXXXX| is a na|
|00000970| 6d 65 20 79 6f 75 20 64 | 65 66 69 6e 65 29 09 09 |me you d|efine)..|
|00000980| 09 09 09 7d 0d 0d 7b 20 | 4f 66 20 63 6f 75 72 73 |...}..{ |Of cours|
|00000990| 65 20 79 6f 75 20 63 61 | 6e 20 61 64 64 20 6f 74 |e you ca|n add ot|
|000009a0| 68 65 72 20 66 69 6c 65 | 73 20 69 66 20 79 6f 75 |her file|s if you|
|000009b0| 20 6e 65 65 64 20 74 68 | 65 6d 20 28 73 75 63 68 | need th|em (such|
|000009c0| 20 61 73 20 74 68 65 20 | 53 41 4e 45 20 6c 69 62 | as the |SANE lib|
|000009d0| 72 61 72 79 20 61 6e 64 | 20 69 6e 74 65 72 66 61 |rary and| interfa|
|000009e0| 63 65 29 2e 09 09 09 7d | 0d 7b 20 41 6c 73 6f 2c |ce)....}|.{ Also,|
|000009f0| 20 64 65 70 65 6e 64 69 | 6e 67 20 6f 6e 20 74 68 | dependi|ng on th|
|00000a00| 65 20 63 6f 6d 70 69 6c | 65 72 20 79 6f 75 20 75 |e compil|er you u|
|00000a10| 73 65 2c 20 79 6f 75 20 | 6d 61 79 20 68 61 76 65 |se, you |may have|
|00000a20| 20 74 6f 20 61 64 64 20 | 61 64 64 69 74 69 6f 6e | to add |addition|
|00000a30| 61 6c 09 09 09 09 09 09 | 09 09 09 7d 0d 7b 20 6d |al......|...}.{ m|
|00000a40| 6f 64 75 6c 65 73 20 63 | 6f 6e 74 61 69 6e 69 6e |odules c|ontainin|
|00000a50| 67 20 63 61 6c 6c 20 67 | 6c 75 65 73 20 66 6f 72 |g call g|lues for|
|00000a60| 20 73 79 73 74 65 6d 20 | 74 72 61 70 73 20 28 66 | system |traps (f|
|00000a70| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 69 6e 20 54 |or examp|le, in T|
|00000a80| 68 69 6e 6b 20 50 61 73 | 63 61 6c 20 79 6f 75 20 |hink Pas|cal you |
|00000a90| 6d 75 73 74 20 61 64 64 | 20 09 09 09 7d 0d 7b 20 |must add| ...}.{ |
|00000aa0| 49 6e 74 65 72 66 61 63 | 65 2e 6c 69 62 20 61 6e |Interfac|e.lib an|
|00000ab0| 64 20 44 52 56 52 52 75 | 6e 74 69 6d 65 2e 6c 69 |d DRVRRu|ntime.li|
|00000ac0| 62 20 74 6f 20 79 6f 75 | 72 20 70 72 6f 6a 65 63 |b to you|r projec|
|00000ad0| 74 29 2e 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |t)......|........|
|00000ae0| 09 09 7d 0d 0d 7b 20 57 | 68 65 6e 20 63 6f 6d 70 |..}..{ W|hen comp|
|00000af0| 69 6c 69 6e 67 20 74 68 | 69 73 20 66 69 6c 65 20 |iling th|is file |
|00000b00| 75 6e 64 65 72 20 4d 65 | 74 72 6f 77 65 72 6b 73 |under Me|trowerks|
|00000b10| 20 50 61 73 63 61 6c 2c | 20 79 6f 75 20 6e 65 65 | Pascal,| you nee|
|00000b20| 64 20 43 6f 64 65 57 61 | 72 72 69 6f 72 20 35 20 |d CodeWa|rrior 5 |
|00000b30| 6f 72 20 6c 61 74 65 72 | 09 09 09 09 09 7d 0d 7b |or later|.....}.{|
|00000b40| 20 77 69 74 68 20 74 68 | 65 20 75 6e 69 76 65 72 | with th|e univer|
|00000b50| 73 61 6c 20 69 6e 74 65 | 72 66 61 63 65 73 20 76 |sal inte|rfaces v|
|00000b60| 65 72 73 69 6f 6e 20 32 | 2e 30 09 09 09 09 09 09 |ersion 2|.0......|
|00000b70| 09 09 09 09 09 09 09 09 | 09 09 09 7d 0d 0d 7b 20 |........|...}..{ |
|00000b80| 43 6f 6d 70 69 6c 69 6e | 67 20 69 6e 73 74 72 75 |Compilin|g instru|
|00000b90| 63 74 69 6f 6e 73 20 66 | 6f 72 20 50 6f 77 65 72 |ctions f|or Power|
|00000ba0| 20 4d 61 63 69 6e 74 6f | 73 68 20 28 50 6f 77 65 | Macinto|sh (Powe|
|00000bb0| 72 50 43 29 3a 09 09 09 | 09 09 09 09 09 09 09 09 |rPC):...|........|
|00000bc0| 7d 0d 7b 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{ ----|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 09 09 09 09 09 09 09 |--------|-.......|
|00000c00| 09 09 09 7d 0d 0d 7b 20 | 43 6f 6d 70 69 6c 65 20 |...}..{ |Compile |
|00000c10| 79 6f 75 72 20 66 69 6c | 65 73 20 61 73 20 61 20 |your fil|es as a |
|00000c20| 22 73 68 61 72 65 64 20 | 6c 69 62 61 72 79 22 20 |"shared |libary" |
|00000c30| 6f 72 2c 20 6d 6f 72 65 | 20 61 63 63 75 72 61 74 |or, more| accurat|
|00000c40| 65 6c 79 2c 20 61 73 20 | 61 6e 20 22 61 70 70 6c |ely, as |an "appl|
|00000c50| 69 63 61 74 69 6f 6e 09 | 09 09 09 09 09 7d 0d 7b |ication.|.....}.{|
|00000c60| 20 65 78 74 65 6e 73 69 | 6f 6e 22 2e 20 54 68 65 | extensi|on". The|
|00000c70| 20 63 6f 64 65 20 73 68 | 6f 75 6c 64 20 72 65 73 | code sh|ould res|
|00000c80| 69 64 65 20 69 6e 20 74 | 68 65 20 64 61 74 61 20 |ide in t|he data |
|00000c90| 66 6f 72 6b 20 28 6e 6f | 74 20 61 20 72 65 73 6f |fork (no|t a reso|
|00000ca0| 75 72 63 65 29 20 61 6e | 64 20 69 74 20 73 68 6f |urce) an|d it sho|
|00000cb0| 75 6c 64 09 09 09 09 09 | 09 7d 0d 7b 20 65 78 70 |uld.....|.}.{ exp|
|00000cc0| 6f 72 74 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |ort the |function|
|00000cd0| 20 6d 61 69 6e 28 29 20 | 61 73 20 69 74 20 69 73 | main() |as it is|
|00000ce0| 20 64 65 66 69 6e 65 64 | 20 69 6e 20 74 68 65 20 | defined| in the |
|00000cf0| 74 65 6d 70 6c 61 74 65 | 20 66 69 6c 65 73 20 70 |template| files p|
|00000d00| 72 6f 76 69 64 65 64 2e | 09 09 09 09 09 09 09 7d |rovided.|.......}|
|00000d10| 0d 7b 20 54 68 65 20 74 | 79 70 65 20 6f 66 20 74 |.{ The t|ype of t|
|00000d20| 68 65 20 66 69 6c 65 20 | 79 6f 75 20 63 72 65 61 |he file |you crea|
|00000d30| 74 65 20 6d 75 73 74 20 | 62 65 20 27 66 74 43 44 |te must |be 'ftCD|
|00000d40| 27 2c 20 69 74 73 20 63 | 72 65 61 74 6f 72 20 6d |', its c|reator m|
|00000d50| 75 73 74 20 62 65 20 27 | 4e 4c 66 74 27 2e 09 09 |ust be '|NLft'...|
|00000d60| 09 09 09 09 7d 0d 0d 0d | 7b 20 43 6f 6d 70 69 6c |....}...|{ Compil|
|00000d70| 69 6e 67 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 73 |ing inst|ructions|
|00000d80| 20 66 6f 72 20 36 38 58 | 58 58 3a 09 09 09 09 09 | for 68X|XX:.....|
|00000d90| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 7b 20 2d 2d |........|..}.{ --|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 09 |--------|-------.|
|00000dc0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |........|......}.|
|00000dd0| 0d 7b 20 43 6f 6d 70 69 | 6c 65 20 79 6f 75 72 20 |.{ Compi|le your |
|00000de0| 66 69 6c 65 73 20 61 6e | 64 20 6c 69 6e 6b 20 74 |files an|d link t|
|00000df0| 68 65 6d 20 69 6e 20 61 | 20 73 69 6e 67 6c 65 20 |hem in a| single |
|00000e00| 72 65 73 6f 75 72 63 65 | 20 6f 66 20 74 79 70 65 |resource| of type|
|00000e10| 20 27 4e 4c 66 74 27 20 | 28 74 68 65 20 49 44 20 | 'NLft' |(the ID |
|00000e20| 6e 75 6d 62 65 72 09 09 | 09 09 09 09 7d 0d 7b 20 |number..|....}.{ |
|00000e30| 63 61 6e 20 62 65 20 61 | 6e 79 20 6e 75 6d 62 65 |can be a|ny numbe|
|00000e40| 72 20 3e 31 32 38 20 79 | 6f 75 20 6c 69 6b 65 29 |r >128 y|ou like)|
|00000e50| 2e 20 4d 61 6b 65 20 73 | 75 72 65 20 74 68 61 74 |. Make s|ure that|
|00000e60| 20 79 6f 75 72 20 63 6f | 64 65 20 63 6f 6e 73 69 | your co|de consi|
|00000e70| 73 74 73 20 6f 66 20 61 | 20 73 69 6e 67 6c 65 20 |sts of a| single |
|00000e80| 73 65 67 6d 65 6e 74 2e | 09 09 09 09 09 09 7d 0d |segment.|......}.|
|00000e90| 7b 20 52 65 66 65 72 20 | 74 6f 20 79 6f 75 72 20 |{ Refer |to your |
|00000ea0| 63 6f 6d 70 69 6c 65 72 | 27 73 20 6d 61 6e 75 61 |compiler|'s manua|
|00000eb0| 6c 20 69 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 6b |l if you| don't k|
|00000ec0| 6e 6f 77 20 68 6f 77 20 | 74 6f 20 63 6f 6d 70 69 |now how |to compi|
|00000ed0| 6c 65 20 63 6f 64 65 20 | 66 6f 72 20 61 20 72 65 |le code |for a re|
|00000ee0| 73 6f 75 72 63 65 2e 09 | 09 09 09 09 09 7d 0d 7b |source..|.....}.{|
|00000ef0| 20 50 75 74 20 79 6f 75 | 72 20 72 65 73 6f 75 72 | Put you|r resour|
|00000f00| 63 65 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 68 |ce into |a file h|
|00000f10| 61 76 69 6e 67 20 74 68 | 65 20 74 79 70 65 20 27 |aving th|e type '|
|00000f20| 66 74 43 44 27 20 61 6e | 64 20 74 68 65 20 63 72 |ftCD' an|d the cr|
|00000f30| 65 61 74 6f 72 20 27 4e | 4c 66 74 27 2e 09 09 09 |eator 'N|Lft'....|
|00000f40| 09 09 09 7d 0d 0d 7b 20 | 42 65 66 6f 72 65 20 63 |...}..{ |Before c|
|00000f50| 6f 6d 70 69 6c 69 6e 67 | 2c 20 6d 61 6b 65 20 73 |ompiling|, make s|
|00000f60| 75 72 65 20 74 68 61 74 | 20 79 6f 75 20 63 68 6f |ure that| you cho|
|00000f70| 6f 73 65 20 74 68 65 20 | 63 6f 6d 70 69 6c 65 72 |ose the |compiler|
|00000f80| 20 6f 70 74 69 6f 6e 73 | 20 74 68 61 74 20 61 72 | options| that ar|
|00000f90| 65 20 63 6f 6d 70 61 74 | 69 62 6c 65 09 09 09 09 |e compat|ible....|
|00000fa0| 09 09 7d 0d 7b 20 77 69 | 74 68 20 74 68 65 20 76 |..}.{ wi|th the v|
|00000fb0| 65 72 73 69 6f 6e 20 6f | 66 20 70 72 6f 20 46 69 |ersion o|f pro Fi|
|00000fc0| 74 20 79 6f 75 20 75 73 | 65 3a 09 09 09 09 09 09 |t you us|e:......|
|00000fd0| 7d 0d 0d 7b 20 49 66 20 | 79 6f 75 20 75 73 65 20 |}..{ If |you use |
|00000fe0| 74 68 65 20 46 50 55 20 | 76 65 72 73 69 6f 6e 20 |the FPU |version |
|00000ff0| 6f 66 20 70 72 6f 20 46 | 69 74 2c 20 6d 61 6b 65 |of pro F|it, make|
|00001000| 20 73 75 72 65 20 74 68 | 61 74 20 79 6f 75 72 20 | sure th|at your |
|00001010| 65 78 74 65 6e 64 65 64 | 20 76 61 72 69 61 62 6c |extended| variabl|
|00001020| 65 73 20 61 72 65 20 31 | 32 09 09 09 09 09 09 7d |es are 1|2......}|
|00001030| 0d 7b 20 62 79 74 65 73 | 20 6c 6f 6e 67 69 6e 74 |.{ bytes| longint|
|00001040| 2e 20 49 6e 20 54 68 69 | 6e 6b 20 50 61 73 63 61 |. In Thi|nk Pasca|
|00001050| 6c 2c 20 63 68 65 63 6b | 20 22 36 38 30 32 30 2f |l, check| "68020/|
|00001060| 36 38 30 33 30 22 20 61 | 6e 64 20 22 36 38 38 38 |68030" a|nd "6888|
|00001070| 31 2f 36 38 38 38 32 22 | 20 09 09 09 09 09 09 09 |1/68882"| .......|
|00001080| 09 7d 0d 7b 20 75 6e 64 | 65 72 20 43 6f 6d 70 69 |.}.{ und|er Compi|
|00001090| 6c 65 20 4f 70 74 69 6f | 6e 73 2e 09 09 09 09 09 |le Optio|ns......|
|000010a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7d 0d 0d 7b |........|....}..{|
|000010b0| 20 49 66 20 79 6f 75 20 | 75 73 65 20 74 68 65 20 | If you |use the |
|000010c0| 6e 6f 6e 2d 46 50 55 20 | 76 65 72 73 69 6f 6e 20 |non-FPU |version |
|000010d0| 6f 66 20 70 72 6f 20 46 | 69 74 2c 20 6d 61 6b 65 |of pro F|it, make|
|000010e0| 20 73 75 72 65 20 74 68 | 61 74 20 79 6f 75 72 20 | sure th|at your |
|000010f0| 65 78 74 65 6e 64 65 64 | 20 76 61 72 69 61 62 6c |extended| variabl|
|00001100| 65 73 20 61 72 65 09 09 | 09 09 09 09 7d 0d 7b 20 |es are..|....}.{ |
|00001110| 31 30 20 62 79 74 65 73 | 20 6c 6f 6e 67 69 6e 74 |10 bytes| longint|
|00001120| 2e 20 49 6e 20 54 68 69 | 6e 6b 20 50 61 73 63 61 |. In Thi|nk Pasca|
|00001130| 6c 2c 20 75 6e 63 68 65 | 63 6b 20 20 22 36 38 30 |l, unche|ck "680|
|00001140| 32 30 2f 36 38 30 33 30 | 22 20 61 6e 64 20 22 36 |20/68030|" and "6|
|00001150| 38 38 38 31 2f 36 38 38 | 38 32 22 09 09 09 09 09 |8881/688|82".....|
|00001160| 09 7d 0d 7b 20 75 6e 64 | 65 72 20 43 6f 6d 70 69 |.}.{ und|er Compi|
|00001170| 6c 65 20 4f 70 74 69 6f | 6e 73 2e 09 09 09 09 09 |le Optio|ns......|
|00001180| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 0d |........|.....}..|
|00001190| 7b 20 54 68 65 20 65 78 | 74 65 72 6e 61 6c 20 6d |{ The ex|ternal m|
|000011a0| 6f 64 75 6c 65 20 69 73 | 20 61 20 63 6f 6d 70 69 |odule is| a compi|
|000011b0| 6c 65 64 20 63 6f 64 65 | 20 72 65 73 6f 75 72 63 |led code| resourc|
|000011c0| 65 20 74 68 61 74 20 70 | 72 6f 76 69 64 65 73 20 |e that p|rovides |
|000011d0| 61 20 70 72 6f 63 65 64 | 75 72 65 20 63 61 6c 6c |a proced|ure call|
|000011e0| 65 64 20 27 6d 61 69 6e | 27 2e 09 09 09 09 09 09 |ed 'main|'.......|
|000011f0| 7d 0d 7b 20 59 6f 75 20 | 6d 75 73 74 20 6d 61 6b |}.{ You |must mak|
|00001200| 65 20 73 75 72 65 20 74 | 68 61 74 20 6d 61 69 6e |e sure t|hat main|
|00001210| 20 69 73 20 61 74 20 74 | 68 65 20 62 65 67 69 6e | is at t|he begin|
|00001220| 6e 69 6e 67 20 6f 66 20 | 79 6f 75 72 20 63 6f 64 |ning of |your cod|
|00001230| 65 2e 20 55 6e 64 65 72 | 20 53 79 6d 61 6e 74 65 |e. Under| Symante|
|00001240| 63 27 73 09 09 09 09 09 | 09 7d 0d 7b 20 63 6f 6d |c's.....|.}.{ com|
|00001250| 70 69 6c 65 72 73 2c 20 | 74 68 69 73 20 69 73 20 |pilers, |this is |
|00001260| 64 6f 6e 65 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |done aut|omatical|
|00001270| 6c 79 2e 20 55 6e 64 65 | 72 20 4d 50 57 2c 20 79 |ly. Unde|r MPW, y|
|00001280| 6f 75 20 6d 75 73 74 20 | 6d 61 6b 65 20 73 75 72 |ou must |make sur|
|00001290| 65 20 74 68 61 74 20 6d | 61 69 6e 28 29 09 09 09 |e that m|ain()...|
|000012a0| 09 09 09 7d 0d 7b 20 69 | 73 20 74 68 65 20 66 69 |...}.{ i|s the fi|
|000012b0| 72 73 74 20 72 6f 75 74 | 69 6e 65 20 74 68 61 74 |rst rout|ine that|
|000012c0| 20 69 73 20 63 6f 6d 70 | 69 6c 65 64 20 61 6e 64 | is comp|iled and|
|000012d0| 20 6c 69 6e 6b 65 64 2e | 09 09 09 09 09 09 09 09 | linked.|........|
|000012e0| 09 09 09 7d 0d 0d 7b 20 | 2a 2a 2a 2a 2a 2a 2a 2a |...}..{ |********|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 09 |********|*******.|
|00001340| 09 09 7d 0d 0d 0d 75 6e | 69 74 20 70 72 6f 46 69 |..}...un|it proFi|
|00001350| 74 5f 69 6e 74 65 72 66 | 61 63 65 3b 0d 0d 69 6e |t_interf|ace;..in|
|00001360| 74 65 72 66 61 63 65 0d | 0d 0d 7b 20 09 2a 2a 2a |terface.|..{ .***|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013c0| 2a 2a 2a 2a 2a 09 09 09 | 09 09 09 7d 0d 0d 7b 20 |*****...|...}..{ |
|000013d0| 09 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 61 |.The fol|lowing a|
|000013e0| 72 65 20 74 68 65 20 74 | 79 70 65 20 64 65 66 69 |re the t|ype defi|
|000013f0| 6e 69 74 69 6f 6e 73 20 | 74 68 61 74 20 73 65 72 |nitions |that ser|
|00001400| 76 65 20 61 73 20 61 6e | 20 69 6e 74 65 72 66 61 |ve as an| interfa|
|00001410| 63 65 20 62 65 74 77 65 | 65 6e 20 74 68 65 09 09 |ce betwe|en the..|
|00001420| 09 09 09 09 7d 0d 7b 20 | 09 65 78 74 65 72 6e 61 |....}.{ |.externa|
|00001430| 6c 20 6d 6f 64 75 6c 65 | 20 61 6e 64 20 70 72 6f |l module| and pro|
|00001440| 20 46 69 74 2e 20 54 68 | 65 73 65 20 64 65 63 6c | Fit. Th|ese decl|
|00001450| 61 72 61 74 69 6f 6e 73 | 20 64 65 73 63 72 69 62 |arations| describ|
|00001460| 65 20 65 78 61 63 74 6c | 79 20 68 6f 77 20 70 72 |e exactl|y how pr|
|00001470| 6f 20 46 69 74 09 09 09 | 09 09 09 7d 0d 7b 20 09 |o Fit...|...}.{ .|
|00001480| 65 78 70 65 63 74 73 20 | 74 68 65 20 65 78 74 65 |expects |the exte|
|00001490| 72 6e 61 6c 20 6d 6f 64 | 75 6c 65 20 74 6f 20 61 |rnal mod|ule to a|
|000014a0| 72 72 61 6e 67 65 20 74 | 68 65 20 69 6e 66 6f 72 |rrange t|he infor|
|000014b0| 6d 61 74 69 6f 6e 20 69 | 74 20 70 72 6f 76 69 64 |mation i|t provid|
|000014c0| 65 73 2c 20 61 6e 64 20 | 68 6f 77 20 74 68 65 09 |es, and |how the.|
|000014d0| 09 09 09 09 09 7d 0d 7b | 20 09 69 6e 66 6f 72 6d |.....}.{| .inform|
|000014e0| 61 74 69 6f 6e 20 70 72 | 6f 76 69 64 65 64 20 62 |ation pr|ovided b|
|000014f0| 79 20 70 72 6f 20 46 69 | 74 20 69 73 20 61 72 72 |y pro Fi|t is arr|
|00001500| 61 6e 67 65 64 2e 09 09 | 09 09 09 09 09 09 09 09 |anged...|........|
|00001510| 09 09 09 7d 0d 7b 20 09 | 44 6f 6e 27 74 20 65 76 |...}.{ .|Don't ev|
|00001520| 65 6e 20 74 68 69 6e 6b | 20 6f 66 20 63 68 61 6e |en think| of chan|
|00001530| 67 69 6e 67 20 73 6f 6d | 65 74 68 69 6e 67 20 69 |ging som|ething i|
|00001540| 6e 20 74 68 69 73 20 66 | 69 6c 65 2e 20 54 68 65 |n this f|ile. The|
|00001550| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 73 20 69 74 | informa|tions it|
|00001560| 20 63 6f 6e 74 61 69 6e | 73 09 09 09 09 09 09 7d | contain|s......}|
|00001570| 0d 7b 20 09 61 72 65 20 | 76 69 74 61 6c 20 74 6f |.{ .are |vital to|
|00001580| 20 74 68 65 20 65 78 74 | 65 72 6e 61 6c 20 6d 6f | the ext|ernal mo|
|00001590| 64 75 6c 65 20 69 6e 20 | 74 68 65 69 72 20 70 72 |dule in |their pr|
|000015a0| 65 73 65 6e 74 2c 20 6f | 72 69 67 69 6e 61 6c 20 |esent, o|riginal |
|000015b0| 66 6f 72 6d 2e 20 54 68 | 65 79 20 61 72 65 20 64 |form. Th|ey are d|
|000015c0| 65 61 64 6c 79 20 69 66 | 09 09 09 09 09 09 7d 0d |eadly if|......}.|
|000015d0| 7b 20 09 79 6f 75 20 6d | 6f 64 69 66 79 20 74 68 |{ .you m|odify th|
|000015e0| 65 6d 2e 09 09 09 09 09 | 09 7d 0d 7b 20 09 41 4e |em......|.}.{ .AN|
|000015f0| 59 20 63 68 61 6e 67 65 | 20 69 6e 20 61 20 74 79 |Y change| in a ty|
|00001600| 70 65 20 64 65 66 69 6e | 69 74 69 6f 6e 20 28 65 |pe defin|ition (e|
|00001610| 2e 67 2e 20 63 68 61 6e | 67 69 6e 67 20 74 68 65 |.g. chan|ging the|
|00001620| 20 72 61 6e 67 65 73 20 | 6f 66 20 61 6e 20 61 72 | ranges |of an ar|
|00001630| 72 61 79 20 6f 72 20 74 | 68 65 09 09 09 09 09 09 |ray or t|he......|
|00001640| 09 7d 0d 7b 20 09 6f 72 | 64 65 72 20 6f 66 20 74 |.}.{ .or|der of t|
|00001650| 68 65 20 66 69 65 6c 64 | 73 20 69 6e 20 61 20 72 |he field|s in a r|
|00001660| 65 63 6f 72 64 29 20 69 | 73 20 67 75 61 72 61 6e |ecord) i|s guaran|
|00001670| 74 65 65 64 20 74 6f 20 | 63 61 75 73 65 20 76 65 |teed to |cause ve|
|00001680| 72 79 20 75 67 6c 79 20 | 63 6f 6e 73 65 71 75 65 |ry ugly |conseque|
|00001690| 6e 63 65 73 2e 09 09 09 | 09 09 09 7d 0d 7b 20 09 |nces....|...}.{ .|
|000016a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000016b0| 09 09 09 09 7d 0d 7b 20 | 09 46 6f 72 20 61 20 64 |....}.{ |.For a d|
|000016c0| 65 74 61 69 6c 65 64 20 | 64 65 73 63 72 69 70 74 |etailed |descript|
|000016d0| 69 6f 6e 20 6f 66 20 74 | 68 65 73 65 20 64 65 63 |ion of t|hese dec|
|000016e0| 6c 61 72 61 74 69 6f 6e | 73 20 61 6e 64 20 74 68 |laration|s and th|
|000016f0| 65 69 72 20 75 73 65 2c | 20 73 65 65 20 74 68 65 |eir use,| see the|
|00001700| 09 09 09 09 09 09 7d 0d | 7b 20 09 70 72 6f 20 46 |......}.|{ .pro F|
|00001710| 69 74 20 75 73 65 72 20 | 6d 61 6e 75 61 6c 2e 09 |it user |manual..|
|00001720| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |........|.......}|
|00001730| 0d 7b 20 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |.{ .....|........|
|00001740| 09 09 09 09 09 09 09 09 | 7d 0d 0d 0d 7b 24 49 46 |........|}...{$IF|
|00001750| 43 20 55 4e 44 45 46 49 | 4e 45 44 20 50 4f 57 45 |C UNDEFI|NED POWE|
|00001760| 52 50 43 7d 0d 09 7b 20 | 69 66 20 74 68 69 73 20 |RPC}..{ |if this |
|00001770| 69 73 20 6e 6f 74 20 64 | 65 66 69 6e 65 64 2c 20 |is not d|efined, |
|00001780| 77 65 20 61 73 73 75 6d | 65 20 74 68 61 74 20 74 |we assum|e that t|
|00001790| 68 69 73 20 69 73 20 61 | 20 36 38 6b 20 63 6f 6d |his is a| 68k com|
|000017a0| 70 69 6c 65 72 20 09 09 | 09 7d 0d 09 7b 24 53 45 |piler ..|.}..{$SE|
|000017b0| 54 43 20 50 4f 57 45 52 | 50 43 20 3a 3d 20 66 61 |TC POWER|PC := fa|
|000017c0| 6c 73 65 09 09 09 7d 0d | 7b 24 45 4e 44 43 7d 0d |lse...}.|{$ENDC}.|
|000017d0| 0d 7b 24 49 46 43 20 55 | 4e 44 45 46 49 4e 45 44 |.{$IFC U|NDEFINED|
|000017e0| 20 54 48 49 4e 4b 5f 50 | 41 53 43 41 4c 20 7d 0d | THINK_P|ASCAL }.|
|000017f0| 09 7b 20 69 66 20 74 68 | 69 73 20 69 73 20 74 68 |.{ if th|is is th|
|00001800| 65 20 74 68 69 6e 6b 20 | 70 61 73 63 61 6c 20 63 |e think |pascal c|
|00001810| 6f 6d 70 69 6c 65 72 7d | 0d 09 7b 20 74 68 65 6e |ompiler}|..{ then|
|00001820| 20 77 65 20 64 6f 6e 27 | 74 20 6e 65 65 64 20 61 | we don'|t need a|
|00001830| 6e 79 20 22 75 73 65 73 | 22 20 61 74 20 61 6c 6c |ny "uses|" at all|
|00001840| 7d 0d 09 7b 24 49 46 43 | 20 55 4e 44 45 46 49 4e |}..{$IFC| UNDEFIN|
|00001850| 45 44 20 55 73 69 6e 67 | 49 6e 63 6c 75 64 65 73 |ED Using|Includes|
|00001860| 7d 0d 09 09 7b 24 53 45 | 54 43 20 55 73 69 6e 67 |}...{$SE|TC Using|
|00001870| 49 6e 63 6c 75 64 65 73 | 20 3a 3d 20 30 7d 0d 09 |Includes| := 0}..|
|00001880| 7b 24 45 4e 44 43 7d 0d | 0d 09 09 7b 24 49 46 43 |{$ENDC}.|...{$IFC|
|00001890| 20 4e 4f 54 20 50 4f 57 | 45 52 50 43 7d 0d 09 75 | NOT POW|ERPC}..u|
|000018a0| 73 65 73 0d 09 09 54 79 | 70 65 73 2c 20 54 65 78 |ses...Ty|pes, Tex|
|000018b0| 74 55 74 69 6c 73 2c 20 | 46 69 6c 65 73 2c 20 46 |tUtils, |Files, F|
|000018c0| 69 6c 65 73 2c 51 75 69 | 63 6b 44 72 61 77 2c 20 |iles,Qui|ckDraw, |
|000018d0| 45 76 65 6e 74 73 3b 0d | 09 09 7b 24 45 4c 53 45 |Events;.|..{$ELSE|
|000018e0| 43 7d 0d 09 75 73 65 73 | 0d 09 09 54 79 70 65 73 |C}..uses|...Types|
|000018f0| 2c 20 54 65 78 74 55 74 | 69 6c 73 2c 20 4d 69 78 |, TextUt|ils, Mix|
|00001900| 65 64 4d 6f 64 65 2c 20 | 46 69 6c 65 73 2c 20 51 |edMode, |Files, Q|
|00001910| 75 69 63 6b 64 72 61 77 | 2c 20 45 76 65 6e 74 73 |uickdraw|, Events|
|00001920| 3b 0d 09 09 7b 24 45 4e | 44 43 7d 0d 0d 7b 24 45 |;...{$EN|DC}..{$E|
|00001930| 4e 44 43 7d 0d 0d 7b 24 | 49 46 43 20 55 4e 44 45 |NDC}..{$|IFC UNDE|
|00001940| 46 49 4e 45 44 20 5f 5f | 43 4f 4e 44 49 54 49 4f |FINED __|CONDITIO|
|00001950| 4e 41 4c 4d 41 43 52 4f | 53 5f 5f 7d 0d 09 7b 20 |NALMACRO|S__}..{ |
|00001960| 5f 5f 43 4f 4e 44 49 54 | 49 4f 4e 41 4c 4d 41 43 |__CONDIT|IONALMAC|
|00001970| 52 4f 53 5f 5f 20 77 6f | 75 6c 64 20 62 65 20 64 |ROS__ wo|uld be d|
|00001980| 65 66 69 6e 65 64 20 69 | 6e 20 43 6f 6e 64 69 74 |efined i|n Condit|
|00001990| 69 6f 6e 61 6c 4d 61 63 | 72 6f 73 2e 70 20 6f 66 |ionalMac|ros.p of|
|000019a0| 20 74 68 65 20 75 6e 69 | 76 65 72 73 61 6c 20 68 | the uni|versal h|
|000019b0| 65 61 64 65 72 73 20 76 | 65 72 73 69 6f 6e 20 32 |eaders v|ersion 2|
|000019c0| 20 6f 72 20 6c 61 74 65 | 72 2e 20 7d 0d 09 7b 20 | or late|r. }..{ |
|000019d0| 69 66 20 69 74 20 69 73 | 20 6e 6f 74 20 64 65 66 |if it is| not def|
|000019e0| 69 6e 65 64 2c 20 77 65 | 20 61 73 73 75 6d 65 20 |ined, we| assume |
|000019f0| 74 68 61 74 20 74 68 69 | 73 20 69 73 20 61 20 36 |that thi|s is a 6|
|00001a00| 38 6b 20 63 6f 6d 70 69 | 6c 65 72 3a 20 7d 0d 09 |8k compi|ler: }..|
|00001a10| 7b 24 53 45 54 43 20 47 | 45 4e 45 52 41 54 49 4e |{$SETC G|ENERATIN|
|00001a20| 47 50 4f 57 45 52 50 43 | 20 3a 3d 20 66 61 6c 73 |GPOWERPC| := fals|
|00001a30| 65 7d 0d 09 7b 24 53 45 | 54 43 20 47 45 4e 45 52 |e}..{$SE|TC GENER|
|00001a40| 41 54 49 4e 47 36 38 4b | 20 3a 3d 20 74 72 75 65 |ATING68K| := true|
|00001a50| 7d 0d 7b 24 45 4e 44 43 | 7d 0d 0d 7b 24 49 46 43 |}.{$ENDC|}..{$IFC|
|00001a60| 20 4e 4f 54 20 55 4e 44 | 45 46 49 4e 45 44 20 4d | NOT UND|EFINED M|
|00001a70| 57 45 52 4b 53 20 41 4e | 44 20 47 45 4e 45 52 41 |WERKS AN|D GENERA|
|00001a80| 54 49 4e 47 36 38 4b 7d | 0d 09 66 75 6e 63 74 69 |TING68K}|..functi|
|00001a90| 6f 6e 20 53 65 74 43 75 | 72 72 65 6e 74 41 34 3a |on SetCu|rrentA4:|
|00001aa0| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 43 3b 0d 09 | longint|;...C;..|
|00001ab0| 65 78 74 65 72 6e 61 6c | 3b 0d 09 66 75 6e 63 74 |external|;..funct|
|00001ac0| 69 6f 6e 20 53 65 74 41 | 34 20 28 6e 65 77 41 34 |ion SetA|4 (newA4|
|00001ad0| 3a 20 6c 6f 6e 67 69 6e | 74 29 3a 20 6c 6f 6e 67 |: longin|t): long|
|00001ae0| 69 6e 74 3b 0d 09 65 78 | 74 65 72 6e 61 6c 3b 0d |int;..ex|ternal;.|
|00001af0| 09 7b 24 53 45 54 43 20 | 53 45 54 5f 41 34 20 3a |.{$SETC |SET_A4 :|
|00001b00| 3d 20 74 72 75 65 7d 0d | 7b 24 45 4e 44 43 7d 0d |= true}.|{$ENDC}.|
|00001b10| 0d 0d 0d 09 63 6f 6e 73 | 74 0d 09 09 76 65 72 73 |....cons|t...vers|
|00001b20| 69 6f 6e 4e 75 6d 62 65 | 72 20 3d 20 31 3b 09 09 |ionNumbe|r = 1;..|
|00001b30| 09 7b 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 6e |.{ the v|ersion n|
|00001b40| 75 6d 62 65 72 20 6f 66 | 20 74 68 69 73 20 69 6d |umber of| this im|
|00001b50| 70 6c 65 6d 65 6e 74 61 | 74 69 6f 6e 20 09 09 09 |plementa|tion ...|
|00001b60| 7d 0d 0d 0d 09 09 69 73 | 46 75 6e 63 74 69 6f 6e |}.....is|Function|
|00001b70| 20 3d 20 31 3b 09 09 09 | 09 7b 20 63 6f 6e 73 74 | = 1;...|.{ const|
|00001b80| 61 6e 74 73 20 75 73 65 | 64 20 69 6e 20 74 68 65 |ants use|d in the|
|00001b90| 20 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 75 70 | procedu|re Setup|
|00001ba0| 20 74 6f 20 73 65 74 20 | 74 68 65 20 70 61 72 61 | to set |the para|
|00001bb0| 6d 65 74 65 72 20 6d 6f | 64 75 6c 65 4b 69 6e 64 |meter mo|duleKind|
|00001bc0| 09 09 09 7d 0d 09 09 69 | 73 50 72 6f 67 72 61 6d |...}...i|sProgram|
|00001bd0| 20 3d 20 32 3b 0d 09 09 | 69 73 4d 61 63 72 6f 20 | = 2;...|isMacro |
|00001be0| 3d 20 33 3b 0d 0d 09 09 | 64 72 61 77 69 6e 67 54 |= 3;....|drawingT|
|00001bf0| 79 70 65 20 3d 20 27 66 | 74 47 46 27 3b 20 20 20 |ype = 'f|tGF'; |
|00001c00| 20 09 09 7b 20 77 69 6e | 64 6f 77 20 74 79 70 65 | ..{ win|dow type|
|00001c10| 73 2c 20 75 73 65 64 20 | 62 79 20 44 6f 4e 65 77 |s, used |by DoNew|
|00001c20| 57 69 6e 64 6f 77 2c 20 | 65 74 63 2e 20 7d 0d 09 |Window, |etc. }..|
|00001c30| 09 64 61 74 61 54 79 70 | 65 20 3d 20 27 66 74 4c |.dataTyp|e = 'ftL|
|00001c40| 53 27 3b 0d 09 09 74 65 | 78 74 54 79 70 65 20 3d |S';...te|xtType =|
|00001c50| 20 27 66 74 46 43 27 3b | 0d 09 09 64 65 66 61 75 | 'ftFC';|...defau|
|00001c60| 6c 74 54 79 70 65 20 3d | 20 27 2a 2a 2a 2a 27 3b |ltType =| '****';|
|00001c70| 0d 0d 09 09 67 61 75 73 | 73 44 69 73 74 72 20 3d |....gaus|sDistr =|
|00001c80| 20 31 3b 09 09 09 09 7b | 20 65 72 72 6f 72 20 64 | 1;....{| error d|
|00001c90| 69 73 74 72 69 62 75 74 | 69 6f 6e 73 2c 20 75 73 |istribut|ions, us|
|00001ca0| 65 64 20 66 6f 72 20 73 | 65 74 74 69 6e 67 20 74 |ed for s|etting t|
|00001cb0| 68 65 20 70 61 72 61 6d | 65 74 65 72 73 20 6f 66 |he param|eters of|
|00001cc0| 20 74 68 65 20 53 65 74 | 46 69 74 44 65 66 61 75 | the Set|FitDefau|
|00001cd0| 6c 74 73 20 72 6f 75 74 | 69 6e 65 20 20 7d 0d 09 |lts rout|ine }..|
|00001ce0| 09 64 6f 75 62 6c 65 45 | 78 70 44 69 73 74 72 20 |.doubleE|xpDistr |
|00001cf0| 3d 20 32 3b 0d 09 09 6c | 6f 72 65 6e 74 7a 44 69 |= 2;...l|orentzDi|
|00001d00| 73 74 72 20 3d 20 33 3b | 0d 09 09 61 6e 64 72 65 |str = 3;|...andre|
|00001d10| 77 44 69 73 74 72 20 3d | 20 34 3b 0d 09 09 74 75 |wDistr =| 4;...tu|
|00001d20| 6b 65 79 44 69 73 74 72 | 20 3d 20 35 3b 0d 0d 09 |keyDistr| = 5;...|
|00001d30| 09 64 65 66 61 75 6c 74 | 46 6f 72 6d 61 74 20 3d |.default|Format =|
|00001d40| 20 30 3b 09 09 09 7b 20 | 44 72 61 77 69 6e 67 20 | 0;...{ |Drawing |
|00001d50| 77 69 6e 64 6f 77 20 66 | 69 6c 65 20 66 6f 72 6d |window f|ile form|
|00001d60| 61 74 73 20 7d 0d 09 09 | 70 69 63 74 46 6f 72 6d |ats }...|pictForm|
|00001d70| 61 74 20 3d 20 31 3b 0d | 09 09 65 70 73 46 6f 72 |at = 1;.|..epsFor|
|00001d80| 6d 61 74 20 3d 20 32 3b | 0d 0d 09 09 66 6c 6f 61 |mat = 2;|....floa|
|00001d90| 74 43 6f 6c 75 6d 6e 20 | 3d 20 30 3b 09 09 09 7b |tColumn |= 0;...{|
|00001da0| 20 64 61 74 61 20 63 6f | 6c 75 6d 6e 20 74 79 70 | data co|lumn typ|
|00001db0| 65 73 20 09 09 7d 0d 09 | 09 64 6f 75 62 6c 65 43 |es ..}..|.doubleC|
|00001dc0| 6f 6c 75 6d 6e 20 3d 20 | 31 3b 0d 09 09 74 65 78 |olumn = |1;...tex|
|00001dd0| 74 43 6f 6c 75 6d 6e 20 | 3d 20 31 32 38 3b 0d 0d |tColumn |= 128;..|
|00001de0| 09 09 6e 6f 45 72 72 6f | 72 73 20 3d 20 30 3b 09 |..noErro|rs = 0;.|
|00001df0| 7b 65 72 72 6f 72 20 62 | 61 72 20 74 79 70 65 73 |{error b|ar types|
|00001e00| 2c 20 75 73 65 64 20 66 | 6f 72 20 73 65 74 74 69 |, used f|or setti|
|00001e10| 6e 67 20 74 68 65 20 22 | 65 72 72 6f 72 73 22 20 |ng the "|errors" |
|00001e20| 70 61 72 61 6d 65 74 65 | 72 20 69 6e 20 74 68 65 |paramete|r in the|
|00001e30| 20 4f 70 65 6e 44 61 74 | 61 53 65 74 20 72 6f 75 | OpenDat|aSet rou|
|00001e40| 74 69 6e 65 7d 0d 09 09 | 65 42 61 72 59 20 3d 20 |tine}...|eBarY = |
|00001e50| 31 3b 0d 09 09 65 42 61 | 72 58 20 3d 20 32 3b 0d |1;...eBa|rX = 2;.|
|00001e60| 09 09 61 73 79 6d 6d 45 | 42 61 72 59 20 3d 20 34 |..asymmE|BarY = 4|
|00001e70| 3b 0d 09 09 61 73 79 6d | 6d 45 42 61 72 58 20 3d |;...asym|mEBarX =|
|00001e80| 20 38 3b 0d 0d 09 09 78 | 41 78 69 73 20 3d 20 30 | 8;....x|Axis = 0|
|00001e90| 3b 09 7b 20 63 6f 6e 73 | 74 61 6e 74 73 20 75 73 |;.{ cons|tants us|
|00001ea0| 65 64 20 66 6f 72 20 74 | 68 65 20 72 6f 75 74 69 |ed for t|he routi|
|00001eb0| 6e 65 73 20 61 63 63 65 | 73 73 69 6e 67 20 74 68 |nes acce|ssing th|
|00001ec0| 65 20 63 75 72 72 65 6e | 74 20 78 20 6f 72 20 79 |e curren|t x or y|
|00001ed0| 20 61 78 69 73 2c 20 73 | 75 63 68 20 61 73 20 22 | axis, s|uch as "|
|00001ee0| 53 65 74 52 61 6e 67 65 | 22 7d 0d 09 09 79 41 78 |SetRange|"}...yAx|
|00001ef0| 69 73 20 3d 20 31 3b 20 | 7b 20 75 73 65 64 20 74 |is = 1; |{ used t|
|00001f00| 6f 20 64 69 73 74 69 6e | 67 75 69 73 68 20 62 65 |o distin|guish be|
|00001f10| 74 77 65 65 6e 20 59 20 | 61 6e 64 20 58 20 61 78 |tween Y |and X ax|
|00001f20| 65 73 2e 09 09 09 09 7d | 0d 0d 09 09 65 71 75 61 |es.....}|....equa|
|00001f30| 6c 54 6f 4d 61 69 6e 20 | 3d 20 31 3b 09 7b 20 63 |lToMain |= 1;.{ c|
|00001f40| 6f 6e 73 74 61 6e 74 73 | 20 75 73 65 64 20 66 6f |onstants| used fo|
|00001f50| 72 20 73 65 74 74 69 6e | 67 20 74 68 65 20 22 66 |r settin|g the "f|
|00001f60| 6c 61 67 73 22 20 66 69 | 65 6c 64 20 6f 66 20 74 |lags" fi|eld of t|
|00001f70| 68 65 20 53 65 74 41 78 | 69 73 41 74 74 72 69 62 |he SetAx|isAttrib|
|00001f80| 75 74 65 73 20 72 6f 75 | 74 69 6e 65 09 09 7d 0d |utes rou|tine..}.|
|00001f90| 09 09 64 72 61 77 41 78 | 69 73 4c 69 6e 65 20 3d |..drawAx|isLine =|
|00001fa0| 20 32 3b 0d 09 09 64 72 | 61 77 54 69 63 6b 73 20 | 2;...dr|awTicks |
|00001fb0| 3d 20 34 3b 0d 09 09 64 | 72 61 77 4d 61 6a 6f 72 |= 4;...d|rawMajor|
|00001fc0| 54 69 63 6b 4c 61 62 65 | 6c 73 20 3d 20 38 3b 0d |TickLabe|ls = 8;.|
|00001fd0| 09 09 64 72 61 77 4d 69 | 6e 6f 72 54 69 63 6b 4c |..drawMi|norTickL|
|00001fe0| 61 62 65 6c 73 20 3d 20 | 24 30 30 30 30 30 30 31 |abels = |$0000001|
|00001ff0| 30 3b 0d 09 09 70 6c 75 | 73 53 69 64 65 54 69 63 |0;...plu|sSideTic|
|00002000| 6b 73 20 3d 20 24 30 30 | 30 30 30 30 32 30 3b 0d |ks = $00|000020;.|
|00002010| 09 09 6d 69 6e 75 73 53 | 69 64 65 54 69 63 6b 73 |..minusS|ideTicks|
|00002020| 20 3d 20 24 30 30 30 30 | 30 30 34 30 3b 0d 09 09 | = $0000|0040;...|
|00002030| 70 6c 75 73 53 69 64 65 | 4c 61 62 65 6c 73 20 3d |plusSide|Labels =|
|00002040| 20 24 30 30 30 30 30 30 | 38 30 3b 0d 09 09 6c 61 | $000000|80;...la|
|00002050| 62 65 6c 73 4f 75 74 73 | 69 64 65 46 72 61 6d 65 |belsOuts|ideFrame|
|00002060| 20 3d 20 24 30 30 30 30 | 30 31 30 30 3b 0d 0d 09 | = $0000|0100;...|
|00002070| 09 64 72 61 77 46 72 61 | 6d 65 20 3d 20 32 3b 09 |.drawFra|me = 2;.|
|00002080| 7b 20 63 6f 6e 73 74 61 | 6e 74 73 20 75 73 65 64 |{ consta|nts used|
|00002090| 20 66 6f 72 20 73 65 74 | 74 69 6e 67 20 74 68 65 | for set|ting the|
|000020a0| 20 22 66 6c 61 67 73 22 | 20 66 69 65 6c 64 20 69 | "flags"| field i|
|000020b0| 6e 20 63 61 6c 6c 73 20 | 74 6f 20 74 68 65 20 53 |n calls |to the S|
|000020c0| 65 74 47 72 61 70 68 41 | 74 74 72 69 62 75 74 65 |etGraphA|ttribute|
|000020d0| 73 20 72 6f 75 74 69 6e | 65 20 09 09 09 7d 0d 09 |s routin|e ...}..|
|000020e0| 09 64 72 61 77 4d 61 6a | 6f 72 47 72 69 64 58 20 |.drawMaj|orGridX |
|000020f0| 3d 20 34 3b 0d 09 09 64 | 72 61 77 4d 69 6e 6f 72 |= 4;...d|rawMinor|
|00002100| 47 72 69 64 58 20 3d 20 | 38 3b 0d 09 09 64 72 61 |GridX = |8;...dra|
|00002110| 77 4d 61 6a 6f 72 47 72 | 69 64 59 20 3d 20 24 30 |wMajorGr|idY = $0|
|00002120| 30 30 30 30 30 31 30 3b | 0d 09 09 64 72 61 77 4d |0000010;|...drawM|
|00002130| 69 6e 6f 72 47 72 69 64 | 59 20 3d 20 24 30 30 30 |inorGrid|Y = $000|
|00002140| 30 30 30 32 30 3b 0d 09 | 09 70 6c 6f 74 42 65 68 |00020;..|.plotBeh|
|00002150| 69 6e 64 41 78 65 73 20 | 3d 20 24 30 30 30 30 30 |indAxes |= $00000|
|00002160| 30 34 30 3b 0d 09 09 67 | 72 69 64 49 6e 46 72 6f |040;...g|ridInFro|
|00002170| 6e 74 20 3d 20 24 30 30 | 30 30 30 30 38 30 3b 0d |nt = $00|000080;.|
|00002180| 09 09 67 72 69 64 49 6e | 4d 69 64 64 6c 65 20 3d |..gridIn|Middle =|
|00002190| 20 24 30 30 30 30 30 31 | 30 30 3b 0d 0d 09 09 6d | $000001|00;....m|
|000021a0| 61 78 4e 72 50 61 72 61 | 6d 73 20 3d 20 36 34 3b |axNrPara|ms = 64;|
|000021b0| 09 09 09 7b 20 74 68 65 | 20 6d 61 78 69 6d 75 6d |...{ the| maximum|
|000021c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 61 72 61 6d | number |of param|
|000021d0| 65 74 65 72 73 20 75 73 | 65 64 20 62 79 20 61 20 |eters us|ed by a |
|000021e0| 66 75 6e 63 74 69 6f 6e | 20 7d 0d 09 09 6d 61 78 |function| }...max|
|000021f0| 50 61 72 61 6d 4e 61 6d | 65 4c 65 6e 67 74 68 20 |ParamNam|eLength |
|00002200| 3d 20 33 31 3b 09 09 7b | 20 74 68 65 20 6d 61 78 |= 31;..{| the max|
|00002210| 69 6d 75 6d 20 6c 65 6e | 67 74 68 20 6f 66 20 61 |imum len|gth of a|
|00002220| 20 70 61 72 61 6d 65 74 | 65 72 20 6e 61 6d 65 20 | paramet|er name |
|00002230| 7d 0d 0d 09 09 6d 61 78 | 4e 72 49 6e 70 75 74 56 |}....max|NrInputV|
|00002240| 61 6c 75 65 73 20 3d 20 | 36 3b 09 09 7b 20 74 68 |alues = |6;..{ th|
|00002250| 65 20 6d 61 78 69 75 6d | 75 6d 20 6e 75 6d 62 65 |e maxium|um numbe|
|00002260| 72 20 6f 66 20 69 6e 70 | 75 74 20 76 61 6c 75 65 |r of inp|ut value|
|00002270| 73 20 69 6e 20 74 68 65 | 20 69 6e 70 75 74 20 64 |s in the| input d|
|00002280| 69 61 6c 6f 67 20 62 6f | 78 20 09 09 09 7d 0d 0d |ialog bo|x ...}..|
|00002290| 09 74 79 70 65 0d 0d 7b | 24 41 4c 49 47 4e 20 4d |.type..{|$ALIGN M|
|000022a0| 41 43 36 38 4b 7d 0d 7b | 20 2a 2a 2a 2a 2a 2a 2a |AC68K}.{| *******|
|000022b0| 2a 2a 2a 2a 2a 54 79 70 | 65 20 64 65 66 69 6e 69 |*****Typ|e defini|
|000022c0| 74 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 22 49 6e |tion for| the "In|
|000022d0| 70 75 74 42 6f 78 22 20 | 2a 2a 2a 2a 2a 2a 2a 2a |putBox" |********|
|000022e0| 2a 2a 2a 2a 20 7d 0d 09 | 09 45 78 74 65 6e 64 65 |**** }..|.Extende|
|000022f0| 64 50 74 72 20 3d 20 5e | 65 78 74 65 6e 64 65 64 |dPtr = ^|extended|
|00002300| 3b 0d 09 09 69 6e 70 75 | 74 52 65 63 20 3d 20 70 |;...inpu|tRec = p|
|00002310| 61 63 6b 65 64 20 61 72 | 72 61 79 5b 31 2e 2e 6d |acked ar|ray[1..m|
|00002320| 61 78 4e 72 49 6e 70 75 | 74 56 61 6c 75 65 73 5d |axNrInpu|tValues]|
|00002330| 20 6f 66 20 72 65 63 6f | 72 64 09 7b 20 69 6e 66 | of reco|rd.{ inf|
|00002340| 6f 72 6d 61 74 69 6f 6e | 20 74 79 70 65 20 66 6f |ormation| type fo|
|00002350| 72 20 74 68 65 20 69 6e | 70 75 74 20 64 69 61 6c |r the in|put dial|
|00002360| 6f 67 20 62 6f 78 20 09 | 09 09 7d 0d 09 09 09 09 |og box .|..}.....|
|00002370| 78 3a 20 45 78 74 65 6e | 64 65 64 50 74 72 3b 0d |x: Exten|dedPtr;.|
|00002380| 09 09 09 09 73 3a 20 5e | 73 74 72 32 35 35 3b 0d |....s: ^|str255;.|
|00002390| 09 09 09 65 6e 64 3b 0d | 0d 0d 7b 20 2a 2a 2a 2a |...end;.|..{ ****|
|000023a0| 2a 2a 2a 2a 2a 2a 2a 2a | 20 74 79 70 65 20 64 65 |********| type de|
|000023b0| 66 69 6e 69 74 69 6f 6e | 73 20 66 6f 72 20 22 47 |finition|s for "G|
|000023c0| 65 74 44 65 66 61 75 6c | 74 44 61 74 61 22 20 2a |etDefaul|tData" *|
|000023d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 7d 0d |********|***** }.|
|000023e0| 0d 09 09 44 61 74 61 49 | 6e 66 6f 20 3d 20 72 65 |...DataI|nfo = re|
|000023f0| 63 6f 72 64 20 20 09 09 | 7b 20 74 68 69 73 20 64 |cord ..|{ this d|
|00002400| 61 74 61 20 73 74 72 75 | 63 74 75 72 65 20 63 61 |ata stru|cture ca|
|00002410| 6e 20 62 65 20 75 73 65 | 64 20 77 68 65 6e 20 63 |n be use|d when c|
|00002420| 61 6c 6c 69 6e 67 20 47 | 65 74 44 65 66 61 75 6c |alling G|etDefaul|
|00002430| 74 44 61 74 61 2e 09 09 | 09 09 7d 0d 0d 09 09 09 |tData...|..}.....|
|00002440| 09 78 4d 69 6e 2c 20 78 | 4d 61 78 2c 20 78 50 6f |.xMin, x|Max, xPo|
|00002450| 73 4d 69 6e 2c 20 78 4e | 65 67 4d 61 78 3a 20 65 |sMin, xN|egMax: e|
|00002460| 78 74 65 6e 64 65 64 3b | 09 7b 20 73 65 74 20 69 |xtended;|.{ set i|
|00002470| 66 20 74 68 65 20 22 78 | 22 20 61 72 72 61 79 20 |f the "x|" array |
|00002480| 77 61 73 20 63 61 6c 63 | 75 6c 61 74 65 64 09 09 |was calc|ulated..|
|00002490| 09 09 09 7d 0d 09 09 09 | 09 79 4d 69 6e 2c 20 79 |...}....|.yMin, y|
|000024a0| 4d 61 78 2c 20 79 50 6f | 73 4d 69 6e 2c 20 79 4e |Max, yPo|sMin, yN|
|000024b0| 65 67 4d 61 78 3a 20 65 | 78 74 65 6e 64 65 64 3b |egMax: e|xtended;|
|000024c0| 09 7b 20 73 65 74 20 69 | 66 20 74 68 65 20 22 79 |.{ set i|f the "y|
|000024d0| 22 20 61 72 72 61 79 20 | 77 61 73 20 63 61 6c 63 |" array |was calc|
|000024e0| 75 6c 61 74 65 64 09 09 | 09 09 09 7d 0d 0d 09 09 |ulated..|...}....|
|000024f0| 09 09 6f 72 64 65 72 65 | 64 2c 09 09 09 09 7b 20 |..ordere|d,....{ |
|00002500| 74 72 75 65 20 69 66 20 | 74 68 65 20 78 2d 61 72 |true if |the x-ar|
|00002510| 72 61 79 20 69 73 20 6f | 72 64 65 72 65 64 20 73 |ray is o|rdered s|
|00002520| 75 63 68 20 74 68 61 74 | 20 78 5b 69 2b 31 5d 3e |uch that| x[i+1]>|
|00002530| 3d 78 5b 69 5d 2c 20 66 | 6f 72 20 61 6c 6c 20 69 |=x[i], f|or all i|
|00002540| 2e 09 09 09 09 09 7d 0d | 0d 09 09 09 09 7a 65 72 |......}.|.....zer|
|00002550| 6f 59 45 72 72 6f 72 73 | 2c 09 09 09 7b 20 74 72 |oYErrors|,...{ tr|
|00002560| 75 65 20 69 66 20 61 74 | 20 6c 65 61 73 74 20 6f |ue if at| least o|
|00002570| 6e 65 20 79 2d 65 72 72 | 6f 72 20 69 73 20 30 09 |ne y-err|or is 0.|
|00002580| 09 09 09 09 7d 0d 09 09 | 09 09 69 6e 76 61 6c 69 |....}...|..invali|
|00002590| 64 59 45 72 72 6f 72 73 | 2c 09 09 09 7b 20 74 72 |dYErrors|,...{ tr|
|000025a0| 75 65 20 69 66 20 61 74 | 20 6c 65 61 73 74 20 6f |ue if at| least o|
|000025b0| 6e 65 20 79 2d 65 72 72 | 6f 72 20 69 73 20 69 6e |ne y-err|or is in|
|000025c0| 76 61 6c 69 64 20 6f 72 | 20 30 09 09 09 09 09 7d |valid or| 0.....}|
|000025d0| 0d 09 09 09 09 7a 65 72 | 6f 58 45 72 72 6f 72 73 |.....zer|oXErrors|
|000025e0| 2c 09 09 09 7b 20 74 72 | 75 65 20 69 66 20 61 74 |,...{ tr|ue if at|
|000025f0| 20 6c 65 61 73 74 20 6f | 6e 65 20 78 2d 65 72 72 | least o|ne x-err|
|00002600| 6f 72 20 69 73 20 30 09 | 09 09 09 09 7d 0d 09 09 |or is 0.|....}...|
|00002610| 09 09 69 6e 76 61 6c 69 | 64 58 45 72 72 6f 72 73 |..invali|dXErrors|
|00002620| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 09 7b 20 74 72 75 |: boolea|n;.{ tru|
|00002630| 65 20 69 66 20 61 74 20 | 6c 65 61 73 74 20 6f 6e |e if at |least on|
|00002640| 65 20 78 2d 65 72 72 6f | 72 20 69 73 20 69 6e 76 |e x-erro|r is inv|
|00002650| 61 6c 69 64 20 6f 72 20 | 30 09 09 09 09 09 7d 0d |alid or |0.....}.|
|00002660| 09 09 09 65 6e 64 3b 0d | 09 09 44 61 74 61 49 6e |...end;.|..DataIn|
|00002670| 66 6f 50 74 72 20 3d 20 | 5e 44 61 74 61 49 6e 66 |foPtr = |^DataInf|
|00002680| 6f 3b 0d 0d 09 09 45 78 | 74 65 6e 64 65 64 41 72 |o;....Ex|tendedAr|
|00002690| 72 61 79 20 3d 20 61 72 | 72 61 79 5b 30 2e 2e 30 |ray = ar|ray[0..0|
|000026a0| 5d 20 6f 66 20 65 78 74 | 65 6e 64 65 64 3b 20 7b |] of ext|ended; {|
|000026b0| 20 56 61 72 69 61 62 6c | 65 20 73 69 7a 65 20 61 | Variabl|e size a|
|000026c0| 72 72 61 79 20 6f 66 20 | 6e 61 74 69 76 65 20 64 |rray of |native d|
|000026d0| 6f 75 62 6c 65 20 6e 75 | 6d 62 65 72 73 2e 20 7d |ouble nu|mbers. }|
|000026e0| 0d 09 09 45 78 74 65 6e | 64 65 64 41 72 72 61 79 |...Exten|dedArray|
|000026f0| 50 74 72 20 3d 20 5e 45 | 78 74 65 6e 64 65 64 41 |Ptr = ^E|xtendedA|
|00002700| 72 72 61 79 3b 09 09 20 | 7b 20 47 65 74 44 65 66 |rray;.. |{ GetDef|
|00002710| 61 75 6c 74 44 61 74 61 | 3a 20 49 6e 64 65 78 20 |aultData|: Index |
|00002720| 5b 30 5d 20 69 73 20 72 | 65 73 65 72 76 65 64 2e |[0] is r|eserved.|
|00002730| 20 46 69 72 73 74 20 76 | 61 6c 69 64 20 69 6e 64 | First v|alid ind|
|00002740| 65 78 20 69 73 20 5b 31 | 5d 2e 7d 0d 09 09 45 78 |ex is [1|].}...Ex|
|00002750| 74 65 6e 64 65 64 41 72 | 72 61 79 48 61 6e 64 6c |tendedAr|rayHandl|
|00002760| 65 20 3d 20 5e 45 78 74 | 65 6e 64 65 64 41 72 72 |e = ^Ext|endedArr|
|00002770| 61 79 50 74 72 3b 20 20 | 7b 20 48 61 6e 64 6c 65 |ayPtr; |{ Handle|
|00002780| 20 74 6f 20 61 6e 20 61 | 72 72 61 79 20 6f 66 20 | to an a|rray of |
|00002790| 6e 61 74 69 76 65 20 65 | 78 74 65 6e 64 65 64 20 |native e|xtended |
|000027a0| 6e 75 6d 62 65 72 73 20 | 7d 0d 09 09 45 78 74 65 |numbers |}...Exte|
|000027b0| 6e 64 65 64 41 72 72 61 | 79 48 61 6e 64 6c 65 50 |ndedArra|yHandleP|
|000027c0| 74 72 20 3d 20 5e 45 78 | 74 65 6e 64 65 64 41 72 |tr = ^Ex|tendedAr|
|000027d0| 72 61 79 48 61 6e 64 6c | 65 3b 0d 0d 09 09 4c 6f |rayHandl|e;....Lo|
|000027e0| 6e 67 41 72 72 61 79 20 | 3d 20 61 72 72 61 79 5b |ngArray |= array[|
|000027f0| 30 2e 2e 30 5d 20 6f 66 | 20 6c 6f 6e 67 69 6e 74 |0..0] of| longint|
|00002800| 3b 09 7b 20 76 61 72 69 | 61 62 6c 65 20 73 69 7a |;.{ vari|able siz|
|00002810| 65 20 61 72 72 61 79 20 | 6f 66 20 6c 6f 6e 67 69 |e array |of longi|
|00002820| 6e 74 20 6e 75 6d 62 65 | 72 73 7d 0d 09 09 4c 6f |nt numbe|rs}...Lo|
|00002830| 6e 67 41 72 72 61 79 50 | 74 72 20 3d 20 5e 4c 6f |ngArrayP|tr = ^Lo|
|00002840| 6e 67 41 72 72 61 79 3b | 09 09 09 7b 20 47 65 74 |ngArray;|...{ Get|
|00002850| 44 65 66 61 75 6c 74 44 | 61 74 61 3a 20 49 6e 64 |DefaultD|ata: Ind|
|00002860| 65 78 20 5b 30 5d 20 69 | 73 20 72 65 73 65 72 76 |ex [0] i|s reserv|
|00002870| 65 64 2e 20 46 69 72 73 | 74 20 76 61 6c 69 64 20 |ed. Firs|t valid |
|00002880| 69 6e 64 65 78 20 69 73 | 20 5b 31 5d 2e 7d 0d 09 |index is| [1].}..|
|00002890| 09 4c 6f 6e 67 41 72 72 | 61 79 48 61 6e 64 6c 65 |.LongArr|ayHandle|
|000028a0| 20 3d 20 5e 4c 6f 6e 67 | 41 72 72 61 79 50 74 72 | = ^Long|ArrayPtr|
|000028b0| 3b 09 09 7b 20 48 61 6e | 64 6c 65 20 74 6f 20 61 |;..{ Han|dle to a|
|000028c0| 6e 20 61 72 72 61 79 20 | 6f 66 20 6c 6f 6e 67 69 |n array |of longi|
|000028d0| 6e 74 20 6e 75 6d 62 65 | 72 73 20 7d 0d 09 09 4c |nt numbe|rs }...L|
|000028e0| 6f 6e 67 41 72 72 61 79 | 48 61 6e 64 6c 65 50 74 |ongArray|HandlePt|
|000028f0| 72 20 3d 20 5e 4c 6f 6e | 67 41 72 72 61 79 48 61 |r = ^Lon|gArrayHa|
|00002900| 6e 64 6c 65 3b 0d 0d 0d | 7b 20 2a 2a 2a 2a 2a 2a |ndle;...|{ ******|
|00002910| 2a 2a 2a 2a 2a 2a 20 74 | 79 70 65 20 64 65 66 69 |****** t|ype defi|
|00002920| 6e 69 74 69 6f 6e 73 20 | 66 6f 72 20 22 47 65 74 |nitions |for "Get|
|00002930| 43 6f 6c 48 61 6e 64 6c | 65 2f 53 65 74 43 6f 6c |ColHandl|e/SetCol|
|00002940| 48 61 6e 64 6c 65 22 20 | 2a 2a 2a 2a 2a 2a 2a 2a |Handle" |********|
|00002950| 2a 2a 2a 2a 2a 2a 20 7d | 0d 09 09 53 74 72 69 6e |****** }|...Strin|
|00002960| 67 44 61 74 61 20 3d 20 | 72 65 63 6f 72 64 09 09 |gData = |record..|
|00002970| 09 09 7b 20 74 68 65 20 | 64 61 74 61 20 73 74 72 |..{ the |data str|
|00002980| 75 63 74 75 72 65 20 6f | 66 20 61 20 63 6f 6c 75 |ucture o|f a colu|
|00002990| 6d 6e 20 6f 66 20 73 74 | 72 69 6e 67 73 2e 20 57 |mn of st|rings. W|
|000029a0| 61 72 6e 69 6e 67 3a 20 | 74 68 69 73 20 64 61 74 |arning: |this dat|
|000029b0| 61 20 73 74 72 75 63 74 | 75 72 65 20 6d 61 79 20 |a struct|ure may |
|000029c0| 63 68 61 6e 67 65 20 69 | 6e 20 66 75 74 75 72 65 |change i|n future|
|000029d0| 20 72 65 6c 65 61 73 65 | 73 20 6f 66 20 70 72 6f | release|s of pro|
|000029e0| 20 46 69 74 09 7d 0d 09 | 09 09 09 73 69 7a 65 3a | Fit.}..|...size:|
|000029f0| 20 6c 6f 6e 67 69 6e 74 | 3b 09 09 09 09 7b 20 74 | longint|;....{ t|
|00002a00| 68 65 20 73 69 7a 65 20 | 6f 66 20 76 61 6c 69 64 |he size |of valid|
|00002a10| 20 64 61 74 61 20 69 6e | 20 74 68 69 73 20 68 61 | data in| this ha|
|00002a20| 6e 64 6c 65 20 09 7d 0d | 09 09 09 09 6e 72 52 6f |ndle .}.|....nrRo|
|00002a30| 77 73 3a 20 6c 6f 6e 67 | 69 6e 74 3b 09 09 09 09 |ws: long|int;....|
|00002a40| 7b 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |{ the nu|mber of |
|00002a50| 72 6f 77 73 20 69 6e 20 | 74 68 69 73 20 68 61 6e |rows in |this han|
|00002a60| 64 6c 65 20 09 7d 0d 09 | 09 09 09 66 69 72 73 74 |dle .}..|...first|
|00002a70| 4f 66 66 73 65 74 3a 20 | 6c 6f 6e 67 69 6e 74 3b |Offset: |longint;|
|00002a80| 09 09 09 7b 20 72 65 73 | 65 72 76 65 64 20 09 7d |...{ res|erved .}|
|00002a90| 0d 09 09 09 09 66 69 72 | 73 74 52 6f 77 3a 20 69 |.....fir|stRow: i|
|00002aa0| 6e 74 65 67 65 72 3b 09 | 09 09 7b 20 72 65 73 65 |nteger;.|..{ rese|
|00002ab0| 72 76 65 64 20 09 7d 0d | 09 09 09 09 64 61 74 61 |rved .}.|....data|
|00002ac0| 3a 20 53 74 72 32 35 35 | 3b 09 09 09 09 7b 20 68 |: Str255|;....{ h|
|00002ad0| 65 72 65 20 66 6f 6c 6c | 6f 77 20 74 68 65 20 73 |ere foll|ow the s|
|00002ae0| 74 72 69 6e 67 73 2c 20 | 70 61 63 6b 65 64 2c 20 |trings, |packed, |
|00002af0| 6f 6e 65 20 61 66 74 65 | 72 20 61 6e 6f 74 68 65 |one afte|r anothe|
|00002b00| 72 20 7d 0d 09 09 09 65 | 6e 64 3b 0d 0d 0d 0d 0d |r }....e|nd;.....|
|00002b10| 09 09 63 68 65 63 6b 50 | 41 6e 73 77 65 72 20 3d |..checkP|Answer =|
|00002b20| 20 28 75 70 64 61 74 65 | 2c 20 67 6f 6f 64 2c 20 | (update|, good, |
|00002b30| 62 61 64 29 3b 09 09 09 | 09 7b 20 74 68 65 20 70 |bad);...|.{ the p|
|00002b40| 6f 73 73 69 62 6c 65 20 | 72 65 74 75 72 6e 20 76 |ossible |return v|
|00002b50| 61 6c 75 65 73 20 6f 66 | 20 74 68 65 20 27 63 68 |alues of| the 'ch|
|00002b60| 65 63 6b 27 20 66 75 6e | 63 74 69 6f 6e 2c 20 6f |eck' fun|ction, o|
|00002b70| 6e 6c 79 20 75 73 65 64 | 20 77 68 65 6e 20 74 68 |nly used| when th|
|00002b80| 65 20 65 78 74 65 72 6e | 61 6c 20 6d 6f 64 75 6c |e extern|al modul|
|00002b90| 65 20 69 73 20 61 20 66 | 75 6e 63 74 69 6f 6e 20 |e is a f|unction |
|00002ba0| 09 09 09 7d 0d 0d 09 09 | 4d 6f 64 65 54 79 70 65 |...}....|ModeType|
|00002bb0| 20 3d 20 28 61 63 74 69 | 76 65 2c 20 69 6e 61 63 | = (acti|ve, inac|
|00002bc0| 74 69 76 65 2c 20 63 6f | 6e 73 74 61 6e 74 29 3b |tive, co|nstant);|
|00002bd0| 09 09 09 7b 20 74 68 65 | 20 66 69 74 74 69 6e 67 |...{ the| fitting|
|00002be0| 20 73 74 61 74 65 20 6f | 66 20 61 20 70 61 72 61 | state o|f a para|
|00002bf0| 6d 65 74 65 72 2c 20 75 | 73 65 64 20 74 6f 20 73 |meter, u|sed to s|
|00002c00| 65 74 20 76 61 72 69 61 | 62 6c 65 73 20 6f 66 20 |et varia|bles of |
|00002c10| 74 79 70 65 20 50 61 72 | 61 6d 4d 6f 64 65 09 09 |type Par|amMode..|
|00002c20| 09 7d 0d 09 09 50 61 72 | 61 6d 4e 61 6d 65 20 3d |.}...Par|amName =|
|00002c30| 20 73 74 72 69 6e 67 5b | 6d 61 78 50 61 72 61 6d | string[|maxParam|
|00002c40| 4e 61 6d 65 4c 65 6e 67 | 74 68 5d 3b 0d 0d 09 09 |NameLeng|th];....|
|00002c50| 50 61 72 61 6d 41 72 72 | 61 79 20 3d 20 61 72 72 |ParamArr|ay = arr|
|00002c60| 61 79 5b 31 2e 2e 6d 61 | 78 4e 72 50 61 72 61 6d |ay[1..ma|xNrParam|
|00002c70| 73 5d 20 6f 66 20 65 78 | 74 65 6e 64 65 64 3b 09 |s] of ex|tended;.|
|00002c80| 09 7b 20 74 68 65 20 6e | 75 6d 65 72 69 63 61 6c |.{ the n|umerical|
|00002c90| 20 76 61 6c 75 65 73 20 | 6f 66 20 74 68 65 20 70 | values |of the p|
|00002ca0| 61 72 61 6d 65 74 65 72 | 73 20 09 09 09 7d 0d 09 |arameter|s ...}..|
|00002cb0| 09 50 61 72 61 6d 4e 61 | 6d 65 41 72 72 61 79 20 |.ParamNa|meArray |
|00002cc0| 3d 20 61 72 72 61 79 5b | 31 2e 2e 6d 61 78 4e 72 |= array[|1..maxNr|
|00002cd0| 50 61 72 61 6d 73 5d 20 | 6f 66 20 50 61 72 61 6d |Params] |of Param|
|00002ce0| 4e 61 6d 65 3b 09 7b 20 | 74 68 65 20 6e 61 6d 65 |Name;.{ |the name|
|00002cf0| 73 20 6f 66 20 74 68 65 | 20 70 61 72 61 6d 65 74 |s of the| paramet|
|00002d00| 65 72 73 20 7d 0d 09 09 | 50 61 72 61 6d 4d 6f 64 |ers }...|ParamMod|
|00002d10| 65 41 72 72 61 79 20 3d | 20 61 72 72 61 79 5b 31 |eArray =| array[1|
|00002d20| 2e 2e 6d 61 78 4e 72 50 | 61 72 61 6d 73 5d 20 6f |..maxNrP|arams] o|
|00002d30| 66 20 4d 6f 64 65 54 79 | 70 65 3b 09 7b 20 74 68 |f ModeTy|pe;.{ th|
|00002d40| 65 20 66 69 74 74 69 6e | 67 20 6d 6f 64 65 73 20 |e fittin|g modes |
|00002d50| 6f 66 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |of the p|arameter|
|00002d60| 73 2c 20 7b 61 63 74 69 | 76 65 2c 20 69 6e 61 63 |s, {acti|ve, inac|
|00002d70| 74 69 76 65 2c 20 63 6f | 6e 73 74 61 6e 74 29 20 |tive, co|nstant) |
|00002d80| 20 7d 0d 0d 0d 09 09 44 | 65 66 61 75 6c 74 50 61 | }.....D|efaultPa|
|00002d90| 72 61 6d 49 6e 66 6f 20 | 3d 20 72 65 63 6f 72 64 |ramInfo |= record|
|00002da0| 0d 09 09 09 09 76 61 6c | 75 65 3a 20 5e 50 61 72 |.....val|ue: ^Par|
|00002db0| 61 6d 41 72 72 61 79 3b | 09 09 09 09 7b 20 74 68 |amArray;|....{ th|
|00002dc0| 65 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |e defaul|t value |
|00002dd0| 6f 66 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |of the p|arameter|
|00002de0| 73 20 61 73 20 74 68 65 | 79 20 61 70 70 65 61 72 |s as the|y appear|
|00002df0| 20 69 6e 20 70 61 72 61 | 6d 73 20 77 69 6e 64 6f | in para|ms windo|
|00002e00| 77 20 09 09 09 7d 0d 09 | 09 09 09 6c 6f 77 65 73 |w ...}..|...lowes|
|00002e10| 74 3a 20 5e 50 61 72 61 | 6d 41 72 72 61 79 3b 09 |t: ^Para|mArray;.|
|00002e20| 09 09 09 7b 20 74 68 65 | 20 6c 6f 77 65 73 74 20 |...{ the| lowest |
|00002e30| 61 6c 6c 6f 77 65 64 20 | 76 61 6c 75 65 20 28 66 |allowed |value (f|
|00002e40| 6f 72 20 66 69 74 74 69 | 6e 67 29 20 09 09 09 7d |or fitti|ng) ...}|
|00002e50| 0d 09 09 09 09 68 69 67 | 68 65 73 74 3a 20 5e 50 |.....hig|hest: ^P|
|00002e60| 61 72 61 6d 41 72 72 61 | 79 3b 09 09 09 09 7b 20 |aramArra|y;....{ |
|00002e70| 74 68 65 20 68 69 67 68 | 65 73 74 20 61 6c 6c 6f |the high|est allo|
|00002e80| 77 65 64 20 76 61 6c 75 | 65 20 28 66 6f 72 20 66 |wed valu|e (for f|
|00002e90| 69 74 74 69 6e 67 29 20 | 09 09 09 7d 0d 09 09 09 |itting) |...}....|
|00002ea0| 09 6d 6f 64 65 3a 20 5e | 50 61 72 61 6d 4d 6f 64 |.mode: ^|ParamMod|
|00002eb0| 65 41 72 72 61 79 3b 09 | 09 09 7b 20 74 68 65 20 |eArray;.|..{ the |
|00002ec0| 66 69 74 74 69 6e 67 20 | 6d 6f 64 65 20 6f 66 20 |fitting |mode of |
|00002ed0| 74 68 65 20 70 61 72 61 | 6d 65 74 65 72 73 20 09 |the para|meters .|
|00002ee0| 09 09 7d 0d 09 09 09 09 | 6e 61 6d 65 3a 20 5e 50 |..}.....|name: ^P|
|00002ef0| 61 72 61 6d 4e 61 6d 65 | 41 72 72 61 79 3b 09 09 |aramName|Array;..|
|00002f00| 09 7b 20 74 68 65 20 6e | 61 6d 65 73 20 09 09 09 |.{ the n|ames ...|
|00002f10| 7d 0d 09 09 09 65 6e 64 | 3b 0d 0d 09 09 44 65 66 |}....end|;....Def|
|00002f20| 61 75 6c 74 50 61 72 61 | 6d 49 6e 66 6f 50 74 72 |aultPara|mInfoPtr|
|00002f30| 20 3d 20 5e 44 65 66 61 | 75 6c 74 50 61 72 61 6d | = ^Defa|ultParam|
|00002f40| 49 6e 66 6f 3b 0d 0d 09 | 09 47 6c 6f 62 61 6c 41 |Info;...|.GlobalA|
|00002f50| 72 72 61 79 54 79 70 65 | 20 3d 20 61 72 72 61 79 |rrayType| = array|
|00002f60| 5b 30 2e 2e 39 39 5d 20 | 6f 66 20 65 78 74 65 6e |[0..99] |of exten|
|00002f70| 64 65 64 3b 0d 09 09 47 | 6c 6f 62 61 6c 41 72 72 |ded;...G|lobalArr|
|00002f80| 61 79 50 74 72 20 3d 20 | 5e 47 6c 6f 62 61 6c 41 |ayPtr = |^GlobalA|
|00002f90| 72 72 61 79 54 79 70 65 | 3b 0d 09 09 47 6c 6f 62 |rrayType|;...Glob|
|00002fa0| 61 6c 41 72 72 61 79 48 | 61 6e 64 6c 65 20 3d 20 |alArrayH|andle = |
|00002fb0| 5e 47 6c 6f 62 61 6c 41 | 72 72 61 79 50 74 72 3b |^GlobalA|rrayPtr;|
|00002fc0| 0d 0d 09 09 47 6c 6f 62 | 61 6c 53 63 72 61 74 63 |....Glob|alScratc|
|00002fd0| 68 20 3d 20 72 65 63 6f | 72 64 0d 09 09 09 09 67 |h = reco|rd.....g|
|00002fe0| 6c 6f 62 61 6c 53 63 72 | 61 74 63 68 31 3a 20 6c |lobalScr|atch1: l|
|00002ff0| 6f 6e 67 69 6e 74 3b 09 | 09 09 09 7b 20 66 72 65 |ongint;.|...{ fre|
|00003000| 65 20 66 6f 72 20 75 73 | 65 20 69 6e 20 65 78 74 |e for us|e in ext|
|00003010| 65 72 6e 61 6c 20 6d 6f | 64 75 6c 65 73 20 09 09 |ernal mo|dules ..|
|00003020| 09 7d 0d 09 09 09 09 67 | 6c 6f 62 61 6c 53 63 72 |.}.....g|lobalScr|
|00003030| 61 74 63 68 32 3a 20 6c | 6f 6e 67 69 6e 74 3b 09 |atch2: l|ongint;.|
|00003040| 09 09 09 7b 20 66 72 65 | 65 20 66 6f 72 20 75 73 |...{ fre|e for us|
|00003050| 65 20 69 6e 20 65 78 74 | 65 72 6e 61 6c 20 6d 6f |e in ext|ernal mo|
|00003060| 64 75 6c 65 73 20 09 09 | 09 7d 0d 09 09 09 09 67 |dules ..|.}.....g|
|00003070| 6c 6f 62 61 6c 44 61 74 | 61 53 69 7a 65 3a 20 6c |lobalDat|aSize: l|
|00003080| 6f 6e 67 69 6e 74 3b 09 | 09 09 09 7b 20 74 68 65 |ongint;.|...{ the|
|00003090| 20 6e 75 6d 62 65 72 20 | 6f 66 20 65 6e 74 72 69 | number |of entri|
|000030a0| 65 73 20 69 6e 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |es in th|e follow|
|000030b0| 69 6e 67 20 61 72 72 61 | 79 20 09 09 09 7d 0d 09 |ing arra|y ...}..|
|000030c0| 09 09 09 67 6c 6f 62 61 | 6c 44 61 74 61 3a 20 47 |...globa|lData: G|
|000030d0| 6c 6f 62 61 6c 41 72 72 | 61 79 48 61 6e 64 6c 65 |lobalArr|ayHandle|
|000030e0| 3b 09 09 09 7b 20 61 72 | 72 61 79 20 6f 66 20 65 |;...{ ar|ray of e|
|000030f0| 78 74 65 6e 64 65 64 73 | 20 74 6f 20 62 65 20 61 |xtendeds| to be a|
|00003100| 63 63 65 73 73 65 64 20 | 62 79 20 65 78 74 65 72 |ccessed |by exter|
|00003110| 6e 61 6c 20 61 6e 64 20 | 69 6e 74 65 72 61 6c 20 |nal and |interal |
|00003120| 70 72 6f 67 72 61 6d 73 | 20 09 09 09 7d 0d 09 09 |programs| ...}...|
|00003130| 09 65 6e 64 3b 0d 0d 09 | 09 47 6c 6f 62 61 6c 53 |.end;...|.GlobalS|
|00003140| 63 72 61 74 63 68 50 74 | 72 20 3d 20 5e 47 6c 6f |cratchPt|r = ^Glo|
|00003150| 62 61 6c 53 63 72 61 74 | 63 68 3b 0d 0d 7b 24 41 |balScrat|ch;..{$A|
|00003160| 4c 49 47 4e 20 52 45 53 | 45 54 7d 0d 0d 0d 7b 20 |LIGN RES|ET}...{ |
|00003170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 7d 0d 7b 20 |********|*** }.{ |
|000031d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000031e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 70 61 72 61 6d 65 |********|* parame|
|000031f0| 74 65 72 20 62 6c 6f 63 | 6b 20 66 6f 72 20 65 78 |ter bloc|k for ex|
|00003200| 74 65 72 6e 61 6c 20 6d | 6f 64 75 6c 65 73 20 2a |ternal m|odules *|
|00003210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 7d 0d 0d 7b |********|*** }..{|
|00003230| 20 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 69 | The fol|lowing i|
|00003240| 73 20 69 6e 74 65 72 66 | 61 63 65 20 69 6e 66 6f |s interf|ace info|
|00003250| 72 6d 61 74 69 6f 6e 20 | 74 68 61 74 20 64 65 66 |rmation |that def|
|00003260| 69 6e 65 73 20 74 68 65 | 20 63 6f 6d 6d 75 6e 69 |ines the| communi|
|00003270| 63 61 74 69 6f 6e 20 62 | 65 74 77 65 65 6e 09 09 |cation b|etween..|
|00003280| 09 09 09 09 09 7d 0d 7b | 20 61 6e 20 45 78 74 65 |.....}.{| an Exte|
|00003290| 72 6e 61 6c 20 4d 6f 64 | 75 6c 65 20 61 6e 64 20 |rnal Mod|ule and |
|000032a0| 70 72 6f 20 46 69 74 2e | 20 54 68 69 73 20 69 6e |pro Fit.| This in|
|000032b0| 66 6f 72 6d 61 74 69 6f | 6e 20 69 73 20 75 73 65 |formatio|n is use|
|000032c0| 64 20 69 6e 20 74 68 65 | 20 69 6d 70 6c 65 6d 65 |d in the| impleme|
|000032d0| 6e 74 61 74 69 6f 6e 20 | 70 61 72 74 09 09 09 09 |ntation |part....|
|000032e0| 09 09 09 7d 0d 7b 20 74 | 6f 20 70 72 6f 76 69 64 |...}.{ t|o provid|
|000032f0| 65 20 74 68 65 20 63 6f | 64 65 20 74 68 61 74 20 |e the co|de that |
|00003300| 69 6d 70 6c 65 6d 65 6e | 74 73 20 61 6c 6c 20 6f |implemen|ts all o|
|00003310| 66 20 74 68 65 20 70 72 | 65 64 69 66 69 6e 65 64 |f the pr|edifined|
|00003320| 20 72 6f 75 74 69 6e 65 | 73 20 6d 61 64 65 09 09 | routine|s made..|
|00003330| 09 09 09 09 09 7d 0d 7b | 20 61 76 61 69 6c 61 62 |.....}.{| availab|
|00003340| 6c 65 20 62 79 20 70 72 | 6f 20 46 69 74 2e 09 09 |le by pr|o Fit...|
|00003350| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |........|.......}|
|00003360| 0d 0d 7b 20 4e 6f 72 6d | 61 6c 6c 79 2c 20 79 6f |..{ Norm|ally, yo|
|00003370| 75 20 77 69 6c 6c 20 6a | 75 73 74 20 77 61 6e 74 |u will j|ust want|
|00003380| 20 74 6f 20 6c 65 61 76 | 65 20 74 68 69 73 20 69 | to leav|e this i|
|00003390| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 75 6e 74 6f 75 |nformati|on untou|
|000033a0| 63 68 65 64 20 69 6e 20 | 69 74 73 20 70 72 65 73 |ched in |its pres|
|000033b0| 65 6e 74 20 66 6f 72 6d | 09 7d 0d 7b 20 61 6e 64 |ent form|.}.{ and|
|000033c0| 20 74 6f 20 6e 65 76 65 | 72 20 68 61 76 65 20 61 | to neve|r have a|
|000033d0| 20 6c 6f 6f 6b 20 61 74 | 20 69 74 2e 09 09 09 09 | look at| it.....|
|000033e0| 09 09 09 09 09 09 09 09 | 7d 0d 0d 0d 7b 20 09 09 |........|}...{ ..|
|000033f0| 09 09 09 09 09 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....***|********|
|00003400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 09 09 09 |********|*****...|
|00003410| 09 09 09 09 7d 0d 0d 0d | 7b 20 59 6f 75 20 6e 65 |....}...|{ You ne|
|00003420| 65 64 20 74 68 65 20 66 | 6f 6c 6c 6f 69 6e 67 20 |ed the f|olloing |
|00003430| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 69 66 20 79 |informat|ion if y|
|00003440| 6f 75 20 77 61 6e 74 20 | 74 6f 20 70 72 6f 67 72 |ou want |to progr|
|00003450| 61 6d 20 61 20 76 65 72 | 79 20 61 64 76 61 6e 63 |am a ver|y advanc|
|00003460| 65 64 09 09 09 09 09 09 | 09 7d 0d 7b 20 65 78 74 |ed......|.}.{ ext|
|00003470| 65 72 6e 61 6c 20 6d 6f | 64 75 6c 65 2c 20 61 6e |ernal mo|dule, an|
|00003480| 64 20 69 66 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |d if you| want to|
|00003490| 20 64 6f 20 6d 6f 72 65 | 20 65 78 6f 74 69 63 20 | do more| exotic |
|000034a0| 74 68 69 6e 67 73 2e 09 | 09 09 09 09 09 09 09 09 |things..|........|
|000034b0| 7d 0d 0d 7b 20 41 6c 6c | 20 74 68 65 20 69 6e 74 |}..{ All| the int|
|000034c0| 65 72 61 63 74 69 6f 6e | 20 62 65 74 77 65 65 6e |eraction| between|
|000034d0| 20 70 72 6f 20 46 69 74 | 20 61 6e 64 20 74 68 65 | pro Fit| and the|
|000034e0| 20 65 78 74 65 72 6e 61 | 6c 20 6d 6f 64 75 6c 65 | externa|l module|
|000034f0| 20 74 61 6b 65 73 20 70 | 6c 61 63 65 20 74 68 72 | takes p|lace thr|
|00003500| 6f 75 67 68 20 74 68 65 | 20 70 72 6f 63 65 64 75 |ough the| procedu|
|00003510| 72 65 20 6d 61 69 6e 2e | 09 09 09 09 09 09 09 7d |re main.|.......}|
|00003520| 0d 7b 20 70 72 6f 20 46 | 69 74 20 63 61 6c 6c 73 |.{ pro F|it calls|
|00003530| 20 69 74 20 77 69 74 68 | 20 64 69 66 66 65 72 65 | it with| differe|
|00003540| 6e 74 20 76 61 6c 75 65 | 73 20 6f 66 20 69 74 73 |nt value|s of its|
|00003550| 20 70 61 72 61 6d 65 74 | 65 72 20 27 73 65 6c 65 | paramet|er 'sele|
|00003560| 63 74 6f 72 27 20 61 6e | 64 20 74 68 65 09 09 09 |ctor' an|d the...|
|00003570| 09 09 09 09 7d 0d 7b 20 | 66 75 6e 63 74 69 6f 6e |....}.{ |function|
|00003580| 20 6d 61 69 6e 20 6d 75 | 73 74 20 72 65 74 75 72 | main mu|st retur|
|00003590| 6e 20 74 68 65 20 69 6e | 66 6f 72 6d 61 74 69 6f |n the in|formatio|
|000035a0| 6e 20 72 65 71 75 65 73 | 74 65 64 20 62 79 20 73 |n reques|ted by s|
|000035b0| 65 74 74 69 6e 67 20 74 | 68 65 20 6e 65 63 65 73 |etting t|he neces|
|000035c0| 73 61 72 79 20 66 69 65 | 6c 64 73 09 09 09 09 09 |sary fie|lds.....|
|000035d0| 09 09 7d 0d 7b 20 69 6e | 73 69 64 65 20 61 20 70 |..}.{ in|side a p|
|000035e0| 61 72 61 6d 65 74 65 72 | 42 6c 6f 63 6b 2e 09 09 |arameter|Block...|
|000035f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7d 0d |........|......}.|
|00003600| 0d 7b 20 57 68 65 6e 20 | 69 74 20 66 69 72 73 74 |.{ When |it first|
|00003610| 20 6f 70 65 6e 73 20 74 | 68 65 20 65 78 74 65 72 | opens t|he exter|
|00003620| 6e 61 6c 20 6d 6f 64 75 | 6c 65 2c 20 70 72 6f 20 |nal modu|le, pro |
|00003630| 46 69 74 20 63 61 6c 6c | 73 20 6d 61 69 6e 20 77 |Fit call|s main w|
|00003640| 69 74 68 20 74 68 65 20 | 73 65 6c 65 63 74 6f 72 |ith the |selector|
|00003650| 20 65 71 75 61 6c 20 74 | 6f 20 7a 65 72 6f 2c 20 | equal t|o zero, |
|00003660| 61 6e 64 09 09 09 09 09 | 09 09 7d 0d 7b 20 6d 61 |and.....|..}.{ ma|
|00003670| 69 6e 20 6d 75 73 74 20 | 70 72 6f 76 69 64 65 20 |in must |provide |
|00003680| 74 68 65 20 73 70 65 63 | 69 66 69 63 61 74 69 6f |the spec|ificatio|
|00003690| 6e 73 20 6f 66 20 74 68 | 65 20 63 6f 64 65 20 73 |ns of th|e code s|
|000036a0| 75 70 70 6c 69 65 64 2c | 20 73 75 63 68 20 61 73 |upplied,| such as|
|000036b0| 20 74 68 65 20 73 65 74 | 74 69 6e 67 73 09 09 09 | the set|tings...|
|000036c0| 09 09 09 09 7d 0d 7b 20 | 77 69 74 68 20 77 68 69 |....}.{ |with whi|
|000036d0| 63 68 20 74 68 65 20 63 | 6f 64 65 20 77 61 73 20 |ch the c|ode was |
|000036e0| 63 6f 6d 70 69 6c 65 64 | 2c 20 69 66 20 74 68 65 |compiled|, if the|
|000036f0| 20 63 6f 64 65 20 69 73 | 20 61 20 66 75 6e 63 74 | code is| a funct|
|00003700| 69 6f 6e 20 6f 72 20 61 | 20 70 72 6f 67 72 61 6d |ion or a| program|
|00003710| 2c 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |, the na|me of th|
|00003720| 65 09 09 09 09 09 09 09 | 7d 0d 7b 20 65 78 74 65 |e.......|}.{ exte|
|00003730| 72 6e 61 6c 20 6d 6f 64 | 75 6c 65 2c 20 65 74 63 |rnal mod|ule, etc|
|00003740| 2e 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00003750| 09 09 09 7d 0d 0d 7b 20 | 44 65 70 65 6e 64 69 6e |...}..{ |Dependin|
|00003760| 67 20 6f 6e 20 74 68 65 | 20 72 65 73 70 6f 6e 73 |g on the| respons|
|00003770| 65 20 69 74 20 6f 62 74 | 61 69 6e 73 20 61 66 74 |e it obt|ains aft|
|00003780| 65 72 20 63 61 6c 6c 69 | 6e 67 20 74 68 65 20 65 |er calli|ng the e|
|00003790| 78 74 65 72 6e 61 6c 20 | 6d 6f 64 75 6c 65 20 77 |xternal |module w|
|000037a0| 69 74 68 20 73 65 6c 65 | 63 74 6f 72 20 30 2c 20 |ith sele|ctor 0, |
|000037b0| 70 72 6f 20 46 69 74 09 | 09 09 09 09 09 09 7d 0d |pro Fit.|......}.|
|000037c0| 7b 20 74 68 65 6e 20 63 | 61 6c 6c 73 20 69 74 20 |{ then c|alls it |
|000037d0| 77 69 74 68 20 74 68 65 | 20 73 65 6c 65 63 74 6f |with the| selecto|
|000037e0| 72 20 74 68 61 74 20 74 | 65 6c 6c 73 20 74 68 65 |r that t|ells the|
|000037f0| 20 6d 6f 64 75 6c 65 20 | 74 6f 20 69 6e 69 74 69 | module |to initi|
|00003800| 61 6c 69 7a 65 20 73 6f | 6d 65 20 70 61 72 61 6d |alize so|me param|
|00003810| 65 74 65 72 73 2e 20 54 | 68 69 73 20 69 73 09 09 |eters. T|his is..|
|00003820| 09 09 09 09 09 7d 0d 7b | 20 76 65 72 79 20 73 69 |.....}.{| very si|
|00003830| 6d 70 6c 65 20 66 6f 72 | 20 70 72 6f 67 72 61 6d |mple for| program|
|00003840| 73 2c 20 62 75 74 20 74 | 68 65 72 65 20 61 72 65 |s, but t|here are|
|00003850| 20 61 20 66 65 77 20 6d | 6f 72 65 20 74 68 69 6e | a few m|ore thin|
|00003860| 67 73 20 74 6f 20 62 65 | 20 73 65 74 20 66 6f 72 |gs to be| set for|
|00003870| 20 66 75 6e 63 74 69 6f | 6e 73 2e 09 09 09 09 09 | functio|ns......|
|00003880| 09 09 7d 0d 0d 7b 20 41 | 66 74 65 72 20 74 68 65 |..}..{ A|fter the|
|00003890| 20 6d 6f 64 75 6c 65 20 | 69 73 20 61 64 64 65 64 | module |is added|
|000038a0| 20 74 6f 20 70 72 6f 20 | 46 69 74 27 73 20 6d 65 | to pro |Fit's me|
|000038b0| 6e 75 73 20 70 72 6f 20 | 46 69 74 20 63 61 6c 6c |nus pro |Fit call|
|000038c0| 73 20 69 74 20 77 69 74 | 68 20 74 68 65 20 73 65 |s it wit|h the se|
|000038d0| 6c 65 63 74 6f 72 09 09 | 09 09 09 09 09 7d 0d 7b |lector..|.....}.{|
|000038e0| 20 69 64 65 6e 74 69 66 | 79 69 6e 67 20 74 68 65 | identif|ying the|
|000038f0| 20 61 63 74 69 6f 6e 20 | 6e 65 65 64 65 64 20 61 | action |needed a|
|00003900| 6e 64 20 70 72 6f 20 46 | 69 74 20 77 69 6c 6c 20 |nd pro F|it will |
|00003910| 65 78 70 65 63 74 20 74 | 68 65 20 65 78 74 65 72 |expect t|he exter|
|00003920| 6e 61 6c 20 6d 6f 64 75 | 6c 65 20 74 6f 20 72 65 |nal modu|le to re|
|00003930| 61 63 74 20 61 63 63 6f | 72 64 69 6e 67 6c 79 2e |act acco|rdingly.|
|00003940| 09 09 09 09 09 09 09 7d | 0d 7b 20 46 6f 72 20 70 |.......}|.{ For p|
|00003950| 72 6f 67 72 61 6d 73 2c | 20 70 72 6f 20 46 69 74 |rograms,| pro Fit|
|00003960| 20 63 61 6c 6c 73 20 74 | 68 65 20 65 78 74 65 72 | calls t|he exter|
|00003970| 6e 61 6c 20 6d 6f 64 75 | 6c 65 20 77 69 74 68 20 |nal modu|le with |
|00003980| 6f 6e 6c 79 20 6f 6e 65 | 20 73 65 6c 65 63 74 6f |only one| selecto|
|00003990| 72 2c 20 74 68 65 20 6f | 6e 65 20 69 64 65 6e 74 |r, the o|ne ident|
|000039a0| 69 66 79 69 6e 67 09 09 | 09 09 09 09 09 7d 0d 7b |ifying..|.....}.{|
|000039b0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 72 75 | the fun|ction ru|
|000039c0| 6e 28 29 2e 09 09 09 09 | 09 09 09 09 09 09 09 09 |n().....|........|
|000039d0| 09 09 09 09 09 09 7d 0d | 7b 20 46 6f 72 20 66 75 |......}.|{ For fu|
|000039e0| 6e 63 74 69 6f 6e 73 2c | 20 70 72 6f 20 46 69 74 |nctions,| pro Fit|
|000039f0| 20 63 61 6c 6c 73 20 74 | 68 65 20 65 78 74 65 72 | calls t|he exter|
|00003a00| 6e 61 6c 20 6d 6f 64 75 | 6c 65 20 77 69 74 68 20 |nal modu|le with |
|00003a10| 61 20 72 61 6e 67 65 20 | 6f 66 20 73 65 6c 65 63 |a range |of selec|
|00003a20| 74 6f 72 73 2c 20 69 64 | 65 6e 74 69 66 79 69 6e |tors, id|entifyin|
|00003a30| 67 20 74 68 65 09 09 09 | 09 09 09 09 7d 0d 7b 20 |g the...|....}.{ |
|00003a40| 66 75 6e 63 74 69 6f 6e | 73 20 63 68 65 63 6b 2c |function|s check,|
|00003a50| 20 66 69 72 73 74 2c 20 | 6c 61 73 74 2c 20 61 6e | first, |last, an|
|00003a60| 64 20 73 6f 20 6f 6e 2e | 20 49 66 20 79 6f 75 20 |d so on.| If you |
|00003a70| 64 6f 20 6e 6f 74 20 77 | 61 6e 74 20 74 6f 20 64 |do not w|ant to d|
|00003a80| 65 66 69 6e 65 20 73 75 | 63 68 20 66 75 6e 63 74 |efine su|ch funct|
|00003a90| 69 6f 6e 61 6c 69 74 79 | 2c 20 73 69 6d 70 6c 79 |ionality|, simply|
|00003aa0| 09 09 09 09 09 09 09 7d | 0d 7b 20 6c 65 61 76 65 |.......}|.{ leave|
|00003ab0| 20 74 68 65 73 65 20 66 | 75 6e 63 74 69 6f 6e 20 | these f|unction |
|00003ac0| 65 6d 70 74 79 2e 09 09 | 09 09 09 09 09 09 09 09 |empty...|........|
|00003ad0| 09 09 09 09 09 09 09 09 | 7d 0d 0d 7b 20 53 65 65 |........|}..{ See|
|00003ae0| 20 74 68 65 20 66 69 6c | 65 73 20 46 75 6e 63 74 | the fil|es Funct|
|00003af0| 69 6f 6e 54 65 6d 70 6c | 61 74 65 2e 70 20 61 6e |ionTempl|ate.p an|
|00003b00| 64 20 50 72 6f 67 72 61 | 6d 54 65 6d 70 6c 61 74 |d Progra|mTemplat|
|00003b10| 65 2e 70 09 09 09 09 09 | 09 09 09 09 7d 0d 7b 09 |e.p.....|....}.{.|
|00003b20| 09 09 09 09 09 09 09 09 | 09 7d 0d 7b 20 2a 2a 2a |........|.}.{ ***|
|00003b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003b80| 2a 2a 2a 2a 2a 2a 09 09 | 09 09 09 09 09 7d 0d 0d |******..|.....}..|
|00003b90| 0d 0d 7b 20 09 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |..{ .The| followi|
|00003ba0| 6e 67 20 72 65 63 6f 72 | 64 20 69 73 20 75 73 65 |ng recor|d is use|
|00003bb0| 64 20 61 73 20 61 20 70 | 61 72 61 6d 65 74 65 72 |d as a p|arameter|
|00003bc0| 42 6c 6f 63 6b 20 77 68 | 65 6e 20 70 72 6f 20 46 |Block wh|en pro F|
|00003bd0| 69 74 20 63 61 6c 6c 73 | 20 61 6e 20 65 78 74 65 |it calls| an exte|
|00003be0| 72 6e 61 6c 20 6d 6f 64 | 75 6c 65 2e 09 09 09 09 |rnal mod|ule.....|
|00003bf0| 09 09 09 7d 0d 7b 20 09 | 54 68 65 20 65 78 74 65 |...}.{ .|The exte|
|00003c00| 72 6e 61 6c 20 6d 6f 64 | 75 6c 65 20 6d 75 73 74 |rnal mod|ule must|
|00003c10| 20 70 72 6f 76 69 64 65 | 20 61 20 66 75 6e 63 74 | provide| a funct|
|00003c20| 69 6f 6e 20 6d 61 69 6e | 28 73 65 6c 65 63 74 6f |ion main|(selecto|
|00003c30| 72 3a 69 6e 74 65 67 65 | 72 3b 20 70 62 3a 20 45 |r:intege|r; pb: E|
|00003c40| 78 74 4d 6f 64 75 6c 65 | 73 50 61 72 61 6d 42 6c |xtModule|sParamBl|
|00003c50| 6f 63 6b 50 74 72 29 2e | 09 09 09 09 09 09 09 7d |ockPtr).|.......}|
|00003c60| 0d 7b 20 09 57 68 65 6e | 20 70 72 6f 20 46 69 74 |.{ .When| pro Fit|
|00003c70| 20 69 6e 74 65 72 61 63 | 74 73 20 77 69 74 68 20 | interac|ts with |
|00003c80| 74 68 65 20 65 78 74 65 | 72 6e 61 6c 20 6d 6f 64 |the exte|rnal mod|
|00003c90| 75 6c 65 2c 20 69 74 20 | 63 61 6c 6c 73 20 6d 61 |ule, it |calls ma|
|00003ca0| 69 6e 20 77 69 74 68 20 | 76 61 72 69 6f 75 73 20 |in with |various |
|00003cb0| 76 61 6c 75 65 73 20 6f | 66 20 74 68 65 20 09 09 |values o|f the ..|
|00003cc0| 09 09 09 09 09 7d 0d 7b | 20 09 66 69 72 73 74 20 |.....}.{| .first |
|00003cd0| 70 61 72 61 6d 65 74 65 | 72 2e 20 44 65 70 65 6e |paramete|r. Depen|
|00003ce0| 64 69 6e 67 20 6f 6e 20 | 74 68 65 20 76 61 6c 75 |ding on |the valu|
|00003cf0| 65 20 6f 66 20 73 65 6c | 65 63 74 6f 72 20 74 68 |e of sel|ector th|
|00003d00| 65 20 66 75 6e 63 74 69 | 6f 6e 20 6d 61 69 6e 20 |e functi|on main |
|00003d10| 6d 75 73 74 20 67 69 76 | 65 20 74 68 65 09 09 09 |must giv|e the...|
|00003d20| 09 09 09 09 7d 0d 7b 20 | 09 72 69 67 68 74 20 72 |....}.{ |.right r|
|00003d30| 65 73 70 6f 6e 73 65 2c | 20 69 2e 65 20 61 63 74 |esponse,| i.e act|
|00003d40| 20 61 73 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | as the |function|
|00003d50| 20 66 69 72 73 74 2c 20 | 6f 72 20 63 61 6c 63 75 | first, |or calcu|
|00003d60| 6c 61 74 65 20 74 68 65 | 20 79 2d 76 61 6c 75 65 |late the| y-value|
|00003d70| 20 6f 72 20 79 6f 75 72 | 09 09 09 09 09 09 09 7d | or your|.......}|
|00003d80| 0d 7b 20 09 66 75 6e 63 | 74 69 6f 6e 73 2c 20 61 |.{ .func|tions, a|
|00003d90| 6e 64 20 73 6f 20 6f 6e | 2e 20 54 68 65 20 70 61 |nd so on|. The pa|
|00003da0| 72 61 6d 65 74 65 72 62 | 6c 6f 63 6b 20 63 6f 6e |rameterb|lock con|
|00003db0| 74 61 69 6e 73 20 61 6c | 6c 20 74 68 65 20 69 6e |tains al|l the in|
|00003dc0| 66 6f 72 6d 61 74 69 6f | 6e 20 79 6f 75 20 77 69 |formatio|n you wi|
|00003dd0| 6c 6c 20 65 76 65 72 20 | 6e 65 65 64 09 09 09 09 |ll ever |need....|
|00003de0| 09 09 09 7d 0d 7b 20 09 | 74 6f 20 64 6f 20 74 68 |...}.{ .|to do th|
|00003df0| 69 73 2e 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |is......|........|
|00003e00| 09 09 09 09 09 09 7d 0d | 0d 7b 20 09 54 68 65 20 |......}.|.{ .The |
|00003e10| 74 65 6d 70 6c 61 74 65 | 20 66 69 6c 65 73 20 66 |template| files f|
|00003e20| 6f 72 20 66 75 6e 63 74 | 69 6f 6e 73 20 61 6e 64 |or funct|ions and|
|00003e30| 20 70 72 6f 67 72 61 6d | 73 20 70 72 6f 76 69 64 | program|s provid|
|00003e40| 65 20 61 20 70 72 65 64 | 69 66 69 6e 65 64 20 66 |e a pred|ifined f|
|00003e50| 75 6e 63 74 69 6f 6e 20 | 6d 61 69 6e 20 74 68 61 |unction |main tha|
|00003e60| 74 20 09 09 09 09 7d 0d | 7b 09 70 65 72 66 6f 72 |t ....}.|{.perfor|
|00003e70| 6d 65 73 20 61 6c 6c 20 | 74 68 65 20 6e 65 63 65 |mes all |the nece|
|00003e80| 73 73 61 72 79 20 63 61 | 6c 6c 73 2c 20 77 69 74 |ssary ca|lls, wit|
|00003e90| 68 20 74 68 65 20 72 69 | 67 68 74 20 70 61 72 61 |h the ri|ght para|
|00003ea0| 6d 65 74 65 72 73 2c 20 | 74 6f 20 61 20 73 65 74 |meters, |to a set|
|00003eb0| 20 6f 66 20 66 75 6e 63 | 74 69 6f 6e 73 20 09 09 | of func|tions ..|
|00003ec0| 09 09 09 7d 0d 7b 09 63 | 61 6c 6c 65 64 2c 20 61 |...}.{.c|alled, a|
|00003ed0| 73 20 79 6f 75 20 6d 69 | 67 68 74 20 65 78 70 65 |s you mi|ght expe|
|00003ee0| 63 74 2c 20 66 69 72 73 | 74 2c 20 63 68 65 63 6b |ct, firs|t, check|
|00003ef0| 2c 20 64 65 72 69 76 61 | 74 69 76 65 73 2c 20 72 |, deriva|tives, r|
|00003f00| 75 6e 2c 20 65 74 63 2e | 20 09 09 09 09 09 09 09 |un, etc.| .......|
|00003f10| 09 7d 0d 7b 09 54 68 65 | 73 65 20 66 75 6e 63 74 |.}.{.The|se funct|
|00003f20| 69 6f 6e 73 20 63 6f 72 | 72 65 73 70 6f 6e 64 20 |ions cor|respond |
|00003f30| 65 78 61 63 74 6c 79 20 | 74 6f 20 74 68 65 20 66 |exactly |to the f|
|00003f40| 75 6e 63 74 69 6f 6e 73 | 20 79 6f 75 09 09 09 09 |unctions| you....|
|00003f50| 09 09 09 09 09 09 7d 0d | 7b 20 09 64 65 66 69 6e |......}.|{ .defin|
|00003f60| 65 20 77 68 65 6e 20 64 | 65 66 69 6e 69 6e 67 20 |e when d|efining |
|00003f70| 66 75 6e 63 74 69 6f 6e | 73 20 61 6e 64 20 70 72 |function|s and pr|
|00003f80| 6f 67 72 61 6d 73 20 77 | 69 74 68 69 6e 20 70 72 |ograms w|ithin pr|
|00003f90| 6f 20 46 69 74 2e 09 09 | 09 09 09 09 09 09 09 09 |o Fit...|........|
|00003fa0| 7d 0d 0d 7b 20 09 41 6c | 6c 20 79 6f 75 20 6e 65 |}..{ .Al|l you ne|
|00003fb0| 65 64 20 74 6f 20 64 6f | 20 69 73 20 66 69 6c 6c |ed to do| is fill|
|00003fc0| 20 74 68 65 6d 20 69 6e | 20 61 63 63 6f 72 64 69 | them in| accordi|
|00003fd0| 6e 67 20 74 6f 20 79 6f | 75 72 20 6e 65 65 64 65 |ng to yo|ur neede|
|00003fe0| 73 2e 09 09 09 09 09 09 | 09 7d 0d 0d 7b 20 09 55 |s.......|.}..{ .U|
|00003ff0| 6e 6c 65 73 73 20 79 6f | 75 20 77 61 6e 74 20 74 |nless yo|u want t|
|00004000| 6f 20 70 72 6f 64 75 63 | 65 20 73 6f 6d 65 20 61 |o produc|e some a|
|00004010| 64 76 61 6e 63 65 64 2c | 20 65 78 6f 74 69 63 20 |dvanced,| exotic |
|00004020| 66 75 6e 63 74 69 6f 6e | 61 6c 69 74 79 20 69 6e |function|ality in|
|00004030| 20 79 6f 75 72 20 65 78 | 74 65 72 6e 61 6c 20 6d | your ex|ternal m|
|00004040| 6f 64 75 6c 65 2c 20 79 | 6f 75 09 09 09 09 09 09 |odule, y|ou......|
|00004050| 09 7d 0d 7b 20 09 64 6f | 20 6e 6f 74 20 6e 65 65 |.}.{ .do| not nee|
|00004060| 64 20 74 6f 20 61 63 63 | 65 73 73 20 74 68 65 20 |d to acc|ess the |
|00004070| 70 61 72 61 6d 65 74 65 | 72 20 62 6c 6f 63 6b 20 |paramete|r block |
|00004080| 64 69 72 65 63 74 6c 79 | 2e 09 09 09 09 09 09 09 |directly|........|
|00004090| 09 09 09 09 7d 0d 7b 20 | 09 57 41 52 4e 49 4e 47 |....}.{ |.WARNING|
|000040a0| 3a 20 74 68 65 20 64 65 | 66 69 6e 69 74 69 6f 6e |: the de|finition|
|000040b0| 20 6f 66 20 45 78 74 4d | 6f 64 75 6c 65 73 50 61 | of ExtM|odulesPa|
|000040c0| 72 61 6d 42 6c 6f 63 6b | 20 6d 61 79 20 63 68 61 |ramBlock| may cha|
|000040d0| 6e 67 65 20 69 6e 20 66 | 75 74 75 72 65 20 76 65 |nge in f|uture ve|
|000040e0| 72 73 69 6f 6e 73 20 09 | 09 09 09 09 09 09 7d 0d |rsions .|......}.|
|000040f0| 7b 20 09 6f 66 20 70 72 | 6f 20 46 69 74 2e 20 55 |{ .of pr|o Fit. U|
|00004100| 73 69 6e 67 20 69 74 20 | 66 72 6f 6d 20 77 69 74 |sing it |from wit|
|00004110| 68 69 6e 20 79 6f 75 72 | 20 66 75 6e 63 74 69 6f |hin your| functio|
|00004120| 6e 20 6d 61 79 20 63 61 | 75 73 65 20 63 6f 6d 70 |n may ca|use comp|
|00004130| 61 74 69 62 69 6c 69 74 | 79 20 70 72 6f 62 6c 65 |atibilit|y proble|
|00004140| 6d 73 20 09 09 09 09 09 | 09 09 7d 0d 7b 20 09 77 |ms .....|..}.{ .w|
|00004150| 69 74 68 20 74 68 6f 73 | 65 20 66 75 74 75 72 65 |ith thos|e future|
|00004160| 20 76 65 72 73 69 6f 6e | 73 2e 09 09 09 09 09 09 | version|s.......|
|00004170| 09 7d 0d 0d 09 63 6f 6e | 73 74 0d 7b 63 6f 6e 73 |.}...con|st.{cons|
|00004180| 74 61 6e 74 73 20 75 73 | 65 64 20 74 6f 20 73 65 |tants us|ed to se|
|00004190| 74 20 74 68 65 20 66 69 | 65 6c 64 73 20 69 6e 20 |t the fi|elds in |
|000041a0| 74 68 65 20 45 78 74 4d | 6f 64 75 6c 65 73 50 61 |the ExtM|odulesPa|
|000041b0| 72 61 6d 42 6c 6f 63 6b | 20 64 65 66 69 6e 65 64 |ramBlock| defined|
|000041c0| 20 62 65 6c 6f 77 20 09 | 09 09 7d 0d 09 09 43 50 | below .|..}...CP|
|000041d0| 55 36 38 6e 6f 46 50 55 | 20 3d 20 31 3b 09 09 09 |U68noFPU| = 1;...|
|000041e0| 09 7b 63 6f 6e 73 74 61 | 6e 74 73 20 66 6f 72 20 |.{consta|nts for |
|000041f0| 63 6f 64 65 54 79 70 65 | 09 09 09 7d 0d 09 09 43 |codeType|...}...C|
|00004200| 50 55 36 38 46 50 55 20 | 3d 20 32 3b 0d 09 09 43 |PU68FPU |= 2;...C|
|00004210| 50 55 50 6f 77 65 72 50 | 43 20 3d 20 33 3b 0d 0d |PUPowerP|C = 3;..|
|00004220| 09 09 6b 53 65 74 75 70 | 20 3d 20 30 3b 09 09 09 |..kSetup| = 0;...|
|00004230| 09 09 7b 63 6f 6e 73 74 | 61 6e 74 73 20 66 6f 72 |..{const|ants for|
|00004240| 20 73 65 6c 65 63 74 6f | 72 09 09 09 7d 0d 09 09 | selecto|r...}...|
|00004250| 70 72 6f 67 49 6e 69 74 | 69 61 6c 69 7a 65 20 3d |progInit|ialize =|
|00004260| 20 31 31 3b 0d 09 09 70 | 72 6f 67 52 75 6e 20 3d | 11;...p|rogRun =|
|00004270| 20 31 32 3b 0d 09 09 66 | 75 6e 63 49 6e 69 74 69 | 12;...f|uncIniti|
|00004280| 61 6c 69 7a 65 20 3d 20 | 32 31 3b 0d 09 09 66 75 |alize = |21;...fu|
|00004290| 6e 63 43 68 65 63 6b 20 | 3d 20 32 32 3b 0d 09 09 |ncCheck |= 22;...|
|000042a0| 66 75 6e 63 46 69 72 73 | 74 20 3d 20 32 33 3b 0d |funcFirs|t = 23;.|
|000042b0| 09 09 66 75 6e 63 46 75 | 6e 63 20 3d 20 32 34 3b |..funcFu|nc = 24;|
|000042c0| 0d 09 09 66 75 6e 63 44 | 65 72 69 76 61 74 69 76 |...funcD|erivativ|
|000042d0| 65 73 20 3d 20 32 35 3b | 0d 09 09 66 75 6e 63 4c |es = 25;|...funcL|
|000042e0| 61 73 74 20 3d 20 32 36 | 3b 0d 09 09 6b 43 6c 65 |ast = 26|;...kCle|
|000042f0| 61 6e 55 70 20 3d 20 33 | 31 3b 0d 0d 09 74 79 70 |anUp = 3|1;...typ|
|00004300| 65 0d 0d 7b 24 41 4c 49 | 47 4e 20 4d 41 43 36 38 |e..{$ALI|GN MAC68|
|00004310| 4b 7d 0d 09 09 45 78 74 | 4d 6f 64 75 6c 65 73 50 |K}...Ext|ModulesP|
|00004320| 61 72 61 6d 42 6c 6f 63 | 6b 20 3d 20 72 65 63 6f |aramBloc|k = reco|
|00004330| 72 64 20 20 7b 70 61 72 | 61 6d 65 74 65 72 20 62 |rd {par|ameter b|
|00004340| 6c 6f 63 6b 20 75 73 65 | 64 20 66 6f 72 20 74 68 |lock use|d for th|
|00004350| 65 20 63 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 20 |e commun|ication |
|00004360| 74 6f 20 61 6e 64 20 66 | 72 6f 6d 20 70 72 6f 46 |to and f|rom proF|
|00004370| 69 74 09 09 09 7d 0d 0d | 09 09 09 09 52 75 6e 54 |it...}..|....RunT|
|00004380| 69 6d 65 50 72 6f 63 50 | 74 72 3a 20 50 74 72 3b |imeProcP|tr: Ptr;|
|00004390| 09 7b 09 63 61 6c 6c 20 | 62 61 63 6b 20 72 6f 75 |.{.call |back rou|
|000043a0| 74 69 6e 65 20 66 6f 72 | 20 70 72 6f 46 69 74 09 |tine for| proFit.|
|000043b0| 09 09 7d 0d 09 09 09 09 | 09 09 7b 09 74 68 65 20 |..}.....|..{.the |
|000043c0| 65 78 74 65 72 6e 61 6c | 20 6d 6f 64 75 6c 65 20 |external| module |
|000043d0| 75 73 65 73 20 74 68 69 | 73 20 62 6f 74 74 6c 65 |uses thi|s bottle|
|000043e0| 6e 65 63 6b 20 74 6f 20 | 63 61 6c 6c 20 61 6c 6c |neck to |call all|
|000043f0| 20 72 6f 75 74 69 6e 65 | 73 20 09 09 09 7d 0d 09 | routine|s ...}..|
|00004400| 09 09 09 09 09 7b 09 70 | 72 6f 76 69 64 65 64 20 |.....{.p|rovided |
|00004410| 62 79 20 70 72 6f 46 69 | 74 20 09 09 09 7d 0d 09 |by proFi|t ...}..|
|00004420| 09 09 09 67 6c 6f 62 61 | 6c 73 3a 20 50 74 72 3b |...globa|ls: Ptr;|
|00004430| 09 09 7b 20 09 67 6c 6f | 62 61 6c 20 76 61 72 69 |..{ .glo|bal vari|
|00004440| 61 62 6c 65 20 73 70 61 | 63 65 20 28 64 65 66 69 |able spa|ce (defi|
|00004450| 6e 65 64 20 69 66 20 73 | 65 6c 65 63 74 6f 72 3e |ned if s|elector>|
|00004460| 30 29 20 61 6e 64 20 69 | 66 20 72 65 71 75 69 72 |0) and i|f requir|
|00004470| 65 64 47 6c 6f 62 61 6c | 73 20 77 61 73 20 73 65 |edGlobal|s was se|
|00004480| 74 20 3e 30 20 69 6e 20 | 53 65 74 55 70 2e 20 7d |t >0 in |SetUp. }|
|00004490| 0d 0d 09 7b 20 70 61 72 | 61 6d 65 74 65 72 73 20 |...{ par|ameters |
|000044a0| 74 6f 20 62 65 20 73 65 | 74 20 77 68 65 6e 20 73 |to be se|t when s|
|000044b0| 65 6c 65 63 74 6f 72 3d | 6b 73 65 74 75 70 20 09 |elector=|ksetup .|
|000044c0| 09 09 7d 0d 09 09 09 09 | 76 65 72 73 69 6f 6e 4e |..}.....|versionN|
|000044d0| 75 6d 62 65 72 3a 20 69 | 6e 74 65 67 65 72 3b 09 |umber: i|nteger;.|
|000044e0| 09 7b 20 74 68 65 20 70 | 72 65 73 65 6e 74 20 69 |.{ the p|resent i|
|000044f0| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 20 09 09 |mplement|ation ..|
|00004500| 09 7d 0d 09 09 09 09 6d | 6f 64 75 6c 65 4b 69 6e |.}.....m|oduleKin|
|00004510| 64 3a 20 69 6e 74 65 67 | 65 72 3b 09 09 09 7b 20 |d: integ|er;...{ |
|00004520| 69 73 46 75 6e 63 74 69 | 6f 6e 2c 20 69 73 50 72 |isFuncti|on, isPr|
|00004530| 6f 67 72 61 6d 2c 20 69 | 73 4d 61 63 72 6f 20 09 |ogram, i|sMacro .|
|00004540| 09 09 7d 0d 09 09 09 09 | 63 6f 64 65 54 79 70 65 |..}.....|codeType|
|00004550| 3a 20 69 6e 74 65 67 65 | 72 3b 09 09 09 7b 20 43 |: intege|r;...{ C|
|00004560| 50 55 36 38 6e 6f 46 50 | 55 3d 31 2c 20 43 50 55 |PU68noFP|U=1, CPU|
|00004570| 36 38 46 50 55 2c 20 43 | 50 55 50 6f 77 65 72 50 |68FPU, C|PUPowerP|
|00004580| 43 20 09 09 09 7d 0d 09 | 09 09 09 6e 61 6d 65 3a |C ...}..|...name:|
|00004590| 20 53 74 72 32 35 35 3b | 09 09 09 09 7b 20 74 68 | Str255;|....{ th|
|000045a0| 65 20 6e 61 6d 65 20 6f | 66 20 79 6f 75 72 20 65 |e name o|f your e|
|000045b0| 78 74 65 72 6e 61 6c 20 | 6d 6f 64 75 6c 65 20 09 |xternal |module .|
|000045c0| 09 09 7d 0d 09 09 09 09 | 72 65 71 75 69 72 65 64 |..}.....|required|
|000045d0| 47 6c 6f 62 61 6c 73 3a | 20 6c 6f 6e 67 69 6e 74 |Globals:| longint|
|000045e0| 3b 09 09 7b 20 67 6c 6f | 62 61 6c 20 6d 65 6d 6f |;..{ glo|bal memo|
|000045f0| 72 79 20 72 65 71 75 69 | 72 65 64 2e 20 49 66 20 |ry requi|red. If |
|00004600| 74 68 69 73 20 69 73 20 | 3e 30 20 70 72 6f 46 69 |this is |>0 proFi|
|00004610| 74 20 77 69 6c 6c 20 61 | 6c 6c 6f 63 61 74 65 20 |t will a|llocate |
|00004620| 74 68 65 20 09 09 09 7d | 0d 09 09 09 09 09 09 09 |the ...}|........|
|00004630| 09 7b 20 72 65 71 75 69 | 72 65 64 20 6d 65 6d 6f |.{ requi|red memo|
|00004640| 72 79 20 66 6f 72 20 79 | 6f 75 20 61 6e 64 20 72 |ry for y|ou and r|
|00004650| 65 74 75 72 6e 20 61 20 | 70 6f 69 6e 74 65 72 20 |eturn a |pointer |
|00004660| 74 6f 20 69 74 20 69 6e | 20 74 68 65 20 70 6f 69 |to it in| the poi|
|00004670| 6e 74 65 72 20 09 09 09 | 7d 0d 09 09 09 09 09 09 |nter ...|}.......|
|00004680| 09 09 7b 20 67 6c 6f 62 | 61 6c 73 2e 20 44 6f 20 |..{ glob|als. Do |
|00004690| 6e 6f 74 20 74 6f 75 63 | 68 20 74 68 65 20 70 6f |not touc|h the po|
|000046a0| 69 6e 74 65 72 20 76 61 | 6c 75 65 2e 20 70 72 6f |inter va|lue. pro|
|000046b0| 46 69 74 20 69 73 20 72 | 65 73 70 6f 6e 73 69 62 |Fit is r|esponsib|
|000046c0| 6c 65 20 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |le ...}.|........|
|000046d0| 7b 20 66 6f 72 20 61 6c | 6c 6f 63 61 74 69 6e 67 |{ for al|locating|
|000046e0| 20 41 4e 44 20 64 65 61 | 6c 6c 6f 63 61 74 69 6e | AND dea|llocatin|
|000046f0| 67 20 69 74 2e 20 09 09 | 09 7d 0d 0d 0d 09 7b 20 |g it. ..|.}....{ |
|00004700| 67 65 6e 65 72 61 6c 20 | 69 6e 66 6f 20 70 72 6f |general |info pro|
|00004710| 76 69 64 65 64 20 62 79 | 20 70 72 6f 46 69 74 20 |vided by| proFit |
|00004720| 09 09 09 7d 0d 09 09 09 | 09 76 3a 20 61 72 72 61 |...}....|.v: arra|
|00004730| 79 5b 31 2e 2e 33 30 5d | 20 6f 66 20 65 78 74 65 |y[1..30]| of exte|
|00004740| 6e 64 65 64 3b 09 7b 20 | 61 6e 20 61 72 72 61 79 |nded;.{ |an array|
|00004750| 20 66 6f 72 20 67 65 6e | 65 72 61 6c 20 70 75 72 | for gen|eral pur|
|00004760| 70 6f 73 65 20 79 6f 75 | 72 20 75 73 65 20 69 6e |pose you|r use in|
|00004770| 20 74 68 65 20 65 78 74 | 65 72 6e 61 6c 20 6d 6f | the ext|ernal mo|
|00004780| 64 75 6c 65 20 09 09 09 | 7d 0d 0d 7b 20 74 68 65 |dule ...|}..{ the|
|00004790| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 65 6e 74 72 69 | followi|ng entri|
|000047a0| 65 73 20 63 61 6e 20 6f | 6e 6c 79 20 62 65 20 75 |es can o|nly be u|
|000047b0| 73 65 64 20 62 79 20 77 | 68 65 6e 20 74 68 65 20 |sed by w|hen the |
|000047c0| 65 78 74 65 72 6e 61 6c | 20 6d 6f 64 75 6c 65 20 |external| module |
|000047d0| 69 73 20 61 20 66 75 6e | 63 74 69 6f 6e 2e 20 09 |is a fun|ction. .|
|000047e0| 09 09 7d 0d 7b 20 74 68 | 65 79 20 63 61 6e 20 62 |..}.{ th|ey can b|
|000047f0| 65 20 61 63 63 65 73 73 | 65 64 20 6f 6e 6c 79 20 |e access|ed only |
|00004800| 77 68 65 6e 20 73 65 6c | 65 63 74 6f 72 3e 30 20 |when sel|ector>0 |
|00004810| 61 6e 64 20 77 68 65 6e | 20 09 09 09 7d 0d 7b 20 |and when| ...}.{ |
|00004820| 6d 6f 64 75 6c 65 4b 69 | 6e 64 3d 3d 69 73 46 75 |moduleKi|nd==isFu|
|00004830| 6e 63 74 69 6f 6e 2e 20 | 6d 6f 64 75 6c 65 4b 69 |nction. |moduleKi|
|00004840| 6e 64 20 6d 75 73 74 20 | 62 65 20 73 65 74 20 77 |nd must |be set w|
|00004850| 68 65 6e 20 74 68 65 20 | 65 78 74 65 72 6e 61 6c |hen the |external|
|00004860| 20 6d 6f 64 75 6c 65 20 | 09 09 09 7d 0d 7b 20 69 | module |...}.{ i|
|00004870| 73 20 63 61 6c 6c 65 64 | 20 66 6f 72 20 74 68 65 |s called| for the|
|00004880| 20 66 69 72 73 74 20 74 | 69 6d 65 20 28 77 69 74 | first t|ime (wit|
|00004890| 68 20 73 65 6c 65 63 74 | 6f 72 3d 3d 30 29 20 09 |h select|or==0) .|
|000048a0| 09 09 7d 0d 0d 09 7b 20 | 70 61 72 61 6d 65 74 65 |..}...{ |paramete|
|000048b0| 72 73 20 74 6f 20 62 65 | 20 73 65 74 20 62 79 20 |rs to be| set by |
|000048c0| 66 75 6e 63 49 6e 69 74 | 69 61 6c 69 7a 65 20 09 |funcInit|ialize .|
|000048d0| 09 09 7d 0d 09 09 09 09 | 64 75 6d 6d 79 3a 20 42 |..}.....|dummy: B|
|000048e0| 6f 6f 6c 65 61 6e 3b 20 | 09 09 09 09 7b 20 75 6e |oolean; |....{ un|
|000048f0| 75 73 65 64 20 09 09 09 | 7d 0d 09 09 09 09 68 61 |used ...|}.....ha|
|00004900| 73 44 65 72 69 76 61 74 | 69 76 65 73 3a 20 42 6f |sDerivat|ives: Bo|
|00004910| 6f 6c 65 61 6e 3b 09 09 | 7b 20 74 72 75 65 20 69 |olean;..|{ true i|
|00004920| 66 20 70 72 6f 46 69 74 | 20 6d 75 73 74 20 63 61 |f proFit| must ca|
|00004930| 6c 6c 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |ll the f|unction |
|00004940| 22 44 65 72 69 76 61 74 | 69 76 65 73 22 20 64 65 |"Derivat|ives" de|
|00004950| 66 69 6e 65 64 20 69 6e | 20 79 6f 75 72 20 6d 6f |fined in| your mo|
|00004960| 64 75 6c 65 20 7d 0d 09 | 09 09 09 09 09 09 09 7b |dule }..|.......{|
|00004970| 20 59 6f 75 20 63 61 6e | 20 73 65 74 20 74 68 69 | You can| set thi|
|00004980| 73 20 70 61 72 61 6d 74 | 65 72 20 74 6f 20 74 72 |s paramt|er to tr|
|00004990| 75 65 2c 20 61 6e 64 20 | 6f 6e 6c 79 20 63 61 6c |ue, and |only cal|
|000049a0| 63 75 6c 61 74 65 20 61 | 20 66 65 77 20 64 65 72 |culate a| few der|
|000049b0| 69 76 61 74 69 76 65 73 | 20 28 64 79 64 61 5b 5d |ivatives| (dyda[]|
|000049c0| 20 76 61 6c 75 65 73 29 | 20 7d 0d 09 09 09 09 09 | values)| }......|
|000049d0| 09 09 09 7b 20 69 6e 20 | 79 6f 75 72 20 22 44 65 |...{ in |your "De|
|000049e0| 72 69 76 61 74 69 76 65 | 73 22 20 66 75 6e 63 74 |rivative|s" funct|
|000049f0| 69 6f 6e 2e 20 70 72 6f | 20 46 69 74 20 77 69 6c |ion. pro| Fit wil|
|00004a00| 6c 20 74 61 6b 65 20 63 | 61 72 65 20 6f 66 20 63 |l take c|are of c|
|00004a10| 61 6c 63 75 6c 61 74 69 | 6e 67 20 74 68 65 20 72 |alculati|ng the r|
|00004a20| 65 73 74 20 6e 75 6d 65 | 72 69 63 61 6c 6c 79 2e |est nume|rically.|
|00004a30| 20 7d 0d 09 09 09 09 09 | 09 09 09 7b 20 49 66 20 | }......|...{ If |
|00004a40| 79 6f 75 20 73 65 74 20 | 74 68 69 73 20 68 61 73 |you set |this has|
|00004a50| 44 65 72 69 76 61 74 69 | 76 65 73 20 74 6f 20 74 |Derivati|ves to t|
|00004a60| 72 75 65 20 61 6e 64 20 | 6c 65 61 76 65 20 79 6f |rue and |leave yo|
|00004a70| 75 72 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |ur defin|ition of|
|00004a80| 20 22 44 65 72 69 76 61 | 74 69 76 65 73 22 20 65 | "Deriva|tives" e|
|00004a90| 6d 70 74 79 2c 20 74 68 | 65 6e 20 7d 0d 09 09 09 |mpty, th|en }....|
|00004aa0| 09 09 09 09 09 7b 20 79 | 6f 75 20 68 61 76 65 20 |.....{ y|ou have |
|00004ab0| 74 68 65 20 73 61 6d 65 | 20 72 65 73 75 6c 74 20 |the same| result |
|00004ac0| 6f 62 74 61 69 6e 65 64 | 20 77 68 65 6e 20 73 65 |obtained| when se|
|00004ad0| 74 74 69 6e 67 20 68 61 | 73 44 65 72 69 76 61 74 |tting ha|sDerivat|
|00004ae0| 69 76 65 73 20 74 6f 20 | 66 61 6c 73 65 3a 20 70 |ives to |false: p|
|00004af0| 72 6f 46 69 74 20 63 61 | 6c 63 75 6c 61 74 65 73 |roFit ca|lculates|
|00004b00| 20 61 6c 6c 20 7d 0d 09 | 09 09 09 09 09 09 09 7b | all }..|.......{|
|00004b10| 20 64 65 72 69 76 61 74 | 69 76 65 73 20 6e 75 6d | derivat|ives num|
|00004b20| 65 72 69 63 61 6c 6c 79 | 2e 20 7d 0d 09 09 09 09 |erically|. }.....|
|00004b30| 64 65 73 63 72 31 2c 20 | 64 65 73 63 72 32 3a 20 |descr1, |descr2: |
|00004b40| 53 74 72 32 35 35 3b 09 | 09 7b 20 64 65 73 63 72 |Str255;.|.{ descr|
|00004b50| 69 70 74 69 6f 6e 20 74 | 6f 20 61 70 70 65 61 72 |iption t|o appear|
|00004b60| 20 69 6e 20 70 61 72 61 | 6d 65 74 65 72 73 20 77 | in para|meters w|
|00004b70| 69 6e 64 6f 77 20 09 09 | 09 7d 0d 09 09 09 09 6e |indow ..|.}.....n|
|00004b80| 75 6d 62 65 72 4f 66 50 | 61 72 61 6d 73 3a 20 69 |umberOfP|arams: i|
|00004b90| 6e 74 65 67 65 72 3b 09 | 09 7b 20 6e 75 6d 62 65 |nteger;.|.{ numbe|
|00004ba0| 72 20 6f 66 20 70 61 72 | 61 6d 65 74 65 72 73 20 |r of par|ameters |
|00004bb0| 75 73 65 64 20 62 79 20 | 74 68 65 20 66 75 6e 63 |used by |the func|
|00004bc0| 74 69 6f 6e 20 09 09 09 | 7d 0d 09 09 09 09 61 30 |tion ...|}.....a0|
|00004bd0| 3a 20 44 65 66 61 75 6c | 74 50 61 72 61 6d 49 6e |: Defaul|tParamIn|
|00004be0| 66 6f 3b 09 09 09 7b 20 | 61 6c 6c 20 70 61 72 61 |fo;...{ |all para|
|00004bf0| 6d 65 74 65 72 20 64 65 | 66 61 75 6c 74 20 73 65 |meter de|fault se|
|00004c00| 74 74 69 6e 67 73 20 09 | 09 09 7d 0d 0d 09 7b 20 |ttings .|..}...{ |
|00004c10| 70 61 72 61 6d 65 74 65 | 72 73 20 75 73 65 64 20 |paramete|rs used |
|00004c20| 69 6e 20 63 68 65 63 6b | 3a 20 09 09 09 7d 0d 09 |in check|: ...}..|
|00004c30| 09 09 09 70 61 72 61 6d | 4e 6f 3a 20 69 6e 74 65 |...param|No: inte|
|00004c40| 67 65 72 3b 09 09 09 7b | 20 63 75 72 72 65 6e 74 |ger;...{| current|
|00004c50| 20 70 61 72 6d 20 6e 75 | 6d 62 65 72 2c 20 66 6f | parm nu|mber, fo|
|00004c60| 72 20 63 68 65 63 6b 20 | 28 30 2e 2e 6d 61 78 4e |r check |(0..maxN|
|00004c70| 72 50 61 72 61 6d 73 2d | 31 29 20 09 7d 0d 09 09 |rParams-|1) .}...|
|00004c80| 09 09 61 6e 73 77 65 72 | 3a 20 69 6e 74 65 67 65 |..answer|: intege|
|00004c90| 72 3b 09 09 09 09 7b 20 | 72 65 74 75 72 6e 20 76 |r;....{ |return v|
|00004ca0| 61 6c 75 65 20 6f 66 20 | 63 68 65 63 6b 2c 20 74 |alue of |check, t|
|00004cb0| 79 70 65 20 43 68 65 63 | 6b 50 41 6e 73 77 65 72 |ype Chec|kPAnswer|
|00004cc0| 20 09 09 09 7d 0d 0d 09 | 7b 20 70 61 72 61 6d 65 | ...}...|{ parame|
|00004cd0| 74 65 72 73 20 75 73 65 | 64 20 69 6e 20 66 75 6e |ters use|d in fun|
|00004ce0| 63 20 61 6e 64 20 69 6e | 20 64 65 72 69 76 61 74 |c and in| derivat|
|00004cf0| 69 76 65 73 20 09 09 09 | 7d 0d 09 09 09 09 78 2c |ives ...|}.....x,|
|00004d00| 20 79 3a 20 5e 65 78 74 | 65 6e 64 65 64 3b 09 09 | y: ^ext|ended;..|
|00004d10| 09 09 09 7b 20 78 2d 20 | 61 6e 64 20 79 2d 76 61 |...{ x- |and y-va|
|00004d20| 6c 75 65 20 09 09 09 7d | 0d 09 09 09 09 61 3a 20 |lue ...}|.....a: |
|00004d30| 5e 50 61 72 61 6d 41 72 | 72 61 79 3b 09 09 09 09 |^ParamAr|ray;....|
|00004d40| 09 7b 20 70 61 72 61 6d | 65 74 65 72 20 76 61 6c |.{ param|eter val|
|00004d50| 75 65 73 2c 20 73 65 74 | 20 74 6f 20 61 30 2e 76 |ues, set| to a0.v|
|00004d60| 61 6c 75 65 20 62 65 66 | 6f 72 65 20 63 61 6c 6c |alue bef|ore call|
|00004d70| 69 6e 67 20 66 69 72 73 | 74 20 09 09 09 7d 0d 09 |ing firs|t ...}..|
|00004d80| 09 09 09 64 79 64 61 3a | 20 5e 50 61 72 61 6d 41 |...dyda:| ^ParamA|
|00004d90| 72 72 61 79 3b 09 09 09 | 09 7b 20 75 73 65 64 20 |rray;...|.{ used |
|00004da0| 62 79 20 64 65 72 69 76 | 61 74 69 76 65 73 2c 20 |by deriv|atives, |
|00004db0| 73 65 74 20 74 6f 20 74 | 68 65 20 64 65 72 69 76 |set to t|he deriv|
|00004dc0| 61 74 69 76 65 73 20 6f | 66 20 74 68 65 20 66 75 |atives o|f the fu|
|00004dd0| 6e 63 74 69 6f 6e 20 77 | 69 74 68 20 72 65 73 70 |nction w|ith resp|
|00004de0| 65 63 74 20 74 6f 20 69 | 74 73 20 70 61 72 61 6d |ect to i|ts param|
|00004df0| 65 74 65 72 73 2e 7d 0d | 09 09 09 09 09 09 09 09 |eters.}.|........|
|00004e00| 09 7b 20 49 66 20 61 20 | 64 79 64 61 5b 5d 20 76 |.{ If a |dyda[] v|
|00004e10| 61 6c 75 65 20 69 73 20 | 6e 6f 74 20 73 65 74 2c |alue is |not set,|
|00004e20| 20 70 72 6f 20 46 69 74 | 20 63 61 6c 63 75 6c 61 | pro Fit| calcula|
|00004e30| 74 65 73 20 74 68 61 74 | 20 64 65 72 69 76 61 74 |tes that| derivat|
|00004e40| 69 76 65 20 6e 75 6d 65 | 72 69 63 61 6c 6c 79 2e |ive nume|rically.|
|00004e50| 7d 0d 09 09 09 09 67 6c | 6f 62 61 6c 53 63 72 61 |}.....gl|obalScra|
|00004e60| 74 63 68 3a 20 47 6c 6f | 62 61 6c 53 63 72 61 74 |tch: Glo|balScrat|
|00004e70| 63 68 50 74 72 3b 09 7b | 20 67 6c 6f 62 61 6c 20 |chPtr;.{| global |
|00004e80| 64 61 74 61 20 74 6f 20 | 62 65 20 61 63 65 73 73 |data to |be acess|
|00004e90| 65 64 20 62 79 20 61 6c | 6c 20 6d 6f 64 75 6c 65 |ed by al|l module|
|00004ea0| 73 20 09 09 09 7d 0d 09 | 09 09 09 6d 6f 64 75 6c |s ...}..|...modul|
|00004eb0| 65 46 69 6c 65 3a 20 46 | 53 53 70 65 63 3b 09 09 |eFile: F|SSpec;..|
|00004ec0| 09 09 7b 20 74 68 65 20 | 66 69 6c 65 20 77 68 65 |..{ the |file whe|
|00004ed0| 72 65 20 74 68 69 73 20 | 65 78 74 65 72 6e 61 6c |re this |external|
|00004ee0| 20 6d 6f 64 75 6c 65 20 | 69 73 20 69 6e 20 09 09 | module |is in ..|
|00004ef0| 09 7d 0d 09 09 09 65 6e | 64 3b 0d 0d 09 09 45 78 |.}....en|d;....Ex|
|00004f00| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|00004f10| 63 6b 50 74 72 20 3d 20 | 5e 45 78 74 4d 6f 64 75 |ckPtr = |^ExtModu|
|00004f20| 6c 65 73 50 61 72 61 6d | 42 6c 6f 63 6b 3b 0d 09 |lesParam|Block;..|
|00004f30| 09 45 78 74 4d 6f 64 75 | 6c 65 73 50 61 72 61 6d |.ExtModu|lesParam|
|00004f40| 42 6c 6f 63 6b 48 20 3d | 20 5e 45 78 74 4d 6f 64 |BlockH =| ^ExtMod|
|00004f50| 75 6c 65 73 50 61 72 61 | 6d 42 6c 6f 63 6b 50 74 |ulesPara|mBlockPt|
|00004f60| 72 3b 0d 0d 0d 7b 24 41 | 4c 49 47 4e 20 52 45 53 |r;...{$A|LIGN RES|
|00004f70| 45 54 7d 0d 0d 0d 0d 7b | 2a 2a 2a 2a 2a 2a 2a 2a |ET}....{|********|
|00004f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fd0| 2a 09 09 09 7d 0d 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*...}.{*|********|
|00004fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ff0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005030| 09 09 09 7d 0d 7b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...}.{**|********|
|00005040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 09 |********|*******.|
|00005090| 09 09 7d 0d 0d 7b 09 09 | 09 20 20 44 65 63 6c 61 |..}..{..|. Decla|
|000050a0| 72 61 74 69 6f 6e 73 20 | 6f 66 20 61 6c 6c 20 72 |rations |of all r|
|000050b0| 6f 75 74 69 6e 65 73 20 | 70 72 6f 76 69 64 65 64 |outines |provided|
|000050c0| 20 62 79 20 70 72 6f 20 | 46 69 74 2e 09 09 09 09 | by pro |Fit.....|
|000050d0| 09 09 09 09 7d 0d 7b 20 | 09 09 09 09 09 09 09 09 |....}.{ |........|
|000050e0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7d 0d 7b |........|.....}.{|
|000050f0| 20 46 6f 72 20 61 6e 20 | 65 78 70 6c 61 69 6e 61 | For an |explaina|
|00005100| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 6d 65 61 6e |tion of |the mean|
|00005110| 69 6e 67 20 6f 66 20 74 | 68 65 20 76 61 72 69 6f |ing of t|he vario|
|00005120| 75 73 20 70 61 72 61 6d | 65 74 65 72 73 20 61 6e |us param|eters an|
|00005130| 64 20 74 68 65 20 72 65 | 74 75 72 6e 20 76 61 6c |d the re|turn val|
|00005140| 75 65 73 20 73 65 65 20 | 09 09 09 09 7d 0d 7b 20 |ues see |....}.{ |
|00005150| 74 68 65 20 70 72 6f 20 | 46 69 74 20 75 73 65 72 |the pro |Fit user|
|00005160| 20 6d 61 6e 75 61 6c 20 | 2e 20 09 09 09 09 09 09 | manual |. ......|
|00005170| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 0d 0d 0d 7b |........|..}....{|
|00005180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 09 09 |********|******..|
|000051d0| 09 7d 0d 7b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.}.{****|********|
|000051e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051f0| 2a 2a 2a 2a 2a 20 69 6e | 70 75 74 2f 6f 75 74 70 |***** in|put/outp|
|00005200| 75 74 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ut *****|********|
|00005210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005220| 2a 2a 09 09 09 7d 0d 0d | 09 66 75 6e 63 74 69 6f |**...}..|.functio|
|00005230| 6e 20 49 6e 70 75 74 42 | 6f 78 20 28 6e 72 41 72 |n InputB|ox (nrAr|
|00005240| 67 73 3a 20 69 6e 74 65 | 67 65 72 3b 20 76 61 72 |gs: inte|ger; var|
|00005250| 20 72 3a 20 69 6e 70 75 | 74 52 65 63 29 3a 20 62 | r: inpu|tRec): b|
|00005260| 6f 6f 6c 65 61 6e 3b 0d | 7b 20 53 68 6f 77 73 20 |oolean;.|{ Shows |
|00005270| 61 20 64 69 61 6c 6f 67 | 20 62 6f 78 20 77 69 74 |a dialog| box wit|
|00005280| 68 20 6e 72 41 72 67 73 | 20 28 62 65 74 77 65 65 |h nrArgs| (betwee|
|00005290| 6e 20 31 20 61 6e 64 20 | 36 3d 6d 61 78 4e 72 49 |n 1 and |6=maxNrI|
|000052a0| 6e 70 75 74 56 61 6c 75 | 65 73 29 20 69 6e 70 75 |nputValu|es) inpu|
|000052b0| 74 20 76 61 6c 75 65 73 | 20 7d 0d 7b 20 72 20 63 |t values| }.{ r c|
|000052c0| 6f 6e 74 61 69 6e 73 20 | 61 20 74 69 74 6c 65 20 |ontains |a title |
|000052d0| 61 6e 64 20 61 20 6e 75 | 6d 65 72 69 63 20 66 69 |and a nu|meric fi|
|000052e0| 65 6c 64 20 66 6f 72 20 | 65 76 65 72 79 20 61 72 |eld for |every ar|
|000052f0| 67 75 6d 65 6e 74 20 7d | 0d 7b 20 54 68 65 20 64 |gument }|.{ The d|
|00005300| 65 66 61 75 6c 74 20 77 | 61 79 20 74 6f 20 64 69 |efault w|ay to di|
|00005310| 73 70 6c 61 79 20 61 6e | 20 69 6e 70 75 74 20 76 |splay an| input v|
|00005320| 61 6c 75 65 20 69 73 20 | 61 6e 20 6e 75 6d 62 65 |alue is |an numbe|
|00005330| 72 69 63 20 65 64 69 74 | 20 66 69 65 6c 64 20 77 |ric edit| field w|
|00005340| 69 74 68 20 61 20 74 69 | 74 6c 65 20 7d 0d 7b 20 |ith a ti|tle }.{ |
|00005350| 49 66 20 74 68 65 20 74 | 69 74 6c 65 20 27 74 74 |If the t|itle 'tt|
|00005360| 74 27 20 73 74 61 72 74 | 73 20 77 69 74 68 20 61 |t' start|s with a|
|00005370| 20 27 24 27 20 6f 74 68 | 65 72 20 69 6e 74 65 72 | '$' oth|er inter|
|00005380| 66 61 63 65 20 65 6c 65 | 6d 65 6e 74 73 20 61 72 |face ele|ments ar|
|00005390| 65 20 64 69 73 70 6c 61 | 79 65 64 3a 20 7d 0d 7b |e displa|yed: }.{|
|000053a0| 20 2d 20 27 24 57 74 74 | 74 27 20 73 68 6f 77 73 | - '$Wtt|t' shows|
|000053b0| 20 61 20 70 6f 70 75 70 | 20 6d 65 6e 75 20 74 6f | a popup| menu to|
|000053c0| 20 73 65 6c 65 63 74 20 | 61 20 64 61 74 61 20 77 | select |a data w|
|000053d0| 69 6e 64 6f 77 20 7d 0d | 7b 20 2d 20 27 24 43 74 |indow }.|{ - '$Ct|
|000053e0| 74 74 27 20 73 68 6f 77 | 73 20 61 20 70 6f 70 75 |tt' show|s a popu|
|000053f0| 70 20 6d 65 6e 75 20 74 | 6f 20 73 65 6c 65 63 74 |p menu t|o select|
|00005400| 20 61 20 63 6f 6c 75 6d | 6e 20 7d 0d 7b 20 2d 20 | a colum|n }.{ - |
|00005410| 27 24 50 6d 6d 6d 24 74 | 74 74 27 20 73 68 6f 77 |'$Pmmm$t|tt' show|
|00005420| 73 20 61 20 75 73 65 72 | 20 64 65 66 69 6e 65 64 |s a user| defined|
|00005430| 20 70 6f 70 75 70 20 6d | 65 6e 75 20 27 6d 6d 6d | popup m|enu 'mmm|
|00005440| 27 20 28 65 61 63 68 20 | 65 6e 74 72 79 20 73 65 |' (each |entry se|
|00005450| 70 61 72 61 74 65 64 20 | 62 79 20 61 20 27 3b 27 |parated |by a ';'|
|00005460| 29 20 7d 0d 7b 20 2d 20 | 27 24 58 74 74 74 27 20 |) }.{ - |'$Xttt' |
|00005470| 73 68 6f 77 73 20 61 20 | 63 68 65 63 6b 20 62 6f |shows a |check bo|
|00005480| 78 20 7d 0d 7b 20 2d 20 | 27 24 53 74 74 74 27 20 |x }.{ - |'$Sttt' |
|00005490| 73 68 6f 77 73 20 61 6e | 20 65 64 69 74 20 66 69 |shows an| edit fi|
|000054a0| 65 6c 64 20 74 6f 20 69 | 6e 70 75 74 20 61 20 73 |eld to i|nput a s|
|000054b0| 74 72 69 6e 67 20 7d 0d | 7b 20 72 65 74 75 72 6e |tring }.|{ return|
|000054c0| 73 20 74 72 75 65 20 69 | 66 20 73 74 6f 70 2c 20 |s true i|f stop, |
|000054d0| 66 61 6c 73 65 20 6f 74 | 68 65 72 77 69 73 65 20 |false ot|herwise |
|000054e0| 7d 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 41 6c 65 |}...func|tion Ale|
|000054f0| 72 74 42 6f 78 20 28 73 | 3a 20 73 74 72 32 35 35 |rtBox (s|: str255|
|00005500| 29 3a 20 62 6f 6f 6c 65 | 61 6e 3b 0d 7b 20 73 68 |): boole|an;.{ sh|
|00005510| 6f 77 73 20 61 6e 20 61 | 6c 65 72 74 20 62 6f 78 |ows an a|lert box|
|00005520| 20 77 69 74 68 20 6d 65 | 73 73 61 67 65 20 73 20 | with me|ssage s |
|00005530| 61 6e 64 20 74 77 6f 20 | 62 75 74 74 6f 6e 73 20 |and two |buttons |
|00005540| 28 4f 4b 2c 20 20 53 54 | 4f 50 29 20 09 09 09 7d |(OK, ST|OP) ...}|
|00005550| 0d 7b 20 72 65 74 75 72 | 6e 73 20 74 72 75 65 20 |.{ retur|ns true |
|00005560| 69 66 20 73 74 6f 70 2c | 20 66 61 6c 73 65 20 69 |if stop,| false i|
|00005570| 66 20 6f 6b 20 09 09 09 | 7d 0d 0d 09 70 72 6f 63 |f ok ...|}...proc|
|00005580| 65 64 75 72 65 20 53 65 | 74 42 6f 78 54 69 74 6c |edure Se|tBoxTitl|
|00005590| 65 28 74 69 74 6c 65 3a | 20 53 74 72 32 35 35 29 |e(title:| Str255)|
|000055a0| 3b 0d 7b 20 53 65 74 73 | 20 74 68 65 20 74 69 74 |;.{ Sets| the tit|
|000055b0| 6c 65 20 6f 66 20 74 68 | 65 20 64 69 61 6c 6f 67 |le of th|e dialog|
|000055c0| 20 62 6f 78 20 69 6e 20 | 74 68 65 20 6e 65 78 74 | box in |the next|
|000055d0| 20 63 61 6c 6c 20 74 6f | 20 49 6e 70 75 74 42 6f | call to| InputBo|
|000055e0| 78 2e 20 7d 0d 7b 20 42 | 79 20 64 65 66 61 75 6c |x. }.{ B|y defaul|
|000055f0| 74 2c 20 74 68 69 73 20 | 62 6f 78 20 64 6f 65 73 |t, this |box does|
|00005600| 20 6e 6f 74 20 68 61 76 | 65 20 61 20 74 69 74 6c | not hav|e a titl|
|00005610| 65 2e 20 7d 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |e. }...f|unction |
|00005620| 41 73 6b 42 6f 78 20 28 | 76 61 72 20 61 6e 73 77 |AskBox (|var answ|
|00005630| 65 72 3a 20 69 6e 74 65 | 67 65 72 3b 20 73 3a 20 |er: inte|ger; s: |
|00005640| 73 74 72 32 35 35 29 3a | 20 62 6f 6f 6c 65 61 6e |str255):| boolean|
|00005650| 3b 0d 7b 20 73 68 6f 77 | 73 20 61 6c 65 72 74 20 |;.{ show|s alert |
|00005660| 62 6f 78 20 77 69 74 68 | 20 6d 65 73 73 61 67 65 |box with| message|
|00005670| 20 73 20 61 6e 64 20 74 | 68 72 65 65 20 62 75 74 | s and t|hree but|
|00005680| 74 6f 6e 73 20 28 59 45 | 53 2c 20 4e 4f 2c 20 53 |tons (YE|S, NO, S|
|00005690| 54 4f 50 29 20 09 09 09 | 7d 0d 7b 20 72 65 74 75 |TOP) ...|}.{ retu|
|000056a0| 72 6e 73 20 74 72 75 65 | 20 69 66 20 73 74 6f 70 |rns true| if stop|
|000056b0| 2c 20 65 6c 73 65 20 66 | 61 6c 73 65 20 09 09 09 |, else f|alse ...|
|000056c0| 7d 0d 7b 20 69 66 20 6e | 6f 74 20 73 74 6f 70 2c |}.{ if n|ot stop,|
|000056d0| 20 61 6e 73 77 65 72 20 | 3d 20 30 20 66 6f 72 20 | answer |= 0 for |
|000056e0| 6e 6f 20 61 6e 64 20 31 | 20 66 6f 72 20 79 65 73 |no and 1| for yes|
|000056f0| 20 09 09 09 7d 0d 0d 09 | 70 72 6f 63 65 64 75 72 | ...}...|procedur|
|00005700| 65 20 57 72 69 74 65 53 | 74 72 69 6e 67 20 28 73 |e WriteS|tring (s|
|00005710| 3a 20 53 74 72 32 35 35 | 29 3b 0d 7b 20 77 72 69 |: Str255|);.{ wri|
|00005720| 74 65 73 20 73 20 69 6e | 74 6f 20 74 68 65 20 72 |tes s in|to the r|
|00005730| 65 73 75 6c 74 73 20 77 | 69 6e 64 6f 77 20 09 09 |esults w|indow ..|
|00005740| 09 7d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 57 |.}...pro|cedure W|
|00005750| 72 69 74 65 6c 6e 53 74 | 72 69 6e 67 20 28 73 3a |ritelnSt|ring (s:|
|00005760| 20 53 74 72 32 35 35 29 | 3b 0d 7b 20 77 72 69 74 | Str255)|;.{ writ|
|00005770| 65 73 20 73 20 69 6e 74 | 6f 20 74 68 65 20 72 65 |es s int|o the re|
|00005780| 73 75 6c 74 73 20 77 69 | 6e 64 6f 77 20 61 6e 64 |sults wi|ndow and|
|00005790| 20 67 6f 65 73 20 74 6f | 20 61 20 6e 65 77 20 6c | goes to| a new l|
|000057a0| 69 6e 65 20 09 09 09 7d | 0d 0d 09 70 72 6f 63 65 |ine ...}|...proce|
|000057b0| 64 75 72 65 20 57 72 69 | 74 65 54 65 78 74 20 28 |dure Wri|teText (|
|000057c0| 6c 65 6e 67 74 68 3a 20 | 6c 6f 6e 67 69 6e 74 3b |length: |longint;|
|000057d0| 20 74 68 65 54 65 78 74 | 3a 20 50 74 72 29 3b 0d | theText|: Ptr);.|
|000057e0| 7b 20 77 72 69 74 65 73 | 20 61 20 74 65 78 74 20 |{ writes| a text |
|000057f0| 74 6f 20 74 68 65 20 72 | 65 73 75 6c 74 73 20 77 |to the r|esults w|
|00005800| 69 6e 64 6f 77 2e 20 74 | 68 65 20 70 6f 69 6e 74 |indow. t|he point|
|00005810| 65 72 20 74 68 65 54 65 | 78 74 20 70 6f 69 6e 74 |er theTe|xt point|
|00005820| 73 20 74 6f 20 74 68 65 | 20 66 69 72 73 74 20 7d |s to the| first }|
|00005830| 0d 7b 20 63 68 61 72 61 | 63 74 65 72 20 6f 66 20 |.{ chara|cter of |
|00005840| 74 68 65 20 74 65 78 74 | 2e 20 22 6c 65 6e 67 74 |the text|. "lengt|
|00005850| 68 22 20 6d 75 73 74 20 | 67 69 76 65 20 74 68 65 |h" must |give the|
|00005860| 20 6c 65 6e 67 74 68 20 | 6f 66 20 74 68 65 20 74 | length |of the t|
|00005870| 65 78 74 09 09 09 7d 0d | 0d 09 70 72 6f 63 65 64 |ext...}.|..proced|
|00005880| 75 72 65 20 57 72 69 74 | 65 49 6e 74 20 28 69 3a |ure Writ|eInt (i:|
|00005890| 20 6c 6f 6e 67 69 6e 74 | 29 3b 0d 7b 20 77 72 69 | longint|);.{ wri|
|000058a0| 74 65 73 20 61 6e 20 69 | 6e 74 65 67 65 72 20 76 |tes an i|nteger v|
|000058b0| 61 6c 75 65 20 74 6f 20 | 74 68 65 20 72 65 73 75 |alue to |the resu|
|000058c0| 6c 74 73 20 77 69 6e 64 | 6f 77 20 09 09 09 7d 0d |lts wind|ow ...}.|
|000058d0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 57 72 69 74 |..proced|ure Writ|
|000058e0| 65 4e 75 6d 62 65 72 20 | 28 64 3a 20 65 78 74 65 |eNumber |(d: exte|
|000058f0| 6e 64 65 64 29 3b 0d 7b | 20 77 72 69 74 65 73 20 |nded);.{| writes |
|00005900| 61 20 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |a floati|ng point|
|00005910| 20 76 61 6c 75 65 20 74 | 6f 20 74 68 65 20 72 65 | value t|o the re|
|00005920| 73 75 6c 74 73 20 77 69 | 6e 64 6f 77 20 09 09 09 |sults wi|ndow ...|
|00005930| 7d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 4e 75 |}...proc|edure Nu|
|00005940| 6d 62 65 72 54 6f 53 74 | 72 32 35 35 28 78 3a 20 |mberToSt|r255(x: |
|00005950| 65 78 74 65 6e 64 65 64 | 3b 20 76 61 72 20 73 3a |extended|; var s:|
|00005960| 20 53 74 72 32 35 35 3b | 20 66 6f 72 6d 61 74 2c | Str255;| format,|
|00005970| 20 64 69 67 69 74 73 3a | 69 6e 74 65 67 65 72 29 | digits:|integer)|
|00005980| 3b 0d 7b 20 63 6f 6e 76 | 65 72 74 73 20 74 68 65 |;.{ conv|erts the|
|00005990| 20 6e 75 6d 62 65 72 20 | 78 20 69 6e 74 6f 20 61 | number |x into a|
|000059a0| 20 73 74 72 69 6e 67 20 | 7d 0d 7b 20 66 6f 72 6d | string |}.{ form|
|000059b0| 61 74 2f 64 69 67 69 74 | 73 3a 20 63 6f 6e 74 72 |at/digit|s: contr|
|000059c0| 6f 6c 73 20 74 68 65 20 | 63 6f 6e 76 65 72 73 69 |ols the |conversi|
|000059d0| 6f 6e 20 70 72 6f 63 65 | 73 73 2e 20 7d 0d 7b 09 |on proce|ss. }.{.|
|000059e0| 66 6f 72 6d 61 74 20 3d | 20 30 3a 09 20 09 6e 6f |format =| 0:. .no|
|000059f0| 72 6d 61 6c 20 63 6f 6e | 76 65 72 73 69 6f 6e 20 |rmal con|version |
|00005a00| 7d 0d 7b 09 09 09 09 09 | 69 66 20 64 69 67 69 74 |}.{.....|if digit|
|00005a10| 73 3e 30 3a 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |s>0: the| number |
|00005a20| 6f 66 20 64 69 67 69 74 | 73 20 61 66 74 65 72 20 |of digit|s after |
|00005a30| 74 68 65 20 27 2e 27 2c | 20 7d 0d 7b 09 09 09 09 |the '.',| }.{....|
|00005a40| 09 69 66 20 64 69 67 69 | 74 73 3c 30 3a 20 74 68 |.if digi|ts<0: th|
|00005a50| 65 20 74 6f 74 61 6c 20 | 6e 75 6d 62 65 72 20 6f |e total |number o|
|00005a60| 66 20 64 69 67 69 74 73 | 20 28 61 70 70 72 6f 78 |f digits| (approx|
|00005a70| 2e 29 20 7d 0d 7b 20 20 | 66 6f 72 6d 61 74 20 3d |.) }.{ |format =|
|00005a80| 20 31 3a 09 09 6f 70 74 | 69 6d 69 7a 65 64 20 63 | 1:..opt|imized c|
|00005a90| 6f 6e 76 65 72 73 69 6f | 6e 2c 20 72 65 6d 6f 76 |onversio|n, remov|
|00005aa0| 65 73 20 75 6e 6e 65 63 | 65 73 73 61 72 79 20 74 |es unnec|essary t|
|00005ab0| 72 61 69 6c 69 6e 67 20 | 7a 65 72 6f 73 20 61 66 |railing |zeros af|
|00005ac0| 74 65 72 20 7d 0d 7b 09 | 09 09 09 09 74 68 65 20 |ter }.{.|....the |
|00005ad0| 64 65 63 69 6d 61 6c 20 | 70 6f 69 6e 74 2c 20 6c |decimal |point, l|
|00005ae0| 65 61 64 69 6e 67 20 73 | 70 61 63 65 73 2c 20 75 |eading s|paces, u|
|00005af0| 6e 65 63 65 73 73 61 72 | 79 20 27 2b 27 2d 73 69 |necessar|y '+'-si|
|00005b00| 67 6e 73 2c 20 65 74 63 | 20 7d 0d 7b 09 09 09 09 |gns, etc| }.{....|
|00005b10| 09 64 69 67 69 74 73 3a | 20 74 68 65 20 6e 75 6d |.digits:| the num|
|00005b20| 62 65 72 20 6f 66 20 64 | 69 67 69 74 73 20 7d 0d |ber of d|igits }.|
|00005b30| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 53 74 72 32 35 |..functi|on Str25|
|00005b40| 35 54 6f 4e 75 6d 62 65 | 72 28 73 3a 20 53 74 72 |5ToNumbe|r(s: Str|
|00005b50| 32 35 35 3b 20 76 61 72 | 20 78 3a 20 65 78 74 65 |255; var| x: exte|
|00005b60| 6e 64 65 64 29 3a 69 6e | 74 65 67 65 72 3b 0d 7b |nded):in|teger;.{|
|00005b70| 20 63 6f 6e 76 65 72 74 | 73 20 73 74 72 69 6e 67 | convert|s string|
|00005b80| 20 73 20 74 6f 20 61 20 | 6e 75 6d 62 65 72 20 78 | s to a |number x|
|00005b90| 2e 20 73 20 63 61 6e 20 | 62 65 20 61 20 6e 75 6d |. s can |be a num|
|00005ba0| 65 72 69 63 20 73 74 72 | 69 6e 67 20 6f 72 20 61 |eric str|ing or a|
|00005bb0| 6e 20 65 78 70 72 65 73 | 73 69 6f 6e 20 7d 0d 7b |n expres|sion }.{|
|00005bc0| 20 72 65 74 75 72 6e 20 | 76 61 6c 75 65 73 3a 20 | return |values: |
|00005bd0| 7d 0d 7b 09 30 3a 09 09 | 63 6f 6e 76 65 72 73 69 |}.{.0:..|conversi|
|00005be0| 6f 6e 20 73 75 63 63 65 | 73 73 66 75 6c 20 7d 0d |on succe|ssful }.|
|00005bf0| 7b 09 31 3a 09 09 78 20 | 69 73 20 69 6e 66 69 6e |{.1:..x |is infin|
|00005c00| 69 74 65 20 7d 0d 7b 09 | 32 3a 09 09 73 20 69 73 |ite }.{.|2:..s is|
|00005c10| 20 65 6d 70 74 79 20 7d | 0d 7b 09 33 3a 09 09 78 | empty }|.{.3:..x|
|00005c20| 20 69 73 20 61 6e 20 4e | 41 4e 20 28 69 6e 76 61 | is an N|AN (inva|
|00005c30| 6c 69 64 20 6e 75 6d 62 | 65 72 29 20 7d 0d 7b 09 |lid numb|er) }.{.|
|00005c40| 34 3a 09 09 75 73 65 72 | 20 61 62 6f 72 74 65 64 |4:..user| aborted|
|00005c50| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 20 7d 0d 7b | calcula|tion }.{|
|00005c60| 09 35 3a 09 09 72 75 6e | 20 74 69 6d 65 20 65 72 |.5:..run| time er|
|00005c70| 72 6f 72 20 7d 0d 0d 0d | 7b 2a 2a 2a 2a 2a 2a 2a |ror }...|{*******|
|00005c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005cc0| 2a 2a 2a 2a 2a 2a 2a 09 | 09 09 7d 0d 7b 2a 2a 2a |*******.|..}.{***|
|00005cd0| 2a 2a 2a 2a 2a 2a 20 20 | 20 72 65 64 69 72 65 63 |****** | redirec|
|00005ce0| 74 69 6e 67 20 74 65 78 | 74 20 74 6f 20 74 68 65 |ting tex|t to the|
|00005cf0| 20 72 65 73 75 6c 74 73 | 20 77 69 6e 64 6f 77 20 | results| window |
|00005d00| 6f 72 20 74 6f 20 74 65 | 78 74 20 66 69 6c 65 73 |or to te|xt files|
|00005d10| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 09 09 09 7d 0d | *******|***...}.|
|00005d20| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 43 72 65 61 |...funct|ion Crea|
|00005d30| 74 65 54 65 78 74 46 69 | 6c 65 20 28 66 69 6c 65 |teTextFi|le (file|
|00005d40| 4e 61 6d 65 3a 20 53 74 | 72 32 35 35 29 3a 20 6c |Name: St|r255): l|
|00005d50| 6f 6e 67 69 6e 74 3b 0d | 0d 7b 09 09 63 72 65 61 |ongint;.|.{..crea|
|00005d60| 74 65 73 20 61 20 74 65 | 78 74 20 66 69 6c 65 20 |tes a te|xt file |
|00005d70| 77 69 74 68 20 74 68 65 | 20 67 69 76 65 6e 20 6e |with the| given n|
|00005d80| 61 6d 65 20 61 6e 64 20 | 72 65 74 75 72 6e 73 20 |ame and |returns |
|00005d90| 61 09 09 09 09 09 09 09 | 09 09 7d 0d 7b 09 09 72 |a.......|..}.{..r|
|00005da0| 65 66 65 72 65 6e 63 65 | 20 6e 75 6d 62 65 72 20 |eference| number |
|00005db0| 75 73 65 64 20 74 6f 20 | 69 64 65 6e 74 69 66 79 |used to |identify|
|00005dc0| 20 74 68 69 73 20 66 69 | 6c 65 2e 09 09 09 09 09 | this fi|le......|
|00005dd0| 09 7d 0d 7b 09 09 43 61 | 6c 6c 20 74 68 65 20 72 |.}.{..Ca|ll the r|
|00005de0| 6f 75 74 69 6e 65 20 57 | 72 69 74 65 54 6f 54 65 |outine W|riteToTe|
|00005df0| 78 74 46 69 6c 65 28 29 | 20 74 6f 20 72 65 64 69 |xtFile()| to redi|
|00005e00| 72 65 63 74 20 74 68 65 | 09 09 09 09 09 09 7d 0d |rect the|......}.|
|00005e10| 7b 09 09 6f 75 74 70 75 | 74 20 66 72 6f 6d 20 63 |{..outpu|t from c|
|00005e20| 61 6c 6c 73 20 74 6f 20 | 77 72 69 74 65 2f 77 72 |alls to |write/wr|
|00005e30| 69 74 6c 6e 2f 77 72 69 | 74 65 6e 75 6d 62 65 72 |itln/wri|tenumber|
|00005e40| 20 69 6e 74 6f 20 74 68 | 69 73 20 66 69 6c 65 2e | into th|is file.|
|00005e50| 09 09 09 09 09 09 7d 0d | 0d 0d 09 70 72 6f 63 65 |......}.|...proce|
|00005e60| 64 75 72 65 20 43 6c 6f | 73 65 54 65 78 74 46 69 |dure Clo|seTextFi|
|00005e70| 6c 65 20 28 66 69 6c 65 | 52 65 66 4e 75 6d 62 65 |le (file|RefNumbe|
|00005e80| 72 3a 20 6c 6f 6e 67 69 | 6e 74 29 3b 0d 0d 7b 09 |r: longi|nt);..{.|
|00005e90| 09 43 6c 6f 73 65 73 20 | 74 68 65 20 74 65 78 74 |.Closes |the text|
|00005ea0| 20 66 69 6c 65 20 77 69 | 74 68 20 74 68 65 20 67 | file wi|th the g|
|00005eb0| 69 76 65 6e 20 72 65 66 | 65 72 65 6e 63 65 20 6e |iven ref|erence n|
|00005ec0| 75 6d 62 65 72 2e 20 09 | 09 09 09 09 09 7d 0d 7b |umber. .|.....}.{|
|00005ed0| 09 09 54 68 65 20 63 61 | 6c 6c 73 20 74 6f 20 77 |..The ca|lls to w|
|00005ee0| 72 69 74 65 2f 77 72 69 | 74 6c 6e 2f 77 72 69 74 |rite/wri|tln/writ|
|00005ef0| 65 6e 75 6d 62 65 72 20 | 69 73 20 72 65 64 69 72 |enumber |is redir|
|00005f00| 65 63 74 65 64 20 62 61 | 63 6b 20 74 6f 09 09 09 |ected ba|ck to...|
|00005f10| 09 09 09 7d 0d 7b 09 09 | 74 68 65 20 72 65 73 75 |...}.{..|the resu|
|00005f20| 6c 74 73 20 77 69 6e 64 | 6f 77 2e 09 09 09 09 09 |lts wind|ow......|
|00005f30| 09 7d 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |.}....pr|ocedure |
|00005f40| 57 72 69 74 65 54 6f 54 | 65 78 74 46 69 6c 65 20 |WriteToT|extFile |
|00005f50| 28 66 69 6c 65 52 65 66 | 4e 75 6d 62 65 72 3a 20 |(fileRef|Number: |
|00005f60| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 0d 7b 09 09 72 65 |longint)|;..{..re|
|00005f70| 64 69 72 65 63 74 73 20 | 74 68 65 20 6f 75 74 70 |directs |the outp|
|00005f80| 75 74 20 6f 66 20 74 68 | 65 20 70 72 6f 20 46 69 |ut of th|e pro Fi|
|00005f90| 74 20 22 77 72 69 74 65 | 2f 77 72 69 74 65 6c 6e |t "write|/writeln|
|00005fa0| 2f 77 72 69 74 65 6e 75 | 6d 62 65 72 22 09 09 09 |/writenu|mber"...|
|00005fb0| 09 09 09 7d 0d 7b 09 09 | 72 6f 75 74 69 6e 65 73 |...}.{..|routines|
|00005fc0| 20 74 6f 20 74 68 65 20 | 67 69 76 65 6e 20 74 65 | to the |given te|
|00005fd0| 78 74 20 66 69 6c 65 2e | 09 09 09 09 09 09 7d 0d |xt file.|......}.|
|00005fe0| 7b 09 09 20 09 09 09 09 | 09 09 7d 0d 7b 09 09 63 |{.. ....|..}.{..c|
|00005ff0| 61 6c 6c 20 74 68 69 73 | 20 72 6f 75 74 69 6e 65 |all this| routine|
|00006000| 20 77 69 74 68 20 66 69 | 6c 65 52 65 66 4e 75 6d | with fi|leRefNum|
|00006010| 62 65 72 3d 3d 30 20 74 | 6f 20 64 69 72 65 63 74 |ber==0 t|o direct|
|00006020| 20 74 68 65 20 74 65 78 | 74 09 09 09 09 09 09 7d | the tex|t......}|
|00006030| 0d 7b 09 09 77 72 69 74 | 69 6e 67 20 72 6f 75 74 |.{..writ|ing rout|
|00006040| 69 6e 65 73 20 62 61 63 | 6b 20 74 6f 20 74 68 65 |ines bac|k to the|
|00006050| 20 72 65 73 75 6c 74 73 | 20 77 69 6e 64 6f 77 2e | results| window.|
|00006060| 09 09 09 09 09 09 7d 0d | 0d 0d 0d 0d 7b 2a 2a 2a |......}.|....{***|
|00006070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000060a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000060b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 09 09 09 09 09 |********|***.....|
|000060c0| 09 7d 0d 7b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.}.{****|********|
|000060d0| 2a 2a 2a 20 77 69 6e 64 | 6f 77 20 61 6e 64 20 64 |*** wind|ow and d|
|000060e0| 6f 63 75 6d 65 6e 74 20 | 6d 61 6e 61 67 65 6d 65 |ocument |manageme|
|000060f0| 6e 74 20 72 6f 75 74 69 | 6e 65 73 20 2a 2a 2a 2a |nt routi|nes ****|
|00006100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006110| 2a 2a 09 09 09 09 09 09 | 7d 0d 0d 09 66 75 6e 63 |**......|}...func|
|00006120| 74 69 6f 6e 20 47 65 74 | 46 72 6f 6e 74 57 69 6e |tion Get|FrontWin|
|00006130| 64 6f 77 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 0d 7b |dow: lon|gint;..{|
|00006140| 09 09 52 65 74 75 72 6e | 73 20 74 68 65 20 69 64 |..Return|s the id|
|00006150| 65 6e 74 69 66 69 63 61 | 74 69 6f 6e 20 6e 75 6d |entifica|tion num|
|00006160| 62 65 72 20 6f 66 20 74 | 68 65 20 66 72 6f 6e 74 |ber of t|he front|
|00006170| 6d 6f 73 74 20 77 69 6e | 64 6f 77 09 09 09 09 09 |most win|dow.....|
|00006180| 09 7d 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |.}....pr|ocedure |
|00006190| 44 6f 4e 65 77 57 69 6e | 64 6f 77 20 28 77 69 6e |DoNewWin|dow (win|
|000061a0| 64 6f 77 54 79 70 65 3a | 20 4f 53 54 79 70 65 29 |dowType:| OSType)|
|000061b0| 3b 0d 0d 7b 09 09 63 72 | 65 61 74 65 73 20 61 20 |;..{..cr|eates a |
|000061c0| 6e 65 77 20 77 69 6e 64 | 6f 77 2e 20 77 69 6e 64 |new wind|ow. wind|
|000061d0| 6f 77 54 79 70 65 20 63 | 61 6e 20 74 61 6b 65 20 |owType c|an take |
|000061e0| 6f 6e 65 20 6f 66 20 74 | 68 65 20 66 6f 6c 6c 6f |one of t|he follo|
|000061f0| 77 69 6e 67 20 76 61 6c | 75 65 73 3a 09 09 09 09 |wing val|ues:....|
|00006200| 09 09 7d 0d 7b 09 09 09 | 64 72 61 77 69 6e 67 54 |..}.{...|drawingT|
|00006210| 79 70 65 3a 09 63 72 65 | 61 74 65 20 61 20 64 72 |ype:.cre|ate a dr|
|00006220| 61 77 69 6e 67 20 77 69 | 6e 64 6f 77 09 09 09 09 |awing wi|ndow....|
|00006230| 09 09 7d 0d 7b 09 09 09 | 64 61 74 61 54 79 70 65 |..}.{...|dataType|
|00006240| 3a 09 09 63 72 65 61 74 | 65 20 61 20 64 61 74 61 |:..creat|e a data|
|00006250| 20 77 69 6e 64 6f 77 09 | 09 09 09 09 09 7d 0d 7b | window.|.....}.{|
|00006260| 09 09 09 74 65 78 74 54 | 79 70 65 09 09 63 72 65 |...textT|ype..cre|
|00006270| 61 74 65 20 61 20 74 65 | 78 74 20 77 69 6e 64 6f |ate a te|xt windo|
|00006280| 77 09 09 09 09 09 09 7d | 0d 0d 0d 09 70 72 6f 63 |w......}|....proc|
|00006290| 65 64 75 72 65 20 53 65 | 74 43 75 72 72 65 6e 74 |edure Se|tCurrent|
|000062a0| 57 69 6e 64 6f 77 20 28 | 77 69 6e 64 6f 77 49 44 |Window (|windowID|
|000062b0| 3a 20 6c 6f 6e 67 69 6e | 74 29 3b 0d 0d 7b 09 09 |: longin|t);..{..|
|000062c0| 6d 61 6b 65 73 20 74 68 | 65 20 77 69 6e 64 6f 77 |makes th|e window|
|000062d0| 20 77 69 74 68 20 74 68 | 65 20 67 69 76 65 6e 20 | with th|e given |
|000062e0| 49 44 20 6e 75 6d 62 65 | 72 20 74 68 65 20 63 75 |ID numbe|r the cu|
|000062f0| 72 72 65 6e 74 20 77 69 | 6e 64 6f 77 20 74 6f 09 |rrent wi|ndow to.|
|00006300| 09 09 09 09 09 7d 0d 7b | 09 09 62 65 20 75 73 65 |.....}.{|..be use|
|00006310| 64 20 66 6f 72 20 64 61 | 74 61 2c 20 70 6c 6f 74 |d for da|ta, plot|
|00006320| 74 69 6e 67 2c 20 77 72 | 69 74 69 6e 67 2c 20 65 |ting, wr|iting, e|
|00006330| 74 63 2c 20 64 65 70 65 | 6e 64 69 6e 67 20 6f 6e |tc, depe|nding on|
|00006340| 20 69 74 73 20 74 79 70 | 65 2e 09 09 09 09 09 09 | its typ|e.......|
|00006350| 7d 0d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 47 65 |}....fun|ction Ge|
|00006360| 74 43 75 72 72 65 6e 74 | 57 69 6e 64 6f 77 20 28 |tCurrent|Window (|
|00006370| 77 69 6e 64 6f 77 54 79 | 70 65 3a 20 4f 53 54 79 |windowTy|pe: OSTy|
|00006380| 70 65 29 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 0d 7b |pe): lon|gint;..{|
|00006390| 09 09 72 65 74 75 72 6e | 73 20 74 68 65 20 49 44 |..return|s the ID|
|000063a0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 68 65 20 63 | number |of the c|
|000063b0| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 20 6f 66 |urrent w|indow of|
|000063c0| 20 74 68 65 20 67 69 76 | 65 6e 20 74 79 70 65 09 | the giv|en type.|
|000063d0| 09 09 09 09 09 7d 0d 7b | 09 09 77 69 6e 64 6f 77 |.....}.{|..window|
|000063e0| 54 79 70 65 20 63 61 6e | 20 74 61 6b 65 20 6f 6e |Type can| take on|
|000063f0| 65 20 6f 66 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |e of the| followi|
|00006400| 6e 67 20 76 61 6c 75 65 | 73 09 09 09 09 09 09 7d |ng value|s......}|
|00006410| 0d 7b 09 09 09 64 72 61 | 77 69 6e 67 54 79 70 65 |.{...dra|wingType|
|00006420| 3a 09 72 65 74 75 72 6e | 20 74 68 65 20 63 75 72 |:.return| the cur|
|00006430| 72 65 6e 74 20 64 72 61 | 77 69 6e 67 20 77 69 6e |rent dra|wing win|
|00006440| 64 6f 77 09 09 09 09 09 | 09 7d 0d 7b 09 09 09 64 |dow.....|.}.{...d|
|00006450| 61 74 61 54 79 70 65 3a | 09 09 72 65 74 75 72 6e |ataType:|..return|
|00006460| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 61 74 | the cur|rent dat|
|00006470| 61 20 77 69 6e 64 6f 77 | 09 09 09 09 09 09 7d 0d |a window|......}.|
|00006480| 7b 09 09 09 74 65 78 74 | 54 79 70 65 09 09 72 65 |{...text|Type..re|
|00006490| 74 75 72 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |turn the| current|
|000064a0| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 09 09 09 09 | text wi|ndow....|
|000064b0| 09 09 7d 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |..}....p|rocedure|
|000064c0| 20 44 6f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 20 28 | DoClose|Window (|
|000064d0| 77 69 6e 64 6f 77 49 44 | 3a 20 6c 6f 6e 67 69 6e |windowID|: longin|
|000064e0| 74 3b 20 73 61 76 65 49 | 74 3a 20 42 6f 6f 6c 65 |t; saveI|t: Boole|
|000064f0| 61 6e 29 3b 0d 0d 7b 09 | 09 63 6c 6f 73 65 73 20 |an);..{.|.closes |
|00006500| 74 68 65 20 77 69 6e 64 | 6f 77 20 77 69 74 68 20 |the wind|ow with |
|00006510| 74 68 65 20 67 69 76 65 | 6e 20 49 44 20 6e 75 6d |the give|n ID num|
|00006520| 62 65 72 2e 09 09 09 09 | 09 09 7d 0d 7b 09 09 73 |ber.....|..}.{..s|
|00006530| 61 76 65 73 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |aves the| content|
|00006540| 73 20 6f 66 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |s of the| window |
|00006550| 69 66 20 73 61 76 65 49 | 74 20 69 73 20 74 72 75 |if saveI|t is tru|
|00006560| 65 09 09 09 09 09 09 7d | 0d 0d 0d 09 66 75 6e 63 |e......}|....func|
|00006570| 74 69 6f 6e 20 46 72 6f | 6e 74 6d 6f 73 74 57 69 |tion Fro|ntmostWi|
|00006580| 6e 64 6f 77 20 28 77 69 | 6e 64 6f 77 54 79 70 65 |ndow (wi|ndowType|
|00006590| 3a 20 4f 53 54 79 70 65 | 29 3a 20 6c 6f 6e 67 69 |: OSType|): longi|
|000065a0| 6e 74 3b 0d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |nt;..{..|returns |
|000065b0| 74 68 65 20 49 44 20 6e | 75 6d 62 65 72 20 6f 66 |the ID n|umber of|
|000065c0| 20 74 68 65 20 66 72 6f | 6e 74 20 6d 6f 73 74 20 | the fro|nt most |
|000065d0| 77 69 6e 64 6f 77 20 77 | 69 74 68 20 74 68 65 20 |window w|ith the |
|000065e0| 67 69 76 65 6e 20 74 79 | 70 65 09 09 09 09 09 09 |given ty|pe......|
|000065f0| 7d 0d 7b 09 09 09 64 72 | 61 77 69 6e 67 54 79 70 |}.{...dr|awingTyp|
|00006600| 65 3a 09 72 65 74 75 72 | 6e 20 74 68 65 20 66 72 |e:.retur|n the fr|
|00006610| 6f 6e 74 6d 6f 73 74 20 | 64 72 61 77 69 6e 67 20 |ontmost |drawing |
|00006620| 77 69 6e 64 6f 77 09 09 | 09 09 09 09 7d 0d 7b 09 |window..|....}.{.|
|00006630| 09 09 64 61 74 61 54 79 | 70 65 3a 09 09 72 65 74 |..dataTy|pe:..ret|
|00006640| 75 72 6e 20 74 68 65 20 | 66 72 6f 6e 74 6d 6f 73 |urn the |frontmos|
|00006650| 74 20 64 61 74 61 20 77 | 69 6e 64 6f 77 09 09 09 |t data w|indow...|
|00006660| 09 09 09 7d 0d 7b 09 09 | 09 74 65 78 74 54 79 70 |...}.{..|.textTyp|
|00006670| 65 09 09 72 65 74 75 72 | 6e 20 74 68 65 20 66 72 |e..retur|n the fr|
|00006680| 6f 6e 74 6d 6f 73 74 20 | 74 65 78 74 20 77 69 6e |ontmost |text win|
|00006690| 64 6f 77 09 09 09 09 09 | 09 7d 0d 0d 0d 09 70 72 |dow.....|.}....pr|
|000066a0| 6f 63 65 64 75 72 65 20 | 53 61 76 65 57 69 6e 64 |ocedure |SaveWind|
|000066b0| 6f 77 20 28 77 69 6e 64 | 6f 77 49 44 3a 20 6c 6f |ow (wind|owID: lo|
|000066c0| 6e 67 69 6e 74 29 3b 0d | 0d 7b 09 09 73 61 76 65 |ngint);.|.{..save|
|000066d0| 73 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |s the co|ntents o|
|000066e0| 66 20 74 68 65 20 67 69 | 76 65 6e 20 77 69 6e 64 |f the gi|ven wind|
|000066f0| 6f 77 20 69 6e 20 74 68 | 65 20 66 69 6c 65 20 61 |ow in th|e file a|
|00006700| 73 73 6f 63 69 61 74 65 | 64 20 77 69 74 68 20 69 |ssociate|d with i|
|00006710| 74 09 09 09 09 09 09 7d | 0d 0d 0d 09 70 72 6f 63 |t......}|....proc|
|00006720| 65 64 75 72 65 20 53 61 | 76 65 57 69 6e 64 6f 77 |edure Sa|veWindow|
|00006730| 41 73 20 28 77 69 6e 64 | 6f 77 49 44 3a 20 6c 6f |As (wind|owID: lo|
|00006740| 6e 67 69 6e 74 3b 20 66 | 69 6c 65 4e 61 6d 65 3a |ngint; f|ileName:|
|00006750| 20 53 74 72 32 35 35 29 | 3b 0d 0d 7b 09 09 73 61 | Str255)|;..{..sa|
|00006760| 76 65 73 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 73 |ves the |contents|
|00006770| 20 6f 66 20 74 68 65 20 | 67 69 76 65 6e 20 77 69 | of the |given wi|
|00006780| 6e 64 6f 77 20 69 6e 20 | 74 68 65 20 66 69 6c 65 |ndow in |the file|
|00006790| 2e 09 09 09 09 09 09 7d | 0d 7b 09 09 66 69 6c 65 |.......}|.{..file|
|000067a0| 4e 61 6d 65 3a 20 74 68 | 65 20 66 69 6c 65 73 20 |Name: th|e files |
|000067b0| 6e 61 6d 65 2e 20 49 66 | 20 66 69 6c 65 4e 61 6d |name. If| fileNam|
|000067c0| 65 20 64 6f 65 73 20 6e | 6f 74 20 63 6f 6e 74 61 |e does n|ot conta|
|000067d0| 69 6e 20 61 20 66 69 6c | 65 20 70 61 74 68 2c 20 |in a fil|e path, |
|000067e0| 74 68 65 20 66 69 6c 65 | 09 09 09 09 09 09 7d 0d |the file|......}.|
|000067f0| 7b 09 09 09 69 73 20 65 | 78 70 65 63 74 65 64 20 |{...is e|xpected |
|00006800| 74 6f 20 72 65 73 69 64 | 65 20 69 6e 20 74 68 65 |to resid|e in the|
|00006810| 20 73 61 6d 65 20 66 6f | 6c 64 65 72 20 61 73 20 | same fo|lder as |
|00006820| 70 72 6f 20 46 69 74 2e | 20 41 6c 74 65 72 6e 61 |pro Fit.| Alterna|
|00006830| 74 69 76 65 6c 79 2c 20 | 79 6f 75 09 09 09 09 09 |tively, |you.....|
|00006840| 09 7d 0d 7b 09 09 09 63 | 61 6e 20 73 70 65 63 69 |.}.{...c|an speci|
|00006850| 66 79 20 61 20 66 69 6c | 65 20 70 61 74 68 2c 20 |fy a fil|e path, |
|00006860| 73 75 63 68 20 61 73 20 | 22 5c 70 48 44 3a 4d 79 |such as |"\pHD:My|
|00006870| 46 6f 6c 64 65 72 3a 4d | 79 20 46 69 6c 65 22 2e |Folder:M|y File".|
|00006880| 09 09 09 09 09 09 7d 0d | 7b 09 09 09 69 66 20 66 |......}.|{...if f|
|00006890| 69 6c 65 4e 61 6d 65 20 | 69 73 20 61 6e 20 65 6d |ileName |is an em|
|000068a0| 70 74 79 20 73 74 72 69 | 6e 67 2c 20 74 68 65 20 |pty stri|ng, the |
|000068b0| 77 69 6e 64 6f 77 20 69 | 73 20 73 61 76 65 64 20 |window i|s saved |
|000068c0| 69 6e 20 61 20 66 69 6c | 65 20 68 61 76 69 6e 67 |in a fil|e having|
|000068d0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|000068e0| 20 77 69 6e 64 6f 77 09 | 09 09 09 09 09 7d 0d 7b | window.|.....}.{|
|000068f0| 09 09 09 69 66 20 66 69 | 6c 65 4e 61 6d 65 20 69 |...if fi|leName i|
|00006900| 73 20 27 3f 27 2c 20 61 | 20 64 69 61 6c 6f 67 20 |s '?', a| dialog |
|00006910| 62 6f 78 20 69 73 20 62 | 72 6f 75 67 68 74 20 75 |box is b|rought u|
|00006920| 70 20 74 6f 20 61 73 6b | 20 66 6f 72 20 75 73 65 |p to ask| for use|
|00006930| 72 20 66 6f 72 20 61 20 | 6e 61 6d 65 09 09 09 09 |r for a |name....|
|00006940| 09 09 7d 0d 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00006950| 47 65 74 57 69 6e 64 6f | 77 49 44 20 28 77 69 6e |GetWindo|wID (win|
|00006960| 64 6f 77 4e 61 6d 65 3a | 20 53 74 72 32 35 35 29 |dowName:| Str255)|
|00006970| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 0d 7b 09 09 72 |: longin|t;..{..r|
|00006980| 65 74 75 72 6e 73 20 74 | 68 65 20 49 44 20 6e 75 |eturns t|he ID nu|
|00006990| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |mber of |the wind|
|000069a0| 6f 77 20 77 69 74 68 20 | 74 68 65 20 67 69 76 65 |ow with |the give|
|000069b0| 6e 20 6e 61 6d 65 2e 09 | 09 09 09 09 09 7d 0d 7b |n name..|.....}.{|
|000069c0| 09 09 72 65 74 75 72 6e | 73 20 30 20 69 66 20 6e |..return|s 0 if n|
|000069d0| 6f 20 73 75 63 68 20 77 | 69 6e 64 6f 77 20 69 73 |o such w|indow is|
|000069e0| 20 66 6f 75 6e 64 2e 09 | 09 09 09 09 09 7d 0d 0d | found..|.....}..|
|000069f0| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 47 65 74 57 69 |..functi|on GetWi|
|00006a00| 6e 64 6f 77 54 79 70 65 | 20 28 77 69 6e 64 6f 77 |ndowType| (window|
|00006a10| 49 44 3a 20 6c 6f 6e 67 | 69 6e 74 29 3a 20 4f 53 |ID: long|int): OS|
|00006a20| 54 79 70 65 3b 0d 0d 7b | 09 09 72 65 74 75 72 6e |Type;..{|..return|
|00006a30| 73 20 74 68 65 20 74 79 | 70 65 20 6f 66 20 74 68 |s the ty|pe of th|
|00006a40| 65 20 77 69 6e 64 6f 77 | 20 77 69 74 68 20 74 68 |e window| with th|
|00006a50| 65 20 67 69 76 65 6e 20 | 49 44 20 6e 75 6d 62 65 |e given |ID numbe|
|00006a60| 72 09 09 09 09 09 09 7d | 0d 7b 09 09 72 65 74 75 |r......}|.{..retu|
|00006a70| 72 6e 73 20 30 20 69 66 | 20 74 68 65 20 67 69 76 |rns 0 if| the giv|
|00006a80| 65 6e 20 77 69 6e 64 6f | 77 20 69 73 20 6e 6f 74 |en windo|w is not|
|00006a90| 20 61 20 74 65 78 74 2c | 20 64 72 61 77 69 6e 67 | a text,| drawing|
|00006aa0| 20 6f 72 20 64 61 74 61 | 20 77 69 6e 64 6f 77 09 | or data| window.|
|00006ab0| 09 09 09 09 09 7d 0d 7b | 09 09 09 20 20 20 20 20 |.....}.{|... |
|00006ac0| 20 6f 72 20 69 66 20 74 | 68 65 72 65 20 69 73 20 | or if t|here is |
|00006ad0| 6e 6f 20 77 69 6e 64 6f | 77 20 65 78 69 73 74 73 |no windo|w exists|
|00006ae0| 20 77 69 74 68 20 74 68 | 65 20 67 69 76 65 6e 20 | with th|e given |
|00006af0| 49 44 20 6e 75 6d 62 65 | 72 09 09 09 09 09 09 7d |ID numbe|r......}|
|00006b00| 0d 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 4e 65 78 |....func|tion Nex|
|00006b10| 74 57 69 6e 64 6f 77 20 | 28 77 69 6e 64 6f 77 49 |tWindow |(windowI|
|00006b20| 44 3a 20 6c 6f 6e 67 69 | 6e 74 29 3a 20 6c 6f 6e |D: longi|nt): lon|
|00006b30| 67 69 6e 74 3b 0d 0d 7b | 09 09 72 65 74 75 72 6e |gint;..{|..return|
|00006b40| 73 20 74 68 65 20 49 44 | 20 6e 75 6d 62 65 72 20 |s the ID| number |
|00006b50| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 20 69 6d |of the w|indow im|
|00006b60| 6d 65 64 69 61 74 65 6c | 79 20 62 65 68 69 6e 64 |mediatel|y behind|
|00006b70| 20 74 68 65 20 67 69 76 | 65 6e 20 77 69 6e 64 6f | the giv|en windo|
|00006b80| 77 09 09 09 09 09 09 7d | 0d 7b 09 09 72 65 74 75 |w......}|.{..retu|
|00006b90| 72 6e 73 20 30 20 69 66 | 20 74 68 65 20 67 69 76 |rns 0 if| the giv|
|00006ba0| 65 6e 20 77 69 6e 64 6f | 77 20 69 73 20 74 68 65 |en windo|w is the|
|00006bb0| 20 6c 61 73 74 20 6f 6e | 65 09 09 09 09 09 09 7d | last on|e......}|
|00006bc0| 0d 7b 09 09 72 65 74 75 | 72 6e 73 20 74 68 65 20 |.{..retu|rns the |
|00006bd0| 66 72 6f 6e 74 20 77 69 | 6e 64 6f 77 20 69 66 20 |front wi|ndow if |
|00006be0| 30 20 69 73 20 70 61 73 | 73 65 64 20 66 6f 72 20 |0 is pas|sed for |
|00006bf0| 74 68 65 20 77 69 6e 64 | 6f 77 49 44 2e 09 09 09 |the wind|owID....|
|00006c00| 09 09 09 7d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |...}.{..|returns |
|00006c10| 30 20 61 6e 64 20 63 61 | 75 73 65 73 20 72 75 6e |0 and ca|uses run|
|00006c20| 2d 74 69 6d 65 20 65 72 | 72 6f 72 20 69 66 20 74 |-time er|ror if t|
|00006c30| 68 65 20 77 69 6e 64 6f | 77 49 44 20 69 74 20 72 |he windo|wID it r|
|00006c40| 65 63 65 69 76 65 73 20 | 69 73 20 69 6e 76 61 6c |eceives |is inval|
|00006c50| 69 64 09 09 09 09 09 09 | 7d 0d 0d 0d 09 70 72 6f |id......|}....pro|
|00006c60| 63 65 64 75 72 65 20 4f | 70 65 6e 46 69 6c 65 20 |cedure O|penFile |
|00006c70| 28 66 69 6c 65 4e 61 6d | 65 3a 20 53 74 72 32 35 |(fileNam|e: Str25|
|00006c80| 35 29 3b 0d 0d 7b 09 09 | 4f 70 65 6e 73 20 74 68 |5);..{..|Opens th|
|00006c90| 65 20 67 69 76 65 6e 20 | 66 69 6c 65 20 69 6e 20 |e given |file in |
|00006ca0| 61 20 6e 65 77 20 77 69 | 6e 64 6f 77 2e 09 09 09 |a new wi|ndow....|
|00006cb0| 09 09 09 7d 0d 7b 09 09 | 66 69 6c 65 4e 61 6d 65 |...}.{..|fileName|
|00006cc0| 3a 20 74 68 65 20 66 69 | 6c 65 73 20 6e 61 6d 65 |: the fi|les name|
|00006cd0| 2e 20 49 66 20 66 69 6c | 65 4e 61 6d 65 20 64 6f |. If fil|eName do|
|00006ce0| 65 73 20 6e 6f 74 20 63 | 6f 6e 74 61 69 6e 20 61 |es not c|ontain a|
|00006cf0| 20 66 69 6c 65 20 70 61 | 74 68 2c 20 74 68 65 20 | file pa|th, the |
|00006d00| 66 69 6c 65 09 09 09 09 | 09 09 7d 0d 7b 09 09 69 |file....|..}.{..i|
|00006d10| 73 20 65 78 70 65 63 74 | 65 64 20 74 6f 20 72 65 |s expect|ed to re|
|00006d20| 73 69 64 65 20 69 6e 20 | 74 68 65 20 73 61 6d 65 |side in |the same|
|00006d30| 20 66 6f 6c 64 65 72 20 | 61 73 20 70 72 6f 20 46 | folder |as pro F|
|00006d40| 69 74 2e 20 41 6c 74 65 | 72 6e 61 74 69 76 65 6c |it. Alte|rnativel|
|00006d50| 79 2c 20 79 6f 75 09 09 | 09 09 09 09 7d 0d 7b 09 |y, you..|....}.{.|
|00006d60| 09 63 61 6e 20 73 70 65 | 63 69 66 79 20 61 20 66 |.can spe|cify a f|
|00006d70| 69 6c 65 20 70 61 74 68 | 2c 20 73 75 63 68 20 61 |ile path|, such a|
|00006d80| 73 20 22 5c 70 48 44 3a | 4d 79 46 6f 6c 64 65 72 |s "\pHD:|MyFolder|
|00006d90| 3a 4d 79 20 46 69 6c 65 | 22 2e 09 09 09 09 09 09 |:My File|".......|
|00006da0| 7d 0d 7b 09 09 53 65 74 | 20 6e 61 6d 65 20 74 6f |}.{..Set| name to|
|00006db0| 20 27 3f 27 20 66 6f 72 | 20 62 72 69 6e 67 69 6e | '?' for| bringin|
|00006dc0| 67 20 75 70 20 61 20 64 | 69 61 6c 6f 67 20 62 6f |g up a d|ialog bo|
|00006dd0| 78 20 70 72 6f 6d 70 74 | 69 6e 67 20 74 68 65 20 |x prompt|ing the |
|00006de0| 75 73 65 72 20 66 6f 72 | 20 74 68 65 20 6e 61 6d |user for| the nam|
|00006df0| 65 2e 09 09 09 09 09 09 | 7d 0d 7b 09 09 41 20 72 |e.......|}.{..A r|
|00006e00| 75 6e 2d 74 69 6d 65 20 | 65 72 72 6f 72 20 6f 63 |un-time |error oc|
|00006e10| 63 75 72 73 20 69 66 20 | 74 68 65 20 66 69 6c 65 |curs if |the file|
|00006e20| 20 63 61 6e 6e 6f 74 20 | 62 65 20 6f 70 65 6e 65 | cannot |be opene|
|00006e30| 64 2e 09 09 09 09 09 09 | 7d 0d 0d 0d 09 70 72 6f |d.......|}....pro|
|00006e40| 63 65 64 75 72 65 20 4f | 70 65 6e 44 61 74 61 20 |cedure O|penData |
|00006e50| 28 66 69 6c 65 4e 61 6d | 65 3a 20 53 74 72 32 35 |(fileNam|e: Str25|
|00006e60| 35 29 3b 0d 0d 7b 09 09 | 4f 70 65 6e 73 20 74 68 |5);..{..|Opens th|
|00006e70| 65 20 67 69 76 65 6e 20 | 66 69 6c 65 20 61 73 20 |e given |file as |
|00006e80| 61 20 64 61 74 61 20 66 | 69 6c 65 2e 20 54 68 65 |a data f|ile. The|
|00006e90| 20 66 69 6c 65 20 6d 75 | 73 74 20 65 69 74 68 65 | file mu|st eithe|
|00006ea0| 72 20 62 65 20 61 20 70 | 72 6f 20 46 69 74 20 64 |r be a p|ro Fit d|
|00006eb0| 61 74 61 09 09 09 09 09 | 09 7d 0d 7b 09 09 66 69 |ata.....|.}.{..fi|
|00006ec0| 6c 65 20 6f 72 20 61 20 | 74 65 78 74 20 66 69 6c |le or a |text fil|
|00006ed0| 65 20 77 69 74 68 20 76 | 61 6c 69 64 20 64 61 74 |e with v|alid dat|
|00006ee0| 61 2e 09 09 09 09 09 09 | 7d 0d 7b 09 09 66 69 6c |a.......|}.{..fil|
|00006ef0| 65 4e 61 6d 65 3a 20 74 | 68 65 20 66 69 6c 65 73 |eName: t|he files|
|00006f00| 20 6e 61 6d 65 2e 20 49 | 66 20 66 69 6c 65 4e 61 | name. I|f fileNa|
|00006f10| 6d 65 20 64 6f 65 73 20 | 6e 6f 74 20 63 6f 6e 74 |me does |not cont|
|00006f20| 61 69 6e 20 61 20 66 69 | 6c 65 20 70 61 74 68 2c |ain a fi|le path,|
|00006f30| 20 74 68 65 20 66 69 6c | 65 09 09 09 09 09 09 7d | the fil|e......}|
|00006f40| 0d 7b 09 09 69 73 20 65 | 78 70 65 63 74 65 64 20 |.{..is e|xpected |
|00006f50| 74 6f 20 72 65 73 69 64 | 65 20 69 6e 20 74 68 65 |to resid|e in the|
|00006f60| 20 73 61 6d 65 20 66 6f | 6c 64 65 72 20 61 73 20 | same fo|lder as |
|00006f70| 70 72 6f 20 46 69 74 2e | 20 41 6c 74 65 72 6e 61 |pro Fit.| Alterna|
|00006f80| 74 69 76 65 6c 79 2c 20 | 79 6f 75 09 09 09 09 09 |tively, |you.....|
|00006f90| 09 7d 0d 7b 09 09 63 61 | 6e 20 73 70 65 63 69 66 |.}.{..ca|n specif|
|00006fa0| 79 20 61 20 66 69 6c 65 | 20 70 61 74 68 2c 20 73 |y a file| path, s|
|00006fb0| 75 63 68 20 61 73 20 22 | 5c 70 48 44 3a 4d 79 46 |uch as "|\pHD:MyF|
|00006fc0| 6f 6c 64 65 72 3a 4d 79 | 20 46 69 6c 65 22 2e 09 |older:My| File"..|
|00006fd0| 09 09 09 09 09 7d 0d 7b | 09 09 53 65 74 20 6e 61 |.....}.{|..Set na|
|00006fe0| 6d 65 20 74 6f 20 27 3f | 27 20 66 6f 72 20 62 72 |me to '?|' for br|
|00006ff0| 69 6e 67 69 6e 67 20 75 | 70 20 61 20 64 69 61 6c |inging u|p a dial|
|00007000| 6f 67 20 62 6f 78 20 70 | 72 6f 6d 70 74 69 6e 67 |og box p|rompting|
|00007010| 20 74 68 65 20 75 73 65 | 72 20 66 6f 72 20 74 68 | the use|r for th|
|00007020| 65 20 6e 61 6d 65 2e 09 | 09 09 09 09 09 7d 0d 7b |e name..|.....}.{|
|00007030| 09 09 41 20 72 75 6e 2d | 74 69 6d 65 20 65 72 72 |..A run-|time err|
|00007040| 6f 72 20 6f 63 63 75 72 | 73 20 69 66 20 74 68 65 |or occur|s if the|
|00007050| 20 66 69 6c 65 20 63 61 | 6e 6e 6f 74 20 62 65 20 | file ca|nnot be |
|00007060| 6f 70 65 6e 65 64 2e 09 | 09 09 09 09 09 7d 0d 0d |opened..|.....}..|
|00007070| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 4f 70 65 6e |..proced|ure Open|
|00007080| 54 65 78 74 20 28 66 69 | 6c 65 4e 61 6d 65 3a 20 |Text (fi|leName: |
|00007090| 53 74 72 32 35 35 29 3b | 0d 0d 7b 09 09 4f 70 65 |Str255);|..{..Ope|
|000070a0| 6e 73 20 74 68 65 20 67 | 69 76 65 6e 20 66 69 6c |ns the g|iven fil|
|000070b0| 65 20 61 73 20 61 20 74 | 65 78 74 20 66 69 6c 65 |e as a t|ext file|
|000070c0| 2e 20 54 68 65 20 66 69 | 6c 65 20 6d 75 73 74 20 |. The fi|le must |
|000070d0| 65 69 74 68 65 72 20 62 | 65 20 61 20 70 72 6f 20 |either b|e a pro |
|000070e0| 46 69 74 20 66 75 6e 63 | 74 69 6f 6e 09 09 09 09 |Fit func|tion....|
|000070f0| 09 09 7d 0d 7b 09 09 66 | 69 6c 65 20 6f 72 20 61 |..}.{..f|ile or a|
|00007100| 20 74 65 78 74 20 66 69 | 6c 65 2e 09 09 09 09 09 | text fi|le......|
|00007110| 09 7d 0d 7b 09 09 66 69 | 6c 65 4e 61 6d 65 3a 20 |.}.{..fi|leName: |
|00007120| 74 68 65 20 66 69 6c 65 | 73 20 6e 61 6d 65 2e 20 |the file|s name. |
|00007130| 49 66 20 66 69 6c 65 4e | 61 6d 65 20 64 6f 65 73 |If fileN|ame does|
|00007140| 20 6e 6f 74 20 63 6f 6e | 74 61 69 6e 20 61 20 66 | not con|tain a f|
|00007150| 69 6c 65 20 70 61 74 68 | 2c 20 74 68 65 20 66 69 |ile path|, the fi|
|00007160| 6c 65 09 09 09 09 09 09 | 7d 0d 7b 09 09 69 73 20 |le......|}.{..is |
|00007170| 65 78 70 65 63 74 65 64 | 20 74 6f 20 72 65 73 69 |expected| to resi|
|00007180| 64 65 20 69 6e 20 74 68 | 65 20 73 61 6d 65 20 66 |de in th|e same f|
|00007190| 6f 6c 64 65 72 20 61 73 | 20 70 72 6f 20 46 69 74 |older as| pro Fit|
|000071a0| 2e 20 41 6c 74 65 72 6e | 61 74 69 76 65 6c 79 2c |. Altern|atively,|
|000071b0| 20 79 6f 75 09 09 09 09 | 09 09 7d 0d 7b 09 09 63 | you....|..}.{..c|
|000071c0| 61 6e 20 73 70 65 63 69 | 66 79 20 61 20 66 69 6c |an speci|fy a fil|
|000071d0| 65 20 70 61 74 68 2c 20 | 73 75 63 68 20 61 73 20 |e path, |such as |
|000071e0| 22 5c 70 48 44 3a 4d 79 | 46 6f 6c 64 65 72 3a 4d |"\pHD:My|Folder:M|
|000071f0| 79 20 46 69 6c 65 22 2e | 09 09 09 09 09 09 7d 0d |y File".|......}.|
|00007200| 7b 09 09 53 65 74 20 6e | 61 6d 65 20 74 6f 20 27 |{..Set n|ame to '|
|00007210| 3f 27 20 66 6f 72 20 62 | 72 69 6e 67 69 6e 67 20 |?' for b|ringing |
|00007220| 75 70 20 61 20 64 69 61 | 6c 6f 67 20 62 6f 78 20 |up a dia|log box |
|00007230| 70 72 6f 6d 70 74 69 6e | 67 20 74 68 65 20 75 73 |promptin|g the us|
|00007240| 65 72 20 66 6f 72 20 74 | 68 65 20 6e 61 6d 65 2e |er for t|he name.|
|00007250| 09 09 09 09 09 09 7d 0d | 7b 09 09 41 20 72 75 6e |......}.|{..A run|
|00007260| 2d 74 69 6d 65 20 65 72 | 72 6f 72 20 6f 63 63 75 |-time er|ror occu|
|00007270| 72 73 20 69 66 20 74 68 | 65 20 66 69 6c 65 20 63 |rs if th|e file c|
|00007280| 61 6e 6e 6f 74 20 62 65 | 20 6f 70 65 6e 65 64 2e |annot be| opened.|
|00007290| 09 09 09 09 09 09 7d 0d | 0d 0d 09 70 72 6f 63 65 |......}.|...proce|
|000072a0| 64 75 72 65 20 53 65 74 | 54 65 78 74 46 69 6c 65 |dure Set|TextFile|
|000072b0| 46 6f 72 6d 61 74 20 28 | 63 6f 6c 44 65 6c 69 6d |Format (|colDelim|
|000072c0| 69 74 65 72 2c 20 65 6e | 64 4f 66 4c 69 6e 65 3a |iter, en|dOfLine:|
|000072d0| 20 53 74 72 32 35 35 3b | 20 77 69 74 68 43 6f 6c | Str255;| withCol|
|000072e0| 54 69 74 6c 65 73 2c 20 | 63 6f 70 79 49 6e 66 6f |Titles, |copyInfo|
|000072f0| 54 65 78 74 3a 20 42 6f | 6f 6c 65 61 6e 3b 20 6e |Text: Bo|olean; n|
|00007300| 72 48 65 61 64 65 72 4c | 69 6e 65 73 2c 20 69 6e |rHeaderL|ines, in|
|00007310| 70 75 74 4f 52 6f 75 74 | 70 75 74 3a 20 6c 6f 6e |putORout|put: lon|
|00007320| 67 69 6e 74 29 3b 0d 0d | 7b 09 09 63 6f 6c 44 65 |gint);..|{..colDe|
|00007330| 6c 69 6d 69 74 65 72 3a | 09 69 6e 73 65 72 74 65 |limiter:|.inserte|
|00007340| 64 20 62 65 74 77 65 65 | 6e 20 63 6f 6e 73 65 63 |d betwee|n consec|
|00007350| 75 74 69 76 65 20 63 65 | 6c 6c 73 20 69 6e 20 74 |utive ce|lls in t|
|00007360| 68 65 20 73 61 6d 65 20 | 72 6f 77 2e 09 09 09 09 |he same |row.....|
|00007370| 09 09 7d 0d 7b 09 09 09 | 09 09 09 55 73 75 61 6c |..}.{...|...Usual|
|00007380| 6c 79 2c 20 79 6f 75 20 | 77 69 6c 6c 20 73 70 65 |ly, you |will spe|
|00007390| 63 69 66 79 20 61 20 74 | 61 62 20 63 68 61 72 61 |cify a t|ab chara|
|000073a0| 63 74 65 72 20 62 79 20 | 70 61 73 73 69 6e 67 20 |cter by |passing |
|000073b0| 22 5c 70 5c 74 22 09 09 | 09 09 09 09 7d 0d 7b 09 |"\p\t"..|....}.{.|
|000073c0| 09 65 6e 64 4f 66 4c 69 | 6e 65 3a 09 09 69 6e 73 |.endOfLi|ne:..ins|
|000073d0| 65 72 74 65 64 20 62 65 | 74 77 65 65 6e 20 74 68 |erted be|tween th|
|000073e0| 65 20 6c 61 73 74 20 63 | 65 6c 6c 20 6f 66 20 61 |e last c|ell of a|
|000073f0| 20 72 6f 77 20 61 6e 64 | 20 74 68 65 20 66 69 72 | row and| the fir|
|00007400| 73 74 20 63 65 6c 6c 09 | 09 09 09 09 09 7d 0d 7b |st cell.|.....}.{|
|00007410| 09 09 09 09 09 09 6f 66 | 20 61 20 6e 65 78 74 20 |......of| a next |
|00007420| 72 6f 77 2e 20 55 73 75 | 61 6c 6c 79 2c 20 79 6f |row. Usu|ally, yo|
|00007430| 75 20 77 69 6c 6c 20 73 | 70 65 63 69 66 79 20 74 |u will s|pecify t|
|00007440| 68 65 20 43 52 20 63 68 | 61 72 61 63 74 65 72 09 |he CR ch|aracter.|
|00007450| 09 09 09 09 09 7d 0d 7b | 09 09 09 09 09 09 62 79 |.....}.{|......by|
|00007460| 20 70 61 73 73 69 6e 67 | 20 22 5c 70 5c 31 35 22 | passing| "\p\15"|
|00007470| 09 09 09 09 09 09 7d 0d | 7b 09 09 77 69 74 68 43 |......}.|{..withC|
|00007480| 6f 6c 54 69 74 6c 65 73 | 3a 09 70 61 73 73 20 74 |olTitles|:.pass t|
|00007490| 72 75 65 20 69 66 20 74 | 68 65 20 63 6f 6c 75 6d |rue if t|he colum|
|000074a0| 6e 20 74 69 74 6c 65 73 | 20 73 68 6f 75 6c 64 20 |n titles| should |
|000074b0| 62 65 20 73 61 76 65 64 | 20 2f 20 6c 6f 61 64 65 |be saved| / loade|
|000074c0| 64 09 09 09 09 09 09 09 | 7d 0d 7b 09 09 09 09 09 |d.......|}.{.....|
|000074d0| 09 61 73 20 74 68 65 20 | 28 66 69 72 73 74 29 20 |.as the |(first) |
|000074e0| 72 6f 77 20 6f 66 20 74 | 68 65 20 66 69 6c 65 2e |row of t|he file.|
|000074f0| 09 09 09 7d 0d 7b 09 09 | 63 6f 70 79 49 6e 66 6f |...}.{..|copyInfo|
|00007500| 54 65 78 74 3a 09 70 61 | 73 73 20 74 72 75 65 20 |Text:.pa|ss true |
|00007510| 69 66 20 74 68 65 20 74 | 65 78 74 20 69 6e 20 74 |if the t|ext in t|
|00007520| 68 65 20 69 6e 66 6f 20 | 66 69 65 6c 64 20 6f 66 |he info |field of|
|00007530| 20 74 68 65 20 64 61 74 | 61 20 77 69 6e 64 6f 77 | the dat|a window|
|00007540| 09 09 09 09 09 09 7d 0d | 7b 09 09 09 09 09 09 73 |......}.|{......s|
|00007550| 68 61 6c 6c 20 62 65 20 | 73 61 76 65 64 20 2f 20 |hall be |saved / |
|00007560| 6c 6f 61 64 65 64 2e 09 | 09 09 09 7d 0d 7b 09 09 |loaded..|...}.{..|
|00007570| 6e 72 48 65 61 64 65 72 | 4c 69 6e 65 73 3a 09 6e |nrHeader|Lines:.n|
|00007580| 75 6d 62 65 72 20 6f 66 | 20 68 65 61 64 65 72 20 |umber of| header |
|00007590| 6c 69 6e 65 73 20 63 6f | 6e 74 61 69 6e 65 64 20 |lines co|ntained |
|000075a0| 69 6e 20 74 68 65 20 74 | 65 78 74 20 66 69 6c 65 |in the t|ext file|
|000075b0| 20 77 68 65 6e 20 6c 6f | 61 64 69 6e 67 2e 09 09 | when lo|ading...|
|000075c0| 09 09 09 7d 0d 7b 09 09 | 09 09 09 09 49 66 20 63 |...}.{..|....If c|
|000075d0| 6f 70 79 49 6e 66 6f 54 | 65 78 74 20 69 73 20 74 |opyInfoT|ext is t|
|000075e0| 72 75 65 2c 20 74 68 65 | 73 65 20 6c 69 6e 65 73 |rue, the|se lines|
|000075f0| 20 61 72 65 20 63 6f 70 | 69 65 64 20 74 6f 20 74 | are cop|ied to t|
|00007600| 68 65 20 69 6e 66 6f 09 | 09 09 09 09 09 7d 0d 7b |he info.|.....}.{|
|00007610| 09 09 09 09 09 09 66 69 | 65 6c 64 2c 20 6f 74 68 |......fi|eld, oth|
|00007620| 65 72 77 69 73 65 20 74 | 68 65 79 20 61 72 65 20 |erwise t|hey are |
|00007630| 73 6b 69 70 70 65 64 2e | 09 09 7d 0d 7b 09 09 69 |skipped.|..}.{..i|
|00007640| 6e 70 75 74 4f 52 6f 75 | 74 70 75 74 3a 09 70 61 |nputORou|tput:.pa|
|00007650| 73 73 20 31 20 74 6f 20 | 64 65 66 69 6e 65 20 74 |ss 1 to |define t|
|00007660| 68 65 20 66 6f 72 6d 61 | 74 20 6f 66 20 74 68 65 |he forma|t of the|
|00007670| 20 69 6e 70 75 74 20 66 | 69 6c 65 20 28 6c 6f 61 | input f|ile (loa|
|00007680| 64 69 6e 67 29 2c 09 09 | 09 09 09 09 7d 0d 7b 09 |ding),..|....}.{.|
|00007690| 09 09 09 09 09 70 61 73 | 73 20 30 20 74 6f 20 64 |.....pas|s 0 to d|
|000076a0| 65 66 69 6e 65 20 74 68 | 65 20 66 6f 72 6d 61 74 |efine th|e format|
|000076b0| 20 6f 66 20 74 68 65 20 | 6f 75 74 70 75 74 20 66 | of the |output f|
|000076c0| 69 6c 65 20 28 73 61 76 | 69 6e 67 29 2e 09 7d 0d |ile (sav|ing)..}.|
|000076d0| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 53 61 76 |...proce|dure Sav|
|000076e0| 65 44 61 74 61 41 73 54 | 65 78 74 20 28 77 69 6e |eDataAsT|ext (win|
|000076f0| 64 6f 77 49 44 3a 20 6c | 6f 6e 67 69 6e 74 3b 20 |dowID: l|ongint; |
|00007700| 66 69 6c 65 4e 61 6d 65 | 3a 20 53 74 72 32 35 35 |fileName|: Str255|
|00007710| 29 3b 0d 0d 7b 09 09 73 | 61 76 65 73 20 74 68 65 |);..{..s|aves the|
|00007720| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 74 68 65 | content|s of the|
|00007730| 20 64 61 74 61 20 77 69 | 6e 64 6f 77 20 69 6e 20 | data wi|ndow in |
|00007740| 61 20 66 69 6c 65 2e 09 | 09 09 09 09 09 7d 0d 7b |a file..|.....}.{|
|00007750| 09 09 66 69 6c 65 4e 61 | 6d 65 3a 20 74 68 65 20 |..fileNa|me: the |
|00007760| 66 69 6c 65 27 73 20 6e | 61 6d 65 2e 20 49 66 20 |file's n|ame. If |
|00007770| 66 69 6c 65 4e 61 6d 65 | 20 64 6f 65 73 20 6e 6f |fileName| does no|
|00007780| 74 20 63 6f 6e 74 61 69 | 6e 20 61 20 66 69 6c 65 |t contai|n a file|
|00007790| 20 70 61 74 68 2c 20 74 | 68 65 20 66 69 6c 65 09 | path, t|he file.|
|000077a0| 09 09 09 09 09 7d 0d 7b | 09 09 09 69 73 20 65 78 |.....}.{|...is ex|
|000077b0| 70 65 63 74 65 64 20 74 | 6f 20 72 65 73 69 64 65 |pected t|o reside|
|000077c0| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 66 6f 6c | in the |same fol|
|000077d0| 64 65 72 20 61 73 20 70 | 72 6f 20 46 69 74 2e 20 |der as p|ro Fit. |
|000077e0| 41 6c 74 65 72 6e 61 74 | 69 76 65 6c 79 2c 20 79 |Alternat|ively, y|
|000077f0| 6f 75 09 09 09 09 09 09 | 7d 0d 7b 09 09 09 63 61 |ou......|}.{...ca|
|00007800| 6e 20 73 70 65 63 69 66 | 79 20 61 20 66 69 6c 65 |n specif|y a file|
|00007810| 20 70 61 74 68 2c 20 73 | 75 63 68 20 61 73 20 22 | path, s|uch as "|
|00007820| 5c 70 48 44 3a 4d 79 46 | 6f 6c 64 65 72 3a 4d 79 |\pHD:MyF|older:My|
|00007830| 20 46 69 6c 65 22 2e 09 | 09 09 09 09 09 7d 0d 7b | File"..|.....}.{|
|00007840| 09 09 09 69 66 20 66 69 | 6c 65 4e 61 6d 65 20 69 |...if fi|leName i|
|00007850| 73 20 61 6e 20 65 6d 70 | 74 79 20 73 74 72 69 6e |s an emp|ty strin|
|00007860| 67 2c 20 74 68 65 20 77 | 69 6e 64 6f 77 20 69 73 |g, the w|indow is|
|00007870| 20 73 61 76 65 64 20 69 | 6e 20 61 20 66 69 6c 65 | saved i|n a file|
|00007880| 20 68 61 76 69 6e 67 20 | 74 68 65 20 6e 61 6d 65 | having |the name|
|00007890| 20 6f 66 20 74 68 65 20 | 77 69 6e 64 6f 77 09 09 | of the |window..|
|000078a0| 09 09 09 09 7d 0d 7b 09 | 09 09 69 66 20 66 69 6c |....}.{.|..if fil|
|000078b0| 65 4e 61 6d 65 20 69 73 | 20 27 3f 27 2c 20 61 20 |eName is| '?', a |
|000078c0| 64 69 61 6c 6f 67 20 62 | 6f 78 20 69 73 20 62 72 |dialog b|ox is br|
|000078d0| 6f 75 67 68 74 20 75 70 | 20 74 6f 20 61 73 6b 20 |ought up| to ask |
|000078e0| 66 6f 72 20 75 73 65 72 | 20 66 6f 72 20 61 20 6e |for user| for a n|
|000078f0| 61 6d 65 09 09 09 09 09 | 09 7d 0d 7b 09 09 54 68 |ame.....|.}.{..Th|
|00007900| 65 20 69 6e 64 69 76 69 | 64 75 61 6c 20 63 65 6c |e indivi|dual cel|
|00007910| 6c 73 20 77 69 6c 6c 20 | 62 65 20 73 74 6f 72 65 |ls will |be store|
|00007920| 64 20 72 6f 77 20 62 79 | 20 72 6f 77 2e 09 09 09 |d row by| row....|
|00007930| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|00007940| 65 20 53 61 76 65 44 72 | 61 77 69 6e 67 41 73 20 |e SaveDr|awingAs |
|00007950| 28 77 69 6e 64 6f 77 49 | 44 3a 20 6c 6f 6e 67 69 |(windowI|D: longi|
|00007960| 6e 74 3b 20 66 69 6c 65 | 4e 61 6d 65 3a 20 53 74 |nt; file|Name: St|
|00007970| 72 32 35 35 3b 20 66 6f | 72 6d 61 74 3a 20 6c 6f |r255; fo|rmat: lo|
|00007980| 6e 67 69 6e 74 29 3b 0d | 0d 7b 09 09 73 61 76 65 |ngint);.|.{..save|
|00007990| 73 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |s the co|ntents o|
|000079a0| 66 20 74 68 65 20 64 72 | 61 77 69 6e 67 20 77 69 |f the dr|awing wi|
|000079b0| 6e 64 6f 77 20 69 6e 20 | 61 20 66 69 6c 65 2e 09 |ndow in |a file..|
|000079c0| 09 09 09 09 09 7d 0d 7b | 09 09 66 69 6c 65 4e 61 |.....}.{|..fileNa|
|000079d0| 6d 65 3a 20 74 68 65 20 | 66 69 6c 65 27 73 20 6e |me: the |file's n|
|000079e0| 61 6d 65 2e 20 49 66 20 | 66 69 6c 65 4e 61 6d 65 |ame. If |fileName|
|000079f0| 20 64 6f 65 73 20 6e 6f | 74 20 63 6f 6e 74 61 69 | does no|t contai|
|00007a00| 6e 20 61 20 66 69 6c 65 | 20 70 61 74 68 2c 20 74 |n a file| path, t|
|00007a10| 68 65 20 66 69 6c 65 09 | 09 09 09 09 09 7d 0d 7b |he file.|.....}.{|
|00007a20| 09 09 09 69 73 20 65 78 | 70 65 63 74 65 64 20 74 |...is ex|pected t|
|00007a30| 6f 20 72 65 73 69 64 65 | 20 69 6e 20 74 68 65 20 |o reside| in the |
|00007a40| 73 61 6d 65 20 66 6f 6c | 64 65 72 20 61 73 20 70 |same fol|der as p|
|00007a50| 72 6f 20 46 69 74 2e 20 | 41 6c 74 65 72 6e 61 74 |ro Fit. |Alternat|
|00007a60| 69 76 65 6c 79 2c 20 79 | 6f 75 09 09 09 09 09 09 |ively, y|ou......|
|00007a70| 7d 0d 7b 09 09 09 63 61 | 6e 20 73 70 65 63 69 66 |}.{...ca|n specif|
|00007a80| 79 20 61 20 66 69 6c 65 | 20 70 61 74 68 2c 20 73 |y a file| path, s|
|00007a90| 75 63 68 20 61 73 20 22 | 5c 70 48 44 3a 4d 79 46 |uch as "|\pHD:MyF|
|00007aa0| 6f 6c 64 65 72 3a 4d 79 | 20 46 69 6c 65 22 2e 09 |older:My| File"..|
|00007ab0| 09 09 09 09 09 7d 0d 7b | 09 09 09 69 66 20 66 69 |.....}.{|...if fi|
|00007ac0| 6c 65 4e 61 6d 65 20 69 | 73 20 61 6e 20 65 6d 70 |leName i|s an emp|
|00007ad0| 74 79 20 73 74 72 69 6e | 67 2c 20 74 68 65 20 77 |ty strin|g, the w|
|00007ae0| 69 6e 64 6f 77 20 69 73 | 20 73 61 76 65 64 20 69 |indow is| saved i|
|00007af0| 6e 20 61 20 66 69 6c 65 | 20 68 61 76 69 6e 67 20 |n a file| having |
|00007b00| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00007b10| 77 69 6e 64 6f 77 09 09 | 09 09 09 09 7d 0d 7b 09 |window..|....}.{.|
|00007b20| 09 09 69 66 20 66 69 6c | 65 4e 61 6d 65 20 69 73 |..if fil|eName is|
|00007b30| 20 27 3f 27 2c 20 61 20 | 64 69 61 6c 6f 67 20 62 | '?', a |dialog b|
|00007b40| 6f 78 20 69 73 20 62 72 | 6f 75 67 68 74 20 75 70 |ox is br|ought up|
|00007b50| 20 74 6f 20 61 73 6b 20 | 66 6f 72 20 75 73 65 72 | to ask |for user|
|00007b60| 20 66 6f 72 20 61 20 6e | 61 6d 65 09 09 09 09 09 | for a n|ame.....|
|00007b70| 09 7d 0d 7b 09 09 66 6f | 72 6d 61 74 3a 09 30 20 |.}.{..fo|rmat:.0 |
|00007b80| 66 6f 72 20 73 61 76 69 | 6e 67 20 74 68 65 20 66 |for savi|ng the f|
|00007b90| 69 6c 65 20 69 6e 20 61 | 20 73 74 61 6e 64 61 72 |ile in a| standar|
|00007ba0| 64 20 70 72 6f 20 46 69 | 74 20 64 72 61 77 69 6e |d pro Fi|t drawin|
|00007bb0| 67 20 66 69 6c 65 09 09 | 09 09 09 09 7d 0d 7b 09 |g file..|....}.{.|
|00007bc0| 09 09 09 31 20 66 6f 72 | 20 73 61 76 69 6e 67 20 |...1 for| saving |
|00007bd0| 74 68 65 20 66 69 6c 65 | 20 61 73 20 70 69 63 74 |the file| as pict|
|00007be0| 75 72 65 20 28 68 61 76 | 69 6e 67 20 61 20 66 69 |ure (hav|ing a fi|
|00007bf0| 6c 65 20 74 79 70 65 20 | 50 49 43 54 29 09 09 09 |le type |PICT)...|
|00007c00| 09 09 09 7d 0d 7b 09 09 | 09 09 32 20 66 6f 72 20 |...}.{..|..2 for |
|00007c10| 73 61 76 69 6e 67 20 74 | 68 65 20 66 69 65 6c 20 |saving t|he fiel |
|00007c20| 61 73 20 65 70 73 2d 66 | 69 6c 65 20 28 68 61 76 |as eps-f|ile (hav|
|00007c30| 69 6e 67 20 61 20 66 69 | 6c 65 20 74 79 70 65 20 |ing a fi|le type |
|00007c40| 45 50 53 46 29 09 09 09 | 09 09 09 7d 0d 0d 0d 09 |EPSF)...|...}....|
|00007c50| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 57 69 6e |procedur|e SetWin|
|00007c60| 64 6f 77 54 69 74 6c 65 | 20 28 77 69 6e 64 6f 77 |dowTitle| (window|
|00007c70| 49 44 3a 20 6c 6f 6e 67 | 69 6e 74 3b 20 6e 61 6d |ID: long|int; nam|
|00007c80| 65 3a 20 53 74 72 32 35 | 35 29 3b 0d 0d 7b 09 09 |e: Str25|5);..{..|
|00007c90| 73 65 74 73 20 74 68 65 | 20 74 69 74 6c 65 20 6f |sets the| title o|
|00007ca0| 66 20 61 20 67 69 76 65 | 6e 20 77 69 6e 64 6f 77 |f a give|n window|
|00007cb0| 2e 20 54 68 65 20 74 69 | 74 6c 65 20 73 68 6f 75 |. The ti|tle shou|
|00007cc0| 6c 64 20 6e 6f 74 20 63 | 6f 6e 74 61 69 6e 20 61 |ld not c|ontain a|
|00007cd0| 20 27 3a 27 09 09 09 09 | 09 09 7d 0d 0d 0d 09 70 | ':'....|..}....p|
|00007ce0| 72 6f 63 65 64 75 72 65 | 20 47 65 74 57 69 6e 64 |rocedure| GetWind|
|00007cf0| 6f 77 54 69 74 6c 65 20 | 28 77 69 6e 64 6f 77 49 |owTitle |(windowI|
|00007d00| 44 3a 20 6c 6f 6e 67 69 | 6e 74 3b 20 76 61 72 20 |D: longi|nt; var |
|00007d10| 6e 61 6d 65 3a 20 53 74 | 72 32 35 35 29 3b 0d 0d |name: St|r255);..|
|00007d20| 7b 09 09 72 65 74 75 72 | 6e 73 20 74 68 65 20 74 |{..retur|ns the t|
|00007d30| 69 74 6c 65 20 6f 66 20 | 74 68 65 20 77 69 6e 64 |itle of |the wind|
|00007d40| 6f 77 20 77 69 74 68 20 | 74 68 65 20 67 69 76 65 |ow with |the give|
|00007d50| 6e 20 77 69 6e 64 6f 77 | 49 44 09 09 09 09 09 09 |n window|ID......|
|00007d60| 7d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |}....pro|cedure S|
|00007d70| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 28 77 69 6e |etWindow|Info(win|
|00007d80| 64 6f 77 49 44 3a 6c 6f | 6e 67 69 6e 74 3b 20 6c |dowID:lo|ngint; l|
|00007d90| 65 6e 67 74 68 3a 20 6c | 6f 6e 67 69 6e 74 3b 20 |ength: l|ongint; |
|00007da0| 69 6e 66 6f 3a 20 50 74 | 72 29 3b 0d 7b 09 09 53 |info: Pt|r);.{..S|
|00007db0| 65 74 73 20 74 68 65 20 | 69 6e 66 6f 20 6f 66 20 |ets the |info of |
|00007dc0| 61 20 77 69 6e 64 6f 77 | 2e 20 28 54 68 65 20 22 |a window|. (The "|
|00007dd0| 69 6e 66 6f 22 20 6f 66 | 20 61 20 77 69 6e 64 6f |info" of| a windo|
|00007de0| 77 20 63 61 6e 20 62 65 | 20 76 69 65 77 65 64 20 |w can be| viewed |
|00007df0| 62 79 20 75 73 69 6e 67 | 20 74 68 65 20 7d 0d 7b |by using| the }.{|
|00007e00| 09 09 47 65 74 20 49 6e | 66 6f 2e 2e 2e 20 63 6f |..Get In|fo... co|
|00007e10| 6d 6d 61 6e 64 20 66 72 | 6f 6d 20 74 68 65 20 46 |mmand fr|om the F|
|00007e20| 69 6c 65 20 6d 65 6e 75 | 2e 20 46 6f 72 20 64 61 |ile menu|. For da|
|00007e30| 74 61 20 77 69 6e 64 6f | 77 73 2c 20 69 74 20 69 |ta windo|ws, it i|
|00007e40| 73 20 74 68 65 20 7d 0d | 7b 09 09 74 65 78 74 20 |s the }.|{..text |
|00007e50| 74 68 61 74 20 61 70 70 | 65 61 72 73 20 77 68 65 |that app|ears whe|
|00007e60| 6e 20 79 6f 75 20 64 72 | 61 67 20 64 6f 77 6e 20 |n you dr|ag down |
|00007e70| 74 68 65 20 69 6e 66 6f | 20 66 69 65 6c 64 2e 29 |the info| field.)|
|00007e80| 20 7d 0d 7b 09 09 77 69 | 6e 64 6f 77 49 44 3a 20 | }.{..wi|ndowID: |
|00007e90| 74 68 65 20 69 64 20 6f | 66 20 74 68 65 20 77 69 |the id o|f the wi|
|00007ea0| 6e 64 6f 77 20 7d 0d 7b | 09 09 6c 65 6e 67 74 68 |ndow }.{|..length|
|00007eb0| 3a 20 74 68 65 20 6c 65 | 6e 67 74 68 20 6f 66 20 |: the le|ngth of |
|00007ec0| 74 68 65 20 74 65 78 74 | 20 69 6e 20 62 79 74 65 |the text| in byte|
|00007ed0| 73 20 7d 0d 7b 09 09 69 | 6e 66 6f 3a 20 61 20 70 |s }.{..i|nfo: a p|
|00007ee0| 6f 69 6e 74 65 72 20 74 | 6f 20 74 68 65 20 73 74 |ointer t|o the st|
|00007ef0| 61 72 74 20 6f 66 20 74 | 68 65 20 74 65 78 74 20 |art of t|he text |
|00007f00| 7d 0d 7b 09 09 55 73 65 | 20 53 65 74 57 69 6e 64 |}.{..Use| SetWind|
|00007f10| 6f 77 28 77 69 6e 64 6f | 77 49 44 2c 20 30 2c 20 |ow(windo|wID, 0, |
|00007f20| 6e 69 6c 29 20 66 6f 72 | 20 63 6c 65 61 72 69 6e |nil) for| clearin|
|00007f30| 67 20 74 68 65 20 69 6e | 66 6f 20 66 69 65 6c 64 |g the in|fo field|
|00007f40| 2e 20 7d 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |. }....p|rocedure|
|00007f50| 20 50 6c 61 63 65 57 69 | 6e 64 6f 77 20 28 77 69 | PlaceWi|ndow (wi|
|00007f60| 6e 64 6f 77 49 44 3a 20 | 6c 6f 6e 67 69 6e 74 3b |ndowID: |longint;|
|00007f70| 20 77 69 6e 64 6f 77 52 | 65 63 74 3a 20 52 65 63 | windowR|ect: Rec|
|00007f80| 74 29 3b 0d 0d 7b 09 09 | 72 65 73 69 7a 65 73 20 |t);..{..|resizes |
|00007f90| 61 6e 64 20 70 6f 73 69 | 74 69 6f 6e 73 20 74 68 |and posi|tions th|
|00007fa0| 65 20 77 69 6e 64 6f 77 | 20 61 63 63 6f 72 64 69 |e window| accordi|
|00007fb0| 6e 67 20 74 6f 20 77 69 | 6e 64 6f 77 52 65 63 74 |ng to wi|ndowRect|
|00007fc0| 09 09 09 09 09 09 7d 0d | 0d 0d 0d 09 70 72 6f 63 |......}.|....proc|
|00007fd0| 65 64 75 72 65 20 42 72 | 69 6e 67 57 69 6e 64 6f |edure Br|ingWindo|
|00007fe0| 77 54 6f 46 72 6f 6e 74 | 20 28 77 69 6e 64 6f 77 |wToFront| (window|
|00007ff0| 49 44 3a 20 6c 6f 6e 67 | 69 6e 74 29 3b 0d 0d 7b |ID: long|int);..{|
|00008000| 09 09 74 68 65 20 77 69 | 6e 64 6f 77 20 77 69 74 |..the wi|ndow wit|
|00008010| 68 20 74 68 65 20 67 69 | 76 65 6e 20 49 44 20 6e |h the gi|ven ID n|
|00008020| 75 6d 62 65 72 20 69 73 | 20 62 72 6f 75 67 68 74 |umber is| brought|
|00008030| 20 69 6e 20 66 72 6f 6e | 74 20 6f 66 20 61 6c 6c | in fron|t of all|
|00008040| 20 6f 74 68 65 72 73 2e | 09 09 09 09 09 09 7d 0d | others.|......}.|
|00008050| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 43 6f 6d |...proce|dure Com|
|00008060| 70 69 6c 65 20 28 77 69 | 6e 64 6f 77 49 44 3a 20 |pile (wi|ndowID: |
|00008070| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 0d 7b 09 09 43 6f |longint)|;..{..Co|
|00008080| 6d 70 69 6c 65 73 20 74 | 68 65 20 74 65 78 74 20 |mpiles t|he text |
|00008090| 66 6f 75 6e 64 20 69 6e | 20 74 68 65 20 67 69 76 |found in| the giv|
|000080a0| 65 6e 20 77 69 6e 64 6f | 77 2e 09 09 09 09 09 09 |en windo|w.......|
|000080b0| 7d 0d 7b 09 09 43 61 75 | 73 65 73 20 61 20 72 75 |}.{..Cau|ses a ru|
|000080c0| 6e 20 65 72 72 6f 72 20 | 69 66 20 74 68 65 20 67 |n error |if the g|
|000080d0| 69 76 65 6e 20 77 69 6e | 64 6f 77 20 69 73 20 6e |iven win|dow is n|
|000080e0| 6f 74 20 61 20 66 75 6e | 63 74 69 6f 6e 20 77 69 |ot a fun|ction wi|
|000080f0| 6e 64 6f 77 20 6f 72 20 | 69 66 09 09 09 09 09 09 |ndow or |if......|
|00008100| 7d 0d 7b 09 09 74 68 65 | 20 74 65 78 74 20 69 73 |}.{..the| text is|
|00008110| 20 6e 6f 74 20 63 6f 6d | 70 69 6c 65 64 20 73 75 | not com|piled su|
|00008120| 63 63 65 73 73 66 75 6c | 6c 79 2e 09 09 09 09 09 |ccessful|ly......|
|00008130| 09 7d 0d 0d 0d 0d 0d 7b | 2a 2a 2a 2a 2a 2a 2a 2a |.}.....{|********|
|00008140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00008150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00008160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00008170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00008180| 2a 2a 2a 2a 2a 2a 09 09 | 09 09 09 09 7d 0d 7b 2a |******..|....}.{*|
|00008190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000081a0| 2a 2a 2a 2a 2a 2a 2a 2a | 20 64 72 61 77 69 6e 67 |********| drawing|
|000081b0| 20 61 6e 64 20 70 6c 6f | 74 74 69 6e 67 20 2a 2a | and plo|tting **|
|000081c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000081d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 09 09 09 |********|*****...|
|000081e0| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|000081f0| 65 20 4f 70 65 6e 43 75 | 72 76 65 20 28 63 75 72 |e OpenCu|rve (cur|
|00008200| 76 65 4e 61 6d 65 3a 20 | 53 74 72 32 35 35 29 3b |veName: |Str255);|
|00008210| 0d 0d 7b 09 09 53 74 61 | 72 74 73 20 61 20 6e 65 |..{..Sta|rts a ne|
|00008220| 77 20 66 75 6e 63 74 69 | 6f 6e 20 63 75 72 76 65 |w functi|on curve|
|00008230| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 69 6e 20 74 | definit|ion in t|
|00008240| 68 65 20 63 75 72 72 65 | 6e 74 20 67 72 61 70 68 |he curre|nt graph|
|00008250| 2e 20 41 66 74 65 72 20 | 74 68 69 73 20 63 61 6c |. After |this cal|
|00008260| 6c 2c 09 09 09 09 09 09 | 7d 0d 7b 09 09 61 6c 6c |l,......|}.{..all|
|00008270| 20 6d 6f 76 65 74 6f 2f | 6c 69 6e 65 74 6f 20 63 | moveto/|lineto c|
|00008280| 61 6c 6c 73 20 77 69 6c | 6c 20 67 65 6e 65 72 61 |alls wil|l genera|
|00008290| 74 65 20 6c 69 6e 65 73 | 20 69 6e 20 74 68 65 20 |te lines| in the |
|000082a0| 63 75 72 72 65 6e 74 20 | 67 72 61 70 68 2e 09 09 |current |graph...|
|000082b0| 09 09 09 09 7d 0d 7b 09 | 09 54 68 65 20 66 75 6e |....}.{.|.The fun|
|000082c0| 63 74 69 6f 6e 20 63 75 | 72 76 65 20 77 69 6c 6c |ction cu|rve will|
|000082d0| 20 75 73 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 | use the| current|
|000082e0| 20 73 74 79 6c 65 2f 63 | 6f 6c 6f 72 2c 20 73 65 | style/c|olor, se|
|000082f0| 74 20 62 79 20 53 65 74 | 4c 69 6e 65 53 74 79 6c |t by Set|LineStyl|
|00008300| 65 2f 53 65 74 4c 69 6e | 65 43 6f 6c 6f 72 09 09 |e/SetLin|eColor..|
|00008310| 09 09 09 09 7d 0d 7b 09 | 09 63 75 72 76 65 4e 61 |....}.{.|.curveNa|
|00008320| 6d 65 20 69 73 20 74 68 | 65 20 6e 61 6d 65 20 74 |me is th|e name t|
|00008330| 68 61 74 20 77 69 6c 6c | 20 61 70 70 65 61 72 20 |hat will| appear |
|00008340| 69 6e 20 74 68 65 20 6c | 65 67 65 6e 64 20 28 70 |in the l|egend (p|
|00008350| 61 73 63 61 6c 20 73 74 | 72 69 6e 67 29 2e 09 09 |ascal st|ring)...|
|00008360| 09 09 09 09 7d 0d 7b 09 | 09 43 61 6c 6c 20 43 6c |....}.{.|.Call Cl|
|00008370| 6f 73 65 43 75 72 76 65 | 20 6f 6e 63 65 20 79 6f |oseCurve| once yo|
|00008380| 75 20 61 72 65 20 66 69 | 6e 69 73 68 65 64 2e 09 |u are fi|nished..|
|00008390| 09 09 09 09 09 7d 0d 0d | 7b 09 09 54 68 69 73 20 |.....}..|{..This |
|000083a0| 66 75 6e 63 74 69 6f 6e | 20 72 65 70 6c 61 63 65 |function| replace|
|000083b0| 73 20 74 68 65 20 6f 62 | 73 6f 6c 65 74 65 20 22 |s the ob|solete "|
|000083c0| 4e 65 77 43 75 72 76 65 | 22 20 66 75 6e 63 74 69 |NewCurve|" functi|
|000083d0| 6f 6e 2c 20 75 73 65 64 | 20 69 6e 20 65 61 72 6c |on, used| in earl|
|000083e0| 69 65 72 20 76 65 72 73 | 69 6f 6e 73 09 09 09 09 |ier vers|ions....|
|000083f0| 09 09 7d 0d 7b 09 09 09 | 09 09 09 09 09 7d 0d 0d |..}.{...|.....}..|
|00008400| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 43 6c 6f 73 |..proced|ure Clos|
|00008410| 65 43 75 72 76 65 3b 0d | 0d 7b 09 09 4d 61 74 63 |eCurve;.|.{..Matc|
|00008420| 68 65 73 20 74 68 65 20 | 22 4f 70 65 6e 43 75 72 |hes the |"OpenCur|
|00008430| 76 65 22 20 63 61 6c 6c | 2e 20 53 74 6f 70 73 20 |ve" call|. Stops |
|00008440| 63 6f 6c 6c 65 63 74 69 | 6e 67 20 6d 6f 76 65 74 |collecti|ng movet|
|00008450| 6f 2f 6c 69 6e 65 74 6f | 20 63 61 6c 6c 73 09 09 |o/lineto| calls..|
|00008460| 09 09 09 09 7d 0d 7b 09 | 09 61 73 20 61 20 64 65 |....}.{.|.as a de|
|00008470| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 61 20 66 75 |finition| of a fu|
|00008480| 6e 63 74 69 6f 6e 20 63 | 75 72 76 65 20 69 6e 20 |nction c|urve in |
|00008490| 74 68 65 20 63 75 72 72 | 65 6e 74 20 67 72 61 70 |the curr|ent grap|
|000084a0| 68 2e 09 09 09 09 09 09 | 7d 0d 7b 09 09 43 61 6c |h.......|}.{..Cal|
|000084b0| 6c 20 6f 6e 63 65 20 79 | 6f 75 20 61 72 65 20 66 |l once y|ou are f|
|000084c0| 69 6e 69 73 68 65 64 20 | 64 65 66 69 6e 69 6e 67 |inished |defining|
|000084d0| 20 61 20 63 75 72 76 65 | 20 69 6e 20 74 68 65 20 | a curve| in the |
|000084e0| 63 75 72 72 65 6e 74 20 | 67 72 61 70 68 2e 09 09 |current |graph...|
|000084f0| 09 09 09 09 7d 0d 0d 0d | 0d 09 70 72 6f 63 65 64 |....}...|..proced|
|00008500| 75 72 65 20 4f 70 65 6e | 44 61 74 61 53 65 74 20 |ure Open|DataSet |
|00008510| 28 65 72 72 6f 72 73 3a | 20 69 6e 74 65 67 65 72 |(errors:| integer|
|00008520| 3b 20 63 6f 6e 6e 65 63 | 74 65 64 3a 20 42 6f 6f |; connec|ted: Boo|
|00008530| 6c 65 61 6e 3b 20 64 61 | 74 61 73 65 74 4e 61 6d |lean; da|tasetNam|
|00008540| 65 3a 20 53 74 72 32 35 | 35 29 3b 0d 0d 7b 09 09 |e: Str25|5);..{..|
|00008550| 53 74 61 72 74 73 20 61 | 20 6e 65 77 20 64 61 74 |Starts a| new dat|
|00008560| 61 20 73 65 74 20 64 65 | 66 69 6e 69 74 69 6f 6e |a set de|finition|
|00008570| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|00008580| 67 72 61 70 68 2e 20 41 | 66 74 65 72 20 74 68 69 |graph. A|fter thi|
|00008590| 73 20 63 61 6c 6c 2c 09 | 09 09 09 09 09 7d 0d 7b |s call,.|.....}.{|
|000085a0| 09 09 61 6c 6c 20 44 72 | 61 77 44 61 74 61 50 6f |..all Dr|awDataPo|
|000085b0| 69 6e 74 20 63 61 6c 6c | 73 20 77 69 6c 6c 20 67 |int call|s will g|
|000085c0| 65 6e 65 72 61 74 65 20 | 64 61 74 61 20 70 6f 69 |enerate |data poi|
|000085d0| 6e 74 73 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |nts in t|he curre|
|000085e0| 6e 74 20 67 72 61 70 68 | 2e 09 09 09 09 09 09 7d |nt graph|.......}|
|000085f0| 0d 7b 09 09 41 64 64 44 | 61 74 61 50 6f 69 6e 74 |.{..AddD|ataPoint|
|00008600| 20 69 73 20 61 6c 73 6f | 20 75 73 65 64 20 66 6f | is also| used fo|
|00008610| 72 20 74 68 65 20 73 61 | 6d 65 20 70 75 72 70 6f |r the sa|me purpo|
|00008620| 73 65 73 2c 20 69 66 20 | 79 6f 75 20 77 61 6e 74 |ses, if |you want|
|00008630| 20 74 6f 20 61 64 64 20 | 65 72 72 6f 72 09 09 09 | to add |error...|
|00008640| 09 09 09 7d 0d 7b 09 09 | 62 61 72 73 20 74 6f 20 |...}.{..|bars to |
|00008650| 74 68 65 20 64 61 74 61 | 20 70 6f 69 6e 74 2e 09 |the data| point..|
|00008660| 09 09 09 09 09 7d 0d 7b | 09 09 54 68 65 20 64 61 |.....}.{|..The da|
|00008670| 74 61 20 73 65 74 20 77 | 69 6c 6c 20 75 73 65 20 |ta set w|ill use |
|00008680| 74 68 65 20 63 75 72 72 | 65 6e 74 20 73 74 79 6c |the curr|ent styl|
|00008690| 65 2f 63 6f 6c 6f 72 2c | 20 73 65 74 20 62 79 20 |e/color,| set by |
|000086a0| 53 65 74 4c 69 6e 65 53 | 74 79 6c 65 2f 53 65 74 |SetLineS|tyle/Set|
|000086b0| 4c 69 6e 65 43 6f 6c 6f | 72 09 09 09 09 09 09 7d |LineColo|r......}|
|000086c0| 0d 7b 09 09 64 61 74 61 | 73 65 74 4e 61 6d 65 20 |.{..data|setName |
|000086d0| 69 73 20 74 68 65 20 6e | 61 6d 65 20 74 68 61 74 |is the n|ame that|
|000086e0| 20 77 69 6c 6c 20 61 70 | 70 65 61 72 20 69 6e 20 | will ap|pear in |
|000086f0| 74 68 65 20 6c 65 67 65 | 6e 64 2e 09 09 09 09 09 |the lege|nd......|
|00008700| 09 7d 0d 7b 09 09 43 61 | 6c 6c 20 43 6c 6f 73 65 |.}.{..Ca|ll Close|
|00008710| 44 61 74 61 53 65 74 20 | 6f 6e 63 65 20 79 6f 75 |DataSet |once you|
|00008720| 20 61 72 65 20 66 69 6e | 69 73 68 65 64 2e 09 09 | are fin|ished...|
|00008730| 09 09 09 09 7d 0d 7b 09 | 09 65 72 72 6f 72 73 3a |....}.{.|.errors:|
|00008740| 09 09 75 73 65 64 20 74 | 6f 20 73 70 65 63 69 66 |..used t|o specif|
|00008750| 79 20 69 66 20 74 68 65 | 20 6e 65 77 20 64 61 74 |y if the| new dat|
|00008760| 61 20 73 65 74 20 77 69 | 6c 6c 20 75 73 65 20 65 |a set wi|ll use e|
|00008770| 72 72 6f 72 20 62 61 72 | 73 20 6f 72 20 6e 6f 74 |rror bar|s or not|
|00008780| 2e 09 09 09 09 09 09 7d | 0d 7b 09 09 09 09 09 70 |.......}|.{.....p|
|00008790| 61 73 73 20 30 20 69 66 | 20 79 6f 75 20 64 6f 6e |ass 0 if| you don|
|000087a0| 27 74 20 70 6c 61 6e 20 | 74 6f 20 75 73 65 20 65 |'t plan |to use e|
|000087b0| 72 72 6f 72 20 62 61 72 | 73 2c 09 09 09 09 09 09 |rror bar|s,......|
|000087c0| 7d 0d 7b 09 09 09 09 09 | 70 61 73 73 20 61 20 73 |}.{.....|pass a s|
|000087d0| 75 6d 20 6f 66 20 65 42 | 61 72 59 2c 20 65 42 61 |um of eB|arY, eBa|
|000087e0| 72 58 2c 20 61 73 79 6d | 6d 45 42 61 72 59 2c 20 |rX, asym|mEBarY, |
|000087f0| 61 73 79 6d 6d 45 42 61 | 72 58 20 74 6f 20 73 70 |asymmEBa|rX to sp|
|00008800| 65 63 69 66 79 20 77 68 | 69 63 68 09 09 09 09 09 |ecify wh|ich.....|
|00008810| 09 7d 0d 7b 09 09 09 09 | 09 6b 69 6e 64 20 6f 66 |.}.{....|.kind of|
|00008820| 20 65 72 72 6f 72 20 62 | 61 72 73 20 79 6f 75 20 | error b|ars you |
|00008830| 77 69 6c 6c 20 75 73 65 | 2e 09 09 09 09 09 09 7d |will use|.......}|
|00008840| 0d 7b 09 09 63 6f 6e 6e | 65 63 74 3a 09 73 65 74 |.{..conn|ect:.set|
|00008850| 20 74 6f 20 74 72 75 65 | 20 69 66 20 79 6f 75 20 | to true| if you |
|00008860| 77 61 6e 74 20 61 20 6c | 69 6e 65 20 74 6f 20 63 |want a l|ine to c|
|00008870| 6f 6f 6e 6e 65 63 74 74 | 68 65 20 64 61 74 61 20 |oonnectt|he data |
|00008880| 70 6f 69 6e 74 73 2e 09 | 09 09 09 09 09 7d 0d 7b |points..|.....}.{|
|00008890| 09 09 09 09 09 09 09 09 | 7d 0d 7b 09 09 45 78 61 |........|}.{..Exa|
|000088a0| 6d 70 6c 65 09 09 09 09 | 09 09 7d 0d 7b 09 09 09 |mple....|..}.{...|
|000088b0| 22 65 42 61 72 59 2b 61 | 73 79 6d 6d 45 42 61 72 |"eBarY+a|symmEBar|
|000088c0| 58 22 20 74 65 6c 6c 73 | 20 70 72 6f 46 69 74 20 |X" tells| proFit |
|000088d0| 74 68 61 74 20 69 74 20 | 68 61 73 20 74 6f 20 61 |that it |has to a|
|000088e0| 6c 6c 6f 63 61 74 65 20 | 73 70 61 63 65 20 66 6f |llocate |space fo|
|000088f0| 72 09 09 09 09 09 09 7d | 0d 7b 09 09 09 68 6f 6c |r......}|.{...hol|
|00008900| 64 69 6e 67 20 74 68 65 | 20 76 61 6c 75 65 20 6f |ding the| value o|
|00008910| 66 20 74 68 65 20 79 20 | 65 72 72 6f 72 20 62 61 |f the y |error ba|
|00008920| 72 20 61 6e 64 20 74 68 | 65 20 74 77 6f 20 76 61 |r and th|e two va|
|00008930| 6c 75 65 73 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 |lues cor|respondi|
|00008940| 6e 67 09 09 09 09 09 09 | 7d 0d 7b 09 09 09 74 6f |ng......|}.{...to|
|00008950| 20 74 68 65 20 6c 65 66 | 74 20 61 6e 64 20 72 69 | the lef|t and ri|
|00008960| 67 68 74 20 70 61 72 74 | 20 6f 66 20 61 6e 20 78 |ght part| of an x|
|00008970| 20 65 72 72 6f 72 20 62 | 61 72 2e 09 09 09 09 09 | error b|ar......|
|00008980| 09 7d 0d 7b 09 09 09 57 | 68 65 6e 20 79 6f 75 20 |.}.{...W|hen you |
|00008990| 74 68 65 6e 20 63 61 6c | 6c 20 41 64 64 44 61 74 |then cal|l AddDat|
|000089a0| 61 50 6f 69 6e 74 2c 20 | 74 68 65 20 70 61 72 61 |aPoint, |the para|
|000089b0| 6d 65 74 65 72 73 20 79 | 45 72 72 2c 20 78 45 72 |meters y|Err, xEr|
|000089c0| 72 2c 20 61 6e 64 20 78 | 45 72 72 31 09 09 09 09 |r, and x|Err1....|
|000089d0| 09 09 7d 0d 7b 09 09 09 | 77 69 6c 6c 20 62 65 20 |..}.{...|will be |
|000089e0| 69 6e 74 65 72 70 72 65 | 74 65 64 20 62 79 20 70 |interpre|ted by p|
|000089f0| 72 6f 46 69 74 2e 09 09 | 09 09 09 09 7d 0d 7b 09 |roFit...|....}.{.|
|00008a00| 09 09 09 09 09 09 09 7d | 0d 7b 09 09 54 68 69 73 |.......}|.{..This|
|00008a10| 20 66 75 6e 63 74 69 6f | 6e 20 72 65 70 6c 61 63 | functio|n replac|
|00008a20| 65 73 20 74 68 65 20 6f | 62 73 6f 6c 65 74 65 20 |es the o|bsolete |
|00008a30| 22 4e 65 77 44 61 74 61 | 53 65 74 22 20 66 75 6e |"NewData|Set" fun|
|00008a40| 63 74 69 6f 6e 2c 20 75 | 73 65 64 20 69 6e 20 65 |ction, u|sed in e|
|00008a50| 61 72 6c 69 65 72 20 76 | 65 72 73 69 6f 6e 73 09 |arlier v|ersions.|
|00008a60| 09 09 09 09 09 7d 0d 0d | 0d 0d 0d 09 70 72 6f 63 |.....}..|....proc|
|00008a70| 65 64 75 72 65 20 43 6c | 6f 73 65 44 61 74 61 53 |edure Cl|oseDataS|
|00008a80| 65 74 3b 0d 0d 7b 09 09 | 4d 61 74 63 68 65 73 20 |et;..{..|Matches |
|00008a90| 74 68 65 20 22 4f 70 65 | 6e 44 61 74 61 53 65 74 |the "Ope|nDataSet|
|00008aa0| 22 20 63 61 6c 6c 2e 20 | 53 74 6f 70 73 20 63 6f |" call. |Stops co|
|00008ab0| 6c 6c 65 63 74 69 6e 67 | 20 41 64 64 44 61 74 61 |llecting| AddData|
|00008ac0| 50 6f 69 6e 74 2f 44 72 | 61 77 44 61 74 61 50 6f |Point/Dr|awDataPo|
|00008ad0| 69 6e 74 20 63 61 6c 6c | 73 09 09 09 09 09 09 7d |int call|s......}|
|00008ae0| 0d 7b 09 09 61 73 20 61 | 20 64 65 66 69 6e 69 74 |.{..as a| definit|
|00008af0| 69 6f 6e 20 6f 66 20 61 | 20 64 61 74 61 20 73 65 |ion of a| data se|
|00008b00| 74 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t in the| current|
|00008b10| 20 67 72 61 70 68 2e 09 | 09 09 09 09 09 7d 0d 0d | graph..|.....}..|
|00008b20| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 43 |..proced|ure SetC|
|00008b30| 75 72 76 65 46 69 6c 6c | 20 28 77 68 69 63 68 41 |urveFill| (whichA|
|00008b40| 78 69 73 3a 20 69 6e 74 | 65 67 65 72 3b 20 61 78 |xis: int|eger; ax|
|00008b50| 69 73 49 44 3a 20 69 6e | 74 65 67 65 72 29 3b 0d |isID: in|teger);.|
|00008b60| 0d 7b 09 09 73 77 69 74 | 63 68 65 73 20 6f 6e 20 |.{..swit|ches on |
|00008b70| 74 68 65 20 66 69 6c 6c | 69 6e 67 20 73 74 79 6c |the fill|ing styl|
|00008b80| 65 20 66 6f 72 20 63 75 | 72 76 65 73 20 74 68 61 |e for cu|rves tha|
|00008b90| 74 20 77 69 6c 6c 20 62 | 65 20 63 72 65 61 74 65 |t will b|e create|
|00008ba0| 64 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |d in the| current|
|00008bb0| 09 09 09 09 09 09 7d 0d | 7b 09 09 67 72 61 70 68 |......}.|{..graph|
|00008bc0| 20 75 73 69 6e 67 20 74 | 68 65 20 4f 70 65 6e 44 | using t|he OpenD|
|00008bd0| 61 74 61 53 65 74 20 61 | 6e 64 20 4f 70 65 6e 43 |ataSet a|nd OpenC|
|00008be0| 75 72 76 65 20 66 75 6e | 63 74 69 6f 6e 73 2e 09 |urve fun|ctions..|
|00008bf0| 09 09 09 09 09 7d 0d 7b | 09 09 74 68 65 20 70 61 |.....}.{|..the pa|
|00008c00| 72 61 6d 65 74 65 72 73 | 20 74 6f 20 74 68 69 73 |rameters| to this|
|00008c10| 20 72 6f 75 74 69 6e 65 | 20 73 70 65 63 69 66 79 | routine| specify|
|00008c20| 20 74 68 65 20 61 78 69 | 73 20 74 6f 77 61 72 64 | the axi|s toward|
|00008c30| 73 20 77 68 69 63 68 20 | 74 68 65 20 66 69 6c 6c |s which |the fill|
|00008c40| 69 6e 67 20 69 73 09 09 | 09 09 09 09 7d 0d 7b 09 |ing is..|....}.{.|
|00008c50| 09 61 70 70 6c 69 65 64 | 2e 20 75 73 65 20 61 78 |.applied|. use ax|
|00008c60| 69 73 49 44 3d 3d 30 20 | 74 6f 20 73 77 69 63 68 |isID==0 |to swich|
|00008c70| 20 6f 66 66 20 66 69 6c | 6c 69 6e 67 2e 09 09 09 | off fil|ling....|
|00008c80| 09 09 09 7d 0d 7b 09 09 | 53 70 65 63 69 66 79 20 |...}.{..|Specify |
|00008c90| 74 68 65 20 66 69 6c 6c | 69 6e 67 20 63 6f 6c 6f |the fill|ing colo|
|00008ca0| 72 20 75 73 69 6e 67 20 | 74 68 65 20 22 53 65 74 |r using |the "Set|
|00008cb0| 46 69 6c 6c 43 6f 6c 6f | 72 22 20 72 6f 75 74 69 |FillColo|r" routi|
|00008cc0| 6e 65 2e 09 09 09 09 09 | 09 7d 0d 0d 0d 09 70 72 |ne......|.}....pr|
|00008cd0| 6f 63 65 64 75 72 65 20 | 53 65 74 45 42 61 72 53 |ocedure |SetEBarS|
|00008ce0| 74 79 6c 65 20 28 63 61 | 70 6c 65 6e 67 74 68 2c |tyle (ca|plength,|
|00008cf0| 20 63 61 70 54 68 69 63 | 6b 2c 20 6c 69 6e 65 54 | capThic|k, lineT|
|00008d00| 68 69 63 6b 3a 20 65 78 | 74 65 6e 64 65 64 29 3b |hick: ex|tended);|
|00008d10| 0d 0d 7b 09 09 73 65 74 | 73 20 74 68 65 20 64 65 |..{..set|s the de|
|00008d20| 66 61 75 6c 74 20 65 72 | 72 6f 72 20 62 61 72 20 |fault er|ror bar |
|00008d30| 73 74 79 6c 65 20 75 73 | 65 64 20 66 6f 72 20 70 |style us|ed for p|
|00008d40| 72 6f 64 75 63 69 6e 67 | 20 65 72 72 6f 72 20 62 |roducing| error b|
|00008d50| 61 72 73 20 69 6e 20 74 | 68 65 20 6e 65 78 74 09 |ars in t|he next.|
|00008d60| 09 09 09 09 09 7d 0d 7b | 09 09 64 61 74 61 20 73 |.....}.{|..data s|
|00008d70| 65 74 20 63 72 65 61 74 | 65 64 20 69 6e 20 74 68 |et creat|ed in th|
|00008d80| 65 20 63 75 72 72 65 6e | 74 20 67 72 61 70 68 20 |e curren|t graph |
|00008d90| 75 73 69 6e 67 20 74 68 | 65 20 4f 70 65 6e 44 61 |using th|e OpenDa|
|00008da0| 74 61 53 65 74 20 63 61 | 6c 6c 09 09 09 09 09 09 |taSet ca|ll......|
|00008db0| 7d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 41 |}....pro|cedure A|
|00008dc0| 64 64 44 61 74 61 50 6f | 69 6e 74 20 28 78 2c 20 |ddDataPo|int (x, |
|00008dd0| 79 2c 20 78 45 72 72 2c | 20 79 45 72 72 2c 20 78 |y, xErr,| yErr, x|
|00008de0| 45 72 72 31 2c 20 79 45 | 72 72 31 3a 20 65 78 74 |Err1, yE|rr1: ext|
|00008df0| 65 6e 64 65 64 29 3b 0d | 0d 7b 09 09 41 64 64 73 |ended);.|.{..Adds|
|00008e00| 20 61 20 64 61 74 61 20 | 70 6f 69 6e 74 20 61 74 | a data |point at|
|00008e10| 20 74 68 65 20 67 69 76 | 65 6e 20 63 6f 6f 72 64 | the giv|en coord|
|00008e20| 69 6e 61 74 65 73 20 61 | 6e 64 20 77 69 74 68 20 |inates a|nd with |
|00008e30| 74 68 65 20 67 69 76 65 | 6e 20 65 72 72 6f 72 20 |the give|n error |
|00008e40| 74 6f 20 74 68 65 09 09 | 09 09 09 09 7d 0d 7b 09 |to the..|....}.{.|
|00008e50| 09 63 75 72 72 65 6e 74 | 20 64 61 74 61 20 73 65 |.current| data se|
|00008e60| 74 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t in the| current|
|00008e70| 20 67 72 61 70 68 2e 09 | 09 09 09 09 09 7d 0d 7b | graph..|.....}.{|
|00008e80| 09 09 54 68 65 20 65 72 | 72 6f 72 2d 70 61 72 61 |..The er|ror-para|
|00008e90| 6d 65 74 65 72 73 20 61 | 72 65 20 69 6e 74 65 72 |meters a|re inter|
|00008ea0| 70 72 65 74 65 64 20 69 | 6e 20 74 68 65 20 77 61 |preted i|n the wa|
|00008eb0| 79 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 73 |y specif|ied by s|
|00008ec0| 65 74 74 69 6e 67 20 74 | 68 65 09 09 09 09 09 09 |etting t|he......|
|00008ed0| 7d 0d 7b 09 09 22 65 72 | 72 6f 72 73 22 20 70 61 |}.{.."er|rors" pa|
|00008ee0| 72 61 6d 65 74 65 72 20 | 69 6e 20 74 68 65 20 4e |rameter |in the N|
|00008ef0| 65 77 44 61 74 61 53 65 | 74 20 63 61 6c 6c 2e 09 |ewDataSe|t call..|
|00008f00| 09 09 09 09 09 7d 0d 0d | 7b 09 09 49 66 20 79 6f |.....}..|{..If yo|
|00008f10| 75 20 64 6f 6e 27 74 20 | 75 73 65 20 65 72 72 6f |u don't |use erro|
|00008f20| 72 20 62 61 72 73 20 79 | 6f 75 20 63 61 6e 20 63 |r bars y|ou can c|
|00008f30| 61 6c 6c 20 74 68 65 20 | 22 44 72 61 77 44 61 74 |all the |"DrawDat|
|00008f40| 61 50 6f 69 6e 74 22 20 | 72 6f 75 74 69 6e 65 20 |aPoint" |routine |
|00008f50| 69 6e 73 74 65 61 64 20 | 6f 66 20 41 64 64 44 61 |instead |of AddDa|
|00008f60| 74 61 50 6f 69 6e 74 09 | 09 09 09 09 09 7d 0d 0d |taPoint.|.....}..|
|00008f70| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 47 72 4d 6f |..proced|ure GrMo|
|00008f80| 76 65 74 6f 20 28 78 2c | 20 79 3a 20 65 78 74 65 |veto (x,| y: exte|
|00008f90| 6e 64 65 64 29 3b 0d 0d | 7b 20 4d 6f 76 65 73 20 |nded);..|{ Moves |
|00008fa0| 74 68 65 20 70 65 6e 20 | 74 6f 20 70 6f 73 69 74 |the pen |to posit|
|00008fb0| 69 6f 6e 20 78 2c 79 20 | 6f 66 20 74 68 65 20 63 |ion x,y |of the c|
|00008fc0| 75 72 72 65 6e 74 20 67 | 72 61 70 68 20 77 69 74 |urrent g|raph wit|
|00008fd0| 68 6f 75 74 20 64 72 61 | 77 69 6e 67 20 61 6e 79 |hout dra|wing any|
|00008fe0| 74 68 69 6e 67 20 09 09 | 09 09 09 09 7d 0d 7b 20 |thing ..|....}.{ |
|00008ff0| 78 2c 79 20 61 72 65 20 | 69 6e 20 63 6f 6f 72 64 |x,y are |in coord|
|00009000| 69 6e 61 74 65 73 20 6f | 66 20 74 68 65 20 63 75 |inates o|f the cu|
|00009010| 72 72 65 6e 74 20 67 72 | 61 70 68 20 09 09 09 09 |rrent gr|aph ....|
|00009020| 09 09 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |..}...pr|ocedure |
|00009030| 47 72 4c 69 6e 65 74 6f | 20 28 78 2c 20 79 3a 20 |GrLineto| (x, y: |
|00009040| 65 78 74 65 6e 64 65 64 | 29 3b 0d 7b 20 44 72 61 |extended|);.{ Dra|
|00009050| 77 73 20 61 20 6c 69 6e | 65 20 62 65 74 77 65 65 |ws a lin|e betwee|
|00009060| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 70 65 |n the cu|rrent pe|
|00009070| 6e 20 70 6f 73 69 74 69 | 6f 6e 20 61 6e 64 20 70 |n positi|on and p|
|00009080| 6f 73 69 74 69 6f 6e 20 | 78 2c 79 20 6f 66 20 74 |osition |x,y of t|
|00009090| 68 65 20 63 75 72 72 65 | 6e 74 20 67 72 61 70 68 |he curre|nt graph|
|000090a0| 20 09 09 09 09 09 09 7d | 0d 7b 20 78 2c 79 20 61 | ......}|.{ x,y a|
|000090b0| 72 65 20 69 6e 20 63 6f | 6f 72 64 69 6e 61 74 65 |re in co|ordinate|
|000090c0| 73 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s of the| current|
|000090d0| 20 67 72 61 70 68 20 09 | 09 09 09 09 09 7d 0d 0d | graph .|.....}..|
|000090e0| 09 70 72 6f 63 65 64 75 | 72 65 20 47 72 4d 6f 76 |.procedu|re GrMov|
|000090f0| 65 20 28 78 2c 20 79 3a | 20 65 78 74 65 6e 64 65 |e (x, y:| extende|
|00009100| 64 29 3b 0d 09 7b 20 09 | 09 09 09 09 09 7d 0d 7b |d);..{ .|.....}.{|
|00009110| 09 09 61 64 64 20 78 2c | 20 79 20 74 6f 20 74 68 |..add x,| y to th|
|00009120| 65 20 63 75 72 72 65 6e | 74 20 70 6f 69 6e 74 2e |e curren|t point.|
|00009130| 09 09 09 09 09 09 7d 0d | 0d 0d 09 70 72 6f 63 65 |......}.|...proce|
|00009140| 64 75 72 65 20 47 72 4c | 69 6e 65 20 28 78 2c 20 |dure GrL|ine (x, |
|00009150| 79 3a 20 65 78 74 65 6e | 64 65 64 29 3b 0d 09 7b |y: exten|ded);..{|
|00009160| 20 09 09 09 09 09 09 7d | 0d 7b 09 09 61 64 64 20 | ......}|.{..add |
|00009170| 61 20 6c 69 6e 65 20 73 | 74 61 72 74 69 6e 67 20 |a line s|tarting |
|00009180| 66 72 6f 6d 20 63 75 72 | 72 65 6e 74 20 70 6f 69 |from cur|rent poi|
|00009190| 6e 74 09 09 09 09 09 09 | 7d 0d 0d 0d 0d 09 70 72 |nt......|}.....pr|
|000091a0| 6f 63 65 64 75 72 65 20 | 47 65 74 47 72 61 70 68 |ocedure |GetGraph|
|000091b0| 43 6f 6f 72 64 69 6e 61 | 74 65 73 20 28 76 61 72 |Coordina|tes (var|
|000091c0| 20 78 6d 69 6e 2c 20 78 | 6d 61 78 2c 20 79 6d 69 | xmin, x|max, ymi|
|000091d0| 6e 2c 20 79 6d 61 78 3a | 20 65 78 74 65 6e 64 65 |n, ymax:| extende|
|000091e0| 64 29 3b 0d 7b 20 52 65 | 74 75 72 6e 73 20 74 68 |d);.{ Re|turns th|
|000091f0| 65 20 6d 69 6e 69 6d 75 | 6d 20 61 6e 64 20 6d 61 |e minimu|m and ma|
|00009200| 78 69 6d 75 6d 20 78 2d | 20 61 6e 64 20 79 2d 63 |ximum x-| and y-c|
|00009210| 6f 6f 72 64 69 6e 61 74 | 65 73 20 6f 66 20 74 68 |oordinat|es of th|
|00009220| 65 20 63 75 72 72 65 6e | 74 20 67 72 61 70 68 20 |e curren|t graph |
|00009230| 69 6e 20 09 09 09 09 09 | 09 7d 0d 7b 20 74 68 65 |in .....|.}.{ the|
|00009240| 20 76 61 72 69 61 62 6c | 65 73 20 78 6d 69 6e 2c | variabl|es xmin,|
|00009250| 20 78 6d 61 78 2c 20 79 | 6d 69 6e 2c 20 61 6e 64 | xmax, y|min, and|
|00009260| 20 79 6d 61 78 20 09 09 | 09 09 09 09 7d 0d 0d 09 | ymax ..|....}...|
|00009270| 70 72 6f 63 65 64 75 72 | 65 20 43 72 65 61 74 65 |procedur|e Create|
|00009280| 4e 65 77 47 72 61 66 20 | 28 78 6d 69 6e 2c 20 78 |NewGraf |(xmin, x|
|00009290| 6d 61 78 2c 20 79 6d 69 | 6e 2c 20 79 6d 61 78 3a |max, ymi|n, ymax:|
|000092a0| 20 65 78 74 65 6e 64 65 | 64 3b 20 78 53 63 61 6c | extende|d; xScal|
|000092b0| 69 6e 67 2c 20 79 53 63 | 61 6c 69 6e 67 3a 20 69 |ing, ySc|aling: i|
|000092c0| 6e 74 65 67 65 72 29 3b | 0d 7b 20 63 72 65 61 74 |nteger);|.{ creat|
|000092d0| 65 73 20 61 20 6e 65 77 | 20 2c 20 65 6d 70 74 79 |es a new| , empty|
|000092e0| 20 67 72 61 66 20 77 69 | 74 68 20 74 68 65 20 67 | graf wi|th the g|
|000092f0| 69 76 65 6e 20 72 61 6e | 67 65 73 20 70 72 6f 64 |iven ran|ges prod|
|00009300| 75 63 65 73 20 61 20 72 | 75 6e 20 2d 20 74 69 6d |uces a r|un - tim|
|00009310| 65 20 65 72 72 6f 72 09 | 09 09 09 09 09 7d 0d 7b |e error.|.....}.{|
|00009320| 69 66 20 6e 6f 20 64 72 | 61 77 69 6e 67 20 77 69 |if no dr|awing wi|
|00009330| 6e 64 6f 77 20 69 73 20 | 61 76 61 69 6c 61 62 6c |ndow is |availabl|
|00009340| 65 20 6f 72 20 69 66 20 | 74 68 65 20 72 61 6e 67 |e or if |the rang|
|00009350| 65 73 20 61 72 65 20 69 | 6e 63 6f 6e 73 69 73 74 |es are i|nconsist|
|00009360| 65 6e 74 20 09 09 09 09 | 09 09 7d 0d 7b 09 78 53 |ent ....|..}.{.xS|
|00009370| 63 61 6c 69 6e 67 2f 79 | 53 63 61 6c 69 6e 67 20 |caling/y|Scaling |
|00009380| 09 3d 20 30 09 3a 20 6c | 69 6e 65 61 72 09 09 09 |.= 0.: l|inear...|
|00009390| 09 09 09 09 09 7d 0d 7b | 09 09 09 09 09 09 09 3d |.....}.{|.......=|
|000093a0| 20 31 09 3a 20 6c 6f 67 | 09 09 09 09 09 09 09 09 | 1.: log|........|
|000093b0| 7d 0d 7b 09 09 09 09 09 | 09 09 3d 20 32 09 3a 20 |}.{.....|..= 2.: |
|000093c0| 31 2f 78 09 09 09 09 09 | 09 09 09 7d 0d 7b 09 09 |1/x.....|...}.{..|
|000093d0| 09 09 09 09 09 3d 20 33 | 09 3a 20 70 72 6f 62 61 |.....= 3|.: proba|
|000093e0| 62 69 6c 69 74 79 09 09 | 09 09 09 09 09 09 7d 0d |bility..|......}.|
|000093f0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 4c |..proced|ure SetL|
|00009400| 69 6e 65 53 74 79 6c 65 | 20 28 74 68 69 63 6b 3a |ineStyle| (thick:|
|00009410| 20 65 78 74 65 6e 64 65 | 64 3b 20 64 61 73 68 3a | extende|d; dash:|
|00009420| 20 69 6e 74 65 67 65 72 | 29 3b 0d 0d 7b 09 09 53 | integer|);..{..S|
|00009430| 65 74 73 20 74 68 65 20 | 64 65 66 61 75 6c 74 20 |ets the |default |
|00009440| 6c 69 6e 65 20 73 74 79 | 6c 65 20 74 68 61 74 20 |line sty|le that |
|00009450| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 20 66 6f 72 |will be |used for|
|00009460| 20 64 72 61 77 69 6e 67 | 20 61 6e 64 20 70 6c 6f | drawing| and plo|
|00009470| 74 74 69 6e 67 2e 09 09 | 09 09 09 09 7d 0d 7b 09 |tting...|....}.{.|
|00009480| 09 74 68 69 63 6b 3a 09 | 74 68 65 20 74 68 69 63 |.thick:.|the thic|
|00009490| 6b 6e 65 73 73 20 6f 66 | 20 74 68 65 20 6c 69 6e |kness of| the lin|
|000094a0| 65 20 69 6e 20 70 6f 69 | 6e 74 73 2c 09 09 09 09 |e in poi|nts,....|
|000094b0| 09 09 7d 0d 7b 09 09 64 | 61 73 68 3a 09 74 68 65 |..}.{..d|ash:.the|
|000094c0| 20 64 61 73 68 20 70 61 | 74 74 65 72 6e 2c 20 67 | dash pa|ttern, g|
|000094d0| 69 76 65 6e 20 62 79 20 | 74 68 65 20 69 74 65 6d |iven by |the item|
|000094e0| 20 6e 75 6d 62 65 72 20 | 69 6e 20 74 68 65 20 64 | number |in the d|
|000094f0| 61 73 68 20 70 6f 70 75 | 70 20 6d 65 6e 75 09 09 |ash popu|p menu..|
|00009500| 09 09 09 09 7d 0d 0d 0d | 09 70 72 6f 63 65 64 75 |....}...|.procedu|
|00009510| 72 65 20 53 65 74 46 69 | 6c 6c 50 61 74 74 65 72 |re SetFi|llPatter|
|00009520| 6e 20 28 70 61 74 74 65 | 72 6e 3a 20 69 6e 74 65 |n (patte|rn: inte|
|00009530| 67 65 72 29 3b 0d 0d 7b | 09 09 53 65 74 73 20 74 |ger);..{|..Sets t|
|00009540| 68 65 20 64 65 66 61 75 | 6c 74 20 66 69 6c 6c 20 |he defau|lt fill |
|00009550| 70 61 74 74 65 72 6e 2e | 09 09 09 09 09 09 7d 0d |pattern.|......}.|
|00009560| 7b 09 09 70 61 74 74 65 | 72 6e 3a 09 74 68 65 20 |{..patte|rn:.the |
|00009570| 66 69 6c 6c 20 70 61 74 | 74 65 72 6e 2c 20 67 69 |fill pat|tern, gi|
|00009580| 76 65 6e 20 62 79 20 74 | 68 65 20 69 74 65 6d 20 |ven by t|he item |
|00009590| 6e 75 6d 62 65 72 20 69 | 6e 20 74 68 65 20 63 6f |number i|n the co|
|000095a0| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 70 6f 70 75 |rrespond|ing popu|
|000095b0| 70 20 6d 65 6e 75 09 09 | 09 09 09 09 7d 0d 0d 0d |p menu..|....}...|
|000095c0| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 41 72 |.procedu|re SetAr|
|000095d0| 72 6f 77 53 74 79 6c 65 | 20 28 61 72 72 6f 77 4c |rowStyle| (arrowL|
|000095e0| 6f 63 61 74 69 6f 6e 3a | 20 69 6e 74 65 67 65 72 |ocation:| integer|
|000095f0| 3b 20 73 74 79 6c 65 3a | 20 69 6e 74 65 67 65 72 |; style:| integer|
|00009600| 3b 20 73 69 7a 65 3a 20 | 65 78 74 65 6e 64 65 64 |; size: |extended|
|00009610| 29 3b 0d 0d 7b 09 09 53 | 65 74 73 20 74 68 65 20 |);..{..S|ets the |
|00009620| 64 65 66 61 75 6c 74 20 | 61 72 72 6f 77 20 73 74 |default |arrow st|
|00009630| 79 6c 65 2e 09 09 09 09 | 09 09 7d 0d 7b 09 09 59 |yle.....|..}.{..Y|
|00009640| 6f 75 20 63 61 6e 20 64 | 65 66 69 6e 65 20 64 69 |ou can d|efine di|
|00009650| 66 66 65 72 65 6e 74 20 | 61 72 72 6f 77 73 20 66 |fferent |arrows f|
|00009660| 6f 72 20 6c 69 6e 65 20 | 73 74 61 72 74 20 61 6e |or line |start an|
|00009670| 64 20 6c 69 6e 65 20 65 | 6e 64 2e 09 09 09 09 09 |d line e|nd......|
|00009680| 09 7d 0d 7b 09 09 61 72 | 72 6f 77 4c 6f 63 61 74 |.}.{..ar|rowLocat|
|00009690| 69 6f 6e 3a 09 31 3a 20 | 61 74 20 73 74 61 72 74 |ion:.1: |at start|
|000096a0| 2c 20 32 3a 20 61 74 20 | 65 6e 64 2c 20 33 3a 20 |, 2: at |end, 3: |
|000096b0| 62 6f 74 68 20 73 74 61 | 72 74 20 61 6e 64 20 65 |both sta|rt and e|
|000096c0| 6e 64 09 09 09 09 09 09 | 7d 0d 7b 09 09 73 74 79 |nd......|}.{..sty|
|000096d0| 6c 65 3a 09 09 09 30 3a | 20 6e 6f 20 61 72 72 6f |le:...0:| no arro|
|000096e0| 77 2c 20 31 2e 2e 31 32 | 3a 20 74 68 65 20 69 74 |w, 1..12|: the it|
|000096f0| 65 6d 20 6e 75 6d 62 65 | 72 20 69 6e 20 74 68 65 |em numbe|r in the|
|00009700| 20 61 72 72 6f 77 20 70 | 6f 70 75 70 20 6d 65 6e | arrow p|opup men|
|00009710| 75 2e 09 09 09 09 09 09 | 7d 0d 7b 09 09 73 69 7a |u.......|}.{..siz|
|00009720| 65 3a 09 09 09 74 68 65 | 20 73 69 7a 65 20 6f 66 |e:...the| size of|
|00009730| 20 74 68 65 20 61 72 72 | 6f 77 20 69 6e 20 70 6f | the arr|ow in po|
|00009740| 69 6e 74 73 2c 20 61 73 | 20 69 74 20 77 6f 75 6c |ints, as| it woul|
|00009750| 64 20 61 70 70 65 61 72 | 20 69 6e 20 74 68 65 20 |d appear| in the |
|00009760| 63 75 73 74 6f 6d 20 61 | 72 72 6f 77 20 64 69 61 |custom a|rrow dia|
|00009770| 6c 6f 67 20 62 6f 78 2e | 09 09 09 09 09 09 7d 0d |log box.|......}.|
|00009780| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 53 65 74 |...proce|dure Set|
|00009790| 54 65 78 74 53 74 79 6c | 65 20 28 66 6f 6e 74 4e |TextStyl|e (fontN|
|000097a0| 61 6d 65 3a 20 53 74 72 | 32 35 35 3b 20 73 69 7a |ame: Str|255; siz|
|000097b0| 65 3a 20 65 78 74 65 6e | 64 65 64 3b 20 73 74 79 |e: exten|ded; sty|
|000097c0| 6c 65 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 0d 7b |le: inte|ger);..{|
|000097d0| 09 09 53 65 74 73 20 74 | 68 65 20 64 65 66 61 75 |..Sets t|he defau|
|000097e0| 6c 74 20 74 65 78 74 20 | 73 74 79 6c 65 2e 09 09 |lt text |style...|
|000097f0| 09 09 09 09 7d 0d 7b 09 | 09 73 75 70 70 6c 79 20 |....}.{.|.supply |
|00009800| 61 20 66 6f 6e 74 20 6e | 61 6d 65 2c 20 69 74 73 |a font n|ame, its|
|00009810| 20 73 69 7a 65 2c 20 61 | 6e 64 20 73 74 79 6c 65 | size, a|nd style|
|00009820| 2e 09 09 09 09 09 09 7d | 0d 7b 09 09 73 69 7a 65 |.......}|.{..size|
|00009830| 20 61 6e 64 20 73 74 79 | 6c 65 20 61 72 65 20 74 | and sty|le are t|
|00009840| 68 65 20 73 61 6d 65 20 | 70 61 72 61 6d 65 74 65 |he same |paramete|
|00009850| 72 73 20 79 6f 75 20 63 | 61 6e 20 70 61 73 73 20 |rs you c|an pass |
|00009860| 74 6f 20 74 68 65 20 4d | 61 63 4f 53 20 72 6f 75 |to the M|acOS rou|
|00009870| 74 69 6e 65 73 20 22 54 | 65 78 74 53 69 7a 65 22 |tines "T|extSize"|
|00009880| 20 61 6e 64 20 22 54 65 | 78 74 46 61 63 65 22 09 | and "Te|xtFace".|
|00009890| 09 09 09 09 09 7d 0d 0d | 0d 09 70 72 6f 63 65 64 |.....}..|..proced|
|000098a0| 75 72 65 20 53 65 74 4e | 65 77 47 72 61 70 68 52 |ure SetN|ewGraphR|
|000098b0| 65 63 74 20 28 6c 65 66 | 74 2c 20 74 6f 70 2c 20 |ect (lef|t, top, |
|000098c0| 72 69 67 68 74 2c 20 62 | 6f 74 74 6f 6d 3a 20 65 |right, b|ottom: e|
|000098d0| 78 74 65 6e 64 65 64 29 | 3b 0d 0d 7b 09 09 53 65 |xtended)|;..{..Se|
|000098e0| 74 73 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 72 |ts the d|efault r|
|000098f0| 65 63 74 61 6e 67 6c 65 | 20 75 73 65 64 20 66 6f |ectangle| used fo|
|00009900| 72 20 63 72 65 61 74 69 | 6e 67 20 6e 65 77 20 67 |r creati|ng new g|
|00009910| 72 61 70 68 73 20 69 6e | 20 74 68 65 20 64 72 61 |raphs in| the dra|
|00009920| 77 69 6e 67 20 77 69 6e | 64 6f 77 2e 09 09 09 09 |wing win|dow.....|
|00009930| 09 09 7d 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |..}....p|rocedure|
|00009940| 20 53 65 74 44 61 74 61 | 50 6f 69 6e 74 53 74 79 | SetData|PointSty|
|00009950| 6c 65 20 28 73 74 79 6c | 65 3a 20 69 6e 74 65 67 |le (styl|e: integ|
|00009960| 65 72 3b 20 73 69 7a 65 | 3a 20 65 78 74 65 6e 64 |er; size|: extend|
|00009970| 65 64 3b 20 74 68 69 63 | 6b 6e 65 73 73 3a 20 65 |ed; thic|kness: e|
|00009980| 78 74 65 6e 64 65 64 29 | 3b 0d 0d 7b 09 09 53 65 |xtended)|;..{..Se|
|00009990| 74 73 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 64 |ts the d|efault d|
|000099a0| 61 74 61 20 70 6f 69 6e | 74 20 73 74 79 6c 65 2e |ata poin|t style.|
|000099b0| 09 09 09 09 09 09 7d 0d | 7b 09 09 73 74 79 6c 65 |......}.|{..style|
|000099c0| 20 67 69 76 65 73 20 74 | 68 65 20 69 74 65 6d 20 | gives t|he item |
|000099d0| 6e 75 6d 62 65 72 20 69 | 6e 20 74 68 65 20 64 61 |number i|n the da|
|000099e0| 74 61 20 70 6f 69 6e 74 | 73 20 70 6f 70 75 70 20 |ta point|s popup |
|000099f0| 6d 65 6e 75 09 09 09 09 | 09 09 7d 0d 7b 09 09 73 |menu....|..}.{..s|
|00009a00| 74 79 6c 65 3a 09 30 3a | 70 69 78 65 6c 2c 20 31 |tyle:.0:|pixel, 1|
|00009a10| 2d 31 33 3a 20 72 6f 77 | 20 6e 75 6d 62 65 72 20 |-13: row| number |
|00009a20| 69 6e 20 64 61 74 61 20 | 70 6f 6e 74 20 6d 65 6e |in data |pont men|
|00009a30| 75 2c 20 31 34 2d 31 37 | 3a 20 70 6f 69 6e 74 73 |u, 14-17|: points|
|00009a40| 20 69 6e 20 74 68 65 20 | 6c 61 73 74 20 72 6f 77 | in the |last row|
|00009a50| 2c 20 73 65 63 6f 6e 64 | 20 63 6f 6c 75 6d 6e 09 |, second| column.|
|00009a60| 09 09 09 09 09 7d 0d 7b | 09 09 09 09 2d 31 2e 2e |.....}.{|....-1..|
|00009a70| 2d 38 3a 20 74 68 65 20 | 38 20 63 75 73 74 6f 6d |-8: the |8 custom|
|00009a80| 20 70 6f 69 6e 74 73 20 | 69 6e 20 74 68 65 20 73 | points |in the s|
|00009a90| 65 70 61 72 61 74 65 20 | 73 65 63 74 69 6f 6e 09 |eparate |section.|
|00009aa0| 09 09 09 09 09 7d 0d 7b | 09 09 73 69 7a 65 3a 09 |.....}.{|..size:.|
|00009ab0| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |the size| of the |
|00009ac0| 70 6f 69 6e 74 20 69 6e | 20 70 6f 69 6e 74 73 2c |point in| points,|
|00009ad0| 20 73 61 6d 65 20 61 73 | 20 74 68 65 20 6f 6e 65 | same as| the one|
|00009ae0| 20 77 68 69 63 68 20 69 | 73 20 67 69 76 65 6e 20 | which i|s given |
|00009af0| 69 6e 20 74 68 65 20 63 | 75 73 74 6f 6d 20 64 61 |in the c|ustom da|
|00009b00| 74 61 20 70 6f 69 6e 74 | 20 73 79 6d 62 6f 6c 73 |ta point| symbols|
|00009b10| 20 64 69 61 6c 6f 67 20 | 62 6f 78 2e 09 09 09 09 | dialog |box.....|
|00009b20| 09 09 7d 0d 7b 09 09 74 | 68 69 63 6b 6e 65 73 73 |..}.{..t|hickness|
|00009b30| 3a 09 74 68 65 20 6c 69 | 6e 65 20 74 68 69 63 6b |:.the li|ne thick|
|00009b40| 6e 65 73 73 20 75 73 65 | 64 20 74 6f 20 64 72 61 |ness use|d to dra|
|00009b50| 77 20 65 6d 70 74 79 20 | 64 61 74 61 20 70 6f 69 |w empty |data poi|
|00009b60| 6e 74 20 73 79 6d 62 6f | 6c 73 2e 09 09 09 09 09 |nt symbo|ls......|
|00009b70| 09 7d 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |.}....pr|ocedure |
|00009b80| 53 65 74 42 47 44 61 74 | 61 50 6f 69 6e 74 53 74 |SetBGDat|aPointSt|
|00009b90| 79 6c 65 20 28 73 74 79 | 6c 65 3a 20 69 6e 74 65 |yle (sty|le: inte|
|00009ba0| 67 65 72 3b 20 73 69 7a | 65 3a 20 65 78 74 65 6e |ger; siz|e: exten|
|00009bb0| 64 65 64 29 3b 0d 0d 7b | 09 09 43 61 6e 20 62 65 |ded);..{|..Can be|
|00009bc0| 20 75 73 65 64 20 69 6e | 20 63 6f 6e 6a 75 6e 63 | used in| conjunc|
|00009bd0| 74 69 6f 6e 20 77 69 74 | 68 20 53 65 74 44 61 74 |tion wit|h SetDat|
|00009be0| 61 50 6f 69 6e 74 53 74 | 79 6c 65 20 74 6f 20 73 |aPointSt|yle to s|
|00009bf0| 65 74 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 64 |et the d|efault d|
|00009c00| 61 74 61 20 70 6f 6e 74 | 20 73 74 79 6c 65 2e 09 |ata pont| style..|
|00009c10| 09 09 09 09 09 7d 0d 7b | 09 09 53 75 62 73 74 69 |.....}.{|..Substi|
|00009c20| 74 75 74 65 73 20 74 68 | 65 20 62 61 63 6b 67 72 |tutes th|e backgr|
|00009c30| 6f 75 6e 64 20 73 79 6d | 62 6f 6c 20 6f 66 20 74 |ound sym|bol of t|
|00009c40| 68 65 20 63 75 72 72 65 | 6e 74 20 64 61 74 61 20 |he curre|nt data |
|00009c50| 70 6f 69 6e 74 20 73 74 | 79 6c 65 20 77 69 74 68 |point st|yle with|
|00009c60| 20 74 68 65 20 6f 6e 65 | 09 09 09 09 09 09 7d 0d | the one|......}.|
|00009c70| 7b 09 09 67 69 76 65 6e | 2e 09 09 09 09 09 09 7d |{..given|.......}|
|00009c80| 0d 7b 09 09 73 75 70 70 | 6c 79 20 61 20 66 6f 6e |.{..supp|ly a fon|
|00009c90| 74 20 6e 61 6d 65 2c 20 | 69 74 73 20 73 69 7a 65 |t name, |its size|
|00009ca0| 2c 20 61 6e 64 20 73 74 | 79 6c 65 2e 09 09 09 09 |, and st|yle.....|
|00009cb0| 09 09 7d 0d 7b 09 09 73 | 69 7a 65 20 61 6e 64 20 |..}.{..s|ize and |
|00009cc0| 73 74 79 6c 65 20 61 72 | 65 20 74 68 65 20 73 61 |style ar|e the sa|
|00009cd0| 6d 65 20 70 61 72 61 6d | 65 74 65 72 73 20 79 6f |me param|eters yo|
|00009ce0| 75 20 63 61 6e 20 70 61 | 73 73 20 74 6f 20 74 68 |u can pa|ss to th|
|00009cf0| 65 20 4d 61 63 4f 53 20 | 72 6f 75 74 69 6e 65 73 |e MacOS |routines|
|00009d00| 20 22 54 65 78 74 53 69 | 7a 65 22 20 61 6e 64 20 | "TextSi|ze" and |
|00009d10| 22 54 65 78 74 46 61 63 | 65 22 09 09 09 09 09 09 |"TextFac|e"......|
|00009d20| 7d 0d 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |}.....pr|ocedure |
|00009d30| 53 65 74 4c 69 6e 65 43 | 6f 6c 6f 72 20 28 72 65 |SetLineC|olor (re|
|00009d40| 64 2c 20 67 72 65 65 6e | 2c 20 62 6c 75 65 3a 20 |d, green|, blue: |
|00009d50| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 0d 7b 09 09 53 65 |longint)|;..{..Se|
|00009d60| 74 73 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 6c |ts the d|efault l|
|00009d70| 69 6e 65 20 63 6f 6c 6f | 72 2c 20 75 73 65 64 20 |ine colo|r, used |
|00009d80| 66 6f 72 20 6c 69 6e 65 | 73 20 61 6e 64 20 74 65 |for line|s and te|
|00009d90| 78 74 2e 09 09 09 09 09 | 09 7d 0d 7b 09 09 72 65 |xt......|.}.{..re|
|00009da0| 64 2c 20 67 72 65 65 6e | 2c 20 62 6c 75 65 20 67 |d, green|, blue g|
|00009db0| 69 76 65 20 74 68 65 20 | 52 47 42 20 76 61 6c 75 |ive the |RGB valu|
|00009dc0| 65 20 6f 66 20 74 68 65 | 20 63 6f 6c 6f 72 20 28 |e of the| color (|
|00009dd0| 30 3c 72 65 64 2c 67 72 | 65 65 6e 2c 62 6c 75 65 |0<red,gr|een,blue|
|00009de0| 3c 36 35 35 33 36 29 09 | 09 09 09 09 09 7d 0d 0d |<65536).|.....}..|
|00009df0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 46 |..proced|ure SetF|
|00009e00| 69 6c 6c 43 6f 6c 6f 72 | 20 28 72 65 64 2c 20 67 |illColor| (red, g|
|00009e10| 72 65 65 6e 2c 20 62 6c | 75 65 3a 20 6c 6f 6e 67 |reen, bl|ue: long|
|00009e20| 69 6e 74 29 3b 0d 0d 7b | 09 09 53 65 74 73 20 74 |int);..{|..Sets t|
|00009e30| 68 65 20 64 65 66 61 75 | 6c 74 20 66 69 6c 6c 20 |he defau|lt fill |
|00009e40| 63 6f 6c 6f 72 2c 20 75 | 73 65 64 20 74 6f 20 66 |color, u|sed to f|
|00009e50| 69 6c 6c 20 64 72 61 77 | 69 6e 67 20 73 68 61 70 |ill draw|ing shap|
|00009e60| 65 73 20 6f 72 20 66 6f | 72 20 63 75 72 76 65 73 |es or fo|r curves|
|00009e70| 20 69 6e 20 70 6c 6f 74 | 73 2e 09 09 09 09 09 09 | in plot|s.......|
|00009e80| 7d 0d 7b 09 09 72 65 64 | 2c 20 67 72 65 65 6e 2c |}.{..red|, green,|
|00009e90| 20 62 6c 75 65 20 67 69 | 76 65 20 74 68 65 20 52 | blue gi|ve the R|
|00009ea0| 47 42 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |GB value| of the |
|00009eb0| 63 6f 6c 6f 72 20 28 30 | 3c 72 65 64 2c 67 72 65 |color (0|<red,gre|
|00009ec0| 65 6e 2c 62 6c 75 65 3c | 36 35 35 33 36 29 09 09 |en,blue<|65536)..|
|00009ed0| 09 09 09 09 7d 0d 0d 0d | 09 70 72 6f 63 65 64 75 |....}...|.procedu|
|00009ee0| 72 65 20 44 72 61 77 52 | 65 63 74 20 28 6c 65 66 |re DrawR|ect (lef|
|00009ef0| 74 2c 20 74 6f 70 2c 20 | 72 69 67 68 74 2c 20 62 |t, top, |right, b|
|00009f00| 6f 74 74 6f 6d 3a 20 65 | 78 74 65 6e 64 65 64 29 |ottom: e|xtended)|
|00009f10| 3b 0d 0d 7b 09 09 43 72 | 65 61 74 65 73 20 61 20 |;..{..Cr|eates a |
|00009f20| 72 65 63 74 61 6e 67 6c | 65 20 77 69 74 68 20 74 |rectangl|e with t|
|00009f30| 68 65 20 67 69 76 65 6e | 20 63 6f 6f 72 64 69 6e |he given| coordin|
|00009f40| 61 74 65 73 20 69 6e 20 | 74 68 65 20 63 75 72 72 |ates in |the curr|
|00009f50| 65 6e 74 20 64 72 61 77 | 69 6e 67 20 77 69 6e 64 |ent draw|ing wind|
|00009f60| 6f 77 09 09 09 09 09 09 | 7d 0d 0d 0d 09 70 72 6f |ow......|}....pro|
|00009f70| 63 65 64 75 72 65 20 44 | 72 61 77 45 6c 6c 69 70 |cedure D|rawEllip|
|00009f80| 73 65 20 28 6c 65 66 74 | 2c 20 74 6f 70 2c 20 72 |se (left|, top, r|
|00009f90| 69 67 68 74 2c 20 62 6f | 74 74 6f 6d 3a 20 65 78 |ight, bo|ttom: ex|
|00009fa0| 74 65 6e 64 65 64 29 3b | 0d 0d 7b 09 09 43 72 65 |tended);|..{..Cre|
|00009fb0| 61 74 65 73 20 61 6e 20 | 65 6c 6c 69 70 73 65 20 |ates an |ellipse |
|00009fc0| 77 69 74 68 20 74 68 65 | 20 67 69 76 65 6e 20 63 |with the| given c|
|00009fd0| 6f 6f 72 64 69 6e 61 74 | 65 73 20 69 6e 20 74 68 |oordinat|es in th|
|00009fe0| 65 20 63 75 72 72 65 6e | 74 20 64 72 61 77 69 6e |e curren|t drawin|
|00009ff0| 67 20 77 69 6e 64 6f 77 | 09 09 09 09 09 09 7d 0d |g window|......}.|
|0000a000| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 44 72 61 |...proce|dure Dra|
|0000a010| 77 4c 69 6e 65 20 28 73 | 74 61 72 74 5f 68 2c 20 |wLine (s|tart_h, |
|0000a020| 73 74 61 72 74 5f 76 2c | 20 65 6e 64 5f 68 2c 20 |start_v,| end_h, |
|0000a030| 65 6e 64 5f 76 3a 20 65 | 78 74 65 6e 64 65 64 29 |end_v: e|xtended)|
|0000a040| 3b 0d 0d 7b 09 09 43 72 | 65 61 74 65 73 20 61 20 |;..{..Cr|eates a |
|0000a050| 6c 69 6e 65 20 77 69 74 | 68 20 74 68 65 20 67 69 |line wit|h the gi|
|0000a060| 76 65 6e 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |ven coor|dinates |
|0000a070| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |in the c|urrent d|
|0000a080| 72 61 77 69 6e 67 20 77 | 69 6e 64 6f 77 09 09 09 |rawing w|indow...|
|0000a090| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|0000a0a0| 65 20 44 72 61 77 54 65 | 78 74 4c 69 6e 65 20 28 |e DrawTe|xtLine (|
|0000a0b0| 74 68 65 53 74 72 69 6e | 67 3a 20 53 74 72 32 35 |theStrin|g: Str25|
|0000a0c0| 35 3b 20 74 68 65 41 6e | 67 6c 65 3a 20 65 78 74 |5; theAn|gle: ext|
|0000a0d0| 65 6e 64 65 64 3b 20 64 | 6f 63 65 6e 74 65 72 3a |ended; d|ocenter:|
|0000a0e0| 20 42 6f 6f 6c 65 61 6e | 29 3b 0d 0d 7b 09 09 43 | Boolean|);..{..C|
|0000a0f0| 72 65 61 74 65 73 20 61 | 20 74 65 78 74 2d 6c 61 |reates a| text-la|
|0000a100| 62 65 6c 20 61 74 20 74 | 68 65 20 67 69 76 65 6e |bel at t|he given|
|0000a110| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 20 69 6e 20 | coordin|ates in |
|0000a120| 74 68 65 20 63 75 72 72 | 65 6e 74 20 64 72 61 77 |the curr|ent draw|
|0000a130| 69 6e 67 20 77 69 6e 64 | 6f 77 09 09 09 09 09 09 |ing wind|ow......|
|0000a140| 7d 0d 7b 09 09 77 69 74 | 68 20 74 68 65 20 67 69 |}.{..wit|h the gi|
|0000a150| 76 65 6e 20 72 6f 74 61 | 74 69 6f 6e 20 61 6e 67 |ven rota|tion ang|
|0000a160| 6c 65 2e 09 09 09 09 09 | 09 7d 0d 7b 09 09 72 6f |le......|.}.{..ro|
|0000a170| 74 61 74 69 6f 6e 20 69 | 73 20 61 72 6f 75 6e 64 |tation i|s around|
|0000a180| 20 63 65 6e 74 65 72 20 | 69 66 20 64 6f 63 65 6e | center |if docen|
|0000a190| 74 65 72 20 69 73 20 74 | 72 75 65 2e 09 09 09 09 |ter is t|rue.....|
|0000a1a0| 09 09 7d 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |..}....p|rocedure|
|0000a1b0| 20 44 72 61 77 4e 75 6d | 62 65 72 20 28 74 68 65 | DrawNum|ber (the|
|0000a1c0| 4e 75 6d 3a 20 65 78 74 | 65 6e 64 65 64 3b 20 64 |Num: ext|ended; d|
|0000a1d0| 65 63 73 3a 20 69 6e 74 | 65 67 65 72 3b 20 74 68 |ecs: int|eger; th|
|0000a1e0| 65 41 6e 67 6c 65 3a 20 | 65 78 74 65 6e 64 65 64 |eAngle: |extended|
|0000a1f0| 3b 20 64 6f 63 65 6e 74 | 65 72 3a 20 42 6f 6f 6c |; docent|er: Bool|
|0000a200| 65 61 6e 29 3b 0d 0d 7b | 09 09 43 6f 6e 76 65 72 |ean);..{|..Conver|
|0000a210| 74 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 69 6e |ts the n|umber in|
|0000a220| 74 6f 20 61 20 74 65 78 | 74 20 77 69 74 68 20 74 |to a tex|t with t|
|0000a230| 68 65 20 67 69 76 65 6e | 20 6e 75 6d 62 65 72 20 |he given| number |
|0000a240| 6f 66 20 64 65 63 69 6d | 61 6c 73 3b 20 61 6e 64 |of decim|als; and|
|0000a250| 09 09 09 09 09 09 7d 0d | 7b 09 09 63 72 65 61 74 |......}.|{..creat|
|0000a260| 65 73 20 61 20 74 65 78 | 74 2d 6c 61 62 65 6c 20 |es a tex|t-label |
|0000a270| 61 74 20 74 68 65 20 67 | 69 76 65 6e 20 63 6f 6f |at the g|iven coo|
|0000a280| 72 64 69 6e 61 74 65 73 | 20 69 6e 20 74 68 65 20 |rdinates| in the |
|0000a290| 63 75 72 72 65 6e 74 20 | 64 72 61 77 69 6e 67 20 |current |drawing |
|0000a2a0| 77 69 6e 64 6f 77 3b 09 | 09 09 09 09 09 7d 0d 7b |window;.|.....}.{|
|0000a2b0| 09 09 77 69 74 68 20 74 | 68 65 20 67 69 76 65 6e |..with t|he given|
|0000a2c0| 20 72 6f 74 61 74 69 6f | 6e 20 61 6e 67 6c 65 2e | rotatio|n angle.|
|0000a2d0| 09 09 09 09 09 09 7d 0d | 7b 09 09 72 6f 74 61 74 |......}.|{..rotat|
|0000a2e0| 69 6f 6e 20 69 73 20 61 | 72 6f 75 6e 64 20 63 65 |ion is a|round ce|
|0000a2f0| 6e 74 65 72 20 69 66 20 | 64 6f 63 65 6e 74 65 72 |nter if |docenter|
|0000a300| 20 69 73 20 74 72 75 65 | 2e 09 09 09 09 09 09 7d | is true|.......}|
|0000a310| 0d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 44 72 |....proc|edure Dr|
|0000a320| 61 77 44 61 74 61 50 6f | 69 6e 74 20 28 78 2c 20 |awDataPo|int (x, |
|0000a330| 79 3a 20 65 78 74 65 6e | 64 65 64 29 3b 0d 0d 7b |y: exten|ded);..{|
|0000a340| 09 09 44 72 61 77 73 20 | 61 20 64 61 74 61 20 70 |..Draws |a data p|
|0000a350| 6f 69 6e 74 20 73 79 6d | 62 6f 6c 20 61 74 20 74 |oint sym|bol at t|
|0000a360| 68 65 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 20 67 |he coord|inates g|
|0000a370| 69 76 65 6e 2c 20 75 73 | 69 6e 67 20 74 68 65 20 |iven, us|ing the |
|0000a380| 63 75 72 72 65 6e 74 20 | 09 09 09 7d 0d 7b 09 09 |current |...}.{..|
|0000a390| 64 61 74 61 20 70 6f 69 | 6e 74 20 73 74 79 6c 65 |data poi|nt style|
|0000a3a0| 2e 09 09 09 7d 0d 7b 09 | 09 69 66 20 4f 70 65 6e |....}.{.|.if Open|
|0000a3b0| 44 61 74 61 53 65 74 20 | 77 61 73 20 63 61 6c 6c |DataSet |was call|
|0000a3c0| 65 64 2c 20 74 68 65 6e | 20 69 74 20 63 72 65 61 |ed, then| it crea|
|0000a3d0| 74 65 73 20 61 20 64 61 | 74 61 20 70 6f 69 6e 74 |tes a da|ta point|
|0000a3e0| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|0000a3f0| 70 6c 6f 74 2c 09 09 09 | 7d 0d 7b 09 09 61 64 64 |plot,...|}.{..add|
|0000a400| 69 6e 67 20 69 74 20 74 | 6f 20 74 68 65 20 63 75 |ing it t|o the cu|
|0000a410| 72 72 65 6e 74 20 64 61 | 74 61 20 73 65 74 2e 09 |rrent da|ta set..|
|0000a420| 09 09 7d 0d 7b 09 09 09 | 09 7d 0d 0d 09 70 72 6f |..}.{...|.}...pro|
|0000a430| 63 65 64 75 72 65 20 44 | 72 61 77 50 49 43 54 20 |cedure D|rawPICT |
|0000a440| 28 6c 65 66 74 2c 20 74 | 6f 70 2c 20 72 69 67 68 |(left, t|op, righ|
|0000a450| 74 2c 20 62 6f 74 74 6f | 6d 3a 20 65 78 74 65 6e |t, botto|m: exten|
|0000a460| 64 65 64 3b 20 74 68 65 | 50 69 63 74 3a 20 50 69 |ded; the|Pict: Pi|
|0000a470| 63 48 61 6e 64 6c 65 29 | 3b 0d 0d 7b 09 09 43 72 |cHandle)|;..{..Cr|
|0000a480| 65 61 74 65 73 20 61 20 | 6e 65 77 20 70 69 63 74 |eates a |new pict|
|0000a490| 75 72 65 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ure in t|he curre|
|0000a4a0| 6e 74 20 64 72 61 77 69 | 6e 67 20 77 69 6e 64 6f |nt drawi|ng windo|
|0000a4b0| 77 20 75 73 69 6e 67 20 | 74 68 65 20 09 09 09 7d |w using |the ...}|
|0000a4c0| 0d 7b 09 09 4d 61 63 4f | 53 20 50 69 63 48 61 6e |.{..MacO|S PicHan|
|0000a4d0| 64 6c 65 20 22 74 68 65 | 50 69 63 74 22 2e 09 09 |dle "the|Pict"...|
|0000a4e0| 09 09 09 09 7d 0d 7b 09 | 09 4f 6e 63 65 20 79 6f |....}.{.|.Once yo|
|0000a4f0| 75 20 63 61 6c 6c 20 74 | 68 69 73 20 72 6f 75 74 |u call t|his rout|
|0000a500| 69 6e 65 2c 20 74 68 65 | 20 68 61 6e 64 6c 65 20 |ine, the| handle |
|0000a510| 74 68 65 50 69 63 74 20 | 42 45 43 4f 4d 45 53 20 |thePict |BECOMES |
|0000a520| 50 52 4f 50 45 52 54 59 | 20 09 09 7d 0d 7b 09 09 |PROPERTY| ..}.{..|
|0000a530| 6f 66 20 70 72 6f 20 46 | 69 74 20 d1 20 44 4f 20 |of pro F|it . DO |
|0000a540| 4e 4f 54 20 44 49 53 50 | 4f 53 45 20 49 54 21 09 |NOT DISP|OSE IT!.|
|0000a550| 09 09 09 09 09 7d 0d 7b | 09 09 6c 65 66 74 20 61 |.....}.{|..left a|
|0000a560| 6e 64 20 74 6f 70 20 67 | 69 76 65 20 74 68 65 20 |nd top g|ive the |
|0000a570| 63 6f 6f 72 64 69 6e 61 | 74 65 73 20 6f 66 20 74 |coordina|tes of t|
|0000a580| 68 65 20 70 69 63 74 75 | 72 65 2e 09 09 09 7d 0d |he pictu|re....}.|
|0000a590| 7b 09 09 72 69 67 68 74 | 20 61 6e 64 20 62 6f 74 |{..right| and bot|
|0000a5a0| 74 6f 6d 20 61 72 65 20 | 75 73 65 64 20 74 6f 20 |tom are |used to |
|0000a5b0| 64 65 66 69 6e 65 20 74 | 68 65 20 73 69 7a 65 20 |define t|he size |
|0000a5c0| 6f 66 20 74 68 65 20 70 | 69 63 74 75 72 65 20 69 |of the p|icture i|
|0000a5d0| 66 20 74 68 65 79 20 61 | 72 65 20 6c 61 72 67 65 |f they a|re large|
|0000a5e0| 72 09 09 09 7d 0d 7b 09 | 09 74 68 61 6e 20 6c 65 |r...}.{.|.than le|
|0000a5f0| 66 74 20 61 6e 64 20 74 | 6f 70 2c 20 72 65 73 70 |ft and t|op, resp|
|0000a600| 65 63 74 69 76 65 6c 79 | 2e 09 09 09 7d 0d 7b 09 |ectively|....}.{.|
|0000a610| 09 4f 74 68 65 72 77 69 | 73 65 20 74 68 65 20 73 |.Otherwi|se the s|
|0000a620| 69 7a 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ize info|rmation |
|0000a630| 63 6f 6e 74 61 69 6e 64 | 20 69 6e 20 74 68 65 20 |containd| in the |
|0000a640| 50 69 63 48 61 6e 64 6c | 65 20 70 61 73 73 65 64 |PicHandl|e passed|
|0000a650| 20 79 6f 75 20 70 61 73 | 73 20 69 73 20 75 73 65 | you pas|s is use|
|0000a660| 64 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |d....}.{|....}...|
|0000a670| 70 72 6f 63 65 64 75 72 | 65 20 47 65 74 4c 61 73 |procedur|e GetLas|
|0000a680| 74 43 6c 69 63 6b 65 64 | 43 6f 6f 72 64 69 6e 61 |tClicked|Coordina|
|0000a690| 74 65 73 20 28 76 61 72 | 20 78 2c 20 79 3a 20 65 |tes (var| x, y: e|
|0000a6a0| 78 74 65 6e 64 65 64 29 | 3b 0d 0d 7b 09 09 72 65 |xtended)|;..{..re|
|0000a6b0| 74 75 72 6e 73 20 74 68 | 65 20 73 63 72 65 65 6e |turns th|e screen|
|0000a6c0| 2d 63 6f 6f 72 64 69 6e | 61 74 65 73 20 74 68 61 |-coordin|ates tha|
|0000a6d0| 74 20 77 65 72 65 20 6c | 61 73 74 20 63 6c 69 63 |t were l|ast clic|
|0000a6e0| 6b 65 64 20 62 79 20 74 | 68 65 20 75 73 65 72 09 |ked by t|he user.|
|0000a6f0| 09 09 7d 0d 7b 09 09 09 | 09 7d 0d 0d 0d 09 70 72 |..}.{...|.}....pr|
|0000a700| 6f 63 65 64 75 72 65 20 | 44 69 73 61 62 6c 65 44 |ocedure |DisableD|
|0000a710| 72 61 77 69 6e 67 55 70 | 64 61 74 65 73 3b 0d 0d |rawingUp|dates;..|
|0000a720| 7b 09 09 49 6e 68 69 62 | 69 74 73 20 75 70 64 61 |{..Inhib|its upda|
|0000a730| 74 65 73 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |tes in t|he curre|
|0000a740| 6e 74 20 64 72 61 77 69 | 6e 67 20 77 69 6e 64 6f |nt drawi|ng windo|
|0000a750| 77 20 75 6e 74 69 6c 20 | 79 6f 75 72 20 70 72 6f |w until |your pro|
|0000a760| 67 72 61 6d 20 69 73 20 | 66 69 6e 69 73 68 65 64 |gram is |finished|
|0000a770| 2e 09 09 09 7d 0d 7b 09 | 09 43 61 6c 6c 20 74 68 |....}.{.|.Call th|
|0000a780| 69 73 20 69 66 20 79 6f | 75 20 61 72 65 20 64 72 |is if yo|u are dr|
|0000a790| 61 77 69 6e 67 20 6c 6f | 74 73 20 6f 66 20 73 74 |awing lo|ts of st|
|0000a7a0| 75 66 66 20 61 6e 64 20 | 79 6f 75 20 77 61 6e 74 |uff and |you want|
|0000a7b0| 20 74 6f 20 64 6f 20 69 | 74 20 61 73 20 66 61 73 | to do i|t as fas|
|0000a7c0| 74 20 61 73 09 09 09 7d | 0d 7b 09 09 70 6f 73 73 |t as...}|.{..poss|
|0000a7d0| 69 62 6c 65 2e 09 09 09 | 7d 0d 7b 09 09 09 09 7d |ible....|}.{....}|
|0000a7e0| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 4f 70 65 |...proce|dure Ope|
|0000a7f0| 6e 50 6f 6c 79 67 6f 6e | 20 28 73 6d 6f 6f 74 68 |nPolygon| (smooth|
|0000a800| 69 6e 67 3a 20 69 6e 74 | 65 67 65 72 3b 20 6b 69 |ing: int|eger; ki|
|0000a810| 6e 64 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 0d 7b |nd: inte|ger);..{|
|0000a820| 09 09 4f 70 65 6e 73 20 | 61 20 6e 65 77 20 70 6f |..Opens |a new po|
|0000a830| 6c 79 67 6f 6e 20 64 65 | 66 69 6e 69 74 69 6f 6e |lygon de|finition|
|0000a840| 2c 20 77 68 69 63 68 20 | 63 61 6e 20 74 68 65 6e |, which |can then|
|0000a850| 20 62 65 20 64 65 66 69 | 6e 65 64 20 62 79 20 6d | be defi|ned by m|
|0000a860| 6f 76 65 74 6f 2f 6c 69 | 6e 65 74 6f 20 63 61 6c |oveto/li|neto cal|
|0000a870| 6c 73 2e 09 09 09 7d 0d | 7b 09 09 73 6d 6f 6f 74 |ls....}.|{..smoot|
|0000a880| 68 69 6e 67 3a 09 67 69 | 76 65 73 20 74 68 65 20 |hing:.gi|ves the |
|0000a890| 6b 69 6e 64 20 6f 66 20 | 73 6d 6f 6f 74 68 69 6e |kind of |smoothin|
|0000a8a0| 67 20 77 68 69 63 68 20 | 69 73 20 61 70 70 6c 69 |g which |is appli|
|0000a8b0| 65 64 20 74 6f 20 74 68 | 65 20 70 6f 6c 79 67 6f |ed to th|e polygo|
|0000a8c0| 6e 2c 20 75 73 65 09 09 | 09 7d 0d 7b 09 09 09 09 |n, use..|.}.{....|
|0000a8d0| 09 30 20 66 6f 72 20 6e | 6f 20 73 6d 6f 6f 74 68 |.0 for n|o smooth|
|0000a8e0| 69 6e 67 2e 09 09 09 7d | 0d 7b 09 09 6b 69 6e 64 |ing....}|.{..kind|
|0000a8f0| 3a 09 09 30 20 66 6f 72 | 20 61 20 6e 6f 72 6d 61 |:..0 for| a norma|
|0000a900| 6c 20 70 6f 6c 79 67 6f | 6e 2c 20 31 20 66 6f 72 |l polygo|n, 1 for|
|0000a910| 20 61 20 63 6c 6f 73 65 | 64 20 70 6f 6c 79 67 6f | a close|d polygo|
|0000a920| 6e 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |n....}.{|....}...|
|0000a930| 70 72 6f 63 65 64 75 72 | 65 20 43 6c 6f 73 65 50 |procedur|e CloseP|
|0000a940| 6f 6c 79 67 6f 6e 3b 0d | 0d 7b 09 09 53 74 6f 70 |olygon;.|.{..Stop|
|0000a950| 73 20 63 6f 6c 6c 65 63 | 74 69 6e 67 20 64 61 74 |s collec|ting dat|
|0000a960| 61 20 66 6f 72 20 61 20 | 70 6f 6c 79 67 6f 6e 20 |a for a |polygon |
|0000a970| 64 65 66 69 6e 69 74 69 | 6f 6e 2c 20 61 6e 64 20 |definiti|on, and |
|0000a980| 63 72 65 61 74 65 73 20 | 74 68 65 20 72 65 73 75 |creates |the resu|
|0000a990| 6c 74 69 6e 67 09 09 09 | 7d 0d 7b 09 09 70 6f 6c |lting...|}.{..pol|
|0000a9a0| 79 6f 6e 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |yon in t|he curre|
|0000a9b0| 6e 74 20 64 72 61 77 69 | 6e 67 20 77 69 6e 64 6f |nt drawi|ng windo|
|0000a9c0| 77 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 0d |w....}.{|....}...|
|0000a9d0| 09 70 72 6f 63 65 64 75 | 72 65 20 47 72 6f 75 70 |.procedu|re Group|
|0000a9e0| 42 65 67 69 6e 3b 0d 09 | 70 72 6f 63 65 64 75 72 |Begin;..|procedur|
|0000a9f0| 65 20 47 72 6f 75 70 45 | 6e 64 3b 0d 0d 7b 09 09 |e GroupE|nd;..{..|
|0000aa00| 53 74 61 72 74 73 2f 65 | 6e 64 73 20 74 68 65 20 |Starts/e|nds the |
|0000aa10| 64 65 66 69 6e 69 74 69 | 6f 6e 20 6f 66 20 61 20 |definiti|on of a |
|0000aa20| 67 72 6f 75 70 2e 20 41 | 6c 6c 20 64 72 61 77 69 |group. A|ll drawi|
|0000aa30| 6e 67 20 74 61 6b 69 6e | 67 20 70 6c 61 63 65 20 |ng takin|g place |
|0000aa40| 61 66 74 65 72 20 74 68 | 69 73 20 63 61 6c 6c 09 |after th|is call.|
|0000aa50| 09 09 7d 0d 7b 09 09 77 | 69 6c 6c 20 62 65 20 70 |..}.{..w|ill be p|
|0000aa60| 61 72 74 20 6f 66 20 61 | 20 67 72 6f 75 70 2e 20 |art of a| group. |
|0000aa70| 09 09 09 7d 0d 7b 09 09 | 43 61 6c 6c 20 47 72 6f |...}.{..|Call Gro|
|0000aa80| 75 70 45 6e 64 20 77 68 | 65 6e 20 79 6f 75 20 61 |upEnd wh|en you a|
|0000aa90| 72 65 20 66 69 6e 69 73 | 68 65 64 20 77 69 74 68 |re finis|hed with|
|0000aaa0| 20 74 68 65 20 64 72 61 | 77 69 6e 67 20 74 68 61 | the dra|wing tha|
|0000aab0| 74 20 62 65 6c 6f 6e 67 | 73 20 74 6f 20 74 68 69 |t belong|s to thi|
|0000aac0| 73 20 67 72 6f 75 70 2e | 09 09 09 7d 0d 7b 09 09 |s group.|...}.{..|
|0000aad0| 09 09 7d 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |..}....p|rocedure|
|0000aae0| 20 53 65 74 43 75 72 72 | 65 6e 74 47 72 61 70 68 | SetCurr|entGraph|
|0000aaf0| 20 28 67 72 61 70 68 49 | 44 3a 20 6c 6f 6e 67 69 | (graphI|D: longi|
|0000ab00| 6e 74 29 3b 0d 0d 7b 09 | 09 53 65 74 73 20 74 68 |nt);..{.|.Sets th|
|0000ab10| 65 20 63 75 72 72 65 6e | 74 20 67 72 61 70 68 2c |e curren|t graph,|
|0000ab20| 20 74 68 61 74 20 69 73 | 20 74 68 65 20 67 72 61 | that is| the gra|
|0000ab30| 70 68 20 74 68 61 74 20 | 77 69 6c 6c 20 62 65 20 |ph that |will be |
|0000ab40| 75 73 65 64 20 66 6f 72 | 20 61 6c 6c 20 6e 65 77 |used for| all new|
|0000ab50| 6c 79 09 09 09 7d 0d 7b | 09 09 63 72 65 61 74 65 |ly...}.{|..create|
|0000ab60| 64 20 66 75 6e 63 74 69 | 6f 6e 2d 63 75 72 76 65 |d functi|on-curve|
|0000ab70| 73 20 61 6e 64 20 64 61 | 74 61 2d 73 65 74 73 2c |s and da|ta-sets,|
|0000ab80| 20 61 6e 64 20 62 79 20 | 61 6c 6c 20 72 6f 75 74 | and by |all rout|
|0000ab90| 69 6e 65 73 20 74 68 61 | 74 20 61 63 63 65 73 73 |ines tha|t access|
|0000aba0| 20 74 68 65 09 09 09 7d | 0d 7b 09 09 63 75 72 72 | the...}|.{..curr|
|0000abb0| 65 6e 74 20 67 72 61 70 | 68 20 69 6e 20 67 65 6e |ent grap|h in gen|
|0000abc0| 65 72 61 6c 2c 20 73 75 | 63 68 20 61 73 20 74 68 |eral, su|ch as th|
|0000abd0| 65 20 61 78 65 73 2d 65 | 64 69 74 69 6e 67 20 72 |e axes-e|diting r|
|0000abe0| 6f 75 74 69 6e 65 73 2e | 09 09 09 7d 0d 7b 09 09 |outines.|...}.{..|
|0000abf0| 67 72 61 70 68 49 44 20 | 69 73 20 74 68 65 20 67 |graphID |is the g|
|0000ac00| 72 61 70 68 27 73 20 69 | 64 65 6e 74 69 66 69 63 |raph's i|dentific|
|0000ac10| 61 74 69 6f 69 6e 20 6e | 75 6d 62 65 72 2c 20 77 |atioin n|umber, w|
|0000ac20| 68 69 63 68 20 63 61 6e | 20 62 65 20 66 6f 75 6e |hich can| be foun|
|0000ac30| 64 20 69 6d 6d 65 64 69 | 61 74 65 6c 79 09 09 09 |d immedi|ately...|
|0000ac40| 7d 0d 7b 09 09 61 66 74 | 65 72 20 61 20 67 72 61 |}.{..aft|er a gra|
|0000ac50| 70 68 20 69 73 20 63 72 | 65 61 74 65 64 20 62 79 |ph is cr|eated by|
|0000ac60| 20 75 73 69 6e 67 20 74 | 68 65 20 72 6f 75 74 69 | using t|he routi|
|0000ac70| 6e 65 20 47 65 74 43 75 | 72 72 65 6e 74 47 72 61 |ne GetCu|rrentGra|
|0000ac80| 70 68 2e 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |ph....}.|{....}..|
|0000ac90| 09 66 75 6e 63 74 69 6f | 6e 20 47 65 74 43 75 72 |.functio|n GetCur|
|0000aca0| 72 65 6e 74 47 72 61 70 | 68 3a 20 6c 6f 6e 67 69 |rentGrap|h: longi|
|0000acb0| 6e 74 3b 0d 09 7b 09 09 | 09 09 7d 0d 7b 09 09 72 |nt;..{..|..}.{..r|
|0000acc0| 65 74 75 72 6e 73 20 74 | 68 65 20 67 72 61 70 68 |eturns t|he graph|
|0000acd0| 20 69 64 65 6e 74 69 66 | 69 63 61 74 69 6f 6e 20 | identif|ication |
|0000ace0| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 65 20 63 75 |number o|f the cu|
|0000acf0| 72 72 65 6e 74 20 67 72 | 61 70 68 2e 09 09 09 7d |rrent gr|aph....}|
|0000ad00| 0d 7b 09 09 09 09 7d 0d | 0d 0d 09 66 75 6e 63 74 |.{....}.|...funct|
|0000ad10| 69 6f 6e 20 47 65 74 4e | 65 78 74 47 72 61 70 68 |ion GetN|extGraph|
|0000ad20| 20 28 67 72 61 70 68 49 | 44 3a 20 6c 6f 6e 67 69 | (graphI|D: longi|
|0000ad30| 6e 74 29 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 0d 7b |nt): lon|gint;..{|
|0000ad40| 09 09 72 65 74 75 72 6e | 73 20 74 68 65 20 69 64 |..return|s the id|
|0000ad50| 65 6e 74 69 66 69 63 61 | 74 69 6f 6e 20 6e 75 6d |entifica|tion num|
|0000ad60| 62 65 72 20 6f 66 20 74 | 68 65 20 67 72 61 70 68 |ber of t|he graph|
|0000ad70| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 74 68 65 20 67 | followi|ng the g|
|0000ad80| 69 76 65 6e 20 6f 6e 65 | 20 69 6e 09 09 09 7d 0d |iven one| in...}.|
|0000ad90| 7b 09 09 70 72 6f 20 46 | 69 74 27 73 20 70 72 69 |{..pro F|it's pri|
|0000ada0| 76 61 74 65 20 6c 69 73 | 74 20 6f 66 20 65 78 69 |vate lis|t of exi|
|0000adb0| 73 74 69 6e 67 20 67 72 | 61 70 68 73 2e 20 54 68 |sting gr|aphs. Th|
|0000adc0| 65 20 6f 72 64 65 72 20 | 69 6e 20 74 68 69 73 20 |e order |in this |
|0000add0| 6c 69 73 74 20 69 73 20 | 6e 6f 74 09 09 09 7d 0d |list is |not...}.|
|0000ade0| 7b 09 09 64 65 66 69 6e | 65 64 20 61 6e 64 20 64 |{..defin|ed and d|
|0000adf0| 65 70 65 6e 64 73 20 6f | 6e 20 74 68 65 20 6f 72 |epends o|n the or|
|0000ae00| 64 65 72 20 6f 66 20 74 | 68 65 20 77 69 6e 64 6f |der of t|he windo|
|0000ae10| 77 73 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |ws conta|ining th|
|0000ae20| 65 20 67 72 61 70 68 73 | 2e 09 09 09 7d 0d 7b 09 |e graphs|....}.{.|
|0000ae30| 09 75 73 65 20 67 72 61 | 70 68 49 44 3d 30 20 74 |.use gra|phID=0 t|
|0000ae40| 6f 20 67 65 74 20 74 68 | 65 20 49 44 20 6f 66 20 |o get th|e ID of |
|0000ae50| 74 68 65 20 66 69 72 73 | 74 20 67 72 61 70 68 2e |the firs|t graph.|
|0000ae60| 09 09 09 7d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |...}.{..|returns |
|0000ae70| 30 20 69 66 20 67 72 61 | 70 68 49 44 20 69 64 65 |0 if gra|phID ide|
|0000ae80| 6e 74 69 66 69 65 73 20 | 74 68 65 20 6c 61 73 74 |ntifies |the last|
|0000ae90| 20 67 72 61 70 68 2c 20 | 6f 72 20 69 66 20 67 72 | graph, |or if gr|
|0000aea0| 61 70 68 49 44 21 3d 30 | 20 61 6e 64 20 6e 6f 20 |aphID!=0| and no |
|0000aeb0| 67 72 61 70 68 20 09 09 | 09 7d 0d 7b 09 09 77 69 |graph ..|.}.{..wi|
|0000aec0| 74 68 20 74 68 69 73 20 | 69 64 65 6e 74 69 66 69 |th this |identifi|
|0000aed0| 63 61 74 69 6f 6e 20 6e | 75 6d 62 65 72 20 65 78 |cation n|umber ex|
|0000aee0| 69 73 74 73 2e 09 09 09 | 7d 0d 7b 09 09 09 09 7d |ists....|}.{....}|
|0000aef0| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 47 65 74 |...proce|dure Get|
|0000af00| 47 72 61 70 68 46 72 61 | 6d 65 20 28 76 61 72 20 |GraphFra|me (var |
|0000af10| 6c 65 66 74 2c 20 74 6f | 70 2c 20 72 69 67 68 74 |left, to|p, right|
|0000af20| 2c 20 62 6f 74 74 6f 6d | 3a 20 65 78 74 65 6e 64 |, bottom|: extend|
|0000af30| 65 64 29 3b 0d 0d 7b 09 | 09 72 65 74 75 72 6e 73 |ed);..{.|.returns|
|0000af40| 20 74 68 65 20 63 6f 6f | 72 64 69 6e 61 74 65 73 | the coo|rdinates|
|0000af50| 20 6f 66 20 74 68 65 20 | 66 72 61 6d 65 20 6f 66 | of the |frame of|
|0000af60| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 67 72 61 | the cur|rent gra|
|0000af70| 70 68 2e 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |ph....}.|{....}..|
|0000af80| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 47 72 |.procedu|re SetGr|
|0000af90| 61 70 68 46 72 61 6d 65 | 20 28 6c 65 66 74 2c 20 |aphFrame| (left, |
|0000afa0| 74 6f 70 2c 20 72 69 67 | 68 74 2c 20 62 6f 74 74 |top, rig|ht, bott|
|0000afb0| 6f 6d 3a 20 65 78 74 65 | 6e 64 65 64 29 3b 0d 0d |om: exte|nded);..|
|0000afc0| 7b 09 09 63 68 61 6e 67 | 65 73 20 74 68 65 20 66 |{..chang|es the f|
|0000afd0| 72 61 6d 65 20 6f 66 20 | 74 68 65 20 63 75 72 72 |rame of |the curr|
|0000afe0| 65 6e 74 20 67 72 61 70 | 68 61 20 74 6f 20 6d 61 |ent grap|ha to ma|
|0000aff0| 74 63 68 20 74 68 65 20 | 67 69 76 65 6e 20 63 6f |tch the |given co|
|0000b000| 6f 72 64 69 6e 61 74 65 | 73 2e 09 09 09 7d 0d 7b |ordinate|s....}.{|
|0000b010| 09 09 09 09 7d 0d 0d 0d | 0d 09 66 75 6e 63 74 69 |....}...|..functi|
|0000b020| 6f 6e 20 47 65 74 43 75 | 72 72 65 6e 74 41 78 69 |on GetCu|rrentAxi|
|0000b030| 73 20 28 77 68 69 63 68 | 41 78 69 73 3a 20 69 6e |s (which|Axis: in|
|0000b040| 74 65 67 65 72 29 3a 20 | 69 6e 74 65 67 65 72 3b |teger): |integer;|
|0000b050| 0d 0d 7b 09 09 72 65 74 | 75 72 6e 73 20 74 68 65 |..{..ret|urns the|
|0000b060| 20 6e 75 6d 62 65 72 20 | 6f 66 20 74 68 65 20 63 | number |of the c|
|0000b070| 75 72 72 65 6e 74 20 78 | 20 6f 72 20 79 20 61 78 |urrent x| or y ax|
|0000b080| 69 73 2e 09 09 09 7d 0d | 7b 09 09 77 68 69 63 68 |is....}.|{..which|
|0000b090| 41 78 69 73 20 69 73 20 | 65 69 74 68 65 72 20 78 |Axis is |either x|
|0000b0a0| 41 78 69 73 20 28 3d 3d | 30 29 20 6f 72 20 79 41 |Axis (==|0) or yA|
|0000b0b0| 78 69 73 20 28 3d 3d 31 | 29 2e 09 09 09 7d 0d 7b |xis (==1|)....}.{|
|0000b0c0| 09 09 09 09 7d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |....}...|procedur|
|0000b0d0| 65 20 53 65 74 43 75 72 | 72 65 6e 74 41 78 69 73 |e SetCur|rentAxis|
|0000b0e0| 20 28 77 68 69 63 68 41 | 78 69 73 3a 20 69 6e 74 | (whichA|xis: int|
|0000b0f0| 65 67 65 72 3b 20 61 78 | 69 73 49 44 3a 20 69 6e |eger; ax|isID: in|
|0000b100| 74 65 67 65 72 29 3b 0d | 0d 7b 09 09 73 65 74 73 |teger);.|.{..sets|
|0000b110| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 61 78 69 | the cur|rent axi|
|0000b120| 73 20 74 68 61 74 20 77 | 69 6c 6c 20 62 65 20 75 |s that w|ill be u|
|0000b130| 73 65 64 20 66 6f 72 20 | 74 68 65 20 6e 65 78 74 |sed for |the next|
|0000b140| 20 64 61 74 61 20 73 65 | 74 20 6f 72 20 63 75 72 | data se|t or cur|
|0000b150| 76 65 2c 20 61 6e 64 09 | 09 09 7d 0d 7b 09 09 66 |ve, and.|..}.{..f|
|0000b160| 6f 72 20 61 6c 6c 20 61 | 78 69 73 2d 65 64 69 74 |or all a|xis-edit|
|0000b170| 69 6e 67 20 63 61 6c 6c | 73 2c 20 73 75 63 68 20 |ing call|s, such |
|0000b180| 61 73 20 53 65 74 52 61 | 6e 67 65 2c 20 53 65 74 |as SetRa|nge, Set|
|0000b190| 41 78 69 73 50 6f 73 69 | 74 69 6f 6e 2c 20 65 74 |AxisPosi|tion, et|
|0000b1a0| 63 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |c....}.{|....}...|
|0000b1b0| 70 72 6f 63 65 64 75 72 | 65 20 44 65 6c 65 74 65 |procedur|e Delete|
|0000b1c0| 41 78 69 73 20 28 77 68 | 69 63 68 41 78 69 73 3a |Axis (wh|ichAxis:|
|0000b1d0| 20 69 6e 74 65 67 65 72 | 3b 20 61 78 69 73 49 44 | integer|; axisID|
|0000b1e0| 3a 20 69 6e 74 65 67 65 | 72 29 3b 0d 0d 7b 09 09 |: intege|r);..{..|
|0000b1f0| 64 65 6c 65 74 65 73 20 | 74 68 65 20 67 69 76 65 |deletes |the give|
|0000b200| 6e 20 61 78 69 73 20 69 | 6e 20 74 68 65 20 63 75 |n axis i|n the cu|
|0000b210| 72 72 65 6e 74 20 67 72 | 61 70 68 2e 09 09 09 7d |rrent gr|aph....}|
|0000b220| 0d 7b 09 09 09 09 7d 0d | 0d 09 70 72 6f 63 65 64 |.{....}.|..proced|
|0000b230| 75 72 65 20 4d 61 6b 65 | 4e 65 77 41 78 69 73 20 |ure Make|NewAxis |
|0000b240| 28 77 68 69 63 68 41 78 | 69 73 3a 20 69 6e 74 65 |(whichAx|is: inte|
|0000b250| 67 65 72 3b 20 6d 69 6e | 2c 20 6d 61 78 3a 20 65 |ger; min|, max: e|
|0000b260| 78 74 65 6e 64 65 64 3b | 20 73 63 61 6c 69 6e 67 |xtended;| scaling|
|0000b270| 3a 20 69 6e 74 65 67 65 | 72 3b 20 70 6f 73 69 74 |: intege|r; posit|
|0000b280| 69 6f 6e 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |ion: ext|ended);.|
|0000b290| 0d 7b 09 09 63 72 65 61 | 74 65 73 20 61 20 6e 65 |.{..crea|tes a ne|
|0000b2a0| 77 20 61 78 69 73 20 77 | 69 74 68 20 74 68 65 20 |w axis w|ith the |
|0000b2b0| 67 69 76 65 6e 20 72 61 | 6e 67 65 20 61 6e 64 20 |given ra|nge and |
|0000b2c0| 73 63 61 6c 69 6e 67 20 | 69 6e 20 74 68 65 20 63 |scaling |in the c|
|0000b2d0| 75 72 72 65 6e 74 20 67 | 72 61 70 68 2e 09 09 09 |urrent g|raph....|
|0000b2e0| 7d 0d 7b 09 09 70 6f 73 | 69 74 69 6f 6e 20 67 69 |}.{..pos|ition gi|
|0000b2f0| 76 65 73 20 74 68 65 20 | 70 6f 73 69 74 69 6f 6e |ves the |position|
|0000b300| 20 6f 66 20 74 68 65 20 | 6e 65 77 20 61 78 69 73 | of the |new axis|
|0000b310| 20 69 6e 20 74 68 65 20 | 63 6f 6f 72 64 69 6e 61 | in the |coordina|
|0000b320| 74 65 20 73 79 73 74 65 | 6d 20 6f 66 20 74 68 65 |te syste|m of the|
|0000b330| 09 09 09 7d 0d 7b 09 09 | 4d 41 49 4e 20 41 58 49 |...}.{..|MAIN AXI|
|0000b340| 53 20 70 65 72 70 65 6e | 64 69 63 75 6c 61 72 20 |S perpen|dicular |
|0000b350| 74 6f 20 69 74 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |to it...|.}.{....|
|0000b360| 7d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |}...proc|edure Se|
|0000b370| 74 52 61 6e 67 65 20 28 | 77 68 69 63 68 41 78 69 |tRange (|whichAxi|
|0000b380| 73 3a 20 69 6e 74 65 67 | 65 72 3b 20 6d 69 6e 2c |s: integ|er; min,|
|0000b390| 20 6d 61 78 3a 20 65 78 | 74 65 6e 64 65 64 3b 20 | max: ex|tended; |
|0000b3a0| 73 63 61 6c 69 6e 67 3a | 20 69 6e 74 65 67 65 72 |scaling:| integer|
|0000b3b0| 29 3b 0d 0d 7b 09 09 43 | 68 61 6e 67 65 73 20 74 |);..{..C|hanges t|
|0000b3c0| 68 65 20 72 61 6e 67 65 | 20 61 6e 64 20 73 63 61 |he range| and sca|
|0000b3d0| 6c 69 6e 67 20 6f 66 20 | 74 68 65 20 63 75 72 72 |ling of |the curr|
|0000b3e0| 65 6e 74 20 61 78 69 73 | 20 74 6f 20 74 68 65 20 |ent axis| to the |
|0000b3f0| 73 70 65 63 69 66 69 65 | 64 20 6f 6e 65 2e 09 09 |specifie|d one...|
|0000b400| 09 7d 0d 7b 09 09 28 74 | 68 65 20 63 75 72 72 65 |.}.{..(t|he curre|
|0000b410| 6e 74 20 61 78 69 73 20 | 63 61 6e 20 62 65 20 73 |nt axis |can be s|
|0000b420| 65 74 20 77 69 74 68 20 | 74 68 65 20 53 65 74 43 |et with |the SetC|
|0000b430| 75 72 72 65 6e 74 41 78 | 69 73 20 72 6f 75 74 69 |urrentAx|is routi|
|0000b440| 6e 65 29 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |ne)...}.|{....}..|
|0000b450| 09 70 72 6f 63 65 64 75 | 72 65 20 4d 61 6b 65 54 |.procedu|re MakeT|
|0000b460| 69 63 6b 73 20 28 77 68 | 69 63 68 41 78 69 73 3a |icks (wh|ichAxis:|
|0000b470| 20 69 6e 74 65 67 65 72 | 3b 20 66 69 72 73 74 4d | integer|; firstM|
|0000b480| 61 6a 2c 20 64 69 73 74 | 61 6e 63 65 3a 20 65 78 |aj, dist|ance: ex|
|0000b490| 74 65 6e 64 65 64 3b 20 | 6e 72 4d 69 6e 54 69 63 |tended; |nrMinTic|
|0000b4a0| 6b 73 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 0d 7b |ks: inte|ger);..{|
|0000b4b0| 09 09 4c 65 74 73 20 74 | 68 65 20 63 75 72 72 65 |..Lets t|he curre|
|0000b4c0| 6e 74 20 61 78 69 73 20 | 72 65 63 61 6c 63 75 6c |nt axis |recalcul|
|0000b4d0| 61 74 65 20 69 74 73 20 | 74 69 63 6b 73 2c 20 62 |ate its |ticks, b|
|0000b4e0| 61 73 65 64 20 6f 6e 20 | 74 68 65 20 6e 65 77 20 |ased on |the new |
|0000b4f0| 70 6f 73 69 74 69 6f 6e | 09 09 09 7d 0d 7b 09 09 |position|...}.{..|
|0000b500| 6f 66 20 74 68 65 20 66 | 69 72 73 74 20 6d 61 6a |of the f|irst maj|
|0000b510| 6f 72 20 74 69 63 6b 2c | 20 74 69 63 6b 20 64 69 |or tick,| tick di|
|0000b520| 73 74 61 6e 63 65 2c 20 | 61 6e 64 20 6e 75 6d 62 |stance, |and numb|
|0000b530| 65 72 20 6f 66 20 6d 69 | 6e 6f 72 20 74 69 63 6b |er of mi|nor tick|
|0000b540| 73 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |s....}.{|....}...|
|0000b550| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 4c 61 62 |procedur|e SetLab|
|0000b560| 65 6c 73 46 6f 72 6d 61 | 74 20 28 77 68 69 63 68 |elsForma|t (which|
|0000b570| 41 78 69 73 3a 20 69 6e | 74 65 67 65 72 3b 20 66 |Axis: in|teger; f|
|0000b580| 6f 72 6d 61 74 3a 20 69 | 6e 74 65 67 65 72 3b 20 |ormat: i|nteger; |
|0000b590| 64 65 63 69 6d 61 6c 73 | 3a 20 69 6e 74 65 67 65 |decimals|: intege|
|0000b5a0| 72 29 3b 0d 0d 7b 09 09 | 43 68 61 6e 67 65 73 20 |r);..{..|Changes |
|0000b5b0| 74 68 65 20 66 6f 72 6d | 61 74 20 6f 66 20 74 68 |the form|at of th|
|0000b5c0| 65 20 74 69 63 6b 20 6c | 61 62 65 6c 73 20 6f 66 |e tick l|abels of|
|0000b5d0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 61 78 69 | the cur|rent axi|
|0000b5e0| 73 2e 09 09 09 7d 0d 7b | 09 09 66 6f 72 6d 61 74 |s....}.{|..format|
|0000b5f0| 3a 09 09 2d 31 3a 20 61 | 75 74 6f 2c 20 30 3a 20 |:..-1: a|uto, 0: |
|0000b600| 64 65 63 69 6d 61 6c 2c | 20 31 3a 20 61 75 74 6f |decimal,| 1: auto|
|0000b610| 20 65 78 70 6f 6e 65 6e | 74 2e 09 09 09 7d 0d 7b | exponen|t....}.{|
|0000b620| 09 09 09 09 09 61 6e 79 | 20 6f 74 68 65 72 20 6e |.....any| other n|
|0000b630| 75 6d 62 65 72 20 67 69 | 76 65 73 20 74 68 65 20 |umber gi|ves the |
|0000b640| 66 69 78 65 64 20 65 78 | 70 6f 6e 65 6e 74 09 09 |fixed ex|ponent..|
|0000b650| 09 7d 0d 7b 09 09 64 65 | 63 69 6d 61 6c 73 3a 09 |.}.{..de|cimals:.|
|0000b660| 6e 75 6d 62 65 72 20 6f | 66 20 64 69 67 69 74 73 |number o|f digits|
|0000b670| 20 61 66 74 65 72 20 74 | 68 65 20 64 65 63 69 6d | after t|he decim|
|0000b680| 61 6c 20 70 6f 69 6e 74 | 2e 09 09 09 7d 0d 7b 09 |al point|....}.{.|
|0000b690| 09 09 09 7d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |...}...p|rocedure|
|0000b6a0| 20 43 6c 65 61 72 4c 61 | 62 65 6c 73 20 28 77 68 | ClearLa|bels (wh|
|0000b6b0| 69 63 68 41 78 69 73 3a | 20 69 6e 74 65 67 65 72 |ichAxis:| integer|
|0000b6c0| 29 3b 0d 0d 7b 09 09 43 | 6c 65 61 72 73 20 74 68 |);..{..C|lears th|
|0000b6d0| 65 20 74 65 78 74 20 63 | 6f 6e 74 61 69 6e 65 64 |e text c|ontained|
|0000b6e0| 20 69 6e 20 61 6c 6c 20 | 6c 61 62 65 6c 73 20 6f | in all |labels o|
|0000b6f0| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 61 78 |f the cu|rrent ax|
|0000b700| 69 73 2e 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |is....}.|{....}..|
|0000b710| 09 70 72 6f 63 65 64 75 | 72 65 20 43 6c 65 61 72 |.procedu|re Clear|
|0000b720| 54 69 63 6b 73 20 28 77 | 68 69 63 68 41 78 69 73 |Ticks (w|hichAxis|
|0000b730| 3a 20 69 6e 74 65 67 65 | 72 29 3b 0d 0d 7b 09 09 |: intege|r);..{..|
|0000b740| 43 6c 65 61 72 73 20 74 | 68 65 20 74 69 63 6b 73 |Clears t|he ticks|
|0000b750| 20 6c 69 73 74 20 6f 66 | 20 74 68 65 20 63 75 72 | list of| the cur|
|0000b760| 72 65 6e 74 20 61 78 69 | 73 2c 20 65 66 66 65 63 |rent axi|s, effec|
|0000b770| 74 69 76 65 6c 79 20 63 | 72 65 61 74 69 6e 67 09 |tively c|reating.|
|0000b780| 09 09 7d 0d 7b 09 09 61 | 6e 20 65 6d 70 74 79 20 |..}.{..a|n empty |
|0000b790| 6c 69 73 74 20 6f 66 20 | 74 69 63 6b 73 2e 09 09 |list of |ticks...|
|0000b7a0| 09 7d 0d 7b 09 09 43 61 | 6c 6c 20 74 68 69 73 20 |.}.{..Ca|ll this |
|0000b7b0| 72 6f 75 74 69 6e 65 20 | 62 65 66 6f 72 65 20 64 |routine |before d|
|0000b7c0| 65 66 69 6e 69 6e 67 20 | 61 20 73 65 74 20 6f 66 |efining |a set of|
|0000b7d0| 20 63 75 73 74 6f 6d 20 | 74 69 63 6b 73 20 77 69 | custom |ticks wi|
|0000b7e0| 74 68 20 74 68 65 09 09 | 09 7d 0d 7b 09 09 41 64 |th the..|.}.{..Ad|
|0000b7f0| 64 54 69 63 6b 20 72 6f | 75 74 69 6e 65 2e 09 09 |dTick ro|utine...|
|0000b800| 09 7d 0d 7b 09 09 09 09 | 7d 0d 0d 0d 09 66 75 6e |.}.{....|}....fun|
|0000b810| 63 74 69 6f 6e 20 41 64 | 64 54 69 63 6b 20 28 77 |ction Ad|dTick (w|
|0000b820| 68 69 63 68 41 78 69 73 | 3a 20 69 6e 74 65 67 65 |hichAxis|: intege|
|0000b830| 72 3b 20 74 69 63 6b 50 | 6f 73 3a 20 65 78 74 65 |r; tickP|os: exte|
|0000b840| 6e 64 65 64 3b 20 69 73 | 4d 61 6a 6f 72 3a 20 42 |nded; is|Major: B|
|0000b850| 6f 6f 6c 65 61 6e 29 3a | 20 69 6e 74 65 67 65 72 |oolean):| integer|
|0000b860| 3b 0d 0d 7b 09 09 55 73 | 65 20 74 68 69 73 20 72 |;..{..Us|e this r|
|0000b870| 6f 75 74 69 6e 65 20 74 | 6f 20 64 65 66 69 6e 65 |outine t|o define|
|0000b880| 20 79 6f 75 72 20 6f 77 | 6e 20 74 69 63 6b 73 20 | your ow|n ticks |
|0000b890| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 61 |in the c|urrent a|
|0000b8a0| 78 69 73 2e 09 09 09 7d | 0d 7b 09 09 43 61 6c 6c |xis....}|.{..Call|
|0000b8b0| 20 43 6c 65 61 72 54 69 | 63 6b 73 20 62 65 66 6f | ClearTi|cks befo|
|0000b8c0| 72 65 20 75 73 69 6e 67 | 20 74 68 69 73 20 72 6f |re using| this ro|
|0000b8d0| 75 74 69 6e 65 2e 09 09 | 09 7d 0d 7b 09 09 67 69 |utine...|.}.{..gi|
|0000b8e0| 76 65 6e 20 74 68 65 20 | 70 6f 73 69 74 69 6f 6e |ven the |position|
|0000b8f0| 20 6f 66 20 74 68 65 20 | 74 69 63 20 6d 61 72 6b | of the |tic mark|
|0000b900| 20 61 6e 64 20 69 74 73 | 20 70 72 6f 70 65 72 74 | and its| propert|
|0000b910| 69 65 73 20 28 73 65 74 | 20 69 73 4d 61 6a 6f 72 |ies (set| isMajor|
|0000b920| 20 74 6f 20 74 72 75 65 | 09 09 09 7d 0d 7b 09 09 | to true|...}.{..|
|0000b930| 74 6f 20 6f 62 74 61 69 | 6e 20 61 20 6d 61 6a 6f |to obtai|n a majo|
|0000b940| 72 20 74 69 63 6b 29 2c | 20 41 64 64 54 69 63 6b |r tick),| AddTick|
|0000b950| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 69 6e 64 | returns| the ind|
|0000b960| 65 78 20 6f 66 20 74 68 | 65 20 6e 65 77 6c 79 20 |ex of th|e newly |
|0000b970| 63 72 65 61 74 65 64 09 | 09 09 7d 0d 7b 09 09 74 |created.|..}.{..t|
|0000b980| 69 63 6b 20 69 6e 20 74 | 68 65 20 74 69 63 6b 20 |ick in t|he tick |
|0000b990| 6c 69 73 74 2e 09 09 09 | 7d 0d 7b 09 09 49 74 20 |list....|}.{..It |
|0000b9a0| 72 65 74 75 72 6e 73 20 | 31 20 66 6f 72 20 74 68 |returns |1 for th|
|0000b9b0| 65 20 66 69 72 73 74 20 | 74 69 63 6b 2e 09 09 09 |e first |tick....|
|0000b9c0| 7d 0d 7b 09 09 54 68 69 | 73 20 69 6e 64 65 78 20 |}.{..Thi|s index |
|0000b9d0| 63 61 6e 20 62 65 20 75 | 73 65 64 20 69 6e 20 74 |can be u|sed in t|
|0000b9e0| 68 65 20 53 65 74 4c 61 | 62 65 6c 2f 53 65 74 4c |he SetLa|bel/SetL|
|0000b9f0| 61 62 65 6c 54 65 78 74 | 20 72 6f 75 74 69 6e 65 |abelText| routine|
|0000ba00| 73 20 74 6f 20 63 68 61 | 6e 67 65 09 09 09 7d 0d |s to cha|nge...}.|
|0000ba10| 7b 09 09 74 68 65 20 6c | 61 62 65 6c 20 61 74 74 |{..the l|abel att|
|0000ba20| 61 63 68 65 64 20 74 6f | 20 74 68 65 20 6e 65 77 |ached to| the new|
|0000ba30| 6c 79 20 63 72 65 61 74 | 65 64 20 74 69 63 6b 2e |ly creat|ed tick.|
|0000ba40| 09 09 09 7d 0d 7b 09 09 | 09 09 7d 0d 0d 09 70 72 |...}.{..|..}...pr|
|0000ba50| 6f 63 65 64 75 72 65 20 | 53 65 74 4c 61 62 65 6c |ocedure |SetLabel|
|0000ba60| 20 28 77 68 69 63 68 41 | 78 69 73 3a 20 69 6e 74 | (whichA|xis: int|
|0000ba70| 65 67 65 72 3b 20 74 69 | 63 6b 4e 75 6d 3a 20 69 |eger; ti|ckNum: i|
|0000ba80| 6e 74 65 67 65 72 3b 20 | 6c 61 62 65 6c 4e 75 6d |nteger; |labelNum|
|0000ba90| 62 65 72 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |ber: ext|ended);.|
|0000baa0| 0d 7b 09 09 47 69 76 65 | 6e 20 61 20 74 69 63 6b |.{..Give|n a tick|
|0000bab0| 20 69 6e 64 65 78 20 28 | 31 3c 3d 74 69 63 6b 4e | index (|1<=tickN|
|0000bac0| 75 6d 3c 3d 6e 75 6d 62 | 65 72 4f 66 54 69 63 6b |um<=numb|erOfTick|
|0000bad0| 73 29 2c 20 74 68 69 73 | 20 72 6f 75 74 69 6e 65 |s), this| routine|
|0000bae0| 20 61 74 74 61 63 68 65 | 73 20 74 68 65 09 09 09 | attache|s the...|
|0000baf0| 7d 0d 7b 09 09 67 69 76 | 65 6e 20 6c 61 62 65 6c |}.{..giv|en label|
|0000bb00| 20 74 6f 20 69 74 20 62 | 79 20 63 6f 6e 76 65 72 | to it b|y conver|
|0000bb10| 74 69 6e 67 20 6c 61 62 | 65 6c 4e 75 6d 62 65 72 |ting lab|elNumber|
|0000bb20| 20 69 6e 74 6f 20 61 20 | 73 74 72 69 6e 67 20 61 | into a |string a|
|0000bb30| 63 63 6f 72 64 69 6e 67 | 20 74 6f 09 09 09 7d 0d |ccording| to...}.|
|0000bb40| 7b 09 09 74 68 65 20 6c | 61 62 65 6c 2d 66 6f 72 |{..the l|abel-for|
|0000bb50| 6d 61 74 20 73 70 65 63 | 69 66 69 65 64 20 66 6f |mat spec|ified fo|
|0000bb60| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 61 78 |r the cu|rrent ax|
|0000bb70| 69 73 2e 09 09 09 7d 0d | 7b 09 09 6c 61 62 65 6c |is....}.|{..label|
|0000bb80| 73 20 63 61 6e 20 62 65 | 20 61 74 74 61 63 68 65 |s can be| attache|
|0000bb90| 64 20 74 6f 20 6d 69 6e | 6f 72 20 6f 72 20 6d 61 |d to min|or or ma|
|0000bba0| 6a 6f 72 20 74 69 63 6b | 73 20 69 6e 20 74 68 65 |jor tick|s in the|
|0000bbb0| 20 73 61 6d 65 20 77 61 | 79 2e 09 09 09 7d 0d 7b | same wa|y....}.{|
|0000bbc0| 09 09 09 09 7d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |....}...|procedur|
|0000bbd0| 65 20 53 65 74 4c 61 62 | 65 6c 54 65 78 74 20 28 |e SetLab|elText (|
|0000bbe0| 77 68 69 63 68 41 78 69 | 73 3a 20 69 6e 74 65 67 |whichAxi|s: integ|
|0000bbf0| 65 72 3b 20 74 69 63 6b | 4e 75 6d 3a 20 69 6e 74 |er; tick|Num: int|
|0000bc00| 65 67 65 72 3b 20 6c 61 | 62 65 6c 54 65 78 74 3a |eger; la|belText:|
|0000bc10| 20 53 74 72 32 35 35 29 | 3b 0d 0d 7b 09 09 47 69 | Str255)|;..{..Gi|
|0000bc20| 76 65 6e 20 61 20 74 69 | 63 6b 20 69 6e 64 65 78 |ven a ti|ck index|
|0000bc30| 20 28 31 3c 3d 74 69 63 | 6b 4e 75 6d 3c 3d 6e 75 | (1<=tic|kNum<=nu|
|0000bc40| 6d 62 65 72 4f 66 54 69 | 63 6b 73 29 2c 20 74 68 |mberOfTi|cks), th|
|0000bc50| 69 73 20 72 6f 75 74 69 | 6e 65 20 61 74 74 61 63 |is routi|ne attac|
|0000bc60| 68 65 73 20 74 68 65 09 | 09 09 7d 0d 7b 09 09 67 |hes the.|..}.{..g|
|0000bc70| 69 76 65 6e 20 6c 61 62 | 65 6c 20 74 6f 20 69 74 |iven lab|el to it|
|0000bc80| 20 62 79 20 75 73 69 6e | 67 20 74 68 65 20 74 65 | by usin|g the te|
|0000bc90| 78 74 20 70 61 73 73 65 | 64 20 69 6e 20 6c 61 62 |xt passe|d in lab|
|0000bca0| 65 6c 54 65 78 74 20 28 | 70 61 73 63 61 6c 20 73 |elText (|pascal s|
|0000bcb0| 74 72 69 6e 67 21 29 09 | 09 09 7d 0d 0d 7b 09 09 |tring!).|..}..{..|
|0000bcc0| 09 09 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |..}...pr|ocedure |
|0000bcd0| 53 65 74 41 78 69 73 50 | 6f 73 69 74 69 6f 6e 20 |SetAxisP|osition |
|0000bce0| 28 77 68 69 63 68 41 78 | 69 73 3a 20 69 6e 74 65 |(whichAx|is: inte|
|0000bcf0| 67 65 72 3b 20 70 6f 73 | 69 74 69 6f 6e 3a 20 65 |ger; pos|ition: e|
|0000bd00| 78 74 65 6e 64 65 64 29 | 3b 0d 0d 7b 09 09 53 65 |xtended)|;..{..Se|
|0000bd10| 74 73 20 74 68 65 20 70 | 6f 73 69 74 69 6f 6e 20 |ts the p|osition |
|0000bd20| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 61 |of the c|urrent a|
|0000bd30| 78 69 73 20 69 6e 20 74 | 68 65 20 63 6f 6f 72 64 |xis in t|he coord|
|0000bd40| 69 6e 61 74 65 20 73 79 | 73 74 65 6d 20 6f 66 20 |inate sy|stem of |
|0000bd50| 74 68 65 09 09 09 7d 0d | 7b 09 09 4d 41 49 4e 20 |the...}.|{..MAIN |
|0000bd60| 41 58 49 53 20 70 65 72 | 70 65 6e 64 69 63 75 6c |AXIS per|pendicul|
|0000bd70| 61 72 20 74 6f 20 69 74 | 2e 09 09 09 7d 0d 7b 09 |ar to it|....}.{.|
|0000bd80| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|0000bd90| 65 20 53 65 74 41 78 69 | 73 41 74 74 72 69 62 75 |e SetAxi|sAttribu|
|0000bda0| 74 65 73 20 28 77 68 69 | 63 68 41 78 69 73 3a 20 |tes (whi|chAxis: |
|0000bdb0| 69 6e 74 65 67 65 72 3b | 20 66 6c 61 67 73 3a 20 |integer;| flags: |
|0000bdc0| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 0d 7b 09 09 73 65 |longint)|;..{..se|
|0000bdd0| 74 73 20 74 68 65 20 61 | 74 74 72 69 62 75 74 65 |ts the a|ttribute|
|0000bde0| 73 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s of the| current|
|0000bdf0| 20 61 78 69 73 20 74 6f | 20 6d 61 74 63 68 20 22 | axis to| match "|
|0000be00| 66 6c 61 67 73 22 09 09 | 09 7d 0d 7b 09 09 66 6c |flags"..|.}.{..fl|
|0000be10| 61 67 73 3a 09 61 20 73 | 65 74 20 6f 66 20 61 78 |ags:.a s|et of ax|
|0000be20| 69 73 20 63 68 61 72 61 | 63 74 65 72 69 73 74 69 |is chara|cteristi|
|0000be30| 63 73 20 74 68 61 74 20 | 63 61 6e 20 62 65 20 63 |cs that |can be c|
|0000be40| 61 6c 63 75 6c 61 74 65 | 64 20 62 79 20 73 75 6d |alculate|d by sum|
|0000be50| 6d 69 6e 67 20 74 68 65 | 09 09 09 7d 0d 7b 09 09 |ming the|...}.{..|
|0000be60| 09 09 61 76 61 69 6c 61 | 62 6c 65 20 63 6f 6e 73 |..availa|ble cons|
|0000be70| 74 61 6e 74 73 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |tants...|.}.{....|
|0000be80| 7d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |}....pro|cedure S|
|0000be90| 65 74 47 72 61 70 68 41 | 74 74 72 69 62 75 74 65 |etGraphA|ttribute|
|0000bea0| 73 20 28 66 6c 61 67 73 | 3a 20 6c 6f 6e 67 69 6e |s (flags|: longin|
|0000beb0| 74 29 3b 0d 0d 7b 09 09 | 73 65 74 73 20 74 68 65 |t);..{..|sets the|
|0000bec0| 20 61 74 74 72 69 62 75 | 74 65 73 20 6f 66 20 74 | attribu|tes of t|
|0000bed0| 68 65 20 63 75 72 72 65 | 6e 74 20 61 78 69 73 20 |he curre|nt axis |
|0000bee0| 74 6f 20 6d 61 74 63 68 | 20 22 66 6c 61 67 73 22 |to match| "flags"|
|0000bef0| 09 09 09 7d 0d 7b 09 09 | 66 6c 61 67 73 3a 09 61 |...}.{..|flags:.a|
|0000bf00| 20 73 65 74 20 6f 66 20 | 61 78 69 73 20 63 68 61 | set of |axis cha|
|0000bf10| 72 61 63 74 65 72 69 73 | 74 69 63 73 20 74 68 61 |racteris|tics tha|
|0000bf20| 74 20 63 61 6e 20 62 65 | 20 63 61 6c 63 75 6c 61 |t can be| calcula|
|0000bf30| 74 65 64 20 62 79 20 73 | 75 6d 6d 69 6e 67 20 74 |ted by s|umming t|
|0000bf40| 68 65 20 09 09 09 7d 0d | 7b 09 09 09 09 61 76 61 |he ...}.|{....ava|
|0000bf50| 69 6c 61 62 6c 65 20 63 | 6f 6e 73 74 61 6e 74 73 |ilable c|onstants|
|0000bf60| 2e 09 09 09 7d 0d 7b 09 | 09 09 09 7d 0d 0d 0d 0d |....}.{.|...}....|
|0000bf70| 0d 0d 7b 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..{*****|********|
|0000bf80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000bf90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000bfa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000bfb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000bfc0| 2a 09 09 09 7d 0d 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*...}.{*|********|
|0000bfd0| 2a 2a 2a 2a 2a 2a 2a 20 | 69 6e 74 65 72 61 63 74 |******* |interact|
|0000bfe0| 69 6f 6e 20 77 69 74 68 | 20 6f 74 68 65 72 20 66 |ion with| other f|
|0000bff0| 75 6e 63 74 69 6f 6e 73 | 20 61 6e 64 20 70 72 6f |unctions| and pro|
|0000c000| 67 72 61 6d 73 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |grams **|********|
|0000c010| 2a 2a 2a 2a 2a 2a 09 09 | 09 7d 0d 0d 0d 09 70 72 |******..|.}....pr|
|0000c020| 6f 63 65 64 75 72 65 20 | 53 65 74 50 61 72 61 6d |ocedure |SetParam|
|0000c030| 4c 69 6d 69 74 73 20 28 | 70 61 72 61 6d 4e 75 6d |Limits (|paramNum|
|0000c040| 3a 20 69 6e 74 65 67 65 | 72 3b 20 6c 6f 77 2c 20 |: intege|r; low, |
|0000c050| 68 69 67 68 3a 20 65 78 | 74 65 6e 64 65 64 29 3b |high: ex|tended);|
|0000c060| 0d 7b 20 73 65 74 73 20 | 74 68 65 20 6c 69 6d 69 |.{ sets |the limi|
|0000c070| 74 73 20 6f 66 20 61 20 | 70 61 72 61 6d 65 74 65 |ts of a |paramete|
|0000c080| 72 20 28 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |r (of th|e curren|
|0000c090| 74 6c 79 20 72 75 6e 6e | 69 6e 67 20 66 75 6e 63 |tly runn|ing func|
|0000c0a0| 74 69 6f 6e 29 20 09 09 | 09 7d 0d 0d 09 70 72 6f |tion) ..|.}...pro|
|0000c0b0| 63 65 64 75 72 65 20 53 | 65 74 50 61 72 61 6d 44 |cedure S|etParamD|
|0000c0c0| 65 66 61 75 6c 74 56 61 | 6c 75 65 20 28 70 61 72 |efaultVa|lue (par|
|0000c0d0| 61 6d 4e 75 6d 3a 20 69 | 6e 74 65 67 65 72 3b 20 |amNum: i|nteger; |
|0000c0e0| 76 61 6c 75 65 3a 20 65 | 78 74 65 6e 64 65 64 29 |value: e|xtended)|
|0000c0f0| 3b 0d 7b 20 73 65 74 73 | 20 74 68 65 20 6e 61 6d |;.{ sets| the nam|
|0000c100| 65 20 6f 66 20 61 20 70 | 61 72 61 6d 65 74 65 72 |e of a p|arameter|
|0000c110| 20 28 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 | (of the| current|
|0000c120| 6c 79 20 72 75 6e 6e 69 | 6e 67 20 66 75 6e 63 74 |ly runni|ng funct|
|0000c130| 69 6f 6e 29 20 09 09 09 | 7d 0d 0d 09 70 72 6f 63 |ion) ...|}...proc|
|0000c140| 65 64 75 72 65 20 53 65 | 74 50 61 72 61 6d 4e 61 |edure Se|tParamNa|
|0000c150| 6d 65 20 28 70 61 72 61 | 6d 4e 75 6d 3a 20 69 6e |me (para|mNum: in|
|0000c160| 74 65 67 65 72 3b 20 73 | 3a 20 73 74 72 32 35 35 |teger; s|: str255|
|0000c170| 29 3b 0d 7b 20 73 65 74 | 73 20 74 68 65 20 6e 61 |);.{ set|s the na|
|0000c180| 6d 65 20 6f 66 20 61 20 | 70 61 72 61 6d 65 74 65 |me of a |paramete|
|0000c190| 72 20 28 20 6f 66 20 74 | 68 65 20 63 75 72 72 65 |r ( of t|he curre|
|0000c1a0| 6e 74 6c 79 20 72 75 6e | 6e 69 6e 67 20 66 75 6e |ntly run|ning fun|
|0000c1b0| 63 74 69 6f 6e 20 29 20 | 09 09 09 7d 0d 0d 09 70 |ction ) |...}...p|
|0000c1c0| 72 6f 63 65 64 75 72 65 | 20 53 65 74 50 61 72 61 |rocedure| SetPara|
|0000c1d0| 6d 44 65 66 61 75 6c 74 | 73 20 28 70 61 72 61 6d |mDefault|s (param|
|0000c1e0| 4e 75 6d 3a 20 69 6e 74 | 65 67 65 72 3b 20 76 61 |Num: int|eger; va|
|0000c1f0| 6c 75 65 3a 20 65 78 74 | 65 6e 64 65 64 3b 20 6d |lue: ext|ended; m|
|0000c200| 6f 64 65 3a 20 6d 6f 64 | 65 54 79 70 65 3b 20 6e |ode: mod|eType; n|
|0000c210| 61 6d 65 3a 20 53 74 72 | 32 35 35 3b 20 6c 6f 77 |ame: Str|255; low|
|0000c220| 2c 20 68 69 67 68 3a 20 | 65 78 74 65 6e 64 65 64 |, high: |extended|
|0000c230| 29 3b 0d 7b 20 73 65 74 | 73 20 74 68 65 20 64 65 |);.{ set|s the de|
|0000c240| 66 61 75 6c 74 20 73 65 | 74 74 69 6e 67 73 20 6f |fault se|ttings o|
|0000c250| 66 20 61 20 70 61 72 61 | 6d 65 74 65 72 20 28 6f |f a para|meter (o|
|0000c260| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 6c 79 20 |f the cu|rrently |
|0000c270| 72 75 6e 6e 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |running |function|
|0000c280| 29 20 09 09 09 7d 0d 7b | 20 6d 6f 64 65 20 69 73 |) ...}.{| mode is|
|0000c290| 20 28 61 63 74 69 76 65 | 2c 20 69 6e 61 63 74 69 | (active|, inacti|
|0000c2a0| 76 65 2c 20 63 6f 6e 73 | 74 61 6e 74 29 20 09 09 |ve, cons|tant) ..|
|0000c2b0| 09 7d 0d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|0000c2c0| 61 6c 6c 46 75 6e 63 74 | 69 6f 6e 20 28 6e 61 6d |allFunct|ion (nam|
|0000c2d0| 65 3a 20 53 74 72 32 35 | 35 3b 20 78 76 61 6c 75 |e: Str25|5; xvalu|
|0000c2e0| 65 3a 20 65 78 74 65 6e | 64 65 64 29 3a 20 65 78 |e: exten|ded): ex|
|0000c2f0| 74 65 6e 64 65 64 3b 0d | 7b 20 63 61 6c 6c 73 20 |tended;.|{ calls |
|0000c300| 61 6e 79 20 6f 66 20 74 | 68 65 20 66 75 6e 63 74 |any of t|he funct|
|0000c310| 69 6f 6e 73 20 69 6e 20 | 74 68 65 20 66 75 6e 63 |ions in |the func|
|0000c320| 20 6d 65 6e 75 20 62 79 | 20 69 74 73 20 6e 61 6d | menu by| its nam|
|0000c330| 65 20 09 09 09 7d 0d 0d | 09 66 75 6e 63 74 69 6f |e ...}..|.functio|
|0000c340| 6e 20 47 65 74 4e 75 6d | 46 75 6e 63 74 69 6f 6e |n GetNum|Function|
|0000c350| 50 61 72 61 6d 73 20 28 | 66 75 6e 63 74 69 6f 6e |Params (|function|
|0000c360| 4e 61 6d 65 3a 20 53 74 | 72 32 35 35 29 3a 20 69 |Name: St|r255): i|
|0000c370| 6e 74 65 67 65 72 3b 0d | 7b 20 72 65 74 75 72 6e |nteger;.|{ return|
|0000c380| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|0000c390| 70 61 72 61 6d 65 74 65 | 72 73 20 6f 66 20 61 20 |paramete|rs of a |
|0000c3a0| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 74 68 65 20 |function| in the |
|0000c3b0| 66 75 6e 63 20 6d 65 6e | 75 20 09 09 09 7d 0d 0d |func men|u ...}..|
|0000c3c0| 09 66 75 6e 63 74 69 6f | 6e 20 47 65 74 46 75 6e |.functio|n GetFun|
|0000c3d0| 63 74 69 6f 6e 50 61 72 | 61 6d 4d 6f 64 65 20 28 |ctionPar|amMode (|
|0000c3e0| 66 75 6e 63 74 69 6f 6e | 4e 61 6d 65 3a 20 53 74 |function|Name: St|
|0000c3f0| 72 32 35 35 3b 20 70 61 | 72 61 6d 49 6e 64 65 78 |r255; pa|ramIndex|
|0000c400| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 6d 6f 64 65 |: intege|r): mode|
|0000c410| 54 79 70 65 3b 0d 7b 20 | 72 65 74 75 72 6e 73 20 |Type;.{ |returns |
|0000c420| 74 68 65 20 6d 6f 64 65 | 20 6f 66 20 61 20 70 61 |the mode| of a pa|
|0000c430| 72 61 6d 65 74 65 72 20 | 6f 66 20 61 20 66 75 6e |rameter |of a fun|
|0000c440| 63 74 69 6f 6e 20 69 6e | 20 74 68 65 20 66 75 6e |ction in| the fun|
|0000c450| 63 20 6d 65 6e 75 20 09 | 09 09 7d 0d 0d 09 70 72 |c menu .|..}...pr|
|0000c460| 6f 63 65 64 75 72 65 20 | 47 65 74 46 75 6e 63 74 |ocedure |GetFunct|
|0000c470| 69 6f 6e 50 61 72 61 6d | 4e 61 6d 65 28 66 75 6e |ionParam|Name(fun|
|0000c480| 63 74 69 6f 6e 4e 61 6d | 65 3a 20 53 74 72 32 35 |ctionNam|e: Str25|
|0000c490| 35 3b 20 70 61 72 61 6d | 49 6e 64 65 78 3a 20 69 |5; param|Index: i|
|0000c4a0| 6e 74 65 67 65 72 3b 20 | 76 61 72 20 70 61 72 61 |nteger; |var para|
|0000c4b0| 6d 4e 61 6d 65 3a 20 53 | 74 72 32 35 35 29 3b 0d |mName: S|tr255);.|
|0000c4c0| 7b 20 72 65 74 75 72 6e | 73 20 74 68 65 20 6e 61 |{ return|s the na|
|0000c4d0| 6d 65 20 6f 66 20 61 20 | 70 61 72 61 6d 65 74 65 |me of a |paramete|
|0000c4e0| 72 20 66 6f 72 20 6f 6e | 65 20 6f 66 20 74 68 65 |r for on|e of the|
|0000c4f0| 20 66 75 6e 63 74 69 6f | 6e 73 20 69 6e 20 74 68 | functio|ns in th|
|0000c500| 65 20 66 75 6e 63 20 6d | 65 6e 75 20 7d 0d 0d 09 |e func m|enu }...|
|0000c510| 66 75 6e 63 74 69 6f 6e | 20 47 65 74 46 75 6e 63 |function| GetFunc|
|0000c520| 74 69 6f 6e 50 61 72 61 | 6d 20 28 66 75 6e 63 74 |tionPara|m (funct|
|0000c530| 69 6f 6e 4e 61 6d 65 3a | 20 53 74 72 32 35 35 3b |ionName:| Str255;|
|0000c540| 20 70 61 72 61 6d 49 6e | 64 65 78 3a 20 69 6e 74 | paramIn|dex: int|
|0000c550| 65 67 65 72 29 3a 20 65 | 78 74 65 6e 64 65 64 3b |eger): e|xtended;|
|0000c560| 0d 7b 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 70 |.{ retur|ns the p|
|0000c570| 61 72 61 6d 65 74 65 72 | 20 6f 66 20 61 20 66 75 |arameter| of a fu|
|0000c580| 6e 63 74 69 6f 6e 20 69 | 6e 20 74 68 65 20 66 75 |nction i|n the fu|
|0000c590| 6e 63 20 6d 65 6e 75 20 | 09 09 09 7d 0d 0d 09 70 |nc menu |...}...p|
|0000c5a0| 72 6f 63 65 64 75 72 65 | 20 53 65 74 46 75 6e 63 |rocedure| SetFunc|
|0000c5b0| 74 69 6f 6e 50 61 72 61 | 6d 20 28 66 75 6e 63 74 |tionPara|m (funct|
|0000c5c0| 69 6f 6e 4e 61 6d 65 3a | 20 53 74 72 32 35 35 3b |ionName:| Str255;|
|0000c5d0| 20 70 61 72 61 6d 49 6e | 64 65 78 3a 20 69 6e 74 | paramIn|dex: int|
|0000c5e0| 65 67 65 72 3b 20 76 61 | 6c 75 65 3a 20 65 78 74 |eger; va|lue: ext|
|0000c5f0| 65 6e 64 65 64 29 3b 0d | 7b 20 73 65 74 73 20 74 |ended);.|{ sets t|
|0000c600| 68 65 20 70 61 72 61 6d | 65 74 65 72 20 6f 66 20 |he param|eter of |
|0000c610| 61 20 66 75 6e 63 74 69 | 6f 6e 20 69 6e 20 74 68 |a functi|on in th|
|0000c620| 65 20 66 75 6e 63 20 6d | 65 6e 75 20 09 09 09 7d |e func m|enu ...}|
|0000c630| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 43 61 6c |...proce|dure Cal|
|0000c640| 6c 50 72 6f 67 72 61 6d | 20 28 6e 61 6d 65 3a 20 |lProgram| (name: |
|0000c650| 53 74 72 32 35 35 29 3b | 0d 7b 20 63 61 6c 6c 73 |Str255);|.{ calls|
|0000c660| 20 61 20 70 72 6f 67 72 | 61 6d 20 66 72 6f 6d 20 | a progr|am from |
|0000c670| 74 68 65 20 55 73 65 72 | 20 6d 65 6e 75 20 09 09 |the User| menu ..|
|0000c680| 09 7d 0d 0d 7b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.}..{***|********|
|0000c690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c6a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c6b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c6c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c6d0| 2a 2a 2a 09 09 09 7d 0d | 7b 2a 2a 2a 2a 2a 2a 2a |***...}.|{*******|
|0000c6e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c6f0| 2a 2a 2a 2a 2a 2a 20 6e | 75 6d 65 72 69 63 61 6c |****** n|umerical|
|0000c700| 20 61 6e 61 6c 79 73 69 | 73 20 2a 2a 2a 2a 2a 2a | analysi|s ******|
|0000c710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000c720| 2a 2a 2a 2a 2a 2a 2a 09 | 09 09 7d 0d 0d 09 66 75 |*******.|..}...fu|
|0000c730| 6e 63 74 69 6f 6e 20 49 | 6e 74 65 67 72 61 6c 20 |nction I|ntegral |
|0000c740| 28 66 75 6e 63 74 69 6f | 6e 4e 61 6d 65 3a 20 53 |(functio|nName: S|
|0000c750| 74 72 32 35 35 3b 20 78 | 6d 69 6e 2c 20 78 6d 61 |tr255; x|min, xma|
|0000c760| 78 3a 20 65 78 74 65 6e | 64 65 64 3b 20 6e 75 6d |x: exten|ded; num|
|0000c770| 49 74 65 72 73 3a 20 69 | 6e 74 65 67 65 72 29 3a |Iters: i|nteger):|
|0000c780| 20 65 78 74 65 6e 64 65 | 64 3b 0d 7b 20 63 61 6c | extende|d;.{ cal|
|0000c790| 63 75 6c 61 74 65 73 20 | 74 68 65 20 69 6e 74 65 |culates |the inte|
|0000c7a0| 67 72 61 6c 20 6f 66 20 | 61 20 66 75 6e 63 74 69 |gral of |a functi|
|0000c7b0| 6f 6e 20 69 6e 20 74 68 | 65 20 66 75 6e 63 20 6d |on in th|e func m|
|0000c7c0| 65 6e 75 20 09 09 09 7d | 0d 0d 09 66 75 6e 63 74 |enu ...}|...funct|
|0000c7d0| 69 6f 6e 20 4d 61 78 69 | 6d 75 6d 20 28 66 75 6e |ion Maxi|mum (fun|
|0000c7e0| 63 74 69 6f 6e 4e 61 6d | 65 3a 20 53 74 72 32 35 |ctionNam|e: Str25|
|0000c7f0| 35 3b 20 78 6d 69 6e 2c | 20 78 6d 61 78 3a 20 65 |5; xmin,| xmax: e|
|0000c800| 78 74 65 6e 64 65 64 29 | 3a 20 65 78 74 65 6e 64 |xtended)|: extend|
|0000c810| 65 64 3b 0d 7b 20 66 69 | 6e 64 73 20 74 68 65 20 |ed;.{ fi|nds the |
|0000c820| 6d 61 78 69 6d 75 6d 20 | 6f 66 20 61 20 66 75 6e |maximum |of a fun|
|0000c830| 63 74 69 6f 6e 20 69 6e | 20 74 68 65 20 66 75 6e |ction in| the fun|
|0000c840| 63 20 6d 65 6e 75 20 09 | 09 09 7d 0d 0d 09 66 75 |c menu .|..}...fu|
|0000c850| 6e 63 74 69 6f 6e 20 4d | 69 6e 69 6d 75 6d 20 28 |nction M|inimum (|
|0000c860| 66 75 6e 63 74 69 6f 6e | 4e 61 6d 65 3a 20 53 74 |function|Name: St|
|0000c870| 72 32 35 35 3b 20 78 6d | 69 6e 2c 20 78 6d 61 78 |r255; xm|in, xmax|
|0000c880| 3a 20 65 78 74 65 6e 64 | 65 64 29 3a 20 65 78 74 |: extend|ed): ext|
|0000c890| 65 6e 64 65 64 3b 0d 7b | 20 66 69 6e 64 73 20 74 |ended;.{| finds t|
|0000c8a0| 68 65 20 6d 69 6e 69 6d | 75 6d 20 6f 66 20 61 20 |he minim|um of a |
|0000c8b0| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 74 68 65 20 |function| in the |
|0000c8c0| 66 75 6e 63 20 6d 65 6e | 75 20 09 09 09 7d 0d 0d |func men|u ...}..|
|0000c8d0| 09 66 75 6e 63 74 69 6f | 6e 20 52 6f 6f 74 20 28 |.functio|n Root (|
|0000c8e0| 66 75 6e 63 74 69 6f 6e | 4e 61 6d 65 3a 20 53 74 |function|Name: St|
|0000c8f0| 72 32 35 35 3b 20 78 6d | 69 6e 2c 20 78 6d 61 78 |r255; xm|in, xmax|
|0000c900| 3a 20 65 78 74 65 6e 64 | 65 64 29 3a 20 65 78 74 |: extend|ed): ext|
|0000c910| 65 6e 64 65 64 3b 0d 7b | 20 66 69 6e 64 73 20 74 |ended;.{| finds t|
|0000c920| 68 65 20 72 6f 6f 74 20 | 6f 66 20 61 20 66 75 6e |he root |of a fun|
|0000c930| 63 74 69 6f 6e 20 69 6e | 20 74 68 65 20 66 75 6e |ction in| the fun|
|0000c940| 63 20 6d 65 6e 75 20 09 | 09 09 7d 0d 09 66 75 6e |c menu .|..}..fun|
|0000c950| 63 74 69 6f 6e 20 44 65 | 72 69 76 61 74 69 76 65 |ction De|rivative|
|0000c960| 20 28 66 75 6e 63 74 69 | 6f 6e 4e 61 6d 65 3a 20 | (functi|onName: |
|0000c970| 53 74 72 32 35 35 3b 20 | 78 2c 20 73 63 61 6c 65 |Str255; |x, scale|
|0000c980| 3a 20 65 78 74 65 6e 64 | 65 64 29 3a 20 65 78 74 |: extend|ed): ext|
|0000c990| 65 6e 64 65 64 3b 0d 7b | 20 66 69 6e 64 73 20 74 |ended;.{| finds t|
|0000c9a0| 68 65 20 72 6f 6f 74 20 | 6f 66 20 61 20 66 75 6e |he root |of a fun|
|0000c9b0| 63 74 69 6f 6e 20 69 6e | 20 74 68 65 20 66 75 6e |ction in| the fun|
|0000c9c0| 63 20 6d 65 6e 75 20 09 | 09 09 7d 0d 7b 20 61 74 |c menu .|..}.{ at|
|0000c9d0| 20 74 68 65 20 61 73 63 | 69 73 73 61 20 76 61 6c | the asc|issa val|
|0000c9e0| 75 65 20 78 2e 20 73 63 | 61 6c 65 20 69 73 20 61 |ue x. sc|ale is a|
|0000c9f0| 20 74 79 70 69 63 61 6c | 20 73 63 61 6c 65 20 6f | typical| scale o|
|0000ca00| 76 65 72 20 77 68 69 63 | 68 20 74 68 65 20 66 75 |ver whic|h the fu|
|0000ca10| 6e 63 74 69 6f 6e 20 63 | 68 61 6e 67 65 73 2e 09 |nction c|hanges..|
|0000ca20| 09 09 7d 0d 7b 20 54 68 | 69 73 20 6e 75 6d 62 65 |..}.{ Th|is numbe|
|0000ca30| 72 20 69 73 20 6e 6f 74 | 20 6e 65 63 65 73 73 61 |r is not| necessa|
|0000ca40| 72 69 6c 79 20 73 6d 61 | 6c 6c 21 09 09 09 7d 0d |rily sma|ll!...}.|
|0000ca50| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 46 69 74 20 |..proced|ure Fit |
|0000ca60| 28 66 75 6e 63 74 69 6f | 6e 4e 61 6d 65 3a 20 53 |(functio|nName: S|
|0000ca70| 74 72 32 35 35 3b 20 78 | 43 6f 6c 2c 20 79 43 6f |tr255; x|Col, yCo|
|0000ca80| 6c 2c 20 65 72 72 43 6f | 6c 3a 20 6c 6f 6e 67 69 |l, errCo|l: longi|
|0000ca90| 6e 74 3b 20 65 72 72 56 | 61 6c 3a 20 65 78 74 65 |nt; errV|al: exte|
|0000caa0| 6e 64 65 64 3b 20 73 65 | 6c 65 63 74 69 6f 6e 4f |nded; se|lectionO|
|0000cab0| 6e 6c 79 3a 20 42 6f 6f | 6c 65 61 6e 29 3b 0d 7b |nly: Boo|lean);.{|
|0000cac0| 20 72 75 6e 73 20 61 20 | 6e 6f 6e 2d 6c 69 6e 65 | runs a |non-line|
|0000cad0| 61 72 20 66 69 74 20 66 | 6f 72 20 74 68 65 20 67 |ar fit f|or the g|
|0000cae0| 69 76 65 6e 20 66 75 6e | 63 74 69 6f 6e 2e 20 47 |iven fun|ction. G|
|0000caf0| 65 6e 65 72 61 74 65 73 | 20 61 20 72 75 6e 2d 74 |enerates| a run-t|
|0000cb00| 69 6d 65 20 09 09 09 7d | 0d 7b 20 65 72 72 6f 72 |ime ...}|.{ error|
|0000cb10| 20 69 66 20 66 69 74 20 | 64 69 64 20 6e 6f 74 20 | if fit |did not |
|0000cb20| 63 6f 6e 76 65 72 67 65 | 2e 20 09 09 09 7d 0d 7b |converge|. ...}.{|
|0000cb30| 20 78 43 6f 6c 2c 20 79 | 43 6f 6c 3a 20 74 68 65 | xCol, y|Col: the|
|0000cb40| 20 78 2d 20 61 6e 64 20 | 79 2d 63 6f 6c 75 6d 6e | x- and |y-column|
|0000cb50| 73 20 09 09 09 7d 0d 7b | 20 65 72 72 43 6f 6c 3a |s ...}.{| errCol:|
|0000cb60| 20 74 68 65 20 65 72 72 | 6f 72 20 63 6f 6c 75 6d | the err|or colum|
|0000cb70| 6e 2e 20 53 65 74 20 74 | 6f 20 30 20 69 66 20 75 |n. Set t|o 0 if u|
|0000cb80| 73 69 6e 67 20 6e 6f 20 | 65 72 72 6f 72 20 6f 72 |sing no |error or|
|0000cb90| 20 61 20 63 6f 6e 73 74 | 61 6e 74 20 2f 20 70 65 | a const|ant / pe|
|0000cba0| 72 63 65 6e 74 75 61 6c | 20 65 72 72 6f 72 20 09 |rcentual| error .|
|0000cbb0| 09 09 7d 0d 7b 20 65 72 | 72 56 61 6c 3a 09 69 66 |..}.{ er|rVal:.if|
|0000cbc0| 20 3e 20 30 3a 20 61 20 | 63 6f 6e 73 74 61 6e 74 | > 0: a |constant|
|0000cbd0| 20 65 72 72 6f 72 20 20 | 20 69 66 20 3c 20 30 20 | error | if < 0 |
|0000cbe0| 28 2d 31 30 30 2e 2e 2d | 30 29 20 61 20 70 65 72 |(-100..-|0) a per|
|0000cbf0| 63 65 6e 74 75 61 6c 20 | 65 72 72 6f 72 20 09 09 |centual |error ..|
|0000cc00| 09 7d 0d 7b 20 73 65 6c | 65 63 74 69 6f 6e 4f 6e |.}.{ sel|ectionOn|
|0000cc10| 6c 79 3a 20 73 65 74 20 | 74 6f 20 74 72 75 65 20 |ly: set |to true |
|0000cc20| 69 66 20 6f 6e 6c 79 20 | 73 65 6c 65 63 74 65 64 |if only |selected|
|0000cc30| 20 72 6f 77 73 20 73 68 | 6f 75 6c 64 20 62 65 20 | rows sh|ould be |
|0000cc40| 66 69 74 74 65 64 20 09 | 09 09 7d 0d 0d 09 66 75 |fitted .|..}...fu|
|0000cc50| 6e 63 74 69 6f 6e 20 43 | 68 69 53 71 75 61 72 65 |nction C|hiSquare|
|0000cc60| 64 3a 20 65 78 74 65 6e | 64 65 64 3b 0d 7b 20 72 |d: exten|ded;.{ r|
|0000cc70| 65 74 75 72 6e 73 20 74 | 68 65 20 63 68 69 20 2d |eturns t|he chi -|
|0000cc80| 20 73 71 75 61 72 65 64 | 20 6f 66 20 74 68 65 20 | squared| of the |
|0000cc90| 6c 61 73 74 20 73 75 63 | 63 65 73 73 66 75 6c 20 |last suc|cessful |
|0000cca0| 66 69 74 20 2e 20 50 72 | 6f 64 75 63 65 73 20 61 |fit . Pr|oduces a|
|0000ccb0| 20 72 75 6e 20 2d 20 74 | 69 6d 65 20 65 72 72 6f | run - t|ime erro|
|0000ccc0| 72 09 09 09 7d 0d 7b 20 | 69 66 20 6e 6f 20 66 69 |r...}.{ |if no fi|
|0000ccd0| 74 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 66 72 |t inform|ation fr|
|0000cce0| 6f 6d 20 61 20 73 75 63 | 63 65 73 73 66 75 6c 20 |om a suc|cessful |
|0000ccf0| 66 69 74 20 69 73 20 61 | 76 61 69 6c 61 62 6c 65 |fit is a|vailable|
|0000cd00| 20 09 09 09 7d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e | ...}...|function|
|0000cd10| 20 4e 75 6d 46 69 74 50 | 61 72 61 6d 73 3a 20 69 | NumFitP|arams: i|
|0000cd20| 6e 74 65 67 65 72 3b 0d | 7b 20 20 72 65 74 75 72 |nteger;.|{ retur|
|0000cd30| 6e 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ns the n|umber of|
|0000cd40| 20 70 61 72 61 6d 65 74 | 65 72 73 20 6f 66 20 74 | paramet|ers of t|
|0000cd50| 68 65 20 6c 61 73 74 20 | 73 75 63 63 65 73 73 66 |he last |successf|
|0000cd60| 75 6c 20 66 69 74 20 09 | 09 09 7d 0d 7b 28 20 41 |ul fit .|..}.{( A|
|0000cd70| 4c 4c 20 70 61 72 61 6d | 65 74 65 72 73 20 2c 20 |LL param|eters , |
|0000cd80| 61 63 74 69 76 65 20 2c | 20 69 6e 61 63 74 69 76 |active ,| inactiv|
|0000cd90| 65 20 2c 20 61 6e 64 20 | 63 6f 6e 73 74 61 6e 74 |e , and |constant|
|0000cda0| 20 72 65 74 75 72 6e 73 | 20 30 09 09 09 7d 0d 7b | returns| 0...}.{|
|0000cdb0| 69 66 20 6e 6f 20 66 69 | 74 20 69 6e 66 6f 72 6d |if no fi|t inform|
|0000cdc0| 61 74 69 6f 6e 20 66 72 | 6f 6d 20 61 20 73 75 63 |ation fr|om a suc|
|0000cdd0| 63 65 73 73 66 75 6c 20 | 66 69 74 20 69 73 20 61 |cessful |fit is a|
|0000cde0| 76 61 69 6c 61 62 6c 65 | 20 20 09 09 09 7d 0d 0d |vailable| ...}..|
|0000cdf0| 09 66 75 6e 63 74 69 6f | 6e 20 46 69 74 74 65 64 |.functio|n Fitted|
|0000ce00| 50 61 72 61 6d 73 20 28 | 70 61 72 61 6d 4e 75 6d |Params (|paramNum|
|0000ce10| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 65 78 74 65 |: intege|r): exte|
|0000ce20| 6e 64 65 64 3b 0d 7b 72 | 65 74 75 72 6e 73 20 74 |nded;.{r|eturns t|
|0000ce30| 68 65 20 66 69 74 74 65 | 64 20 76 61 6c 75 65 20 |he fitte|d value |
|0000ce40| 6f 66 20 61 20 70 61 72 | 61 6d 65 74 65 72 20 2e |of a par|ameter .|
|0000ce50| 20 50 72 6f 64 75 63 65 | 73 20 61 20 72 75 6e 20 | Produce|s a run |
|0000ce60| 2d 20 74 69 6d 65 20 65 | 72 72 6f 72 09 09 09 7d |- time e|rror...}|
|0000ce70| 0d 7b 69 66 20 6e 6f 20 | 66 69 74 20 69 6e 66 6f |.{if no |fit info|
|0000ce80| 72 6d 61 74 69 6f 6e 20 | 66 72 6f 6d 20 61 20 73 |rmation |from a s|
|0000ce90| 75 63 63 65 73 73 66 75 | 6c 20 66 69 74 20 69 73 |uccessfu|l fit is|
|0000cea0| 20 61 76 61 69 6c 61 62 | 6c 65 20 09 09 09 7d 0d | availab|le ...}.|
|0000ceb0| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 50 61 72 61 6d |..functi|on Param|
|0000cec0| 53 44 20 28 70 61 72 61 | 6d 4e 75 6d 3a 20 69 6e |SD (para|mNum: in|
|0000ced0| 74 65 67 65 72 29 3a 20 | 65 78 74 65 6e 64 65 64 |teger): |extended|
|0000cee0| 3b 0d 7b 72 65 74 75 72 | 6e 73 20 74 68 65 20 73 |;.{retur|ns the s|
|0000cef0| 74 61 6e 64 61 72 64 20 | 64 65 76 69 61 74 69 6f |tandard |deviatio|
|0000cf00| 6e 20 6f 66 20 61 20 70 | 61 72 61 6d 65 74 65 72 |n of a p|arameter|
|0000cf10| 20 61 66 74 65 72 20 61 | 20 73 75 63 63 65 73 73 | after a| success|
|0000cf20| 66 75 6c 20 66 69 74 20 | 2e 09 09 09 7d 0d 7b 20 |ful fit |....}.{ |
|0000cf30| 72 65 74 75 72 6e 73 20 | 4e 41 4e 20 28 20 4e 6f |returns |NAN ( No|
|0000cf40| 74 20 41 20 4e 75 6d 62 | 65 72 20 2c 20 61 6e 20 |t A Numb|er , an |
|0000cf50| 69 6e 76 61 6c 69 64 20 | 72 65 61 6c 20 6e 75 6d |invalid |real num|
|0000cf60| 62 65 72 20 29 69 66 20 | 6e 6f 20 73 74 61 6e 64 |ber )if |no stand|
|0000cf70| 61 72 64 20 64 65 76 69 | 61 74 69 6f 6e 20 09 09 |ard devi|ation ..|
|0000cf80| 09 7d 0d 7b 69 73 20 61 | 76 61 69 6c 61 62 6c 65 |.}.{is a|vailable|
|0000cf90| 20 2e 20 50 72 6f 64 75 | 63 65 73 20 61 20 72 75 | . Produ|ces a ru|
|0000cfa0| 6e 20 2d 20 74 69 6d 65 | 20 65 72 72 6f 72 20 69 |n - time| error i|
|0000cfb0| 66 20 6e 6f 20 66 69 74 | 20 69 6e 66 6f 72 6d 61 |f no fit| informa|
|0000cfc0| 74 69 6f 6e 20 66 72 6f | 6d 20 61 20 73 75 63 63 |tion fro|m a succ|
|0000cfd0| 65 73 73 66 75 6c 20 66 | 69 74 20 09 09 09 7d 0d |essful f|it ...}.|
|0000cfe0| 7b 69 73 20 61 76 61 69 | 6c 61 62 6c 65 20 20 09 |{is avai|lable .|
|0000cff0| 09 09 7d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 43 |..}...fu|nction C|
|0000d000| 6f 76 61 72 4d 61 74 72 | 69 78 20 28 70 61 72 61 |ovarMatr|ix (para|
|0000d010| 6d 4e 75 6d 31 2c 20 70 | 61 72 61 6d 4e 75 6d 32 |mNum1, p|aramNum2|
|0000d020| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 65 78 74 65 |: intege|r): exte|
|0000d030| 6e 64 65 64 3b 0d 7b 72 | 65 74 75 72 6e 73 20 74 |nded;.{r|eturns t|
|0000d040| 68 65 20 65 6c 65 6d 65 | 6e 74 73 20 6f 66 20 74 |he eleme|nts of t|
|0000d050| 68 65 20 63 6f 76 61 72 | 69 61 6e 63 65 20 6d 61 |he covar|iance ma|
|0000d060| 74 72 69 78 20 61 66 74 | 65 72 20 61 20 73 75 63 |trix aft|er a suc|
|0000d070| 63 65 73 73 66 75 6c 20 | 66 69 74 20 2e 20 09 09 |cessful |fit . ..|
|0000d080| 09 7d 0d 7b 72 65 74 75 | 72 6e 73 20 4e 41 4e 20 |.}.{retu|rns NAN |
|0000d090| 69 66 20 74 68 65 20 63 | 6f 72 72 65 73 70 6f 6e |if the c|orrespon|
|0000d0a0| 64 69 6e 67 20 65 6c 65 | 6d 65 6e 74 20 69 73 20 |ding ele|ment is |
|0000d0b0| 6e 6f 74 20 64 65 66 69 | 6e 65 64 20 62 65 63 61 |not defi|ned beca|
|0000d0c0| 75 73 65 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |use the |paramete|
|0000d0d0| 72 20 09 09 09 7d 0d 7b | 77 61 73 20 6e 6f 74 20 |r ...}.{|was not |
|0000d0e0| 75 73 65 64 20 66 6f 72 | 20 74 68 65 20 66 69 74 |used for| the fit|
|0000d0f0| 20 2e 20 50 72 6f 64 75 | 63 65 73 20 61 20 72 75 | . Produ|ces a ru|
|0000d100| 6e 20 2d 20 74 69 6d 65 | 20 65 72 72 6f 72 20 69 |n - time| error i|
|0000d110| 66 20 6e 6f 20 66 69 74 | 20 69 6e 66 6f 72 6d 61 |f no fit| informa|
|0000d120| 74 69 6f 6e 20 66 72 6f | 6d 20 61 20 09 09 09 7d |tion fro|m a ...}|
|0000d130| 0d 7b 73 75 63 63 65 73 | 73 66 75 6c 20 66 69 74 |.{succes|sful fit|
|0000d140| 20 69 73 20 61 76 61 69 | 6c 61 62 6c 65 20 09 09 | is avai|lable ..|
|0000d150| 09 7d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 50 52 |.}...fun|ction PR|
|0000d160| 61 6e 64 6f 6d 3a 20 65 | 78 74 65 6e 64 65 64 3b |andom: e|xtended;|
|0000d170| 0d 7b 20 52 65 74 75 72 | 6e 73 20 61 20 72 61 6e |.{ Retur|ns a ran|
|0000d180| 64 6f 6d 20 6e 75 6d 62 | 65 72 20 62 65 74 77 65 |dom numb|er betwe|
|0000d190| 65 6e 20 30 20 61 6e 64 | 20 31 20 09 09 09 7d 0d |en 0 and| 1 ...}.|
|0000d1a0| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 4e 75 6d 62 |...funct|ion Numb|
|0000d1b0| 65 72 49 6e 76 61 6c 69 | 64 20 28 61 4e 75 6d 3a |erInvali|d (aNum:|
|0000d1c0| 20 65 78 74 65 6e 64 65 | 64 29 3a 20 62 6f 6f 6c | extende|d): bool|
|0000d1d0| 65 61 6e 3b 0d 7b 20 72 | 65 74 75 72 6e 73 20 74 |ean;.{ r|eturns t|
|0000d1e0| 72 75 65 20 69 66 20 74 | 68 65 20 61 72 67 75 6d |rue if t|he argum|
|0000d1f0| 65 6e 74 20 69 73 20 6e | 6f 74 20 61 20 67 6f 6f |ent is n|ot a goo|
|0000d200| 64 20 6e 75 6d 62 65 72 | 20 09 09 09 7d 0d 7b 20 |d number| ...}.{ |
|0000d210| 72 65 74 75 72 6e 73 20 | 66 61 6c 73 65 20 69 66 |returns |false if|
|0000d220| 20 74 68 65 20 61 72 67 | 75 6d 65 6e 74 20 69 73 | the arg|ument is|
|0000d230| 20 61 20 6e 6f 72 6d 61 | 6c 2c 20 72 65 61 73 6f | a norma|l, reaso|
|0000d240| 6e 61 62 6c 65 20 6e 75 | 6d 62 65 72 20 09 09 09 |nable nu|mber ...|
|0000d250| 7d 0d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 45 72 |}....fun|ction Er|
|0000d260| 66 20 28 78 3a 20 65 78 | 74 65 6e 64 65 64 29 3a |f (x: ex|tended):|
|0000d270| 20 65 78 74 65 6e 64 65 | 64 3b 0d 09 7b 09 09 09 | extende|d;..{...|
|0000d280| 09 7d 0d 7b 09 09 72 65 | 74 75 72 6e 73 20 74 68 |.}.{..re|turns th|
|0000d290| 65 20 65 72 72 6f 72 20 | 66 75 6e 63 74 69 6f 6e |e error |function|
|0000d2a0| 20 64 65 66 69 6e 65 64 | 20 61 73 09 09 09 7d 0d | defined| as...}.|
|0000d2b0| 7b 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 78 |{. | x|
|0000d2c0| 09 09 09 7d 0d 7b 09 20 | 20 20 20 20 20 32 20 20 |...}.{. | 2 |
|0000d2d0| 20 20 20 20 2f 09 09 09 | 7d 0d 7b 09 20 20 20 20 | /...|}.{. |
|0000d2e0| 2d 2d 2d 2d 2d 2d 20 20 | 20 7c 20 20 65 78 70 28 |------ | | exp(|
|0000d2f0| 2d 74 2a 74 29 20 64 74 | 09 09 09 7d 0d 7b 09 20 |-t*t) dt|...}.{. |
|0000d300| 20 20 20 20 20 c3 b9 20 | 20 20 20 20 2f 09 09 09 | .. | /...|
|0000d310| 7d 0d 7b 09 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.{. | |
|0000d320| 20 30 09 09 09 7d 0d 7b | 09 09 54 68 65 20 64 65 | 0...}.{|..The de|
|0000d330| 66 69 6e 69 74 69 6f 6e | 20 69 73 20 73 75 63 68 |finition| is such|
|0000d340| 20 74 68 61 74 20 45 72 | 66 28 2d 69 6e 66 29 20 | that Er|f(-inf) |
|0000d350| 3d 20 2d 31 2c 20 45 72 | 66 28 69 6e 66 29 20 3d |= -1, Er|f(inf) =|
|0000d360| 20 31 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 | 1...}.{|....}...|
|0000d370| 66 75 6e 63 74 69 6f 6e | 20 45 72 66 63 20 28 78 |function| Erfc (x|
|0000d380| 3a 20 65 78 74 65 6e 64 | 65 64 29 3a 20 65 78 74 |: extend|ed): ext|
|0000d390| 65 6e 64 65 64 3b 0d 09 | 7b 09 09 09 09 7d 0d 7b |ended;..|{....}.{|
|0000d3a0| 09 09 72 65 74 75 72 6e | 73 20 74 68 65 20 63 6f |..return|s the co|
|0000d3b0| 6d 70 6c 65 6d 65 6e 74 | 61 72 79 20 65 72 72 6f |mplement|ary erro|
|0000d3c0| 72 20 66 75 6e 63 74 69 | 6f 6e 20 64 65 66 69 6e |r functi|on defin|
|0000d3d0| 65 64 20 61 73 20 31 2d | 65 72 66 28 78 29 09 09 |ed as 1-|erf(x)..|
|0000d3e0| 09 7d 0d 7b 09 09 09 09 | 7d 0d 0d 09 66 75 6e 63 |.}.{....|}...func|
|0000d3f0| 74 69 6f 6e 20 50 45 72 | 66 28 20 78 3a 20 65 78 |tion PEr|f( x: ex|
|0000d400| 74 65 6e 64 65 64 29 3a | 20 65 78 74 65 6e 64 65 |tended):| extende|
|0000d410| 64 3b 0d 7b 20 73 61 6d | 65 20 61 73 20 45 72 66 |d;.{ sam|e as Erf|
|0000d420| 20 62 75 74 20 77 69 74 | 68 20 61 6c 74 65 72 6e | but wit|h altern|
|0000d430| 61 74 69 76 65 20 6e 61 | 6d 65 3a 20 65 72 66 28 |ative na|me: erf(|
|0000d440| 29 20 69 73 20 61 6c 73 | 6f 20 64 65 66 69 6e 65 |) is als|o define|
|0000d450| 64 20 69 6e 20 66 70 2e | 70 20 2d 20 75 73 65 20 |d in fp.|p - use |
|0000d460| 50 45 72 66 28 29 20 74 | 6f 20 61 76 6f 69 64 20 |PErf() t|o avoid |
|0000d470| 63 6f 6e 66 6c 69 63 74 | 73 20 7d 0d 09 66 75 6e |conflict|s }..fun|
|0000d480| 63 74 69 6f 6e 20 50 45 | 72 66 63 28 20 78 3a 20 |ction PE|rfc( x: |
|0000d490| 65 78 74 65 6e 64 65 64 | 29 3a 20 65 78 74 65 6e |extended|): exten|
|0000d4a0| 64 65 64 3b 0d 7b 20 73 | 61 6d 65 20 61 73 20 45 |ded;.{ s|ame as E|
|0000d4b0| 72 66 63 20 62 75 74 20 | 77 69 74 68 20 61 6c 74 |rfc but |with alt|
|0000d4c0| 65 72 6e 61 74 69 76 65 | 20 6e 61 6d 65 3a 20 65 |ernative| name: e|
|0000d4d0| 72 66 63 28 29 20 69 73 | 20 61 6c 73 6f 20 64 65 |rfc() is| also de|
|0000d4e0| 66 69 6e 65 64 20 69 6e | 20 66 70 2e 70 20 2d 20 |fined in| fp.p - |
|0000d4f0| 75 73 65 20 50 45 72 66 | 63 28 29 20 74 6f 20 61 |use PErf|c() to a|
|0000d500| 76 6f 69 64 20 63 6f 6e | 66 6c 69 63 74 73 20 7d |void con|flicts }|
|0000d510| 0d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |....proc|edure Se|
|0000d520| 74 46 69 74 44 65 66 61 | 75 6c 74 73 20 28 61 6c |tFitDefa|ults (al|
|0000d530| 67 6f 72 69 74 68 6d 3a | 20 69 6e 74 65 67 65 72 |gorithm:| integer|
|0000d540| 3b 09 09 7b 20 61 6c 67 | 6f 72 69 74 68 6d 20 74 |;..{ alg|orithm t|
|0000d550| 6f 20 62 65 20 75 73 65 | 64 20 66 6f 72 20 66 69 |o be use|d for fi|
|0000d560| 74 74 69 6e 67 20 09 09 | 09 7d 0d 09 09 09 09 09 |tting ..|.}......|
|0000d570| 09 09 09 09 79 45 72 72 | 44 69 73 74 72 69 62 75 |....yErr|Distribu|
|0000d580| 74 69 6f 6e 3a 20 69 6e | 74 65 67 65 72 3b 20 09 |tion: in|teger; .|
|0000d590| 7b 20 79 20 65 72 72 6f | 72 20 64 69 73 74 72 69 |{ y erro|r distri|
|0000d5a0| 62 75 74 69 6f 6e 3a 20 | 67 61 75 73 73 44 69 73 |bution: |gaussDis|
|0000d5b0| 74 72 2c 20 65 78 74 65 | 6e 64 65 64 45 78 70 44 |tr, exte|ndedExpD|
|0000d5c0| 69 73 74 72 2c 20 6c 6f | 72 65 6e 74 7a 44 69 73 |istr, lo|rentzDis|
|0000d5d0| 74 72 2c 20 61 6e 64 72 | 65 77 44 69 73 74 72 2c |tr, andr|ewDistr,|
|0000d5e0| 20 74 75 6b 65 79 44 69 | 73 74 72 20 09 09 09 7d | tukeyDi|str ...}|
|0000d5f0| 0d 09 09 09 09 09 09 09 | 09 09 78 45 72 72 44 69 |........|..xErrDi|
|0000d600| 73 74 72 69 62 75 74 69 | 6f 6e 3a 20 69 6e 74 65 |stributi|on: inte|
|0000d610| 67 65 72 3b 09 7b 20 78 | 20 65 72 72 6f 72 20 64 |ger;.{ x| error d|
|0000d620| 69 73 74 72 69 62 75 74 | 69 6f 6e 3a 20 67 61 75 |istribut|ion: gau|
|0000d630| 73 73 44 69 73 74 72 2c | 20 65 78 74 65 6e 64 65 |ssDistr,| extende|
|0000d640| 64 45 78 70 44 69 73 74 | 72 2c 20 6c 6f 72 65 6e |dExpDist|r, loren|
|0000d650| 74 7a 44 69 73 74 72 2c | 20 61 6e 64 72 65 77 44 |tzDistr,| andrewD|
|0000d660| 69 73 74 72 2c 20 74 75 | 6b 65 79 44 69 73 74 72 |istr, tu|keyDistr|
|0000d670| 20 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 78 | ...}...|.......x|
|0000d680| 45 72 72 43 6f 6c 75 6d | 6e 3a 20 6c 6f 6e 67 69 |ErrColum|n: longi|
|0000d690| 6e 74 3b 09 7b 20 78 20 | 65 72 72 6f 72 20 63 6f |nt;.{ x |error co|
|0000d6a0| 6c 75 6d 6e 3a 20 3e 30 | 3a 63 6f 6c 75 6d 6e 20 |lumn: >0|:column |
|0000d6b0| 6e 75 6d 62 65 72 2c 20 | 30 3a 6e 6f 6e 65 2c 20 |number, |0:none, |
|0000d6c0| 2d 31 3a 63 6f 6e 73 74 | 61 6e 74 2c 20 2d 32 3a |-1:const|ant, -2:|
|0000d6d0| 70 65 72 63 65 6e 74 20 | 09 09 09 7d 0d 09 09 09 |percent |...}....|
|0000d6e0| 09 09 09 09 09 09 78 45 | 72 72 56 61 6c 75 65 3a |......xE|rrValue:|
|0000d6f0| 20 65 78 74 65 6e 64 65 | 64 3b 09 09 09 7b 20 78 | extende|d;...{ x|
|0000d700| 20 65 72 72 6f 72 20 76 | 61 6c 75 65 20 69 66 20 | error v|alue if |
|0000d710| 63 6f 6e 73 74 61 6e 74 | 20 28 78 45 72 72 43 6f |constant| (xErrCo|
|0000d720| 6c 75 6d 6e 3d 2d 31 29 | 20 6f 72 20 70 65 72 63 |lumn=-1)| or perc|
|0000d730| 65 6e 74 61 67 65 20 28 | 78 45 72 72 43 6f 6c 75 |entage (|xErrColu|
|0000d740| 6d 6e 3d 2d 32 29 20 09 | 09 09 7d 0d 09 09 09 09 |mn=-2) .|..}.....|
|0000d750| 09 09 09 09 09 73 74 6f | 70 54 69 6d 65 3a 20 65 |.....sto|pTime: e|
|0000d760| 78 74 65 6e 64 65 64 29 | 3b 09 09 09 7b 20 63 72 |xtended)|;...{ cr|
|0000d770| 69 74 65 72 69 75 6d 20 | 74 6f 20 73 74 6f 70 20 |iterium |to stop |
|0000d780| 6d 6f 6e 74 65 20 63 61 | 72 6c 6f 20 66 69 74 73 |monte ca|rlo fits|
|0000d790| 2c 20 64 6f 65 73 20 6e | 6f 74 20 73 74 6f 70 20 |, does n|ot stop |
|0000d7a0| 69 66 20 30 20 09 09 09 | 7d 0d 09 09 09 09 09 09 |if 0 ...|}.......|
|0000d7b0| 09 09 09 09 09 09 09 7b | 20 69 6e 74 65 72 70 72 |.......{| interpr|
|0000d7c0| 65 74 65 64 20 61 73 20 | 73 65 63 6f 6e 64 73 20 |eted as |seconds |
|0000d7d0| 69 66 20 6e 65 67 61 74 | 69 76 20 61 6e 64 20 61 |if negat|iv and a|
|0000d7e0| 73 20 69 74 65 72 61 74 | 69 6f 6e 73 20 69 66 20 |s iterat|ions if |
|0000d7f0| 70 6f 73 69 74 69 76 65 | 20 09 09 09 7d 0d 0d 7b |positive| ...}..{|
|0000d800| 09 09 53 65 74 73 20 74 | 68 65 20 65 72 72 6f 72 |..Sets t|he error|
|0000d810| 20 63 6f 6c 75 6d 6e 20 | 61 6e 64 20 74 79 70 65 | column |and type|
|0000d820| 2c 20 74 68 65 20 61 6c | 67 6f 72 69 74 68 6d 20 |, the al|gorithm |
|0000d830| 61 6e 64 20 74 68 65 20 | 73 74 6f 70 70 69 6e 67 |and the |stopping|
|0000d840| 20 63 72 65 74 65 72 69 | 61 09 09 09 7d 0d 7b 09 | creteri|a...}.{.|
|0000d850| 09 74 6f 20 62 65 20 75 | 73 65 64 20 69 6e 20 61 |.to be u|sed in a|
|0000d860| 6c 6c 20 73 75 62 73 65 | 71 75 65 6e 74 20 63 61 |ll subse|quent ca|
|0000d870| 6c 6c 73 20 74 6f 20 46 | 69 74 28 2e 2e 29 09 09 |lls to F|it(..)..|
|0000d880| 09 7d 0d 7b 09 09 09 09 | 7d 0d 0d 09 66 75 6e 63 |.}.{....|}...func|
|0000d890| 74 69 6f 6e 20 4d 61 78 | 69 6d 69 7a 65 20 28 74 |tion Max|imize (t|
|0000d8a0| 68 65 46 75 6e 63 74 69 | 6f 6e 3a 20 53 74 72 32 |heFuncti|on: Str2|
|0000d8b0| 35 35 3b 09 09 09 7b 20 | 74 68 65 20 66 75 6e 63 |55;...{ |the func|
|0000d8c0| 74 69 6f 6e 20 6e 61 6d | 65 20 69 6e 20 74 68 65 |tion nam|e in the|
|0000d8d0| 20 66 75 6e 63 20 6d 65 | 6e 75 20 09 09 09 7d 0d | func me|nu ...}.|
|0000d8e0| 09 09 09 09 09 09 09 09 | 09 70 72 65 63 69 73 69 |........|.precisi|
|0000d8f0| 6f 6e 3a 20 65 78 74 65 | 6e 64 65 64 3b 09 09 09 |on: exte|nded;...|
|0000d900| 09 7b 20 72 65 6c 61 74 | 69 76 65 20 74 6f 6c 65 |.{ relat|ive tole|
|0000d910| 72 61 6e 63 65 20 6f 66 | 20 66 75 6e 63 74 69 6f |rance of| functio|
|0000d920| 6e 20 76 61 6c 75 65 73 | 20 63 61 6c 63 75 6c 61 |n values| calcula|
|0000d930| 74 65 64 20 69 6e 20 74 | 68 65 20 73 69 6d 70 6c |ted in t|he simpl|
|0000d940| 65 78 20 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |ex ...}.|........|
|0000d950| 09 09 09 7b 20 61 6c 67 | 6f 72 69 74 68 6d 2c 20 |...{ alg|orithm, |
|0000d960| 75 73 65 64 20 61 73 20 | 63 6f 6e 76 65 72 67 65 |used as |converge|
|0000d970| 6e 63 65 20 63 72 69 74 | 65 72 69 75 6d 20 09 09 |nce crit|erium ..|
|0000d980| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 76 61 72 79 |.}......|....vary|
|0000d990| 58 3a 20 42 6f 6f 6c 65 | 61 6e 3b 09 09 09 09 09 |X: Boole|an;.....|
|0000d9a0| 7b 20 74 72 75 65 2c 20 | 69 66 20 74 68 65 20 78 |{ true, |if the x|
|0000d9b0| 2d 76 61 6c 75 65 73 20 | 73 68 6f 75 6c 64 20 62 |-values |should b|
|0000d9c0| 65 20 76 61 72 69 65 64 | 2c 20 74 6f 6f 20 09 09 |e varied|, too ..|
|0000d9d0| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 76 61 72 20 |.}......|....var |
|0000d9e0| 78 2c 20 79 3a 20 65 78 | 74 65 6e 64 65 64 29 3a |x, y: ex|tended):|
|0000d9f0| 20 42 6f 6f 6c 65 61 6e | 3b 09 09 7b 20 6f 6e 20 | Boolean|;..{ on |
|0000da00| 69 6e 70 75 74 3a 20 66 | 69 78 65 64 20 78 2d 76 |input: f|ixed x-v|
|0000da10| 61 6c 75 65 2c 20 6f 72 | 20 73 74 61 72 74 69 6e |alue, or| startin|
|0000da20| 67 20 78 2d 76 61 6c 75 | 65 20 69 66 20 76 61 72 |g x-valu|e if var|
|0000da30| 79 58 20 69 73 20 74 72 | 75 65 20 09 09 09 7d 0d |yX is tr|ue ...}.|
|0000da40| 09 09 09 09 09 09 09 09 | 09 09 09 7b 20 72 65 74 |........|...{ ret|
|0000da50| 75 72 6e 65 64 20 78 2d | 76 61 6c 75 65 20 6f 66 |urned x-|value of|
|0000da60| 20 6d 61 78 69 6d 75 6d | 20 66 6f 75 6e 64 20 09 | maximum| found .|
|0000da70| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 09 09 7b |..}.....|.......{|
|0000da80| 20 72 65 74 75 72 6e 65 | 64 20 79 2d 76 61 6c 75 | returne|d y-valu|
|0000da90| 65 20 6f 66 20 6d 61 78 | 69 6d 75 6d 20 66 6f 75 |e of max|imum fou|
|0000daa0| 6e 64 20 09 09 09 7d 0d | 0d 7b 09 09 20 56 61 72 |nd ...}.|.{.. Var|
|0000dab0| 69 65 73 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |ies the |paramete|
|0000dac0| 72 73 20 6f 66 20 74 68 | 65 20 66 75 6e 63 74 69 |rs of th|e functi|
|0000dad0| 6f 6e 20 28 61 6e 64 20 | 78 20 69 66 20 76 61 72 |on (and |x if var|
|0000dae0| 79 58 20 69 73 20 74 72 | 75 65 29 20 75 6e 74 69 |yX is tr|ue) unti|
|0000daf0| 6c 09 09 09 7d 0d 7b 09 | 09 20 74 68 65 20 66 75 |l...}.{.|. the fu|
|0000db00| 6e 63 74 69 6f 6e 20 76 | 61 6c 75 65 20 72 65 61 |nction v|alue rea|
|0000db10| 63 68 65 73 20 61 20 6d | 61 78 69 6d 75 6d 2e 20 |ches a m|aximum. |
|0000db20| 49 74 20 69 73 20 61 20 | 70 72 6f 63 65 64 75 72 |It is a |procedur|
|0000db30| 65 20 63 6f 6d 70 61 72 | 61 62 6c 65 20 74 6f 09 |e compar|able to.|
|0000db40| 09 09 7d 0d 7b 09 09 20 | 66 69 74 74 69 6e 67 2e |..}.{.. |fitting.|
|0000db50| 20 54 68 65 20 61 6c 67 | 6f 72 69 74 68 6d 20 75 | The alg|orithm u|
|0000db60| 73 65 64 20 69 73 20 74 | 68 65 20 53 69 6d 70 6c |sed is t|he Simpl|
|0000db70| 65 78 20 6d 65 74 68 6f | 64 2e 20 09 09 09 7d 0d |ex metho|d. ...}.|
|0000db80| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 4d 69 6e 69 |...funct|ion Mini|
|0000db90| 6d 69 7a 65 20 28 74 68 | 65 46 75 6e 63 74 69 6f |mize (th|eFunctio|
|0000dba0| 6e 3a 20 53 74 72 32 35 | 35 3b 20 70 72 65 63 69 |n: Str25|5; preci|
|0000dbb0| 73 69 6f 6e 3a 20 65 78 | 74 65 6e 64 65 64 3b 20 |sion: ex|tended; |
|0000dbc0| 76 61 72 79 58 3a 20 42 | 6f 6f 6c 65 61 6e 3b 20 |varyX: B|oolean; |
|0000dbd0| 76 61 72 20 78 2c 20 79 | 3a 20 65 78 74 65 6e 64 |var x, y|: extend|
|0000dbe0| 65 64 29 3a 20 42 6f 6f | 6c 65 61 6e 3b 0d 0d 7b |ed): Boo|lean;..{|
|0000dbf0| 09 09 20 53 65 65 20 74 | 68 65 20 63 6f 6d 6d 65 |.. See t|he comme|
|0000dc00| 6e 74 20 66 6f 72 20 22 | 4d 61 78 69 6d 69 7a 65 |nt for "|Maximize|
|0000dc10| 22 2c 20 77 68 69 63 68 | 20 77 6f 72 6b 73 20 69 |", which| works i|
|0000dc20| 6e 20 74 68 65 20 73 61 | 6d 65 20 77 61 79 2e 20 |n the sa|me way. |
|0000dc30| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|0000dc40| 65 20 53 65 74 45 72 72 | 6f 72 41 6e 61 6c 79 73 |e SetErr|orAnalys|
|0000dc50| 69 73 20 28 63 6f 6e 66 | 69 64 65 6e 63 65 3a 20 |is (conf|idence: |
|0000dc60| 65 78 74 65 6e 64 65 64 | 3b 09 7b 20 63 6f 6e 66 |extended|;.{ conf|
|0000dc70| 69 64 65 6e 63 65 20 69 | 6e 74 65 72 76 61 6c 20 |idence i|nterval |
|0000dc80| 69 6e 20 25 20 28 73 65 | 74 20 74 6f 20 30 20 74 |in % (se|t to 0 t|
|0000dc90| 6f 20 64 69 73 61 62 6c | 65 20 65 72 72 6f 72 20 |o disabl|e error |
|0000dca0| 61 6e 61 6c 79 69 73 29 | 20 09 09 09 7d 0d 09 09 |analyis)| ...}...|
|0000dcb0| 09 09 09 09 09 09 09 69 | 74 65 72 61 74 69 6f 6e |.......i|teration|
|0000dcc0| 73 3a 20 6c 6f 6e 67 69 | 6e 74 29 3b 09 09 09 09 |s: longi|nt);....|
|0000dcd0| 7b 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 72 |{ number| of iter|
|0000dce0| 61 74 69 6f 6e 73 20 28 | 73 65 74 20 74 6f 20 30 |ations (|set to 0|
|0000dcf0| 20 74 6f 20 64 69 73 61 | 62 6c 65 20 65 72 72 6f | to disa|ble erro|
|0000dd00| 72 20 61 6e 61 6c 79 69 | 73 29 20 09 09 09 7d 0d |r analyi|s) ...}.|
|0000dd10| 0d 7b 09 09 20 53 65 74 | 73 20 74 68 65 20 6f 70 |.{.. Set|s the op|
|0000dd20| 74 69 6f 6e 73 20 66 6f | 72 20 65 72 72 6f 72 20 |tions fo|r error |
|0000dd30| 61 6e 61 6c 79 73 69 73 | 20 74 6f 20 62 65 20 75 |analysis| to be u|
|0000dd40| 73 65 64 20 69 6e 20 74 | 68 65 20 6e 65 78 74 20 |sed in t|he next |
|0000dd50| 63 61 6c 6c 20 74 6f 20 | 46 69 74 28 2e 2e 29 20 |call to |Fit(..) |
|0000dd60| 09 09 09 7d 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |...}....|procedur|
|0000dd70| 65 20 43 6f 6e 66 69 64 | 65 6e 63 65 49 6e 74 65 |e Confid|enceInte|
|0000dd80| 72 76 61 6c 20 28 69 3a | 20 69 6e 74 65 67 65 72 |rval (i:| integer|
|0000dd90| 3b 20 76 61 72 20 6d 69 | 6e 2c 20 6d 61 78 3a 20 |; var mi|n, max: |
|0000dda0| 65 78 74 65 6e 64 65 64 | 29 3b 0d 0d 7b 09 09 72 |extended|);..{..r|
|0000ddb0| 65 74 75 72 6e 73 20 69 | 6e 20 6d 69 6e 2c 6d 61 |eturns i|n min,ma|
|0000ddc0| 78 20 74 68 65 20 63 6f | 6e 66 69 64 65 6e 63 65 |x the co|nfidence|
|0000ddd0| 20 69 6e 74 65 72 76 61 | 6c 20 66 6f 72 20 70 61 | interva|l for pa|
|0000dde0| 72 61 6d 65 74 65 72 20 | 69 2c 20 61 73 20 63 61 |rameter |i, as ca|
|0000ddf0| 6c 63 75 6c 61 74 65 64 | 20 61 66 74 65 72 09 09 |lculated| after..|
|0000de00| 09 7d 0d 7b 09 09 74 68 | 65 20 6c 61 73 74 20 66 |.}.{..th|e last f|
|0000de10| 69 74 20 62 79 20 74 68 | 65 20 65 72 72 6f 72 20 |it by th|e error |
|0000de20| 61 6e 61 6c 79 73 69 73 | 20 61 6c 67 6f 72 69 74 |analysis| algorit|
|0000de30| 68 6d 2e 09 09 09 7d 0d | 0d 7b 09 09 4e 6f 74 65 |hm....}.|.{..Note|
|0000de40| 20 74 68 61 74 20 74 68 | 69 73 20 72 6f 75 74 69 | that th|is routi|
|0000de50| 6e 65 20 64 6f 65 73 20 | 6e 6f 74 20 72 65 74 75 |ne does |not retu|
|0000de60| 72 6e 20 6d 65 61 6e 69 | 6e 67 66 75 6c 20 72 65 |rn meani|ngful re|
|0000de70| 73 75 6c 74 73 20 69 66 | 20 74 68 65 20 63 6f 6e |sults if| the con|
|0000de80| 66 69 64 65 6e 63 65 09 | 09 09 7d 0d 7b 09 09 69 |fidence.|..}.{..i|
|0000de90| 6e 74 65 72 76 61 6c 20 | 66 6f 72 20 61 20 67 69 |nterval |for a gi|
|0000dea0| 76 65 6e 20 76 61 6c 75 | 65 20 77 61 73 20 6e 6f |ven valu|e was no|
|0000deb0| 74 20 64 65 74 65 72 6d | 69 6e 65 64 2c 20 65 2e |t determ|ined, e.|
|0000dec0| 67 2e 20 62 65 63 61 75 | 73 65 20 74 68 69 73 20 |g. becau|se this |
|0000ded0| 70 61 72 61 6d 65 74 65 | 72 09 09 09 7d 0d 7b 09 |paramete|r...}.{.|
|0000dee0| 09 77 61 73 20 6e 6f 74 | 20 61 63 74 69 76 65 20 |.was not| active |
|0000def0| 64 75 72 69 6e 67 20 61 | 20 66 69 74 2e 09 09 09 |during a| fit....|
|0000df00| 7d 0d 0d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 43 |}.....fu|nction C|
|0000df10| 61 6c 63 53 74 61 74 20 | 28 63 6f 6c 75 6d 6e 3a |alcStat |(column:|
|0000df20| 20 6c 6f 6e 67 69 6e 74 | 3b 09 09 09 09 7b 20 63 | longint|;....{ c|
|0000df30| 6f 6c 75 6d 6e 20 6e 75 | 6d 62 65 72 20 09 09 09 |olumn nu|mber ...|
|0000df40| 7d 0d 09 09 09 09 09 09 | 09 09 09 73 65 6c 52 6f |}.......|...selRo|
|0000df50| 77 73 4f 6e 6c 79 3a 20 | 42 6f 6f 6c 65 61 6e 3b |wsOnly: |Boolean;|
|0000df60| 20 09 09 7b 20 73 65 74 | 20 74 6f 20 74 72 75 65 | ..{ set| to true|
|0000df70| 20 74 6f 20 75 73 65 20 | 6f 6e 6c 79 20 74 68 65 | to use |only the|
|0000df80| 20 73 65 6c 65 63 74 65 | 64 20 72 6f 77 73 20 09 | selecte|d rows .|
|0000df90| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 77 69 74 |..}.....|.....wit|
|0000dfa0| 68 42 61 73 69 63 73 3a | 20 42 6f 6f 6c 65 61 6e |hBasics:| Boolean|
|0000dfb0| 3b 20 09 09 7b 20 63 61 | 6c 63 75 6c 61 74 65 20 |; ..{ ca|lculate |
|0000dfc0| 62 61 73 69 63 20 69 6e | 66 6f 72 6d 61 74 69 6f |basic in|formatio|
|0000dfd0| 6e 20 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |n ...}..|........|
|0000dfe0| 77 69 74 68 53 6b 65 77 | 41 6e 64 43 75 72 74 3a |withSkew|AndCurt:|
|0000dff0| 20 42 6f 6f 6c 65 61 6e | 3b 20 09 7b 20 63 61 6c | Boolean|; .{ cal|
|0000e000| 63 75 6c 61 74 65 20 73 | 6b 65 77 6e 65 73 73 20 |culate s|kewness |
|0000e010| 61 6e 64 20 63 75 72 74 | 6f 73 69 73 20 09 09 09 |and curt|osis ...|
|0000e020| 7d 0d 09 09 09 09 09 09 | 09 09 09 77 69 74 68 4d |}.......|...withM|
|0000e030| 65 64 69 61 6e 3a 20 42 | 6f 6f 6c 65 61 6e 29 3a |edian: B|oolean):|
|0000e040| 20 42 6f 6f 6c 65 61 6e | 3b 09 09 7b 20 63 61 6c | Boolean|;..{ cal|
|0000e050| 63 75 6c 61 74 65 20 6d | 65 64 69 61 6e 20 09 09 |culate m|edian ..|
|0000e060| 09 7d 0d 0d 7b 09 09 72 | 65 74 75 72 6e 73 20 66 |.}..{..r|eturns f|
|0000e070| 61 6c 73 65 20 69 66 20 | 61 6e 20 65 72 72 6f 72 |alse if |an error|
|0000e080| 20 6f 63 63 75 72 72 65 | 64 2c 20 74 72 75 65 20 | occurre|d, true |
|0000e090| 69 66 20 6f 6b 09 09 09 | 7d 0d 7b 09 20 09 73 65 |if ok...|}.{. .se|
|0000e0a0| 74 20 22 63 6f 6c 75 6d | 6e 22 20 74 6f 3a 20 20 |t "colum|n" to: |
|0000e0b0| 30 20 74 6f 20 69 6e 63 | 6c 75 64 65 20 61 6c 6c |0 to inc|lude all|
|0000e0c0| 20 63 6f 6c 75 6d 6e 73 | 2e 09 09 09 7d 0d 7b 09 | columns|....}.{.|
|0000e0d0| 09 09 09 09 09 20 2d 31 | 20 74 6f 20 75 73 65 20 |..... -1| to use |
|0000e0e0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 73 65 6c 65 |the curr|ent sele|
|0000e0f0| 63 74 69 6f 6e 09 09 09 | 7d 0d 7b 09 09 73 65 74 |ction...|}.{..set|
|0000e100| 20 74 68 65 20 42 6f 6f | 6c 65 61 6e 20 70 61 72 | the Boo|lean par|
|0000e110| 61 6d 65 74 65 72 73 20 | 63 6f 72 72 65 73 70 6f |ameters |correspo|
|0000e120| 6e 64 69 6e 67 20 74 6f | 20 74 68 65 20 69 6e 66 |nding to| the inf|
|0000e130| 6f 72 6d 61 74 69 6f 6e | 20 79 6f 75 09 09 09 7d |ormation| you...}|
|0000e140| 0d 7b 09 09 77 61 6e 74 | 20 74 6f 20 63 61 6c 63 |.{..want| to calc|
|0000e150| 75 6c 61 74 65 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |ulate...|.}.{....|
|0000e160| 09 7d 0d 7b 09 09 59 6f | 75 20 77 69 6c 6c 20 75 |.}.{..Yo|u will u|
|0000e170| 73 65 20 47 65 74 42 61 | 73 69 63 73 2c 20 47 65 |se GetBa|sics, Ge|
|0000e180| 74 53 6b 65 77 2c 20 47 | 65 74 4d 65 64 69 61 6e |tSkew, G|etMedian|
|0000e190| 20 74 6f 20 72 65 74 72 | 69 65 76 65 20 74 68 69 | to retr|ieve thi|
|0000e1a0| 73 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 09 09 09 |s inform|ation...|
|0000e1b0| 7d 0d 7b 09 09 09 09 7d | 0d 0d 09 70 72 6f 63 65 |}.{....}|...proce|
|0000e1c0| 64 75 72 65 20 47 65 74 | 42 61 73 69 63 73 20 28 |dure Get|Basics (|
|0000e1d0| 76 61 72 20 63 6f 75 6e | 74 3a 20 6c 6f 6e 67 69 |var coun|t: longi|
|0000e1e0| 6e 74 3b 20 09 09 09 7b | 20 6e 75 6d 62 65 72 20 |nt; ...{| number |
|0000e1f0| 6f 66 20 64 61 74 61 20 | 70 72 6f 63 65 73 73 65 |of data |processe|
|0000e200| 64 20 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |d ...}..|........|
|0000e210| 76 61 72 20 73 75 6d 2c | 20 09 09 09 7b 20 73 75 |var sum,| ...{ su|
|0000e220| 6d 20 6f 66 20 61 6c 6c | 20 74 68 65 73 65 20 64 |m of all| these d|
|0000e230| 61 74 61 20 09 09 09 09 | 7d 0d 09 09 09 09 09 09 |ata ....|}.......|
|0000e240| 09 09 09 6d 65 61 6e 2c | 20 09 09 09 7b 20 74 68 |...mean,| ...{ th|
|0000e250| 65 69 72 20 61 76 65 72 | 61 67 65 09 09 09 09 09 |eir aver|age.....|
|0000e260| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 76 61 72 69 |.}......|....vari|
|0000e270| 61 6e 63 65 2c 09 09 7b | 20 76 61 72 69 61 6e 63 |ance,..{| varianc|
|0000e280| 65 20 3d 20 28 73 74 64 | 44 65 76 29 5e 32 09 09 |e = (std|Dev)^2..|
|0000e290| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 73 74 64 |..}.....|.....std|
|0000e2a0| 44 65 76 2c 09 09 09 7b | 20 74 68 65 20 73 74 61 |Dev,...{| the sta|
|0000e2b0| 6e 64 61 72 64 20 64 65 | 76 69 61 74 69 6f 6e 09 |ndard de|viation.|
|0000e2c0| 09 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 6d 65 |...}....|......me|
|0000e2d0| 61 6e 41 62 73 44 65 76 | 3a 20 65 78 74 65 6e 64 |anAbsDev|: extend|
|0000e2e0| 65 64 29 3b 09 7b 20 6d | 65 61 6e 20 61 62 73 6f |ed);.{ m|ean abso|
|0000e2f0| 6c 75 74 65 20 64 65 76 | 69 61 74 69 6f 6e 20 09 |lute dev|iation .|
|0000e300| 09 09 09 7d 0d 0d 7b 09 | 09 72 65 74 75 72 6e 73 |...}..{.|.returns|
|0000e310| 20 73 6f 6d 65 20 72 65 | 73 75 6c 74 73 20 6f 66 | some re|sults of|
|0000e320| 20 74 68 65 20 6c 61 73 | 74 20 73 74 61 74 69 73 | the las|t statis|
|0000e330| 74 69 63 73 20 65 76 61 | 6c 75 61 74 69 6f 6e 09 |tics eva|luation.|
|0000e340| 09 09 7d 0d 7b 09 09 43 | 61 6c 63 53 74 61 74 20 |..}.{..C|alcStat |
|0000e350| 6d 75 73 74 20 68 61 76 | 65 20 62 65 65 6e 20 63 |must hav|e been c|
|0000e360| 61 6c 6c 65 64 20 77 69 | 74 68 20 74 68 65 20 77 |alled wi|th the w|
|0000e370| 69 74 68 42 61 73 69 63 | 73 20 70 61 72 61 6d 65 |ithBasic|s parame|
|0000e380| 74 65 72 09 09 09 7d 0d | 7b 09 09 73 65 74 20 74 |ter...}.|{..set t|
|0000e390| 6f 20 74 72 75 65 20 62 | 65 66 6f 72 65 20 74 68 |o true b|efore th|
|0000e3a0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 63 61 6e 20 |is funct|ion can |
|0000e3b0| 62 65 20 75 73 65 64 2e | 09 09 09 7d 0d 7b 09 09 |be used.|...}.{..|
|0000e3c0| 09 09 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |..}...pr|ocedure |
|0000e3d0| 47 65 74 53 6b 65 77 41 | 6e 64 4b 75 72 74 20 28 |GetSkewA|ndKurt (|
|0000e3e0| 76 61 72 20 63 6f 75 6e | 74 3a 20 6c 6f 6e 67 69 |var coun|t: longi|
|0000e3f0| 6e 74 3b 20 09 09 7b 20 | 6e 75 6d 62 65 72 20 6f |nt; ..{ |number o|
|0000e400| 66 20 64 61 74 61 20 70 | 72 6f 63 65 73 73 65 64 |f data p|rocessed|
|0000e410| 20 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 76 | ...}...|.......v|
|0000e420| 61 72 20 6d 65 61 6e 2c | 20 09 09 7b 20 31 73 74 |ar mean,| ..{ 1st|
|0000e430| 20 6d 6f 6d 65 6e 74 20 | 6f 66 20 64 69 73 74 72 | moment |of distr|
|0000e440| 69 62 75 74 69 6f 6e 3a | 20 61 76 65 72 61 67 65 |ibution:| average|
|0000e450| 20 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 09 | ...}...|........|
|0000e460| 09 7b 20 6d 65 61 73 75 | 72 65 20 74 68 65 20 61 |.{ measu|re the a|
|0000e470| 76 65 72 61 67 65 20 76 | 61 6c 75 65 20 6f 66 20 |verage v|alue of |
|0000e480| 61 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 09 |a distri|bution .|
|0000e490| 09 09 7d 0d 09 09 09 09 | 09 09 09 09 09 76 61 72 |..}.....|.....var|
|0000e4a0| 69 61 6e 63 65 2c 09 7b | 20 32 6e 64 20 6d 6f 6d |iance,.{| 2nd mom|
|0000e4b0| 65 6e 74 20 6f 66 20 64 | 69 73 74 72 69 62 75 74 |ent of d|istribut|
|0000e4c0| 69 6f 6e 3a 20 76 61 72 | 69 61 6e 63 65 20 09 09 |ion: var|iance ..|
|0000e4d0| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 09 09 7b 20 |.}......|......{ |
|0000e4e0| 74 68 65 20 73 71 75 61 | 72 65 20 6f 66 20 74 68 |the squa|re of th|
|0000e4f0| 65 20 73 74 61 6e 64 61 | 72 64 20 64 65 76 69 61 |e standa|rd devia|
|0000e500| 74 69 6f 6e 20 09 09 09 | 7d 0d 09 09 09 09 09 09 |tion ...|}.......|
|0000e510| 09 09 09 73 6b 65 77 6e | 65 73 73 2c 20 09 7b 20 |...skewn|ess, .{ |
|0000e520| 33 64 20 6d 6f 6d 65 6e | 74 20 6f 66 20 64 69 73 |3d momen|t of dis|
|0000e530| 74 72 69 62 75 74 69 6f | 6e 3a 20 73 6b 65 77 6e |tributio|n: skewn|
|0000e540| 65 73 73 20 09 09 09 7d | 0d 09 09 09 09 09 09 09 |ess ...}|........|
|0000e550| 09 09 09 09 7b 20 63 68 | 61 72 61 63 74 65 72 69 |....{ ch|aracteri|
|0000e560| 7a 65 73 20 74 68 65 20 | 61 73 79 6d 6d 65 74 72 |zes the |asymmetr|
|0000e570| 79 20 6f 66 20 61 20 64 | 69 73 74 72 69 62 75 74 |y of a d|istribut|
|0000e580| 69 6f 6e 20 61 72 6f 75 | 6e 64 20 69 74 73 20 6d |ion arou|nd its m|
|0000e590| 65 61 6e 20 09 09 09 7d | 0d 09 09 09 09 09 09 09 |ean ...}|........|
|0000e5a0| 09 09 6b 75 72 74 6f 73 | 69 73 3a 20 65 78 74 65 |..kurtos|is: exte|
|0000e5b0| 6e 64 65 64 29 3b 09 7b | 20 34 74 68 20 6d 6f 6d |nded);.{| 4th mom|
|0000e5c0| 65 6e 74 20 6f 66 20 64 | 69 73 74 72 69 62 75 74 |ent of d|istribut|
|0000e5d0| 69 6f 6e 3a 20 6b 75 72 | 74 6f 73 69 73 20 09 09 |ion: kur|tosis ..|
|0000e5e0| 09 7d 0d 09 09 09 09 09 | 09 09 09 09 09 09 7b 20 |.}......|......{ |
|0000e5f0| 6d 65 61 73 75 72 65 20 | 74 68 65 20 72 65 6c 61 |measure |the rela|
|0000e600| 74 69 76 65 20 70 65 61 | 6b 65 64 6e 65 73 73 20 |tive pea|kedness |
|0000e610| 6f 72 20 66 6c 61 74 6e | 65 73 73 20 6f 66 20 61 |or flatn|ess of a|
|0000e620| 20 64 69 73 74 72 69 62 | 75 74 69 6f 6e 20 09 09 | distrib|ution ..|
|0000e630| 09 7d 0d 0d 7b 09 09 72 | 65 74 75 72 6e 73 20 73 |.}..{..r|eturns s|
|0000e640| 6f 6d 65 20 72 65 73 75 | 6c 74 73 20 6f 66 20 74 |ome resu|lts of t|
|0000e650| 68 65 20 6c 61 73 74 20 | 73 74 61 74 69 73 74 69 |he last |statisti|
|0000e660| 63 73 20 65 76 61 6c 75 | 61 74 69 6f 6e 09 09 09 |cs evalu|ation...|
|0000e670| 7d 0d 7b 09 09 43 61 6c | 63 53 74 61 74 20 6d 75 |}.{..Cal|cStat mu|
|0000e680| 73 74 20 68 61 76 65 20 | 62 65 65 6e 20 63 61 6c |st have |been cal|
|0000e690| 6c 65 64 20 77 69 74 68 | 20 74 68 65 20 77 69 74 |led with| the wit|
|0000e6a0| 68 53 6b 65 77 41 6e 64 | 43 75 72 74 20 70 61 72 |hSkewAnd|Curt par|
|0000e6b0| 61 6d 65 74 65 72 09 09 | 09 7d 0d 7b 09 09 73 65 |ameter..|.}.{..se|
|0000e6c0| 74 20 74 6f 20 74 72 75 | 65 20 62 65 66 6f 72 65 |t to tru|e before|
|0000e6d0| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 | this fu|nction c|
|0000e6e0| 61 6e 20 62 65 20 75 73 | 65 64 2e 09 09 09 7d 0d |an be us|ed....}.|
|0000e6f0| 7b 09 09 09 09 7d 0d 0d | 0d 09 70 72 6f 63 65 64 |{....}..|..proced|
|0000e700| 75 72 65 20 47 65 74 4d | 65 64 69 61 6e 20 28 76 |ure GetM|edian (v|
|0000e710| 61 72 20 63 6f 75 6e 74 | 3a 20 6c 6f 6e 67 69 6e |ar count|: longin|
|0000e720| 74 3b 20 09 09 7b 20 6e | 75 6d 62 65 72 20 6f 66 |t; ..{ n|umber of|
|0000e730| 20 64 61 74 61 20 70 72 | 6f 63 65 73 73 65 64 20 | data pr|ocessed |
|0000e740| 09 09 09 7d 0d 09 09 09 | 09 09 09 09 09 09 76 61 |...}....|......va|
|0000e750| 72 20 6d 65 61 6e 2c 20 | 09 09 7b 20 61 76 65 72 |r mean, |..{ aver|
|0000e760| 61 67 65 20 6f 76 65 72 | 20 61 6c 6c 20 64 61 74 |age over| all dat|
|0000e770| 61 20 09 09 09 7d 0d 09 | 09 09 09 09 09 09 09 09 |a ...}..|........|
|0000e780| 6d 65 64 69 61 6e 2c 09 | 09 7b 20 74 68 65 20 64 |median,.|.{ the d|
|0000e790| 61 74 61 20 69 6e 20 74 | 68 65 20 6d 69 64 74 68 |ata in t|he midth|
|0000e7a0| 20 6f 66 20 74 68 65 20 | 6f 72 64 65 72 65 64 20 | of the |ordered |
|0000e7b0| 73 65 71 75 65 6e 63 65 | 20 6f 66 20 64 61 74 61 |sequence| of data|
|0000e7c0| 20 09 09 09 7d 0d 09 09 | 09 09 09 09 09 09 09 6d | ...}...|.......m|
|0000e7d0| 69 6e 69 6d 75 6d 2c 20 | 09 7b 20 73 6d 61 6c 6c |inimum, |.{ small|
|0000e7e0| 65 73 74 20 28 6c 61 72 | 67 65 73 74 20 6e 65 67 |est (lar|gest neg|
|0000e7f0| 61 74 69 76 65 29 20 76 | 61 6c 75 65 20 66 6f 75 |ative) v|alue fou|
|0000e800| 6e 64 20 09 09 09 7d 0d | 09 09 09 09 09 09 09 09 |nd ...}.|........|
|0000e810| 09 6d 61 78 69 6d 75 6d | 3a 20 65 78 74 65 6e 64 |.maximum|: extend|
|0000e820| 65 64 29 3b 09 7b 20 6c | 61 72 67 65 73 74 20 76 |ed);.{ l|argest v|
|0000e830| 61 6c 75 65 20 66 6f 75 | 6e 64 20 09 09 09 7d 0d |alue fou|nd ...}.|
|0000e840| 0d 7b 09 09 72 65 74 75 | 72 6e 73 20 73 6f 6d 65 |.{..retu|rns some|
|0000e850| 20 72 65 73 75 6c 74 73 | 20 6f 66 20 74 68 65 20 | results| of the |
|0000e860| 6c 61 73 74 20 73 74 61 | 74 69 73 74 69 63 73 20 |last sta|tistics |
|0000e870| 65 76 61 6c 75 61 74 69 | 6f 6e 09 09 09 7d 0d 7b |evaluati|on...}.{|
|0000e880| 09 09 43 61 6c 63 53 74 | 61 74 20 6d 75 73 74 20 |..CalcSt|at must |
|0000e890| 68 61 76 65 20 62 65 65 | 6e 20 63 61 6c 6c 65 64 |have bee|n called|
|0000e8a0| 20 77 69 74 68 20 74 68 | 65 20 77 69 74 68 4d 65 | with th|e withMe|
|0000e8b0| 64 69 61 6e 20 70 61 72 | 61 6d 65 74 65 72 09 09 |dian par|ameter..|
|0000e8c0| 09 7d 0d 7b 09 09 73 65 | 74 20 74 6f 20 74 72 75 |.}.{..se|t to tru|
|0000e8d0| 65 20 62 65 66 6f 72 65 | 20 74 68 69 73 20 66 75 |e before| this fu|
|0000e8e0| 6e 63 74 69 6f 6e 20 63 | 61 6e 20 62 65 20 75 73 |nction c|an be us|
|0000e8f0| 65 64 2e 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |ed....}.|{....}..|
|0000e900| 0d 0d 0d 0d 0d 7b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....{**|********|
|0000e910| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e950| 2a 2a 2a 2a 09 09 09 7d | 0d 7b 2a 2a 2a 2a 2a 2a |****...}|.{******|
|0000e960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e970| 2a 2a 20 64 61 74 61 20 | 61 63 63 65 73 73 20 72 |** data |access r|
|0000e980| 6f 75 74 69 6e 65 73 20 | 2a 2a 2a 2a 2a 2a 2a 2a |outines |********|
|0000e990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|0000e9a0| 2a 2a 2a 2a 2a 2a 2a 2a | 09 09 09 7d 0d 0d 09 66 |********|...}...f|
|0000e9b0| 75 6e 63 74 69 6f 6e 20 | 58 43 6f 6c 75 6d 6e 3a |unction |XColumn:|
|0000e9c0| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 7b 20 52 65 74 75 | longint|;.{ Retu|
|0000e9d0| 72 6e 73 20 74 68 65 20 | 63 6f 6c 75 6d 6e 20 6e |rns the |column n|
|0000e9e0| 75 6d 62 65 72 20 6f 66 | 20 74 68 65 20 78 20 63 |umber of| the x c|
|0000e9f0| 6f 6c 75 6d 6e 20 69 6e | 20 74 68 65 20 63 75 72 |olumn in| the cur|
|0000ea00| 72 65 6e 74 20 64 61 74 | 61 20 77 69 6e 64 6f 77 |rent dat|a window|
|0000ea10| 2e 20 52 65 74 75 72 6e | 73 20 7a 65 72 6f 20 69 |. Return|s zero i|
|0000ea20| 66 20 6e 6f 09 09 09 7d | 0d 7b 78 2d 43 6f 6c 75 |f no...}|.{x-Colu|
|0000ea30| 6d 6e 20 69 73 20 64 65 | 66 69 6e 65 64 2e 09 09 |mn is de|fined...|
|0000ea40| 09 7d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 59 43 |.}...fun|ction YC|
|0000ea50| 6f 6c 75 6d 6e 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |olumn: l|ongint;.|
|0000ea60| 7b 20 52 65 74 75 72 6e | 73 20 74 68 65 20 63 6f |{ Return|s the co|
|0000ea70| 6c 75 6d 6e 20 6e 75 6d | 62 65 72 20 6f 66 20 74 |lumn num|ber of t|
|0000ea80| 68 65 20 79 20 63 6f 6c | 75 6d 6e 20 69 6e 20 74 |he y col|umn in t|
|0000ea90| 68 65 20 63 75 72 72 65 | 6e 74 20 64 61 74 61 20 |he curre|nt data |
|0000eaa0| 77 69 6e 64 6f 77 2e 20 | 52 65 74 75 72 6e 73 20 |window. |Returns |
|0000eab0| 7a 65 72 6f 20 69 66 20 | 6e 6f 09 09 09 7d 0d 7b |zero if |no...}.{|
|0000eac0| 79 2d 43 6f 6c 75 6d 6e | 20 69 73 20 64 65 66 69 |y-Column| is defi|
|0000ead0| 6e 65 64 2e 09 09 09 7d | 0d 0d 09 66 75 6e 63 74 |ned....}|...funct|
|0000eae0| 69 6f 6e 20 58 45 72 72 | 43 6f 6c 75 6d 6e 3a 20 |ion XErr|Column: |
|0000eaf0| 6c 6f 6e 67 69 6e 74 3b | 0d 7b 20 52 65 74 75 72 |longint;|.{ Retur|
|0000eb00| 6e 73 20 74 68 65 20 63 | 6f 6c 75 6d 6e 20 6e 75 |ns the c|olumn nu|
|0000eb10| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 c6 78 20 63 |mber of |the .x c|
|0000eb20| 6f 6c 75 6d 20 69 6e 20 | 74 68 65 20 63 75 72 72 |olum in |the curr|
|0000eb30| 65 6e 74 20 64 61 74 61 | 20 77 69 6e 64 6f 77 2e |ent data| window.|
|0000eb40| 20 52 65 74 75 72 6e 73 | 20 7a 65 72 6f 20 69 66 | Returns| zero if|
|0000eb50| 20 6e 6f 09 09 09 7d 0d | 7b c6 78 2d 43 6f 6c 75 | no...}.|{.x-Colu|
|0000eb60| 6d 6e 20 69 73 20 64 65 | 66 69 6e 65 64 2e 09 09 |mn is de|fined...|
|0000eb70| 09 7d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 59 45 |.}...fun|ction YE|
|0000eb80| 72 72 43 6f 6c 75 6d 6e | 3a 20 6c 6f 6e 67 69 6e |rrColumn|: longin|
|0000eb90| 74 3b 0d 7b 20 52 65 74 | 75 72 6e 73 20 74 68 65 |t;.{ Ret|urns the|
|0000eba0| 20 63 6f 6c 75 6d 6e 20 | 6e 75 6d 62 65 72 20 6f | column |number o|
|0000ebb0| 66 20 74 68 65 20 c6 79 | 20 63 6f 6c 75 6d 20 69 |f the .y| colum i|
|0000ebc0| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 61 |n the cu|rrent da|
|0000ebd0| 74 61 20 77 69 6e 64 6f | 77 2e 20 52 65 74 75 72 |ta windo|w. Retur|
|0000ebe0| 6e 73 20 7a 65 72 6f 20 | 69 66 20 6e 6f 09 09 09 |ns zero |if no...|
|0000ebf0| 7d 0d 7b c6 79 2d 43 6f | 6c 75 6d 6e 20 69 73 20 |}.{.y-Co|lumn is |
|0000ec00| 64 65 66 69 6e 65 64 2e | 09 09 09 7d 0d 0d 09 70 |defined.|...}...p|
|0000ec10| 72 6f 63 65 64 75 72 65 | 20 53 65 74 44 65 66 61 |rocedure| SetDefa|
|0000ec20| 75 6c 74 43 6f 6c 73 20 | 28 78 43 6f 6c 75 6d 6e |ultCols |(xColumn|
|0000ec30| 2c 20 79 43 6f 6c 75 6d | 6e 2c 20 78 45 72 72 43 |, yColum|n, xErrC|
|0000ec40| 6f 6c 75 6d 6e 2c 20 79 | 45 72 72 43 6f 6c 75 6d |olumn, y|ErrColum|
|0000ec50| 6e 3a 20 6c 6f 6e 67 69 | 6e 74 29 3b 0d 09 7b 20 |n: longi|nt);..{ |
|0000ec60| 09 09 09 7d 0d 7b 09 09 | 53 65 74 73 20 74 68 65 |...}.{..|Sets the|
|0000ec70| 20 64 65 66 61 75 6c 74 | 20 78 2c 20 79 2c 20 c6 | default| x, y, .|
|0000ec80| 78 2c 20 c6 79 20 63 6f | 6c 75 6d 6e 73 20 6f 66 |x, .y co|lumns of|
|0000ec90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 61 74 | the cur|rent dat|
|0000eca0| 61 20 77 69 6e 64 6f 77 | 2e 20 09 09 09 7d 0d 7b |a window|. ...}.{|
|0000ecb0| 09 09 54 68 65 20 64 65 | 66 61 75 6c 74 20 78 20 |..The de|fault x |
|0000ecc0| 61 6e 64 20 79 20 63 6f | 6c 75 6d 6e 73 20 61 72 |and y co|lumns ar|
|0000ecd0| 65 20 74 68 6f 73 65 20 | 63 6f 6c 75 6d 6e 73 20 |e those |columns |
|0000ece0| 74 68 61 74 20 61 72 65 | 20 73 68 6f 77 6e 20 69 |that are| shown i|
|0000ecf0| 6e 20 74 68 65 20 09 09 | 09 7d 0d 7b 09 09 70 72 |n the ..|.}.{..pr|
|0000ed00| 65 76 69 65 77 20 77 69 | 6e 64 6f 77 2e 20 09 09 |eview wi|ndow. ..|
|0000ed10| 09 7d 0d 7b 09 09 44 65 | 66 61 75 6c 74 20 63 6f |.}.{..De|fault co|
|0000ed20| 6c 75 6d 6e 73 20 61 72 | 65 20 61 6c 73 6f 20 69 |lumns ar|e also i|
|0000ed30| 64 65 6e 74 69 66 69 65 | 64 20 62 79 20 73 6d 61 |dentifie|d by sma|
|0000ed40| 6c 6c 20 78 2c 20 79 2c | 20 c6 78 2c 20 c6 79 20 |ll x, y,| .x, .y |
|0000ed50| 6c 65 74 74 65 72 69 6e | 67 20 69 6e 09 09 09 7d |letterin|g in...}|
|0000ed60| 0d 7b 09 09 74 68 65 20 | 63 6f 6c 75 6d 6e 20 68 |.{..the |column h|
|0000ed70| 65 61 64 65 72 2e 09 09 | 09 7d 0d 7b 09 09 53 65 |eader...|.}.{..Se|
|0000ed80| 74 20 78 45 72 72 43 6f | 6c 75 6d 6e 20 61 6e 64 |t xErrCo|lumn and|
|0000ed90| 20 79 45 72 72 43 6f 6c | 75 6d 6e 20 74 6f 20 30 | yErrCol|umn to 0|
|0000eda0| 20 74 6f 20 22 75 6e 64 | 65 66 69 6e 65 22 20 69 | to "und|efine" i|
|0000edb0| 74 2e 09 09 09 7d 0d 7b | 09 09 55 73 65 20 61 20 |t....}.{|..Use a |
|0000edc0| 6e 65 67 61 74 69 76 65 | 20 6e 75 6d 62 65 72 20 |negative| number |
|0000edd0| 69 66 20 79 6f 75 20 64 | 6f 6e 27 74 20 77 61 6e |if you d|on't wan|
|0000ede0| 74 20 74 6f 20 63 68 61 | 6e 67 65 20 61 20 67 69 |t to cha|nge a gi|
|0000edf0| 76 65 6e 20 64 65 66 61 | 75 6c 74 20 63 6f 6c 75 |ven defa|ult colu|
|0000ee00| 6d 6e 2e 09 09 09 7d 0d | 7b 09 09 09 09 7d 0d 0d |mn....}.|{....}..|
|0000ee10| 09 66 75 6e 63 74 69 6f | 6e 20 4e 72 52 6f 77 73 |.functio|n NrRows|
|0000ee20| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 7b 20 72 65 74 |: longin|t;.{ ret|
|0000ee30| 75 72 6e 73 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |urns the| number |
|0000ee40| 6f 66 20 72 6f 77 73 20 | 69 6e 20 74 68 65 20 63 |of rows |in the c|
|0000ee50| 75 72 72 65 6e 74 20 28 | 66 72 6f 6e 74 6d 6f 73 |urrent (|frontmos|
|0000ee60| 74 29 20 64 61 74 61 20 | 77 69 6e 64 6f 77 20 09 |t) data |window .|
|0000ee70| 09 09 7d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 4e |..}...fu|nction N|
|0000ee80| 72 43 6f 6c 73 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |rCols: l|ongint;.|
|0000ee90| 7b 20 72 65 74 75 72 6e | 73 20 74 68 65 20 6e 75 |{ return|s the nu|
|0000eea0| 6d 62 65 72 20 6f 66 20 | 63 6f 6c 75 6d 6e 73 20 |mber of |columns |
|0000eeb0| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 28 |in the c|urrent (|
|0000eec0| 66 72 6f 6e 74 6d 6f 73 | 74 29 20 64 61 74 61 20 |frontmos|t) data |
|0000eed0| 77 69 6e 64 6f 77 20 09 | 09 09 7d 0d 0d 09 66 75 |window .|..}...fu|
|0000eee0| 6e 63 74 69 6f 6e 20 47 | 65 74 44 61 74 61 20 28 |nction G|etData (|
|0000eef0| 52 6f 77 2c 20 43 6f 6c | 75 6d 6e 3a 20 6c 6f 6e |Row, Col|umn: lon|
|0000ef00| 67 69 6e 74 29 3a 20 65 | 78 74 65 6e 64 65 64 3b |gint): e|xtended;|
|0000ef10| 0d 7b 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 76 |.{ retur|ns the v|
|0000ef20| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 67 69 76 65 |alue of |the give|
|0000ef30| 6e 20 63 65 6c 6c 20 6f | 66 20 74 68 65 20 64 61 |n cell o|f the da|
|0000ef40| 74 61 20 77 69 6e 64 6f | 77 20 09 09 09 7d 0d 0d |ta windo|w ...}..|
|0000ef50| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 44 61 |.procedu|re SetDa|
|0000ef60| 74 61 20 28 52 6f 77 2c | 20 43 6f 6c 75 6d 6e 3a |ta (Row,| Column:|
|0000ef70| 20 6c 6f 6e 67 69 6e 74 | 3b 20 65 78 3a 20 65 78 | longint|; ex: ex|
|0000ef80| 74 65 6e 64 65 64 29 3b | 0d 7b 20 73 65 74 73 20 |tended);|.{ sets |
|0000ef90| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |the valu|e of the|
|0000efa0| 20 67 69 76 65 6e 20 63 | 65 6c 6c 20 6f 66 20 74 | given c|ell of t|
|0000efb0| 68 65 20 64 61 74 61 20 | 77 69 6e 64 6f 77 20 09 |he data |window .|
|0000efc0| 09 09 7d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 54 |..}...fu|nction T|
|0000efd0| 65 73 74 44 61 74 61 20 | 28 52 6f 77 2c 20 43 6f |estData |(Row, Co|
|0000efe0| 6c 75 6d 6e 3a 20 6c 6f | 6e 67 69 6e 74 29 3a 20 |lumn: lo|ngint): |
|0000eff0| 62 6f 6f 6c 65 61 6e 3b | 0d 7b 20 72 65 74 75 72 |boolean;|.{ retur|
|0000f000| 6e 73 20 74 72 75 65 20 | 69 66 20 74 68 65 20 76 |ns true |if the v|
|0000f010| 61 6c 75 65 20 69 6e 20 | 74 68 65 20 67 69 76 65 |alue in |the give|
|0000f020| 6e 20 63 65 6c 6c 20 6f | 66 20 74 68 65 20 64 61 |n cell o|f the da|
|0000f030| 74 61 20 77 69 6e 64 6f | 77 20 69 73 20 61 20 6e |ta windo|w is a n|
|0000f040| 75 6d 62 65 72 20 09 09 | 09 7d 0d 0d 09 70 72 6f |umber ..|.}...pro|
|0000f050| 63 65 64 75 72 65 20 43 | 6c 65 61 72 44 61 74 61 |cedure C|learData|
|0000f060| 20 28 52 6f 77 2c 20 43 | 6f 6c 75 6d 6e 3a 20 6c | (Row, C|olumn: l|
|0000f070| 6f 6e 67 69 6e 74 29 3b | 0d 7b 20 65 72 61 73 65 |ongint);|.{ erase|
|0000f080| 73 20 74 68 65 20 76 61 | 6c 75 65 20 69 6e 20 74 |s the va|lue in t|
|0000f090| 68 65 20 67 69 76 65 6e | 20 63 65 6c 6c 20 6f 66 |he given| cell of|
|0000f0a0| 20 74 68 65 20 64 61 74 | 61 20 77 69 6e 64 6f 77 | the dat|a window|
|0000f0b0| 20 09 09 09 7d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e | ...}...|function|
|0000f0c0| 20 47 65 74 53 65 6c 65 | 63 74 69 6f 6e 3a 20 72 | GetSele|ction: r|
|0000f0d0| 65 63 74 3b 0d 7b 20 72 | 65 74 75 72 6e 73 20 74 |ect;.{ r|eturns t|
|0000f0e0| 68 65 20 73 65 6c 65 63 | 74 65 64 20 63 65 6c 6c |he selec|ted cell|
|0000f0f0| 73 20 6f 66 20 74 68 65 | 20 64 61 74 61 20 77 69 |s of the| data wi|
|0000f100| 6e 64 6f 77 2c 20 67 69 | 76 65 6e 20 62 79 20 74 |ndow, gi|ven by t|
|0000f110| 68 65 20 72 6f 77 20 61 | 6e 64 20 63 6f 6c 75 6d |he row a|nd colum|
|0000f120| 6e 20 6e 75 6d 62 65 72 | 73 20 28 30 20 66 6f 72 |n number|s (0 for|
|0000f130| 20 6e 6f 20 73 65 6c 65 | 63 74 69 6f 6e 29 20 09 | no sele|ction) .|
|0000f140| 09 09 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |..}...pr|ocedure |
|0000f150| 53 65 74 43 6f 6c 4e 61 | 6d 65 20 28 43 6f 6c 75 |SetColNa|me (Colu|
|0000f160| 6d 6e 3a 20 6c 6f 6e 67 | 69 6e 74 3b 20 73 3a 20 |mn: long|int; s: |
|0000f170| 73 74 72 32 35 35 29 3b | 0d 7b 20 77 72 69 74 65 |str255);|.{ write|
|0000f180| 73 20 73 20 69 6e 74 6f | 20 74 68 65 20 63 6f 6c |s s into| the col|
|0000f190| 75 6d 6e 20 74 69 74 6c | 65 20 66 69 65 6c 64 20 |umn titl|e field |
|0000f1a0| 6f 66 20 74 68 65 20 64 | 61 74 61 20 77 69 6e 64 |of the d|ata wind|
|0000f1b0| 6f 77 20 09 09 09 7d 0d | 0d 09 70 72 6f 63 65 64 |ow ...}.|..proced|
|0000f1c0| 75 72 65 20 47 65 74 43 | 6f 6c 4e 61 6d 65 20 28 |ure GetC|olName (|
|0000f1d0| 76 61 72 20 6e 61 6d 65 | 3a 20 53 74 72 32 35 35 |var name|: Str255|
|0000f1e0| 3b 20 63 6f 6c 75 6d 6e | 3a 20 6c 6f 6e 67 69 6e |; column|: longin|
|0000f1f0| 74 29 3b 0d 09 7b 20 72 | 65 74 75 72 6e 73 20 74 |t);..{ r|eturns t|
|0000f200| 68 65 20 6e 61 6d 65 20 | 6f 66 20 61 20 63 6f 6c |he name |of a col|
|0000f210| 75 6d 6e 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |umn in t|he curre|
|0000f220| 6e 74 20 64 61 74 61 20 | 77 69 6e 64 6f 77 20 09 |nt data |window .|
|0000f230| 09 09 7d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |..}...pr|ocedure |
|0000f240| 53 65 74 44 61 74 61 53 | 69 7a 65 20 28 6e 75 6d |SetDataS|ize (num|
|0000f250| 62 65 72 4f 66 52 6f 77 | 73 2c 20 6e 75 6d 62 65 |berOfRow|s, numbe|
|0000f260| 72 4f 66 43 6f 6c 75 6d | 6e 73 3a 20 6c 6f 6e 67 |rOfColum|ns: long|
|0000f270| 69 6e 74 29 3b 0d 09 7b | 20 20 09 09 09 7d 0d 7b |int);..{| ...}.{|
|0000f280| 09 09 52 65 73 69 7a 65 | 73 20 74 68 65 20 63 75 |..Resize|s the cu|
|0000f290| 72 72 65 6e 74 20 64 61 | 74 61 20 77 69 6e 64 6f |rrent da|ta windo|
|0000f2a0| 77 20 74 6f 20 6d 61 74 | 63 68 20 74 68 65 20 6e |w to mat|ch the n|
|0000f2b0| 65 77 20 6e 75 6d 62 65 | 72 20 6f 66 20 72 6f 77 |ew numbe|r of row|
|0000f2c0| 73 20 61 6e 64 20 63 6f | 6c 75 6d 6e 73 09 09 09 |s and co|lumns...|
|0000f2d0| 7d 0d 7b 09 09 70 61 73 | 73 65 64 20 61 73 20 61 |}.{..pas|sed as a|
|0000f2e0| 20 70 61 72 61 6d 74 65 | 72 2e 09 09 09 7d 0d 7b | paramte|r....}.{|
|0000f2f0| 09 09 53 65 74 20 61 20 | 70 61 72 61 6d 65 74 65 |..Set a |paramete|
|0000f300| 72 20 74 6f 20 30 20 69 | 66 20 79 6f 75 20 64 6f |r to 0 i|f you do|
|0000f310| 6e 27 74 20 77 61 6e 74 | 20 74 6f 20 63 68 61 6e |n't want| to chan|
|0000f320| 67 65 20 69 74 2e 09 09 | 09 7d 0d 7b 09 09 43 61 |ge it...|.}.{..Ca|
|0000f330| 75 73 65 73 20 61 20 72 | 75 6e 2d 74 69 6d 65 20 |uses a r|un-time |
|0000f340| 65 72 72 6f 72 20 69 66 | 20 72 65 73 69 7a 69 6e |error if| resizin|
|0000f350| 67 20 66 61 69 6c 73 2e | 09 09 09 7d 0d 7b 09 09 |g fails.|...}.{..|
|0000f360| 09 09 7d 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 47 |..}...fu|nction G|
|0000f370| 65 74 43 6f 6c 54 79 70 | 65 20 28 63 6f 6c 75 6d |etColTyp|e (colum|
|0000f380| 6e 4e 75 6d 62 65 72 3a | 20 6c 6f 6e 67 69 6e 74 |nNumber:| longint|
|0000f390| 29 3a 20 6c 6f 6e 67 69 | 6e 74 3b 0d 09 7b 20 20 |): longi|nt;..{ |
|0000f3a0| 09 09 09 7d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |...}.{..|returns |
|0000f3b0| 74 68 65 20 74 79 70 65 | 20 6f 66 20 61 20 63 6f |the type| of a co|
|0000f3c0| 6c 75 6d 6e 20 6f 66 20 | 74 68 65 20 63 75 72 72 |lumn of |the curr|
|0000f3d0| 65 6e 74 20 64 61 74 61 | 20 77 69 6e 64 6f 77 20 |ent data| window |
|0000f3e0| 28 63 6f 6c 4e 75 6d 62 | 65 72 20 3d 20 31 2e 2e |(colNumb|er = 1..|
|0000f3f0| 4d 61 78 4e 72 43 6f 6c | 73 29 09 09 09 7d 0d 7b |MaxNrCol|s)...}.{|
|0000f400| 09 09 72 65 74 75 72 6e | 20 76 61 6c 75 65 73 3a |..return| values:|
|0000f410| 09 09 09 7d 0d 7b 09 09 | 09 66 6c 6f 61 74 43 6f |...}.{..|.floatCo|
|0000f420| 6c 75 6d 6e 3a 09 09 34 | 20 62 79 74 65 20 66 6c |lumn:..4| byte fl|
|0000f430| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 66 6f 72 |oating p|oint for|
|0000f440| 6d 61 74 09 09 09 7d 0d | 7b 09 09 09 65 78 74 65 |mat...}.|{...exte|
|0000f450| 6e 64 65 64 43 6f 6c 75 | 6d 6e 09 09 38 20 62 79 |ndedColu|mn..8 by|
|0000f460| 74 65 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |te float|ing poin|
|0000f470| 74 20 66 6f 72 6d 61 74 | 09 09 09 7d 0d 7b 09 09 |t format|...}.{..|
|0000f480| 09 74 65 78 74 43 6f 6c | 75 6d 6e 3a 09 09 09 74 |.textCol|umn:...t|
|0000f490| 65 78 74 20 66 6f 72 6d | 61 74 09 09 09 7d 0d 7b |ext form|at...}.{|
|0000f4a0| 09 09 09 09 7d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |....}...|procedur|
|0000f4b0| 65 20 53 65 74 43 6f 6c | 54 79 70 65 20 28 63 6f |e SetCol|Type (co|
|0000f4c0| 6c 75 6d 6e 4e 75 6d 62 | 65 72 3a 20 6c 6f 6e 67 |lumnNumb|er: long|
|0000f4d0| 69 6e 74 3b 20 74 68 65 | 54 79 70 65 3a 20 6c 6f |int; the|Type: lo|
|0000f4e0| 6e 67 69 6e 74 29 3b 0d | 09 7b 20 20 09 09 09 7d |ngint);.|.{ ...}|
|0000f4f0| 0d 7b 09 09 73 65 74 73 | 20 74 68 65 20 74 79 70 |.{..sets| the typ|
|0000f500| 65 20 6f 66 20 61 20 63 | 6f 6c 75 6d 6e 20 6f 66 |e of a c|olumn of|
|0000f510| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 61 74 | the cur|rent dat|
|0000f520| 61 20 77 69 6e 64 6f 77 | 20 28 63 6f 6c 4e 75 6d |a window| (colNum|
|0000f530| 62 65 72 20 3d 20 31 2e | 2e 4d 61 78 4e 72 43 6f |ber = 1.|.MaxNrCo|
|0000f540| 6c 73 29 09 09 09 7d 0d | 7b 09 09 74 68 65 54 79 |ls)...}.|{..theTy|
|0000f550| 70 65 3a 09 09 09 7d 0d | 7b 09 09 09 66 6c 6f 61 |pe:...}.|{...floa|
|0000f560| 74 43 6f 6c 75 6d 6e 3a | 09 09 34 20 62 79 74 65 |tColumn:|..4 byte|
|0000f570| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|0000f580| 66 6f 72 6d 61 74 09 09 | 09 7d 0d 7b 09 09 09 65 |format..|.}.{...e|
|0000f590| 78 74 65 6e 64 65 64 43 | 6f 6c 75 6d 6e 09 09 38 |xtendedC|olumn..8|
|0000f5a0| 20 62 79 74 65 20 66 6c | 6f 61 74 69 6e 67 20 70 | byte fl|oating p|
|0000f5b0| 6f 69 6e 74 20 66 6f 72 | 6d 61 74 09 09 09 7d 0d |oint for|mat...}.|
|0000f5c0| 7b 09 09 09 74 65 78 74 | 43 6f 6c 75 6d 6e 3a 09 |{...text|Column:.|
|0000f5d0| 09 09 74 65 78 74 20 66 | 6f 72 6d 61 74 09 09 09 |..text f|ormat...|
|0000f5e0| 7d 0d 7b 09 09 43 61 75 | 73 65 73 20 61 20 72 75 |}.{..Cau|ses a ru|
|0000f5f0| 6e 2d 74 69 6d 65 20 65 | 72 72 6f 72 20 69 66 20 |n-time e|rror if |
|0000f600| 63 6f 6e 76 65 72 73 69 | 6f 6e 20 66 61 69 6c 65 |conversi|on faile|
|0000f610| 64 2e 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |d....}.{|....}...|
|0000f620| 66 75 6e 63 74 69 6f 6e | 20 43 6f 6c 45 6d 70 74 |function| ColEmpt|
|0000f630| 79 20 28 63 6f 6c 75 6d | 6e 4e 75 6d 62 65 72 3a |y (colum|nNumber:|
|0000f640| 20 6c 6f 6e 67 69 6e 74 | 29 3a 20 62 6f 6f 6c 65 | longint|): boole|
|0000f650| 61 6e 3b 0d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |an;..{..|returns |
|0000f660| 74 72 75 65 20 69 66 20 | 74 68 65 20 67 69 76 65 |true if |the give|
|0000f670| 6e 20 63 6f 6c 75 6d 6e | 20 64 6f 65 73 6e 27 74 |n column| doesn't|
|0000f680| 20 63 6f 6e 74 61 69 6e | 20 61 6e 79 20 64 61 74 | contain| any dat|
|0000f690| 61 2c 20 66 61 6c 73 65 | 20 6f 74 68 65 72 77 69 |a, false| otherwi|
|0000f6a0| 73 65 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 09 |se...}.{|....}...|
|0000f6b0| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 43 6f 6c |procedur|e SetCol|
|0000f6c0| 57 69 64 74 68 20 28 63 | 6f 6c 75 6d 6e 4e 75 6d |Width (c|olumnNum|
|0000f6d0| 62 65 72 3a 20 6c 6f 6e | 67 69 6e 74 3b 20 77 69 |ber: lon|gint; wi|
|0000f6e0| 64 74 68 3a 20 69 6e 74 | 65 67 65 72 29 3b 0d 09 |dth: int|eger);..|
|0000f6f0| 7b 20 09 09 09 09 7d 0d | 7b 09 09 73 65 74 73 20 |{ ....}.|{..sets |
|0000f700| 74 68 65 20 77 69 64 74 | 68 20 6f 66 20 74 68 65 |the widt|h of the|
|0000f710| 20 67 69 76 65 6e 20 63 | 6f 6c 75 6d 6e 20 74 6f | given c|olumn to|
|0000f720| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 70 | the num|ber of p|
|0000f730| 69 78 65 6c 73 20 73 70 | 65 63 69 66 69 65 64 20 |ixels sp|ecified |
|0000f740| 69 6e 20 22 77 69 64 74 | 68 22 09 09 09 7d 0d 7b |in "widt|h"...}.{|
|0000f750| 09 09 09 09 7d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |....}...|procedur|
|0000f760| 65 20 53 65 6c 65 63 74 | 43 65 6c 6c 73 20 28 6c |e Select|Cells (l|
|0000f770| 65 66 74 2c 20 74 6f 70 | 2c 20 72 69 67 68 74 2c |eft, top|, right,|
|0000f780| 20 62 6f 74 74 6f 6d 3a | 20 6c 6f 6e 67 69 6e 74 | bottom:| longint|
|0000f790| 29 3b 0d 09 7b 20 20 09 | 09 09 7d 0d 7b 09 09 73 |);..{ .|..}.{..s|
|0000f7a0| 65 6c 65 63 74 73 20 74 | 68 65 20 63 65 6c 6c 73 |elects t|he cells|
|0000f7b0| 20 77 69 74 68 69 6e 20 | 74 68 65 20 67 69 76 65 | within |the give|
|0000f7c0| 6e 20 72 65 63 74 61 6e | 67 6c 65 09 09 09 7d 0d |n rectan|gle...}.|
|0000f7d0| 7b 09 09 74 68 65 20 63 | 6f 6f 72 64 69 6e 61 74 |{..the c|oordinat|
|0000f7e0| 65 73 20 61 72 65 20 63 | 6c 69 70 70 65 64 20 74 |es are c|lipped t|
|0000f7f0| 6f 20 74 68 65 20 73 69 | 7a 65 20 6f 66 20 74 68 |o the si|ze of th|
|0000f800| 65 20 64 61 74 61 20 6c | 69 73 74 09 09 09 7d 0d |e data l|ist...}.|
|0000f810| 7b 09 09 09 09 7d 0d 0d | 0d 09 70 72 6f 63 65 64 |{....}..|..proced|
|0000f820| 75 72 65 20 53 65 6c 65 | 63 74 52 6f 77 73 20 28 |ure Sele|ctRows (|
|0000f830| 74 6f 70 2c 20 62 6f 74 | 74 6f 6d 3a 20 6c 6f 6e |top, bot|tom: lon|
|0000f840| 67 69 6e 74 3b 20 64 6f | 53 65 6c 65 63 74 3a 20 |gint; do|Select: |
|0000f850| 42 6f 6f 6c 65 61 6e 29 | 3b 0d 09 7b 20 20 09 09 |Boolean)|;..{ ..|
|0000f860| 09 7d 0d 7b 09 09 73 65 | 6c 65 63 74 73 20 6f 72 |.}.{..se|lects or|
|0000f870| 20 64 65 73 65 6c 65 63 | 74 73 20 74 68 65 20 67 | deselec|ts the g|
|0000f880| 69 76 65 6e 20 72 6f 77 | 73 09 09 09 7d 0d 7b 09 |iven row|s...}.{.|
|0000f890| 09 64 6f 53 65 6c 65 63 | 74 3d 3d 74 72 75 65 3a |.doSelec|t==true:|
|0000f8a0| 20 73 65 6c 65 63 74 73 | 20 74 68 65 20 67 69 76 | selects| the giv|
|0000f8b0| 65 6e 20 72 6f 77 73 09 | 09 09 7d 0d 7b 09 09 64 |en rows.|..}.{..d|
|0000f8c0| 6f 53 65 6c 65 63 74 3d | 3d 66 61 6c 73 65 3a 20 |oSelect=|=false: |
|0000f8d0| 64 65 73 65 6c 65 63 74 | 73 20 74 68 65 20 67 69 |deselect|s the gi|
|0000f8e0| 76 65 6e 20 72 6f 77 73 | 09 09 09 7d 0d 7b 09 09 |ven rows|...}.{..|
|0000f8f0| 74 6f 70 20 61 6e 64 20 | 62 6f 74 74 6f 6d 20 61 |top and |bottom a|
|0000f900| 72 65 20 63 6c 69 70 70 | 65 64 20 74 6f 20 74 68 |re clipp|ed to th|
|0000f910| 65 20 73 69 7a 65 20 6f | 66 20 74 68 65 20 6c 69 |e size o|f the li|
|0000f920| 73 74 09 09 09 7d 0d 7b | 09 09 73 65 6c 65 63 74 |st...}.{|..select|
|0000f930| 69 6f 6e 73 20 6f 75 74 | 73 69 64 65 20 74 6f 70 |ions out|side top|
|0000f940| 2f 62 6f 74 74 6f 6d 20 | 72 65 6d 61 69 6e 20 61 |/bottom |remain a|
|0000f950| 73 20 74 68 65 79 20 61 | 72 65 09 09 09 7d 0d 7b |s they a|re...}.{|
|0000f960| 09 09 09 09 7d 0d 0d 0d | 09 66 75 6e 63 74 69 6f |....}...|.functio|
|0000f970| 6e 20 52 6f 77 53 65 6c | 65 63 74 65 64 20 28 72 |n RowSel|ected (r|
|0000f980| 6f 77 4e 75 6d 62 65 72 | 3a 20 6c 6f 6e 67 69 6e |owNumber|: longin|
|0000f990| 74 29 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 7b 20 |t): bool|ean;..{ |
|0000f9a0| 20 09 09 09 7d 0d 7b 09 | 09 72 65 74 75 72 6e 73 | ...}.{.|.returns|
|0000f9b0| 20 74 72 75 65 20 69 66 | 20 61 74 20 6c 65 61 73 | true if| at leas|
|0000f9c0| 74 20 61 20 63 65 6c 6c | 20 69 6e 20 74 68 65 20 |t a cell| in the |
|0000f9d0| 67 69 76 65 6e 20 72 6f | 77 20 69 73 20 73 65 6c |given ro|w is sel|
|0000f9e0| 65 63 74 65 64 2c 09 09 | 09 7d 0d 7b 09 09 66 61 |ected,..|.}.{..fa|
|0000f9f0| 6c 73 65 20 6f 74 68 65 | 72 77 69 73 65 2c 20 6f |lse othe|rwise, o|
|0000fa00| 72 20 69 66 20 74 68 65 | 20 67 69 76 65 6e 20 72 |r if the| given r|
|0000fa10| 6f 77 20 69 73 20 6f 75 | 74 73 69 64 65 20 74 68 |ow is ou|tside th|
|0000fa20| 65 20 6c 69 73 74 2e 09 | 09 09 7d 0d 7b 09 09 09 |e list..|..}.{...|
|0000fa30| 09 7d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 43 65 |.}...fun|ction Ce|
|0000fa40| 6c 6c 53 65 6c 65 63 74 | 65 64 20 28 72 6f 77 2c |llSelect|ed (row,|
|0000fa50| 20 63 6f 6c 75 6d 6e 3a | 20 6c 6f 6e 67 69 6e 74 | column:| longint|
|0000fa60| 29 3a 20 42 6f 6f 6c 65 | 61 6e 3b 0d 09 7b 20 20 |): Boole|an;..{ |
|0000fa70| 09 09 09 7d 0d 7b 09 09 | 72 65 74 75 72 6e 73 20 |...}.{..|returns |
|0000fa80| 74 72 75 65 20 69 66 20 | 74 68 65 20 67 69 76 65 |true if |the give|
|0000fa90| 6e 20 63 65 6c 6c 20 69 | 73 20 73 65 6c 65 63 74 |n cell i|s select|
|0000faa0| 65 64 09 09 09 7d 0d 7b | 09 09 72 75 6e 2d 74 69 |ed...}.{|..run-ti|
|0000fab0| 6d 65 20 65 72 72 6f 72 | 20 69 66 20 72 6f 77 2f |me error| if row/|
|0000fac0| 63 6f 6c 75 6d 6e 20 69 | 73 20 6f 75 74 73 69 64 |column i|s outsid|
|0000fad0| 65 20 74 68 65 20 6c 69 | 73 74 09 09 09 7d 0d 7b |e the li|st...}.{|
|0000fae0| 09 09 09 09 7d 0d 0d 0d | 09 70 72 6f 63 65 64 75 |....}...|.procedu|
|0000faf0| 72 65 20 53 65 74 43 65 | 6c 6c 20 28 72 6f 77 2c |re SetCe|ll (row,|
|0000fb00| 20 63 6f 6c 75 6d 6e 3a | 20 6c 6f 6e 67 69 6e 74 | column:| longint|
|0000fb10| 3b 20 73 3a 20 53 74 72 | 32 35 35 29 3b 0d 09 7b |; s: Str|255);..{|
|0000fb20| 20 20 09 09 09 7d 0d 7b | 09 09 73 65 74 73 20 74 | ...}.{|..sets t|
|0000fb30| 68 65 20 67 69 76 65 6e | 20 63 65 6c 6c 20 63 65 |he given| cell ce|
|0000fb40| 6c 6c 20 74 6f 20 74 68 | 65 20 73 74 72 69 6e 67 |ll to th|e string|
|0000fb50| 20 73 09 09 09 7d 0d 7b | 09 09 09 09 7d 0d 0d 0d | s...}.{|....}...|
|0000fb60| 09 70 72 6f 63 65 64 75 | 72 65 20 47 65 74 43 65 |.procedu|re GetCe|
|0000fb70| 6c 6c 20 28 76 61 72 20 | 73 3a 20 53 74 72 32 35 |ll (var |s: Str25|
|0000fb80| 35 3b 20 72 6f 77 2c 20 | 63 6f 6c 75 6d 6e 3a 20 |5; row, |column: |
|0000fb90| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 09 7b 20 20 09 09 |longint)|;..{ ..|
|0000fba0| 09 7d 0d 7b 09 09 72 65 | 74 75 72 6e 73 20 74 68 |.}.{..re|turns th|
|0000fbb0| 65 20 67 69 76 65 6e 20 | 63 65 6c 6c 20 63 65 6c |e given |cell cel|
|0000fbc0| 6c 20 69 6e 20 74 68 65 | 20 73 74 72 69 6e 67 20 |l in the| string |
|0000fbd0| 73 09 09 09 7d 0d 7b 09 | 09 09 09 7d 0d 0d 0d 09 |s...}.{.|...}....|
|0000fbe0| 70 72 6f 63 65 64 75 72 | 65 20 47 65 74 44 65 66 |procedur|e GetDef|
|0000fbf0| 61 75 6c 74 44 61 74 61 | 20 28 78 43 6f 6c 48 2c |aultData| (xColH,|
|0000fc00| 20 79 43 6f 6c 48 2c 20 | 78 45 72 72 43 6f 6c 48 | yColH, |xErrColH|
|0000fc10| 2c 20 79 45 72 72 43 6f | 6c 48 3a 20 45 78 74 65 |, yErrCo|lH: Exte|
|0000fc20| 6e 64 65 64 41 72 72 61 | 79 48 61 6e 64 6c 65 50 |ndedArra|yHandleP|
|0000fc30| 74 72 3b 20 69 6e 64 65 | 63 65 73 48 3a 20 4c 6f |tr; inde|cesH: Lo|
|0000fc40| 6e 67 41 72 72 61 79 48 | 61 6e 64 6c 65 50 74 72 |ngArrayH|andlePtr|
|0000fc50| 3b 20 76 61 72 20 61 72 | 72 61 79 53 69 7a 65 3a |; var ar|raySize:|
|0000fc60| 20 6c 6f 6e 67 69 6e 74 | 3b 20 73 65 6c 65 63 74 | longint|; select|
|0000fc70| 65 64 52 6f 77 73 4f 6e | 6c 79 3a 20 42 6f 6f 6c |edRowsOn|ly: Bool|
|0000fc80| 65 61 6e 3b 20 69 6e 66 | 6f 3a 20 44 61 74 61 49 |ean; inf|o: DataI|
|0000fc90| 6e 66 6f 50 74 72 29 3b | 0d 0d 7b 09 09 54 68 69 |nfoPtr);|..{..Thi|
|0000fca0| 73 20 72 6f 75 74 69 6e | 65 20 70 72 6f 76 69 64 |s routin|e provid|
|0000fcb0| 65 73 20 79 6f 75 20 77 | 69 74 68 20 61 20 63 6f |es you w|ith a co|
|0000fcc0| 70 79 20 6f 66 20 74 68 | 65 20 64 65 66 61 75 6c |py of th|e defaul|
|0000fcd0| 74 20 78 2d 79 20 64 61 | 74 61 20 69 6e 20 74 68 |t x-y da|ta in th|
|0000fce0| 65 09 09 09 7d 0d 7b 09 | 09 63 75 72 72 65 6e 74 |e...}.{.|.current|
|0000fcf0| 20 44 61 74 61 20 77 69 | 6e 64 6f 77 2e 09 09 09 | Data wi|ndow....|
|0000fd00| 7d 0d 7b 09 09 49 74 20 | 61 6c 6c 6f 63 61 74 65 |}.{..It |allocate|
|0000fd10| 73 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 74 68 65 |s memory| for the|
|0000fd20| 20 78 2c 79 20 61 72 72 | 61 79 73 2c 20 66 6f 72 | x,y arr|ays, for|
|0000fd30| 20 74 68 65 20 78 2c 79 | 2d 45 72 72 6f 72 20 61 | the x,y|-Error a|
|0000fd40| 72 72 61 79 73 2c 20 61 | 6e 64 09 09 09 7d 0d 7b |rrays, a|nd...}.{|
|0000fd50| 09 09 66 6f 72 20 74 68 | 65 20 61 72 72 61 79 20 |..for th|e array |
|0000fd60| 74 68 61 74 20 67 69 76 | 65 73 20 74 68 65 20 63 |that giv|es the c|
|0000fd70| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 72 6f 77 |orrespon|ding row|
|0000fd80| 20 6e 75 6d 62 65 72 73 | 20 69 6e 20 74 68 65 20 | numbers| in the |
|0000fd90| 64 61 74 61 20 77 69 6e | 64 6f 77 2e 09 09 09 7d |data win|dow....}|
|0000fda0| 0d 7b 09 09 54 68 65 6e | 20 69 74 20 66 69 6c 6c |.{..Then| it fill|
|0000fdb0| 73 20 74 68 65 6d 20 75 | 70 20 77 69 74 68 20 74 |s them u|p with t|
|0000fdc0| 68 65 20 64 61 74 61 2e | 20 49 74 20 63 6f 70 69 |he data.| It copi|
|0000fdd0| 65 73 20 6f 6e 6c 79 20 | 74 68 65 20 64 61 74 61 |es only |the data|
|0000fde0| 20 77 68 65 72 65 20 09 | 09 09 7d 0d 7b 09 09 62 | where .|..}.{..b|
|0000fdf0| 6f 74 68 20 74 68 65 20 | 78 20 61 6e 64 20 74 68 |oth the |x and th|
|0000fe00| 65 20 79 20 63 65 6c 6c | 20 63 6f 6e 74 61 69 6e |e y cell| contain|
|0000fe10| 20 76 61 6c 69 64 20 6e | 75 6d 62 65 72 73 2e 09 | valid n|umbers..|
|0000fe20| 09 09 7d 0d 7b 09 09 50 | 61 73 73 20 6e 69 6c 20 |..}.{..P|ass nil |
|0000fe30| 66 6f 72 20 6f 6e 65 20 | 6f 66 20 74 68 65 73 65 |for one |of these|
|0000fe40| 20 61 72 72 61 79 20 69 | 66 20 79 6f 75 20 61 72 | array i|f you ar|
|0000fe50| 65 20 6e 6f 74 20 69 6e | 74 65 72 65 73 74 65 64 |e not in|terested|
|0000fe60| 20 69 6e 20 69 74 2e 09 | 09 09 7d 0d 0d 7b 09 09 | in it..|..}..{..|
|0000fe70| 49 6e 64 65 63 65 73 48 | 20 63 6f 6e 74 61 69 6e |IndecesH| contain|
|0000fe80| 73 2c 20 66 6f 72 20 65 | 61 63 68 20 78 2d 79 20 |s, for e|ach x-y |
|0000fe90| 64 61 74 61 20 69 6e 20 | 74 68 65 20 64 61 74 61 |data in |the data|
|0000fea0| 2d 61 72 72 61 79 73 2c | 20 74 68 65 20 72 6f 77 |-arrays,| the row|
|0000feb0| 20 6e 75 6d 62 65 72 20 | 69 6e 09 09 09 7d 0d 7b | number |in...}.{|
|0000fec0| 09 09 74 68 65 20 63 75 | 72 72 65 6e 74 20 64 61 |..the cu|rrent da|
|0000fed0| 74 61 20 6c 69 73 74 20 | 77 68 65 72 65 20 74 68 |ta list |where th|
|0000fee0| 61 74 20 64 61 74 61 20 | 69 73 20 66 6f 75 6e 64 |at data |is found|
|0000fef0| 2e 09 09 09 7d 0d 0d 7b | 09 09 77 68 65 6e 20 73 |....}..{|..when s|
|0000ff00| 65 6c 65 63 74 65 64 52 | 6f 77 73 4f 6e 6c 79 20 |electedR|owsOnly |
|0000ff10| 69 73 20 74 72 75 65 2c | 20 6f 6e 6c 79 20 64 61 |is true,| only da|
|0000ff20| 74 61 20 69 6e 20 73 65 | 6c 65 63 74 65 64 20 72 |ta in se|lected r|
|0000ff30| 6f 77 73 20 69 73 20 75 | 73 65 64 20 74 6f 20 66 |ows is u|sed to f|
|0000ff40| 69 6c 6c 20 75 70 09 09 | 09 7d 0d 7b 09 09 74 68 |ill up..|.}.{..th|
|0000ff50| 65 20 61 72 72 61 79 73 | 2e 09 09 09 7d 0d 7b 09 |e arrays|....}.{.|
|0000ff60| 09 09 09 09 7d 0d 7b 09 | 09 54 68 65 20 61 72 72 |....}.{.|.The arr|
|0000ff70| 61 79 73 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |ays retu|rned by |
|0000ff80| 47 65 74 44 65 66 61 75 | 6c 74 44 61 74 61 20 63 |GetDefau|ltData c|
|0000ff90| 6f 6e 74 61 69 6e 20 76 | 61 6c 69 64 20 64 61 74 |ontain v|alid dat|
|0000ffa0| 61 20 73 74 61 72 74 69 | 6e 67 20 66 72 6f 6d 20 |a starti|ng from |
|0000ffb0| 09 09 09 7d 0d 7b 09 09 | 74 68 65 20 65 6c 65 6d |...}.{..|the elem|
|0000ffc0| 65 6e 74 20 77 69 74 68 | 20 69 6e 64 65 78 20 31 |ent with| index 1|
|0000ffd0| 2e 20 54 68 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |. The va|lue of t|
|0000ffe0| 68 65 20 65 6c 65 6d 65 | 6e 74 20 77 69 74 68 20 |he eleme|nt with |
|0000fff0| 69 6e 64 65 78 20 30 20 | 69 73 20 75 6e 64 65 66 |index 0 |is undef|
|00010000| 69 6e 65 64 2e 09 09 09 | 7d 0d 7b 09 09 54 68 65 |ined....|}.{..The|
|00010010| 20 6c 61 73 74 20 65 6c | 65 6d 65 6e 74 20 68 61 | last el|ement ha|
|00010020| 73 20 69 6e 64 65 78 20 | 22 61 72 72 61 79 53 69 |s index |"arraySi|
|00010030| 7a 65 22 2e 09 09 09 7d | 0d 7b 09 09 61 72 72 61 |ze"....}|.{..arra|
|00010040| 79 53 69 7a 65 20 69 73 | 20 73 65 74 20 74 6f 20 |ySize is| set to |
|00010050| 7a 65 72 6f 20 69 6e 20 | 63 61 73 65 20 6f 66 20 |zero in |case of |
|00010060| 6f 75 74 2d 6f 66 2d 6d | 65 6d 6f 72 79 20 73 69 |out-of-m|emory si|
|00010070| 74 75 61 74 69 6f 6e 73 | 20 6f 72 20 6f 74 68 65 |tuations| or othe|
|00010080| 72 20 70 72 6f 62 6c 65 | 6d 73 2e 09 09 09 7d 0d |r proble|ms....}.|
|00010090| 7b 09 09 09 09 09 7d 0d | 7b 09 09 50 72 6f 76 69 |{.....}.|{..Provi|
|000100a0| 64 65 20 61 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |de a poi|nter to |
|000100b0| 61 20 64 61 74 61 20 73 | 74 72 75 63 74 20 6f 66 |a data s|truct of|
|000100c0| 20 74 79 70 65 20 44 61 | 74 61 49 6e 66 6f 20 61 | type Da|taInfo a|
|000100d0| 73 20 74 68 65 20 6c 61 | 73 74 20 70 61 72 61 65 |s the la|st parae|
|000100e0| 6d 74 65 72 20 69 66 09 | 09 09 7d 0d 7b 09 09 79 |mter if.|..}.{..y|
|000100f0| 6f 75 20 61 72 65 20 69 | 6e 74 65 72 65 73 74 65 |ou are i|ntereste|
|00010100| 64 20 69 6e 20 65 78 74 | 72 61 20 69 6e 66 6f 72 |d in ext|ra infor|
|00010110| 6d 61 74 69 6f 6e 20 6f | 6e 20 74 68 65 20 64 61 |mation o|n the da|
|00010120| 74 61 20 73 65 74 2e 09 | 09 09 7d 0d 7b 09 09 54 |ta set..|..}.{..T|
|00010130| 68 65 20 65 6c 65 6d 65 | 6e 74 73 20 6f 66 20 74 |he eleme|nts of t|
|00010140| 68 65 20 44 61 74 61 49 | 6e 66 6f 20 73 74 72 75 |he DataI|nfo stru|
|00010150| 63 74 20 61 72 65 20 73 | 65 74 20 62 79 20 47 65 |ct are s|et by Ge|
|00010160| 74 44 65 66 61 75 6c 74 | 44 61 74 61 2c 20 61 6e |tDefault|Data, an|
|00010170| 64 20 74 68 65 79 20 74 | 65 6c 6c 09 09 09 7d 0d |d they t|ell...}.|
|00010180| 7b 09 09 79 6f 75 20 74 | 68 65 20 62 6f 75 6e 64 |{..you t|he bound|
|00010190| 61 72 69 65 73 20 6f 66 | 20 74 68 65 20 78 2d 20 |aries of| the x- |
|000101a0| 61 6e 64 20 79 2d 20 64 | 61 74 61 2c 20 69 66 20 |and y- d|ata, if |
|000101b0| 74 68 65 20 64 61 74 61 | 20 69 73 20 6f 72 64 65 |the data| is orde|
|000101c0| 72 65 64 20 77 69 74 68 | 09 09 09 7d 0d 7b 09 09 |red with|...}.{..|
|000101d0| 78 2d 76 61 6c 75 65 73 | 20 67 72 6f 77 69 6e 67 |x-values| growing|
|000101e0| 20 77 69 74 68 20 74 68 | 65 20 69 6e 64 65 78 20 | with th|e index |
|000101f0| 69 6e 20 74 68 65 20 61 | 72 72 61 79 73 2c 20 69 |in the a|rrays, i|
|00010200| 66 20 61 6e 79 20 63 65 | 6c 6c 73 20 69 6e 20 74 |f any ce|lls in t|
|00010210| 68 65 20 63 6f 6c 75 6d | 6e 73 09 09 09 7d 0d 7b |he colum|ns...}.{|
|00010220| 09 09 64 65 64 69 63 61 | 74 65 64 20 74 6f 20 74 |..dedica|ted to t|
|00010230| 68 65 20 65 72 72 6f 72 | 73 20 6f 66 20 74 68 65 |he error|s of the|
|00010240| 20 64 61 74 61 20 70 6f | 69 6e 74 73 20 77 68 65 | data po|ints whe|
|00010250| 72 65 20 66 6f 75 6e 64 | 20 65 6d 70 74 79 2e 09 |re found| empty..|
|00010260| 09 09 7d 0d 7b 09 09 53 | 65 65 20 74 68 65 20 64 |..}.{..S|ee the d|
|00010270| 65 63 6c 61 72 61 74 69 | 6f 6e 20 6f 66 20 74 68 |eclarati|on of th|
|00010280| 65 20 44 61 74 61 49 6e | 66 6f 20 73 74 72 75 63 |e DataIn|fo struc|
|00010290| 74 75 72 65 2c 20 61 62 | 6f 76 65 2e 09 09 09 7d |ture, ab|ove....}|
|000102a0| 0d 7b 09 09 09 09 09 7d | 0d 7b 09 09 09 09 7d 0d |.{.....}|.{....}.|
|000102b0| 0d 0d 0d 0d 0d 7b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.....{**|********|
|000102c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000102d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000102e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000102f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010300| 2a 2a 2a 2a 09 09 09 7d | 0d 7b 2a 2a 2a 2a 2a 2a |****...}|.{******|
|00010310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010320| 2a 2a 2a 2a 2a 2a 2a 2a | 20 6d 69 73 63 65 6c 6c |********| miscell|
|00010330| 61 6e 65 6f 75 73 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |aneous *|********|
|00010340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010350| 2a 2a 2a 2a 2a 2a 2a 09 | 09 09 7d 0d 0d 0d 09 70 |*******.|..}....p|
|00010360| 72 6f 63 65 64 75 72 65 | 20 53 65 74 57 61 69 74 |rocedure| SetWait|
|00010370| 54 69 74 6c 65 20 28 73 | 3a 20 53 74 72 32 35 35 |Title (s|: Str255|
|00010380| 29 3b 0d 0d 7b 09 09 77 | 72 69 74 65 73 20 74 68 |);..{..w|rites th|
|00010390| 65 20 73 74 72 69 6e 67 | 20 73 20 69 6e 20 74 68 |e string| s in th|
|000103a0| 65 20 77 69 6e 64 6f 77 | 20 70 75 74 20 75 70 20 |e window| put up |
|000103b0| 62 79 20 70 72 6f 66 69 | 74 20 77 68 69 6c 65 20 |by profi|t while |
|000103c0| 72 75 6e 6e 69 6e 67 20 | 70 72 6f 67 72 61 6d 73 |running |programs|
|000103d0| 09 09 09 7d 0d 7b 09 09 | 54 68 69 73 20 73 74 72 |...}.{..|This str|
|000103e0| 69 6e 67 20 73 65 72 76 | 65 73 20 61 73 20 61 20 |ing serv|es as a |
|000103f0| 74 69 74 6c 65 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |title...|.}.{....|
|00010400| 7d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |}....pro|cedure S|
|00010410| 65 74 57 61 69 74 54 65 | 78 74 20 28 73 31 2c 20 |etWaitTe|xt (s1, |
|00010420| 73 32 2c 20 73 33 2c 20 | 73 34 2c 20 73 35 2c 20 |s2, s3, |s4, s5, |
|00010430| 73 36 3a 20 53 74 72 32 | 35 35 29 3b 0d 0d 7b 09 |s6: Str2|55);..{.|
|00010440| 09 77 72 69 74 65 73 20 | 74 68 65 20 73 74 72 69 |.writes |the stri|
|00010450| 6e 67 73 20 73 31 2d 73 | 36 20 69 6e 20 74 68 65 |ngs s1-s|6 in the|
|00010460| 20 77 69 6e 64 6f 77 20 | 70 75 74 20 75 70 20 62 | window |put up b|
|00010470| 79 20 70 72 6f 66 69 74 | 20 77 68 69 6c 65 20 72 |y profit| while r|
|00010480| 75 6e 6e 69 6e 67 20 70 | 72 6f 67 72 61 6d 73 09 |unning p|rograms.|
|00010490| 09 09 7d 0d 7b 09 09 69 | 6e 20 61 20 74 77 6f 20 |..}.{..i|n a two |
|000104a0| 63 6f 6c 75 6d 6e 73 20 | 62 79 20 74 68 72 65 65 |columns |by three|
|000104b0| 20 72 6f 77 20 61 72 72 | 61 6e 67 65 6d 65 6e 74 | row arr|angement|
|000104c0| 3a 09 09 09 7d 0d 7b 09 | 09 73 31 09 09 73 32 09 |:...}.{.|.s1..s2.|
|000104d0| 09 09 7d 0d 7b 09 09 73 | 33 09 09 73 34 09 09 09 |..}.{..s|3..s4...|
|000104e0| 7d 0d 7b 09 09 73 35 09 | 09 73 36 09 09 09 7d 0d |}.{..s5.|.s6...}.|
|000104f0| 7b 09 09 55 73 65 20 61 | 6e 20 65 6d 70 74 79 20 |{..Use a|n empty |
|00010500| 73 74 72 69 6e 67 20 69 | 66 20 79 6f 75 20 64 6f |string i|f you do|
|00010510| 6e 27 74 20 77 61 6e 74 | 20 74 6f 20 63 68 61 6e |n't want| to chan|
|00010520| 67 65 20 69 74 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |ge it...|.}.{....|
|00010530| 7d 0d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 4d 61 |}....fun|ction Ma|
|00010540| 72 6b 65 64 58 20 28 69 | 3a 20 69 6e 74 65 67 65 |rkedX (i|: intege|
|00010550| 72 29 3a 20 65 78 74 65 | 6e 64 65 64 3b 0d 09 66 |r): exte|nded;..f|
|00010560| 75 6e 63 74 69 6f 6e 20 | 4d 61 72 6b 65 64 59 20 |unction |MarkedY |
|00010570| 28 69 3a 20 69 6e 74 65 | 67 65 72 29 3a 20 65 78 |(i: inte|ger): ex|
|00010580| 74 65 6e 64 65 64 3b 0d | 0d 7b 09 72 65 74 75 72 |tended;.|.{.retur|
|00010590| 6e 20 74 68 65 20 78 20 | 61 6e 64 20 79 20 63 6f |n the x |and y co|
|000105a0| 6f 72 64 69 6e 61 74 65 | 20 6f 66 20 61 20 6d 61 |ordinate| of a ma|
|000105b0| 72 6b 65 72 20 69 6e 20 | 74 68 65 20 70 72 65 76 |rker in |the prev|
|000105c0| 69 65 77 20 77 69 6e 64 | 6f 77 2e 09 09 09 7d 0d |iew wind|ow....}.|
|000105d0| 7b 09 69 20 69 73 20 74 | 68 65 20 69 6e 64 65 78 |{.i is t|he index|
|000105e0| 20 6f 66 20 74 68 65 20 | 6d 61 72 6b 65 72 2e 09 | of the |marker..|
|000105f0| 09 09 7d 0d 7b 09 69 20 | 3d 20 30 20 66 6f 72 20 |..}.{.i |= 0 for |
|00010600| 74 68 65 20 72 65 66 65 | 72 65 6e 63 65 20 6d 61 |the refe|rence ma|
|00010610| 72 6b 65 72 2e 09 09 09 | 7d 0d 7b 09 09 09 09 7d |rker....|}.{....}|
|00010620| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 4d 61 72 |...proce|dure Mar|
|00010630| 6b 65 64 43 6f 6f 72 64 | 20 28 69 3a 20 69 6e 74 |kedCoord| (i: int|
|00010640| 65 67 65 72 3b 20 76 61 | 72 20 78 2c 20 79 3a 20 |eger; va|r x, y: |
|00010650| 65 78 74 65 6e 64 65 64 | 29 3b 0d 0d 7b 09 72 65 |extended|);..{.re|
|00010660| 74 75 72 6e 73 20 74 68 | 65 20 78 20 61 6e 64 20 |turns th|e x and |
|00010670| 79 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 20 6f 66 |y coordi|nates of|
|00010680| 20 61 20 6d 61 72 6b 65 | 72 20 69 6e 20 74 68 65 | a marke|r in the|
|00010690| 20 70 72 65 76 69 65 77 | 20 77 69 6e 64 6f 77 2e | preview| window.|
|000106a0| 09 09 09 7d 0d 7b 09 69 | 20 69 73 20 74 68 65 20 |...}.{.i| is the |
|000106b0| 69 6e 64 65 78 20 6f 66 | 20 74 68 65 20 6d 61 72 |index of| the mar|
|000106c0| 6b 65 72 2e 09 09 09 7d | 0d 7b 09 69 20 3d 20 30 |ker....}|.{.i = 0|
|000106d0| 20 66 6f 72 20 74 68 65 | 20 72 65 66 65 72 65 6e | for the| referen|
|000106e0| 63 65 20 6d 61 72 6b 65 | 72 2e 09 09 09 7d 0d 7b |ce marke|r....}.{|
|000106f0| 09 09 09 09 7d 0d 0d 0d | 09 70 72 6f 63 65 64 75 |....}...|.procedu|
|00010700| 72 65 20 44 6f 4d 65 6e | 75 20 28 73 3a 20 53 74 |re DoMen|u (s: St|
|00010710| 72 32 35 35 29 3b 0d 0d | 7b 09 09 65 78 65 63 75 |r255);..|{..execu|
|00010720| 74 65 73 20 61 20 6d 65 | 6e 75 20 63 6f 6d 6d 61 |tes a me|nu comma|
|00010730| 6e 64 2c 20 77 69 74 68 | 20 74 68 65 20 73 61 6d |nd, with| the sam|
|00010740| 65 20 65 66 66 65 63 74 | 20 61 73 20 69 66 20 74 |e effect| as if t|
|00010750| 68 65 20 63 6f 6d 6d 61 | 6e 64 09 09 09 7d 0d 7b |he comma|nd...}.{|
|00010760| 09 09 69 73 20 63 68 6f | 73 65 6e 20 62 79 20 68 |..is cho|sen by h|
|00010770| 61 6e 64 2e 09 09 09 7d | 0d 7b 09 09 73 20 69 73 |and....}|.{..s is|
|00010780| 20 6f 66 20 74 68 65 20 | 74 79 70 65 20 27 4d 65 | of the |type 'Me|
|00010790| 6e 75 54 69 74 6c 65 3a | 4d 65 6e 75 49 74 65 6d |nuTitle:|MenuItem|
|000107a0| 27 20 6f 72 20 27 4d 65 | 6e 75 54 69 74 6c 65 3a |' or 'Me|nuTitle:|
|000107b0| 53 75 62 6d 65 6e 75 54 | 69 74 6c 65 3a 4d 65 6e |SubmenuT|itle:Men|
|000107c0| 75 49 74 65 6d 27 09 09 | 09 7d 0d 7b 09 09 43 61 |uItem'..|.}.{..Ca|
|000107d0| 75 73 65 73 20 61 20 72 | 75 6e 2d 74 69 6d 65 20 |uses a r|un-time |
|000107e0| 65 72 72 6f 72 20 69 66 | 20 73 75 63 68 20 61 20 |error if| such a |
|000107f0| 6d 65 6e 75 20 69 74 65 | 6d 20 64 6f 65 73 20 6e |menu ite|m does n|
|00010800| 6f 74 20 65 78 69 73 74 | 2e 09 09 09 7d 0d 7b 09 |ot exist|....}.{.|
|00010810| 09 61 64 64 20 22 24 4f | 4b 22 20 61 74 20 74 68 |.add "$O|K" at th|
|00010820| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 73 74 72 |e end of| the str|
|00010830| 69 6e 67 20 69 66 20 79 | 6f 75 20 77 61 6e 74 20 |ing if y|ou want |
|00010840| 74 6f 20 62 79 70 61 73 | 73 20 64 69 61 6c 6f 67 |to bypas|s dialog|
|00010850| 20 62 6f 78 65 73 09 09 | 09 7d 0d 7b 09 09 61 6e | boxes..|.}.{..an|
|00010860| 64 20 73 69 6d 75 6c 61 | 74 65 20 61 20 63 6c 69 |d simula|te a cli|
|00010870| 63 6b 20 6f 6e 20 6f 6b | 2e 09 09 09 7d 0d 7b 09 |ck on ok|....}.{.|
|00010880| 09 09 09 7d 0d 0d 0d 0d | 09 66 75 6e 63 74 69 6f |...}....|.functio|
|00010890| 6e 20 54 65 73 74 53 74 | 6f 70 3a 20 62 6f 6f 6c |n TestSt|op: bool|
|000108a0| 65 61 6e 3b 0d 7b 20 72 | 65 74 75 72 6e 73 20 74 |ean;.{ r|eturns t|
|000108b0| 72 75 65 20 69 66 20 61 | 20 75 73 65 72 20 70 72 |rue if a| user pr|
|000108c0| 65 73 73 65 73 20 74 68 | 65 20 63 6f 6d 6d 61 6e |esses th|e comman|
|000108d0| 64 20 6b 65 79 20 61 6e | 64 20 27 2e 27 20 2c 20 |d key an|d '.' , |
|000108e0| 6f 72 20 69 66 20 70 72 | 6f 46 69 74 20 6c 69 6b |or if pr|oFit lik|
|000108f0| 65 73 20 74 6f 20 73 74 | 6f 70 20 74 68 65 20 65 |es to st|op the e|
|00010900| 78 65 63 75 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |xecution| of the |
|00010910| 66 75 6e 63 74 69 6f 6e | 20 6f 72 20 70 72 6f 67 |function| or prog|
|00010920| 72 61 6d 20 09 09 09 7d | 0d 0d 09 70 72 6f 63 65 |ram ...}|...proce|
|00010930| 64 75 72 65 20 53 74 6f | 70 45 78 65 63 75 74 69 |dure Sto|pExecuti|
|00010940| 6f 6e 3b 0d 7b 20 74 65 | 6c 6c 73 20 70 72 6f 46 |on;.{ te|lls proF|
|00010950| 69 74 20 74 6f 20 73 74 | 6f 70 20 74 68 65 20 65 |it to st|op the e|
|00010960| 78 65 63 75 74 69 6f 6e | 20 61 66 74 65 72 20 68 |xecution| after h|
|00010970| 61 76 69 6e 67 20 63 6f | 6d 70 6c 65 74 65 64 20 |aving co|mpleted |
|00010980| 09 09 09 7d 0d 7b 20 74 | 68 65 20 61 63 74 75 61 |...}.{ t|he actua|
|00010990| 6c 20 66 75 6e 63 74 69 | 6f 6e 20 63 61 6c 6c 20 |l functi|on call |
|000109a0| 28 46 69 72 73 74 2c 20 | 52 75 6e 2c 20 20 65 74 |(First, |Run, et|
|000109b0| 63 20 2e 29 20 09 09 09 | 7d 0d 0d 0d 09 66 75 6e |c .) ...|}....fun|
|000109c0| 63 74 69 6f 6e 20 47 65 | 74 41 6e 64 53 65 74 53 |ction Ge|tAndSetS|
|000109d0| 74 61 74 75 73 28 6e 65 | 77 53 74 61 74 75 73 3a |tatus(ne|wStatus:|
|000109e0| 69 6e 74 65 67 65 72 3b | 20 76 61 72 20 73 3a 20 |integer;| var s: |
|000109f0| 53 74 72 32 35 35 29 3a | 69 6e 74 65 67 65 72 3b |Str255):|integer;|
|00010a00| 0d 7b 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 70 |.{ Retur|ns the p|
|00010a10| 72 65 73 65 6e 74 20 65 | 78 65 63 75 74 69 6f 6e |resent e|xecution|
|00010a20| 20 73 74 61 74 75 73 2c | 20 74 68 65 6e 20 73 65 | status,| then se|
|00010a30| 74 73 20 69 74 20 74 6f | 20 6e 65 77 53 74 61 74 |ts it to| newStat|
|00010a40| 75 73 20 7d 0d 7b 20 54 | 68 65 20 73 74 61 74 75 |us }.{ T|he statu|
|00010a50| 73 20 63 61 6e 20 62 65 | 3a 20 7d 0d 7b 09 30 3a |s can be|: }.{.0:|
|00010a60| 20 69 66 20 6e 6f 72 6d | 61 6c 20 6f 70 65 72 61 | if norm|al opera|
|00010a70| 74 69 6f 6e 20 7d 0d 7b | 09 31 3a 20 69 66 20 74 |tion }.{|.1: if t|
|00010a80| 68 65 20 75 73 65 72 20 | 69 6e 74 65 72 72 75 70 |he user |interrup|
|00010a90| 74 65 64 20 6f 70 65 72 | 61 74 69 6f 6e 20 7d 0d |ted oper|ation }.|
|00010aa0| 7b 09 32 3a 20 69 66 20 | 61 20 77 61 72 6e 69 6e |{.2: if |a warnin|
|00010ab0| 67 20 68 61 73 20 62 65 | 65 6e 20 70 6f 73 74 65 |g has be|en poste|
|00010ac0| 64 20 7d 0d 7b 09 33 3a | 20 69 66 20 61 20 72 75 |d }.{.3:| if a ru|
|00010ad0| 6e 2d 74 69 6d 65 20 65 | 72 72 6f 72 20 68 61 73 |n-time e|rror has|
|00010ae0| 20 62 65 65 6e 20 70 6f | 73 74 65 64 20 7d 0d 7b | been po|sted }.{|
|00010af0| 20 53 65 74 20 6e 65 77 | 53 74 61 74 75 73 20 74 | Set new|Status t|
|00010b00| 6f 20 2d 31 20 69 66 20 | 79 6f 75 20 64 6f 6e 27 |o -1 if |you don'|
|00010b10| 74 20 77 61 6e 74 20 74 | 6f 20 63 68 61 6e 67 65 |t want t|o change|
|00010b20| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 73 74 61 | the cur|rent sta|
|00010b30| 74 75 73 20 7d 0d 7b 20 | 49 66 20 79 6f 75 20 73 |tus }.{ |If you s|
|00010b40| 65 74 20 61 20 73 74 61 | 74 75 73 20 32 20 6f 72 |et a sta|tus 2 or|
|00010b50| 20 33 2c 20 70 61 73 73 | 20 61 20 73 75 69 74 61 | 3, pass| a suita|
|00010b60| 62 6c 65 20 65 72 72 6f | 72 20 6f 72 20 77 61 72 |ble erro|r or war|
|00010b70| 6e 69 6e 67 20 6d 65 73 | 73 61 67 65 20 7d 0d 7b |ning mes|sage }.{|
|00010b80| 20 69 6e 20 73 20 49 74 | 20 77 69 6c 6c 20 62 65 | in s It| will be|
|00010b90| 20 73 68 6f 77 6e 20 6f | 6e 63 65 20 79 6f 75 72 | shown o|nce your|
|00010ba0| 20 6d 6f 64 75 6c 65 20 | 69 73 20 66 69 6e 73 68 | module |is finsh|
|00010bb0| 65 64 2e 20 7d 0d 7b 20 | 4f 6e 20 72 65 74 75 72 |ed. }.{ |On retur|
|00010bc0| 6e 2c 20 73 20 68 6f 6c | 64 73 20 74 68 65 20 63 |n, s hol|ds the c|
|00010bd0| 75 72 72 65 6e 74 20 6d | 65 73 73 61 67 65 20 28 |urrent m|essage (|
|00010be0| 69 66 20 73 74 61 74 75 | 73 20 77 61 73 20 32 20 |if statu|s was 2 |
|00010bf0| 6f 72 20 33 29 20 7d 0d | 7b 20 4e 6f 74 65 2c 20 |or 3) }.|{ Note, |
|00010c00| 74 68 61 74 20 63 61 6c | 6c 69 6e 67 20 53 74 6f |that cal|ling Sto|
|00010c10| 70 45 78 65 63 75 74 69 | 6f 6e 20 69 73 20 65 71 |pExecuti|on is eq|
|00010c20| 75 69 76 61 6c 65 6e 74 | 20 74 6f 20 73 65 74 74 |uivalent| to sett|
|00010c30| 69 6e 67 20 65 72 72 6f | 72 20 73 74 61 74 75 73 |ing erro|r status|
|00010c40| 20 7d 0d 7b 20 74 6f 20 | 31 20 61 6e 64 20 54 65 | }.{ to |1 and Te|
|00010c50| 73 74 53 74 6f 70 20 72 | 65 74 75 72 6e 73 20 74 |stStop r|eturns t|
|00010c60| 72 75 65 20 69 66 20 65 | 72 72 6f 72 20 73 74 61 |rue if e|rror sta|
|00010c70| 74 75 73 20 69 73 20 31 | 20 6f 72 20 33 20 7d 0d |tus is 1| or 3 }.|
|00010c80| 0d 0d 0d 0d 7b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....{***|********|
|00010c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010cd0| 2a 2a 2a 09 09 09 7d 0d | 7b 2a 2a 2a 2a 2a 2a 2a |***...}.|{*******|
|00010ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010cf0| 2a 2a 2a 2a 2a 2a 20 61 | 64 76 61 6e 63 65 64 20 |****** a|dvanced |
|00010d00| 72 6f 75 74 69 6e 65 73 | 20 2a 2a 2a 2a 2a 2a 2a |routines| *******|
|00010d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00010d20| 2a 2a 2a 2a 2a 2a 2a 09 | 09 09 7d 0d 0d 0d 0d 0d |*******.|..}.....|
|00010d30| 7b 09 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |{.The fo|llowing |
|00010d40| 72 6f 75 74 69 6e 65 73 | 20 61 72 65 20 70 72 6f |routines| are pro|
|00010d50| 76 69 64 65 64 20 66 6f | 72 20 74 68 65 20 65 78 |vided fo|r the ex|
|00010d60| 70 65 72 69 65 6e 63 65 | 64 20 70 72 6f 67 72 61 |perience|d progra|
|00010d70| 6d 6d 65 72 2e 09 09 09 | 7d 0d 7b 09 54 68 65 79 |mmer....|}.{.They|
|00010d80| 20 61 6c 6c 6f 77 20 66 | 6f 72 20 6d 6f 72 65 20 | allow f|or more |
|00010d90| 70 6f 77 65 72 20 61 6e | 64 20 66 6c 65 78 69 62 |power an|d flexib|
|00010da0| 69 6c 69 74 79 20 77 68 | 65 6e 20 77 72 69 74 69 |ility wh|en writi|
|00010db0| 6e 67 20 70 6f 77 65 72 | 66 75 6c 09 09 09 7d 0d |ng power|ful...}.|
|00010dc0| 7b 09 65 78 74 65 72 6e | 61 6c 20 6d 6f 64 75 6c |{.extern|al modul|
|00010dd0| 65 73 2e 09 09 09 7d 0d | 0d 0d 0d 09 70 72 6f 63 |es....}.|....proc|
|00010de0| 65 64 75 72 65 20 48 61 | 6e 64 6c 65 45 76 65 6e |edure Ha|ndleEven|
|00010df0| 74 20 28 76 61 72 20 74 | 68 65 45 76 65 6e 74 3a |t (var t|heEvent:|
|00010e00| 20 45 76 65 6e 74 52 65 | 63 6f 72 64 29 3b 0d 0d | EventRe|cord);..|
|00010e10| 7b 09 09 50 61 73 73 65 | 73 20 74 68 65 45 76 65 |{..Passe|s theEve|
|00010e20| 6e 74 20 74 6f 20 70 72 | 6f 20 46 69 74 20 66 6f |nt to pr|o Fit fo|
|00010e30| 72 20 68 61 6e 64 6c 69 | 6e 67 20 69 74 2e 20 55 |r handli|ng it. U|
|00010e40| 73 65 20 74 68 69 73 20 | 63 61 6c 6c 20 74 6f 09 |se this |call to.|
|00010e50| 09 09 7d 0d 7b 09 09 68 | 61 6e 64 6c 65 20 75 70 |..}.{..h|andle up|
|00010e60| 64 61 74 65 20 65 76 65 | 6e 74 73 20 77 68 65 6e |date eve|nts when|
|00010e70| 20 63 72 65 61 74 69 6e | 67 20 79 6f 75 72 20 6f | creatin|g your o|
|00010e80| 77 6e 20 77 69 6e 64 6f | 77 2e 09 09 09 7d 0d 7b |wn windo|w....}.{|
|00010e90| 09 09 09 09 7d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |....}...|function|
|00010ea0| 20 43 61 6e 63 65 6c 45 | 76 65 6e 74 20 28 76 61 | CancelE|vent (va|
|00010eb0| 72 20 74 68 65 45 76 65 | 6e 74 3a 20 45 76 65 6e |r theEve|nt: Even|
|00010ec0| 74 52 65 63 6f 72 64 29 | 3a 42 6f 6f 6c 65 61 6e |tRecord)|:Boolean|
|00010ed0| 3b 0d 0d 7b 09 09 72 65 | 74 75 72 6e 73 20 74 72 |;..{..re|turns tr|
|00010ee0| 75 65 20 69 66 20 74 68 | 65 45 76 65 6e 74 20 69 |ue if th|eEvent i|
|00010ef0| 73 20 61 20 6b 65 79 2d | 64 6f 77 6e 20 65 76 65 |s a key-|down eve|
|00010f00| 6e 74 20 66 6f 72 20 74 | 68 65 20 65 73 63 61 70 |nt for t|he escap|
|00010f10| 65 20 6b 65 79 20 6f 72 | 20 63 6d 64 2d 27 2e 27 |e key or| cmd-'.'|
|00010f20| 20 7d 0d 7b 09 09 09 09 | 7d 0d 0d 09 70 72 6f 63 | }.{....|}...proc|
|00010f30| 65 64 75 72 65 20 44 65 | 61 63 74 69 76 61 74 65 |edure De|activate|
|00010f40| 50 72 6f 46 69 74 57 69 | 6e 64 6f 77 73 3b 0d 0d |ProFitWi|ndows;..|
|00010f50| 7b 09 09 44 65 61 63 74 | 69 76 61 74 65 73 20 61 |{..Deact|ivates a|
|00010f60| 6c 6c 20 6f 66 20 70 72 | 6f 20 46 69 74 27 73 20 |ll of pr|o Fit's |
|00010f70| 77 69 6e 64 6f 77 73 20 | 61 6e 64 20 64 69 73 61 |windows |and disa|
|00010f80| 62 6c 65 73 20 61 6c 6c | 20 6d 65 6e 75 73 2e 09 |bles all| menus..|
|00010f90| 09 09 7d 0d 7b 09 09 43 | 61 6c 6c 20 74 68 69 73 |..}.{..C|all this|
|00010fa0| 20 72 6f 75 74 69 6e 65 | 20 62 65 66 6f 72 65 20 | routine| before |
|00010fb0| 73 68 6f 77 69 6e 67 20 | 61 20 77 69 6e 64 6f 77 |showing |a window|
|00010fc0| 20 6f 72 20 63 72 65 61 | 74 69 6e 67 20 61 20 64 | or crea|ting a d|
|00010fd0| 69 61 6c 6f 67 2e 09 09 | 09 7d 0d 7b 09 09 45 61 |ialog...|.}.{..Ea|
|00010fe0| 63 68 20 63 61 6c 6c 20 | 74 6f 20 44 65 63 74 69 |ch call |to Decti|
|00010ff0| 76 61 74 65 50 72 6f 46 | 69 74 57 69 6e 64 6f 77 |vateProF|itWindow|
|00011000| 73 20 6d 75 73 74 20 62 | 65 20 6d 61 74 63 68 65 |s must b|e matche|
|00011010| 64 20 77 69 74 68 20 61 | 20 63 61 6c 6c 20 74 6f |d with a| call to|
|00011020| 09 09 09 7d 0d 7b 09 09 | 41 63 74 69 76 61 74 65 |...}.{..|Activate|
|00011030| 50 72 6f 46 69 74 57 69 | 6e 64 6f 77 73 09 09 09 |ProFitWi|ndows...|
|00011040| 7d 0d 7b 09 09 09 09 7d | 0d 0d 09 70 72 6f 63 65 |}.{....}|...proce|
|00011050| 64 75 72 65 20 41 63 74 | 69 76 61 74 65 50 72 6f |dure Act|ivatePro|
|00011060| 46 69 74 57 69 6e 64 6f | 77 73 3b 0d 0d 7b 09 09 |FitWindo|ws;..{..|
|00011070| 41 63 74 69 76 61 74 65 | 73 20 70 72 6f 20 46 69 |Activate|s pro Fi|
|00011080| 74 27 73 20 66 72 6f 6e | 74 6d 6f 73 74 20 77 69 |t's fron|tmost wi|
|00011090| 6e 64 6f 77 20 61 6e 64 | 20 65 6e 61 62 6c 65 73 |ndow and| enables|
|000110a0| 20 74 68 65 20 6d 65 6e | 75 73 2e 09 09 09 7d 0d | the men|us....}.|
|000110b0| 7b 09 09 43 61 6c 6c 20 | 74 68 69 73 20 72 6f 75 |{..Call |this rou|
|000110c0| 74 69 6e 65 20 61 66 74 | 65 72 20 63 6c 6f 73 69 |tine aft|er closi|
|000110d0| 6e 67 20 61 20 77 69 6e | 64 6f 77 20 6f 72 20 61 |ng a win|dow or a|
|000110e0| 20 64 69 61 6c 6f 67 2e | 09 09 09 7d 0d 7b 09 09 | dialog.|...}.{..|
|000110f0| 45 61 63 68 20 63 61 6c | 6c 20 74 6f 20 41 63 74 |Each cal|l to Act|
|00011100| 69 76 61 74 65 50 72 6f | 46 69 74 57 69 6e 64 6f |ivatePro|FitWindo|
|00011110| 77 73 20 6d 75 73 74 20 | 62 65 20 70 72 65 63 65 |ws must |be prece|
|00011120| 64 65 64 20 62 79 20 61 | 20 63 61 6c 6c 20 74 6f |ded by a| call to|
|00011130| 09 09 09 7d 0d 7b 09 09 | 44 65 63 74 69 76 61 74 |...}.{..|Dectivat|
|00011140| 65 50 72 6f 46 69 74 57 | 69 6e 64 6f 77 73 09 09 |eProFitW|indows..|
|00011150| 09 7d 0d 7b 09 09 09 09 | 7d 0d 0d 09 66 75 6e 63 |.}.{....|}...func|
|00011160| 74 69 6f 6e 20 47 65 74 | 4d 6f 64 75 6c 65 46 69 |tion Get|ModuleFi|
|00011170| 6c 65 3a 20 46 53 53 70 | 65 63 50 74 72 3b 0d 0d |le: FSSp|ecPtr;..|
|00011180| 7b 09 09 52 65 74 75 72 | 6e 73 20 61 20 70 6f 69 |{..Retur|ns a poi|
|00011190| 6e 74 65 72 20 74 6f 20 | 74 68 65 20 46 53 53 70 |nter to |the FSSp|
|000111a0| 65 63 20 72 65 63 6f 72 | 64 20 6f 66 20 74 68 69 |ec recor|d of thi|
|000111b0| 73 20 66 69 6c 65 20 6f | 66 20 74 68 69 73 20 6d |s file o|f this m|
|000111c0| 6f 64 75 6c 65 2e 09 09 | 09 7d 0d 7b 09 09 09 09 |odule...|.}.{....|
|000111d0| 7d 0d 0d 0d 0d 7b 20 61 | 64 76 61 6e 63 65 64 20 |}....{ a|dvanced |
|000111e0| 64 61 74 61 20 61 63 63 | 65 73 73 20 72 6f 75 74 |data acc|ess rout|
|000111f0| 69 6e 65 73 20 09 09 09 | 7d 0d 0d 7b 20 54 68 65 |ines ...|}..{ The|
|00011200| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 64 65 66 69 6e | followi|ng defin|
|00011210| 69 74 69 6f 6e 73 20 61 | 72 65 20 75 73 65 64 20 |itions a|re used |
|00011220| 66 6f 72 20 61 63 63 65 | 73 73 69 6e 67 20 38 20 |for acce|ssing 8 |
|00011230| 62 79 74 65 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |byte flo|ating po|
|00011240| 69 6e 74 20 76 61 6c 75 | 65 73 20 6f 6e 20 7d 0d |int valu|es on }.|
|00011250| 7b 20 63 6f 6d 70 69 6c | 65 72 73 20 74 68 61 74 |{ compil|ers that|
|00011260| 20 64 6f 20 6e 6f 74 20 | 72 65 63 6f 67 6e 69 7a | do not |recogniz|
|00011270| 65 20 74 68 69 73 20 64 | 61 74 61 20 74 79 70 65 |e this d|ata type|
|00011280| 20 7d 0d 7b 20 57 65 20 | 64 65 66 69 6e 65 20 74 | }.{ We |define t|
|00011290| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 64 61 74 |he follo|wing dat|
|000112a0| 61 20 74 79 70 65 73 20 | 61 6e 64 20 73 79 6d 62 |a types |and symb|
|000112b0| 6f 6c 73 3a 20 7d 0d 7b | 09 64 6f 75 62 6c 65 5f |ols: }.{|.double_|
|000112c0| 38 3a 09 61 6e 20 38 20 | 62 79 74 65 20 66 6c 6f |8:.an 8 |byte flo|
|000112d0| 61 74 69 6e 67 20 70 6f | 69 6e 74 20 76 61 6c 75 |ating po|int valu|
|000112e0| 65 20 74 79 70 65 20 7d | 0d 7b 09 43 4f 4d 50 49 |e type }|.{.COMPI|
|000112f0| 4c 45 52 5f 4b 4e 4f 57 | 53 5f 44 4f 55 42 4c 45 |LER_KNOW|S_DOUBLE|
|00011300| 5f 38 3a 09 74 68 69 73 | 20 73 79 6d 62 6f 6c 20 |_8:.this| symbol |
|00011310| 69 73 20 74 72 75 65 20 | 69 66 20 74 68 65 20 63 |is true |if the c|
|00011320| 6f 6d 70 69 6c 65 72 20 | 6b 6e 6f 77 73 20 68 6f |ompiler |knows ho|
|00011330| 77 20 74 6f 20 63 6f 6e | 76 65 72 74 20 62 65 74 |w to con|vert bet|
|00011340| 77 65 65 6e 20 7d 0d 7b | 09 09 09 09 09 09 09 09 |ween }.{|........|
|00011350| 64 6f 75 62 6c 65 5f 38 | 20 61 6e 64 20 65 78 74 |double_8| and ext|
|00011360| 65 6e 64 65 64 2e 20 49 | 74 20 69 73 20 66 61 6c |ended. I|t is fal|
|00011370| 73 65 20 69 66 20 79 6f | 75 20 6d 75 73 74 20 75 |se if yo|u must u|
|00011380| 73 65 20 74 68 65 20 7d | 0d 7b 09 09 09 09 09 09 |se the }|.{......|
|00011390| 09 09 66 75 6e 63 74 69 | 6f 6e 73 20 44 62 6c 38 |..functi|ons Dbl8|
|000113a0| 54 6f 45 78 74 20 61 6e | 64 20 45 78 74 54 6f 44 |ToExt an|d ExtToD|
|000113b0| 62 6c 38 20 66 6f 72 20 | 74 68 69 73 20 63 6f 6e |bl8 for |this con|
|000113c0| 76 65 72 73 69 6f 6e 20 | 7d 0d 7b 09 45 58 54 5f |version |}.{.EXT_|
|000113d0| 53 49 5a 45 3a 09 09 09 | 09 09 74 68 69 73 20 73 |SIZE:...|..this s|
|000113e0| 79 6d 62 6f 6c 20 69 73 | 20 38 2c 20 31 30 20 6f |ymbol is| 8, 10 o|
|000113f0| 72 20 31 32 2c 20 64 65 | 70 65 6e 64 69 6e 67 20 |r 12, de|pending |
|00011400| 6f 6e 20 74 68 65 20 73 | 69 7a 65 20 6f 66 20 74 |on the s|ize of t|
|00011410| 68 65 20 74 79 70 65 20 | 65 78 74 65 6e 64 65 64 |he type |extended|
|00011420| 20 7d 0d 0d 09 74 79 70 | 65 0d 0d 7b 24 49 46 43 | }...typ|e..{$IFC|
|00011430| 20 47 45 4e 45 52 41 54 | 49 4e 47 50 4f 57 45 52 | GENERAT|INGPOWER|
|00011440| 50 43 20 7d 0d 09 7b 20 | 46 6f 72 20 50 6f 77 65 |PC }..{ |For Powe|
|00011450| 72 50 43 20 63 6f 6d 70 | 69 6c 65 72 73 2c 20 64 |rPC comp|ilers, d|
|00011460| 6f 75 62 6c 65 20 61 6e | 64 20 65 78 74 65 6e 64 |ouble an|d extend|
|00011470| 65 64 20 61 72 65 20 38 | 20 62 79 74 65 73 2c 20 |ed are 8| bytes, |
|00011480| 73 6f 20 74 68 65 72 65 | 27 73 20 6e 6f 20 63 6f |so there|'s no co|
|00011490| 6e 76 65 72 73 69 6f 6e | 20 6e 65 63 65 73 73 61 |nversion| necessa|
|000114a0| 72 79 20 7d 0d 09 7b 24 | 53 45 54 43 20 43 4f 4d |ry }..{$|SETC COM|
|000114b0| 50 49 4c 45 52 5f 4b 4e | 4f 57 53 5f 44 4f 55 42 |PILER_KN|OWS_DOUB|
|000114c0| 4c 45 5f 38 20 3a 3d 20 | 74 72 75 65 7d 0d 09 7b |LE_8 := |true}..{|
|000114d0| 24 53 45 54 43 20 45 58 | 54 5f 53 49 5a 45 20 3a |$SETC EX|T_SIZE :|
|000114e0| 3d 20 38 7d 0d 09 09 64 | 6f 75 62 6c 65 5f 38 20 |= 8}...d|ouble_8 |
|000114f0| 3d 20 64 6f 75 62 6c 65 | 3b 09 09 09 09 7b 20 61 |= double|;....{ a|
|00011500| 20 38 20 62 79 74 65 20 | 66 6c 6f 61 74 69 6e 67 | 8 byte |floating|
|00011510| 20 70 6f 69 6e 74 20 6e | 75 6d 62 65 72 20 7d 0d | point n|umber }.|
|00011520| 7b 24 45 4c 53 45 43 7d | 0d 09 7b 24 49 46 43 20 |{$ELSEC}|..{$IFC |
|00011530| 4e 4f 54 20 55 4e 44 45 | 46 49 4e 45 44 20 54 48 |NOT UNDE|FINED TH|
|00011540| 49 4e 4b 5f 50 41 53 43 | 41 4c 20 7d 0d 09 09 7b |INK_PASC|AL }...{|
|00011550| 20 54 68 69 6e 6b 20 50 | 61 73 63 61 6c 20 63 61 | Think P|ascal ca|
|00011560| 6e 20 63 6f 6e 76 65 72 | 74 20 62 65 74 77 65 65 |n conver|t betwee|
|00011570| 6e 20 64 6f 75 62 6c 65 | 5f 38 20 61 6e 64 20 65 |n double|_8 and e|
|00011580| 78 74 65 6e 64 65 64 20 | 7d 0d 09 09 7b 24 53 45 |xtended |}...{$SE|
|00011590| 54 43 20 43 4f 4d 50 49 | 4c 45 52 5f 4b 4e 4f 57 |TC COMPI|LER_KNOW|
|000115a0| 53 5f 44 4f 55 42 4c 45 | 5f 38 20 3a 3d 20 74 72 |S_DOUBLE|_8 := tr|
|000115b0| 75 65 7d 0d 09 09 7b 24 | 49 46 43 20 4f 50 54 49 |ue}...{$|IFC OPTI|
|000115c0| 4f 4e 28 4d 43 36 38 38 | 38 31 29 7d 0d 09 09 09 |ON(MC688|81)}....|
|000115d0| 7b 24 53 45 54 43 20 45 | 58 54 5f 53 49 5a 45 20 |{$SETC E|XT_SIZE |
|000115e0| 3a 3d 20 31 32 7d 0d 09 | 09 7b 24 45 4c 53 45 43 |:= 12}..|.{$ELSEC|
|000115f0| 7d 0d 09 09 09 7b 24 53 | 45 54 43 20 45 58 54 5f |}....{$S|ETC EXT_|
|00011600| 53 49 5a 45 20 3a 3d 20 | 31 30 7d 0d 09 09 7b 24 |SIZE := |10}...{$|
|00011610| 45 4e 44 43 7d 0d 09 09 | 64 6f 75 62 6c 65 5f 38 |ENDC}...|double_8|
|00011620| 20 3d 20 64 6f 75 62 6c | 65 3b 09 09 09 09 7b 20 | = doubl|e;....{ |
|00011630| 61 20 38 20 62 79 74 65 | 20 66 6c 6f 61 74 69 6e |a 8 byte| floatin|
|00011640| 67 20 70 6f 69 6e 74 20 | 6e 75 6d 62 65 72 20 7d |g point |number }|
|00011650| 0d 09 7b 24 45 4c 53 45 | 43 7d 0d 09 09 7b 20 4d |..{$ELSE|C}...{ M|
|00011660| 65 74 72 6f 77 65 72 6b | 73 20 70 61 73 63 61 6c |etrowerk|s pascal|
|00011670| 20 61 6e 64 20 6f 74 68 | 65 72 20 70 61 73 63 61 | and oth|er pasca|
|00011680| 6c 20 63 6f 6d 70 69 6c | 65 72 73 20 63 61 6e 6e |l compil|ers cann|
|00011690| 6f 74 20 75 73 65 20 38 | 20 62 79 74 65 20 64 6f |ot use 8| byte do|
|000116a0| 75 62 6c 65 73 20 77 68 | 69 6c 65 20 7d 0d 09 09 |ubles wh|ile }...|
|000116b0| 7b 20 65 78 74 65 6e 64 | 65 64 20 69 73 20 31 30 |{ extend|ed is 10|
|000116c0| 20 6f 72 20 31 32 20 62 | 79 74 65 73 20 7d 0d 09 | or 12 b|ytes }..|
|000116d0| 09 7b 24 53 45 54 43 20 | 43 4f 4d 50 49 4c 45 52 |.{$SETC |COMPILER|
|000116e0| 5f 4b 4e 4f 57 53 5f 44 | 4f 55 42 4c 45 5f 38 20 |_KNOWS_D|OUBLE_8 |
|000116f0| 3a 3d 20 66 61 6c 73 65 | 7d 0d 09 09 7b 24 49 46 |:= false|}...{$IF|
|00011700| 43 20 4f 50 54 49 4f 4e | 28 4d 43 36 38 38 38 31 |C OPTION|(MC68881|
|00011710| 29 7d 0d 09 09 09 7b 24 | 53 45 54 43 20 45 58 54 |)}....{$|SETC EXT|
|00011720| 5f 53 49 5a 45 20 3a 3d | 20 31 32 7d 0d 09 09 7b |_SIZE :=| 12}...{|
|00011730| 24 45 4c 53 45 43 7d 0d | 09 09 09 7b 24 53 45 54 |$ELSEC}.|...{$SET|
|00011740| 43 20 45 58 54 5f 53 49 | 5a 45 20 3a 3d 20 31 30 |C EXT_SI|ZE := 10|
|00011750| 7d 0d 09 09 7b 24 45 4e | 44 43 7d 0d 09 09 64 6f |}...{$EN|DC}...do|
|00011760| 75 62 6c 65 5f 38 20 3d | 20 61 72 72 61 79 5b 30 |uble_8 =| array[0|
|00011770| 2e 2e 31 5d 20 6f 66 20 | 6c 6f 6e 67 69 6e 74 3b |..1] of |longint;|
|00011780| 09 7b 20 4d 57 20 50 61 | 73 63 61 6c 20 64 6f 65 |.{ MW Pa|scal doe|
|00011790| 73 20 6e 6f 74 20 73 75 | 70 70 6f 72 74 20 38 20 |s not su|pport 8 |
|000117a0| 62 79 74 65 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |byte flo|ating po|
|000117b0| 69 6e 74 20 6e 75 6d 62 | 65 72 73 20 7d 0d 09 09 |int numb|ers }...|
|000117c0| 09 09 09 09 09 09 09 09 | 09 7b 20 57 65 20 74 68 |........|.{ We th|
|000117d0| 65 72 65 66 6f 72 65 20 | 64 65 66 69 6e 65 20 74 |erefore |define t|
|000117e0| 68 69 73 20 72 65 63 6f | 72 64 20 61 6e 64 20 74 |his reco|rd and t|
|000117f0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 72 6f 75 |he follo|wing rou|
|00011800| 74 69 6e 65 73 20 7d 0d | 09 09 09 09 09 09 09 09 |tines }.|........|
|00011810| 09 09 09 7b 20 66 6f 72 | 20 61 63 63 65 73 73 69 |...{ for| accessi|
|00011820| 6e 67 20 74 68 69 73 20 | 74 79 70 65 20 7d 0d 09 |ng this |type }..|
|00011830| 7b 24 45 4e 44 43 7d 0d | 7b 24 45 4e 44 43 7d 0d |{$ENDC}.|{$ENDC}.|
|00011840| 0d 0d 09 09 46 6c 6f 61 | 74 43 6f 6c 75 6d 6e 41 |....Floa|tColumnA|
|00011850| 72 72 61 79 20 3d 20 61 | 72 72 61 79 5b 30 2e 2e |rray = a|rray[0..|
|00011860| 30 5d 20 6f 66 20 72 65 | 61 6c 3b 09 09 7b 20 61 |0] of re|al;..{ a|
|00011870| 20 76 61 72 69 61 62 6c | 65 20 73 69 7a 65 20 61 | variabl|e size a|
|00011880| 72 72 61 79 20 6f 66 20 | 34 20 62 79 74 65 20 66 |rray of |4 byte f|
|00011890| 6c 6f 61 74 69 6e 67 20 | 70 6f 69 6e 74 20 6e 75 |loating |point nu|
|000118a0| 6d 62 65 72 73 20 7d 0d | 09 09 44 6f 75 62 6c 65 |mbers }.|..Double|
|000118b0| 43 6f 6c 75 6d 6e 41 72 | 72 61 79 20 3d 20 61 72 |ColumnAr|ray = ar|
|000118c0| 72 61 79 5b 30 2e 2e 30 | 5d 20 6f 66 20 64 6f 75 |ray[0..0|] of dou|
|000118d0| 62 6c 65 5f 38 3b 09 7b | 20 61 20 76 61 72 69 61 |ble_8;.{| a varia|
|000118e0| 62 6c 65 20 73 69 7a 65 | 20 61 72 72 61 79 20 6f |ble size| array o|
|000118f0| 66 20 38 20 62 79 74 65 | 20 66 6c 6f 61 74 69 6e |f 8 byte| floatin|
|00011900| 67 20 70 6f 69 6e 74 20 | 6e 75 6d 62 65 72 73 20 |g point |numbers |
|00011910| 7d 0d 09 09 09 09 09 09 | 09 09 09 09 7b 20 47 65 |}.......|....{ Ge|
|00011920| 74 43 6f 6c 48 61 6e 64 | 6c 65 2f 53 65 74 43 6f |tColHand|le/SetCo|
|00011930| 6c 48 61 6e 64 6c 65 3a | 20 49 6e 64 65 78 20 5b |lHandle:| Index [|
|00011940| 30 5d 20 69 73 20 72 65 | 73 65 72 76 65 64 2e 20 |0] is re|served. |
|00011950| 46 69 72 73 74 20 76 61 | 6c 69 64 20 69 6e 64 65 |First va|lid inde|
|00011960| 78 20 69 73 20 5b 31 5d | 20 7d 0d 0d 09 09 46 6c |x is [1]| }....Fl|
|00011970| 6f 61 74 43 6f 6c 75 6d | 6e 50 74 72 20 3d 20 5e |oatColum|nPtr = ^|
|00011980| 46 6c 6f 61 74 43 6f 6c | 75 6d 6e 41 72 72 61 79 |FloatCol|umnArray|
|00011990| 3b 0d 09 09 46 6c 6f 61 | 74 43 6f 6c 75 6d 6e 48 |;...Floa|tColumnH|
|000119a0| 61 6e 64 6c 65 20 3d 20 | 5e 46 6c 6f 61 74 43 6f |andle = |^FloatCo|
|000119b0| 6c 75 6d 6e 50 74 72 3b | 09 09 7b 20 63 6f 6c 75 |lumnPtr;|..{ colu|
|000119c0| 6d 6e 20 68 61 6e 64 6c | 65 20 66 6f 72 20 63 6f |mn handl|e for co|
|000119d0| 6c 75 6d 6e 73 20 6f 66 | 20 74 79 70 65 20 66 6c |lumns of| type fl|
|000119e0| 6f 61 74 43 6f 6c 75 6d | 6e 20 7d 0d 0d 09 09 44 |oatColum|n }....D|
|000119f0| 6f 75 62 6c 65 43 6f 6c | 75 6d 6e 50 74 72 20 3d |oubleCol|umnPtr =|
|00011a00| 20 5e 44 6f 75 62 6c 65 | 43 6f 6c 75 6d 6e 41 72 | ^Double|ColumnAr|
|00011a10| 72 61 79 3b 0d 09 09 44 | 6f 75 62 6c 65 43 6f 6c |ray;...D|oubleCol|
|00011a20| 75 6d 6e 48 61 6e 64 6c | 65 20 3d 20 5e 44 6f 75 |umnHandl|e = ^Dou|
|00011a30| 62 6c 65 43 6f 6c 75 6d | 6e 50 74 72 3b 09 09 7b |bleColum|nPtr;..{|
|00011a40| 20 63 6f 6c 75 6d 6e 20 | 68 61 6e 64 6c 65 20 66 | column |handle f|
|00011a50| 6f 72 20 63 6f 6c 75 6d | 6e 73 20 6f 66 20 74 79 |or colum|ns of ty|
|00011a60| 70 65 20 64 6f 75 62 6c | 65 43 6f 6c 75 6d 6e 20 |pe doubl|eColumn |
|00011a70| 7d 0d 0d 09 09 54 65 78 | 74 43 6f 6c 75 6d 6e 50 |}....Tex|tColumnP|
|00011a80| 74 72 20 3d 20 5e 53 74 | 72 69 6e 67 44 61 74 61 |tr = ^St|ringData|
|00011a90| 3b 0d 09 09 54 65 78 74 | 43 6f 6c 75 6d 6e 48 61 |;...Text|ColumnHa|
|00011aa0| 6e 64 6c 65 20 3d 20 5e | 54 65 78 74 43 6f 6c 75 |ndle = ^|TextColu|
|00011ab0| 6d 6e 50 74 72 3b 09 09 | 09 7b 20 63 6f 6c 75 6d |mnPtr;..|.{ colum|
|00011ac0| 6e 20 68 61 6e 64 6c 65 | 20 66 6f 72 20 63 6f 6c |n handle| for col|
|00011ad0| 75 6d 6e 73 20 6f 66 20 | 74 79 70 65 20 74 65 78 |umns of |type tex|
|00011ae0| 74 43 6f 6c 75 6d 6e 20 | 7d 0d 0d 0d 09 70 72 6f |tColumn |}....pro|
|00011af0| 63 65 64 75 72 65 20 47 | 65 74 43 6f 6c 48 61 6e |cedure G|etColHan|
|00011b00| 64 6c 65 20 28 63 6f 6c | 3a 20 6c 6f 6e 67 69 6e |dle (col|: longin|
|00011b10| 74 3b 20 76 61 72 20 63 | 6f 6c 48 3a 20 48 61 6e |t; var c|olH: Han|
|00011b20| 64 6c 65 3b 20 76 61 72 | 20 6c 65 6e 67 74 68 3a |dle; var| length:|
|00011b30| 20 6c 6f 6e 67 69 6e 74 | 3b 20 76 61 72 20 63 6f | longint|; var co|
|00011b40| 6c 54 79 70 65 3a 20 6c | 6f 6e 67 69 6e 74 3b 20 |lType: l|ongint; |
|00011b50| 66 6f 72 57 72 69 74 69 | 6e 67 3a 20 42 6f 6f 6c |forWriti|ng: Bool|
|00011b60| 65 61 6e 29 3b 0d 0d 7b | 09 09 52 65 74 75 72 6e |ean);..{|..Return|
|00011b70| 73 20 61 20 68 61 6e 64 | 6c 65 20 28 63 6f 6c 48 |s a hand|le (colH|
|00011b80| 29 20 74 6f 20 74 68 65 | 20 64 61 74 61 20 6f 66 |) to the| data of|
|00011b90| 20 74 68 65 20 67 69 76 | 65 6e 20 63 6f 6c 75 6d | the giv|en colum|
|00011ba0| 6e 2e 20 59 6f 75 20 63 | 61 6e 20 72 65 61 64 20 |n. You c|an read |
|00011bb0| 61 6e 64 2f 6f 72 09 09 | 09 7d 0d 7b 09 09 6d 6f |and/or..|.}.{..mo|
|00011bc0| 64 69 66 79 20 74 68 65 | 20 64 61 74 61 20 69 6e |dify the| data in|
|00011bd0| 20 74 68 65 20 68 61 6e | 64 6c 65 2e 20 54 68 69 | the han|dle. Thi|
|00011be0| 73 20 69 73 20 6d 75 63 | 68 20 66 61 73 74 65 72 |s is muc|h faster|
|00011bf0| 20 74 68 61 6e 20 61 63 | 63 65 73 73 69 6e 67 20 | than ac|cessing |
|00011c00| 61 20 63 6f 6c 75 6d 6e | 27 73 09 09 09 7d 0d 7b |a column|'s...}.{|
|00011c10| 09 09 64 61 74 61 20 74 | 68 72 6f 75 67 68 20 47 |..data t|hrough G|
|00011c20| 65 74 44 61 74 61 2f 53 | 65 74 44 61 74 61 20 61 |etData/S|etData a|
|00011c30| 6e 64 20 47 65 74 43 65 | 6c 6c 2f 53 65 74 43 65 |nd GetCe|ll/SetCe|
|00011c40| 6c 6c 2e 20 20 09 09 09 | 7d 0d 7b 09 09 63 6f 6c |ll. ...|}.{..col|
|00011c50| 48 3a 09 09 54 68 65 20 | 68 61 6e 64 6c 65 20 74 |H:..The |handle t|
|00011c60| 6f 20 74 68 65 20 63 6f | 6c 75 6d 6e 27 73 20 64 |o the co|lumn's d|
|00011c70| 61 74 61 2e 20 43 61 6e | 20 62 65 20 6e 69 6c 20 |ata. Can| be nil |
|00011c80| 69 66 20 74 68 65 20 63 | 6f 72 72 65 73 70 6f 6e |if the c|orrespon|
|00011c90| 64 69 6e 67 20 63 6f 6c | 75 6d 6e 09 09 09 7d 0d |ding col|umn...}.|
|00011ca0| 7b 09 09 09 09 09 69 73 | 20 65 6d 70 74 79 2e 09 |{.....is| empty..|
|00011cb0| 09 09 7d 0d 7b 09 09 6c | 65 6e 67 74 68 3a 20 09 |..}.{..l|ength: .|
|00011cc0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 72 6f |the numb|er of ro|
|00011cd0| 77 73 20 68 65 6c 64 20 | 62 79 20 74 68 69 73 20 |ws held |by this |
|00011ce0| 63 6f 6c 75 6d 6e 2c 20 | 70 72 65 73 65 6e 74 6c |column, |presentl|
|00011cf0| 79 20 61 6c 77 61 79 73 | 20 65 71 75 61 6c 20 74 |y always| equal t|
|00011d00| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 09 09 09 7d |o the nu|mber...}|
|00011d10| 0d 7b 09 09 09 09 09 6f | 66 20 72 6f 77 73 20 6f |.{.....o|f rows o|
|00011d20| 66 20 74 68 65 20 64 61 | 74 61 20 77 69 6e 64 6f |f the da|ta windo|
|00011d30| 77 09 09 09 7d 0d 7b 09 | 09 66 6f 72 57 72 69 74 |w...}.{.|.forWrit|
|00011d40| 69 6e 67 3a 20 73 65 74 | 20 74 6f 20 74 72 75 65 |ing: set| to true|
|00011d50| 20 69 66 20 79 6f 75 20 | 69 6e 74 65 6e 64 20 74 | if you |intend t|
|00011d60| 6f 20 63 68 61 6e 67 65 | 20 74 68 65 20 63 6f 6e |o change| the con|
|00011d70| 74 65 6e 74 73 20 6f 66 | 20 74 68 65 20 63 6f 6c |tents of| the col|
|00011d80| 75 6d 6e 2c 09 09 09 7d | 0d 7b 09 09 09 09 09 73 |umn,...}|.{.....s|
|00011d90| 65 74 20 74 6f 20 66 61 | 6c 73 65 20 6f 74 68 65 |et to fa|lse othe|
|00011da0| 72 77 69 73 65 2e 09 09 | 09 7d 0d 7b 09 09 63 6f |rwise...|.}.{..co|
|00011db0| 6c 54 79 70 65 3a 09 74 | 68 65 20 74 79 70 65 20 |lType:.t|he type |
|00011dc0| 6f 66 20 74 68 65 20 63 | 6f 6c 75 6d 6e 20 28 74 |of the c|olumn (t|
|00011dd0| 65 78 74 43 6f 6c 75 6d | 6e 2c 20 66 6c 6f 61 74 |extColum|n, float|
|00011de0| 43 6f 6c 75 6d 6e 2c 20 | 65 78 74 65 6e 64 65 64 |Column, |extended|
|00011df0| 43 6f 6c 75 6d 6e 29 09 | 09 09 7d 0d 7b 09 09 49 |Column).|..}.{..I|
|00011e00| 66 20 79 6f 75 20 63 68 | 61 6e 67 65 20 74 68 65 |f you ch|ange the|
|00011e10| 20 64 61 74 61 20 69 6e | 20 74 68 65 20 72 65 74 | data in| the ret|
|00011e20| 75 72 6e 65 64 20 68 61 | 6e 64 6c 65 2c 20 79 6f |urned ha|ndle, yo|
|00011e30| 75 20 6d 75 73 74 20 73 | 75 62 73 65 71 75 65 6e |u must s|ubsequen|
|00011e40| 74 6c 79 20 63 61 6c 6c | 09 09 09 7d 0d 7b 09 09 |tly call|...}.{..|
|00011e50| 53 65 74 43 6f 6c 48 61 | 6e 64 6c 65 2e 09 09 09 |SetColHa|ndle....|
|00011e60| 7d 0d 7b 09 09 44 6f 20 | 6e 65 76 65 72 20 63 61 |}.{..Do |never ca|
|00011e70| 6c 6c 20 44 69 73 70 6f | 73 65 48 61 6e 64 6c 65 |ll Dispo|seHandle|
|00011e80| 28 63 6f 6c 48 29 20 d1 | 20 63 6f 6c 48 20 69 73 |(colH) .| colH is|
|00011e90| 20 61 6c 6c 6f 63 61 74 | 65 64 20 61 6e 64 20 64 | allocat|ed and d|
|00011ea0| 65 61 6c 6c 6f 63 61 74 | 65 64 20 62 79 20 70 72 |eallocat|ed by pr|
|00011eb0| 6f 20 46 69 74 2e 09 09 | 09 7d 0d 0d 7b 09 09 69 |o Fit...|.}..{..i|
|00011ec0| 66 20 63 6f 6c 54 79 70 | 65 20 3d 20 66 6c 6f 61 |f colTyp|e = floa|
|00011ed0| 74 43 6f 6c 75 6d 6e 2c | 20 63 6f 6c 48 20 69 73 |tColumn,| colH is|
|00011ee0| 20 61 20 68 61 6e 64 6c | 65 20 6f 66 20 74 79 70 | a handl|e of typ|
|00011ef0| 65 20 46 6c 6f 61 74 43 | 6f 6c 75 6d 6e 48 61 6e |e FloatC|olumnHan|
|00011f00| 64 6c 65 09 09 09 7d 0d | 7b 20 20 09 09 09 28 68 |dle...}.|{ ...(h|
|00011f10| 61 6e 64 6c 65 20 74 6f | 20 61 6e 20 61 72 72 61 |andle to| an arra|
|00011f20| 79 20 6f 66 20 34 2d 62 | 79 74 65 20 66 6c 6f 61 |y of 4-b|yte floa|
|00011f30| 74 69 6e 67 20 70 6f 69 | 6e 74 20 76 61 6c 75 65 |ting poi|nt value|
|00011f40| 73 29 09 09 09 7d 0d 7b | 09 09 69 66 20 63 6f 6c |s)...}.{|..if col|
|00011f50| 54 79 70 65 20 3d 20 65 | 78 74 65 6e 64 65 64 43 |Type = e|xtendedC|
|00011f60| 6f 6c 75 6d 6e 2c 20 63 | 6f 6c 48 20 69 73 20 6f |olumn, c|olH is o|
|00011f70| 66 20 74 79 70 65 20 65 | 78 74 65 6e 64 65 64 43 |f type e|xtendedC|
|00011f80| 6f 6c 75 6d 6e 48 61 6e | 64 6c 65 09 09 09 7d 0d |olumnHan|dle...}.|
|00011f90| 7b 09 09 09 28 68 61 6e | 64 6c 65 20 74 6f 20 61 |{...(han|dle to a|
|00011fa0| 6e 20 61 72 72 61 79 20 | 6f 66 20 38 2d 62 79 74 |n array |of 8-byt|
|00011fb0| 65 20 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |e floati|ng point|
|00011fc0| 20 76 61 6c 75 65 73 29 | 09 09 09 7d 0d 7b 09 09 | values)|...}.{..|
|00011fd0| 69 66 20 63 6f 6c 54 79 | 70 65 20 3d 20 74 65 78 |if colTy|pe = tex|
|00011fe0| 74 43 6f 6c 75 6d 6e 2c | 20 63 6f 6c 48 20 69 73 |tColumn,| colH is|
|00011ff0| 20 6f 66 20 74 79 70 65 | 20 54 65 78 74 43 6f 6c | of type| TextCol|
|00012000| 75 6d 6e 48 61 6e 64 6c | 65 2e 09 09 09 7d 0d 7b |umnHandl|e....}.{|
|00012010| 20 20 09 09 09 20 28 68 | 61 6e 64 6c 65 20 74 6f | ... (h|andle to|
|00012020| 20 61 20 72 65 63 6f 72 | 64 20 6f 66 20 74 79 70 | a recor|d of typ|
|00012030| 65 20 53 74 72 69 6e 67 | 44 61 74 61 29 09 09 09 |e String|Data)...|
|00012040| 7d 0d 0d 7b 09 09 4e 6f | 74 65 3a 20 46 6f 72 20 |}..{..No|te: For |
|00012050| 63 6f 6c 75 6d 6e 73 20 | 6f 66 20 74 79 70 65 20 |columns |of type |
|00012060| 66 6c 6f 61 74 43 6f 6c | 75 6d 6e 20 61 6e 64 20 |floatCol|umn and |
|00012070| 65 78 74 65 6e 64 65 64 | 43 6f 6c 75 6d 6e 2c 20 |extended|Column, |
|00012080| 74 68 65 20 66 69 72 73 | 74 20 65 6e 74 72 79 20 |the firs|t entry |
|00012090| 6f 66 20 74 68 65 09 09 | 09 7d 0d 7b 09 09 61 72 |of the..|.}.{..ar|
|000120a0| 72 61 79 20 69 73 20 72 | 65 73 65 72 76 65 64 2e |ray is r|eserved.|
|000120b0| 20 54 68 65 20 76 61 6c | 75 65 20 6f 66 20 74 68 | The val|ue of th|
|000120c0| 65 20 66 69 72 73 74 20 | 63 65 6c 6c 20 69 73 20 |e first |cell is |
|000120d0| 66 6f 75 6e 64 20 69 6e | 20 74 68 65 20 61 72 72 |found in| the arr|
|000120e0| 61 79 20 65 6c 65 6d 65 | 6e 74 09 09 09 7d 0d 7b |ay eleme|nt...}.{|
|000120f0| 09 09 68 61 76 69 6e 67 | 20 69 6e 64 65 78 20 31 |..having| index 1|
|00012100| 2e 09 09 09 7d 0d 0d 7b | 09 09 4e 6f 74 65 32 3a |....}..{|..Note2:|
|00012110| 20 69 66 20 63 6f 6c 54 | 79 70 65 20 3d 20 65 78 | if colT|ype = ex|
|00012120| 74 65 6e 64 65 64 43 6f | 6c 75 6d 6e 2c 20 74 68 |tendedCo|lumn, th|
|00012130| 65 20 76 61 6c 75 65 73 | 20 61 72 65 20 73 74 6f |e values| are sto|
|00012140| 72 65 64 20 61 73 20 38 | 20 62 79 74 65 20 64 6f |red as 8| byte do|
|00012150| 75 62 6c 65 73 20 28 64 | 6f 75 62 6c 65 5f 38 29 |ubles (d|ouble_8)|
|00012160| 20 7d 0d 7b 09 09 53 6f | 6d 65 20 63 6f 6d 70 69 | }.{..So|me compi|
|00012170| 6c 65 72 73 20 63 61 6e | 6e 6f 74 20 63 6f 6e 76 |lers can|not conv|
|00012180| 65 72 74 20 62 65 74 77 | 65 65 6e 20 64 6f 75 62 |ert betw|een doub|
|00012190| 6c 65 5f 38 20 61 6e 64 | 20 65 78 74 65 6e 64 65 |le_8 and| extende|
|000121a0| 64 20 61 6e 64 20 63 61 | 6e 6e 6f 74 20 72 75 6e |d and ca|nnot run|
|000121b0| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 73 20 7d 0d | calcula|tions }.|
|000121c0| 7b 09 09 77 69 74 68 20 | 64 6f 75 62 6c 65 20 38 |{..with |double 8|
|000121d0| 2e 20 46 6f 72 20 73 75 | 63 68 20 63 6f 6d 69 6c |. For su|ch comil|
|000121e0| 65 72 73 2c 20 74 68 65 | 20 73 79 6d 62 6f 6c 20 |ers, the| symbol |
|000121f0| 43 4f 4d 50 49 4c 45 52 | 5f 4b 4e 4f 57 53 5f 44 |COMPILER|_KNOWS_D|
|00012200| 4f 55 42 4c 45 5f 38 20 | 64 65 66 69 6e 65 64 20 |OUBLE_8 |defined |
|00012210| 61 62 6f 76 65 20 69 73 | 20 66 61 6c 73 65 20 7d |above is| false }|
|00012220| 0d 7b 09 09 54 6f 20 61 | 63 63 65 73 73 20 64 6f |.{..To a|ccess do|
|00012230| 75 62 6c 65 5f 38 20 76 | 61 6c 75 65 73 20 66 72 |uble_8 v|alues fr|
|00012240| 6f 6d 20 61 20 63 6f 6d | 70 69 6c 65 72 20 74 68 |om a com|piler th|
|00012250| 61 74 20 64 6f 65 73 20 | 6e 6f 74 20 73 75 70 70 |at does |not supp|
|00012260| 6f 72 74 20 74 68 69 73 | 20 74 79 70 65 2c 20 75 |ort this| type, u|
|00012270| 73 65 20 74 68 65 20 7d | 0d 7b 09 09 72 6f 75 74 |se the }|.{..rout|
|00012280| 69 6e 65 73 20 44 62 6c | 38 54 6f 45 78 74 20 61 |ines Dbl|8ToExt a|
|00012290| 6e 64 20 45 78 74 54 6f | 44 62 6c 38 20 64 65 66 |nd ExtTo|Dbl8 def|
|000122a0| 69 6e 65 64 20 62 65 6c | 6f 77 20 7d 0d 0d 7b 09 |ined bel|ow }..{.|
|000122b0| 09 57 61 72 6e 69 6e 67 | 3a 20 54 68 69 73 20 72 |.Warning|: This r|
|000122c0| 6f 75 74 69 6e 65 20 73 | 68 6f 75 6c 64 20 62 79 |outine s|hould by|
|000122d0| 20 75 73 65 64 20 62 79 | 20 65 78 70 65 72 69 65 | used by| experie|
|000122e0| 6e 63 65 64 20 70 72 6f | 67 72 61 6d 6d 65 72 73 |nced pro|grammers|
|000122f0| 20 6f 6e 6c 79 2e 09 09 | 09 7d 0d 7b 09 09 57 61 | only...|.}.{..Wa|
|00012300| 72 6e 69 6e 67 3a 20 41 | 63 63 65 73 73 69 6e 67 |rning: A|ccessing|
|00012310| 20 74 65 78 74 20 63 6f | 6c 75 6d 6e 73 20 69 6e | text co|lumns in|
|00012320| 20 74 68 69 73 20 77 61 | 79 20 69 73 20 5f 6e 6f | this wa|y is _no|
|00012330| 74 5f 20 72 65 63 6f 6d | 6d 65 6e 64 65 64 2e 20 |t_ recom|mended. |
|00012340| 54 68 65 20 09 09 09 7d | 0d 7b 09 09 09 09 20 64 |The ...}|.{.... d|
|00012350| 65 66 69 6e 69 74 69 6f | 6e 20 6f 66 20 74 68 65 |efinitio|n of the|
|00012360| 20 64 61 74 61 20 73 74 | 72 75 63 74 75 72 65 20 | data st|ructure |
|00012370| 6d 61 79 20 63 68 61 6e | 67 65 20 69 6e 20 74 68 |may chan|ge in th|
|00012380| 65 20 66 75 74 75 72 65 | 2e 09 09 09 7d 0d 0d 7b |e future|....}..{|
|00012390| 09 09 57 68 69 6c 65 20 | 79 6f 75 20 61 72 65 20 |..While |you are |
|000123a0| 77 6f 72 6b 69 6e 67 20 | 6f 6e 20 74 68 65 20 64 |working |on the d|
|000123b0| 61 74 61 20 69 6e 20 63 | 6f 6c 48 2c 20 79 6f 75 |ata in c|olH, you|
|000123c0| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 63 61 6c 6c | should |not call|
|000123d0| 20 61 6e 79 20 6f 74 68 | 65 72 09 09 09 7d 0d 7b | any oth|er...}.{|
|000123e0| 09 09 72 6f 75 74 69 6e | 65 73 20 61 63 63 65 73 |..routin|es acces|
|000123f0| 73 69 6e 67 20 74 68 65 | 20 64 61 74 61 20 77 69 |sing the| data wi|
|00012400| 6e 64 6f 77 20 65 78 63 | 65 70 74 20 47 65 74 43 |ndow exc|ept GetC|
|00012410| 6f 6c 75 6d 6e 48 61 6e | 64 6c 65 20 61 6e 64 20 |olumnHan|dle and |
|00012420| 53 65 74 43 6f 6c 75 6d | 6e 48 61 6e 64 6c 65 2e |SetColum|nHandle.|
|00012430| 09 09 09 7d 0d 7b 09 09 | 57 68 65 6e 20 79 6f 75 |...}.{..|When you|
|00012440| 20 6d 6f 64 69 66 79 20 | 74 68 65 20 64 61 74 61 | modify |the data|
|00012450| 20 69 6e 20 63 6f 6c 48 | 2c 20 79 6f 75 20 73 68 | in colH|, you sh|
|00012460| 6f 75 6c 64 20 61 76 6f | 69 64 20 63 61 6c 6c 69 |ould avo|id calli|
|00012470| 6e 67 20 61 6e 79 20 70 | 72 6f 20 46 69 74 20 72 |ng any p|ro Fit r|
|00012480| 6f 75 74 69 6e 65 73 09 | 09 09 7d 0d 7b 09 09 75 |outines.|..}.{..u|
|00012490| 6e 74 69 6c 20 79 6f 75 | 20 68 61 76 65 20 63 61 |ntil you| have ca|
|000124a0| 6c 6c 65 64 20 53 65 74 | 43 6f 6c 48 61 6e 64 6c |lled Set|ColHandl|
|000124b0| 65 20 d1 20 69 66 20 79 | 6f 75 20 77 61 6e 74 20 |e . if y|ou want |
|000124c0| 74 6f 20 63 61 6c 6c 20 | 6f 74 68 65 72 20 70 72 |to call |other pr|
|000124d0| 6f 20 46 69 74 20 72 6f | 75 74 69 6e 65 73 2c 09 |o Fit ro|utines,.|
|000124e0| 09 09 7d 0d 7b 09 09 66 | 69 72 73 74 20 6d 61 6b |..}.{..f|irst mak|
|000124f0| 65 20 61 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |e a copy| of the |
|00012500| 64 61 74 61 20 62 79 20 | 75 73 69 6e 67 20 48 61 |data by |using Ha|
|00012510| 6e 64 54 6f 48 61 6e 64 | 3b 20 6f 6e 63 65 20 79 |ndToHand|; once y|
|00012520| 6f 75 20 68 61 76 65 20 | 6d 61 64 65 20 61 6c 6c |ou have |made all|
|00012530| 09 09 09 7d 0d 7b 09 09 | 6d 6f 64 69 66 69 63 61 |...}.{..|modifica|
|00012540| 74 69 6f 6e 73 20 74 6f | 20 74 68 65 20 64 61 74 |tions to| the dat|
|00012550| 61 2c 20 63 61 6c 6c 20 | 53 65 74 43 6f 6c 48 61 |a, call |SetColHa|
|00012560| 6e 64 6c 65 2e 09 09 09 | 7d 0d 7b 09 09 09 09 7d |ndle....|}.{....}|
|00012570| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 53 65 74 |...proce|dure Set|
|00012580| 43 6f 6c 48 61 6e 64 6c | 65 20 28 63 6f 6c 3a 20 |ColHandl|e (col: |
|00012590| 6c 6f 6e 67 69 6e 74 3b | 20 63 6f 6c 48 3a 20 48 |longint;| colH: H|
|000125a0| 61 6e 64 6c 65 29 3b 0d | 0d 7b 09 09 53 65 74 73 |andle);.|.{..Sets|
|000125b0| 20 61 20 67 69 76 65 6e | 20 63 6f 6c 75 6d 6e 20 | a given| column |
|000125c0| 74 6f 20 74 68 65 20 64 | 61 74 61 20 69 6e 20 63 |to the d|ata in c|
|000125d0| 6f 6c 48 2e 20 09 09 09 | 7d 0d 7b 09 09 54 68 65 |olH. ...|}.{..The|
|000125e0| 20 6f 72 67 61 6e 69 7a | 61 74 69 6f 6e 20 6f 66 | organiz|ation of|
|000125f0| 20 74 68 65 20 64 61 74 | 61 20 69 6e 20 63 6f 6c | the dat|a in col|
|00012600| 48 20 64 65 70 65 6e 64 | 73 20 6f 6e 20 74 68 65 |H depend|s on the|
|00012610| 20 64 61 74 61 20 74 79 | 70 65 20 6f 66 20 74 68 | data ty|pe of th|
|00012620| 65 20 63 6f 6c 75 6d 6e | 3a 09 09 09 7d 0d 7b 20 |e column|:...}.{ |
|00012630| 09 09 69 66 20 66 6c 6f | 61 74 43 6f 6c 75 6d 6e |..if flo|atColumn|
|00012640| 2c 20 63 6f 6c 48 20 69 | 73 20 61 20 68 61 6e 64 |, colH i|s a hand|
|00012650| 6c 65 20 6f 66 20 74 79 | 70 65 20 46 6c 6f 61 74 |le of ty|pe Float|
|00012660| 43 6f 6c 75 6d 6e 48 61 | 6e 64 6c 65 09 09 09 7d |ColumnHa|ndle...}|
|00012670| 0d 7b 20 09 09 09 20 28 | 68 61 6e 64 6c 65 20 74 |.{ ... (|handle t|
|00012680| 6f 20 61 6e 20 61 72 72 | 61 79 20 6f 66 20 34 2d |o an arr|ay of 4-|
|00012690| 62 79 74 65 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |byte flo|ating po|
|000126a0| 69 6e 74 20 76 61 6c 75 | 65 73 29 09 09 09 7d 0d |int valu|es)...}.|
|000126b0| 7b 09 09 69 66 20 65 78 | 74 65 6e 64 65 64 43 6f |{..if ex|tendedCo|
|000126c0| 6c 75 6d 6e 2c 20 63 6f | 6c 48 20 69 73 20 6f 66 |lumn, co|lH is of|
|000126d0| 20 74 79 70 65 20 65 78 | 74 65 6e 64 65 64 43 6f | type ex|tendedCo|
|000126e0| 6c 75 6d 6e 48 61 6e 64 | 6c 65 09 09 09 7d 0d 7b |lumnHand|le...}.{|
|000126f0| 09 09 09 28 68 61 6e 64 | 6c 65 20 74 6f 20 61 6e |...(hand|le to an|
|00012700| 20 61 72 72 61 79 20 6f | 66 20 38 2d 62 79 74 65 | array o|f 8-byte|
|00012710| 20 66 6c 6f 61 74 69 6e | 67 20 70 6f 69 6e 74 20 | floatin|g point |
|00012720| 76 61 6c 75 65 73 29 09 | 09 09 7d 0d 7b 09 09 69 |values).|..}.{..i|
|00012730| 66 20 74 65 78 74 43 6f | 6c 75 6d 6e 2c 20 63 6f |f textCo|lumn, co|
|00012740| 6c 48 20 69 73 20 6f 66 | 20 74 79 70 65 20 54 65 |lH is of| type Te|
|00012750| 78 74 43 6f 6c 75 6d 6e | 48 61 6e 64 6c 65 2e 09 |xtColumn|Handle..|
|00012760| 09 09 7d 0d 7b 09 09 09 | 28 68 61 6e 64 6c 65 20 |..}.{...|(handle |
|00012770| 74 6f 20 61 20 72 65 63 | 6f 72 64 20 6f 66 20 74 |to a rec|ord of t|
|00012780| 79 70 65 20 53 74 72 69 | 6e 67 44 61 74 61 29 09 |ype Stri|ngData).|
|00012790| 09 09 7d 0d 7b 09 09 28 | 54 6f 20 67 65 74 20 61 |..}.{..(|To get a|
|000127a0| 20 63 6f 6c 75 6d 6e 27 | 73 20 74 79 70 65 2c 20 | column'|s type, |
|000127b0| 63 61 6c 6c 20 47 65 74 | 43 6f 6c 54 79 70 65 29 |call Get|ColType)|
|000127c0| 09 09 09 7d 0d 0d 7b 09 | 09 4f 6e 63 65 20 79 6f |...}..{.|.Once yo|
|000127d0| 75 20 63 61 6c 6c 20 53 | 65 74 43 6f 6c 48 61 6e |u call S|etColHan|
|000127e0| 64 6c 65 2c 20 74 68 65 | 20 68 61 6e 64 6c 65 20 |dle, the| handle |
|000127f0| 62 65 63 6f 6d 65 73 20 | 70 72 6f 70 65 72 74 79 |becomes |property|
|00012800| 20 6f 66 20 70 72 6f 20 | 46 69 74 20 d1 20 64 6f | of pro |Fit . do|
|00012810| 09 09 09 7d 0d 7b 09 09 | 6e 6f 74 20 64 69 73 70 |...}.{..|not disp|
|00012820| 6f 73 65 20 69 74 2e 09 | 09 09 7d 0d 7b 09 09 63 |ose it..|..}.{..c|
|00012830| 6f 6c 48 20 63 61 6e 20 | 65 69 74 68 65 72 20 62 |olH can |either b|
|00012840| 65 3a 09 09 09 7d 0d 7b | 20 09 09 20 2d 20 61 20 |e:...}.{| .. - a |
|00012850| 68 61 6e 64 6c 65 20 74 | 68 61 74 20 79 6f 75 20 |handle t|hat you |
|00012860| 61 6c 6c 6f 63 61 74 65 | 64 20 79 6f 75 72 73 65 |allocate|d yourse|
|00012870| 6c 66 2e 20 49 6e 20 74 | 68 69 73 20 63 61 73 65 |lf. In t|his case|
|00012880| 2c 20 74 68 65 20 48 61 | 6e 64 6c 65 27 73 20 73 |, the Ha|ndle's s|
|00012890| 69 7a 65 20 6d 75 73 74 | 20 62 65 3a 09 09 09 7d |ize must| be:...}|
|000128a0| 0d 7b 09 09 09 34 2a 28 | 6e 72 52 6f 77 73 2b 31 |.{...4*(|nrRows+1|
|000128b0| 29 20 66 6f 72 20 63 6f | 6c 75 6d 6e 73 20 6f 66 |) for co|lumns of|
|000128c0| 20 74 79 70 65 20 66 6c | 6f 61 74 43 6f 6c 75 6d | type fl|oatColum|
|000128d0| 6e 09 09 09 7d 0d 7b 09 | 09 09 38 2a 28 6e 72 52 |n...}.{.|..8*(nrR|
|000128e0| 6f 77 73 2b 31 29 20 66 | 6f 72 20 63 6f 6c 75 6d |ows+1) f|or colum|
|000128f0| 6e 73 20 6f 66 20 74 79 | 70 65 20 65 78 74 65 6e |ns of ty|pe exten|
|00012900| 64 65 64 43 6f 6c 75 6d | 6e 09 09 09 7d 0d 7b 09 |dedColum|n...}.{.|
|00012910| 09 09 31 34 20 2b 20 73 | 69 7a 65 20 6f 66 20 61 |..14 + s|ize of a|
|00012920| 6c 6c 20 73 74 72 69 6e | 67 73 20 66 6f 72 20 63 |ll strin|gs for c|
|00012930| 6f 6c 75 6d 6e 73 20 6f | 66 20 74 79 70 65 20 74 |olumns o|f type t|
|00012940| 65 78 74 43 6f 6c 75 6d | 6e 09 09 09 7d 0d 7b 20 |extColum|n...}.{ |
|00012950| 09 09 20 2d 20 61 20 68 | 61 6e 64 6c 65 20 74 68 |.. - a h|andle th|
|00012960| 61 74 20 79 6f 75 20 6f | 62 74 61 69 6e 65 64 20 |at you o|btained |
|00012970| 66 72 6f 6d 20 47 65 74 | 43 6f 6c 48 61 6e 64 6c |from Get|ColHandl|
|00012980| 65 09 09 09 7d 0d 7b 09 | 09 20 2d 20 6e 69 6c 20 |e...}.{.|. - nil |
|00012990| 69 66 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 63 |if you w|ant to c|
|000129a0| 6c 65 61 72 20 74 68 65 | 20 67 69 76 65 6e 20 63 |lear the| given c|
|000129b0| 6f 6c 75 6d 6e 09 09 09 | 7d 0d 0d 7b 09 09 4e 6f |olumn...|}..{..No|
|000129c0| 74 65 3a 20 69 66 20 63 | 6f 6c 54 79 70 65 20 3d |te: if c|olType =|
|000129d0| 20 65 78 74 65 6e 64 65 | 64 43 6f 6c 75 6d 6e 2c | extende|dColumn,|
|000129e0| 20 74 68 65 20 76 61 6c | 75 65 73 20 61 72 65 20 | the val|ues are |
|000129f0| 73 74 6f 72 65 64 20 61 | 73 20 38 20 62 79 74 65 |stored a|s 8 byte|
|00012a00| 20 64 6f 75 62 6c 65 73 | 20 28 64 6f 75 62 6c 65 | doubles| (double|
|00012a10| 5f 38 29 20 7d 0d 7b 09 | 09 53 6f 6d 65 20 63 6f |_8) }.{.|.Some co|
|00012a20| 6d 70 69 6c 65 72 73 20 | 63 61 6e 6e 6f 74 20 63 |mpilers |cannot c|
|00012a30| 6f 6e 76 65 72 74 20 62 | 65 74 77 65 65 6e 20 64 |onvert b|etween d|
|00012a40| 6f 75 62 6c 65 5f 38 20 | 61 6e 64 20 65 78 74 65 |ouble_8 |and exte|
|00012a50| 6e 64 65 64 20 61 6e 64 | 20 63 61 6e 6e 6f 74 20 |nded and| cannot |
|00012a60| 72 75 6e 20 63 61 6c 63 | 75 6c 61 74 69 6f 6e 73 |run calc|ulations|
|00012a70| 20 7d 0d 7b 09 09 77 69 | 74 68 20 64 6f 75 62 6c | }.{..wi|th doubl|
|00012a80| 65 20 38 2e 20 46 6f 72 | 20 73 75 63 68 20 63 6f |e 8. For| such co|
|00012a90| 6d 69 6c 65 72 73 2c 20 | 74 68 65 20 73 79 6d 62 |milers, |the symb|
|00012aa0| 6f 6c 20 43 4f 4d 50 49 | 4c 45 52 5f 4b 4e 4f 57 |ol COMPI|LER_KNOW|
|00012ab0| 53 5f 44 4f 55 42 4c 45 | 5f 38 20 64 65 66 69 6e |S_DOUBLE|_8 defin|
|00012ac0| 65 64 20 61 62 6f 76 65 | 20 69 73 20 66 61 6c 73 |ed above| is fals|
|00012ad0| 65 20 7d 0d 7b 09 09 54 | 6f 20 61 63 63 65 73 73 |e }.{..T|o access|
|00012ae0| 20 64 6f 75 62 6c 65 5f | 38 20 76 61 6c 75 65 73 | double_|8 values|
|00012af0| 20 66 72 6f 6d 20 61 20 | 63 6f 6d 70 69 6c 65 72 | from a |compiler|
|00012b00| 20 74 68 61 74 20 64 6f | 65 73 20 6e 6f 74 20 73 | that do|es not s|
|00012b10| 75 70 70 6f 72 74 20 74 | 68 69 73 20 74 79 70 65 |upport t|his type|
|00012b20| 2c 20 75 73 65 20 74 68 | 65 20 7d 0d 7b 09 09 72 |, use th|e }.{..r|
|00012b30| 6f 75 74 69 6e 65 73 20 | 44 62 6c 38 54 6f 45 78 |outines |Dbl8ToEx|
|00012b40| 74 20 61 6e 64 20 45 78 | 74 54 6f 44 62 6c 38 20 |t and Ex|tToDbl8 |
|00012b50| 64 65 66 69 6e 65 64 20 | 62 65 6c 6f 77 20 7d 0d |defined |below }.|
|00012b60| 0d 7b 09 09 57 61 72 6e | 69 6e 67 3a 20 54 68 69 |.{..Warn|ing: Thi|
|00012b70| 73 20 72 6f 75 74 69 6e | 65 20 73 68 6f 75 6c 64 |s routin|e should|
|00012b80| 20 62 79 20 75 73 65 64 | 20 62 79 20 65 78 70 65 | by used| by expe|
|00012b90| 72 69 65 6e 63 65 64 20 | 70 72 6f 67 72 61 6d 6d |rienced |programm|
|00012ba0| 65 72 73 20 6f 6e 6c 79 | 2e 09 09 09 7d 0d 7b 09 |ers only|....}.{.|
|00012bb0| 09 57 61 72 6e 69 6e 67 | 3a 20 41 63 63 65 73 73 |.Warning|: Access|
|00012bc0| 69 6e 67 20 74 65 78 74 | 20 63 6f 6c 75 6d 6e 73 |ing text| columns|
|00012bd0| 20 69 6e 20 74 68 69 73 | 20 77 61 79 20 69 73 20 | in this| way is |
|00012be0| 5f 6e 6f 74 5f 20 72 65 | 63 6f 6d 6d 65 6e 64 65 |_not_ re|commende|
|00012bf0| 64 2e 20 54 68 65 20 09 | 09 09 7d 0d 7b 09 09 09 |d. The .|..}.{...|
|00012c00| 09 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 6f 66 20 |. defini|tion of |
|00012c10| 74 68 65 20 64 61 74 61 | 20 73 74 72 75 63 74 75 |the data| structu|
|00012c20| 72 65 20 6d 61 79 20 63 | 68 61 6e 67 65 20 69 6e |re may c|hange in|
|00012c30| 20 74 68 65 20 66 75 74 | 75 72 65 2e 09 09 09 7d | the fut|ure....}|
|00012c40| 0d 7b 09 09 09 09 7d 0d | 0d 09 66 75 6e 63 74 69 |.{....}.|..functi|
|00012c50| 6f 6e 20 44 62 6c 38 54 | 6f 45 78 74 20 28 78 3a |on Dbl8T|oExt (x:|
|00012c60| 20 64 6f 75 62 6c 65 5f | 38 29 3a 20 65 78 74 65 | double_|8): exte|
|00012c70| 6e 64 65 64 3b 0d 09 7b | 20 63 6f 6e 76 65 72 74 |nded;..{| convert|
|00012c80| 73 20 74 68 65 20 64 6f | 75 62 6c 65 5f 38 20 76 |s the do|uble_8 v|
|00012c90| 61 6c 75 65 20 78 20 69 | 6e 74 6f 20 61 6e 20 65 |alue x i|nto an e|
|00012ca0| 78 74 65 6e 64 65 64 20 | 28 31 30 20 62 79 74 65 |xtended |(10 byte|
|00012cb0| 29 20 76 61 6c 75 65 20 | 7d 0d 09 7b 20 54 68 69 |) value |}..{ Thi|
|00012cc0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 69 73 20 6f 6e |s functi|on is on|
|00012cd0| 6c 79 20 72 65 71 75 69 | 72 65 64 20 66 6f 72 20 |ly requi|red for |
|00012ce0| 63 6f 6d 69 6c 65 72 73 | 20 74 68 61 74 20 64 6f |comilers| that do|
|00012cf0| 20 6e 6f 74 20 73 75 70 | 70 6f 72 74 20 74 68 65 | not sup|port the|
|00012d00| 20 64 6f 75 62 6c 65 5f | 38 20 64 61 74 61 20 74 | double_|8 data t|
|00012d10| 79 70 65 20 7d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |ype }...|function|
|00012d20| 20 45 78 74 54 6f 44 62 | 6c 38 20 28 78 3a 20 65 | ExtToDb|l8 (x: e|
|00012d30| 78 74 65 6e 64 65 64 29 | 3a 20 64 6f 75 62 6c 65 |xtended)|: double|
|00012d40| 5f 38 3b 0d 09 7b 20 63 | 6f 6e 76 65 72 74 73 20 |_8;..{ c|onverts |
|00012d50| 74 68 65 20 64 6f 75 62 | 6c 65 5f 38 20 76 61 6c |the doub|le_8 val|
|00012d60| 75 65 20 78 20 69 6e 74 | 6f 20 61 6e 20 65 78 74 |ue x int|o an ext|
|00012d70| 65 6e 64 65 64 20 28 31 | 30 20 62 79 74 65 29 20 |ended (1|0 byte) |
|00012d80| 76 61 6c 75 65 20 7d 0d | 09 7b 20 54 68 69 73 20 |value }.|.{ This |
|00012d90| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 6f 6e 6c 79 |function| is only|
|00012da0| 20 72 65 71 75 69 72 65 | 64 20 66 6f 72 20 63 6f | require|d for co|
|00012db0| 6d 69 6c 65 72 73 20 74 | 68 61 74 20 64 6f 20 6e |milers t|hat do n|
|00012dc0| 6f 74 20 73 75 70 70 6f | 72 74 20 74 68 65 20 64 |ot suppo|rt the d|
|00012dd0| 6f 75 62 6c 65 5f 38 20 | 64 61 74 61 20 74 79 70 |ouble_8 |data typ|
|00012de0| 65 20 7d 0d 0d 0d 0d 7b | 24 49 46 43 20 47 45 4e |e }....{|$IFC GEN|
|00012df0| 45 52 41 54 49 4e 47 36 | 38 4b 7d 0d 09 70 72 6f |ERATING6|8K}..pro|
|00012e00| 63 65 64 75 72 65 20 72 | 75 6e 74 69 6d 65 50 72 |cedure r|untimePr|
|00012e10| 6f 63 20 28 70 62 2c 20 | 70 3a 20 70 74 72 29 3b |oc (pb, |p: ptr);|
|00012e20| 0d 7b 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |.{ This |routine |
|00012e30| 69 73 20 61 20 67 61 74 | 65 61 77 61 79 20 66 6f |is a gat|eaway fo|
|00012e40| 72 20 63 61 6c 6c 69 6e | 67 20 74 68 65 20 73 65 |r callin|g the se|
|00012e50| 74 20 6f 66 20 70 72 6f | 46 69 74 27 73 20 70 72 |t of pro|Fit's pr|
|00012e60| 6f 63 65 64 75 72 65 73 | 20 61 6e 64 20 66 75 6e |ocedures| and fun|
|00012e70| 63 74 69 6f 6e 73 20 74 | 68 61 74 20 75 73 65 09 |ctions t|hat use.|
|00012e80| 09 09 7d 0d 7b 20 74 68 | 65 20 70 61 72 61 6d 65 |..}.{ th|e parame|
|00012e90| 74 65 72 73 20 63 6f 6e | 74 61 69 6e 65 64 20 69 |ters con|tained i|
|00012ea0| 6e 20 74 68 65 20 72 65 | 63 6f 72 64 20 72 75 6e |n the re|cord run|
|00012eb0| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 2e 20 59 6f |TimePara|mRec. Yo|
|00012ec0| 75 20 64 6f 20 6e 6f 74 | 20 6e 65 65 64 20 74 6f |u do not| need to|
|00012ed0| 20 77 6f 72 6b 20 64 69 | 72 65 63 74 6c 79 09 09 | work di|rectly..|
|00012ee0| 09 7d 0d 7b 20 77 69 74 | 68 20 72 75 6e 54 69 6d |.}.{ wit|h runTim|
|00012ef0| 65 50 61 72 61 6d 52 65 | 63 2e 20 4a 75 73 74 20 |eParamRe|c. Just |
|00012f00| 75 73 65 20 74 68 65 20 | 70 72 6f 63 65 64 75 72 |use the |procedur|
|00012f10| 65 73 20 61 6e 64 20 66 | 75 6e 63 74 69 6f 6e 73 |es and f|unctions|
|00012f20| 20 64 65 66 69 6e 65 64 | 20 62 65 6c 6f 77 2e 20 | defined| below. |
|00012f30| 54 68 65 73 65 20 70 72 | 6f 63 65 64 75 72 65 09 |These pr|ocedure.|
|00012f40| 09 09 7d 0d 7b 20 63 6f | 72 72 65 63 74 6c 79 20 |..}.{ co|rrectly |
|00012f50| 73 65 74 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 |set the |paramete|
|00012f60| 72 73 20 63 6f 6e 74 61 | 69 6e 65 64 20 69 6e 20 |rs conta|ined in |
|00012f70| 72 75 6e 54 69 6d 65 50 | 61 72 61 6d 52 65 63 20 |runTimeP|aramRec |
|00012f80| 61 6e 64 20 63 61 6c 6c | 20 74 68 65 20 72 75 6e |and call| the run|
|00012f90| 74 69 6d 65 50 72 6f 63 | 20 74 6f 20 70 72 6f 64 |timeProc| to prod|
|00012fa0| 75 63 65 09 09 09 7d 0d | 7b 20 74 68 65 20 65 78 |uce...}.|{ the ex|
|00012fb0| 70 65 63 74 65 64 20 72 | 65 73 75 6c 74 73 2e 20 |pected r|esults. |
|00012fc0| 20 09 09 09 7d 0d 09 69 | 6e 6c 69 6e 65 0d 09 09 | ...}..i|nline...|
|00012fd0| 24 32 30 35 46 2c 20 24 | 34 45 39 30 3b 0d 0d 09 |$205F, $|4E90;...|
|00012fe0| 66 75 6e 63 74 69 6f 6e | 20 4d 79 4d 65 6d 6f 72 |function| MyMemor|
|00012ff0| 79 20 28 69 3a 20 69 6e | 74 65 67 65 72 29 3a 20 |y (i: in|teger): |
|00013000| 69 6e 74 65 67 65 72 3b | 0d 7b 20 54 68 65 20 63 |integer;|.{ The c|
|00013010| 6f 64 65 20 6f 66 20 74 | 68 69 73 20 72 6f 75 74 |ode of t|his rout|
|00013020| 69 6e 65 20 77 69 6c 6c | 20 62 65 20 72 65 70 6c |ine will| be repl|
|00013030| 61 63 65 64 20 62 79 20 | 64 61 74 61 20 2d 20 74 |aced by |data - t|
|00013040| 68 69 73 20 72 6f 75 74 | 69 6e 65 20 69 73 20 6e |his rout|ine is n|
|00013050| 65 76 65 72 20 63 61 6c | 6c 65 64 20 09 09 09 7d |ever cal|led ...}|
|00013060| 0d 7b 24 45 4e 44 43 7d | 0d 0d 09 66 75 6e 63 74 |.{$ENDC}|...funct|
|00013070| 69 6f 6e 20 47 65 74 50 | 62 3a 20 45 78 74 4d 6f |ion GetP|b: ExtMo|
|00013080| 64 75 6c 65 73 50 61 72 | 61 6d 42 6c 6f 63 6b 50 |dulesPar|amBlockP|
|00013090| 74 72 3b 0d 7b 20 72 65 | 74 75 72 6e 73 20 74 68 |tr;.{ re|turns th|
|000130a0| 65 20 63 75 72 72 65 6e | 74 20 70 61 72 61 6d 65 |e curren|t parame|
|000130b0| 74 65 72 20 62 6c 6f 63 | 6b 2e 20 4f 6e 6c 79 20 |ter bloc|k. Only |
|000130c0| 61 64 76 61 6e 63 65 64 | 20 09 09 09 09 09 09 09 |advanced| .......|
|000130d0| 7d 0d 7b 20 70 72 6f 67 | 72 61 6d 6d 65 72 73 20 |}.{ prog|rammers |
|000130e0| 6d 61 79 20 6e 65 65 64 | 20 74 68 69 73 20 66 75 |may need| this fu|
|000130f0| 6e 63 74 69 6f 6e 2e 20 | 09 09 09 09 09 09 09 09 |nction. |........|
|00013100| 09 09 7d 0d 7b 20 57 41 | 52 4e 49 4e 47 3a 20 74 |..}.{ WA|RNING: t|
|00013110| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |he defin|ition of|
|00013120| 20 45 78 74 4d 6f 64 75 | 6c 65 73 50 61 72 61 6d | ExtModu|lesParam|
|00013130| 42 6c 6f 63 6b 20 6d 61 | 79 20 63 68 61 6e 67 65 |Block ma|y change|
|00013140| 20 69 6e 20 66 75 74 75 | 72 65 20 76 65 72 73 69 | in futu|re versi|
|00013150| 6f 6e 73 20 09 09 09 09 | 09 09 09 7d 0d 7b 20 6f |ons ....|...}.{ o|
|00013160| 66 20 70 72 6f 20 46 69 | 74 2e 20 55 73 69 6e 67 |f pro Fi|t. Using|
|00013170| 20 69 74 20 66 72 6f 6d | 20 77 69 74 68 69 6e 20 | it from| within |
|00013180| 79 6f 75 72 20 66 75 6e | 63 74 69 6f 6e 20 6d 61 |your fun|ction ma|
|00013190| 79 20 63 61 75 73 65 20 | 63 6f 6d 70 61 74 69 62 |y cause |compatib|
|000131a0| 69 6c 69 74 79 20 70 72 | 6f 62 6c 65 6d 73 20 09 |ility pr|oblems .|
|000131b0| 09 09 09 09 09 09 7d 0d | 7b 20 77 69 74 68 20 74 |......}.|{ with t|
|000131c0| 68 6f 73 65 20 66 75 74 | 75 72 65 20 76 65 72 73 |hose fut|ure vers|
|000131d0| 69 6f 6e 73 2e 09 09 09 | 09 09 09 09 7d 0d 0d 09 |ions....|....}...|
|000131e0| 70 72 6f 63 65 64 75 72 | 65 20 53 74 61 72 74 55 |procedur|e StartU|
|000131f0| 70 20 28 70 62 3a 20 45 | 78 74 4d 6f 64 75 6c 65 |p (pb: E|xtModule|
|00013200| 73 50 61 72 61 6d 42 6c | 6f 63 6b 50 74 72 29 3b |sParamBl|ockPtr);|
|00013210| 0d 7b 20 73 68 6f 75 6c | 64 20 62 65 20 63 61 6c |.{ shoul|d be cal|
|00013220| 6c 65 64 20 62 79 20 6d | 61 69 6e 28 29 20 61 74 |led by m|ain() at|
|00013230| 20 62 65 67 69 6e 6e 69 | 6e 67 20 09 09 09 7d 0d | beginni|ng ...}.|
|00013240| 0d 0d 0d 69 6d 70 6c 65 | 6d 65 6e 74 61 74 69 6f |...imple|mentatio|
|00013250| 6e 0d 0d 7b 20 54 68 69 | 73 20 69 6d 70 6c 65 6d |n..{ Thi|s implem|
|00013260| 65 6e 74 61 74 69 6f 6e | 20 70 61 72 74 20 63 6f |entation| part co|
|00013270| 6e 74 61 69 6e 73 20 63 | 6f 64 65 20 74 68 61 74 |ntains c|ode that|
|00013280| 20 74 61 6b 65 73 20 63 | 61 72 65 20 6f 66 20 74 | takes c|are of t|
|00013290| 68 65 20 63 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |he commu|nication|
|000132a0| 20 62 65 74 77 65 65 6e | 09 09 09 09 7d 0d 7b 20 | between|....}.{ |
|000132b0| 61 6e 20 65 78 74 65 72 | 6e 61 6c 20 6d 6f 64 75 |an exter|nal modu|
|000132c0| 6c 65 20 61 6e 64 20 70 | 72 6f 46 69 74 2e 09 09 |le and p|roFit...|
|000132d0| 09 09 09 09 09 09 09 09 | 09 09 7d 0d 0d 7b 20 45 |........|..}..{ E|
|000132e0| 76 65 72 79 74 68 69 6e | 67 20 74 68 61 74 20 79 |verythin|g that y|
|000132f0| 6f 75 20 6e 65 65 64 20 | 74 6f 20 6b 6e 6f 77 20 |ou need |to know |
|00013300| 74 6f 20 70 72 6f 64 75 | 63 65 20 61 6e 20 45 78 |to produ|ce an Ex|
|00013310| 74 65 72 6e 61 6c 20 4d | 6f 64 75 6c 65 20 66 6f |ternal M|odule fo|
|00013320| 72 20 70 72 6f 46 69 74 | 09 09 09 09 7d 0d 7b 20 |r proFit|....}.{ |
|00013330| 63 61 6e 20 62 65 20 66 | 6f 75 6e 64 20 69 6e 20 |can be f|ound in |
|00013340| 74 68 65 20 69 6e 74 65 | 72 66 61 63 65 20 70 61 |the inte|rface pa|
|00013350| 72 74 2e 09 09 09 09 09 | 09 09 09 09 09 09 09 7d |rt......|.......}|
|00013360| 0d 7b 20 4a 75 73 74 20 | 22 75 73 65 22 20 74 68 |.{ Just |"use" th|
|00013370| 69 73 20 66 69 6c 65 20 | 69 6e 20 74 68 65 20 22 |is file |in the "|
|00013380| 75 73 65 73 22 20 73 74 | 61 74 6d 65 6e 74 20 61 |uses" st|atment a|
|00013390| 74 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |t the be|ginning |
|000133a0| 6f 66 20 74 68 65 20 66 | 69 6c 65 20 63 6f 6e 74 |of the f|ile cont|
|000133b0| 61 69 6e 69 6e 67 20 79 | 6f 75 72 09 09 09 09 7d |aining y|our....}|
|000133c0| 0d 7b 20 63 6f 64 65 2c | 20 61 73 20 69 74 20 69 |.{ code,| as it i|
|000133d0| 73 20 64 6f 6e 65 20 69 | 6e 20 46 75 6e 63 74 69 |s done i|n Functi|
|000133e0| 6f 6e 54 65 6d 70 6c 61 | 74 65 2e 70 20 61 6e 64 |onTempla|te.p and|
|000133f0| 20 50 72 6f 67 72 61 6d | 54 65 6d 70 6c 61 74 65 | Program|Template|
|00013400| 2e 70 2e 09 09 09 09 7d | 0d 7b 20 49 74 20 69 73 |.p.....}|.{ It is|
|00013410| 20 65 61 73 69 65 72 20 | 61 6e 64 20 66 61 73 74 | easier |and fast|
|00013420| 65 72 20 69 66 20 79 6f | 75 20 75 73 65 20 6f 6e |er if yo|u use on|
|00013430| 65 20 6f 66 20 74 68 65 | 73 65 20 66 69 6c 65 73 |e of the|se files|
|00013440| 20 74 6f 20 63 72 65 61 | 74 65 20 61 20 6e 65 77 | to crea|te a new|
|00013450| 20 65 78 74 65 72 6e 61 | 6c 20 6d 6f 64 75 6c 65 | externa|l module|
|00013460| 2e 09 09 09 09 7d 0d 0d | 7b 20 59 6f 75 20 64 6f |.....}..|{ You do|
|00013470| 20 6e 6f 74 20 6e 65 65 | 64 20 74 6f 20 75 6e 64 | not nee|d to und|
|00013480| 65 72 73 74 61 6e 64 20 | 77 68 61 74 20 69 73 20 |erstand |what is |
|00013490| 67 6f 69 6e 67 20 6f 6e | 20 69 6e 20 74 68 65 20 |going on| in the |
|000134a0| 69 6d 70 6c 65 6d 65 6e | 74 61 74 69 6f 6e 20 70 |implemen|tation p|
|000134b0| 61 72 74 20 6f 66 20 74 | 68 69 73 20 66 69 6c 65 |art of t|his file|
|000134c0| 20 09 09 09 09 7d 0d 7b | 20 75 6e 6c 65 73 73 20 | ....}.{| unless |
|000134d0| 79 6f 75 20 6e 65 65 64 | 20 74 6f 20 64 6f 20 76 |you need| to do v|
|000134e0| 65 72 79 20 61 64 76 61 | 6e 63 65 64 20 61 6e 64 |ery adva|nced and|
|000134f0| 20 65 78 6f 74 69 63 20 | 74 68 69 6e 67 73 2e 09 | exotic |things..|
|00013500| 09 09 09 7d 0d 0d 7b 24 | 49 46 43 20 4e 4f 54 20 |...}..{$|IFC NOT |
|00013510| 47 45 4e 45 52 41 54 49 | 4e 47 36 38 4b 7d 0d 09 |GENERATI|NG68K}..|
|00013520| 09 7b 20 69 66 20 67 65 | 6e 65 72 61 74 69 6e 67 |.{ if ge|nerating|
|00013530| 20 50 50 43 20 63 6f 64 | 65 20 09 09 09 7d 0d 09 | PPC cod|e ...}..|
|00013540| 76 61 72 0d 09 09 73 74 | 61 74 69 63 50 62 3a 20 |var...st|aticPb: |
|00013550| 45 78 74 4d 6f 64 75 6c | 65 73 50 61 72 61 6d 42 |ExtModul|esParamB|
|00013560| 6c 6f 63 6b 50 74 72 3b | 0d 0d 0d 09 70 72 6f 63 |lockPtr;|....proc|
|00013570| 65 64 75 72 65 20 53 74 | 61 72 74 55 70 20 28 70 |edure St|artUp (p|
|00013580| 62 3a 20 45 78 74 4d 6f | 64 75 6c 65 73 50 61 72 |b: ExtMo|dulesPar|
|00013590| 61 6d 42 6c 6f 63 6b 50 | 74 72 29 3b 0d 09 62 65 |amBlockP|tr);..be|
|000135a0| 67 69 6e 0d 09 09 73 74 | 61 74 69 63 50 62 20 3a |gin...st|aticPb :|
|000135b0| 3d 20 70 62 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |= pb;..e|nd;...fu|
|000135c0| 6e 63 74 69 6f 6e 20 47 | 65 74 50 62 3a 20 45 78 |nction G|etPb: Ex|
|000135d0| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|000135e0| 63 6b 50 74 72 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |ckPtr;..|begin...|
|000135f0| 47 65 74 50 62 20 3a 3d | 20 73 74 61 74 69 63 50 |GetPb :=| staticP|
|00013600| 62 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |b;..end;|...funct|
|00013610| 69 6f 6e 20 43 61 6c 6c | 55 6e 69 76 65 72 73 61 |ion Call|Universa|
|00013620| 6c 50 72 6f 63 20 28 74 | 68 65 50 72 6f 63 50 74 |lProc (t|heProcPt|
|00013630| 72 3a 20 55 6e 69 76 65 | 72 73 61 6c 50 72 6f 63 |r: Unive|rsalProc|
|00013640| 50 74 72 3b 20 70 72 6f | 63 49 6e 66 6f 3a 20 50 |Ptr; pro|cInfo: P|
|00013650| 72 6f 63 49 6e 66 6f 54 | 79 70 65 3b 20 70 62 3a |rocInfoT|ype; pb:|
|00013660| 20 70 74 72 29 3a 20 4c | 4f 4e 47 49 4e 54 3b 0d | ptr): L|ONGINT;.|
|00013670| 09 09 43 3b 0d 09 65 78 | 74 65 72 6e 61 6c 3b 0d |..C;..ex|ternal;.|
|00013680| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 43 61 6c 6c |..proced|ure Call|
|00013690| 52 75 6e 74 69 6d 65 50 | 72 6f 63 20 28 70 62 3a |RuntimeP|roc (pb:|
|000136a0| 20 70 74 72 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 | ptr);..|.var....|
|000136b0| 75 70 70 3a 20 55 6e 69 | 76 65 72 73 61 6c 50 72 |upp: Uni|versalPr|
|000136c0| 6f 63 50 74 72 3b 0d 09 | 09 09 64 75 6d 6d 79 3a |ocPtr;..|..dummy:|
|000136d0| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 62 65 67 69 6e | longint|;..begin|
|000136e0| 0d 09 09 75 70 70 20 3a | 3d 20 4e 65 77 52 6f 75 |...upp :|= NewRou|
|000136f0| 74 69 6e 65 44 65 73 63 | 72 69 70 74 6f 72 28 73 |tineDesc|riptor(s|
|00013700| 74 61 74 69 63 50 62 5e | 2e 52 75 6e 54 69 6d 65 |taticPb^|.RunTime|
|00013710| 50 72 6f 63 50 74 72 2c | 20 24 30 30 30 30 30 30 |ProcPtr,| $000000|
|00013720| 43 31 2c 20 6b 50 6f 77 | 65 72 50 43 49 53 41 29 |C1, kPow|erPCISA)|
|00013730| 3b 0d 09 09 69 66 20 28 | 75 70 70 20 3c 3e 20 6e |;...if (|upp <> n|
|00013740| 69 6c 29 20 74 68 65 6e | 0d 09 09 09 62 65 67 69 |il) then|....begi|
|00013750| 6e 0d 09 09 09 09 64 75 | 6d 6d 79 20 3a 3d 20 43 |n.....du|mmy := C|
|00013760| 61 6c 6c 55 6e 69 76 65 | 72 73 61 6c 50 72 6f 63 |allUnive|rsalProc|
|00013770| 28 75 70 70 2c 20 24 30 | 30 30 30 30 30 43 31 2c |(upp, $0|00000C1,|
|00013780| 20 70 62 29 3b 0d 09 09 | 09 09 44 69 73 70 6f 73 | pb);...|..Dispos|
|00013790| 65 52 6f 75 74 69 6e 65 | 44 65 73 63 72 69 70 74 |eRoutine|Descript|
|000137a0| 6f 72 28 75 70 70 29 3b | 0d 09 09 09 65 6e 64 3b |or(upp);|....end;|
|000137b0| 0d 09 65 6e 64 3b 20 7b | 20 43 61 6c 6c 52 75 6e |..end; {| CallRun|
|000137c0| 74 69 6d 65 50 72 6f 63 | 20 09 09 09 7d 0d 0d 7b |timeProc| ...}..{|
|000137d0| 24 45 4c 53 45 43 7d 0d | 09 7b 20 69 66 20 67 65 |$ELSEC}.|.{ if ge|
|000137e0| 6e 65 72 61 74 69 6e 67 | 20 36 38 6b 20 63 6f 64 |nerating| 68k cod|
|000137f0| 65 20 09 09 09 7d 0d 0d | 09 66 75 6e 63 74 69 6f |e ...}..|.functio|
|00013800| 6e 20 4d 79 4d 65 6d 6f | 72 79 20 28 69 3a 20 69 |n MyMemo|ry (i: i|
|00013810| 6e 74 65 67 65 72 29 3a | 20 69 6e 74 65 67 65 72 |nteger):| integer|
|00013820| 3b 0d 09 62 65 67 69 6e | 0d 09 09 4d 79 4d 65 6d |;..begin|...MyMem|
|00013830| 6f 72 79 20 3a 3d 20 69 | 20 2d 20 31 3b 09 09 7b |ory := i| - 1;..{|
|00013840| 20 6a 75 73 74 20 67 65 | 6e 65 72 61 74 65 20 73 | just ge|nerate s|
|00013850| 6f 6d 65 20 63 6f 64 65 | 20 09 09 09 7d 0d 09 65 |ome code| ...}..e|
|00013860| 6e 64 3b 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |nd;....p|rocedure|
|00013870| 20 53 74 61 72 74 55 70 | 20 28 70 62 3a 20 45 78 | StartUp| (pb: Ex|
|00013880| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|00013890| 63 6b 50 74 72 29 3b 0d | 09 09 76 61 72 0d 09 09 |ckPtr);.|..var...|
|000138a0| 09 70 3a 20 45 78 74 4d | 6f 64 75 6c 65 73 50 61 |.p: ExtM|odulesPa|
|000138b0| 72 61 6d 42 6c 6f 63 6b | 48 3b 0d 09 62 65 67 69 |ramBlock|H;..begi|
|000138c0| 6e 0d 09 09 70 20 3a 3d | 20 45 78 74 4d 6f 64 75 |n...p :=| ExtModu|
|000138d0| 6c 65 73 50 61 72 61 6d | 42 6c 6f 63 6b 48 28 40 |lesParam|BlockH(@|
|000138e0| 4d 79 4d 65 6d 6f 72 79 | 29 3b 09 09 7b 20 74 68 |MyMemory|);..{ th|
|000138f0| 69 73 20 69 73 20 61 20 | 64 69 72 74 79 20 74 72 |is is a |dirty tr|
|00013900| 69 63 6b 20 66 6f 72 20 | 73 74 6f 72 69 6e 67 20 |ick for |storing |
|00013910| 70 62 20 69 6e 20 73 74 | 61 74 69 63 20 6d 65 6d |pb in st|atic mem|
|00013920| 6f 72 79 20 09 09 09 7d | 0d 09 09 70 5e 20 3a 3d |ory ...}|...p^ :=|
|00013930| 20 70 62 3b 0d 09 65 6e | 64 3b 0d 0d 09 66 75 6e | pb;..en|d;...fun|
|00013940| 63 74 69 6f 6e 20 47 65 | 74 50 62 3a 20 45 78 74 |ction Ge|tPb: Ext|
|00013950| 4d 6f 64 75 6c 65 73 50 | 61 72 61 6d 42 6c 6f 63 |ModulesP|aramBloc|
|00013960| 6b 50 74 72 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |kPtr;...|var....p|
|00013970| 3a 20 45 78 74 4d 6f 64 | 75 6c 65 73 50 61 72 61 |: ExtMod|ulesPara|
|00013980| 6d 42 6c 6f 63 6b 48 3b | 0d 09 62 65 67 69 6e 0d |mBlockH;|..begin.|
|00013990| 09 09 70 20 3a 3d 20 45 | 78 74 4d 6f 64 75 6c 65 |..p := E|xtModule|
|000139a0| 73 50 61 72 61 6d 42 6c | 6f 63 6b 48 28 40 4d 79 |sParamBl|ockH(@My|
|000139b0| 4d 65 6d 6f 72 79 29 3b | 09 09 7b 20 74 68 69 73 |Memory);|..{ this|
|000139c0| 20 69 73 20 61 20 64 69 | 72 74 79 20 74 72 69 63 | is a di|rty tric|
|000139d0| 6b 20 66 6f 72 20 73 74 | 6f 72 69 6e 67 20 70 62 |k for st|oring pb|
|000139e0| 20 69 6e 20 73 74 61 74 | 69 63 20 6d 65 6d 6f 72 | in stat|ic memor|
|000139f0| 79 20 09 09 09 7d 0d 09 | 09 47 65 74 50 62 20 3a |y ...}..|.GetPb :|
|00013a00| 3d 20 70 5e 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |= p^;..e|nd;...pr|
|00013a10| 6f 63 65 64 75 72 65 20 | 43 61 6c 6c 52 75 6e 74 |ocedure |CallRunt|
|00013a20| 69 6d 65 50 72 6f 63 20 | 28 70 62 3a 20 70 74 72 |imeProc |(pb: ptr|
|00013a30| 29 3b 0d 09 09 76 61 72 | 0d 09 09 09 70 3a 20 45 |);...var|....p: E|
|00013a40| 78 74 4d 6f 64 75 6c 65 | 73 50 61 72 61 6d 42 6c |xtModule|sParamBl|
|00013a50| 6f 63 6b 48 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |ockH;..b|egin...p|
|00013a60| 20 3a 3d 20 45 78 74 4d | 6f 64 75 6c 65 73 50 61 | := ExtM|odulesPa|
|00013a70| 72 61 6d 42 6c 6f 63 6b | 48 28 40 4d 79 4d 65 6d |ramBlock|H(@MyMem|
|00013a80| 6f 72 79 29 3b 09 09 7b | 20 74 68 69 73 20 69 73 |ory);..{| this is|
|00013a90| 20 61 20 64 69 72 74 79 | 20 74 72 69 63 6b 20 66 | a dirty| trick f|
|00013aa0| 6f 72 20 73 74 6f 72 69 | 6e 67 20 70 62 20 69 6e |or stori|ng pb in|
|00013ab0| 20 73 74 61 74 69 63 20 | 6d 65 6d 6f 72 79 20 09 | static |memory .|
|00013ac0| 09 09 7d 0d 09 09 72 75 | 6e 74 69 6d 65 50 72 6f |..}...ru|ntimePro|
|00013ad0| 63 28 70 62 2c 20 70 5e | 5e 2e 52 75 6e 54 69 6d |c(pb, p^|^.RunTim|
|00013ae0| 65 50 72 6f 63 50 74 72 | 29 3b 0d 09 65 6e 64 3b |eProcPtr|);..end;|
|00013af0| 20 7b 20 43 61 6c 6c 52 | 75 6e 74 69 6d 65 50 72 | { CallR|untimePr|
|00013b00| 6f 63 20 09 09 09 7d 0d | 7b 24 45 4e 44 43 7d 0d |oc ...}.|{$ENDC}.|
|00013b10| 09 74 79 70 65 0d 0d 7b | 20 74 68 65 20 66 6f 6c |.type..{| the fol|
|00013b20| 6c 6f 77 69 6e 67 20 72 | 65 63 6f 72 64 20 69 73 |lowing r|ecord is|
|00013b30| 20 75 73 65 64 20 61 73 | 20 61 20 70 61 72 61 6d | used as| a param|
|00013b40| 65 74 65 72 20 62 6c 6f | 63 6b 20 66 6f 72 20 61 |eter blo|ck for a|
|00013b50| 6c 6c 20 74 68 65 20 72 | 6f 75 74 69 6e 65 73 20 |ll the r|outines |
|00013b60| 70 72 6f 76 69 64 65 64 | 20 62 79 20 70 72 6f 46 |provided| by proF|
|00013b70| 69 74 20 7d 0d 7b 20 54 | 68 69 73 20 66 69 6c 65 |it }.{ T|his file|
|00013b80| 20 64 65 66 69 6e 65 73 | 20 61 20 73 65 74 20 6f | defines| a set o|
|00013b90| 66 20 70 72 6f 63 65 64 | 75 72 65 73 20 74 68 61 |f proced|ures tha|
|00013ba0| 74 20 70 72 6f 76 69 64 | 65 20 63 61 6c 6c 73 20 |t provid|e calls |
|00013bb0| 74 6f 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 73 |to the f|unctions|
|00013bc0| 20 61 6e 64 09 09 09 7d | 0d 7b 20 70 72 6f 63 65 | and...}|.{ proce|
|00013bd0| 64 75 72 65 73 20 74 68 | 61 74 20 75 73 65 20 74 |dures th|at use t|
|00013be0| 68 65 20 72 65 63 6f 72 | 64 20 20 72 75 6e 54 69 |he recor|d runTi|
|00013bf0| 6d 65 50 61 72 61 6d 52 | 65 63 20 20 61 73 20 61 |meParamR|ec as a|
|00013c00| 20 70 61 72 61 6d 65 74 | 65 72 2e 20 20 20 54 68 | paramet|er. Th|
|00013c10| 65 73 65 20 70 72 6f 63 | 65 64 75 72 65 73 20 61 |ese proc|edures a|
|00013c20| 6e 64 20 66 75 6e 63 74 | 69 6f 6e 73 09 7d 0d 7b |nd funct|ions.}.{|
|00013c30| 20 63 6f 72 72 65 63 74 | 6c 79 20 73 65 74 20 74 | correct|ly set t|
|00013c40| 68 65 20 70 61 72 61 6d | 65 74 65 72 73 20 63 6f |he param|eters co|
|00013c50| 6e 74 61 69 6e 65 64 20 | 69 6e 20 72 75 6e 54 69 |ntained |in runTi|
|00013c60| 6d 65 50 61 72 61 6d 52 | 65 63 20 61 6e 64 20 63 |meParamR|ec and c|
|00013c70| 61 6c 6c 20 20 72 75 6e | 74 69 6d 65 50 72 6f 63 |all run|timeProc|
|00013c80| 20 74 6f 20 70 72 6f 64 | 75 63 65 09 09 7d 0d 7b | to prod|uce..}.{|
|00013c90| 20 74 68 65 20 65 78 70 | 65 63 74 65 64 20 72 65 | the exp|ected re|
|00013ca0| 73 75 6c 74 73 2e 20 54 | 68 65 20 64 65 63 6c 61 |sults. T|he decla|
|00013cb0| 72 61 74 69 6f 6e 20 6f | 66 20 74 68 65 73 65 20 |ration o|f these |
|00013cc0| 70 72 6f 63 65 64 75 72 | 65 73 20 69 73 20 66 6f |procedur|es is fo|
|00013cd0| 75 6e 64 20 61 62 6f 76 | 65 2c 20 69 6e 20 74 68 |und abov|e, in th|
|00013ce0| 65 20 69 6e 74 65 72 66 | 61 63 65 65 6e 64 3b 7d |e interf|aceend;}|
|00013cf0| 0d 7b 20 70 61 72 74 2e | 20 54 68 65 20 69 6d 70 |.{ part.| The imp|
|00013d00| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 20 69 73 20 66 |lementat|ion is f|
|00013d10| 6f 75 6e 64 20 62 65 6c | 6f 77 2c 20 61 74 20 74 |ound bel|ow, at t|
|00013d20| 68 65 20 65 6e 64 20 6f | 66 20 74 68 69 73 20 66 |he end o|f this f|
|00013d30| 69 6c 65 2e 09 09 09 09 | 09 7d 0d 0d 0d 7b 24 41 |ile.....|.}...{$A|
|00013d40| 4c 49 47 4e 20 4d 41 43 | 36 38 4b 7d 0d 09 09 72 |LIGN MAC|68K}...r|
|00013d50| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 20 3d |unTimePa|ramRec =|
|00013d60| 20 72 65 63 6f 72 64 0d | 09 09 09 09 72 65 73 75 | record.|....resu|
|00013d70| 6c 74 3a 20 6f 73 45 72 | 72 3b 09 09 09 7b 20 6e |lt: osEr|r;...{ n|
|00013d80| 6f 45 72 72 20 6f 72 20 | 65 72 72 6f 72 20 63 6f |oErr or |error co|
|00013d90| 64 65 20 7d 0d 09 09 09 | 09 77 68 61 74 3a 20 69 |de }....|.what: i|
|00013da0| 6e 74 65 67 65 72 3b 09 | 09 7b 20 74 68 65 20 6f |nteger;.|.{ the o|
|00013db0| 70 65 72 61 74 69 6f 6e | 20 7d 0d 7b 09 22 77 68 |peration| }.{."wh|
|00013dc0| 61 74 22 20 63 61 6e 20 | 63 75 72 72 65 6e 74 6c |at" can |currentl|
|00013dd0| 79 20 61 73 73 75 6d 65 | 20 74 68 65 20 66 6f 6c |y assume| the fol|
|00013de0| 6c 6f 77 69 6e 67 20 76 | 61 6c 75 65 73 3a 09 09 |lowing v|alues:..|
|00013df0| 09 09 09 09 09 09 7d 0d | 7b 09 31 3a 09 4f 62 73 |......}.|{.1:.Obs|
|00013e00| 6f 6c 65 74 65 2e 20 55 | 73 65 64 20 66 6f 72 20 |olete. U|sed for |
|00013e10| 22 6e 65 77 43 75 72 76 | 65 22 20 69 6e 20 65 61 |"newCurv|e" in ea|
|00013e20| 72 6c 69 65 72 20 76 65 | 72 73 69 6f 6e 73 20 7d |rlier ve|rsions }|
|00013e30| 0d 7b 09 32 3a 09 6d 6f | 76 65 74 6f 20 7d 0d 7b |.{.2:.mo|veto }.{|
|00013e40| 09 33 3a 20 09 6c 69 6e | 65 74 6f 20 7d 0d 7b 09 |.3: .lin|eto }.{.|
|00013e50| 34 3a 09 47 65 74 47 72 | 61 70 68 43 6f 6f 72 64 |4:.GetGr|aphCoord|
|00013e60| 69 6e 61 74 65 73 20 7d | 0d 7b 09 35 3a 09 43 72 |inates }|.{.5:.Cr|
|00013e70| 65 61 74 65 4e 65 77 47 | 72 61 66 20 20 7d 0d 7b |eateNewG|raf }.{|
|00013e80| 09 36 3a 09 4f 62 73 6f | 6c 65 74 65 2e 20 55 73 |.6:.Obso|lete. Us|
|00013e90| 65 64 20 66 6f 72 20 22 | 4e 65 77 44 61 74 61 53 |ed for "|NewDataS|
|00013ea0| 65 74 22 20 69 6e 20 65 | 61 72 6c 69 65 72 20 76 |et" in e|arlier v|
|00013eb0| 65 72 73 69 6f 6e 73 20 | 20 7d 0d 7b 09 37 3a 09 |ersions | }.{.7:.|
|00013ec0| 4f 62 73 6f 6c 65 74 65 | 2e 20 55 73 65 64 20 66 |Obsolete|. Used f|
|00013ed0| 6f 72 20 61 6e 20 65 61 | 72 6c 69 65 72 20 76 65 |or an ea|rlier ve|
|00013ee0| 72 73 69 6f 6e 20 6f 66 | 20 41 64 64 44 61 74 61 |rsion of| AddData|
|00013ef0| 50 6f 69 6e 74 20 20 7d | 0d 7b 09 31 31 3a 20 72 |Point }|.{.11: r|
|00013f00| 61 6e 64 6f 6d 20 7d 0d | 7b 09 31 32 3a 09 54 65 |andom }.|{.12:.Te|
|00013f10| 73 74 53 74 6f 70 65 6e | 64 3b 7d 0d 7b 09 31 33 |stStopen|d;}.{.13|
|00013f20| 3a 09 77 72 69 74 65 65 | 6e 64 3b 7d 0d 7b 09 31 |:.writee|nd;}.{.1|
|00013f30| 34 3a 09 77 72 69 74 65 | 6c 6e 65 6e 64 3b 7d 0d |4:.write|lnend;}.|
|00013f40| 7b 09 31 35 3a 09 77 72 | 69 74 65 45 78 74 65 6e |{.15:.wr|iteExten|
|00013f50| 64 65 64 65 6e 64 3b 7d | 0d 7b 09 31 36 3a 09 61 |dedend;}|.{.16:.a|
|00013f60| 6c 65 72 74 65 6e 64 3b | 7d 0d 7b 09 31 37 3a 09 |lertend;|}.{.17:.|
|00013f70| 69 6e 70 75 74 65 6e 64 | 3b 7d 0d 7b 09 31 38 3a |inputend|;}.{.18:|
|00013f80| 09 61 73 6b 65 6e 64 3b | 7d 0d 7b 09 31 39 3a 09 |.askend;|}.{.19:.|
|00013f90| 53 65 74 43 6f 6c 75 6d | 6e 4e 61 6d 65 65 6e 64 |SetColum|nNameend|
|00013fa0| 3b 7d 0d 7b 09 32 30 2d | 32 33 3a 78 43 6f 6c 75 |;}.{.20-|23:xColu|
|00013fb0| 6d 6e 2c 20 79 43 6f 6c | 75 6d 6e 2c 20 78 45 72 |mn, yCol|umn, xEr|
|00013fc0| 72 43 6f 6c 75 6d 6e 2c | 20 79 45 72 72 43 6f 6c |rColumn,| yErrCol|
|00013fd0| 75 6d 6e 65 6e 64 3b 7d | 0d 7b 09 32 34 3a 09 47 |umnend;}|.{.24:.G|
|00013fe0| 65 74 53 65 6c 65 63 74 | 69 6f 6e 65 6e 64 3b 7d |etSelect|ionend;}|
|00013ff0| 0d 7b 09 32 35 3a 09 47 | 65 74 44 61 74 61 65 6e |.{.25:.G|etDataen|
|00014000| 64 3b 7d 0d 7b 09 32 36 | 3a 09 53 65 74 44 61 74 |d;}.{.26|:.SetDat|
|00014010| 61 65 6e 64 3b 7d 0d 7b | 09 32 37 3a 09 43 6c 65 |aend;}.{|.27:.Cle|
|00014020| 61 72 44 61 74 61 65 6e | 64 3b 7d 0d 7b 09 32 38 |arDataen|d;}.{.28|
|00014030| 3a 09 54 65 73 74 44 61 | 74 61 65 6e 64 3b 7d 0d |:.TestDa|taend;}.|
|00014040| 7b 09 32 39 3a 09 4e 75 | 6d 62 65 72 49 6e 76 61 |{.29:.Nu|mberInva|
|00014050| 6c 69 64 65 6e 64 3b 7d | 0d 7b 09 33 30 3a 09 53 |lidend;}|.{.30:.S|
|00014060| 65 74 50 61 72 61 6d 4c | 69 6d 69 74 73 65 6e 64 |etParamL|imitsend|
|00014070| 3b 7d 0d 7b 09 33 31 3a | 09 53 65 74 50 61 72 61 |;}.{.31:|.SetPara|
|00014080| 6d 44 65 66 61 75 6c 74 | 56 61 6c 75 65 65 6e 64 |mDefault|Valueend|
|00014090| 3b 7d 0d 7b 09 33 32 3a | 09 53 65 74 50 61 72 61 |;}.{.32:|.SetPara|
|000140a0| 6d 4e 61 6d 65 73 65 6e | 64 3b 7d 0d 7b 09 33 33 |mNamesen|d;}.{.33|
|000140b0| 3a 09 53 65 74 50 61 72 | 61 6d 44 65 66 61 75 6c |:.SetPar|amDefaul|
|000140c0| 74 73 65 6e 64 3b 7d 0d | 7b 09 33 34 3a 09 4e 72 |tsend;}.|{.34:.Nr|
|000140d0| 52 6f 77 73 65 6e 64 3b | 7d 0d 7b 09 33 35 3a 09 |Rowsend;|}.{.35:.|
|000140e0| 4e 72 43 6f 6c 73 65 6e | 64 3b 7d 0d 0d 7b 09 34 |NrColsen|d;}..{.4|
|000140f0| 30 3a 09 53 74 6f 70 45 | 78 65 63 75 74 69 6f 6e |0:.StopE|xecution|
|00014100| 65 6e 64 3b 7d 0d 0d 7b | 09 20 34 31 3a 09 45 72 |end;}..{|. 41:.Er|
|00014110| 66 09 09 09 09 09 09 09 | 09 09 09 09 09 09 28 76 |f.......|......(v|
|00014120| 2e 20 35 20 61 6e 64 20 | 6c 61 74 65 72 29 09 09 |. 5 and |later)..|
|00014130| 09 09 09 09 7d 0d 7b 09 | 20 34 32 3a 09 45 72 66 |....}.{.| 42:.Erf|
|00014140| 63 09 09 09 09 09 09 09 | 09 09 09 09 09 28 76 2e |c.......|.....(v.|
|00014150| 20 35 20 61 6e 64 20 6c | 61 74 65 72 29 7d 0d 7b | 5 and l|ater)}.{|
|00014160| 09 20 34 33 3a 09 66 75 | 6e 63 74 69 6f 6e 20 4d |. 43:.fu|nction M|
|00014170| 61 72 6b 58 28 69 3a 69 | 6e 74 65 67 65 72 29 3a |arkX(i:i|nteger):|
|00014180| 65 78 74 65 6e 64 65 64 | 3b 09 09 09 09 09 28 76 |extended|;.....(v|
|00014190| 2e 20 35 20 61 6e 64 20 | 6c 61 74 65 72 29 7d 0d |. 5 and |later)}.|
|000141a0| 7b 09 20 34 34 3a 09 66 | 75 6e 63 74 69 6f 6e 20 |{. 44:.f|unction |
|000141b0| 4d 61 72 6b 59 28 69 3a | 69 6e 74 65 67 65 72 29 |MarkY(i:|integer)|
|000141c0| 3a 65 78 74 65 6e 64 65 | 64 3b 09 09 09 09 09 28 |:extende|d;.....(|
|000141d0| 76 2e 20 35 20 61 6e 64 | 20 6c 61 74 65 72 29 7d |v. 5 and| later)}|
|000141e0| 0d 7b 09 20 34 35 3a 09 | 70 72 6f 63 65 64 75 72 |.{. 45:.|procedur|
|000141f0| 65 20 4d 61 72 6b 43 6f | 6f 72 64 73 28 69 3a 69 |e MarkCo|ords(i:i|
|00014200| 6e 74 65 67 65 72 3b 20 | 76 61 72 20 78 2c 79 3a |nteger; |var x,y:|
|00014210| 65 78 74 65 6e 64 65 64 | 29 3b 09 28 76 2e 20 35 |extended|);.(v. 5|
|00014220| 20 61 6e 64 20 6c 61 74 | 65 72 29 09 7d 0d 0d 0d | and lat|er).}...|
|00014230| 7b 09 31 30 30 3a 09 43 | 61 6c 6c 46 75 6e 63 74 |{.100:.C|allFunct|
|00014240| 69 6f 6e 65 6e 64 3b 7d | 0d 7b 09 31 30 31 3a 09 |ionend;}|.{.101:.|
|00014250| 47 65 74 46 75 6e 63 74 | 69 6f 6e 50 61 72 61 6d |GetFunct|ionParam|
|00014260| 65 6e 64 3b 7d 0d 7b 09 | 31 30 32 3a 09 53 65 74 |end;}.{.|102:.Set|
|00014270| 46 75 6e 63 74 69 6f 6e | 50 61 72 61 6d 65 6e 64 |Function|Paramend|
|00014280| 3b 7d 0d 7b 09 31 30 33 | 3a 09 43 61 6c 6c 50 72 |;}.{.103|:.CallPr|
|00014290| 6f 67 72 61 6d 65 6e 64 | 3b 7d 0d 7b 09 31 30 34 |ogramend|;}.{.104|
|000142a0| 3a 09 47 65 74 46 75 6e | 63 74 69 6f 6e 50 61 72 |:.GetFun|ctionPar|
|000142b0| 61 6d 4d 6f 64 65 65 6e | 64 3b 7d 0d 7b 09 31 30 |amModeen|d;}.{.10|
|000142c0| 35 3a 09 47 65 74 46 75 | 6e 63 74 69 6f 6e 50 61 |5:.GetFu|nctionPa|
|000142d0| 72 61 6d 4e 75 6d 65 6e | 64 3b 7d 0d 7b 09 31 31 |ramNumen|d;}.{.11|
|000142e0| 30 3a 09 43 61 6c 63 75 | 6c 61 74 65 49 6e 74 65 |0:.Calcu|lateInte|
|000142f0| 67 72 61 6c 65 6e 64 3b | 7d 0d 7b 09 31 31 31 2d |gralend;|}.{.111-|
|00014300| 31 31 34 3a 6d 61 78 69 | 6d 61 2c 20 6d 69 6e 69 |114:maxi|ma, mini|
|00014310| 6d 61 2c 20 72 6f 6f 74 | 73 2c 64 65 72 69 76 61 |ma, root|s,deriva|
|00014320| 74 69 76 65 20 7d 0d 7b | 09 31 32 30 2d 31 32 34 |tive }.{|.120-124|
|00014330| 3a 63 68 69 53 71 75 61 | 72 65 64 2c 6e 75 6d 46 |:chiSqua|red,numF|
|00014340| 69 74 50 61 72 61 6d 73 | 2c 66 69 74 74 65 64 50 |itParams|,fittedP|
|00014350| 61 72 61 6d 73 2c 20 63 | 6f 76 61 72 2c 70 61 72 |arams, c|ovar,par|
|00014360| 61 6d 53 44 20 7d 0d 0d | 7b 09 41 6c 6c 20 66 6f |amSD }..|{.All fo|
|00014370| 6c 6c 6f 77 69 6e 67 20 | 72 6f 75 74 69 6e 65 73 |llowing |routines|
|00014380| 20 61 72 65 20 61 76 61 | 69 6c 61 62 6c 65 20 73 | are ava|ilable s|
|00014390| 74 61 72 74 69 6e 67 20 | 66 72 6f 6d 20 70 72 6f |tarting |from pro|
|000143a0| 20 46 69 74 20 76 65 72 | 73 69 6f 6e 20 35 20 61 | Fit ver|sion 5 a|
|000143b0| 6e 64 20 6c 61 74 65 72 | 2e 7d 0d 7b 09 20 7d 0d |nd later|.}.{. }.|
|000143c0| 7b 09 31 32 35 2d 31 32 | 36 3a 53 65 74 45 72 72 |{.125-12|6:SetErr|
|000143d0| 6f 72 41 6e 61 6c 79 73 | 69 73 44 65 66 61 75 6c |orAnalys|isDefaul|
|000143e0| 74 73 2c 20 43 6f 6e 66 | 69 64 65 6e 63 65 49 6e |ts, Conf|idenceIn|
|000143f0| 74 65 72 76 61 6c 09 09 | 09 09 7d 0d 7b 09 31 33 |terval..|..}.{.13|
|00014400| 30 2d 31 33 33 3a 63 61 | 6c 63 53 74 61 74 2c 20 |0-133:ca|lcStat, |
|00014410| 67 65 74 42 61 73 69 63 | 73 2c 20 67 65 74 53 6b |getBasic|s, getSk|
|00014420| 65 77 2c 20 67 65 74 4d | 65 64 69 61 6e 09 09 09 |ew, getM|edian...|
|00014430| 7d 0d 0d 7b 09 31 33 35 | 3a 09 09 44 6f 4d 65 6e |}..{.135|:..DoMen|
|00014440| 75 7d 0d 0d 7b 09 31 35 | 30 2d 31 35 34 3a 09 46 |u}..{.15|0-154:.F|
|00014450| 72 6f 6e 74 57 69 6e 64 | 6f 77 2c 20 4e 65 77 57 |rontWind|ow, NewW|
|00014460| 69 6e 64 6f 77 2c 20 53 | 65 74 43 75 72 72 65 6e |indow, S|etCurren|
|00014470| 74 57 69 6e 64 6f 77 2c | 20 47 65 74 43 75 72 72 |tWindow,| GetCurr|
|00014480| 65 6e 74 57 69 6e 64 6f | 77 2c 20 43 6c 6f 73 65 |entWindo|w, Close|
|00014490| 57 69 6e 64 6f 77 7d 0d | 7b 09 31 35 35 2d 31 35 |Window}.|{.155-15|
|000144a0| 39 3a 09 46 72 6f 6e 74 | 6d 6f 73 74 57 69 6e 64 |9:.Front|mostWind|
|000144b0| 6f 77 2c 20 53 61 76 65 | 57 69 6e 64 6f 77 2c 20 |ow, Save|Window, |
|000144c0| 53 61 76 65 57 69 6e 64 | 6f 77 41 73 2c 20 47 65 |SaveWind|owAs, Ge|
|000144d0| 74 57 69 6e 64 6f 77 49 | 44 2c 20 47 65 74 57 69 |tWindowI|D, GetWi|
|000144e0| 6e 64 6f 77 54 79 70 65 | 7d 0d 7b 09 31 36 30 2d |ndowType|}.{.160-|
|000144f0| 31 36 33 3a 09 47 65 74 | 4e 65 78 74 57 69 6e 64 |163:.Get|NextWind|
|00014500| 6f 77 2c 20 4f 70 65 6e | 46 69 6c 65 2c 20 4f 70 |ow, Open|File, Op|
|00014510| 65 6e 44 61 74 61 2c 20 | 4f 70 65 6e 54 65 78 74 |enData, |OpenText|
|00014520| 7d 0d 7b 09 31 36 34 2d | 31 36 35 3a 09 53 61 76 |}.{.164-|165:.Sav|
|00014530| 65 44 61 74 61 41 73 54 | 65 78 74 2c 20 53 61 76 |eDataAsT|ext, Sav|
|00014540| 65 44 72 61 77 69 6e 67 | 41 73 7d 0d 7b 09 31 36 |eDrawing|As}.{.16|
|00014550| 36 20 20 20 20 20 20 3a | 20 53 65 74 57 69 6e 64 |6 :| SetWind|
|00014560| 6f 77 54 69 74 6c 65 7d | 0d 7b 09 31 36 37 2d 31 |owTitle}|.{.167-1|
|00014570| 36 38 3a 20 50 6c 61 63 | 65 57 69 6e 64 6f 77 2c |68: Plac|eWindow,|
|00014580| 20 42 72 69 6e 67 57 69 | 6e 64 6f 77 54 6f 46 72 | BringWi|ndowToFr|
|00014590| 6f 6e 74 7d 0d 7b 09 31 | 36 39 20 20 20 20 20 20 |ont}.{.1|69 |
|000145a0| 3a 20 43 6f 6d 70 69 6c | 65 7d 0d 0d 7b 09 31 37 |: Compil|e}..{.17|
|000145b0| 30 2d 31 37 32 3a 09 53 | 65 74 44 61 74 61 57 69 |0-172:.S|etDataWi|
|000145c0| 6e 64 6f 77 53 69 7a 65 | 2c 20 47 65 74 43 6f 6c |ndowSize|, GetCol|
|000145d0| 54 79 70 65 2c 20 53 65 | 74 43 6f 6c 54 79 70 65 |Type, Se|tColType|
|000145e0| 7d 0d 7b 09 31 37 33 2d | 31 37 37 3a 20 53 65 6c |}.{.173-|177: Sel|
|000145f0| 65 63 74 43 65 6c 6c 73 | 2c 20 53 65 6c 65 63 74 |ectCells|, Select|
|00014600| 52 6f 77 73 2c 20 52 6f | 77 53 65 6c 65 63 74 65 |Rows, Ro|wSelecte|
|00014610| 64 2c 20 43 65 6c 6c 53 | 65 6c 65 63 74 65 64 2c |d, CellS|elected,|
|00014620| 20 53 65 74 43 65 6c 6c | 7d 0d 7b 09 31 37 33 2d | SetCell|}.{.173-|
|00014630| 31 37 37 3a 20 53 65 6c | 65 63 74 43 65 6c 6c 73 |177: Sel|ectCells|
|00014640| 2c 20 53 65 6c 65 63 74 | 52 6f 77 73 2c 20 52 6f |, Select|Rows, Ro|
|00014650| 77 53 65 6c 65 63 74 65 | 64 2c 20 43 65 6c 6c 53 |wSelecte|d, CellS|
|00014660| 65 6c 65 63 74 65 64 2c | 20 53 65 74 43 65 6c 6c |elected,| SetCell|
|00014670| 7d 0d 7b 09 31 37 38 2d | 31 38 32 3a 20 47 65 74 |}.{.178-|182: Get|
|00014680| 43 65 6c 6c 2c 20 47 65 | 74 43 6f 6c 75 6d 6e 4e |Cell, Ge|tColumnN|
|00014690| 61 6d 65 2c 20 53 65 74 | 44 65 66 61 75 6c 74 43 |ame, Set|DefaultC|
|000146a0| 6f 6c 75 6d 6e 73 2c 20 | 47 65 74 43 6f 6c 48 61 |olumns, |GetColHa|
|000146b0| 6e 64 6c 65 2c 20 53 65 | 74 43 6f 6c 48 61 6e 64 |ndle, Se|tColHand|
|000146c0| 6c 65 7d 0d 7b 09 31 38 | 36 2d 31 38 37 3a 20 53 |le}.{.18|6-187: S|
|000146d0| 65 74 42 6f 78 54 69 74 | 6c 65 2c 20 53 65 74 57 |etBoxTit|le, SetW|
|000146e0| 69 6e 64 6f 77 49 6e 66 | 6f 7d 0d 7b 09 20 7d 0d |indowInf|o}.{. }.|
|000146f0| 7b 09 31 38 39 3a 20 20 | 20 20 20 53 65 74 54 65 |{.189: | SetTe|
|00014700| 78 74 46 69 6c 65 46 6f | 72 6d 61 74 7d 0d 7b 09 |xtFileFo|rmat}.{.|
|00014710| 31 39 30 2d 31 39 32 3a | 20 43 72 65 61 74 65 54 |190-192:| CreateT|
|00014720| 65 78 74 46 69 6c 65 2c | 20 43 6c 6f 73 65 54 65 |extFile,| CloseTe|
|00014730| 78 74 46 69 6c 65 2c 20 | 57 72 69 74 65 54 6f 54 |xtFile, |WriteToT|
|00014740| 65 78 74 46 69 6c 65 7d | 0d 7b 09 31 39 33 2d 31 |extFile}|.{.193-1|
|00014750| 39 36 3a 20 48 61 6e 64 | 6c 65 45 76 65 6e 74 2c |96: Hand|leEvent,|
|00014760| 20 44 65 61 63 74 69 76 | 61 74 65 57 69 6e 64 6f | Deactiv|ateWindo|
|00014770| 77 73 2c 20 41 63 74 69 | 76 61 74 65 57 69 6e 64 |ws, Acti|vateWind|
|00014780| 6f 77 73 2c 20 43 61 6e | 63 65 6c 45 76 65 6e 74 |ows, Can|celEvent|
|00014790| 7d 0d 7b 09 31 39 37 2d | 31 39 38 3a 20 4e 75 6d |}.{.197-|198: Num|
|000147a0| 62 65 72 54 6f 53 74 72 | 32 35 35 2c 20 53 74 72 |berToStr|255, Str|
|000147b0| 32 35 35 54 6f 4e 75 6d | 62 65 72 2c 20 47 65 74 |255ToNum|ber, Get|
|000147c0| 41 6e 64 53 65 74 53 74 | 61 74 75 73 7d 0d 7b 09 |AndSetSt|atus}.{.|
|000147d0| 31 39 37 2d 31 39 38 3a | 20 4e 75 6d 62 65 72 54 |197-198:| NumberT|
|000147e0| 6f 53 74 72 32 35 35 2c | 20 53 74 72 32 35 35 54 |oStr255,| Str255T|
|000147f0| 6f 4e 75 6d 62 65 72 7d | 0d 0d 7b 09 32 30 30 2d |oNumber}|..{.200-|
|00014800| 32 30 37 3a 09 53 65 74 | 4c 69 6e 65 53 74 79 6c |207:.Set|LineStyl|
|00014810| 65 2c 53 65 74 46 69 6c | 6c 50 61 74 74 65 72 6e |e,SetFil|lPattern|
|00014820| 2c 53 65 74 41 72 72 6f | 77 53 74 79 6c 65 2c 53 |,SetArro|wStyle,S|
|00014830| 65 74 54 65 78 74 53 74 | 79 6c 65 7d 0d 7b 09 20 |etTextSt|yle}.{. |
|00014840| 09 09 09 53 65 74 44 61 | 74 61 50 6f 69 6e 74 53 |...SetDa|taPointS|
|00014850| 74 79 6c 65 2c 20 53 65 | 74 42 47 44 61 74 61 50 |tyle, Se|tBGDataP|
|00014860| 6f 69 6e 74 53 74 79 6c | 65 2c 53 65 74 4c 69 6e |ointStyl|e,SetLin|
|00014870| 65 43 6f 6c 6f 72 2c 53 | 65 74 46 69 6c 6c 43 6f |eColor,S|etFillCo|
|00014880| 6c 6f 72 7d 0d 7b 09 32 | 30 38 2d 32 32 32 3a 20 |lor}.{.2|08-222: |
|00014890| 44 72 61 77 52 65 63 74 | 2c 44 72 61 77 45 6c 6c |DrawRect|,DrawEll|
|000148a0| 69 70 73 65 2c 44 72 61 | 77 4c 69 6e 65 2c 44 72 |ipse,Dra|wLine,Dr|
|000148b0| 61 77 54 65 78 74 4c 69 | 6e 65 2c 44 72 61 77 4e |awTextLi|ne,DrawN|
|000148c0| 75 6d 62 65 72 2c 44 72 | 61 77 44 61 74 61 50 6f |umber,Dr|awDataPo|
|000148d0| 69 6e 74 2c 4f 70 65 6e | 50 6f 6c 79 67 6f 6e 2c |int,Open|Polygon,|
|000148e0| 43 6c 6f 73 65 50 6f 6c | 79 67 6f 6e 2c 7d 0d 7b |ClosePol|ygon,}.{|
|000148f0| 09 20 09 09 09 43 6c 6f | 73 65 43 75 72 76 65 2c |. ...Clo|seCurve,|
|00014900| 20 43 6c 6f 73 65 44 61 | 74 61 53 65 74 2c 53 65 | CloseDa|taSet,Se|
|00014910| 74 4e 65 77 47 72 61 70 | 68 52 65 63 74 2c 47 72 |tNewGrap|hRect,Gr|
|00014920| 6f 75 70 42 65 67 69 6e | 2c 4d 6f 76 65 2c 4c 69 |oupBegin|,Move,Li|
|00014930| 6e 65 7d 0d 7b 09 32 32 | 33 3a 09 09 47 65 74 4c |ne}.{.22|3:..GetL|
|00014940| 61 73 74 43 6c 69 63 6b | 65 64 43 6f 6f 72 64 69 |astClick|edCoordi|
|00014950| 6e 61 74 65 73 7d 0d 7b | 09 32 32 34 2c 32 32 35 |nates}.{|.224,225|
|00014960| 3a 09 4f 70 65 6e 43 75 | 72 76 65 2c 20 4f 70 65 |:.OpenCu|rve, Ope|
|00014970| 6e 44 61 74 61 53 65 74 | 7d 0d 7b 09 32 32 36 09 |nDataSet|}.{.226.|
|00014980| 09 44 69 73 61 62 6c 65 | 44 72 61 77 69 6e 67 55 |.Disable|DrawingU|
|00014990| 70 64 61 74 65 73 7d 0d | 7b 09 32 32 37 2d 32 32 |pdates}.|{.227-22|
|000149a0| 39 3a 09 53 65 74 43 75 | 72 72 65 6e 74 47 72 61 |9:.SetCu|rrentGra|
|000149b0| 70 68 2c 20 47 65 74 4e | 65 78 74 47 72 61 70 68 |ph, GetN|extGraph|
|000149c0| 2c 20 47 65 74 43 75 72 | 72 65 6e 74 47 72 61 70 |, GetCur|rentGrap|
|000149d0| 68 7d 0d 7b 09 32 33 30 | 2d 32 33 31 3a 09 47 65 |h}.{.230|-231:.Ge|
|000149e0| 74 47 72 61 70 68 46 72 | 61 6d 65 2c 20 53 65 74 |tGraphFr|ame, Set|
|000149f0| 47 72 61 70 68 46 72 61 | 6d 65 7d 0d 7b 09 32 33 |GraphFra|me}.{.23|
|00014a00| 32 2d 32 34 35 3a 09 47 | 65 74 43 75 72 72 65 6e |2-245:.G|etCurren|
|00014a10| 74 41 78 69 73 2c 53 65 | 74 43 75 72 72 65 6e 74 |tAxis,Se|tCurrent|
|00014a20| 41 78 69 73 2c 44 65 6c | 65 74 65 41 78 69 73 2c |Axis,Del|eteAxis,|
|00014a30| 4d 61 6b 65 4e 65 77 41 | 78 69 73 2c 53 65 74 52 |MakeNewA|xis,SetR|
|00014a40| 61 6e 67 65 2c 4d 61 6b | 65 54 69 63 6b 73 7d 0d |ange,Mak|eTicks}.|
|00014a50| 7b 09 20 09 09 09 53 65 | 74 4c 61 62 65 6c 73 46 |{. ...Se|tLabelsF|
|00014a60| 6f 72 6d 61 74 2c 43 6c | 65 61 72 54 69 63 6b 73 |ormat,Cl|earTicks|
|00014a70| 2c 43 6c 65 61 72 4c 61 | 62 65 6c 73 2c 41 64 64 |,ClearLa|bels,Add|
|00014a80| 54 69 63 6b 2c 53 65 74 | 4c 61 62 65 6c 2c 53 65 |Tick,Set|Label,Se|
|00014a90| 74 4c 61 62 65 6c 54 65 | 78 74 7d 0d 7b 09 20 09 |tLabelTe|xt}.{. .|
|00014aa0| 09 09 53 65 74 41 78 69 | 73 50 6f 73 69 74 69 6f |..SetAxi|sPositio|
|00014ab0| 6e 2c 53 65 74 41 78 69 | 73 41 74 74 72 69 62 75 |n,SetAxi|sAttribu|
|00014ac0| 74 65 73 7d 0d 7b 09 32 | 34 36 3a 09 09 53 65 74 |tes}.{.2|46:..Set|
|00014ad0| 47 72 61 70 68 41 74 74 | 72 69 62 75 74 65 73 7d |GraphAtt|ributes}|
|00014ae0| 0d 7b 09 32 34 37 3a 09 | 09 44 72 61 77 50 49 43 |.{.247:.|.DrawPIC|
|00014af0| 54 7d 0d 7b 09 32 34 38 | 2d 32 34 39 3a 09 53 65 |T}.{.248|-249:.Se|
|00014b00| 74 43 75 72 76 65 46 69 | 6c 6c 2c 20 53 65 74 45 |tCurveFi|ll, SetE|
|00014b10| 42 61 72 53 74 79 6c 65 | 7d 0d 7b 09 32 35 30 09 |BarStyle|}.{.250.|
|00014b20| 09 41 64 64 44 61 74 61 | 50 6f 69 6e 74 09 09 09 |.AddData|Point...|
|00014b30| 7d 0d 0d 09 09 09 09 63 | 61 73 65 20 69 6e 74 65 |}......c|ase inte|
|00014b40| 67 65 72 20 6f 66 0d 09 | 09 09 09 09 30 3a 20 28 |ger of..|....0: (|
|00014b50| 0d 09 09 09 09 09 09 09 | 70 3a 20 61 72 72 61 79 |........|p: array|
|00014b60| 5b 30 2e 2e 37 5d 20 6f | 66 20 50 74 72 3b 09 7b |[0..7] o|f Ptr;.{|
|00014b70| 20 70 6f 69 6e 74 65 72 | 73 20 74 6f 20 72 6f 75 | pointer|s to rou|
|00014b80| 74 69 6e 65 20 70 61 72 | 61 6d 65 74 65 72 73 20 |tine par|ameters |
|00014b90| 75 73 65 64 20 62 79 20 | 76 65 72 73 69 6f 6e 20 |used by |version |
|00014ba0| 35 2e 30 20 61 6e 64 20 | 6c 61 74 65 72 20 7d 0d |5.0 and |later }.|
|00014bb0| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 20 54 68 |........|....{ Th|
|00014bc0| 65 20 74 79 70 65 20 6f | 66 20 74 68 65 20 70 61 |e type o|f the pa|
|00014bd0| 72 61 6d 65 74 65 72 73 | 20 69 73 20 73 70 65 63 |rameters| is spec|
|00014be0| 69 66 69 65 64 20 69 6e | 20 74 68 65 20 69 6d 70 |ified in| the imp|
|00014bf0| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 20 7d 0d 09 09 |lementat|ion }...|
|00014c00| 09 09 09 09 09 09 09 09 | 09 09 7b 20 6f 66 20 74 |........|..{ of t|
|00014c10| 68 65 20 72 6f 75 74 69 | 6e 65 73 20 69 6e 20 70 |he routi|nes in p|
|00014c20| 72 6f 46 69 74 5f 69 6e | 74 65 72 66 61 63 65 32 |roFit_in|terface2|
|00014c30| 2e 70 09 09 09 09 09 09 | 7d 0d 09 09 09 09 09 29 |.p......|}......)|
|00014c40| 3b 0d 09 09 09 09 09 32 | 2c 20 33 3a 20 28 0d 09 |;......2|, 3: (..|
|00014c50| 09 09 09 09 09 09 79 2c | 20 78 3a 20 65 78 74 65 |......y,| x: exte|
|00014c60| 6e 64 65 64 3b 0d 09 09 | 09 09 09 29 3b 09 7b 20 |nded;...|...);.{ |
|00014c70| 6c 69 6e 65 74 6f 2c 20 | 6d 6f 76 65 74 6f 20 7d |lineto, |moveto }|
|00014c80| 0d 09 09 09 09 09 34 3a | 20 28 0d 09 09 09 09 09 |......4:| (......|
|00014c90| 09 09 79 6d 61 78 2c 20 | 79 6d 69 6e 2c 20 78 6d |..ymax, |ymin, xm|
|00014ca0| 61 78 2c 20 78 6d 69 6e | 3a 20 5e 65 78 74 65 6e |ax, xmin|: ^exten|
|00014cb0| 64 65 64 3b 0d 09 09 09 | 09 09 29 3b 09 7b 20 47 |ded;....|..);.{ G|
|00014cc0| 65 74 47 72 61 70 68 43 | 6f 6f 72 64 69 6e 61 74 |etGraphC|oordinat|
|00014cd0| 65 73 20 7d 0d 09 09 09 | 09 09 35 3a 20 28 0d 09 |es }....|..5: (..|
|00014ce0| 09 09 09 09 09 09 78 6d | 69 6e 35 2c 20 78 6d 61 |......xm|in5, xma|
|00014cf0| 78 35 2c 20 79 6d 69 6e | 35 2c 20 79 6d 61 78 35 |x5, ymin|5, ymax5|
|00014d00| 3a 20 65 78 74 65 6e 64 | 65 64 3b 0d 09 09 09 09 |: extend|ed;.....|
|00014d10| 09 09 09 78 53 63 61 6c | 69 6e 67 2c 20 79 53 63 |...xScal|ing, ySc|
|00014d20| 61 6c 69 6e 67 3a 20 69 | 6e 74 65 67 65 72 3b 0d |aling: i|nteger;.|
|00014d30| 09 09 09 09 09 29 3b 09 | 7b 20 63 72 65 61 74 65 |.....);.|{ create|
|00014d40| 4e 65 77 47 72 61 66 20 | 7d 0d 09 09 09 09 09 31 |NewGraf |}......1|
|00014d50| 31 2c 20 32 30 2c 20 32 | 31 2c 20 32 32 2c 20 32 |1, 20, 2|1, 22, 2|
|00014d60| 33 2c 20 31 32 30 3a 20 | 28 0d 09 09 09 09 09 09 |3, 120: |(.......|
|00014d70| 09 72 65 74 76 61 6c 31 | 31 3a 20 65 78 74 65 6e |.retval1|1: exten|
|00014d80| 64 65 64 3b 0d 09 09 09 | 09 09 29 3b 09 7b 20 72 |ded;....|..);.{ r|
|00014d90| 61 6e 64 6f 6d 2c 20 78 | 45 72 72 43 6f 6c 75 6d |andom, x|ErrColum|
|00014da0| 6e 2c 79 43 6f 6c 75 6d | 6e 2c 78 45 72 72 43 6f |n,yColum|n,xErrCo|
|00014db0| 6c 75 6d 6e 2c 79 45 72 | 72 43 6f 6c 75 6d 6e 2c |lumn,yEr|rColumn,|
|00014dc0| 43 68 69 53 71 75 61 72 | 65 64 20 7d 0d 09 09 09 |ChiSquar|ed }....|
|00014dd0| 09 09 31 32 3a 20 28 0d | 09 09 09 09 09 09 09 72 |..12: (.|.......r|
|00014de0| 65 74 76 61 6c 31 32 3a | 20 62 6f 6f 6c 65 61 6e |etval12:| boolean|
|00014df0| 3b 0d 09 09 09 09 09 29 | 3b 09 7b 20 65 78 65 63 |;......)|;.{ exec|
|00014e00| 75 74 69 6f 6e 73 74 6f | 70 70 65 64 20 7d 0d 09 |utionsto|pped }..|
|00014e10| 09 09 09 09 31 33 2c 20 | 31 34 3a 20 28 0d 09 09 |....13, |14: (...|
|00014e20| 09 09 09 09 09 74 68 65 | 4d 65 73 73 61 67 65 3a |.....the|Message:|
|00014e30| 20 53 74 72 69 6e 67 50 | 74 72 3b 0d 09 09 09 09 | StringP|tr;.....|
|00014e40| 09 29 3b 09 7b 20 77 72 | 69 74 65 2f 77 72 69 74 |.);.{ wr|ite/writ|
|00014e50| 65 6c 6e 20 7d 0d 09 09 | 09 09 09 31 35 3a 20 28 |eln }...|...15: (|
|00014e60| 0d 09 09 09 09 09 09 09 | 65 78 74 56 61 6c 3a 20 |........|extVal: |
|00014e70| 65 78 74 65 6e 64 65 64 | 3b 0d 09 09 09 09 09 29 |extended|;......)|
|00014e80| 3b 7b 20 57 72 69 74 65 | 4e 75 6d 62 65 72 20 7d |;{ Write|Number }|
|00014e90| 0d 09 09 09 09 09 31 36 | 3a 20 28 0d 09 09 09 09 |......16|: (.....|
|00014ea0| 09 09 09 74 68 65 4d 65 | 73 73 61 67 65 31 36 3a |...theMe|ssage16:|
|00014eb0| 20 53 74 72 69 6e 67 50 | 74 72 3b 0d 09 09 09 09 | StringP|tr;.....|
|00014ec0| 09 09 09 72 65 74 76 61 | 6c 31 36 3a 20 62 6f 6f |...retva|l16: boo|
|00014ed0| 6c 65 61 6e 3b 0d 09 09 | 09 09 09 29 3b 09 7b 20 |lean;...|...);.{ |
|00014ee0| 61 6c 65 72 74 20 7d 0d | 09 09 09 09 09 31 37 3a |alert }.|.....17:|
|00014ef0| 20 28 0d 09 09 09 09 09 | 09 09 72 3a 20 5e 49 6e | (......|..r: ^In|
|00014f00| 70 75 74 52 65 63 3b 0d | 09 09 09 09 09 09 09 6e |putRec;.|.......n|
|00014f10| 72 61 72 67 73 3a 20 69 | 6e 74 65 67 65 72 3b 0d |rargs: i|nteger;.|
|00014f20| 09 09 09 09 09 09 09 72 | 65 74 76 61 6c 31 37 3a |.......r|etval17:|
|00014f30| 20 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 09 09 09 29 | boolean|;......)|
|00014f40| 3b 09 7b 20 4d 79 49 6e | 70 75 74 20 7d 0d 09 09 |;.{ MyIn|put }...|
|00014f50| 09 09 09 31 38 3a 20 28 | 0d 09 09 09 09 09 09 09 |...18: (|........|
|00014f60| 71 75 65 73 74 69 6f 6e | 3a 20 53 74 72 69 6e 67 |question|: String|
|00014f70| 50 74 72 3b 0d 09 09 09 | 09 09 09 09 61 6e 73 77 |Ptr;....|....answ|
|00014f80| 65 72 3a 20 5e 69 6e 74 | 65 67 65 72 3b 0d 09 09 |er: ^int|eger;...|
|00014f90| 09 09 09 09 09 72 65 74 | 76 61 6c 31 38 3a 20 62 |.....ret|val18: b|
|00014fa0| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 09 09 29 3b 09 |oolean;.|.....);.|
|00014fb0| 7b 20 61 73 6b 20 7d 0d | 09 09 09 09 09 31 39 3a |{ ask }.|.....19:|
|00014fc0| 20 28 0d 09 09 09 09 09 | 09 09 6e 61 6d 65 3a 20 | (......|..name: |
|00014fd0| 53 74 72 69 6e 67 50 74 | 72 3b 0d 09 09 09 09 09 |StringPt|r;......|
|00014fe0| 09 09 63 6f 6c 75 6d 6e | 31 39 3a 20 6c 6f 6e 67 |..column|19: long|
|00014ff0| 69 6e 74 3b 0d 09 09 09 | 09 09 29 3b 09 7b 20 53 |int;....|..);.{ S|
|00015000| 65 74 43 6f 6c 75 6d 6e | 4e 61 6d 65 20 7d 0d 09 |etColumn|Name }..|
|00015010| 09 09 09 09 32 34 3a 20 | 28 0d 09 09 09 09 09 09 |....24: |(.......|
|00015020| 09 73 65 6c 65 63 74 69 | 6f 6e 52 65 63 74 3a 20 |.selecti|onRect: |
|00015030| 52 65 63 74 3b 0d 09 09 | 09 09 09 29 3b 09 7b 20 |Rect;...|...);.{ |
|00015040| 47 65 74 53 65 6c 65 63 | 74 69 6f 6e 20 7d 0d 09 |GetSelec|tion }..|
|00015050| 09 09 09 09 32 35 2c 20 | 32 36 3a 20 28 0d 09 09 |....25, |26: (...|
|00015060| 09 09 09 09 09 63 6f 6c | 75 6d 6e 32 35 2c 20 72 |.....col|umn25, r|
|00015070| 6f 77 32 35 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |ow25: lo|ngint;..|
|00015080| 09 09 09 09 09 09 63 65 | 6c 6c 56 61 6c 75 65 3a |......ce|llValue:|
|00015090| 20 65 78 74 65 6e 64 65 | 64 3b 0d 09 09 09 09 09 | extende|d;......|
|000150a0| 29 3b 09 7b 20 47 65 74 | 44 61 74 61 2f 53 65 74 |);.{ Get|Data/Set|
|000150b0| 44 61 74 61 20 7d 0d 09 | 09 09 09 09 32 37 3a 20 |Data }..|....27: |
|000150c0| 28 0d 09 09 09 09 09 09 | 09 63 6f 6c 75 6d 6e 32 |(.......|.column2|
|000150d0| 37 2c 20 72 6f 77 32 37 | 3a 20 6c 6f 6e 67 69 6e |7, row27|: longin|
|000150e0| 74 3b 0d 09 09 09 09 09 | 29 3b 09 7b 20 43 6c 65 |t;......|);.{ Cle|
|000150f0| 61 72 44 61 74 61 20 7d | 0d 09 09 09 09 09 32 38 |arData }|......28|
|00015100| 3a 20 28 0d 09 09 09 09 | 09 09 09 63 6f 6c 75 6d |: (.....|...colum|
|00015110| 6e 32 38 2c 20 72 6f 77 | 32 38 3a 20 6c 6f 6e 67 |n28, row|28: long|
|00015120| 69 6e 74 3b 0d 09 09 09 | 09 09 09 09 72 65 74 76 |int;....|....retv|
|00015130| 61 6c 32 38 3a 20 62 6f | 6f 6c 65 61 6e 3b 0d 09 |al28: bo|olean;..|
|00015140| 09 09 09 09 29 3b 09 7b | 20 54 65 73 74 44 61 74 |....);.{| TestDat|
|00015150| 61 20 7d 0d 09 09 09 09 | 09 32 39 3a 20 28 0d 09 |a }.....|.29: (..|
|00015160| 09 09 09 09 09 09 61 4e | 75 6d 3a 20 65 78 74 65 |......aN|um: exte|
|00015170| 6e 64 65 64 3b 0d 09 09 | 09 09 09 09 09 72 65 74 |nded;...|.....ret|
|00015180| 76 61 6c 32 39 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |val29: b|oolean;.|
|00015190| 09 09 09 09 09 29 3b 09 | 7b 20 4e 75 6d 62 65 72 |.....);.|{ Number|
|000151a0| 49 6e 76 61 6c 69 64 20 | 7d 0d 09 09 09 09 09 33 |Invalid |}......3|
|000151b0| 30 3a 20 28 0d 09 09 09 | 09 09 09 09 61 68 69 67 |0: (....|....ahig|
|000151c0| 68 2c 20 61 6c 6f 77 3a | 20 65 78 74 65 6e 64 65 |h, alow:| extende|
|000151d0| 64 3b 0d 09 09 09 09 09 | 09 09 70 61 72 61 6d 49 |d;......|..paramI|
|000151e0| 6e 64 65 78 33 30 3a 20 | 69 6e 74 65 67 65 72 3b |ndex30: |integer;|
|000151f0| 0d 09 09 09 09 09 29 3b | 09 7b 20 53 65 74 50 61 |......);|.{ SetPa|
|00015200| 72 61 6d 4c 69 6d 69 74 | 73 20 7d 0d 09 09 09 09 |ramLimit|s }.....|
|00015210| 09 33 31 3a 20 28 0d 09 | 09 09 09 09 09 09 61 76 |.31: (..|......av|
|00015220| 61 6c 3a 20 65 78 74 65 | 6e 64 65 64 3b 0d 09 09 |al: exte|nded;...|
|00015230| 09 09 09 09 09 70 61 72 | 61 6d 49 6e 64 65 78 33 |.....par|amIndex3|
|00015240| 31 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |1: integ|er;.....|
|00015250| 09 29 3b 09 7b 20 53 65 | 74 50 61 72 61 6d 44 65 |.);.{ Se|tParamDe|
|00015260| 66 61 75 6c 74 56 61 6c | 75 65 20 7d 0d 09 09 09 |faultVal|ue }....|
|00015270| 09 09 33 32 3a 20 28 0d | 09 09 09 09 09 09 09 61 |..32: (.|.......a|
|00015280| 4e 61 6d 65 33 32 3a 20 | 53 74 72 69 6e 67 50 74 |Name32: |StringPt|
|00015290| 72 3b 0d 09 09 09 09 09 | 09 09 70 61 72 61 6d 49 |r;......|..paramI|
|000152a0| 6e 64 65 78 33 32 3a 20 | 69 6e 74 65 67 65 72 3b |ndex32: |integer;|
|000152b0| 0d 09 09 09 09 09 29 3b | 09 7b 20 53 65 74 50 61 |......);|.{ SetPa|
|000152c0| 72 61 6d 4e 61 6d 65 20 | 7d 0d 09 09 09 09 09 33 |ramName |}......3|
|000152d0| 33 3a 20 28 0d 09 09 09 | 09 09 09 09 61 68 69 67 |3: (....|....ahig|
|000152e0| 68 33 33 2c 20 61 6c 6f | 77 33 33 3a 20 65 78 74 |h33, alo|w33: ext|
|000152f0| 65 6e 64 65 64 3b 0d 09 | 09 09 09 09 09 09 61 4e |ended;..|......aN|
|00015300| 61 6d 65 33 33 3a 20 53 | 74 72 69 6e 67 50 74 72 |ame33: S|tringPtr|
|00015310| 3b 0d 09 09 09 09 09 09 | 09 61 6d 6f 64 65 33 33 |;.......|.amode33|
|00015320| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 09 |: intege|r;......|
|00015330| 09 09 61 76 61 6c 33 33 | 3a 20 65 78 74 65 6e 64 |..aval33|: extend|
|00015340| 65 64 3b 0d 09 09 09 09 | 09 09 09 70 61 72 61 6d |ed;.....|...param|
|00015350| 49 6e 64 65 78 33 33 3a | 20 69 6e 74 65 67 65 72 |Index33:| integer|
|00015360| 3b 0d 09 09 09 09 09 29 | 3b 09 7b 20 53 65 74 50 |;......)|;.{ SetP|
|00015370| 61 72 61 6d 44 65 66 61 | 75 6c 74 73 20 7d 0d 09 |aramDefa|ults }..|
|00015380| 09 09 09 09 31 30 30 3a | 20 28 0d 09 09 09 09 09 |....100:| (......|
|00015390| 09 09 78 76 61 6c 3a 20 | 65 78 74 65 6e 64 65 64 |..xval: |extended|
|000153a0| 3b 0d 09 09 09 09 09 09 | 09 66 75 6e 63 4e 61 6d |;.......|.funcNam|
|000153b0| 65 31 30 30 3a 20 53 74 | 72 69 6e 67 50 74 72 3b |e100: St|ringPtr;|
|000153c0| 0d 09 09 09 09 09 09 09 | 72 65 74 76 61 6c 31 30 |........|retval10|
|000153d0| 30 3a 20 65 78 74 65 6e | 64 65 64 3b 0d 09 09 09 |0: exten|ded;....|
|000153e0| 09 09 29 3b 09 7b 20 63 | 61 6c 6c 66 75 6e 63 74 |..);.{ c|allfunct|
|000153f0| 69 6f 6e 20 7d 0d 09 09 | 09 09 09 31 30 31 2c 20 |ion }...|...101, |
|00015400| 31 30 34 3a 20 28 0d 09 | 09 09 09 09 09 09 70 61 |104: (..|......pa|
|00015410| 72 61 6d 49 6e 64 65 78 | 31 30 31 3a 20 69 6e 74 |ramIndex|101: int|
|00015420| 65 67 65 72 3b 0d 09 09 | 09 09 09 09 09 66 75 6e |eger;...|.....fun|
|00015430| 63 4e 61 6d 65 31 30 31 | 3a 20 53 74 72 69 6e 67 |cName101|: String|
|00015440| 50 74 72 3b 0d 09 09 09 | 09 09 09 09 72 65 74 76 |Ptr;....|....retv|
|00015450| 61 6c 31 30 31 3a 20 65 | 78 74 65 6e 64 65 64 3b |al101: e|xtended;|
|00015460| 0d 09 09 09 09 09 29 3b | 09 7b 20 67 65 74 66 75 |......);|.{ getfu|
|00015470| 6e 63 74 69 6f 6e 70 61 | 72 61 6d 2c 20 67 65 74 |nctionpa|ram, get|
|00015480| 66 75 6e 63 74 69 6f 6e | 70 61 72 61 6d 6d 6f 64 |function|parammod|
|00015490| 65 20 7d 0d 09 09 09 09 | 09 31 30 32 3a 20 28 0d |e }.....|.102: (.|
|000154a0| 09 09 09 09 09 09 09 70 | 56 61 6c 3a 20 65 78 74 |.......p|Val: ext|
|000154b0| 65 6e 64 65 64 3b 0d 09 | 09 09 09 09 09 09 70 61 |ended;..|......pa|
|000154c0| 72 61 6d 49 6e 64 65 78 | 31 30 32 3a 20 69 6e 74 |ramIndex|102: int|
|000154d0| 65 67 65 72 3b 0d 09 09 | 09 09 09 09 09 66 75 6e |eger;...|.....fun|
|000154e0| 63 4e 61 6d 65 31 30 32 | 3a 20 53 74 72 69 6e 67 |cName102|: String|
|000154f0| 50 74 72 3b 0d 09 09 09 | 09 09 29 3b 09 7b 20 73 |Ptr;....|..);.{ s|
|00015500| 65 74 66 75 6e 63 74 69 | 6f 6e 70 61 72 61 6d 65 |etfuncti|onparame|
|00015510| 6e 64 3b 7d 0d 09 09 09 | 09 09 31 30 33 3a 20 28 |nd;}....|..103: (|
|00015520| 0d 09 09 09 09 09 09 09 | 70 72 6f 67 4e 61 6d 65 |........|progName|
|00015530| 3a 20 53 74 72 69 6e 67 | 50 74 72 3b 0d 09 09 09 |: String|Ptr;....|
|00015540| 09 09 29 3b 09 7b 20 63 | 61 6c 6c 50 72 6f 67 72 |..);.{ c|allProgr|
|00015550| 61 6d 20 7d 0d 09 09 09 | 09 09 31 30 35 3a 20 28 |am }....|..105: (|
|00015560| 0d 09 09 09 09 09 09 09 | 66 75 6e 63 4e 61 6d 65 |........|funcName|
|00015570| 31 30 35 3a 20 53 74 72 | 69 6e 67 50 74 72 3b 0d |105: Str|ingPtr;.|
|00015580| 09 09 09 09 09 09 09 72 | 65 74 76 61 6c 31 30 35 |.......r|etval105|
|00015590| 3a 20 65 78 74 65 6e 64 | 65 64 3b 0d 09 09 09 09 |: extend|ed;.....|
|000155a0| 09 29 3b 09 7b 20 67 65 | 74 66 75 6e 63 74 69 6f |.);.{ ge|tfunctio|
|000155b0| 6e 70 61 72 61 6d 6e 75 | 6d 20 7d 0d 09 09 09 09 |nparamnu|m }.....|
|000155c0| 09 31 31 30 3a 20 28 0d | 09 09 09 09 09 09 09 6e |.110: (.|.......n|
|000155d0| 75 6d 49 74 65 72 61 74 | 69 6f 6e 73 3a 20 69 6e |umIterat|ions: in|
|000155e0| 74 65 67 65 72 3b 0d 09 | 09 09 09 09 09 09 6d 61 |teger;..|......ma|
|000155f0| 78 2c 20 6d 69 6e 3a 20 | 65 78 74 65 6e 64 65 64 |x, min: |extended|
|00015600| 3b 0d 09 09 09 09 09 09 | 09 66 75 6e 63 4e 61 6d |;.......|.funcNam|
|00015610| 65 31 31 30 3a 20 53 74 | 72 69 6e 67 50 74 72 3b |e110: St|ringPtr;|
|00015620| 0d 09 09 09 09 09 09 09 | 72 65 74 76 61 6c 31 31 |........|retval11|
|00015630| 30 3a 20 65 78 74 65 6e | 64 65 64 3b 0d 09 09 09 |0: exten|ded;....|
|00015640| 09 09 29 3b 09 7b 20 44 | 6f 49 6e 74 65 67 72 61 |..);.{ D|oIntegra|
|00015650| 74 65 20 7d 0d 09 09 09 | 09 09 31 31 31 2c 20 31 |te }....|..111, 1|
|00015660| 31 32 2c 20 31 31 33 2c | 20 31 31 34 3a 20 28 0d |12, 113,| 114: (.|
|00015670| 09 09 09 09 09 09 09 6d | 61 78 31 31 31 2c 20 6d |.......m|ax111, m|
|00015680| 69 6e 31 31 31 3a 20 65 | 78 74 65 6e 64 65 64 3b |in111: e|xtended;|
|00015690| 0d 09 09 09 09 09 09 09 | 66 75 6e 63 4e 61 6d 65 |........|funcName|
|000156a0| 31 31 31 3a 20 53 74 72 | 69 6e 67 50 74 72 3b 0d |111: Str|ingPtr;.|
|000156b0| 09 09 09 09 09 09 09 72 | 65 74 76 61 6c 31 31 31 |.......r|etval111|
|000156c0| 3a 20 65 78 74 65 6e 64 | 65 64 3b 0d 09 09 09 09 |: extend|ed;.....|
|000156d0| 09 29 3b 09 7b 20 66 69 | 6e 64 4d 61 78 69 6d 75 |.);.{ fi|ndMaximu|
|000156e0| 6d 2c 20 66 69 6e 64 4d | 69 6e 69 6d 75 6d 2c 20 |m, findM|inimum, |
|000156f0| 66 69 6e 64 52 6f 6f 74 | 2c 64 65 72 69 76 61 74 |findRoot|,derivat|
|00015700| 69 76 65 20 7d 0d 09 09 | 09 09 09 31 31 35 3a 20 |ive }...|...115: |
|00015710| 28 0d 09 09 09 09 09 09 | 09 78 43 6f 6c 2c 20 79 |(.......|.xCol, y|
|00015720| 43 6f 6c 2c 20 65 72 72 | 43 6f 6c 3a 20 6c 6f 6e |Col, err|Col: lon|
|00015730| 67 69 6e 74 3b 0d 09 09 | 09 09 09 09 09 65 72 72 |gint;...|.....err|
|00015740| 56 61 6c 3a 20 65 78 74 | 65 6e 64 65 64 3b 0d 09 |Val: ext|ended;..|
|00015750| 09 09 09 09 09 09 73 65 | 6c 65 63 74 69 6f 6e 4f |......se|lectionO|
|00015760| 6e 6c 79 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 09 09 |nly: lon|gint;...|
|00015770| 09 09 09 09 09 66 75 6e | 63 4e 61 6d 65 31 31 35 |.....fun|cName115|
|00015780| 3a 20 53 74 72 69 6e 67 | 50 74 72 3b 0d 09 09 09 |: String|Ptr;....|
|00015790| 09 09 29 3b 09 7b 20 46 | 69 74 20 7d 0d 09 09 09 |..);.{ F|it }....|
|000157a0| 09 09 31 32 31 3a 20 28 | 0d 09 09 09 09 09 09 09 |..121: (|........|
|000157b0| 6e 75 6d 46 69 74 50 61 | 72 61 6d 73 3a 20 69 6e |numFitPa|rams: in|
|000157c0| 74 65 67 65 72 3b 0d 09 | 09 09 09 09 29 3b 09 7b |teger;..|....);.{|
|000157d0| 20 6e 75 6d 46 69 74 50 | 61 72 61 6d 73 20 7d 0d | numFitP|arams }.|
|000157e0| 09 09 09 09 09 31 32 32 | 2c 20 31 32 33 3a 20 28 |.....122|, 123: (|
|000157f0| 0d 09 09 09 09 09 09 09 | 70 61 72 61 6d 49 6e 64 |........|paramInd|
|00015800| 65 78 31 32 32 3a 20 69 | 6e 74 65 67 65 72 3b 0d |ex122: i|nteger;.|
|00015810| 09 09 09 09 09 09 09 72 | 65 74 76 61 6c 31 32 32 |.......r|etval122|
|00015820| 3a 20 65 78 74 65 6e 64 | 65 64 3b 0d 09 09 09 09 |: extend|ed;.....|
|00015830| 09 29 3b 09 7b 20 66 69 | 74 74 65 64 50 61 72 61 |.);.{ fi|ttedPara|
|00015840| 6d 73 2c 20 70 61 72 61 | 6d 53 44 20 7d 0d 09 09 |ms, para|mSD }...|
|00015850| 09 09 09 31 32 34 3a 20 | 28 0d 09 09 09 09 09 09 |...124: |(.......|
|00015860| 09 70 61 72 61 6d 49 6e | 64 65 78 31 2c 20 70 61 |.paramIn|dex1, pa|
|00015870| 72 61 6d 49 6e 64 65 78 | 32 3a 20 69 6e 74 65 67 |ramIndex|2: integ|
|00015880| 65 72 3b 0d 09 09 09 09 | 09 09 09 72 65 74 76 61 |er;.....|...retva|
|00015890| 6c 31 32 34 3a 20 65 78 | 74 65 6e 64 65 64 3b 0d |l124: ex|tended;.|
|000158a0| 09 09 09 09 09 29 3b 09 | 7b 20 43 6f 76 61 72 4d |.....);.|{ CovarM|
|000158b0| 61 74 72 69 78 20 7d 0d | 0d 0d 09 09 09 65 6e 64 |atrix }.|.....end|
|000158c0| 3b 0d 0d 7b 24 41 4c 49 | 47 4e 20 52 45 53 45 54 |;..{$ALI|GN RESET|
|000158d0| 7d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |}....pro|cedure G|
|000158e0| 72 4d 6f 76 65 74 6f 20 | 28 78 2c 20 79 3a 20 65 |rMoveto |(x, y: e|
|000158f0| 78 74 65 6e 64 65 64 29 | 3b 0d 09 09 76 61 72 0d |xtended)|;...var.|
|00015900| 09 09 09 70 62 3a 20 72 | 75 6e 54 69 6d 65 50 61 |...pb: r|unTimePa|
|00015910| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|00015920| 09 70 62 2e 78 20 3a 3d | 20 78 3b 0d 09 09 70 62 |.pb.x :=| x;...pb|
|00015930| 2e 79 20 3a 3d 20 79 3b | 0d 09 09 70 62 2e 77 68 |.y := y;|...pb.wh|
|00015940| 61 74 20 3a 3d 20 32 3b | 0d 09 09 43 61 6c 6c 52 |at := 2;|...CallR|
|00015950| 75 6e 74 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |untimePr|oc(@pb);|
|00015960| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|00015970| 72 65 20 47 72 4c 69 6e | 65 74 6f 20 28 78 2c 20 |re GrLin|eto (x, |
|00015980| 79 3a 20 65 78 74 65 6e | 64 65 64 29 3b 0d 09 09 |y: exten|ded);...|
|00015990| 76 61 72 0d 09 09 09 70 | 62 3a 20 72 75 6e 54 69 |var....p|b: runTi|
|000159a0| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|000159b0| 69 6e 0d 09 09 70 62 2e | 78 20 3a 3d 20 78 3b 0d |in...pb.|x := x;.|
|000159c0| 09 09 70 62 2e 79 20 3a | 3d 20 79 3b 0d 09 09 70 |..pb.y :|= y;...p|
|000159d0| 62 2e 77 68 61 74 20 3a | 3d 20 33 3b 0d 09 09 43 |b.what :|= 3;...C|
|000159e0| 61 6c 6c 52 75 6e 74 69 | 6d 65 50 72 6f 63 28 40 |allRunti|meProc(@|
|000159f0| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |pb);..en|d;...pro|
|00015a00| 63 65 64 75 72 65 20 47 | 72 4d 6f 76 65 20 28 78 |cedure G|rMove (x|
|00015a10| 2c 20 79 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |, y: ext|ended);.|
|00015a20| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|00015a30| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00015a40| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00015a50| 3d 20 32 32 31 3b 0d 09 | 09 70 62 2e 70 5b 31 5d |= 221;..|.pb.p[1]|
|00015a60| 20 3a 3d 20 40 78 3b 0d | 09 09 70 62 2e 70 5b 30 | := @x;.|..pb.p[0|
|00015a70| 5d 20 3a 3d 20 40 79 3b | 0d 09 09 43 61 6c 6c 52 |] := @y;|...CallR|
|00015a80| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|00015a90| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|00015aa0| 72 65 20 47 72 4c 69 6e | 65 20 28 78 2c 20 79 3a |re GrLin|e (x, y:|
|00015ab0| 20 65 78 74 65 6e 64 65 | 64 29 3b 0d 09 09 76 61 | extende|d);...va|
|00015ac0| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|00015ad0| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|00015ae0| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 32 32 |...pb.wh|at := 22|
|00015af0| 32 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |2;...pb.|p[1] := |
|00015b00| 40 78 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |@x;...pb|.p[0] :=|
|00015b10| 20 40 79 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 | @y;...C|allRunTi|
|00015b20| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|00015b30| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |d;...pro|cedure G|
|00015b40| 65 74 47 72 61 70 68 43 | 6f 6f 72 64 69 6e 61 74 |etGraphC|oordinat|
|00015b50| 65 73 20 28 76 61 72 20 | 78 6d 69 6e 2c 20 78 6d |es (var |xmin, xm|
|00015b60| 61 78 2c 20 79 6d 69 6e | 2c 20 79 6d 61 78 3a 20 |ax, ymin|, ymax: |
|00015b70| 65 78 74 65 6e 64 65 64 | 29 3b 0d 09 09 76 61 72 |extended|);...var|
|00015b80| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|00015b90| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|00015ba0| 09 09 70 62 2e 78 6d 69 | 6e 20 3a 3d 20 40 78 6d |..pb.xmi|n := @xm|
|00015bb0| 69 6e 3b 0d 09 09 70 62 | 2e 78 6d 61 78 20 3a 3d |in;...pb|.xmax :=|
|00015bc0| 20 40 78 6d 61 78 3b 0d | 09 09 70 62 2e 79 6d 69 | @xmax;.|..pb.ymi|
|00015bd0| 6e 20 3a 3d 20 40 79 6d | 69 6e 3b 0d 09 09 70 62 |n := @ym|in;...pb|
|00015be0| 2e 79 6d 61 78 20 3a 3d | 20 40 79 6d 61 78 3b 0d |.ymax :=| @ymax;.|
|00015bf0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 34 3b 0d |..pb.wha|t := 4;.|
|00015c00| 09 09 43 61 6c 6c 52 75 | 6e 74 69 6d 65 50 72 6f |..CallRu|ntimePro|
|00015c10| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|00015c20| 70 72 6f 63 65 64 75 72 | 65 20 43 72 65 61 74 65 |procedur|e Create|
|00015c30| 4e 65 77 47 72 61 66 20 | 28 78 6d 69 6e 2c 20 78 |NewGraf |(xmin, x|
|00015c40| 6d 61 78 2c 20 79 6d 69 | 6e 2c 20 79 6d 61 78 3a |max, ymi|n, ymax:|
|00015c50| 20 65 78 74 65 6e 64 65 | 64 3b 20 78 53 63 61 6c | extende|d; xScal|
|00015c60| 69 6e 67 2c 20 79 53 63 | 61 6c 69 6e 67 3a 20 69 |ing, ySc|aling: i|
|00015c70| 6e 74 65 67 65 72 29 3b | 0d 09 09 76 61 72 0d 09 |nteger);|...var..|
|00015c80| 09 09 70 62 3a 20 72 75 | 6e 54 69 6d 65 50 61 72 |..pb: ru|nTimePar|
|00015c90| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|00015ca0| 70 62 2e 77 68 61 74 20 | 3a 3d 20 35 3b 0d 09 09 |pb.what |:= 5;...|
|00015cb0| 70 62 2e 78 6d 69 6e 35 | 20 3a 3d 20 78 6d 69 6e |pb.xmin5| := xmin|
|00015cc0| 3b 0d 09 09 70 62 2e 78 | 6d 61 78 35 20 3a 3d 20 |;...pb.x|max5 := |
|00015cd0| 78 6d 61 78 3b 0d 09 09 | 70 62 2e 79 6d 69 6e 35 |xmax;...|pb.ymin5|
|00015ce0| 20 3a 3d 20 79 6d 69 6e | 3b 0d 09 09 70 62 2e 79 | := ymin|;...pb.y|
|00015cf0| 6d 61 78 35 20 3a 3d 20 | 79 6d 61 78 3b 0d 09 09 |max5 := |ymax;...|
|00015d00| 70 62 2e 78 53 63 61 6c | 69 6e 67 20 3a 3d 20 78 |pb.xScal|ing := x|
|00015d10| 53 63 61 6c 69 6e 67 3b | 0d 09 09 70 62 2e 79 53 |Scaling;|...pb.yS|
|00015d20| 63 61 6c 69 6e 67 20 3a | 3d 20 79 53 63 61 6c 69 |caling :|= yScali|
|00015d30| 6e 67 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |ng;...Ca|llRunTim|
|00015d40| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|00015d50| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 70 52 61 |;...func|tion pRa|
|00015d60| 6e 64 6f 6d 3a 20 65 78 | 74 65 6e 64 65 64 3b 0d |ndom: ex|tended;.|
|00015d70| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00015d80| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00015d90| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00015da0| 3d 20 31 31 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |= 11;...|CallRunt|
|00015db0| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 09 |imeProc(|@pb);...|
|00015dc0| 70 52 61 6e 64 6f 6d 20 | 3a 3d 20 70 62 2e 72 65 |pRandom |:= pb.re|
|00015dd0| 74 76 61 6c 31 31 3b 0d | 09 65 6e 64 3b 0d 0d 09 |tval11;.|.end;...|
|00015de0| 66 75 6e 63 74 69 6f 6e | 20 54 65 73 74 53 74 6f |function| TestSto|
|00015df0| 70 3a 20 62 6f 6f 6c 65 | 61 6e 3b 0d 09 09 76 61 |p: boole|an;...va|
|00015e00| 72 0d 09 09 09 70 62 3a | 20 72 75 6e 54 69 6d 65 |r....pb:| runTime|
|00015e10| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|00015e20| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 31 32 |...pb.wh|at := 12|
|00015e30| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 74 69 6d 65 50 |;...Call|RuntimeP|
|00015e40| 72 6f 63 28 40 70 62 29 | 3b 0d 09 09 54 65 73 74 |roc(@pb)|;...Test|
|00015e50| 53 74 6f 70 20 3a 3d 20 | 70 62 2e 72 65 74 76 61 |Stop := |pb.retva|
|00015e60| 6c 31 32 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |l12;..en|d;...pro|
|00015e70| 63 65 64 75 72 65 20 53 | 74 6f 70 45 78 65 63 75 |cedure S|topExecu|
|00015e80| 74 69 6f 6e 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |tion;...|var....p|
|00015e90| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|00015ea0| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|00015eb0| 77 68 61 74 20 3a 3d 20 | 34 30 3b 0d 09 09 43 61 |what := |40;...Ca|
|00015ec0| 6c 6c 52 75 6e 74 69 6d | 65 50 72 6f 63 28 40 70 |llRuntim|eProc(@p|
|00015ed0| 62 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |b);..end|;...func|
|00015ee0| 74 69 6f 6e 20 47 65 74 | 41 6e 64 53 65 74 53 74 |tion Get|AndSetSt|
|00015ef0| 61 74 75 73 28 6e 65 77 | 53 74 61 74 75 73 3a 69 |atus(new|Status:i|
|00015f00| 6e 74 65 67 65 72 3b 20 | 76 61 72 20 73 3a 20 53 |nteger; |var s: S|
|00015f10| 74 72 32 35 35 29 3a 69 | 6e 74 65 67 65 72 3b 0d |tr255):i|nteger;.|
|00015f20| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00015f30| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 09 |TimePara|mRec;...|
|00015f40| 09 72 65 74 76 61 6c 3a | 69 6e 74 65 67 65 72 3b |.retval:|integer;|
|00015f50| 0d 09 62 65 67 69 6e 0d | 09 09 70 62 2e 77 68 61 |..begin.|..pb.wha|
|00015f60| 74 20 3a 3d 20 31 39 39 | 3b 0d 09 09 70 62 2e 70 |t := 199|;...pb.p|
|00015f70| 5b 30 5d 20 3a 3d 20 40 | 73 5b 30 5d 3b 0d 09 09 |[0] := @|s[0];...|
|00015f80| 70 62 2e 70 5b 31 5d 20 | 3a 3d 20 40 6e 65 77 53 |pb.p[1] |:= @newS|
|00015f90| 74 61 74 75 73 3b 0d 09 | 09 70 62 2e 70 5b 32 5d |tatus;..|.pb.p[2]|
|00015fa0| 20 3a 3d 20 40 72 65 74 | 76 61 6c 3b 0d 09 09 43 | := @ret|val;...C|
|00015fb0| 61 6c 6c 52 75 6e 74 69 | 6d 65 50 72 6f 63 28 40 |allRunti|meProc(@|
|00015fc0| 70 62 29 3b 0d 09 09 47 | 65 74 41 6e 64 53 65 74 |pb);...G|etAndSet|
|00015fd0| 53 74 61 74 75 73 20 3a | 3d 20 72 65 74 76 61 6c |Status :|= retval|
|00015fe0| 3b 0d 09 65 6e 64 3b 0d | 0d 09 70 72 6f 63 65 64 |;..end;.|..proced|
|00015ff0| 75 72 65 20 57 72 69 74 | 65 53 74 72 69 6e 67 20 |ure Writ|eString |
|00016000| 28 73 3a 20 53 74 72 32 | 35 35 29 3b 0d 09 09 76 |(s: Str2|55);...v|
|00016010| 61 72 0d 09 09 09 70 62 | 3a 20 72 75 6e 54 69 6d |ar....pb|: runTim|
|00016020| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|00016030| 6e 0d 09 09 70 62 2e 74 | 68 65 4d 65 73 73 61 67 |n...pb.t|heMessag|
|00016040| 65 20 3a 3d 20 40 73 3b | 0d 09 09 70 62 2e 77 68 |e := @s;|...pb.wh|
|00016050| 61 74 20 3a 3d 20 31 33 | 3b 0d 09 09 43 61 6c 6c |at := 13|;...Call|
|00016060| 52 75 6e 74 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RuntimeP|roc(@pb)|
|00016070| 3b 0d 09 65 6e 64 3b 0d | 0d 0d 0d 09 70 72 6f 63 |;..end;.|....proc|
|00016080| 65 64 75 72 65 20 57 72 | 69 74 65 6c 6e 53 74 72 |edure Wr|itelnStr|
|00016090| 69 6e 67 20 28 73 3a 20 | 53 74 72 32 35 35 29 3b |ing (s: |Str255);|
|000160a0| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 72 75 |...var..|..pb: ru|
|000160b0| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|000160c0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 74 68 65 4d 65 |begin...|pb.theMe|
|000160d0| 73 73 61 67 65 20 3a 3d | 20 40 73 3b 0d 09 09 70 |ssage :=| @s;...p|
|000160e0| 62 2e 77 68 61 74 20 3a | 3d 20 31 34 3b 0d 09 09 |b.what :|= 14;...|
|000160f0| 43 61 6c 6c 52 75 6e 74 | 69 6d 65 50 72 6f 63 28 |CallRunt|imeProc(|
|00016100| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|00016110| 6f 63 65 64 75 72 65 20 | 57 72 69 74 65 54 65 78 |ocedure |WriteTex|
|00016120| 74 28 6c 65 6e 67 74 68 | 3a 20 6c 6f 6e 67 69 6e |t(length|: longin|
|00016130| 74 3b 20 74 68 65 54 65 | 78 74 3a 20 50 74 72 29 |t; theTe|xt: Ptr)|
|00016140| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|00016150| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00016160| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00016170| 20 3a 3d 20 31 38 38 3b | 0d 09 09 70 62 2e 70 5b | := 188;|...pb.p[|
|00016180| 31 5d 20 3a 3d 20 40 6c | 65 6e 67 74 68 3b 0d 09 |1] := @l|ength;..|
|00016190| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 74 68 65 54 |.pb.p[0]| := theT|
|000161a0| 65 78 74 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |ext;...C|allRunTi|
|000161b0| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|000161c0| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 57 |d;...pro|cedure W|
|000161d0| 72 69 74 65 49 6e 74 20 | 28 69 3a 20 6c 6f 6e 67 |riteInt |(i: long|
|000161e0| 69 6e 74 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 73 |int);...|var....s|
|000161f0| 3a 20 73 74 72 32 35 35 | 3b 0d 09 62 65 67 69 6e |: str255|;..begin|
|00016200| 0d 09 09 4e 75 6d 54 6f | 53 74 72 69 6e 67 28 69 |...NumTo|String(i|
|00016210| 2c 20 73 29 3b 0d 09 09 | 57 72 69 74 65 53 74 72 |, s);...|WriteStr|
|00016220| 69 6e 67 28 73 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |ing(s);.|.end;...|
|00016230| 70 72 6f 63 65 64 75 72 | 65 20 57 72 69 74 65 4e |procedur|e WriteN|
|00016240| 75 6d 62 65 72 20 28 64 | 3a 20 65 78 74 65 6e 64 |umber (d|: extend|
|00016250| 65 64 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ed);...v|ar....pb|
|00016260| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016270| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|00016280| 68 61 74 20 3a 3d 20 31 | 35 3b 0d 09 09 70 62 2e |hat := 1|5;...pb.|
|00016290| 65 78 74 56 61 6c 20 3a | 3d 20 64 3b 0d 09 09 43 |extVal :|= d;...C|
|000162a0| 61 6c 6c 52 75 6e 74 69 | 6d 65 50 72 6f 63 28 40 |allRunti|meProc(@|
|000162b0| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |pb);..en|d;...pro|
|000162c0| 63 65 64 75 72 65 20 4e | 75 6d 62 65 72 54 6f 53 |cedure N|umberToS|
|000162d0| 74 72 32 35 35 28 78 3a | 20 65 78 74 65 6e 64 65 |tr255(x:| extende|
|000162e0| 64 3b 20 76 61 72 20 73 | 3a 20 53 74 72 32 35 35 |d; var s|: Str255|
|000162f0| 3b 20 66 6f 72 6d 61 74 | 2c 20 64 69 67 69 74 73 |; format|, digits|
|00016300| 3a 69 6e 74 65 67 65 72 | 29 3b 0d 09 09 76 61 72 |:integer|);...var|
|00016310| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|00016320| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|00016330| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 39 37 |..pb.wha|t := 197|
|00016340| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|00016350| 64 69 67 69 74 73 3b 0d | 09 09 70 62 2e 70 5b 31 |digits;.|..pb.p[1|
|00016360| 5d 20 3a 3d 20 40 66 6f | 72 6d 61 74 3b 0d 09 09 |] := @fo|rmat;...|
|00016370| 70 62 2e 70 5b 32 5d 20 | 3a 3d 20 40 73 5b 30 5d |pb.p[2] |:= @s[0]|
|00016380| 3b 0d 09 09 70 62 2e 70 | 5b 33 5d 20 3a 3d 20 40 |;...pb.p|[3] := @|
|00016390| 78 3b 0d 09 09 43 61 6c | 6c 52 75 6e 74 69 6d 65 |x;...Cal|lRuntime|
|000163a0| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|000163b0| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 53 74 72 32 |...funct|ion Str2|
|000163c0| 35 35 54 6f 4e 75 6d 62 | 65 72 28 73 3a 20 53 74 |55ToNumb|er(s: St|
|000163d0| 72 32 35 35 3b 20 76 61 | 72 20 78 3a 20 65 78 74 |r255; va|r x: ext|
|000163e0| 65 6e 64 65 64 29 3a 69 | 6e 74 65 67 65 72 3b 0d |ended):i|nteger;.|
|000163f0| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00016400| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 09 |TimePara|mRec;...|
|00016410| 09 72 65 74 76 61 6c 3a | 20 69 6e 74 65 67 65 72 |.retval:| integer|
|00016420| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|00016430| 61 74 20 3a 3d 20 31 39 | 38 3b 0d 09 09 70 62 2e |at := 19|8;...pb.|
|00016440| 70 5b 30 5d 20 3a 3d 20 | 40 78 3b 0d 09 09 70 62 |p[0] := |@x;...pb|
|00016450| 2e 70 5b 31 5d 20 3a 3d | 20 40 73 5b 30 5d 3b 0d |.p[1] :=| @s[0];.|
|00016460| 09 09 70 62 2e 70 5b 32 | 5d 20 3a 3d 20 40 72 65 |..pb.p[2|] := @re|
|00016470| 74 76 61 6c 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |tval;...|CallRunt|
|00016480| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 09 |imeProc(|@pb);...|
|00016490| 53 74 72 32 35 35 54 6f | 4e 75 6d 62 65 72 20 3a |Str255To|Number :|
|000164a0| 3d 20 72 65 74 76 61 6c | 3b 0d 09 65 6e 64 3b 0d |= retval|;..end;.|
|000164b0| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 41 6c 65 72 74 |..functi|on Alert|
|000164c0| 42 6f 78 20 28 73 3a 20 | 73 74 72 32 35 35 29 3a |Box (s: |str255):|
|000164d0| 20 62 6f 6f 6c 65 61 6e | 3b 0d 09 09 76 61 72 0d | boolean|;...var.|
|000164e0| 09 09 09 70 62 3a 20 72 | 75 6e 54 69 6d 65 50 61 |...pb: r|unTimePa|
|000164f0| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|00016500| 09 70 62 2e 74 68 65 4d | 65 73 73 61 67 65 20 3a |.pb.theM|essage :|
|00016510| 3d 20 40 73 3b 0d 09 09 | 70 62 2e 77 68 61 74 20 |= @s;...|pb.what |
|00016520| 3a 3d 20 31 36 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |:= 16;..|.CallRun|
|00016530| 74 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |timeProc|(@pb);..|
|00016540| 09 41 6c 65 72 74 42 6f | 78 20 3a 3d 20 70 62 2e |.AlertBo|x := pb.|
|00016550| 72 65 74 76 61 6c 31 36 | 3b 0d 09 65 6e 64 3b 0d |retval16|;..end;.|
|00016560| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 49 6e 70 75 74 |..functi|on Input|
|00016570| 42 6f 78 20 28 6e 72 41 | 72 67 73 3a 20 69 6e 74 |Box (nrA|rgs: int|
|00016580| 65 67 65 72 3b 20 76 61 | 72 20 72 3a 20 69 6e 70 |eger; va|r r: inp|
|00016590| 75 74 52 65 63 29 3a 20 | 62 6f 6f 6c 65 61 6e 3b |utRec): |boolean;|
|000165a0| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 72 75 |...var..|..pb: ru|
|000165b0| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|000165c0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 6e 72 41 72 67 |begin...|pb.nrArg|
|000165d0| 73 20 3a 3d 20 6e 72 41 | 72 67 73 3b 0d 09 09 70 |s := nrA|rgs;...p|
|000165e0| 62 2e 72 20 3a 3d 20 40 | 72 3b 0d 09 09 70 62 2e |b.r := @|r;...pb.|
|000165f0| 77 68 61 74 20 3a 3d 20 | 31 37 3b 0d 09 09 43 61 |what := |17;...Ca|
|00016600| 6c 6c 52 75 6e 74 69 6d | 65 50 72 6f 63 28 40 70 |llRuntim|eProc(@p|
|00016610| 62 29 3b 0d 09 09 49 6e | 70 75 74 42 6f 78 20 3a |b);...In|putBox :|
|00016620| 3d 20 70 62 2e 72 65 74 | 76 61 6c 31 37 3b 0d 09 |= pb.ret|val17;..|
|00016630| 65 6e 64 3b 0d 0d 0d 0d | 0d 09 66 75 6e 63 74 69 |end;....|..functi|
|00016640| 6f 6e 20 41 73 6b 42 6f | 78 20 28 76 61 72 20 61 |on AskBo|x (var a|
|00016650| 6e 73 77 65 72 3a 20 69 | 6e 74 65 67 65 72 3b 20 |nswer: i|nteger; |
|00016660| 73 3a 20 73 74 72 32 35 | 35 29 3a 20 62 6f 6f 6c |s: str25|5): bool|
|00016670| 65 61 6e 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ean;...v|ar....pb|
|00016680| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016690| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 71 |c;..begi|n...pb.q|
|000166a0| 75 65 73 74 69 6f 6e 20 | 3a 3d 20 40 73 3b 0d 09 |uestion |:= @s;..|
|000166b0| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 31 38 3b 0d |.pb.what| := 18;.|
|000166c0| 09 09 70 62 2e 61 6e 73 | 77 65 72 20 3a 3d 20 40 |..pb.ans|wer := @|
|000166d0| 61 6e 73 77 65 72 3b 0d | 09 09 43 61 6c 6c 52 75 |answer;.|..CallRu|
|000166e0| 6e 74 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |ntimePro|c(@pb);.|
|000166f0| 09 09 41 73 6b 42 6f 78 | 20 3a 3d 20 70 62 2e 72 |..AskBox| := pb.r|
|00016700| 65 74 76 61 6c 31 38 3b | 0d 09 65 6e 64 3b 0d 0d |etval18;|..end;..|
|00016710| 0d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |....proc|edure Se|
|00016720| 74 43 6f 6c 4e 61 6d 65 | 20 28 43 6f 6c 75 6d 6e |tColName| (Column|
|00016730| 3a 20 6c 6f 6e 67 69 6e | 74 3b 20 73 3a 20 73 74 |: longin|t; s: st|
|00016740| 72 32 35 35 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 |r255);..|.var....|
|00016750| 70 62 3a 20 72 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: runT|imeParam|
|00016760| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|00016770| 2e 63 6f 6c 75 6d 6e 31 | 39 20 3a 3d 20 43 6f 6c |.column1|9 := Col|
|00016780| 75 6d 6e 3b 0d 09 09 70 | 62 2e 6e 61 6d 65 20 3a |umn;...p|b.name :|
|00016790| 3d 20 40 73 3b 0d 09 09 | 70 62 2e 77 68 61 74 20 |= @s;...|pb.what |
|000167a0| 3a 3d 20 31 39 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |:= 19;..|.CallRun|
|000167b0| 74 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |timeProc|(@pb);..|
|000167c0| 65 6e 64 3b 0d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |end;....|function|
|000167d0| 20 78 43 6f 6c 75 6d 6e | 3a 20 6c 6f 6e 67 69 6e | xColumn|: longin|
|000167e0| 74 3b 0d 09 09 76 61 72 | 0d 09 09 09 70 62 3a 20 |t;...var|....pb: |
|000167f0| 72 75 6e 54 69 6d 65 50 | 61 72 61 6d 52 65 63 3b |runTimeP|aramRec;|
|00016800| 0d 09 62 65 67 69 6e 0d | 09 09 70 62 2e 77 68 61 |..begin.|..pb.wha|
|00016810| 74 20 3a 3d 20 32 30 3b | 0d 09 09 43 61 6c 6c 52 |t := 20;|...CallR|
|00016820| 75 6e 74 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |untimePr|oc(@pb);|
|00016830| 0d 09 09 78 43 6f 6c 75 | 6d 6e 20 3a 3d 20 72 6f |...xColu|mn := ro|
|00016840| 75 6e 64 28 70 62 2e 72 | 65 74 76 61 6c 31 31 29 |und(pb.r|etval11)|
|00016850| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|00016860| 6f 6e 20 79 43 6f 6c 75 | 6d 6e 3a 20 6c 6f 6e 67 |on yColu|mn: long|
|00016870| 69 6e 74 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |int;...v|ar....pb|
|00016880| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016890| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|000168a0| 68 61 74 20 3a 3d 20 32 | 31 3b 0d 09 09 43 61 6c |hat := 2|1;...Cal|
|000168b0| 6c 52 75 6e 74 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRuntime|Proc(@pb|
|000168c0| 29 3b 0d 09 09 79 43 6f | 6c 75 6d 6e 20 3a 3d 20 |);...yCo|lumn := |
|000168d0| 72 6f 75 6e 64 28 70 62 | 2e 72 65 74 76 61 6c 31 |round(pb|.retval1|
|000168e0| 31 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |1);..end|;...func|
|000168f0| 74 69 6f 6e 20 78 45 72 | 72 43 6f 6c 75 6d 6e 3a |tion xEr|rColumn:|
|00016900| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 76 61 72 0d | longint|;...var.|
|00016910| 09 09 09 70 62 3a 20 72 | 75 6e 54 69 6d 65 50 61 |...pb: r|unTimePa|
|00016920| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|00016930| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 32 32 3b 0d |.pb.what| := 22;.|
|00016940| 09 09 43 61 6c 6c 52 75 | 6e 74 69 6d 65 50 72 6f |..CallRu|ntimePro|
|00016950| 63 28 40 70 62 29 3b 0d | 09 09 78 45 72 72 43 6f |c(@pb);.|..xErrCo|
|00016960| 6c 75 6d 6e 20 3a 3d 20 | 72 6f 75 6e 64 28 70 62 |lumn := |round(pb|
|00016970| 2e 72 65 74 76 61 6c 31 | 31 29 3b 0d 09 65 6e 64 |.retval1|1);..end|
|00016980| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 79 45 72 |;...func|tion yEr|
|00016990| 72 43 6f 6c 75 6d 6e 3a | 20 6c 6f 6e 67 69 6e 74 |rColumn:| longint|
|000169a0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 72 |;...var.|...pb: r|
|000169b0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|000169c0| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|000169d0| 20 3a 3d 20 32 33 3b 0d | 09 09 43 61 6c 6c 52 75 | := 23;.|..CallRu|
|000169e0| 6e 74 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |ntimePro|c(@pb);.|
|000169f0| 09 09 79 45 72 72 43 6f | 6c 75 6d 6e 20 3a 3d 20 |..yErrCo|lumn := |
|00016a00| 72 6f 75 6e 64 28 70 62 | 2e 72 65 74 76 61 6c 31 |round(pb|.retval1|
|00016a10| 31 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 70 72 6f 63 |1);..end|;...proc|
|00016a20| 65 64 75 72 65 20 53 65 | 74 44 65 66 61 75 6c 74 |edure Se|tDefault|
|00016a30| 43 6f 6c 73 20 28 78 43 | 6f 6c 75 6d 6e 2c 20 79 |Cols (xC|olumn, y|
|00016a40| 43 6f 6c 75 6d 6e 2c 20 | 78 45 72 72 43 6f 6c 75 |Column, |xErrColu|
|00016a50| 6d 6e 2c 20 79 45 72 72 | 43 6f 6c 75 6d 6e 3a 20 |mn, yErr|Column: |
|00016a60| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 09 09 76 61 72 0d |longint)|;...var.|
|00016a70| 09 09 09 70 62 3a 20 72 | 75 6e 54 69 6d 65 50 61 |...pb: r|unTimePa|
|00016a80| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|00016a90| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 31 38 30 3b |.pb.what| := 180;|
|00016aa0| 0d 09 09 70 62 2e 70 5b | 33 5d 20 3a 3d 20 40 78 |...pb.p[|3] := @x|
|00016ab0| 43 6f 6c 75 6d 6e 3b 0d | 09 09 70 62 2e 70 5b 32 |Column;.|..pb.p[2|
|00016ac0| 5d 20 3a 3d 20 40 79 43 | 6f 6c 75 6d 6e 3b 0d 09 |] := @yC|olumn;..|
|00016ad0| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 78 45 72 |.pb.p[1]| := @xEr|
|00016ae0| 72 43 6f 6c 75 6d 6e 3b | 0d 09 09 70 62 2e 70 5b |rColumn;|...pb.p[|
|00016af0| 30 5d 20 3a 3d 20 40 79 | 45 72 72 43 6f 6c 75 6d |0] := @y|ErrColum|
|00016b00| 6e 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |n;...Cal|lRunTime|
|00016b10| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|00016b20| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 47 65 74 53 |...funct|ion GetS|
|00016b30| 65 6c 65 63 74 69 6f 6e | 3a 20 72 65 63 74 3b 0d |election|: rect;.|
|00016b40| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00016b50| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00016b60| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00016b70| 3d 20 32 34 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |= 24;...|CallRunt|
|00016b80| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 09 |imeProc(|@pb);...|
|00016b90| 47 65 74 53 65 6c 65 63 | 74 69 6f 6e 20 3a 3d 20 |GetSelec|tion := |
|00016ba0| 70 62 2e 73 65 6c 65 63 | 74 69 6f 6e 52 65 63 74 |pb.selec|tionRect|
|00016bb0| 3b 0d 09 65 6e 64 3b 0d | 0d 0d 09 66 75 6e 63 74 |;..end;.|...funct|
|00016bc0| 69 6f 6e 20 4e 72 52 6f | 77 73 3a 20 6c 6f 6e 67 |ion NrRo|ws: long|
|00016bd0| 69 6e 74 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |int;...v|ar....pb|
|00016be0| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016bf0| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|00016c00| 68 61 74 20 3a 3d 20 33 | 34 3b 0d 09 09 43 61 6c |hat := 3|4;...Cal|
|00016c10| 6c 52 75 6e 74 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRuntime|Proc(@pb|
|00016c20| 29 3b 0d 09 09 4e 72 52 | 6f 77 73 20 3a 3d 20 72 |);...NrR|ows := r|
|00016c30| 6f 75 6e 64 28 70 62 2e | 72 65 74 76 61 6c 31 31 |ound(pb.|retval11|
|00016c40| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |);..end;|...funct|
|00016c50| 69 6f 6e 20 4e 72 43 6f | 6c 73 3a 20 6c 6f 6e 67 |ion NrCo|ls: long|
|00016c60| 69 6e 74 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |int;...v|ar....pb|
|00016c70| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016c80| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|00016c90| 68 61 74 20 3a 3d 20 33 | 35 3b 0d 09 09 43 61 6c |hat := 3|5;...Cal|
|00016ca0| 6c 52 75 6e 74 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRuntime|Proc(@pb|
|00016cb0| 29 3b 0d 09 09 4e 72 43 | 6f 6c 73 20 3a 3d 20 72 |);...NrC|ols := r|
|00016cc0| 6f 75 6e 64 28 70 62 2e | 72 65 74 76 61 6c 31 31 |ound(pb.|retval11|
|00016cd0| 29 3b 0d 09 65 6e 64 3b | 0d 0d 0d 0d 09 66 75 6e |);..end;|.....fun|
|00016ce0| 63 74 69 6f 6e 20 47 65 | 74 44 61 74 61 20 28 52 |ction Ge|tData (R|
|00016cf0| 6f 77 2c 20 43 6f 6c 75 | 6d 6e 3a 20 6c 6f 6e 67 |ow, Colu|mn: long|
|00016d00| 69 6e 74 29 3a 20 65 78 | 74 65 6e 64 65 64 3b 0d |int): ex|tended;.|
|00016d10| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00016d20| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00016d30| 65 67 69 6e 0d 09 09 70 | 62 2e 63 6f 6c 75 6d 6e |egin...p|b.column|
|00016d40| 32 35 20 3a 3d 20 43 6f | 6c 75 6d 6e 3b 0d 09 09 |25 := Co|lumn;...|
|00016d50| 70 62 2e 72 6f 77 32 35 | 20 3a 3d 20 52 6f 77 3b |pb.row25| := Row;|
|00016d60| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 32 35 |...pb.wh|at := 25|
|00016d70| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 74 69 6d 65 50 |;...Call|RuntimeP|
|00016d80| 72 6f 63 28 40 70 62 29 | 3b 0d 09 09 47 65 74 44 |roc(@pb)|;...GetD|
|00016d90| 61 74 61 20 3a 3d 20 70 | 62 2e 63 65 6c 6c 56 61 |ata := p|b.cellVa|
|00016da0| 6c 75 65 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |lue;..en|d;...pro|
|00016db0| 63 65 64 75 72 65 20 53 | 65 74 44 61 74 61 20 28 |cedure S|etData (|
|00016dc0| 52 6f 77 2c 20 43 6f 6c | 75 6d 6e 3a 20 6c 6f 6e |Row, Col|umn: lon|
|00016dd0| 67 69 6e 74 3b 20 65 78 | 3a 20 65 78 74 65 6e 64 |gint; ex|: extend|
|00016de0| 65 64 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ed);...v|ar....pb|
|00016df0| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00016e00| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 63 |c;..begi|n...pb.c|
|00016e10| 6f 6c 75 6d 6e 32 35 20 | 3a 3d 20 43 6f 6c 75 6d |olumn25 |:= Colum|
|00016e20| 6e 3b 0d 09 09 70 62 2e | 72 6f 77 32 35 20 3a 3d |n;...pb.|row25 :=|
|00016e30| 20 52 6f 77 3b 0d 09 09 | 70 62 2e 77 68 61 74 20 | Row;...|pb.what |
|00016e40| 3a 3d 20 32 36 3b 0d 09 | 09 70 62 2e 63 65 6c 6c |:= 26;..|.pb.cell|
|00016e50| 56 61 6c 75 65 20 3a 3d | 20 65 78 3b 0d 09 09 43 |Value :=| ex;...C|
|00016e60| 61 6c 6c 52 75 6e 74 69 | 6d 65 50 72 6f 63 28 40 |allRunti|meProc(@|
|00016e70| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 0d 09 70 72 |pb);..en|d;....pr|
|00016e80| 6f 63 65 64 75 72 65 20 | 43 6c 65 61 72 44 61 74 |ocedure |ClearDat|
|00016e90| 61 20 28 52 6f 77 2c 20 | 43 6f 6c 75 6d 6e 3a 20 |a (Row, |Column: |
|00016ea0| 6c 6f 6e 67 69 6e 74 29 | 3b 0d 09 09 76 61 72 0d |longint)|;...var.|
|00016eb0| 09 09 09 70 62 3a 20 72 | 75 6e 54 69 6d 65 50 61 |...pb: r|unTimePa|
|00016ec0| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|00016ed0| 09 70 62 2e 63 6f 6c 75 | 6d 6e 32 37 20 3a 3d 20 |.pb.colu|mn27 := |
|00016ee0| 43 6f 6c 75 6d 6e 3b 0d | 09 09 70 62 2e 72 6f 77 |Column;.|..pb.row|
|00016ef0| 32 37 20 3a 3d 20 52 6f | 77 3b 0d 09 09 70 62 2e |27 := Ro|w;...pb.|
|00016f00| 77 68 61 74 20 3a 3d 20 | 32 37 3b 0d 09 09 43 61 |what := |27;...Ca|
|00016f10| 6c 6c 52 75 6e 74 69 6d | 65 50 72 6f 63 28 40 70 |llRuntim|eProc(@p|
|00016f20| 62 29 3b 0d 09 65 6e 64 | 3b 0d 0d 0d 09 66 75 6e |b);..end|;....fun|
|00016f30| 63 74 69 6f 6e 20 54 65 | 73 74 44 61 74 61 20 28 |ction Te|stData (|
|00016f40| 52 6f 77 2c 20 43 6f 6c | 75 6d 6e 3a 20 6c 6f 6e |Row, Col|umn: lon|
|00016f50| 67 69 6e 74 29 3a 20 62 | 6f 6f 6c 65 61 6e 3b 0d |gint): b|oolean;.|
|00016f60| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00016f70| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00016f80| 65 67 69 6e 0d 09 09 70 | 62 2e 63 6f 6c 75 6d 6e |egin...p|b.column|
|00016f90| 32 38 20 3a 3d 20 43 6f | 6c 75 6d 6e 3b 0d 09 09 |28 := Co|lumn;...|
|00016fa0| 70 62 2e 72 6f 77 32 38 | 20 3a 3d 20 52 6f 77 3b |pb.row28| := Row;|
|00016fb0| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 32 38 |...pb.wh|at := 28|
|00016fc0| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 74 69 6d 65 50 |;...Call|RuntimeP|
|00016fd0| 72 6f 63 28 40 70 62 29 | 3b 0d 09 09 54 65 73 74 |roc(@pb)|;...Test|
|00016fe0| 44 61 74 61 20 3a 3d 20 | 70 62 2e 72 65 74 76 61 |Data := |pb.retva|
|00016ff0| 6c 32 38 3b 0d 09 65 6e | 64 3b 0d 0d 09 66 75 6e |l28;..en|d;...fun|
|00017000| 63 74 69 6f 6e 20 4e 75 | 6d 62 65 72 49 6e 76 61 |ction Nu|mberInva|
|00017010| 6c 69 64 20 28 61 4e 75 | 6d 3a 20 65 78 74 65 6e |lid (aNu|m: exten|
|00017020| 64 65 64 29 3a 20 62 6f | 6f 6c 65 61 6e 3b 0d 09 |ded): bo|olean;..|
|00017030| 09 76 61 72 0d 09 09 09 | 70 62 3a 20 72 75 6e 54 |.var....|pb: runT|
|00017040| 69 6d 65 50 61 72 61 6d | 52 65 63 3b 0d 09 62 65 |imeParam|Rec;..be|
|00017050| 67 69 6e 0d 09 09 70 62 | 2e 61 4e 75 6d 20 3a 3d |gin...pb|.aNum :=|
|00017060| 20 61 4e 75 6d 3b 0d 09 | 09 70 62 2e 77 68 61 74 | aNum;..|.pb.what|
|00017070| 20 3a 3d 20 32 39 3b 0d | 09 09 43 61 6c 6c 52 75 | := 29;.|..CallRu|
|00017080| 6e 74 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |ntimePro|c(@pb);.|
|00017090| 09 09 4e 75 6d 62 65 72 | 49 6e 76 61 6c 69 64 20 |..Number|Invalid |
|000170a0| 3a 3d 20 70 62 2e 72 65 | 74 76 61 6c 32 39 3b 0d |:= pb.re|tval29;.|
|000170b0| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|000170c0| 65 20 53 65 74 50 61 72 | 61 6d 4c 69 6d 69 74 73 |e SetPar|amLimits|
|000170d0| 20 28 70 61 72 61 6d 4e | 75 6d 3a 20 69 6e 74 65 | (paramN|um: inte|
|000170e0| 67 65 72 3b 20 6c 6f 77 | 2c 20 68 69 67 68 3a 20 |ger; low|, high: |
|000170f0| 65 78 74 65 6e 64 65 64 | 29 3b 0d 09 09 76 61 72 |extended|);...var|
|00017100| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|00017110| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|00017120| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 33 30 3b |..pb.wha|t := 30;|
|00017130| 0d 09 09 70 62 2e 61 6c | 6f 77 20 3a 3d 20 6c 6f |...pb.al|ow := lo|
|00017140| 77 3b 0d 09 09 70 62 2e | 61 68 69 67 68 20 3a 3d |w;...pb.|ahigh :=|
|00017150| 20 68 69 67 68 3b 0d 09 | 09 70 62 2e 70 61 72 61 | high;..|.pb.para|
|00017160| 6d 49 6e 64 65 78 33 30 | 20 3a 3d 20 70 61 72 61 |mIndex30| := para|
|00017170| 6d 4e 75 6d 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |mNum;...|CallRunt|
|00017180| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|00017190| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|000171a0| 53 65 74 50 61 72 61 6d | 44 65 66 61 75 6c 74 56 |SetParam|DefaultV|
|000171b0| 61 6c 75 65 20 28 70 61 | 72 61 6d 4e 75 6d 3a 20 |alue (pa|ramNum: |
|000171c0| 69 6e 74 65 67 65 72 3b | 20 76 61 6c 75 65 3a 20 |integer;| value: |
|000171d0| 65 78 74 65 6e 64 65 64 | 29 3b 0d 09 09 76 61 72 |extended|);...var|
|000171e0| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|000171f0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|00017200| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 33 31 3b |..pb.wha|t := 31;|
|00017210| 0d 09 09 70 62 2e 61 76 | 61 6c 20 3a 3d 20 76 61 |...pb.av|al := va|
|00017220| 6c 75 65 3b 0d 09 09 70 | 62 2e 70 61 72 61 6d 49 |lue;...p|b.paramI|
|00017230| 6e 64 65 78 33 31 20 3a | 3d 20 70 61 72 61 6d 4e |ndex31 :|= paramN|
|00017240| 75 6d 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 74 69 6d |um;...Ca|llRuntim|
|00017250| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|00017260| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |;...proc|edure Se|
|00017270| 74 50 61 72 61 6d 4e 61 | 6d 65 20 28 70 61 72 61 |tParamNa|me (para|
|00017280| 6d 4e 75 6d 3a 20 69 6e | 74 65 67 65 72 3b 20 73 |mNum: in|teger; s|
|00017290| 3a 20 53 74 72 32 35 35 | 29 3b 0d 09 09 76 61 72 |: Str255|);...var|
|000172a0| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|000172b0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|000172c0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 33 32 3b |..pb.wha|t := 32;|
|000172d0| 0d 09 09 70 62 2e 61 6e | 61 6d 65 33 32 20 3a 3d |...pb.an|ame32 :=|
|000172e0| 20 40 73 3b 0d 09 09 70 | 62 2e 70 61 72 61 6d 49 | @s;...p|b.paramI|
|000172f0| 6e 64 65 78 33 32 20 3a | 3d 20 70 61 72 61 6d 4e |ndex32 :|= paramN|
|00017300| 75 6d 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 74 69 6d |um;...Ca|llRuntim|
|00017310| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|00017320| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |;...proc|edure Se|
|00017330| 74 50 61 72 61 6d 44 65 | 66 61 75 6c 74 73 20 28 |tParamDe|faults (|
|00017340| 70 61 72 61 6d 4e 75 6d | 3a 20 69 6e 74 65 67 65 |paramNum|: intege|
|00017350| 72 3b 20 76 61 6c 75 65 | 3a 20 65 78 74 65 6e 64 |r; value|: extend|
|00017360| 65 64 3b 20 6d 6f 64 65 | 3a 20 6d 6f 64 65 54 79 |ed; mode|: modeTy|
|00017370| 70 65 3b 20 6e 61 6d 65 | 3a 20 53 74 72 32 35 35 |pe; name|: Str255|
|00017380| 3b 20 6c 6f 77 2c 20 68 | 69 67 68 3a 20 65 78 74 |; low, h|igh: ext|
|00017390| 65 6e 64 65 64 29 3b 0d | 09 09 76 61 72 0d 09 09 |ended);.|..var...|
|000173a0| 09 70 62 3a 20 72 75 6e | 54 69 6d 65 50 61 72 61 |.pb: run|TimePara|
|000173b0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|000173c0| 62 2e 77 68 61 74 20 3a | 3d 20 33 33 3b 0d 09 09 |b.what :|= 33;...|
|000173d0| 70 62 2e 61 6c 6f 77 33 | 33 20 3a 3d 20 6c 6f 77 |pb.alow3|3 := low|
|000173e0| 3b 0d 09 09 70 62 2e 61 | 68 69 67 68 33 33 20 3a |;...pb.a|high33 :|
|000173f0| 3d 20 68 69 67 68 3b 0d | 09 09 70 62 2e 61 6e 61 |= high;.|..pb.ana|
|00017400| 6d 65 33 33 20 3a 3d 20 | 40 6e 61 6d 65 3b 0d 09 |me33 := |@name;..|
|00017410| 09 70 62 2e 61 6d 6f 64 | 65 33 33 20 3a 3d 20 69 |.pb.amod|e33 := i|
|00017420| 6e 74 65 67 65 72 28 6d | 6f 64 65 29 3b 0d 09 09 |nteger(m|ode);...|
|00017430| 70 62 2e 61 76 61 6c 33 | 33 20 3a 3d 20 76 61 6c |pb.aval3|3 := val|
|00017440| 75 65 3b 0d 09 09 70 62 | 2e 70 61 72 61 6d 49 6e |ue;...pb|.paramIn|
|00017450| 64 65 78 33 33 20 3a 3d | 20 70 61 72 61 6d 4e 75 |dex33 :=| paramNu|
|00017460| 6d 3b 0d 09 09 43 61 6c | 6c 52 75 6e 74 69 6d 65 |m;...Cal|lRuntime|
|00017470| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|00017480| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 43 61 6c 6c |...funct|ion Call|
|00017490| 46 75 6e 63 74 69 6f 6e | 20 28 6e 61 6d 65 3a 20 |Function| (name: |
|000174a0| 53 74 72 32 35 35 3b 20 | 78 76 61 6c 75 65 3a 20 |Str255; |xvalue: |
|000174b0| 65 78 74 65 6e 64 65 64 | 29 3a 20 65 78 74 65 6e |extended|): exten|
|000174c0| 64 65 64 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ded;...v|ar....pb|
|000174d0| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|000174e0| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|000174f0| 68 61 74 20 3a 3d 20 31 | 30 30 3b 0d 09 09 70 62 |hat := 1|00;...pb|
|00017500| 2e 66 75 6e 63 4e 61 6d | 65 31 30 30 20 3a 3d 20 |.funcNam|e100 := |
|00017510| 40 6e 61 6d 65 3b 0d 09 | 09 70 62 2e 78 76 61 6c |@name;..|.pb.xval|
|00017520| 20 3a 3d 20 78 76 61 6c | 75 65 3b 0d 09 09 43 61 | := xval|ue;...Ca|
|00017530| 6c 6c 52 75 6e 74 69 6d | 65 50 72 6f 63 28 40 70 |llRuntim|eProc(@p|
|00017540| 62 29 3b 0d 09 09 43 61 | 6c 6c 46 75 6e 63 74 69 |b);...Ca|llFuncti|
|00017550| 6f 6e 20 3a 3d 20 70 62 | 2e 72 65 74 76 61 6c 31 |on := pb|.retval1|
|00017560| 30 30 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |00;..end|;...func|
|00017570| 74 69 6f 6e 20 47 65 74 | 4e 75 6d 46 75 6e 63 74 |tion Get|NumFunct|
|00017580| 69 6f 6e 50 61 72 61 6d | 73 20 28 66 75 6e 63 74 |ionParam|s (funct|
|00017590| 69 6f 6e 4e 61 6d 65 3a | 20 53 74 72 32 35 35 29 |ionName:| Str255)|
|000175a0| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 76 61 72 |: intege|r;...var|
|000175b0| 0d 09 09 09 70 62 3a 20 | 72 75 6e 54 69 6d 65 50 |....pb: |runTimeP|
|000175c0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|000175d0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 30 35 |..pb.wha|t := 105|
|000175e0| 3b 0d 09 09 70 62 2e 66 | 75 6e 63 4e 61 6d 65 31 |;...pb.f|uncName1|
|000175f0| 30 35 20 3a 3d 20 40 66 | 75 6e 63 74 69 6f 6e 4e |05 := @f|unctionN|
|00017600| 61 6d 65 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 74 69 |ame;...C|allRunti|
|00017610| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 09 47 |meProc(@|pb);...G|
|00017620| 65 74 4e 75 6d 46 75 6e | 63 74 69 6f 6e 50 61 72 |etNumFun|ctionPar|
|00017630| 61 6d 73 20 3a 3d 20 72 | 6f 75 6e 64 28 70 62 2e |ams := r|ound(pb.|
|00017640| 72 65 74 76 61 6c 31 30 | 35 29 3b 0d 09 65 6e 64 |retval10|5);..end|
|00017650| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 47 65 74 |;...func|tion Get|
|00017660| 46 75 6e 63 74 69 6f 6e | 50 61 72 61 6d 4d 6f 64 |Function|ParamMod|
|00017670| 65 20 28 66 75 6e 63 74 | 69 6f 6e 4e 61 6d 65 3a |e (funct|ionName:|
|00017680| 20 53 74 72 32 35 35 3b | 20 70 61 72 61 6d 49 6e | Str255;| paramIn|
|00017690| 64 65 78 3a 20 69 6e 74 | 65 67 65 72 29 3a 20 6d |dex: int|eger): m|
|000176a0| 6f 64 65 54 79 70 65 3b | 0d 09 09 76 61 72 0d 09 |odeType;|...var..|
|000176b0| 09 09 70 62 3a 20 72 75 | 6e 54 69 6d 65 50 61 72 |..pb: ru|nTimePar|
|000176c0| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|000176d0| 70 62 2e 77 68 61 74 20 | 3a 3d 20 31 30 34 3b 0d |pb.what |:= 104;.|
|000176e0| 09 09 70 62 2e 66 75 6e | 63 4e 61 6d 65 31 30 31 |..pb.fun|cName101|
|000176f0| 20 3a 3d 20 40 66 75 6e | 63 74 69 6f 6e 4e 61 6d | := @fun|ctionNam|
|00017700| 65 3b 0d 09 09 70 62 2e | 70 61 72 61 6d 49 6e 64 |e;...pb.|paramInd|
|00017710| 65 78 31 30 31 20 3a 3d | 20 70 61 72 61 6d 49 6e |ex101 :=| paramIn|
|00017720| 64 65 78 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 74 69 |dex;...C|allRunti|
|00017730| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 09 47 |meProc(@|pb);...G|
|00017740| 65 74 46 75 6e 63 74 69 | 6f 6e 50 61 72 61 6d 4d |etFuncti|onParamM|
|00017750| 6f 64 65 20 3a 3d 20 4d | 6f 64 65 54 79 70 65 28 |ode := M|odeType(|
|00017760| 72 6f 75 6e 64 28 70 62 | 2e 72 65 74 76 61 6c 31 |round(pb|.retval1|
|00017770| 30 31 29 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |01));..e|nd;...pr|
|00017780| 6f 63 65 64 75 72 65 20 | 47 65 74 46 75 6e 63 74 |ocedure |GetFunct|
|00017790| 69 6f 6e 50 61 72 61 6d | 4e 61 6d 65 28 66 75 6e |ionParam|Name(fun|
|000177a0| 63 74 69 6f 6e 4e 61 6d | 65 3a 20 53 74 72 32 35 |ctionNam|e: Str25|
|000177b0| 35 3b 20 70 61 72 61 6d | 49 6e 64 65 78 3a 20 69 |5; param|Index: i|
|000177c0| 6e 74 65 67 65 72 3b 20 | 76 61 72 20 70 61 72 61 |nteger; |var para|
|000177d0| 6d 4e 61 6d 65 3a 20 53 | 74 72 32 35 35 29 3b 0d |mName: S|tr255);.|
|000177e0| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|000177f0| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00017800| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00017810| 3d 20 31 30 36 3b 0d 09 | 09 70 62 2e 70 5b 30 5d |= 106;..|.pb.p[0]|
|00017820| 20 3a 3d 20 40 70 61 72 | 61 6d 4e 61 6d 65 3b 0d | := @par|amName;.|
|00017830| 09 09 70 62 2e 70 5b 31 | 5d 20 3a 3d 20 40 70 61 |..pb.p[1|] := @pa|
|00017840| 72 61 6d 49 6e 64 65 78 | 3b 0d 09 09 70 62 2e 70 |ramIndex|;...pb.p|
|00017850| 5b 32 5d 20 3a 3d 20 40 | 66 75 6e 63 74 69 6f 6e |[2] := @|function|
|00017860| 4e 61 6d 65 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |Name;...|CallRunt|
|00017870| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|00017880| 6e 64 3b 0d 0d 09 66 75 | 6e 63 74 69 6f 6e 20 47 |nd;...fu|nction G|
|00017890| 65 74 46 75 6e 63 74 69 | 6f 6e 50 61 72 61 6d 20 |etFuncti|onParam |
|000178a0| 28 66 75 6e 63 74 69 6f | 6e 4e 61 6d 65 3a 20 53 |(functio|nName: S|
|000178b0| 74 72 32 35 35 3b 20 70 | 61 72 61 6d 49 6e 64 65 |tr255; p|aramInde|
|000178c0| 78 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 65 78 74 |x: integ|er): ext|
|000178d0| 65 6e 64 65 64 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ended;..|.var....|
|000178e0| 70 62 3a 20 72 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: runT|imeParam|
|000178f0| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|00017900| 2e 77 68 61 74 20 3a 3d | 20 31 30 31 3b 0d 09 09 |.what :=| 101;...|
|00017910| 70 62 2e 66 75 6e 63 4e | 61 6d 65 31 30 31 20 3a |pb.funcN|ame101 :|
|00017920| 3d 20 40 66 75 6e 63 74 | 69 6f 6e 4e 61 6d 65 3b |= @funct|ionName;|
|00017930| 0d 09 09 70 62 2e 70 61 | 72 61 6d 49 6e 64 65 78 |...pb.pa|ramIndex|
|00017940| 31 30 31 20 3a 3d 20 70 | 61 72 61 6d 49 6e 64 65 |101 := p|aramInde|
|00017950| 78 3b 0d 09 09 43 61 6c | 6c 52 75 6e 74 69 6d 65 |x;...Cal|lRuntime|
|00017960| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 09 47 65 74 |Proc(@pb|);...Get|
|00017970| 46 75 6e 63 74 69 6f 6e | 50 61 72 61 6d 20 3a 3d |Function|Param :=|
|00017980| 20 70 62 2e 72 65 74 76 | 61 6c 31 30 31 3b 0d 09 | pb.retv|al101;..|
|00017990| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|000179a0| 20 53 65 74 46 75 6e 63 | 74 69 6f 6e 50 61 72 61 | SetFunc|tionPara|
|000179b0| 6d 20 28 66 75 6e 63 74 | 69 6f 6e 4e 61 6d 65 3a |m (funct|ionName:|
|000179c0| 20 53 74 72 32 35 35 3b | 20 70 61 72 61 6d 49 6e | Str255;| paramIn|
|000179d0| 64 65 78 3a 20 69 6e 74 | 65 67 65 72 3b 20 76 61 |dex: int|eger; va|
|000179e0| 6c 75 65 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |lue: ext|ended);.|
|000179f0| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00017a00| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00017a10| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00017a20| 3d 20 31 30 32 3b 0d 09 | 09 70 62 2e 66 75 6e 63 |= 102;..|.pb.func|
|00017a30| 4e 61 6d 65 31 30 32 20 | 3a 3d 20 40 66 75 6e 63 |Name102 |:= @func|
|00017a40| 74 69 6f 6e 4e 61 6d 65 | 3b 0d 09 09 70 62 2e 70 |tionName|;...pb.p|
|00017a50| 61 72 61 6d 49 6e 64 65 | 78 31 30 32 20 3a 3d 20 |aramInde|x102 := |
|00017a60| 70 61 72 61 6d 49 6e 64 | 65 78 3b 0d 09 09 70 62 |paramInd|ex;...pb|
|00017a70| 2e 70 56 61 6c 20 3a 3d | 20 76 61 6c 75 65 3b 0d |.pVal :=| value;.|
|00017a80| 09 09 43 61 6c 6c 52 75 | 6e 74 69 6d 65 50 72 6f |..CallRu|ntimePro|
|00017a90| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|00017aa0| 70 72 6f 63 65 64 75 72 | 65 20 43 61 6c 6c 50 72 |procedur|e CallPr|
|00017ab0| 6f 67 72 61 6d 20 28 6e | 61 6d 65 3a 20 53 74 72 |ogram (n|ame: Str|
|00017ac0| 32 35 35 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |255);...|var....p|
|00017ad0| 62 3a 20 72 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: runTi|meParamR|
|00017ae0| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|00017af0| 77 68 61 74 20 3a 3d 20 | 31 30 33 3b 0d 09 09 70 |what := |103;...p|
|00017b00| 62 2e 70 72 6f 67 4e 61 | 6d 65 20 3a 3d 20 40 6e |b.progNa|me := @n|
|00017b10| 61 6d 65 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 74 69 |ame;...C|allRunti|
|00017b20| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|00017b30| 64 3b 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 49 6e |d;...fun|ction In|
|00017b40| 74 65 67 72 61 6c 20 28 | 66 75 6e 63 74 69 6f 6e |tegral (|function|
|00017b50| 4e 61 6d 65 3a 20 53 74 | 72 32 35 35 3b 20 78 6d |Name: St|r255; xm|
|00017b60| 69 6e 2c 20 78 6d 61 78 | 3a 20 65 78 74 65 6e 64 |in, xmax|: extend|
|00017b70| 65 64 3b 20 6e 75 6d 49 | 74 65 72 73 3a 20 69 6e |ed; numI|ters: in|
|00017b80| 74 65 67 65 72 29 3a 20 | 65 78 74 65 6e 64 65 64 |teger): |extended|
|00017b90| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 72 |;...var.|...pb: r|
|00017ba0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00017bb0| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00017bc0| 20 3a 3d 20 31 31 30 3b | 0d 09 09 70 62 2e 66 75 | := 110;|...pb.fu|
|00017bd0| 6e 63 4e 61 6d 65 31 31 | 30 20 3a 3d 20 40 66 75 |ncName11|0 := @fu|
|00017be0| 6e 63 74 69 6f 6e 4e 61 | 6d 65 3b 0d 09 09 70 62 |nctionNa|me;...pb|
|00017bf0| 2e 6d 69 6e 20 3a 3d 20 | 78 6d 69 6e 3b 0d 09 09 |.min := |xmin;...|
|00017c00| 70 62 2e 6d 61 78 20 3a | 3d 20 78 6d 61 78 3b 0d |pb.max :|= xmax;.|
|00017c10| 09 09 70 62 2e 6e 75 6d | 49 74 65 72 61 74 69 6f |..pb.num|Iteratio|
|00017c20| 6e 73 20 3a 3d 20 6e 75 | 6d 49 74 65 72 73 3b 0d |ns := nu|mIters;.|
|00017c30| 09 09 43 61 6c 6c 52 75 | 6e 74 69 6d 65 50 72 6f |..CallRu|ntimePro|
|00017c40| 63 28 40 70 62 29 3b 0d | 09 09 49 6e 74 65 67 72 |c(@pb);.|..Integr|
|00017c50| 61 6c 20 3a 3d 20 70 62 | 2e 72 65 74 76 61 6c 31 |al := pb|.retval1|
|00017c60| 31 30 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |10;..end|;...func|
|00017c70| 74 69 6f 6e 20 4d 61 78 | 69 6d 75 6d 20 28 66 75 |tion Max|imum (fu|
|00017c80| 6e 63 74 69 6f 6e 4e 61 | 6d 65 3a 20 53 74 72 32 |nctionNa|me: Str2|
|00017c90| 35 35 3b 20 78 6d 69 6e | 2c 20 78 6d 61 78 3a 20 |55; xmin|, xmax: |
|00017ca0| 65 78 74 65 6e 64 65 64 | 29 3a 20 65 78 74 65 6e |extended|): exten|
|00017cb0| 64 65 64 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ded;...v|ar....pb|
|00017cc0| 3a 20 72 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: runTim|eParamRe|
|00017cd0| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|00017ce0| 68 61 74 20 3a 3d 20 31 | 31 31 3b 0d 09 09 70 62 |hat := 1|11;...pb|
|00017cf0| 2e 66 75 6e 63 4e 61 6d | 65 31 31 31 20 3a 3d 20 |.funcNam|e111 := |
|00017d00| 40 66 75 6e 63 74 69 6f | 6e 4e 61 6d 65 3b 0d 09 |@functio|nName;..|
|00017d10| 09 70 62 2e 6d 69 6e 31 | 31 31 20 3a 3d 20 78 6d |.pb.min1|11 := xm|
|00017d20| 69 6e 3b 0d 09 09 70 62 | 2e 6d 61 78 31 31 31 20 |in;...pb|.max111 |
|00017d30| 3a 3d 20 78 6d 61 78 3b | 0d 09 09 43 61 6c 6c 52 |:= xmax;|...CallR|
|00017d40| 75 6e 74 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |untimePr|oc(@pb);|
|00017d50| 0d 09 09 4d 61 78 69 6d | 75 6d 20 3a 3d 20 70 62 |...Maxim|um := pb|
|00017d60| 2e 72 65 74 76 61 6c 31 | 31 31 3b 0d 09 65 6e 64 |.retval1|11;..end|
|00017d70| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 4d 69 6e |;...func|tion Min|
|00017d80| 69 6d 75 6d 20 28 66 75 | 6e 63 74 69 6f 6e 4e 61 |imum (fu|nctionNa|
|00017d90| 6d 65 3a 20 53 74 72 32 | 35 35 3b 20 78 6d 69 6e |me: Str2|55; xmin|
|00017da0| 2c 20 78 6d 61 78 3a 20 | 65 78 74 65 6e 64 65 64 |, xmax: |extended|
|00017db0| 29 3a 20 65 78 74 65 6e | 64 65 64 3b 0d 09 09 76 |): exten|ded;...v|
|00017dc0| 61 72 0d 09 09 09 70 62 | 3a 20 72 75 6e 54 69 6d |ar....pb|: runTim|
|00017dd0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|00017de0| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 31 |n...pb.w|hat := 1|
|00017df0| 31 32 3b 0d 09 09 70 62 | 2e 66 75 6e 63 4e 61 6d |12;...pb|.funcNam|
|00017e00| 65 31 31 31 20 3a 3d 20 | 40 66 75 6e 63 74 69 6f |e111 := |@functio|
|00017e10| 6e 4e 61 6d 65 3b 0d 09 | 09 70 62 2e 6d 69 6e 31 |nName;..|.pb.min1|
|00017e20| 31 31 20 3a 3d 20 78 6d | 69 6e 3b 0d 09 09 70 62 |11 := xm|in;...pb|
|00017e30| 2e 6d 61 78 31 31 31 20 | 3a 3d 20 78 6d 61 78 3b |.max111 |:= xmax;|
|00017e40| 0d 09 09 43 61 6c 6c 52 | 75 6e 74 69 6d 65 50 72 |...CallR|untimePr|
|00017e50| 6f 63 28 40 70 62 29 3b | 0d 09 09 4d 69 6e 69 6d |oc(@pb);|...Minim|
|00017e60| 75 6d 20 3a 3d 20 70 62 | 2e 72 65 74 76 61 6c 31 |um := pb|.retval1|
|00017e70| 31 31 3b 0d 09 65 6e 64 | 3b 0d 0d 09 66 75 6e 63 |11;..end|;...func|
|00017e80| 74 69 6f 6e 20 52 6f 6f | 74 20 28 66 75 6e 63 74 |tion Roo|t (funct|
|00017e90| 69 6f 6e 4e 61 6d 65 3a | 20 53 74 72 32 35 35 3b |ionName:| Str255;|
|00017ea0| 20 78 6d 69 6e 2c 20 78 | 6d 61 78 3a 20 65 78 74 | xmin, x|max: ext|
|00017eb0| 65 6e 64 65 64 29 3a 20 | 65 78 74 65 6e 64 65 64 |ended): |extended|
|00017ec0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 72 |;...var.|...pb: r|
|00017ed0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00017ee0| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00017ef0| 20 3a 3d 20 31 31 33 3b | 0d 09 09 70 62 2e 66 75 | := 113;|...pb.fu|
|00017f00| 6e 63 4e 61 6d 65 31 31 | 31 20 3a 3d 20 40 66 75 |ncName11|1 := @fu|
|00017f10| 6e 63 74 69 6f 6e 4e 61 | 6d 65 3b 0d 09 09 70 62 |nctionNa|me;...pb|
|00017f20| 2e 6d 69 6e 31 31 31 20 | 3a 3d 20 78 6d 69 6e 3b |.min111 |:= xmin;|
|00017f30| 0d 09 09 70 62 2e 6d 61 | 78 31 31 31 20 3a 3d 20 |...pb.ma|x111 := |
|00017f40| 78 6d 61 78 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 74 |xmax;...|CallRunt|
|00017f50| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 09 |imeProc(|@pb);...|
|00017f60| 52 6f 6f 74 20 3a 3d 20 | 70 62 2e 72 65 74 76 61 |Root := |pb.retva|
|00017f70| 6c 31 31 31 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |l111;..e|nd;...fu|
|00017f80| 6e 63 74 69 6f 6e 20 44 | 65 72 69 76 61 74 69 76 |nction D|erivativ|
|00017f90| 65 20 28 66 75 6e 63 74 | 69 6f 6e 4e 61 6d 65 3a |e (funct|ionName:|
|00017fa0| 20 53 74 72 32 35 35 3b | 20 78 2c 20 73 63 61 6c | Str255;| x, scal|
|00017fb0| 65 3a 20 65 78 74 65 6e | 64 65 64 29 3a 20 65 78 |e: exten|ded): ex|
|00017fc0| 74 65 6e 64 65 64 3b 0d | 09 09 76 61 72 0d 09 09 |tended;.|..var...|
|00017fd0| 09 70 62 3a 20 72 75 6e | 54 69 6d 65 50 61 72 61 |.pb: run|TimePara|
|00017fe0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|00017ff0| 62 2e 77 68 61 74 20 3a | 3d 20 31 31 34 3b 0d 09 |b.what :|= 114;..|
|00018000| 09 70 62 2e 66 75 6e 63 | 4e 61 6d 65 31 31 31 20 |.pb.func|Name111 |
|00018010| 3a 3d 20 40 66 75 6e 63 | 74 69 6f 6e 4e 61 6d 65 |:= @func|tionName|
|00018020| 3b 0d 09 09 70 62 2e 6d | 69 6e 31 31 31 20 3a 3d |;...pb.m|in111 :=|
|00018030| 20 78 3b 0d 09 09 70 62 | 2e 6d 61 78 31 31 31 20 | x;...pb|.max111 |
|00018040| 3a 3d 20 73 63 61 6c 65 | 3b 0d 09 09 43 61 6c 6c |:= scale|;...Call|
|00018050| 52 75 6e 74 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RuntimeP|roc(@pb)|
|00018060| 3b 0d 09 09 44 65 72 69 | 76 61 74 69 76 65 20 3a |;...Deri|vative :|
|00018070| 3d 20 70 62 2e 72 65 74 | 76 61 6c 31 31 31 3b 0d |= pb.ret|val111;.|
|00018080| 09 65 6e 64 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |.end;...|function|
|00018090| 20 43 68 69 73 71 75 61 | 72 65 64 3a 20 65 78 74 | Chisqua|red: ext|
|000180a0| 65 6e 64 65 64 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ended;..|.var....|
|000180b0| 70 62 3a 20 72 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: runT|imeParam|
|000180c0| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|000180d0| 2e 77 68 61 74 20 3a 3d | 20 31 32 30 3b 0d 09 09 |.what :=| 120;...|
|000180e0| 43 61 6c 6c 52 75 6e 74 | 69 6d 65 50 72 6f 63 28 |CallRunt|imeProc(|
|000180f0| 40 70 62 29 3b 0d 09 09 | 43 68 69 73 71 75 61 72 |@pb);...|Chisquar|
|00018100| 65 64 20 3a 3d 20 70 62 | 2e 72 65 74 76 61 6c 31 |ed := pb|.retval1|
|00018110| 31 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |1;..end;|...proce|
|00018120| 64 75 72 65 20 46 69 74 | 20 28 66 75 6e 63 74 69 |dure Fit| (functi|
|00018130| 6f 6e 4e 61 6d 65 3a 20 | 53 74 72 32 35 35 3b 20 |onName: |Str255; |
|00018140| 78 43 6f 6c 2c 20 79 43 | 6f 6c 2c 20 65 72 72 43 |xCol, yC|ol, errC|
|00018150| 6f 6c 3a 20 6c 6f 6e 67 | 69 6e 74 3b 20 65 72 72 |ol: long|int; err|
|00018160| 56 61 6c 3a 20 65 78 74 | 65 6e 64 65 64 3b 20 73 |Val: ext|ended; s|
|00018170| 65 6c 65 63 74 69 6f 6e | 4f 6e 6c 79 3a 20 42 6f |election|Only: Bo|
|00018180| 6f 6c 65 61 6e 29 3b 0d | 09 09 76 61 72 0d 09 09 |olean);.|..var...|
|00018190| 09 70 62 3a 20 72 75 6e | 54 69 6d 65 50 61 72 61 |.pb: run|TimePara|
|000181a0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|000181b0| 62 2e 77 68 61 74 20 3a | 3d 20 31 31 35 3b 0d 09 |b.what :|= 115;..|
|000181c0| 09 70 62 2e 66 75 6e 63 | 4e 61 6d 65 31 31 35 20 |.pb.func|Name115 |
|000181d0| 3a 3d 20 40 66 75 6e 63 | 74 69 6f 6e 4e 61 6d 65 |:= @func|tionName|
|000181e0| 3b 0d 09 09 70 62 2e 78 | 43 6f 6c 20 3a 3d 20 78 |;...pb.x|Col := x|
|000181f0| 43 6f 6c 3b 0d 09 09 70 | 62 2e 79 43 6f 6c 20 3a |Col;...p|b.yCol :|
|00018200| 3d 20 79 43 6f 6c 3b 0d | 09 09 70 62 2e 65 72 72 |= yCol;.|..pb.err|
|00018210| 43 6f 6c 20 3a 3d 20 65 | 72 72 43 6f 6c 3b 0d 09 |Col := e|rrCol;..|
|00018220| 09 70 62 2e 65 72 72 56 | 61 6c 20 3a 3d 20 65 72 |.pb.errV|al := er|
|00018230| 72 56 61 6c 3b 0d 09 09 | 69 66 20 73 65 6c 65 63 |rVal;...|if selec|
|00018240| 74 69 6f 6e 4f 6e 6c 79 | 20 74 68 65 6e 0d 09 09 |tionOnly| then...|
|00018250| 09 70 62 2e 73 65 6c 65 | 63 74 69 6f 6e 4f 6e 6c |.pb.sele|ctionOnl|
|00018260| 79 20 3a 3d 20 31 0d 09 | 09 65 6c 73 65 0d 09 09 |y := 1..|.else...|
|00018270| 09 70 62 2e 73 65 6c 65 | 63 74 69 6f 6e 4f 6e 6c |.pb.sele|ctionOnl|
|00018280| 79 20 3a 3d 20 30 3b 0d | 09 09 43 61 6c 6c 52 75 |y := 0;.|..CallRu|
|00018290| 6e 74 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |ntimePro|c(@pb);.|
|000182a0| 09 65 6e 64 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |.end;...|function|
|000182b0| 20 4e 75 6d 46 69 74 50 | 61 72 61 6d 73 3a 20 69 | NumFitP|arams: i|
|000182c0| 6e 74 65 67 65 72 3b 0d | 09 09 76 61 72 0d 09 09 |nteger;.|..var...|
|000182d0| 09 70 62 3a 20 72 75 6e | 54 69 6d 65 50 61 72 61 |.pb: run|TimePara|
|000182e0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|000182f0| 62 2e 77 68 61 74 20 3a | 3d 20 31 32 31 3b 0d 09 |b.what :|= 121;..|
|00018300| 09 43 61 6c 6c 52 75 6e | 74 69 6d 65 50 72 6f 63 |.CallRun|timeProc|
|00018310| 28 40 70 62 29 3b 0d 09 | 09 4e 75 6d 46 69 74 50 |(@pb);..|.NumFitP|
|00018320| 61 72 61 6d 73 20 3a 3d | 20 70 62 2e 6e 75 6d 46 |arams :=| pb.numF|
|00018330| 69 74 50 61 72 61 6d 73 | 3b 0d 09 65 6e 64 3b 0d |itParams|;..end;.|
|00018340| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 46 69 74 74 65 |..functi|on Fitte|
|00018350| 64 50 61 72 61 6d 73 20 | 28 70 61 72 61 6d 4e 75 |dParams |(paramNu|
|00018360| 6d 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 65 78 74 |m: integ|er): ext|
|00018370| 65 6e 64 65 64 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ended;..|.var....|
|00018380| 70 62 3a 20 72 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: runT|imeParam|
|00018390| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|000183a0| 2e 77 68 61 74 20 3a 3d | 20 31 32 32 3b 0d 09 09 |.what :=| 122;...|
|000183b0| 70 62 2e 70 61 72 61 6d | 49 6e 64 65 78 31 32 32 |pb.param|Index122|
|000183c0| 20 3a 3d 20 70 61 72 61 | 6d 4e 75 6d 3b 0d 09 09 | := para|mNum;...|
|000183d0| 43 61 6c 6c 52 75 6e 74 | 69 6d 65 50 72 6f 63 28 |CallRunt|imeProc(|
|000183e0| 40 70 62 29 3b 0d 09 09 | 46 69 74 74 65 64 50 61 |@pb);...|FittedPa|
|000183f0| 72 61 6d 73 20 3a 3d 20 | 70 62 2e 72 65 74 76 61 |rams := |pb.retva|
|00018400| 6c 31 32 32 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |l122;..e|nd;...fu|
|00018410| 6e 63 74 69 6f 6e 20 50 | 61 72 61 6d 53 44 20 28 |nction P|aramSD (|
|00018420| 70 61 72 61 6d 4e 75 6d | 3a 20 69 6e 74 65 67 65 |paramNum|: intege|
|00018430| 72 29 3a 20 65 78 74 65 | 6e 64 65 64 3b 0d 09 09 |r): exte|nded;...|
|00018440| 76 61 72 0d 09 09 09 70 | 62 3a 20 72 75 6e 54 69 |var....p|b: runTi|
|00018450| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|00018460| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|00018470| 31 32 33 3b 0d 09 09 70 | 62 2e 70 61 72 61 6d 49 |123;...p|b.paramI|
|00018480| 6e 64 65 78 31 32 32 20 | 3a 3d 20 70 61 72 61 6d |ndex122 |:= param|
|00018490| 4e 75 6d 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 74 69 |Num;...C|allRunti|
|000184a0| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 09 50 |meProc(@|pb);...P|
|000184b0| 61 72 61 6d 53 44 20 3a | 3d 20 70 62 2e 72 65 74 |aramSD :|= pb.ret|
|000184c0| 76 61 6c 31 32 32 3b 0d | 09 65 6e 64 3b 0d 0d 09 |val122;.|.end;...|
|000184d0| 66 75 6e 63 74 69 6f 6e | 20 43 6f 76 61 72 4d 61 |function| CovarMa|
|000184e0| 74 72 69 78 20 28 70 61 | 72 61 6d 4e 75 6d 31 2c |trix (pa|ramNum1,|
|000184f0| 20 70 61 72 61 6d 4e 75 | 6d 32 3a 20 69 6e 74 65 | paramNu|m2: inte|
|00018500| 67 65 72 29 3a 20 65 78 | 74 65 6e 64 65 64 3b 0d |ger): ex|tended;.|
|00018510| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 72 75 6e |..var...|.pb: run|
|00018520| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00018530| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00018540| 3d 20 31 32 34 3b 0d 09 | 09 70 62 2e 70 61 72 61 |= 124;..|.pb.para|
|00018550| 6d 49 6e 64 65 78 31 20 | 3a 3d 20 70 61 72 61 6d |mIndex1 |:= param|
|00018560| 4e 75 6d 31 3b 0d 09 09 | 70 62 2e 70 61 72 61 6d |Num1;...|pb.param|
|00018570| 49 6e 64 65 78 32 20 3a | 3d 20 70 61 72 61 6d 4e |Index2 :|= paramN|
|00018580| 75 6d 32 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 74 69 |um2;...C|allRunti|
|00018590| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 09 43 |meProc(@|pb);...C|
|000185a0| 6f 76 61 72 4d 61 74 72 | 69 78 20 3a 3d 20 70 62 |ovarMatr|ix := pb|
|000185b0| 2e 72 65 74 76 61 6c 31 | 32 34 3b 0d 09 65 6e 64 |.retval1|24;..end|
|000185c0| 3b 0d 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 50 45 |;....fun|ction PE|
|000185d0| 72 66 20 28 78 3a 20 65 | 78 74 65 6e 64 65 64 29 |rf (x: e|xtended)|
|000185e0| 3a 20 65 78 74 65 6e 64 | 65 64 3b 0d 09 09 76 61 |: extend|ed;...va|
|000185f0| 72 0d 09 09 09 72 65 74 | 76 61 6c 3a 20 65 78 74 |r....ret|val: ext|
|00018600| 65 6e 64 65 64 3b 0d 09 | 09 09 70 62 3a 20 52 75 |ended;..|..pb: Ru|
|00018610| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|00018620| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|00018630| 3a 3d 20 34 31 3b 0d 09 | 09 70 62 2e 70 5b 30 5d |:= 41;..|.pb.p[0]|
|00018640| 20 3a 3d 20 40 78 3b 0d | 09 09 70 62 2e 70 5b 31 | := @x;.|..pb.p[1|
|00018650| 5d 20 3a 3d 20 40 72 65 | 74 56 61 6c 3b 0d 09 09 |] := @re|tVal;...|
|00018660| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|00018670| 40 70 62 29 3b 0d 09 09 | 50 45 72 66 20 3a 3d 20 |@pb);...|PErf := |
|00018680| 72 65 74 56 61 6c 3b 0d | 09 65 6e 64 3b 0d 0d 09 |retVal;.|.end;...|
|00018690| 66 75 6e 63 74 69 6f 6e | 20 45 72 66 20 28 78 3a |function| Erf (x:|
|000186a0| 20 65 78 74 65 6e 64 65 | 64 29 3a 20 65 78 74 65 | extende|d): exte|
|000186b0| 6e 64 65 64 3b 0d 09 62 | 65 67 69 6e 0d 09 09 45 |nded;..b|egin...E|
|000186c0| 72 66 20 3a 3d 20 50 45 | 72 66 28 78 29 3b 0d 09 |rf := PE|rf(x);..|
|000186d0| 65 6e 64 3b 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |end;...f|unction |
|000186e0| 50 45 72 66 63 20 28 78 | 3a 20 65 78 74 65 6e 64 |PErfc (x|: extend|
|000186f0| 65 64 29 3a 20 65 78 74 | 65 6e 64 65 64 3b 0d 09 |ed): ext|ended;..|
|00018700| 09 76 61 72 0d 09 09 09 | 72 65 74 76 61 6c 3a 20 |.var....|retval: |
|00018710| 65 78 74 65 6e 64 65 64 | 3b 0d 09 09 09 70 62 3a |extended|;....pb:|
|00018720| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|00018730| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|00018740| 61 74 20 3a 3d 20 34 32 | 3b 0d 09 09 70 62 2e 70 |at := 42|;...pb.p|
|00018750| 5b 30 5d 20 3a 3d 20 40 | 78 3b 0d 09 09 70 62 2e |[0] := @|x;...pb.|
|00018760| 70 5b 31 5d 20 3a 3d 20 | 40 72 65 74 56 61 6c 3b |p[1] := |@retVal;|
|00018770| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|00018780| 6f 63 28 40 70 62 29 3b | 0d 09 09 50 45 72 66 63 |oc(@pb);|...PErfc|
|00018790| 20 3a 3d 20 72 65 74 56 | 61 6c 3b 0d 09 65 6e 64 | := retV|al;..end|
|000187a0| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 45 72 66 |;...func|tion Erf|
|000187b0| 63 20 28 78 3a 20 65 78 | 74 65 6e 64 65 64 29 3a |c (x: ex|tended):|
|000187c0| 20 65 78 74 65 6e 64 65 | 64 3b 0d 09 62 65 67 69 | extende|d;..begi|
|000187d0| 6e 0d 09 09 45 72 66 63 | 20 3a 3d 20 50 45 72 66 |n...Erfc| := PErf|
|000187e0| 63 28 78 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |c(x);..e|nd;...fu|
|000187f0| 6e 63 74 69 6f 6e 20 4d | 61 72 6b 65 64 58 20 28 |nction M|arkedX (|
|00018800| 69 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 65 78 74 |i: integ|er): ext|
|00018810| 65 6e 64 65 64 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ended;..|.var....|
|00018820| 72 65 74 76 61 6c 3a 20 | 65 78 74 65 6e 64 65 64 |retval: |extended|
|00018830| 3b 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |;....pb:| RunTime|
|00018840| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|00018850| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 34 33 |...pb.wh|at := 43|
|00018860| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|00018870| 69 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |i;...pb.|p[1] := |
|00018880| 40 72 65 74 56 61 6c 3b | 0d 09 09 43 61 6c 6c 52 |@retVal;|...CallR|
|00018890| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|000188a0| 0d 09 09 4d 61 72 6b 65 | 64 58 20 3a 3d 20 72 65 |...Marke|dX := re|
|000188b0| 74 56 61 6c 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |tVal;..e|nd;...fu|
|000188c0| 6e 63 74 69 6f 6e 20 4d | 61 72 6b 65 64 59 20 28 |nction M|arkedY (|
|000188d0| 69 3a 20 69 6e 74 65 67 | 65 72 29 3a 20 65 78 74 |i: integ|er): ext|
|000188e0| 65 6e 64 65 64 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ended;..|.var....|
|000188f0| 72 65 74 76 61 6c 3a 20 | 65 78 74 65 6e 64 65 64 |retval: |extended|
|00018900| 3b 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |;....pb:| RunTime|
|00018910| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|00018920| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 34 34 |...pb.wh|at := 44|
|00018930| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|00018940| 69 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |i;...pb.|p[1] := |
|00018950| 40 72 65 74 56 61 6c 3b | 0d 09 09 43 61 6c 6c 52 |@retVal;|...CallR|
|00018960| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|00018970| 0d 09 09 4d 61 72 6b 65 | 64 59 20 3a 3d 20 72 65 |...Marke|dY := re|
|00018980| 74 56 61 6c 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |tVal;..e|nd;...pr|
|00018990| 6f 63 65 64 75 72 65 20 | 4d 61 72 6b 65 64 43 6f |ocedure |MarkedCo|
|000189a0| 6f 72 64 20 28 69 3a 20 | 69 6e 74 65 67 65 72 3b |ord (i: |integer;|
|000189b0| 20 76 61 72 20 78 2c 20 | 79 3a 20 65 78 74 65 6e | var x, |y: exten|
|000189c0| 64 65 64 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |ded);...|var....p|
|000189d0| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|000189e0| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|000189f0| 77 68 61 74 20 3a 3d 20 | 34 35 3b 0d 09 09 70 62 |what := |45;...pb|
|00018a00| 2e 70 5b 32 5d 20 3a 3d | 20 40 69 3b 0d 09 09 70 |.p[2] :=| @i;...p|
|00018a10| 62 2e 70 5b 31 5d 20 3a | 3d 20 40 78 3b 0d 09 09 |b.p[1] :|= @x;...|
|00018a20| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 79 3b 0d 09 |pb.p[0] |:= @y;..|
|00018a30| 09 43 61 6c 6c 52 75 6e | 54 69 6d 65 50 72 6f 63 |.CallRun|TimeProc|
|00018a40| 28 40 70 62 29 3b 0d 09 | 65 6e 64 3b 0d 0d 09 70 |(@pb);..|end;...p|
|00018a50| 72 6f 63 65 64 75 72 65 | 20 53 65 74 46 69 74 44 |rocedure| SetFitD|
|00018a60| 65 66 61 75 6c 74 73 20 | 28 61 6c 67 6f 72 69 74 |efaults |(algorit|
|00018a70| 68 6d 3a 20 69 6e 74 65 | 67 65 72 3b 20 79 45 72 |hm: inte|ger; yEr|
|00018a80| 72 44 69 73 74 72 69 62 | 75 74 69 6f 6e 3a 20 69 |rDistrib|ution: i|
|00018a90| 6e 74 65 67 65 72 3b 20 | 78 45 72 72 44 69 73 74 |nteger; |xErrDist|
|00018aa0| 72 69 62 75 74 69 6f 6e | 3a 20 69 6e 74 65 67 65 |ribution|: intege|
|00018ab0| 72 3b 20 78 45 72 72 43 | 6f 6c 75 6d 6e 3a 20 6c |r; xErrC|olumn: l|
|00018ac0| 6f 6e 67 69 6e 74 3b 20 | 78 45 72 72 56 61 6c 75 |ongint; |xErrValu|
|00018ad0| 65 3a 20 65 78 74 65 6e | 64 65 64 3b 20 73 74 6f |e: exten|ded; sto|
|00018ae0| 70 54 69 6d 65 3a 20 65 | 78 74 65 6e 64 65 64 29 |pTime: e|xtended)|
|00018af0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|00018b00| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00018b10| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00018b20| 20 3a 3d 20 31 31 36 3b | 0d 09 09 70 62 2e 70 5b | := 116;|...pb.p[|
|00018b30| 35 5d 20 3a 3d 20 40 61 | 6c 67 6f 72 69 74 68 6d |5] := @a|lgorithm|
|00018b40| 3b 0d 09 09 70 62 2e 70 | 5b 34 5d 20 3a 3d 20 40 |;...pb.p|[4] := @|
|00018b50| 79 45 72 72 44 69 73 74 | 72 69 62 75 74 69 6f 6e |yErrDist|ribution|
|00018b60| 3b 0d 09 09 70 62 2e 70 | 5b 33 5d 20 3a 3d 20 40 |;...pb.p|[3] := @|
|00018b70| 78 45 72 72 44 69 73 74 | 72 69 62 75 74 69 6f 6e |xErrDist|ribution|
|00018b80| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|00018b90| 78 45 72 72 43 6f 6c 75 | 6d 6e 3b 0d 09 09 70 62 |xErrColu|mn;...pb|
|00018ba0| 2e 70 5b 31 5d 20 3a 3d | 20 40 78 45 72 72 56 61 |.p[1] :=| @xErrVa|
|00018bb0| 6c 75 65 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |lue;...p|b.p[0] :|
|00018bc0| 3d 20 40 73 74 6f 70 54 | 69 6d 65 3b 0d 09 09 43 |= @stopT|ime;...C|
|00018bd0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|00018be0| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 66 75 6e |pb);..en|d;...fun|
|00018bf0| 63 74 69 6f 6e 20 4d 61 | 78 69 6d 69 7a 65 20 28 |ction Ma|ximize (|
|00018c00| 74 68 65 46 75 6e 63 74 | 69 6f 6e 3a 20 53 74 72 |theFunct|ion: Str|
|00018c10| 32 35 35 3b 20 70 72 65 | 63 69 73 69 6f 6e 3a 20 |255; pre|cision: |
|00018c20| 65 78 74 65 6e 64 65 64 | 3b 20 76 61 72 79 58 3a |extended|; varyX:|
|00018c30| 20 42 6f 6f 6c 65 61 6e | 3b 20 76 61 72 20 78 2c | Boolean|; var x,|
|00018c40| 20 79 3a 20 65 78 74 65 | 6e 64 65 64 29 3a 20 42 | y: exte|nded): B|
|00018c50| 6f 6f 6c 65 61 6e 3b 0d | 09 09 76 61 72 0d 09 09 |oolean;.|..var...|
|00018c60| 09 72 65 74 56 61 6c 3a | 20 42 6f 6f 6c 65 61 6e |.retVal:| Boolean|
|00018c70| 3b 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |;....pb:| RunTime|
|00018c80| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|00018c90| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 31 31 |...pb.wh|at := 11|
|00018ca0| 37 3b 0d 09 09 70 62 2e | 70 5b 35 5d 20 3a 3d 20 |7;...pb.|p[5] := |
|00018cb0| 40 72 65 74 56 61 6c 3b | 0d 09 09 70 62 2e 70 5b |@retVal;|...pb.p[|
|00018cc0| 34 5d 20 3a 3d 20 40 74 | 68 65 46 75 6e 63 74 69 |4] := @t|heFuncti|
|00018cd0| 6f 6e 3b 0d 09 09 70 62 | 2e 70 5b 33 5d 20 3a 3d |on;...pb|.p[3] :=|
|00018ce0| 20 40 70 72 65 63 69 73 | 69 6f 6e 3b 0d 09 09 70 | @precis|ion;...p|
|00018cf0| 62 2e 70 5b 32 5d 20 3a | 3d 20 40 76 61 72 79 58 |b.p[2] :|= @varyX|
|00018d00| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|00018d10| 78 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |x;...pb.|p[0] := |
|00018d20| 40 79 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |@y;...Ca|llRunTim|
|00018d30| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 09 4d 61 |eProc(@p|b);...Ma|
|00018d40| 78 69 6d 69 7a 65 20 3a | 3d 20 72 65 74 56 61 6c |ximize :|= retVal|
|00018d50| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|00018d60| 6f 6e 20 4d 69 6e 69 6d | 69 7a 65 20 28 74 68 65 |on Minim|ize (the|
|00018d70| 46 75 6e 63 74 69 6f 6e | 3a 20 53 74 72 32 35 35 |Function|: Str255|
|00018d80| 3b 20 70 72 65 63 69 73 | 69 6f 6e 3a 20 65 78 74 |; precis|ion: ext|
|00018d90| 65 6e 64 65 64 3b 20 76 | 61 72 79 58 3a 20 42 6f |ended; v|aryX: Bo|
|00018da0| 6f 6c 65 61 6e 3b 20 76 | 61 72 20 78 2c 20 79 3a |olean; v|ar x, y:|
|00018db0| 20 65 78 74 65 6e 64 65 | 64 29 3a 20 42 6f 6f 6c | extende|d): Bool|
|00018dc0| 65 61 6e 3b 0d 09 09 76 | 61 72 0d 09 09 09 72 65 |ean;...v|ar....re|
|00018dd0| 74 76 61 6c 3a 20 42 6f | 6f 6c 65 61 6e 3b 0d 09 |tval: Bo|olean;..|
|00018de0| 09 09 70 62 3a 20 52 75 | 6e 54 69 6d 65 50 61 72 |..pb: Ru|nTimePar|
|00018df0| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|00018e00| 70 62 2e 77 68 61 74 20 | 3a 3d 20 31 31 38 3b 0d |pb.what |:= 118;.|
|00018e10| 09 09 70 62 2e 70 5b 35 | 5d 20 3a 3d 20 40 72 65 |..pb.p[5|] := @re|
|00018e20| 74 56 61 6c 3b 0d 09 09 | 70 62 2e 70 5b 34 5d 20 |tVal;...|pb.p[4] |
|00018e30| 3a 3d 20 40 74 68 65 46 | 75 6e 63 74 69 6f 6e 3b |:= @theF|unction;|
|00018e40| 0d 09 09 70 62 2e 70 5b | 33 5d 20 3a 3d 20 40 70 |...pb.p[|3] := @p|
|00018e50| 72 65 63 69 73 69 6f 6e | 3b 0d 09 09 70 62 2e 70 |recision|;...pb.p|
|00018e60| 5b 32 5d 20 3a 3d 20 40 | 76 61 72 79 58 3b 0d 09 |[2] := @|varyX;..|
|00018e70| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 78 3b 0d |.pb.p[1]| := @x;.|
|00018e80| 09 09 70 62 2e 70 5b 30 | 5d 20 3a 3d 20 40 79 3b |..pb.p[0|] := @y;|
|00018e90| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|00018ea0| 6f 63 28 40 70 62 29 3b | 0d 09 09 4d 69 6e 69 6d |oc(@pb);|...Minim|
|00018eb0| 69 7a 65 20 3a 3d 20 72 | 65 74 56 61 6c 3b 0d 09 |ize := r|etVal;..|
|00018ec0| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|00018ed0| 20 53 65 74 45 72 72 6f | 72 41 6e 61 6c 79 73 69 | SetErro|rAnalysi|
|00018ee0| 73 20 28 63 6f 6e 66 69 | 64 65 6e 63 65 3a 20 65 |s (confi|dence: e|
|00018ef0| 78 74 65 6e 64 65 64 3b | 20 69 74 65 72 61 74 69 |xtended;| iterati|
|00018f00| 6f 6e 73 3a 20 6c 6f 6e | 67 69 6e 74 29 3b 0d 09 |ons: lon|gint);..|
|00018f10| 09 76 61 72 0d 09 09 09 | 70 62 3a 20 52 75 6e 54 |.var....|pb: RunT|
|00018f20| 69 6d 65 50 61 72 61 6d | 52 65 63 3b 0d 09 62 65 |imeParam|Rec;..be|
|00018f30| 67 69 6e 0d 09 09 70 62 | 2e 77 68 61 74 20 3a 3d |gin...pb|.what :=|
|00018f40| 20 31 32 35 3b 0d 09 09 | 70 62 2e 70 5b 31 5d 20 | 125;...|pb.p[1] |
|00018f50| 3a 3d 20 40 63 6f 6e 66 | 69 64 65 6e 63 65 3b 0d |:= @conf|idence;.|
|00018f60| 09 09 70 62 2e 70 5b 30 | 5d 20 3a 3d 20 40 69 74 |..pb.p[0|] := @it|
|00018f70| 65 72 61 74 69 6f 6e 73 | 3b 0d 09 09 43 61 6c 6c |erations|;...Call|
|00018f80| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|00018f90| 3b 0d 09 65 6e 64 3b 0d | 0d 09 70 72 6f 63 65 64 |;..end;.|..proced|
|00018fa0| 75 72 65 20 43 6f 6e 66 | 69 64 65 6e 63 65 49 6e |ure Conf|idenceIn|
|00018fb0| 74 65 72 76 61 6c 20 28 | 69 3a 20 69 6e 74 65 67 |terval (|i: integ|
|00018fc0| 65 72 3b 20 76 61 72 20 | 6d 69 6e 2c 20 6d 61 78 |er; var |min, max|
|00018fd0| 3a 20 65 78 74 65 6e 64 | 65 64 29 3b 0d 09 09 76 |: extend|ed);...v|
|00018fe0| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|00018ff0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|00019000| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 31 |n...pb.w|hat := 1|
|00019010| 32 36 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |26;...pb|.p[2] :=|
|00019020| 20 40 69 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a | @i;...p|b.p[1] :|
|00019030| 3d 20 40 6d 69 6e 3b 0d | 09 09 70 62 2e 70 5b 30 |= @min;.|..pb.p[0|
|00019040| 5d 20 3a 3d 20 40 6d 61 | 78 3b 0d 09 09 43 61 6c |] := @ma|x;...Cal|
|00019050| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|00019060| 29 3b 0d 09 65 6e 64 3b | 0d 0d 0d 09 66 75 6e 63 |);..end;|....func|
|00019070| 74 69 6f 6e 20 43 61 6c | 63 53 74 61 74 20 28 63 |tion Cal|cStat (c|
|00019080| 6f 6c 75 6d 6e 3a 20 6c | 6f 6e 67 69 6e 74 3b 20 |olumn: l|ongint; |
|00019090| 73 65 6c 52 6f 77 73 4f | 6e 6c 79 3a 20 42 6f 6f |selRowsO|nly: Boo|
|000190a0| 6c 65 61 6e 3b 20 77 69 | 74 68 42 61 73 69 63 73 |lean; wi|thBasics|
|000190b0| 3a 20 42 6f 6f 6c 65 61 | 6e 3b 20 77 69 74 68 53 |: Boolea|n; withS|
|000190c0| 6b 65 77 41 6e 64 43 75 | 72 74 3a 20 42 6f 6f 6c |kewAndCu|rt: Bool|
|000190d0| 65 61 6e 3b 20 77 69 74 | 68 4d 65 64 69 61 6e 3a |ean; wit|hMedian:|
|000190e0| 20 42 6f 6f 6c 65 61 6e | 29 3a 20 42 6f 6f 6c 65 | Boolean|): Boole|
|000190f0| 61 6e 3b 0d 09 09 76 61 | 72 0d 09 09 09 72 65 74 |an;...va|r....ret|
|00019100| 76 61 6c 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |val: boo|lean;...|
|00019110| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|00019120| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|00019130| 62 2e 77 68 61 74 20 3a | 3d 20 31 33 30 3b 0d 09 |b.what :|= 130;..|
|00019140| 09 70 62 2e 70 5b 35 5d | 20 3a 3d 20 40 72 65 74 |.pb.p[5]| := @ret|
|00019150| 56 61 6c 3b 0d 09 09 70 | 62 2e 70 5b 34 5d 20 3a |Val;...p|b.p[4] :|
|00019160| 3d 20 40 63 6f 6c 75 6d | 6e 3b 0d 09 09 70 62 2e |= @colum|n;...pb.|
|00019170| 70 5b 33 5d 20 3a 3d 20 | 40 73 65 6c 52 6f 77 73 |p[3] := |@selRows|
|00019180| 4f 6e 6c 79 3b 0d 09 09 | 70 62 2e 70 5b 32 5d 20 |Only;...|pb.p[2] |
|00019190| 3a 3d 20 40 77 69 74 68 | 42 61 73 69 63 73 3b 0d |:= @with|Basics;.|
|000191a0| 09 09 70 62 2e 70 5b 31 | 5d 20 3a 3d 20 40 77 69 |..pb.p[1|] := @wi|
|000191b0| 74 68 53 6b 65 77 41 6e | 64 43 75 72 74 3b 0d 09 |thSkewAn|dCurt;..|
|000191c0| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 77 69 74 |.pb.p[0]| := @wit|
|000191d0| 68 4d 65 64 69 61 6e 3b | 0d 09 09 43 61 6c 6c 52 |hMedian;|...CallR|
|000191e0| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|000191f0| 0d 09 09 43 61 6c 63 53 | 74 61 74 20 3a 3d 20 72 |...CalcS|tat := r|
|00019200| 65 74 56 61 6c 3b 0d 09 | 65 6e 64 3b 0d 0d 09 70 |etVal;..|end;...p|
|00019210| 72 6f 63 65 64 75 72 65 | 20 47 65 74 42 61 73 69 |rocedure| GetBasi|
|00019220| 63 73 20 28 76 61 72 20 | 63 6f 75 6e 74 3a 20 6c |cs (var |count: l|
|00019230| 6f 6e 67 69 6e 74 3b 20 | 76 61 72 20 73 75 6d 2c |ongint; |var sum,|
|00019240| 20 6d 65 61 6e 2c 20 76 | 61 72 69 61 6e 63 65 2c | mean, v|ariance,|
|00019250| 20 73 74 64 44 65 76 2c | 20 6d 65 61 6e 41 62 73 | stdDev,| meanAbs|
|00019260| 44 65 76 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |Dev: ext|ended);.|
|00019270| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|00019280| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00019290| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|000192a0| 3d 20 31 33 31 3b 0d 09 | 09 70 62 2e 70 5b 35 5d |= 131;..|.pb.p[5]|
|000192b0| 20 3a 3d 20 40 63 6f 75 | 6e 74 3b 0d 09 09 70 62 | := @cou|nt;...pb|
|000192c0| 2e 70 5b 34 5d 20 3a 3d | 20 40 73 75 6d 3b 0d 09 |.p[4] :=| @sum;..|
|000192d0| 09 70 62 2e 70 5b 33 5d | 20 3a 3d 20 40 6d 65 61 |.pb.p[3]| := @mea|
|000192e0| 6e 3b 0d 09 09 70 62 2e | 70 5b 32 5d 20 3a 3d 20 |n;...pb.|p[2] := |
|000192f0| 40 76 61 72 69 61 6e 63 | 65 3b 0d 09 09 70 62 2e |@varianc|e;...pb.|
|00019300| 70 5b 31 5d 20 3a 3d 20 | 40 73 74 64 44 65 76 3b |p[1] := |@stdDev;|
|00019310| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 6d |...pb.p[|0] := @m|
|00019320| 65 61 6e 41 62 73 44 65 | 76 3b 0d 09 09 43 61 6c |eanAbsDe|v;...Cal|
|00019330| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|00019340| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|00019350| 64 75 72 65 20 47 65 74 | 53 6b 65 77 41 6e 64 4b |dure Get|SkewAndK|
|00019360| 75 72 74 20 28 76 61 72 | 20 63 6f 75 6e 74 3a 20 |urt (var| count: |
|00019370| 6c 6f 6e 67 69 6e 74 3b | 20 76 61 72 20 6d 65 61 |longint;| var mea|
|00019380| 6e 2c 20 76 61 72 69 61 | 6e 63 65 2c 20 73 6b 65 |n, varia|nce, ske|
|00019390| 77 6e 65 73 73 2c 20 6b | 75 72 74 6f 73 69 73 3a |wness, k|urtosis:|
|000193a0| 20 65 78 74 65 6e 64 65 | 64 29 3b 0d 09 09 76 61 | extende|d);...va|
|000193b0| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|000193c0| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|000193d0| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 31 33 |...pb.wh|at := 13|
|000193e0| 32 3b 0d 09 09 70 62 2e | 70 5b 34 5d 20 3a 3d 20 |2;...pb.|p[4] := |
|000193f0| 40 63 6f 75 6e 74 3b 0d | 09 09 70 62 2e 70 5b 33 |@count;.|..pb.p[3|
|00019400| 5d 20 3a 3d 20 40 6d 65 | 61 6e 3b 0d 09 09 70 62 |] := @me|an;...pb|
|00019410| 2e 70 5b 32 5d 20 3a 3d | 20 40 76 61 72 69 61 6e |.p[2] :=| @varian|
|00019420| 63 65 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |ce;...pb|.p[1] :=|
|00019430| 20 40 73 6b 65 77 6e 65 | 73 73 3b 0d 09 09 70 62 | @skewne|ss;...pb|
|00019440| 2e 70 5b 30 5d 20 3a 3d | 20 40 6b 75 72 74 6f 73 |.p[0] :=| @kurtos|
|00019450| 69 73 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |is;...Ca|llRunTim|
|00019460| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|00019470| 3b 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |;....pro|cedure G|
|00019480| 65 74 4d 65 64 69 61 6e | 20 28 76 61 72 20 63 6f |etMedian| (var co|
|00019490| 75 6e 74 3a 20 6c 6f 6e | 67 69 6e 74 3b 20 76 61 |unt: lon|gint; va|
|000194a0| 72 20 6d 65 61 6e 2c 20 | 6d 65 64 69 61 6e 2c 20 |r mean, |median, |
|000194b0| 6d 69 6e 69 6d 75 6d 2c | 20 6d 61 78 69 6d 75 6d |minimum,| maximum|
|000194c0| 3a 20 65 78 74 65 6e 64 | 65 64 29 3b 0d 09 09 76 |: extend|ed);...v|
|000194d0| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|000194e0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|000194f0| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 31 |n...pb.w|hat := 1|
|00019500| 33 33 3b 0d 09 09 70 62 | 2e 70 5b 34 5d 20 3a 3d |33;...pb|.p[4] :=|
|00019510| 20 40 63 6f 75 6e 74 3b | 0d 09 09 70 62 2e 70 5b | @count;|...pb.p[|
|00019520| 33 5d 20 3a 3d 20 40 6d | 65 61 6e 3b 0d 09 09 70 |3] := @m|ean;...p|
|00019530| 62 2e 70 5b 32 5d 20 3a | 3d 20 40 6d 65 64 69 61 |b.p[2] :|= @media|
|00019540| 6e 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |n;...pb.|p[1] := |
|00019550| 40 6d 69 6e 69 6d 75 6d | 3b 0d 09 09 70 62 2e 70 |@minimum|;...pb.p|
|00019560| 5b 30 5d 20 3a 3d 20 40 | 6d 61 78 69 6d 75 6d 3b |[0] := @|maximum;|
|00019570| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|00019580| 6f 63 28 40 70 62 29 3b | 0d 09 65 6e 64 3b 0d 0d |oc(@pb);|..end;..|
|00019590| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 44 6f 4d 65 |..proced|ure DoMe|
|000195a0| 6e 75 20 28 73 3a 20 53 | 74 72 32 35 35 29 3b 0d |nu (s: S|tr255);.|
|000195b0| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|000195c0| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|000195d0| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|000195e0| 3d 20 31 33 35 3b 0d 09 | 09 70 62 2e 70 5b 30 5d |= 135;..|.pb.p[0]|
|000195f0| 20 3a 3d 20 40 73 3b 0d | 09 09 43 61 6c 6c 52 75 | := @s;.|..CallRu|
|00019600| 6e 54 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |nTimePro|c(@pb);.|
|00019610| 09 65 6e 64 3b 0d 0d 0d | 09 66 75 6e 63 74 69 6f |.end;...|.functio|
|00019620| 6e 20 47 65 74 46 72 6f | 6e 74 57 69 6e 64 6f 77 |n GetFro|ntWindow|
|00019630| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 76 61 72 |: longin|t;...var|
|00019640| 0d 09 09 09 72 65 74 76 | 61 6c 3a 20 6c 6f 6e 67 |....retv|al: long|
|00019650| 69 6e 74 3b 0d 09 09 09 | 70 62 3a 20 52 75 6e 54 |int;....|pb: RunT|
|00019660| 69 6d 65 50 61 72 61 6d | 52 65 63 3b 0d 09 62 65 |imeParam|Rec;..be|
|00019670| 67 69 6e 0d 09 09 70 62 | 2e 77 68 61 74 20 3a 3d |gin...pb|.what :=|
|00019680| 20 31 35 30 3b 0d 09 09 | 70 62 2e 70 5b 30 5d 20 | 150;...|pb.p[0] |
|00019690| 3a 3d 20 40 72 65 74 56 | 61 6c 3b 0d 09 09 43 61 |:= @retV|al;...Ca|
|000196a0| 6c 6c 52 75 6e 54 69 6d | 65 50 72 6f 63 28 40 70 |llRunTim|eProc(@p|
|000196b0| 62 29 3b 0d 09 09 47 65 | 74 46 72 6f 6e 74 57 69 |b);...Ge|tFrontWi|
|000196c0| 6e 64 6f 77 20 3a 3d 20 | 72 65 74 56 61 6c 3b 0d |ndow := |retVal;.|
|000196d0| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|000196e0| 65 20 44 6f 4e 65 77 57 | 69 6e 64 6f 77 20 28 77 |e DoNewW|indow (w|
|000196f0| 69 6e 64 6f 77 54 79 70 | 65 3a 20 4f 53 54 79 70 |indowTyp|e: OSTyp|
|00019700| 65 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |e);...va|r....pb:|
|00019710| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|00019720| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|00019730| 61 74 20 3a 3d 20 31 35 | 31 3b 0d 09 09 70 62 2e |at := 15|1;...pb.|
|00019740| 70 5b 30 5d 20 3a 3d 20 | 40 77 69 6e 64 6f 77 54 |p[0] := |@windowT|
|00019750| 79 70 65 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |ype;...C|allRunTi|
|00019760| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|00019770| 64 3b 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |d;....pr|ocedure |
|00019780| 53 65 74 43 75 72 72 65 | 6e 74 57 69 6e 64 6f 77 |SetCurre|ntWindow|
|00019790| 20 28 77 69 6e 64 6f 77 | 49 44 3a 20 6c 6f 6e 67 | (window|ID: long|
|000197a0| 69 6e 74 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |int);...|var....p|
|000197b0| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|000197c0| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|000197d0| 77 68 61 74 20 3a 3d 20 | 31 35 32 3b 0d 09 09 70 |what := |152;...p|
|000197e0| 62 2e 70 5b 30 5d 20 3a | 3d 20 40 77 69 6e 64 6f |b.p[0] :|= @windo|
|000197f0| 77 49 44 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |wID;...C|allRunTi|
|00019800| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|00019810| 64 3b 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 47 65 |d;...fun|ction Ge|
|00019820| 74 43 75 72 72 65 6e 74 | 57 69 6e 64 6f 77 20 28 |tCurrent|Window (|
|00019830| 77 69 6e 64 6f 77 54 79 | 70 65 3a 20 4f 53 54 79 |windowTy|pe: OSTy|
|00019840| 70 65 29 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 09 09 |pe): lon|gint;...|
|00019850| 76 61 72 0d 09 09 09 72 | 65 74 76 61 6c 3a 20 6c |var....r|etval: l|
|00019860| 6f 6e 67 69 6e 74 3b 0d | 09 09 09 70 62 3a 20 52 |ongint;.|...pb: R|
|00019870| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00019880| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00019890| 20 3a 3d 20 31 35 33 3b | 0d 09 09 70 62 2e 70 5b | := 153;|...pb.p[|
|000198a0| 31 5d 20 3a 3d 20 40 72 | 65 74 56 61 6c 3b 0d 09 |1] := @r|etVal;..|
|000198b0| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 77 69 6e |.pb.p[0]| := @win|
|000198c0| 64 6f 77 54 79 70 65 3b | 0d 09 09 43 61 6c 6c 52 |dowType;|...CallR|
|000198d0| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|000198e0| 0d 09 09 47 65 74 43 75 | 72 72 65 6e 74 57 69 6e |...GetCu|rrentWin|
|000198f0| 64 6f 77 20 3a 3d 20 72 | 65 74 56 61 6c 3b 0d 09 |dow := r|etVal;..|
|00019900| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|00019910| 20 44 6f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 20 28 | DoClose|Window (|
|00019920| 77 69 6e 64 6f 77 49 44 | 3a 20 6c 6f 6e 67 69 6e |windowID|: longin|
|00019930| 74 3b 20 73 61 76 65 49 | 74 3a 20 42 6f 6f 6c 65 |t; saveI|t: Boole|
|00019940| 61 6e 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |an);...v|ar....pb|
|00019950| 3a 20 52 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: RunTim|eParamRe|
|00019960| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|00019970| 68 61 74 20 3a 3d 20 31 | 35 34 3b 0d 09 09 70 62 |hat := 1|54;...pb|
|00019980| 2e 70 5b 31 5d 20 3a 3d | 20 40 77 69 6e 64 6f 77 |.p[1] :=| @window|
|00019990| 49 44 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |ID;...pb|.p[0] :=|
|000199a0| 20 40 73 61 76 65 49 74 | 3b 0d 09 09 43 61 6c 6c | @saveIt|;...Call|
|000199b0| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|000199c0| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|000199d0| 6f 6e 20 46 72 6f 6e 74 | 6d 6f 73 74 57 69 6e 64 |on Front|mostWind|
|000199e0| 6f 77 20 28 77 69 6e 64 | 6f 77 54 79 70 65 3a 20 |ow (wind|owType: |
|000199f0| 4f 53 54 79 70 65 29 3a | 20 6c 6f 6e 67 69 6e 74 |OSType):| longint|
|00019a00| 3b 0d 09 09 76 61 72 0d | 09 09 09 72 65 74 76 61 |;...var.|...retva|
|00019a10| 6c 3a 20 6c 6f 6e 67 69 | 6e 74 3b 0d 09 09 09 70 |l: longi|nt;....p|
|00019a20| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|00019a30| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|00019a40| 77 68 61 74 20 3a 3d 20 | 31 35 35 3b 0d 09 09 70 |what := |155;...p|
|00019a50| 62 2e 70 5b 31 5d 20 3a | 3d 20 40 72 65 74 56 61 |b.p[1] :|= @retVa|
|00019a60| 6c 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |l;...pb.|p[0] := |
|00019a70| 40 77 69 6e 64 6f 77 54 | 79 70 65 3b 0d 09 09 43 |@windowT|ype;...C|
|00019a80| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|00019a90| 70 62 29 3b 0d 09 09 46 | 72 6f 6e 74 6d 6f 73 74 |pb);...F|rontmost|
|00019aa0| 57 69 6e 64 6f 77 20 3a | 3d 20 72 65 74 56 61 6c |Window :|= retVal|
|00019ab0| 3b 0d 09 65 6e 64 3b 0d | 0d 09 70 72 6f 63 65 64 |;..end;.|..proced|
|00019ac0| 75 72 65 20 53 61 76 65 | 57 69 6e 64 6f 77 20 28 |ure Save|Window (|
|00019ad0| 77 69 6e 64 6f 77 49 44 | 3a 20 6c 6f 6e 67 69 6e |windowID|: longin|
|00019ae0| 74 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |t);...va|r....pb:|
|00019af0| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|00019b00| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|00019b10| 61 74 20 3a 3d 20 31 35 | 36 3b 0d 09 09 70 62 2e |at := 15|6;...pb.|
|00019b20| 70 5b 30 5d 20 3a 3d 20 | 40 77 69 6e 64 6f 77 49 |p[0] := |@windowI|
|00019b30| 44 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |D;...Cal|lRunTime|
|00019b40| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|00019b50| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 53 61 76 |...proce|dure Sav|
|00019b60| 65 57 69 6e 64 6f 77 41 | 73 20 28 77 69 6e 64 6f |eWindowA|s (windo|
|00019b70| 77 49 44 3a 20 6c 6f 6e | 67 69 6e 74 3b 20 66 69 |wID: lon|gint; fi|
|00019b80| 6c 65 4e 61 6d 65 3a 20 | 53 74 72 32 35 35 29 3b |leName: |Str255);|
|00019b90| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|00019ba0| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|00019bb0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|00019bc0| 3a 3d 20 31 35 37 3b 0d | 09 09 70 62 2e 70 5b 31 |:= 157;.|..pb.p[1|
|00019bd0| 5d 20 3a 3d 20 40 77 69 | 6e 64 6f 77 49 44 3b 0d |] := @wi|ndowID;.|
|00019be0| 09 09 70 62 2e 70 5b 30 | 5d 20 3a 3d 20 40 66 69 |..pb.p[0|] := @fi|
|00019bf0| 6c 65 4e 61 6d 65 3b 0d | 09 09 43 61 6c 6c 52 75 |leName;.|..CallRu|
|00019c00| 6e 54 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |nTimePro|c(@pb);.|
|00019c10| 09 65 6e 64 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |.end;...|function|
|00019c20| 20 47 65 74 57 69 6e 64 | 6f 77 49 44 20 28 77 69 | GetWind|owID (wi|
|00019c30| 6e 64 6f 77 4e 61 6d 65 | 3a 20 53 74 72 32 35 35 |ndowName|: Str255|
|00019c40| 29 3a 20 6c 6f 6e 67 69 | 6e 74 3b 0d 09 09 76 61 |): longi|nt;...va|
|00019c50| 72 0d 09 09 09 72 65 74 | 76 61 6c 3a 20 6c 6f 6e |r....ret|val: lon|
|00019c60| 67 69 6e 74 3b 0d 09 09 | 09 70 62 3a 20 52 75 6e |gint;...|.pb: Run|
|00019c70| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|00019c80| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|00019c90| 3d 20 31 35 38 3b 0d 09 | 09 70 62 2e 70 5b 31 5d |= 158;..|.pb.p[1]|
|00019ca0| 20 3a 3d 20 40 72 65 74 | 56 61 6c 3b 0d 09 09 70 | := @ret|Val;...p|
|00019cb0| 62 2e 70 5b 30 5d 20 3a | 3d 20 40 77 69 6e 64 6f |b.p[0] :|= @windo|
|00019cc0| 77 4e 61 6d 65 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |wName;..|.CallRun|
|00019cd0| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|00019ce0| 09 47 65 74 57 69 6e 64 | 6f 77 49 44 20 3a 3d 20 |.GetWind|owID := |
|00019cf0| 72 65 74 56 61 6c 3b 0d | 09 65 6e 64 3b 0d 0d 0d |retVal;.|.end;...|
|00019d00| 09 66 75 6e 63 74 69 6f | 6e 20 47 65 74 57 69 6e |.functio|n GetWin|
|00019d10| 64 6f 77 54 79 70 65 20 | 28 77 69 6e 64 6f 77 49 |dowType |(windowI|
|00019d20| 44 3a 20 6c 6f 6e 67 69 | 6e 74 29 3a 20 4f 53 54 |D: longi|nt): OST|
|00019d30| 79 70 65 3b 0d 09 09 76 | 61 72 0d 09 09 09 72 65 |ype;...v|ar....re|
|00019d40| 74 76 61 6c 3a 20 4f 53 | 54 79 70 65 3b 0d 09 09 |tval: OS|Type;...|
|00019d50| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|00019d60| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|00019d70| 62 2e 77 68 61 74 20 3a | 3d 20 31 35 39 3b 0d 09 |b.what :|= 159;..|
|00019d80| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 72 65 74 |.pb.p[1]| := @ret|
|00019d90| 56 61 6c 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |Val;...p|b.p[0] :|
|00019da0| 3d 20 40 77 69 6e 64 6f | 77 49 44 3b 0d 09 09 43 |= @windo|wID;...C|
|00019db0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|00019dc0| 70 62 29 3b 0d 09 09 47 | 65 74 57 69 6e 64 6f 77 |pb);...G|etWindow|
|00019dd0| 54 79 70 65 20 3a 3d 20 | 72 65 74 56 61 6c 3b 0d |Type := |retVal;.|
|00019de0| 09 65 6e 64 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |.end;...|function|
|00019df0| 20 4e 65 78 74 57 69 6e | 64 6f 77 20 28 77 69 6e | NextWin|dow (win|
|00019e00| 64 6f 77 49 44 3a 20 6c | 6f 6e 67 69 6e 74 29 3a |dowID: l|ongint):|
|00019e10| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 09 09 76 61 72 0d | longint|;...var.|
|00019e20| 09 09 09 72 65 74 76 61 | 6c 3a 20 6c 6f 6e 67 69 |...retva|l: longi|
|00019e30| 6e 74 3b 0d 09 09 09 70 | 62 3a 20 52 75 6e 54 69 |nt;....p|b: RunTi|
|00019e40| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|00019e50| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|00019e60| 31 36 30 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a |160;...p|b.p[1] :|
|00019e70| 3d 20 40 72 65 74 56 61 | 6c 3b 0d 09 09 70 62 2e |= @retVa|l;...pb.|
|00019e80| 70 5b 30 5d 20 3a 3d 20 | 40 77 69 6e 64 6f 77 49 |p[0] := |@windowI|
|00019e90| 44 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |D;...Cal|lRunTime|
|00019ea0| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 09 4e 65 78 |Proc(@pb|);...Nex|
|00019eb0| 74 57 69 6e 64 6f 77 20 | 3a 3d 20 72 65 74 56 61 |tWindow |:= retVa|
|00019ec0| 6c 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |l;..end;|...proce|
|00019ed0| 64 75 72 65 20 4f 70 65 | 6e 46 69 6c 65 20 28 66 |dure Ope|nFile (f|
|00019ee0| 69 6c 65 4e 61 6d 65 3a | 20 53 74 72 32 35 35 29 |ileName:| Str255)|
|00019ef0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|00019f00| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|00019f10| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|00019f20| 20 3a 3d 20 31 36 31 3b | 0d 09 09 70 62 2e 70 5b | := 161;|...pb.p[|
|00019f30| 30 5d 20 3a 3d 20 40 66 | 69 6c 65 4e 61 6d 65 3b |0] := @f|ileName;|
|00019f40| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|00019f50| 6f 63 28 40 70 62 29 3b | 0d 09 65 6e 64 3b 0d 0d |oc(@pb);|..end;..|
|00019f60| 09 70 72 6f 63 65 64 75 | 72 65 20 4f 70 65 6e 44 |.procedu|re OpenD|
|00019f70| 61 74 61 20 28 66 69 6c | 65 4e 61 6d 65 3a 20 53 |ata (fil|eName: S|
|00019f80| 74 72 32 35 35 29 3b 0d | 09 09 76 61 72 0d 09 09 |tr255);.|..var...|
|00019f90| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|00019fa0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|00019fb0| 62 2e 77 68 61 74 20 3a | 3d 20 31 36 32 3b 0d 09 |b.what :|= 162;..|
|00019fc0| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 66 69 6c |.pb.p[0]| := @fil|
|00019fd0| 65 4e 61 6d 65 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |eName;..|.CallRun|
|00019fe0| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|00019ff0| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|0001a000| 20 4f 70 65 6e 54 65 78 | 74 20 28 66 69 6c 65 4e | OpenTex|t (fileN|
|0001a010| 61 6d 65 3a 20 53 74 72 | 32 35 35 29 3b 0d 09 09 |ame: Str|255);...|
|0001a020| 76 61 72 0d 09 09 09 70 | 62 3a 20 52 75 6e 54 69 |var....p|b: RunTi|
|0001a030| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|0001a040| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|0001a050| 31 36 33 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |163;...p|b.p[0] :|
|0001a060| 3d 20 40 66 69 6c 65 4e | 61 6d 65 3b 0d 09 09 43 |= @fileN|ame;...C|
|0001a070| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001a080| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |pb);..en|d;...pro|
|0001a090| 63 65 64 75 72 65 20 53 | 65 74 54 65 78 74 46 69 |cedure S|etTextFi|
|0001a0a0| 6c 65 46 6f 72 6d 61 74 | 20 28 63 6f 6c 44 65 6c |leFormat| (colDel|
|0001a0b0| 69 6d 69 74 65 72 2c 20 | 65 6e 64 4f 66 4c 69 6e |imiter, |endOfLin|
|0001a0c0| 65 3a 20 53 74 72 32 35 | 35 3b 20 77 69 74 68 43 |e: Str25|5; withC|
|0001a0d0| 6f 6c 54 69 74 6c 65 73 | 2c 20 63 6f 70 79 49 6e |olTitles|, copyIn|
|0001a0e0| 66 6f 54 65 78 74 3a 20 | 42 6f 6f 6c 65 61 6e 3b |foText: |Boolean;|
|0001a0f0| 20 6e 72 48 65 61 64 65 | 72 4c 69 6e 65 73 2c 20 | nrHeade|rLines, |
|0001a100| 69 6e 70 75 74 4f 52 6f | 75 74 70 75 74 3a 20 6c |inputORo|utput: l|
|0001a110| 6f 6e 67 69 6e 74 29 3b | 0d 09 09 76 61 72 0d 09 |ongint);|...var..|
|0001a120| 09 09 77 54 2c 20 63 49 | 3a 20 6c 6f 6e 67 69 6e |..wT, cI|: longin|
|0001a130| 74 3b 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |t;....pb|: RunTim|
|0001a140| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001a150| 6e 0d 09 09 69 66 20 77 | 69 74 68 43 6f 6c 54 69 |n...if w|ithColTi|
|0001a160| 74 6c 65 73 20 74 68 65 | 6e 0d 09 09 09 77 54 20 |tles the|n....wT |
|0001a170| 3a 3d 20 31 0d 09 09 65 | 6c 73 65 0d 09 09 09 77 |:= 1...e|lse....w|
|0001a180| 54 20 3a 3d 20 30 3b 0d | 09 09 69 66 20 63 6f 70 |T := 0;.|..if cop|
|0001a190| 79 49 6e 66 6f 54 65 78 | 74 20 74 68 65 6e 0d 09 |yInfoTex|t then..|
|0001a1a0| 09 09 63 49 20 3a 3d 20 | 31 0d 09 09 65 6c 73 65 |..cI := |1...else|
|0001a1b0| 0d 09 09 09 63 49 20 3a | 3d 20 30 3b 0d 09 09 70 |....cI :|= 0;...p|
|0001a1c0| 62 2e 77 68 61 74 20 3a | 3d 20 31 38 39 3b 0d 09 |b.what :|= 189;..|
|0001a1d0| 09 70 62 2e 70 5b 32 5d | 20 3a 3d 20 40 63 6f 6c |.pb.p[2]| := @col|
|0001a1e0| 44 65 6c 69 6d 69 74 65 | 72 3b 0d 09 09 70 62 2e |Delimite|r;...pb.|
|0001a1f0| 70 5b 31 5d 20 3a 3d 20 | 40 65 6e 64 4f 66 4c 69 |p[1] := |@endOfLi|
|0001a200| 6e 65 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |ne;...pb|.p[0] :=|
|0001a210| 20 40 77 54 3b 0d 09 09 | 70 62 2e 70 5b 30 5d 20 | @wT;...|pb.p[0] |
|0001a220| 3a 3d 20 40 63 49 3b 0d | 09 09 70 62 2e 70 5b 30 |:= @cI;.|..pb.p[0|
|0001a230| 5d 20 3a 3d 20 40 6e 72 | 48 65 61 64 65 72 4c 69 |] := @nr|HeaderLi|
|0001a240| 6e 65 73 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |nes;...p|b.p[0] :|
|0001a250| 3d 20 40 69 6e 70 75 74 | 4f 52 6f 75 74 70 75 74 |= @input|ORoutput|
|0001a260| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001a270| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001a280| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 61 76 65 |..proced|ure Save|
|0001a290| 44 61 74 61 41 73 54 65 | 78 74 20 28 77 69 6e 64 |DataAsTe|xt (wind|
|0001a2a0| 6f 77 49 44 3a 20 6c 6f | 6e 67 69 6e 74 3b 20 66 |owID: lo|ngint; f|
|0001a2b0| 69 6c 65 4e 61 6d 65 3a | 20 53 74 72 32 35 35 29 |ileName:| Str255)|
|0001a2c0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|0001a2d0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001a2e0| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001a2f0| 20 3a 3d 20 31 36 34 3b | 0d 09 09 70 62 2e 70 5b | := 164;|...pb.p[|
|0001a300| 31 5d 20 3a 3d 20 40 77 | 69 6e 64 6f 77 49 44 3b |1] := @w|indowID;|
|0001a310| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 66 |...pb.p[|0] := @f|
|0001a320| 69 6c 65 4e 61 6d 65 3b | 0d 09 09 43 61 6c 6c 52 |ileName;|...CallR|
|0001a330| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|0001a340| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|0001a350| 72 65 20 53 61 76 65 44 | 72 61 77 69 6e 67 41 73 |re SaveD|rawingAs|
|0001a360| 20 28 77 69 6e 64 6f 77 | 49 44 3a 20 6c 6f 6e 67 | (window|ID: long|
|0001a370| 69 6e 74 3b 20 66 69 6c | 65 4e 61 6d 65 3a 20 53 |int; fil|eName: S|
|0001a380| 74 72 32 35 35 3b 20 66 | 6f 72 6d 61 74 3a 20 6c |tr255; f|ormat: l|
|0001a390| 6f 6e 67 69 6e 74 29 3b | 0d 09 09 76 61 72 0d 09 |ongint);|...var..|
|0001a3a0| 09 09 70 62 3a 20 52 75 | 6e 54 69 6d 65 50 61 72 |..pb: Ru|nTimePar|
|0001a3b0| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|0001a3c0| 70 62 2e 77 68 61 74 20 | 3a 3d 20 31 36 35 3b 0d |pb.what |:= 165;.|
|0001a3d0| 09 09 70 62 2e 70 5b 32 | 5d 20 3a 3d 20 40 77 69 |..pb.p[2|] := @wi|
|0001a3e0| 6e 64 6f 77 49 44 3b 0d | 09 09 70 62 2e 70 5b 31 |ndowID;.|..pb.p[1|
|0001a3f0| 5d 20 3a 3d 20 40 66 69 | 6c 65 4e 61 6d 65 3b 0d |] := @fi|leName;.|
|0001a400| 09 09 70 62 2e 70 5b 30 | 5d 20 3a 3d 20 40 66 6f |..pb.p[0|] := @fo|
|0001a410| 72 6d 61 74 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |rmat;...|CallRunT|
|0001a420| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001a430| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001a440| 53 65 74 57 69 6e 64 6f | 77 54 69 74 6c 65 20 28 |SetWindo|wTitle (|
|0001a450| 77 69 6e 64 6f 77 49 44 | 3a 20 6c 6f 6e 67 69 6e |windowID|: longin|
|0001a460| 74 3b 20 6e 61 6d 65 3a | 20 53 74 72 32 35 35 29 |t; name:| Str255)|
|0001a470| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|0001a480| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001a490| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001a4a0| 20 3a 3d 20 31 36 36 3b | 0d 09 09 70 62 2e 70 5b | := 166;|...pb.p[|
|0001a4b0| 31 5d 20 3a 3d 20 40 77 | 69 6e 64 6f 77 49 44 3b |1] := @w|indowID;|
|0001a4c0| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 6e |...pb.p[|0] := @n|
|0001a4d0| 61 6d 65 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |ame;...C|allRunTi|
|0001a4e0| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001a4f0| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |d;...pro|cedure G|
|0001a500| 65 74 57 69 6e 64 6f 77 | 54 69 74 6c 65 20 28 77 |etWindow|Title (w|
|0001a510| 69 6e 64 6f 77 49 44 3a | 20 6c 6f 6e 67 69 6e 74 |indowID:| longint|
|0001a520| 3b 20 76 61 72 20 6e 61 | 6d 65 3a 20 53 74 72 32 |; var na|me: Str2|
|0001a530| 35 35 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |55);...v|ar....pb|
|0001a540| 3a 20 52 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: RunTim|eParamRe|
|0001a550| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|0001a560| 68 61 74 20 3a 3d 20 31 | 34 39 3b 0d 09 09 70 62 |hat := 1|49;...pb|
|0001a570| 2e 70 5b 31 5d 20 3a 3d | 20 40 77 69 6e 64 6f 77 |.p[1] :=| @window|
|0001a580| 49 44 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |ID;...pb|.p[0] :=|
|0001a590| 20 40 6e 61 6d 65 3b 0d | 09 09 43 61 6c 6c 52 75 | @name;.|..CallRu|
|0001a5a0| 6e 54 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |nTimePro|c(@pb);.|
|0001a5b0| 09 65 6e 64 3b 0d 0d 0d | 09 70 72 6f 63 65 64 75 |.end;...|.procedu|
|0001a5c0| 72 65 20 50 6c 61 63 65 | 57 69 6e 64 6f 77 20 28 |re Place|Window (|
|0001a5d0| 77 69 6e 64 6f 77 49 44 | 3a 20 6c 6f 6e 67 69 6e |windowID|: longin|
|0001a5e0| 74 3b 20 77 69 6e 64 6f | 77 52 65 63 74 3a 20 52 |t; windo|wRect: R|
|0001a5f0| 65 63 74 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |ect);...|var....p|
|0001a600| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001a610| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001a620| 77 68 61 74 20 3a 3d 20 | 31 36 37 3b 0d 09 09 70 |what := |167;...p|
|0001a630| 62 2e 70 5b 34 5d 20 3a | 3d 20 40 77 69 6e 64 6f |b.p[4] :|= @windo|
|0001a640| 77 49 44 3b 0d 09 09 70 | 62 2e 70 5b 33 5d 20 3a |wID;...p|b.p[3] :|
|0001a650| 3d 20 40 77 69 6e 64 6f | 77 52 65 63 74 2e 6c 65 |= @windo|wRect.le|
|0001a660| 66 74 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |ft;...pb|.p[2] :=|
|0001a670| 20 40 77 69 6e 64 6f 77 | 52 65 63 74 2e 74 6f 70 | @window|Rect.top|
|0001a680| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001a690| 77 69 6e 64 6f 77 52 65 | 63 74 2e 72 69 67 68 74 |windowRe|ct.right|
|0001a6a0| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|0001a6b0| 77 69 6e 64 6f 77 52 65 | 63 74 2e 62 6f 74 74 6f |windowRe|ct.botto|
|0001a6c0| 6d 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |m;...Cal|lRunTime|
|0001a6d0| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|0001a6e0| 0d 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 42 72 |....proc|edure Br|
|0001a6f0| 69 6e 67 57 69 6e 64 6f | 77 54 6f 46 72 6f 6e 74 |ingWindo|wToFront|
|0001a700| 20 28 77 69 6e 64 6f 77 | 49 44 3a 20 6c 6f 6e 67 | (window|ID: long|
|0001a710| 69 6e 74 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |int);...|var....p|
|0001a720| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001a730| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001a740| 77 68 61 74 20 3a 3d 20 | 31 36 38 3b 0d 09 09 70 |what := |168;...p|
|0001a750| 62 2e 70 5b 30 5d 20 3a | 3d 20 40 77 69 6e 64 6f |b.p[0] :|= @windo|
|0001a760| 77 49 44 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |wID;...C|allRunTi|
|0001a770| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001a780| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 43 |d;...pro|cedure C|
|0001a790| 6f 6d 70 69 6c 65 20 28 | 77 69 6e 64 6f 77 49 44 |ompile (|windowID|
|0001a7a0| 3a 20 6c 6f 6e 67 69 6e | 74 29 3b 0d 09 09 76 61 |: longin|t);...va|
|0001a7b0| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|0001a7c0| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|0001a7d0| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 31 36 |...pb.wh|at := 16|
|0001a7e0| 39 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |9;...pb.|p[0] := |
|0001a7f0| 40 77 69 6e 64 6f 77 49 | 44 3b 0d 09 09 43 61 6c |@windowI|D;...Cal|
|0001a800| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001a810| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|0001a820| 64 75 72 65 20 53 65 74 | 44 61 74 61 53 69 7a 65 |dure Set|DataSize|
|0001a830| 20 28 6e 75 6d 62 65 72 | 4f 66 52 6f 77 73 2c 20 | (number|OfRows, |
|0001a840| 6e 75 6d 62 65 72 4f 66 | 43 6f 6c 75 6d 6e 73 3a |numberOf|Columns:|
|0001a850| 20 6c 6f 6e 67 69 6e 74 | 29 3b 0d 09 09 76 61 72 | longint|);...var|
|0001a860| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001a870| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001a880| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 37 30 |..pb.wha|t := 170|
|0001a890| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001a8a0| 6e 75 6d 62 65 72 4f 66 | 52 6f 77 73 3b 0d 09 09 |numberOf|Rows;...|
|0001a8b0| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 6e 75 6d 62 |pb.p[0] |:= @numb|
|0001a8c0| 65 72 4f 66 43 6f 6c 75 | 6d 6e 73 3b 0d 09 09 43 |erOfColu|mns;...C|
|0001a8d0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001a8e0| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 66 75 6e |pb);..en|d;...fun|
|0001a8f0| 63 74 69 6f 6e 20 47 65 | 74 43 6f 6c 54 79 70 65 |ction Ge|tColType|
|0001a900| 20 28 63 6f 6c 75 6d 6e | 4e 75 6d 62 65 72 3a 20 | (column|Number: |
|0001a910| 6c 6f 6e 67 69 6e 74 29 | 3a 20 6c 6f 6e 67 69 6e |longint)|: longin|
|0001a920| 74 3b 0d 09 09 76 61 72 | 0d 09 09 09 72 65 74 76 |t;...var|....retv|
|0001a930| 61 6c 3a 20 6c 6f 6e 67 | 69 6e 74 3b 0d 09 09 09 |al: long|int;....|
|0001a940| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001a950| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001a960| 2e 77 68 61 74 20 3a 3d | 20 31 37 31 3b 0d 09 09 |.what :=| 171;...|
|0001a970| 70 62 2e 70 5b 31 5d 20 | 3a 3d 20 40 72 65 74 56 |pb.p[1] |:= @retV|
|0001a980| 61 6c 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |al;...pb|.p[0] :=|
|0001a990| 20 40 63 6f 6c 75 6d 6e | 4e 75 6d 62 65 72 3b 0d | @column|Number;.|
|0001a9a0| 09 09 43 61 6c 6c 52 75 | 6e 54 69 6d 65 50 72 6f |..CallRu|nTimePro|
|0001a9b0| 63 28 40 70 62 29 3b 0d | 09 09 47 65 74 43 6f 6c |c(@pb);.|..GetCol|
|0001a9c0| 54 79 70 65 20 3a 3d 20 | 72 65 74 56 61 6c 3b 0d |Type := |retVal;.|
|0001a9d0| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|0001a9e0| 65 20 53 65 74 43 6f 6c | 54 79 70 65 20 28 63 6f |e SetCol|Type (co|
|0001a9f0| 6c 75 6d 6e 4e 75 6d 62 | 65 72 3a 20 6c 6f 6e 67 |lumnNumb|er: long|
|0001aa00| 69 6e 74 3b 20 74 68 65 | 54 79 70 65 3a 20 6c 6f |int; the|Type: lo|
|0001aa10| 6e 67 69 6e 74 29 3b 0d | 09 09 76 61 72 0d 09 09 |ngint);.|..var...|
|0001aa20| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|0001aa30| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|0001aa40| 62 2e 77 68 61 74 20 3a | 3d 20 31 37 32 3b 0d 09 |b.what :|= 172;..|
|0001aa50| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 63 6f 6c |.pb.p[1]| := @col|
|0001aa60| 75 6d 6e 4e 75 6d 62 65 | 72 3b 0d 09 09 70 62 2e |umnNumbe|r;...pb.|
|0001aa70| 70 5b 30 5d 20 3a 3d 20 | 40 74 68 65 54 79 70 65 |p[0] := |@theType|
|0001aa80| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001aa90| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001aaa0| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 53 65 74 |...proce|dure Set|
|0001aab0| 43 6f 6c 57 69 64 74 68 | 20 28 63 6f 6c 75 6d 6e |ColWidth| (column|
|0001aac0| 4e 75 6d 62 65 72 3a 20 | 6c 6f 6e 67 69 6e 74 3b |Number: |longint;|
|0001aad0| 20 77 69 64 74 68 3a 20 | 69 6e 74 65 67 65 72 29 | width: |integer)|
|0001aae0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|0001aaf0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001ab00| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001ab10| 20 3a 3d 20 31 38 34 3b | 0d 09 09 70 62 2e 70 5b | := 184;|...pb.p[|
|0001ab20| 31 5d 20 3a 3d 20 40 63 | 6f 6c 75 6d 6e 4e 75 6d |1] := @c|olumnNum|
|0001ab30| 62 65 72 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |ber;...p|b.p[0] :|
|0001ab40| 3d 20 40 77 69 64 74 68 | 3b 0d 09 09 43 61 6c 6c |= @width|;...Call|
|0001ab50| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|0001ab60| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|0001ab70| 6f 6e 20 43 6f 6c 45 6d | 70 74 79 20 28 63 6f 6c |on ColEm|pty (col|
|0001ab80| 75 6d 6e 4e 75 6d 62 65 | 72 3a 20 6c 6f 6e 67 69 |umnNumbe|r: longi|
|0001ab90| 6e 74 29 3a 20 62 6f 6f | 6c 65 61 6e 3b 0d 09 09 |nt): boo|lean;...|
|0001aba0| 76 61 72 0d 09 09 09 72 | 65 74 76 61 6c 3a 20 62 |var....r|etval: b|
|0001abb0| 6f 6f 6c 65 61 6e 3b 0d | 09 09 09 70 62 3a 20 52 |oolean;.|...pb: R|
|0001abc0| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001abd0| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001abe0| 20 3a 3d 20 31 38 35 3b | 0d 09 09 70 62 2e 70 5b | := 185;|...pb.p[|
|0001abf0| 31 5d 20 3a 3d 20 40 72 | 65 74 56 61 6c 3b 0d 09 |1] := @r|etVal;..|
|0001ac00| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 63 6f 6c |.pb.p[0]| := @col|
|0001ac10| 75 6d 6e 4e 75 6d 62 65 | 72 3b 0d 09 09 43 61 6c |umnNumbe|r;...Cal|
|0001ac20| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001ac30| 29 3b 0d 09 09 43 6f 6c | 45 6d 70 74 79 20 3a 3d |);...Col|Empty :=|
|0001ac40| 20 72 65 74 56 61 6c 3b | 0d 09 65 6e 64 3b 0d 0d | retVal;|..end;..|
|0001ac50| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 42 6f |.procedu|re SetBo|
|0001ac60| 78 54 69 74 6c 65 28 74 | 69 74 6c 65 3a 20 53 74 |xTitle(t|itle: St|
|0001ac70| 72 32 35 35 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 |r255);..|.var....|
|0001ac80| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001ac90| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001aca0| 2e 77 68 61 74 20 3a 3d | 20 31 38 36 3b 0d 09 09 |.what :=| 186;...|
|0001acb0| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 74 69 74 6c |pb.p[0] |:= @titl|
|0001acc0| 65 5b 30 5d 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |e[0];...|CallRunT|
|0001acd0| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001ace0| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001acf0| 53 65 74 57 69 6e 64 6f | 77 49 6e 66 6f 28 77 69 |SetWindo|wInfo(wi|
|0001ad00| 6e 64 6f 77 49 44 3a 6c | 6f 6e 67 69 6e 74 3b 20 |ndowID:l|ongint; |
|0001ad10| 6c 65 6e 67 74 68 3a 20 | 6c 6f 6e 67 69 6e 74 3b |length: |longint;|
|0001ad20| 20 69 6e 66 6f 3a 20 50 | 74 72 29 3b 0d 09 09 76 | info: P|tr);...v|
|0001ad30| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|0001ad40| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001ad50| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 31 |n...pb.w|hat := 1|
|0001ad60| 38 37 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |87;...pb|.p[2] :=|
|0001ad70| 20 40 77 69 6e 64 6f 77 | 49 44 3b 0d 09 09 70 62 | @window|ID;...pb|
|0001ad80| 2e 70 5b 31 5d 20 3a 3d | 20 40 6c 65 6e 67 74 68 |.p[1] :=| @length|
|0001ad90| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 69 |;...pb.p|[0] := i|
|0001ada0| 6e 66 6f 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |nfo;...C|allRunTi|
|0001adb0| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001adc0| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |d;...pro|cedure S|
|0001add0| 65 6c 65 63 74 43 65 6c | 6c 73 20 28 6c 65 66 74 |electCel|ls (left|
|0001ade0| 2c 20 74 6f 70 2c 20 72 | 69 67 68 74 2c 20 62 6f |, top, r|ight, bo|
|0001adf0| 74 74 6f 6d 3a 20 6c 6f | 6e 67 69 6e 74 29 3b 0d |ttom: lo|ngint);.|
|0001ae00| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|0001ae10| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|0001ae20| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|0001ae30| 3d 20 31 37 33 3b 0d 09 | 09 70 62 2e 70 5b 33 5d |= 173;..|.pb.p[3]|
|0001ae40| 20 3a 3d 20 40 6c 65 66 | 74 3b 0d 09 09 70 62 2e | := @lef|t;...pb.|
|0001ae50| 70 5b 32 5d 20 3a 3d 20 | 40 74 6f 70 3b 0d 09 09 |p[2] := |@top;...|
|0001ae60| 70 62 2e 70 5b 31 5d 20 | 3a 3d 20 40 72 69 67 68 |pb.p[1] |:= @righ|
|0001ae70| 74 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |t;...pb.|p[0] := |
|0001ae80| 40 62 6f 74 74 6f 6d 3b | 0d 09 09 43 61 6c 6c 52 |@bottom;|...CallR|
|0001ae90| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|0001aea0| 0d 09 65 6e 64 3b 0d 0d | 0d 09 70 72 6f 63 65 64 |..end;..|..proced|
|0001aeb0| 75 72 65 20 53 65 6c 65 | 63 74 52 6f 77 73 20 28 |ure Sele|ctRows (|
|0001aec0| 74 6f 70 2c 20 62 6f 74 | 74 6f 6d 3a 20 6c 6f 6e |top, bot|tom: lon|
|0001aed0| 67 69 6e 74 3b 20 64 6f | 53 65 6c 65 63 74 3a 20 |gint; do|Select: |
|0001aee0| 42 6f 6f 6c 65 61 6e 29 | 3b 0d 09 09 76 61 72 0d |Boolean)|;...var.|
|0001aef0| 09 09 09 70 62 3a 20 52 | 75 6e 54 69 6d 65 50 61 |...pb: R|unTimePa|
|0001af00| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|0001af10| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 31 37 34 3b |.pb.what| := 174;|
|0001af20| 0d 09 09 70 62 2e 70 5b | 32 5d 20 3a 3d 20 40 74 |...pb.p[|2] := @t|
|0001af30| 6f 70 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |op;...pb|.p[1] :=|
|0001af40| 20 40 62 6f 74 74 6f 6d | 3b 0d 09 09 70 62 2e 70 | @bottom|;...pb.p|
|0001af50| 5b 30 5d 20 3a 3d 20 40 | 64 6f 53 65 6c 65 63 74 |[0] := @|doSelect|
|0001af60| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001af70| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001af80| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 52 6f 77 53 |...funct|ion RowS|
|0001af90| 65 6c 65 63 74 65 64 20 | 28 72 6f 77 4e 75 6d 62 |elected |(rowNumb|
|0001afa0| 65 72 3a 20 6c 6f 6e 67 | 69 6e 74 29 3a 20 62 6f |er: long|int): bo|
|0001afb0| 6f 6c 65 61 6e 3b 0d 09 | 09 76 61 72 0d 09 09 09 |olean;..|.var....|
|0001afc0| 72 65 74 76 61 6c 3a 20 | 62 6f 6f 6c 65 61 6e 3b |retval: |boolean;|
|0001afd0| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001afe0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001aff0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 37 35 |..pb.wha|t := 175|
|0001b000| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001b010| 72 65 74 56 61 6c 3b 0d | 09 09 70 62 2e 70 5b 30 |retVal;.|..pb.p[0|
|0001b020| 5d 20 3a 3d 20 40 72 6f | 77 4e 75 6d 62 65 72 3b |] := @ro|wNumber;|
|0001b030| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|0001b040| 6f 63 28 40 70 62 29 3b | 0d 09 09 52 6f 77 53 65 |oc(@pb);|...RowSe|
|0001b050| 6c 65 63 74 65 64 20 3a | 3d 20 72 65 74 56 61 6c |lected :|= retVal|
|0001b060| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|0001b070| 6f 6e 20 43 65 6c 6c 53 | 65 6c 65 63 74 65 64 20 |on CellS|elected |
|0001b080| 28 72 6f 77 2c 20 63 6f | 6c 75 6d 6e 3a 20 6c 6f |(row, co|lumn: lo|
|0001b090| 6e 67 69 6e 74 29 3a 20 | 42 6f 6f 6c 65 61 6e 3b |ngint): |Boolean;|
|0001b0a0| 0d 09 09 76 61 72 0d 09 | 09 09 72 65 74 76 61 6c |...var..|..retval|
|0001b0b0| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 09 70 62 |: boolea|n;....pb|
|0001b0c0| 3a 20 52 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: RunTim|eParamRe|
|0001b0d0| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|0001b0e0| 68 61 74 20 3a 3d 20 31 | 37 36 3b 0d 09 09 70 62 |hat := 1|76;...pb|
|0001b0f0| 2e 70 5b 32 5d 20 3a 3d | 20 40 72 65 74 56 61 6c |.p[2] :=| @retVal|
|0001b100| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001b110| 72 6f 77 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |row;...p|b.p[0] :|
|0001b120| 3d 20 40 63 6f 6c 75 6d | 6e 3b 0d 09 09 43 61 6c |= @colum|n;...Cal|
|0001b130| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001b140| 29 3b 0d 09 09 43 65 6c | 6c 53 65 6c 65 63 74 65 |);...Cel|lSelecte|
|0001b150| 64 20 3a 3d 20 72 65 74 | 56 61 6c 3b 0d 09 65 6e |d := ret|Val;..en|
|0001b160| 64 3b 0d 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |d;....pr|ocedure |
|0001b170| 53 65 74 43 65 6c 6c 20 | 28 72 6f 77 2c 20 63 6f |SetCell |(row, co|
|0001b180| 6c 75 6d 6e 3a 20 6c 6f | 6e 67 69 6e 74 3b 20 73 |lumn: lo|ngint; s|
|0001b190| 3a 20 53 74 72 32 35 35 | 29 3b 0d 09 09 76 61 72 |: Str255|);...var|
|0001b1a0| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001b1b0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001b1c0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 37 37 |..pb.wha|t := 177|
|0001b1d0| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|0001b1e0| 72 6f 77 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a |row;...p|b.p[1] :|
|0001b1f0| 3d 20 40 63 6f 6c 75 6d | 6e 3b 0d 09 09 70 62 2e |= @colum|n;...pb.|
|0001b200| 70 5b 30 5d 20 3a 3d 20 | 40 73 3b 0d 09 09 43 61 |p[0] := |@s;...Ca|
|0001b210| 6c 6c 52 75 6e 54 69 6d | 65 50 72 6f 63 28 40 70 |llRunTim|eProc(@p|
|0001b220| 62 29 3b 0d 09 65 6e 64 | 3b 0d 0d 09 70 72 6f 63 |b);..end|;...proc|
|0001b230| 65 64 75 72 65 20 47 65 | 74 43 65 6c 6c 20 28 76 |edure Ge|tCell (v|
|0001b240| 61 72 20 73 3a 20 53 74 | 72 32 35 35 3b 20 72 6f |ar s: St|r255; ro|
|0001b250| 77 2c 20 63 6f 6c 75 6d | 6e 3a 20 6c 6f 6e 67 69 |w, colum|n: longi|
|0001b260| 6e 74 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |nt);...v|ar....pb|
|0001b270| 3a 20 52 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: RunTim|eParamRe|
|0001b280| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|0001b290| 68 61 74 20 3a 3d 20 31 | 37 38 3b 0d 09 09 70 62 |hat := 1|78;...pb|
|0001b2a0| 2e 70 5b 32 5d 20 3a 3d | 20 40 72 6f 77 3b 0d 09 |.p[2] :=| @row;..|
|0001b2b0| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 63 6f 6c |.pb.p[1]| := @col|
|0001b2c0| 75 6d 6e 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |umn;...p|b.p[0] :|
|0001b2d0| 3d 20 40 73 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |= @s;...|CallRunT|
|0001b2e0| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001b2f0| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001b300| 47 65 74 43 6f 6c 4e 61 | 6d 65 20 28 76 61 72 20 |GetColNa|me (var |
|0001b310| 6e 61 6d 65 3a 20 53 74 | 72 32 35 35 3b 20 63 6f |name: St|r255; co|
|0001b320| 6c 75 6d 6e 3a 20 6c 6f | 6e 67 69 6e 74 29 3b 0d |lumn: lo|ngint);.|
|0001b330| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|0001b340| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|0001b350| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|0001b360| 3d 20 31 37 39 3b 0d 09 | 09 70 62 2e 70 5b 30 5d |= 179;..|.pb.p[0]|
|0001b370| 20 3a 3d 20 40 6e 61 6d | 65 3b 0d 09 09 70 62 2e | := @nam|e;...pb.|
|0001b380| 70 5b 31 5d 20 3a 3d 20 | 40 63 6f 6c 75 6d 6e 3b |p[1] := |@column;|
|0001b390| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|0001b3a0| 6f 63 28 40 70 62 29 3b | 0d 09 65 6e 64 3b 0d 0d |oc(@pb);|..end;..|
|0001b3b0| 09 70 72 6f 63 65 64 75 | 72 65 20 47 65 74 43 6f |.procedu|re GetCo|
|0001b3c0| 6c 48 61 6e 64 6c 65 20 | 28 63 6f 6c 3a 20 6c 6f |lHandle |(col: lo|
|0001b3d0| 6e 67 69 6e 74 3b 20 76 | 61 72 20 63 6f 6c 48 3a |ngint; v|ar colH:|
|0001b3e0| 20 48 61 6e 64 6c 65 3b | 20 76 61 72 20 6c 65 6e | Handle;| var len|
|0001b3f0| 67 74 68 3a 20 6c 6f 6e | 67 69 6e 74 3b 20 76 61 |gth: lon|gint; va|
|0001b400| 72 20 63 6f 6c 54 79 70 | 65 3a 20 6c 6f 6e 67 69 |r colTyp|e: longi|
|0001b410| 6e 74 3b 20 66 6f 72 57 | 72 69 74 69 6e 67 3a 20 |nt; forW|riting: |
|0001b420| 42 6f 6f 6c 65 61 6e 29 | 3b 0d 09 09 76 61 72 0d |Boolean)|;...var.|
|0001b430| 09 09 09 70 62 3a 20 52 | 75 6e 54 69 6d 65 50 61 |...pb: R|unTimePa|
|0001b440| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|0001b450| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 31 38 31 3b |.pb.what| := 181;|
|0001b460| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 63 |...pb.p[|0] := @c|
|0001b470| 6f 6c 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |ol;...pb|.p[1] :=|
|0001b480| 20 40 63 6f 6c 48 3b 0d | 09 09 70 62 2e 70 5b 32 | @colH;.|..pb.p[2|
|0001b490| 5d 20 3a 3d 20 40 6c 65 | 6e 67 74 68 3b 0d 09 09 |] := @le|ngth;...|
|0001b4a0| 70 62 2e 70 5b 33 5d 20 | 3a 3d 20 40 63 6f 6c 54 |pb.p[3] |:= @colT|
|0001b4b0| 79 70 65 3b 0d 09 09 70 | 62 2e 70 5b 34 5d 20 3a |ype;...p|b.p[4] :|
|0001b4c0| 3d 20 40 66 6f 72 57 72 | 69 74 69 6e 67 3b 0d 09 |= @forWr|iting;..|
|0001b4d0| 09 43 61 6c 6c 52 75 6e | 54 69 6d 65 50 72 6f 63 |.CallRun|TimeProc|
|0001b4e0| 28 40 70 62 29 3b 0d 09 | 65 6e 64 3b 0d 0d 09 70 |(@pb);..|end;...p|
|0001b4f0| 72 6f 63 65 64 75 72 65 | 20 53 65 74 43 6f 6c 48 |rocedure| SetColH|
|0001b500| 61 6e 64 6c 65 20 28 63 | 6f 6c 3a 20 6c 6f 6e 67 |andle (c|ol: long|
|0001b510| 69 6e 74 3b 20 63 6f 6c | 48 3a 20 48 61 6e 64 6c |int; col|H: Handl|
|0001b520| 65 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |e);...va|r....pb:|
|0001b530| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001b540| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001b550| 61 74 20 3a 3d 20 31 38 | 32 3b 0d 09 09 70 62 2e |at := 18|2;...pb.|
|0001b560| 70 5b 30 5d 20 3a 3d 20 | 40 63 6f 6c 3b 0d 09 09 |p[0] := |@col;...|
|0001b570| 70 62 2e 70 5b 31 5d 20 | 3a 3d 20 40 63 6f 6c 48 |pb.p[1] |:= @colH|
|0001b580| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001b590| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001b5a0| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 47 65 74 44 |..proced|ure GetD|
|0001b5b0| 65 66 61 75 6c 74 44 61 | 74 61 20 28 78 43 6f 6c |efaultDa|ta (xCol|
|0001b5c0| 48 2c 20 79 43 6f 6c 48 | 2c 20 78 45 72 72 43 6f |H, yColH|, xErrCo|
|0001b5d0| 6c 48 2c 20 79 45 72 72 | 43 6f 6c 48 3a 20 45 78 |lH, yErr|ColH: Ex|
|0001b5e0| 74 65 6e 64 65 64 41 72 | 72 61 79 48 61 6e 64 6c |tendedAr|rayHandl|
|0001b5f0| 65 50 74 72 3b 20 69 6e | 64 65 63 65 73 48 3a 20 |ePtr; in|decesH: |
|0001b600| 4c 6f 6e 67 41 72 72 61 | 79 48 61 6e 64 6c 65 50 |LongArra|yHandleP|
|0001b610| 74 72 3b 20 76 61 72 20 | 61 72 72 61 79 53 69 7a |tr; var |arraySiz|
|0001b620| 65 3a 20 6c 6f 6e 67 69 | 6e 74 3b 20 73 65 6c 65 |e: longi|nt; sele|
|0001b630| 63 74 65 64 52 6f 77 73 | 4f 6e 6c 79 3a 20 42 6f |ctedRows|Only: Bo|
|0001b640| 6f 6c 65 61 6e 3b 20 69 | 6e 66 6f 3a 20 44 61 74 |olean; i|nfo: Dat|
|0001b650| 61 49 6e 66 6f 50 74 72 | 29 3b 0d 09 09 76 61 72 |aInfoPtr|);...var|
|0001b660| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001b670| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001b680| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 38 33 |..pb.wha|t := 183|
|0001b690| 3b 0d 09 09 70 62 2e 70 | 5b 37 5d 20 3a 3d 20 50 |;...pb.p|[7] := P|
|0001b6a0| 74 72 28 78 43 6f 6c 48 | 29 3b 0d 09 09 70 62 2e |tr(xColH|);...pb.|
|0001b6b0| 70 5b 36 5d 20 3a 3d 20 | 50 74 72 28 79 43 6f 6c |p[6] := |Ptr(yCol|
|0001b6c0| 48 29 3b 0d 09 09 70 62 | 2e 70 5b 35 5d 20 3a 3d |H);...pb|.p[5] :=|
|0001b6d0| 20 50 74 72 28 78 45 72 | 72 43 6f 6c 48 29 3b 0d | Ptr(xEr|rColH);.|
|0001b6e0| 09 09 70 62 2e 70 5b 34 | 5d 20 3a 3d 20 50 74 72 |..pb.p[4|] := Ptr|
|0001b6f0| 28 79 45 72 72 43 6f 6c | 48 29 3b 0d 09 09 70 62 |(yErrCol|H);...pb|
|0001b700| 2e 70 5b 33 5d 20 3a 3d | 20 50 74 72 28 69 6e 64 |.p[3] :=| Ptr(ind|
|0001b710| 65 63 65 73 48 29 3b 0d | 09 09 70 62 2e 70 5b 32 |ecesH);.|..pb.p[2|
|0001b720| 5d 20 3a 3d 20 40 61 72 | 72 61 79 53 69 7a 65 3b |] := @ar|raySize;|
|0001b730| 0d 09 09 70 62 2e 70 5b | 31 5d 20 3a 3d 20 40 73 |...pb.p[|1] := @s|
|0001b740| 65 6c 65 63 74 65 64 52 | 6f 77 73 4f 6e 6c 79 3b |electedR|owsOnly;|
|0001b750| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 50 74 |...pb.p[|0] := Pt|
|0001b760| 72 28 69 6e 66 6f 29 3b | 0d 09 09 43 61 6c 6c 52 |r(info);|...CallR|
|0001b770| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|0001b780| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|0001b790| 72 65 20 53 65 74 57 61 | 69 74 54 69 74 6c 65 20 |re SetWa|itTitle |
|0001b7a0| 28 73 3a 20 53 74 72 32 | 35 35 29 3b 0d 09 09 76 |(s: Str2|55);...v|
|0001b7b0| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|0001b7c0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001b7d0| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 34 |n...pb.w|hat := 4|
|0001b7e0| 36 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |6;...pb.|p[0] := |
|0001b7f0| 40 73 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |@s;...Ca|llRunTim|
|0001b800| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|0001b810| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |;...proc|edure Se|
|0001b820| 74 57 61 69 74 54 65 78 | 74 20 28 73 31 2c 20 73 |tWaitTex|t (s1, s|
|0001b830| 32 2c 20 73 33 2c 20 73 | 34 2c 20 73 35 2c 20 73 |2, s3, s|4, s5, s|
|0001b840| 36 3a 20 53 74 72 32 35 | 35 29 3b 0d 09 09 76 61 |6: Str25|5);...va|
|0001b850| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|0001b860| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|0001b870| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 34 37 |...pb.wh|at := 47|
|0001b880| 3b 0d 09 09 70 62 2e 70 | 5b 35 5d 20 3a 3d 20 40 |;...pb.p|[5] := @|
|0001b890| 73 31 3b 0d 09 09 70 62 | 2e 70 5b 34 5d 20 3a 3d |s1;...pb|.p[4] :=|
|0001b8a0| 20 40 73 32 3b 0d 09 09 | 70 62 2e 70 5b 33 5d 20 | @s2;...|pb.p[3] |
|0001b8b0| 3a 3d 20 40 73 33 3b 0d | 09 09 70 62 2e 70 5b 32 |:= @s3;.|..pb.p[2|
|0001b8c0| 5d 20 3a 3d 20 40 73 34 | 3b 0d 09 09 70 62 2e 70 |] := @s4|;...pb.p|
|0001b8d0| 5b 31 5d 20 3a 3d 20 40 | 73 35 3b 0d 09 09 70 62 |[1] := @|s5;...pb|
|0001b8e0| 2e 70 5b 30 5d 20 3a 3d | 20 40 73 36 3b 0d 09 09 |.p[0] :=| @s6;...|
|0001b8f0| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001b900| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 0d 09 66 |@pb);..e|nd;....f|
|0001b910| 75 6e 63 74 69 6f 6e 20 | 43 72 65 61 74 65 54 65 |unction |CreateTe|
|0001b920| 78 74 46 69 6c 65 20 28 | 66 69 6c 65 4e 61 6d 65 |xtFile (|fileName|
|0001b930| 3a 20 53 74 72 32 35 35 | 29 3a 20 6c 6f 6e 67 69 |: Str255|): longi|
|0001b940| 6e 74 3b 0d 09 09 76 61 | 72 0d 09 09 09 72 65 74 |nt;...va|r....ret|
|0001b950| 76 61 6c 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 09 09 |val: lon|gint;...|
|0001b960| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|0001b970| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|0001b980| 62 2e 77 68 61 74 20 3a | 3d 20 31 39 30 3b 0d 09 |b.what :|= 190;..|
|0001b990| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 72 65 74 |.pb.p[1]| := @ret|
|0001b9a0| 56 61 6c 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |Val;...p|b.p[0] :|
|0001b9b0| 3d 20 40 66 69 6c 65 4e | 61 6d 65 3b 0d 09 09 43 |= @fileN|ame;...C|
|0001b9c0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001b9d0| 70 62 29 3b 0d 09 09 43 | 72 65 61 74 65 54 65 78 |pb);...C|reateTex|
|0001b9e0| 74 46 69 6c 65 20 3a 3d | 20 72 65 74 56 61 6c 3b |tFile :=| retVal;|
|0001b9f0| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|0001ba00| 72 65 20 43 6c 6f 73 65 | 54 65 78 74 46 69 6c 65 |re Close|TextFile|
|0001ba10| 20 28 66 69 6c 65 52 65 | 66 4e 75 6d 62 65 72 3a | (fileRe|fNumber:|
|0001ba20| 20 6c 6f 6e 67 69 6e 74 | 29 3b 0d 09 09 76 61 72 | longint|);...var|
|0001ba30| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001ba40| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001ba50| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 39 31 |..pb.wha|t := 191|
|0001ba60| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|0001ba70| 66 69 6c 65 52 65 66 4e | 75 6d 62 65 72 3b 0d 09 |fileRefN|umber;..|
|0001ba80| 09 43 61 6c 6c 52 75 6e | 54 69 6d 65 50 72 6f 63 |.CallRun|TimeProc|
|0001ba90| 28 40 70 62 29 3b 0d 09 | 65 6e 64 3b 0d 0d 09 70 |(@pb);..|end;...p|
|0001baa0| 72 6f 63 65 64 75 72 65 | 20 57 72 69 74 65 54 6f |rocedure| WriteTo|
|0001bab0| 54 65 78 74 46 69 6c 65 | 20 28 66 69 6c 65 52 65 |TextFile| (fileRe|
|0001bac0| 66 4e 75 6d 62 65 72 3a | 20 6c 6f 6e 67 69 6e 74 |fNumber:| longint|
|0001bad0| 29 3b 0d 09 09 76 61 72 | 0d 09 09 09 70 62 3a 20 |);...var|....pb: |
|0001bae0| 52 75 6e 54 69 6d 65 50 | 61 72 61 6d 52 65 63 3b |RunTimeP|aramRec;|
|0001baf0| 0d 09 62 65 67 69 6e 0d | 09 09 70 62 2e 77 68 61 |..begin.|..pb.wha|
|0001bb00| 74 20 3a 3d 20 31 39 32 | 3b 0d 09 09 70 62 2e 70 |t := 192|;...pb.p|
|0001bb10| 5b 30 5d 20 3a 3d 20 40 | 66 69 6c 65 52 65 66 4e |[0] := @|fileRefN|
|0001bb20| 75 6d 62 65 72 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |umber;..|.CallRun|
|0001bb30| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|0001bb40| 65 6e 64 3b 0d 0d 0d 09 | 70 72 6f 63 65 64 75 72 |end;....|procedur|
|0001bb50| 65 20 48 61 6e 64 6c 65 | 45 76 65 6e 74 20 28 76 |e Handle|Event (v|
|0001bb60| 61 72 20 74 68 65 45 76 | 65 6e 74 3a 20 45 76 65 |ar theEv|ent: Eve|
|0001bb70| 6e 74 52 65 63 6f 72 64 | 29 3b 0d 09 09 76 61 72 |ntRecord|);...var|
|0001bb80| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001bb90| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001bba0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 31 39 33 |..pb.wha|t := 193|
|0001bbb0| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|0001bbc0| 74 68 65 45 76 65 6e 74 | 3b 0d 09 09 43 61 6c 6c |theEvent|;...Call|
|0001bbd0| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|0001bbe0| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|0001bbf0| 6f 6e 20 43 61 6e 63 65 | 6c 45 76 65 6e 74 20 28 |on Cance|lEvent (|
|0001bc00| 76 61 72 20 74 68 65 45 | 76 65 6e 74 3a 20 45 76 |var theE|vent: Ev|
|0001bc10| 65 6e 74 52 65 63 6f 72 | 64 29 3a 42 6f 6f 6c 65 |entRecor|d):Boole|
|0001bc20| 61 6e 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |an;...va|r....pb:|
|0001bc30| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001bc40| 3b 0d 09 09 09 72 65 74 | 76 61 6c 3a 20 42 6f 6f |;....ret|val: Boo|
|0001bc50| 6c 65 61 6e 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |lean;..b|egin...p|
|0001bc60| 62 2e 77 68 61 74 20 3a | 3d 20 31 39 36 3b 0d 09 |b.what :|= 196;..|
|0001bc70| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 74 68 65 |.pb.p[0]| := @the|
|0001bc80| 45 76 65 6e 74 3b 0d 09 | 09 70 62 2e 70 5b 31 5d |Event;..|.pb.p[1]|
|0001bc90| 20 3a 3d 20 40 72 65 74 | 76 61 6c 3b 0d 09 09 43 | := @ret|val;...C|
|0001bca0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001bcb0| 70 62 29 3b 0d 09 09 43 | 61 6e 63 65 6c 45 76 65 |pb);...C|ancelEve|
|0001bcc0| 6e 74 20 3a 3d 20 72 65 | 74 76 61 6c 3b 0d 09 65 |nt := re|tval;..e|
|0001bcd0| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001bce0| 44 65 61 63 74 69 76 61 | 74 65 50 72 6f 46 69 74 |Deactiva|teProFit|
|0001bcf0| 57 69 6e 64 6f 77 73 3b | 0d 09 09 76 61 72 0d 09 |Windows;|...var..|
|0001bd00| 09 09 70 62 3a 20 52 75 | 6e 54 69 6d 65 50 61 72 |..pb: Ru|nTimePar|
|0001bd10| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|0001bd20| 70 62 2e 77 68 61 74 20 | 3a 3d 20 31 39 34 3b 0d |pb.what |:= 194;.|
|0001bd30| 09 09 43 61 6c 6c 52 75 | 6e 54 69 6d 65 50 72 6f |..CallRu|nTimePro|
|0001bd40| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|0001bd50| 70 72 6f 63 65 64 75 72 | 65 20 41 63 74 69 76 61 |procedur|e Activa|
|0001bd60| 74 65 50 72 6f 46 69 74 | 57 69 6e 64 6f 77 73 3b |teProFit|Windows;|
|0001bd70| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|0001bd80| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001bd90| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001bda0| 3a 3d 20 31 39 35 3b 0d | 09 09 43 61 6c 6c 52 75 |:= 195;.|..CallRu|
|0001bdb0| 6e 54 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |nTimePro|c(@pb);.|
|0001bdc0| 09 65 6e 64 3b 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |.end;...|function|
|0001bdd0| 20 47 65 74 4d 6f 64 75 | 6c 65 46 69 6c 65 3a 20 | GetModu|leFile: |
|0001bde0| 46 53 53 70 65 63 50 74 | 72 3b 0d 09 09 76 61 72 |FSSpecPt|r;...var|
|0001bdf0| 0d 09 09 09 6d 6f 64 75 | 6c 65 73 50 61 72 61 6d |....modu|lesParam|
|0001be00| 73 3a 20 45 78 74 4d 6f | 64 75 6c 65 73 50 61 72 |s: ExtMo|dulesPar|
|0001be10| 61 6d 42 6c 6f 63 6b 50 | 74 72 3b 0d 09 62 65 67 |amBlockP|tr;..beg|
|0001be20| 69 6e 0d 09 09 6d 6f 64 | 75 6c 65 73 50 61 72 61 |in...mod|ulesPara|
|0001be30| 6d 73 20 3a 3d 20 47 65 | 74 50 62 3b 0d 09 09 47 |ms := Ge|tPb;...G|
|0001be40| 65 74 4d 6f 64 75 6c 65 | 46 69 6c 65 20 3a 3d 20 |etModule|File := |
|0001be50| 40 6d 6f 64 75 6c 65 73 | 50 61 72 61 6d 73 5e 2e |@modules|Params^.|
|0001be60| 6d 6f 64 75 6c 65 46 69 | 6c 65 3b 0d 09 65 6e 64 |moduleFi|le;..end|
|0001be70| 3b 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 4f |;....pro|cedure O|
|0001be80| 70 65 6e 43 75 72 76 65 | 20 28 63 75 72 76 65 4e |penCurve| (curveN|
|0001be90| 61 6d 65 3a 20 53 74 72 | 32 35 35 29 3b 0d 09 09 |ame: Str|255);...|
|0001bea0| 76 61 72 0d 09 09 09 70 | 62 3a 20 52 75 6e 54 69 |var....p|b: RunTi|
|0001beb0| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|0001bec0| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|0001bed0| 32 32 34 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |224;...p|b.p[0] :|
|0001bee0| 3d 20 40 63 75 72 76 65 | 4e 61 6d 65 3b 0d 09 09 |= @curve|Name;...|
|0001bef0| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001bf00| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001bf10| 6f 63 65 64 75 72 65 20 | 43 6c 6f 73 65 43 75 72 |ocedure |CloseCur|
|0001bf20| 76 65 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |ve;...va|r....pb:|
|0001bf30| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001bf40| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001bf50| 61 74 20 3a 3d 20 32 31 | 36 3b 0d 09 09 43 61 6c |at := 21|6;...Cal|
|0001bf60| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001bf70| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|0001bf80| 64 75 72 65 20 4f 70 65 | 6e 44 61 74 61 53 65 74 |dure Ope|nDataSet|
|0001bf90| 20 28 65 72 72 6f 72 73 | 3a 20 69 6e 74 65 67 65 | (errors|: intege|
|0001bfa0| 72 3b 20 63 6f 6e 6e 65 | 63 74 65 64 3a 20 42 6f |r; conne|cted: Bo|
|0001bfb0| 6f 6c 65 61 6e 3b 20 64 | 61 74 61 73 65 74 4e 61 |olean; d|atasetNa|
|0001bfc0| 6d 65 3a 20 53 74 72 32 | 35 35 29 3b 0d 09 09 76 |me: Str2|55);...v|
|0001bfd0| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|0001bfe0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001bff0| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 32 |n...pb.w|hat := 2|
|0001c000| 32 35 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |25;...pb|.p[2] :=|
|0001c010| 20 40 65 72 72 6f 72 73 | 3b 0d 09 09 70 62 2e 70 | @errors|;...pb.p|
|0001c020| 5b 31 5d 20 3a 3d 20 40 | 63 6f 6e 6e 65 63 74 65 |[1] := @|connecte|
|0001c030| 64 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |d;...pb.|p[0] := |
|0001c040| 40 64 61 74 61 73 65 74 | 4e 61 6d 65 3b 0d 09 09 |@dataset|Name;...|
|0001c050| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001c060| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001c070| 6f 63 65 64 75 72 65 20 | 43 6c 6f 73 65 44 61 74 |ocedure |CloseDat|
|0001c080| 61 53 65 74 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |aSet;...|var....p|
|0001c090| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001c0a0| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001c0b0| 77 68 61 74 20 3a 3d 20 | 32 31 37 3b 0d 09 09 43 |what := |217;...C|
|0001c0c0| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001c0d0| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 09 70 72 6f |pb);..en|d;...pro|
|0001c0e0| 63 65 64 75 72 65 20 53 | 65 74 43 75 72 76 65 46 |cedure S|etCurveF|
|0001c0f0| 69 6c 6c 20 28 77 68 69 | 63 68 41 78 69 73 3a 20 |ill (whi|chAxis: |
|0001c100| 69 6e 74 65 67 65 72 3b | 20 61 78 69 73 49 44 3a |integer;| axisID:|
|0001c110| 20 69 6e 74 65 67 65 72 | 29 3b 0d 09 09 76 61 72 | integer|);...var|
|0001c120| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001c130| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001c140| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 34 38 |..pb.wha|t := 248|
|0001c150| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001c160| 77 68 69 63 68 41 78 69 | 73 3b 0d 09 09 70 62 2e |whichAxi|s;...pb.|
|0001c170| 70 5b 30 5d 20 3a 3d 20 | 40 61 78 69 73 49 44 3b |p[0] := |@axisID;|
|0001c180| 0d 09 09 43 61 6c 6c 52 | 75 6e 54 69 6d 65 50 72 |...CallR|unTimePr|
|0001c190| 6f 63 28 40 70 62 29 3b | 0d 09 65 6e 64 3b 0d 0d |oc(@pb);|..end;..|
|0001c1a0| 09 70 72 6f 63 65 64 75 | 72 65 20 53 65 74 45 42 |.procedu|re SetEB|
|0001c1b0| 61 72 53 74 79 6c 65 20 | 28 63 61 70 6c 65 6e 67 |arStyle |(capleng|
|0001c1c0| 74 68 2c 20 63 61 70 54 | 68 69 63 6b 2c 20 6c 69 |th, capT|hick, li|
|0001c1d0| 6e 65 54 68 69 63 6b 3a | 20 65 78 74 65 6e 64 65 |neThick:| extende|
|0001c1e0| 64 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |d);...va|r....pb:|
|0001c1f0| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001c200| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001c210| 61 74 20 3a 3d 20 32 34 | 39 3b 0d 09 09 70 62 2e |at := 24|9;...pb.|
|0001c220| 70 5b 32 5d 20 3a 3d 20 | 40 63 61 70 6c 65 6e 67 |p[2] := |@capleng|
|0001c230| 74 68 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |th;...pb|.p[1] :=|
|0001c240| 20 40 63 61 70 54 68 69 | 63 6b 3b 0d 09 09 70 62 | @capThi|ck;...pb|
|0001c250| 2e 70 5b 30 5d 20 3a 3d | 20 40 6c 69 6e 65 54 68 |.p[0] :=| @lineTh|
|0001c260| 69 63 6b 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |ick;...C|allRunTi|
|0001c270| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001c280| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 41 |d;...pro|cedure A|
|0001c290| 64 64 44 61 74 61 50 6f | 69 6e 74 20 28 78 2c 20 |ddDataPo|int (x, |
|0001c2a0| 79 2c 20 78 45 72 72 2c | 20 79 45 72 72 2c 20 78 |y, xErr,| yErr, x|
|0001c2b0| 45 72 72 31 2c 20 79 45 | 72 72 31 3a 20 65 78 74 |Err1, yE|rr1: ext|
|0001c2c0| 65 6e 64 65 64 29 3b 0d | 09 09 76 61 72 0d 09 09 |ended);.|..var...|
|0001c2d0| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|0001c2e0| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|0001c2f0| 62 2e 77 68 61 74 20 3a | 3d 20 32 35 30 3b 0d 09 |b.what :|= 250;..|
|0001c300| 09 70 62 2e 70 5b 35 5d | 20 3a 3d 20 40 78 3b 0d |.pb.p[5]| := @x;.|
|0001c310| 09 09 70 62 2e 70 5b 34 | 5d 20 3a 3d 20 40 79 3b |..pb.p[4|] := @y;|
|0001c320| 0d 09 09 70 62 2e 70 5b | 33 5d 20 3a 3d 20 40 78 |...pb.p[|3] := @x|
|0001c330| 45 72 72 3b 0d 09 09 70 | 62 2e 70 5b 32 5d 20 3a |Err;...p|b.p[2] :|
|0001c340| 3d 20 40 79 45 72 72 3b | 0d 09 09 70 62 2e 70 5b |= @yErr;|...pb.p[|
|0001c350| 31 5d 20 3a 3d 20 40 78 | 45 72 72 31 3b 0d 09 09 |1] := @x|Err1;...|
|0001c360| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 79 45 72 72 |pb.p[0] |:= @yErr|
|0001c370| 31 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |1;...Cal|lRunTime|
|0001c380| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|0001c390| 0d 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |.....pro|cedure S|
|0001c3a0| 65 74 4c 69 6e 65 53 74 | 79 6c 65 20 28 74 68 69 |etLineSt|yle (thi|
|0001c3b0| 63 6b 3a 20 65 78 74 65 | 6e 64 65 64 3b 20 64 61 |ck: exte|nded; da|
|0001c3c0| 73 68 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 09 09 |sh: inte|ger);...|
|0001c3d0| 76 61 72 0d 09 09 09 70 | 62 3a 20 52 75 6e 54 69 |var....p|b: RunTi|
|0001c3e0| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|0001c3f0| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|0001c400| 32 30 30 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a |200;...p|b.p[1] :|
|0001c410| 3d 20 40 74 68 69 63 6b | 3b 0d 09 09 70 62 2e 70 |= @thick|;...pb.p|
|0001c420| 5b 30 5d 20 3a 3d 20 40 | 64 61 73 68 3b 0d 09 09 |[0] := @|dash;...|
|0001c430| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001c440| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001c450| 6f 63 65 64 75 72 65 20 | 53 65 74 46 69 6c 6c 50 |ocedure |SetFillP|
|0001c460| 61 74 74 65 72 6e 20 28 | 70 61 74 74 65 72 6e 3a |attern (|pattern:|
|0001c470| 20 69 6e 74 65 67 65 72 | 29 3b 0d 09 09 76 61 72 | integer|);...var|
|0001c480| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001c490| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001c4a0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 30 31 |..pb.wha|t := 201|
|0001c4b0| 3b 0d 09 09 70 62 2e 70 | 5b 30 5d 20 3a 3d 20 40 |;...pb.p|[0] := @|
|0001c4c0| 70 61 74 74 65 72 6e 3b | 0d 09 09 43 61 6c 6c 52 |pattern;|...CallR|
|0001c4d0| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|0001c4e0| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|0001c4f0| 72 65 20 53 65 74 41 72 | 72 6f 77 53 74 79 6c 65 |re SetAr|rowStyle|
|0001c500| 20 28 61 72 72 6f 77 4c | 6f 63 61 74 69 6f 6e 3a | (arrowL|ocation:|
|0001c510| 20 69 6e 74 65 67 65 72 | 3b 20 73 74 79 6c 65 3a | integer|; style:|
|0001c520| 20 69 6e 74 65 67 65 72 | 3b 20 73 69 7a 65 3a 20 | integer|; size: |
|0001c530| 65 78 74 65 6e 64 65 64 | 29 3b 0d 09 09 76 61 72 |extended|);...var|
|0001c540| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001c550| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001c560| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 30 32 |..pb.wha|t := 202|
|0001c570| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|0001c580| 61 72 72 6f 77 4c 6f 63 | 61 74 69 6f 6e 3b 0d 09 |arrowLoc|ation;..|
|0001c590| 09 70 62 2e 70 5b 31 5d | 20 3a 3d 20 40 73 74 79 |.pb.p[1]| := @sty|
|0001c5a0| 6c 65 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |le;...pb|.p[0] :=|
|0001c5b0| 20 40 73 69 7a 65 3b 0d | 09 09 43 61 6c 6c 52 75 | @size;.|..CallRu|
|0001c5c0| 6e 54 69 6d 65 50 72 6f | 63 28 40 70 62 29 3b 0d |nTimePro|c(@pb);.|
|0001c5d0| 09 65 6e 64 3b 0d 0d 09 | 70 72 6f 63 65 64 75 72 |.end;...|procedur|
|0001c5e0| 65 20 53 65 74 54 65 78 | 74 53 74 79 6c 65 20 28 |e SetTex|tStyle (|
|0001c5f0| 66 6f 6e 74 4e 61 6d 65 | 3a 20 53 74 72 32 35 35 |fontName|: Str255|
|0001c600| 3b 20 73 69 7a 65 3a 20 | 65 78 74 65 6e 64 65 64 |; size: |extended|
|0001c610| 3b 20 73 74 79 6c 65 3a | 20 69 6e 74 65 67 65 72 |; style:| integer|
|0001c620| 29 3b 0d 09 09 76 61 72 | 0d 09 09 09 70 62 3a 20 |);...var|....pb: |
|0001c630| 52 75 6e 54 69 6d 65 50 | 61 72 61 6d 52 65 63 3b |RunTimeP|aramRec;|
|0001c640| 0d 09 62 65 67 69 6e 0d | 09 09 70 62 2e 77 68 61 |..begin.|..pb.wha|
|0001c650| 74 20 3a 3d 20 32 30 33 | 3b 0d 09 09 70 62 2e 70 |t := 203|;...pb.p|
|0001c660| 5b 32 5d 20 3a 3d 20 40 | 66 6f 6e 74 4e 61 6d 65 |[2] := @|fontName|
|0001c670| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001c680| 73 69 7a 65 3b 0d 09 09 | 70 62 2e 70 5b 30 5d 20 |size;...|pb.p[0] |
|0001c690| 3a 3d 20 40 73 74 79 6c | 65 3b 0d 09 09 43 61 6c |:= @styl|e;...Cal|
|0001c6a0| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001c6b0| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|0001c6c0| 64 75 72 65 20 53 65 74 | 4e 65 77 47 72 61 70 68 |dure Set|NewGraph|
|0001c6d0| 52 65 63 74 20 28 6c 65 | 66 74 2c 20 74 6f 70 2c |Rect (le|ft, top,|
|0001c6e0| 20 72 69 67 68 74 2c 20 | 62 6f 74 74 6f 6d 3a 20 | right, |bottom: |
|0001c6f0| 65 78 74 65 6e 64 65 64 | 29 3b 0d 09 09 76 61 72 |extended|);...var|
|0001c700| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001c710| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001c720| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 31 38 |..pb.wha|t := 218|
|0001c730| 3b 0d 09 09 70 62 2e 70 | 5b 33 5d 20 3a 3d 20 40 |;...pb.p|[3] := @|
|0001c740| 6c 65 66 74 3b 0d 09 09 | 70 62 2e 70 5b 32 5d 20 |left;...|pb.p[2] |
|0001c750| 3a 3d 20 40 74 6f 70 3b | 0d 09 09 70 62 2e 70 5b |:= @top;|...pb.p[|
|0001c760| 31 5d 20 3a 3d 20 40 72 | 69 67 68 74 3b 0d 09 09 |1] := @r|ight;...|
|0001c770| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 62 6f 74 74 |pb.p[0] |:= @bott|
|0001c780| 6f 6d 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |om;...Ca|llRunTim|
|0001c790| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|0001c7a0| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |;...proc|edure Se|
|0001c7b0| 74 44 61 74 61 50 6f 69 | 6e 74 53 74 79 6c 65 20 |tDataPoi|ntStyle |
|0001c7c0| 28 73 74 79 6c 65 3a 20 | 69 6e 74 65 67 65 72 3b |(style: |integer;|
|0001c7d0| 20 73 69 7a 65 3a 20 65 | 78 74 65 6e 64 65 64 3b | size: e|xtended;|
|0001c7e0| 20 74 68 69 63 6b 6e 65 | 73 73 3a 20 65 78 74 65 | thickne|ss: exte|
|0001c7f0| 6e 64 65 64 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 |nded);..|.var....|
|0001c800| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001c810| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001c820| 2e 77 68 61 74 20 3a 3d | 20 32 30 34 3b 0d 09 09 |.what :=| 204;...|
|0001c830| 70 62 2e 70 5b 32 5d 20 | 3a 3d 20 40 73 74 79 6c |pb.p[2] |:= @styl|
|0001c840| 65 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |e;...pb.|p[1] := |
|0001c850| 40 73 69 7a 65 3b 0d 09 | 09 70 62 2e 70 5b 30 5d |@size;..|.pb.p[0]|
|0001c860| 20 3a 3d 20 40 74 68 69 | 63 6b 6e 65 73 73 3b 0d | := @thi|ckness;.|
|0001c870| 09 09 43 61 6c 6c 52 75 | 6e 54 69 6d 65 50 72 6f |..CallRu|nTimePro|
|0001c880| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|0001c890| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 42 47 44 |procedur|e SetBGD|
|0001c8a0| 61 74 61 50 6f 69 6e 74 | 53 74 79 6c 65 20 28 73 |ataPoint|Style (s|
|0001c8b0| 74 79 6c 65 3a 20 69 6e | 74 65 67 65 72 3b 20 73 |tyle: in|teger; s|
|0001c8c0| 69 7a 65 3a 20 65 78 74 | 65 6e 64 65 64 29 3b 0d |ize: ext|ended);.|
|0001c8d0| 09 09 76 61 72 0d 09 09 | 09 70 62 3a 20 52 75 6e |..var...|.pb: Run|
|0001c8e0| 54 69 6d 65 50 61 72 61 | 6d 52 65 63 3b 0d 09 62 |TimePara|mRec;..b|
|0001c8f0| 65 67 69 6e 0d 09 09 70 | 62 2e 77 68 61 74 20 3a |egin...p|b.what :|
|0001c900| 3d 20 32 30 35 3b 0d 09 | 09 70 62 2e 70 5b 31 5d |= 205;..|.pb.p[1]|
|0001c910| 20 3a 3d 20 40 73 74 79 | 6c 65 3b 0d 09 09 70 62 | := @sty|le;...pb|
|0001c920| 2e 70 5b 30 5d 20 3a 3d | 20 40 73 69 7a 65 3b 0d |.p[0] :=| @size;.|
|0001c930| 09 09 43 61 6c 6c 52 75 | 6e 54 69 6d 65 50 72 6f |..CallRu|nTimePro|
|0001c940| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|0001c950| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 4c 69 6e |procedur|e SetLin|
|0001c960| 65 43 6f 6c 6f 72 20 28 | 72 65 64 2c 20 67 72 65 |eColor (|red, gre|
|0001c970| 65 6e 2c 20 62 6c 75 65 | 3a 20 6c 6f 6e 67 69 6e |en, blue|: longin|
|0001c980| 74 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |t);...va|r....pb:|
|0001c990| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001c9a0| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001c9b0| 61 74 20 3a 3d 20 32 30 | 36 3b 0d 09 09 70 62 2e |at := 20|6;...pb.|
|0001c9c0| 70 5b 32 5d 20 3a 3d 20 | 40 72 65 64 3b 0d 09 09 |p[2] := |@red;...|
|0001c9d0| 70 62 2e 70 5b 31 5d 20 | 3a 3d 20 40 67 72 65 65 |pb.p[1] |:= @gree|
|0001c9e0| 6e 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |n;...pb.|p[0] := |
|0001c9f0| 40 62 6c 75 65 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |@blue;..|.CallRun|
|0001ca00| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|0001ca10| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|0001ca20| 20 53 65 74 46 69 6c 6c | 43 6f 6c 6f 72 20 28 72 | SetFill|Color (r|
|0001ca30| 65 64 2c 20 67 72 65 65 | 6e 2c 20 62 6c 75 65 3a |ed, gree|n, blue:|
|0001ca40| 20 6c 6f 6e 67 69 6e 74 | 29 3b 0d 09 09 76 61 72 | longint|);...var|
|0001ca50| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001ca60| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001ca70| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 30 37 |..pb.wha|t := 207|
|0001ca80| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|0001ca90| 72 65 64 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a |red;...p|b.p[1] :|
|0001caa0| 3d 20 40 67 72 65 65 6e | 3b 0d 09 09 70 62 2e 70 |= @green|;...pb.p|
|0001cab0| 5b 30 5d 20 3a 3d 20 40 | 62 6c 75 65 3b 0d 09 09 |[0] := @|blue;...|
|0001cac0| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001cad0| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001cae0| 6f 63 65 64 75 72 65 20 | 44 72 61 77 52 65 63 74 |ocedure |DrawRect|
|0001caf0| 20 28 6c 65 66 74 2c 20 | 74 6f 70 2c 20 72 69 67 | (left, |top, rig|
|0001cb00| 68 74 2c 20 62 6f 74 74 | 6f 6d 3a 20 65 78 74 65 |ht, bott|om: exte|
|0001cb10| 6e 64 65 64 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 |nded);..|.var....|
|0001cb20| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001cb30| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001cb40| 2e 77 68 61 74 20 3a 3d | 20 32 30 38 3b 0d 09 09 |.what :=| 208;...|
|0001cb50| 70 62 2e 70 5b 33 5d 20 | 3a 3d 20 40 6c 65 66 74 |pb.p[3] |:= @left|
|0001cb60| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|0001cb70| 74 6f 70 3b 0d 09 09 70 | 62 2e 70 5b 31 5d 20 3a |top;...p|b.p[1] :|
|0001cb80| 3d 20 40 72 69 67 68 74 | 3b 0d 09 09 70 62 2e 70 |= @right|;...pb.p|
|0001cb90| 5b 30 5d 20 3a 3d 20 40 | 62 6f 74 74 6f 6d 3b 0d |[0] := @|bottom;.|
|0001cba0| 09 09 43 61 6c 6c 52 75 | 6e 54 69 6d 65 50 72 6f |..CallRu|nTimePro|
|0001cbb0| 63 28 40 70 62 29 3b 0d | 09 65 6e 64 3b 0d 0d 09 |c(@pb);.|.end;...|
|0001cbc0| 70 72 6f 63 65 64 75 72 | 65 20 44 72 61 77 45 6c |procedur|e DrawEl|
|0001cbd0| 6c 69 70 73 65 20 28 6c | 65 66 74 2c 20 74 6f 70 |lipse (l|eft, top|
|0001cbe0| 2c 20 72 69 67 68 74 2c | 20 62 6f 74 74 6f 6d 3a |, right,| bottom:|
|0001cbf0| 20 65 78 74 65 6e 64 65 | 64 29 3b 0d 09 09 76 61 | extende|d);...va|
|0001cc00| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|0001cc10| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|0001cc20| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 32 30 |...pb.wh|at := 20|
|0001cc30| 39 3b 0d 09 09 70 62 2e | 70 5b 33 5d 20 3a 3d 20 |9;...pb.|p[3] := |
|0001cc40| 40 6c 65 66 74 3b 0d 09 | 09 70 62 2e 70 5b 32 5d |@left;..|.pb.p[2]|
|0001cc50| 20 3a 3d 20 40 74 6f 70 | 3b 0d 09 09 70 62 2e 70 | := @top|;...pb.p|
|0001cc60| 5b 31 5d 20 3a 3d 20 40 | 72 69 67 68 74 3b 0d 09 |[1] := @|right;..|
|0001cc70| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 62 6f 74 |.pb.p[0]| := @bot|
|0001cc80| 74 6f 6d 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |tom;...C|allRunTi|
|0001cc90| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001cca0| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 44 |d;...pro|cedure D|
|0001ccb0| 72 61 77 4c 69 6e 65 20 | 28 73 74 61 72 74 5f 68 |rawLine |(start_h|
|0001ccc0| 2c 20 73 74 61 72 74 5f | 76 2c 20 65 6e 64 5f 68 |, start_|v, end_h|
|0001ccd0| 2c 20 65 6e 64 5f 76 3a | 20 65 78 74 65 6e 64 65 |, end_v:| extende|
|0001cce0| 64 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |d);...va|r....pb:|
|0001ccf0| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001cd00| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001cd10| 61 74 20 3a 3d 20 32 31 | 30 3b 0d 09 09 70 62 2e |at := 21|0;...pb.|
|0001cd20| 70 5b 33 5d 20 3a 3d 20 | 40 73 74 61 72 74 5f 68 |p[3] := |@start_h|
|0001cd30| 3b 0d 09 09 70 62 2e 70 | 5b 32 5d 20 3a 3d 20 40 |;...pb.p|[2] := @|
|0001cd40| 73 74 61 72 74 5f 76 3b | 0d 09 09 70 62 2e 70 5b |start_v;|...pb.p[|
|0001cd50| 31 5d 20 3a 3d 20 40 65 | 6e 64 5f 68 3b 0d 09 09 |1] := @e|nd_h;...|
|0001cd60| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 65 6e 64 5f |pb.p[0] |:= @end_|
|0001cd70| 76 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |v;...Cal|lRunTime|
|0001cd80| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|0001cd90| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 44 72 61 |...proce|dure Dra|
|0001cda0| 77 54 65 78 74 4c 69 6e | 65 20 28 74 68 65 53 74 |wTextLin|e (theSt|
|0001cdb0| 72 69 6e 67 3a 20 53 74 | 72 32 35 35 3b 20 74 68 |ring: St|r255; th|
|0001cdc0| 65 41 6e 67 6c 65 3a 20 | 65 78 74 65 6e 64 65 64 |eAngle: |extended|
|0001cdd0| 3b 20 64 6f 63 65 6e 74 | 65 72 3a 20 42 6f 6f 6c |; docent|er: Bool|
|0001cde0| 65 61 6e 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |ean);...|var....p|
|0001cdf0| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001ce00| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001ce10| 77 68 61 74 20 3a 3d 20 | 32 31 31 3b 0d 09 09 70 |what := |211;...p|
|0001ce20| 62 2e 70 5b 32 5d 20 3a | 3d 20 40 74 68 65 53 74 |b.p[2] :|= @theSt|
|0001ce30| 72 69 6e 67 3b 0d 09 09 | 70 62 2e 70 5b 31 5d 20 |ring;...|pb.p[1] |
|0001ce40| 3a 3d 20 40 74 68 65 41 | 6e 67 6c 65 3b 0d 09 09 |:= @theA|ngle;...|
|0001ce50| 70 62 2e 70 5b 30 5d 20 | 3a 3d 20 40 64 6f 63 65 |pb.p[0] |:= @doce|
|0001ce60| 6e 74 65 72 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |nter;...|CallRunT|
|0001ce70| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001ce80| 6e 64 3b 0d 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |nd;....p|rocedure|
|0001ce90| 20 44 72 61 77 4e 75 6d | 62 65 72 20 28 74 68 65 | DrawNum|ber (the|
|0001cea0| 4e 75 6d 3a 20 65 78 74 | 65 6e 64 65 64 3b 20 64 |Num: ext|ended; d|
|0001ceb0| 65 63 73 3a 20 69 6e 74 | 65 67 65 72 3b 20 74 68 |ecs: int|eger; th|
|0001cec0| 65 41 6e 67 6c 65 3a 20 | 65 78 74 65 6e 64 65 64 |eAngle: |extended|
|0001ced0| 3b 20 64 6f 63 65 6e 74 | 65 72 3a 20 42 6f 6f 6c |; docent|er: Bool|
|0001cee0| 65 61 6e 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |ean);...|var....p|
|0001cef0| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001cf00| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001cf10| 77 68 61 74 20 3a 3d 20 | 32 31 32 3b 0d 09 09 70 |what := |212;...p|
|0001cf20| 62 2e 70 5b 33 5d 20 3a | 3d 20 40 74 68 65 4e 75 |b.p[3] :|= @theNu|
|0001cf30| 6d 3b 0d 09 09 70 62 2e | 70 5b 32 5d 20 3a 3d 20 |m;...pb.|p[2] := |
|0001cf40| 40 64 65 63 73 3b 0d 09 | 09 70 62 2e 70 5b 31 5d |@decs;..|.pb.p[1]|
|0001cf50| 20 3a 3d 20 40 74 68 65 | 41 6e 67 6c 65 3b 0d 09 | := @the|Angle;..|
|0001cf60| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 64 6f 63 |.pb.p[0]| := @doc|
|0001cf70| 65 6e 74 65 72 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |enter;..|.CallRun|
|0001cf80| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|0001cf90| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|0001cfa0| 20 44 72 61 77 44 61 74 | 61 50 6f 69 6e 74 20 28 | DrawDat|aPoint (|
|0001cfb0| 78 2c 20 79 3a 20 65 78 | 74 65 6e 64 65 64 29 3b |x, y: ex|tended);|
|0001cfc0| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|0001cfd0| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001cfe0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001cff0| 3a 3d 20 32 31 33 3b 0d | 09 09 70 62 2e 70 5b 31 |:= 213;.|..pb.p[1|
|0001d000| 5d 20 3a 3d 20 40 78 3b | 0d 09 09 70 62 2e 70 5b |] := @x;|...pb.p[|
|0001d010| 30 5d 20 3a 3d 20 40 79 | 3b 0d 09 09 43 61 6c 6c |0] := @y|;...Call|
|0001d020| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|0001d030| 3b 0d 09 65 6e 64 3b 0d | 0d 09 70 72 6f 63 65 64 |;..end;.|..proced|
|0001d040| 75 72 65 20 44 72 61 77 | 50 49 43 54 20 28 6c 65 |ure Draw|PICT (le|
|0001d050| 66 74 2c 20 74 6f 70 2c | 20 72 69 67 68 74 2c 20 |ft, top,| right, |
|0001d060| 62 6f 74 74 6f 6d 3a 20 | 65 78 74 65 6e 64 65 64 |bottom: |extended|
|0001d070| 3b 20 74 68 65 50 69 63 | 74 3a 20 50 69 63 48 61 |; thePic|t: PicHa|
|0001d080| 6e 64 6c 65 29 3b 0d 09 | 09 76 61 72 0d 09 09 09 |ndle);..|.var....|
|0001d090| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001d0a0| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001d0b0| 2e 77 68 61 74 20 3a 3d | 20 32 34 37 3b 0d 09 09 |.what :=| 247;...|
|0001d0c0| 70 62 2e 70 5b 34 5d 20 | 3a 3d 20 40 6c 65 66 74 |pb.p[4] |:= @left|
|0001d0d0| 3b 0d 09 09 70 62 2e 70 | 5b 33 5d 20 3a 3d 20 40 |;...pb.p|[3] := @|
|0001d0e0| 74 6f 70 3b 0d 09 09 70 | 62 2e 70 5b 32 5d 20 3a |top;...p|b.p[2] :|
|0001d0f0| 3d 20 40 72 69 67 68 74 | 3b 0d 09 09 70 62 2e 70 |= @right|;...pb.p|
|0001d100| 5b 31 5d 20 3a 3d 20 40 | 62 6f 74 74 6f 6d 3b 0d |[1] := @|bottom;.|
|0001d110| 09 09 70 62 2e 70 5b 30 | 5d 20 3a 3d 20 50 74 72 |..pb.p[0|] := Ptr|
|0001d120| 28 74 68 65 50 69 63 74 | 29 3b 0d 09 09 43 61 6c |(thePict|);...Cal|
|0001d130| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001d140| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|0001d150| 64 75 72 65 20 47 65 74 | 4c 61 73 74 43 6c 69 63 |dure Get|LastClic|
|0001d160| 6b 65 64 43 6f 6f 72 64 | 69 6e 61 74 65 73 20 28 |kedCoord|inates (|
|0001d170| 76 61 72 20 78 2c 20 79 | 3a 20 65 78 74 65 6e 64 |var x, y|: extend|
|0001d180| 65 64 29 3b 0d 09 09 76 | 61 72 0d 09 09 09 70 62 |ed);...v|ar....pb|
|0001d190| 3a 20 52 75 6e 54 69 6d | 65 50 61 72 61 6d 52 65 |: RunTim|eParamRe|
|0001d1a0| 63 3b 0d 09 62 65 67 69 | 6e 0d 09 09 70 62 2e 77 |c;..begi|n...pb.w|
|0001d1b0| 68 61 74 20 3a 3d 20 32 | 32 33 3b 0d 09 09 70 62 |hat := 2|23;...pb|
|0001d1c0| 2e 70 5b 31 5d 20 3a 3d | 20 40 78 3b 0d 09 09 70 |.p[1] :=| @x;...p|
|0001d1d0| 62 2e 70 5b 30 5d 20 3a | 3d 20 40 79 3b 0d 09 09 |b.p[0] :|= @y;...|
|0001d1e0| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001d1f0| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001d200| 6f 63 65 64 75 72 65 20 | 44 69 73 61 62 6c 65 44 |ocedure |DisableD|
|0001d210| 72 61 77 69 6e 67 55 70 | 64 61 74 65 73 3b 0d 09 |rawingUp|dates;..|
|0001d220| 09 76 61 72 0d 09 09 09 | 70 62 3a 20 52 75 6e 54 |.var....|pb: RunT|
|0001d230| 69 6d 65 50 61 72 61 6d | 52 65 63 3b 0d 09 62 65 |imeParam|Rec;..be|
|0001d240| 67 69 6e 0d 09 09 70 62 | 2e 77 68 61 74 20 3a 3d |gin...pb|.what :=|
|0001d250| 20 32 32 36 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 | 226;...|CallRunT|
|0001d260| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001d270| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001d280| 4f 70 65 6e 50 6f 6c 79 | 67 6f 6e 20 28 73 6d 6f |OpenPoly|gon (smo|
|0001d290| 6f 74 68 69 6e 67 3a 20 | 69 6e 74 65 67 65 72 3b |othing: |integer;|
|0001d2a0| 20 6b 69 6e 64 3a 20 69 | 6e 74 65 67 65 72 29 3b | kind: i|nteger);|
|0001d2b0| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|0001d2c0| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001d2d0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001d2e0| 3a 3d 20 32 31 34 3b 0d | 09 09 70 62 2e 70 5b 31 |:= 214;.|..pb.p[1|
|0001d2f0| 5d 20 3a 3d 20 40 73 6d | 6f 6f 74 68 69 6e 67 3b |] := @sm|oothing;|
|0001d300| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 6b |...pb.p[|0] := @k|
|0001d310| 69 6e 64 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |ind;...C|allRunTi|
|0001d320| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001d330| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 43 |d;...pro|cedure C|
|0001d340| 6c 6f 73 65 50 6f 6c 79 | 67 6f 6e 3b 0d 09 09 76 |losePoly|gon;...v|
|0001d350| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|0001d360| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001d370| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 32 |n...pb.w|hat := 2|
|0001d380| 31 35 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |15;...Ca|llRunTim|
|0001d390| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|0001d3a0| 3b 0d 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 47 |;....pro|cedure G|
|0001d3b0| 72 6f 75 70 42 65 67 69 | 6e 3b 0d 09 09 76 61 72 |roupBegi|n;...var|
|0001d3c0| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001d3d0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001d3e0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 31 39 |..pb.wha|t := 219|
|0001d3f0| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001d400| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001d410| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 47 72 6f 75 |..proced|ure Grou|
|0001d420| 70 45 6e 64 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |pEnd;...|var....p|
|0001d430| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001d440| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001d450| 77 68 61 74 20 3a 3d 20 | 32 32 30 3b 0d 09 09 43 |what := |220;...C|
|0001d460| 61 6c 6c 52 75 6e 54 69 | 6d 65 50 72 6f 63 28 40 |allRunTi|meProc(@|
|0001d470| 70 62 29 3b 0d 09 65 6e | 64 3b 0d 0d 0d 09 70 72 |pb);..en|d;....pr|
|0001d480| 6f 63 65 64 75 72 65 20 | 53 65 74 43 75 72 72 65 |ocedure |SetCurre|
|0001d490| 6e 74 47 72 61 70 68 20 | 28 67 72 61 70 68 49 44 |ntGraph |(graphID|
|0001d4a0| 3a 20 6c 6f 6e 67 69 6e | 74 29 3b 0d 09 09 76 61 |: longin|t);...va|
|0001d4b0| 72 0d 09 09 09 70 62 3a | 20 52 75 6e 54 69 6d 65 |r....pb:| RunTime|
|0001d4c0| 50 61 72 61 6d 52 65 63 | 3b 0d 09 62 65 67 69 6e |ParamRec|;..begin|
|0001d4d0| 0d 09 09 70 62 2e 77 68 | 61 74 20 3a 3d 20 32 32 |...pb.wh|at := 22|
|0001d4e0| 37 3b 0d 09 09 70 62 2e | 70 5b 30 5d 20 3a 3d 20 |7;...pb.|p[0] := |
|0001d4f0| 40 67 72 61 70 68 49 44 | 3b 0d 09 09 43 61 6c 6c |@graphID|;...Call|
|0001d500| 52 75 6e 54 69 6d 65 50 | 72 6f 63 28 40 70 62 29 |RunTimeP|roc(@pb)|
|0001d510| 3b 0d 09 65 6e 64 3b 0d | 0d 09 66 75 6e 63 74 69 |;..end;.|..functi|
|0001d520| 6f 6e 20 47 65 74 43 75 | 72 72 65 6e 74 47 72 61 |on GetCu|rrentGra|
|0001d530| 70 68 3a 20 6c 6f 6e 67 | 69 6e 74 3b 0d 09 09 76 |ph: long|int;...v|
|0001d540| 61 72 0d 09 09 09 72 65 | 74 76 61 6c 3a 20 6c 6f |ar....re|tval: lo|
|0001d550| 6e 67 69 6e 74 3b 0d 09 | 09 09 70 62 3a 20 52 75 |ngint;..|..pb: Ru|
|0001d560| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001d570| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001d580| 3a 3d 20 32 32 39 3b 0d | 09 09 70 62 2e 70 5b 30 |:= 229;.|..pb.p[0|
|0001d590| 5d 20 3a 3d 20 40 72 65 | 74 76 61 6c 3b 0d 09 09 |] := @re|tval;...|
|0001d5a0| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001d5b0| 40 70 62 29 3b 0d 09 09 | 47 65 74 43 75 72 72 65 |@pb);...|GetCurre|
|0001d5c0| 6e 74 47 72 61 70 68 20 | 3a 3d 20 72 65 74 76 61 |ntGraph |:= retva|
|0001d5d0| 6c 3b 0d 09 65 6e 64 3b | 0d 0d 09 66 75 6e 63 74 |l;..end;|...funct|
|0001d5e0| 69 6f 6e 20 47 65 74 4e | 65 78 74 47 72 61 70 68 |ion GetN|extGraph|
|0001d5f0| 20 28 67 72 61 70 68 49 | 44 3a 20 6c 6f 6e 67 69 | (graphI|D: longi|
|0001d600| 6e 74 29 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 09 09 |nt): lon|gint;...|
|0001d610| 76 61 72 0d 09 09 09 72 | 65 74 76 61 6c 3a 20 6c |var....r|etval: l|
|0001d620| 6f 6e 67 69 6e 74 3b 0d | 09 09 09 70 62 3a 20 52 |ongint;.|...pb: R|
|0001d630| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001d640| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001d650| 20 3a 3d 20 32 32 38 3b | 0d 09 09 70 62 2e 70 5b | := 228;|...pb.p[|
|0001d660| 31 5d 20 3a 3d 20 40 72 | 65 74 76 61 6c 3b 0d 09 |1] := @r|etval;..|
|0001d670| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 67 72 61 |.pb.p[0]| := @gra|
|0001d680| 70 68 49 44 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |phID;...|CallRunT|
|0001d690| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 09 |imeProc(|@pb);...|
|0001d6a0| 47 65 74 4e 65 78 74 47 | 72 61 70 68 20 3a 3d 20 |GetNextG|raph := |
|0001d6b0| 72 65 74 76 61 6c 3b 0d | 09 65 6e 64 3b 0d 0d 09 |retval;.|.end;...|
|0001d6c0| 70 72 6f 63 65 64 75 72 | 65 20 47 65 74 47 72 61 |procedur|e GetGra|
|0001d6d0| 70 68 46 72 61 6d 65 20 | 28 76 61 72 20 6c 65 66 |phFrame |(var lef|
|0001d6e0| 74 2c 20 74 6f 70 2c 20 | 72 69 67 68 74 2c 20 62 |t, top, |right, b|
|0001d6f0| 6f 74 74 6f 6d 3a 20 65 | 78 74 65 6e 64 65 64 29 |ottom: e|xtended)|
|0001d700| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|0001d710| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001d720| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001d730| 20 3a 3d 20 32 33 30 3b | 0d 09 09 70 62 2e 70 5b | := 230;|...pb.p[|
|0001d740| 33 5d 20 3a 3d 20 40 6c | 65 66 74 3b 0d 09 09 70 |3] := @l|eft;...p|
|0001d750| 62 2e 70 5b 32 5d 20 3a | 3d 20 40 74 6f 70 3b 0d |b.p[2] :|= @top;.|
|0001d760| 09 09 70 62 2e 70 5b 31 | 5d 20 3a 3d 20 40 72 69 |..pb.p[1|] := @ri|
|0001d770| 67 68 74 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |ght;...p|b.p[0] :|
|0001d780| 3d 20 40 62 6f 74 74 6f | 6d 3b 0d 09 09 43 61 6c |= @botto|m;...Cal|
|0001d790| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001d7a0| 29 3b 0d 09 65 6e 64 3b | 0d 0d 09 70 72 6f 63 65 |);..end;|...proce|
|0001d7b0| 64 75 72 65 20 53 65 74 | 47 72 61 70 68 46 72 61 |dure Set|GraphFra|
|0001d7c0| 6d 65 20 28 6c 65 66 74 | 2c 20 74 6f 70 2c 20 72 |me (left|, top, r|
|0001d7d0| 69 67 68 74 2c 20 62 6f | 74 74 6f 6d 3a 20 65 78 |ight, bo|ttom: ex|
|0001d7e0| 74 65 6e 64 65 64 29 3b | 0d 09 09 76 61 72 0d 09 |tended);|...var..|
|0001d7f0| 09 09 70 62 3a 20 52 75 | 6e 54 69 6d 65 50 61 72 |..pb: Ru|nTimePar|
|0001d800| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|0001d810| 70 62 2e 77 68 61 74 20 | 3a 3d 20 32 33 31 3b 0d |pb.what |:= 231;.|
|0001d820| 09 09 70 62 2e 70 5b 33 | 5d 20 3a 3d 20 40 6c 65 |..pb.p[3|] := @le|
|0001d830| 66 74 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |ft;...pb|.p[2] :=|
|0001d840| 20 40 74 6f 70 3b 0d 09 | 09 70 62 2e 70 5b 31 5d | @top;..|.pb.p[1]|
|0001d850| 20 3a 3d 20 40 72 69 67 | 68 74 3b 0d 09 09 70 62 | := @rig|ht;...pb|
|0001d860| 2e 70 5b 30 5d 20 3a 3d | 20 40 62 6f 74 74 6f 6d |.p[0] :=| @bottom|
|0001d870| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001d880| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001d890| 0d 09 66 75 6e 63 74 69 | 6f 6e 20 47 65 74 43 75 |..functi|on GetCu|
|0001d8a0| 72 72 65 6e 74 41 78 69 | 73 20 28 77 68 69 63 68 |rrentAxi|s (which|
|0001d8b0| 41 78 69 73 3a 20 69 6e | 74 65 67 65 72 29 3a 20 |Axis: in|teger): |
|0001d8c0| 69 6e 74 65 67 65 72 3b | 0d 09 09 76 61 72 0d 09 |integer;|...var..|
|0001d8d0| 09 09 72 65 74 76 61 6c | 3a 20 69 6e 74 65 67 65 |..retval|: intege|
|0001d8e0| 72 3b 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |r;....pb|: RunTim|
|0001d8f0| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001d900| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 32 |n...pb.w|hat := 2|
|0001d910| 33 32 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |32;...pb|.p[1] :=|
|0001d920| 20 40 72 65 74 76 61 6c | 3b 0d 09 09 70 62 2e 70 | @retval|;...pb.p|
|0001d930| 5b 30 5d 20 3a 3d 20 40 | 77 68 69 63 68 41 78 69 |[0] := @|whichAxi|
|0001d940| 73 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |s;...Cal|lRunTime|
|0001d950| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 09 47 65 74 |Proc(@pb|);...Get|
|0001d960| 43 75 72 72 65 6e 74 41 | 78 69 73 20 3a 3d 20 72 |CurrentA|xis := r|
|0001d970| 65 74 76 61 6c 3b 0d 09 | 65 6e 64 3b 0d 0d 09 70 |etval;..|end;...p|
|0001d980| 72 6f 63 65 64 75 72 65 | 20 53 65 74 43 75 72 72 |rocedure| SetCurr|
|0001d990| 65 6e 74 41 78 69 73 20 | 28 77 68 69 63 68 41 78 |entAxis |(whichAx|
|0001d9a0| 69 73 3a 20 69 6e 74 65 | 67 65 72 3b 20 61 78 69 |is: inte|ger; axi|
|0001d9b0| 73 49 44 3a 20 69 6e 74 | 65 67 65 72 29 3b 0d 09 |sID: int|eger);..|
|0001d9c0| 09 76 61 72 0d 09 09 09 | 70 62 3a 20 52 75 6e 54 |.var....|pb: RunT|
|0001d9d0| 69 6d 65 50 61 72 61 6d | 52 65 63 3b 0d 09 62 65 |imeParam|Rec;..be|
|0001d9e0| 67 69 6e 0d 09 09 70 62 | 2e 77 68 61 74 20 3a 3d |gin...pb|.what :=|
|0001d9f0| 20 32 33 33 3b 0d 09 09 | 70 62 2e 70 5b 31 5d 20 | 233;...|pb.p[1] |
|0001da00| 3a 3d 20 40 77 68 69 63 | 68 41 78 69 73 3b 0d 09 |:= @whic|hAxis;..|
|0001da10| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 61 78 69 |.pb.p[0]| := @axi|
|0001da20| 73 49 44 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |sID;...C|allRunTi|
|0001da30| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001da40| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 44 |d;...pro|cedure D|
|0001da50| 65 6c 65 74 65 41 78 69 | 73 20 28 77 68 69 63 68 |eleteAxi|s (which|
|0001da60| 41 78 69 73 3a 20 69 6e | 74 65 67 65 72 3b 20 61 |Axis: in|teger; a|
|0001da70| 78 69 73 49 44 3a 20 69 | 6e 74 65 67 65 72 29 3b |xisID: i|nteger);|
|0001da80| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|0001da90| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001daa0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001dab0| 3a 3d 20 32 33 34 3b 0d | 09 09 70 62 2e 70 5b 31 |:= 234;.|..pb.p[1|
|0001dac0| 5d 20 3a 3d 20 40 77 68 | 69 63 68 41 78 69 73 3b |] := @wh|ichAxis;|
|0001dad0| 0d 09 09 70 62 2e 70 5b | 30 5d 20 3a 3d 20 40 61 |...pb.p[|0] := @a|
|0001dae0| 78 69 73 49 44 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |xisID;..|.CallRun|
|0001daf0| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|0001db00| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|0001db10| 20 4d 61 6b 65 4e 65 77 | 41 78 69 73 20 28 77 68 | MakeNew|Axis (wh|
|0001db20| 69 63 68 41 78 69 73 3a | 20 69 6e 74 65 67 65 72 |ichAxis:| integer|
|0001db30| 3b 20 6d 69 6e 2c 20 6d | 61 78 3a 20 65 78 74 65 |; min, m|ax: exte|
|0001db40| 6e 64 65 64 3b 20 73 63 | 61 6c 69 6e 67 3a 20 69 |nded; sc|aling: i|
|0001db50| 6e 74 65 67 65 72 3b 20 | 70 6f 73 69 74 69 6f 6e |nteger; |position|
|0001db60| 3a 20 65 78 74 65 6e 64 | 65 64 29 3b 0d 09 09 76 |: extend|ed);...v|
|0001db70| 61 72 0d 09 09 09 70 62 | 3a 20 52 75 6e 54 69 6d |ar....pb|: RunTim|
|0001db80| 65 50 61 72 61 6d 52 65 | 63 3b 0d 09 62 65 67 69 |eParamRe|c;..begi|
|0001db90| 6e 0d 09 09 70 62 2e 77 | 68 61 74 20 3a 3d 20 32 |n...pb.w|hat := 2|
|0001dba0| 33 35 3b 0d 09 09 70 62 | 2e 70 5b 34 5d 20 3a 3d |35;...pb|.p[4] :=|
|0001dbb0| 20 40 77 68 69 63 68 41 | 78 69 73 3b 0d 09 09 70 | @whichA|xis;...p|
|0001dbc0| 62 2e 70 5b 33 5d 20 3a | 3d 20 40 6d 69 6e 3b 0d |b.p[3] :|= @min;.|
|0001dbd0| 09 09 70 62 2e 70 5b 32 | 5d 20 3a 3d 20 40 6d 61 |..pb.p[2|] := @ma|
|0001dbe0| 78 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |x;...pb.|p[1] := |
|0001dbf0| 40 73 63 61 6c 69 6e 67 | 3b 0d 09 09 70 62 2e 70 |@scaling|;...pb.p|
|0001dc00| 5b 30 5d 20 3a 3d 20 40 | 70 6f 73 69 74 69 6f 6e |[0] := @|position|
|0001dc10| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001dc20| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001dc30| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 52 |..proced|ure SetR|
|0001dc40| 61 6e 67 65 20 28 77 68 | 69 63 68 41 78 69 73 3a |ange (wh|ichAxis:|
|0001dc50| 20 69 6e 74 65 67 65 72 | 3b 20 6d 69 6e 2c 20 6d | integer|; min, m|
|0001dc60| 61 78 3a 20 65 78 74 65 | 6e 64 65 64 3b 20 73 63 |ax: exte|nded; sc|
|0001dc70| 61 6c 69 6e 67 3a 20 69 | 6e 74 65 67 65 72 29 3b |aling: i|nteger);|
|0001dc80| 0d 09 09 76 61 72 0d 09 | 09 09 70 62 3a 20 52 75 |...var..|..pb: Ru|
|0001dc90| 6e 54 69 6d 65 50 61 72 | 61 6d 52 65 63 3b 0d 09 |nTimePar|amRec;..|
|0001dca0| 62 65 67 69 6e 0d 09 09 | 70 62 2e 77 68 61 74 20 |begin...|pb.what |
|0001dcb0| 3a 3d 20 32 33 36 3b 0d | 09 09 70 62 2e 70 5b 33 |:= 236;.|..pb.p[3|
|0001dcc0| 5d 20 3a 3d 20 40 77 68 | 69 63 68 41 78 69 73 3b |] := @wh|ichAxis;|
|0001dcd0| 0d 09 09 70 62 2e 70 5b | 32 5d 20 3a 3d 20 40 6d |...pb.p[|2] := @m|
|0001dce0| 69 6e 3b 0d 09 09 70 62 | 2e 70 5b 31 5d 20 3a 3d |in;...pb|.p[1] :=|
|0001dcf0| 20 40 6d 61 78 3b 0d 09 | 09 70 62 2e 70 5b 30 5d | @max;..|.pb.p[0]|
|0001dd00| 20 3a 3d 20 40 73 63 61 | 6c 69 6e 67 3b 0d 09 09 | := @sca|ling;...|
|0001dd10| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001dd20| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 70 72 |@pb);..e|nd;...pr|
|0001dd30| 6f 63 65 64 75 72 65 20 | 4d 61 6b 65 54 69 63 6b |ocedure |MakeTick|
|0001dd40| 73 20 28 77 68 69 63 68 | 41 78 69 73 3a 20 69 6e |s (which|Axis: in|
|0001dd50| 74 65 67 65 72 3b 20 66 | 69 72 73 74 4d 61 6a 2c |teger; f|irstMaj,|
|0001dd60| 20 64 69 73 74 61 6e 63 | 65 3a 20 65 78 74 65 6e | distanc|e: exten|
|0001dd70| 64 65 64 3b 20 6e 72 4d | 69 6e 54 69 63 6b 73 3a |ded; nrM|inTicks:|
|0001dd80| 20 69 6e 74 65 67 65 72 | 29 3b 0d 09 09 76 61 72 | integer|);...var|
|0001dd90| 0d 09 09 09 70 62 3a 20 | 52 75 6e 54 69 6d 65 50 |....pb: |RunTimeP|
|0001dda0| 61 72 61 6d 52 65 63 3b | 0d 09 62 65 67 69 6e 0d |aramRec;|..begin.|
|0001ddb0| 09 09 70 62 2e 77 68 61 | 74 20 3a 3d 20 32 33 37 |..pb.wha|t := 237|
|0001ddc0| 3b 0d 09 09 70 62 2e 70 | 5b 33 5d 20 3a 3d 20 40 |;...pb.p|[3] := @|
|0001ddd0| 77 68 69 63 68 41 78 69 | 73 3b 0d 09 09 70 62 2e |whichAxi|s;...pb.|
|0001dde0| 70 5b 32 5d 20 3a 3d 20 | 40 66 69 72 73 74 4d 61 |p[2] := |@firstMa|
|0001ddf0| 6a 3b 0d 09 09 70 62 2e | 70 5b 31 5d 20 3a 3d 20 |j;...pb.|p[1] := |
|0001de00| 40 64 69 73 74 61 6e 63 | 65 3b 0d 09 09 70 62 2e |@distanc|e;...pb.|
|0001de10| 70 5b 30 5d 20 3a 3d 20 | 40 6e 72 4d 69 6e 54 69 |p[0] := |@nrMinTi|
|0001de20| 63 6b 73 3b 0d 09 09 43 | 61 6c 6c 52 75 6e 54 69 |cks;...C|allRunTi|
|0001de30| 6d 65 50 72 6f 63 28 40 | 70 62 29 3b 0d 09 65 6e |meProc(@|pb);..en|
|0001de40| 64 3b 0d 0d 09 70 72 6f | 63 65 64 75 72 65 20 53 |d;...pro|cedure S|
|0001de50| 65 74 4c 61 62 65 6c 73 | 46 6f 72 6d 61 74 20 28 |etLabels|Format (|
|0001de60| 77 68 69 63 68 41 78 69 | 73 3a 20 69 6e 74 65 67 |whichAxi|s: integ|
|0001de70| 65 72 3b 20 66 6f 72 6d | 61 74 3a 20 69 6e 74 65 |er; form|at: inte|
|0001de80| 67 65 72 3b 20 64 65 63 | 69 6d 61 6c 73 3a 20 69 |ger; dec|imals: i|
|0001de90| 6e 74 65 67 65 72 29 3b | 0d 09 09 76 61 72 0d 09 |nteger);|...var..|
|0001dea0| 09 09 70 62 3a 20 52 75 | 6e 54 69 6d 65 50 61 72 |..pb: Ru|nTimePar|
|0001deb0| 61 6d 52 65 63 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |amRec;..|begin...|
|0001dec0| 70 62 2e 77 68 61 74 20 | 3a 3d 20 32 33 38 3b 0d |pb.what |:= 238;.|
|0001ded0| 09 09 70 62 2e 70 5b 32 | 5d 20 3a 3d 20 40 77 68 |..pb.p[2|] := @wh|
|0001dee0| 69 63 68 41 78 69 73 3b | 0d 09 09 70 62 2e 70 5b |ichAxis;|...pb.p[|
|0001def0| 31 5d 20 3a 3d 20 40 66 | 6f 72 6d 61 74 3b 0d 09 |1] := @f|ormat;..|
|0001df00| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 64 65 63 |.pb.p[0]| := @dec|
|0001df10| 69 6d 61 6c 73 3b 0d 09 | 09 43 61 6c 6c 52 75 6e |imals;..|.CallRun|
|0001df20| 54 69 6d 65 50 72 6f 63 | 28 40 70 62 29 3b 0d 09 |TimeProc|(@pb);..|
|0001df30| 65 6e 64 3b 0d 0d 09 70 | 72 6f 63 65 64 75 72 65 |end;...p|rocedure|
|0001df40| 20 43 6c 65 61 72 4c 61 | 62 65 6c 73 20 28 77 68 | ClearLa|bels (wh|
|0001df50| 69 63 68 41 78 69 73 3a | 20 69 6e 74 65 67 65 72 |ichAxis:| integer|
|0001df60| 29 3b 0d 09 09 76 61 72 | 0d 09 09 09 70 62 3a 20 |);...var|....pb: |
|0001df70| 52 75 6e 54 69 6d 65 50 | 61 72 61 6d 52 65 63 3b |RunTimeP|aramRec;|
|0001df80| 0d 09 62 65 67 69 6e 0d | 09 09 70 62 2e 77 68 61 |..begin.|..pb.wha|
|0001df90| 74 20 3a 3d 20 32 34 30 | 3b 0d 09 09 70 62 2e 70 |t := 240|;...pb.p|
|0001dfa0| 5b 30 5d 20 3a 3d 20 40 | 77 68 69 63 68 41 78 69 |[0] := @|whichAxi|
|0001dfb0| 73 3b 0d 09 09 43 61 6c | 6c 52 75 6e 54 69 6d 65 |s;...Cal|lRunTime|
|0001dfc0| 50 72 6f 63 28 40 70 62 | 29 3b 0d 09 65 6e 64 3b |Proc(@pb|);..end;|
|0001dfd0| 0d 0d 09 70 72 6f 63 65 | 64 75 72 65 20 43 6c 65 |...proce|dure Cle|
|0001dfe0| 61 72 54 69 63 6b 73 20 | 28 77 68 69 63 68 41 78 |arTicks |(whichAx|
|0001dff0| 69 73 3a 20 69 6e 74 65 | 67 65 72 29 3b 0d 09 09 |is: inte|ger);...|
|0001e000| 76 61 72 0d 09 09 09 70 | 62 3a 20 52 75 6e 54 69 |var....p|b: RunTi|
|0001e010| 6d 65 50 61 72 61 6d 52 | 65 63 3b 0d 09 62 65 67 |meParamR|ec;..beg|
|0001e020| 69 6e 0d 09 09 70 62 2e | 77 68 61 74 20 3a 3d 20 |in...pb.|what := |
|0001e030| 32 33 39 3b 0d 09 09 70 | 62 2e 70 5b 30 5d 20 3a |239;...p|b.p[0] :|
|0001e040| 3d 20 40 77 68 69 63 68 | 41 78 69 73 3b 0d 09 09 |= @which|Axis;...|
|0001e050| 43 61 6c 6c 52 75 6e 54 | 69 6d 65 50 72 6f 63 28 |CallRunT|imeProc(|
|0001e060| 40 70 62 29 3b 0d 09 65 | 6e 64 3b 0d 0d 09 66 75 |@pb);..e|nd;...fu|
|0001e070| 6e 63 74 69 6f 6e 20 41 | 64 64 54 69 63 6b 20 28 |nction A|ddTick (|
|0001e080| 77 68 69 63 68 41 78 69 | 73 3a 20 69 6e 74 65 67 |whichAxi|s: integ|
|0001e090| 65 72 3b 20 74 69 63 6b | 50 6f 73 3a 20 65 78 74 |er; tick|Pos: ext|
|0001e0a0| 65 6e 64 65 64 3b 20 69 | 73 4d 61 6a 6f 72 3a 20 |ended; i|sMajor: |
|0001e0b0| 42 6f 6f 6c 65 61 6e 29 | 3a 20 69 6e 74 65 67 65 |Boolean)|: intege|
|0001e0c0| 72 3b 0d 09 09 76 61 72 | 0d 09 09 09 72 65 74 76 |r;...var|....retv|
|0001e0d0| 61 6c 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |al: inte|ger;....|
|0001e0e0| 70 62 3a 20 52 75 6e 54 | 69 6d 65 50 61 72 61 6d |pb: RunT|imeParam|
|0001e0f0| 52 65 63 3b 0d 09 62 65 | 67 69 6e 0d 09 09 70 62 |Rec;..be|gin...pb|
|0001e100| 2e 77 68 61 74 20 3a 3d | 20 32 34 31 3b 0d 09 09 |.what :=| 241;...|
|0001e110| 70 62 2e 70 5b 33 5d 20 | 3a 3d 20 40 72 65 74 76 |pb.p[3] |:= @retv|
|0001e120| 61 6c 3b 0d 09 09 70 62 | 2e 70 5b 32 5d 20 3a 3d |al;...pb|.p[2] :=|
|0001e130| 20 40 77 68 69 63 68 41 | 78 69 73 3b 0d 09 09 70 | @whichA|xis;...p|
|0001e140| 62 2e 70 5b 31 5d 20 3a | 3d 20 40 74 69 63 6b 50 |b.p[1] :|= @tickP|
|0001e150| 6f 73 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |os;...pb|.p[0] :=|
|0001e160| 20 40 69 73 4d 61 6a 6f | 72 3b 0d 09 09 43 61 6c | @isMajo|r;...Cal|
|0001e170| 6c 52 75 6e 54 69 6d 65 | 50 72 6f 63 28 40 70 62 |lRunTime|Proc(@pb|
|0001e180| 29 3b 0d 09 09 41 64 64 | 54 69 63 6b 20 3a 3d 20 |);...Add|Tick := |
|0001e190| 72 65 74 76 61 6c 3b 0d | 09 65 6e 64 3b 0d 0d 09 |retval;.|.end;...|
|0001e1a0| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 4c 61 62 |procedur|e SetLab|
|0001e1b0| 65 6c 20 28 77 68 69 63 | 68 41 78 69 73 3a 20 69 |el (whic|hAxis: i|
|0001e1c0| 6e 74 65 67 65 72 3b 20 | 74 69 63 6b 4e 75 6d 3a |nteger; |tickNum:|
|0001e1d0| 20 69 6e 74 65 67 65 72 | 3b 20 6c 61 62 65 6c 4e | integer|; labelN|
|0001e1e0| 75 6d 62 65 72 3a 20 65 | 78 74 65 6e 64 65 64 29 |umber: e|xtended)|
|0001e1f0| 3b 0d 09 09 76 61 72 0d | 09 09 09 70 62 3a 20 52 |;...var.|...pb: R|
|0001e200| 75 6e 54 69 6d 65 50 61 | 72 61 6d 52 65 63 3b 0d |unTimePa|ramRec;.|
|0001e210| 09 62 65 67 69 6e 0d 09 | 09 70 62 2e 77 68 61 74 |.begin..|.pb.what|
|0001e220| 20 3a 3d 20 32 34 32 3b | 0d 09 09 70 62 2e 70 5b | := 242;|...pb.p[|
|0001e230| 32 5d 20 3a 3d 20 40 77 | 68 69 63 68 41 78 69 73 |2] := @w|hichAxis|
|0001e240| 3b 0d 09 09 70 62 2e 70 | 5b 31 5d 20 3a 3d 20 40 |;...pb.p|[1] := @|
|0001e250| 74 69 63 6b 4e 75 6d 3b | 0d 09 09 70 62 2e 70 5b |tickNum;|...pb.p[|
|0001e260| 30 5d 20 3a 3d 20 40 6c | 61 62 65 6c 4e 75 6d 62 |0] := @l|abelNumb|
|0001e270| 65 72 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |er;...Ca|llRunTim|
|0001e280| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|0001e290| 3b 0d 0d 09 70 72 6f 63 | 65 64 75 72 65 20 53 65 |;...proc|edure Se|
|0001e2a0| 74 4c 61 62 65 6c 54 65 | 78 74 20 28 77 68 69 63 |tLabelTe|xt (whic|
|0001e2b0| 68 41 78 69 73 3a 20 69 | 6e 74 65 67 65 72 3b 20 |hAxis: i|nteger; |
|0001e2c0| 74 69 63 6b 4e 75 6d 3a | 20 69 6e 74 65 67 65 72 |tickNum:| integer|
|0001e2d0| 3b 20 6c 61 62 65 6c 54 | 65 78 74 3a 20 53 74 72 |; labelT|ext: Str|
|0001e2e0| 32 35 35 29 3b 0d 09 09 | 76 61 72 0d 09 09 09 70 |255);...|var....p|
|0001e2f0| 62 3a 20 52 75 6e 54 69 | 6d 65 50 61 72 61 6d 52 |b: RunTi|meParamR|
|0001e300| 65 63 3b 0d 09 62 65 67 | 69 6e 0d 09 09 70 62 2e |ec;..beg|in...pb.|
|0001e310| 77 68 61 74 20 3a 3d 20 | 32 34 33 3b 0d 09 09 70 |what := |243;...p|
|0001e320| 62 2e 70 5b 32 5d 20 3a | 3d 20 40 77 68 69 63 68 |b.p[2] :|= @which|
|0001e330| 41 78 69 73 3b 0d 09 09 | 70 62 2e 70 5b 31 5d 20 |Axis;...|pb.p[1] |
|0001e340| 3a 3d 20 40 74 69 63 6b | 4e 75 6d 3b 0d 09 09 70 |:= @tick|Num;...p|
|0001e350| 62 2e 70 5b 30 5d 20 3a | 3d 20 40 6c 61 62 65 6c |b.p[0] :|= @label|
|0001e360| 54 65 78 74 3b 0d 09 09 | 43 61 6c 6c 52 75 6e 54 |Text;...|CallRunT|
|0001e370| 69 6d 65 50 72 6f 63 28 | 40 70 62 29 3b 0d 09 65 |imeProc(|@pb);..e|
|0001e380| 6e 64 3b 0d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |nd;...pr|ocedure |
|0001e390| 53 65 74 41 78 69 73 50 | 6f 73 69 74 69 6f 6e 20 |SetAxisP|osition |
|0001e3a0| 28 77 68 69 63 68 41 78 | 69 73 3a 20 69 6e 74 65 |(whichAx|is: inte|
|0001e3b0| 67 65 72 3b 20 70 6f 73 | 69 74 69 6f 6e 3a 20 65 |ger; pos|ition: e|
|0001e3c0| 78 74 65 6e 64 65 64 29 | 3b 0d 09 09 76 61 72 0d |xtended)|;...var.|
|0001e3d0| 09 09 09 70 62 3a 20 52 | 75 6e 54 69 6d 65 50 61 |...pb: R|unTimePa|
|0001e3e0| 72 61 6d 52 65 63 3b 0d | 09 62 65 67 69 6e 0d 09 |ramRec;.|.begin..|
|0001e3f0| 09 70 62 2e 77 68 61 74 | 20 3a 3d 20 32 34 34 3b |.pb.what| := 244;|
|0001e400| 0d 09 09 70 62 2e 70 5b | 31 5d 20 3a 3d 20 40 77 |...pb.p[|1] := @w|
|0001e410| 68 69 63 68 41 78 69 73 | 3b 0d 09 09 70 62 2e 70 |hichAxis|;...pb.p|
|0001e420| 5b 30 5d 20 3a 3d 20 40 | 70 6f 73 69 74 69 6f 6e |[0] := @|position|
|0001e430| 3b 0d 09 09 43 61 6c 6c | 52 75 6e 54 69 6d 65 50 |;...Call|RunTimeP|
|0001e440| 72 6f 63 28 40 70 62 29 | 3b 0d 09 65 6e 64 3b 0d |roc(@pb)|;..end;.|
|0001e450| 0d 09 70 72 6f 63 65 64 | 75 72 65 20 53 65 74 41 |..proced|ure SetA|
|0001e460| 78 69 73 41 74 74 72 69 | 62 75 74 65 73 20 28 77 |xisAttri|butes (w|
|0001e470| 68 69 63 68 41 78 69 73 | 3a 20 69 6e 74 65 67 65 |hichAxis|: intege|
|0001e480| 72 3b 20 66 6c 61 67 73 | 3a 20 6c 6f 6e 67 69 6e |r; flags|: longin|
|0001e490| 74 29 3b 0d 09 09 76 61 | 72 0d 09 09 09 70 62 3a |t);...va|r....pb:|
|0001e4a0| 20 52 75 6e 54 69 6d 65 | 50 61 72 61 6d 52 65 63 | RunTime|ParamRec|
|0001e4b0| 3b 0d 09 62 65 67 69 6e | 0d 09 09 70 62 2e 77 68 |;..begin|...pb.wh|
|0001e4c0| 61 74 20 3a 3d 20 32 34 | 35 3b 0d 09 09 70 62 2e |at := 24|5;...pb.|
|0001e4d0| 70 5b 31 5d 20 3a 3d 20 | 40 77 68 69 63 68 41 78 |p[1] := |@whichAx|
|0001e4e0| 69 73 3b 0d 09 09 70 62 | 2e 70 5b 30 5d 20 3a 3d |is;...pb|.p[0] :=|
|0001e4f0| 20 40 66 6c 61 67 73 3b | 0d 09 09 43 61 6c 6c 52 | @flags;|...CallR|
|0001e500| 75 6e 54 69 6d 65 50 72 | 6f 63 28 40 70 62 29 3b |unTimePr|oc(@pb);|
|0001e510| 0d 09 65 6e 64 3b 0d 0d | 09 70 72 6f 63 65 64 75 |..end;..|.procedu|
|0001e520| 72 65 20 53 65 74 47 72 | 61 70 68 41 74 74 72 69 |re SetGr|aphAttri|
|0001e530| 62 75 74 65 73 20 28 66 | 6c 61 67 73 3a 20 6c 6f |butes (f|lags: lo|
|0001e540| 6e 67 69 6e 74 29 3b 0d | 09 09 76 61 72 0d 09 09 |ngint);.|..var...|
|0001e550| 09 70 62 3a 20 52 75 6e | 54 69 6d 65 50 61 72 61 |.pb: Run|TimePara|
|0001e560| 6d 52 65 63 3b 0d 09 62 | 65 67 69 6e 0d 09 09 70 |mRec;..b|egin...p|
|0001e570| 62 2e 77 68 61 74 20 3a | 3d 20 32 34 36 3b 0d 09 |b.what :|= 246;..|
|0001e580| 09 70 62 2e 70 5b 30 5d | 20 3a 3d 20 40 66 6c 61 |.pb.p[0]| := @fla|
|0001e590| 67 73 3b 0d 09 09 43 61 | 6c 6c 52 75 6e 54 69 6d |gs;...Ca|llRunTim|
|0001e5a0| 65 50 72 6f 63 28 40 70 | 62 29 3b 0d 09 65 6e 64 |eProc(@p|b);..end|
|0001e5b0| 3b 0d 0d 0d 7b 20 54 68 | 65 20 66 6f 6c 6c 6f 77 |;...{ Th|e follow|
|0001e5c0| 69 6e 67 20 72 6f 75 74 | 69 6e 65 73 20 61 72 65 |ing rout|ines are|
|0001e5d0| 20 70 72 6f 76 69 64 65 | 64 20 66 6f 72 20 63 6f | provide|d for co|
|0001e5e0| 6e 76 65 72 74 69 6e 67 | 20 38 20 62 79 74 65 20 |nverting| 8 byte |
|0001e5f0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 76 |floating| point v|
|0001e600| 61 6c 75 65 73 20 69 6e | 74 6f 20 65 78 74 65 6e |alues in|to exten|
|0001e610| 64 65 64 20 76 61 6c 75 | 65 73 20 7d 0d 7b 20 54 |ded valu|es }.{ T|
|0001e620| 68 65 79 20 61 72 65 20 | 6f 6e 6c 79 20 72 65 71 |hey are |only req|
|0001e630| 75 69 72 65 64 20 66 6f | 72 20 63 6f 6d 70 69 6c |uired fo|r compil|
|0001e640| 65 72 73 20 74 68 61 74 | 20 64 6f 20 6e 6f 74 20 |ers that| do not |
|0001e650| 73 75 70 70 6f 72 74 20 | 69 6e 74 65 72 6d 69 78 |support |intermix|
|0001e660| 69 6e 67 20 6f 66 20 38 | 20 62 79 74 65 20 61 6e |ing of 8| byte an|
|0001e670| 64 20 31 30 2f 31 32 20 | 62 79 74 65 20 7d 0d 7b |d 10/12 |byte }.{|
|0001e680| 20 64 6f 75 62 6c 65 73 | 2c 20 73 75 63 68 20 61 | doubles|, such a|
|0001e690| 73 20 4d 57 20 50 61 73 | 63 61 6c 20 66 6f 72 20 |s MW Pas|cal for |
|0001e6a0| 36 38 6b 2e 20 54 68 65 | 20 72 6f 75 74 69 6e 65 |68k. The| routine|
|0001e6b0| 73 20 61 72 65 20 6e 6f | 74 20 6e 65 65 64 65 64 |s are no|t needed|
|0001e6c0| 20 6f 6e 20 61 20 50 6f | 77 65 72 4d 61 63 20 28 | on a Po|werMac (|
|0001e6d0| 77 68 65 72 65 20 7d 0d | 7b 20 65 78 74 65 6e 64 |where }.|{ extend|
|0001e6e0| 65 64 20 76 61 72 69 61 | 62 6c 65 73 20 61 72 65 |ed varia|bles are|
|0001e6f0| 20 61 6c 77 61 79 73 20 | 38 20 62 79 74 65 73 29 | always |8 bytes)|
|0001e700| 20 6f 72 20 6f 6e 20 74 | 68 65 20 54 68 69 6e 6b | or on t|he Think|
|0001e710| 20 50 61 73 63 61 6c 20 | 63 6f 6d 70 69 6c 65 72 | Pascal |compiler|
|0001e720| 20 28 77 68 69 63 68 20 | 61 75 74 6f 6d 61 74 69 | (which |automati|
|0001e730| 63 61 6c 6c 79 20 7d 0d | 7b 20 63 6f 6e 76 65 72 |cally }.|{ conver|
|0001e740| 74 73 20 62 65 74 77 65 | 65 6e 20 64 6f 75 62 6c |ts betwe|en doubl|
|0001e750| 65 5f 38 20 61 6e 64 20 | 65 78 74 65 6e 64 65 64 |e_8 and |extended|
|0001e760| 2e 20 46 6f 72 20 63 6f | 6d 70 61 74 69 62 69 6c |. For co|mpatibil|
|0001e770| 69 74 79 20 70 75 72 70 | 6f 73 65 73 2c 20 74 68 |ity purp|oses, th|
|0001e780| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 72 6f 75 74 |e follow|ing rout|
|0001e790| 69 6e 65 73 20 7d 0d 7b | 20 61 72 65 2c 20 68 6f |ines }.{| are, ho|
|0001e7a0| 77 65 76 65 72 2c 20 70 | 72 6f 76 69 64 65 64 20 |wever, p|rovided |
|0001e7b0| 66 6f 72 20 61 6c 6c 20 | 63 6f 6d 70 69 6c 65 72 |for all |compiler|
|0001e7c0| 73 20 7d 0d 0d 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |s }.....|function|
|0001e7d0| 20 44 62 6c 38 54 6f 45 | 78 74 20 28 78 3a 20 64 | Dbl8ToE|xt (x: d|
|0001e7e0| 6f 75 62 6c 65 5f 38 29 | 3a 20 65 78 74 65 6e 64 |ouble_8)|: extend|
|0001e7f0| 65 64 3b 0d 09 7b 20 63 | 6f 6e 76 65 72 74 73 20 |ed;..{ c|onverts |
|0001e800| 74 68 65 20 64 6f 75 62 | 6c 65 5f 38 20 76 61 6c |the doub|le_8 val|
|0001e810| 75 65 20 78 20 69 6e 74 | 6f 20 61 6e 20 65 78 74 |ue x int|o an ext|
|0001e820| 65 6e 64 65 64 20 28 31 | 30 20 62 79 74 65 29 20 |ended (1|0 byte) |
|0001e830| 76 61 6c 75 65 20 7d 0d | 0d 7b 24 49 46 43 20 43 |value }.|.{$IFC C|
|0001e840| 4f 4d 50 49 4c 45 52 5f | 4b 4e 4f 57 53 5f 44 4f |OMPILER_|KNOWS_DO|
|0001e850| 55 42 4c 45 5f 38 7d 0d | 09 62 65 67 69 6e 09 09 |UBLE_8}.|.begin..|
|0001e860| 09 09 7b 20 69 66 20 74 | 68 65 20 63 6f 6d 70 69 |..{ if t|he compi|
|0001e870| 6c 65 72 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |ler auto|maticall|
|0001e880| 79 20 63 6f 6e 76 65 72 | 74 73 20 62 65 74 77 65 |y conver|ts betwe|
|0001e890| 65 6e 20 64 6f 75 62 6c | 65 5f 38 20 61 6e 64 20 |en doubl|e_8 and |
|0001e8a0| 65 78 74 65 6e 64 65 64 | 20 7d 0d 09 09 44 62 6c |extended| }...Dbl|
|0001e8b0| 38 54 6f 45 78 74 20 3a | 3d 20 78 3b 09 7b 20 74 |8ToExt :|= x;.{ t|
|0001e8c0| 68 65 6e 20 74 68 65 72 | 65 27 73 20 6e 6f 74 68 |hen ther|e's noth|
|0001e8d0| 69 6e 67 20 74 6f 20 64 | 6f 20 66 6f 72 20 75 73 |ing to d|o for us|
|0001e8e0| 20 7d 0d 09 65 6e 64 3b | 0d 7b 24 45 4c 53 45 43 | }..end;|.{$ELSEC|
|0001e8f0| 7d 0d 0d 0d 09 7b 24 49 | 46 43 20 45 58 54 5f 53 |}....{$I|FC EXT_S|
|0001e900| 49 5a 45 3d 31 32 7d 0d | 09 7b 20 69 66 20 65 78 |IZE=12}.|.{ if ex|
|0001e910| 74 65 6e 64 65 64 20 69 | 73 20 31 32 20 62 79 74 |tended i|s 12 byt|
|0001e920| 65 73 20 7d 0d 09 70 72 | 6f 63 65 64 75 72 65 20 |es }..pr|ocedure |
|0001e930| 43 6f 6e 76 65 72 74 5f | 38 5f 31 32 20 28 64 38 |Convert_|8_12 (d8|
|0001e940| 3a 20 64 6f 75 62 6c 65 | 5f 38 3b 20 76 61 72 20 |: double|_8; var |
|0001e950| 78 3a 20 65 78 74 65 6e | 64 65 64 29 3b 0d 09 69 |x: exten|ded);..i|
|0001e960| 6e 6c 69 6e 65 0d 09 09 | 24 32 30 36 46 2c 20 24 |nline...|$206F, $|
|0001e970| 30 30 30 34 2c 09 09 7b | 20 4d 4f 56 45 41 2e 4c |0004,..{| MOVEA.L|
|0001e980| 20 20 20 24 30 30 30 34 | 28 41 37 29 2c 41 30 20 | $0004|(A7),A0 |
|0001e990| 7d 0d 09 09 24 46 32 31 | 30 2c 20 24 35 34 30 30 |}...$F21|0, $5400|
|0001e9a0| 2c 09 09 7b 20 46 4d 4f | 56 45 2e 44 20 20 20 28 |,..{ FMO|VE.D (|
|0001e9b0| 41 30 29 2c 46 50 30 20 | 7d 0d 09 09 24 32 30 35 |A0),FP0 |}...$205|
|0001e9c0| 37 2c 09 09 09 09 7b 20 | 4d 4f 56 45 41 2e 4c 20 |7,....{ |MOVEA.L |
|0001e9d0| 20 20 28 41 37 29 2c 41 | 30 20 7d 0d 09 09 24 46 | (A7),A|0 }...$F|
|0001e9e0| 32 31 30 2c 20 24 36 38 | 30 30 2c 09 09 7b 20 46 |210, $68|00,..{ F|
|0001e9f0| 4d 4f 56 45 2e 58 20 20 | 20 46 50 30 2c 28 41 30 |MOVE.X | FP0,(A0|
|0001ea00| 29 20 7d 0d 09 09 24 34 | 46 45 46 2c 20 24 30 30 |) }...$4|FEF, $00|
|0001ea10| 30 38 3b 09 09 7b 20 4c | 45 41 20 20 20 20 20 20 |08;..{ L|EA |
|0001ea20| 20 24 30 30 30 38 28 41 | 37 29 2c 41 37 20 7d 0d | $0008(A|7),A7 }.|
|0001ea30| 09 76 61 72 0d 09 09 72 | 65 73 75 6c 74 3a 20 65 |.var...r|esult: e|
|0001ea40| 78 74 65 6e 64 65 64 3b | 0d 62 65 67 69 6e 0d 09 |xtended;|.begin..|
|0001ea50| 43 6f 6e 76 65 72 74 5f | 38 5f 31 32 28 78 2c 20 |Convert_|8_12(x, |
|0001ea60| 72 65 73 75 6c 74 29 3b | 0d 09 44 62 6c 38 54 6f |result);|..Dbl8To|
|0001ea70| 45 78 74 20 3a 3d 20 72 | 65 73 75 6c 74 3b 0d 65 |Ext := r|esult;.e|
|0001ea80| 6e 64 3b 0d 09 7b 24 45 | 4c 53 45 43 7d 0d 09 7b |nd;..{$E|LSEC}..{|
|0001ea90| 20 69 66 20 65 78 74 65 | 6e 64 65 64 20 69 73 20 | if exte|nded is |
|0001eaa0| 31 30 20 62 79 74 65 73 | 20 7d 0d 0d 09 70 72 6f |10 bytes| }...pro|
|0001eab0| 63 65 64 75 72 65 20 43 | 6f 6e 76 65 72 74 5f 38 |cedure C|onvert_8|
|0001eac0| 5f 31 30 20 28 64 38 3a | 20 64 6f 75 62 6c 65 5f |_10 (d8:| double_|
|0001ead0| 38 3b 20 76 61 72 20 78 | 3a 20 65 78 74 65 6e 64 |8; var x|: extend|
|0001eae0| 65 64 29 3b 0d 09 69 6e | 6c 69 6e 65 0d 09 09 24 |ed);..in|line...$|
|0001eaf0| 33 46 33 43 2c 20 24 30 | 38 30 45 2c 09 7b 20 4d |3F3C, $0|80E,.{ M|
|0001eb00| 4f 56 45 2e 57 20 20 20 | 20 23 24 30 38 4f 45 2c |OVE.W | #$08OE,|
|0001eb10| 2d 28 41 37 29 20 7d 0d | 09 09 24 41 39 45 42 3b |-(A7) }.|..$A9EB;|
|0001eb20| 09 09 09 7b 20 5f 46 50 | 36 38 4b 2c 20 63 61 6c |...{ _FP|68K, cal|
|0001eb30| 6c 20 53 41 4e 45 20 66 | 6f 72 20 74 68 65 20 63 |l SANE f|or the c|
|0001eb40| 6f 6e 76 65 72 73 69 6f | 6e 20 7d 0d 09 76 61 72 |onversio|n }..var|
|0001eb50| 0d 09 09 72 65 73 75 6c | 74 3a 20 65 78 74 65 6e |...resul|t: exten|
|0001eb60| 64 65 64 3b 0d 62 65 67 | 69 6e 0d 09 43 6f 6e 76 |ded;.beg|in..Conv|
|0001eb70| 65 72 74 5f 38 5f 31 30 | 28 78 2c 20 72 65 73 75 |ert_8_10|(x, resu|
|0001eb80| 6c 74 29 3b 0d 09 44 62 | 6c 38 54 6f 45 78 74 20 |lt);..Db|l8ToExt |
|0001eb90| 3a 3d 20 72 65 73 75 6c | 74 3b 0d 65 6e 64 3b 0d |:= resul|t;.end;.|
|0001eba0| 09 7b 24 45 4e 44 43 7d | 0d 7b 24 45 4e 44 43 7d |.{$ENDC}|.{$ENDC}|
|0001ebb0| 0d 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 45 78 74 54 |...funct|ion ExtT|
|0001ebc0| 6f 44 62 6c 38 20 28 78 | 3a 20 65 78 74 65 6e 64 |oDbl8 (x|: extend|
|0001ebd0| 65 64 29 3a 20 64 6f 75 | 62 6c 65 5f 38 3b 0d 09 |ed): dou|ble_8;..|
|0001ebe0| 7b 20 63 6f 6e 76 65 72 | 74 73 20 74 68 65 20 64 |{ conver|ts the d|
|0001ebf0| 6f 75 62 6c 65 5f 38 20 | 76 61 6c 75 65 20 78 20 |ouble_8 |value x |
|0001ec00| 69 6e 74 6f 20 61 6e 20 | 65 78 74 65 6e 64 65 64 |into an |extended|
|0001ec10| 20 28 31 30 20 62 79 74 | 65 29 20 76 61 6c 75 65 | (10 byt|e) value|
|0001ec20| 20 7d 0d 0d 7b 24 49 46 | 43 20 43 4f 4d 50 49 4c | }..{$IF|C COMPIL|
|0001ec30| 45 52 5f 4b 4e 4f 57 53 | 5f 44 4f 55 42 4c 45 5f |ER_KNOWS|_DOUBLE_|
|0001ec40| 38 7d 0d 62 65 67 69 6e | 09 09 09 09 7b 20 69 66 |8}.begin|....{ if|
|0001ec50| 20 74 68 65 20 63 6f 6d | 70 69 6c 65 72 20 61 75 | the com|piler au|
|0001ec60| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 63 6f 6e 76 |tomatica|lly conv|
|0001ec70| 65 72 74 73 20 62 65 74 | 77 65 65 6e 20 64 6f 75 |erts bet|ween dou|
|0001ec80| 62 6c 65 5f 38 20 61 6e | 64 20 65 78 74 65 6e 64 |ble_8 an|d extend|
|0001ec90| 65 64 20 7d 0d 09 45 78 | 74 54 6f 44 62 6c 38 20 |ed }..Ex|tToDbl8 |
|0001eca0| 3a 3d 20 78 3b 09 7b 20 | 74 68 65 6e 20 74 68 65 |:= x;.{ |then the|
|0001ecb0| 72 65 27 73 20 6e 6f 74 | 68 69 6e 67 20 74 6f 20 |re's not|hing to |
|0001ecc0| 64 6f 20 66 6f 72 20 75 | 73 20 7d 0d 65 6e 64 3b |do for u|s }.end;|
|0001ecd0| 0d 7b 24 45 4c 53 45 43 | 7d 0d 0d 0d 09 7b 24 49 |.{$ELSEC|}....{$I|
|0001ece0| 46 43 20 45 58 54 5f 53 | 49 5a 45 3d 31 32 7d 0d |FC EXT_S|IZE=12}.|
|0001ecf0| 09 7b 20 69 66 20 65 78 | 74 65 6e 64 65 64 20 69 |.{ if ex|tended i|
|0001ed00| 73 20 31 32 20 62 79 74 | 65 73 20 7d 0d 0d 70 72 |s 12 byt|es }..pr|
|0001ed10| 6f 63 65 64 75 72 65 20 | 43 6f 6e 76 65 72 74 5f |ocedure |Convert_|
|0001ed20| 31 32 5f 38 20 28 78 3a | 20 65 78 74 65 6e 64 65 |12_8 (x:| extende|
|0001ed30| 64 3b 20 76 61 72 20 64 | 38 3a 20 64 6f 75 62 6c |d; var d|8: doubl|
|0001ed40| 65 5f 38 29 3b 0d 09 7b | 20 63 6f 6e 76 65 72 74 |e_8);..{| convert|
|0001ed50| 73 20 74 68 65 20 65 78 | 74 65 6e 64 65 64 20 28 |s the ex|tended (|
|0001ed60| 31 32 20 62 79 74 65 29 | 20 76 61 6c 75 65 20 78 |12 byte)| value x|
|0001ed70| 20 69 6e 74 6f 20 61 20 | 64 6f 75 62 6c 65 5f 38 | into a |double_8|
|0001ed80| 20 28 38 20 62 79 74 65 | 29 20 76 61 6c 75 65 20 | (8 byte|) value |
|0001ed90| 7d 0d 69 6e 6c 69 6e 65 | 0d 09 09 24 32 30 36 46 |}.inline|...$206F|
|0001eda0| 2c 20 24 30 30 30 34 2c | 09 09 7b 20 4d 4f 56 45 |, $0004,|..{ MOVE|
|0001edb0| 41 2e 4c 20 20 20 24 30 | 30 30 34 28 41 37 29 2c |A.L $0|004(A7),|
|0001edc0| 41 30 20 7d 0d 09 09 24 | 46 32 31 30 2c 20 24 34 |A0 }...$|F210, $4|
|0001edd0| 38 30 30 2c 09 09 7b 20 | 46 4d 4f 56 45 2e 58 20 |800,..{ |FMOVE.X |
|0001ede0| 20 20 28 41 30 29 2c 46 | 50 30 20 7d 0d 09 09 24 | (A0),F|P0 }...$|
|0001edf0| 32 30 35 37 2c 09 09 09 | 09 7b 20 4d 4f 56 45 41 |2057,...|.{ MOVEA|
|0001ee00| 2e 4c 20 20 20 28 41 37 | 29 2c 41 30 20 7d 0d 09 |.L (A7|),A0 }..|
|0001ee10| 09 24 46 32 31 30 2c 20 | 24 37 34 30 30 2c 09 09 |.$F210, |$7400,..|
|0001ee20| 7b 20 46 4d 4f 56 45 2e | 44 20 20 20 46 50 30 2c |{ FMOVE.|D FP0,|
|0001ee30| 28 41 30 29 20 7d 0d 09 | 09 24 34 46 45 46 2c 20 |(A0) }..|.$4FEF, |
|0001ee40| 24 30 30 30 38 3b 09 09 | 7b 20 4c 45 41 20 20 20 |$0008;..|{ LEA |
|0001ee50| 20 20 20 20 24 30 30 30 | 38 28 41 37 29 2c 41 37 | $000|8(A7),A7|
|0001ee60| 20 7d 0d 76 61 72 0d 09 | 72 65 73 75 6c 74 3a 20 | }.var..|result: |
|0001ee70| 64 6f 75 62 6c 65 5f 38 | 3b 0d 62 65 67 69 6e 0d |double_8|;.begin.|
|0001ee80| 09 43 6f 6e 76 65 72 74 | 5f 31 32 5f 38 28 78 2c |.Convert|_12_8(x,|
|0001ee90| 20 72 65 73 75 6c 74 29 | 3b 0d 09 45 78 74 54 6f | result)|;..ExtTo|
|0001eea0| 44 62 6c 38 20 3a 3d 20 | 72 65 73 75 6c 74 3b 0d |Dbl8 := |result;.|
|0001eeb0| 65 6e 64 3b 0d 0d 09 7b | 24 45 4c 53 45 43 7d 0d |end;...{|$ELSEC}.|
|0001eec0| 09 7b 20 69 66 20 65 78 | 74 65 6e 64 65 64 20 69 |.{ if ex|tended i|
|0001eed0| 73 20 31 30 20 62 79 74 | 65 73 20 7d 0d 0d 70 72 |s 10 byt|es }..pr|
|0001eee0| 6f 63 65 64 75 72 65 20 | 43 6f 6e 76 65 72 74 5f |ocedure |Convert_|
|0001eef0| 31 30 5f 38 20 28 78 3a | 20 65 78 74 65 6e 64 65 |10_8 (x:| extende|
|0001ef00| 64 3b 20 76 61 72 20 64 | 38 3a 20 64 6f 75 62 6c |d; var d|8: doubl|
|0001ef10| 65 5f 38 29 3b 0d 09 7b | 20 63 6f 6e 76 65 72 74 |e_8);..{| convert|
|0001ef20| 73 20 74 68 65 20 65 78 | 74 65 6e 64 65 64 20 28 |s the ex|tended (|
|0001ef30| 31 30 20 62 79 74 65 29 | 20 76 61 6c 75 65 20 78 |10 byte)| value x|
|0001ef40| 20 69 6e 74 6f 20 61 20 | 64 6f 75 62 6c 65 5f 38 | into a |double_8|
|0001ef50| 20 28 38 20 62 79 74 65 | 29 20 76 61 6c 75 65 20 | (8 byte|) value |
|0001ef60| 7d 0d 69 6e 6c 69 6e 65 | 0d 09 24 33 46 33 43 2c |}.inline|..$3F3C,|
|0001ef70| 20 24 30 38 31 30 2c 09 | 7b 20 4d 4f 56 45 2e 57 | $0810,.|{ MOVE.W|
|0001ef80| 20 20 20 20 23 24 30 38 | 31 30 2c 2d 28 41 37 29 | #$08|10,-(A7)|
|0001ef90| 20 7d 0d 09 24 41 39 45 | 42 3b 09 09 09 7b 20 5f | }..$A9E|B;...{ _|
|0001efa0| 46 50 36 38 4b 2c 20 63 | 61 6c 6c 20 53 41 4e 45 |FP68K, c|all SANE|
|0001efb0| 20 66 6f 72 20 74 68 65 | 20 63 6f 6e 76 65 72 73 | for the| convers|
|0001efc0| 69 6f 6e 20 7d 0d 76 61 | 72 0d 09 72 65 73 75 6c |ion }.va|r..resul|
|0001efd0| 74 3a 20 64 6f 75 62 6c | 65 5f 38 3b 0d 62 65 67 |t: doubl|e_8;.beg|
|0001efe0| 69 6e 0d 09 43 6f 6e 76 | 65 72 74 5f 31 30 5f 38 |in..Conv|ert_10_8|
|0001eff0| 28 78 2c 20 72 65 73 75 | 6c 74 29 3b 0d 09 45 78 |(x, resu|lt);..Ex|
|0001f000| 74 54 6f 44 62 6c 38 20 | 3a 3d 20 72 65 73 75 6c |tToDbl8 |:= resul|
|0001f010| 74 3b 0d 65 6e 64 3b 0d | 09 7b 24 45 4e 44 43 7d |t;.end;.|.{$ENDC}|
|0001f020| 0d 7b 24 45 4e 44 43 7d | 0d 0d 65 6e 64 2e 0d 00 |.{$ENDC}|..end...|
|0001f030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f080| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|0001f090| 52 2e 52 2e 56 2e 5c ff | ff 00 00 1c 2c 00 2b 00 |R.R.V.\.|....,.+.|
|0001f0a0| 00 00 0a ff ff 00 00 09 | 63 00 2b 00 00 00 12 ff |........|c.+.....|
|0001f0b0| 12 70 72 6f 46 69 74 5f | 69 6e 74 65 72 66 61 63 |.proFit_|interfac|
|0001f0c0| 65 2e 70 66 02 00 00 00 | 54 45 58 54 50 4a 4d 4d |e.pf....|TEXTPJMM|
|0001f0d0| 00 00 54 45 58 54 50 4a | 4d 4d 01 00 00 00 00 c0 |..TEXTPJ|MM......|
|0001f0e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f0f0| 00 00 a9 3a 0f 86 00 01 | ef af 00 00 01 9a 2b 00 |...:....|......+.|
|0001f100| 00 00 6c ff ff 00 00 09 | 63 00 2b 00 00 00 80 ff |..l.....|c.+.....|
|0001f110| ff 00 00 05 fc 00 2b 00 | 00 00 8c ff ff 00 00 05 |......+.|........|
|0001f120| fe 00 2b 00 00 00 ba ff | ff 00 00 05 a6 00 2b 00 |..+.....|......+.|
|0001f130| 00 00 c6 ff ff 00 00 05 | a6 00 2b 00 00 00 f2 ff |........|..+.....|
|0001f140| ff 00 00 05 e9 00 2b 00 | 00 01 14 ff fe 00 00 04 |......+.|........|
|0001f150| 7f 00 2b 00 00 01 34 ff | ff 00 00 05 e9 00 2b 00 |..+...4.|......+.|
|0001f160| 00 01 48 ff fe 00 00 04 | 2c 00 2b 00 00 01 4e ff |..H.....|,.+...N.|
|0001f170| ff 00 00 05 df 00 2b 00 | 00 01 54 ff ff 00 00 06 |......+.|..T.....|
|0001f180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|0001f190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f1a0| 00 00 00 00 00 00 00 03 | 00 04 00 59 00 13 03 63 |........|...Y...c|
|0001f1b0| 02 72 00 59 00 13 03 63 | 02 72 ad c2 66 29 00 00 |.r.Y...c|.r..f)..|
|0001f1c0| a4 e3 00 00 a4 e3 00 00 | 9f 36 00 00 00 00 00 04 |........|.6......|
|0001f1d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|0001f1e0| 00 00 00 46 02 94 a5 3c | 23 fe 00 00 00 1c 00 46 |...F...<|#......F|
|0001f1f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|0001f200| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|0001f210| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|0001f220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
