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: LBR Archive
(archive/lbr).
You can browse this item here: toc.lbr
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LBR Archive (archive/lbr)
| magic
| Supported |
| 1%
| dexvert
| Micro Focus COBOL library (other/microFocusCobolLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
| 100%
| file
| LBR archive data
| default
| |
| 99%
| file
| data
| default
| |
| 87%
| TrID
| LU library
| default
| |
| 12%
| TrID
| C64 Hires bitmap
| default (weak)
| |
| 100%
| lsar
| LBR
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 01 00 |. | ....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 54 42 4c 43 54 45 4e | 54 44 4f 43 01 00 24 00 |.TBLCTEN|TDOC..$.|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 42 4c 43 54 45 4e | 54 50 41 53 25 00 8a 00 |.TBLCTEN|TPAS%...|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2e 6f 70 0d 0a 20 57 6f | 72 64 53 74 61 72 20 66 |.op.. Wo|rdStar f|
|00000090| 69 6c 65 20 75 74 69 6c | 69 74 79 20 20 2d 2d 20 |ile util|ity -- |
|000000a0| 20 39 2d 32 31 2d 38 35 | 20 20 56 65 72 20 31 2e | 9-21-85| Ver 1.|
|000000b0| 30 50 0d 0a 20 43 6f 70 | 79 72 69 67 68 74 20 20 |0P.. Cop|yright |
|000000c0| 31 39 38 35 20 20 62 79 | 20 44 65 61 6e 20 41 2e |1985 by| Dean A.|
|000000d0| 20 46 69 65 6c 64 73 0d | 0a 0d 0a 20 20 20 20 20 | Fields.|... |
|000000e0| 54 68 69 f3 a0 20 70 72 | 6f 67 72 61 ed a0 20 69 |Thi.. pr|ogra.. i|
|000000f0| f3 20 72 65 6c 65 61 73 | 65 e4 20 74 ef 20 74 68 |. releas|e. t. th|
|00000100| e5 20 50 75 62 6c 69 e3 | 20 44 6f 6d 61 69 ee 20 |. Publi.| Domai. |
|00000110| 61 6e e4 a0 20 6d 61 f9 | a0 20 62 e5 20 8d 0a 66 |an.. ma.|. b. ..f|
|00000120| 72 65 65 6c f9 a0 20 64 | 69 73 74 72 69 62 75 74 |reel.. d|istribut|
|00000130| 65 e4 a0 20 61 6e e4 20 | 63 6f 70 69 65 64 ac a0 |e.. an. |copied..|
|00000140| 20 62 75 f4 20 6d 61 f9 | 20 6e 6f f4 20 62 e5 20 | bu. ma.| no. b. |
|00000150| 73 6f 6c e4 20 77 69 74 | 68 6f 75 f4 a0 74 68 e5 |sol. wit|hou..th.|
|00000160| 20 8d 0a 61 75 74 68 6f | 72 f3 20 77 72 69 74 74 | ..autho|r. writt|
|00000170| 65 ee 20 70 65 72 6d 69 | 73 73 69 6f 6e 2e 0d 0a |e. permi|ssion...|
|00000180| 0d 0a 20 20 20 20 41 6c | 6c 20 52 69 67 68 74 73 |.. Al|l Rights|
|00000190| 20 52 65 73 65 72 76 65 | 64 0d 0a 0d 0a 20 20 20 | Reserve|d.... |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 57 72 | | .. Wr|
|000001d0| 69 74 74 65 6e 20 69 6e | 20 54 55 52 42 4f 20 50 |itten in| TURBO P|
|000001e0| 41 53 43 41 4c 20 56 65 | 72 2e 20 33 2e 30 20 20 |ASCAL Ve|r. 3.0 |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 | | .. |
|00000200| 20 20 6f 6e 20 61 20 43 | 4f 4d 50 41 51 20 20 20 | on a C|OMPAQ |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 | | .. |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 54 65 | | .. Te|
|00000260| 73 74 65 64 20 6f 6e 20 | 61 3a 20 20 20 20 20 20 |sted on |a: |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 | | .. |
|00000290| 20 20 43 4f 4d 50 41 51 | 20 20 20 20 20 20 20 20 | COMPAQ| |
|000002a0| 4d 73 44 6f 73 20 33 2e | 31 20 20 20 20 20 20 20 |MsDos 3.|1 |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 0d 0a 20 20 20 | | .. |
|000002c0| 20 20 4b 41 59 50 52 4f | 20 34 2d 38 34 20 20 20 | KAYPRO| 4-84 |
|000002d0| 43 50 2f 4d 20 32 2e 32 | 0d 0a 20 20 20 20 20 20 |CP/M 2.2|.. |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000300| 20 20 20 20 20 20 20 20 | 0d 0a 20 20 20 20 20 54 | |.. T|
|00000310| ef 20 75 73 e5 20 74 68 | 69 f3 20 70 72 6f 67 72 |. us. th|i. progr|
|00000320| 61 ed 2c 20 74 79 70 e5 | 20 74 68 e5 20 70 72 6f |a., typ.| th. pro|
|00000330| 67 72 61 ed 20 6e 61 6d | 65 ac a0 54 42 4c 43 54 |gra. nam|e..TBLCT|
|00000340| 45 4e 54 ac 20 61 f4 20 | 74 68 e5 20 8d 0a 44 4f |ENT. a. |th. ..DO|
|00000350| d3 a0 20 70 72 6f 6d 70 | 74 ac a0 20 61 6e e4 20 |.. promp|t.. an. |
|00000360| 70 72 65 73 f3 20 74 68 | e5 20 72 65 74 75 72 ee |pres. th|. retur.|
|00000370| 20 6b 65 79 ae a0 20 20 | 54 68 e5 20 70 72 6f 67 | key.. |Th. prog|
|00000380| 72 61 ed 20 77 69 6c ec | a0 20 66 69 72 73 f4 20 |ra. wil.|. firs. |
|00000390| 8d 0a 61 6e 6e 6f 75 6e | 63 e5 a0 20 69 74 73 65 |..announ|c.. itse|
|000003a0| 6c 66 ac a0 20 61 6e e4 | 20 74 68 65 ee 20 70 72 |lf.. an.| the. pr|
|000003b0| 6f 6d 70 f4 20 66 6f f2 | 20 74 68 e5 20 6e 61 6d |omp. fo.| th. nam|
|000003c0| e5 20 6f e6 20 74 68 e5 | 20 66 69 6c e5 a0 20 74 |. o. th.| fil.. t|
|000003d0| 68 61 f4 20 8d 0a 74 68 | 65 20 74 61 62 6c 65 20 |ha. ..th|e table |
|000003e0| 6f 66 20 63 6f 6e 74 65 | 6e 74 20 69 73 20 74 6f |of conte|nt is to|
|000003f0| 20 62 65 20 63 72 65 61 | 74 65 64 20 66 72 6f 6d | be crea|ted from|
|00000400| 2e 0d 0a 0d 0a 20 20 20 | 20 20 54 68 69 f3 a0 20 |..... | Thi.. |
|00000410| 70 72 6f 67 72 61 ed a0 | 20 63 72 65 61 74 65 f3 |progra..| create.|
|00000420| 20 e1 20 54 61 62 6c e5 | 20 6f e6 20 43 6f 6e 74 | . Tabl.| o. Cont|
|00000430| 65 6e 74 f3 a0 20 66 6f | f2 a0 20 e1 a0 20 57 6f |ent.. fo|.. .. Wo|
|00000440| 72 64 53 74 61 f2 20 8d | 0a 64 6f 63 75 6d 65 6e |rdSta. .|.documen|
|00000450| f4 a0 20 66 69 6c 65 ae | a0 20 20 54 42 4c 43 54 |.. file.|. TBLCT|
|00000460| 45 4e d4 a0 20 6c 6f 6f | 6b f3 20 66 6f f2 20 63 |EN.. loo|k. fo. c|
|00000470| 6f 6e 74 72 6f ec a0 20 | 63 6f 64 65 73 ac a0 20 |ontro.. |codes.. |
|00000480| 61 6e e4 a0 20 74 61 6b | 65 f3 20 8d 0a 77 68 61 |an.. tak|e. ..wha|
|00000490| 74 65 76 65 f2 a0 20 69 | f3 20 62 65 74 77 65 65 |teve.. i|. betwee|
|000004a0| ee 20 74 68 65 ed 20 61 | 6e e4 20 70 6c 61 63 65 |. the. a|n. place|
|000004b0| f3 20 69 f4 20 69 ee 20 | 74 68 e5 20 74 61 62 6c |. i. i. |th. tabl|
|000004c0| e5 20 6f e6 a0 20 63 6f | 6e 74 65 6e 74 f3 20 8d |. o.. co|ntent. .|
|000004d0| 0a 66 69 6c 65 ae 20 20 | 54 68 e5 20 63 6f 6e 74 |.file. |Th. cont|
|000004e0| 72 6f ec 20 63 6f 64 65 | f3 20 61 72 65 ac 20 5e |ro. code|. are. ^|
|000004f0| d2 20 74 ef 20 73 74 61 | 72 f4 20 61 6e e4 20 73 |. t. sta|r. an. s|
|00000500| 74 6f f0 20 69 6e 63 6c | 75 73 69 6f ee 20 69 6e |to. incl|usio. in|
|00000510| 74 ef 20 8d 0a 74 68 e5 | a0 20 74 61 62 6c e5 a0 |t. ..th.|. tabl..|
|00000520| 20 6f e6 a0 20 63 6f 6e | 74 65 6e 74 f3 20 66 69 | o.. con|tent. fi|
|00000530| 6c 65 ae a0 20 20 54 68 | 65 f9 20 61 72 e5 20 70 |le.. Th|e. ar. p|
|00000540| 6c 61 63 65 e4 20 69 ee | 20 74 68 e5 a0 20 66 69 |lace. i.| th.. fi|
|00000550| 6c e5 a0 20 62 f9 20 8d | 0a 65 6e 74 65 72 69 6e |l.. b. .|.enterin|
|00000560| e7 a0 20 e1 a0 20 5e 50 | 5e d2 20 61 f4 20 74 68 |.. .. ^P|^. a. th|
|00000570| e5 20 62 65 67 69 6e 6e | 69 6e e7 20 61 6e e4 20 |. beginn|in. an. |
|00000580| 65 6e e4 20 6f e6 20 74 | 68 e5 a0 20 74 65 78 f4 |en. o. t|h.. tex.|
|00000590| a0 20 79 6f f5 a0 77 61 | 6e f4 20 8d 0a 69 6e 63 |. yo..wa|n. ..inc|
|000005a0| 6c 75 64 65 e4 20 69 6e | 74 ef 20 74 68 e5 20 74 |lude. in|t. th. t|
|000005b0| 61 62 6c e5 20 6f e6 20 | 63 6f 6e 74 65 6e 74 f3 |abl. o. |content.|
|000005c0| 20 66 69 6c 65 ae a0 20 | 20 54 68 e5 20 5e 52 27 | file.. | Th. ^R'|
|000005d0| f3 20 73 68 6f 75 6c e4 | 20 6e 65 76 65 f2 20 8d |. shoul.| neve. .|
|000005e0| 0a 68 61 76 e5 a0 20 57 | 6f 72 64 53 74 61 f2 20 |.hav.. W|ordSta. |
|000005f0| 64 6f f4 20 63 6f 6d 6d | 61 6e 64 f3 20 62 65 74 |do. comm|and. bet|
|00000600| 77 65 65 ee 20 74 68 65 | 6d ae a0 20 20 54 68 e5 |wee. the|m.. Th.|
|00000610| 20 6e 61 6d e5 20 6f e6 | 20 74 68 e5 20 74 61 62 | nam. o.| th. tab|
|00000620| 6c e5 20 8d 0a 6f e6 a0 | 20 63 6f 6e 74 65 6e 74 |l. ..o..| content|
|00000630| f3 20 66 69 6c e5 20 69 | f3 20 74 68 e5 20 73 61 |. fil. i|. th. sa|
|00000640| 6d e5 20 61 f3 20 74 68 | e5 20 69 6e 70 75 f4 20 |m. a. th|. inpu. |
|00000650| 64 6f 63 75 6d 65 6e 74 | ac a0 20 65 78 63 65 70 |document|.. excep|
|00000660| f4 a0 20 74 68 e5 20 8d | 0a 66 69 6c e5 a0 20 74 |.. th. .|.fil.. t|
|00000670| 79 70 e5 a0 20 77 68 69 | 63 e8 20 69 f3 20 22 2e |yp.. whi|c. i. ".|
|00000680| 54 42 43 22 ae a0 20 20 | 54 68 e5 20 6d 61 78 69 |TBC".. |Th. maxi|
|00000690| 6d 75 ed 20 6e 75 6d 62 | 65 f2 a0 20 6f e6 a0 20 |mu. numb|e.. o.. |
|000006a0| 63 68 61 72 61 63 74 65 | 72 f3 20 8d 0a 61 6c 6c |characte|r. ..all|
|000006b0| 6f 77 65 e4 a0 20 69 ee | a0 20 e1 a0 20 54 61 62 |owe.. i.|. .. Tab|
|000006c0| 6c e5 20 6f e6 20 43 6f | 6e 74 65 6e f4 20 65 6e |l. o. Co|nten. en|
|000006d0| 74 72 f9 20 69 f3 20 35 | 35 ac a0 20 69 e6 a0 20 |tr. i. 5|5.. i.. |
|000006e0| 6d 6f 72 e5 a0 20 74 68 | 65 ee a0 20 35 b5 20 8d |mor.. th|e.. 5. .|
|000006f0| 0a 63 68 61 72 61 63 74 | 65 72 f3 a0 20 61 70 70 |.charact|er.. app|
|00000700| 65 61 f2 20 62 65 74 77 | 65 65 ee 20 74 68 e5 20 |ea. betw|ee. th. |
|00000710| 5e 52 27 73 ac a0 20 74 | 68 65 ee 20 74 68 e5 20 |^R's.. t|he. th. |
|00000720| 54 61 62 6c e5 a0 20 6f | e6 a0 20 43 6f 6e 74 65 |Tabl.. o|.. Conte|
|00000730| 6e f4 20 8d 0a 65 6e 74 | 72 f9 20 69 f3 20 74 72 |n. ..ent|r. i. tr|
|00000740| 75 6e 63 61 74 65 e4 20 | 74 ef 20 35 b5 20 63 68 |uncate. |t. 5. ch|
|00000750| 61 72 61 63 74 65 72 73 | 2e 0d 0a 20 20 20 20 20 |aracters|... |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000780| 20 20 20 20 20 20 20 20 | 20 0d 0a 20 20 20 20 20 | | .. |
|00000790| 41 66 74 65 f2 a0 20 79 | 6f f5 20 65 6e 74 65 f2 |Afte.. y|o. ente.|
|000007a0| 20 74 68 e5 20 66 69 6c | e5 20 6e 61 6d e5 20 74 | th. fil|. nam. t|
|000007b0| 68 61 f4 20 74 68 e5 20 | 74 61 62 6c e5 20 6f e6 |ha. th. |tabl. o.|
|000007c0| 20 63 6f 6e 74 65 6e f4 | a0 20 69 f3 20 8d 0a 74 | conten.|. i. ..t|
|000007d0| ef a0 20 62 e5 a0 20 63 | 72 65 61 74 65 e4 a0 20 |.. b.. c|reate.. |
|000007e0| 66 72 6f 6d ac a0 20 54 | 42 4c 43 54 45 4e d4 20 |from.. T|BLCTEN. |
|000007f0| 77 69 6c ec 20 74 72 f9 | 20 74 ef 20 6f 70 65 ee |wil. tr.| t. ope.|
|00000800| 20 74 68 61 f4 a0 20 66 | 69 6c e5 a0 20 66 6f f2 | tha.. f|il.. fo.|
|00000810| 20 8d 0a 69 6e 70 75 74 | ae a0 20 20 49 e6 20 74 | ..input|.. I. t|
|00000820| 68 e5 20 66 69 6c e5 20 | 63 61 ee 20 6e 6f f4 20 |h. fil. |ca. no. |
|00000830| 62 e5 20 6f 70 65 6e 65 | e4 20 28 69 65 ae 20 62 |b. opene|. (ie. b|
|00000840| 65 63 61 75 73 e5 20 69 | f4 20 63 61 ee 20 6e 6f |ecaus. i|. ca. no|
|00000850| f4 20 62 e5 20 8d 0a 66 | 6f 75 6e e4 a0 20 6f f2 |. b. ..f|oun.. o.|
|00000860| a0 20 73 6f 6d 65 74 68 | 69 6e 67 a9 a0 20 74 68 |. someth|ing.. th|
|00000870| e5 a0 20 63 6f 6e 64 69 | 74 69 6f ee 20 69 f3 a0 |.. condi|tio. i..|
|00000880| 20 72 65 70 6f 72 74 65 | e4 a0 20 61 6e e4 a0 20 | reporte|.. an.. |
|00000890| 79 6f f5 a0 20 61 72 e5 | 20 8d 0a 72 65 70 72 6f |yo.. ar.| ..repro|
|000008a0| 6d 70 74 65 e4 20 66 6f | f2 20 61 ee 20 69 6e 70 |mpte. fo|. a. inp|
|000008b0| 75 f4 20 66 69 6c e5 20 | 6e 61 6d 65 ae a0 20 20 |u. fil. |name.. |
|000008c0| 54 68 69 f3 20 70 72 6f | 67 72 61 ed 20 63 61 ee |Thi. pro|gra. ca.|
|000008d0| 20 62 e5 a0 20 61 62 6f | 72 74 65 e4 20 8d 0a 61 | b.. abo|rte. ..a|
|000008e0| f4 a0 20 61 6e 79 74 69 | 6d e5 20 62 f9 20 e1 20 |.. anyti|m. b. . |
|000008f0| 5e 43 ae a0 20 20 49 e6 | 20 74 68 e5 20 69 6e 70 |^C.. I.| th. inp|
|00000900| 75 f4 20 66 69 6c e5 20 | 6e 61 6d e5 20 69 f3 20 |u. fil. |nam. i. |
|00000910| 66 6f 75 6e 64 ac a0 20 | 74 68 65 ee 20 74 68 e5 |found.. |the. th.|
|00000920| 20 8d 0a 6f 75 74 70 75 | f4 a0 20 66 69 6c e5 a0 | ..outpu|.. fil..|
|00000930| 20 28 54 61 62 6c e5 20 | 6f e6 20 43 6f 6e 74 65 | (Tabl. |o. Conte|
|00000940| 6e f4 20 66 69 6c 65 a9 | 20 69 f3 a0 20 63 68 65 |n. file.| i.. che|
|00000950| 63 6b 65 e4 a0 20 66 6f | 72 ae a0 20 20 49 e6 a0 |cke.. fo|r.. I..|
|00000960| 20 74 68 e5 20 8d 0a 6f | 75 74 70 75 f4 a0 20 66 | th. ..o|utpu.. f|
|00000970| 69 6c e5 a0 20 61 6c 72 | 65 61 64 f9 20 65 78 69 |il.. alr|ead. exi|
|00000980| 73 74 ac a0 20 79 6f f5 | 20 61 72 e5 20 67 69 76 |st.. yo.| ar. giv|
|00000990| 65 ee 20 74 68 e5 20 6f | 70 74 69 6f ee 20 6f e6 |e. th. o|ptio. o.|
|000009a0| a0 20 65 69 74 68 65 f2 | 20 8d 0a 64 65 6c 65 74 |. eithe.| ..delet|
|000009b0| 69 6e e7 20 69 f4 20 28 | 6f 76 65 72 77 72 69 74 |in. i. (|overwrit|
|000009c0| 74 69 6e e7 20 69 f4 20 | 29 ac 20 6f f2 20 63 61 |tin. i. |). o. ca|
|000009d0| 6e 63 65 6c 69 6e e7 20 | 74 68 e5 20 70 72 6f 67 |ncelin. |th. prog|
|000009e0| 72 61 6d ae 20 20 49 e6 | 20 79 6f f5 20 8d 0a 64 |ram. I.| yo. ..d|
|000009f0| 65 6c 65 74 e5 a0 20 69 | 74 ac a0 20 74 68 65 ee |elet.. i|t.. the.|
|00000a00| 20 70 72 6f 63 65 73 73 | 69 6e e7 20 63 6f 6e 74 | process|in. cont|
|00000a10| 69 6e 75 65 f3 20 61 f3 | 20 69 e6 20 74 68 e5 20 |inue. a.| i. th. |
|00000a20| 66 69 6c e5 a0 20 68 61 | e4 a0 20 6e 65 76 65 f2 |fil.. ha|.. neve.|
|00000a30| 20 8d 0a 65 78 69 73 74 | 65 64 2e 0d 0a 0d 0a 20 | ..exist|ed..... |
|00000a40| 20 20 20 20 44 75 72 69 | 6e e7 a0 20 70 72 6f 63 | Duri|n.. proc|
|00000a50| 65 73 73 69 6e 67 ac a0 | 20 54 42 4c 43 54 45 4e |essing..| TBLCTEN|
|00000a60| d4 a0 20 72 65 70 6f 72 | 74 f3 a0 20 70 61 67 65 |.. repor|t.. page|
|00000a70| f3 a0 20 74 68 61 f4 a0 | 20 69 f4 a0 20 68 61 f3 |.. tha..| i.. ha.|
|00000a80| 20 8d 0a 73 63 61 6e 6e | 65 e4 a0 a0 20 66 6f f2 | ..scann|e... fo.|
|00000a90| a0 20 74 61 62 6c e5 a0 | 20 6f e6 a0 20 63 6f 6e |. tabl..| o.. con|
|00000aa0| 74 65 6e f4 a0 20 65 6e | 74 72 69 65 73 bb a0 a0 |ten.. en|tries...|
|00000ab0| 20 73 ef a0 20 79 6f f5 | a0 20 63 61 ee a0 a0 20 | s.. yo.|. ca... |
|00000ac0| 74 65 6c ec 20 8d 0a 61 | 70 70 72 6f 78 69 6d 61 |tel. ..a|pproxima|
|00000ad0| 74 65 6c f9 a0 20 68 6f | f7 a0 20 66 61 f2 a0 20 |tel.. ho|.. fa.. |
|00000ae0| 79 6f f5 20 61 72 e5 20 | 69 ee 20 74 68 e5 a0 20 |yo. ar. |i. th.. |
|00000af0| 69 6e 70 75 f4 a0 20 64 | 6f 63 75 6d 65 6e 74 ae |inpu.. d|ocument.|
|00000b00| a0 20 20 50 61 67 65 f3 | 20 8d 0a 63 6f 76 65 72 |. Page.| ..cover|
|00000b10| 65 e4 20 62 f9 20 e1 20 | 2e 4f d0 20 63 6f 6d 6d |e. b. . |.O. comm|
|00000b20| 61 6e 64 20 61 72 e5 20 | 6e 6f f4 20 63 6f 75 6e |and ar. |no. coun|
|00000b30| 74 65 64 ae 20 0d 0a 2e | 70 61 0d 8a 20 20 20 20 |ted. ...|pa.. |
|00000b40| 54 68 e5 20 66 6f 6c 6c | 6f 77 69 6e e7 20 64 65 |Th. foll|owin. de|
|00000b50| 73 63 72 69 62 65 f3 20 | 68 6f f7 20 74 68 e5 20 |scribe. |ho. th. |
|00000b60| 57 6f 72 64 53 74 61 f2 | 20 2e 4f 50 ac 20 2e 50 |WordSta.| .OP. .P|
|00000b70| 41 ac 20 61 6e e4 20 2e | 50 ce 20 ee 20 8d 0a 63 |A. an. .|P. . ..c|
|00000b80| 6f 6d 6d 61 6e 64 73 20 | 61 72 65 20 74 72 65 61 |ommands |are trea|
|00000b90| 74 65 64 20 62 79 20 54 | 42 4c 43 54 45 4e 54 3a |ted by T|BLCTENT:|
|00000ba0| 0d 0a 0d 0a a0 a0 a0 a0 | a0 a0 a0 a0 a0 2e 4f 50 |........|......OP|
|00000bb0| a0 a0 a0 63 61 75 73 65 | f3 a0 20 74 68 e5 a0 20 |...cause|.. th.. |
|00000bc0| 70 72 6f 67 72 61 ed 20 | 74 ef 20 73 74 6f f0 20 |progra. |t. sto. |
|00000bd0| 73 65 61 72 63 68 69 6e | e7 a0 20 66 6f f2 a0 20 |searchin|.. fo.. |
|00000be0| 54 61 62 6c e5 8d 0a a0 | a0 a0 a0 a0 a0 a0 a0 a0 |Tabl....|........|
|00000bf0| a0 a0 a0 a0 a0 a0 6f e6 | 20 43 6f 6e 74 65 6e f4 |......o.| Conten.|
|00000c00| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e ac 20 62 65 | informa|tion. be|
|00000c10| 63 61 75 73 e5 20 2e 4f | d0 20 74 75 72 6e f3 20 |caus. .O|. turn. |
|00000c20| 6f 66 e6 20 70 61 67 e5 | 8d 0a a0 a0 a0 a0 a0 a0 |of. pag.|........|
|00000c30| a0 a0 a0 a0 a0 a0 a0 a0 | a0 6e 75 6d 62 65 f2 a0 |........|.numbe..|
|00000c40| 20 61 6e e4 a0 20 74 68 | 65 72 65 66 6f 72 e5 20 | an.. th|erefor. |
|00000c50| 74 68 65 72 e5 20 69 f3 | 20 6e ef 20 70 61 67 e5 |ther. i.| n. pag.|
|00000c60| 20 6e 75 6d 62 65 f2 a0 | 20 74 ef 8d 0a a0 a0 a0 | numbe..| t......|
|00000c70| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 61 73 73 6f |........|....asso|
|00000c80| 63 69 61 74 e5 20 74 ef | 20 74 68 e5 20 54 61 62 |ciat. t.| th. Tab|
|00000c90| 6c e5 20 6f e6 20 43 6f | 6e 74 65 6e f4 20 65 6e |l. o. Co|nten. en|
|00000ca0| 74 72 79 ac a0 20 61 6e | e4 20 74 68 75 f3 8d 0a |try.. an|. thu...|
|00000cb0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 6e |........|.......n|
|00000cc0| ef a0 20 72 65 61 73 6f | ee a0 20 74 ef a0 20 72 |.. reaso|.. t.. r|
|00000cd0| 65 70 6f 72 f4 20 e1 20 | 54 61 62 6c e5 20 6f e6 |epor. . |Tabl. o.|
|00000ce0| a0 20 43 6f 6e 74 65 6e | f4 a0 20 65 6e 74 72 79 |. Conten|.. entry|
|00000cf0| ae 20 20 8d 0a a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |. .....|........|
|00000d00| a0 a0 a0 a0 54 61 62 6c | e5 a0 20 6f e6 20 43 6f |....Tabl|.. o. Co|
|00000d10| 6e 74 65 6e f4 20 73 65 | 61 72 63 68 69 6e e7 20 |nten. se|archin. |
|00000d20| 72 65 73 75 6d 65 f3 20 | 77 69 74 e8 20 74 68 e5 |resume. |wit. th.|
|00000d30| a0 20 6e 65 78 f4 20 8d | 0a a0 a0 a0 a0 a0 a0 a0 |. nex. .|........|
|00000d40| a0 a0 a0 a0 a0 a0 a0 a0 | 2e 50 4e 20 6e 20 63 6f |........|.PN n co|
|00000d50| 6d 6d 61 6e 64 20 65 6e | 63 6f 75 6e 74 65 72 65 |mmand en|countere|
|00000d60| 64 2e 0d 0a 20 0d 0a a0 | a0 a0 a0 a0 a0 a0 a0 a0 |d... ...|........|
|00000d70| 2e 50 41 a0 a0 a0 63 61 | 75 73 65 f3 20 74 68 e5 |.PA...ca|use. th.|
|00000d80| 20 70 61 67 e5 20 6e 75 | 6d 62 65 f2 20 76 61 72 | pag. nu|mbe. var|
|00000d90| 69 61 62 6c e5 20 74 ef | 20 62 e5 20 69 6e 63 72 |iabl. t.| b. incr|
|00000da0| 65 6d 65 6e 74 65 64 0d | 0a 20 0d 0a a0 a0 a0 a0 |emented.|. ......|
|00000db0| a0 a0 a0 a0 a0 2e 50 4e | 20 6e a0 a0 63 61 75 73 |......PN| n..caus|
|00000dc0| 65 f3 a0 20 74 68 e5 a0 | 20 70 61 67 e5 a0 20 6e |e.. th..| pag.. n|
|00000dd0| 75 6d 62 65 f2 20 76 61 | 72 69 61 62 6c e5 20 74 |umbe. va|riabl. t|
|00000de0| ef a0 20 62 e5 a0 20 73 | 65 f4 a0 74 ef 20 8d 0a |.. b.. s|e..t. ..|
|00000df0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 6e |........|.......n|
|00000e00| 75 6d 62 65 f2 a0 20 ee | a0 20 6f e6 20 74 68 e5 |umbe.. .|. o. th.|
|00000e10| 20 2e 50 ce 20 ee 20 63 | 6f 6d 6d 61 6e 64 ae a0 | .P. . c|ommand..|
|00000e20| 20 20 ee a0 20 63 61 ee | a0 20 6e 6f f4 a0 20 62 | .. ca.|. no.. b|
|00000e30| e5 20 8d 0a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |. ......|........|
|00000e40| a0 a0 a0 6c 61 72 67 65 | f2 20 74 68 61 ee 20 39 |...large|. tha. 9|
|00000e50| 39 39 39 ac 20 75 6e 6c | 65 73 f3 20 70 72 6f 76 |999. unl|es. prov|
|00000e60| 69 73 69 6f 6e f3 20 61 | 72 e5 20 6d 61 64 e5 20 |ision. a|r. mad. |
|00000e70| 74 ef 20 64 ef 20 8d 0a | a0 a0 a0 a0 a0 a0 a0 a0 |t. d. ..|........|
|00000e80| a0 a0 a0 a0 a0 a0 a0 74 | 68 65 20 66 6f 6c 6c 6f |.......t|he follo|
|00000e90| 77 69 6e 67 3a 0d 0a a0 | a0 a0 a0 a0 a0 a0 a0 a0 |wing:...|........|
|00000ea0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 31 a9 a0 20 2d |........|...1.. -|
|00000eb0| 20 4d 61 78 4e 75 ed a0 | 20 69 ee a0 20 74 68 e5 | MaxNu..| i.. th.|
|00000ec0| 20 43 4f 4e 53 d4 a0 20 | 73 65 63 74 69 6f ee a0 | CONS.. |sectio..|
|00000ed0| 20 61 f4 a0 20 74 68 e5 | 20 8d 0a a0 a0 a0 a0 a0 | a.. th.| .......|
|00000ee0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 62 |........|.......b|
|00000ef0| 65 67 69 6e 6e 69 6e e7 | a0 20 6f e6 20 74 68 e5 |eginnin.|. o. th.|
|00000f00| 20 70 72 6f 67 72 61 ed | 20 6d 75 73 f4 20 62 e5 | progra.| mus. b.|
|00000f10| 20 63 68 61 6e 67 65 e4 | a0 20 74 ef 20 8d 0a a0 | change.|. t. ...|
|00000f20| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000f30| a0 a0 a0 61 63 63 6f 6d | 6d 6f 64 61 74 65 20 74 |...accom|modate t|
|00000f40| 68 65 20 6e 65 77 20 73 | 69 7a 65 0d 0a 0d 0a a0 |he new s|ize.....|
|00000f50| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000f60| a0 a0 a0 32 a9 a0 a0 20 | 2d 20 74 68 e5 a0 a0 20 |...2... |- th... |
|00000f70| 22 43 41 53 c5 a0 20 70 | 6e 64 f8 a0 20 6f 66 a2 |"CAS.. p|nd.. of.|
|00000f80| a0 20 73 74 72 75 63 74 | 75 72 e5 a0 a0 20 69 ee |. struct|ur... i.|
|00000f90| 20 8d 0a a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 | .......|........|
|00000fa0| a0 a0 a0 a0 a0 a0 a0 50 | 72 6f 63 65 64 75 72 e5 |.......P|rocedur.|
|00000fb0| 20 74 65 73 74 5f 6c 69 | 6e e5 20 6d 75 73 f4 20 | test_li|n. mus. |
|00000fc0| 62 e5 20 63 68 61 6e 67 | 65 e4 20 74 ef 20 68 61 |b. chang|e. t. ha|
|00000fd0| 6e 64 6c e5 20 8d 0a a0 | a0 a0 a0 a0 a0 a0 a0 a0 |ndl. ...|........|
|00000fe0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 74 68 65 20 6c |........|...the l|
|00000ff0| 61 72 67 65 72 20 70 61 | 67 65 20 6e 75 6d 62 65 |arger pa|ge numbe|
|00001000| 72 73 0d 0a 0d 0a a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |rs......|........|
|00001010| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 33 a9 a0 a0 20 2d |........|..3... -|
|00001020| 20 50 72 6f 63 65 64 75 | 72 e5 a0 a0 20 74 72 61 | Procedu|r... tra|
|00001030| 6e 73 6c 61 74 65 5f 6c | 69 6e e5 a0 a0 20 6d 75 |nslate_l|in... mu|
|00001040| 73 f4 a0 a0 20 62 e5 20 | 8d 0a a0 a0 a0 a0 a0 a0 |s... b. |........|
|00001050| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 6d 6f |........|......mo|
|00001060| 64 69 66 69 65 e4 a0 20 | 74 ef a0 61 63 63 6f 6d |difie.. |t..accom|
|00001070| 6d 6f 64 61 74 e5 a0 20 | 74 68 e5 a0 20 6e 65 f7 |modat.. |th.. ne.|
|00001080| a0 20 54 42 c3 a0 a0 6c | 69 6e e5 20 8d 0a a0 a0 |. TB...l|in. ....|
|00001090| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000010a0| a0 a0 66 6f 72 6d 61 74 | ac a0 a0 a0 20 77 68 69 |..format|.... whi|
|000010b0| 63 e8 a0 a0 20 69 6e 63 | 6c 75 64 65 f3 a0 a0 20 |c... inc|lude... |
|000010c0| 62 61 6c 61 6e 63 69 6e | e7 a0 a0 20 61 6e e4 20 |balancin|... an. |
|000010d0| 8d 0a a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000010e0| a0 a0 a0 a0 a0 a0 63 65 | 6e 74 65 72 69 6e 67 20 |......ce|ntering |
|000010f0| 6f 66 20 74 68 65 20 54 | 42 43 20 65 6e 74 72 79 |of the T|BC entry|
|00001100| 2e 0d 0a 0d 0a 20 20 20 | 20 20 4f 6e 63 e5 a0 20 |..... | Onc.. |
|00001110| 74 68 e5 20 54 61 62 6c | e5 20 6f e6 20 43 6f 6e |th. Tabl|. o. Con|
|00001120| 74 65 6e f4 20 66 69 6c | e5 20 68 61 f3 20 62 65 |ten. fil|. ha. be|
|00001130| 65 ee 20 63 72 65 61 74 | 65 64 ac a0 20 69 f4 20 |e. creat|ed.. i. |
|00001140| 63 61 ee 20 62 e5 20 8d | 0a 65 64 69 74 65 e4 a0 |ca. b. .|.edite..|
|00001150| 20 77 69 74 e8 a0 20 57 | 6f 72 64 53 74 61 f2 20 | wit.. W|ordSta. |
|00001160| 74 ef 20 61 64 e4 20 69 | ee 20 70 72 69 6e 74 65 |t. ad. i|. printe|
|00001170| f2 20 63 6f 6e 74 72 6f | ec 20 63 6f 64 65 f3 a0 |. contro|. code..|
|00001180| 20 66 6f f2 a0 20 79 6f | 75 f2 20 8d 0a 73 70 65 | fo.. yo|u. ..spe|
|00001190| 63 69 66 69 e3 20 74 79 | 70 e5 20 6f e6 20 70 72 |cifi. ty|p. o. pr|
|000011a0| 69 6e 74 65 72 ae a0 20 | 20 4f ee 20 73 6f 6d e5 |inter.. | O. som.|
|000011b0| 20 6d 61 63 68 69 6e 65 | f3 20 74 68 e5 20 54 61 | machine|. th. Ta|
|000011c0| 62 6c e5 20 6f e6 20 43 | 6f 6e 74 65 6e f4 20 8d |bl. o. C|onten. .|
|000011d0| 0a 66 69 6c e5 20 77 69 | 6c ec 20 63 6f 6e 74 61 |.fil. wi|l. conta|
|000011e0| 69 ee 20 e1 20 66 65 f7 | 20 5e 40 27 f3 20 61 f4 |i. . fe.| ^@'. a.|
|000011f0| 20 74 68 e5 20 65 6e e4 | 20 6f e6 20 74 68 e5 20 | th. en.| o. th. |
|00001200| 66 69 6c 65 bb a0 20 54 | 68 e5 20 5e 40 27 f3 20 |file.. T|h. ^@'. |
|00001210| 64 ef 20 8d 0a 6e 6f f4 | a0 20 70 72 69 6e 74 ae |d. ..no.|. print.|
|00001220| a0 20 20 59 6f f5 a0 20 | 63 61 ee a0 20 69 67 6e |. Yo.. |ca.. ign|
|00001230| 6f 72 e5 20 74 68 65 ed | 20 6f f2 20 64 65 6c 65 |or. the.| o. dele|
|00001240| 74 e5 20 74 68 65 ed a0 | 20 69 f4 a0 20 6d 61 6b |t. the..| i.. mak|
|00001250| 65 f3 a0 20 6e ef 20 8d | 0a 64 69 66 66 65 72 65 |e.. n. .|.differe|
|00001260| 6e 63 65 2e 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |nce.....|........|
|00001270| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001280| 70 72 6f 67 72 61 6d 20 | 74 62 6c 63 74 65 6e 74 |program |tblctent|
|00001290| 28 69 6e 70 75 74 2c 20 | 6f 75 74 70 75 74 2c 20 |(input, |output, |
|000012a0| 69 6e 66 69 6c 65 2c 20 | 6f 75 74 66 69 6c 65 29 |infile, |outfile)|
|000012b0| 3b 0d 0a 0d 0a 28 2a 20 | 57 6f 72 64 53 74 61 72 |;....(* |WordStar|
|000012c0| 20 66 69 6c 65 20 75 74 | 69 6c 69 74 79 20 20 2d | file ut|ility -|
|000012d0| 2d 20 20 39 2d 32 31 2d | 38 35 20 20 56 65 72 20 |- 9-21-|85 Ver |
|000012e0| 31 2e 30 50 20 2a 29 0d | 0a 28 2a 20 43 6f 70 79 |1.0P *).|.(* Copy|
|000012f0| 72 69 67 68 74 20 20 31 | 39 38 35 20 20 62 79 20 |right 1|985 by |
|00001300| 44 65 61 6e 20 41 2e 20 | 46 69 65 6c 64 73 20 20 |Dean A. |Fields |
|00001310| 20 20 20 20 20 20 20 20 | 20 2a 29 0d 0a 28 2a 20 | | *)..(* |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 29 0d | | *).|
|00001350| 0a 28 2a 20 57 72 69 74 | 74 65 6e 20 69 6e 20 54 |.(* Writ|ten in T|
|00001360| 55 52 42 4f 20 50 41 53 | 43 41 4c 20 56 65 72 2e |URBO PAS|CAL Ver.|
|00001370| 20 33 2e 30 20 20 20 20 | 20 20 20 20 20 20 20 20 | 3.0 | |
|00001380| 20 2a 29 0d 0a 28 2a 20 | 20 20 20 20 6f 6e 20 61 | *)..(* | on a|
|00001390| 20 43 4f 4d 50 41 51 20 | 20 20 20 20 20 20 20 20 | COMPAQ | |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013b0| 20 20 20 20 20 2a 29 0d | 0a 28 2a 20 20 20 20 20 | *).|.(* |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013e0| 20 20 20 20 20 20 20 20 | 20 2a 29 0d 0a 28 2a 20 | | *)..(* |
|000013f0| 43 72 65 61 74 65 73 20 | 61 20 54 61 62 6c 65 20 |Creates |a Table |
|00001400| 6f 66 20 43 6f 6e 74 65 | 6e 74 73 20 20 66 6f 72 |of Conte|nts for|
|00001410| 20 20 61 20 57 6f 72 64 | 53 74 61 72 20 2a 29 0d | a Word|Star *).|
|00001420| 0a 28 2a 20 20 20 64 6f | 63 75 6d 65 6e 74 20 66 |.(* do|cument f|
|00001430| 69 6c 65 2e 20 20 54 42 | 4c 43 54 45 4e 54 20 6c |ile. TB|LCTENT l|
|00001440| 6f 6f 6b 73 20 66 6f 72 | 20 63 6f 6e 74 72 6f 6c |ooks for| control|
|00001450| 20 2a 29 0d 0a 28 2a 20 | 20 20 63 6f 64 65 73 2c | *)..(* | codes,|
|00001460| 20 61 6e 64 20 74 61 6b | 65 73 20 77 68 61 74 65 | and tak|es whate|
|00001470| 76 65 72 20 69 73 20 62 | 65 74 77 65 65 6e 20 74 |ver is b|etween t|
|00001480| 68 65 6d 20 20 2a 29 0d | 0a 28 2a 20 20 20 61 6e |hem *).|.(* an|
|00001490| 64 20 70 6c 61 63 65 73 | 20 69 74 20 69 6e 20 74 |d places| it in t|
|000014a0| 68 65 20 74 61 62 6c 65 | 20 6f 66 20 63 6f 6e 74 |he table| of cont|
|000014b0| 65 6e 74 73 20 20 20 20 | 20 2a 29 0d 0a 28 2a 20 |ents | *)..(* |
|000014c0| 20 20 66 69 6c 65 2e 20 | 20 54 68 65 20 63 6f 6e | file. | The con|
|000014d0| 74 72 6f 6c 20 63 6f 64 | 65 73 20 61 72 65 2c 20 |trol cod|es are, |
|000014e0| 5e 52 20 74 6f 20 73 74 | 61 72 74 20 20 2a 29 0d |^R to st|art *).|
|000014f0| 0a 28 2a 20 20 20 61 6e | 64 20 73 74 6f 70 20 69 |.(* an|d stop i|
|00001500| 6e 63 6c 75 73 69 6f 6e | 20 69 6e 74 6f 20 74 68 |nclusion| into th|
|00001510| 65 20 74 61 62 6c 65 20 | 6f 66 20 20 20 20 20 20 |e table |of |
|00001520| 20 2a 29 0d 0a 28 2a 20 | 20 20 63 6f 6e 74 65 6e | *)..(* | conten|
|00001530| 74 73 20 66 69 6c 65 2e | 20 20 54 68 65 79 20 61 |ts file.| They a|
|00001540| 72 65 20 70 6c 61 63 65 | 64 20 69 6e 20 74 68 65 |re place|d in the|
|00001550| 20 20 20 20 20 2a 29 0d | 0a 28 2a 20 20 20 66 69 | *).|.(* fi|
|00001560| 6c 65 20 62 79 20 65 6e | 74 65 72 69 6e 67 20 61 |le by en|tering a|
|00001570| 20 5e 50 5e 52 20 61 74 | 20 74 68 65 20 62 65 67 | ^P^R at| the beg|
|00001580| 69 6e 69 6e 67 20 20 20 | 20 2a 29 0d 0a 28 2a 20 |ining | *)..(* |
|00001590| 20 20 61 6e 64 20 65 6e | 64 20 6f 66 20 74 68 65 | and en|d of the|
|000015a0| 20 74 65 78 74 20 79 6f | 75 20 77 61 6e 74 20 69 | text yo|u want i|
|000015b0| 6e 63 6c 75 64 65 64 20 | 69 6e 74 6f 20 2a 29 0d |ncluded |into *).|
|000015c0| 0a 28 2a 20 20 20 74 68 | 65 20 74 61 62 6c 65 20 |.(* th|e table |
|000015d0| 6f 66 20 63 6f 6e 74 65 | 6e 74 73 20 66 69 6c 65 |of conte|nts file|
|000015e0| 2e 20 20 54 68 65 20 5e | 52 27 73 20 20 20 20 20 |. The ^|R's |
|000015f0| 20 2a 29 0d 0a 28 2a 20 | 20 20 73 68 6f 75 6c 64 | *)..(* | should|
|00001600| 20 6e 65 76 65 72 20 68 | 61 76 65 20 57 6f 72 64 | never h|ave Word|
|00001610| 53 74 61 72 20 64 6f 74 | 20 63 6f 6d 6d 61 6e 64 |Star dot| command|
|00001620| 73 20 20 20 20 2a 29 0d | 0a 28 2a 20 20 20 62 65 |s *).|.(* be|
|00001630| 74 77 65 65 6e 20 74 68 | 65 6d 2e 20 20 54 68 65 |tween th|em. The|
|00001640| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 74 61 62 | name of| the tab|
|00001650| 6c 65 20 6f 66 20 20 20 | 20 2a 29 0d 0a 28 2a 20 |le of | *)..(* |
|00001660| 20 20 63 6f 6e 74 65 6e | 74 73 20 66 69 6c 65 20 | conten|ts file |
|00001670| 69 73 20 74 68 65 20 73 | 61 6d 65 20 61 73 20 74 |is the s|ame as t|
|00001680| 68 65 20 69 6e 70 75 74 | 20 20 20 20 20 2a 29 0d |he input| *).|
|00001690| 0a 28 2a 20 20 20 64 6f | 63 75 6d 65 6e 74 2c 20 |.(* do|cument, |
|000016a0| 65 78 63 65 70 74 20 74 | 68 65 20 66 69 6c 65 20 |except t|he file |
|000016b0| 74 79 70 65 20 77 68 69 | 63 68 20 69 73 20 20 20 |type whi|ch is |
|000016c0| 20 2a 29 0d 0a 28 2a 20 | 20 20 22 2e 54 42 43 22 | *)..(* | ".TBC"|
|000016d0| 2e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016f0| 20 20 20 20 20 2a 29 0d | 0a 28 2a 20 20 20 20 20 | *).|.(* |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001720| 20 20 20 20 20 20 20 20 | 20 2a 29 0d 0a 0d 0a 43 | | *)....C|
|00001730| 6f 6e 73 74 0d 0a 20 20 | 20 20 4d 61 78 4c 69 6e |onst.. | MaxLin|
|00001740| 65 4c 65 6e 20 3d 20 32 | 35 35 3b 20 20 20 20 20 |eLen = 2|55; |
|00001750| 20 20 20 20 20 20 20 20 | 20 28 2a 20 6d 61 78 2e | | (* max.|
|00001760| 20 69 6e 70 75 74 20 6c | 69 6e 65 20 6c 65 6e 67 | input l|ine leng|
|00001770| 74 68 20 2a 29 0d 0a 20 | 20 20 20 76 65 72 73 69 |th *).. | versi|
|00001780| 6f 6e 20 3d 20 27 31 2e | 30 50 27 3b 20 20 20 20 |on = '1.|0P'; |
|00001790| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 76 65 72 | | (* ver|
|000017a0| 73 69 6f 6e 20 6e 75 6d | 62 65 72 20 2a 29 0d 0a |sion num|ber *)..|
|000017b0| 20 20 20 20 64 61 74 65 | 20 3d 20 27 53 65 70 74 | date| = 'Sept|
|000017c0| 65 6d 62 65 72 20 32 31 | 2c 20 31 39 38 35 27 3b |ember 21|, 1985';|
|000017d0| 20 20 20 28 2a 20 72 65 | 6c 65 61 73 65 20 64 61 | (* re|lease da|
|000017e0| 74 65 20 2a 29 0d 0a 20 | 20 20 20 4d 61 78 4e 75 |te *).. | MaxNu|
|000017f0| 6d 20 3d 20 34 3b 20 20 | 20 20 20 20 20 20 20 20 |m = 4; | |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 6d 61 78 | | (* max|
|00001810| 69 6d 75 6d 20 6e 75 6d | 62 65 72 20 6f 66 20 64 |imum num|ber of d|
|00001820| 69 67 69 74 73 20 66 6f | 72 20 2e 50 4e 20 6e 20 |igits fo|r .PN n |
|00001830| 2a 29 0d 0a 20 20 20 20 | 73 70 61 63 65 20 3d 20 |*).. |space = |
|00001840| 24 32 30 3b 0d 0a 20 20 | 20 20 62 65 6c 6c 20 3d |$20;.. | bell =|
|00001850| 20 30 37 3b 0d 0a 20 20 | 20 20 6c 66 20 3d 20 31 | 07;.. | lf = 1|
|00001860| 30 3b 0d 0a 20 20 20 20 | 63 72 20 3d 20 24 30 44 |0;.. |cr = $0D|
|00001870| 3b 0d 0a 20 20 20 20 63 | 74 6c 72 20 3d 20 31 38 |;.. c|tlr = 18|
|00001880| 3b 0d 0a 20 20 20 20 70 | 65 72 69 6f 64 20 3d 20 |;.. p|eriod = |
|00001890| 34 36 3b 0d 0a 20 20 20 | 20 74 65 6e 73 20 3d 20 |46;.. | tens = |
|000018a0| 31 30 3b 0d 0a 20 20 20 | 20 68 75 6e 64 72 65 64 |10;.. | hundred|
|000018b0| 73 20 3d 20 31 30 30 3b | 0d 0a 20 20 20 20 74 68 |s = 100;|.. th|
|000018c0| 6f 75 73 20 3d 20 31 30 | 30 30 3b 0d 0a 20 20 20 |ous = 10|00;.. |
|000018d0| 20 4d 61 78 43 68 72 73 | 20 3d 20 35 35 3b 20 20 | MaxChrs| = 55; |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018f0| 28 2a 20 6d 61 78 2e 20 | 63 68 61 72 2e 73 20 61 |(* max. |char.s a|
|00001900| 6c 6c 6f 77 65 64 20 66 | 6f 72 20 54 42 43 20 65 |llowed f|or TBC e|
|00001910| 6e 74 72 79 20 2a 29 0d | 0a 20 20 20 20 50 61 67 |ntry *).|. Pag|
|00001920| 65 4c 65 6e 20 3d 20 35 | 35 3b 20 20 20 20 20 20 |eLen = 5|5; |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 6e | | (* n|
|00001940| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 70 |umber of| lines p|
|00001950| 65 72 20 70 61 67 65 20 | 2a 29 0d 0a 20 20 20 20 |er page |*).. |
|00001960| 43 6f 6e 74 72 6f 6c 52 | 5f 31 20 3a 20 62 6f 6f |ControlR|_1 : boo|
|00001970| 6c 65 61 6e 20 3d 20 66 | 61 6c 73 65 3b 0d 0a 20 |lean = f|alse;.. |
|00001980| 20 20 20 43 6f 6e 74 72 | 6f 6c 52 5f 32 20 3a 20 | Contr|olR_2 : |
|00001990| 62 6f 6f 6c 65 61 6e 20 | 3d 20 66 61 6c 73 65 3b |boolean |= false;|
|000019a0| 0d 0a 20 20 20 20 64 6f | 70 20 3a 20 62 6f 6f 6c |.. do|p : bool|
|000019b0| 65 61 6e 20 3d 20 66 61 | 6c 73 65 3b 0d 0a 20 20 |ean = fa|lse;.. |
|000019c0| 20 20 43 68 4e 75 6d 20 | 3a 20 69 6e 74 65 67 65 | ChNum |: intege|
|000019d0| 72 20 3d 20 31 3b 0d 0a | 20 20 20 20 70 61 67 65 |r = 1;..| page|
|000019e0| 5f 6e 75 6d 20 3a 20 69 | 6e 74 65 67 65 72 20 3d |_num : i|nteger =|
|000019f0| 20 30 3b 0d 0a 20 20 20 | 20 6c 69 6e 65 20 3a 20 | 0;.. | line : |
|00001a00| 69 6e 74 65 67 65 72 20 | 3d 20 30 3b 20 28 2a 20 |integer |= 0; (* |
|00001a10| 76 61 72 69 61 62 6c 65 | 20 74 68 61 74 20 63 6f |variable| that co|
|00001a20| 6e 74 61 69 6e 73 20 74 | 68 65 20 63 75 72 72 65 |ntains t|he curre|
|00001a30| 6e 74 20 2a 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |nt *).. | |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001a50| 2a 20 20 20 20 20 54 42 | 43 20 6c 69 6e 65 20 23 |* TB|C line #|
|00001a60| 20 62 65 69 6e 67 20 6f | 75 74 70 75 74 20 66 6f | being o|utput fo|
|00001a70| 72 20 20 20 20 2a 29 0d | 0a 20 20 20 20 20 20 20 |r *).|. |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a90| 20 28 2a 20 20 20 20 20 | 74 68 65 20 63 75 72 72 | (* |the curr|
|00001aa0| 65 6e 74 20 54 42 43 20 | 70 61 67 65 20 20 20 20 |ent TBC |page |
|00001ab0| 20 20 20 20 20 20 20 2a | 29 0d 0a 28 2a 0d 0a 20 | *|)..(*.. |
|00001ac0| 2a 20 54 62 6c 4c 69 6e | 65 20 69 73 20 74 68 65 |* TblLin|e is the|
|00001ad0| 20 6e 65 78 74 20 6c 69 | 6e 65 20 74 6f 20 62 65 | next li|ne to be|
|00001ae0| 20 70 72 69 6e 74 65 64 | 20 74 6f 20 74 68 65 20 | printed| to the |
|00001af0| 2e 54 42 43 20 66 69 6c | 65 0d 0a 20 2a 29 0d 0a |.TBC fil|e.. *)..|
|00001b00| 20 20 20 20 54 62 6c 4c | 69 6e 65 20 3a 20 69 6e | TblL|ine : in|
|00001b10| 74 65 67 65 72 20 3d 20 | 37 3b 20 28 2a 20 69 6e |teger = |7; (* in|
|00001b20| 69 74 69 61 6c 69 7a 65 | 20 54 62 6c 4c 69 6e 65 |itialize| TblLine|
|00001b30| 20 74 6f 20 37 20 2a 29 | 0d 0a 0d 0a 54 59 50 45 | to 7 *)|....TYPE|
|00001b40| 0d 0a 20 20 20 20 41 6e | 79 53 74 72 69 6e 67 3d |.. An|yString=|
|00001b50| 20 73 74 72 69 6e 67 5b | 32 35 35 5d 3b 0d 0a 0d | string[|255];...|
|00001b60| 0a 56 41 52 0d 0a 20 20 | 20 20 69 6e 66 69 6c 65 |.VAR.. | infile|
|00001b70| 2c 20 6f 75 74 66 69 6c | 65 20 3a 20 74 65 78 74 |, outfil|e : text|
|00001b80| 3b 0d 0a 20 20 20 20 4c | 69 6e 65 49 6e 20 3a 20 |;.. L|ineIn : |
|00001b90| 61 72 72 61 79 5b 31 2e | 2e 4d 61 78 4c 69 6e 65 |array[1.|.MaxLine|
|00001ba0| 4c 65 6e 5d 20 6f 66 20 | 62 79 74 65 3b 0d 0a 20 |Len] of |byte;.. |
|00001bb0| 20 20 20 4c 6f 6f 70 43 | 6e 74 72 2c 20 63 68 72 | LoopC|ntr, chr|
|00001bc0| 63 6e 74 2c 20 69 6e 64 | 78 20 3a 20 69 6e 74 65 |cnt, ind|x : inte|
|00001bd0| 67 65 72 3b 0d 0a 20 20 | 20 20 64 6f 74 5f 63 6d |ger;.. | dot_cm|
|00001be0| 6e 64 2c 20 63 61 6e 63 | 65 6c 20 3a 20 62 6f 6f |nd, canc|el : boo|
|00001bf0| 6c 65 61 6e 3b 0d 0a 20 | 20 20 20 70 61 67 65 5f |lean;.. | page_|
|00001c00| 6e 75 6d 5f 70 72 69 6e | 74 20 3a 20 61 72 72 61 |num_prin|t : arra|
|00001c10| 79 5b 31 2e 2e 34 5d 20 | 6f 66 20 62 79 74 65 3b |y[1..4] |of byte;|
|00001c20| 0d 0a 20 20 20 20 63 68 | 20 3a 20 63 68 61 72 3b |.. ch| : char;|
|00001c30| 20 20 20 20 28 2a 20 63 | 68 61 72 61 63 74 65 72 | (* c|haracter|
|00001c40| 20 72 65 61 64 20 66 72 | 6f 6d 20 69 6e 70 75 74 | read fr|om input|
|00001c50| 20 66 69 6c 65 20 2a 29 | 0d 0a 0d 0a 28 2a 0d 0a | file *)|....(*..|
|00001c60| 20 2a 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 | * The f|ollowing|
|00001c70| 20 66 75 6e 63 74 69 6f | 6e 20 63 6f 6e 76 65 72 | functio|n conver|
|00001c80| 74 73 20 61 6e 79 20 6c | 6f 77 65 72 20 63 61 73 |ts any l|ower cas|
|00001c90| 65 20 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |e charac|ters in |
|00001ca0| 61 20 73 74 72 69 6e 67 | 0d 0a 20 2a 20 74 6f 20 |a string|.. * to |
|00001cb0| 75 70 70 65 72 20 63 61 | 73 65 2c 20 61 6e 64 20 |upper ca|se, and |
|00001cc0| 77 61 73 20 63 6f 70 69 | 65 64 20 66 72 6f 6d 20 |was copi|ed from |
|00001cd0| 54 55 52 42 4f 20 50 41 | 53 43 41 4c 20 6d 61 6e |TURBO PA|SCAL man|
|00001ce0| 75 61 6c 20 28 76 33 2e | 30 29 20 70 61 67 65 20 |ual (v3.|0) page |
|00001cf0| 31 34 36 2e 0d 0a 20 2a | 29 0d 0a 46 55 4e 43 54 |146... *|)..FUNCT|
|00001d00| 49 4f 4e 20 53 74 55 70 | 43 61 73 65 28 73 74 3a |ION StUp|Case(st:|
|00001d10| 61 6e 79 73 74 72 69 6e | 67 29 3a 61 6e 79 73 74 |anystrin|g):anyst|
|00001d20| 72 69 6e 67 3b 0d 0a 56 | 41 52 0d 0a 20 20 20 20 |ring;..V|AR.. |
|00001d30| 49 20 3a 20 69 6e 74 65 | 67 65 72 3b 0d 0a 62 65 |I : inte|ger;..be|
|00001d40| 67 69 6e 20 28 2a 20 46 | 55 4e 43 54 49 4f 4e 20 |gin (* F|UNCTION |
|00001d50| 53 74 55 70 43 61 73 65 | 20 2a 29 0d 0a 20 20 20 |StUpCase| *).. |
|00001d60| 20 66 6f 72 20 69 3a 3d | 20 31 20 74 6f 20 6c 65 | for i:=| 1 to le|
|00001d70| 6e 67 74 68 28 73 74 29 | 20 64 6f 0d 0a 20 20 20 |ngth(st)| do.. |
|00001d80| 20 20 20 20 20 73 74 5b | 69 5d 20 3a 3d 20 75 70 | st[|i] := up|
|00001d90| 63 61 73 65 28 73 74 5b | 69 5d 29 3b 0d 0a 20 20 |case(st[|i]);.. |
|00001da0| 20 20 73 74 75 70 63 61 | 73 65 20 3a 3d 20 73 74 | stupca|se := st|
|00001db0| 3b 0d 0a 65 6e 64 3b 0d | 0a 0d 0a 0d 0a 28 2a 0d |;..end;.|.....(*.|
|00001dc0| 0a 20 2a 20 54 68 69 73 | 20 70 72 6f 63 65 64 75 |. * This| procedu|
|00001dd0| 72 65 20 6f 70 65 6e 73 | 20 74 68 65 20 69 6e 70 |re opens| the inp|
|00001de0| 75 74 20 61 6e 64 20 6f | 75 74 70 75 74 20 66 69 |ut and o|utput fi|
|00001df0| 6c 65 73 0d 0a 20 2a 29 | 0d 0a 50 52 4f 43 45 44 |les.. *)|..PROCED|
|00001e00| 55 52 45 20 6f 70 65 6e | 5f 66 69 6c 65 73 3b 0d |URE open|_files;.|
|00001e10| 0a 56 41 52 0d 0a 20 20 | 20 20 69 6e 66 6e 61 6d |.VAR.. | infnam|
|00001e20| 65 20 3a 20 73 74 72 69 | 6e 67 5b 32 30 5d 3b 0d |e : stri|ng[20];.|
|00001e30| 0a 20 20 20 20 6f 75 74 | 66 6e 61 6d 65 20 3a 20 |. out|fname : |
|00001e40| 73 74 72 69 6e 67 5b 32 | 30 5d 3b 0d 0a 20 20 20 |string[2|0];.. |
|00001e50| 20 61 6e 73 20 3a 20 73 | 74 72 69 6e 67 5b 31 30 | ans : s|tring[10|
|00001e60| 5d 3b 0d 0a 20 20 20 20 | 67 6f 6f 64 66 69 6c 65 |];.. |goodfile|
|00001e70| 20 3a 20 62 6f 6f 6c 65 | 61 6e 3b 0d 0a 20 20 20 | : boole|an;.. |
|00001e80| 20 64 6f 74 70 6f 73 2c | 20 46 69 6c 65 4e 6d 65 | dotpos,| FileNme|
|00001e90| 45 6e 64 20 3a 20 69 6e | 74 65 67 65 72 3b 0d 0a |End : in|teger;..|
|00001ea0| 0d 0a 42 45 47 49 4e 0d | 0a 20 20 20 20 72 65 70 |..BEGIN.|. rep|
|00001eb0| 65 61 74 0d 0a 20 20 20 | 20 20 20 20 20 77 72 69 |eat.. | wri|
|00001ec0| 74 65 28 27 45 6e 74 65 | 72 20 69 6e 70 75 74 20 |te('Ente|r input |
|00001ed0| 66 69 6c 65 6e 61 6d 65 | 20 20 2d 2d 3e 20 27 29 |filename| --> ')|
|00001ee0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 72 65 61 64 6c |;.. | readl|
|00001ef0| 6e 28 69 6e 66 6e 61 6d | 65 29 3b 0d 0a 20 20 20 |n(infnam|e);.. |
|00001f00| 20 20 20 20 20 69 6e 66 | 6e 61 6d 65 20 3a 3d 20 | inf|name := |
|00001f10| 53 74 55 70 43 61 73 65 | 28 69 6e 66 6e 61 6d 65 |StUpCase|(infname|
|00001f20| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 61 73 73 69 |);.. | assi|
|00001f30| 67 6e 28 69 6e 66 69 6c | 65 2c 20 69 6e 66 6e 61 |gn(infil|e, infna|
|00001f40| 6d 65 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 7b 24 |me);.. | {$|
|00001f50| 49 2d 7d 20 72 65 73 65 | 74 28 69 6e 66 69 6c 65 |I-} rese|t(infile|
|00001f60| 29 20 7b 24 49 2b 7d 3b | 0d 0a 20 20 20 20 20 20 |) {$I+};|.. |
|00001f70| 20 20 67 6f 6f 64 66 69 | 6c 65 20 3a 3d 20 28 49 | goodfi|le := (I|
|00001f80| 4f 72 65 73 75 6c 74 20 | 3d 20 30 29 3b 0d 0a 20 |Oresult |= 0);.. |
|00001f90| 20 20 20 20 20 20 20 69 | 66 20 6e 6f 74 20 67 6f | i|f not go|
|00001fa0| 6f 64 66 69 6c 65 20 74 | 68 65 6e 0d 0a 20 20 20 |odfile t|hen.. |
|00001fb0| 20 20 20 20 20 62 65 67 | 69 6e 0d 0a 20 20 20 20 | beg|in.. |
|00001fc0| 20 20 20 20 20 20 20 20 | 63 6c 72 73 63 72 3b 0d | |clrscr;.|
|00001fd0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 47 6f 74 |. | Got|
|00001fe0| 6f 58 59 28 31 2c 36 29 | 3b 0d 0a 20 20 20 20 20 |oXY(1,6)|;.. |
|00001ff0| 20 20 20 20 20 20 20 77 | 72 69 74 65 20 28 63 68 | w|rite (ch|
|00002000| 72 28 62 65 6c 6c 29 29 | 3b 0d 0a 20 20 20 20 20 |r(bell))|;.. |
|00002010| 20 20 20 20 20 20 20 77 | 72 69 74 65 6c 6e 28 27 | w|riteln('|
|00002020| 46 49 4c 45 20 27 2c 20 | 69 6e 66 6e 61 6d 65 2c |FILE ', |infname,|
|00002030| 20 27 4e 4f 54 20 46 4f | 55 4e 44 21 21 21 27 29 | 'NOT FO|UND!!!')|
|00002040| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |;.. | d|
|00002050| 65 6c 61 79 28 36 30 30 | 30 29 3b 0d 0a 20 20 20 |elay(600|0);.. |
|00002060| 20 20 20 20 20 65 6e 64 | 3b 0d 0a 20 20 20 20 75 | end|;.. u|
|00002070| 6e 74 69 6c 20 67 6f 6f | 64 66 69 6c 65 3b 0d 0a |ntil goo|dfile;..|
|00002080| 20 20 20 20 72 65 70 65 | 61 74 0d 0a 20 20 20 20 | repe|at.. |
|00002090| 20 20 20 20 64 6f 74 70 | 6f 73 20 3a 3d 20 30 3b | dotp|os := 0;|
|000020a0| 0d 0a 20 20 20 20 20 20 | 20 20 46 69 6c 65 4e 6d |.. | FileNm|
|000020b0| 65 45 6e 64 20 3a 3d 20 | 6c 65 6e 67 74 68 28 69 |eEnd := |length(i|
|000020c0| 6e 66 6e 61 6d 65 29 3b | 0d 0a 20 20 20 20 20 20 |nfname);|.. |
|000020d0| 20 20 64 6f 74 70 6f 73 | 20 3a 3d 20 50 4f 53 28 | dotpos| := POS(|
|000020e0| 27 2e 27 2c 20 69 6e 66 | 6e 61 6d 65 29 3b 0d 0a |'.', inf|name);..|
|000020f0| 20 20 20 20 20 20 20 20 | 69 66 20 28 64 6f 74 70 | |if (dotp|
|00002100| 6f 73 20 3e 20 30 29 20 | 74 68 65 6e 0d 0a 20 20 |os > 0) |then.. |
|00002110| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 0a 20 20 20 | be|gin.. |
|00002120| 20 20 20 20 20 20 20 20 | 20 64 6f 74 70 6f 73 20 | | dotpos |
|00002130| 3a 3d 20 70 72 65 64 28 | 64 6f 74 70 6f 73 29 3b |:= pred(|dotpos);|
|00002140| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 6f 75 |.. | ou|
|00002150| 74 66 6e 61 6d 65 20 3a | 3d 20 63 6f 70 79 28 69 |tfname :|= copy(i|
|00002160| 6e 66 6e 61 6d 65 2c 20 | 31 2c 20 64 6f 74 70 6f |nfname, |1, dotpo|
|00002170| 73 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 65 6e 64 |s);.. | end|
|00002180| 0d 0a 20 20 20 20 20 20 | 20 20 65 6c 73 65 0d 0a |.. | else..|
|00002190| 20 20 20 20 20 20 20 20 | 20 20 20 20 6f 75 74 66 | | outf|
|000021a0| 6e 61 6d 65 20 3a 3d 20 | 63 6f 70 79 28 69 6e 66 |name := |copy(inf|
|000021b0| 6e 61 6d 65 2c 20 31 2c | 20 46 69 6c 65 4e 6d 65 |name, 1,| FileNme|
|000021c0| 45 6e 64 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 69 |End);.. | i|
|000021d0| 6e 73 65 72 74 28 27 2e | 54 42 43 27 2c 20 6f 75 |nsert('.|TBC', ou|
|000021e0| 74 66 6e 61 6d 65 2c 20 | 28 46 69 6c 65 4e 6d 65 |tfname, |(FileNme|
|000021f0| 45 6e 64 2b 31 29 29 3b | 0d 0a 20 20 20 20 20 20 |End+1));|.. |
|00002200| 20 20 46 69 6c 65 4e 6d | 65 45 6e 64 20 3a 3d 20 | FileNm|eEnd := |
|00002210| 32 30 20 2d 20 28 46 69 | 6c 65 4e 6d 65 45 6e 64 |20 - (Fi|leNmeEnd|
|00002220| 2b 34 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 64 65 |+4);.. | de|
|00002230| 6c 65 74 65 28 6f 75 74 | 66 6e 61 6d 65 2c 20 28 |lete(out|fname, (|
|00002240| 46 69 6c 65 4e 6d 65 45 | 6e 64 2b 35 29 2c 20 46 |FileNmeE|nd+5), F|
|00002250| 69 6c 65 4e 6d 65 45 6e | 64 29 3b 0d 0a 20 20 20 |ileNmeEn|d);.. |
|00002260| 20 20 20 20 20 61 73 73 | 69 67 6e 28 6f 75 74 66 | ass|ign(outf|
|00002270| 69 6c 65 2c 20 6f 75 74 | 66 6e 61 6d 65 29 3b 0d |ile, out|fname);.|
|00002280| 0a 20 20 20 20 20 20 20 | 20 7b 24 49 2d 7d 20 72 |. | {$I-} r|
|00002290| 65 73 65 74 28 6f 75 74 | 66 69 6c 65 29 20 7b 24 |eset(out|file) {$|
|000022a0| 49 2b 7d 3b 0d 0a 20 20 | 20 20 20 20 20 20 67 6f |I+};.. | go|
|000022b0| 6f 64 66 69 6c 65 20 3a | 3d 20 28 49 4f 72 65 73 |odfile :|= (IOres|
|000022c0| 75 6c 74 20 3c 3e 20 30 | 29 3b 0d 0a 20 20 20 20 |ult <> 0|);.. |
|000022d0| 20 20 20 20 69 66 20 6e | 6f 74 20 67 6f 6f 64 66 | if n|ot goodf|
|000022e0| 69 6c 65 20 74 68 65 6e | 0d 0a 20 20 20 20 20 20 |ile then|.. |
|000022f0| 20 20 62 65 67 69 6e 0d | 0a 20 20 20 20 20 20 20 | begin.|. |
|00002300| 20 20 20 20 20 77 72 69 | 74 65 28 63 68 72 28 62 | wri|te(chr(b|
|00002310| 65 6c 6c 29 2c 20 27 46 | 49 4c 45 20 27 2c 20 6f |ell), 'F|ILE ', o|
|00002320| 75 74 66 6e 61 6d 65 2c | 20 27 20 45 58 49 53 54 |utfname,| ' EXIST|
|00002330| 53 2c 20 4f 56 45 52 57 | 52 49 54 45 3f 20 28 59 |S, OVERW|RITE? (Y|
|00002340| 2f 4e 29 20 27 29 3b 0d | 0a 20 20 20 20 20 20 20 |/N) ');.|. |
|00002350| 20 20 20 20 20 72 65 61 | 64 6c 6e 28 61 6e 73 29 | rea|dln(ans)|
|00002360| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 67 |;.. | g|
|00002370| 6f 6f 64 66 69 6c 65 20 | 3a 3d 20 28 55 70 43 61 |oodfile |:= (UpCa|
|00002380| 73 65 28 61 6e 73 5b 31 | 5d 29 20 3d 20 27 59 27 |se(ans[1|]) = 'Y'|
|00002390| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.. | |
|000023a0| 67 6f 74 6f 78 79 28 31 | 2c 20 37 29 3b 0d 0a 20 |gotoxy(1|, 7);.. |
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 77 72 69 74 65 | | write|
|000023c0| 28 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |(' | |
|000023d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 27 29 | | ')|
|000023f0| 3b 0d 0a 28 2a 0d 0a 20 | 2a 20 74 68 65 20 66 6f |;..(*.. |* the fo|
|00002400| 6c 6c 6f 77 69 6e 67 20 | 63 6f 64 65 20 61 6c 6c |llowing |code all|
|00002410| 6f 77 73 20 61 20 74 6f | 20 72 65 74 75 72 6e 20 |ows a to| return |
|00002420| 74 6f 20 44 4f 53 2c 20 | 61 66 74 65 72 0d 0a 20 |to DOS, |after.. |
|00002430| 2a 20 63 6c 6f 73 69 6e | 67 20 74 68 65 20 69 6e |* closin|g the in|
|00002440| 70 75 74 20 66 69 6c 65 | 3b 20 69 6e 20 74 68 65 |put file|; in the|
|00002450| 20 65 76 65 6e 74 20 74 | 68 61 74 20 67 6f 6f 64 | event t|hat good|
|00002460| 66 69 6c 65 20 63 6f 6d | 65 73 0d 0a 20 2a 20 62 |file com|es.. * b|
|00002470| 61 63 6b 20 61 73 20 61 | 6e 20 27 4e 27 2e 0d 0a |ack as a|n 'N'...|
|00002480| 20 2a 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | *).. | |
|00002490| 20 69 66 20 6e 6f 74 20 | 67 6f 6f 64 66 69 6c 65 | if not |goodfile|
|000024a0| 20 74 68 65 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 | then.. | |
|000024b0| 20 20 20 62 65 67 69 6e | 0d 0a 20 20 20 20 20 20 | begin|.. |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 63 61 6e 63 65 6c | | cancel|
|000024d0| 20 3a 3d 20 74 72 75 65 | 3b 0d 0a 20 20 20 20 20 | := true|;.. |
|000024e0| 20 20 20 20 20 20 20 65 | 6e 64 0d 0a 20 20 20 20 | e|nd.. |
|000024f0| 20 20 20 20 65 6e 64 3b | 0d 0a 20 20 20 20 75 6e | end;|.. un|
|00002500| 74 69 6c 20 67 6f 6f 64 | 66 69 6c 65 3b 0d 0a 20 |til good|file;.. |
|00002510| 20 20 20 72 65 77 72 69 | 74 65 28 6f 75 74 66 69 | rewri|te(outfi|
|00002520| 6c 65 29 3b 0d 0a 28 2a | 0d 0a 20 2a 20 6f 75 74 |le);..(*|.. * out|
|00002530| 70 75 74 20 73 74 61 6e | 64 61 72 64 20 54 61 62 |put stan|dard Tab|
|00002540| 6c 65 20 6f 66 20 43 6f | 6e 74 65 6e 74 20 68 65 |le of Co|ntent he|
|00002550| 61 64 65 72 20 74 6f 20 | 6f 75 74 70 75 74 20 66 |ader to |output f|
|00002560| 69 6c 65 0d 0a 20 2a 29 | 0d 0a 20 20 20 20 77 72 |ile.. *)|.. wr|
|00002570| 69 74 65 6c 6e 28 6f 75 | 74 66 69 6c 65 2c 20 27 |iteln(ou|tfile, '|
|00002580| 2e 6f 70 27 29 3b 0d 0a | 20 20 20 20 77 72 69 74 |.op');..| writ|
|00002590| 65 6c 6e 28 6f 75 74 66 | 69 6c 65 29 3b 0d 0a 20 |eln(outf|ile);.. |
|000025a0| 20 20 20 77 72 69 74 65 | 6c 6e 28 6f 75 74 66 69 | write|ln(outfi|
|000025b0| 6c 65 29 3b 0d 0a 20 20 | 20 20 77 72 69 74 65 6c |le);.. | writel|
|000025c0| 6e 28 6f 75 74 66 69 6c | 65 2c 20 27 20 20 20 20 |n(outfil|e, ' |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025e0| 20 20 20 20 54 61 62 6c | 65 20 6f 66 20 43 6f 6e | Tabl|e of Con|
|000025f0| 74 65 6e 74 27 29 3b 0d | 0a 20 20 20 20 77 72 69 |tent');.|. wri|
|00002600| 74 65 6c 6e 28 6f 75 74 | 66 69 6c 65 29 3b 0d 0a |teln(out|file);..|
|00002610| 20 20 20 20 77 72 69 74 | 65 6c 6e 28 6f 75 74 66 | writ|eln(outf|
|00002620| 69 6c 65 29 3b 0d 0a 20 | 20 20 20 77 72 69 74 65 |ile);.. | write|
|00002630| 6c 6e 28 6f 75 74 66 69 | 6c 65 29 3b 0d 0a 20 20 |ln(outfi|le);.. |
|00002640| 20 20 65 6e 64 3b 20 28 | 2a 20 70 72 6f 63 65 64 | end; (|* proced|
|00002650| 75 72 65 20 6f 70 65 6e | 5f 66 69 6c 65 73 20 2a |ure open|_files *|
|00002660| 29 0d 0a 0d 0a 0d 0a 28 | 2a 0d 0a 20 2a 20 54 68 |)......(|*.. * Th|
|00002670| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 70 72 6f 63 |e follow|ing proc|
|00002680| 65 64 75 72 65 20 72 65 | 61 64 73 20 61 20 6c 69 |edure re|ads a li|
|00002690| 6e 65 20 6f 66 20 69 6e | 70 75 74 2c 20 65 6e 64 |ne of in|put, end|
|000026a0| 65 64 20 62 79 20 43 52 | 4c 46 2c 20 69 6e 74 6f |ed by CR|LF, into|
|000026b0| 20 61 6e 0d 0a 20 2a 20 | 69 6e 74 65 72 6e 61 6c | an.. * |internal|
|000026c0| 20 62 75 66 66 65 72 2c | 20 66 6f 72 20 66 75 72 | buffer,| for fur|
|000026d0| 74 68 65 72 20 70 72 6f | 63 65 73 73 69 6e 67 2e |ther pro|cessing.|
|000026e0| 20 41 73 20 74 68 65 20 | 69 6e 70 75 74 20 63 68 | As the |input ch|
|000026f0| 61 72 61 63 74 65 72 73 | 20 61 72 65 0d 0a 20 2a |aracters| are.. *|
|00002700| 20 72 65 61 64 20 74 68 | 65 79 20 61 72 65 20 61 | read th|ey are a|
|00002710| 6e 64 65 64 20 77 69 74 | 68 20 64 65 63 69 6d 61 |nded wit|h decima|
|00002720| 6c 20 31 32 37 20 74 6f | 20 73 74 72 69 70 20 6f |l 127 to| strip o|
|00002730| 66 20 74 68 65 20 38 74 | 68 20 62 69 74 2c 20 69 |f the 8t|h bit, i|
|00002740| 66 20 69 74 27 73 0d 0a | 20 2a 20 73 65 74 2e 0d |f it's..| * set..|
|00002750| 0a 20 2a 29 0d 0a 20 20 | 20 20 50 52 4f 43 45 44 |. *).. | PROCED|
|00002760| 55 52 45 20 67 65 74 5f | 6c 69 6e 65 3b 0d 0a 20 |URE get_|line;.. |
|00002770| 20 20 20 56 41 52 0d 0a | 20 20 20 20 20 20 20 20 | VAR..| |
|00002780| 6c 6f 6e 75 6d 20 3a 20 | 62 79 74 65 3b 20 20 20 |lonum : |byte; |
|00002790| 20 28 2a 20 76 61 72 69 | 61 62 6c 65 20 75 73 65 | (* vari|able use|
|000027a0| 64 20 74 6f 20 73 74 72 | 69 70 20 38 74 68 20 62 |d to str|ip 8th b|
|000027b0| 69 74 20 2a 29 0d 0a 0d | 0a 20 20 20 20 62 65 67 |it *)...|. beg|
|000027c0| 69 6e 0d 0a 20 20 20 20 | 20 20 20 20 63 68 20 3a |in.. | ch :|
|000027d0| 3d 20 63 68 72 28 30 29 | 3b 0d 0a 20 20 20 20 20 |= chr(0)|;.. |
|000027e0| 20 20 20 6c 6f 6e 75 6d | 20 3a 3d 20 30 3b 0d 0a | lonum| := 0;..|
|000027f0| 20 20 20 20 20 20 20 20 | 63 68 72 63 6e 74 20 3a | |chrcnt :|
|00002800| 3d 20 30 3b 0d 0a 20 20 | 20 20 20 20 20 20 77 68 |= 0;.. | wh|
|00002810| 69 6c 65 20 6e 6f 74 20 | 65 6f 66 28 69 6e 66 69 |ile not |eof(infi|
|00002820| 6c 65 29 20 61 6e 64 20 | 28 6c 6f 6e 75 6d 20 3c |le) and |(lonum <|
|00002830| 3e 20 6c 66 29 20 64 6f | 0d 0a 20 20 20 20 20 20 |> lf) do|.. |
|00002840| 20 20 62 65 67 69 6e 0d | 0a 20 20 20 20 20 20 20 | begin.|. |
|00002850| 20 20 20 20 20 63 68 72 | 63 6e 74 20 3a 3d 20 73 | chr|cnt := s|
|00002860| 75 63 63 28 63 68 72 63 | 6e 74 29 3b 0d 0a 20 20 |ucc(chrc|nt);.. |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 72 65 61 64 28 69 | | read(i|
|00002880| 6e 66 69 6c 65 2c 20 63 | 68 29 3b 0d 0a 20 20 20 |nfile, c|h);.. |
|00002890| 20 20 20 20 20 20 20 20 | 20 6c 6f 6e 75 6d 20 3a | | lonum :|
|000028a0| 3d 20 28 6f 72 64 28 63 | 68 29 20 61 6e 64 20 31 |= (ord(c|h) and 1|
|000028b0| 32 37 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |27);.. | |
|000028c0| 20 20 4c 69 6e 65 49 6e | 5b 63 68 72 63 6e 74 5d | LineIn|[chrcnt]|
|000028d0| 20 3a 3d 20 6c 6f 6e 75 | 6d 3b 0d 0a 20 20 20 20 | := lonu|m;.. |
|000028e0| 20 20 20 20 65 6e 64 0d | 0a 20 20 20 20 65 6e 64 | end.|. end|
|000028f0| 3b 20 28 2a 20 70 72 6f | 63 65 64 75 72 65 20 67 |; (* pro|cedure g|
|00002900| 65 74 5f 6c 69 6e 65 20 | 2a 29 0d 0a 0d 0a 0d 0a |et_line |*)......|
|00002910| 28 2a 0d 0a 20 2a 20 50 | 72 6f 63 65 64 75 72 65 |(*.. * P|rocedure|
|00002920| 20 74 65 73 74 5f 6c 69 | 6e 65 20 73 65 61 72 63 | test_li|ne searc|
|00002930| 68 65 73 20 74 68 65 20 | 69 6e 70 75 74 20 6c 69 |hes the |input li|
|00002940| 6e 65 2c 20 74 68 61 74 | 20 68 61 73 20 62 65 65 |ne, that| has bee|
|00002950| 6e 20 72 65 61 64 20 69 | 6e 0d 0a 20 2a 20 62 79 |n read i|n.. * by|
|00002960| 20 67 65 74 5f 6c 69 6e | 65 2c 20 66 6f 72 20 74 | get_lin|e, for t|
|00002970| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 63 6f 6e |he follo|wing con|
|00002980| 64 69 74 69 6f 6e 73 3a | 0d 0a 20 2a 20 20 20 20 |ditions:|.. * |
|00002990| 20 20 20 20 2e 4f 50 20 | 20 2d 3e 20 77 68 69 63 | .OP | -> whic|
|000029a0| 68 20 63 61 75 73 65 73 | 20 74 68 65 20 70 72 6f |h causes| the pro|
|000029b0| 67 72 61 6d 20 74 6f 20 | 73 74 6f 70 20 73 65 61 |gram to |stop sea|
|000029c0| 72 63 68 69 6e 67 20 66 | 6f 72 20 54 61 62 6c 65 |rching f|or Table|
|000029d0| 0d 0a 20 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. * | |
|000029e0| 20 20 20 20 6f 66 20 43 | 6f 6e 74 65 6e 74 20 69 | of C|ontent i|
|000029f0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 2c 20 62 65 63 61 |nformati|on, beca|
|00002a00| 75 73 65 20 2e 4f 50 20 | 74 75 72 6e 73 20 6f 66 |use .OP |turns of|
|00002a10| 66 20 70 61 67 65 0d 0a | 20 2a 20 20 20 20 20 20 |f page..| * |
|00002a20| 20 20 20 20 20 20 20 20 | 20 20 6e 75 6d 62 65 72 | | number|
|00002a30| 20 61 6e 64 20 74 68 65 | 72 65 66 6f 72 65 20 74 | and the|refore t|
|00002a40| 68 65 72 65 20 69 73 20 | 6e 6f 20 70 61 67 65 20 |here is |no page |
|00002a50| 6e 75 6d 62 65 72 20 74 | 6f 0d 0a 20 2a 20 20 20 |number t|o.. * |
|00002a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 73 73 | | ass|
|00002a70| 6f 63 69 61 74 65 20 74 | 6f 20 74 68 65 20 54 61 |ociate t|o the Ta|
|00002a80| 62 6c 65 20 6f 66 20 43 | 6f 6e 74 65 6e 74 20 65 |ble of C|ontent e|
|00002a90| 6e 74 72 79 2c 20 61 6e | 64 20 74 68 75 73 0d 0a |ntry, an|d thus..|
|00002aa0| 20 2a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | * | |
|00002ab0| 20 20 6e 6f 20 72 65 61 | 73 6f 6e 20 74 6f 20 72 | no rea|son to r|
|00002ac0| 65 70 6f 72 74 20 61 20 | 54 61 62 6c 65 20 6f 66 |eport a |Table of|
|00002ad0| 20 43 6f 6e 74 65 6e 74 | 20 65 6e 74 72 79 2e 0d | Content| entry..|
|00002ae0| 0a 20 2a 0d 0a 20 2a 20 | 20 20 20 20 20 20 20 2e |. *.. * | .|
|00002af0| 50 41 20 20 20 20 20 77 | 68 69 63 68 20 63 61 75 |PA w|hich cau|
|00002b00| 73 65 73 20 74 68 65 20 | 70 61 67 65 20 6e 75 6d |ses the |page num|
|00002b10| 62 65 72 20 76 61 72 69 | 61 62 6c 65 20 74 6f 20 |ber vari|able to |
|00002b20| 62 65 0d 0a 20 2a 20 20 | 20 20 20 20 20 20 20 20 |be.. * | |
|00002b30| 20 20 20 20 20 20 69 6e | 63 65 72 65 6d 65 6e 74 | in|cerement|
|00002b40| 65 64 0d 0a 20 2a 20 20 | 20 20 20 20 20 20 2e 50 |ed.. * | .P|
|00002b50| 4e 20 6e 20 20 20 77 68 | 69 63 68 20 63 61 75 73 |N n wh|ich caus|
|00002b60| 65 73 20 74 68 65 20 70 | 61 67 65 20 6e 75 6d 62 |es the p|age numb|
|00002b70| 65 72 20 76 61 72 69 61 | 62 6c 65 20 74 6f 20 62 |er varia|ble to b|
|00002b80| 65 20 73 65 74 0d 0a 20 | 2a 20 20 20 20 20 20 20 |e set.. |* |
|00002b90| 20 20 20 20 20 20 20 20 | 20 74 6f 20 6e 75 6d 62 | | to numb|
|00002ba0| 65 72 20 6e 20 6f 66 20 | 74 68 65 20 2e 50 4e 20 |er n of |the .PN |
|00002bb0| 6e 20 63 6f 6d 6d 61 6e | 64 2e 20 20 6e 20 63 61 |n comman|d. n ca|
|00002bc0| 6e 20 6e 6f 74 20 62 65 | 0d 0a 20 2a 20 20 20 20 |n not be|.. * |
|00002bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 61 72 67 | | larg|
|00002be0| 65 72 20 74 68 61 6e 20 | 39 39 39 39 2e 0d 0a 20 |er than |9999... |
|00002bf0| 2a 29 0d 0a 20 20 20 20 | 50 52 4f 43 45 44 55 52 |*).. |PROCEDUR|
|00002c00| 45 20 74 65 73 74 5f 6c | 69 6e 65 3b 0d 0a 20 20 |E test_l|ine;.. |
|00002c10| 20 20 56 41 52 0d 0a 20 | 20 20 20 20 20 20 20 70 | VAR.. | p|
|00002c20| 6e 64 78 20 3a 20 69 6e | 74 65 67 65 72 3b 20 20 |ndx : in|teger; |
|00002c30| 20 20 28 2a 20 69 6e 64 | 65 78 20 66 6f 72 20 70 | (* ind|ex for p|
|00002c40| 61 67 65 5f 6e 75 6d 5f | 70 72 69 6e 74 20 61 72 |age_num_|print ar|
|00002c50| 72 61 79 20 2a 29 0d 0a | 0d 0a 20 20 20 20 62 65 |ray *)..|.. be|
|00002c60| 67 69 6e 0d 0a 20 20 20 | 20 20 20 20 20 64 6f 74 |gin.. | dot|
|00002c70| 5f 63 6d 6e 64 20 3a 3d | 20 66 61 6c 73 65 3b 20 |_cmnd :=| false; |
|00002c80| 28 2a 20 69 6e 69 74 69 | 61 6c 69 7a 65 20 64 6f |(* initi|alize do|
|00002c90| 74 5f 63 6d 6e 64 20 74 | 6f 20 66 61 6c 73 65 20 |t_cmnd t|o false |
|00002ca0| 2a 29 0d 0a 28 2a 0d 0a | 20 2a 20 73 65 61 72 63 |*)..(*..| * searc|
|00002cb0| 68 20 66 6f 72 20 2e 4f | 50 0d 0a 20 2a 29 0d 0a |h for .O|P.. *)..|
|00002cc0| 20 20 20 20 20 20 20 20 | 69 66 20 4c 69 6e 65 49 | |if LineI|
|00002cd0| 6e 5b 31 5d 20 3d 20 70 | 65 72 69 6f 64 20 74 68 |n[1] = p|eriod th|
|00002ce0| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 62 65 67 69 |en.. | begi|
|00002cf0| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |n.. | c|
|00002d00| 68 20 3a 3d 20 63 68 72 | 28 4c 69 6e 65 49 6e 5b |h := chr|(LineIn[|
|00002d10| 32 5d 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |2]);.. | |
|00002d20| 20 20 69 66 20 55 70 43 | 61 73 65 28 63 68 29 20 | if UpC|ase(ch) |
|00002d30| 3d 20 27 4f 27 20 74 68 | 65 6e 0d 0a 20 20 20 20 |= 'O' th|en.. |
|00002d40| 20 20 20 20 20 20 20 20 | 62 65 67 69 6e 0d 0a 20 | |begin.. |
|00002d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|00002d60| 68 20 3a 3d 20 63 68 72 | 28 4c 69 6e 65 49 6e 5b |h := chr|(LineIn[|
|00002d70| 33 5d 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |3]);.. | |
|00002d80| 20 20 20 20 20 20 69 66 | 20 55 70 43 61 73 65 28 | if| UpCase(|
|00002d90| 63 68 29 20 3d 20 27 50 | 27 20 74 68 65 6e 0d 0a |ch) = 'P|' then..|
|00002da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002db0| 62 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 |begin.. | |
|00002dc0| 20 20 20 20 20 20 20 20 | 20 20 20 6c 69 6e 65 20 | | line |
|00002dd0| 3a 3d 20 30 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |:= 0;.. | |
|00002de0| 20 20 20 20 20 20 20 20 | 20 20 20 64 6f 70 20 3a | | dop :|
|00002df0| 3d 20 74 72 75 65 3b 0d | 0a 20 20 20 20 20 20 20 |= true;.|. |
|00002e00| 20 20 20 20 20 20 20 20 | 20 65 6e 64 0d 0a 20 20 | | end.. |
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 65 6e 64 0d 0a 20 | | end.. |
|00002e20| 20 20 20 20 20 20 20 65 | 6e 64 3b 0d 0a 28 2a 0d | e|nd;..(*.|
|00002e30| 0a 20 2a 20 73 65 61 72 | 63 68 20 66 6f 72 20 2e |. * sear|ch for .|
|00002e40| 50 41 0d 0a 20 2a 29 0d | 0a 20 20 20 20 20 20 20 |PA.. *).|. |
|00002e50| 20 69 66 20 4c 69 6e 65 | 49 6e 5b 31 5d 20 3d 20 | if Line|In[1] = |
|00002e60| 70 65 72 69 6f 64 20 74 | 68 65 6e 0d 0a 20 20 20 |period t|hen.. |
|00002e70| 20 20 20 20 20 62 65 67 | 69 6e 0d 0a 20 20 20 20 | beg|in.. |
|00002e80| 20 20 20 20 20 20 20 20 | 63 68 20 3a 3d 20 63 68 | |ch := ch|
|00002e90| 72 28 4c 69 6e 65 49 6e | 5b 32 5d 29 3b 0d 0a 20 |r(LineIn|[2]);.. |
|00002ea0| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 55 70 | | if Up|
|00002eb0| 43 61 73 65 28 63 68 29 | 20 3d 20 27 50 27 20 74 |Case(ch)| = 'P' t|
|00002ec0| 68 65 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |hen.. | |
|00002ed0| 20 62 65 67 69 6e 0d 0a | 20 20 20 20 20 20 20 20 | begin..| |
|00002ee0| 20 20 20 20 20 20 20 20 | 63 68 20 3a 3d 20 63 68 | |ch := ch|
|00002ef0| 72 28 4c 69 6e 65 49 6e | 5b 33 5d 29 3b 0d 0a 20 |r(LineIn|[3]);.. |
|00002f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 | | i|
|00002f10| 66 20 55 70 43 61 73 65 | 28 63 68 29 20 3d 20 27 |f UpCase|(ch) = '|
|00002f20| 41 27 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |A' then.|. |
|00002f30| 20 20 20 20 20 20 20 20 | 20 62 65 67 69 6e 0d 0a | | begin..|
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 20 6c 69 6e 65 | 20 3a 3d 20 30 3b 0d 0a | line| := 0;..|
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f70| 20 20 20 20 64 6f 74 5f | 63 6d 6e 64 20 3a 3d 20 | dot_|cmnd := |
|00002f80| 74 72 75 65 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |true;.. | |
|00002f90| 20 20 20 20 20 20 20 20 | 20 20 20 70 61 67 65 5f | | page_|
|00002fa0| 6e 75 6d 20 3a 3d 20 73 | 75 63 63 28 70 61 67 65 |num := s|ucc(page|
|00002fb0| 5f 6e 75 6d 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |_num);..| |
|00002fc0| 20 20 20 20 20 20 20 20 | 65 6e 64 0d 0a 20 20 20 | |end.. |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 65 6e 64 0d 0a 20 20 | | end.. |
|00002fe0| 20 20 20 20 20 20 65 6e | 64 3b 0d 0a 28 2a 0d 0a | en|d;..(*..|
|00002ff0| 20 2a 20 73 65 61 72 63 | 68 20 66 6f 72 20 2e 50 | * searc|h for .P|
|00003000| 4e 20 6e 0d 0a 20 2a 29 | 0d 0a 20 20 20 20 20 20 |N n.. *)|.. |
|00003010| 20 20 69 66 20 4c 69 6e | 65 49 6e 5b 31 5d 20 3d | if Lin|eIn[1] =|
|00003020| 20 70 65 72 69 6f 64 20 | 74 68 65 6e 0d 0a 20 20 | period |then.. |
|00003030| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 0a 20 20 20 | be|gin.. |
|00003040| 20 20 20 20 20 20 20 20 | 63 68 20 3a 3d 20 63 68 | |ch := ch|
|00003050| 72 28 4c 69 6e 65 49 6e | 5b 32 5d 29 3b 0d 0a 20 |r(LineIn|[2]);.. |
|00003060| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 55 70 43 | | if UpC|
|00003070| 61 73 65 28 63 68 29 20 | 3d 20 27 50 27 20 74 68 |ase(ch) |= 'P' th|
|00003080| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 62 |en.. | b|
|00003090| 65 67 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |egin.. | |
|000030a0| 20 20 20 20 20 63 68 20 | 3a 3d 20 63 68 72 28 4c | ch |:= chr(L|
|000030b0| 69 6e 65 49 6e 5b 33 5d | 29 3b 0d 0a 20 20 20 20 |ineIn[3]|);.. |
|000030c0| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 55 70 | | if Up|
|000030d0| 63 61 73 65 28 63 68 29 | 20 3d 20 27 4e 27 20 74 |case(ch)| = 'N' t|
|000030e0| 68 65 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |hen.. | |
|000030f0| 20 20 20 20 62 65 67 69 | 6e 0d 0a 20 20 20 20 20 | begi|n.. |
|00003100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 69 | | li|
|00003110| 6e 65 20 3a 3d 20 30 3b | 0d 0a 20 20 20 20 20 20 |ne := 0;|.. |
|00003120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 64 6f 70 | | dop|
|00003130| 20 3a 3d 20 66 61 6c 73 | 65 3b 20 28 2a 20 72 65 | := fals|e; (* re|
|00003140| 73 65 74 20 64 6f 70 20 | 66 6c 61 67 20 2a 29 0d |set dop |flag *).|
|00003150| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003160| 20 20 20 20 64 6f 74 5f | 63 6d 6e 64 20 3a 3d 20 | dot_|cmnd := |
|00003170| 74 72 75 65 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |true;.. | |
|00003180| 20 20 20 20 20 20 20 20 | 20 20 69 6e 64 78 20 3a | | indx :|
|00003190| 3d 20 34 3b 0d 0a 28 2a | 0d 0a 20 2a 20 69 67 6e |= 4;..(*|.. * ign|
|000031a0| 6f 72 65 20 73 70 61 63 | 65 73 20 62 65 74 77 65 |ore spac|es betwe|
|000031b0| 65 6e 20 2e 70 6e 20 61 | 6e 64 20 6e 75 6d 62 65 |en .pn a|nd numbe|
|000031c0| 72 2c 20 69 66 20 61 6e | 79 0d 0a 20 2a 29 0d 0a |r, if an|y.. *)..|
|000031d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000031e0| 20 20 20 77 68 69 6c 65 | 20 4c 69 6e 65 49 6e 5b | while| LineIn[|
|000031f0| 69 6e 64 78 5d 20 3d 20 | 73 70 61 63 65 20 64 6f |indx] = |space do|
|00003200| 20 69 6e 64 78 20 3a 3d | 20 73 75 63 63 28 69 6e | indx :=| succ(in|
|00003210| 64 78 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |dx);.. | |
|00003220| 20 20 20 20 20 20 20 20 | 20 70 6e 64 78 20 3a 3d | | pndx :=|
|00003230| 20 30 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 0;.. | |
|00003240| 20 20 20 20 20 20 20 20 | 72 65 70 65 61 74 0d 0a | |repeat..|
|00003250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003260| 20 20 20 20 20 20 20 70 | 6e 64 78 20 3a 3d 20 73 | p|ndx := s|
|00003270| 75 63 63 28 70 6e 64 78 | 29 3b 0d 0a 20 20 20 20 |ucc(pndx|);.. |
|00003280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003290| 20 20 20 70 61 67 65 5f | 6e 75 6d 5f 70 72 69 6e | page_|num_prin|
|000032a0| 74 5b 70 6e 64 78 5d 20 | 3a 3d 20 4c 69 6e 65 49 |t[pndx] |:= LineI|
|000032b0| 6e 5b 69 6e 64 78 5d 3b | 0d 0a 20 20 20 20 20 20 |n[indx];|.. |
|000032c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000032d0| 20 69 6e 64 78 20 3a 3d | 20 73 75 63 63 28 69 6e | indx :=| succ(in|
|000032e0| 64 78 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |dx);.. | |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 66 20 | | if |
|00003300| 70 6e 64 78 20 3e 20 4d | 61 78 4e 75 6d 20 74 68 |pndx > M|axNum th|
|00003310| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.. | |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 62 65 67 69 6e | | begin|
|00003330| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 66 20 | | if |
|00003350| 4c 69 6e 65 49 6e 5b 69 | 6e 64 78 5d 20 3c 3e 20 |LineIn[i|ndx] <> |
|00003360| 63 72 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |cr then.|. |
|00003370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003380| 20 20 20 20 62 65 67 69 | 6e 0d 0a 20 20 20 20 20 | begi|n.. |
|00003390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033a0| 20 20 20 20 20 20 20 20 | 20 20 43 6c 72 53 63 72 | | ClrScr|
|000033b0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.. | |
|000033c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000033d0| 20 20 67 6f 74 6f 78 79 | 28 31 2c 31 30 29 3b 0d | gotoxy|(1,10);.|
|000033e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000033f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003400| 77 72 69 74 65 6c 6e 28 | 63 68 72 28 62 65 6c 6c |writeln(|chr(bell|
|00003410| 29 2c 27 49 6e 76 61 6c | 69 64 20 2e 50 4e 20 63 |),'Inval|id .PN c|
|00003420| 6f 6d 6d 61 6e 64 2c 20 | 6e 75 6d 62 65 72 20 69 |ommand, |number i|
|00003430| 73 20 74 6f 6f 20 6c 61 | 72 67 65 27 29 3b 0d 0a |s too la|rge');..|
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 | | w|
|00003460| 72 69 74 65 6c 6e 28 27 | 4c 61 73 74 20 76 61 6c |riteln('|Last val|
|00003470| 69 64 20 70 61 67 65 20 | 6e 75 6d 62 65 72 20 77 |id page |number w|
|00003480| 61 73 20 27 2c 20 70 61 | 67 65 5f 6e 75 6d 29 3b |as ', pa|ge_num);|
|00003490| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000034b0| 20 77 72 69 74 65 6c 6e | 28 27 54 61 62 6c 65 20 | writeln|('Table |
|000034c0| 6f 66 20 43 6f 6e 74 65 | 6e 74 20 70 72 6f 67 72 |of Conte|nt progr|
|000034d0| 61 6d 20 41 42 4f 52 54 | 49 4e 47 21 21 27 29 3b |am ABORT|ING!!');|
|000034e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000034f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003500| 20 64 65 6c 61 79 28 36 | 30 30 30 29 3b 0d 0a 20 | delay(6|000);.. |
|00003510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 61 | | ca|
|00003530| 6e 63 65 6c 20 3a 3d 20 | 74 72 75 65 3b 0d 0a 20 |ncel := |true;.. |
|00003540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4c 69 | | Li|
|00003560| 6e 65 49 6e 5b 69 6e 64 | 78 5d 20 3a 3d 20 63 72 |neIn[ind|x] := cr|
|00003570| 3b 20 20 28 2a 20 66 6f | 72 63 65 20 72 65 70 65 |; (* fo|rce repe|
|00003580| 61 74 20 75 6e 74 69 6c | 20 74 6f 20 65 6e 64 20 |at until| to end |
|00003590| 2a 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |*).. | |
|000035a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 65 | | e|
|000035b0| 6e 64 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |nd.. | |
|000035c0| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 64 3b 0d | | end;.|
|000035d0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000035e0| 20 20 20 20 75 6e 74 69 | 6c 20 4c 69 6e 65 49 6e | unti|l LineIn|
|000035f0| 5b 69 6e 64 78 5d 20 3d | 20 63 72 3b 0d 0a 28 2a |[indx] =| cr;..(*|
|00003600| 0d 0a 20 2a 20 74 68 65 | 20 66 6f 6c 6c 6f 77 20 |.. * the| follow |
|00003610| 63 6f 64 65 20 63 6f 6e | 76 65 72 74 73 20 74 68 |code con|verts th|
|00003620| 65 20 6e 2c 20 6f 66 20 | 74 68 65 20 2e 50 4e 20 |e n, of |the .PN |
|00003630| 6e 20 63 6f 6d 6d 61 6e | 64 2c 20 66 72 6f 6d 20 |n comman|d, from |
|00003640| 61 20 74 65 78 74 20 6e | 75 6d 62 65 72 0d 0a 20 |a text n|umber.. |
|00003650| 2a 20 74 6f 20 61 6e 20 | 69 6e 74 65 67 65 72 20 |* to an |integer |
|00003660| 6e 75 6d 62 65 72 0d 0a | 20 2a 29 0d 0a 20 20 20 |number..| *).. |
|00003670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003680| 70 61 67 65 5f 6e 75 6d | 20 3a 3d 20 70 61 67 65 |page_num| := page|
|00003690| 5f 6e 75 6d 5f 70 72 69 | 6e 74 5b 70 6e 64 78 5d |_num_pri|nt[pndx]|
|000036a0| 20 2d 20 34 38 3b 0d 0a | 20 20 20 20 20 20 20 20 | - 48;..| |
|000036b0| 20 20 20 20 20 20 20 20 | 20 20 20 43 61 73 65 20 | | Case |
|000036c0| 70 6e 64 78 20 6f 66 0d | 0a 20 20 20 20 20 20 20 |pndx of.|. |
|000036d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036e0| 32 20 3a 20 62 65 67 69 | 6e 0d 0a 20 20 20 20 20 |2 : begi|n.. |
|000036f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003700| 20 20 20 20 20 20 70 61 | 67 65 5f 6e 75 6d 20 3a | pa|ge_num :|
|00003710| 3d 20 70 61 67 65 5f 6e | 75 6d 20 2b 20 28 28 70 |= page_n|um + ((p|
|00003720| 61 67 65 5f 6e 75 6d 5f | 70 72 69 6e 74 5b 70 6e |age_num_|print[pn|
|00003730| 64 78 2d 31 5d 20 2d 20 | 34 38 29 20 2a 20 74 65 |dx-1] - |48) * te|
|00003740| 6e 73 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ns);.. | |
|00003750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003760| 20 65 6e 64 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 | end;.. | |
|00003770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 20 | | 3 |
|00003780| 3a 20 62 65 67 69 6e 0d | 0a 20 20 20 20 20 20 20 |: begin.|. |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037a0| 20 20 20 20 70 61 67 65 | 5f 6e 75 6d 20 3a 3d 20 | page|_num := |
|000037b0| 70 61 67 65 5f 6e 75 6d | 20 2b 20 28 28 70 61 67 |page_num| + ((pag|
|000037c0| 65 5f 6e 75 6d 5f 70 72 | 69 6e 74 5b 70 6e 64 78 |e_num_pr|int[pndx|
|000037d0| 2d 31 5d 20 2d 20 34 38 | 29 20 2a 20 74 65 6e 73 |-1] - 48|) * tens|
|000037e0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.. | |
|000037f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 | | p|
|00003800| 61 67 65 5f 6e 75 6d 20 | 3a 3d 20 70 61 67 65 5f |age_num |:= page_|
|00003810| 6e 75 6d 20 2b 20 28 28 | 70 61 67 65 5f 6e 75 6d |num + ((|page_num|
|00003820| 5f 70 72 69 6e 74 5b 70 | 6e 64 78 2d 32 5d 20 2d |_print[p|ndx-2] -|
|00003830| 20 34 38 29 2a 20 68 75 | 6e 64 72 65 64 73 29 3b | 48)* hu|ndreds);|
|00003840| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6e 64 | | end|
|00003860| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.. | |
|00003870| 20 20 20 20 20 20 20 20 | 20 20 34 20 3a 20 62 65 | | 4 : be|
|00003880| 67 69 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |gin.. | |
|00003890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038a0| 70 61 67 65 5f 6e 75 6d | 20 3a 3d 20 70 61 67 65 |page_num| := page|
|000038b0| 5f 6e 75 6d 20 2b 20 28 | 28 70 61 67 65 5f 6e 75 |_num + (|(page_nu|
|000038c0| 6d 5f 70 72 69 6e 74 5b | 70 6e 64 78 2d 31 5d 20 |m_print[|pndx-1] |
|000038d0| 2d 20 34 38 29 20 2a 20 | 74 65 6e 73 29 3b 0d 0a |- 48) * |tens);..|
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000038f0| 20 20 20 20 20 20 20 20 | 20 20 20 70 61 67 65 5f | | page_|
|00003900| 6e 75 6d 20 3a 3d 20 70 | 61 67 65 5f 6e 75 6d 20 |num := p|age_num |
|00003910| 2b 20 28 28 70 61 67 65 | 5f 6e 75 6d 5f 70 72 69 |+ ((page|_num_pri|
|00003920| 6e 74 5b 70 6e 64 78 2d | 32 5d 20 2d 20 34 38 29 |nt[pndx-|2] - 48)|
|00003930| 20 2a 20 68 75 6e 64 72 | 65 64 73 29 3b 0d 0a 20 | * hundr|eds);.. |
|00003940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003950| 20 20 20 20 20 20 20 20 | 20 20 70 61 67 65 5f 6e | | page_n|
|00003960| 75 6d 20 3a 3d 20 70 61 | 67 65 5f 6e 75 6d 20 2b |um := pa|ge_num +|
|00003970| 20 28 28 70 61 67 65 5f | 6e 75 6d 5f 70 72 69 6e | ((page_|num_prin|
|00003980| 74 5b 70 6e 64 78 2d 33 | 5d 20 2d 20 34 38 29 20 |t[pndx-3|] - 48) |
|00003990| 2a 20 74 68 6f 75 73 29 | 3b 0d 0a 20 20 20 20 20 |* thous)|;.. |
|000039a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039b0| 20 20 20 20 20 20 65 6e | 64 3b 0d 0a 20 20 20 20 | en|d;.. |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 65 | | e|
|000039d0| 6e 64 20 28 2a 20 63 61 | 73 65 20 2a 29 0d 0a 20 |nd (* ca|se *).. |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 65 6e | | en|
|000039f0| 64 20 28 2a 20 69 66 20 | 2a 29 0d 0a 20 20 20 20 |d (* if |*).. |
|00003a00| 20 20 20 20 20 20 20 65 | 6e 64 20 28 2a 20 69 66 | e|nd (* if|
|00003a10| 20 2a 29 0d 0a 20 20 20 | 20 20 20 20 65 6e 64 20 | *).. | end |
|00003a20| 28 2a 20 69 66 20 2a 29 | 0d 0a 20 20 20 20 20 65 |(* if *)|.. e|
|00003a30| 6e 64 3b 20 28 2a 20 70 | 72 6f 63 65 64 75 72 65 |nd; (* p|rocedure|
|00003a40| 20 74 65 73 74 5f 6c 69 | 6e 65 20 2a 29 0d 0a 0d | test_li|ne *)...|
|00003a50| 0a 0d 0a 28 2a 0d 0a 20 | 2a 20 50 72 6f 63 65 64 |...(*.. |* Proced|
|00003a60| 75 72 65 20 74 72 61 6e | 73 6c 61 74 65 5f 6c 69 |ure tran|slate_li|
|00003a70| 6e 65 20 74 72 61 6e 73 | 6c 61 74 65 73 20 66 65 |ne trans|lates fe|
|00003a80| 6e 63 65 64 20 54 61 62 | 6c 65 20 6f 66 20 43 6f |nced Tab|le of Co|
|00003a90| 6e 74 65 6e 74 20 65 6e | 74 72 69 65 73 0d 0a 20 |ntent en|tries.. |
|00003aa0| 2a 20 69 6e 74 6f 20 54 | 61 62 6c 65 20 6f 66 20 |* into T|able of |
|00003ab0| 43 6f 6e 74 65 6e 74 20 | 65 6e 74 72 69 65 73 20 |Content |entries |
|00003ac0| 69 6e 20 74 68 65 20 54 | 61 62 6c 65 20 6f 66 20 |in the T|able of |
|00003ad0| 43 6f 6e 74 65 6e 74 20 | 66 69 6c 65 2e 20 28 69 |Content |file. (i|
|00003ae0| 66 20 79 6f 75 0d 0a 20 | 2a 20 63 61 6e 20 66 69 |f you.. |* can fi|
|00003af0| 67 75 72 65 20 6f 75 74 | 20 74 68 61 74 20 6c 61 |gure out| that la|
|00003b00| 73 74 20 73 65 6e 74 65 | 6e 63 65 2c 20 79 6f 75 |st sente|nce, you|
|00003b10| 27 6c 6c 20 68 61 76 65 | 20 6e 6f 20 70 72 6f 62 |'ll have| no prob|
|00003b20| 6c 65 6d 20 77 69 74 68 | 20 74 68 65 0d 0a 20 2a |lem with| the.. *|
|00003b30| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 29 20 43 | this pr|ogram) C|
|00003b40| 6f 6e 74 72 6f 6c 20 52 | 20 69 73 20 74 68 65 20 |ontrol R| is the |
|00003b50| 66 65 6e 63 65 20 63 68 | 61 72 61 63 74 65 72 2e |fence ch|aracter.|
|00003b60| 20 54 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 0d | This pr|ocedure.|
|00003b70| 0a 20 2a 20 73 65 61 72 | 63 68 65 73 20 66 6f 72 |. * sear|ches for|
|00003b80| 20 61 20 43 6f 6e 74 72 | 6f 6c 20 52 2e 20 57 68 | a Contr|ol R. Wh|
|00003b90| 65 6e 20 74 68 65 20 66 | 69 72 73 74 20 43 6f 6e |en the f|irst Con|
|00003ba0| 74 72 6f 6c 20 52 20 69 | 73 20 65 6e 63 6f 75 6e |trol R i|s encoun|
|00003bb0| 74 65 72 65 64 2c 20 61 | 0d 0a 20 2a 20 66 6c 61 |tered, a|.. * fla|
|00003bc0| 67 20 28 43 6f 6e 74 72 | 6f 6c 52 5f 31 29 20 69 |g (Contr|olR_1) i|
|00003bd0| 73 20 73 65 74 20 74 72 | 75 65 20 61 6e 64 20 74 |s set tr|ue and t|
|00003be0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 63 68 61 |he follo|wing cha|
|00003bf0| 72 61 63 74 65 72 73 20 | 61 72 65 20 77 72 69 74 |racters |are writ|
|00003c00| 74 65 6e 0d 0a 20 2a 20 | 74 6f 20 74 68 65 20 54 |ten.. * |to the T|
|00003c10| 61 62 6c 65 20 6f 66 20 | 43 6f 6e 74 65 6e 74 20 |able of |Content |
|00003c20| 66 69 6c 65 2e 20 57 68 | 65 6e 20 61 20 73 65 63 |file. Wh|en a sec|
|00003c30| 6f 6e 64 20 63 6f 6e 74 | 72 6f 6c 20 52 20 69 73 |ond cont|rol R is|
|00003c40| 20 66 6f 75 6e 64 20 74 | 68 65 6e 20 61 0d 0a 20 | found t|hen a.. |
|00003c50| 2a 20 66 6c 61 67 20 28 | 43 6f 6e 74 72 6f 6c 52 |* flag (|ControlR|
|00003c60| 5f 32 29 20 69 73 20 73 | 65 74 20 74 72 75 65 2c |_2) is s|et true,|
|00003c70| 20 77 68 69 63 68 20 65 | 6e 64 73 20 63 68 61 72 | which e|nds char|
|00003c80| 61 63 74 65 72 20 77 72 | 69 74 74 69 6e 67 20 74 |acter wr|itting t|
|00003c90| 6f 20 74 68 65 0d 0a 20 | 2a 20 54 61 62 6c 65 20 |o the.. |* Table |
|00003ca0| 6f 66 20 43 6f 6e 74 65 | 6e 74 20 66 69 6c 65 2c |of Conte|nt file,|
|00003cb0| 20 63 6c 65 61 72 73 20 | 62 6f 74 68 20 43 6f 6e | clears |both Con|
|00003cc0| 74 72 6f 6c 20 52 20 66 | 6c 61 67 73 2c 20 66 6f |trol R f|lags, fo|
|00003cd0| 72 6d 61 74 73 20 74 68 | 65 20 72 65 73 74 0d 0a |rmats th|e rest..|
|00003ce0| 20 2a 20 6f 66 20 74 68 | 65 20 54 61 62 6c 65 20 | * of th|e Table |
|00003cf0| 6f 66 20 43 6f 6e 74 65 | 6e 74 20 6c 69 6e 65 2c |of Conte|nt line,|
|00003d00| 20 61 6e 64 20 70 75 74 | 73 20 69 6e 20 74 68 65 | and put|s in the|
|00003d10| 20 70 61 67 65 20 6e 75 | 6d 62 65 72 20 66 6f 72 | page nu|mber for|
|00003d20| 20 74 68 61 74 0d 0a 20 | 2a 20 65 6e 74 72 79 2e | that.. |* entry.|
|00003d30| 0d 0a 20 2a 29 0d 0a 20 | 20 20 20 50 52 4f 43 45 |.. *).. | PROCE|
|00003d40| 44 55 52 45 20 74 72 61 | 6e 73 6c 61 74 65 5f 6c |DURE tra|nslate_l|
|00003d50| 69 6e 65 3b 0d 0a 20 20 | 20 20 56 41 52 0d 0a 20 |ine;.. | VAR.. |
|00003d60| 20 20 20 20 20 20 20 69 | 6e 64 78 31 20 3a 20 69 | i|ndx1 : i|
|00003d70| 6e 74 65 67 65 72 3b 20 | 20 20 20 20 20 20 20 20 |nteger; | |
|00003d80| 28 2a 20 69 6e 64 65 78 | 20 75 73 65 64 20 74 6f |(* index| used to|
|00003d90| 20 73 74 65 70 20 74 68 | 72 75 20 74 68 65 20 69 | step th|ru the i|
|00003da0| 6e 70 75 74 20 6c 69 6e | 65 20 2a 29 0d 0a 20 20 |nput lin|e *).. |
|00003db0| 20 20 20 20 20 20 52 65 | 6d 61 69 6e 43 68 72 73 | Re|mainChrs|
|00003dc0| 20 3a 20 69 6e 74 65 67 | 65 72 3b 20 20 20 20 28 | : integ|er; (|
|00003dd0| 2a 20 76 61 72 69 61 62 | 6c 65 20 74 6f 20 63 6f |* variab|le to co|
|00003de0| 6e 74 61 69 6e 20 74 68 | 65 20 6e 75 6d 62 65 72 |ntain th|e number|
|00003df0| 20 6f 66 20 20 20 2a 29 | 0d 0a 20 20 20 20 20 20 | of *)|.. |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e10| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 20 20 | | (* |
|00003e20| 20 63 68 61 72 61 63 74 | 65 72 73 20 72 65 6d 61 | charact|ers rema|
|00003e30| 69 6e 69 6e 67 20 69 6e | 20 74 68 65 20 54 42 43 |ining in| the TBC|
|00003e40| 20 20 2a 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | *).. | |
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003e60| 20 20 20 20 20 20 20 28 | 2a 20 20 20 20 6c 69 6e | (|* lin|
|00003e70| 65 20 62 65 69 6e 67 20 | 70 72 69 6e 74 65 64 2e |e being |printed.|
|00003e80| 20 55 73 65 64 20 66 6f | 72 20 20 20 20 20 2a 29 | Used fo|r *)|
|00003e90| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00003ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003eb0| 20 20 20 28 2a 20 20 20 | 20 66 6f 72 6d 61 74 74 | (* | formatt|
|00003ec0| 69 6e 67 20 54 42 43 20 | 6c 69 6e 65 73 20 73 6f |ing TBC |lines so|
|00003ed0| 20 74 68 61 74 20 20 20 | 20 20 2a 29 0d 0a 20 20 | that | *).. |
|00003ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00003f00| 2a 20 20 20 20 74 68 65 | 79 20 6c 6f 6f 6b 20 75 |* the|y look u|
|00003f10| 6e 69 66 6f 72 6d 2e 20 | 20 20 20 20 20 20 20 20 |niform. | |
|00003f20| 20 20 20 20 20 20 2a 29 | 0d 0a 0d 0a 20 20 20 20 | *)|.... |
|00003f30| 62 65 67 69 6e 20 28 2a | 20 70 72 6f 63 65 64 75 |begin (*| procedu|
|00003f40| 72 65 20 74 72 61 6e 73 | 6c 61 74 65 5f 6c 69 6e |re trans|late_lin|
|00003f50| 65 20 2a 29 0d 0a 20 20 | 20 20 20 20 20 20 66 6f |e *).. | fo|
|00003f60| 72 20 69 6e 64 78 31 20 | 3a 3d 20 31 20 74 6f 20 |r indx1 |:= 1 to |
|00003f70| 63 68 72 63 6e 74 20 64 | 6f 20 20 20 20 28 2a 20 |chrcnt d|o (* |
|00003f80| 70 72 6f 63 65 73 73 20 | 65 76 65 72 79 20 63 68 |process |every ch|
|00003f90| 61 72 61 63 74 65 72 20 | 69 6e 20 74 68 65 20 6c |aracter |in the l|
|00003fa0| 69 6e 65 20 2a 29 0d 0a | 20 20 20 20 20 20 20 20 |ine *)..| |
|00003fb0| 62 65 67 69 6e 0d 0a 28 | 2a 0d 0a 20 2a 20 63 68 |begin..(|*.. * ch|
|00003fc0| 65 63 6b 20 66 6f 72 20 | 61 20 5e 52 0d 0a 20 2a |eck for |a ^R.. *|
|00003fd0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |).. | i|
|00003fe0| 66 20 4c 69 6e 65 49 6e | 5b 69 6e 64 78 31 5d 20 |f LineIn|[indx1] |
|00003ff0| 3d 20 63 74 6c 72 20 74 | 68 65 6e 0d 0a 20 20 20 |= ctlr t|hen.. |
|00004000| 20 20 20 20 20 20 20 20 | 20 62 65 67 69 6e 0d 0a | | begin..|
|00004010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004020| 69 6e 64 78 31 20 3a 3d | 20 73 75 63 63 28 69 6e |indx1 :=| succ(in|
|00004030| 64 78 31 29 3b 0d 0a 28 | 2a 0d 0a 20 2a 20 69 66 |dx1);..(|*.. * if|
|00004040| 20 61 20 5e 52 20 66 6f | 75 6e 64 2c 20 74 68 65 | a ^R fo|und, the|
|00004050| 6e 20 64 65 74 65 72 6d | 69 6e 65 20 77 68 69 63 |n determ|ine whic|
|00004060| 68 20 6f 6e 65 0d 0a 20 | 2a 29 0d 0a 20 20 20 20 |h one.. |*).. |
|00004070| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 66 20 28 | | if (|
|00004080| 43 6f 6e 74 72 6f 6c 52 | 5f 31 29 20 74 68 65 6e |ControlR|_1) then|
|00004090| 20 43 6f 6e 74 72 6f 6c | 52 5f 32 20 3a 3d 20 74 | Control|R_2 := t|
|000040a0| 72 75 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |rue.. | |
|000040b0| 20 20 20 20 20 65 6c 73 | 65 20 43 6f 6e 74 72 6f | els|e Contro|
|000040c0| 6c 52 5f 31 20 3a 3d 20 | 74 72 75 65 3b 0d 0a 20 |lR_1 := |true;.. |
|000040d0| 20 20 20 20 20 20 20 20 | 20 20 20 65 6e 64 3b 0d | | end;.|
|000040e0| 0a 28 2a 0d 0a 20 2a 20 | 74 68 65 20 66 6f 6c 6c |.(*.. * |the foll|
|000040f0| 77 6f 69 6e 67 20 63 6f | 64 65 20 69 73 20 65 78 |woing co|de is ex|
|00004100| 65 63 75 74 65 64 20 69 | 66 20 74 68 65 20 32 6e |ecuted i|f the 2n|
|00004110| 64 20 5e 52 20 69 73 20 | 66 6f 75 6e 64 0d 0a 20 |d ^R is |found.. |
|00004120| 2a 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |*).. | |
|00004130| 69 66 20 43 6f 6e 74 72 | 6f 6c 52 5f 32 20 74 68 |if Contr|olR_2 th|
|00004140| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.. | |
|00004150| 62 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 |begin.. | |
|00004160| 20 20 20 20 20 20 20 43 | 6f 6e 74 72 6f 6c 52 5f | C|ontrolR_|
|00004170| 31 20 3a 3d 20 66 61 6c | 73 65 3b 0d 0a 20 20 20 |1 := fal|se;.. |
|00004180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 6f 6e | | Con|
|00004190| 74 72 6f 6c 52 5f 32 20 | 3a 3d 20 66 61 6c 73 65 |trolR_2 |:= false|
|000041a0| 3b 0d 0a 28 2a 0d 0a 20 | 2a 20 6b 65 65 70 20 54 |;..(*.. |* keep T|
|000041b0| 42 43 20 6c 69 6e 65 73 | 20 74 6f 20 35 35 20 63 |BC lines| to 55 c|
|000041c0| 68 61 72 61 63 74 65 72 | 73 20 77 69 64 65 2c 20 |haracter|s wide, |
|000041d0| 6d 61 78 0d 0a 20 2a 29 | 0d 0a 20 20 20 20 20 20 |max.. *)|.. |
|000041e0| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 43 68 4e | | if ChN|
|000041f0| 75 6d 20 3e 20 4d 61 78 | 43 68 72 73 20 74 68 65 |um > Max|Chrs the|
|00004200| 6e 20 43 68 4e 75 6d 20 | 3a 3d 20 4d 61 78 43 68 |n ChNum |:= MaxCh|
|00004210| 72 73 3b 0d 0a 28 2a 20 | 20 64 65 74 65 72 6d 69 |rs;..(* | determi|
|00004220| 6e 65 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ne the n|umber of|
|00004230| 20 63 68 61 72 61 63 74 | 65 72 73 20 6e 6f 74 20 | charact|ers not |
|00004240| 75 73 65 64 2c 20 6f 75 | 74 20 6f 66 20 61 20 6d |used, ou|t of a m|
|00004250| 61 78 2e 20 6f 66 20 35 | 35 20 2a 29 0d 0a 20 20 |ax. of 5|5 *).. |
|00004260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004270| 20 20 52 65 6d 61 69 6e | 43 68 72 73 20 3a 3d 20 | Remain|Chrs := |
|00004280| 4d 61 78 43 68 72 73 20 | 2d 20 43 68 4e 75 6d 3b |MaxChrs |- ChNum;|
|00004290| 0d 0a 28 2a 20 20 69 66 | 20 52 65 6d 61 69 6e 43 |..(* if| RemainC|
|000042a0| 68 72 73 20 64 6f 65 73 | 20 6e 6f 74 20 64 69 76 |hrs does| not div|
|000042b0| 69 64 65 20 65 76 65 6e | 6c 79 20 62 79 20 32 2c |ide even|ly by 2,|
|000042c0| 20 74 68 65 6e 20 61 20 | 73 70 61 63 65 20 69 73 | then a |space is|
|000042d0| 20 20 20 20 20 20 20 2a | 29 0d 0a 28 2a 20 20 6e | *|)..(* n|
|000042e0| 65 65 64 65 64 20 62 65 | 66 6f 72 65 20 79 6f 75 |eeded be|fore you|
|000042f0| 20 63 61 6e 20 73 74 61 | 72 74 20 70 75 74 74 69 | can sta|rt putti|
|00004300| 6e 67 20 74 68 65 20 64 | 6f 74 73 20 6f 6e 20 74 |ng the d|ots on t|
|00004310| 68 65 20 54 42 43 20 6c | 69 6e 65 20 20 20 20 20 |he TBC l|ine |
|00004320| 2a 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |*).. | |
|00004330| 20 20 20 20 20 20 20 20 | 69 66 20 28 52 65 6d 61 | |if (Rema|
|00004340| 69 6e 43 68 72 73 20 4d | 4f 44 20 32 29 20 3e 20 |inChrs M|OD 2) > |
|00004350| 30 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 20 |0 then..| |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004370| 77 72 69 74 65 28 6f 75 | 74 66 69 6c 65 2c 20 27 |write(ou|tfile, '|
|00004380| 20 27 29 3b 0d 0a 28 2a | 20 20 69 6e 74 65 67 65 | ');..(*| intege|
|00004390| 72 20 64 69 76 2e 20 6f | 66 20 52 65 6d 61 69 6e |r div. o|f Remain|
|000043a0| 43 68 72 73 20 62 79 20 | 32 20 79 69 65 6c 64 73 |Chrs by |2 yields|
|000043b0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 64 | the num|ber of d|
|000043c0| 6f 74 73 20 74 6f 20 62 | 65 20 20 2a 29 0d 0a 28 |ots to b|e *)..(|
|000043d0| 2a 20 20 70 72 69 6e 74 | 65 64 20 20 20 20 20 20 |* print|ed |
|000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000043f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004410| 20 20 20 20 2a 29 0d 0a | 20 20 20 20 20 20 20 20 | *)..| |
|00004420| 20 20 20 20 20 20 20 20 | 52 65 6d 61 69 6e 43 68 | |RemainCh|
|00004430| 72 73 20 3a 3d 20 52 65 | 6d 61 69 6e 43 68 72 73 |rs := Re|mainChrs|
|00004440| 20 44 49 56 20 32 3b 0d | 0a 20 20 20 20 20 20 20 | DIV 2;.|. |
|00004450| 20 20 20 20 20 20 20 20 | 20 77 72 69 74 65 28 6f | | write(o|
|00004460| 75 74 66 69 6c 65 2c 20 | 27 20 27 29 3b 0d 0a 28 |utfile, |' ');..(|
|00004470| 2a 20 20 70 72 69 6e 74 | 20 74 68 65 20 64 6f 74 |* print| the dot|
|00004480| 73 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s | |
|00004490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044b0| 20 20 20 20 2a 29 0d 0a | 20 20 20 20 20 20 20 20 | *)..| |
|000044c0| 20 20 20 20 20 20 20 20 | 66 6f 72 20 4c 6f 6f 70 | |for Loop|
|000044d0| 43 6e 74 72 20 3a 3d 20 | 31 20 74 6f 20 52 65 6d |Cntr := |1 to Rem|
|000044e0| 61 69 6e 43 68 72 73 20 | 64 6f 0d 0a 20 20 20 20 |ainChrs |do.. |
|000044f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004500| 77 72 69 74 65 28 6f 75 | 74 66 69 6c 65 2c 20 27 |write(ou|tfile, '|
|00004510| 2e 20 27 29 3b 0d 0a 28 | 2a 20 20 70 72 69 6e 74 |. ');..(|* print|
|00004520| 20 74 68 65 20 70 61 67 | 65 20 6e 75 6d 62 65 72 | the pag|e number|
|00004530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 29 0d 0a | | *)..|
|00004560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004570| 77 72 69 74 65 28 6f 75 | 74 66 69 6c 65 2c 20 70 |write(ou|tfile, p|
|00004580| 61 67 65 5f 6e 75 6d 3a | 34 29 3b 0d 0a 20 20 20 |age_num:|4);.. |
|00004590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 72 69 | | wri|
|000045a0| 74 65 6c 6e 28 6f 75 74 | 66 69 6c 65 29 3b 0d 0a |teln(out|file);..|
|000045b0| 28 2a 20 69 6e 63 65 72 | 65 6d 65 6e 74 20 74 68 |(* incer|ement th|
|000045c0| 65 20 54 42 43 20 6c 69 | 6e 65 20 63 6f 75 6e 74 |e TBC li|ne count|
|000045d0| 65 72 20 61 6e 64 20 72 | 65 73 65 74 20 74 68 65 |er and r|eset the|
|000045e0| 20 54 42 43 20 63 68 61 | 72 61 63 74 65 72 20 20 | TBC cha|racter |
|000045f0| 20 20 20 20 20 2a 29 0d | 0a 28 2a 20 20 63 6f 75 | *).|.(* cou|
|00004600| 6e 74 65 72 20 74 6f 20 | 31 20 20 20 20 20 20 20 |nter to |1 |
|00004610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 29 | | *)|
|00004640| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00004650| 20 20 54 62 6c 4c 69 6e | 65 20 3a 3d 20 73 75 63 | TblLin|e := suc|
|00004660| 63 28 54 62 6c 4c 69 6e | 65 29 3b 0d 0a 20 20 20 |c(TblLin|e);.. |
|00004670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 43 68 4e | | ChN|
|00004680| 75 6d 20 3a 3d 20 31 0d | 0a 20 20 20 20 20 20 20 |um := 1.|. |
|00004690| 20 20 20 20 20 65 6e 64 | 3b 0d 0a 28 2a 0d 0a 20 | end|;..(*.. |
|000046a0| 2a 20 74 68 65 20 66 6f | 6c 6c 77 6f 69 6e 67 20 |* the fo|llwoing |
|000046b0| 63 6f 64 65 20 69 73 20 | 65 78 65 63 75 74 65 64 |code is |executed|
|000046c0| 20 69 66 20 74 68 65 20 | 31 73 74 20 5e 52 20 69 | if the |1st ^R i|
|000046d0| 73 20 66 6f 75 6e 64 0d | 0a 20 2a 29 0d 0a 20 20 |s found.|. *).. |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 43 6f 6e | | if Con|
|000046f0| 74 72 6f 6c 52 5f 31 20 | 74 68 65 6e 0d 0a 20 20 |trolR_1 |then.. |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 62 65 67 69 6e 0d | | begin.|
|00004710| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004720| 20 69 66 20 43 68 4e 75 | 6d 20 3d 20 31 20 74 68 | if ChNu|m = 1 th|
|00004730| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.. | |
|00004740| 20 20 20 20 62 65 67 69 | 6e 0d 0a 20 20 20 20 20 | begi|n.. |
|00004750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 | | w|
|00004760| 72 69 74 65 28 6f 75 74 | 66 69 6c 65 2c 20 27 20 |rite(out|file, ' |
|00004770| 20 20 27 29 3b 20 20 20 | 20 28 2a 20 69 6e 64 65 | '); | (* inde|
|00004780| 6e 74 20 65 61 63 68 20 | 54 42 43 20 6c 69 6e 65 |nt each |TBC line|
|00004790| 20 62 79 20 33 20 63 68 | 61 72 2e 73 20 2a 29 0d | by 3 ch|ar.s *).|
|000047a0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000047b0| 20 65 6e 64 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 | end;.. | |
|000047c0| 20 20 20 20 20 20 20 69 | 66 20 43 68 4e 75 6d 20 | i|f ChNum |
|000047d0| 3c 20 4d 61 78 43 68 72 | 73 20 74 68 65 6e 0d 0a |< MaxChr|s then..|
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000047f0| 62 65 67 69 6e 0d 0a 28 | 2a 0d 0a 20 2a 20 43 52 |begin..(|*.. * CR|
|00004800| 20 61 6e 64 20 4c 46 20 | 61 72 65 20 66 69 6c 74 | and LF |are filt|
|00004810| 65 72 65 64 20 66 72 6f | 6d 20 54 61 62 6c 65 20 |ered fro|m Table |
|00004820| 6f 66 20 43 6f 6e 74 65 | 6e 74 20 65 6e 74 72 69 |of Conte|nt entri|
|00004830| 65 73 2c 20 69 6e 20 74 | 68 65 20 65 76 65 6e 74 |es, in t|he event|
|00004840| 0d 0a 20 2a 20 74 68 61 | 74 20 61 6e 20 65 6e 74 |.. * tha|t an ent|
|00004850| 72 79 20 73 70 61 6e 73 | 20 61 20 6c 69 6e 65 2e |ry spans| a line.|
|00004860| 0d 0a 20 2a 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |.. *).. | |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 4c 69 | | if Li|
|00004880| 6e 65 49 6e 5b 69 6e 64 | 78 31 5d 20 3c 3e 20 63 |neIn[ind|x1] <> c|
|00004890| 72 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 20 |r then..| |
|000048a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 65 67 69 | | begi|
|000048b0| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.. | |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 4c 69 | | if Li|
|000048d0| 6e 65 49 6e 5b 69 6e 64 | 78 31 5d 20 3c 3e 20 6c |neIn[ind|x1] <> l|
|000048e0| 66 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 20 |f then..| |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004900| 62 65 67 69 6e 0d 0a 28 | 2a 0d 0a 20 2a 20 66 69 |begin..(|*.. * fi|
|00004910| 6c 74 65 72 20 6f 75 74 | 20 63 6f 6e 74 72 6f 6c |lter out| control|
|00004920| 20 63 68 61 72 61 63 74 | 65 72 73 0d 0a 20 2a 29 | charact|ers.. *)|
|00004930| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00004940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 69 66 | | if|
|00004950| 20 4c 69 6e 65 49 6e 5b | 69 6e 64 78 31 5d 20 3e | LineIn[|indx1] >|
|00004960| 20 33 31 20 74 68 65 6e | 0d 0a 20 20 20 20 20 20 | 31 then|.. |
|00004970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004980| 20 20 20 20 20 20 62 65 | 67 69 6e 0d 0a 20 20 20 | be|gin.. |
|00004990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 68 20 | | ch |
|000049b0| 3a 3d 20 63 68 72 28 4c | 69 6e 65 49 6e 5b 69 6e |:= chr(L|ineIn[in|
|000049c0| 64 78 31 5d 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |dx1]);..| |
|000049d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000049e0| 20 20 20 20 20 20 20 20 | 77 72 69 74 65 28 6f 75 | |write(ou|
|000049f0| 74 66 69 6c 65 2c 20 55 | 70 43 61 73 65 28 63 68 |tfile, U|pCase(ch|
|00004a00| 29 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |));.. | |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a20| 20 20 20 20 20 43 68 4e | 75 6d 20 3a 3d 20 73 75 | ChN|um := su|
|00004a30| 63 63 28 43 68 4e 75 6d | 29 0d 0a 20 20 20 20 20 |cc(ChNum|).. |
|00004a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a50| 20 20 20 20 20 20 20 65 | 6e 64 20 28 2a 20 69 66 | e|nd (* if|
|00004a60| 20 3e 20 33 31 20 2a 29 | 0d 0a 20 20 20 20 20 20 | > 31 *)|.. |
|00004a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a80| 20 20 65 6e 64 20 28 2a | 20 69 66 20 6c 66 20 2a | end (*| if lf *|
|00004a90| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).. | |
|00004aa0| 20 20 20 20 20 20 20 65 | 6e 64 20 28 2a 20 69 66 | e|nd (* if|
|00004ab0| 20 63 72 20 2a 29 0d 0a | 20 20 20 20 20 20 20 20 | cr *)..| |
|00004ac0| 20 20 20 20 20 20 20 20 | 65 6e 64 20 28 2a 20 69 | |end (* i|
|00004ad0| 66 20 43 68 4e 75 6d 20 | 2a 29 0d 0a 20 20 20 20 |f ChNum |*).. |
|00004ae0| 20 20 20 20 20 20 20 20 | 65 6e 64 20 28 2a 20 69 | |end (* i|
|00004af0| 66 20 2a 29 0d 0a 20 20 | 20 20 20 20 20 20 65 6e |f *).. | en|
|00004b00| 64 3b 20 28 2a 20 66 6f | 72 20 2a 29 0d 0a 20 20 |d; (* fo|r *).. |
|00004b10| 20 20 65 6e 64 3b 20 28 | 2a 20 70 72 6f 63 65 64 | end; (|* proced|
|00004b20| 75 72 65 20 74 72 61 6e | 73 6c 61 74 65 5f 6c 69 |ure tran|slate_li|
|00004b30| 6e 65 20 2a 29 0d 0a 0d | 0a 0d 0a 28 2a 0d 0a 20 |ne *)...|...(*.. |
|00004b40| 2a 20 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |* The fo|llowing |
|00004b50| 66 75 6e 63 74 69 6f 6e | 20 72 65 74 75 72 6e 73 |function| returns|
|00004b60| 20 61 20 74 72 75 65 20 | 76 61 6c 75 65 20 69 66 | a true |value if|
|00004b70| 20 74 68 65 0d 0a 20 2a | 20 63 68 61 72 61 63 74 | the.. *| charact|
|00004b80| 65 72 20 69 6e 70 75 74 | 20 77 61 73 20 61 20 22 |er input| was a "|
|00004b90| 59 22 20 6f 72 20 22 79 | 22 0d 0a 20 2a 29 0d 0a |Y" or "y|".. *)..|
|00004ba0| 20 20 20 20 46 55 4e 43 | 54 49 4f 4e 20 69 6e 79 | FUNC|TION iny|
|00004bb0| 6e 20 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 0a 20 20 |n : bool|ean;.. |
|00004bc0| 20 20 56 41 52 0d 0a 20 | 20 20 20 20 20 20 20 61 | VAR.. | a|
|00004bd0| 6e 73 20 3a 20 73 74 72 | 69 6e 67 5b 31 30 5d 3b |ns : str|ing[10];|
|00004be0| 0d 0a 0d 0a 20 20 20 20 | 62 65 67 69 6e 0d 0a 20 |.... |begin.. |
|00004bf0| 20 20 20 20 20 20 20 77 | 72 69 74 65 28 27 59 2f | w|rite('Y/|
|00004c00| 4e 20 20 27 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |N ');..| |
|00004c10| 72 65 61 64 6c 6e 28 61 | 6e 73 29 3b 0d 0a 20 20 |readln(a|ns);.. |
|00004c20| 20 20 20 20 20 20 69 6e | 79 6e 20 3a 3d 20 28 55 | in|yn := (U|
|00004c30| 70 43 61 73 65 28 61 6e | 73 5b 31 5d 29 20 3d 20 |pCase(an|s[1]) = |
|00004c40| 27 59 27 29 0d 0a 20 20 | 20 20 65 6e 64 3b 20 28 |'Y').. | end; (|
|00004c50| 2a 20 66 75 6e 63 74 69 | 6f 6e 20 69 6e 79 6e 20 |* functi|on inyn |
|00004c60| 2a 29 0d 0a 0d 0a 0d 0a | 20 20 28 2a 0d 0a 20 20 |*)......| (*.. |
|00004c70| 20 2a 20 54 68 65 20 70 | 72 6f 63 65 73 73 20 70 | * The p|rocess p|
|00004c80| 72 6f 63 65 64 75 72 65 | 20 63 6f 6e 74 72 6f 6c |rocedure| control|
|00004c90| 73 20 54 61 62 6c 65 20 | 6f 66 20 43 6f 6e 74 65 |s Table |of Conte|
|00004ca0| 6e 74 20 70 72 6f 63 65 | 73 73 69 6e 67 2c 0d 0a |nt proce|ssing,..|
|00004cb0| 20 20 20 2a 20 69 66 20 | 74 68 65 20 70 72 6f 67 | * if |the prog|
|00004cc0| 72 61 6d 20 69 73 20 6e | 6f 74 20 63 61 6e 63 65 |ram is n|ot cance|
|00004cd0| 6c 65 64 20 61 74 20 74 | 68 65 20 6f 70 65 6e 5f |led at t|he open_|
|00004ce0| 66 69 6c 65 20 70 72 6f | 63 65 64 75 72 65 2e 0d |file pro|cedure..|
|00004cf0| 0a 20 20 20 2a 20 54 68 | 69 73 20 70 72 6f 63 65 |. * Th|is proce|
|00004d00| 64 75 72 65 20 65 78 65 | 63 75 74 65 73 20 67 65 |dure exe|cutes ge|
|00004d10| 74 5f 6c 69 6e 65 20 74 | 6f 20 72 65 74 72 69 65 |t_line t|o retrie|
|00004d20| 76 65 20 61 20 6c 69 6e | 65 20 66 72 6f 6d 0d 0a |ve a lin|e from..|
|00004d30| 20 20 20 2a 20 74 68 65 | 20 69 6e 70 75 74 20 66 | * the| input f|
|00004d40| 69 6c 65 3b 20 65 78 65 | 63 75 74 65 73 20 74 65 |ile; exe|cutes te|
|00004d50| 73 74 5f 6c 69 6e 65 20 | 74 6f 20 73 65 61 72 63 |st_line |to searc|
|00004d60| 68 20 66 6f 72 20 57 6f | 72 64 53 74 61 72 0d 0a |h for Wo|rdStar..|
|00004d70| 20 20 20 2a 20 64 6f 74 | 20 63 6f 6d 6d 61 6e 64 | * dot| command|
|00004d80| 73 3b 20 65 78 65 63 75 | 74 65 73 20 74 72 61 6e |s; execu|tes tran|
|00004d90| 73 6c 61 74 65 5f 6c 69 | 6e 65 2c 20 64 65 70 65 |slate_li|ne, depe|
|00004da0| 6e 64 69 6e 67 20 6f 6e | 20 74 68 65 0d 0a 20 20 |nding on| the.. |
|00004db0| 20 2a 20 72 65 73 75 6c | 74 73 20 6f 66 20 74 65 | * resul|ts of te|
|00004dc0| 73 74 5f 6c 69 6e 65 2c | 20 61 6e 64 20 63 6f 75 |st_line,| and cou|
|00004dd0| 6e 74 73 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |nts the |number o|
|00004de0| 66 20 70 61 67 65 73 20 | 6f 66 0d 0a 20 20 20 2a |f pages |of.. *|
|00004df0| 20 69 6e 70 75 74 20 74 | 6f 20 62 65 20 73 63 61 | input t|o be sca|
|00004e00| 6e 6e 65 64 20 66 6f 72 | 20 54 61 62 6c 65 20 6f |nned for| Table o|
|00004e10| 66 20 43 6f 6e 74 65 6e | 74 20 65 6e 74 72 69 65 |f Conten|t entrie|
|00004e20| 73 2e 0d 0a 20 20 20 2a | 29 0d 0a 20 20 20 20 50 |s... *|).. P|
|00004e30| 52 4f 43 45 44 55 52 45 | 20 70 72 6f 63 65 73 73 |ROCEDURE| process|
|00004e40| 3b 0d 0a 20 20 20 20 56 | 41 52 0d 0a 20 20 20 20 |;.. V|AR.. |
|00004e50| 20 20 20 20 63 6f 6e 74 | 6e 75 20 3a 20 62 6f 6f | cont|nu : boo|
|00004e60| 6c 65 61 6e 3b 20 20 20 | 28 2a 20 73 65 74 20 66 |lean; |(* set f|
|00004e70| 61 6c 73 65 20 69 66 20 | 70 72 6f 67 72 61 6d 20 |alse if |program |
|00004e80| 69 73 20 74 6f 20 62 65 | 20 2a 29 0d 0a 20 20 20 |is to be| *).. |
|00004e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004ea0| 20 20 20 20 20 20 20 20 | 20 28 2a 20 20 20 20 20 | | (* |
|00004eb0| 61 62 6e 6f 72 6d 61 6c | 6c 79 20 65 6e 64 65 64 |abnormal|ly ended|
|00004ec0| 20 2a 29 0d 0a 0d 0a 20 | 20 20 20 42 45 47 49 4e | *).... | BEGIN|
|00004ed0| 0d 0a 20 20 20 20 20 20 | 20 20 63 6f 6e 74 6e 75 |.. | contnu|
|00004ee0| 20 3a 3d 20 74 72 75 65 | 3b 0d 0a 20 20 20 20 20 | := true|;.. |
|00004ef0| 20 20 20 67 6f 74 6f 78 | 79 28 31 2c 31 32 29 3b | gotox|y(1,12);|
|00004f00| 0d 0a 20 20 20 20 20 20 | 20 20 77 72 69 74 65 28 |.. | write(|
|00004f10| 27 50 61 67 65 20 23 20 | 27 29 3b 0d 0a 20 20 20 |'Page # |');.. |
|00004f20| 20 20 20 20 20 77 68 69 | 6c 65 20 63 6f 6e 74 6e | whi|le contn|
|00004f30| 75 20 64 6f 0d 0a 20 20 | 20 20 20 20 20 20 62 65 |u do.. | be|
|00004f40| 67 69 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |gin.. | |
|00004f50| 20 67 65 74 5f 6c 69 6e | 65 3b 0d 0a 20 20 20 20 | get_lin|e;.. |
|00004f60| 20 20 20 20 20 20 20 20 | 74 65 73 74 5f 6c 69 6e | |test_lin|
|00004f70| 65 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |e;.. | |
|00004f80| 69 66 20 6e 6f 74 20 63 | 61 6e 63 65 6c 20 74 68 |if not c|ancel th|
|00004f90| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.. | |
|00004fa0| 62 65 67 69 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 |begin.. | |
|00004fb0| 20 20 20 20 20 20 20 69 | 66 20 6e 6f 74 20 64 6f | i|f not do|
|00004fc0| 70 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 20 |p then..| |
|00004fd0| 20 20 20 20 20 20 20 20 | 62 65 67 69 6e 0d 0a 20 | |begin.. |
|00004fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004ff0| 20 20 20 69 66 20 6e 6f | 74 20 64 6f 74 5f 63 6d | if no|t dot_cm|
|00005000| 6e 64 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |nd then.|. |
|00005010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 65 67 | | beg|
|00005020| 69 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |in.. | |
|00005030| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 69 6e 65 | | line|
|00005040| 20 3a 3d 20 73 75 63 63 | 28 6c 69 6e 65 29 3b 0d | := succ|(line);.|
|00005050| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005060| 20 20 20 20 20 20 20 20 | 20 69 66 20 6c 69 6e 65 | | if line|
|00005070| 20 3e 20 50 61 67 65 4c | 65 6e 20 74 68 65 6e 0d | > PageL|en then.|
|00005080| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005090| 20 20 20 20 20 20 20 20 | 20 62 65 67 69 6e 0d 0a | | begin..|
|000050a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 69 6e 65 | | line|
|000050c0| 20 3a 3d 20 30 3b 0d 0a | 20 20 20 20 20 20 20 20 | := 0;..| |
|000050d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050e0| 20 20 20 20 70 61 67 65 | 5f 6e 75 6d 20 3a 3d 20 | page|_num := |
|000050f0| 73 75 63 63 28 70 61 67 | 65 5f 6e 75 6d 29 0d 0a |succ(pag|e_num)..|
|00005100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005110| 20 20 20 20 20 20 20 20 | 65 6e 64 3b 20 28 2a 20 | |end; (* |
|00005120| 69 66 20 6c 69 6e 65 20 | 3e 20 50 61 67 65 4c 65 |if line |> PageLe|
|00005130| 6e 20 2a 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |n *).. | |
|00005140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 72 | | tr|
|00005150| 61 6e 73 6c 61 74 65 5f | 6c 69 6e 65 3b 0d 0a 20 |anslate_|line;.. |
|00005160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005170| 20 20 20 20 20 20 20 67 | 6f 74 6f 78 79 28 38 2c | g|otoxy(8,|
|00005180| 20 31 32 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 | 12);.. | |
|00005190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 | | w|
|000051a0| 72 69 74 65 28 70 61 67 | 65 5f 6e 75 6d 3a 35 29 |rite(pag|e_num:5)|
|000051b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|000051c0| 20 20 20 20 20 20 65 6e | 64 20 28 2a 20 69 66 20 | en|d (* if |
|000051d0| 6e 6f 74 20 64 6f 74 5f | 63 6d 6e 64 20 2a 29 0d |not dot_|cmnd *).|
|000051e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000051f0| 20 65 6e 64 20 28 2a 20 | 69 66 20 6e 6f 74 20 64 | end (* |if not d|
|00005200| 6f 70 20 2a 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |op *).. | |
|00005210| 20 20 20 65 6e 64 0d 0a | 20 20 20 20 20 20 20 20 | end..| |
|00005220| 20 20 20 20 65 6c 73 65 | 0d 0a 20 20 20 20 20 20 | else|.. |
|00005230| 20 20 20 20 20 20 20 20 | 20 20 63 6f 6e 74 6e 75 | | contnu|
|00005240| 20 3a 3d 20 66 61 6c 73 | 65 3b 0d 0a 20 20 20 20 | := fals|e;.. |
|00005250| 20 20 20 20 69 66 20 65 | 6f 66 28 69 6e 66 69 6c | if e|of(infil|
|00005260| 65 29 20 74 68 65 6e 0d | 0a 20 20 20 20 20 20 20 |e) then.|. |
|00005270| 20 20 20 20 20 63 6f 6e | 74 6e 75 20 3a 3d 20 66 | con|tnu := f|
|00005280| 61 6c 73 65 3b 0d 0a 20 | 20 20 20 20 20 20 20 65 |alse;.. | e|
|00005290| 6e 64 20 28 2a 20 77 68 | 69 6c 65 20 63 6f 6e 74 |nd (* wh|ile cont|
|000052a0| 6e 75 20 2a 29 0d 0a 20 | 20 20 20 65 6e 64 3b 20 |nu *).. | end; |
|000052b0| 28 2a 20 70 72 6f 63 65 | 64 75 72 65 20 70 72 6f |(* proce|dure pro|
|000052c0| 63 65 73 73 20 2a 29 0d | 0a 0d 0a 0d 0a 28 2a 0d |cess *).|.....(*.|
|000052d0| 0a 20 2a 20 54 68 65 20 | 65 78 69 74 20 70 72 6f |. * The |exit pro|
|000052e0| 63 65 64 75 72 65 20 64 | 69 73 70 6c 61 79 73 20 |cedure d|isplays |
|000052f0| 61 6e 20 65 6e 64 20 6f | 66 20 70 72 6f 63 65 73 |an end o|f proces|
|00005300| 73 69 6e 67 20 6d 65 73 | 73 61 67 65 2c 20 63 6c |sing mes|sage, cl|
|00005310| 6f 73 65 73 0d 0a 20 2a | 20 61 6c 6c 20 6f 70 65 |oses.. *| all ope|
|00005320| 6e 20 66 69 6c 65 73 2c | 20 61 6e 64 20 72 65 74 |n files,| and ret|
|00005330| 75 72 6e 73 20 74 6f 20 | 44 4f 53 0d 0a 20 2a 29 |urns to |DOS.. *)|
|00005340| 0d 0a 20 20 20 20 50 52 | 4f 43 45 44 55 52 45 20 |.. PR|OCEDURE |
|00005350| 65 78 69 74 3b 0d 0a 20 | 20 20 20 62 65 67 69 6e |exit;.. | begin|
|00005360| 0d 0a 20 20 20 20 20 20 | 20 20 43 6c 72 53 63 72 |.. | ClrScr|
|00005370| 3b 0d 0a 20 20 20 20 20 | 20 20 20 67 6f 74 6f 78 |;.. | gotox|
|00005380| 79 28 31 2c 20 31 31 29 | 3b 0d 0a 20 20 20 20 20 |y(1, 11)|;.. |
|00005390| 20 20 20 69 66 20 63 61 | 6e 63 65 6c 20 74 68 65 | if ca|ncel the|
|000053a0| 6e 0d 0a 20 20 20 20 20 | 20 20 20 62 65 67 69 6e |n.. | begin|
|000053b0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 77 72 |.. | wr|
|000053c0| 69 74 65 6c 6e 28 27 54 | 61 62 6c 65 20 6f 66 20 |iteln('T|able of |
|000053d0| 43 6f 6e 74 65 6e 74 73 | 20 70 72 6f 67 72 61 6d |Contents| program|
|000053e0| 20 41 62 6f 72 74 65 64 | 21 21 27 29 3b 0d 0a 20 | Aborted|!!');.. |
|000053f0| 20 20 20 20 20 20 20 20 | 20 20 20 63 6c 6f 73 65 | | close|
|00005400| 28 69 6e 66 69 6c 65 29 | 3b 0d 0a 20 20 20 20 20 |(infile)|;.. |
|00005410| 20 20 20 20 20 20 20 63 | 6c 6f 73 65 28 6f 75 74 | c|lose(out|
|00005420| 66 69 6c 65 29 0d 0a 20 | 20 20 20 20 20 20 20 65 |file).. | e|
|00005430| 6e 64 0d 0a 20 20 20 20 | 20 20 20 20 65 6c 73 65 |nd.. | else|
|00005440| 0d 0a 20 20 20 20 20 20 | 20 20 62 65 67 69 6e 0d |.. | begin.|
|00005450| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 77 72 69 |. | wri|
|00005460| 74 65 6c 6e 28 27 54 61 | 62 6c 65 20 6f 66 20 43 |teln('Ta|ble of C|
|00005470| 6f 6e 74 65 6e 74 20 70 | 72 6f 67 72 61 6d 20 63 |ontent p|rogram c|
|00005480| 6f 6d 70 6c 65 74 65 64 | 21 27 29 3b 0d 0a 20 20 |ompleted|!');.. |
|00005490| 20 20 20 20 20 20 20 20 | 20 20 77 72 69 74 65 6c | | writel|
|000054a0| 6e 28 6f 75 74 66 69 6c | 65 29 3b 0d 0a 20 20 20 |n(outfil|e);.. |
|000054b0| 20 20 20 20 20 20 20 20 | 20 63 6c 6f 73 65 28 69 | | close(i|
|000054c0| 6e 66 69 6c 65 29 3b 0d | 0a 20 20 20 20 20 20 20 |nfile);.|. |
|000054d0| 20 20 20 20 20 63 6c 6f | 73 65 28 6f 75 74 66 69 | clo|se(outfi|
|000054e0| 6c 65 29 0d 0a 20 20 20 | 20 20 20 20 20 65 6e 64 |le).. | end|
|000054f0| 0d 0a 20 20 20 20 65 6e | 64 3b 20 28 2a 20 70 72 |.. en|d; (* pr|
|00005500| 6f 63 65 64 75 72 65 20 | 65 78 69 74 20 2a 29 0d |ocedure |exit *).|
|00005510| 0a 0d 0a 0d 0a 28 2a 0d | 0a 20 2a 20 4d 41 49 4e |.....(*.|. * MAIN|
|00005520| 20 69 73 20 74 68 65 20 | 61 63 74 75 61 6c 20 54 | is the |actual T|
|00005530| 61 62 6c 65 20 6f 66 20 | 43 6f 6e 74 65 6e 74 20 |able of |Content |
|00005540| 70 72 6f 67 72 61 6d 2e | 20 49 74 20 61 6e 6e 6f |program.| It anno|
|00005550| 75 6e 63 65 73 0d 0a 20 | 2a 20 74 68 65 20 73 74 |unces.. |* the st|
|00005560| 61 72 74 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |art of t|he progr|
|00005570| 61 6d 2c 20 61 6e 64 20 | 61 73 6b 20 66 6f 72 20 |am, and |ask for |
|00005580| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00005590| 66 69 6c 65 0d 0a 20 2a | 20 74 6f 20 62 65 20 73 |file.. *| to be s|
|000055a0| 63 61 6e 6e 65 64 20 66 | 6f 72 20 54 61 62 6c 65 |canned f|or Table|
|000055b0| 20 6f 66 20 43 6f 6e 74 | 65 6e 74 20 65 6e 74 72 | of Cont|ent entr|
|000055c0| 69 65 73 2e 0d 0a 20 2a | 29 0d 0a 20 20 20 20 42 |ies... *|).. B|
|000055d0| 45 47 49 4e 20 28 2a 20 | 6d 61 69 6e 20 2a 29 0d |EGIN (* |main *).|
|000055e0| 0a 20 20 20 20 20 20 20 | 20 43 6c 72 53 63 72 3b |. | ClrScr;|
|000055f0| 0d 0a 20 20 20 20 20 20 | 20 20 63 61 6e 63 65 6c |.. | cancel|
|00005600| 20 3a 3d 20 66 61 6c 73 | 65 3b 0d 0a 20 20 20 20 | := fals|e;.. |
|00005610| 20 20 20 20 77 72 69 74 | 65 6c 6e 3b 0d 0a 20 20 | writ|eln;.. |
|00005620| 20 20 20 20 20 20 77 72 | 69 74 65 6c 6e 28 27 57 | wr|iteln('W|
|00005630| 6f 72 64 53 74 61 72 20 | 54 61 62 6c 65 20 6f 66 |ordStar |Table of|
|00005640| 20 43 6f 6e 74 65 6e 74 | 20 67 65 6e 65 72 61 74 | Content| generat|
|00005650| 6f 72 20 50 72 6f 67 72 | 61 6d 27 29 3b 0d 0a 20 |or Progr|am');.. |
|00005660| 20 20 20 20 20 20 20 77 | 72 69 74 65 6c 6e 28 27 | w|riteln('|
|00005670| 43 6f 70 79 72 69 67 68 | 74 20 31 39 38 35 20 62 |Copyrigh|t 1985 b|
|00005680| 79 20 44 65 61 6e 20 41 | 2e 20 46 69 65 6c 64 73 |y Dean A|. Fields|
|00005690| 27 29 3b 0d 0a 20 20 20 | 20 20 20 20 20 77 72 69 |');.. | wri|
|000056a0| 74 65 6c 6e 28 27 56 65 | 72 73 69 6f 6e 20 23 20 |teln('Ve|rsion # |
|000056b0| 27 2c 20 76 65 72 73 69 | 6f 6e 2c 20 27 20 6f 66 |', versi|on, ' of|
|000056c0| 20 27 2c 20 64 61 74 65 | 2c 20 27 2e 27 29 3b 0d | ', date|, '.');.|
|000056d0| 0a 20 20 20 20 20 20 20 | 20 77 72 69 74 65 6c 6e |. | writeln|
|000056e0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 67 6f 74 6f 78 |;.. | gotox|
|000056f0| 79 28 31 2c 20 36 29 3b | 0d 0a 20 20 20 20 20 20 |y(1, 6);|.. |
|00005700| 20 20 6f 70 65 6e 5f 66 | 69 6c 65 73 3b 0d 0a 20 | open_f|iles;.. |
|00005710| 20 20 20 20 20 20 20 69 | 66 20 6e 6f 74 20 63 61 | i|f not ca|
|00005720| 6e 63 65 6c 20 74 68 65 | 6e 0d 0a 20 20 20 20 20 |ncel the|n.. |
|00005730| 20 20 20 20 20 20 20 70 | 72 6f 63 65 73 73 3b 0d | p|rocess;.|
|00005740| 0a 20 20 20 20 20 20 20 | 20 65 78 69 74 0d 0a 20 |. | exit.. |
|00005750| 20 20 20 65 6e 64 2e 20 | 28 2a 20 6d 61 69 6e 20 | end. |(* main |
|00005760| 2a 29 0d 0a 1a 20 20 20 | 43 4f 4d 20 00 00 00 00 |*)... |COM ....|
|00005770| 00 00 00 00 00 00 00 00 | 00 00 4d 00 80 06 00 00 |........|..M.....|
+--------+-------------------------+-------------------------+--------+--------+
