/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Think Class Libraries / CTextFile 1.1 / Demo Samples / Transpose sample / TextFileTransposerMain.p

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ae 0b 00 00 02 38 0e 54 | 72 61 6e 73 70 6f 73 65 |.....8.T|ranspose|
|00000010| 72 4d 61 69 6e 08 98 01 | 92 28 00 01 4a 7b 54 72 |rMain...|.(..J{Tr|
|00000020| 61 6e 73 70 6f 73 65 72 | 4d 61 69 6e 20 76 31 2e |ansposer|Main v1.|
|00000030| 30 20 a9 20 31 39 39 32 | 20 62 79 20 57 69 6c 6c |0 . 1992| by Will|
|00000040| 69 61 6d 20 53 74 75 64 | 65 6e 6d 75 6e 64 2e 20 |iam Stud|enmund. |
|00000050| 46 6f 72 20 64 69 73 74 | 72 69 62 75 74 69 6f 6e |For dist|ribution|
|00000060| 20 69 6e 66 6f 2c 7d 08 | 92 2a 00 01 4f 7b 70 6c | info,}.|.*..O{pl|
|00000070| 65 61 73 65 20 73 65 65 | 20 61 74 74 61 63 68 65 |ease see| attache|
|00000080| 64 20 41 62 6f 75 74 20 | 66 69 6c 65 2e 20 54 68 |d About |file. Th|
|00000090| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 61 20 |is progr|am is a |
|000000a0| 64 65 6d 6f 20 6f 66 20 | 74 68 65 20 43 54 65 78 |demo of |the CTex|
|000000b0| 74 46 69 6c 65 20 63 6c | 61 73 73 7d 9e 01 7e 03 |tFile cl|ass}..~.|
|000000c0| 03 54 43 4c 7c 01 7e 08 | 0c 54 65 78 74 46 69 6c |.TCL|.~.|.TextFil|
|000000d0| 65 49 6e 74 66 08 98 01 | a2 01 cc 0a 10 6b 44 65 |eIntf...|.....kDe|
|000000e0| 66 61 75 6c 74 54 72 61 | 6e 73 45 78 74 08 7a 06 |faultTra|nsExt.z.|
|000000f0| 05 00 06 2e 74 72 61 6e | 73 08 98 01 ba 01 7e 05 |....tran|s.....~.|
|00000100| 06 6d 79 46 69 6c 65 08 | 7c 01 7e 06 08 6d 79 4f |.myFile.||.~..myO|
|00000110| 75 74 70 75 74 08 a6 01 | 7e 06 09 43 54 65 78 74 |utput...|~..CText|
|00000120| 46 69 6c 65 98 01 7e 02 | 01 73 7c 01 7e 04 05 73 |File..~.|.s|.~..s|
|00000130| 74 65 6d 70 a6 01 72 01 | 98 01 7e 03 02 63 31 08 |temp..r.|..~..c1.|
|00000140| a6 01 7e 04 04 63 68 61 | 72 08 98 01 7e 06 09 73 |..~..cha|r...~..s|
|00000150| 74 72 69 70 54 61 62 73 | 7c 01 7e 06 09 61 64 64 |tripTabs||.~..add|
|00000160| 43 6f 6d 6d 61 73 a6 01 | 7e 05 07 62 6f 6f 6c 65 |Commas..|~..boole|
|00000170| 61 6e 98 01 7e 06 09 64 | 6c 67 4f 72 69 67 69 6e |an..~..d|lgOrigin|
|00000180| a6 01 7e 04 05 50 6f 69 | 6e 74 98 01 7e 05 07 74 |..~..Poi|nt..~..t|
|00000190| 68 65 52 65 63 74 a6 01 | 7e 04 04 72 65 63 74 08 |heRect..|~..rect.|
|000001a0| 98 01 7e 07 0b 74 68 65 | 54 79 70 65 4c 69 73 74 |..~..the|TypeList|
|000001b0| a6 01 7e 07 0a 53 66 54 | 79 70 65 4c 69 73 74 08 |..~..SfT|ypeList.|
|000001c0| 98 01 7e 06 08 74 68 65 | 52 65 70 6c 79 08 a6 01 |..~..the|Reply...|
|000001d0| 7e 05 07 53 46 52 65 70 | 6c 79 98 01 7e 07 0b 6e |~..SFRep|ly..~..n|
|000001e0| 75 6d 62 65 72 43 6f 75 | 6e 74 7c 01 7e 02 01 69 |umberCou|nt|.~..i|
|000001f0| 7c 01 7e 02 01 6a a6 01 | 7e 05 07 69 6e 74 65 67 ||.~..j..|~..integ|
|00000200| 65 72 98 01 7e 07 0a 74 | 68 65 4e 75 6d 62 65 72 |er..~..t|heNumber|
|00000210| 73 08 a6 01 60 01 74 05 | 03 00 00 01 03 00 00 02 |s...`.t.|........|
|00000220| 7c 01 74 05 03 00 00 01 | 03 00 00 14 64 01 7e 04 ||.t.....|....d.~.|
|00000230| 04 72 65 61 6c 08 98 01 | 80 05 00 00 00 00 00 00 |.real...|........|
|00000240| 0e a0 92 0b 00 00 11 09 | 7b 53 61 6d 70 6c 65 54 |........|{SampleT|
|00000250| 65 78 74 46 69 6c 65 7d | 94 01 78 0b 5c 0a 67 53 |extFile}|..x.\.gS|
|00000260| 69 67 6e 61 74 75 72 65 | 0a 5a 05 04 54 65 53 74 |ignature|.Z..TeSt|
|00000270| 98 01 78 0a 5c 0b 6e 75 | 6d 62 65 72 43 6f 75 6e |..x.\.nu|mberCoun|
|00000280| 74 0a 5a 03 00 00 98 01 | 94 01 78 0f 5c 03 6e 65 |t.Z.....|..x.\.ne|
|00000290| 77 10 5c 09 43 54 65 78 | 74 46 69 6c 65 10 5c 06 |w.\.CTex|tFile.\.|
|000002a0| 6d 79 46 69 6c 65 16 16 | 98 01 78 10 5c 03 6e 65 |myFile..|..x.\.ne|
|000002b0| 77 10 5c 09 43 54 65 78 | 74 46 69 6c 65 10 5c 08 |w.\.CTex|tFile.\.|
|000002c0| 6d 79 4f 75 74 70 75 74 | 16 16 98 01 78 0b 5c 06 |myOutput|....x.\.|
|000002d0| 6d 79 46 69 6c 65 52 5c | 09 49 54 65 78 74 46 69 |myFileR\|.ITextFi|
|000002e0| 6c 65 98 01 78 0c 5c 08 | 6d 79 4f 75 74 70 75 74 |le..x.\.|myOutput|
|000002f0| 52 5c 09 49 54 65 78 74 | 46 69 6c 65 98 01 94 01 |R\.IText|File....|
|00000300| 78 0c 5c 07 74 68 65 52 | 65 63 74 52 5c 04 6c 65 |x.\.theR|ectR\.le|
|00000310| 66 74 0a 08 5a 03 00 0a | 98 01 92 21 00 00 3c 09 |ft..Z...|...!..<.|
|00000320| 09 7b 53 65 74 73 20 75 | 70 20 74 68 65 20 54 65 |.{Sets u|p the Te|
|00000330| 78 74 20 77 69 6e 64 6f | 77 2e 20 53 69 7a 65 64 |xt windo|w. Sized|
|00000340| 20 74 6f 20 77 6f 72 6b | 20 77 2f 20 73 6d 61 6c | to work| w/ smal|
|00000350| 6c 20 73 63 72 65 65 6e | 73 2e 7d 08 78 0c 5c 07 |l screen|s.}.x.\.|
|00000360| 74 68 65 52 65 63 74 52 | 5c 05 72 69 67 68 74 0a |theRectR|\.right.|
|00000370| 5a 03 01 fe 98 01 78 0b | 5c 07 74 68 65 52 65 63 |Z.....x.|\.theRec|
|00000380| 74 52 5c 03 74 6f 70 0a | 5a 03 00 32 98 01 78 0d |tR\.top.|Z..2..x.|
|00000390| 5c 07 74 68 65 52 65 63 | 74 52 5c 06 62 6f 74 74 |\.theRec|tR\.bott|
|000003a0| 6f 6d 0a 08 5a 03 01 7c | 98 01 78 0d 5c 0b 53 65 |om..Z..||..x.\.Se|
|000003b0| 74 54 65 78 74 52 65 63 | 74 10 5c 07 74 68 65 52 |tTextRec|t.\.theR|
|000003c0| 65 63 74 16 98 01 7e 06 | 08 53 68 6f 77 54 65 78 |ect...~.|.ShowTex|
|000003d0| 74 08 98 01 94 01 78 2f | 5c 07 77 72 69 74 65 6c |t.....x/|\.writel|
|000003e0| 6e 10 5a 05 4e 54 68 69 | 73 20 70 72 6f 67 72 61 |n.Z.NThi|s progra|
|000003f0| 6d 20 75 73 65 73 20 74 | 68 65 20 43 54 65 78 74 |m uses t|he CText|
|00000400| 46 69 6c 65 20 66 69 6c | 65 20 63 6c 61 73 73 20 |File fil|e class |
|00000410| 74 6f 20 72 65 61 64 20 | 61 6e 64 20 77 72 69 74 |to read |and writ|
|00000420| 65 20 41 53 43 49 49 20 | 64 61 74 61 20 66 69 6c |e ASCII |data fil|
|00000430| 65 73 2e 16 98 01 78 2e | 5c 07 77 72 69 74 65 6c |es....x.|\.writel|
|00000440| 6e 10 5a 05 4c 53 70 65 | 63 69 66 69 63 61 6c 6c |n.Z.LSpe|cificall|
|00000450| 79 2c 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |y, this |program |
|00000460| 72 65 61 64 73 20 6e 75 | 6d 62 65 72 73 20 66 72 |reads nu|mbers fr|
|00000470| 6f 6d 20 74 68 65 20 66 | 69 72 73 74 20 74 77 6f |om the f|irst two|
|00000480| 20 63 6f 6c 75 6d 6e 73 | 20 6f 66 20 75 70 20 74 | columns| of up t|
|00000490| 6f 16 98 01 78 2c 5c 07 | 77 72 69 74 65 6c 6e 10 |o...x,\.|writeln.|
|000004a0| 5a 05 47 74 77 65 6e 74 | 79 20 6c 69 6e 65 73 2c |Z.Gtwent|y lines,|
|000004b0| 20 61 6e 64 20 74 68 65 | 6e 20 77 72 69 74 65 73 | and the|n writes|
|000004c0| 20 74 68 65 73 65 20 6e | 75 6d 62 65 72 73 20 6f | these n|umbers o|
|000004d0| 75 74 20 69 6e 20 61 20 | 74 72 61 6e 73 70 6f 73 |ut in a |transpos|
|000004e0| 65 64 20 6d 61 74 72 69 | 78 2e 16 08 98 01 7e 05 |ed matri|x.....~.|
|000004f0| 07 77 72 69 74 65 6c 6e | 98 01 94 01 78 1c 5c 07 |.writeln|....x.\.|
|00000500| 77 72 69 74 65 4c 6e 10 | 5a 05 28 50 6c 65 61 73 |writeLn.|Z.(Pleas|
|00000510| 65 20 63 68 6f 6f 73 65 | 20 74 68 65 20 66 69 6c |e choose| the fil|
|00000520| 65 20 74 6f 20 62 65 20 | 74 72 61 6e 73 70 6f 73 |e to be |transpos|
|00000530| 65 64 2e 16 98 01 78 0f | 5c 0b 74 68 65 54 79 70 |ed....x.|\.theTyp|
|00000540| 65 4c 69 73 74 18 5a 03 | 00 00 1c 0a 5a 05 04 54 |eList.Z.|....Z..T|
|00000550| 45 58 54 08 98 01 92 0e | 00 00 16 09 7b 4f 6e 6c |EXT.....|....{Onl|
|00000560| 79 20 74 79 70 65 20 6c | 6f 6f 6b 65 64 20 61 74 |y type l|ooked at|
|00000570| 7d 08 78 11 5c 05 53 65 | 74 50 74 10 5c 09 64 6c |}.x.\.Se|tPt.\.dl|
|00000580| 67 4f 72 69 67 69 6e 12 | 5a 03 00 55 12 08 5a 03 |gOrigin.|Z..U..Z.|
|00000590| 00 96 16 08 98 01 78 20 | 5c 09 53 46 47 65 74 46 |......x |\.SFGetF|
|000005a0| 69 6c 65 10 5c 09 64 6c | 67 4f 72 69 67 69 6e 12 |ile.\.dl|gOrigin.|
|000005b0| 5a 05 00 12 58 12 5a 03 | 00 01 12 5c 0b 74 68 65 |Z...X.Z.|...\.the|
|000005c0| 54 79 70 65 4c 69 73 74 | 12 58 12 5c 08 74 68 65 |TypeList|.X.\.the|
|000005d0| 52 65 70 6c 79 16 98 01 | 94 01 86 0a 5c 08 74 68 |Reply...|....\.th|
|000005e0| 65 52 65 70 6c 79 52 5c | 04 67 6f 6f 64 08 80 05 |eReplyR\|.good...|
|000005f0| 00 00 00 00 00 00 07 ec | 78 24 5c 07 77 72 69 74 |........|x$\.writ|
|00000600| 65 6c 6e 10 5a 05 1f 55 | 6e 64 65 72 73 74 6f 6f |eln.Z..U|nderstoo|
|00000610| 64 2e 20 54 68 65 20 66 | 69 6c 65 20 69 73 20 6e |d. The f|ile is n|
|00000620| 61 6d 65 64 20 22 12 5c | 08 74 68 65 52 65 70 6c |amed ".\|.theRepl|
|00000630| 79 52 5c 05 66 6e 61 6d | 65 12 5a 02 01 22 16 08 |yR\.fnam|e.Z.."..|
|00000640| 98 01 92 10 00 01 1b 7b | 42 75 69 6c 64 20 64 65 |.......{|Build de|
|00000650| 66 61 75 6c 74 20 6f 75 | 74 70 75 74 20 6e 61 6d |fault ou|tput nam|
|00000660| 65 7d 78 35 5c 05 73 74 | 65 6d 70 0a 5c 06 43 6f |e}x5\.st|emp.\.Co|
|00000670| 6e 63 61 74 10 5c 04 43 | 6f 70 79 10 5c 08 74 68 |ncat.\.C|opy.\.th|
|00000680| 65 52 65 70 6c 79 52 5c | 05 66 6e 61 6d 65 12 08 |eReplyR\|.fname..|
|00000690| 5a 03 00 01 12 08 5a 03 | 00 1f 3e 5c 06 6c 65 6e |Z.....Z.|..>\.len|
|000006a0| 67 74 68 10 5c 10 6b 44 | 65 66 61 75 6c 74 54 72 |gth.\.kD|efaultTr|
|000006b0| 61 6e 73 45 78 74 16 16 | 12 5c 10 6b 44 65 66 61 |ansExt..|.\.kDefa|
|000006c0| 75 6c 74 54 72 61 6e 73 | 45 78 74 16 98 01 92 14 |ultTrans|Ext.....|
|000006d0| 00 01 22 7b 44 6f 20 73 | 6f 6d 65 20 6c 61 73 74 |.."{Do s|ome last|
|000006e0| 20 6d 69 6e 75 74 65 20 | 71 75 65 73 74 69 6f 6e | minute |question|
|000006f0| 69 6e 67 2e 7d 08 78 29 | 5c 05 77 72 69 74 65 10 |ing.}.x)|\.write.|
|00000700| 5a 05 43 44 6f 65 73 20 | 74 68 69 73 20 66 69 6c |Z.CDoes |this fil|
|00000710| 65 20 63 6f 6e 74 61 69 | 6e 20 74 61 62 73 20 6f |e contai|n tabs o|
|00000720| 72 20 63 6f 6d 6d 61 73 | 20 28 77 68 69 63 68 20 |r commas| (which |
|00000730| 77 6f 75 6c 64 20 6e 65 | 65 64 20 72 65 6d 6f 76 |would ne|ed remov|
|00000740| 69 6e 67 29 3f 20 16 08 | 98 01 78 08 5c 06 72 65 |ing)? ..|..x.\.re|
|00000750| 61 64 6c 6e 10 5c 02 63 | 31 16 98 01 86 0d 10 5c |adln.\.c|1......\|
|00000760| 02 63 31 44 5a 02 01 59 | 16 40 10 5c 02 63 31 44 |.c1DZ..Y|.@.\.c1D|
|00000770| 5a 02 01 79 16 08 78 0a | 5c 09 73 74 72 69 70 54 |Z..y..x.|\.stripT|
|00000780| 61 62 73 0a 5c 04 74 72 | 75 65 96 01 78 0b 5c 09 |abs.\.tr|ue..x.\.|
|00000790| 73 74 72 69 70 54 61 62 | 73 0a 5c 05 66 61 6c 73 |stripTab|s.\.fals|
|000007a0| 65 08 98 01 7e 05 07 77 | 72 69 74 65 6c 6e 98 01 |e...~..w|riteln..|
|000007b0| 7e 05 07 77 72 69 74 65 | 6c 6e 98 01 94 01 78 1b |~..write|ln....x.|
|000007c0| 5c 05 77 72 69 74 65 10 | 5a 05 28 44 6f 20 79 6f |\.write.|Z.(Do yo|
|000007d0| 75 20 77 61 6e 74 20 63 | 6f 6d 6d 61 73 20 61 64 |u want c|ommas ad|
|000007e0| 64 65 64 20 74 6f 20 74 | 68 65 20 6f 75 74 70 75 |ded to t|he outpu|
|000007f0| 74 3f 20 16 98 01 78 08 | 5c 06 72 65 61 64 6c 6e |t? ...x.|\.readln|
|00000800| 10 5c 02 63 31 16 98 01 | 86 0d 10 5c 02 63 31 44 |.\.c1...|...\.c1D|
|00000810| 5a 02 01 59 16 40 10 5c | 02 63 31 44 5a 02 01 79 |Z..Y.@.\|.c1DZ..y|
|00000820| 16 08 78 0a 5c 09 61 64 | 64 43 6f 6d 6d 61 73 0a |..x.\.ad|dCommas.|
|00000830| 5c 04 74 72 75 65 96 01 | 78 0b 5c 09 61 64 64 43 |\.true..|x.\.addC|
|00000840| 6f 6d 6d 61 73 0a 5c 05 | 66 61 6c 73 65 08 98 01 |ommas.\.|false...|
|00000850| 7e 05 07 77 72 69 74 65 | 6c 6e 98 01 7e 05 07 77 |~..write|ln..~..w|
|00000860| 72 69 74 65 6c 6e 98 01 | 9a 01 96 01 78 0d 5c 07 |riteln..|....x.\.|
|00000870| 77 72 69 74 65 6c 6e 10 | 5a 05 09 47 6f 6f 64 20 |writeln.|Z..Good |
|00000880| 62 79 65 21 16 08 98 01 | 92 08 00 00 0a 09 7b 69 |bye!....|......{i|
|00000890| 66 20 67 6f 6f 64 7d 08 | 94 01 86 0a 5c 08 74 68 |f good}.|....\.th|
|000008a0| 65 52 65 70 6c 79 52 5c | 04 67 6f 6f 64 08 80 05 |eReplyR\|.good...|
|000008b0| 00 00 00 00 00 00 0e 9c | 78 11 5c 06 6d 79 46 69 |........|x.\.myFi|
|000008c0| 6c 65 52 5c 09 53 46 53 | 70 65 63 69 66 79 10 5c |leR\.SFS|pecify.\|
|000008d0| 08 74 68 65 52 65 70 6c | 79 16 98 01 78 26 5c 09 |.theRepl|y...x&\.|
|000008e0| 53 46 50 75 74 46 69 6c | 65 10 5c 09 64 6c 67 4f |SFPutFil|e.\.dlgO|
|000008f0| 72 69 67 69 6e 12 5a 05 | 18 50 75 74 20 74 68 65 |rigin.Z.|.Put the|
|00000900| 20 74 72 61 6e 73 70 6f | 73 65 20 77 68 65 72 65 | transpo|se where|
|00000910| 3f 12 5c 05 73 74 65 6d | 70 12 58 12 5c 08 74 68 |?.\.stem|p.X.\.th|
|00000920| 65 52 65 70 6c 79 16 08 | 98 01 94 01 86 0a 5c 08 |eReply..|......\.|
|00000930| 74 68 65 52 65 70 6c 79 | 52 5c 04 67 6f 6f 64 08 |theReply|R\.good.|
|00000940| 80 05 00 00 00 00 00 00 | 0e 9a 78 12 5c 08 6d 79 |........|..x.\.my|
|00000950| 4f 75 74 70 75 74 52 5c | 09 53 46 53 70 65 63 69 |OutputR\|.SFSpeci|
|00000960| 66 79 10 5c 08 74 68 65 | 52 65 70 6c 79 16 98 01 |fy.\.the|Reply...|
|00000970| 78 09 5c 06 6d 79 46 69 | 6c 65 52 5c 05 52 65 73 |x.\.myFi|leR\.Res|
|00000980| 65 74 98 01 92 0b 00 00 | 11 09 7b 4f 70 65 6e 28 |et......|..{Open(|
|00000990| 66 73 52 64 50 65 72 6d | 29 7d 79 0b 5c 08 6d 79 |fsRdPerm|)}y.\.my|
|000009a0| 4f 75 74 70 75 74 52 5c | 07 52 65 77 72 69 74 65 |OutputR\|.Rewrite|
|000009b0| 98 01 92 0c 00 00 12 09 | 09 7b 4f 70 65 6e 28 66 |........|.{Open(f|
|000009c0| 73 57 72 50 65 72 6d 29 | 7d 08 92 42 00 01 7e 7b |sWrPerm)|}..B..~{|
|000009d0| 46 6f 72 20 61 20 64 65 | 6d 6f 6e 73 74 72 61 74 |For a de|monstrat|
|000009e0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 66 61 63 74 20 |ion of t|he fact |
|000009f0| 74 68 61 74 20 45 4f 4c | 20 72 65 61 64 73 20 64 |that EOL| reads d|
|00000a00| 61 74 61 2c 20 70 75 74 | 20 61 20 42 72 65 61 6b |ata, put| a Break|
|00000a10| 50 6f 69 6e 74 20 61 74 | 20 74 68 65 20 61 62 6f |Point at| the abo|
|00000a20| 76 65 20 6c 69 6e 65 2c | 20 72 75 6e 2c 20 61 6e |ve line,| run, an|
|00000a30| 64 20 6c 6f 6f 6b 20 61 | 74 20 74 68 65 20 4f 62 |d look a|t the Ob|
|00000a40| 73 65 72 76 65 20 77 69 | 6e 64 6f 77 7d 08 94 01 |serve wi|ndow}...|
|00000a50| 8a 09 24 5c 06 6d 79 46 | 69 6c 65 52 5c 03 45 4f |..$\.myF|ileR\.EO|
|00000a60| 46 08 80 05 00 00 00 00 | 00 00 0c e8 86 08 5c 06 |F.......|......\.|
|00000a70| 6d 79 46 69 6c 65 52 5c | 03 45 4f 4c 92 27 00 00 |myFileR\|.EOL.'..|
|00000a80| 48 09 7b 57 65 27 6c 6c | 20 67 65 74 20 61 6e 20 |H.{We'll| get an |
|00000a90| 45 4f 4c 20 69 66 20 74 | 68 65 20 66 69 6c 65 20 |EOL if t|he file |
|00000aa0| 65 6e 64 73 20 77 2f 6f | 20 61 20 43 52 20 63 68 |ends w/o| a CR ch|
|00000ab0| 61 72 61 63 74 65 72 2e | 20 54 68 69 73 20 74 65 |aracter.| This te|
|00000ac0| 73 74 20 63 61 6e 27 74 | 7d 08 7e 04 05 6c 65 61 |st can't|}.~..lea|
|00000ad0| 76 65 98 01 92 2b 00 00 | 50 09 09 09 09 09 7b 67 |ve...+..|P.....{g|
|00000ae0| 6f 20 69 6e 20 74 68 65 | 20 57 68 69 6c 65 20 63 |o in the| While c|
|00000af0| 6f 6e 64 69 74 69 6f 6e | 20 61 73 20 69 74 20 69 |ondition| as it i|
|00000b00| 73 20 61 6e 20 65 72 72 | 6f 72 20 74 6f 20 63 61 |s an err|or to ca|
|00000b10| 6c 6c 20 45 4f 4c 20 77 | 68 65 6e 20 45 4f 46 20 |ll EOL w|hen EOF |
|00000b20| 69 73 20 74 72 75 65 2e | 7d 08 86 0a 5c 0b 6e 75 |is true.|}...\.nu|
|00000b30| 6d 62 65 72 43 6f 75 6e | 74 44 5a 03 00 14 80 05 |mberCoun|tDZ.....|
|00000b40| 00 00 00 00 00 00 0b 3e | 78 23 5c 07 77 72 69 74 |.......>|x#\.writ|
|00000b50| 65 6c 6e 10 5a 05 35 4f | 6f 70 73 21 20 54 68 65 |eln.Z.5O|ops! The|
|00000b60| 72 65 20 61 72 65 20 6f | 76 65 72 20 32 30 20 6c |re are o|ver 20 l|
|00000b70| 69 6e 65 73 20 69 6e 20 | 74 68 65 20 66 69 6c 65 |ines in |the file|
|00000b80| 21 20 54 6f 6f 20 6d 61 | 6e 79 21 2e 16 08 98 01 |! Too ma|ny!.....|
|00000b90| 78 10 5c 07 77 72 69 74 | 65 6c 6e 10 5a 05 10 49 |x.\.writ|eln.Z..I|
|00000ba0| 27 6c 6c 20 73 74 6f 70 | 20 61 74 20 32 30 2e 16 |'ll stop| at 20..|
|00000bb0| 98 01 7e 04 05 6c 65 61 | 76 65 9a 01 96 01 78 11 |..~..lea|ve....x.|
|00000bc0| 5c 0b 6e 75 6d 62 65 72 | 43 6f 75 6e 74 0a 5c 0b |\.number|Count.\.|
|00000bd0| 6e 75 6d 62 65 72 43 6f | 75 6e 74 3c 5a 03 00 01 |numberCo|unt<Z...|
|00000be0| 98 01 78 0c 5c 06 6d 79 | 46 69 6c 65 52 5c 06 52 |..x.\.my|FileR\.R|
|00000bf0| 65 61 64 4c 6e 10 5c 01 | 73 16 98 01 94 01 86 07 |eadLn.\.|s.......|
|00000c00| 5c 09 73 74 72 69 70 54 | 61 62 73 08 78 31 5c 0a |\.stripT|abs.x1\.|
|00000c10| 52 65 61 64 53 74 72 69 | 6e 67 10 5c 01 73 12 5c |ReadStri|ng.\.s.\|
|00000c20| 0a 74 68 65 4e 75 6d 62 | 65 72 73 18 5a 03 00 01 |.theNumb|ers.Z...|
|00000c30| 12 5c 0b 6e 75 6d 62 65 | 72 43 6f 75 6e 74 1c 12 |.\.numbe|rCount..|
|00000c40| 5c 02 63 31 12 5c 0a 74 | 68 65 4e 75 6d 62 65 72 |\.c1.\.t|heNumber|
|00000c50| 73 18 5a 03 00 02 12 5c | 0b 6e 75 6d 62 65 72 43 |s.Z....\|.numberC|
|00000c60| 6f 75 6e 74 1c 12 5c 05 | 73 74 65 6d 70 16 96 01 |ount..\.|stemp...|
|00000c70| 78 2f 5c 0a 52 65 61 64 | 53 74 72 69 6e 67 10 5c |x/\.Read|String.\|
|00000c80| 01 73 12 5c 0a 74 68 65 | 4e 75 6d 62 65 72 73 18 |.s.\.the|Numbers.|
|00000c90| 5a 03 00 01 12 5c 0b 6e | 75 6d 62 65 72 43 6f 75 |Z....\.n|umberCou|
|00000ca0| 6e 74 1c 12 5c 0a 74 68 | 65 4e 75 6d 62 65 72 73 |nt..\.th|eNumbers|
|00000cb0| 18 08 5a 03 00 02 12 5c | 0b 6e 75 6d 62 65 72 43 |..Z....\|.numberC|
|00000cc0| 6f 75 6e 74 1c 12 5c 05 | 73 74 65 6d 70 16 98 01 |ount..\.|stemp...|
|00000cd0| 92 4a 00 01 8f 7b a5 20 | 20 20 20 20 20 20 77 72 |.J...{. |      wr|
|00000ce0| 69 74 65 6c 6e 28 74 68 | 65 4e 75 6d 62 65 72 73 |iteln(th|eNumbers|
|00000cf0| 5b 31 2c 20 6e 75 6d 62 | 65 72 43 6f 75 6e 74 5d |[1, numb|erCount]|
|00000d00| 20 3a 20 31 31 20 3a 20 | 32 2c 20 74 68 65 4e 75 | : 11 : |2, theNu|
|00000d10| 6d 62 65 72 73 5b 32 2c | 20 6e 75 6d 62 65 72 43 |mbers[2,| numberC|
|00000d20| 6f 75 6e 74 5d 20 3a 20 | 31 31 20 3a 20 32 2c 20 |ount] : |11 : 2, |
|00000d30| 27 20 a5 a5 20 27 2c 20 | 73 74 65 6d 70 29 3b 09 |' .. ', |stemp);.|
|00000d40| 7b 55 6e 63 6f 6d 6d 65 | 6e 74 20 74 6f 20 6d 6f |{Uncomme|nt to mo|
|00000d50| 6e 69 74 6f 72 20 74 68 | 65 20 72 65 61 64 69 6e |nitor th|e readin|
|00000d60| 67 a5 5d 7d 9a 01 98 01 | 94 01 8e 07 01 69 5a 03 |g.]}....|.....iZ.|
|00000d70| 00 01 0c 08 5a 03 00 02 | 80 05 00 00 00 00 00 00 |....Z...|........|
|00000d80| 0e 52 8e 0b 01 6a 5a 03 | 00 01 0c 5c 0b 6e 75 6d |.R...jZ.|...\.num|
|00000d90| 62 65 72 43 6f 75 6e 74 | 80 05 00 00 00 00 00 00 |berCount|........|
|00000da0| 0e 04 78 1a 5c 01 73 0a | 5c 08 53 74 72 69 6e 67 |..x.\.s.|\.String|
|00000db0| 4f 66 10 5c 0a 74 68 65 | 4e 75 6d 62 65 72 73 18 |Of.\.the|Numbers.|
|00000dc0| 5c 01 69 12 5c 01 6a 1c | 14 08 5a 03 00 0b 14 08 |\.i.\.j.|..Z.....|
|00000dd0| 5a 03 00 02 16 08 98 01 | 92 20 00 00 3b 09 7b 57 |Z.......|. ..;.{W|
|00000de0| 65 20 64 6f 20 74 68 69 | 73 20 73 69 6e 63 65 20 |e do thi|s since |
|00000df0| 43 54 65 78 74 46 69 6c | 65 2e 57 72 69 74 65 4c |CTextFil|e.WriteL|
|00000e00| 6e 20 74 61 6b 65 73 20 | 61 20 56 41 52 20 70 61 |n takes |a VAR pa|
|00000e10| 72 61 6d 65 74 65 72 7d | 86 11 5c 09 61 64 64 43 |rameter}|..\.addC|
|00000e20| 6f 6d 6d 61 73 38 10 5c | 01 6a 48 5c 0b 6e 75 6d |ommas8.\|.jH\.num|
|00000e30| 62 65 72 43 6f 75 6e 74 | 16 08 78 14 5c 06 49 6e |berCount|..x.\.In|
|00000e40| 73 65 72 74 10 5a 02 01 | 2c 12 5c 01 73 12 5c 06 |sert.Z..|,.\.s.\.|
|00000e50| 6c 65 6e 67 74 68 10 5c | 01 73 16 3c 5a 03 00 01 |length.\|.s.<Z...|
|00000e60| 16 08 98 01 78 0d 5c 08 | 6d 79 4f 75 74 70 75 74 |....x.\.|myOutput|
|00000e70| 52 5c 05 57 72 69 74 65 | 10 5c 01 73 16 08 98 01 |R\.Write|.\.s....|
|00000e80| 9a 01 98 01 92 10 00 00 | 1a 09 7b 66 6f 72 20 6a |........|..{for j|
|00000e90| 3a 3d 31 20 74 6f 20 6e | 75 6d 62 65 72 43 6f 75 |:=1 to n|umberCou|
|00000ea0| 6e 74 7d 08 78 05 5c 01 | 73 0a 5a 05 00 08 98 01 |nt}.x.\.|s.Z.....|
|00000eb0| 78 0e 5c 08 6d 79 4f 75 | 74 70 75 74 52 5c 07 57 |x.\.myOu|tputR\.W|
|00000ec0| 72 69 74 65 4c 6e 10 5c | 01 73 16 08 98 01 9a 01 |riteLn.\|.s......|
|00000ed0| 98 01 94 01 78 0a 5c 08 | 6d 79 4f 75 74 70 75 74 |....x.\.|myOutput|
|00000ee0| 52 5c 05 43 6c 6f 73 65 | 98 01 78 09 5c 06 6d 79 |R\.Close|..x.\.my|
|00000ef0| 46 69 6c 65 52 5c 05 43 | 6c 6f 73 65 98 01 78 0b |FileR\.C|lose..x.|
|00000f00| 5c 07 77 72 69 74 65 6c | 6e 10 5a 05 05 44 6f 6e |\.writel|n.Z..Don|
|00000f10| 65 21 16 08 98 01 9a 01 | 9a 01 98 01 9a 01 00 01 |e!......|........|
|00000f20| 02 01                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+