home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: tcl
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 08 22 00 00 14 25 00 00 |Archive.|."...%..|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 48 69 73 74 00 00 | 00 00 00 00 ff ff ff ff |.!Hist..|........|
|00000070| 47 ff ff ff b4 39 14 12 | 03 00 00 00 ff ff ff ff |G....9..|........|
|00000080| 8c 01 00 80 82 21 42 6f | 6f 74 00 00 83 21 52 65 |.....!Bo|ot...!Re|
|00000090| 39 00 00 00 45 eb ff ff | f2 74 13 92 03 00 ae 6a |9...E...|.t.....j|
|000000a0| 39 00 00 00 f5 1d 00 00 | 83 21 48 65 6c 70 00 00 |9.......|.!Help..|
|000000b0| 83 21 52 65 a1 05 00 00 | 45 ff ff ff 9d 55 4c 9a |.!Re....|E....UL.|
|000000c0| 03 00 00 00 54 05 00 00 | 24 00 00 00 82 21 4d 61 |....T...|$....!Ma|
|000000d0| 6b 65 44 61 74 61 00 65 | 6a 00 00 00 45 eb ff ff |keData.e|j...E...|
|000000e0| af 72 c1 98 03 00 d7 28 | 6a 00 00 00 9c 05 00 00 |.r.....(|j.......|
|000000f0| 82 21 52 75 6e 00 00 00 | 83 21 52 65 87 00 00 00 |.!Run...|.!Re....|
|00000100| 45 eb ff ff 10 75 13 92 | 03 00 d8 8e 87 00 00 00 |E....u..|........|
|00000110| 2a 06 00 00 83 21 73 70 | 72 69 74 65 73 00 73 00 |*....!sp|rites.s.|
|00000120| e4 03 00 00 45 f9 ff ff | 52 f3 e2 99 03 00 00 00 |....E...|R.......|
|00000130| a7 01 00 00 d5 06 00 00 | 83 21 73 70 72 69 74 65 |........|.!sprite|
|00000140| 73 32 32 00 4c 07 00 00 | 45 f9 ff ff e5 f9 e2 99 |s22.L...|E.......|
|00000150| 03 00 00 00 c3 02 00 00 | a0 08 00 00 82 44 61 74 |........|.....Dat|
|00000160| 61 00 00 00 83 21 52 65 | 7e 03 00 00 46 ff ff ff |a....!Re|~...F...|
|00000170| b6 2b 18 93 03 00 d4 0b | 7e 03 00 00 87 0b 00 00 |.+......|~.......|
|00000180| 83 48 69 73 74 00 00 00 | 83 21 52 65 c9 0d 00 00 |.Hist...|.!Re....|
|00000190| 46 ff ff ff a0 ab ed 8f | 03 00 00 00 12 0d 00 00 |F.......|........|
|000001a0| 29 0f 00 00 83 6d 61 6b | 65 64 61 74 61 00 52 65 |)....mak|edata.Re|
|000001b0| 74 01 00 00 45 ff ff ff | 20 d3 5f 99 03 00 00 00 |t...E...| ._.....|
|000001c0| 72 01 00 00 5f 1c 00 00 | 00 00 00 00 78 03 00 00 |r..._...|....x...|
|000001d0| 83 21 52 65 61 64 4d 65 | 00 00 00 00 38 30 00 00 |.!ReadMe|....80..|
|000001e0| 46 ff ff ff 7a d8 10 97 | af fc ff ff 82 21 6f 78 |F...z...|.....!ox|
|000001f0| 6f 00 00 00 00 00 00 00 | ff ff ff ff 47 ff ff ff |o.......|....G...|
|00000200| 96 3b 14 12 03 00 00 00 | ff ff ff ff 88 02 00 80 |.;......|........|
|00000210| 82 21 42 6f 6f 74 00 00 | 2c 33 0d 43 37 00 00 00 |.!Boot..|,3.C7...|
|00000220| 45 eb ff ff e1 e1 13 7e | 03 00 a9 36 37 00 00 00 |E......~|...67...|
|00000230| 8b 35 00 00 83 21 48 65 | 6c 70 00 00 2c 33 0d 43 |.5...!He|lp..,3.C|
|00000240| 97 06 00 00 45 ff ff ff | a6 f9 9b 91 03 00 00 00 |....E...|........|
|00000250| 2a 06 00 00 52 1e 00 00 | 82 21 52 75 6e 00 00 00 |*...R...|.!Run...|
|00000260| 2c 33 0d 43 6f 00 00 00 | 45 eb ff ff 4c ca 93 8f |,3.Co...|E...L...|
|00000270| 03 00 b1 2e 6f 00 00 00 | a0 24 00 00 83 21 53 70 |....o...|.$...!Sp|
|00000280| 72 69 74 65 73 32 32 00 | 88 05 00 00 45 f9 ff ff |rites22.|....E...|
|00000290| 9c ae 13 7e 03 00 00 00 | 32 04 00 00 33 25 00 00 |...~....|2...3%..|
|000002a0| 83 6f 78 6f 00 03 00 00 | 2c 33 0d 43 8c 0c 00 00 |.oxo....|,3.C....|
|000002b0| 45 ff ff ff 88 24 7b 91 | 03 00 00 00 de 0b 00 00 |E....${.|........|
|000002c0| 89 29 00 00 00 00 00 00 | 54 03 00 00 2c 33 0d 43 |.)......|T...,3.C|
|000002d0| 61 6e 63 65 6c 0d 4e 31 | 2f 3b 52 35 2c 33 0d 26 |ancel.N1|/;R5,3.&|
|000002e0| 01 00 00 e8 ac 8c 03 40 | 82 21 54 63 6c 00 00 00 |.......@|.!Tcl...|
|000002f0| 00 00 00 00 ff ff ff ff | 47 ff ff ff a7 3c 14 12 |........|G....<..|
|00000300| 03 00 00 00 ff ff ff ff | 08 07 00 80 82 21 42 6f |........|.....!Bo|
|00000310| 6f 74 00 65 73 00 65 73 | d6 00 00 00 46 eb ff ff |ot.es.es|....F...|
|00000320| c4 ac 2b 97 03 00 ee 21 | d6 00 00 00 90 3f 05 00 |..+....!|.....?..|
|00000330| 82 21 43 68 6f 69 63 65 | 73 00 65 73 90 01 00 00 |.!Choice|s.es....|
|00000340| 45 ff ff ff 06 dc ef 88 | 03 00 aa fa 90 01 00 00 |E.......|........|
|00000350| e6 35 00 00 83 21 48 65 | 6c 70 00 61 63 63 65 73 |.5...!He|lp.acces|
|00000360| a3 1c 00 00 46 ff ff ff | 88 48 19 98 03 00 00 00 |....F...|.H......|
|00000370| 4e 1a 00 00 9a 37 00 00 | 82 21 52 75 6e 00 20 61 |N....7..|.!Run. a|
|00000380| 63 63 65 73 0b 01 00 00 | 46 eb ff ff da c7 2b 97 |cces....|F.....+.|
|00000390| 03 00 a0 2b 0b 01 00 00 | 0c 52 00 00 83 21 53 70 |...+....|.R...!Sp|
|000003a0| 72 32 32 46 00 63 65 73 | 8c 0e 00 00 45 f9 ff ff |r22F.ces|....E...|
|000003b0| db 85 4d db 03 00 00 00 | b5 09 00 00 3b 53 00 00 |..M.....|....;S..|
|000003c0| 83 21 53 70 72 69 74 65 | 73 00 73 00 e4 03 00 00 |.!Sprite|s.s.....|
|000003d0| 45 f9 ff ff e3 8b 2e 91 | 03 00 00 00 66 03 00 00 |E.......|....f...|
|000003e0| 14 5d 00 00 83 21 53 70 | 72 69 74 65 73 32 32 00 |.]...!Sp|rites22.|
|000003f0| 4c 07 00 00 46 f9 ff ff | be d2 2a 97 03 00 00 00 |L...F...|..*.....|
|00000400| 44 06 00 00 9e 60 00 00 | 83 21 53 70 72 69 74 65 |D....`..|.!Sprite|
|00000410| 73 46 00 73 bc 07 00 00 | 46 f9 ff ff f8 32 2b 97 |sF.s....|F....2+.|
|00000420| 03 00 00 00 4e 05 00 00 | 06 67 00 00 82 64 6f 63 |....N...|.g...doc|
|00000430| 00 72 20 61 63 63 65 73 | ff ff ff ff 47 ff ff ff |.r acces|....G...|
|00000440| d7 3e 14 12 03 00 00 00 | ff ff ff ff 34 05 00 80 |.>......|....4...|
|00000450| 83 63 68 61 6e 67 65 73 | 00 00 00 00 f0 c7 00 00 |.changes|........|
|00000460| 46 ff ff ff c4 73 02 2a | 33 00 00 00 c3 c4 00 00 |F....s.*|3.......|
|00000470| 78 6c 00 00 83 52 45 41 | 44 4d 45 00 00 00 00 00 |xl...REA|DME.....|
|00000480| bb 34 00 00 46 ff ff ff | 50 65 02 2a 33 00 00 00 |.4..F...|Pe.*3...|
|00000490| 95 33 00 00 5f 31 01 00 | 83 52 49 53 43 4f 53 00 |.3.._1..|.RISCOS.|
|000004a0| 00 00 00 00 81 12 00 00 | 46 ff ff ff 22 09 8f 91 |........|F..."...|
|000004b0| 03 00 00 00 ba 0c 00 00 | 18 65 01 00 82 73 68 61 |........|.e...sha|
|000004c0| 64 65 00 00 00 00 00 00 | 86 01 00 00 46 ff ff ff |de......|....F...|
|000004d0| 94 4d 92 91 03 00 c4 da | 86 01 00 00 f6 71 01 00 |.M......|.....q..|
|000004e0| 83 74 63 6c 2d 66 61 71 | 32 00 00 00 86 3b 01 00 |.tcl-faq|2....;..|
|000004f0| 46 ff ff ff 18 ce 18 98 | 03 00 00 00 c1 39 01 00 |F.......|.....9..|
|00000500| a0 73 01 00 83 74 63 6c | 73 68 00 00 00 00 00 00 |.s...tcl|sh......|
|00000510| 1a 06 00 00 45 ff ff ff | 93 60 0f 91 03 00 00 00 |....E...|.`......|
|00000520| 19 06 00 00 85 ad 02 00 | 83 57 5f 49 6e 74 72 6f |........|.W_Intro|
|00000530| 00 00 00 00 c7 5d 00 00 | 46 ff ff ff 68 b1 27 97 |.....]..|F...h.'.|
|00000540| 03 00 00 00 65 4b 00 00 | c2 b3 02 00 83 57 5f 53 |....eK..|.....W_S|
|00000550| 75 6d 6d 61 72 79 00 00 | 01 1c 00 00 46 ff ff ff |ummary..|....F...|
|00000560| b7 b6 9f 92 03 00 00 00 | 12 14 00 00 4b ff 02 00 |........|....K...|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 82 6c 69 62 | 72 61 72 79 00 63 65 73 |.....lib|rary.ces|
|000005a0| ff ff ff ff 47 ff ff ff | 47 46 14 12 03 00 00 00 |....G...|GF......|
|000005b0| ff ff ff ff 54 06 00 80 | 83 64 65 62 75 67 00 00 |....T...|.debug..|
|000005c0| 00 00 00 00 ce 08 00 00 | 45 ff ff ff b2 08 0f 8f |........|E.......|
|000005d0| 33 00 00 00 5e 08 00 00 | 81 13 03 00 83 65 6e 76 |3...^...|.....env|
|000005e0| 00 00 00 00 00 00 00 00 | 13 02 00 00 45 ff ff ff |........|....E...|
|000005f0| cf 0b e9 9a 33 00 00 00 | 01 02 00 00 03 1c 03 00 |....3...|........|
|00000600| 83 69 6e 69 74 00 00 00 | 00 00 00 00 07 1f 00 00 |.init...|........|
|00000610| 44 ff ff ff 64 27 86 e5 | 33 00 00 00 a0 1e 00 00 |D...d'..|3.......|
|00000620| 28 1e 03 00 83 70 61 72 | 72 61 79 00 00 00 00 00 |(....par|ray.....|
|00000630| b7 06 00 00 44 ff ff ff | cc 25 0c 68 33 00 00 00 |....D...|.%.h3...|
|00000640| ad 06 00 00 ec 3c 03 00 | 82 70 6f 73 69 78 00 00 |.....<..|.posix..|
|00000650| 00 00 00 00 ca 00 00 00 | 45 ff ff ff 1a dc fb 8f |........|E.......|
|00000660| 03 00 09 df ca 00 00 00 | bd 43 03 00 82 74 63 6c |........|.C...tcl|
|00000670| 49 6e 64 65 78 00 00 00 | 89 02 00 00 44 ff ff ff |Index...|....D...|
|00000680| 0c f3 85 e5 33 00 d0 45 | 89 02 00 00 ab 44 03 00 |....3..E|.....D..|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 82 6c 69 63 | 65 6e 73 65 00 63 65 73 |.....lic|ense.ces|
|000006c0| c6 06 00 00 45 ff ff ff | f4 b6 b7 c5 33 00 11 dd |....E...|....3...|
|000006d0| c6 06 00 00 58 47 03 00 | 83 4d 61 6b 65 66 69 6c |....XG..|.Makefil|
|000006e0| 65 00 65 73 98 1f 00 00 | 46 e1 ff ff 50 2d be 97 |e.es....|F...P-..|
|000006f0| 03 00 00 00 af 1e 00 00 | 42 4e 03 00 83 73 68 61 |........|BN...sha|
|00000700| 64 65 00 61 63 63 65 73 | bf 09 01 00 46 f8 ff ff |de.acces|....F...|
|00000710| 4c 32 be 97 03 00 00 00 | 1c 08 01 00 15 6d 03 00 |L2......|.....m..|
|00000720| 83 74 63 6c 73 68 00 61 | 63 63 65 73 af cb 00 00 |.tclsh.a|cces....|
|00000730| 46 f8 ff ff a3 32 be 97 | 03 00 00 00 17 ca 00 00 |F....2..|........|
|00000740| 55 75 04 00 00 20 75 73 | 65 72 20 61 63 63 65 73 |Uu... us|er acces|
|00000750| 73 20 70 61 73 73 77 6f | 72 64 20 77 69 6c 6c 20 |s passwo|rd will |
|00000760| 61 6c 6c 6f 23 1d 75 6e | 82 21 74 63 6c 64 6f 63 |allo#.un|.!tcldoc|
|00000770| 00 00 00 00 ff ff ff ff | 47 ff ff ff dc 4f 14 12 |........|G....O..|
|00000780| 03 00 00 00 ff ff ff ff | 48 1b 00 80 82 21 42 6f |........|H....!Bo|
|00000790| 6f 74 00 90 08 7b 20 68 | 3a 00 00 00 45 eb ff ff |ot...{ h|:...E...|
|000007a0| 18 c5 7d 81 03 00 01 bd | 3a 00 00 00 da c9 0a 00 |..}.....|:.......|
|000007b0| 83 21 48 65 6c 70 00 90 | 08 7b 20 68 4a 04 00 00 |.!Help..|.{ hJ...|
|000007c0| 46 ff ff ff 6e ea 09 97 | 03 00 00 00 b0 03 00 00 |F...n...|........|
|000007d0| 8a 40 05 00 82 21 4d 61 | 6b 65 49 6e 64 65 78 00 |.@...!Ma|keIndex.|
|000007e0| 6b 00 00 00 45 eb ff ff | 95 3f 92 8f 03 00 73 3a |k...E...|.?....s:|
|000007f0| 6b 00 00 00 5e 44 05 00 | 82 21 52 75 6e 00 20 90 |k...^D..|.!Run. .|
|00000800| 08 7b 20 68 8e 00 00 00 | 45 eb ff ff c2 c5 6e 91 |.{ h....|E.....n.|
|00000810| 03 00 c2 6e 8e 00 00 00 | ed 44 05 00 83 21 53 70 |...n....|.D...!Sp|
|00000820| 72 69 74 65 73 32 32 00 | 88 05 00 00 45 f9 ff ff |rites22.|....E...|
|00000830| 86 34 7e 81 03 00 00 00 | ec 02 00 00 9f 45 05 00 |.4~.....|.....E..|
|00000840| 82 64 6f 63 00 0a 20 90 | 08 7b 20 68 ff ff ff ff |.doc.. .|.{ h....|
|00000850| 47 ff ff ff 8b 50 14 12 | 03 00 00 00 ff ff ff ff |G....P..|........|
|00000860| 4c 1a 00 80 82 43 00 00 | 00 00 00 00 00 00 00 00 |L....C..|........|
|00000870| ff ff ff ff 47 ff ff ff | 95 50 14 12 03 00 00 00 |....G...|.P......|
|00000880| ff ff ff ff 14 0d 00 80 | 82 41 64 64 45 72 72 49 |........|.AddErrI|
|00000890| 6e 66 6f 00 5e 14 00 00 | 46 ff ff ff f4 83 c5 0d |nfo.^...|F.......|
|000008a0| 33 00 d8 6c 5e 14 00 00 | af 48 05 00 82 41 6c 6c |3..l^...|.H...All|
|000008b0| 6f 77 45 78 63 00 20 68 | 6c 05 00 00 46 ff ff ff |owExc. h|l...F...|
|000008c0| f4 83 c5 0d 33 00 6c 2b | 6c 05 00 00 31 5d 05 00 |....3.l+|l...1]..|
|000008d0| 82 41 70 70 49 6e 69 74 | 00 7b 20 68 e2 0a 00 00 |.AppInit|.{ h....|
|000008e0| 46 ff ff ff ec a9 af 1e | 33 00 a6 86 e2 0a 00 00 |F.......|3.......|
|000008f0| c1 62 05 00 82 41 73 79 | 6e 63 00 90 08 7b 20 68 |.b...Asy|nc...{ h|
|00000900| b0 18 00 00 46 ff ff ff | 58 84 c5 0d 33 00 33 58 |....F...|X...3.3X|
|00000910| b0 18 00 00 c7 6d 05 00 | 82 42 61 63 6b 73 6c 61 |.....m..|.Backsla|
|00000920| 73 68 00 68 0f 05 00 00 | 46 ff ff ff 58 84 c5 0d |sh.h....|F...X...|
|00000930| 33 00 8d 01 0f 05 00 00 | 9b 86 05 00 82 43 61 6c |3.......|.....Cal|
|00000940| 6c 44 65 6c 00 7b 20 68 | 9f 08 00 00 46 ff ff ff |lDel.{ h|....F...|
|00000950| 58 84 c5 0d 33 00 b5 c1 | 9f 08 00 00 ce 8b 05 00 |X...3...|........|
|00000960| 82 43 6d 64 43 6d 70 6c | 74 00 20 68 e5 03 00 00 |.CmdCmpl|t. h....|
|00000970| 46 ff ff ff 58 84 c5 0d | 33 00 8e 3c e5 03 00 00 |F...X...|3..<....|
|00000980| 91 94 05 00 82 43 6f 6e | 63 61 74 00 08 7b 20 68 |.....Con|cat..{ h|
|00000990| a0 06 00 00 46 ff ff ff | 58 84 c5 0d 33 00 55 29 |....F...|X...3.U)|
|000009a0| a0 06 00 00 9a 98 05 00 | 82 43 72 74 43 6f 6d 6d |........|.CrtComm|
|000009b0| 61 6e 64 00 24 1d 00 00 | 46 ff ff ff bc 84 c5 0d |and.$...|F.......|
|000009c0| 33 00 9b 72 24 1d 00 00 | 5e 9f 05 00 82 43 72 74 |3..r$...|^....Crt|
|000009d0| 49 6e 74 65 72 70 00 68 | 42 06 00 00 46 ff ff ff |Interp.h|B...F...|
|000009e0| bc 84 c5 0d 33 00 46 be | 42 06 00 00 a6 bc 05 00 |....3.F.|B.......|
|000009f0| 82 43 72 74 4d 61 74 68 | 46 6e 63 00 2f 0e 00 00 |.CrtMath|Fnc./...|
|00000a00| 46 ff ff ff 28 64 0f 19 | 33 00 15 88 2f 0e 00 00 |F...(d..|3.../...|
|00000a10| 0c c3 05 00 82 43 72 74 | 50 69 70 65 6c 69 6e 00 |.....Crt|Pipelin.|
|00000a20| 2f 11 00 00 46 ff ff ff | 08 2c 62 1e 33 00 5e bc |/...F...|.,b.3.^.|
|00000a30| 2f 11 00 00 5f d1 05 00 | 82 43 72 74 54 72 61 63 |/..._...|.CrtTrac|
|00000a40| 65 00 20 68 be 11 00 00 | 46 ff ff ff bc 84 c5 0d |e. h....|F.......|
|00000a50| 33 00 02 5b be 11 00 00 | b2 e2 05 00 82 44 65 74 |3..[....|.....Det|
|00000a60| 61 63 68 50 69 64 73 00 | c6 09 00 00 46 ff ff ff |achPids.|....F...|
|00000a70| bc 84 c5 0d 33 00 40 3f | c6 09 00 00 94 f4 05 00 |....3.@?|........|
|00000a80| 82 44 53 74 72 69 6e 67 | 00 7b 20 68 ba 16 00 00 |.DString|.{ h....|
|00000a90| 46 ff ff ff bc 84 c5 0d | 33 00 1e 12 ba 16 00 00 |F.......|3.......|
|00000aa0| 7e fe 05 00 82 45 6e 74 | 65 72 46 69 6c 65 00 68 |~....Ent|erFile.h|
|00000ab0| 06 0d 00 00 46 ff ff ff | 20 85 c5 0d 33 00 e3 21 |....F...| ...3..!|
|00000ac0| 06 0d 00 00 5c 15 06 00 | 82 45 76 61 6c 00 20 90 |....\...|.Eval. .|
|00000ad0| 08 7b 20 68 d7 0f 00 00 | 46 ff ff ff 20 85 c5 0d |.{ h....|F... ...|
|00000ae0| 33 00 3c 69 d7 0f 00 00 | 86 22 06 00 82 45 78 70 |3.<i....|."...Exp|
|00000af0| 72 4c 6f 6e 67 00 20 68 | 15 0f 00 00 46 ff ff ff |rLong. h|....F...|
|00000b00| 20 85 c5 0d 33 00 68 6c | 15 0f 00 00 81 32 06 00 | ...3.hl|.....2..|
|00000b10| 82 47 65 74 49 6e 74 00 | 08 7b 20 68 47 0c 00 00 |.GetInt.|.{ hG...|
|00000b20| 46 ff ff ff 20 85 c5 0d | 33 00 a0 6e 47 0c 00 00 |F... ...|3..nG...|
|00000b30| ba 41 06 00 82 48 61 73 | 68 00 20 90 08 7b 20 68 |.A...Has|h. ..{ h|
|00000b40| 84 20 00 00 46 ff ff ff | 20 85 c5 0d 33 00 f6 97 |. ..F...| ...3...|
|00000b50| 84 20 00 00 25 4e 06 00 | 82 49 6e 74 65 72 70 00 |. ..%N..|.Interp.|
|00000b60| 08 7b 20 68 34 15 00 00 | 46 ff ff ff 20 85 c5 0d |.{ h4...|F... ...|
|00000b70| 33 00 fa 96 34 15 00 00 | cd 6e 06 00 82 4c 69 6e |3...4...|.n...Lin|
|00000b80| 6b 56 61 72 00 7b 20 68 | 58 0e 00 00 46 ff ff ff |kVar.{ h|X...F...|
|00000b90| 20 85 c5 0d 33 00 58 1a | 58 0e 00 00 25 84 06 00 | ...3.X.|X...%...|
|00000ba0| 82 50 72 69 6e 74 44 62 | 6c 00 20 68 08 06 00 00 |.PrintDb|l. h....|
|00000bb0| 46 ff ff ff 84 85 c5 0d | 33 00 53 34 08 06 00 00 |F.......|3.S4....|
|00000bc0| a1 92 06 00 82 52 65 63 | 6f 72 64 45 76 61 6c 00 |.....Rec|ordEval.|
|00000bd0| 13 07 00 00 46 ff ff ff | 84 85 c5 0d 33 00 e7 18 |....F...|....3...|
|00000be0| 13 07 00 00 cd 98 06 00 | 82 52 65 67 45 78 70 00 |........|.RegExp.|
|00000bf0| 08 7b 20 68 2c 13 00 00 | 46 ff ff ff 4c b8 5f 1e |.{ h,...|F...L._.|
|00000c00| 33 00 c4 40 2c 13 00 00 | 04 a0 06 00 82 53 65 74 |3..@,...|.....Set|
|00000c10| 52 65 63 4c 6d 74 00 68 | c9 05 00 00 46 ff ff ff |RecLmt.h|....F...|
|00000c20| 84 85 c5 0d 33 00 b2 33 | c9 05 00 00 54 b3 06 00 |....3..3|....T...|
|00000c30| 82 53 65 74 52 65 73 75 | 6c 74 00 68 87 17 00 00 |.SetResu|lt.h....|
|00000c40| 46 ff ff ff 60 43 80 27 | 33 00 ac be 87 17 00 00 |F...`C.'|3.......|
|00000c50| 41 b9 06 00 82 53 65 74 | 56 61 72 00 08 7b 20 68 |A....Set|Var..{ h|
|00000c60| 3a 17 00 00 46 ff ff ff | 84 85 c5 0d 33 00 a8 8d |:...F...|....3...|
|00000c70| 3a 17 00 00 ec d0 06 00 | 82 53 70 6c 69 74 4c 69 |:.......|.SplitLi|
|00000c80| 73 74 00 68 96 19 00 00 | 46 ff ff ff 84 85 c5 0d |st.h....|F.......|
|00000c90| 33 00 e3 ea 96 19 00 00 | 4a e8 06 00 82 53 74 72 |3.......|J....Str|
|00000ca0| 4d 61 74 63 68 00 20 68 | 83 04 00 00 46 ff ff ff |Match. h|....F...|
|00000cb0| 84 85 c5 0d 33 00 b0 81 | 83 04 00 00 04 02 07 00 |....3...|........|
|00000cc0| 82 54 63 6c 5f 4d 61 69 | 6e 00 20 68 9f 08 00 00 |.Tcl_Mai|n. h....|
|00000cd0| 46 ff ff ff 90 84 ae 1e | 33 00 41 a0 9f 08 00 00 |F.......|3.A.....|
|00000ce0| ab 06 07 00 82 54 69 6c | 64 65 53 75 62 73 74 00 |.....Til|deSubst.|
|00000cf0| 22 0b 00 00 46 ff ff ff | 98 3f 2d 1e 33 00 ce 02 |"...F...|.?-.3...|
|00000d00| 22 0b 00 00 6e 0f 07 00 | 82 54 72 61 63 65 56 61 |"...n...|.TraceVa|
|00000d10| 72 00 20 68 75 37 00 00 | 46 ff ff ff d4 15 c7 21 |r. hu7..|F......!|
|00000d20| 33 00 00 33 75 37 00 00 | b4 1a 07 00 82 55 70 56 |3..3u7..|.....UpV|
|00000d30| 61 72 00 90 08 7b 20 68 | ff 0a 00 00 46 ff ff ff |ar...{ h|....F...|
|00000d40| e8 85 c5 0d 33 00 14 74 | ff 0a 00 00 4d 52 07 00 |....3..t|....MR..|
|00000d50| 00 20 90 08 7d 0a 20 90 | 08 7b 20 68 6c 69 73 74 |. ..}. .|.{ hlist|
|00000d60| 0a 20 90 0a 7b 61 63 74 | 69 6f 6e 20 43 6f 6e 74 |. ..{act|ion Cont|
|00000d70| 75 65 75 65 82 50 6f 73 | 69 78 00 00 00 00 00 00 |ueue.Pos|ix......|
|00000d80| ff ff ff ff 47 ff ff ff | 35 5c 14 12 03 00 00 00 |....G...|5\......|
|00000d90| ff ff ff ff e4 0f 00 80 | 82 63 64 00 7d 0a 20 90 |........|.cd.}. .|
|00000da0| 08 7b 20 68 51 03 00 00 | 46 ff ff ff 4c 86 c5 0d |.{ hQ...|F...L...|
|00000db0| 33 00 af 25 51 03 00 00 | 70 5d 07 00 82 63 6c 6f |3..%Q...|p]...clo|
|00000dc0| 73 65 00 90 08 7b 20 68 | f1 03 00 00 46 ff ff ff |se...{ h|....F...|
|00000dd0| 4c 86 c5 0d 33 00 f5 08 | f1 03 00 00 e5 60 07 00 |L...3...|.....`..|
|00000de0| 82 65 6f 66 00 0a 20 90 | 08 7b 20 68 41 03 00 00 |.eof.. .|.{ hA...|
|00000df0| 46 ff ff ff 4c 86 c5 0d | 33 00 df 4c 41 03 00 00 |F...L...|3..LA...|
|00000e00| fa 64 07 00 82 65 78 69 | 74 00 20 90 08 7b 20 68 |.d...exi|t. ..{ h|
|00000e10| c0 02 00 00 46 ff ff ff | b0 86 c5 0d 33 00 a5 08 |....F...|....3...|
|00000e20| c0 02 00 00 5f 68 07 00 | 82 66 69 6c 65 00 20 90 |...._h..|.file. .|
|00000e30| 08 7b 20 68 92 14 00 00 | 46 ff ff ff b0 86 c5 0d |.{ h....|F.......|
|00000e40| 33 00 13 22 92 14 00 00 | 43 6b 07 00 82 66 6c 75 |3.."....|Ck...flu|
|00000e50| 73 68 00 90 08 7b 20 68 | 83 03 00 00 46 ff ff ff |sh...{ h|....F...|
|00000e60| b0 86 c5 0d 33 00 3b ce | 83 03 00 00 f9 7f 07 00 |....3.;.|........|
|00000e70| 82 67 65 74 73 00 20 90 | 08 7b 20 68 e4 06 00 00 |.gets. .|.{ h....|
|00000e80| 46 ff ff ff 14 87 c5 0d | 33 00 9d 10 e4 06 00 00 |F.......|3.......|
|00000e90| a0 83 07 00 82 67 6c 6f | 62 00 20 90 08 7b 20 68 |.....glo|b. ..{ h|
|00000ea0| 07 0a 00 00 46 ff ff ff | 8c 64 0f 19 33 00 e9 ca |....F...|.d..3...|
|00000eb0| 07 0a 00 00 a8 8a 07 00 | 82 6c 69 62 72 61 72 79 |........|.library|
|00000ec0| 00 7b 20 68 41 21 00 00 | 46 ff ff ff 8c 64 0f 19 |.{ hA!..|F....d..|
|00000ed0| 33 00 38 eb 41 21 00 00 | d3 94 07 00 82 6f 70 65 |3.8.A!..|.....ope|
|00000ee0| 6e 00 20 90 08 7b 20 68 | af 10 00 00 46 ff ff ff |n. ..{ h|....F...|
|00000ef0| dc 87 c5 0d 33 00 d3 41 | af 10 00 00 38 b6 07 00 |....3..A|....8...|
|00000f00| 82 70 69 64 00 0a 20 90 | 08 7b 20 68 53 04 00 00 |.pid.. .|.{ hS...|
|00000f10| 46 ff ff ff dc 87 c5 0d | 33 00 55 87 53 04 00 00 |F.......|3.U.S...|
|00000f20| 0b c7 07 00 82 70 77 64 | 00 0a 20 90 08 7b 20 68 |.....pwd|.. ..{ h|
|00000f30| 67 02 00 00 46 ff ff ff | 40 88 c5 0d 33 00 d4 d9 |g...F...|@...3...|
|00000f40| 67 02 00 00 82 cb 07 00 | 82 72 65 61 64 00 20 90 |g.......|.read. .|
|00000f50| 08 7b 20 68 51 05 00 00 | 46 ff ff ff 40 88 c5 0d |.{ hQ...|F...@...|
|00000f60| 33 00 e1 a5 51 05 00 00 | 0d ce 07 00 82 73 65 65 |3...Q...|.....see|
|00000f70| 6b 00 20 90 08 7b 20 68 | 96 06 00 00 46 ff ff ff |k. ..{ h|....F...|
|00000f80| a4 88 c5 0d 33 00 79 a5 | 96 06 00 00 82 d3 07 00 |....3.y.|........|
|00000f90| 82 73 6f 75 72 63 65 00 | 08 7b 20 68 cc 04 00 00 |.source.|.{ h....|
|00000fa0| 46 ff ff ff a4 88 c5 0d | 33 00 1a b4 cc 04 00 00 |F.......|3.......|
|00000fb0| 3c da 07 00 82 74 63 6c | 76 61 72 73 00 7b 20 68 |<....tcl|vars.{ h|
|00000fc0| 83 1c 00 00 46 ff ff ff | 6c db 07 29 33 00 bd a6 |....F...|l..)3...|
|00000fd0| 83 1c 00 00 2c df 07 00 | 82 74 65 6c 6c 00 20 90 |....,...|.tell. .|
|00000fe0| 08 7b 20 68 50 03 00 00 | 46 ff ff ff 08 89 c5 0d |.{ hP...|F.......|
|00000ff0| 33 00 ba ef 50 03 00 00 | d3 fb 07 00 82 74 69 6d |3...P...|.....tim|
|00001000| 65 00 20 90 08 7b 20 68 | 9b 03 00 00 46 ff ff ff |e. ..{ h|....F...|
|00001010| 08 89 c5 0d 33 00 3f 9d | 9b 03 00 00 47 ff 07 00 |....3.?.|....G...|
|00001020| 00 20 90 08 7d 0a 20 90 | 08 7b 20 68 6c 69 73 74 |. ..}. .|.{ hlist|
|00001030| 0a 20 90 0a 7b 61 63 74 | 69 6f 6e 20 43 6f 6e 74 |. ..{act|ion Cont|
|00001040| 75 65 75 65 82 52 69 73 | 63 4f 53 00 00 00 00 00 |ueue.Ris|cOS.....|
|00001050| ff ff ff ff 47 ff ff ff | 61 61 14 12 03 00 00 00 |....G...|aa......|
|00001060| ff ff ff ff dc 11 00 80 | 82 63 6c 6f 73 65 00 90 |........|.close..|
|00001070| 08 7b 20 68 7e 06 00 00 | 45 ff ff ff ec 4c c9 85 |.{ h~...|E....L..|
|00001080| 33 00 a5 58 7e 06 00 00 | 06 03 08 00 82 65 6f 66 |3..X~...|.....eof|
|00001090| 00 0a 20 90 08 7b 20 68 | 83 06 00 00 44 ff ff ff |.. ..{ h|....D...|
|000010a0| 2c e3 93 8b 33 00 e6 fe | 83 06 00 00 a8 09 08 00 |,...3...|........|
|000010b0| 82 65 78 69 74 00 20 90 | 08 7b 20 68 02 06 00 00 |.exit. .|.{ h....|
|000010c0| 44 ff ff ff 10 7a 6c ab | 33 00 c9 12 02 06 00 00 |D....zl.|3.......|
|000010d0| 4f 10 08 00 82 66 69 6c | 65 00 20 90 08 7b 20 68 |O....fil|e. ..{ h|
|000010e0| 42 08 00 00 45 ff ff ff | c3 a9 4c 9a 33 00 12 d9 |B...E...|..L.3...|
|000010f0| 42 08 00 00 75 16 08 00 | 82 66 6c 75 73 68 00 90 |B...u...|.flush..|
|00001100| 08 7b 20 68 c5 06 00 00 | 44 ff ff ff f4 d4 53 94 |.{ h....|D.....S.|
|00001110| 33 00 64 26 c5 06 00 00 | db 1e 08 00 82 67 65 74 |3.d&....|.....get|
|00001120| 65 6e 76 00 08 7b 20 68 | 3c 01 00 00 45 ff ff ff |env..{ h|<...E...|
|00001130| ff 19 ce 85 33 00 02 ad | 3c 01 00 00 c4 25 08 00 |....3...|<....%..|
|00001140| 82 67 65 74 73 00 20 90 | 08 7b 20 68 26 0a 00 00 |.gets. .|.{ h&...|
|00001150| 44 ff ff ff 8c 2e 9f e3 | 33 00 b8 5f 26 0a 00 00 |D.......|3.._&...|
|00001160| 24 27 08 00 82 67 6c 6f | 62 00 20 90 08 7b 20 68 |$'...glo|b. ..{ h|
|00001170| 85 07 00 00 46 ff ff ff | f8 45 90 91 33 00 5a e2 |....F...|.E..3.Z.|
|00001180| 85 07 00 00 6e 31 08 00 | 82 6f 70 65 6e 00 20 90 |....n1..|.open. .|
|00001190| 08 7b 20 68 60 0b 00 00 | 46 ff ff ff 58 b7 91 91 |.{ h`...|F...X...|
|000011a0| 33 00 c4 5d 60 0b 00 00 | 17 39 08 00 82 73 6f 75 |3..]`...|.9...sou|
|000011b0| 72 63 65 00 08 7b 20 68 | 93 07 00 00 45 ff ff ff |rce..{ h|....E...|
|000011c0| 7d 49 cb 85 33 00 0d 35 | 93 07 00 00 9b 44 08 00 |}I..3..5|.....D..|
|000011d0| 82 73 79 73 74 65 6d 00 | 08 7b 20 68 96 01 00 00 |.system.|.{ h....|
|000011e0| 45 ff ff ff 0d 2e ce 85 | 33 00 d0 87 96 01 00 00 |E.......|3.......|
|000011f0| 52 4c 08 00 82 74 63 6c | 76 61 72 73 00 7b 20 68 |RL...tcl|vars.{ h|
|00001200| 23 11 00 00 46 ff ff ff | 76 ba 8f 91 33 00 fe ac |#...F...|v...3...|
|00001210| 23 11 00 00 0c 4e 08 00 | 00 20 90 08 7d 0a 20 90 |#....N..|. ..}. .|
|00001220| 08 7b 20 68 6c 69 73 74 | 0a 20 90 0a 7b 61 63 74 |.{ hlist|. ..{act|
|00001230| 69 6f 6e 20 43 6f 6e 74 | 75 65 75 65 82 53 79 6e |ion Cont|ueue.Syn|
|00001240| 74 61 78 00 00 00 00 00 | 8f 1b 00 00 46 ff ff ff |tax.....|....F...|
|00001250| 28 64 0f 19 33 00 74 a2 | 8f 1b 00 00 53 5f 08 00 |(d..3.t.|....S_..|
|00001260| 82 54 63 6c 00 00 00 00 | 00 00 00 00 ff ff ff ff |.Tcl....|........|
|00001270| 47 ff ff ff 71 65 14 12 | 03 00 00 00 ff ff ff ff |G...qe..|........|
|00001280| e4 18 00 80 82 61 70 70 | 65 6e 64 00 08 7b 20 68 |.....app|end..{ h|
|00001290| d5 03 00 00 46 ff ff ff | e8 85 c5 0d 33 00 da 0d |....F...|....3...|
|000012a0| d5 03 00 00 06 7b 08 00 | 82 61 72 72 61 79 00 90 |.....{..|.array..|
|000012b0| 08 7b 20 68 d2 12 00 00 | 46 ff ff ff e8 85 c5 0d |.{ h....|F.......|
|000012c0| 33 00 1a 92 d2 12 00 00 | ff 7e 08 00 82 62 72 65 |3.......|.~...bre|
|000012d0| 61 6b 00 90 08 7b 20 68 | 2c 04 00 00 46 ff ff ff |ak...{ h|,...F...|
|000012e0| e8 85 c5 0d 33 00 9a 33 | 2c 04 00 00 f5 91 08 00 |....3..3|,.......|
|000012f0| 82 63 61 73 65 00 20 90 | 08 7b 20 68 0a 0a 00 00 |.case. .|.{ h....|
|00001300| 46 ff ff ff 4c 86 c5 0d | 33 00 e8 cc 0a 0a 00 00 |F...L...|3.......|
|00001310| 45 96 08 00 82 63 61 74 | 63 68 00 90 08 7b 20 68 |E....cat|ch...{ h|
|00001320| 06 06 00 00 46 ff ff ff | 4c 86 c5 0d 33 00 5a 26 |....F...|L...3.Z&|
|00001330| 06 06 00 00 73 a0 08 00 | 82 63 6f 6e 63 61 74 00 |....s...|.concat.|
|00001340| 08 7b 20 68 0d 04 00 00 | 46 ff ff ff 4c 86 c5 0d |.{ h....|F...L...|
|00001350| 33 00 f1 94 0d 04 00 00 | 9d a6 08 00 82 63 6f 6e |3.......|.....con|
|00001360| 74 69 6e 75 65 00 20 68 | 44 04 00 00 46 ff ff ff |tinue. h|D...F...|
|00001370| 4c 86 c5 0d 33 00 d0 8f | 44 04 00 00 ce aa 08 00 |L...3...|D.......|
|00001380| 82 65 72 72 6f 72 00 90 | 08 7b 20 68 90 08 00 00 |.error..|.{ h....|
|00001390| 46 ff ff ff 4c 86 c5 0d | 33 00 e0 84 90 08 00 00 |F...L...|3.......|
|000013a0| 36 af 08 00 82 65 76 61 | 6c 00 20 90 08 7b 20 68 |6....eva|l. ..{ h|
|000013b0| 9d 03 00 00 46 ff ff ff | b0 86 c5 0d 33 00 95 7c |....F...|....3..||
|000013c0| 9d 03 00 00 ea b7 08 00 | 82 65 78 65 63 00 20 90 |........|.exec. .|
|000013d0| 08 7b 20 68 8e 1a 00 00 | 46 ff ff ff 20 30 ee 25 |.{ h....|F... 0.%|
|000013e0| 33 00 2c 58 8e 1a 00 00 | ab bb 08 00 82 65 78 70 |3.,X....|.....exp|
|000013f0| 72 00 20 90 08 7b 20 68 | 5b 2a 00 00 46 ff ff ff |r. ..{ h|[*..F...|
|00001400| 8c 64 0f 19 33 00 55 a9 | 5b 2a 00 00 5d d6 08 00 |.d..3.U.|[*..]...|
|00001410| 82 66 6f 72 00 0a 20 90 | 08 7b 20 68 4a 06 00 00 |.for.. .|.{ hJ...|
|00001420| 46 ff ff ff b0 86 c5 0d | 33 00 a4 65 4a 06 00 00 |F.......|3..eJ...|
|00001430| dc 00 09 00 82 66 6f 72 | 65 61 63 68 00 7b 20 68 |.....for|each.{ h|
|00001440| 9a 04 00 00 46 ff ff ff | 14 87 c5 0d 33 00 bb 5b |....F...|....3..[|
|00001450| 9a 04 00 00 4a 07 09 00 | 82 66 6f 72 6d 61 74 00 |....J...|.format.|
|00001460| 08 7b 20 68 13 22 00 00 | 46 ff ff ff 14 87 c5 0d |.{ h."..|F.......|
|00001470| 33 00 f4 03 13 22 00 00 | 08 0c 09 00 82 67 6c 6f |3...."..|.....glo|
|00001480| 62 61 6c 00 08 7b 20 68 | bb 03 00 00 46 ff ff ff |bal..{ h|....F...|
|00001490| 14 87 c5 0d 33 00 fc cf | bb 03 00 00 3f 2e 09 00 |....3...|....?...|
|000014a0| 82 68 69 73 74 6f 72 79 | 00 7b 20 68 96 19 00 00 |.history|.{ h....|
|000014b0| 46 ff ff ff 14 87 c5 0d | 33 00 c5 20 96 19 00 00 |F.......|3.. ....|
|000014c0| 1e 32 09 00 82 69 66 00 | 7d 0a 20 90 08 7b 20 68 |.2...if.|}. ..{ h|
|000014d0| ab 06 00 00 46 ff ff ff | 8c 64 0f 19 33 00 a9 e3 |....F...|.d..3...|
|000014e0| ab 06 00 00 d8 4b 09 00 | 82 69 6e 63 72 00 20 90 |.....K..|.incr. .|
|000014f0| 08 7b 20 68 d7 03 00 00 | 46 ff ff ff 78 87 c5 0d |.{ h....|F...x...|
|00001500| 33 00 fa ab d7 03 00 00 | a7 52 09 00 82 69 6e 66 |3.......|.R...inf|
|00001510| 6f 00 20 90 08 7b 20 68 | ff 15 00 00 46 ff ff ff |o. ..{ h|....F...|
|00001520| d0 db 07 29 33 00 f6 50 | ff 15 00 00 a2 56 09 00 |...)3..P|.....V..|
|00001530| 82 6a 6f 69 6e 00 20 90 | 08 7b 20 68 75 03 00 00 |.join. .|.{ hu...|
|00001540| 46 ff ff ff 78 87 c5 0d | 33 00 54 32 75 03 00 00 |F...x...|3.T2u...|
|00001550| c5 6c 09 00 82 6c 61 70 | 70 65 6e 64 00 7b 20 68 |.l...lap|pend.{ h|
|00001560| d4 04 00 00 46 ff ff ff | 78 87 c5 0d 33 00 67 3a |....F...|x...3.g:|
|00001570| d4 04 00 00 5e 70 09 00 | 82 6c 69 6e 64 65 78 00 |....^p..|.lindex.|
|00001580| 08 7b 20 68 84 04 00 00 | 46 ff ff ff 78 87 c5 0d |.{ h....|F...x...|
|00001590| 33 00 80 4f 84 04 00 00 | 56 75 09 00 82 6c 69 6e |3..O....|Vu...lin|
|000015a0| 73 65 72 74 00 7b 20 68 | 6f 04 00 00 46 ff ff ff |sert.{ h|o...F...|
|000015b0| 78 87 c5 0d 33 00 e1 ef | 6f 04 00 00 fe 79 09 00 |x...3...|o....y..|
|000015c0| 82 6c 69 73 74 00 20 90 | 08 7b 20 68 71 05 00 00 |.list. .|.{ hq...|
|000015d0| 46 ff ff ff 8c 64 0f 19 | 33 00 8b c5 71 05 00 00 |F....d..|3...q...|
|000015e0| 91 7e 09 00 82 6c 6c 65 | 6e 67 74 68 00 7b 20 68 |.~...lle|ngth.{ h|
|000015f0| ab 02 00 00 46 ff ff ff | dc 87 c5 0d 33 00 18 20 |....F...|....3.. |
|00001600| ab 02 00 00 26 84 09 00 | 82 6c 72 61 6e 67 65 00 |....&...|.lrange.|
|00001610| 08 7b 20 68 9a 05 00 00 | 46 ff ff ff 8c 64 0f 19 |.{ h....|F....d..|
|00001620| 33 00 2b 76 9a 05 00 00 | f5 86 09 00 82 6c 72 65 |3.+v....|.....lre|
|00001630| 70 6c 61 63 65 00 20 68 | 33 06 00 00 46 ff ff ff |place. h|3...F...|
|00001640| f0 92 8c 27 33 00 cf c9 | 33 06 00 00 b3 8c 09 00 |...'3...|3.......|
|00001650| 82 6c 73 65 61 72 63 68 | 00 7b 20 68 c3 05 00 00 |.lsearch|.{ h....|
|00001660| 46 ff ff ff dc 87 c5 0d | 33 00 55 bc c3 05 00 00 |F.......|3.U.....|
|00001670| 0a 93 09 00 82 6c 73 6f | 72 74 00 90 08 7b 20 68 |.....lso|rt...{ h|
|00001680| ed 06 00 00 46 ff ff ff | dc 87 c5 0d 33 00 11 e6 |....F...|....3...|
|00001690| ed 06 00 00 f1 98 09 00 | 82 70 72 6f 63 00 20 90 |........|.proc. .|
|000016a0| 08 7b 20 68 7c 0b 00 00 | 46 ff ff ff 40 88 c5 0d |.{ h|...|F...@...|
|000016b0| 33 00 90 c1 7c 0b 00 00 | 02 a0 09 00 82 70 75 74 |3...|...|.....put|
|000016c0| 73 00 20 90 08 7b 20 68 | d9 04 00 00 46 ff ff ff |s. ..{ h|....F...|
|000016d0| 40 88 c5 0d 33 00 d1 0e | d9 04 00 00 a2 ab 09 00 |@...3...|........|
|000016e0| 82 72 65 67 65 78 70 00 | 08 7b 20 68 8b 18 00 00 |.regexp.|.{ h....|
|000016f0| 46 ff ff ff f0 64 0f 19 | 33 00 c1 fd 8b 18 00 00 |F....d..|3.......|
|00001700| 9f b0 09 00 82 72 65 67 | 73 75 62 00 08 7b 20 68 |.....reg|sub..{ h|
|00001710| e9 0a 00 00 46 ff ff ff | f0 64 0f 19 33 00 62 6e |....F...|.d..3.bn|
|00001720| e9 0a 00 00 4e c9 09 00 | 82 72 65 6e 61 6d 65 00 |....N...|.rename.|
|00001730| 08 7b 20 68 2b 03 00 00 | 46 ff ff ff 40 88 c5 0d |.{ h+...|F...@...|
|00001740| 33 00 17 b9 2b 03 00 00 | 5b d4 09 00 82 72 65 74 |3...+...|[....ret|
|00001750| 75 72 6e 00 08 7b 20 68 | 77 0c 00 00 46 ff ff ff |urn..{ h|w...F...|
|00001760| 40 88 c5 0d 33 00 a2 0c | 77 0c 00 00 aa d7 09 00 |@...3...|w.......|
|00001770| 82 73 63 61 6e 00 20 90 | 08 7b 20 68 a8 15 00 00 |.scan. .|.{ h....|
|00001780| 46 ff ff ff f0 64 0f 19 | 33 00 5a 52 a8 15 00 00 |F....d..|3.ZR....|
|00001790| 45 e4 09 00 82 73 65 74 | 00 0a 20 90 08 7b 20 68 |E....set|.. ..{ h|
|000017a0| 55 05 00 00 46 ff ff ff | a4 88 c5 0d 33 00 ba a0 |U...F...|....3...|
|000017b0| 55 05 00 00 11 fa 09 00 | 82 73 70 6c 69 74 00 90 |U.......|.split..|
|000017c0| 08 7b 20 68 6a 05 00 00 | 46 ff ff ff a4 88 c5 0d |.{ hj...|F.......|
|000017d0| 33 00 fc d2 6a 05 00 00 | 8a ff 09 00 82 73 74 72 |3...j...|.....str|
|000017e0| 69 6e 67 00 08 7b 20 68 | 95 14 00 00 46 ff ff ff |ing..{ h|....F...|
|000017f0| a4 88 c5 0d 33 00 98 e3 | 95 14 00 00 18 05 0a 00 |....3...|........|
|00001800| 82 73 75 62 73 74 00 90 | 08 7b 20 68 b3 06 00 00 |.subst..|.{ h....|
|00001810| 46 ff ff ff a4 88 c5 0d | 33 00 77 2b b3 06 00 00 |F.......|3.w+....|
|00001820| d1 19 0a 00 82 73 77 69 | 74 63 68 00 08 7b 20 68 |.....swi|tch..{ h|
|00001830| 14 0e 00 00 46 ff ff ff | f0 64 0f 19 33 00 42 db |....F...|.d..3.B.|
|00001840| 14 0e 00 00 a8 20 0a 00 | 82 74 72 61 63 65 00 90 |..... ..|.trace..|
|00001850| 08 7b 20 68 29 19 00 00 | 46 ff ff ff 08 89 c5 0d |.{ h)...|F.......|
|00001860| 33 00 2d 9f 29 19 00 00 | e0 2e 0a 00 82 75 6e 6b |3.-.)...|.....unk|
|00001870| 6e 6f 77 6e 00 7b 20 68 | 41 06 00 00 46 ff ff ff |nown.{ h|A...F...|
|00001880| 08 89 c5 0d 33 00 91 05 | 41 06 00 00 2d 48 0a 00 |....3...|A...-H..|
|00001890| 82 75 6e 73 65 74 00 90 | 08 7b 20 68 62 04 00 00 |.unset..|.{ hb...|
|000018a0| 46 ff ff ff 08 89 c5 0d | 33 00 bc db 62 04 00 00 |F.......|3...b...|
|000018b0| 92 4e 0a 00 82 75 70 6c | 65 76 65 6c 00 7b 20 68 |.N...upl|evel.{ h|
|000018c0| c1 0a 00 00 46 ff ff ff | f0 64 0f 19 33 00 72 a5 |....F...|.d..3.r.|
|000018d0| c1 0a 00 00 18 53 0a 00 | 83 75 70 76 61 72 00 90 |.....S..|.upvar..|
|000018e0| 08 7b 20 68 1d 0a 00 00 | 46 ff ff ff f0 64 0f 19 |.{ h....|F....d..|
|000018f0| 33 00 00 00 1b 0a 00 00 | fd 5d 0a 00 82 77 68 69 |3.......|.]...whi|
|00001900| 6c 65 00 90 08 7b 20 68 | 27 05 00 00 46 ff ff ff |le...{ h|'...F...|
|00001910| f0 64 0f 19 33 00 e7 d2 | 27 05 00 00 3c 68 0a 00 |.d..3...|'...<h..|
|00001920| 00 20 90 08 7d 0a 20 90 | 08 7b 20 68 6c 69 73 74 |. ..}. .|.{ hlist|
|00001930| 0a 20 90 0a 7b 61 63 74 | 69 6f 6e 20 43 6f 6e 74 |. ..{act|ion Cont|
|00001940| 75 65 75 65 82 77 00 00 | 00 00 00 00 00 00 00 00 |ueue.w..|........|
|00001950| ff ff ff ff 47 ff ff ff | 3c 74 14 12 03 00 00 00 |....G...|<t......|
|00001960| ff ff ff ff 28 1a 00 80 | 82 77 5f 62 61 72 00 90 |....(...|.w_bar..|
|00001970| 08 7b 20 68 9f 02 00 00 | 46 ff ff ff 7d 5a ea 8f |.{ h....|F...}Z..|
|00001980| 33 00 72 4e 9f 02 00 00 | 87 6d 0a 00 82 77 5f 62 |3.rN....|.m...w_b|
|00001990| 6f 78 00 90 08 7b 20 68 | 7e 00 00 00 45 ff ff ff |ox...{ h|~...E...|
|000019a0| 0d dd f0 9a 33 00 b4 71 | 7e 00 00 00 4a 70 0a 00 |....3..q|~...Jp..|
|000019b0| 82 77 5f 64 72 61 77 00 | 08 7b 20 68 82 00 00 00 |.w_draw.|.{ h....|
|000019c0| 45 ff ff ff 9d f7 f0 9a | 33 00 9d 6a 82 00 00 00 |E.......|3..j....|
|000019d0| ec 70 0a 00 82 77 5f 65 | 72 72 6f 72 00 7b 20 68 |.p...w_e|rror.{ h|
|000019e0| 85 00 00 00 45 ff ff ff | bf f6 ef 9a 33 00 2d 2a |....E...|....3.-*|
|000019f0| 85 00 00 00 92 71 0a 00 | 82 77 5f 69 6e 69 74 00 |.....q..|.w_init.|
|00001a00| 08 7b 20 68 b0 01 00 00 | 45 ff ff ff 31 25 eb 9a |.{ h....|E...1%..|
|00001a10| 33 00 3c 02 b0 01 00 00 | 3b 72 0a 00 82 77 5f 74 |3.<.....|;r...w_t|
|00001a20| 61 73 6b 00 08 7b 20 68 | 80 00 00 00 45 ff ff ff |ask..{ h|....E...|
|00001a30| ad 03 f1 9a 33 00 67 8f | 80 00 00 00 0f 74 0a 00 |....3.g.|.....t..|
|00001a40| 82 77 5f 74 65 78 74 00 | 08 7b 20 68 80 00 00 00 |.w_text.|.{ h....|
|00001a50| 45 ff ff ff e5 0e f1 9a | 33 00 d0 66 80 00 00 00 |E.......|3..f....|
|00001a60| b3 74 0a 00 00 20 90 08 | 7d 0a 20 90 08 7b 20 68 |.t... ..|}. ..{ h|
|00001a70| 6c 69 73 74 0a 20 90 0a | 7b 61 63 74 69 6f 6e 20 |list. ..|{action |
|00001a80| 43 6f 6e 74 75 65 75 65 | 00 00 00 00 00 00 00 00 |Contueue|........|
|00001a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 69 6e 64 |........|.....ind|
|00001ab0| 65 78 00 90 08 7b 20 68 | 10 1a 00 00 46 ff ff ff |ex...{ h|....F...|
|00001ac0| 2f 12 91 91 03 00 fd 84 | 10 1a 00 00 57 75 0a 00 |/.......|....Wu..|
|00001ad0| 82 6d 61 6b 65 69 6e 64 | 65 78 00 68 5f 02 00 00 |.makeind|ex.h_...|
|00001ae0| 46 ff ff ff 7f d1 83 91 | 03 00 7c 56 5f 02 00 00 |F.......|..|V_...|
|00001af0| 8b 8f 0a 00 83 6d 61 6e | 2f 6d 61 63 72 6f 73 00 |.....man|/macros.|
|00001b00| 30 0d 00 00 46 ff ff ff | dc 87 c5 0d 33 00 00 00 |0...F...|....3...|
|00001b10| 29 0d 00 00 0e 92 0a 00 | 83 6d 6f 76 65 64 6f 63 |).......|.movedoc|
|00001b20| 00 7b 20 68 13 02 00 00 | 46 ff ff ff 7c f9 81 91 |.{ h....|F...|...|
|00001b30| 03 00 00 00 0f 02 00 00 | 5b 9f 0a 00 83 74 63 6c |........|[....tcl|
|00001b40| 2d 74 78 74 00 7b 20 68 | 05 24 00 00 45 ff ff ff |-txt.{ h|.$..E...|
|00001b50| 0a a4 06 80 03 00 00 00 | a8 1d 00 00 8e a1 0a 00 |........|........|
|00001b60| 83 74 63 6c 64 6f 63 00 | 08 7b 20 68 bd 0a 00 00 |.tcldoc.|.{ h....|
|00001b70| 45 ff ff ff b5 71 cc 99 | 03 00 00 00 5c 0a 00 00 |E....q..|....\...|
|00001b80| 5a bf 0a 00 00 20 90 08 | 7d 0a 20 90 08 7b 20 68 |Z.... ..|}. ..{ h|
|00001b90| 6c 69 73 74 0a 20 90 0a | 7b 61 63 74 69 6f 6e 20 |list. ..|{action |
|00001ba0| 43 6f 6e 74 75 65 75 65 | 82 21 74 63 6c 6e 65 77 |Contueue|.!tclnew|
|00001bb0| 00 00 00 00 ff ff ff ff | 47 ff ff ff 17 78 14 12 |........|G....x..|
|00001bc0| 03 00 00 00 ff ff ff ff | f4 1d 00 80 82 21 42 6f |........|.....!Bo|
|00001bd0| 6f 74 00 20 53 59 4e 4f | 3a 00 00 00 45 eb ff ff |ot. SYNO|:...E...|
|00001be0| 12 e4 bc 83 03 00 76 a9 | 3a 00 00 00 db fa 0a 00 |......v.|:.......|
|00001bf0| 83 21 48 65 6c 70 00 20 | 53 59 4e 4f 97 04 00 00 |.!Help. |SYNO....|
|00001c00| 46 ff ff ff 2a cf 19 98 | 03 00 00 00 48 04 00 00 |F...*...|....H...|
|00001c10| 38 ca 0a 00 82 21 52 75 | 6e 00 48 20 53 59 4e 4f |8....!Ru|n.H SYNO|
|00001c20| 8e 00 00 00 45 eb ff ff | 01 d1 6e 91 03 00 97 e0 |....E...|..n.....|
|00001c30| 8e 00 00 00 a4 ce 0a 00 | 83 21 53 70 72 69 74 65 |........|.!Sprite|
|00001c40| 73 32 32 00 88 05 00 00 | 45 f9 ff ff 7b b5 bd 83 |s22.....|E...{...|
|00001c50| 03 00 00 00 dc 02 00 00 | 56 cf 0a 00 82 63 00 0a |........|V....c..|
|00001c60| 2e 53 48 20 53 59 4e 4f | ff ff ff ff 47 ff ff ff |.SH SYNO|....G...|
|00001c70| 8c 79 14 12 03 00 00 00 | ff ff ff ff 68 1c 00 80 |.y......|....h...|
|00001c80| 83 6e 65 77 73 70 72 69 | 74 65 73 00 d0 0d 00 00 |.newspri|tes.....|
|00001c90| 46 ff ff ff 1b 66 92 92 | 03 00 00 00 5b 0d 00 00 |F....f..|....[...|
|00001ca0| 56 d2 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |V.......|........|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 00 00 | 83 4d 61 6b 65 66 69 6c |........|.Makefil|
|00001cd0| 65 00 4e 4f 79 03 00 00 | 46 e1 ff ff 12 6f 92 92 |e.NOy...|F....o..|
|00001ce0| 03 00 00 00 65 03 00 00 | d5 df 0a 00 82 6d 6f 64 |....e...|.....mod|
|00001cf0| 65 6c 00 20 53 59 4e 4f | ff ff ff ff 47 ff ff ff |el. SYNO|....G...|
|00001d00| 31 7a 14 12 03 00 00 00 | ff ff ff ff 40 1d 00 80 |1z......|....@...|
|00001d10| 83 21 42 6f 6f 74 00 00 | 00 00 00 00 39 00 00 00 |.!Boot..|....9...|
|00001d20| 45 eb ff ff aa 02 bd 83 | 03 00 00 00 37 00 00 00 |E.......|....7...|
|00001d30| 88 e5 0a 00 83 21 52 75 | 6e 00 00 00 00 00 00 00 |.....!Ru|n.......|
|00001d40| 8a 00 00 00 45 eb ff ff | ae da 6e 91 03 00 00 00 |....E...|..n.....|
|00001d50| 82 00 00 00 5e e3 0a 00 | 83 58 58 58 58 58 00 00 |....^...|.XXXXX..|
|00001d60| 00 00 00 00 98 01 00 00 | 45 ff ff ff 9b 9b 94 8f |........|E.......|
|00001d70| 03 00 00 00 60 01 00 00 | 04 e4 0a 00 00 00 00 00 |....`...|........|
|00001d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 83 6e 65 77 73 70 72 69 | 74 65 73 00 c4 1c 00 00 |.newspri|tes.....|
|00001db0| 46 f8 ff ff 0b 6f 92 92 | 03 00 00 00 66 0e 00 00 |F....o..|....f...|
|00001dc0| e3 e5 0a 00 82 6f 00 0a | 2e 53 48 20 53 59 4e 4f |.....o..|.SH SYNO|
|00001dd0| ff ff ff ff 47 ff ff ff | 65 7b 14 12 03 00 00 00 |....G...|e{......|
|00001de0| ff ff ff ff ac 1d 00 80 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 83 74 63 6c |........|.....tcl|
|00001e10| 6e 65 77 00 53 59 4e 4f | af 06 00 00 45 ff ff ff |new.SYNO|....E...|
|00001e20| ef 93 ee df 03 00 00 00 | 4a 06 00 00 6d f4 0a 00 |........|J...m...|
|00001e30| 00 65 74 0a 2e 53 48 20 | 53 59 4e 4f 50 53 49 53 |.et..SH |SYNOPSIS|
|00001e40| 0a 5c 66 42 77 68 69 6c | 65 20 5c 66 49 74 65 73 |.\fBwhil|e \fItes|
|00001e50| d0 03 62 6f 82 21 57 61 | 6c 6c 79 00 00 00 00 00 |..bo.!Wa|lly.....|
|00001e60| ff ff ff ff 47 ff ff ff | e0 7b 14 12 03 00 00 00 |....G...|.{......|
|00001e70| ff ff ff ff 34 20 00 80 | 82 21 42 6f 6f 74 00 90 |....4 ..|.!Boot..|
|00001e80| 03 ff 90 11 3a 00 00 00 | 45 eb ff ff a0 7c 73 8b |....:...|E....|s.|
|00001e90| 03 00 ea b4 3a 00 00 00 | 87 36 0c 00 83 21 48 65 |....:...|.6...!He|
|00001ea0| 6c 70 00 90 03 ff 90 11 | 68 05 00 00 46 ff ff ff |lp......|h...F...|
|00001eb0| 82 a3 0a 97 03 00 00 00 | 1b 05 00 00 39 fb 0a 00 |........|....9...|
|00001ec0| 82 21 52 75 6e 00 00 90 | 03 ff 90 11 8f 00 00 00 |.!Run...|........|
|00001ed0| 45 eb ff ff a0 e0 9b 91 | 03 00 21 c1 8f 00 00 00 |E.......|..!.....|
|00001ee0| 78 00 0b 00 83 21 53 70 | 72 69 74 65 73 00 73 00 |x....!Sp|rites.s.|
|00001ef0| e0 02 00 00 45 f9 ff ff | 18 8e 73 8b 03 00 00 00 |....E...|..s.....|
|00001f00| f4 01 00 00 2b 01 0b 00 | 82 63 00 ff 90 11 00 90 |....+...|.c......|
|00001f10| 03 ff 90 11 ff ff ff ff | 47 ff ff ff c1 7c 14 12 |........|G....|..|
|00001f20| 03 00 00 00 ff ff ff ff | 14 1f 00 80 83 77 61 6c |........|.....wal|
|00001f30| 6c 79 00 00 00 00 00 00 | 21 e3 00 00 45 ff ff ff |ly......|!...E...|
|00001f40| dc ee eb 88 03 00 00 00 | 72 d2 00 00 43 03 0b 00 |........|r...C...|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 83 47 6f 42 | 6f 61 72 64 00 ff 90 11 |.....GoB|oard....|
|00001f80| 81 0e 00 00 45 ff ff ff | a7 23 94 91 03 00 00 00 |....E...|.#......|
|00001f90| a1 0d 00 00 d9 d5 0b 00 | 83 4d 61 6b 65 66 69 6c |........|.Makefil|
|00001fa0| 65 00 90 11 32 02 00 00 | 45 e1 ff ff f0 f7 eb 88 |e...2...|E.......|
|00001fb0| 03 00 00 00 28 02 00 00 | 9e e3 0b 00 82 6f 00 ff |....(...|.....o..|
|00001fc0| 90 11 00 90 03 ff 90 11 | ff ff ff ff 47 ff ff ff |........|....G...|
|00001fd0| 44 80 14 12 03 00 00 00 | ff ff ff ff a4 1f 00 80 |D.......|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 00 00 00 00 83 72 65 61 | 64 6d 65 00 03 ff 90 11 |.....rea|dme.....|
|00002010| 59 06 00 00 45 ff ff ff | bd 76 24 83 03 00 00 00 |Y...E...|.v$.....|
|00002020| 27 06 00 00 ea e5 0b 00 | 83 77 61 6c 6c 79 00 90 |'.......|.wally..|
|00002030| 03 ff 90 11 8c 53 00 00 | 45 f8 ff ff e6 f7 eb 88 |.....S..|E.......|
|00002040| 03 00 00 00 20 42 00 00 | 35 ec 0b 00 82 77 61 6c |.... B..|5....wal|
|00002050| 6c 79 72 6d 00 ff 90 11 | ea 07 00 00 45 ff ff ff |lyrm....|....E...|
|00002060| b4 82 24 83 03 00 11 63 | ea 07 00 00 79 2e 0c 00 |..$....c|....y...|
|00002070| 00 90 03 ff 90 11 00 90 | 03 ff 90 11 00 90 03 ff |........|........|
|00002080| 90 04 f7 ff 90 07 77 ff | 90 04 00 90 03 ff 90 04 |......w.|........|
|00002090| 03 e0 90 06 82 21 77 74 | 65 73 74 00 00 00 00 00 |.....!wt|est.....|
|000020a0| ff ff ff ff 47 ff ff ff | 68 82 14 12 03 00 00 00 |....G...|h.......|
|000020b0| ff ff ff ff e4 21 00 80 | 82 21 42 6f 6f 74 00 0e |.....!..|.!Boot..|
|000020c0| 00 00 ee 00 3a 00 00 00 | 46 eb ff ff 58 bb 94 91 |....:...|F...X...|
|000020d0| 03 00 52 17 3a 00 00 00 | 98 70 0c 00 83 21 48 65 |..R.:...|.p...!He|
|000020e0| 6c 70 00 0e 00 00 ee 00 | c5 01 00 00 46 ff ff ff |lp......|....F...|
|000020f0| 52 58 22 97 03 00 00 00 | 78 01 00 00 e5 36 0c 00 |RX".....|x....6..|
|00002100| 82 21 52 75 6e 00 05 0e | 00 00 ee 00 8b 00 00 00 |.!Run...|........|
|00002110| 46 eb ff ff 10 b7 0a 97 | 03 00 a2 da 8b 00 00 00 |F.......|........|
|00002120| 81 38 0c 00 83 21 73 70 | 72 69 74 65 73 00 73 00 |.8...!sp|rites.s.|
|00002130| e4 03 00 00 46 f9 ff ff | 87 84 92 92 03 00 00 00 |....F...|........|
|00002140| b7 01 00 00 30 39 0c 00 | 83 21 73 70 72 69 74 65 |....09..|.!sprite|
|00002150| 73 32 32 00 4c 07 00 00 | 46 f9 ff ff 7e 84 92 92 |s22.L...|F...~...|
|00002160| 03 00 00 00 13 03 00 00 | 0b 3b 0c 00 83 64 62 6f |........|.;...dbo|
|00002170| 78 74 65 73 74 00 ee 00 | e2 08 00 00 46 ff ff ff |xtest...|....F...|
|00002180| 46 a3 b0 97 03 00 00 00 | 31 08 00 00 42 3e 0c 00 |F.......|1...B>..|
|00002190| 83 64 72 61 77 74 65 73 | 74 00 ee 00 e3 0e 00 00 |.drawtes|t.......|
|000021a0| 46 ff ff ff c1 67 30 96 | 03 00 00 00 9b 0e 00 00 |F....g0.|........|
|000021b0| 97 46 0c 00 83 74 65 73 | 74 73 70 72 69 74 65 00 |.F...tes|tsprite.|
|000021c0| 0c 0f 00 00 46 f9 ff ff | 12 0d 2a 93 03 00 00 00 |....F...|..*.....|
|000021d0| 2c 0a 00 00 56 55 0c 00 | 83 74 65 78 74 74 65 73 |,...VU..|.texttes|
|000021e0| 74 00 ee 00 83 0a 00 00 | 46 ff ff ff 77 a5 f8 92 |t.......|F...w...|
|000021f0| 03 00 00 00 e8 09 00 00 | a6 5f 0c 00 83 77 74 65 |........|._...wte|
|00002200| 73 74 00 0e 00 00 ee 00 | f3 06 00 00 46 ff ff ff |st......|....F...|
|00002210| 67 51 8d 96 03 00 00 00 | c2 06 00 00 b2 69 0c 00 |gQ......|.....i..|
|00002220| 00 00 00 e0 ee 90 05 0e | 00 00 ee 00 90 03 ee 90 |........|........|
|00002230| 11 00 90 03 ee 90 05 7e | e7 ee 90 03 00 ee 90 06 |.......~|........|
|00002240| 64 e4 7d e9 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.}.....|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 48 69 73 74 20 2d 20 73 |........|Hist - s|
|00002270| 68 61 64 65 20 64 65 6d | 6f 6e 73 74 72 61 74 69 |hade dem|onstrati|
|00002280| 6f 6e 20 70 72 6f 67 72 | 61 6d 0a 0a 54 68 69 73 |on progr|am..This|
|00002290| 20 70 6c 6f 74 73 20 73 | 69 6d 70 6c 65 20 68 69 | plots s|imple hi|
|000022a0| 73 74 6f 67 72 61 6d 73 | 2e 20 44 72 61 67 20 66 |stograms|. Drag f|
|000022b0| 69 6c 65 73 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |iles con|taining |
|000022c0| 6e 75 6d 62 65 72 73 20 | 73 65 70 61 72 61 74 65 |numbers |separate|
|000022d0| 64 20 62 79 0a 73 70 61 | 63 65 73 20 6e 65 77 6c |d by.spa|ces newl|
|000022e0| 69 6e 65 73 20 6f 72 20 | 63 6f 6d 6d 61 73 20 74 |ines or |commas t|
|000022f0| 6f 20 74 68 65 20 68 69 | 73 74 20 69 63 6f 6e 2e |o the hi|st icon.|
|00002300| 0a 0a 54 68 65 20 66 69 | 6c 65 72 20 6e 65 65 64 |..The fi|ler need|
|00002310| 73 20 74 6f 20 68 61 76 | 65 20 73 65 65 6e 20 74 |s to hav|e seen t|
|00002320| 68 65 20 21 54 63 6c 20 | 64 69 72 65 63 74 6f 72 |he !Tcl |director|
|00002330| 79 20 62 65 66 6f 72 65 | 20 69 74 20 77 69 6c 6c |y before| it will|
|00002340| 20 72 75 6e 0a 49 74 20 | 6e 65 65 64 73 20 52 49 | run.It |needs RI|
|00002350| 53 43 4f 53 20 33 2e 31 | 20 6f 72 20 67 72 65 61 |SCOS 3.1| or grea|
|00002360| 74 65 72 2e 0a 0a 53 75 | 69 74 61 62 6c 65 20 65 |ter...Su|itable e|
|00002370| 78 61 6d 70 6c 65 20 64 | 61 74 61 20 69 73 20 63 |xample d|ata is c|
|00002380| 6f 6e 74 61 69 6e 65 64 | 20 69 6e 20 74 68 65 20 |ontained| in the |
|00002390| 66 69 6c 65 20 21 48 69 | 73 74 2e 44 61 74 61 2e |file !Hi|st.Data.|
|000023a0| 20 49 74 20 77 61 73 20 | 67 65 6e 65 72 61 74 65 | It was |generate|
|000023b0| 64 0a 62 79 20 74 68 65 | 20 74 63 6c 73 68 20 73 |d.by the| tclsh s|
|000023c0| 63 72 69 70 74 20 22 6d | 61 6b 65 64 61 74 61 22 |cript "m|akedata"|
|000023d0| 20 74 68 61 74 20 63 61 | 6e 20 62 65 20 72 75 6e | that ca|n be run|
|000023e0| 20 66 72 6f 6d 20 74 68 | 65 20 6f 62 65 79 20 66 | from th|e obey f|
|000023f0| 69 6c 65 0a 20 21 48 69 | 73 74 2e 21 4d 61 6b 65 |ile. !Hi|st.!Make|
|00002400| 64 61 74 61 2e 0a 0a 3d | 90 50 0a 0a 54 68 65 20 |data...=|.P..The |
|00002410| 70 72 6f 67 72 61 6d 20 | 67 69 76 65 73 20 61 20 |program |gives a |
|00002420| 73 69 6d 70 6c 65 20 65 | 78 61 6d 70 6c 65 20 6f |simple e|xample o|
|00002430| 66 20 68 6f 77 20 74 6f | 20 73 61 76 65 20 64 72 |f how to| save dr|
|00002440| 61 77 20 66 69 6c 65 73 | 20 69 6e 20 73 68 61 64 |aw files| in shad|
|00002450| 65 2e 0a 49 74 20 69 6c | 6c 75 73 74 72 61 74 65 |e..It il|lustrate|
|00002460| 73 20 68 6f 77 20 74 6f | 20 75 73 65 20 74 61 67 |s how to| use tag|
|00002470| 73 2c 20 73 6f 20 74 68 | 61 74 20 74 68 65 20 73 |s, so th|at the s|
|00002480| 61 6d 65 20 64 69 61 6c | 6f 67 20 62 6f 78 20 63 |ame dial|og box c|
|00002490| 61 6e 20 62 65 20 75 73 | 65 64 20 66 72 6f 6d 0a |an be us|ed from.|
|000024a0| 6d 6f 72 65 20 74 68 61 | 6e 20 6f 6e 65 20 64 72 |more tha|n one dr|
|000024b0| 61 77 20 77 69 6e 64 6f | 77 2e 0a 0a 54 68 65 20 |aw windo|w...The |
|000024c0| 64 69 61 6c 6f 67 20 62 | 6f 78 20 73 61 76 65 42 |dialog b|ox saveB|
|000024d0| 6f 78 20 63 61 6c 6c 73 | 20 22 73 61 76 65 64 72 |ox calls| "savedr|
|000024e0| 61 67 22 20 69 66 20 74 | 68 65 20 69 63 6f 6e 20 |ag" if t|he icon |
|000024f0| 69 73 20 64 72 61 67 67 | 65 64 2c 20 61 6e 64 20 |is dragg|ed, and |
|00002500| 22 73 61 76 65 63 6c 69 | 63 6b 22 0a 69 66 20 74 |"savecli|ck".if t|
|00002510| 68 65 20 4f 46 69 6c 65 | 44 61 74 61 83 21 48 65 |he OFile|Data.!He|
|00002520| 6c 70 00 00 83 21 52 65 | a1 05 00 00 47 fd ff ff |lp...!Re|....G...|
|00002530| da 39 14 12 03 00 00 00 | 48 69 73 74 20 2d 20 73 |.9......|Hist - s|
|00002540| 68 61 64 65 20 64 65 6d | 6f 6e 73 74 72 61 74 69 |hade dem|onstrati|
|00002550| 6f 6e 20 70 72 6f 67 72 | 61 6d 0a 0a 54 68 69 73 |on progr|am..This|
|00002560| 20 70 6c 6f 74 73 20 73 | 69 6d 70 6c 65 20 68 69 | plots s|imple hi|
|00002570| 73 74 6f 67 72 61 6d 73 | 2e 20 44 72 61 67 20 66 |stograms|. Drag f|
|00002580| 69 6c 65 73 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |iles con|taining |
|00002590| 6e 75 6d 62 65 72 73 20 | 73 65 70 61 72 61 74 65 |numbers |separate|
|000025a0| 64 20 62 79 0a 73 70 61 | 63 65 73 20 6e 65 77 6c |d by.spa|ces newl|
|000025b0| 69 6e 65 73 20 6f 72 20 | 63 6f 6d 6d 61 73 20 74 |ines or |commas t|
|000025c0| 6f 20 74 68 65 20 68 69 | 73 74 20 69 63 6f 6e 2e |o the hi|st icon.|
|000025d0| 0a 0a 54 68 65 20 66 69 | 6c 65 72 20 6e 65 65 64 |..The fi|ler need|
|000025e0| 73 20 74 6f 20 68 61 76 | 65 20 73 65 65 6e 20 74 |s to hav|e seen t|
|000025f0| 68 65 20 21 54 63 6c 20 | 64 69 72 65 63 74 6f 72 |he !Tcl |director|
|00002600| 79 20 62 65 66 6f 72 65 | 20 69 74 20 77 69 6c 6c |y before| it will|
|00002610| 20 72 75 6e 0a 49 74 20 | 6e 65 65 64 73 20 52 49 | run.It |needs RI|
|00002620| 53 43 4f 53 20 33 2e 31 | 20 6f 72 20 67 72 65 61 |SCOS 3.1| or grea|
|00002630| 74 65 72 2e 0a 0a 53 75 | 69 74 61 62 6c 65 20 65 |ter...Su|itable e|
|00002640| 78 61 6d 70 6c 65 20 64 | 61 74 61 20 69 73 20 63 |xample d|ata is c|
|00002650| 6f 6e 74 61 69 6e 65 64 | 20 69 6e 20 74 68 65 20 |ontained| in the |
|00002660| 66 69 6c 65 20 21 48 69 | 73 74 2e 44 61 74 61 2e |file !Hi|st.Data.|
|00002670| 20 49 74 20 77 61 73 20 | 67 65 6e 65 72 61 74 65 | It was |generate|
|00002680| 64 0a 62 79 20 74 68 65 | 20 74 63 6c 73 68 20 73 |d.by the| tclsh s|
|00002690| 63 72 69 70 74 20 22 6d | 61 6b 65 64 61 74 61 22 |cript "m|akedata"|
|000026a0| 20 74 68 61 74 20 63 61 | 6e 20 62 65 20 72 75 6e | that ca|n be run|
|000026b0| 20 66 72 6f 6d 20 74 68 | 65 20 6f 62 65 79 20 66 | from th|e obey f|
|000026c0| 69 6c 65 0a 20 21 48 69 | 73 74 2e 21 4d 61 6b 65 |ile. !Hi|st.!Make|
|000026d0| 64 61 74 61 2e 0a 0a 3d | 90 50 0a 0a 54 68 65 20 |data...=|.P..The |
|000026e0| 70 72 6f 67 72 61 6d 20 | 67 69 76 65 73 20 61 20 |program |gives a |
|000026f0| 73 69 6d 70 6c 65 20 65 | 78 61 6d 70 6c 65 20 6f |simple e|xample o|
|00002700| 66 20 68 6f 77 20 74 6f | 20 73 61 76 65 20 64 72 |f how to| save dr|
|00002710| 61 77 20 66 69 6c 65 73 | 20 69 6e 20 73 68 61 64 |aw files| in shad|
|00002720| 65 2e 0a 49 74 20 69 6c | 6c 75 73 74 72 61 74 65 |e..It il|lustrate|
|00002730| 73 20 68 6f 77 20 74 6f | 20 75 73 65 20 74 61 67 |s how to| use tag|
|00002740| 73 2c 20 73 6f 20 74 68 | 61 74 20 74 68 65 20 73 |s, so th|at the s|
|00002750| 61 6d 65 20 64 69 61 6c | 6f 67 20 62 6f 78 20 63 |ame dial|og box c|
|00002760| 61 6e 20 62 65 20 75 73 | 65 64 20 66 72 6f 6d 0a |an be us|ed from.|
|00002770| 6d 6f 72 65 20 74 68 61 | 6e 20 6f 6e 65 20 64 72 |more tha|n one dr|
|00002780| 61 77 20 77 69 6e 64 6f | 77 2e 0a 0a 54 68 65 20 |aw windo|w...The |
|00002790| 64 69 61 6c 6f 67 20 62 | 6f 78 20 73 61 76 65 42 |dialog b|ox saveB|
|000027a0| 6f 78 20 63 61 6c 6c 73 | 20 22 73 61 76 65 64 72 |ox calls| "savedr|
|000027b0| 61 67 22 20 69 66 20 74 | 68 65 20 69 63 6f 6e 20 |ag" if t|he icon |
|000027c0| 69 73 20 64 72 61 67 67 | 65 64 2c 20 61 6e 64 20 |is dragg|ed, and |
|000027d0| 22 73 61 76 65 63 6c 69 | 63 6b 22 0a 69 66 20 74 |"savecli|ck".if t|
|000027e0| 68 65 20 4f 4b 20 62 75 | 74 74 6f 6e 20 69 73 20 |he OK bu|tton is |
|000027f0| 63 6c 69 63 6b 65 64 2e | 20 49 74 20 69 73 20 61 |clicked.| It is a|
|00002800| 74 74 61 63 68 65 64 20 | 74 6f 20 74 68 65 20 64 |ttached |to the d|
|00002810| 69 61 67 72 61 6d 20 6d | 65 6e 75 20 69 6e 20 74 |iagram m|enu in t|
|00002820| 68 65 20 63 61 6c 6c 0a | 74 6f 20 77 5f 64 72 61 |he call.|to w_dra|
|00002830| 77 20 64 69 61 67 24 64 | 69 61 67 20 63 72 65 61 |w diag$d|iag crea|
|00002840| 74 65 20 69 6e 20 70 72 | 6f 63 65 64 75 72 65 20 |te in pr|ocedure |
|00002850| 22 64 72 61 67 70 72 6f | 63 22 2e 20 54 68 65 20 |"dragpro|c". The |
|00002860| 6d 65 6e 75 20 65 6e 74 | 72 79 20 68 61 73 20 62 |menu ent|ry has b|
|00002870| 6f 74 68 20 61 0a 64 69 | 61 6c 6f 67 20 62 6f 78 |oth a.di|alog box|
|00002880| 20 61 6e 64 20 61 20 63 | 6c 69 63 6b 20 69 74 65 | and a c|lick ite|
|00002890| 6d 2e 20 43 6c 69 63 6b | 69 6e 67 20 6f 6e 20 69 |m. Click|ing on i|
|000028a0| 74 20 63 61 6c 6c 73 20 | 70 72 6f 63 65 64 75 72 |t calls |procedur|
|000028b0| 65 20 22 73 61 76 65 4d | 63 6c 69 63 6b 22 2e 20 |e "saveM|click". |
|000028c0| 54 68 69 73 0a 73 61 76 | 65 73 20 69 66 20 74 68 |This.sav|es if th|
|000028d0| 65 20 66 69 6c 65 6e 61 | 6d 65 20 68 61 73 20 62 |e filena|me has b|
|000028e0| 65 65 6e 20 73 65 74 20 | 61 6c 72 65 61 64 79 2c |een set |already,|
|000028f0| 20 61 6e 64 20 6f 70 65 | 6e 73 20 74 68 65 20 62 | and ope|ns the b|
|00002900| 6f 78 20 69 66 20 69 74 | 20 68 61 73 20 6e 6f 74 |ox if it| has not|
|00002910| 2e 0a 0a 4e 6f 74 69 63 | 65 20 64 72 61 77 20 77 |...Notic|e draw w|
|00002920| 69 6e 64 6f 77 73 20 61 | 72 65 20 63 72 65 61 74 |indows a|re creat|
|00002930| 65 64 20 77 69 74 68 20 | 6e 61 6d 65 73 20 64 69 |ed with |names di|
|00002940| 61 67 31 20 64 69 61 67 | 32 20 2e 90 03 0a 0a 22 |ag1 diag|2 ....."|
|00002950| 73 61 76 65 64 72 61 67 | 22 20 6a 75 73 74 20 63 |savedrag|" just c|
|00002960| 61 6c 6c 73 20 74 68 65 | 20 77 5f 64 72 61 77 20 |alls the| w_draw |
|00002970| 3c 6e 61 6d 65 3e 20 73 | 61 76 65 20 63 6f 6d 6d |<name> s|ave comm|
|00002980| 61 6e 64 20 77 69 74 68 | 20 74 68 65 20 73 75 70 |and with| the sup|
|00002990| 70 6c 69 65 64 20 66 69 | 6c 65 6e 61 6d 65 0a 61 |plied fi|lename.a|
|000029a0| 6e 64 20 77 69 6e 64 6f | 77 20 6e 61 6d 65 2e 0a |nd windo|w name..|
|000029b0| 0a 49 74 20 73 61 76 65 | 73 20 74 68 65 20 66 69 |.It save|s the fi|
|000029c0| 6c 65 6e 61 6d 65 20 69 | 6e 20 61 20 67 6c 6f 62 |lename i|n a glob|
|000029d0| 61 6c 20 61 72 72 61 79 | 20 65 6e 74 72 79 20 73 |al array| entry s|
|000029e0| 6f 20 74 68 61 74 20 69 | 74 20 63 61 6e 20 62 65 |o that i|t can be|
|000029f0| 20 72 65 75 73 65 64 2e | 0a 0a 54 68 69 73 20 61 | reused.|..This a|
|00002a00| 72 72 61 79 20 65 6e 74 | 72 79 20 69 73 20 69 6e |rray ent|ry is in|
|00002a10| 69 74 69 61 6c 69 73 65 | 64 20 74 6f 20 74 68 65 |itialise|d to the|
|00002a20| 20 64 65 66 61 75 6c 74 | 20 69 6e 20 74 68 65 20 | default| in the |
|00002a30| 22 64 72 61 67 70 72 6f | 63 22 20 70 72 6f 63 65 |"dragpro|c" proce|
|00002a40| 64 75 72 65 2e 0a 0a 22 | 73 61 76 65 63 6c 69 63 |dure..."|saveclic|
|00002a50| 6b 22 20 66 69 72 73 74 | 20 63 68 65 63 6b 73 20 |k" first| checks |
|00002a60| 74 68 61 74 20 74 68 65 | 20 73 75 70 70 6c 69 65 |that the| supplie|
|00002a70| 64 20 66 69 6c 65 6e 61 | 6d 65 20 63 6f 6e 74 61 |d filena|me conta|
|00002a80| 69 6e 73 20 61 20 27 2e | 27 20 2e 0a 46 69 6c 65 |ins a '.|' ..File|
|00002a90| 44 61 74 61 82 21 4d 61 | 6b 65 44 61 74 61 00 65 |Data.!Ma|keData.e|
|00002aa0| 6a 00 00 00 47 fd ff ff | 24 3a 14 12 03 00 d7 28 |j...G...|$:.....(|
|00002ab0| 7c 20 4d 61 6b 65 20 69 | 6e 64 65 78 20 66 69 6c || Make i|ndex fil|
|00002ac0| 65 20 66 6f 72 20 21 74 | 63 6c 64 6f 63 2e 0a 0a |e for !t|cldoc...|
|00002ad0| 73 65 74 20 48 69 73 74 | 24 44 69 72 20 3c 4f 62 |set Hist|$Dir <Ob|
|00002ae0| 65 79 24 44 69 72 3e 0a | 72 75 6e 20 3c 74 63 6c |ey$Dir>.|run <tcl|
|00002af0| 24 44 69 72 3e 2e 74 63 | 6c 73 68 20 2d 62 65 7e |$Dir>.tc|lsh -be~|
|00002b00| 63 20 3c 48 69 73 74 24 | 44 69 72 3e 2e 6d 61 6b |c <Hist$|Dir>.mak|
|00002b10| 65 64 61 74 61 20 31 30 | 30 0a 46 69 6c 65 44 61 |edata 10|0.FileDa|
|00002b20| 74 61 82 21 52 75 6e 00 | 00 00 83 21 52 65 87 00 |ta.!Run.|...!Re..|
|00002b30| 00 00 47 fd ff ff 38 3a | 14 12 03 00 d8 8e 7c 20 |..G...8:|......| |
|00002b40| 52 75 6e 20 66 69 6c 65 | 20 66 6f 72 20 21 48 69 |Run file| for !Hi|
|00002b50| 73 74 2e 0a 0a 49 63 6f | 6e 53 70 72 69 74 65 73 |st...Ico|nSprites|
|00002b60| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|00002b70| 69 74 65 73 0a 73 65 74 | 20 48 69 73 74 24 44 69 |ites.set| Hist$Di|
|00002b80| 72 20 3c 4f 62 65 79 24 | 44 69 72 3e 0a 57 69 6d |r <Obey$|Dir>.Wim|
|00002b90| 70 73 6c 6f 74 20 31 34 | 34 6b 20 31 34 34 6b 0a |pslot 14|4k 144k.|
|00002ba0| 72 75 6e 20 3c 74 63 6c | 24 44 69 72 3e 2e 73 68 |run <tcl|$Dir>.sh|
|00002bb0| 61 64 65 20 3c 48 69 73 | 74 24 44 69 72 3e 2e 48 |ade <His|t$Dir>.H|
|00002bc0| 69 73 74 0a 0a 46 69 6c | 65 44 61 74 61 83 58 2b |ist..Fil|eData.X+|
|00002bd0| 21 73 70 72 69 74 65 73 | 00 e4 03 00 00 47 fd ff |!sprites|.....G..|
|00002be0| ff 76 3a 14 12 03 00 00 | 00 02 00 90 03 10 00 90 |.v:.....|........|
|00002bf0| 03 e8 03 00 00 d4 02 00 | 00 21 68 69 73 74 00 90 |........|.!hist..|
|00002c00| 07 04 00 90 03 10 00 90 | 07 07 00 90 03 2c 00 90 |........|.....,..|
|00002c10| 03 80 01 00 00 0c 00 90 | 18 77 90 03 07 00 90 10 |........|.w......|
|00002c20| 97 99 99 07 00 90 10 97 | 99 99 07 00 90 07 77 90 |........|......w.|
|00002c30| 04 00 90 05 97 99 99 07 | 00 90 07 97 99 99 79 00 |........|......y.|
|00002c40| 90 05 97 99 99 77 90 04 | 00 90 04 97 99 99 79 00 |.....w..|......y.|
|00002c50| 90 05 97 99 99 77 99 99 | 79 00 90 04 97 99 99 79 |.....w..|y......y|
|00002c60| 00 90 05 97 99 99 77 99 | 99 79 00 90 04 97 99 99 |......w.|.y......|
|00002c70| 79 00 90 05 97 99 99 77 | 99 99 79 00 90 04 97 99 |y......w|..y.....|
|00002c80| 99 79 00 90 05 97 99 99 | 77 99 99 79 00 90 04 97 |.y......|w..y....|
|00002c90| 99 99 79 00 90 05 97 99 | 99 77 99 99 79 77 90 04 |..y.....|.w..yw..|
|00002ca0| 97 99 99 79 00 90 05 97 | 99 99 77 99 99 79 99 90 |...y....|..w..y..|
|00002cb0| 03 79 97 99 99 79 00 90 | 05 97 99 99 77 99 99 79 |.y...y..|....w..y|
|00002cc0| 99 90 03 79 97 99 99 79 | 00 90 05 97 99 99 77 99 |...y...y|......w.|
|00002cd0| 99 79 99 90 03 79 97 99 | 99 79 00 90 05 97 99 99 |.y...y..|.y......|
|00002ce0| 77 99 99 79 99 90 03 79 | 97 99 99 79 00 90 05 97 |w..y...y|...y....|
|00002cf0| 99 99 77 99 99 79 99 90 | 03 79 97 99 99 79 00 90 |..w..y..|.y...y..|
|00002d00| 04 77 90 11 00 90 03 ff | 90 ff ff 90 55 04 01 00 |.w......|....U...|
|00002d10| 00 73 6d 21 68 69 73 74 | 00 90 05 02 00 90 03 08 |.sm!hist|........|
|00002d20| 00 90 07 03 00 90 03 2c | 00 90 03 98 00 90 03 0c |.......,|........|
|00002d30| 00 90 08 77 90 03 00 90 | 04 70 77 77 00 00 97 99 |...w....|.pww....|
|00002d40| 79 00 90 04 70 99 79 00 | 00 97 99 79 00 90 04 70 |y...p.y.|...y...p|
|00002d50| 99 79 77 77 97 99 79 00 | 90 04 70 99 79 99 99 97 |.yww..y.|..p.y...|
|00002d60| 99 79 00 90 04 70 99 79 | 99 99 97 99 79 00 90 04 |.y...p.y|....y...|
|00002d70| 70 99 79 99 99 97 99 79 | 00 90 04 70 99 79 99 99 |p.y....y|...p.y..|
|00002d80| 97 99 79 00 90 04 77 90 | 08 07 00 90 03 ff 90 6c |..y...w.|.......l|
|00002d90| 46 69 6c 65 44 61 74 61 | 83 21 73 70 72 69 74 65 |FileData|.!sprite|
|00002da0| 73 32 32 00 4c 07 00 00 | 47 fd ff ff 96 3a 14 12 |s22.L...|G....:..|
|00002db0| 03 00 00 00 02 00 90 03 | 10 00 90 03 50 07 00 00 |........|....P...|
|00002dc0| 7c 05 00 00 21 68 69 73 | 74 00 90 07 04 00 90 03 ||...!his|t.......|
|00002dd0| 21 00 90 07 07 00 90 03 | 2c 00 90 03 d4 02 00 00 |!.......|,.......|
|00002de0| 14 00 90 2f 77 90 03 07 | 00 90 10 97 99 99 07 00 |.../w...|........|
|00002df0| 90 10 97 99 99 77 90 04 | 00 90 0d 97 99 99 97 99 |.....w..|........|
|00002e00| 99 79 00 90 0d 97 99 99 | 97 99 99 79 00 90 0d 97 |.y......|...y....|
|00002e10| 99 99 97 99 99 79 00 90 | 0a 77 90 03 97 99 99 97 |.....y..|.w......|
|00002e20| 99 99 79 00 90 0a 97 99 | 99 97 99 99 97 99 99 79 |..y.....|.......y|
|00002e30| 00 90 0a 97 99 99 97 99 | 99 97 99 99 79 00 90 0a |........|....y...|
|00002e40| 97 99 99 97 99 99 97 99 | 99 79 00 90 0a 97 99 99 |........|.y......|
|00002e50| 97 99 99 97 99 99 79 00 | 90 0a 97 99 99 97 99 99 |......y.|........|
|00002e60| 97 99 99 79 00 90 0a 97 | 99 99 97 99 99 97 99 99 |...y....|........|
|00002e70| 79 77 90 03 07 00 90 06 | 97 99 99 97 99 99 97 99 |yw......|........|
|00002e80| 99 79 99 90 03 07 00 90 | 06 97 99 99 97 99 99 97 |.y......|........|
|00002e90| 99 99 79 99 90 03 07 00 | 90 06 97 99 99 97 99 99 |..y.....|........|
|00002ea0| 97 99 99 79 99 90 03 07 | 00 90 06 97 99 99 97 99 |...y....|........|
|00002eb0| 99 97 99 99 79 99 90 03 | 07 00 90 06 97 99 99 97 |....y...|........|
|00002ec0| 99 99 97 99 99 79 99 90 | 03 07 00 90 06 97 99 99 |.....y..|........|
|00002ed0| 97 99 99 97 99 99 79 99 | 90 03 07 00 90 06 97 99 |......y.|........|
|00002ee0| 99 97 99 99 97 99 99 79 | 99 90 03 07 00 90 06 97 |.......y|........|
|00002ef0| 99 99 97 99 99 97 99 99 | 79 99 90 03 07 00 90 06 |........|y.......|
|00002f00| 97 99 99 97 99 99 97 99 | 99 79 99 90 03 07 00 90 |........|.y......|
|00002f10| 06 97 99 99 97 99 99 97 | 99 99 79 99 90 03 07 00 |........|..y.....|
|00002f20| 90 06 97 99 99 97 99 99 | 97 99 99 79 99 90 03 77 |........|...y...w|
|00002f30| 90 03 00 90 04 97 99 99 | 97 99 99 97 99 99 79 99 |........|......y.|
|00002f40| 90 03 97 99 79 00 90 04 | 97 99 99 97 99 99 97 99 |....y...|........|
|00002f50| 99 79 99 90 03 97 99 79 | 00 90 04 97 99 99 97 99 |.y.....y|........|
|00002f60| 99 97 99 99 79 99 90 03 | 97 99 79 00 90 04 97 99 |....y...|..y.....|
|00002f70| 99 97 99 99 97 99 99 79 | 99 90 03 97 99 79 00 90 |.......y|.....y..|
|00002f80| 04 97 99 99 97 99 99 97 | 99 99 79 99 90 03 97 99 |........|..y.....|
|00002f90| 79 00 90 04 97 99 99 97 | 99 99 97 99 99 79 99 90 |y.......|.....y..|
|00002fa0| 03 97 99 79 00 90 03 77 | 90 11 00 90 03 77 90 11 |...y...w|.....w..|
|00002fb0| 00 90 03 ff 90 ff ff 90 | ff ff 90 aa c4 01 00 00 |........|........|
|00002fc0| 73 6d 21 68 69 73 74 00 | 90 05 02 00 90 03 10 00 |sm!hist.|........|
|00002fd0| 90 07 03 00 90 03 2c 00 | 90 03 f8 00 90 03 14 00 |......,.|........|
|00002fe0| 90 1d 77 77 07 00 90 09 | 97 99 07 00 90 09 97 99 |..ww....|........|
|00002ff0| 07 00 90 09 97 99 07 00 | 90 07 77 77 97 99 07 00 |........|..ww....|
|00003000| 70 77 07 00 90 03 97 99 | 97 99 07 00 70 99 07 00 |pw......|....p...|
|00003010| 90 03 97 99 97 99 07 00 | 70 99 07 00 90 03 97 99 |........|p.......|
|00003020| 97 99 07 00 70 99 07 00 | 90 03 97 99 97 99 07 00 |....p...|........|
|00003030| 70 99 07 00 90 03 97 99 | 97 99 77 90 03 99 07 00 |p.......|..w.....|
|00003040| 90 03 97 99 97 99 97 99 | 79 99 07 00 90 03 97 99 |........|y.......|
|00003050| 97 99 97 99 79 99 07 00 | 90 03 97 99 97 99 97 99 |....y...|........|
|00003060| 79 99 07 00 90 03 77 90 | 08 07 00 90 03 77 90 08 |y.....w.|.....w..|
|00003070| 07 00 90 03 ff 90 cc 46 | 69 6c 65 44 61 74 61 82 |.......F|ileData.|
|00003080| 44 61 74 61 00 00 00 83 | 21 52 65 7e 03 00 00 47 |Data....|!Re~...G|
|00003090| fd ff ff e0 3a 14 12 03 | 00 d4 0b 30 2e 34 34 30 |....:...|...0.440|
|000030a0| 30 34 39 0a 30 2e 34 34 | 35 33 39 39 0a 30 2e 33 |049.0.44|5399.0.3|
|000030b0| 39 36 31 33 34 0a 30 2e | 35 37 35 34 34 38 0a 30 |96134.0.|575448.0|
|000030c0| 2e 36 30 39 35 30 32 0a | 30 2e 34 38 37 38 39 0a |.609502.|0.48789.|
|000030d0| 30 2e 35 31 38 31 31 31 | 0a 30 2e 36 38 31 39 33 |0.518111|.0.68193|
|000030e0| 37 0a 30 2e 35 30 34 30 | 35 39 0a 30 2e 35 35 33 |7.0.5040|59.0.553|
|000030f0| 32 38 39 0a 30 2e 34 34 | 35 38 33 0a 30 2e 33 39 |289.0.44|583.0.39|
|00003100| 39 31 33 36 0a 30 2e 34 | 30 31 37 33 37 0a 30 2e |9136.0.4|01737.0.|
|00003110| 36 31 39 39 32 32 0a 30 | 2e 32 31 34 31 39 33 0a |619922.0|.214193.|
|00003120| 30 2e 34 35 32 38 37 38 | 0a 30 2e 32 37 31 35 33 |0.452878|.0.27153|
|00003130| 34 0a 30 2e 34 32 36 35 | 33 31 0a 30 2e 33 37 37 |4.0.4265|31.0.377|
|00003140| 31 38 32 0a 30 2e 34 31 | 37 30 38 33 0a 30 2e 36 |182.0.41|7083.0.6|
|00003150| 33 35 32 37 32 0a 30 2e | 36 33 34 35 35 31 0a 30 |35272.0.|634551.0|
|00003160| 2e 32 37 37 32 33 36 0a | 30 2e 34 31 32 37 34 31 |.277236.|0.412741|
|00003170| 0a 30 2e 33 33 38 38 30 | 38 0a 30 2e 36 38 38 38 |.0.33880|8.0.6888|
|00003180| 33 31 0a 30 2e 31 39 39 | 32 39 36 0a 30 2e 36 35 |31.0.199|296.0.65|
|00003190| 38 36 39 35 0a 30 2e 34 | 39 39 38 30 38 0a 30 2e |8695.0.4|99808.0.|
|000031a0| 35 30 36 35 31 38 0a 30 | 2e 36 33 35 36 33 33 0a |506518.0|.635633.|
|000031b0| 30 2e 34 38 37 30 33 0a | 30 2e 33 34 38 30 31 31 |0.48703.|0.348011|
|000031c0| 0a 30 2e 34 32 38 33 32 | 37 0a 30 2e 33 31 33 36 |.0.42832|7.0.3136|
|000031d0| 34 34 0a 30 2e 36 30 35 | 32 30 35 0a 30 2e 35 31 |44.0.605|205.0.51|
|000031e0| 35 37 33 38 0a 30 2e 33 | 30 38 30 34 31 0a 30 2e |5738.0.3|08041.0.|
|000031f0| 35 37 32 31 34 36 0a 30 | 2e 36 33 39 38 31 34 0a |572146.0|.639814.|
|00003200| 30 2e 35 38 36 35 30 34 | 0a 30 2e 31 38 38 37 30 |0.586504|.0.18870|
|00003210| 31 0a 30 2e 33 37 35 36 | 36 31 0a 30 2e 36 35 35 |1.0.3756|61.0.655|
|00003220| 34 38 36 0a 30 2e 33 31 | 37 30 39 33 0a 30 2e 33 |486.0.31|7093.0.3|
|00003230| 33 36 34 38 34 0a 30 2e | 36 38 37 36 37 38 0a 30 |36484.0.|687678.0|
|00003240| 2e 37 30 31 35 32 36 0a | 30 2e 33 36 38 35 34 37 |.701526.|0.368547|
|00003250| 0a 30 2e 33 36 38 36 36 | 0a 30 2e 33 33 39 31 36 |.0.36866|.0.33916|
|00003260| 33 0a 30 2e 34 34 33 37 | 31 0a 30 2e 33 33 35 31 |3.0.4437|1.0.3351|
|00003270| 30 38 0a 30 2e 35 34 39 | 32 33 38 0a 30 2e 33 39 |08.0.549|238.0.39|
|00003280| 30 34 33 39 0a 30 2e 34 | 34 34 37 36 33 0a 30 2e |0439.0.4|44763.0.|
|00003290| 34 39 33 33 34 35 0a 30 | 2e 34 30 31 35 30 33 0a |493345.0|.401503.|
|000032a0| 30 2e 34 33 33 30 37 31 | 0a 30 2e 37 32 38 34 34 |0.433071|.0.72844|
|000032b0| 35 0a 30 2e 35 36 37 34 | 30 35 0a 30 2e 35 38 30 |5.0.5674|05.0.580|
|000032c0| 34 34 35 0a 30 2e 35 37 | 38 33 32 38 0a 30 2e 33 |445.0.57|8328.0.3|
|000032d0| 35 33 32 36 39 0a 30 2e | 34 31 38 32 31 32 0a 30 |53269.0.|418212.0|
|000032e0| 2e 37 31 36 38 32 38 0a | 30 2e 35 33 38 31 38 34 |.716828.|0.538184|
|000032f0| 0a 30 2e 33 37 32 38 32 | 33 0a 30 2e 33 37 31 36 |.0.37282|3.0.3716|
|00003300| 33 39 0a 30 2e 35 30 34 | 34 39 35 0a 30 2e 33 33 |39.0.504|495.0.33|
|00003310| 36 38 39 38 0a 30 2e 33 | 32 36 39 31 39 0a 30 2e |6898.0.3|26919.0.|
|00003320| 37 32 30 35 34 35 0a 30 | 2e 32 37 31 36 32 39 0a |720545.0|.271629.|
|00003330| 30 2e 34 33 36 31 32 37 | 0a 30 2e 35 34 34 33 30 |0.436127|.0.54430|
|00003340| 37 0a 30 2e 35 33 34 31 | 36 32 0a 30 2e 34 39 36 |7.0.5341|62.0.496|
|00003350| 34 35 37 0a 30 2e 36 39 | 30 33 32 33 0a 30 2e 37 |457.0.69|0323.0.7|
|00003360| 38 36 34 38 34 0a 30 2e | 33 32 39 37 33 0a 30 2e |86484.0.|32973.0.|
|00003370| 35 32 38 36 33 33 0a 30 | 2e 32 32 34 31 37 38 0a |528633.0|.224178.|
|00003380| 30 2e 32 37 39 38 36 35 | 0a 30 2e 34 31 31 35 39 |0.279865|.0.41159|
|00003390| 39 0a 30 2e 34 37 37 30 | 36 33 0a 30 2e 32 38 33 |9.0.4770|63.0.283|
|000033a0| 39 33 32 0a 30 2e 36 38 | 38 30 30 39 0a 30 2e 34 |932.0.68|8009.0.4|
|000033b0| 37 37 31 35 33 0a 30 2e | 37 36 32 34 38 34 0a 30 |77153.0.|762484.0|
|000033c0| 2e 34 33 30 39 33 31 0a | 30 2e 35 35 32 37 35 35 |.430931.|0.552755|
|000033d0| 0a 30 2e 36 30 37 32 38 | 39 0a 30 2e 35 31 30 30 |.0.60728|9.0.5100|
|000033e0| 30 35 0a 30 2e 32 35 34 | 30 33 36 0a 30 2e 36 32 |05.0.254|036.0.62|
|000033f0| 32 37 31 33 0a 30 2e 34 | 36 32 36 32 39 0a 30 2e |2713.0.4|62629.0.|
|00003400| 35 38 36 36 31 35 0a 30 | 2e 37 31 37 35 36 36 0a |586615.0|.717566.|
|00003410| 30 2e 36 33 33 32 36 39 | 0a 46 69 6c 65 44 61 74 |0.633269|.FileDat|
|00003420| 61 83 48 69 73 74 00 00 | 00 83 21 52 65 c9 0d 00 |a.Hist..|..!Re...|
|00003430| 00 47 fd ff ff 21 3b 14 | 12 03 00 00 00 23 20 48 |.G...!;.|.....# H|
|00003440| 69 73 74 0a 0a 73 6f 75 | 72 63 65 20 7b 3c 74 63 |ist..sou|rce {<tc|
|00003450| 6c 24 44 69 72 3e 2e 21 | 43 68 6f 69 63 65 73 7d |l$Dir>.!|Choices}|
|00003460| 0a 0a 77 5f 69 6e 69 74 | 20 48 69 73 74 0a 0a 73 |..w_init| Hist..s|
|00003470| 6f 75 72 63 65 20 7b 3c | 74 63 6c 24 44 69 72 3e |ource {<|tcl$Dir>|
|00003480| 2e 6c 69 62 72 61 72 79 | 2e 64 65 62 75 67 7d 0a |.library|.debug}.|
|00003490| 0a 73 65 74 20 64 69 61 | 67 20 30 0a 0a 77 5f 62 |.set dia|g 0..w_b|
|000034a0| 6f 78 20 70 72 6f 67 49 | 6e 66 6f 20 63 72 65 61 |ox progI|nfo crea|
|000034b0| 74 65 20 22 41 62 6f 75 | 74 20 74 68 69 73 20 70 |te "Abou|t this p|
|000034c0| 72 6f 67 72 61 6d 22 5c | 0a 20 7b 20 68 6c 69 73 |rogram"\|. { hlis|
|000034d0| 74 20 7b 73 70 72 69 74 | 65 20 21 68 69 73 74 7d |t {sprit|e !hist}|
|000034e0| 0a 20 90 0b 7b 76 6c 69 | 73 74 20 7b 69 6e 66 6f |. ..{vli|st {info|
|000034f0| 20 4e 61 6d 65 20 48 69 | 73 74 7d 0a 20 90 12 7b | Name Hi|st}. ..{|
|00003500| 69 6e 66 6f 20 50 75 72 | 70 6f 73 65 20 22 44 72 |info Pur|pose "Dr|
|00003510| 61 77 20 48 69 73 74 6f | 67 72 61 6d 73 22 7d 0a |aw Histo|grams"}.|
|00003520| 20 90 12 7b 69 6e 66 6f | 20 41 75 74 68 6f 72 20 | ..{info| Author |
|00003530| 43 2e 54 2e 53 74 72 65 | 74 63 68 7d 0a 20 90 12 |C.T.Stre|tch}. ..|
|00003540| 7b 69 6e 66 6f 20 56 65 | 72 73 69 6f 6e 20 30 2e |{info Ve|rsion 0.|
|00003550| 30 30 7d 0a 20 90 0b 7d | 20 90 07 0a 20 7d 0a 0a |00}. ..}| ... }..|
|00003560| 77 5f 62 61 72 20 2d 6d | 65 6e 75 20 7b 20 48 69 |w_bar -m|enu { Hi|
|00003570| 73 74 20 7b 49 6e 66 6f | 20 2d 64 62 6f 78 20 70 |st {Info| -dbox p|
|00003580| 72 6f 67 49 6e 66 6f 7d | 0a 20 90 14 7b 51 75 69 |rogInfo}|. ..{Qui|
|00003590| 74 20 2d 63 6c 69 63 6b | 20 65 78 69 74 7d 0a 20 |t -click| exit}. |
|000035a0| 90 0c 7d 5c 0a 20 90 06 | 2d 64 72 61 67 20 7b 20 |..}\. ..|-drag { |
|000035b0| 64 72 61 67 70 72 6f 63 | 20 24 77 5f 66 69 6c 65 |dragproc| $w_file|
|000035c0| 20 25 74 7d 0a 0a 77 5f | 62 6f 78 20 64 61 74 61 | %t}..w_|box data|
|000035d0| 49 6e 66 6f 20 63 72 65 | 61 74 65 20 22 41 62 6f |Info cre|ate "Abo|
|000035e0| 75 74 20 74 68 65 20 64 | 61 74 61 22 5c 0a 20 7b |ut the d|ata"\. {|
|000035f0| 20 76 6c 69 73 74 20 7b | 64 69 73 70 6c 61 79 20 | vlist {|display |
|00003600| 46 69 6c 65 20 66 6e 61 | 6d 65 7d 0a 20 90 09 7b |File fna|me}. ..{|
|00003610| 64 69 73 70 6c 61 79 20 | 4e 20 6e 75 6d 7d 0a 20 |display |N num}. |
|00003620| 90 09 7b 68 6c 69 73 74 | 20 7b 64 69 73 70 6c 61 |..{hlist| {displa|
|00003630| 79 20 4d 61 78 20 6d 61 | 78 64 20 31 30 7d 20 7b |y Max ma|xd 10} {|
|00003640| 64 69 73 70 6c 61 79 20 | 4d 69 6e 20 6d 69 6e 64 |display |Min mind|
|00003650| 20 31 30 7d 7d 0a 20 7d | 20 2d 74 61 67 0a 0a 77 | 10}}. }| -tag..w|
|00003660| 5f 62 6f 78 20 73 61 76 | 65 42 6f 78 20 63 72 65 |_box sav|eBox cre|
|00003670| 61 74 65 20 22 53 61 76 | 65 20 61 73 3a 22 5c 0a |ate "Sav|e as:"\.|
|00003680| 20 7b 20 76 6c 69 73 74 | 20 7b 73 61 76 65 20 44 | { vlist| {save D|
|00003690| 72 61 77 46 69 6c 65 20 | 64 6e 61 6d 65 20 7b 73 |rawFile |dname {s|
|000036a0| 61 76 65 64 72 61 67 20 | 24 77 5f 66 69 6c 65 20 |avedrag |$w_file |
|000036b0| 25 77 7d 7d 0a 20 90 09 | 7b 68 6c 69 73 74 20 7b |%w}}. ..|{hlist {|
|000036c0| 61 63 74 69 6f 6e 20 43 | 61 6e 63 65 6c 7d 20 7b |action C|ancel} {|
|000036d0| 64 65 66 61 75 6c 74 20 | 53 61 76 65 20 7b 73 61 |default |Save {sa|
|000036e0| 76 65 63 6c 69 63 6b 20 | 25 77 7d 90 03 0a 20 7d |veclick |%w}... }|
|000036f0| 20 2d 74 61 67 0a 0a 70 | 72 6f 63 20 73 61 76 65 | -tag..p|roc save|
|00003700| 64 72 61 67 20 7b 66 20 | 77 7d 5c 0a 20 7b 20 67 |drag {f |w}\. { g|
|00003710| 6c 6f 62 61 6c 20 64 6e | 61 6d 65 0a 20 90 03 77 |lobal dn|ame. ..w|
|00003720| 5f 64 72 61 77 20 24 77 | 20 73 61 76 65 20 24 66 |_draw $w| save $f|
|00003730| 0a 20 90 03 73 65 74 20 | 64 6e 61 6d 65 28 24 77 |. ..set |dname($w|
|00003740| 29 20 24 66 0a 20 90 03 | 72 65 74 75 72 6e 20 30 |) $f. ..|return 0|
|00003750| 0a 20 7d 0a 0a 70 72 6f | 63 20 73 61 76 65 63 6c |. }..pro|c savecl|
|00003760| 69 63 6b 20 7b 77 7d 5c | 0a 20 7b 20 67 6c 6f 62 |ick {w}\|. { glob|
|00003770| 61 6c 20 64 6e 61 6d 65 | 0a 20 90 03 69 66 20 5b |al dname|. ..if [|
|00003780| 73 74 72 69 6e 67 20 6d | 61 74 63 68 20 2a 2e 2a |string m|atch *.*|
|00003790| 20 24 64 6e 61 6d 65 28 | 24 77 29 5d 20 5c 0a 20 | $dname(|$w)] \. |
|000037a0| 90 03 7b 20 77 5f 64 72 | 61 77 20 24 77 20 73 61 |..{ w_dr|aw $w sa|
|000037b0| 76 65 20 24 64 6e 61 6d | 65 28 24 77 29 0a 20 90 |ve $dnam|e($w). .|
|000037c0| 05 72 65 74 75 72 6e 20 | 30 0a 20 90 03 7d 0a 20 |.return |0. ..}. |
|000037d0| 90 03 77 5f 65 72 72 6f | 72 20 22 54 6f 20 73 61 |..w_erro|r "To sa|
|000037e0| 76 65 2c 20 64 72 61 67 | 20 74 68 65 20 69 63 6f |ve, drag| the ico|
|000037f0| 6e 20 74 6f 20 61 20 64 | 69 72 65 63 74 6f 72 79 |n to a d|irectory|
|00003800| 20 64 69 73 70 6c 61 79 | 22 0a 20 90 03 72 65 74 | display|". ..ret|
|00003810| 75 72 6e 20 30 0a 20 7d | 0a 0a 70 72 6f 63 20 73 |urn 0. }|..proc s|
|00003820| 61 76 65 4d 63 6c 69 63 | 6b 20 7b 77 7d 5c 0a 20 |aveMclic|k {w}\. |
|00003830| 7b 20 67 6c 6f 62 61 6c | 20 64 6e 61 6d 65 0a 20 |{ global| dname. |
|00003840| 90 03 69 66 20 5b 73 74 | 72 69 6e 67 20 6d 61 74 |..if [st|ring mat|
|00003850| 63 68 20 2a 2e 2a 20 24 | 64 6e 61 6d 65 28 24 77 |ch *.* $|dname($w|
|00003860| 29 5d 20 5c 0a 20 90 03 | 7b 20 77 5f 64 72 61 77 |)] \. ..|{ w_draw|
|00003870| 20 24 77 20 73 61 76 65 | 20 24 64 6e 61 6d 65 28 | $w save| $dname(|
|00003880| 24 77 29 0a 20 90 03 7d | 20 5c 0a 20 90 03 65 6c |$w). ..}| \. ..el|
|00003890| 73 65 20 5c 0a 20 90 03 | 7b 20 77 5f 62 6f 78 20 |se \. ..|{ w_box |
|000038a0| 73 61 76 65 42 6f 78 20 | 6f 70 65 6e 20 24 77 0a |saveBox |open $w.|
|000038b0| 20 90 03 7d 0a 20 7d 0a | 0a 70 72 6f 63 20 64 72 | ..}. }.|.proc dr|
|000038c0| 61 67 70 72 6f 63 20 7b | 66 20 74 7d 5c 0a 20 7b |agproc {|f t}\. {|
|000038d0| 20 67 6c 6f 62 61 6c 20 | 64 69 61 67 20 66 6e 61 | global |diag fna|
|000038e0| 6d 65 20 6e 75 6d 20 6d | 61 78 64 20 6d 69 6e 64 |me num m|axd mind|
|000038f0| 20 64 6e 61 6d 65 0a 20 | 90 03 69 66 20 7b 24 74 | dname. |..if {$t|
|00003900| 21 3d 34 30 39 35 7d 20 | 72 65 74 75 72 6e 0a 20 |!=4095} |return. |
|00003910| 90 03 73 65 74 20 69 6e | 66 69 6c 65 20 5b 6f 70 |..set in|file [op|
|00003920| 65 6e 20 24 66 20 72 5d | 0a 20 90 03 69 6e 63 72 |en $f r]|. ..incr|
|00003930| 20 64 69 61 67 0a 20 90 | 03 73 65 74 20 66 6e 61 | diag. .|.set fna|
|00003940| 6d 65 28 64 69 61 67 24 | 64 69 61 67 29 20 24 66 |me(diag$|diag) $f|
|00003950| 0a 20 90 03 73 65 74 20 | 64 6e 61 6d 65 28 64 69 |. ..set |dname(di|
|00003960| 61 67 24 64 69 61 67 29 | 20 44 72 61 77 46 69 6c |ag$diag)| DrawFil|
|00003970| 65 0a 20 90 03 77 68 69 | 6c 65 20 7b 21 5b 65 6f |e. ..whi|le {![eo|
|00003980| 66 20 24 69 6e 66 69 6c | 65 5d 7d 5c 0a 20 90 03 |f $infil|e]}\. ..|
|00003990| 7b 20 73 65 74 20 6c 69 | 6e 65 20 5b 67 65 74 73 |{ set li|ne [gets|
|000039a0| 20 24 69 6e 66 69 6c 65 | 5d 0a 20 90 05 72 65 67 | $infile|]. ..reg|
|000039b0| 73 75 62 20 2d 61 6c 6c | 20 7b 5b 5e 30 2d 39 2e |sub -all| {[^0-9.|
|000039c0| 65 45 2b 2d 5d 2b 7d 20 | 24 6c 69 6e 65 20 22 20 |eE+-]+} |$line " |
|000039d0| 22 20 6c 69 6e 65 0a 20 | 90 05 73 65 74 20 6c 69 |" line. |..set li|
|000039e0| 6e 65 20 5b 73 74 72 69 | 6e 67 20 74 72 69 6d 20 |ne [stri|ng trim |
|000039f0| 24 6c 69 6e 65 5d 0a 20 | 90 05 61 70 70 65 6e 64 |$line]. |..append|
|00003a00| 20 76 61 6c 20 22 24 6c | 69 6e 65 20 22 0a 20 90 | val "$l|ine ". .|
|00003a10| 03 7d 0a 20 90 03 73 65 | 74 20 76 61 6c 20 5b 6c |.}. ..se|t val [l|
|00003a20| 73 6f 72 74 20 2d 72 65 | 61 6c 20 24 76 61 6c 5d |sort -re|al $val]|
|00003a30| 0a 20 90 03 73 65 74 20 | 6e 20 5b 6c 6c 65 6e 67 |. ..set |n [lleng|
|00003a40| 74 68 20 24 76 61 6c 5d | 0a 20 90 03 73 65 74 20 |th $val]|. ..set |
|00003a50| 6e 75 6d 28 64 69 61 67 | 24 64 69 61 67 29 20 24 |num(diag|$diag) $|
|00003a60| 6e 0a 20 90 03 69 66 20 | 7b 24 6e 3c 38 7d 20 7b |n. ..if |{$n<8} {|
|00003a70| 77 5f 65 72 72 6f 72 20 | 22 49 6e 73 75 66 66 69 |w_error |"Insuffi|
|00003a80| 63 69 65 6e 74 20 64 61 | 74 61 20 28 6e 3d 24 6e |cient da|ta (n=$n|
|00003a90| 29 22 20 3b 20 72 65 74 | 75 72 6e 7d 0a 20 90 03 |)" ; ret|urn}. ..|
|00003aa0| 73 65 74 20 6d 20 5b 65 | 78 70 72 20 72 6f 75 6e |set m [e|xpr roun|
|00003ab0| 64 28 73 71 72 74 28 24 | 6e 29 2b 30 2e 35 29 5d |d(sqrt($|n)+0.5)]|
|00003ac0| 0a 20 90 03 69 66 20 7b | 24 6d 3e 32 35 7d 20 7b |. ..if {|$m>25} {|
|00003ad0| 73 65 74 20 6d 20 32 35 | 7d 0a 20 90 03 73 65 74 |set m 25|}. ..set|
|00003ae0| 20 6c 65 61 73 74 20 5b | 6c 69 6e 64 65 78 20 24 | least [|lindex $|
|00003af0| 76 61 6c 20 30 5d 0a 20 | 90 03 73 65 74 20 6d 6f |val 0]. |..set mo|
|00003b00| 73 74 20 20 5b 6c 69 6e | 64 65 78 20 24 76 61 6c |st [lin|dex $val|
|00003b10| 20 5b 65 78 70 72 20 24 | 6e 2d 31 5d 5d 0a 20 90 | [expr $|n-1]]. .|
|00003b20| 03 73 65 74 20 6d 61 78 | 64 28 64 69 61 67 24 64 |.set max|d(diag$d|
|00003b30| 69 61 67 29 20 24 6d 6f | 73 74 0a 20 90 03 73 65 |iag) $mo|st. ..se|
|00003b40| 74 20 6d 69 6e 64 28 64 | 69 61 67 24 64 69 61 67 |t mind(d|iag$diag|
|00003b50| 29 20 24 6c 65 61 73 74 | 0a 20 90 03 73 65 74 20 |) $least|. ..set |
|00003b60| 67 61 70 20 5b 65 78 70 | 72 20 64 6f 75 62 6c 65 |gap [exp|r double|
|00003b70| 28 24 6d 6f 73 74 2d 24 | 6c 65 61 73 74 29 5d 0a |($most-$|least)].|
|00003b80| 20 90 03 69 66 20 7b 24 | 67 61 70 3c 30 2e 30 90 | ..if {$|gap<0.0.|
|00003b90| 04 31 7d 20 7b 20 77 5f | 65 72 72 6f 72 20 22 49 |.1} { w_|error "I|
|00003ba0| 6e 73 75 66 66 69 63 69 | 65 6e 74 20 72 61 6e 67 |nsuffici|ent rang|
|00003bb0| 65 20 28 72 61 6e 67 65 | 3d 24 67 61 70 29 22 20 |e (range|=$gap)" |
|00003bc0| 3b 20 72 65 74 75 72 6e | 7d 0a 20 90 03 73 65 74 |; return|}. ..set|
|00003bd0| 20 67 61 70 20 5b 65 78 | 70 72 20 24 67 61 70 2f | gap [ex|pr $gap/|
|00003be0| 24 6d 5d 0a 20 90 03 73 | 65 74 20 65 31 30 20 5b |$m]. ..s|et e10 [|
|00003bf0| 65 78 70 72 20 72 6f 75 | 6e 64 28 6c 6f 67 31 30 |expr rou|nd(log10|
|00003c00| 28 24 67 61 70 29 2d 30 | 2e 35 29 5d 0a 20 90 03 |($gap)-0|.5)]. ..|
|00003c10| 73 65 74 20 6d 61 6e 74 | 20 5b 65 78 70 72 20 24 |set mant| [expr $|
|00003c20| 67 61 70 2f 70 6f 77 28 | 31 30 2c 24 65 31 30 29 |gap/pow(|10,$e10)|
|00003c30| 5d 0a 20 90 03 73 65 74 | 20 67 61 70 20 31 0a 20 |]. ..set| gap 1. |
|00003c40| 90 03 69 66 20 7b 24 6d | 61 6e 74 3e 31 2e 35 7d |..if {$m|ant>1.5}|
|00003c50| 20 7b 73 65 74 20 67 61 | 70 20 32 7d 0a 20 90 03 | {set ga|p 2}. ..|
|00003c60| 69 66 20 7b 24 6d 61 6e | 74 3e 33 7d 20 7b 73 65 |if {$man|t>3} {se|
|00003c70| 74 20 67 61 70 20 35 7d | 0a 20 90 03 69 66 20 7b |t gap 5}|. ..if {|
|00003c80| 24 6d 61 6e 74 3e 37 7d | 20 7b 73 65 74 20 67 61 |$mant>7}| {set ga|
|00003c90| 70 20 31 30 7d 0a 20 90 | 03 73 65 74 20 67 61 70 |p 10}. .|.set gap|
|00003ca0| 20 5b 65 78 70 72 20 24 | 67 61 70 2a 70 6f 77 28 | [expr $|gap*pow(|
|00003cb0| 31 30 2c 24 65 31 30 29 | 5d 0a 20 90 03 69 66 20 |10,$e10)|]. ..if |
|00003cc0| 7b 24 67 61 70 3e 2e 39 | 39 7d 20 7b 73 65 74 20 |{$gap>.9|9} {set |
|00003cd0| 67 61 70 20 5b 65 78 70 | 72 20 72 6f 75 6e 64 28 |gap [exp|r round(|
|00003ce0| 24 67 61 70 29 5d 7d 0a | 20 90 03 73 65 74 20 73 |$gap)]}.| ..set s|
|00003cf0| 74 61 72 74 20 5b 65 78 | 70 72 20 72 6f 75 6e 64 |tart [ex|pr round|
|00003d00| 28 64 6f 75 62 6c 65 28 | 24 6c 65 61 73 74 29 2f |(double(|$least)/|
|00003d10| 24 67 61 70 2d 30 2e 35 | 29 5d 0a 20 90 03 73 65 |$gap-0.5|)]. ..se|
|00003d20| 74 20 65 6e 64 20 5b 65 | 78 70 72 20 72 6f 75 6e |t end [e|xpr roun|
|00003d30| 64 28 64 6f 75 62 6c 65 | 28 24 6d 6f 73 74 29 2f |d(double|($most)/|
|00003d40| 24 67 61 70 2b 30 2e 35 | 29 5d 0a 20 90 03 73 65 |$gap+0.5|)]. ..se|
|00003d50| 74 20 6c 61 73 74 20 5b | 65 78 70 72 20 24 65 6e |t last [|expr $en|
|00003d60| 64 2d 24 73 74 61 72 74 | 5d 0a 20 90 03 77 5f 64 |d-$start|]. ..w_d|
|00003d70| 72 61 77 20 64 69 61 67 | 24 64 69 61 67 20 63 72 |raw diag|$diag cr|
|00003d80| 65 61 74 65 20 2d 70 61 | 67 65 20 35 69 78 36 69 |eate -pa|ge 5ix6i|
|00003d90| 20 5c 0a 20 90 06 2d 78 | 73 63 61 6c 65 20 20 5b | \. ..-x|scale [|
|00003da0| 65 78 70 72 20 35 2e 30 | 2f 28 24 6c 61 73 74 2b |expr 5.0|/($last+|
|00003db0| 32 29 5d 69 20 2d 79 73 | 63 61 6c 65 20 30 2e 35 |2)]i -ys|cale 0.5|
|00003dc0| 69 20 5c 0a 20 90 06 2d | 6d 65 6e 75 20 7b 20 48 |i \. ..-|menu { H|
|00003dd0| 69 73 74 20 7b 44 61 74 | 61 20 2d 64 62 6f 78 20 |ist {Dat|a -dbox |
|00003de0| 64 61 74 61 49 6e 66 6f | 7d 0a 20 90 13 7b 53 61 |dataInfo|}. ..{Sa|
|00003df0| 76 65 20 2d 64 62 6f 78 | 20 73 61 76 65 42 6f 78 |ve -dbox| saveBox|
|00003e00| 20 2d 63 6c 69 63 6b 20 | 7b 73 61 76 65 4d 63 6c | -click |{saveMcl|
|00003e10| 69 63 6b 20 25 77 7d 20 | 7d 0a 20 90 13 7b 51 75 |ick %w} |}. ..{Qu|
|00003e20| 69 74 20 2d 63 6c 69 63 | 6b 20 65 78 69 74 7d 0a |it -clic|k exit}.|
|00003e30| 20 90 0c 7d 0a 20 90 03 | 77 5f 64 72 61 77 20 64 | ..}. ..|w_draw d|
|00003e40| 69 61 67 24 64 69 61 67 | 20 70 61 74 68 20 28 31 |iag$diag| path (1|
|00003e50| 2c 31 29 2d 28 5b 65 78 | 70 72 20 24 6c 61 73 74 |,1)-([ex|pr $last|
|00003e60| 2b 31 5d 2c 31 29 20 2d | 74 30 2e 30 33 69 0a 20 |+1],1) -|t0.03i. |
|00003e70| 90 03 73 65 74 20 73 6b | 69 70 20 31 0a 20 90 03 |..set sk|ip 1. ..|
|00003e80| 69 66 20 7b 24 6c 61 73 | 74 3e 35 7d 20 7b 73 65 |if {$las|t>5} {se|
|00003e90| 74 20 73 6b 69 70 20 32 | 7d 0a 20 90 03 69 66 20 |t skip 2|}. ..if |
|00003ea0| 7b 24 6c 61 73 74 3e 31 | 32 7d 20 7b 73 65 74 20 |{$last>1|2} {set |
|00003eb0| 73 6b 69 70 20 35 7d 0a | 20 90 03 66 6f 72 20 7b |skip 5}.| ..for {|
|00003ec0| 73 65 74 20 69 20 30 7d | 20 7b 24 69 3c 3d 24 6c |set i 0}| {$i<=$l|
|00003ed0| 61 73 74 7d 20 7b 69 6e | 63 72 20 69 20 24 73 6b |ast} {in|cr i $sk|
|00003ee0| 69 70 7d 5c 0a 20 90 03 | 7b 20 77 5f 64 72 61 77 |ip}\. ..|{ w_draw|
|00003ef0| 20 64 69 61 67 24 64 69 | 61 67 20 74 65 78 74 20 | diag$di|ag text |
|00003f00| 28 5b 65 78 70 72 20 24 | 69 2b 31 5d 2c 30 2e 35 |([expr $|i+1],0.5|
|00003f10| 29 20 5b 65 78 70 72 20 | 24 67 61 70 2a 28 24 73 |) [expr |$gap*($s|
|00003f20| 74 61 72 74 2b 24 69 29 | 5d 5c 0a 20 90 05 2d 6f |tart+$i)|]\. ..-o|
|00003f30| 63 20 2d 66 6e 40 31 30 | 70 0a 20 90 03 7d 0a 20 |c -fn@10|p. ..}. |
|00003f40| 90 03 66 6f 72 20 7b 73 | 65 74 20 69 20 30 7d 20 |..for {s|et i 0} |
|00003f50| 7b 24 69 3c 3d 24 6c 61 | 73 74 7d 20 7b 69 6e 63 |{$i<=$la|st} {inc|
|00003f60| 72 20 69 7d 20 7b 73 65 | 74 20 63 6f 75 6e 74 28 |r i} {se|t count(|
|00003f70| 24 69 29 20 30 7d 0a 20 | 90 03 66 6f 72 65 61 63 |$i) 0}. |..foreac|
|00003f80| 68 20 69 20 24 76 61 6c | 20 5c 0a 20 90 03 7b 20 |h i $val| \. ..{ |
|00003f90| 73 65 74 20 78 20 5b 65 | 78 70 72 20 72 6f 75 6e |set x [e|xpr roun|
|00003fa0| 64 28 64 6f 75 62 6c 65 | 28 24 69 29 2f 24 67 61 |d(double|($i)/$ga|
|00003fb0| 70 2d 30 2e 35 29 2d 24 | 73 74 61 72 74 5d 0a 20 |p-0.5)-$|start]. |
|00003fc0| 90 05 69 6e 63 72 20 63 | 6f 75 6e 74 28 24 78 29 |..incr c|ount($x)|
|00003fd0| 0a 20 90 03 7d 0a 20 90 | 03 73 65 74 20 74 6f 70 |. ..}. .|.set top|
|00003fe0| 20 30 0a 20 90 03 66 6f | 72 20 7b 73 65 74 20 69 | 0. ..fo|r {set i|
|00003ff0| 20 30 7d 20 7b 24 69 3c | 24 6c 61 73 74 7d 20 7b | 0} {$i<|$last} {|
|00004000| 69 6e 63 72 20 69 7d 5c | 0a 20 90 03 7b 20 69 66 |incr i}\|. ..{ if|
|00004010| 20 7b 24 63 6f 75 6e 74 | 28 24 69 29 3e 24 74 6f | {$count|($i)>$to|
|00004020| 70 7d 20 7b 73 65 74 20 | 74 6f 70 20 24 63 6f 75 |p} {set |top $cou|
|00004030| 6e 74 28 24 69 29 7d 0a | 20 90 03 7d 0a 20 90 03 |nt($i)}.| ..}. ..|
|00004040| 73 65 74 20 79 73 20 5b | 65 78 70 72 20 31 30 2e |set ys [|expr 10.|
|00004050| 30 2f 24 74 6f 70 5d 0a | 20 90 03 66 6f 72 20 7b |0/$top].| ..for {|
|00004060| 73 65 74 20 69 20 30 7d | 20 7b 24 69 3c 24 6c 61 |set i 0}| {$i<$la|
|00004070| 73 74 7d 20 7b 69 6e 63 | 72 20 69 7d 5c 0a 20 90 |st} {inc|r i}\. .|
|00004080| 03 7b 20 20 73 65 74 20 | 79 20 5b 65 78 70 72 20 |.{ set |y [expr |
|00004090| 24 63 6f 75 6e 74 28 24 | 69 29 2a 24 79 73 2b 31 |$count($|i)*$ys+1|
|000040a0| 5d 0a 20 90 06 73 65 74 | 20 78 30 20 5b 65 78 70 |]. ..set| x0 [exp|
|000040b0| 72 20 24 69 2b 31 5d 0a | 20 90 06 73 65 74 20 78 |r $i+1].| ..set x|
|000040c0| 31 20 5b 65 78 70 72 20 | 24 69 2b 32 5d 0a 20 90 |1 [expr |$i+2]. .|
|000040d0| 06 77 5f 64 72 61 77 20 | 64 69 61 67 24 64 69 61 |.w_draw |diag$dia|
|000040e0| 67 20 70 61 74 68 20 28 | 24 78 30 2c 31 29 2d 28 |g path (|$x0,1)-(|
|000040f0| 24 78 30 2c 24 79 29 2d | 28 24 78 31 2c 24 79 29 |$x0,$y)-|($x1,$y)|
|00004100| 2d 28 24 78 31 2c 31 29 | 2e 20 2d 69 79 65 6c 6c |-($x1,1)|. -iyell|
|00004110| 6f 77 20 2d 74 30 2e 30 | 33 69 0a 20 90 03 7d 0a |ow -t0.0|3i. ..}.|
|00004120| 20 90 03 77 5f 64 72 61 | 77 20 64 69 61 67 24 64 | ..w_dra|w diag$d|
|00004130| 69 61 67 20 6f 70 65 6e | 0a 20 90 03 63 6c 6f 73 |iag open|. ..clos|
|00004140| 65 20 24 69 6e 66 69 6c | 65 0a 20 7d 0a 90 05 46 |e $infil|e. }...F|
|00004150| 69 6c 65 44 61 74 61 83 | 6d 61 6b 65 64 61 74 61 |ileData.|makedata|
|00004160| 00 52 65 74 01 00 00 47 | fd ff ff 5e 3b 14 12 03 |.Ret...G|...^;...|
|00004170| 00 00 00 23 6d 61 6b 65 | 64 61 74 61 20 67 65 6e |...#make|data gen|
|00004180| 65 72 61 74 65 73 20 72 | 61 6e 64 6f 6d 20 6e 75 |erates r|andom nu|
|00004190| 6d 62 65 72 73 0a 23 76 | 61 67 75 65 6c 79 20 6e |mbers.#v|aguely n|
|000041a0| 6f 72 6d 61 6c 6c 79 20 | 64 69 73 74 72 69 62 75 |ormally |distribu|
|000041b0| 74 65 64 20 0a 23 75 73 | 61 67 65 20 6d 61 6b 65 |ted .#us|age make|
|000041c0| 64 61 74 61 20 6e 0a 0a | 69 66 20 7b 24 61 72 67 |data n..|if {$arg|
|000041d0| 63 3e 30 7d 20 7b 73 65 | 74 20 6e 20 24 61 72 67 |c>0} {se|t n $arg|
|000041e0| 76 28 30 29 7d 20 65 6c | 73 65 20 7b 73 65 74 20 |v(0)} el|se {set |
|000041f0| 6e 20 31 30 30 7d 0a 0a | 73 65 74 20 6f 75 74 66 |n 100}..|set outf|
|00004200| 69 6c 65 20 5b 6f 70 65 | 6e 20 3c 48 69 73 74 5c |ile [ope|n <Hist\|
|00004210| 24 44 69 72 3e 2e 44 61 | 74 61 20 77 5d 0a 0a 73 |$Dir>.Da|ta w]..s|
|00004220| 65 74 20 6d 20 34 0a 73 | 65 74 20 6d 61 78 20 5b |et m 4.s|et max [|
|00004230| 65 78 70 72 20 70 6f 77 | 28 32 2e 30 2c 33 31 29 |expr pow|(2.0,31)|
|00004240| 2a 24 6d 5d 0a 0a 66 6f | 72 20 7b 73 65 74 20 69 |*$m]..fo|r {set i|
|00004250| 20 30 7d 20 7b 24 69 3c | 24 6e 7d 20 7b 69 6e 63 | 0} {$i<|$n} {inc|
|00004260| 72 20 69 7d 5c 0a 20 20 | 7b 20 73 65 74 20 78 20 |r i}\. |{ set x |
|00004270| 30 20 0a 20 90 04 66 6f | 72 20 7b 73 65 74 20 6a |0 . ..fo|r {set j|
|00004280| 20 30 7d 20 7b 24 6a 3c | 24 6d 7d 20 7b 69 6e 63 | 0} {$j<|$m} {inc|
|00004290| 72 20 6a 7d 20 7b 73 65 | 74 20 78 20 5b 65 78 70 |r j} {se|t x [exp|
|000042a0| 72 20 24 78 2b 64 6f 75 | 62 6c 65 28 24 72 61 6e |r $x+dou|ble($ran|
|000042b0| 64 29 5d 7d 0a 20 90 04 | 70 75 74 73 20 24 6f 75 |d)]}. ..|puts $ou|
|000042c0| 74 66 69 6c 65 20 5b 65 | 78 70 72 20 24 78 2f 24 |tfile [e|xpr $x/$|
|000042d0| 6d 61 78 5d 0a 20 20 7d | 0a 70 75 74 73 20 24 63 |max]. }|.puts $c|
|000042e0| 6c 6f 63 6b 0a 46 69 6c | 65 44 61 74 61 82 21 42 |lock.Fil|eData.!B|
|000042f0| 6f 6f 74 00 00 83 21 52 | 65 39 00 00 00 47 fd ff |oot...!R|e9...G..|
|00004300| ff 89 3b 14 12 03 00 ae | 6a 7c 20 42 6f 6f 74 20 |..;.....|j| Boot |
|00004310| 66 69 6c 65 20 66 6f 72 | 20 21 48 69 73 74 2e 0a |file for| !Hist..|
|00004320| 0a 49 63 6f 6e 53 70 72 | 69 74 65 73 20 3c 4f 62 |.IconSpr|ites <Ob|
|00004330| 65 79 24 44 69 72 3e 2e | 21 53 70 72 69 74 65 73 |ey$Dir>.|!Sprites|
|00004340| 0a 0a 46 69 6c 65 44 61 | 74 61 83 21 48 65 6c 70 |..FileDa|ta.!Help|
|00004350| 00 00 2c 33 0d 43 97 06 | 00 00 47 fd ff ff cd 3b |..,3.C..|..G....;|
|00004360| 14 12 03 00 00 00 6f 78 | 6f 20 2d 20 73 68 61 64 |......ox|o - shad|
|00004370| 65 20 64 65 6d 6f 6e 73 | 74 72 61 74 69 6f 6e 20 |e demons|tration |
|00004380| 70 72 6f 67 72 61 6d 0a | 0a 54 68 69 73 20 70 6c |program.|.This pl|
|00004390| 61 79 73 20 74 68 65 20 | 67 61 6d 65 20 6f 66 20 |ays the |game of |
|000043a0| 6e 6f 75 67 68 74 73 20 | 61 6e 64 20 63 72 6f 73 |noughts |and cros|
|000043b0| 73 65 73 2e 0a 0a 54 68 | 65 20 66 69 6c 65 72 20 |ses...Th|e filer |
|000043c0| 6e 65 65 64 73 20 74 6f | 20 68 61 76 65 20 73 65 |needs to| have se|
|000043d0| 65 6e 20 74 68 65 20 21 | 54 63 6c 20 64 69 72 65 |en the !|Tcl dire|
|000043e0| 63 74 6f 72 79 20 62 65 | 66 6f 72 65 20 69 74 20 |ctory be|fore it |
|000043f0| 77 69 6c 6c 20 72 75 6e | 0a 49 74 20 6e 65 65 64 |will run|.It need|
|00004400| 73 20 52 49 53 43 4f 53 | 20 33 2e 31 20 6f 72 20 |s RISCOS| 3.1 or |
|00004410| 67 72 65 61 74 65 72 2e | 0a 0a 59 6f 75 20 70 6c |greater.|..You pl|
|00004420| 61 79 20 4f 2c 20 74 68 | 65 20 63 6f 6d 70 75 74 |ay O, th|e comput|
|00004430| 65 72 20 70 6c 61 79 73 | 20 58 2e 20 0a 0a 49 6e |er plays| X. ..In|
|00004440| 69 74 69 61 6c 6c 79 20 | 79 6f 75 20 68 61 76 65 |itially |you have|
|00004450| 20 74 68 65 20 66 69 72 | 73 74 20 6d 6f 76 65 2e | the fir|st move.|
|00004460| 20 53 75 62 73 65 71 75 | 65 6e 74 6c 79 20 74 68 | Subsequ|ently th|
|00004470| 65 20 6c 6f 73 65 72 20 | 6f 66 20 74 68 65 20 70 |e loser |of the p|
|00004480| 72 65 76 69 6f 75 73 0a | 67 61 6d 65 20 6d 6f 76 |revious.|game mov|
|00004490| 65 73 20 66 69 72 73 74 | 2c 20 74 68 65 20 6d 6f |es first|, the mo|
|000044a0| 76 65 20 73 77 69 74 63 | 68 65 73 20 61 66 74 65 |ve switc|hes afte|
|000044b0| 72 20 61 20 64 72 61 77 | 2e 20 50 6c 61 79 20 62 |r a draw|. Play b|
|000044c0| 79 20 63 6c 69 63 6b 69 | 6e 67 20 6f 6e 20 74 68 |y clicki|ng on th|
|000044d0| 65 20 62 6f 61 72 64 2e | 0a 49 66 20 74 68 65 20 |e board.|.If the |
|000044e0| 22 57 61 69 74 22 20 6f | 70 74 69 6f 6e 20 69 73 |"Wait" o|ption is|
|000044f0| 20 74 69 63 6b 65 64 20 | 69 6e 20 74 68 65 20 62 | ticked |in the b|
|00004500| 6f 61 72 64 20 6d 65 6e | 75 20 74 68 65 20 63 6f |oard men|u the co|
|00004510| 6d 70 75 74 65 72 20 77 | 69 6c 6c 20 77 61 69 74 |mputer w|ill wait|
|00004520| 20 66 6f 72 0a 79 6f 75 | 20 74 6f 20 63 6c 69 63 | for.you| to clic|
|00004530| 6b 20 61 67 61 69 6e 20 | 62 65 66 6f 72 65 20 70 |k again |before p|
|00004540| 6c 61 79 69 6e 67 2e 0a | 0a 54 68 65 20 70 72 6f |laying..|.The pro|
|00004550| 67 72 61 6d 20 70 6c 61 | 79 73 20 77 69 74 68 20 |gram pla|ys with |
|00004560| 61 20 76 65 72 79 20 73 | 69 6d 70 6c 65 20 61 6c |a very s|imple al|
|00004570| 67 6f 72 69 74 68 6d 2c | 20 49 20 64 6f 6e 27 74 |gorithm,| I don't|
|00004580| 20 6b 6e 6f 77 20 69 66 | 20 69 74 20 63 61 6e 20 | know if| it can |
|00004590| 62 65 20 0a 62 65 61 74 | 65 6e 2e 0a 0a 3d 90 50 |be .beat|en...=.P|
|000045a0| 0a 0a 54 68 65 20 70 72 | 6f 67 72 61 6d 20 67 69 |..The pr|ogram gi|
|000045b0| 76 65 73 20 61 20 73 69 | 6d 70 6c 65 20 65 78 61 |ves a si|mple exa|
|000045c0| 6d 70 6c 65 20 6f 66 20 | 68 6f 77 20 74 6f 20 75 |mple of |how to u|
|000045d0| 73 65 20 64 72 61 77 20 | 67 72 61 70 68 69 63 73 |se draw |graphics|
|000045e0| 20 69 6e 20 73 68 61 64 | 65 2e 0a 0a 54 68 65 20 | in shad|e...The |
|000045f0| 77 5f 64 72 61 77 20 63 | 6f 6d 6d 61 6e 64 73 20 |w_draw c|ommands |
|00004600| 61 74 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |at the e|nd of th|
|00004610| 65 20 66 69 6c 65 20 63 | 72 65 61 74 65 20 74 68 |e file c|reate th|
|00004620| 65 20 62 6f 61 72 64 2e | 0a 0a 54 68 65 20 6d 61 |e board.|..The ma|
|00004630| 6b 65 6d 6f 76 65 20 70 | 72 6f 63 65 64 75 72 65 |kemove p|rocedure|
|00004640| 20 6d 61 6b 65 73 20 74 | 68 65 20 6d 6f 76 65 20 | makes t|he move |
|00004650| 61 66 74 65 72 20 74 68 | 65 20 63 6f 6d 70 75 74 |after th|e comput|
|00004660| 65 72 20 6f 72 20 70 6c | 61 79 65 72 20 68 61 73 |er or pl|ayer has|
|00004670| 20 63 68 6f 73 65 6e 0a | 69 74 2e 20 54 68 69 73 | chosen.|it. This|
|00004680| 20 69 6e 63 6c 75 64 65 | 73 20 75 70 64 61 74 69 | include|s updati|
|00004690| 6e 67 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 73 |ng the v|ariables|
|000046a0| 20 67 61 6d 65 28 58 29 | 2c 20 67 61 6d 65 28 4f | game(X)|, game(O|
|000046b0| 29 20 61 6e 64 20 66 72 | 65 65 2e 20 54 68 65 73 |) and fr|ee. Thes|
|000046c0| 65 20 20 0a 63 6f 6e 74 | 61 69 6e 20 74 68 65 20 |e .cont|ain the |
|000046d0| 6e 75 6d 62 65 72 73 20 | 6f 66 20 73 71 75 61 72 |numbers |of squar|
|000046e0| 65 73 20 74 68 61 74 20 | 68 61 76 65 20 4f 2c 20 |es that |have O, |
|000046f0| 58 20 6f 72 20 6e 6f 74 | 68 69 6e 67 20 69 6e 20 |X or not|hing in |
|00004700| 74 68 65 6d 2e 0a 0a 54 | 68 65 20 6c 69 6e 65 0a |them...T|he line.|
|00004710| 0a 20 90 03 73 65 74 20 | 62 6f 61 72 64 28 24 7a |. ..set |board($z|
|00004720| 29 20 5b 77 5f 64 72 61 | 77 20 6d 61 69 6e 77 69 |) [w_dra|w mainwi|
|00004730| 6e 20 74 65 78 74 20 5b | 70 6f 69 6e 74 20 24 7a |n text [|point $z|
|00004740| 5d 20 24 70 6c 61 79 65 | 72 20 2d 66 6e 40 35 30 |] $playe|r -fn@50|
|00004750| 70 20 2d 6f 63 6d 20 5d | 0a 0a 64 72 61 77 73 20 |p -ocm ]|..draws |
|00004760| 74 68 65 20 4f 20 6f 72 | 20 58 2e 20 4e 6f 74 69 |the O or| X. Noti|
|00004770| 63 65 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ce the n|umber of|
|00004780| 20 74 68 65 20 64 72 61 | 77 20 74 65 78 74 20 6f | the dra|w text o|
|00004790| 62 6a 65 63 74 20 69 73 | 20 73 74 6f 72 65 64 20 |bject is| stored |
|000047a0| 69 6e 0a 74 68 65 20 61 | 72 72 61 79 20 62 6f 61 |in.the a|rray boa|
|000047b0| 72 64 20 73 6f 20 74 68 | 61 74 20 74 68 65 20 62 |rd so th|at the b|
|000047c0| 6f 61 72 64 20 63 61 6e | 20 62 65 20 63 6c 65 61 |oard can| be clea|
|000047d0| 72 65 64 20 69 6e 20 74 | 68 65 20 72 65 73 74 61 |red in t|he resta|
|000047e0| 72 74 20 70 72 6f 63 65 | 64 75 72 65 2e 0a 0a 54 |rt proce|dure...T|
|000047f0| 68 65 20 70 72 6f 63 65 | 64 75 72 65 20 22 70 6f |he proce|dure "po|
|00004800| 69 6e 74 22 20 63 61 6c | 63 75 6c 61 74 65 73 20 |int" cal|culates |
|00004810| 74 68 65 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |the coor|dinates |
|00004820| 6f 66 20 74 68 65 20 63 | 65 6e 74 65 72 20 6f 66 |of the c|enter of|
|00004830| 20 61 20 73 71 75 61 72 | 65 20 0a 6f 6e 20 74 68 | a squar|e .on th|
|00004840| 65 20 62 6f 61 72 64 2e | 20 4e 6f 74 65 20 74 68 |e board.| Note th|
|00004850| 65 20 75 73 65 20 6f 66 | 20 22 2d 6f 63 6d 22 20 |e use of| "-ocm" |
|00004860| 74 6f 20 63 65 6e 74 65 | 72 20 74 68 65 20 6c 65 |to cente|r the le|
|00004870| 74 74 65 72 2e 0a 0a 49 | 66 20 73 6f 6d 65 6f 6e |tter...I|f someon|
|00004880| 65 20 68 61 73 20 77 6f | 6e 20 74 68 65 20 63 6f |e has wo|n the co|
|00004890| 6d 6d 61 6e 64 0a 0a 20 | 90 07 73 65 74 20 62 6f |mmand.. |..set bo|
|000048a0| 61 72 64 28 24 6c 69 6e | 65 29 5c 0a 20 90 09 5b |ard($lin|e)\. ..[|
|000048b0| 77 5f 64 72 61 77 20 6d | 61 69 6e 77 69 6e 20 61 |w_draw m|ainwin a|
|000048c0| 62 6f 76 65 20 2d 31 20 | 70 61 74 68 5c 0a 20 90 |bove -1 |path\. .|
|000048d0| 0b 5b 70 6f 69 6e 74 20 | 5b 73 74 72 69 6e 67 20 |.[point |[string |
|000048e0| 69 6e 64 65 78 20 24 6c | 69 6e 65 20 30 5d 5d 2d |index $l|ine 0]]-|
|000048f0| 5b 70 6f 69 6e 74 20 5b | 73 74 72 69 6e 67 20 69 |[point [|string i|
|00004900| 6e 64 65 78 20 24 6c 69 | 6e 65 20 32 5d 5d 5c 0a |ndex $li|ne 2]]\.|
|00004910| 20 90 0b 2d 74 2e 30 35 | 69 20 2d 63 32 35 35 3a | ..-t.05|i -c255:|
|00004920| 30 3a 30 5c 0a 20 90 09 | 5d 0a 0a 64 72 61 77 73 |0:0\. ..|]..draws|
|00004930| 20 74 68 65 20 6c 69 6e | 65 20 74 68 72 6f 75 67 | the lin|e throug|
|00004940| 68 20 74 68 65 20 74 68 | 72 65 65 20 6c 65 74 74 |h the th|ree lett|
|00004950| 65 72 73 2e 20 4e 6f 74 | 69 63 65 20 74 68 65 20 |ers. Not|ice the |
|00004960| 75 73 65 20 6f 66 20 22 | 61 62 6f 76 65 20 2d 31 |use of "|above -1|
|00004970| 22 20 74 6f 0a 65 6e 73 | 75 72 65 20 74 68 65 20 |" to.ens|ure the |
|00004980| 6c 69 6e 65 20 69 73 20 | 6f 6e 20 74 6f 70 2e 0a |line is |on top..|
|00004990| 46 69 6c 65 44 61 74 61 | 82 21 52 75 6e 00 00 00 |FileData|.!Run...|
|000049a0| 2c 33 0d 43 6f 00 00 00 | 47 fd ff ff f1 3b 14 12 |,3.Co...|G....;..|
|000049b0| 03 00 b1 2e 7c 20 52 75 | 6e 20 66 69 6c 65 20 66 |....| Ru|n file f|
|000049c0| 6f 72 20 21 6f 78 6f 2e | 0a 0a 49 63 6f 6e 53 70 |or !oxo.|..IconSp|
|000049d0| 72 69 74 65 73 20 3c 4f | 62 65 79 24 44 69 72 3e |rites <O|bey$Dir>|
|000049e0| 2e 21 53 70 72 69 74 65 | 73 0a 73 65 74 20 6f 78 |.!Sprite|s.set ox|
|000049f0| 6f 24 44 69 72 20 3c 4f | 62 65 79 24 44 69 72 3e |o$Dir <O|bey$Dir>|
|00004a00| 0a 72 75 6e 20 3c 74 63 | 6c 24 44 69 72 3e 2e 73 |.run <tc|l$Dir>.s|
|00004a10| 68 61 64 65 20 3c 6f 78 | 6f 24 44 69 72 3e 2e 6f |hade <ox|o$Dir>.o|
|00004a20| 78 6f 0a 46 69 6c 65 44 | 61 74 61 83 21 53 70 72 |xo.FileD|ata.!Spr|
|00004a30| 69 74 65 73 32 32 00 88 | 05 00 00 47 fd ff ff 3b |ites22..|...G...;|
|00004a40| 3c 14 12 03 00 00 00 01 | 00 90 03 10 00 90 03 8c |<.......|........|
|00004a50| 05 00 00 7c 05 00 00 21 | 6f 78 6f 00 90 08 04 00 |...|...!|oxo.....|
|00004a60| 90 03 21 00 90 07 07 00 | 90 03 2c 00 90 03 d4 02 |..!.....|..,.....|
|00004a70| 00 00 14 00 90 03 ff 90 | 04 77 ff 90 06 7f 77 ff |........|.w....w.|
|00004a80| 90 04 00 90 03 ff 90 04 | 77 ff 90 06 7f 77 ff 90 |........|w....w..|
|00004a90| 04 00 90 03 ff 90 04 77 | ff 90 06 7f 77 ff 90 04 |.......w|....w...|
|00004aa0| 00 90 03 ff 90 04 77 ff | cf cc 90 03 ff 7f 77 ff |......w.|......w.|
|00004ab0| 90 04 00 90 03 ff 90 04 | 77 cc fc ff 90 03 cc 7c |........|w......||
|00004ac0| 77 ff 90 04 00 90 03 ff | 90 04 77 ff 90 06 7f 77 |w.......|..w....w|
|00004ad0| ff 90 04 00 90 03 ff 77 | 77 cf 77 ff 90 06 7f 77 |.......w|w.w....w|
|00004ae0| 90 04 ff 00 90 03 ff 77 | 77 fc 77 ff 90 06 7f 77 |.......w|w.w....w|
|00004af0| 90 04 ff 00 90 03 77 90 | 11 00 90 03 77 90 11 00 |......w.|....w...|
|00004b00| 90 03 ff 77 77 ff 77 ff | 90 06 7f 77 ff 77 77 ff |...ww.w.|...w.ww.|
|00004b10| 00 90 03 f8 77 77 f8 77 | ff 90 06 7f 77 ff 77 77 |....ww.w|....w.ww|
|00004b20| ff 00 90 03 87 77 87 77 | 77 ff ff bb bb 7b 77 7f |.....w.w|w....{w.|
|00004b30| 77 ff 77 77 ff 00 90 03 | 87 77 78 77 77 ff bf 77 |w.ww....|.wxww..w|
|00004b40| 77 b7 77 7f 77 ff 77 77 | ff 00 90 03 77 88 77 90 |w.w.w.ww|....w.w.|
|00004b50| 03 ff fb 77 90 03 7b 7f | 77 ff 77 77 ff 00 90 03 |...w..{.|w.ww....|
|00004b60| cf 87 77 ff 77 ff 7b 77 | ff ff 7b 77 77 ff 77 77 |..w.w.{w|..{ww.ww|
|00004b70| ff 00 90 03 cf 88 77 ff | 77 ff 7b 77 ff ff 7b 77 |......w.|w.{w..{w|
|00004b80| 77 ff 77 77 ff 00 90 03 | 8f 77 78 ff 77 ff 7b 77 |w.ww....|.wx.w.{w|
|00004b90| ff ff 7b 77 77 ff 77 77 | ff 00 90 03 c8 77 78 ff |..{ww.ww|.....wx.|
|00004ba0| 77 ff 7b 77 ff ff fb 7f | 77 ff 77 77 ff 00 90 03 |w.{w....|w.ww....|
|00004bb0| cf 77 87 ff 77 ff b7 77 | ff bf ff 7f 77 ff 77 77 |.w..w..w|....w.ww|
|00004bc0| ff 00 90 03 cf 77 77 ff | 77 ff 77 bb bb fb ff 7f |.....ww.|w.w.....|
|00004bd0| 77 ff 77 77 ff 00 90 03 | cf 77 77 ff 77 ff 77 77 |w.ww....|.ww.w.ww|
|00004be0| ff ff 77 90 03 ff 77 77 | ff 00 90 03 77 90 11 00 |..w...ww|....w...|
|00004bf0| 90 03 77 90 11 00 90 03 | 77 90 11 00 90 03 ff cf |..w.....|w.......|
|00004c00| 77 90 03 ff ff 77 90 04 | 7f 77 90 05 00 90 03 ff |w....w..|.w......|
|00004c10| cf 77 90 03 ff ff 77 90 | 04 7f 77 90 05 00 90 03 |.w....w.|..w.....|
|00004c20| ff ff fc ff 77 ff 90 06 | 7f 77 ff fc ff ff 00 90 |....w...|.w......|
|00004c30| 03 ff ff cf ff 77 ff 90 | 06 7f 77 cf ff 90 03 00 |.....w..|..w.....|
|00004c40| 90 03 ff 90 03 fc 77 ff | 90 06 7f 77 fc ff 90 03 |......w.|...w....|
|00004c50| 00 90 03 ff 90 03 cf 77 | ff 90 06 7f 77 ff 90 04 |.......w|....w...|
|00004c60| 00 90 03 ff 90 04 77 ff | 90 06 7f 77 ff 90 04 00 |......w.|...w....|
|00004c70| 90 03 ff 90 04 77 cc fc | ff 90 03 cc 7c 77 ff 90 |.....w..|....|w..|
|00004c80| 04 00 90 03 ff 90 04 77 | ff cf cc 90 03 ff 7f 77 |.......w|.......w|
|00004c90| ff 90 04 00 90 07 ff 00 | 90 06 f0 0f 00 90 04 ff |........|........|
|00004ca0| 90 03 00 90 04 ff 00 90 | 06 f0 0f 00 90 04 ff 90 |........|........|
|00004cb0| 03 00 90 04 ff 00 90 06 | f0 0f 00 90 04 ff 90 03 |........|........|
|00004cc0| 00 90 04 ff 00 90 06 f0 | 0f 00 90 04 ff 90 03 00 |........|........|
|00004cd0| 90 04 ff 00 90 06 f0 0f | 00 90 04 ff 90 03 00 90 |........|........|
|00004ce0| 04 ff 00 90 06 f0 0f 00 | 90 04 ff 90 03 00 90 04 |........|........|
|00004cf0| ff 00 90 06 f0 0f 00 90 | 04 ff 90 03 00 90 04 ff |........|........|
|00004d00| 00 90 06 f0 0f 00 90 04 | ff 90 2b 00 90 04 ff 00 |........|..+.....|
|00004d10| 90 06 f0 0f 00 90 04 ff | 90 03 0f 00 00 0f ff 00 |........|........|
|00004d20| 90 06 f0 0f 00 90 04 ff | 90 03 f0 00 f0 00 ff 00 |........|........|
|00004d30| 00 ff ff 0f 00 f0 0f 00 | 90 04 ff 90 03 f0 00 0f |........|........|
|00004d40| 00 ff 00 f0 00 00 f0 00 | f0 0f 00 90 04 ff 90 03 |........|........|
|00004d50| 00 ff 00 00 ff 00 0f 00 | 90 03 0f f0 0f 00 90 04 |........|........|
|00004d60| ff 90 03 00 f0 00 00 ff | 00 0f 00 90 03 0f f0 0f |........|........|
|00004d70| 00 90 04 ff 90 03 00 ff | 00 00 ff 00 0f 00 90 03 |........|........|
|00004d80| 0f f0 0f 00 90 04 ff 90 | 03 f0 00 0f 00 ff 00 0f |........|........|
|00004d90| 00 90 03 0f f0 0f 00 90 | 04 ff 90 03 0f 00 0f 00 |........|........|
|00004da0| ff 00 0f 00 90 03 0f f0 | 0f 00 90 04 ff 90 03 00 |........|........|
|00004db0| 00 f0 00 ff 00 f0 00 00 | f0 00 f0 0f 00 90 04 ff |........|........|
|00004dc0| 90 03 00 90 04 ff 00 00 | ff ff 0f 00 f0 0f 00 90 |........|........|
|00004dd0| 04 ff 90 03 00 90 04 ff | 00 90 06 f0 0f 00 90 04 |........|........|
|00004de0| ff 90 2b 00 90 04 ff 00 | 90 06 f0 0f 00 90 04 ff |..+.....|........|
|00004df0| 90 03 00 90 04 ff 00 90 | 06 f0 0f 00 90 04 ff 90 |........|........|
|00004e00| 03 00 90 04 ff 00 90 06 | f0 0f 00 90 04 ff 90 03 |........|........|
|00004e10| 00 90 04 ff 00 90 06 f0 | 0f 00 90 04 ff 90 03 00 |........|........|
|00004e20| 90 04 ff 00 90 06 f0 0f | 00 90 04 ff 90 03 00 90 |........|........|
|00004e30| 04 ff 00 90 06 f0 0f 00 | 90 04 ff 90 03 00 90 04 |........|........|
|00004e40| ff 00 90 06 f0 0f 00 90 | 04 ff 90 03 00 90 04 ff |........|........|
|00004e50| 00 90 06 f0 0f 00 90 04 | ff 90 03 00 90 04 ff 00 |........|........|
|00004e60| 90 06 f0 0f 00 90 04 ff | 90 03 00 90 04 ff 00 90 |........|........|
|00004e70| 06 f0 0f 00 90 04 ff 90 | 03 46 69 6c 65 44 61 74 |........|.FileDat|
|00004e80| 61 83 6f 78 6f 00 03 00 | 00 2c 33 0d 43 8c 0c 00 |a.oxo...|.,3.C...|
|00004e90| 00 47 fd ff ff 78 3c 14 | 12 03 00 00 00 23 20 74 |.G...x<.|.....# t|
|00004ea0| 65 73 74 20 66 69 6c 65 | 20 66 6f 72 20 74 63 6c |est file| for tcl|
|00004eb0| 0a 0a 73 6f 75 72 63 65 | 20 7b 3c 74 63 6c 24 44 |..source| {<tcl$D|
|00004ec0| 69 72 3e 2e 21 43 68 6f | 69 63 65 73 7d 0a 0a 70 |ir>.!Cho|ices}..p|
|00004ed0| 72 6f 63 20 62 65 65 70 | 20 7b 7d 20 7b 70 75 74 |roc beep| {} {put|
|00004ee0| 73 20 2d 6e 6f 6e 65 77 | 6c 69 6e 65 20 5c 61 7d |s -nonew|line \a}|
|00004ef0| 0a 0a 77 5f 69 6e 69 74 | 20 6f 78 6f 0a 0a 73 6f |..w_init| oxo..so|
|00004f00| 75 72 63 65 20 7b 3c 74 | 63 6c 24 44 69 72 3e 2e |urce {<t|cl$Dir>.|
|00004f10| 6c 69 62 72 61 72 79 2e | 64 65 62 75 67 7d 0a 0a |library.|debug}..|
|00004f20| 77 5f 62 6f 78 20 70 72 | 6f 67 49 6e 66 6f 20 63 |w_box pr|ogInfo c|
|00004f30| 72 65 61 74 65 20 22 41 | 62 6f 75 74 20 74 68 69 |reate "A|bout thi|
|00004f40| 73 20 70 72 6f 67 72 61 | 6d 22 5c 0a 20 7b 20 76 |s progra|m"\. { v|
|00004f50| 6c 69 73 74 20 7b 69 6e | 66 6f 20 4e 61 6d 65 20 |list {in|fo Name |
|00004f60| 4f 58 4f 7d 0a 20 90 09 | 7b 69 6e 66 6f 20 50 75 |OXO}. ..|{info Pu|
|00004f70| 72 70 6f 73 65 20 22 47 | 61 6d 65 22 7d 0a 20 90 |rpose "G|ame"}. .|
|00004f80| 09 7b 69 6e 66 6f 20 22 | 41 75 74 68 6f 72 22 20 |.{info "|Author" |
|00004f90| 43 2e 54 2e 53 74 72 65 | 74 63 68 7d 0a 20 90 09 |C.T.Stre|tch}. ..|
|00004fa0| 7b 69 6e 66 6f 20 56 65 | 72 73 69 6f 6e 20 30 2e |{info Ve|rsion 0.|
|00004fb0| 30 30 7d 0a 20 7d 0a 0a | 77 5f 62 61 72 20 2d 6d |00}. }..|w_bar -m|
|00004fc0| 65 6e 75 20 7b 20 4f 58 | 4f 20 7b 49 6e 66 6f 20 |enu { OX|O {Info |
|00004fd0| 2d 64 62 6f 78 20 70 72 | 6f 67 49 6e 66 6f 7d 0a |-dbox pr|ogInfo}.|
|00004fe0| 20 90 12 7b 51 75 69 74 | 20 2d 63 6c 69 63 6b 20 | ..{Quit| -click |
|00004ff0| 65 78 69 74 7d 0a 20 90 | 0c 7d 5c 0a 20 90 06 2d |exit}. .|.}\. ..-|
|00005000| 63 6c 69 63 6b 20 7b 77 | 5f 64 72 61 77 20 6d 61 |click {w|_draw ma|
|00005010| 69 6e 77 69 6e 20 6f 70 | 65 6e 7d 0a 0a 70 72 6f |inwin op|en}..pro|
|00005020| 63 20 72 65 73 74 61 72 | 74 20 7b 7d 5c 0a 20 7b |c restar|t {}\. {|
|00005030| 20 67 6c 6f 62 61 6c 20 | 62 6f 61 72 64 20 67 61 | global |board ga|
|00005040| 6d 65 20 77 69 6e 6e 65 | 72 20 70 6c 61 79 65 72 |me winne|r player|
|00005050| 20 67 61 6d 65 20 66 72 | 65 65 20 66 69 6e 69 73 | game fr|ee finis|
|00005060| 68 65 64 20 6d 61 69 6e | 77 69 6e 20 77 61 69 74 |hed main|win wait|
|00005070| 0a 20 90 03 73 65 74 20 | 67 61 6d 65 28 58 29 20 |. ..set |game(X) |
|00005080| 22 22 0a 20 90 03 73 65 | 74 20 67 61 6d 65 28 4f |"". ..se|t game(O|
|00005090| 29 20 22 22 0a 20 90 03 | 73 65 74 20 66 72 65 65 |) "". ..|set free|
|000050a0| 20 30 31 32 33 34 35 36 | 37 38 0a 20 90 03 73 65 | 0123456|78. ..se|
|000050b0| 74 20 70 6c 61 79 65 72 | 20 24 77 69 6e 6e 65 72 |t player| $winner|
|000050c0| 0a 20 90 03 73 65 74 20 | 66 69 6e 69 73 68 65 64 |. ..set |finished|
|000050d0| 20 30 0a 20 90 03 73 77 | 61 70 0a 20 90 03 73 65 | 0. ..sw|ap. ..se|
|000050e0| 74 20 73 74 75 66 66 20 | 5b 61 72 72 61 79 20 6e |t stuff |[array n|
|000050f0| 61 6d 65 73 20 62 6f 61 | 72 64 5d 0a 20 90 03 73 |ames boa|rd]. ..s|
|00005100| 65 74 20 69 69 20 22 22 | 0a 20 90 03 66 6f 72 65 |et ii ""|. ..fore|
|00005110| 61 63 68 20 69 20 24 73 | 74 75 66 66 5c 0a 20 90 |ach i $s|tuff\. .|
|00005120| 03 7b 20 6c 61 70 70 65 | 6e 64 20 69 69 20 24 62 |.{ lappe|nd ii $b|
|00005130| 6f 61 72 64 28 24 69 29 | 0a 20 90 05 75 6e 73 65 |oard($i)|. ..unse|
|00005140| 74 20 62 6f 61 72 64 28 | 24 69 29 0a 20 90 03 7d |t board(|$i). ..}|
|00005150| 0a 20 90 03 65 76 61 6c | 20 77 5f 64 72 61 77 20 |. ..eval| w_draw |
|00005160| 20 6d 61 69 6e 77 69 6e | 20 64 65 6c 65 74 65 20 | mainwin| delete |
|00005170| 24 69 69 0a 20 90 03 69 | 66 20 7b 21 24 77 61 69 |$ii. ..i|f {!$wai|
|00005180| 74 26 26 28 24 70 6c 61 | 79 65 72 3d 3d 22 58 22 |t&&($pla|yer=="X"|
|00005190| 29 7d 20 66 69 6e 64 6d | 6f 76 65 0a 20 7d 0a 0a |)} findm|ove. }..|
|000051a0| 70 72 6f 63 20 73 77 61 | 70 20 7b 7d 5c 0a 20 7b |proc swa|p {}\. {|
|000051b0| 20 67 6c 6f 62 61 6c 20 | 70 6c 61 79 65 72 20 6f | global |player o|
|000051c0| 70 70 6f 6e 65 6e 74 0a | 20 90 03 73 65 74 20 6f |pponent.| ..set o|
|000051d0| 70 70 6f 6e 65 6e 74 20 | 24 70 6c 61 79 65 72 0a |pponent |$player.|
|000051e0| 20 90 03 69 66 20 7b 24 | 70 6c 61 79 65 72 20 3d | ..if {$|player =|
|000051f0| 3d 20 22 58 22 7d 20 7b | 73 65 74 20 70 6c 61 79 |= "X"} {|set play|
|00005200| 65 72 20 4f 7d 20 65 6c | 73 65 20 7b 73 65 74 20 |er O} el|se {set |
|00005210| 70 6c 61 79 65 72 20 58 | 7d 0a 20 7d 0a 0a 70 72 |player X|}. }..pr|
|00005220| 6f 63 20 73 71 75 61 72 | 65 20 7b 20 78 20 79 7d |oc squar|e { x y}|
|00005230| 5c 0a 20 7b 0a 20 90 03 | 73 65 74 20 78 20 5b 65 |\. {. ..|set x [e|
|00005240| 78 70 72 20 69 6e 74 28 | 24 78 29 2d 31 5d 0a 20 |xpr int(|$x)-1]. |
|00005250| 90 03 69 66 20 7b 24 78 | 3c 30 7d 20 7b 73 65 74 |..if {$x|<0} {set|
|00005260| 20 78 20 30 7d 0a 20 90 | 03 69 66 20 7b 24 78 3e | x 0}. .|.if {$x>|
|00005270| 32 7d 20 7b 73 65 74 20 | 78 20 32 7d 0a 20 90 03 |2} {set |x 2}. ..|
|00005280| 73 65 74 20 79 20 5b 65 | 78 70 72 20 69 6e 74 28 |set y [e|xpr int(|
|00005290| 24 79 29 2d 31 5d 0a 20 | 90 03 69 66 20 7b 24 79 |$y)-1]. |..if {$y|
|000052a0| 3c 30 7d 20 7b 73 65 74 | 20 79 20 30 7d 0a 20 90 |<0} {set| y 0}. .|
|000052b0| 03 69 66 20 7b 24 79 3e | 32 7d 20 7b 73 65 74 20 |.if {$y>|2} {set |
|000052c0| 79 20 32 7d 0a 20 90 03 | 73 65 74 20 7a 20 5b 65 |y 2}. ..|set z [e|
|000052d0| 78 70 72 20 24 78 2b 33 | 2a 24 79 5d 0a 20 7d 0a |xpr $x+3|*$y]. }.|
|000052e0| 0a 70 72 6f 63 20 70 6f | 69 6e 74 20 7b 7a 7d 5c |.proc po|int {z}\|
|000052f0| 0a 20 7b 20 73 65 74 20 | 78 20 5b 65 78 70 72 20 |. { set |x [expr |
|00005300| 24 7a 25 33 2b 31 2e 35 | 5d 0a 20 90 03 73 65 74 |$z%3+1.5|]. ..set|
|00005310| 20 79 20 5b 65 78 70 72 | 20 24 7a 2f 33 2b 31 2e | y [expr| $z/3+1.|
|00005320| 35 5d 0a 20 90 03 73 65 | 74 20 70 20 28 24 78 2c |5]. ..se|t p ($x,|
|00005330| 24 79 29 0a 20 7d 0a 0a | 70 72 6f 63 20 6d 61 6b |$y). }..|proc mak|
|00005340| 65 6d 6f 76 65 20 7b 7a | 7d 5c 0a 20 7b 20 67 6c |emove {z|}\. { gl|
|00005350| 6f 62 61 6c 20 70 6c 61 | 79 65 72 20 6f 70 70 6f |obal pla|yer oppo|
|00005360| 6e 65 6e 74 20 66 72 65 | 65 20 62 6f 61 72 64 20 |nent fre|e board |
|00005370| 6d 61 69 6e 77 69 6e 20 | 67 61 6d 65 20 6c 69 6e |mainwin |game lin|
|00005380| 65 73 20 77 69 6e 6e 65 | 72 20 66 69 6e 69 73 68 |es winne|r finish|
|00005390| 65 64 0a 20 90 03 73 65 | 74 20 67 61 6d 65 28 24 |ed. ..se|t game($|
|000053a0| 70 6c 61 79 65 72 29 20 | 24 67 61 6d 65 28 24 70 |player) |$game($p|
|000053b0| 6c 61 79 65 72 29 24 7a | 20 0a 20 90 03 72 65 67 |layer)$z| . ..reg|
|000053c0| 73 75 62 20 2d 61 6c 6c | 20 5c 5b 61 24 67 61 6d |sub -all| \[a$gam|
|000053d0| 65 28 58 29 24 67 61 6d | 65 28 4f 29 5c 5d 20 30 |e(X)$gam|e(O)\] 0|
|000053e0| 31 32 33 34 35 36 37 38 | 20 22 22 20 66 72 65 65 |12345678| "" free|
|000053f0| 0a 20 90 03 73 65 74 20 | 62 6f 61 72 64 28 24 7a |. ..set |board($z|
|00005400| 29 20 5b 77 5f 64 72 61 | 77 20 6d 61 69 6e 77 69 |) [w_dra|w mainwi|
|00005410| 6e 20 74 65 78 74 20 5b | 70 6f 69 6e 74 20 24 7a |n text [|point $z|
|00005420| 5d 20 24 70 6c 61 79 65 | 72 20 2d 66 6e 40 35 30 |] $playe|r -fn@50|
|00005430| 70 20 2d 6f 63 6d 20 5d | 0a 20 90 03 66 6f 72 65 |p -ocm ]|. ..fore|
|00005440| 61 63 68 20 6c 69 6e 65 | 20 24 6c 69 6e 65 73 5c |ach line| $lines\|
|00005450| 0a 20 90 03 7b 20 69 66 | 20 7b 21 5b 72 65 67 65 |. ..{ if| {![rege|
|00005460| 78 70 20 5c 5b 24 6c 69 | 6e 65 5c 5d 20 24 67 61 |xp \[$li|ne\] $ga|
|00005470| 6d 65 28 24 6f 70 70 6f | 6e 65 6e 74 29 24 66 72 |me($oppo|nent)$fr|
|00005480| 65 65 5d 7d 5c 0a 20 90 | 05 7b 20 73 65 74 20 77 |ee]}\. .|.{ set w|
|00005490| 69 6e 6e 65 72 20 24 70 | 6c 61 79 65 72 0a 20 90 |inner $p|layer. .|
|000054a0| 07 73 65 74 20 66 69 6e | 69 73 68 65 64 20 31 0a |.set fin|ished 1.|
|000054b0| 20 90 07 73 65 74 20 62 | 6f 61 72 64 28 24 6c 69 | ..set b|oard($li|
|000054c0| 6e 65 29 5c 0a 20 90 09 | 5b 77 5f 64 72 61 77 20 |ne)\. ..|[w_draw |
|000054d0| 6d 61 69 6e 77 69 6e 20 | 61 62 6f 76 65 20 2d 31 |mainwin |above -1|
|000054e0| 20 70 61 74 68 5c 0a 20 | 90 0b 5b 70 6f 69 6e 74 | path\. |..[point|
|000054f0| 20 5b 73 74 72 69 6e 67 | 20 69 6e 64 65 78 20 24 | [string| index $|
|00005500| 6c 69 6e 65 20 30 5d 5d | 2d 5b 70 6f 69 6e 74 20 |line 0]]|-[point |
|00005510| 5b 73 74 72 69 6e 67 20 | 69 6e 64 65 78 20 24 6c |[string |index $l|
|00005520| 69 6e 65 20 32 5d 5d 5c | 0a 20 90 0b 2d 74 2e 30 |ine 2]]\|. ..-t.0|
|00005530| 35 69 20 2d 63 32 35 35 | 3a 30 3a 30 5c 0a 20 90 |5i -c255|:0:0\. .|
|00005540| 09 5d 0a 20 90 05 7d 0a | 20 90 03 7d 0a 20 90 03 |.]. ..}.| ..}. ..|
|00005550| 69 66 20 7b 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |if {[str|ing leng|
|00005560| 74 68 20 24 66 72 65 65 | 5d 3d 3d 30 7d 5c 0a 20 |th $free|]==0}\. |
|00005570| 90 03 7b 20 73 65 74 20 | 66 69 6e 69 73 68 65 64 |..{ set |finished|
|00005580| 20 31 0a 20 90 05 73 65 | 74 20 77 69 6e 6e 65 72 | 1. ..se|t winner|
|00005590| 20 24 70 6c 61 79 65 72 | 0a 20 90 03 7d 0a 20 90 | $player|. ..}. .|
|000055a0| 03 73 77 61 70 0a 20 7d | 0a 0a 70 72 6f 63 20 66 |.swap. }|..proc f|
|000055b0| 69 6e 64 6d 6f 76 65 20 | 7b 7d 5c 0a 20 7b 20 67 |indmove |{}\. { g|
|000055c0| 6c 6f 62 61 6c 20 66 72 | 65 65 20 72 61 6e 64 20 |lobal fr|ee rand |
|000055d0| 6c 69 6e 65 73 20 73 63 | 6f 72 65 73 20 67 61 6d |lines sc|ores gam|
|000055e0| 65 0a 20 90 03 73 65 74 | 20 6f 70 74 20 2d 31 0a |e. ..set| opt -1.|
|000055f0| 20 90 03 73 65 74 20 66 | 20 5b 73 70 6c 69 74 20 | ..set f| [split |
|00005600| 24 66 72 65 65 20 22 22 | 5d 0a 20 90 03 66 6f 72 |$free ""|]. ..for|
|00005610| 65 61 63 68 20 73 20 24 | 66 20 5c 0a 20 90 03 7b |each s $|f \. ..{|
|00005620| 20 73 65 74 20 73 63 6f | 72 65 20 30 0a 20 90 05 | set sco|re 0. ..|
|00005630| 66 6f 72 65 61 63 68 20 | 6c 20 24 6c 69 6e 65 73 |foreach |l $lines|
|00005640| 20 5c 0a 20 90 05 7b 20 | 69 66 20 7b 5b 73 74 72 | \. ..{ |if {[str|
|00005650| 69 6e 67 20 6d 61 74 63 | 68 20 2a 24 73 2a 20 24 |ing matc|h *$s* $|
|00005660| 6c 5d 7d 20 5c 0a 20 90 | 07 7b 20 72 65 67 73 75 |l]} \. .|.{ regsu|
|00005670| 62 20 2d 61 6c 6c 20 5c | 5b 5e 24 67 61 6d 65 28 |b -all \|[^$game(|
|00005680| 58 29 2e 5c 5d 20 24 6c | 20 22 22 20 6d 69 6e 65 |X).\] $l| "" mine|
|00005690| 0a 20 90 09 72 65 67 73 | 75 62 20 2d 61 6c 6c 20 |. ..regs|ub -all |
|000056a0| 5c 5b 5e 24 67 61 6d 65 | 28 4f 29 2e 5c 5d 20 24 |\[^$game|(O).\] $|
|000056b0| 6c 20 22 22 20 79 6f 75 | 72 73 0a 20 90 09 69 6e |l "" you|rs. ..in|
|000056c0| 63 72 20 73 63 6f 72 65 | 20 24 73 63 6f 72 65 73 |cr score| $scores|
|000056d0| 28 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 |([string| length |
|000056e0| 24 6d 69 6e 65 5d 5b 73 | 74 72 69 6e 67 20 6c 65 |$mine][s|tring le|
|000056f0| 6e 67 74 68 20 24 79 6f | 75 72 73 5d 29 0a 20 90 |ngth $yo|urs]). .|
|00005700| 07 7d 0a 20 90 05 7d 0a | 20 90 05 69 66 20 7b 24 |.}. ..}.| ..if {$|
|00005710| 73 63 6f 72 65 3e 24 6f | 70 74 7d 20 7b 73 65 74 |score>$o|pt} {set|
|00005720| 20 6f 70 74 20 24 73 63 | 6f 72 65 3b 73 65 74 20 | opt $sc|ore;set |
|00005730| 6e 20 24 73 7d 0a 20 90 | 03 7d 0a 20 90 03 6d 61 |n $s}. .|.}. ..ma|
|00005740| 6b 65 6d 6f 76 65 20 24 | 6e 0a 20 7d 0a 0a 70 72 |kemove $|n. }..pr|
|00005750| 6f 63 20 67 65 74 6d 6f | 76 65 20 7b 7a 7d 5c 0a |oc getmo|ve {z}\.|
|00005760| 20 7b 20 67 6c 6f 62 61 | 6c 20 66 72 65 65 0a 20 | { globa|l free. |
|00005770| 90 03 69 66 20 7b 5b 73 | 74 72 69 6e 67 20 6d 61 |..if {[s|tring ma|
|00005780| 74 63 68 20 2a 24 7a 2a | 20 24 66 72 65 65 5d 7d |tch *$z*| $free]}|
|00005790| 20 7b 6d 61 6b 65 6d 6f | 76 65 20 24 7a 7d 5c 0a | {makemo|ve $z}\.|
|000057a0| 20 90 03 65 6c 73 65 20 | 62 65 65 70 0a 20 7d 0a | ..else |beep. }.|
|000057b0| 0a 70 72 6f 63 20 63 6c | 69 63 6b 70 72 6f 63 20 |.proc cl|ickproc |
|000057c0| 7b 20 78 20 79 20 7d 5c | 0a 20 7b 20 67 6c 6f 62 |{ x y }\|. { glob|
|000057d0| 61 6c 20 70 6c 61 79 65 | 72 20 67 61 6d 65 20 66 |al playe|r game f|
|000057e0| 69 6e 69 73 68 65 64 20 | 77 61 69 74 0a 20 90 03 |inished |wait. ..|
|000057f0| 69 66 20 7b 20 24 66 69 | 6e 69 73 68 65 64 20 7d |if { $fi|nished }|
|00005800| 20 7b 20 62 65 65 70 3b | 20 72 65 74 75 72 6e 7d | { beep;| return}|
|00005810| 0a 20 90 03 73 65 74 20 | 7a 20 5b 73 71 75 61 72 |. ..set |z [squar|
|00005820| 65 20 24 78 20 24 79 5d | 0a 20 90 03 69 66 20 7b |e $x $y]|. ..if {|
|00005830| 24 70 6c 61 79 65 72 3d | 3d 22 58 22 7d 20 66 69 |$player=|="X"} fi|
|00005840| 6e 64 6d 6f 76 65 5c 0a | 20 90 03 65 6c 73 65 20 |ndmove\.| ..else |
|00005850| 7b 67 65 74 6d 6f 76 65 | 20 24 7a 3b 69 66 20 7b |{getmove| $z;if {|
|00005860| 21 24 77 61 69 74 26 26 | 21 24 66 69 6e 69 73 68 |!$wait&&|!$finish|
|00005870| 65 64 7d 20 66 69 6e 64 | 6d 6f 76 65 7d 20 0a 20 |ed} find|move} . |
|00005880| 7d 0a 0a 73 65 74 20 77 | 69 6e 6e 65 72 20 58 0a |}..set w|inner X.|
|00005890| 73 65 74 20 77 61 69 74 | 20 31 0a 73 65 74 20 62 |set wait| 1.set b|
|000058a0| 6f 61 72 64 28 31 29 20 | 78 0a 75 6e 73 65 74 20 |oard(1) |x.unset |
|000058b0| 62 6f 61 72 64 28 31 29 | 0a 73 65 74 20 6c 69 6e |board(1)|.set lin|
|000058c0| 65 73 20 7b 30 31 32 20 | 33 34 35 20 36 37 38 20 |es {012 |345 678 |
|000058d0| 30 33 36 20 31 34 37 20 | 32 35 38 20 30 34 38 20 |036 147 |258 048 |
|000058e0| 32 34 36 7d 0a 73 65 74 | 20 73 63 6f 72 65 73 28 |246}.set| scores(|
|000058f0| 30 30 29 20 34 30 0a 73 | 65 74 20 73 63 6f 72 65 |00) 40.s|et score|
|00005900| 73 28 30 31 29 20 37 30 | 0a 73 65 74 20 73 63 6f |s(01) 70|.set sco|
|00005910| 72 65 73 28 31 30 29 20 | 31 30 30 0a 73 65 74 20 |res(10) |100.set |
|00005920| 73 63 6f 72 65 73 28 30 | 32 29 20 31 30 90 04 0a |scores(0|2) 10...|
|00005930| 73 65 74 20 73 63 6f 72 | 65 73 28 31 31 29 20 20 |set scor|es(11) |
|00005940| 30 0a 73 65 74 20 73 63 | 6f 72 65 73 28 32 30 29 |0.set sc|ores(20)|
|00005950| 20 31 30 90 05 0a 0a 77 | 5f 64 72 61 77 20 6d 61 | 10....w|_draw ma|
|00005960| 69 6e 77 69 6e 20 63 72 | 65 61 74 65 20 20 2d 70 |inwin cr|eate -p|
|00005970| 61 67 65 20 35 69 78 35 | 69 20 20 2d 63 6c 69 63 |age 5ix5|i -clic|
|00005980| 6b 20 7b 63 6c 69 63 6b | 70 72 6f 63 20 25 78 20 |k {click|proc %x |
|00005990| 25 79 7d 5c 0a 20 90 03 | 2d 63 6c 6f 73 65 20 7b |%y}\. ..|-close {|
|000059a0| 6c 69 73 74 20 32 7d 5c | 0a 20 90 03 2d 6d 65 6e |list 2}\|. ..-men|
|000059b0| 75 20 20 7b 4f 58 4f 20 | 20 7b 49 6e 66 6f 20 7d |u {OXO | {Info }|
|000059c0| 0a 20 90 10 7b 57 61 69 | 74 20 2d 74 69 63 6b 20 |. ..{Wai|t -tick |
|000059d0| 77 61 69 74 7d 0a 20 90 | 10 7b 43 6c 65 61 72 20 |wait}. .|.{Clear |
|000059e0| 2d 63 6c 69 63 6b 20 72 | 65 73 74 61 72 74 7d 0a |-click r|estart}.|
|000059f0| 20 90 10 7b 51 75 69 74 | 20 2d 63 6c 69 63 6b 20 | ..{Quit| -click |
|00005a00| 65 78 69 74 7d 0a 20 90 | 0a 7d 0a 0a 77 5f 64 72 |exit}. .|.}..w_dr|
|00005a10| 61 77 20 6d 61 69 6e 77 | 69 6e 20 5c 0a 20 90 0a |aw mainw|in \. ..|
|00005a20| 70 61 74 68 20 28 32 2c | 31 29 2d 28 32 2c 34 29 |path (2,|1)-(2,4)|
|00005a30| 28 33 2c 31 29 2d 28 33 | 2c 34 29 28 31 2c 32 29 |(3,1)-(3|,4)(1,2)|
|00005a40| 2d 28 34 2c 32 29 28 31 | 2c 33 29 2d 28 34 2c 33 |-(4,2)(1|,3)-(4,3|
|00005a50| 29 20 2d 74 2e 31 69 20 | 2d 72 0a 0a 77 5f 64 72 |) -t.1i |-r..w_dr|
|00005a60| 61 77 20 6d 61 69 6e 77 | 69 6e 20 6f 70 65 6e 0a |aw mainw|in open.|
|00005a70| 0a 72 65 73 74 61 72 74 | 0a 90 04 46 69 6c 65 44 |.restart|...FileD|
|00005a80| 61 74 61 82 21 42 6f 6f | 74 00 00 2c 33 0d 43 37 |ata.!Boo|t..,3.C7|
|00005a90| 00 00 00 47 fd ff ff 9b | 3c 14 12 03 00 a9 36 7c |...G....|<.....6||
|00005aa0| 20 42 6f 6f 74 20 66 69 | 6c 65 20 66 6f 72 20 21 | Boot fi|le for !|
|00005ab0| 6f 78 6f 2e 0a 0a 49 63 | 6f 6e 53 70 72 69 74 65 |oxo...Ic|onSprite|
|00005ac0| 73 20 3c 4f 62 65 79 24 | 44 69 72 3e 2e 21 53 70 |s <Obey$|Dir>.!Sp|
|00005ad0| 72 69 74 65 73 0a 46 69 | 6c 65 44 61 74 61 82 21 |rites.Fi|leData.!|
|00005ae0| 43 68 6f 69 63 65 73 00 | 65 73 90 01 00 00 47 fd |Choices.|es....G.|
|00005af0| ff ff 0c 3d 14 12 03 00 | aa fa 0a 73 65 74 20 66 |...=....|...set f|
|00005b00| 6f 6e 74 73 28 6e 29 20 | 54 72 69 6e 69 74 79 2e |onts(n) |Trinity.|
|00005b10| 4d 65 64 69 75 6d 0a 73 | 65 74 20 66 6f 6e 74 73 |Medium.s|et fonts|
|00005b20| 28 69 29 20 54 72 69 6e | 69 74 79 2e 4d 65 64 69 |(i) Trin|ity.Medi|
|00005b30| 75 6d 2e 49 74 61 6c 69 | 63 0a 73 65 74 20 66 6f |um.Itali|c.set fo|
|00005b40| 6e 74 73 28 62 29 20 54 | 72 69 6e 69 74 79 2e 42 |nts(b) T|rinity.B|
|00005b50| 6f 6c 64 0a 73 65 74 20 | 66 6f 6e 74 73 28 74 29 |old.set |fonts(t)|
|00005b60| 20 43 6f 72 70 75 73 2e | 4d 65 64 69 75 6d 0a 73 | Corpus.|Medium.s|
|00005b70| 65 74 20 66 6f 6e 74 73 | 28 61 29 20 53 61 73 73 |et fonts|(a) Sass|
|00005b80| 6f 6f 6e 2e 50 72 69 6d | 61 72 79 0a 0a 73 65 74 |oon.Prim|ary..set|
|00005b90| 20 63 6f 6c 6f 75 72 73 | 28 72 65 64 29 20 32 35 | colours|(red) 25|
|00005ba0| 35 3a 30 3a 30 0a 73 65 | 74 20 63 6f 6c 6f 75 72 |5:0:0.se|t colour|
|00005bb0| 73 28 67 72 65 65 6e 29 | 20 30 3a 32 35 35 3a 30 |s(green)| 0:255:0|
|00005bc0| 0a 73 65 74 20 63 6f 6c | 6f 75 72 73 28 62 6c 75 |.set col|ours(blu|
|00005bd0| 65 29 20 30 3a 30 3a 32 | 35 35 0a 73 65 74 20 63 |e) 0:0:2|55.set c|
|00005be0| 6f 6c 6f 75 72 73 28 79 | 65 6c 6c 6f 77 29 20 32 |olours(y|ellow) 2|
|00005bf0| 35 35 3a 32 35 35 3a 30 | 0a 73 65 74 20 63 6f 6c |55:255:0|.set col|
|00005c00| 6f 75 72 73 28 63 79 61 | 6e 29 20 30 3a 32 35 35 |ours(cya|n) 0:255|
|00005c10| 3a 32 35 35 0a 73 65 74 | 20 63 6f 6c 6f 75 72 73 |:255.set| colours|
|00005c20| 28 6d 61 67 65 6e 74 61 | 29 20 32 35 35 3a 30 3a |(magenta|) 255:0:|
|00005c30| 32 35 35 0a 73 65 74 20 | 63 6f 6c 6f 75 72 73 28 |255.set |colours(|
|00005c40| 77 68 69 74 65 29 20 32 | 35 35 3a 32 35 35 3a 32 |white) 2|55:255:2|
|00005c50| 35 35 0a 73 65 74 20 63 | 6f 6c 6f 75 72 73 28 62 |55.set c|olours(b|
|00005c60| 6c 61 63 6b 29 20 30 3a | 30 3a 30 0a 73 65 74 20 |lack) 0:|0:0.set |
|00005c70| 63 6f 6c 6f 75 72 73 28 | 67 72 65 79 29 20 31 32 |colours(|grey) 12|
|00005c80| 37 3a 31 32 37 3a 31 32 | 37 0a 46 69 6c 65 44 61 |7:127:12|7.FileDa|
|00005c90| 74 61 83 21 48 65 6c 70 | 00 61 63 63 65 73 a3 1c |ta.!Help|.acces..|
|00005ca0| 00 00 47 fd ff ff 86 3d | 14 12 03 00 00 00 49 6e |..G....=|......In|
|00005cb0| 74 72 6f 64 75 63 74 69 | 6f 6e 20 74 6f 20 54 63 |troducti|on to Tc|
|00005cc0| 6c 2c 20 74 63 6c 73 68 | 20 61 6e 64 20 73 68 61 |l, tclsh| and sha|
|00005cd0| 64 65 0a 0a 54 48 49 53 | 20 53 59 53 54 45 4d 20 |de..THIS| SYSTEM |
|00005ce0| 52 45 51 55 49 52 45 53 | 20 52 49 53 43 4f 53 20 |REQUIRES| RISCOS |
|00005cf0| 33 2e 31 20 4f 52 20 4c | 41 54 45 52 0a 0a 49 54 |3.1 OR L|ATER..IT|
|00005d00| 20 49 53 20 53 55 50 50 | 4c 49 45 44 20 57 49 54 | IS SUPP|LIED WIT|
|00005d10| 48 4f 55 54 20 41 4e 59 | 20 46 4f 52 4d 20 4f 46 |HOUT ANY| FORM OF|
|00005d20| 20 57 41 52 52 41 4e 54 | 59 20 4f 52 20 52 45 53 | WARRANT|Y OR RES|
|00005d30| 50 4f 4e 53 49 42 49 4c | 49 54 59 20 46 4f 52 20 |PONSIBIL|ITY FOR |
|00005d40| 49 54 53 20 55 53 45 2e | 0a 53 65 65 20 62 65 6c |ITS USE.|.See bel|
|00005d50| 6f 77 20 66 6f 72 20 63 | 6f 6e 64 69 74 69 6f 6e |ow for c|ondition|
|00005d60| 73 2e 0a 0a 54 63 6c 20 | 28 70 72 6f 6e 6f 75 6e |s...Tcl |(pronoun|
|00005d70| 63 65 64 20 74 69 63 6b | 6c 65 20 29 20 69 73 20 |ced tick|le ) is |
|00005d80| 61 20 73 69 6d 70 6c 65 | 20 69 6e 74 65 72 70 72 |a simple| interpr|
|00005d90| 65 74 65 64 20 73 63 72 | 69 70 74 69 6e 67 20 6c |eted scr|ipting l|
|00005da0| 61 6e 67 75 61 67 65 2e | 0a 49 74 20 69 73 20 65 |anguage.|.It is e|
|00005db0| 78 74 65 6e 73 69 62 6c | 65 20 69 6e 20 74 68 61 |xtensibl|e in tha|
|00005dc0| 74 20 69 74 20 69 73 20 | 65 61 73 79 20 74 6f 20 |t it is |easy to |
|00005dd0| 61 64 64 20 63 6f 6d 90 | 03 61 6e 64 73 20 74 6f |add com.|.ands to|
|00005de0| 20 54 63 6c 2c 20 61 6e | 64 20 65 6d 62 65 64 64 | Tcl, an|d embedd|
|00005df0| 61 62 6c 65 0a 69 6e 20 | 74 68 61 74 20 69 74 20 |able.in |that it |
|00005e00| 63 61 6e 20 62 65 20 69 | 6e 63 6c 75 64 65 64 20 |can be i|ncluded |
|00005e10| 69 6e 20 6f 74 68 65 72 | 20 61 70 70 6c 69 63 61 |in other| applica|
|00005e20| 74 69 6f 6e 73 2e 20 0a | 0a 54 63 6c 20 77 61 73 |tions. .|.Tcl was|
|00005e30| 20 69 6e 76 65 6e 74 65 | 64 20 61 6e 64 20 69 6d | invente|d and im|
|00005e40| 70 6c 65 6d 65 6e 74 65 | 64 20 62 79 20 4a 6f 68 |plemente|d by Joh|
|00005e50| 6e 20 4b 2e 4f 75 73 74 | 65 72 68 6f 75 74 2c 20 |n K.Oust|erhout, |
|00005e60| 6f 72 69 67 69 6e 61 6c | 6c 79 20 66 6f 72 20 75 |original|ly for u|
|00005e70| 6e 69 78 0a 73 79 73 74 | 65 6d 73 2e 20 49 74 20 |nix.syst|ems. It |
|00005e80| 69 73 20 75 73 75 61 6c | 6c 79 20 75 73 65 64 20 |is usual|ly used |
|00005e90| 77 69 74 68 20 61 6e 20 | 65 78 74 65 6e 73 69 6f |with an |extensio|
|00005ea0| 6e 20 74 6f 20 74 68 65 | 20 78 20 77 69 6e 64 6f |n to the| x windo|
|00005eb0| 77 69 6e 67 20 73 79 73 | 74 65 6d 20 63 61 6c 6c |wing sys|tem call|
|00005ec0| 65 64 20 0a 54 6b 2c 20 | 65 69 74 68 65 72 20 65 |ed .Tk, |either e|
|00005ed0| 6d 62 65 64 64 65 64 20 | 69 6e 20 61 70 70 6c 69 |mbedded |in appli|
|00005ee0| 63 61 74 69 6f 6e 73 2c | 20 6f 72 20 75 73 69 6e |cations,| or usin|
|00005ef0| 67 20 61 20 67 65 6e 65 | 72 61 6c 20 70 75 72 70 |g a gene|ral purp|
|00005f00| 6f 73 65 20 54 63 6c 2f | 54 6b 20 70 72 6f 67 72 |ose Tcl/|Tk progr|
|00005f10| 61 6d 0a 63 61 6c 6c 65 | 64 20 77 69 73 68 2e 20 |am.calle|d wish. |
|00005f20| 54 63 6c 20 63 61 6e 20 | 61 6c 73 6f 20 62 65 20 |Tcl can |also be |
|00005f30| 75 73 65 64 20 66 72 6f | 6d 20 74 68 65 20 63 6f |used fro|m the co|
|00005f40| 6d 6d 61 6e 64 20 6c 69 | 6e 65 20 75 73 69 6e 67 |mmand li|ne using|
|00005f50| 20 61 6e 6f 74 68 65 72 | 20 70 72 6f 67 72 61 6d | another| program|
|00005f60| 0a 63 61 6c 6c 65 64 20 | 74 63 6c 73 68 2e 20 55 |.called |tclsh. U|
|00005f70| 6e 69 78 20 54 63 6c 20 | 69 73 20 73 70 6c 69 74 |nix Tcl |is split|
|00005f80| 20 69 6e 74 6f 20 61 20 | 67 65 6e 65 72 69 63 20 | into a |generic |
|00005f90| 70 61 72 74 20 61 6e 64 | 20 61 20 50 4f 53 49 58 |part and| a POSIX|
|00005fa0| 20 65 78 74 65 6e 73 69 | 6f 6e 2c 20 0a 63 6f 6e | extensi|on, .con|
|00005fb0| 74 61 69 6e 69 6e 67 20 | 74 68 65 20 75 6e 69 78 |taining |the unix|
|00005fc0| 2d 73 70 65 63 69 66 69 | 63 20 6f 70 65 72 61 74 |-specifi|c operat|
|00005fd0| 69 6f 6e 73 20 73 75 63 | 68 20 61 73 20 66 69 6c |ions suc|h as fil|
|00005fe0| 65 20 68 61 6e 64 6c 69 | 6e 67 2e 0a 0a 54 68 69 |e handli|ng...Thi|
|00005ff0| 73 20 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 63 |s distri|bution c|
|00006000| 6f 6e 74 61 69 6e 73 20 | 61 6e 61 6c 6f 67 73 20 |ontains |analogs |
|00006010| 6f 66 20 74 68 65 20 61 | 62 6f 76 65 20 63 6f 6d |of the a|bove com|
|00006020| 70 6f 6e 65 6e 74 73 20 | 66 6f 72 20 52 49 53 43 |ponents |for RISC|
|00006030| 4f 53 20 6d 61 63 68 69 | 6e 65 73 2e 20 0a 49 74 |OS machi|nes. .It|
|00006040| 20 63 6f 6e 74 61 69 6e | 73 20 61 20 54 63 6c 20 | contain|s a Tcl |
|00006050| 69 6e 74 65 72 70 72 65 | 74 65 72 20 66 6f 72 20 |interpre|ter for |
|00006060| 67 65 6e 65 72 69 63 20 | 54 63 6c 20 77 69 74 68 |generic |Tcl with|
|00006070| 20 52 49 53 43 4f 53 20 | 65 78 74 65 6e 73 69 6f | RISCOS |extensio|
|00006080| 6e 73 20 74 68 61 74 20 | 63 61 6e 0a 62 65 20 72 |ns that |can.be r|
|00006090| 75 6e 20 66 72 6f 6d 20 | 66 72 6f 6d 20 74 68 65 |un from |from the|
|000060a0| 20 63 6f 6d 6d 61 6e 64 | 20 6c 69 6e 65 20 75 73 | command| line us|
|000060b0| 69 6e 67 20 61 20 70 72 | 6f 67 72 61 6d 20 74 63 |ing a pr|ogram tc|
|000060c0| 6c 73 68 2e 0a 49 74 20 | 63 6f 6e 74 61 69 6e 73 |lsh..It |contains|
|000060d0| 20 61 6e 20 65 78 74 65 | 6e 73 69 6f 6e 20 6f 66 | an exte|nsion of|
|000060e0| 20 54 63 6c 20 66 6f 72 | 20 77 72 69 74 69 6e 67 | Tcl for| writing|
|000060f0| 20 73 69 6d 70 6c 65 20 | 77 69 6d 70 20 70 72 6f | simple |wimp pro|
|00006100| 67 72 61 6d 73 20 63 61 | 6c 6c 65 64 20 77 2e 20 |grams ca|lled w. |
|00006110| 54 68 69 73 0a 69 73 20 | 72 75 6e 20 66 72 6f 6d |This.is |run from|
|00006120| 20 61 20 70 72 6f 67 72 | 61 6d 20 63 61 6c 6c 65 | a progr|am calle|
|00006130| 64 20 73 68 61 64 65 2e | 0a 0a 54 68 65 20 52 49 |d shade.|..The RI|
|00006140| 53 43 4f 53 20 65 78 74 | 65 6e 73 69 6f 6e 73 20 |SCOS ext|ensions |
|00006150| 70 72 6f 76 69 64 65 20 | 65 71 75 69 76 61 6c 65 |provide |equivale|
|00006160| 6e 74 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |nt funct|ions to |
|00006170| 6d 6f 73 74 20 6f 66 20 | 74 68 65 20 50 4f 53 49 |most of |the POSI|
|00006180| 58 20 0a 65 78 74 65 6e | 73 69 6f 6e 73 20 74 68 |X .exten|sions th|
|00006190| 61 74 20 61 72 65 20 61 | 70 70 72 6f 70 72 69 61 |at are a|ppropria|
|000061a0| 74 65 20 66 6f 72 20 52 | 49 53 43 4f 53 2e 0a 0a |te for R|ISCOS...|
|000061b0| 4e 6f 74 65 20 74 68 61 | 74 20 77 20 64 6f 65 73 |Note tha|t w does|
|000061c0| 20 6e 6f 74 20 61 74 74 | 65 6d 70 74 20 74 6f 20 | not att|empt to |
|000061d0| 62 65 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 77 69 |be compa|tible wi|
|000061e0| 74 68 2c 20 6f 72 20 61 | 73 20 63 6f 6d 70 72 65 |th, or a|s compre|
|000061f0| 68 65 6e 73 69 76 65 20 | 61 73 20 54 6b 2e 0a 49 |hensive |as Tk..I|
|00006200| 74 20 70 72 6f 76 69 64 | 65 73 20 61 6e 20 69 63 |t provid|es an ic|
|00006210| 6f 6e 62 61 72 20 69 63 | 6f 6e 2c 20 6d 65 6e 75 |onbar ic|on, menu|
|00006220| 73 2c 20 73 69 6d 70 6c | 65 20 64 69 61 6c 6f 67 |s, simpl|e dialog|
|00006230| 20 62 6f 78 65 73 2c 20 | 73 63 72 6f 6c 6c 69 6e | boxes, |scrollin|
|00006240| 67 20 77 69 6e 64 6f 77 | 73 20 66 6f 72 0a 74 65 |g window|s for.te|
|00006250| 78 74 20 64 69 73 70 6c | 61 79 2c 20 61 6e 64 20 |xt displ|ay, and |
|00006260| 77 69 6e 64 6f 77 73 20 | 66 6f 72 20 64 72 61 77 |windows |for draw|
|00006270| 20 74 79 70 65 20 67 72 | 61 70 68 69 63 73 2e 20 | type gr|aphics. |
|00006280| 49 74 20 63 61 6e 20 72 | 75 6e 20 63 6f 6d 6d 61 |It can r|un comma|
|00006290| 6e 64 20 6c 69 6e 65 20 | 74 61 73 6b 73 0a 75 73 |nd line |tasks.us|
|000062a0| 69 6e 67 20 74 68 65 20 | 74 61 73 6b 77 69 6e 64 |ing the |taskwind|
|000062b0| 6f 77 20 73 79 73 74 65 | 6d 2e 0a 0a 54 68 65 20 |ow syste|m...The |
|000062c0| 74 63 6c 73 68 20 69 6e | 74 65 72 70 72 65 74 65 |tclsh in|terprete|
|000062d0| 72 20 63 61 6e 20 62 65 | 20 72 75 6e 20 69 6e 20 |r can be| run in |
|000062e0| 61 20 74 61 73 6b 77 69 | 6e 64 6f 77 20 62 79 20 |a taskwi|ndow by |
|000062f0| 64 6f 75 62 6c 65 20 63 | 6c 69 63 6b 69 6e 67 20 |double c|licking |
|00006300| 6f 6e 20 74 68 65 0a 21 | 54 63 6c 20 69 63 6f 6e |on the.!|Tcl icon|
|00006310| 2e 20 59 6f 75 20 77 69 | 6c 6c 20 6e 65 65 64 20 |. You wi|ll need |
|00006320| 74 6f 20 68 61 76 65 20 | 61 20 70 72 6f 67 72 61 |to have |a progra|
|00006330| 6d 20 72 75 6e 6e 69 6e | 67 20 74 6f 20 70 72 6f |m runnin|g to pro|
|00006340| 76 69 64 65 20 74 61 73 | 6b 77 69 6e 64 6f 77 0a |vide tas|kwindow.|
|00006350| 64 69 73 70 6c 61 79 20 | 73 75 63 68 20 61 73 20 |display |such as |
|00006360| 7a 61 70 20 6f 72 20 65 | 64 69 74 2e 0a 0a 3d 90 |zap or e|dit...=.|
|00006370| 50 0a 44 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 0a |P.Docume|ntation.|
|00006380| 0a 54 68 65 20 54 63 6c | 20 4c 61 6e 67 75 61 67 |.The Tcl| Languag|
|00006390| 65 20 69 73 20 64 6f 63 | 75 6d 65 6e 74 65 64 20 |e is doc|umented |
|000063a0| 69 6e 20 74 68 65 20 62 | 6f 6f 6b 20 22 54 63 6c |in the b|ook "Tcl|
|000063b0| 20 61 6e 64 20 74 68 65 | 20 54 6b 20 54 6f 6f 6c | and the| Tk Tool|
|000063c0| 6b 69 74 22 0a 62 79 20 | 4a 2e 4b 2e 4f 75 73 74 |kit".by |J.K.Oust|
|000063d0| 65 72 68 6f 75 74 20 28 | 41 64 64 69 73 6f 6e 20 |erhout (|Addison |
|000063e0| 57 65 73 6c 65 79 20 31 | 39 39 34 29 20 49 53 42 |Wesley 1|994) ISB|
|000063f0| 4e 20 30 2d 32 30 31 2d | 36 33 90 03 37 2d 58 2e |N 0-201-|63..7-X.|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
