home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / B-C / BenchMarks.cpt / Whetstone.p < prev   
MacBinary  |  1988-12-31  |  6.3 KB  |  [TEXT/PJMM]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Whetstone.p

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat Dec 31 15:44:20 1988, modified Sat Dec 31 15:44:20 1988, creator Think Pascal, type ASCII, 5039 bytes "Whetstone.p" , at 0x142f 1031 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
keyvalue
macFileType[TEXT]
macFileCreator[PJMM]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 57 68 65 74 73 74 | 6f 6e 65 2e 70 00 00 00 |..Whetst|one.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 00 13 af 00 | 00 04 07 9f e2 ec a4 9f |........|........|
|00000060| e2 ec a4 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 98 36 00 00 |........|.....6..|
|00000080| 75 6e 69 74 20 57 68 65 | 74 73 74 6f 6e 65 3b 0d |unit Whe|tstone;.|
|00000090| 0d 69 6e 74 65 72 66 61 | 63 65 0d 0d 09 66 75 6e |.interfa|ce...fun|
|000000a0| 63 74 69 6f 6e 20 64 6f | 57 68 65 74 73 74 6f 6e |ction do|Whetston|
|000000b0| 65 3a 20 72 65 61 6c 3b | 0d 0d 69 6d 70 6c 65 6d |e: real;|..implem|
|000000c0| 65 6e 74 61 74 69 6f 6e | 0d 0d 09 66 75 6e 63 74 |entation|...funct|
|000000d0| 69 6f 6e 20 64 6f 57 68 | 65 74 73 74 6f 6e 65 3a |ion doWh|etstone:|
|000000e0| 20 72 65 61 6c 3b 0d 0d | 09 09 63 6f 6e 73 74 0d | real;..|..const.|
|000000f0| 09 09 09 4c 6f 6f 70 20 | 3d 20 31 30 3b 20 7b 65 |...Loop |= 10; {e|
|00000100| 71 75 69 76 2e 20 74 6f | 20 6f 6e 65 20 6d 69 6c |quiv. to| one mil|
|00000110| 6c 69 6f 6e 20 77 68 65 | 74 73 74 6f 6e 65 73 7d |lion whe|tstones}|
|00000120| 0d 0d 09 09 74 79 70 65 | 0d 09 09 09 65 41 72 72 |....type|....eArr|
|00000130| 20 3d 20 61 72 72 61 79 | 5b 31 2e 2e 34 5d 20 6f | = array|[1..4] o|
|00000140| 66 20 72 65 61 6c 3b 0d | 0d 09 09 76 61 72 0d 09 |f real;.|...var..|
|00000150| 09 09 78 31 2c 20 78 32 | 2c 20 78 33 2c 20 78 34 |..x1, x2|, x3, x4|
|00000160| 2c 20 78 2c 20 79 2c 20 | 7a 2c 20 74 2c 20 74 31 |, x, y, |z, t, t1|
|00000170| 2c 20 74 32 3a 20 72 65 | 61 6c 3b 0d 09 09 09 65 |, t2: re|al;....e|
|00000180| 31 3a 20 65 41 72 72 3b | 0d 09 09 09 69 2c 20 6a |1: eArr;|....i, j|
|00000190| 2c 20 6b 2c 20 6c 2c 20 | 6e 31 2c 20 6e 32 2c 20 |, k, l, |n1, n2, |
|000001a0| 6e 33 2c 20 6e 34 2c 20 | 6e 35 2c 20 6e 36 2c 20 |n3, n4, |n5, n6, |
|000001b0| 6e 37 2c 20 6e 38 2c 20 | 6e 39 2c 20 6e 31 30 2c |n7, n8, |n9, n10,|
|000001c0| 20 6e 31 31 3a 20 69 6e | 74 65 67 65 72 3b 0d 0d | n11: in|teger;..|
|000001d0| 09 09 09 6a 6a 3a 20 69 | 6e 74 65 67 65 72 3b 0d |...jj: i|nteger;.|
|000001e0| 09 09 09 69 74 65 72 61 | 74 69 6f 6e 73 3a 20 69 |...itera|tions: i|
|000001f0| 6e 74 65 67 65 72 3b 0d | 09 09 09 74 69 63 6b 73 |nteger;.|...ticks|
|00000200| 3a 20 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 09 73 65 |: longin|t;....se|
|00000210| 63 6f 6e 64 73 3a 20 72 | 65 61 6c 3b 0d 09 09 09 |conds: r|eal;....|
|00000220| 77 68 65 74 53 74 6f 6e | 65 73 3a 20 72 65 61 6c |whetSton|es: real|
|00000230| 3b 0d 0d 09 09 70 72 6f | 63 65 64 75 72 65 20 70 |;....pro|cedure p|
|00000240| 61 20 28 76 61 72 20 65 | 3a 20 65 41 72 72 29 3b |a (var e|: eArr);|
|00000250| 0d 09 09 09 76 61 72 0d | 09 09 09 09 6a 3a 20 69 |....var.|....j: i|
|00000260| 6e 74 65 67 65 72 3b 0d | 09 09 62 65 67 69 6e 0d |nteger;.|..begin.|
|00000270| 09 09 09 6a 20 3a 3d 20 | 30 3b 0d 09 09 09 72 65 |...j := |0;....re|
|00000280| 70 65 61 74 0d 09 09 09 | 09 65 5b 31 5d 20 3a 3d |peat....|.e[1] :=|
|00000290| 20 28 65 5b 31 5d 20 2b | 20 65 5b 32 5d 20 2b 20 | (e[1] +| e[2] + |
|000002a0| 65 5b 33 5d 20 2d 20 65 | 5b 34 5d 29 20 2a 20 74 |e[3] - e|[4]) * t|
|000002b0| 3b 0d 09 09 09 09 65 5b | 31 5d 20 3a 3d 20 28 65 |;.....e[|1] := (e|
|000002c0| 5b 31 5d 20 2b 20 65 5b | 32 5d 20 2d 20 65 5b 33 |[1] + e[|2] - e[3|
|000002d0| 5d 20 2b 20 65 5b 34 5d | 29 20 2a 20 74 3b 0d 09 |] + e[4]|) * t;..|
|000002e0| 09 09 09 65 5b 31 5d 20 | 3a 3d 20 28 65 5b 31 5d |...e[1] |:= (e[1]|
|000002f0| 20 2d 20 65 5b 32 5d 20 | 2b 20 65 5b 33 5d 20 2b | - e[2] |+ e[3] +|
|00000300| 20 65 5b 34 5d 29 20 2a | 20 74 3b 0d 09 09 09 09 | e[4]) *| t;.....|
|00000310| 65 5b 31 5d 20 3a 3d 20 | 28 2d 65 5b 31 5d 20 2b |e[1] := |(-e[1] +|
|00000320| 20 65 5b 32 5d 20 2b 20 | 65 5b 33 5d 20 2b 20 65 | e[2] + |e[3] + e|
|00000330| 5b 34 5d 29 20 2f 20 74 | 32 3b 0d 09 09 09 09 6a |[4]) / t|2;.....j|
|00000340| 20 3a 3d 20 6a 20 2b 20 | 31 3b 0d 09 09 09 75 6e | := j + |1;....un|
|00000350| 74 69 6c 20 6a 20 3e 3d | 20 36 3b 0d 09 09 65 6e |til j >=| 6;...en|
|00000360| 64 3b 0d 0d 09 09 70 72 | 6f 63 65 64 75 72 65 20 |d;....pr|ocedure |
|00000370| 70 30 3b 0d 09 09 62 65 | 67 69 6e 0d 09 09 09 65 |p0;...be|gin....e|
|00000380| 31 5b 6a 5d 20 3a 3d 20 | 65 31 5b 6b 5d 3b 0d 09 |1[j] := |e1[k];..|
|00000390| 09 09 65 31 5b 6b 5d 20 | 3a 3d 20 65 31 5b 6c 5d |..e1[k] |:= e1[l]|
|000003a0| 3b 0d 09 09 09 65 31 5b | 6c 5d 20 3a 3d 20 65 31 |;....e1[|l] := e1|
|000003b0| 5b 6a 5d 3b 0d 09 09 65 | 6e 64 3b 0d 0d 09 09 70 |[j];...e|nd;....p|
|000003c0| 72 6f 63 65 64 75 72 65 | 20 70 33 20 28 78 2c 20 |rocedure| p3 (x, |
|000003d0| 79 3a 20 72 65 61 6c 3b | 0d 09 09 09 09 09 09 09 |y: real;|........|
|000003e0| 09 09 09 76 61 72 20 7a | 3a 20 72 65 61 6c 29 3b |...var z|: real);|
|000003f0| 0d 09 09 62 65 67 69 6e | 0d 09 09 09 78 20 3a 3d |...begin|....x :=|
|00000400| 20 74 20 2a 20 28 78 20 | 2b 20 79 29 3b 0d 09 09 | t * (x |+ y);...|
|00000410| 09 79 20 3a 3d 20 74 20 | 2a 20 28 78 20 2b 20 79 |.y := t |* (x + y|
|00000420| 29 3b 0d 09 09 09 7a 20 | 3a 3d 20 74 20 2a 20 28 |);....z |:= t * (|
|00000430| 78 20 2b 20 79 29 20 2f | 20 74 32 3b 0d 09 09 65 |x + y) /| t2;...e|
|00000440| 6e 64 3b 0d 0d 09 09 70 | 72 6f 63 65 64 75 72 65 |nd;....p|rocedure|
|00000450| 20 70 6f 75 74 20 28 6e | 2c 20 6a 2c 20 6b 3a 20 | pout (n|, j, k: |
|00000460| 69 6e 74 65 67 65 72 3b | 0d 09 09 09 09 09 09 09 |integer;|........|
|00000470| 09 09 09 78 31 2c 20 78 | 32 2c 20 78 33 2c 20 78 |...x1, x|2, x3, x|
|00000480| 34 3a 20 72 65 61 6c 29 | 3b 0d 09 09 62 65 67 69 |4: real)|;...begi|
|00000490| 6e 0d 09 09 7b 77 72 69 | 74 65 28 6e 29 3b 7d 0d |n...{wri|te(n);}.|
|000004a0| 09 09 7b 77 72 69 74 65 | 28 6a 29 3b 7d 0d 09 09 |..{write|(j);}...|
|000004b0| 7b 77 72 69 74 65 28 6b | 29 3b 7d 0d 09 09 7b 77 |{write(k|);}...{w|
|000004c0| 72 69 74 65 28 78 31 29 | 3b 7d 0d 09 09 7b 77 72 |rite(x1)|;}...{wr|
|000004d0| 69 74 65 28 78 32 29 3b | 7d 0d 09 09 7b 77 72 69 |ite(x2);|}...{wri|
|000004e0| 74 65 28 78 33 29 3b 7d | 0d 09 09 7b 77 72 69 74 |te(x3);}|...{writ|
|000004f0| 65 6c 6e 28 78 34 29 3b | 7d 0d 09 09 65 6e 64 3b |eln(x4);|}...end;|
|00000500| 0d 0d 7b 24 49 46 43 20 | 55 4e 44 45 46 49 4e 45 |..{$IFC |UNDEFINE|
|00000510| 44 20 54 48 49 4e 4b 5f | 50 41 53 43 41 4c 7d 0d |D THINK_|PASCAL}.|
|00000520| 09 09 66 75 6e 63 74 69 | 6f 6e 20 54 69 63 6b 43 |..functi|on TickC|
|00000530| 6f 75 6e 74 3a 20 4c 4f | 4e 47 49 4e 54 3b 0d 09 |ount: LO|NGINT;..|
|00000540| 09 69 6e 6c 69 6e 65 0d | 09 09 09 24 41 39 37 35 |.inline.|...$A975|
|00000550| 3b 0d 0d 09 09 70 72 6f | 63 65 64 75 72 65 20 44 |;....pro|cedure D|
|00000560| 65 62 75 67 67 65 72 3b | 0d 09 09 69 6e 6c 69 6e |ebugger;|...inlin|
|00000570| 65 0d 09 09 09 24 61 39 | 66 66 3b 0d 0d 09 09 70 |e....$a9|ff;....p|
|00000580| 72 6f 63 65 64 75 72 65 | 20 53 68 6f 77 54 65 78 |rocedure| ShowTex|
|00000590| 74 3b 0d 09 09 62 65 67 | 69 6e 0d 09 09 65 6e 64 |t;...beg|in...end|
|000005a0| 3b 0d 7b 24 45 4e 44 43 | 7d 0d 0d 09 62 65 67 69 |;.{$ENDC|}...begi|
|000005b0| 6e 0d 09 7b 73 68 6f 77 | 74 65 78 74 3b 09 7d 0d |n..{show|text;.}.|
|000005c0| 09 7b 77 72 69 74 65 28 | 27 54 6f 74 61 6c 20 69 |.{write(|'Total i|
|000005d0| 74 65 72 61 74 69 6f 6e | 73 20 3e 27 29 3b 7d 0d |teration|s >');}.|
|000005e0| 09 7b 72 65 61 64 6c 6e | 28 69 74 65 72 61 74 69 |.{readln|(iterati|
|000005f0| 6f 6e 73 29 3b 7d 0d 09 | 09 69 74 65 72 61 74 69 |ons);}..|.iterati|
|00000600| 6f 6e 73 20 3a 3d 20 31 | 30 3b 0d 09 09 74 69 63 |ons := 1|0;...tic|
|00000610| 6b 73 20 3a 3d 20 74 69 | 63 6b 63 6f 75 6e 74 3b |ks := ti|ckcount;|
|00000620| 0d 0d 09 09 74 20 3a 3d | 20 30 2e 34 39 39 39 37 |....t :=| 0.49997|
|00000630| 35 3b 0d 09 09 74 31 20 | 3a 3d 20 30 2e 35 30 30 |5;...t1 |:= 0.500|
|00000640| 32 35 3b 0d 09 09 74 32 | 20 3a 3d 20 32 2e 30 3b |25;...t2| := 2.0;|
|00000650| 0d 09 09 66 6f 72 20 6a | 6a 20 3a 3d 20 31 20 74 |...for j|j := 1 t|
|00000660| 6f 20 69 74 65 72 61 74 | 69 6f 6e 73 20 64 6f 0d |o iterat|ions do.|
|00000670| 09 09 09 62 65 67 69 6e | 0d 0d 09 09 09 09 6e 31 |...begin|......n1|
|00000680| 20 3a 3d 20 30 3b 0d 09 | 09 09 09 6e 32 20 3a 3d | := 0;..|...n2 :=|
|00000690| 20 31 32 20 2a 20 4c 6f | 6f 70 3b 0d 09 09 09 09 | 12 * Lo|op;.....|
|000006a0| 6e 33 20 3a 3d 20 31 34 | 20 2a 20 4c 6f 6f 70 3b |n3 := 14| * Loop;|
|000006b0| 0d 09 09 09 09 6e 34 20 | 3a 3d 20 33 34 35 20 2a |.....n4 |:= 345 *|
|000006c0| 20 4c 6f 6f 70 3b 0d 09 | 09 09 09 6e 35 20 3a 3d | Loop;..|...n5 :=|
|000006d0| 20 30 3b 0d 09 09 09 09 | 6e 36 20 3a 3d 20 32 31 | 0;.....|n6 := 21|
|000006e0| 30 20 2a 20 4c 6f 6f 70 | 3b 0d 09 09 09 09 6e 37 |0 * Loop|;.....n7|
|000006f0| 20 3a 3d 20 33 32 20 2a | 20 4c 6f 6f 70 3b 0d 09 | := 32 *| Loop;..|
|00000700| 09 09 09 6e 38 20 3a 3d | 20 38 39 39 20 2a 20 4c |...n8 :=| 899 * L|
|00000710| 6f 6f 70 3b 0d 09 09 09 | 09 6e 39 20 3a 3d 20 36 |oop;....|.n9 := 6|
|00000720| 31 36 20 2a 20 4c 6f 6f | 70 3b 0d 09 09 09 09 6e |16 * Loo|p;.....n|
|00000730| 31 30 20 3a 3d 20 30 20 | 2a 20 4c 6f 6f 70 3b 0d |10 := 0 |* Loop;.|
|00000740| 09 09 09 09 6e 31 31 20 | 3a 3d 20 39 33 20 2a 20 |....n11 |:= 93 * |
|00000750| 4c 6f 6f 70 3b 0d 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a |Loop;..(|********|
|00000760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 31 20 2a 2a 2a 2a |********|* 1 ****|
|00000770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|00000780| 0d 0d 09 09 09 09 78 31 | 20 3a 3d 20 31 2e 30 3b |......x1| := 1.0;|
|00000790| 0d 09 09 09 09 78 32 20 | 3a 3d 20 2d 31 2e 30 3b |.....x2 |:= -1.0;|
|000007a0| 0d 09 09 09 09 78 33 20 | 3a 3d 20 2d 31 2e 30 3b |.....x3 |:= -1.0;|
|000007b0| 0d 09 09 09 09 78 34 20 | 3a 3d 20 2d 31 2e 30 3b |.....x4 |:= -1.0;|
|000007c0| 0d 09 09 09 09 66 6f 72 | 20 69 20 3a 3d 20 31 20 |.....for| i := 1 |
|000007d0| 74 6f 20 6e 31 20 64 6f | 0d 09 09 09 09 09 62 65 |to n1 do|......be|
|000007e0| 67 69 6e 0d 09 09 09 09 | 09 09 78 31 20 3a 3d 20 |gin.....|..x1 := |
|000007f0| 28 78 31 20 2b 20 78 32 | 20 2b 20 78 33 20 2d 20 |(x1 + x2| + x3 - |
|00000800| 78 34 29 20 2a 20 74 3b | 0d 09 09 09 09 09 09 78 |x4) * t;|.......x|
|00000810| 31 20 3a 3d 20 28 78 31 | 20 2b 20 78 32 20 2d 20 |1 := (x1| + x2 - |
|00000820| 78 33 20 2b 20 78 34 29 | 20 2a 20 74 3b 0d 09 09 |x3 + x4)| * t;...|
|00000830| 09 09 09 09 78 31 20 3a | 3d 20 28 78 31 20 2d 20 |....x1 :|= (x1 - |
|00000840| 78 32 20 2b 20 78 33 20 | 2b 20 78 34 29 20 2a 20 |x2 + x3 |+ x4) * |
|00000850| 74 3b 0d 09 09 09 09 09 | 09 78 31 20 3a 3d 20 28 |t;......|.x1 := (|
|00000860| 2d 78 31 20 2b 20 78 32 | 20 2b 20 78 33 20 2b 20 |-x1 + x2| + x3 + |
|00000870| 78 34 29 20 2a 20 74 3b | 0d 09 09 09 09 09 65 6e |x4) * t;|......en|
|00000880| 64 3b 0d 09 09 09 09 69 | 66 20 6a 6a 20 3d 20 69 |d;.....i|f jj = i|
|00000890| 74 65 72 61 74 69 6f 6e | 73 20 74 68 65 6e 0d 09 |teration|s then..|
|000008a0| 09 09 09 09 70 6f 75 74 | 28 6e 31 2c 20 6e 31 2c |....pout|(n1, n1,|
|000008b0| 20 6e 31 2c 20 78 31 2c | 20 78 32 2c 20 78 33 2c | n1, x1,| x2, x3,|
|000008c0| 20 78 34 29 3b 0d 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a | x4);..(|********|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 20 | 32 20 2a 2a 2a 2a 2a 2a |******* |2 ******|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 29 |********|*******)|
|000008f0| 0d 0d 09 09 09 09 65 31 | 5b 31 5d 20 3a 3d 20 31 |......e1|[1] := 1|
|00000900| 2e 30 3b 0d 09 09 09 09 | 65 31 5b 32 5d 20 3a 3d |.0;.....|e1[2] :=|
|00000910| 20 2d 31 2e 30 3b 0d 09 | 09 09 09 65 31 5b 33 5d | -1.0;..|...e1[3]|
|00000920| 20 3a 3d 20 2d 31 2e 30 | 3b 0d 09 09 09 09 65 31 | := -1.0|;.....e1|
|00000930| 5b 34 5d 20 3a 3d 20 2d | 31 2e 30 3b 0d 09 09 09 |[4] := -|1.0;....|
|00000940| 09 66 6f 72 20 69 20 3a | 3d 20 31 20 74 6f 20 6e |.for i :|= 1 to n|
|00000950| 32 20 64 6f 0d 09 09 09 | 09 09 62 65 67 69 6e 0d |2 do....|..begin.|
|00000960| 09 09 09 09 09 09 65 31 | 5b 31 5d 20 3a 3d 20 28 |......e1|[1] := (|
|00000970| 65 31 5b 31 5d 20 2b 20 | 65 31 5b 32 5d 20 2b 20 |e1[1] + |e1[2] + |
|00000980| 65 31 5b 33 5d 20 2d 20 | 65 31 5b 34 5d 29 20 2a |e1[3] - |e1[4]) *|
|00000990| 20 74 3b 0d 09 09 09 09 | 09 09 65 31 5b 31 5d 20 | t;.....|..e1[1] |
|000009a0| 3a 3d 20 28 65 31 5b 31 | 5d 20 2b 20 65 31 5b 32 |:= (e1[1|] + e1[2|
|000009b0| 5d 20 2d 20 65 31 5b 33 | 5d 20 2b 20 65 31 5b 34 |] - e1[3|] + e1[4|
|000009c0| 5d 29 20 2a 20 74 3b 0d | 09 09 09 09 09 09 65 31 |]) * t;.|......e1|
|000009d0| 5b 31 5d 20 3a 3d 20 28 | 65 31 5b 31 5d 20 2d 20 |[1] := (|e1[1] - |
|000009e0| 65 31 5b 32 5d 20 2b 20 | 65 31 5b 33 5d 20 2b 20 |e1[2] + |e1[3] + |
|000009f0| 65 31 5b 34 5d 29 20 2a | 20 74 3b 0d 09 09 09 09 |e1[4]) *| t;.....|
|00000a00| 09 09 65 31 5b 31 5d 20 | 3a 3d 20 28 2d 65 31 5b |..e1[1] |:= (-e1[|
|00000a10| 31 5d 20 2b 20 65 31 5b | 32 5d 20 2b 20 65 31 5b |1] + e1[|2] + e1[|
|00000a20| 33 5d 20 2b 20 65 31 5b | 34 5d 29 20 2a 20 74 3b |3] + e1[|4]) * t;|
|00000a30| 0d 09 09 09 09 09 65 6e | 64 3b 0d 09 09 09 09 69 |......en|d;.....i|
|00000a40| 66 20 6a 6a 20 3d 20 69 | 74 65 72 61 74 69 6f 6e |f jj = i|teration|
|00000a50| 73 20 74 68 65 6e 0d 09 | 09 09 09 09 70 6f 75 74 |s then..|....pout|
|00000a60| 28 6e 32 2c 20 6e 33 2c | 20 6e 32 2c 20 65 31 5b |(n2, n3,| n2, e1[|
|00000a70| 31 5d 2c 20 65 31 5b 32 | 5d 2c 20 65 31 5b 33 5d |1], e1[2|], e1[3]|
|00000a80| 2c 20 65 31 5b 34 5d 29 | 3b 0d 0d 28 2a 2a 2a 2a |, e1[4])|;..(****|
|00000a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 33 20 2a 2a |********|*** 3 **|
|00000aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ab0| 2a 2a 2a 29 0d 0d 09 09 | 09 09 66 6f 72 20 69 20 |***)....|..for i |
|00000ac0| 3a 3d 20 31 20 74 6f 20 | 6e 33 20 64 6f 0d 09 09 |:= 1 to |n3 do...|
|00000ad0| 09 09 09 70 61 28 65 31 | 29 3b 0d 09 09 09 09 69 |...pa(e1|);.....i|
|00000ae0| 66 20 6a 6a 20 3d 20 69 | 74 65 72 61 74 69 6f 6e |f jj = i|teration|
|00000af0| 73 20 74 68 65 6e 0d 09 | 09 09 09 09 70 6f 75 74 |s then..|....pout|
|00000b00| 28 6e 32 2c 20 6e 33 2c | 20 6e 32 2c 20 65 31 5b |(n2, n3,| n2, e1[|
|00000b10| 31 5d 2c 20 65 31 5b 32 | 5d 2c 20 65 31 5b 33 5d |1], e1[2|], e1[3]|
|00000b20| 2c 20 65 31 5b 34 5d 29 | 3b 0d 0d 28 2a 2a 2a 2a |, e1[4])|;..(****|
|00000b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 34 20 2a 2a |********|*** 4 **|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 29 0d 0d 09 09 | 09 09 6a 20 3a 3d 20 31 |***)....|..j := 1|
|00000b60| 3b 0d 09 09 09 09 66 6f | 72 20 69 20 3a 3d 20 31 |;.....fo|r i := 1|
|00000b70| 20 74 6f 20 6e 34 20 64 | 6f 0d 09 09 09 09 09 62 | to n4 d|o......b|
|00000b80| 65 67 69 6e 0d 09 09 09 | 09 09 09 69 66 20 6a 20 |egin....|...if j |
|00000b90| 3d 20 31 20 74 68 65 6e | 0d 09 09 09 09 09 09 09 |= 1 then|........|
|00000ba0| 6a 20 3a 3d 20 32 0d 09 | 09 09 09 09 09 65 6c 73 |j := 2..|.....els|
|00000bb0| 65 0d 09 09 09 09 09 09 | 09 6a 20 3a 3d 20 33 3b |e.......|.j := 3;|
|00000bc0| 0d 09 09 09 09 09 09 69 | 66 20 6a 20 3e 20 32 20 |.......i|f j > 2 |
|00000bd0| 74 68 65 6e 0d 09 09 09 | 09 09 09 09 6a 20 3a 3d |then....|....j :=|
|00000be0| 20 30 0d 09 09 09 09 09 | 09 65 6c 73 65 0d 09 09 | 0......|.else...|
|00000bf0| 09 09 09 09 09 6a 20 3a | 3d 20 31 3b 0d 09 09 09 |.....j :|= 1;....|
|00000c00| 09 09 09 69 66 20 6a 20 | 3c 20 31 20 74 68 65 6e |...if j |< 1 then|
|00000c10| 0d 09 09 09 09 09 09 09 | 6a 20 3a 3d 20 31 0d 09 |........|j := 1..|
|00000c20| 09 09 09 09 09 65 6c 73 | 65 0d 09 09 09 09 09 09 |.....els|e.......|
|00000c30| 09 6a 20 3a 3d 20 30 3b | 0d 09 09 09 09 09 65 6e |.j := 0;|......en|
|00000c40| 64 3b 0d 09 09 09 09 69 | 66 20 6a 6a 20 3d 20 69 |d;.....i|f jj = i|
|00000c50| 74 65 72 61 74 69 6f 6e | 73 20 74 68 65 6e 0d 09 |teration|s then..|
|00000c60| 09 09 09 09 70 6f 75 74 | 28 6e 34 2c 20 6a 2c 20 |....pout|(n4, j, |
|00000c70| 6a 2c 20 78 31 2c 20 78 | 32 2c 20 78 33 2c 20 78 |j, x1, x|2, x3, x|
|00000c80| 34 29 3b 0d 0d 28 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |4);..(**|********|
|00000c90| 2a 2a 2a 2a 2a 20 35 20 | 2a 2a 2a 2a 2a 2a 2a 2a |***** 5 |********|
|00000ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 29 0d 28 |********|*****).(|
|00000cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 20 6f 6d 69 |********|**** omi|
|00000cc0| 74 74 65 64 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |tted ***|********|
|00000cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 29 0d 0d 28 2a 2a 2a |********|*)..(***|
|00000ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 20 36 20 2a |********|**** 6 *|
|00000cf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d00| 2a 2a 2a 2a 29 0d 0d 09 | 09 09 09 6a 20 3a 3d 20 |****)...|...j := |
|00000d10| 31 3b 0d 09 09 09 09 6b | 20 3a 3d 20 32 3b 0d 09 |1;.....k| := 2;..|
|00000d20| 09 09 09 6c 20 3a 3d 20 | 33 3b 0d 09 09 09 09 66 |...l := |3;.....f|
|00000d30| 6f 72 20 69 20 3a 3d 20 | 31 20 74 6f 20 6e 36 20 |or i := |1 to n6 |
|00000d40| 64 6f 0d 09 09 09 09 09 | 62 65 67 69 6e 0d 09 09 |do......|begin...|
|00000d50| 09 09 09 09 6a 20 3a 3d | 20 6a 20 2a 20 28 6b 20 |....j :=| j * (k |
|00000d60| 2d 20 6a 29 20 2a 20 28 | 6c 20 2d 20 6b 29 3b 0d |- j) * (|l - k);.|
|00000d70| 09 09 09 09 09 09 6b 20 | 3a 3d 20 6c 20 2a 20 6b |......k |:= l * k|
|00000d80| 20 2d 20 28 6c 20 2d 20 | 6a 29 20 2a 20 6b 3b 0d | - (l - |j) * k;.|
|00000d90| 09 09 09 09 09 09 6c 20 | 3a 3d 20 28 6c 20 2d 20 |......l |:= (l - |
|00000da0| 6b 29 20 2a 20 28 6b 20 | 2b 20 6a 29 3b 0d 09 09 |k) * (k |+ j);...|
|00000db0| 09 09 09 09 65 31 5b 6c | 20 2d 20 31 5d 20 3a 3d |....e1[l| - 1] :=|
|00000dc0| 20 6a 20 2b 20 6b 20 2b | 20 6c 3b 0d 09 09 09 09 | j + k +| l;.....|
|00000dd0| 09 09 65 31 5b 6b 20 2d | 20 31 5d 20 3a 3d 20 6a |..e1[k -| 1] := j|
|00000de0| 20 2a 20 6b 20 2a 20 6c | 3b 0d 09 09 09 09 09 65 | * k * l|;......e|
|00000df0| 6e 64 3b 0d 09 09 09 09 | 69 66 20 6a 6a 20 3d 20 |nd;.....|if jj = |
|00000e00| 69 74 65 72 61 74 69 6f | 6e 73 20 74 68 65 6e 0d |iteratio|ns then.|
|00000e10| 09 09 09 09 09 70 6f 75 | 74 28 6e 36 2c 20 6a 2c |.....pou|t(n6, j,|
|00000e20| 20 6b 2c 20 65 31 5b 31 | 5d 2c 20 65 31 5b 32 5d | k, e1[1|], e1[2]|
|00000e30| 2c 20 65 31 5b 33 5d 2c | 20 65 31 5b 34 5d 29 3b |, e1[3],| e1[4]);|
|00000e40| 0d 0d 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*****|********|
|00000e50| 2a 2a 20 37 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |** 7 ***|********|
|00000e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0d 0d 09 09 09 |********|**).....|
|00000e70| 09 78 20 3a 3d 20 30 2e | 35 3b 0d 09 09 09 09 79 |.x := 0.|5;.....y|
|00000e80| 20 3a 3d 20 30 2e 35 3b | 0d 09 09 09 09 66 6f 72 | := 0.5;|.....for|
|00000e90| 20 69 20 3a 3d 20 31 20 | 74 6f 20 6e 37 20 64 6f | i := 1 |to n7 do|
|00000ea0| 0d 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00000eb0| 09 09 78 20 3a 3d 20 74 | 20 2a 20 61 72 63 74 61 |..x := t| * arcta|
|00000ec0| 6e 28 74 32 20 2a 20 73 | 69 6e 28 78 29 20 2a 20 |n(t2 * s|in(x) * |
|00000ed0| 63 6f 73 28 78 29 20 2f | 20 28 63 6f 73 28 78 20 |cos(x) /| (cos(x |
|00000ee0| 2b 20 79 29 20 2b 20 63 | 6f 73 28 78 20 2d 20 79 |+ y) + c|os(x - y|
|00000ef0| 29 20 2d 20 31 2e 30 29 | 29 3b 0d 09 09 09 09 09 |) - 1.0)|);......|
|00000f00| 09 79 20 3a 3d 20 74 20 | 2a 20 61 72 63 74 61 6e |.y := t |* arctan|
|00000f10| 28 74 32 20 2a 20 73 69 | 6e 28 79 29 20 2a 20 63 |(t2 * si|n(y) * c|
|00000f20| 6f 73 28 79 29 20 2f 20 | 28 63 6f 73 28 78 20 2b |os(y) / |(cos(x +|
|00000f30| 20 79 29 20 2b 20 63 6f | 73 28 78 20 2d 20 79 29 | y) + co|s(x - y)|
|00000f40| 20 2d 20 31 2e 30 29 29 | 3b 0d 09 09 09 09 09 65 | - 1.0))|;......e|
|00000f50| 6e 64 3b 0d 09 09 09 09 | 69 66 20 6a 6a 20 3d 20 |nd;.....|if jj = |
|00000f60| 69 74 65 72 61 74 69 6f | 6e 73 20 74 68 65 6e 0d |iteratio|ns then.|
|00000f70| 09 09 09 09 09 70 6f 75 | 74 28 6e 37 2c 20 6a 2c |.....pou|t(n7, j,|
|00000f80| 20 6b 2c 20 78 2c 20 78 | 2c 20 79 2c 20 79 29 3b | k, x, x|, y, y);|
|00000f90| 0d 0d 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*****|********|
|00000fa0| 2a 2a 20 38 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |** 8 ***|********|
|00000fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0d 0d 09 09 09 |********|**).....|
|00000fc0| 09 78 20 3a 3d 20 31 2e | 30 3b 0d 09 09 09 09 79 |.x := 1.|0;.....y|
|00000fd0| 20 3a 3d 20 31 2e 30 3b | 0d 09 09 09 09 7a 20 3a | := 1.0;|.....z :|
|00000fe0| 3d 20 31 2e 30 3b 0d 09 | 09 09 09 66 6f 72 20 69 |= 1.0;..|...for i|
|00000ff0| 20 3a 3d 20 31 20 74 6f | 20 6e 38 20 64 6f 0d 09 | := 1 to| n8 do..|
|00001000| 09 09 09 09 70 33 28 78 | 2c 20 79 2c 20 7a 29 3b |....p3(x|, y, z);|
|00001010| 0d 09 09 09 09 69 66 20 | 6a 6a 20 3d 20 69 74 65 |.....if |jj = ite|
|00001020| 72 61 74 69 6f 6e 73 20 | 74 68 65 6e 0d 09 09 09 |rations |then....|
|00001030| 09 09 70 6f 75 74 28 6e | 38 2c 20 6a 2c 20 6b 2c |..pout(n|8, j, k,|
|00001040| 20 78 2c 20 79 2c 20 7a | 2c 20 7a 29 3b 0d 0d 28 | x, y, z|, z);..(|
|00001050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00001060| 39 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |9 ******|********|
|00001070| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 0d 09 09 09 09 6a 20 |*******)|......j |
|00001080| 3a 3d 20 31 3b 0d 09 09 | 09 09 6b 20 3a 3d 20 32 |:= 1;...|..k := 2|
|00001090| 3b 0d 09 09 09 09 6c 20 | 3a 3d 20 33 3b 0d 09 09 |;.....l |:= 3;...|
|000010a0| 09 09 65 31 5b 31 5d 20 | 3a 3d 20 31 2e 30 3b 0d |..e1[1] |:= 1.0;.|
|000010b0| 09 09 09 09 65 31 5b 32 | 5d 20 3a 3d 20 32 2e 30 |....e1[2|] := 2.0|
|000010c0| 3b 0d 09 09 09 09 65 31 | 5b 33 5d 20 3a 3d 20 33 |;.....e1|[3] := 3|
|000010d0| 2e 30 3b 0d 09 09 09 09 | 66 6f 72 20 69 20 3a 3d |.0;.....|for i :=|
|000010e0| 20 31 20 74 6f 20 6e 39 | 20 64 6f 0d 09 09 09 09 | 1 to n9| do.....|
|000010f0| 09 70 30 3b 0d 09 09 09 | 09 69 66 20 6a 6a 20 3d |.p0;....|.if jj =|
|00001100| 20 69 74 65 72 61 74 69 | 6f 6e 73 20 74 68 65 6e | iterati|ons then|
|00001110| 0d 09 09 09 09 09 70 6f | 75 74 28 6e 39 2c 20 6a |......po|ut(n9, j|
|00001120| 2c 20 6b 2c 20 65 31 5b | 31 5d 2c 20 65 31 5b 32 |, k, e1[|1], e1[2|
|00001130| 5d 2c 20 65 31 5b 33 5d | 2c 20 65 31 5b 34 5d 29 |], e1[3]|, e1[4])|
|00001140| 3b 0d 0d 28 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;..(****|********|
|00001150| 2a 2a 2a 20 31 30 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*** 10 *|********|
|00001160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0d 0d 09 |********|****)...|
|00001170| 09 09 09 6a 20 3a 3d 20 | 32 3b 0d 09 09 09 09 6b |...j := |2;.....k|
|00001180| 20 3a 3d 20 33 3b 0d 09 | 09 09 09 65 31 5b 31 5d | := 3;..|...e1[1]|
|00001190| 20 3a 3d 20 31 2e 30 3b | 0d 09 09 09 09 65 31 5b | := 1.0;|.....e1[|
|000011a0| 32 5d 20 3a 3d 20 32 2e | 30 3b 0d 09 09 09 09 65 |2] := 2.|0;.....e|
|000011b0| 31 5b 33 5d 20 3a 3d 20 | 33 2e 30 3b 0d 09 09 09 |1[3] := |3.0;....|
|000011c0| 09 66 6f 72 20 69 20 3a | 3d 20 31 20 74 6f 20 6e |.for i :|= 1 to n|
|000011d0| 31 30 20 64 6f 0d 09 09 | 09 09 09 62 65 67 69 6e |10 do...|...begin|
|000011e0| 0d 09 09 09 09 09 09 6a | 20 3a 3d 20 6a 20 2b 20 |.......j| := j + |
|000011f0| 6b 3b 0d 09 09 09 09 09 | 09 6b 20 3a 3d 20 6a 20 |k;......|.k := j |
|00001200| 2b 20 6b 3b 0d 09 09 09 | 09 09 09 6a 20 3a 3d 20 |+ k;....|...j := |
|00001210| 6b 20 2d 20 6a 3b 0d 09 | 09 09 09 09 09 6b 20 3a |k - j;..|.....k :|
|00001220| 3d 20 6b 20 2d 20 6a 20 | 2d 20 6a 3b 0d 09 09 09 |= k - j |- j;....|
|00001230| 09 09 65 6e 64 3b 0d 09 | 09 09 09 69 66 20 6a 6a |..end;..|...if jj|
|00001240| 20 3d 20 69 74 65 72 61 | 74 69 6f 6e 73 20 74 68 | = itera|tions th|
|00001250| 65 6e 0d 09 09 09 09 09 | 70 6f 75 74 28 6e 31 30 |en......|pout(n10|
|00001260| 2c 20 6a 2c 20 6b 2c 20 | 78 31 2c 20 78 32 2c 20 |, j, k, |x1, x2, |
|00001270| 78 33 2c 20 78 34 29 3b | 0d 0d 28 2a 2a 2a 2a 2a |x3, x4);|..(*****|
|00001280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 31 31 20 2a 2a |********|** 11 **|
|00001290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012a0| 2a 2a 2a 29 0d 0d 09 09 | 09 09 78 20 3a 3d 20 30 |***)....|..x := 0|
|000012b0| 2e 37 35 3b 0d 09 09 09 | 09 66 6f 72 20 69 20 3a |.75;....|.for i :|
|000012c0| 3d 20 31 20 74 6f 20 6e | 31 31 20 64 6f 0d 09 09 |= 1 to n|11 do...|
|000012d0| 09 09 09 78 20 3a 3d 20 | 73 71 72 74 28 65 78 70 |...x := |sqrt(exp|
|000012e0| 28 6c 6e 28 78 29 20 2f | 20 74 31 29 29 3b 0d 09 |(ln(x) /| t1));..|
|000012f0| 09 09 09 69 66 20 6a 6a | 20 3d 20 69 74 65 72 61 |...if jj| = itera|
|00001300| 74 69 6f 6e 73 20 74 68 | 65 6e 0d 09 09 09 09 09 |tions th|en......|
|00001310| 70 6f 75 74 28 6e 31 31 | 2c 20 6a 2c 20 6b 2c 20 |pout(n11|, j, k, |
|00001320| 78 2c 20 78 2c 20 78 2c | 20 78 29 3b 0d 0d 09 09 |x, x, x,| x);....|
|00001330| 09 65 6e 64 3b 0d 28 2a | 2a 2a 2a 2a 2a 2a 2a 20 |.end;.(*|******* |
|00001340| 66 69 6e 69 73 68 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |finish**|********|
|00001350| 29 0d 0d 09 09 74 69 63 | 6b 73 20 3a 3d 20 74 69 |)....tic|ks := ti|
|00001360| 63 6b 63 6f 75 6e 74 20 | 2d 20 74 69 63 6b 73 3b |ckcount |- ticks;|
|00001370| 0d 09 09 73 65 63 6f 6e | 64 73 20 3a 3d 20 74 69 |...secon|ds := ti|
|00001380| 63 6b 73 20 2f 20 36 30 | 3b 0d 09 09 77 68 65 74 |cks / 60|;...whet|
|00001390| 53 74 6f 6e 65 73 20 3a | 3d 20 31 30 30 20 2a 20 |Stones :|= 100 * |
|000013a0| 4c 6f 6f 70 20 2a 20 49 | 74 65 72 61 74 69 6f 6e |Loop * I|teration|
|000013b0| 73 20 2f 20 73 65 63 6f | 6e 64 73 3b 0d 09 09 64 |s / seco|nds;...d|
|000013c0| 6f 57 68 65 74 73 74 6f | 6e 65 20 3a 3d 20 77 68 |oWhetsto|ne := wh|
|000013d0| 65 74 53 74 6f 6e 65 73 | 3b 0d 7b 20 20 20 20 77 |etStones|;.{    w|
|000013e0| 72 69 74 65 6c 6e 28 77 | 68 65 74 53 74 6f 6e 65 |riteln(w|hetStone|
|000013f0| 73 20 3a 20 39 20 3a 20 | 33 2c 20 27 20 20 31 30 |s : 9 : |3, '  10|
|00001400| 30 30 20 73 20 6f 66 20 | 57 68 65 74 73 74 6f 6e |00 s of |Whetston|
|00001410| 65 73 20 70 65 72 20 73 | 65 63 6f 6e 64 20 27 29 |es per s|econd ')|
|00001420| 3b 09 7d 0d 09 65 6e 64 | 3b 0d 0d 65 6e 64 2e 00 |;.}..end|;..end..|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001480| 00 00 01 00 00 00 03 98 | 00 00 02 98 00 00 00 6f |........|.......o|
|00001490| 14 04 79 00 74 88 00 00 | 00 00 90 00 07 00 00 00 |..y.t...|........|
|000014a0| 00 00 84 00 da 00 96 01 | 20 04 04 53 61 76 65 00 |........| ..Save.|
|000014b0| 0b 57 68 65 74 73 74 6f | 6e 65 2e 70 02 00 00 00 |.Whetsto|ne.p....|
|000014c0| 54 45 58 54 50 4a 4d 4d | 00 00 00 40 00 00 00 00 |TEXTPJMM|...@....|
|000014d0| 00 00 54 45 58 54 50 4a | 4d 4d 00 00 00 40 00 00 |..TEXTPJ|MM...@..|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 05 fd 9f d2 64 82 00 00 | 13 af 00 00 04 07 00 00 |....d...|........|
|00001500| 52 00 da 00 64 01 20 04 | 05 44 72 69 76 65 00 00 |R...d. .|.Drive..|
|00001510| 00 00 00 00 9d 00 11 00 | ad 00 c2 10 00 00 00 00 |........|........|
|00001520| 00 00 1d 00 0e 00 7f 00 | c5 80 00 00 00 00 30 00 |........|......0.|
|00001530| 01 00 00 00 00 00 32 00 | 70 00 44 00 ba 04 02 4f |......2.|p.D....O|
|00001540| 4b 00 00 00 00 00 0e 00 | 10 00 2e 00 ba 88 0f 44 |K.......|.......D|
|00001550| 69 73 6b 20 69 73 20 6c | 6f 63 6b 65 64 2e 00 00 |isk is l|ocked...|
|00001560| 00 00 4a 00 02 00 00 00 | 00 00 32 00 70 00 44 00 |..J.....|..2.p.D.|
|00001570| ba 04 02 4e 6f 00 00 00 | 00 00 32 00 10 00 44 00 |...No...|..2...D.|
|00001580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001590| 00 01 00 00 00 00 00 00 | 00 00 00 21 00 00 00 1e |........|...!....|
|000015a0| 00 00 00 00 00 00 00 06 | 00 04 00 3c 00 24 01 53 |........|...<.$.S|
|000015b0| 01 fd 00 3c 00 24 01 53 | 01 fd 9f e2 ac 5b 00 00 |...<.$.S|.....[..|
|000015c0| 00 1b 00 00 00 1b 00 00 | 00 00 01 00 00 00 01 fa |........|........|
|000015d0| 0f 0f 0f 01 00 00 00 00 | 00 03 83 c2 9f e2 b4 5f |........|......._|
|000015e0| 00 09 77 7c 00 09 79 76 | 00 00 00 00 00 00 00 00 |..w|..yv|........|
|000015f0| 00 00 00 00 00 09 78 da | 00 00 09 57 48 45 54 53 |......x.|...WHETS|
|00001600| 54 4f 4e 45 4e 50 55 54 | 07 23 55 46 55 4e 43 23 |TONENPUT|.#UFUNC#|
|00001610| 07 23 55 50 52 4f 43 23 | 08 23 00 21 00 80 00 03 |.#UPROC#|.#.!....|
|00001620| 84 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 01 d6 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 09 57 48 45 | 54 53 54 4f 4e 45 00 05 |.....WHE|TSTONE..|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 00 |........|........|
|00001740| 00 00 0b 5f 5f 57 48 45 | 54 53 54 4f 4e 45 00 09 |...__WHE|TSTONE..|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 ff 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 04 4d | 61 69 6e 00 00 09 00 00 |.......M|ain.....|
|00001770| 00 00 00 00 00 00 00 01 | 00 01 00 00 00 00 00 00 |........|........|
|00001780| 00 00 00 00 0a 5f 57 48 | 45 54 53 54 4f 4e 45 00 |....._WH|ETSTONE.|
|00001790| 00 09 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000017a0| 00 00 00 08 00 00 00 00 | 0b 44 4f 57 48 45 54 53 |........|.DOWHETS|
|000017b0| 54 4f 4e 45 00 0b 00 00 | 00 00 00 06 f8 ee 00 07 |TONE....|........|
|000017c0| 00 01 00 00 00 00 00 08 | 00 00 00 00 00 4a 0f 0f |........|.....J..|
|000017d0| 0f 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 06 |........|........|
|000017e0| f5 3c 00 07 05 74 00 04 | 53 28 00 04 63 60 00 02 |.<...t..|S(..c`..|
|000017f0| a2 14 00 00 00 00 00 00 | 0a 50 41 53 3f 53 59 53 |........|.PAS?SYS|
|00001800| 54 45 4d 00 4e 56 ff fa | 48 e7 01 08 42 67 48 6d |TEM.NV..|H...BgHm|
|00001810| f6 c8 a9 97 3e 1f 70 ff | 00 00 01 00 00 00 03 98 |....>.p.|........|
|00001820| 00 00 02 98 00 00 00 6f | 00 03 83 da 06 fc 00 00 |.......o|........|
|00001830| 00 1c 00 5a 00 02 4d 50 | 53 52 00 00 00 1a 55 53 |...Z..MP|SR....US|
|00001840| 59 4d 00 00 00 26 55 53 | 45 53 00 00 00 32 03 ed |YM...&US|ES...2..|
|00001850| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 4c 00 03 84 02 00 00 | 00 0a 00 00 02 4a 00 03 |.L......|.....J..|
|00001870| 83 fa 09 57 48 45 54 53 | 54 4f 4e 45 0a 50 41 53 |...WHETS|TONE.PAS|
|00001880| 3f 53 59 53 54 45 4d 00 | 00 00 00 00 00 00 00 00 |?SYSTEM.|........|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+