home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LaTeX Document
(document/latex).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LaTeX Document (document/latex)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| LaTeX document, ASCII text, with CR line terminators
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/281 LaTeX (Subdocument)
| default
| |
| 100%
| detectItEasy
| Format: plain text[CR]
| default (weak)
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [ALFA] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 25 20 42 69 62 54 65 | 58 20 62 69 62 6c 69 6f |.% BibTe|X biblio|
|00000010| 67 72 61 70 68 79 20 73 | 74 79 6c 65 20 60 61 6e |graphy s|tyle `an|
|00000020| 6e 6f 74 61 74 65 27 0d | 25 20 62 61 73 65 64 20 |notate'.|% based |
|00000030| 6f 6e 20 61 6c 70 68 61 | 2e 0d 0d 45 4e 54 52 59 |on alpha|...ENTRY|
|00000040| 0d 20 20 7b 20 61 64 64 | 72 65 73 73 0d 20 20 20 |. { add|ress. |
|00000050| 20 61 6e 6e 6f 74 61 74 | 65 0d 20 20 20 20 61 75 | annotat|e. au|
|00000060| 74 68 6f 72 0d 20 20 20 | 20 62 6f 6f 6b 74 69 74 |thor. | booktit|
|00000070| 6c 65 0d 20 20 20 20 63 | 68 61 70 74 65 72 0d 20 |le. c|hapter. |
|00000080| 20 20 20 65 64 69 74 69 | 6f 6e 0d 20 20 20 20 65 | editi|on. e|
|00000090| 64 69 74 6f 72 0d 20 20 | 20 20 68 6f 77 70 75 62 |ditor. | howpub|
|000000a0| 6c 69 73 68 65 64 0d 20 | 20 20 20 69 6e 73 74 69 |lished. | insti|
|000000b0| 74 75 74 69 6f 6e 0d 20 | 20 20 20 6a 6f 75 72 6e |tution. | journ|
|000000c0| 61 6c 0d 20 20 20 20 6b | 65 79 0d 20 20 20 20 6d |al. k|ey. m|
|000000d0| 6f 6e 74 68 0d 20 20 20 | 20 6e 6f 74 65 0d 20 20 |onth. | note. |
|000000e0| 20 20 6e 75 6d 62 65 72 | 0d 20 20 20 20 6f 72 67 | number|. org|
|000000f0| 61 6e 69 7a 61 74 69 6f | 6e 0d 20 20 20 20 70 61 |anizatio|n. pa|
|00000100| 67 65 73 0d 20 20 20 20 | 70 75 62 6c 69 73 68 65 |ges. |publishe|
|00000110| 72 0d 20 20 20 20 73 63 | 68 6f 6f 6c 0d 20 20 20 |r. sc|hool. |
|00000120| 20 73 65 72 69 65 73 0d | 20 20 20 20 74 69 74 6c | series.| titl|
|00000130| 65 0d 20 20 20 20 74 79 | 70 65 0d 20 20 20 20 76 |e. ty|pe. v|
|00000140| 6f 6c 75 6d 65 0d 20 20 | 20 20 79 65 61 72 0d 20 |olume. | year. |
|00000150| 20 7d 0d 20 20 7b 7d 0d | 20 20 7b 20 6c 61 62 65 | }. {}.| { labe|
|00000160| 6c 20 65 78 74 72 61 2e | 6c 61 62 65 6c 20 73 6f |l extra.|label so|
|00000170| 72 74 2e 6c 61 62 65 6c | 20 7d 0d 0d 49 4e 54 45 |rt.label| }..INTE|
|00000180| 47 45 52 53 20 7b 20 6f | 75 74 70 75 74 2e 73 74 |GERS { o|utput.st|
|00000190| 61 74 65 20 62 65 66 6f | 72 65 2e 61 6c 6c 20 6d |ate befo|re.all m|
|000001a0| 69 64 2e 73 65 6e 74 65 | 6e 63 65 20 61 66 74 65 |id.sente|nce afte|
|000001b0| 72 2e 73 65 6e 74 65 6e | 63 65 20 61 66 74 65 72 |r.senten|ce after|
|000001c0| 2e 62 6c 6f 63 6b 20 7d | 0d 0d 46 55 4e 43 54 49 |.block }|..FUNCTI|
|000001d0| 4f 4e 20 7b 69 6e 69 74 | 2e 73 74 61 74 65 2e 63 |ON {init|.state.c|
|000001e0| 6f 6e 73 74 73 7d 0d 7b | 20 23 30 20 27 62 65 66 |onsts}.{| #0 'bef|
|000001f0| 6f 72 65 2e 61 6c 6c 20 | 3a 3d 0d 20 20 23 31 20 |ore.all |:=. #1 |
|00000200| 27 6d 69 64 2e 73 65 6e | 74 65 6e 63 65 20 3a 3d |'mid.sen|tence :=|
|00000210| 0d 20 20 23 32 20 27 61 | 66 74 65 72 2e 73 65 6e |. #2 'a|fter.sen|
|00000220| 74 65 6e 63 65 20 3a 3d | 0d 20 20 23 33 20 27 61 |tence :=|. #3 'a|
|00000230| 66 74 65 72 2e 62 6c 6f | 63 6b 20 3a 3d 0d 7d 0d |fter.blo|ck :=.}.|
|00000240| 0d 53 54 52 49 4e 47 53 | 20 7b 20 73 20 74 20 7d |.STRINGS| { s t }|
|00000250| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 7b 6f 75 74 70 |..FUNCTI|ON {outp|
|00000260| 75 74 2e 6e 6f 6e 6e 75 | 6c 6c 7d 0d 7b 20 27 73 |ut.nonnu|ll}.{ 's|
|00000270| 20 3a 3d 0d 20 20 6f 75 | 74 70 75 74 2e 73 74 61 | :=. ou|tput.sta|
|00000280| 74 65 20 6d 69 64 2e 73 | 65 6e 74 65 6e 63 65 20 |te mid.s|entence |
|00000290| 3d 0d 20 20 20 20 7b 20 | 22 2c 20 22 20 2a 20 77 |=. { |", " * w|
|000002a0| 72 69 74 65 24 20 7d 0d | 20 20 20 20 7b 20 6f 75 |rite$ }.| { ou|
|000002b0| 74 70 75 74 2e 73 74 61 | 74 65 20 61 66 74 65 72 |tput.sta|te after|
|000002c0| 2e 62 6c 6f 63 6b 20 3d | 0d 20 20 20 20 20 20 20 |.block =|. |
|000002d0| 20 7b 20 61 64 64 2e 70 | 65 72 69 6f 64 24 20 77 | { add.p|eriod$ w|
|000002e0| 72 69 74 65 24 0d 20 20 | 20 20 20 20 20 20 20 20 |rite$. | |
|000002f0| 6e 65 77 6c 69 6e 65 24 | 0d 20 20 20 20 20 20 20 |newline$|. |
|00000300| 20 20 20 22 5c 6e 65 77 | 62 6c 6f 63 6b 20 22 20 | "\new|block " |
|00000310| 77 72 69 74 65 24 0d 20 | 20 20 20 20 20 20 20 7d |write$. | }|
|00000320| 0d 20 20 20 20 20 20 20 | 20 7b 20 6f 75 74 70 75 |. | { outpu|
|00000330| 74 2e 73 74 61 74 65 20 | 62 65 66 6f 72 65 2e 61 |t.state |before.a|
|00000340| 6c 6c 20 3d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ll =. | |
|00000350| 20 27 77 72 69 74 65 24 | 0d 20 20 20 20 20 20 20 | 'write$|. |
|00000360| 20 20 20 20 20 7b 20 61 | 64 64 2e 70 65 72 69 6f | { a|dd.perio|
|00000370| 64 24 20 22 20 22 20 2a | 20 77 72 69 74 65 24 20 |d$ " " *| write$ |
|00000380| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 69 66 24 0d |}. | if$.|
|00000390| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|000003a0| 69 66 24 0d 20 20 20 20 | 20 20 6d 69 64 2e 73 65 |if$. | mid.se|
|000003b0| 6e 74 65 6e 63 65 20 27 | 6f 75 74 70 75 74 2e 73 |ntence '|output.s|
|000003c0| 74 61 74 65 20 3a 3d 0d | 20 20 20 20 7d 0d 20 20 |tate :=.| }. |
|000003d0| 69 66 24 0d 20 20 73 0d | 7d 0d 0d 46 55 4e 43 54 |if$. s.|}..FUNCT|
|000003e0| 49 4f 4e 20 7b 6f 75 74 | 70 75 74 7d 0d 7b 20 64 |ION {out|put}.{ d|
|000003f0| 75 70 6c 69 63 61 74 65 | 24 20 65 6d 70 74 79 24 |uplicate|$ empty$|
|00000400| 0d 20 20 20 20 27 70 6f | 70 24 0d 20 20 20 20 27 |. 'po|p$. '|
|00000410| 6f 75 74 70 75 74 2e 6e | 6f 6e 6e 75 6c 6c 0d 20 |output.n|onnull. |
|00000420| 20 69 66 24 0d 7d 0d 0d | 46 55 4e 43 54 49 4f 4e | if$.}..|FUNCTION|
|00000430| 20 7b 6f 75 74 70 75 74 | 2e 63 68 65 63 6b 7d 0d | {output|.check}.|
|00000440| 7b 20 27 74 20 3a 3d 0d | 20 20 64 75 70 6c 69 63 |{ 't :=.| duplic|
|00000450| 61 74 65 24 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |ate$ emp|ty$. |
|00000460| 7b 20 70 6f 70 24 20 22 | 65 6d 70 74 79 20 22 20 |{ pop$ "|empty " |
|00000470| 74 20 2a 20 22 20 69 6e | 20 22 20 2a 20 63 69 74 |t * " in| " * cit|
|00000480| 65 24 20 2a 20 77 61 72 | 6e 69 6e 67 24 20 7d 0d |e$ * war|ning$ }.|
|00000490| 20 20 20 20 27 6f 75 74 | 70 75 74 2e 6e 6f 6e 6e | 'out|put.nonn|
|000004a0| 75 6c 6c 0d 20 20 69 66 | 24 0d 7d 0d 0d 46 55 4e |ull. if|$.}..FUN|
|000004b0| 43 54 49 4f 4e 20 7b 6f | 75 74 70 75 74 2e 62 69 |CTION {o|utput.bi|
|000004c0| 62 69 74 65 6d 7d 0d 7b | 20 6e 65 77 6c 69 6e 65 |bitem}.{| newline|
|000004d0| 24 0d 20 20 22 5c 62 69 | 62 69 74 65 6d 5b 22 20 |$. "\bi|bitem[" |
|000004e0| 77 72 69 74 65 24 0d 20 | 20 6c 61 62 65 6c 20 77 |write$. | label w|
|000004f0| 72 69 74 65 24 0d 20 20 | 22 5d 7b 22 20 77 72 69 |rite$. |"]{" wri|
|00000500| 74 65 24 0d 20 20 63 69 | 74 65 24 20 77 72 69 74 |te$. ci|te$ writ|
|00000510| 65 24 0d 20 20 22 7d 22 | 20 77 72 69 74 65 24 0d |e$. "}"| write$.|
|00000520| 20 20 6e 65 77 6c 69 6e | 65 24 0d 20 20 22 22 0d | newlin|e$. "".|
|00000530| 20 20 62 65 66 6f 72 65 | 2e 61 6c 6c 20 27 6f 75 | before|.all 'ou|
|00000540| 74 70 75 74 2e 73 74 61 | 74 65 20 3a 3d 0d 7d 0d |tput.sta|te :=.}.|
|00000550| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 66 69 6e 2e 65 |.FUNCTIO|N {fin.e|
|00000560| 6e 74 72 79 7d 0d 7b 20 | 61 64 64 2e 70 65 72 69 |ntry}.{ |add.peri|
|00000570| 6f 64 24 0d 20 20 77 72 | 69 74 65 24 0d 20 20 6e |od$. wr|ite$. n|
|00000580| 65 77 6c 69 6e 65 24 0d | 7d 0d 0d 46 55 4e 43 54 |ewline$.|}..FUNCT|
|00000590| 49 4f 4e 20 7b 6e 65 77 | 2e 62 6c 6f 63 6b 7d 0d |ION {new|.block}.|
|000005a0| 7b 20 6f 75 74 70 75 74 | 2e 73 74 61 74 65 20 62 |{ output|.state b|
|000005b0| 65 66 6f 72 65 2e 61 6c | 6c 20 3d 0d 20 20 20 20 |efore.al|l =. |
|000005c0| 27 73 6b 69 70 24 0d 20 | 20 20 20 7b 20 61 66 74 |'skip$. | { aft|
|000005d0| 65 72 2e 62 6c 6f 63 6b | 20 27 6f 75 74 70 75 74 |er.block| 'output|
|000005e0| 2e 73 74 61 74 65 20 3a | 3d 20 7d 0d 20 20 69 66 |.state :|= }. if|
|000005f0| 24 0d 7d 0d 0d 46 55 4e | 43 54 49 4f 4e 20 7b 6e |$.}..FUN|CTION {n|
|00000600| 65 77 2e 73 65 6e 74 65 | 6e 63 65 7d 0d 7b 20 6f |ew.sente|nce}.{ o|
|00000610| 75 74 70 75 74 2e 73 74 | 61 74 65 20 61 66 74 65 |utput.st|ate afte|
|00000620| 72 2e 62 6c 6f 63 6b 20 | 3d 0d 20 20 20 20 27 73 |r.block |=. 's|
|00000630| 6b 69 70 24 0d 20 20 20 | 20 7b 20 6f 75 74 70 75 |kip$. | { outpu|
|00000640| 74 2e 73 74 61 74 65 20 | 62 65 66 6f 72 65 2e 61 |t.state |before.a|
|00000650| 6c 6c 20 3d 0d 20 20 20 | 20 20 20 20 20 27 73 6b |ll =. | 'sk|
|00000660| 69 70 24 0d 20 20 20 20 | 20 20 20 20 7b 20 61 66 |ip$. | { af|
|00000670| 74 65 72 2e 73 65 6e 74 | 65 6e 63 65 20 27 6f 75 |ter.sent|ence 'ou|
|00000680| 74 70 75 74 2e 73 74 61 | 74 65 20 3a 3d 20 7d 0d |tput.sta|te := }.|
|00000690| 20 20 20 20 20 20 69 66 | 24 0d 20 20 20 20 7d 0d | if|$. }.|
|000006a0| 20 20 69 66 24 0d 7d 0d | 0d 46 55 4e 43 54 49 4f | if$.}.|.FUNCTIO|
|000006b0| 4e 20 7b 6e 6f 74 7d 0d | 7b 20 20 20 7b 20 23 30 |N {not}.|{ { #0|
|000006c0| 20 7d 0d 20 20 20 20 7b | 20 23 31 20 7d 0d 20 20 | }. {| #1 }. |
|000006d0| 69 66 24 0d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |if$.}..F|UNCTION |
|000006e0| 7b 61 6e 64 7d 0d 7b 20 | 20 20 27 73 6b 69 70 24 |{and}.{ | 'skip$|
|000006f0| 0d 20 20 20 20 7b 20 70 | 6f 70 24 20 23 30 20 7d |. { p|op$ #0 }|
|00000700| 0d 20 20 69 66 24 0d 7d | 0d 0d 46 55 4e 43 54 49 |. if$.}|..FUNCTI|
|00000710| 4f 4e 20 7b 6f 72 7d 0d | 7b 20 20 20 7b 20 70 6f |ON {or}.|{ { po|
|00000720| 70 24 20 23 31 20 7d 0d | 20 20 20 20 27 73 6b 69 |p$ #1 }.| 'ski|
|00000730| 70 24 0d 20 20 69 66 24 | 0d 7d 0d 0d 46 55 4e 43 |p$. if$|.}..FUNC|
|00000740| 54 49 4f 4e 20 7b 6e 65 | 77 2e 62 6c 6f 63 6b 2e |TION {ne|w.block.|
|00000750| 63 68 65 63 6b 61 7d 0d | 7b 20 65 6d 70 74 79 24 |checka}.|{ empty$|
|00000760| 0d 20 20 20 20 27 73 6b | 69 70 24 0d 20 20 20 20 |. 'sk|ip$. |
|00000770| 27 6e 65 77 2e 62 6c 6f | 63 6b 0d 20 20 69 66 24 |'new.blo|ck. if$|
|00000780| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 6e 65 |.}..FUNC|TION {ne|
|00000790| 77 2e 62 6c 6f 63 6b 2e | 63 68 65 63 6b 62 7d 0d |w.block.|checkb}.|
|000007a0| 7b 20 65 6d 70 74 79 24 | 0d 20 20 73 77 61 70 24 |{ empty$|. swap$|
|000007b0| 20 65 6d 70 74 79 24 0d | 20 20 61 6e 64 0d 20 20 | empty$.| and. |
|000007c0| 20 20 27 73 6b 69 70 24 | 0d 20 20 20 20 27 6e 65 | 'skip$|. 'ne|
|000007d0| 77 2e 62 6c 6f 63 6b 0d | 20 20 69 66 24 0d 7d 0d |w.block.| if$.}.|
|000007e0| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 6e 65 77 2e 73 |.FUNCTIO|N {new.s|
|000007f0| 65 6e 74 65 6e 63 65 2e | 63 68 65 63 6b 61 7d 0d |entence.|checka}.|
|00000800| 7b 20 65 6d 70 74 79 24 | 0d 20 20 20 20 27 73 6b |{ empty$|. 'sk|
|00000810| 69 70 24 0d 20 20 20 20 | 27 6e 65 77 2e 73 65 6e |ip$. |'new.sen|
|00000820| 74 65 6e 63 65 0d 20 20 | 69 66 24 0d 7d 0d 0d 46 |tence. |if$.}..F|
|00000830| 55 4e 43 54 49 4f 4e 20 | 7b 6e 65 77 2e 73 65 6e |UNCTION |{new.sen|
|00000840| 74 65 6e 63 65 2e 63 68 | 65 63 6b 62 7d 0d 7b 20 |tence.ch|eckb}.{ |
|00000850| 65 6d 70 74 79 24 0d 20 | 20 73 77 61 70 24 20 65 |empty$. | swap$ e|
|00000860| 6d 70 74 79 24 0d 20 20 | 61 6e 64 0d 20 20 20 20 |mpty$. |and. |
|00000870| 27 73 6b 69 70 24 0d 20 | 20 20 20 27 6e 65 77 2e |'skip$. | 'new.|
|00000880| 73 65 6e 74 65 6e 63 65 | 0d 20 20 69 66 24 0d 7d |sentence|. if$.}|
|00000890| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 7b 66 69 65 6c |..FUNCTI|ON {fiel|
|000008a0| 64 2e 6f 72 2e 6e 75 6c | 6c 7d 0d 7b 20 64 75 70 |d.or.nul|l}.{ dup|
|000008b0| 6c 69 63 61 74 65 24 20 | 65 6d 70 74 79 24 0d 20 |licate$ |empty$. |
|000008c0| 20 20 20 7b 20 70 6f 70 | 24 20 22 22 20 7d 0d 20 | { pop|$ "" }. |
|000008d0| 20 20 20 27 73 6b 69 70 | 24 0d 20 20 69 66 24 0d | 'skip|$. if$.|
|000008e0| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 7b 65 6d 70 |}..FUNCT|ION {emp|
|000008f0| 68 61 73 69 7a 65 7d 0d | 7b 20 64 75 70 6c 69 63 |hasize}.|{ duplic|
|00000900| 61 74 65 24 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |ate$ emp|ty$. |
|00000910| 7b 20 70 6f 70 24 20 22 | 22 20 7d 0d 20 20 20 20 |{ pop$ "|" }. |
|00000920| 7b 20 22 7b 5c 65 6d 20 | 22 20 73 77 61 70 24 20 |{ "{\em |" swap$ |
|00000930| 2a 20 22 7d 22 20 2a 20 | 7d 0d 20 20 69 66 24 0d |* "}" * |}. if$.|
|00000940| 7d 0d 0d 49 4e 54 45 47 | 45 52 53 20 7b 20 6e 61 |}..INTEG|ERS { na|
|00000950| 6d 65 70 74 72 20 6e 61 | 6d 65 73 6c 65 66 74 20 |meptr na|mesleft |
|00000960| 6e 75 6d 6e 61 6d 65 73 | 20 7d 0d 0d 46 55 4e 43 |numnames| }..FUNC|
|00000970| 54 49 4f 4e 20 7b 66 6f | 72 6d 61 74 2e 6e 61 6d |TION {fo|rmat.nam|
|00000980| 65 73 7d 0d 7b 20 27 73 | 20 3a 3d 0d 20 20 23 31 |es}.{ 's| :=. #1|
|00000990| 20 27 6e 61 6d 65 70 74 | 72 20 3a 3d 0d 20 20 73 | 'namept|r :=. s|
|000009a0| 20 6e 75 6d 2e 6e 61 6d | 65 73 24 20 27 6e 75 6d | num.nam|es$ 'num|
|000009b0| 6e 61 6d 65 73 20 3a 3d | 0d 20 20 6e 75 6d 6e 61 |names :=|. numna|
|000009c0| 6d 65 73 20 27 6e 61 6d | 65 73 6c 65 66 74 20 3a |mes 'nam|esleft :|
|000009d0| 3d 0d 20 20 20 20 7b 20 | 6e 61 6d 65 73 6c 65 66 |=. { |nameslef|
|000009e0| 74 20 23 30 20 3e 20 7d | 0d 20 20 20 20 7b 20 73 |t #0 > }|. { s|
|000009f0| 20 6e 61 6d 65 70 74 72 | 20 22 7b 66 66 7e 7d 7b | nameptr| "{ff~}{|
|00000a00| 76 76 7e 7d 7b 6c 6c 7d | 7b 2c 20 6a 6a 7d 22 20 |vv~}{ll}|{, jj}" |
|00000a10| 66 6f 72 6d 61 74 2e 6e | 61 6d 65 24 20 27 74 20 |format.n|ame$ 't |
|00000a20| 3a 3d 0d 20 20 20 20 20 | 20 6e 61 6d 65 70 74 72 |:=. | nameptr|
|00000a30| 20 23 31 20 3e 0d 20 20 | 20 20 20 20 20 20 7b 20 | #1 >. | { |
|00000a40| 6e 61 6d 65 73 6c 65 66 | 74 20 23 31 20 3e 0d 20 |nameslef|t #1 >. |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 20 7b 20 22 2c 20 | | { ", |
|00000a60| 22 20 2a 20 74 20 2a 20 | 7d 0d 20 20 20 20 20 20 |" * t * |}. |
|00000a70| 20 20 20 20 20 20 7b 20 | 6e 75 6d 6e 61 6d 65 73 | { |numnames|
|00000a80| 20 23 32 20 3e 0d 20 20 | 20 20 20 20 20 20 20 20 | #2 >. | |
|00000a90| 20 20 20 20 20 20 7b 20 | 22 2c 22 20 2a 20 7d 0d | { |"," * }.|
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ab0| 27 73 6b 69 70 24 0d 20 | 20 20 20 20 20 20 20 20 |'skip$. | |
|00000ac0| 20 20 20 20 20 69 66 24 | 0d 20 20 20 20 20 20 20 | if$|. |
|00000ad0| 20 20 20 20 20 20 20 74 | 20 22 6f 74 68 65 72 73 | t| "others|
|00000ae0| 22 20 3d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |" =. | |
|00000af0| 20 20 20 20 7b 20 22 20 | 65 74 7e 61 6c 2e 22 20 | { " |et~al." |
|00000b00| 2a 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |* }. | |
|00000b10| 20 20 20 20 7b 20 22 20 | 61 6e 64 20 22 20 2a 20 | { " |and " * |
|00000b20| 74 20 2a 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |t * }. | |
|00000b30| 20 20 20 20 69 66 24 0d | 20 20 20 20 20 20 20 20 | if$.| |
|00000b40| 20 20 20 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 | }. | |
|00000b50| 69 66 24 0d 20 20 20 20 | 20 20 20 20 7d 0d 20 20 |if$. | }. |
|00000b60| 20 20 20 20 20 20 27 74 | 0d 20 20 20 20 20 20 69 | 't|. i|
|00000b70| 66 24 0d 20 20 20 20 20 | 20 6e 61 6d 65 70 74 72 |f$. | nameptr|
|00000b80| 20 23 31 20 2b 20 27 6e | 61 6d 65 70 74 72 20 3a | #1 + 'n|ameptr :|
|00000b90| 3d 0d 20 20 20 20 20 20 | 6e 61 6d 65 73 6c 65 66 |=. |nameslef|
|00000ba0| 74 20 23 31 20 2d 20 27 | 6e 61 6d 65 73 6c 65 66 |t #1 - '|nameslef|
|00000bb0| 74 20 3a 3d 0d 20 20 20 | 20 7d 0d 20 20 77 68 69 |t :=. | }. whi|
|00000bc0| 6c 65 24 0d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |le$.}..F|UNCTION |
|00000bd0| 7b 66 6f 72 6d 61 74 2e | 61 75 74 68 6f 72 73 7d |{format.|authors}|
|00000be0| 0d 7b 20 61 75 74 68 6f | 72 20 65 6d 70 74 79 24 |.{ autho|r empty$|
|00000bf0| 0d 20 20 20 20 7b 20 22 | 22 20 7d 0d 20 20 20 20 |. { "|" }. |
|00000c00| 7b 20 61 75 74 68 6f 72 | 20 66 6f 72 6d 61 74 2e |{ author| format.|
|00000c10| 6e 61 6d 65 73 20 7d 0d | 20 20 69 66 24 0d 7d 0d |names }.| if$.}.|
|00000c20| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 66 6f 72 6d 61 |.FUNCTIO|N {forma|
|00000c30| 74 2e 61 6e 6e 6f 74 61 | 74 65 7d 0d 7b 20 61 6e |t.annota|te}.{ an|
|00000c40| 6e 6f 74 61 74 65 20 65 | 6d 70 74 79 24 0d 20 20 |notate e|mpty$. |
|00000c50| 20 20 20 20 20 20 7b 20 | 22 22 20 7d 0d 20 20 20 | { |"" }. |
|00000c60| 20 20 20 20 20 7b 20 22 | 20 5c 62 65 67 69 6e 7b | { "| \begin{|
|00000c70| 71 75 6f 74 61 74 69 6f | 6e 7d 5c 6e 6f 69 6e 64 |quotatio|n}\noind|
|00000c80| 65 6e 74 20 22 0d 20 20 | 20 20 20 20 20 20 20 20 |ent ". | |
|00000c90| 61 6e 6e 6f 74 61 74 65 | 0d 20 20 20 20 20 20 20 |annotate|. |
|00000ca0| 20 20 20 2a 20 22 20 5c | 65 6e 64 7b 71 75 6f 74 | * " \|end{quot|
|00000cb0| 61 74 69 6f 6e 7d 20 22 | 20 2a 0d 20 20 20 20 20 |ation} "| *. |
|00000cc0| 20 20 20 7d 0d 20 20 20 | 20 20 20 69 66 24 0d 7d | }. | if$.}|
|00000cd0| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 7b 66 6f 72 6d |..FUNCTI|ON {form|
|00000ce0| 61 74 2e 65 64 69 74 6f | 72 73 7d 0d 7b 20 65 64 |at.edito|rs}.{ ed|
|00000cf0| 69 74 6f 72 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |itor emp|ty$. |
|00000d00| 7b 20 22 22 20 7d 0d 20 | 20 20 20 7b 20 65 64 69 |{ "" }. | { edi|
|00000d10| 74 6f 72 20 66 6f 72 6d | 61 74 2e 6e 61 6d 65 73 |tor form|at.names|
|00000d20| 0d 20 20 20 20 20 20 65 | 64 69 74 6f 72 20 6e 75 |. e|ditor nu|
|00000d30| 6d 2e 6e 61 6d 65 73 24 | 20 23 31 20 3e 0d 20 20 |m.names$| #1 >. |
|00000d40| 20 20 20 20 20 20 7b 20 | 22 2c 20 65 64 69 74 6f | { |", edito|
|00000d50| 72 73 22 20 2a 20 7d 0d | 20 20 20 20 20 20 20 20 |rs" * }.| |
|00000d60| 7b 20 22 2c 20 65 64 69 | 74 6f 72 22 20 2a 20 7d |{ ", edi|tor" * }|
|00000d70| 0d 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 7d |. i|f$. }|
|00000d80| 0d 20 20 69 66 24 0d 7d | 0d 0d 46 55 4e 43 54 49 |. if$.}|..FUNCTI|
|00000d90| 4f 4e 20 7b 66 6f 72 6d | 61 74 2e 74 69 74 6c 65 |ON {form|at.title|
|00000da0| 7d 0d 7b 20 74 69 74 6c | 65 20 65 6d 70 74 79 24 |}.{ titl|e empty$|
|00000db0| 0d 20 20 20 20 7b 20 22 | 22 20 7d 0d 20 20 20 20 |. { "|" }. |
|00000dc0| 7b 20 74 69 74 6c 65 20 | 22 74 22 20 63 68 61 6e |{ title |"t" chan|
|00000dd0| 67 65 2e 63 61 73 65 24 | 20 7d 0d 20 20 69 66 24 |ge.case$| }. if$|
|00000de0| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 6e 2e |.}..FUNC|TION {n.|
|00000df0| 64 61 73 68 69 66 79 7d | 0d 7b 20 27 74 20 3a 3d |dashify}|.{ 't :=|
|00000e00| 0d 20 20 22 22 0d 20 20 | 20 20 7b 20 74 20 65 6d |. "". | { t em|
|00000e10| 70 74 79 24 20 6e 6f 74 | 20 7d 0d 20 20 20 20 7b |pty$ not| }. {|
|00000e20| 20 74 20 23 31 20 23 31 | 20 73 75 62 73 74 72 69 | t #1 #1| substri|
|00000e30| 6e 67 24 20 22 2d 22 20 | 3d 0d 20 20 20 20 20 20 |ng$ "-" |=. |
|00000e40| 20 20 7b 20 74 20 23 31 | 20 23 32 20 73 75 62 73 | { t #1| #2 subs|
|00000e50| 74 72 69 6e 67 24 20 22 | 2d 2d 22 20 3d 20 6e 6f |tring$ "|--" = no|
|00000e60| 74 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 20 |t. | { |
|00000e70| 22 2d 2d 22 20 2a 0d 20 | 20 20 20 20 20 20 20 20 |"--" *. | |
|00000e80| 20 20 20 20 20 74 20 23 | 32 20 67 6c 6f 62 61 6c | t #|2 global|
|00000e90| 2e 6d 61 78 24 20 73 75 | 62 73 74 72 69 6e 67 24 |.max$ su|bstring$|
|00000ea0| 20 27 74 20 3a 3d 0d 20 | 20 20 20 20 20 20 20 20 | 't :=. | |
|00000eb0| 20 20 20 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 | }. | |
|00000ec0| 20 7b 20 20 20 7b 20 74 | 20 23 31 20 23 31 20 73 | { { t| #1 #1 s|
|00000ed0| 75 62 73 74 72 69 6e 67 | 24 20 22 2d 22 20 3d 20 |ubstring|$ "-" = |
|00000ee0| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}. | |
|00000ef0| 20 20 7b 20 22 2d 22 20 | 2a 0d 20 20 20 20 20 20 | { "-" |*. |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 20 23 32 | | t #2|
|00000f10| 20 67 6c 6f 62 61 6c 2e | 6d 61 78 24 20 73 75 62 | global.|max$ sub|
|00000f20| 73 74 72 69 6e 67 24 20 | 27 74 20 3a 3d 0d 20 20 |string$ |'t :=. |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d | | }.|
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 77 68 | | wh|
|00000f50| 69 6c 65 24 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ile$. | |
|00000f60| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 69 66 24 | }. | if$|
|00000f70| 0d 20 20 20 20 20 20 20 | 20 7d 0d 20 20 20 20 20 |. | }. |
|00000f80| 20 20 20 7b 20 74 20 23 | 31 20 23 31 20 73 75 62 | { t #|1 #1 sub|
|00000f90| 73 74 72 69 6e 67 24 20 | 2a 0d 20 20 20 20 20 20 |string$ |*. |
|00000fa0| 20 20 20 20 74 20 23 32 | 20 67 6c 6f 62 61 6c 2e | t #2| global.|
|00000fb0| 6d 61 78 24 20 73 75 62 | 73 74 72 69 6e 67 24 20 |max$ sub|string$ |
|00000fc0| 27 74 20 3a 3d 0d 20 20 | 20 20 20 20 20 20 7d 0d |'t :=. | }.|
|00000fd0| 20 20 20 20 20 20 69 66 | 24 0d 20 20 20 20 7d 0d | if|$. }.|
|00000fe0| 20 20 77 68 69 6c 65 24 | 0d 7d 0d 0d 46 55 4e 43 | while$|.}..FUNC|
|00000ff0| 54 49 4f 4e 20 7b 66 6f | 72 6d 61 74 2e 64 61 74 |TION {fo|rmat.dat|
|00001000| 65 7d 0d 7b 20 79 65 61 | 72 20 65 6d 70 74 79 24 |e}.{ yea|r empty$|
|00001010| 0d 20 20 20 20 7b 20 6d | 6f 6e 74 68 20 65 6d 70 |. { m|onth emp|
|00001020| 74 79 24 0d 20 20 20 20 | 20 20 20 20 7b 20 22 22 |ty$. | { ""|
|00001030| 20 7d 0d 20 20 20 20 20 | 20 20 20 7b 20 22 74 68 | }. | { "th|
|00001040| 65 72 65 27 73 20 61 20 | 6d 6f 6e 74 68 20 62 75 |ere's a |month bu|
|00001050| 74 20 6e 6f 20 79 65 61 | 72 20 69 6e 20 22 20 63 |t no yea|r in " c|
|00001060| 69 74 65 24 20 2a 20 77 | 61 72 6e 69 6e 67 24 0d |ite$ * w|arning$.|
|00001070| 20 20 20 20 20 20 20 20 | 20 20 6d 6f 6e 74 68 0d | | month.|
|00001080| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|00001090| 69 66 24 0d 20 20 20 20 | 7d 0d 20 20 20 20 7b 20 |if$. |}. { |
|000010a0| 6d 6f 6e 74 68 20 65 6d | 70 74 79 24 0d 20 20 20 |month em|pty$. |
|000010b0| 20 20 20 20 20 27 79 65 | 61 72 0d 20 20 20 20 20 | 'ye|ar. |
|000010c0| 20 20 20 7b 20 6d 6f 6e | 74 68 20 22 20 22 20 2a | { mon|th " " *|
|000010d0| 20 79 65 61 72 20 2a 20 | 7d 0d 20 20 20 20 20 20 | year * |}. |
|000010e0| 69 66 24 0d 20 20 20 20 | 7d 0d 20 20 69 66 24 0d |if$. |}. if$.|
|000010f0| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 7b 66 6f 72 |}..FUNCT|ION {for|
|00001100| 6d 61 74 2e 62 74 69 74 | 6c 65 7d 0d 7b 20 74 69 |mat.btit|le}.{ ti|
|00001110| 74 6c 65 20 65 6d 70 68 | 61 73 69 7a 65 0d 7d 0d |tle emph|asize.}.|
|00001120| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 74 69 65 2e 6f |.FUNCTIO|N {tie.o|
|00001130| 72 2e 73 70 61 63 65 2e | 63 6f 6e 6e 65 63 74 7d |r.space.|connect}|
|00001140| 0d 7b 20 64 75 70 6c 69 | 63 61 74 65 24 20 74 65 |.{ dupli|cate$ te|
|00001150| 78 74 2e 6c 65 6e 67 74 | 68 24 20 23 33 20 3c 0d |xt.lengt|h$ #3 <.|
|00001160| 20 20 20 20 7b 20 22 7e | 22 20 7d 0d 20 20 20 20 | { "~|" }. |
|00001170| 7b 20 22 20 22 20 7d 0d | 20 20 69 66 24 0d 20 20 |{ " " }.| if$. |
|00001180| 73 77 61 70 24 20 2a 20 | 2a 0d 7d 0d 0d 46 55 4e |swap$ * |*.}..FUN|
|00001190| 43 54 49 4f 4e 20 7b 65 | 69 74 68 65 72 2e 6f 72 |CTION {e|ither.or|
|000011a0| 2e 63 68 65 63 6b 7d 0d | 7b 20 65 6d 70 74 79 24 |.check}.|{ empty$|
|000011b0| 0d 20 20 20 20 27 70 6f | 70 24 0d 20 20 20 20 7b |. 'po|p$. {|
|000011c0| 20 22 63 61 6e 27 74 20 | 75 73 65 20 62 6f 74 68 | "can't |use both|
|000011d0| 20 22 20 73 77 61 70 24 | 20 2a 20 22 20 66 69 65 | " swap$| * " fie|
|000011e0| 6c 64 73 20 69 6e 20 22 | 20 2a 20 63 69 74 65 24 |lds in "| * cite$|
|000011f0| 20 2a 20 77 61 72 6e 69 | 6e 67 24 20 7d 0d 20 20 | * warni|ng$ }. |
|00001200| 69 66 24 0d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |if$.}..F|UNCTION |
|00001210| 7b 66 6f 72 6d 61 74 2e | 62 76 6f 6c 75 6d 65 7d |{format.|bvolume}|
|00001220| 0d 7b 20 76 6f 6c 75 6d | 65 20 65 6d 70 74 79 24 |.{ volum|e empty$|
|00001230| 0d 20 20 20 20 7b 20 22 | 22 20 7d 0d 20 20 20 20 |. { "|" }. |
|00001240| 7b 20 22 76 6f 6c 75 6d | 65 22 20 76 6f 6c 75 6d |{ "volum|e" volum|
|00001250| 65 20 74 69 65 2e 6f 72 | 2e 73 70 61 63 65 2e 63 |e tie.or|.space.c|
|00001260| 6f 6e 6e 65 63 74 0d 20 | 20 20 20 20 20 73 65 72 |onnect. | ser|
|00001270| 69 65 73 20 65 6d 70 74 | 79 24 0d 20 20 20 20 20 |ies empt|y$. |
|00001280| 20 20 20 27 73 6b 69 70 | 24 0d 20 20 20 20 20 20 | 'skip|$. |
|00001290| 20 20 7b 20 22 20 6f 66 | 20 22 20 2a 20 73 65 72 | { " of| " * ser|
|000012a0| 69 65 73 20 65 6d 70 68 | 61 73 69 7a 65 20 2a 20 |ies emph|asize * |
|000012b0| 7d 0d 20 20 20 20 20 20 | 69 66 24 0d 20 20 20 20 |}. |if$. |
|000012c0| 20 20 22 76 6f 6c 75 6d | 65 20 61 6e 64 20 6e 75 | "volum|e and nu|
|000012d0| 6d 62 65 72 22 20 6e 75 | 6d 62 65 72 20 65 69 74 |mber" nu|mber eit|
|000012e0| 68 65 72 2e 6f 72 2e 63 | 68 65 63 6b 0d 20 20 20 |her.or.c|heck. |
|000012f0| 20 7d 0d 20 20 69 66 24 | 0d 7d 0d 0d 46 55 4e 43 | }. if$|.}..FUNC|
|00001300| 54 49 4f 4e 20 7b 66 6f | 72 6d 61 74 2e 6e 75 6d |TION {fo|rmat.num|
|00001310| 62 65 72 2e 73 65 72 69 | 65 73 7d 0d 7b 20 76 6f |ber.seri|es}.{ vo|
|00001320| 6c 75 6d 65 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |lume emp|ty$. |
|00001330| 7b 20 6e 75 6d 62 65 72 | 20 65 6d 70 74 79 24 0d |{ number| empty$.|
|00001340| 20 20 20 20 20 20 20 20 | 7b 20 73 65 72 69 65 73 | |{ series|
|00001350| 20 66 69 65 6c 64 2e 6f | 72 2e 6e 75 6c 6c 20 7d | field.o|r.null }|
|00001360| 0d 20 20 20 20 20 20 20 | 20 7b 20 6f 75 74 70 75 |. | { outpu|
|00001370| 74 2e 73 74 61 74 65 20 | 6d 69 64 2e 73 65 6e 74 |t.state |mid.sent|
|00001380| 65 6e 63 65 20 3d 0d 20 | 20 20 20 20 20 20 20 20 |ence =. | |
|00001390| 20 20 20 7b 20 22 6e 75 | 6d 62 65 72 22 20 7d 0d | { "nu|mber" }.|
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 7b 20 22 4e | | { "N|
|000013b0| 75 6d 62 65 72 22 20 7d | 0d 20 20 20 20 20 20 20 |umber" }|. |
|000013c0| 20 20 20 69 66 24 0d 20 | 20 20 20 20 20 20 20 20 | if$. | |
|000013d0| 20 6e 75 6d 62 65 72 20 | 74 69 65 2e 6f 72 2e 73 | number |tie.or.s|
|000013e0| 70 61 63 65 2e 63 6f 6e | 6e 65 63 74 0d 20 20 20 |pace.con|nect. |
|000013f0| 20 20 20 20 20 20 20 73 | 65 72 69 65 73 20 65 6d | s|eries em|
|00001400| 70 74 79 24 0d 20 20 20 | 20 20 20 20 20 20 20 20 |pty$. | |
|00001410| 20 7b 20 22 74 68 65 72 | 65 27 73 20 61 20 6e 75 | { "ther|e's a nu|
|00001420| 6d 62 65 72 20 62 75 74 | 20 6e 6f 20 73 65 72 69 |mber but| no seri|
|00001430| 65 73 20 69 6e 20 22 20 | 63 69 74 65 24 20 2a 20 |es in " |cite$ * |
|00001440| 77 61 72 6e 69 6e 67 24 | 20 7d 0d 20 20 20 20 20 |warning$| }. |
|00001450| 20 20 20 20 20 20 20 7b | 20 22 20 69 6e 20 22 20 | {| " in " |
|00001460| 2a 20 73 65 72 69 65 73 | 20 2a 20 7d 0d 20 20 20 |* series| * }. |
|00001470| 20 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 20 | i|f$. |
|00001480| 20 20 20 7d 0d 20 20 20 | 20 20 20 69 66 24 0d 20 | }. | if$. |
|00001490| 20 20 20 7d 0d 20 20 20 | 20 7b 20 22 22 20 7d 0d | }. | { "" }.|
|000014a0| 20 20 69 66 24 0d 7d 0d | 0d 46 55 4e 43 54 49 4f | if$.}.|.FUNCTIO|
|000014b0| 4e 20 7b 66 6f 72 6d 61 | 74 2e 65 64 69 74 69 6f |N {forma|t.editio|
|000014c0| 6e 7d 0d 7b 20 65 64 69 | 74 69 6f 6e 20 65 6d 70 |n}.{ edi|tion emp|
|000014d0| 74 79 24 0d 20 20 20 20 | 7b 20 22 22 20 7d 0d 20 |ty$. |{ "" }. |
|000014e0| 20 20 20 7b 20 6f 75 74 | 70 75 74 2e 73 74 61 74 | { out|put.stat|
|000014f0| 65 20 6d 69 64 2e 73 65 | 6e 74 65 6e 63 65 20 3d |e mid.se|ntence =|
|00001500| 0d 20 20 20 20 20 20 20 | 20 7b 20 65 64 69 74 69 |. | { editi|
|00001510| 6f 6e 20 22 6c 22 20 63 | 68 61 6e 67 65 2e 63 61 |on "l" c|hange.ca|
|00001520| 73 65 24 20 22 20 65 64 | 69 74 69 6f 6e 22 20 2a |se$ " ed|ition" *|
|00001530| 20 7d 0d 20 20 20 20 20 | 20 20 20 7b 20 65 64 69 | }. | { edi|
|00001540| 74 69 6f 6e 20 22 74 22 | 20 63 68 61 6e 67 65 2e |tion "t"| change.|
|00001550| 63 61 73 65 24 20 22 20 | 65 64 69 74 69 6f 6e 22 |case$ " |edition"|
|00001560| 20 2a 20 7d 0d 20 20 20 | 20 20 20 69 66 24 0d 20 | * }. | if$. |
|00001570| 20 20 20 7d 0d 20 20 69 | 66 24 0d 7d 0d 0d 49 4e | }. i|f$.}..IN|
|00001580| 54 45 47 45 52 53 20 7b | 20 6d 75 6c 74 69 72 65 |TEGERS {| multire|
|00001590| 73 75 6c 74 20 7d 0d 0d | 46 55 4e 43 54 49 4f 4e |sult }..|FUNCTION|
|000015a0| 20 7b 6d 75 6c 74 69 2e | 70 61 67 65 2e 63 68 65 | {multi.|page.che|
|000015b0| 63 6b 7d 0d 7b 20 27 74 | 20 3a 3d 0d 20 20 23 30 |ck}.{ 't| :=. #0|
|000015c0| 20 27 6d 75 6c 74 69 72 | 65 73 75 6c 74 20 3a 3d | 'multir|esult :=|
|000015d0| 0d 20 20 20 20 7b 20 6d | 75 6c 74 69 72 65 73 75 |. { m|ultiresu|
|000015e0| 6c 74 20 6e 6f 74 0d 20 | 20 20 20 20 20 74 20 65 |lt not. | t e|
|000015f0| 6d 70 74 79 24 20 6e 6f | 74 0d 20 20 20 20 20 20 |mpty$ no|t. |
|00001600| 61 6e 64 0d 20 20 20 20 | 7d 0d 20 20 20 20 7b 20 |and. |}. { |
|00001610| 74 20 23 31 20 23 31 20 | 73 75 62 73 74 72 69 6e |t #1 #1 |substrin|
|00001620| 67 24 0d 20 20 20 20 20 | 20 64 75 70 6c 69 63 61 |g$. | duplica|
|00001630| 74 65 24 20 22 2d 22 20 | 3d 0d 20 20 20 20 20 20 |te$ "-" |=. |
|00001640| 73 77 61 70 24 20 64 75 | 70 6c 69 63 61 74 65 24 |swap$ du|plicate$|
|00001650| 20 22 2c 22 20 3d 0d 20 | 20 20 20 20 20 73 77 61 | "," =. | swa|
|00001660| 70 24 20 22 2b 22 20 3d | 0d 20 20 20 20 20 20 6f |p$ "+" =|. o|
|00001670| 72 20 6f 72 0d 20 20 20 | 20 20 20 20 20 7b 20 23 |r or. | { #|
|00001680| 31 20 27 6d 75 6c 74 69 | 72 65 73 75 6c 74 20 3a |1 'multi|result :|
|00001690| 3d 20 7d 0d 20 20 20 20 | 20 20 20 20 7b 20 74 20 |= }. | { t |
|000016a0| 23 32 20 67 6c 6f 62 61 | 6c 2e 6d 61 78 24 20 73 |#2 globa|l.max$ s|
|000016b0| 75 62 73 74 72 69 6e 67 | 24 20 27 74 20 3a 3d 20 |ubstring|$ 't := |
|000016c0| 7d 0d 20 20 20 20 20 20 | 69 66 24 0d 20 20 20 20 |}. |if$. |
|000016d0| 7d 0d 20 20 77 68 69 6c | 65 24 0d 20 20 6d 75 6c |}. whil|e$. mul|
|000016e0| 74 69 72 65 73 75 6c 74 | 0d 7d 0d 0d 46 55 4e 43 |tiresult|.}..FUNC|
|000016f0| 54 49 4f 4e 20 7b 66 6f | 72 6d 61 74 2e 70 61 67 |TION {fo|rmat.pag|
|00001700| 65 73 7d 0d 7b 20 70 61 | 67 65 73 20 65 6d 70 74 |es}.{ pa|ges empt|
|00001710| 79 24 0d 20 20 20 20 7b | 20 22 22 20 7d 0d 20 20 |y$. {| "" }. |
|00001720| 20 20 7b 20 70 61 67 65 | 73 20 6d 75 6c 74 69 2e | { page|s multi.|
|00001730| 70 61 67 65 2e 63 68 65 | 63 6b 0d 20 20 20 20 20 |page.che|ck. |
|00001740| 20 20 20 7b 20 22 70 61 | 67 65 73 22 20 70 61 67 | { "pa|ges" pag|
|00001750| 65 73 20 6e 2e 64 61 73 | 68 69 66 79 20 74 69 65 |es n.das|hify tie|
|00001760| 2e 6f 72 2e 73 70 61 63 | 65 2e 63 6f 6e 6e 65 63 |.or.spac|e.connec|
|00001770| 74 20 7d 0d 20 20 20 20 | 20 20 20 20 7b 20 22 70 |t }. | { "p|
|00001780| 61 67 65 22 20 70 61 67 | 65 73 20 74 69 65 2e 6f |age" pag|es tie.o|
|00001790| 72 2e 73 70 61 63 65 2e | 63 6f 6e 6e 65 63 74 20 |r.space.|connect |
|000017a0| 7d 0d 20 20 20 20 20 20 | 69 66 24 0d 20 20 20 20 |}. |if$. |
|000017b0| 7d 0d 20 20 69 66 24 0d | 7d 0d 0d 46 55 4e 43 54 |}. if$.|}..FUNCT|
|000017c0| 49 4f 4e 20 7b 66 6f 72 | 6d 61 74 2e 76 6f 6c 2e |ION {for|mat.vol.|
|000017d0| 6e 75 6d 2e 70 61 67 65 | 73 7d 0d 7b 20 76 6f 6c |num.page|s}.{ vol|
|000017e0| 75 6d 65 20 66 69 65 6c | 64 2e 6f 72 2e 6e 75 6c |ume fiel|d.or.nul|
|000017f0| 6c 0d 20 20 6e 75 6d 62 | 65 72 20 65 6d 70 74 79 |l. numb|er empty|
|00001800| 24 0d 20 20 20 20 27 73 | 6b 69 70 24 0d 20 20 20 |$. 's|kip$. |
|00001810| 20 7b 20 22 28 22 20 6e | 75 6d 62 65 72 20 2a 20 | { "(" n|umber * |
|00001820| 22 29 22 20 2a 20 2a 0d | 20 20 20 20 20 20 76 6f |")" * *.| vo|
|00001830| 6c 75 6d 65 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |lume emp|ty$. |
|00001840| 20 20 20 20 7b 20 22 74 | 68 65 72 65 27 73 20 61 | { "t|here's a|
|00001850| 20 6e 75 6d 62 65 72 20 | 62 75 74 20 6e 6f 20 76 | number |but no v|
|00001860| 6f 6c 75 6d 65 20 69 6e | 20 22 20 63 69 74 65 24 |olume in| " cite$|
|00001870| 20 2a 20 77 61 72 6e 69 | 6e 67 24 20 7d 0d 20 20 | * warni|ng$ }. |
|00001880| 20 20 20 20 20 20 27 73 | 6b 69 70 24 0d 20 20 20 | 's|kip$. |
|00001890| 20 20 20 69 66 24 0d 20 | 20 20 20 7d 0d 20 20 69 | if$. | }. i|
|000018a0| 66 24 0d 20 20 70 61 67 | 65 73 20 65 6d 70 74 79 |f$. pag|es empty|
|000018b0| 24 0d 20 20 20 20 27 73 | 6b 69 70 24 0d 20 20 20 |$. 's|kip$. |
|000018c0| 20 7b 20 64 75 70 6c 69 | 63 61 74 65 24 20 65 6d | { dupli|cate$ em|
|000018d0| 70 74 79 24 0d 20 20 20 | 20 20 20 20 20 7b 20 70 |pty$. | { p|
|000018e0| 6f 70 24 20 66 6f 72 6d | 61 74 2e 70 61 67 65 73 |op$ form|at.pages|
|000018f0| 20 7d 0d 20 20 20 20 20 | 20 20 20 7b 20 22 3a 22 | }. | { ":"|
|00001900| 20 2a 20 70 61 67 65 73 | 20 6e 2e 64 61 73 68 69 | * pages| n.dashi|
|00001910| 66 79 20 2a 20 7d 0d 20 | 20 20 20 20 20 69 66 24 |fy * }. | if$|
|00001920| 0d 20 20 20 20 7d 0d 20 | 20 69 66 24 0d 7d 0d 0d |. }. | if$.}..|
|00001930| 46 55 4e 43 54 49 4f 4e | 20 7b 66 6f 72 6d 61 74 |FUNCTION| {format|
|00001940| 2e 63 68 61 70 74 65 72 | 2e 70 61 67 65 73 7d 0d |.chapter|.pages}.|
|00001950| 7b 20 63 68 61 70 74 65 | 72 20 65 6d 70 74 79 24 |{ chapte|r empty$|
|00001960| 0d 20 20 20 20 27 66 6f | 72 6d 61 74 2e 70 61 67 |. 'fo|rmat.pag|
|00001970| 65 73 0d 20 20 20 20 7b | 20 74 79 70 65 20 65 6d |es. {| type em|
|00001980| 70 74 79 24 0d 20 20 20 | 20 20 20 20 20 7b 20 22 |pty$. | { "|
|00001990| 63 68 61 70 74 65 72 22 | 20 7d 0d 20 20 20 20 20 |chapter"| }. |
|000019a0| 20 20 20 7b 20 74 79 70 | 65 20 22 6c 22 20 63 68 | { typ|e "l" ch|
|000019b0| 61 6e 67 65 2e 63 61 73 | 65 24 20 7d 0d 20 20 20 |ange.cas|e$ }. |
|000019c0| 20 20 20 69 66 24 0d 20 | 20 20 20 20 20 63 68 61 | if$. | cha|
|000019d0| 70 74 65 72 20 74 69 65 | 2e 6f 72 2e 73 70 61 63 |pter tie|.or.spac|
|000019e0| 65 2e 63 6f 6e 6e 65 63 | 74 0d 20 20 20 20 20 20 |e.connec|t. |
|000019f0| 70 61 67 65 73 20 65 6d | 70 74 79 24 0d 20 20 20 |pages em|pty$. |
|00001a00| 20 20 20 20 20 27 73 6b | 69 70 24 0d 20 20 20 20 | 'sk|ip$. |
|00001a10| 20 20 20 20 7b 20 22 2c | 20 22 20 2a 20 66 6f 72 | { ",| " * for|
|00001a20| 6d 61 74 2e 70 61 67 65 | 73 20 2a 20 7d 0d 20 20 |mat.page|s * }. |
|00001a30| 20 20 20 20 69 66 24 0d | 20 20 20 20 7d 0d 20 20 | if$.| }. |
|00001a40| 69 66 24 0d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |if$.}..F|UNCTION |
|00001a50| 7b 66 6f 72 6d 61 74 2e | 69 6e 2e 65 64 2e 62 6f |{format.|in.ed.bo|
|00001a60| 6f 6b 74 69 74 6c 65 7d | 0d 7b 20 62 6f 6f 6b 74 |oktitle}|.{ bookt|
|00001a70| 69 74 6c 65 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |itle emp|ty$. |
|00001a80| 7b 20 22 22 20 7d 0d 20 | 20 20 20 7b 20 65 64 69 |{ "" }. | { edi|
|00001a90| 74 6f 72 20 65 6d 70 74 | 79 24 0d 20 20 20 20 20 |tor empt|y$. |
|00001aa0| 20 20 20 7b 20 22 49 6e | 20 22 20 62 6f 6f 6b 74 | { "In| " bookt|
|00001ab0| 69 74 6c 65 20 65 6d 70 | 68 61 73 69 7a 65 20 2a |itle emp|hasize *|
|00001ac0| 20 7d 0d 20 20 20 20 20 | 20 20 20 7b 20 22 49 6e | }. | { "In|
|00001ad0| 20 22 20 66 6f 72 6d 61 | 74 2e 65 64 69 74 6f 72 | " forma|t.editor|
|00001ae0| 73 20 2a 20 22 2c 20 22 | 20 2a 20 62 6f 6f 6b 74 |s * ", "| * bookt|
|00001af0| 69 74 6c 65 20 65 6d 70 | 68 61 73 69 7a 65 20 2a |itle emp|hasize *|
|00001b00| 20 7d 0d 20 20 20 20 20 | 20 69 66 24 0d 20 20 20 | }. | if$. |
|00001b10| 20 7d 0d 20 20 69 66 24 | 0d 7d 0d 0d 46 55 4e 43 | }. if$|.}..FUNC|
|00001b20| 54 49 4f 4e 20 7b 65 6d | 70 74 79 2e 6d 69 73 63 |TION {em|pty.misc|
|00001b30| 2e 63 68 65 63 6b 7d 0d | 7b 20 61 75 74 68 6f 72 |.check}.|{ author|
|00001b40| 20 65 6d 70 74 79 24 20 | 74 69 74 6c 65 20 65 6d | empty$ |title em|
|00001b50| 70 74 79 24 20 68 6f 77 | 70 75 62 6c 69 73 68 65 |pty$ how|publishe|
|00001b60| 64 20 65 6d 70 74 79 24 | 0d 20 20 6d 6f 6e 74 68 |d empty$|. month|
|00001b70| 20 65 6d 70 74 79 24 20 | 79 65 61 72 20 65 6d 70 | empty$ |year emp|
|00001b80| 74 79 24 20 6e 6f 74 65 | 20 65 6d 70 74 79 24 0d |ty$ note| empty$.|
|00001b90| 20 20 61 6e 64 20 61 6e | 64 20 61 6e 64 20 61 6e | and an|d and an|
|00001ba0| 64 20 61 6e 64 0d 20 20 | 6b 65 79 20 65 6d 70 74 |d and. |key empt|
|00001bb0| 79 24 20 6e 6f 74 20 61 | 6e 64 0d 20 20 20 20 7b |y$ not a|nd. {|
|00001bc0| 20 22 61 6c 6c 20 72 65 | 6c 65 76 61 6e 74 20 66 | "all re|levant f|
|00001bd0| 69 65 6c 64 73 20 61 72 | 65 20 65 6d 70 74 79 20 |ields ar|e empty |
|00001be0| 69 6e 20 22 20 63 69 74 | 65 24 20 2a 20 77 61 72 |in " cit|e$ * war|
|00001bf0| 6e 69 6e 67 24 20 7d 0d | 20 20 20 20 27 73 6b 69 |ning$ }.| 'ski|
|00001c00| 70 24 0d 20 20 69 66 24 | 0d 7d 0d 0d 46 55 4e 43 |p$. if$|.}..FUNC|
|00001c10| 54 49 4f 4e 20 7b 66 6f | 72 6d 61 74 2e 74 68 65 |TION {fo|rmat.the|
|00001c20| 73 69 73 2e 74 79 70 65 | 7d 0d 7b 20 74 79 70 65 |sis.type|}.{ type|
|00001c30| 20 65 6d 70 74 79 24 0d | 20 20 20 20 27 73 6b 69 | empty$.| 'ski|
|00001c40| 70 24 0d 20 20 20 20 7b | 20 70 6f 70 24 0d 20 20 |p$. {| pop$. |
|00001c50| 20 20 20 20 74 79 70 65 | 20 22 74 22 20 63 68 61 | type| "t" cha|
|00001c60| 6e 67 65 2e 63 61 73 65 | 24 0d 20 20 20 20 7d 0d |nge.case|$. }.|
|00001c70| 20 20 69 66 24 0d 7d 0d | 0d 46 55 4e 43 54 49 4f | if$.}.|.FUNCTIO|
|00001c80| 4e 20 7b 66 6f 72 6d 61 | 74 2e 74 72 2e 6e 75 6d |N {forma|t.tr.num|
|00001c90| 62 65 72 7d 0d 7b 20 74 | 79 70 65 20 65 6d 70 74 |ber}.{ t|ype empt|
|00001ca0| 79 24 0d 20 20 20 20 7b | 20 22 54 65 63 68 6e 69 |y$. {| "Techni|
|00001cb0| 63 61 6c 20 52 65 70 6f | 72 74 22 20 7d 0d 20 20 |cal Repo|rt" }. |
|00001cc0| 20 20 27 74 79 70 65 0d | 20 20 69 66 24 0d 20 20 | 'type.| if$. |
|00001cd0| 6e 75 6d 62 65 72 20 65 | 6d 70 74 79 24 0d 20 20 |number e|mpty$. |
|00001ce0| 20 20 7b 20 22 74 22 20 | 63 68 61 6e 67 65 2e 63 | { "t" |change.c|
|00001cf0| 61 73 65 24 20 7d 0d 20 | 20 20 20 7b 20 6e 75 6d |ase$ }. | { num|
|00001d00| 62 65 72 20 74 69 65 2e | 6f 72 2e 73 70 61 63 65 |ber tie.|or.space|
|00001d10| 2e 63 6f 6e 6e 65 63 74 | 20 7d 0d 20 20 69 66 24 |.connect| }. if$|
|00001d20| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 66 6f |.}..FUNC|TION {fo|
|00001d30| 72 6d 61 74 2e 61 72 74 | 69 63 6c 65 2e 63 72 6f |rmat.art|icle.cro|
|00001d40| 73 73 72 65 66 7d 0d 7b | 20 6b 65 79 20 65 6d 70 |ssref}.{| key emp|
|00001d50| 74 79 24 0d 20 20 20 20 | 7b 20 6a 6f 75 72 6e 61 |ty$. |{ journa|
|00001d60| 6c 20 65 6d 70 74 79 24 | 0d 20 20 20 20 20 20 20 |l empty$|. |
|00001d70| 20 7b 20 22 6e 65 65 64 | 20 6b 65 79 20 6f 72 20 | { "need| key or |
|00001d80| 6a 6f 75 72 6e 61 6c 20 | 66 6f 72 20 22 20 63 69 |journal |for " ci|
|00001d90| 74 65 24 20 2a 20 22 20 | 74 6f 20 63 72 6f 73 73 |te$ * " |to cross|
|00001da0| 72 65 66 20 22 20 2a 20 | 63 72 6f 73 73 72 65 66 |ref " * |crossref|
|00001db0| 20 2a 0d 20 20 20 20 20 | 20 20 20 20 20 77 61 72 | *. | war|
|00001dc0| 6e 69 6e 67 24 0d 20 20 | 20 20 20 20 20 20 20 20 |ning$. | |
|00001dd0| 22 22 0d 20 20 20 20 20 | 20 20 20 7d 0d 20 20 20 |"". | }. |
|00001de0| 20 20 20 20 20 7b 20 22 | 49 6e 20 7b 5c 65 6d 20 | { "|In {\em |
|00001df0| 22 20 6a 6f 75 72 6e 61 | 6c 20 2a 20 22 5c 2f 7d |" journa|l * "\/}|
|00001e00| 22 20 2a 20 7d 0d 20 20 | 20 20 20 20 69 66 24 0d |" * }. | if$.|
|00001e10| 20 20 20 20 7d 0d 20 20 | 20 20 7b 20 22 49 6e 20 | }. | { "In |
|00001e20| 22 20 6b 65 79 20 2a 20 | 7d 0d 20 20 69 66 24 0d |" key * |}. if$.|
|00001e30| 20 20 22 20 5c 63 69 74 | 65 7b 22 20 2a 20 63 72 | " \cit|e{" * cr|
|00001e40| 6f 73 73 72 65 66 20 2a | 20 22 7d 22 20 2a 0d 7d |ossref *| "}" *.}|
|00001e50| 0d 0d 46 55 4e 43 54 49 | 4f 4e 20 7b 66 6f 72 6d |..FUNCTI|ON {form|
|00001e60| 61 74 2e 63 72 6f 73 73 | 72 65 66 2e 65 64 69 74 |at.cross|ref.edit|
|00001e70| 6f 72 7d 0d 7b 20 65 64 | 69 74 6f 72 20 23 31 20 |or}.{ ed|itor #1 |
|00001e80| 22 7b 76 76 7e 7d 7b 6c | 6c 7d 22 20 66 6f 72 6d |"{vv~}{l|l}" form|
|00001e90| 61 74 2e 6e 61 6d 65 24 | 0d 20 20 65 64 69 74 6f |at.name$|. edito|
|00001ea0| 72 20 6e 75 6d 2e 6e 61 | 6d 65 73 24 20 64 75 70 |r num.na|mes$ dup|
|00001eb0| 6c 69 63 61 74 65 24 0d | 20 20 23 32 20 3e 0d 20 |licate$.| #2 >. |
|00001ec0| 20 20 20 7b 20 70 6f 70 | 24 20 22 20 65 74 7e 61 | { pop|$ " et~a|
|00001ed0| 6c 2e 22 20 2a 20 7d 0d | 20 20 20 20 7b 20 23 32 |l." * }.| { #2|
|00001ee0| 20 3c 0d 20 20 20 20 20 | 20 20 20 27 73 6b 69 70 | <. | 'skip|
|00001ef0| 24 0d 20 20 20 20 20 20 | 20 20 7b 20 65 64 69 74 |$. | { edit|
|00001f00| 6f 72 20 23 32 20 22 7b | 66 66 20 7d 7b 76 76 20 |or #2 "{|ff }{vv |
|00001f10| 7d 7b 6c 6c 7d 7b 20 6a | 6a 7d 22 20 66 6f 72 6d |}{ll}{ j|j}" form|
|00001f20| 61 74 2e 6e 61 6d 65 24 | 20 22 6f 74 68 65 72 73 |at.name$| "others|
|00001f30| 22 20 3d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |" =. | |
|00001f40| 7b 20 22 20 65 74 7e 61 | 6c 2e 22 20 2a 20 7d 0d |{ " et~a|l." * }.|
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 7b 20 22 20 | | { " |
|00001f60| 61 6e 64 20 22 20 2a 20 | 65 64 69 74 6f 72 20 23 |and " * |editor #|
|00001f70| 32 20 22 7b 76 76 7e 7d | 7b 6c 6c 7d 22 20 66 6f |2 "{vv~}|{ll}" fo|
|00001f80| 72 6d 61 74 2e 6e 61 6d | 65 24 20 2a 20 7d 0d 20 |rmat.nam|e$ * }. |
|00001f90| 20 20 20 20 20 20 20 20 | 20 69 66 24 0d 20 20 20 | | if$. |
|00001fa0| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 69 66 24 | }. | if$|
|00001fb0| 0d 20 20 20 20 7d 0d 20 | 20 69 66 24 0d 7d 0d 0d |. }. | if$.}..|
|00001fc0| 46 55 4e 43 54 49 4f 4e | 20 7b 66 6f 72 6d 61 74 |FUNCTION| {format|
|00001fd0| 2e 62 6f 6f 6b 2e 63 72 | 6f 73 73 72 65 66 7d 0d |.book.cr|ossref}.|
|00001fe0| 7b 20 76 6f 6c 75 6d 65 | 20 65 6d 70 74 79 24 0d |{ volume| empty$.|
|00001ff0| 20 20 20 20 7b 20 22 65 | 6d 70 74 79 20 76 6f 6c | { "e|mpty vol|
|00002000| 75 6d 65 20 69 6e 20 22 | 20 63 69 74 65 24 20 2a |ume in "| cite$ *|
|00002010| 20 22 27 73 20 63 72 6f | 73 73 72 65 66 20 6f 66 | "'s cro|ssref of|
|00002020| 20 22 20 2a 20 63 72 6f | 73 73 72 65 66 20 2a 20 | " * cro|ssref * |
|00002030| 77 61 72 6e 69 6e 67 24 | 0d 20 20 20 20 20 20 22 |warning$|. "|
|00002040| 49 6e 20 22 0d 20 20 20 | 20 7d 0d 20 20 20 20 7b |In ". | }. {|
|00002050| 20 22 56 6f 6c 75 6d 65 | 22 20 76 6f 6c 75 6d 65 | "Volume|" volume|
|00002060| 20 74 69 65 2e 6f 72 2e | 73 70 61 63 65 2e 63 6f | tie.or.|space.co|
|00002070| 6e 6e 65 63 74 0d 20 20 | 20 20 20 20 22 20 6f 66 |nnect. | " of|
|00002080| 20 22 20 2a 0d 20 20 20 | 20 7d 0d 20 20 69 66 24 | " *. | }. if$|
|00002090| 0d 20 20 65 64 69 74 6f | 72 20 65 6d 70 74 79 24 |. edito|r empty$|
|000020a0| 0d 20 20 65 64 69 74 6f | 72 20 66 69 65 6c 64 2e |. edito|r field.|
|000020b0| 6f 72 2e 6e 75 6c 6c 20 | 61 75 74 68 6f 72 20 66 |or.null |author f|
|000020c0| 69 65 6c 64 2e 6f 72 2e | 6e 75 6c 6c 20 3d 0d 20 |ield.or.|null =. |
|000020d0| 20 6f 72 0d 20 20 20 20 | 7b 20 6b 65 79 20 65 6d | or. |{ key em|
|000020e0| 70 74 79 24 0d 20 20 20 | 20 20 20 20 20 7b 20 73 |pty$. | { s|
|000020f0| 65 72 69 65 73 20 65 6d | 70 74 79 24 0d 20 20 20 |eries em|pty$. |
|00002100| 20 20 20 20 20 20 20 20 | 20 7b 20 22 6e 65 65 64 | | { "need|
|00002110| 20 65 64 69 74 6f 72 2c | 20 6b 65 79 2c 20 6f 72 | editor,| key, or|
|00002120| 20 73 65 72 69 65 73 20 | 66 6f 72 20 22 20 63 69 | series |for " ci|
|00002130| 74 65 24 20 2a 20 22 20 | 74 6f 20 63 72 6f 73 73 |te$ * " |to cross|
|00002140| 72 65 66 20 22 20 2a 0d | 20 20 20 20 20 20 20 20 |ref " *.| |
|00002150| 20 20 20 20 20 20 63 72 | 6f 73 73 72 65 66 20 2a | cr|ossref *|
|00002160| 20 77 61 72 6e 69 6e 67 | 24 0d 20 20 20 20 20 20 | warning|$. |
|00002170| 20 20 20 20 20 20 20 20 | 22 22 20 2a 0d 20 20 20 | |"" *. |
|00002180| 20 20 20 20 20 20 20 20 | 20 7d 0d 20 20 20 20 20 | | }. |
|00002190| 20 20 20 20 20 20 20 7b | 20 22 7b 5c 65 6d 20 22 | {| "{\em "|
|000021a0| 20 2a 20 73 65 72 69 65 | 73 20 2a 20 22 5c 2f 7d | * serie|s * "\/}|
|000021b0| 22 20 2a 20 7d 0d 20 20 | 20 20 20 20 20 20 20 20 |" * }. | |
|000021c0| 69 66 24 0d 20 20 20 20 | 20 20 20 20 7d 0d 20 20 |if$. | }. |
|000021d0| 20 20 20 20 20 20 7b 20 | 6b 65 79 20 2a 20 7d 0d | { |key * }.|
|000021e0| 20 20 20 20 20 20 69 66 | 24 0d 20 20 20 20 7d 0d | if|$. }.|
|000021f0| 20 20 20 20 7b 20 66 6f | 72 6d 61 74 2e 63 72 6f | { fo|rmat.cro|
|00002200| 73 73 72 65 66 2e 65 64 | 69 74 6f 72 20 2a 20 7d |ssref.ed|itor * }|
|00002210| 0d 20 20 69 66 24 0d 20 | 20 22 20 5c 63 69 74 65 |. if$. | " \cite|
|00002220| 7b 22 20 2a 20 63 72 6f | 73 73 72 65 66 20 2a 20 |{" * cro|ssref * |
|00002230| 22 7d 22 20 2a 0d 7d 0d | 0d 46 55 4e 43 54 49 4f |"}" *.}.|.FUNCTIO|
|00002240| 4e 20 7b 66 6f 72 6d 61 | 74 2e 69 6e 63 6f 6c 6c |N {forma|t.incoll|
|00002250| 2e 69 6e 70 72 6f 63 2e | 63 72 6f 73 73 72 65 66 |.inproc.|crossref|
|00002260| 7d 0d 7b 20 65 64 69 74 | 6f 72 20 65 6d 70 74 79 |}.{ edit|or empty|
|00002270| 24 0d 20 20 65 64 69 74 | 6f 72 20 66 69 65 6c 64 |$. edit|or field|
|00002280| 2e 6f 72 2e 6e 75 6c 6c | 20 61 75 74 68 6f 72 20 |.or.null| author |
|00002290| 66 69 65 6c 64 2e 6f 72 | 2e 6e 75 6c 6c 20 3d 0d |field.or|.null =.|
|000022a0| 20 20 6f 72 0d 20 20 20 | 20 7b 20 6b 65 79 20 65 | or. | { key e|
|000022b0| 6d 70 74 79 24 0d 20 20 | 20 20 20 20 20 20 7b 20 |mpty$. | { |
|000022c0| 62 6f 6f 6b 74 69 74 6c | 65 20 65 6d 70 74 79 24 |booktitl|e empty$|
|000022d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 20 22 |. | { "|
|000022e0| 6e 65 65 64 20 65 64 69 | 74 6f 72 2c 20 6b 65 79 |need edi|tor, key|
|000022f0| 2c 20 6f 72 20 62 6f 6f | 6b 74 69 74 6c 65 20 66 |, or boo|ktitle f|
|00002300| 6f 72 20 22 20 63 69 74 | 65 24 20 2a 20 22 20 74 |or " cit|e$ * " t|
|00002310| 6f 20 63 72 6f 73 73 72 | 65 66 20 22 20 2a 0d 20 |o crossr|ef " *. |
|00002320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 72 6f | | cro|
|00002330| 73 73 72 65 66 20 2a 20 | 77 61 72 6e 69 6e 67 24 |ssref * |warning$|
|00002340| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 |. | "|
|00002350| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 7d 0d |". | }.|
|00002360| 20 20 20 20 20 20 20 20 | 20 20 20 20 7b 20 22 49 | | { "I|
|00002370| 6e 20 7b 5c 65 6d 20 22 | 20 62 6f 6f 6b 74 69 74 |n {\em "| booktit|
|00002380| 6c 65 20 2a 20 22 5c 2f | 7d 22 20 2a 20 7d 0d 20 |le * "\/|}" * }. |
|00002390| 20 20 20 20 20 20 20 20 | 20 69 66 24 0d 20 20 20 | | if$. |
|000023a0| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 20 20 7b | }. | {|
|000023b0| 20 22 49 6e 20 22 20 6b | 65 79 20 2a 20 7d 0d 20 | "In " k|ey * }. |
|000023c0| 20 20 20 20 20 69 66 24 | 0d 20 20 20 20 7d 0d 20 | if$|. }. |
|000023d0| 20 20 20 7b 20 22 49 6e | 20 22 20 66 6f 72 6d 61 | { "In| " forma|
|000023e0| 74 2e 63 72 6f 73 73 72 | 65 66 2e 65 64 69 74 6f |t.crossr|ef.edito|
|000023f0| 72 20 2a 20 7d 0d 20 20 | 69 66 24 0d 20 20 22 20 |r * }. |if$. " |
|00002400| 5c 63 69 74 65 7b 22 20 | 2a 20 63 72 6f 73 73 72 |\cite{" |* crossr|
|00002410| 65 66 20 2a 20 22 7d 22 | 20 2a 0d 7d 0d 0d 46 55 |ef * "}"| *.}..FU|
|00002420| 4e 43 54 49 4f 4e 20 7b | 61 72 74 69 63 6c 65 7d |NCTION {|article}|
|00002430| 0d 7b 20 6f 75 74 70 75 | 74 2e 62 69 62 69 74 65 |.{ outpu|t.bibite|
|00002440| 6d 0d 20 20 66 6f 72 6d | 61 74 2e 61 75 74 68 6f |m. form|at.autho|
|00002450| 72 73 20 22 61 75 74 68 | 6f 72 22 20 6f 75 74 70 |rs "auth|or" outp|
|00002460| 75 74 2e 63 68 65 63 6b | 0d 20 20 6e 65 77 2e 62 |ut.check|. new.b|
|00002470| 6c 6f 63 6b 0d 20 20 66 | 6f 72 6d 61 74 2e 74 69 |lock. f|ormat.ti|
|00002480| 74 6c 65 20 22 74 69 74 | 6c 65 22 20 6f 75 74 70 |tle "tit|le" outp|
|00002490| 75 74 2e 63 68 65 63 6b | 0d 20 20 6e 65 77 2e 62 |ut.check|. new.b|
|000024a0| 6c 6f 63 6b 0d 20 20 63 | 72 6f 73 73 72 65 66 20 |lock. c|rossref |
|000024b0| 6d 69 73 73 69 6e 67 24 | 0d 20 20 20 20 7b 20 6a |missing$|. { j|
|000024c0| 6f 75 72 6e 61 6c 20 65 | 6d 70 68 61 73 69 7a 65 |ournal e|mphasize|
|000024d0| 20 22 6a 6f 75 72 6e 61 | 6c 22 20 6f 75 74 70 75 | "journa|l" outpu|
|000024e0| 74 2e 63 68 65 63 6b 0d | 20 20 20 20 20 20 66 6f |t.check.| fo|
|000024f0| 72 6d 61 74 2e 76 6f 6c | 2e 6e 75 6d 2e 70 61 67 |rmat.vol|.num.pag|
|00002500| 65 73 20 6f 75 74 70 75 | 74 0d 20 20 20 20 20 20 |es outpu|t. |
|00002510| 66 6f 72 6d 61 74 2e 64 | 61 74 65 20 22 79 65 61 |format.d|ate "yea|
|00002520| 72 22 20 6f 75 74 70 75 | 74 2e 63 68 65 63 6b 0d |r" outpu|t.check.|
|00002530| 20 20 20 20 7d 0d 20 20 | 20 20 7b 20 66 6f 72 6d | }. | { form|
|00002540| 61 74 2e 61 72 74 69 63 | 6c 65 2e 63 72 6f 73 73 |at.artic|le.cross|
|00002550| 72 65 66 20 6f 75 74 70 | 75 74 2e 6e 6f 6e 6e 75 |ref outp|ut.nonnu|
|00002560| 6c 6c 0d 20 20 20 20 20 | 20 66 6f 72 6d 61 74 2e |ll. | format.|
|00002570| 70 61 67 65 73 20 6f 75 | 74 70 75 74 0d 20 20 20 |pages ou|tput. |
|00002580| 20 7d 0d 20 20 69 66 24 | 0d 20 20 6e 65 77 2e 62 | }. if$|. new.b|
|00002590| 6c 6f 63 6b 0d 20 20 6e | 6f 74 65 20 6f 75 74 70 |lock. n|ote outp|
|000025a0| 75 74 0d 20 20 66 69 6e | 2e 65 6e 74 72 79 0d 20 |ut. fin|.entry. |
|000025b0| 20 66 6f 72 6d 61 74 2e | 61 6e 6e 6f 74 61 74 65 | format.|annotate|
|000025c0| 20 77 72 69 74 65 24 0d | 20 20 6e 65 77 6c 69 6e | write$.| newlin|
|000025d0| 65 24 0d 7d 0d 0d 46 55 | 4e 43 54 49 4f 4e 20 7b |e$.}..FU|NCTION {|
|000025e0| 62 6f 6f 6b 7d 0d 7b 20 | 6f 75 74 70 75 74 2e 62 |book}.{ |output.b|
|000025f0| 69 62 69 74 65 6d 0d 20 | 20 61 75 74 68 6f 72 20 |ibitem. | author |
|00002600| 65 6d 70 74 79 24 0d 20 | 20 20 20 7b 20 66 6f 72 |empty$. | { for|
|00002610| 6d 61 74 2e 65 64 69 74 | 6f 72 73 20 22 61 75 74 |mat.edit|ors "aut|
|00002620| 68 6f 72 20 61 6e 64 20 | 65 64 69 74 6f 72 22 20 |hor and |editor" |
|00002630| 6f 75 74 70 75 74 2e 63 | 68 65 63 6b 20 7d 0d 20 |output.c|heck }. |
|00002640| 20 20 20 7b 20 66 6f 72 | 6d 61 74 2e 61 75 74 68 | { for|mat.auth|
|00002650| 6f 72 73 20 6f 75 74 70 | 75 74 2e 6e 6f 6e 6e 75 |ors outp|ut.nonnu|
|00002660| 6c 6c 0d 20 20 20 20 20 | 20 63 72 6f 73 73 72 65 |ll. | crossre|
|00002670| 66 20 6d 69 73 73 69 6e | 67 24 0d 20 20 20 20 20 |f missin|g$. |
|00002680| 20 20 20 7b 20 22 61 75 | 74 68 6f 72 20 61 6e 64 | { "au|thor and|
|00002690| 20 65 64 69 74 6f 72 22 | 20 65 64 69 74 6f 72 20 | editor"| editor |
|000026a0| 65 69 74 68 65 72 2e 6f | 72 2e 63 68 65 63 6b 20 |either.o|r.check |
|000026b0| 7d 0d 20 20 20 20 20 20 | 20 20 27 73 6b 69 70 24 |}. | 'skip$|
|000026c0| 0d 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 7d |. i|f$. }|
|000026d0| 0d 20 20 69 66 24 0d 20 | 20 6e 65 77 2e 62 6c 6f |. if$. | new.blo|
|000026e0| 63 6b 0d 20 20 66 6f 72 | 6d 61 74 2e 62 74 69 74 |ck. for|mat.btit|
|000026f0| 6c 65 20 22 74 69 74 6c | 65 22 20 6f 75 74 70 75 |le "titl|e" outpu|
|00002700| 74 2e 63 68 65 63 6b 0d | 20 20 63 72 6f 73 73 72 |t.check.| crossr|
|00002710| 65 66 20 6d 69 73 73 69 | 6e 67 24 0d 20 20 20 20 |ef missi|ng$. |
|00002720| 7b 20 66 6f 72 6d 61 74 | 2e 62 76 6f 6c 75 6d 65 |{ format|.bvolume|
|00002730| 20 6f 75 74 70 75 74 0d | 20 20 20 20 20 20 6e 65 | output.| ne|
|00002740| 77 2e 62 6c 6f 63 6b 0d | 20 20 20 20 20 20 66 6f |w.block.| fo|
|00002750| 72 6d 61 74 2e 6e 75 6d | 62 65 72 2e 73 65 72 69 |rmat.num|ber.seri|
|00002760| 65 73 20 6f 75 74 70 75 | 74 0d 20 20 20 20 20 20 |es outpu|t. |
|00002770| 6e 65 77 2e 73 65 6e 74 | 65 6e 63 65 0d 20 20 20 |new.sent|ence. |
|00002780| 20 20 20 70 75 62 6c 69 | 73 68 65 72 20 22 70 75 | publi|sher "pu|
|00002790| 62 6c 69 73 68 65 72 22 | 20 6f 75 74 70 75 74 2e |blisher"| output.|
|000027a0| 63 68 65 63 6b 0d 20 20 | 20 20 20 20 61 64 64 72 |check. | addr|
|000027b0| 65 73 73 20 6f 75 74 70 | 75 74 0d 20 20 20 20 7d |ess outp|ut. }|
|000027c0| 0d 20 20 20 20 7b 20 6e | 65 77 2e 62 6c 6f 63 6b |. { n|ew.block|
|000027d0| 0d 20 20 20 20 20 20 66 | 6f 72 6d 61 74 2e 62 6f |. f|ormat.bo|
|000027e0| 6f 6b 2e 63 72 6f 73 73 | 72 65 66 20 6f 75 74 70 |ok.cross|ref outp|
|000027f0| 75 74 2e 6e 6f 6e 6e 75 | 6c 6c 0d 20 20 20 20 7d |ut.nonnu|ll. }|
|00002800| 0d 20 20 69 66 24 0d 20 | 20 66 6f 72 6d 61 74 2e |. if$. | format.|
|00002810| 65 64 69 74 69 6f 6e 20 | 6f 75 74 70 75 74 0d 20 |edition |output. |
|00002820| 20 66 6f 72 6d 61 74 2e | 64 61 74 65 20 22 79 65 | format.|date "ye|
|00002830| 61 72 22 20 6f 75 74 70 | 75 74 2e 63 68 65 63 6b |ar" outp|ut.check|
|00002840| 0d 20 20 6e 65 77 2e 62 | 6c 6f 63 6b 0d 20 20 6e |. new.b|lock. n|
|00002850| 6f 74 65 20 6f 75 74 70 | 75 74 0d 20 20 66 69 6e |ote outp|ut. fin|
|00002860| 2e 65 6e 74 72 79 0d 20 | 20 66 6f 72 6d 61 74 2e |.entry. | format.|
|00002870| 61 6e 6e 6f 74 61 74 65 | 20 77 72 69 74 65 24 0d |annotate| write$.|
|00002880| 20 20 6e 65 77 6c 69 6e | 65 24 0d 0d 7d 0d 0d 46 | newlin|e$..}..F|
|00002890| 55 4e 43 54 49 4f 4e 20 | 7b 62 6f 6f 6b 6c 65 74 |UNCTION |{booklet|
|000028a0| 7d 0d 7b 20 6f 75 74 70 | 75 74 2e 62 69 62 69 74 |}.{ outp|ut.bibit|
|000028b0| 65 6d 0d 20 20 66 6f 72 | 6d 61 74 2e 61 75 74 68 |em. for|mat.auth|
|000028c0| 6f 72 73 20 6f 75 74 70 | 75 74 0d 20 20 6e 65 77 |ors outp|ut. new|
|000028d0| 2e 62 6c 6f 63 6b 0d 20 | 20 66 6f 72 6d 61 74 2e |.block. | format.|
|000028e0| 74 69 74 6c 65 20 22 74 | 69 74 6c 65 22 20 6f 75 |title "t|itle" ou|
|000028f0| 74 70 75 74 2e 63 68 65 | 63 6b 0d 20 20 68 6f 77 |tput.che|ck. how|
|00002900| 70 75 62 6c 69 73 68 65 | 64 20 61 64 64 72 65 73 |publishe|d addres|
|00002910| 73 20 6e 65 77 2e 62 6c | 6f 63 6b 2e 63 68 65 63 |s new.bl|ock.chec|
|00002920| 6b 62 0d 20 20 68 6f 77 | 70 75 62 6c 69 73 68 65 |kb. how|publishe|
|00002930| 64 20 6f 75 74 70 75 74 | 0d 20 20 61 64 64 72 65 |d output|. addre|
|00002940| 73 73 20 6f 75 74 70 75 | 74 0d 20 20 66 6f 72 6d |ss outpu|t. form|
|00002950| 61 74 2e 64 61 74 65 20 | 6f 75 74 70 75 74 0d 20 |at.date |output. |
|00002960| 20 6e 65 77 2e 62 6c 6f | 63 6b 0d 20 20 6e 6f 74 | new.blo|ck. not|
|00002970| 65 20 6f 75 74 70 75 74 | 0d 20 20 66 69 6e 2e 65 |e output|. fin.e|
|00002980| 6e 74 72 79 0d 20 20 66 | 6f 72 6d 61 74 2e 61 6e |ntry. f|ormat.an|
|00002990| 6e 6f 74 61 74 65 20 77 | 72 69 74 65 24 0d 20 20 |notate w|rite$. |
|000029a0| 6e 65 77 6c 69 6e 65 24 | 0d 0d 7d 0d 0d 46 55 4e |newline$|..}..FUN|
|000029b0| 43 54 49 4f 4e 20 7b 69 | 6e 62 6f 6f 6b 7d 0d 7b |CTION {i|nbook}.{|
|000029c0| 20 6f 75 74 70 75 74 2e | 62 69 62 69 74 65 6d 0d | output.|bibitem.|
|000029d0| 20 20 61 75 74 68 6f 72 | 20 65 6d 70 74 79 24 0d | author| empty$.|
|000029e0| 20 20 20 20 7b 20 66 6f | 72 6d 61 74 2e 65 64 69 | { fo|rmat.edi|
|000029f0| 74 6f 72 73 20 22 61 75 | 74 68 6f 72 20 61 6e 64 |tors "au|thor and|
|00002a00| 20 65 64 69 74 6f 72 22 | 20 6f 75 74 70 75 74 2e | editor"| output.|
|00002a10| 63 68 65 63 6b 20 7d 0d | 20 20 20 20 7b 20 66 6f |check }.| { fo|
|00002a20| 72 6d 61 74 2e 61 75 74 | 68 6f 72 73 20 6f 75 74 |rmat.aut|hors out|
|00002a30| 70 75 74 2e 6e 6f 6e 6e | 75 6c 6c 0d 20 20 20 20 |put.nonn|ull. |
|00002a40| 20 20 63 72 6f 73 73 72 | 65 66 20 6d 69 73 73 69 | crossr|ef missi|
|00002a50| 6e 67 24 0d 20 20 20 20 | 20 20 20 20 7b 20 22 61 |ng$. | { "a|
|00002a60| 75 74 68 6f 72 20 61 6e | 64 20 65 64 69 74 6f 72 |uthor an|d editor|
|00002a70| 22 20 65 64 69 74 6f 72 | 20 65 69 74 68 65 72 2e |" editor| either.|
|00002a80| 6f 72 2e 63 68 65 63 6b | 20 7d 0d 20 20 20 20 20 |or.check| }. |
|00002a90| 20 20 20 27 73 6b 69 70 | 24 0d 20 20 20 20 20 20 | 'skip|$. |
|00002aa0| 69 66 24 0d 20 20 20 20 | 7d 0d 20 20 69 66 24 0d |if$. |}. if$.|
|00002ab0| 20 20 6e 65 77 2e 62 6c | 6f 63 6b 0d 20 20 66 6f | new.bl|ock. fo|
|00002ac0| 72 6d 61 74 2e 62 74 69 | 74 6c 65 20 22 74 69 74 |rmat.bti|tle "tit|
|00002ad0| 6c 65 22 20 6f 75 74 70 | 75 74 2e 63 68 65 63 6b |le" outp|ut.check|
|00002ae0| 0d 20 20 63 72 6f 73 73 | 72 65 66 20 6d 69 73 73 |. cross|ref miss|
|00002af0| 69 6e 67 24 0d 20 20 20 | 20 7b 20 66 6f 72 6d 61 |ing$. | { forma|
|00002b00| 74 2e 62 76 6f 6c 75 6d | 65 20 6f 75 74 70 75 74 |t.bvolum|e output|
|00002b10| 0d 20 20 20 20 20 20 66 | 6f 72 6d 61 74 2e 63 68 |. f|ormat.ch|
|00002b20| 61 70 74 65 72 2e 70 61 | 67 65 73 20 22 63 68 61 |apter.pa|ges "cha|
|00002b30| 70 74 65 72 20 61 6e 64 | 20 70 61 67 65 73 22 20 |pter and| pages" |
|00002b40| 6f 75 74 70 75 74 2e 63 | 68 65 63 6b 0d 20 20 20 |output.c|heck. |
|00002b50| 20 20 20 6e 65 77 2e 62 | 6c 6f 63 6b 0d 20 20 20 | new.b|lock. |
|00002b60| 20 20 20 66 6f 72 6d 61 | 74 2e 6e 75 6d 62 65 72 | forma|t.number|
|00002b70| 2e 73 65 72 69 65 73 20 | 6f 75 74 70 75 74 0d 20 |.series |output. |
|00002b80| 20 20 20 20 20 6e 65 77 | 2e 73 65 6e 74 65 6e 63 | new|.sentenc|
|00002b90| 65 0d 20 20 20 20 20 20 | 70 75 62 6c 69 73 68 65 |e. |publishe|
|00002ba0| 72 20 22 70 75 62 6c 69 | 73 68 65 72 22 20 6f 75 |r "publi|sher" ou|
|00002bb0| 74 70 75 74 2e 63 68 65 | 63 6b 0d 20 20 20 20 20 |tput.che|ck. |
|00002bc0| 20 61 64 64 72 65 73 73 | 20 6f 75 74 70 75 74 0d | address| output.|
|00002bd0| 20 20 20 20 7d 0d 20 20 | 20 20 7b 20 66 6f 72 6d | }. | { form|
|00002be0| 61 74 2e 63 68 61 70 74 | 65 72 2e 70 61 67 65 73 |at.chapt|er.pages|
|00002bf0| 20 22 63 68 61 70 74 65 | 72 20 61 6e 64 20 70 61 | "chapte|r and pa|
|00002c00| 67 65 73 22 20 6f 75 74 | 70 75 74 2e 63 68 65 63 |ges" out|put.chec|
|00002c10| 6b 0d 20 20 20 20 20 20 | 6e 65 77 2e 62 6c 6f 63 |k. |new.bloc|
|00002c20| 6b 0d 20 20 20 20 20 20 | 66 6f 72 6d 61 74 2e 62 |k. |format.b|
|00002c30| 6f 6f 6b 2e 63 72 6f 73 | 73 72 65 66 20 6f 75 74 |ook.cros|sref out|
|00002c40| 70 75 74 2e 6e 6f 6e 6e | 75 6c 6c 0d 20 20 20 20 |put.nonn|ull. |
|00002c50| 7d 0d 20 20 69 66 24 0d | 20 20 66 6f 72 6d 61 74 |}. if$.| format|
|00002c60| 2e 65 64 69 74 69 6f 6e | 20 6f 75 74 70 75 74 0d |.edition| output.|
|00002c70| 20 20 66 6f 72 6d 61 74 | 2e 64 61 74 65 20 22 79 | format|.date "y|
|00002c80| 65 61 72 22 20 6f 75 74 | 70 75 74 2e 63 68 65 63 |ear" out|put.chec|
|00002c90| 6b 0d 20 20 6e 65 77 2e | 62 6c 6f 63 6b 0d 20 20 |k. new.|block. |
|00002ca0| 6e 6f 74 65 20 6f 75 74 | 70 75 74 0d 20 20 66 69 |note out|put. fi|
|00002cb0| 6e 2e 65 6e 74 72 79 0d | 20 20 66 6f 72 6d 61 74 |n.entry.| format|
|00002cc0| 2e 61 6e 6e 6f 74 61 74 | 65 20 77 72 69 74 65 24 |.annotat|e write$|
|00002cd0| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 69 6e |.}..FUNC|TION {in|
|00002ce0| 63 6f 6c 6c 65 63 74 69 | 6f 6e 7d 0d 7b 20 6f 75 |collecti|on}.{ ou|
|00002cf0| 74 70 75 74 2e 62 69 62 | 69 74 65 6d 0d 20 20 66 |tput.bib|item. f|
|00002d00| 6f 72 6d 61 74 2e 61 75 | 74 68 6f 72 73 20 22 61 |ormat.au|thors "a|
|00002d10| 75 74 68 6f 72 22 20 6f | 75 74 70 75 74 2e 63 68 |uthor" o|utput.ch|
|00002d20| 65 63 6b 0d 20 20 6e 65 | 77 2e 62 6c 6f 63 6b 0d |eck. ne|w.block.|
|00002d30| 20 20 66 6f 72 6d 61 74 | 2e 74 69 74 6c 65 20 22 | format|.title "|
|00002d40| 74 69 74 6c 65 22 20 6f | 75 74 70 75 74 2e 63 68 |title" o|utput.ch|
|00002d50| 65 63 6b 0d 20 20 6e 65 | 77 2e 62 6c 6f 63 6b 0d |eck. ne|w.block.|
|00002d60| 20 20 63 72 6f 73 73 72 | 65 66 20 6d 69 73 73 69 | crossr|ef missi|
|00002d70| 6e 67 24 0d 20 20 20 20 | 7b 20 66 6f 72 6d 61 74 |ng$. |{ format|
|00002d80| 2e 69 6e 2e 65 64 2e 62 | 6f 6f 6b 74 69 74 6c 65 |.in.ed.b|ooktitle|
|00002d90| 20 22 62 6f 6f 6b 74 69 | 74 6c 65 22 20 6f 75 74 | "bookti|tle" out|
|00002da0| 70 75 74 2e 63 68 65 63 | 6b 0d 20 20 20 20 20 20 |put.chec|k. |
|00002db0| 66 6f 72 6d 61 74 2e 62 | 76 6f 6c 75 6d 65 20 6f |format.b|volume o|
|00002dc0| 75 74 70 75 74 0d 20 20 | 20 20 20 20 66 6f 72 6d |utput. | form|
|00002dd0| 61 74 2e 6e 75 6d 62 65 | 72 2e 73 65 72 69 65 73 |at.numbe|r.series|
|00002de0| 20 6f 75 74 70 75 74 0d | 20 20 20 20 20 20 66 6f | output.| fo|
|00002df0| 72 6d 61 74 2e 63 68 61 | 70 74 65 72 2e 70 61 67 |rmat.cha|pter.pag|
|00002e00| 65 73 20 6f 75 74 70 75 | 74 0d 20 20 20 20 20 20 |es outpu|t. |
|00002e10| 6e 65 77 2e 73 65 6e 74 | 65 6e 63 65 0d 20 20 20 |new.sent|ence. |
|00002e20| 20 20 20 70 75 62 6c 69 | 73 68 65 72 20 22 70 75 | publi|sher "pu|
|00002e30| 62 6c 69 73 68 65 72 22 | 20 6f 75 74 70 75 74 2e |blisher"| output.|
|00002e40| 63 68 65 63 6b 0d 20 20 | 20 20 20 20 61 64 64 72 |check. | addr|
|00002e50| 65 73 73 20 6f 75 74 70 | 75 74 0d 20 20 20 20 20 |ess outp|ut. |
|00002e60| 20 66 6f 72 6d 61 74 2e | 65 64 69 74 69 6f 6e 20 | format.|edition |
|00002e70| 6f 75 74 70 75 74 0d 20 | 20 20 20 20 20 66 6f 72 |output. | for|
|00002e80| 6d 61 74 2e 64 61 74 65 | 20 22 79 65 61 72 22 20 |mat.date| "year" |
|00002e90| 6f 75 74 70 75 74 2e 63 | 68 65 63 6b 0d 20 20 20 |output.c|heck. |
|00002ea0| 20 7d 0d 20 20 20 20 7b | 20 66 6f 72 6d 61 74 2e | }. {| format.|
|00002eb0| 69 6e 63 6f 6c 6c 2e 69 | 6e 70 72 6f 63 2e 63 72 |incoll.i|nproc.cr|
|00002ec0| 6f 73 73 72 65 66 20 6f | 75 74 70 75 74 2e 6e 6f |ossref o|utput.no|
|00002ed0| 6e 6e 75 6c 6c 0d 20 20 | 20 20 20 20 66 6f 72 6d |nnull. | form|
|00002ee0| 61 74 2e 63 68 61 70 74 | 65 72 2e 70 61 67 65 73 |at.chapt|er.pages|
|00002ef0| 20 6f 75 74 70 75 74 0d | 20 20 20 20 7d 0d 20 20 | output.| }. |
|00002f00| 69 66 24 0d 20 20 6e 65 | 77 2e 62 6c 6f 63 6b 0d |if$. ne|w.block.|
|00002f10| 20 20 6e 6f 74 65 20 6f | 75 74 70 75 74 0d 20 20 | note o|utput. |
|00002f20| 66 69 6e 2e 65 6e 74 72 | 79 0d 20 20 66 6f 72 6d |fin.entr|y. form|
|00002f30| 61 74 2e 61 6e 6e 6f 74 | 61 74 65 20 77 72 69 74 |at.annot|ate writ|
|00002f40| 65 24 0d 7d 0d 0d 46 55 | 4e 43 54 49 4f 4e 20 7b |e$.}..FU|NCTION {|
|00002f50| 69 6e 70 72 6f 63 65 65 | 64 69 6e 67 73 7d 0d 7b |inprocee|dings}.{|
|00002f60| 20 6f 75 74 70 75 74 2e | 62 69 62 69 74 65 6d 0d | output.|bibitem.|
|00002f70| 20 20 66 6f 72 6d 61 74 | 2e 61 75 74 68 6f 72 73 | format|.authors|
|00002f80| 20 22 61 75 74 68 6f 72 | 22 20 6f 75 74 70 75 74 | "author|" output|
|00002f90| 2e 63 68 65 63 6b 0d 20 | 20 6e 65 77 2e 62 6c 6f |.check. | new.blo|
|00002fa0| 63 6b 0d 20 20 66 6f 72 | 6d 61 74 2e 74 69 74 6c |ck. for|mat.titl|
|00002fb0| 65 20 22 74 69 74 6c 65 | 22 20 6f 75 74 70 75 74 |e "title|" output|
|00002fc0| 2e 63 68 65 63 6b 0d 20 | 20 6e 65 77 2e 62 6c 6f |.check. | new.blo|
|00002fd0| 63 6b 0d 20 20 63 72 6f | 73 73 72 65 66 20 6d 69 |ck. cro|ssref mi|
|00002fe0| 73 73 69 6e 67 24 0d 20 | 20 20 20 7b 20 66 6f 72 |ssing$. | { for|
|00002ff0| 6d 61 74 2e 69 6e 2e 65 | 64 2e 62 6f 6f 6b 74 69 |mat.in.e|d.bookti|
|00003000| 74 6c 65 20 22 62 6f 6f | 6b 74 69 74 6c 65 22 20 |tle "boo|ktitle" |
|00003010| 6f 75 74 70 75 74 2e 63 | 68 65 63 6b 0d 20 20 20 |output.c|heck. |
|00003020| 20 20 20 66 6f 72 6d 61 | 74 2e 62 76 6f 6c 75 6d | forma|t.bvolum|
|00003030| 65 20 6f 75 74 70 75 74 | 0d 20 20 20 20 20 20 66 |e output|. f|
|00003040| 6f 72 6d 61 74 2e 6e 75 | 6d 62 65 72 2e 73 65 72 |ormat.nu|mber.ser|
|00003050| 69 65 73 20 6f 75 74 70 | 75 74 0d 20 20 20 20 20 |ies outp|ut. |
|00003060| 20 66 6f 72 6d 61 74 2e | 70 61 67 65 73 20 6f 75 | format.|pages ou|
|00003070| 74 70 75 74 0d 20 20 20 | 20 20 20 61 64 64 72 65 |tput. | addre|
|00003080| 73 73 20 65 6d 70 74 79 | 24 0d 20 20 20 20 20 20 |ss empty|$. |
|00003090| 20 20 7b 20 6f 72 67 61 | 6e 69 7a 61 74 69 6f 6e | { orga|nization|
|000030a0| 20 70 75 62 6c 69 73 68 | 65 72 20 6e 65 77 2e 73 | publish|er new.s|
|000030b0| 65 6e 74 65 6e 63 65 2e | 63 68 65 63 6b 62 0d 20 |entence.|checkb. |
|000030c0| 20 20 20 20 20 20 20 20 | 20 6f 72 67 61 6e 69 7a | | organiz|
|000030d0| 61 74 69 6f 6e 20 6f 75 | 74 70 75 74 0d 20 20 20 |ation ou|tput. |
|000030e0| 20 20 20 20 20 20 20 70 | 75 62 6c 69 73 68 65 72 | p|ublisher|
|000030f0| 20 6f 75 74 70 75 74 0d | 20 20 20 20 20 20 20 20 | output.| |
|00003100| 20 20 66 6f 72 6d 61 74 | 2e 64 61 74 65 20 22 79 | format|.date "y|
|00003110| 65 61 72 22 20 6f 75 74 | 70 75 74 2e 63 68 65 63 |ear" out|put.chec|
|00003120| 6b 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |k. | }. |
|00003130| 20 20 20 20 7b 20 61 64 | 64 72 65 73 73 20 6f 75 | { ad|dress ou|
|00003140| 74 70 75 74 2e 6e 6f 6e | 6e 75 6c 6c 0d 20 20 20 |tput.non|null. |
|00003150| 20 20 20 20 20 20 20 66 | 6f 72 6d 61 74 2e 64 61 | f|ormat.da|
|00003160| 74 65 20 22 79 65 61 72 | 22 20 6f 75 74 70 75 74 |te "year|" output|
|00003170| 2e 63 68 65 63 6b 0d 20 | 20 20 20 20 20 20 20 20 |.check. | |
|00003180| 20 6e 65 77 2e 73 65 6e | 74 65 6e 63 65 0d 20 20 | new.sen|tence. |
|00003190| 20 20 20 20 20 20 20 20 | 6f 72 67 61 6e 69 7a 61 | |organiza|
|000031a0| 74 69 6f 6e 20 6f 75 74 | 70 75 74 0d 20 20 20 20 |tion out|put. |
|000031b0| 20 20 20 20 20 20 70 75 | 62 6c 69 73 68 65 72 20 | pu|blisher |
|000031c0| 6f 75 74 70 75 74 0d 20 | 20 20 20 20 20 20 20 7d |output. | }|
|000031d0| 0d 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 7d |. i|f$. }|
|000031e0| 0d 20 20 20 20 7b 20 66 | 6f 72 6d 61 74 2e 69 6e |. { f|ormat.in|
|000031f0| 63 6f 6c 6c 2e 69 6e 70 | 72 6f 63 2e 63 72 6f 73 |coll.inp|roc.cros|
|00003200| 73 72 65 66 20 6f 75 74 | 70 75 74 2e 6e 6f 6e 6e |sref out|put.nonn|
|00003210| 75 6c 6c 0d 20 20 20 20 | 20 20 66 6f 72 6d 61 74 |ull. | format|
|00003220| 2e 70 61 67 65 73 20 6f | 75 74 70 75 74 0d 20 20 |.pages o|utput. |
|00003230| 20 20 7d 0d 20 20 69 66 | 24 0d 20 20 6e 65 77 2e | }. if|$. new.|
|00003240| 62 6c 6f 63 6b 0d 20 20 | 6e 6f 74 65 20 6f 75 74 |block. |note out|
|00003250| 70 75 74 0d 20 20 66 69 | 6e 2e 65 6e 74 72 79 0d |put. fi|n.entry.|
|00003260| 20 20 66 6f 72 6d 61 74 | 2e 61 6e 6e 6f 74 61 74 | format|.annotat|
|00003270| 65 20 77 72 69 74 65 24 | 0d 7d 0d 0d 46 55 4e 43 |e write$|.}..FUNC|
|00003280| 54 49 4f 4e 20 7b 63 6f | 6e 66 65 72 65 6e 63 65 |TION {co|nference|
|00003290| 7d 20 7b 20 69 6e 70 72 | 6f 63 65 65 64 69 6e 67 |} { inpr|oceeding|
|000032a0| 73 20 7d 0d 0d 46 55 4e | 43 54 49 4f 4e 20 7b 6d |s }..FUN|CTION {m|
|000032b0| 61 6e 75 61 6c 7d 0d 7b | 20 6f 75 74 70 75 74 2e |anual}.{| output.|
|000032c0| 62 69 62 69 74 65 6d 0d | 20 20 61 75 74 68 6f 72 |bibitem.| author|
|000032d0| 20 65 6d 70 74 79 24 0d | 20 20 20 20 7b 20 6f 72 | empty$.| { or|
|000032e0| 67 61 6e 69 7a 61 74 69 | 6f 6e 20 65 6d 70 74 79 |ganizati|on empty|
|000032f0| 24 0d 20 20 20 20 20 20 | 20 20 27 73 6b 69 70 24 |$. | 'skip$|
|00003300| 0d 20 20 20 20 20 20 20 | 20 7b 20 6f 72 67 61 6e |. | { organ|
|00003310| 69 7a 61 74 69 6f 6e 20 | 6f 75 74 70 75 74 2e 6e |ization |output.n|
|00003320| 6f 6e 6e 75 6c 6c 0d 20 | 20 20 20 20 20 20 20 20 |onnull. | |
|00003330| 20 61 64 64 72 65 73 73 | 20 6f 75 74 70 75 74 0d | address| output.|
|00003340| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|00003350| 69 66 24 0d 20 20 20 20 | 7d 0d 20 20 20 20 7b 20 |if$. |}. { |
|00003360| 66 6f 72 6d 61 74 2e 61 | 75 74 68 6f 72 73 20 6f |format.a|uthors o|
|00003370| 75 74 70 75 74 2e 6e 6f | 6e 6e 75 6c 6c 20 7d 0d |utput.no|nnull }.|
|00003380| 20 20 69 66 24 0d 20 20 | 6e 65 77 2e 62 6c 6f 63 | if$. |new.bloc|
|00003390| 6b 0d 20 20 66 6f 72 6d | 61 74 2e 62 74 69 74 6c |k. form|at.btitl|
|000033a0| 65 20 22 74 69 74 6c 65 | 22 20 6f 75 74 70 75 74 |e "title|" output|
|000033b0| 2e 63 68 65 63 6b 0d 20 | 20 61 75 74 68 6f 72 20 |.check. | author |
|000033c0| 65 6d 70 74 79 24 0d 20 | 20 20 20 7b 20 6f 72 67 |empty$. | { org|
|000033d0| 61 6e 69 7a 61 74 69 6f | 6e 20 65 6d 70 74 79 24 |anizatio|n empty$|
|000033e0| 0d 20 20 20 20 20 20 20 | 20 7b 20 61 64 64 72 65 |. | { addre|
|000033f0| 73 73 20 6e 65 77 2e 62 | 6c 6f 63 6b 2e 63 68 65 |ss new.b|lock.che|
|00003400| 63 6b 61 0d 20 20 20 20 | 20 20 20 20 20 20 61 64 |cka. | ad|
|00003410| 64 72 65 73 73 20 6f 75 | 74 70 75 74 0d 20 20 20 |dress ou|tput. |
|00003420| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 20 20 27 | }. | '|
|00003430| 73 6b 69 70 24 0d 20 20 | 20 20 20 20 69 66 24 0d |skip$. | if$.|
|00003440| 20 20 20 20 7d 0d 20 20 | 20 20 7b 20 6f 72 67 61 | }. | { orga|
|00003450| 6e 69 7a 61 74 69 6f 6e | 20 61 64 64 72 65 73 73 |nization| address|
|00003460| 20 6e 65 77 2e 62 6c 6f | 63 6b 2e 63 68 65 63 6b | new.blo|ck.check|
|00003470| 62 0d 20 20 20 20 20 20 | 6f 72 67 61 6e 69 7a 61 |b. |organiza|
|00003480| 74 69 6f 6e 20 6f 75 74 | 70 75 74 0d 20 20 20 20 |tion out|put. |
|00003490| 20 20 61 64 64 72 65 73 | 73 20 6f 75 74 70 75 74 | addres|s output|
|000034a0| 0d 20 20 20 20 7d 0d 20 | 20 69 66 24 0d 20 20 66 |. }. | if$. f|
|000034b0| 6f 72 6d 61 74 2e 65 64 | 69 74 69 6f 6e 20 6f 75 |ormat.ed|ition ou|
|000034c0| 74 70 75 74 0d 20 20 66 | 6f 72 6d 61 74 2e 64 61 |tput. f|ormat.da|
|000034d0| 74 65 20 6f 75 74 70 75 | 74 0d 20 20 6e 65 77 2e |te outpu|t. new.|
|000034e0| 62 6c 6f 63 6b 0d 20 20 | 6e 6f 74 65 20 6f 75 74 |block. |note out|
|000034f0| 70 75 74 0d 20 20 66 69 | 6e 2e 65 6e 74 72 79 0d |put. fi|n.entry.|
|00003500| 0d 20 20 66 6f 72 6d 61 | 74 2e 61 6e 6e 6f 74 61 |. forma|t.annota|
|00003510| 74 65 20 77 72 69 74 65 | 24 0d 7d 0d 0d 46 55 4e |te write|$.}..FUN|
|00003520| 43 54 49 4f 4e 20 7b 6d | 61 73 74 65 72 73 74 68 |CTION {m|astersth|
|00003530| 65 73 69 73 7d 0d 7b 20 | 6f 75 74 70 75 74 2e 62 |esis}.{ |output.b|
|00003540| 69 62 69 74 65 6d 0d 20 | 20 66 6f 72 6d 61 74 2e |ibitem. | format.|
|00003550| 61 75 74 68 6f 72 73 20 | 22 61 75 74 68 6f 72 22 |authors |"author"|
|00003560| 20 6f 75 74 70 75 74 2e | 63 68 65 63 6b 0d 20 20 | output.|check. |
|00003570| 6e 65 77 2e 62 6c 6f 63 | 6b 0d 20 20 66 6f 72 6d |new.bloc|k. form|
|00003580| 61 74 2e 74 69 74 6c 65 | 20 22 74 69 74 6c 65 22 |at.title| "title"|
|00003590| 20 6f 75 74 70 75 74 2e | 63 68 65 63 6b 0d 20 20 | output.|check. |
|000035a0| 6e 65 77 2e 62 6c 6f 63 | 6b 0d 20 20 22 4d 61 73 |new.bloc|k. "Mas|
|000035b0| 74 65 72 27 73 20 74 68 | 65 73 69 73 22 20 66 6f |ter's th|esis" fo|
|000035c0| 72 6d 61 74 2e 74 68 65 | 73 69 73 2e 74 79 70 65 |rmat.the|sis.type|
|000035d0| 20 6f 75 74 70 75 74 2e | 6e 6f 6e 6e 75 6c 6c 0d | output.|nonnull.|
|000035e0| 20 20 73 63 68 6f 6f 6c | 20 22 73 63 68 6f 6f 6c | school| "school|
|000035f0| 22 20 6f 75 74 70 75 74 | 2e 63 68 65 63 6b 0d 20 |" output|.check. |
|00003600| 20 61 64 64 72 65 73 73 | 20 6f 75 74 70 75 74 0d | address| output.|
|00003610| 20 20 66 6f 72 6d 61 74 | 2e 64 61 74 65 20 22 79 | format|.date "y|
|00003620| 65 61 72 22 20 6f 75 74 | 70 75 74 2e 63 68 65 63 |ear" out|put.chec|
|00003630| 6b 0d 20 20 6e 65 77 2e | 62 6c 6f 63 6b 0d 20 20 |k. new.|block. |
|00003640| 6e 6f 74 65 20 6f 75 74 | 70 75 74 0d 20 20 66 69 |note out|put. fi|
|00003650| 6e 2e 65 6e 74 72 79 0d | 20 20 66 6f 72 6d 61 74 |n.entry.| format|
|00003660| 2e 61 6e 6e 6f 74 61 74 | 65 20 77 72 69 74 65 24 |.annotat|e write$|
|00003670| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 6d 69 |.}..FUNC|TION {mi|
|00003680| 73 63 7d 0d 7b 20 6f 75 | 74 70 75 74 2e 62 69 62 |sc}.{ ou|tput.bib|
|00003690| 69 74 65 6d 0d 20 20 66 | 6f 72 6d 61 74 2e 61 75 |item. f|ormat.au|
|000036a0| 74 68 6f 72 73 20 6f 75 | 74 70 75 74 0d 20 20 74 |thors ou|tput. t|
|000036b0| 69 74 6c 65 20 68 6f 77 | 70 75 62 6c 69 73 68 65 |itle how|publishe|
|000036c0| 64 20 6e 65 77 2e 62 6c | 6f 63 6b 2e 63 68 65 63 |d new.bl|ock.chec|
|000036d0| 6b 62 0d 20 20 66 6f 72 | 6d 61 74 2e 74 69 74 6c |kb. for|mat.titl|
|000036e0| 65 20 6f 75 74 70 75 74 | 0d 20 20 68 6f 77 70 75 |e output|. howpu|
|000036f0| 62 6c 69 73 68 65 64 20 | 6e 65 77 2e 62 6c 6f 63 |blished |new.bloc|
|00003700| 6b 2e 63 68 65 63 6b 61 | 0d 20 20 68 6f 77 70 75 |k.checka|. howpu|
|00003710| 62 6c 69 73 68 65 64 20 | 6f 75 74 70 75 74 0d 20 |blished |output. |
|00003720| 20 66 6f 72 6d 61 74 2e | 64 61 74 65 20 6f 75 74 | format.|date out|
|00003730| 70 75 74 0d 20 20 6e 65 | 77 2e 62 6c 6f 63 6b 0d |put. ne|w.block.|
|00003740| 20 20 6e 6f 74 65 20 6f | 75 74 70 75 74 0d 20 20 | note o|utput. |
|00003750| 66 69 6e 2e 65 6e 74 72 | 79 0d 20 20 66 6f 72 6d |fin.entr|y. form|
|00003760| 61 74 2e 61 6e 6e 6f 74 | 61 74 65 20 77 72 69 74 |at.annot|ate writ|
|00003770| 65 24 0d 20 20 65 6d 70 | 74 79 2e 6d 69 73 63 2e |e$. emp|ty.misc.|
|00003780| 63 68 65 63 6b 0d 7d 0d | 0d 46 55 4e 43 54 49 4f |check.}.|.FUNCTIO|
|00003790| 4e 20 7b 70 68 64 74 68 | 65 73 69 73 7d 0d 7b 20 |N {phdth|esis}.{ |
|000037a0| 6f 75 74 70 75 74 2e 62 | 69 62 69 74 65 6d 0d 20 |output.b|ibitem. |
|000037b0| 20 66 6f 72 6d 61 74 2e | 61 75 74 68 6f 72 73 20 | format.|authors |
|000037c0| 22 61 75 74 68 6f 72 22 | 20 6f 75 74 70 75 74 2e |"author"| output.|
|000037d0| 63 68 65 63 6b 0d 20 20 | 6e 65 77 2e 62 6c 6f 63 |check. |new.bloc|
|000037e0| 6b 0d 20 20 66 6f 72 6d | 61 74 2e 62 74 69 74 6c |k. form|at.btitl|
|000037f0| 65 20 22 74 69 74 6c 65 | 22 20 6f 75 74 70 75 74 |e "title|" output|
|00003800| 2e 63 68 65 63 6b 0d 20 | 20 6e 65 77 2e 62 6c 6f |.check. | new.blo|
|00003810| 63 6b 0d 20 20 22 50 68 | 44 20 74 68 65 73 69 73 |ck. "Ph|D thesis|
|00003820| 22 20 66 6f 72 6d 61 74 | 2e 74 68 65 73 69 73 2e |" format|.thesis.|
|00003830| 74 79 70 65 20 6f 75 74 | 70 75 74 2e 6e 6f 6e 6e |type out|put.nonn|
|00003840| 75 6c 6c 0d 20 20 73 63 | 68 6f 6f 6c 20 22 73 63 |ull. sc|hool "sc|
|00003850| 68 6f 6f 6c 22 20 6f 75 | 74 70 75 74 2e 63 68 65 |hool" ou|tput.che|
|00003860| 63 6b 0d 20 20 61 64 64 | 72 65 73 73 20 6f 75 74 |ck. add|ress out|
|00003870| 70 75 74 0d 20 20 66 6f | 72 6d 61 74 2e 64 61 74 |put. fo|rmat.dat|
|00003880| 65 20 22 79 65 61 72 22 | 20 6f 75 74 70 75 74 2e |e "year"| output.|
|00003890| 63 68 65 63 6b 0d 20 20 | 6e 65 77 2e 62 6c 6f 63 |check. |new.bloc|
|000038a0| 6b 0d 20 20 6e 6f 74 65 | 20 6f 75 74 70 75 74 0d |k. note| output.|
|000038b0| 20 20 66 69 6e 2e 65 6e | 74 72 79 0d 20 20 66 6f | fin.en|try. fo|
|000038c0| 72 6d 61 74 2e 61 6e 6e | 6f 74 61 74 65 20 77 72 |rmat.ann|otate wr|
|000038d0| 69 74 65 24 0d 7d 0d 0d | 46 55 4e 43 54 49 4f 4e |ite$.}..|FUNCTION|
|000038e0| 20 7b 70 72 6f 63 65 65 | 64 69 6e 67 73 7d 0d 7b | {procee|dings}.{|
|000038f0| 20 6f 75 74 70 75 74 2e | 62 69 62 69 74 65 6d 0d | output.|bibitem.|
|00003900| 20 20 65 64 69 74 6f 72 | 20 65 6d 70 74 79 24 0d | editor| empty$.|
|00003910| 20 20 20 20 7b 20 6f 72 | 67 61 6e 69 7a 61 74 69 | { or|ganizati|
|00003920| 6f 6e 20 6f 75 74 70 75 | 74 20 7d 0d 20 20 20 20 |on outpu|t }. |
|00003930| 7b 20 66 6f 72 6d 61 74 | 2e 65 64 69 74 6f 72 73 |{ format|.editors|
|00003940| 20 6f 75 74 70 75 74 2e | 6e 6f 6e 6e 75 6c 6c 20 | output.|nonnull |
|00003950| 7d 0d 20 20 69 66 24 0d | 20 20 6e 65 77 2e 62 6c |}. if$.| new.bl|
|00003960| 6f 63 6b 0d 20 20 66 6f | 72 6d 61 74 2e 62 74 69 |ock. fo|rmat.bti|
|00003970| 74 6c 65 20 22 74 69 74 | 6c 65 22 20 6f 75 74 70 |tle "tit|le" outp|
|00003980| 75 74 2e 63 68 65 63 6b | 0d 20 20 66 6f 72 6d 61 |ut.check|. forma|
|00003990| 74 2e 62 76 6f 6c 75 6d | 65 20 6f 75 74 70 75 74 |t.bvolum|e output|
|000039a0| 0d 20 20 66 6f 72 6d 61 | 74 2e 6e 75 6d 62 65 72 |. forma|t.number|
|000039b0| 2e 73 65 72 69 65 73 20 | 6f 75 74 70 75 74 0d 20 |.series |output. |
|000039c0| 20 61 64 64 72 65 73 73 | 20 65 6d 70 74 79 24 0d | address| empty$.|
|000039d0| 20 20 20 20 7b 20 65 64 | 69 74 6f 72 20 65 6d 70 | { ed|itor emp|
|000039e0| 74 79 24 0d 20 20 20 20 | 20 20 20 20 7b 20 70 75 |ty$. | { pu|
|000039f0| 62 6c 69 73 68 65 72 20 | 6e 65 77 2e 73 65 6e 74 |blisher |new.sent|
|00003a00| 65 6e 63 65 2e 63 68 65 | 63 6b 61 20 7d 0d 20 20 |ence.che|cka }. |
|00003a10| 20 20 20 20 20 20 7b 20 | 6f 72 67 61 6e 69 7a 61 | { |organiza|
|00003a20| 74 69 6f 6e 20 70 75 62 | 6c 69 73 68 65 72 20 6e |tion pub|lisher n|
|00003a30| 65 77 2e 73 65 6e 74 65 | 6e 63 65 2e 63 68 65 63 |ew.sente|nce.chec|
|00003a40| 6b 62 0d 20 20 20 20 20 | 20 20 20 20 20 6f 72 67 |kb. | org|
|00003a50| 61 6e 69 7a 61 74 69 6f | 6e 20 6f 75 74 70 75 74 |anizatio|n output|
|00003a60| 0d 20 20 20 20 20 20 20 | 20 7d 0d 20 20 20 20 20 |. | }. |
|00003a70| 20 69 66 24 0d 20 20 20 | 20 20 20 70 75 62 6c 69 | if$. | publi|
|00003a80| 73 68 65 72 20 6f 75 74 | 70 75 74 0d 20 20 20 20 |sher out|put. |
|00003a90| 20 20 66 6f 72 6d 61 74 | 2e 64 61 74 65 20 22 79 | format|.date "y|
|00003aa0| 65 61 72 22 20 6f 75 74 | 70 75 74 2e 63 68 65 63 |ear" out|put.chec|
|00003ab0| 6b 0d 20 20 20 20 7d 0d | 20 20 20 20 7b 20 61 64 |k. }.| { ad|
|00003ac0| 64 72 65 73 73 20 6f 75 | 74 70 75 74 2e 6e 6f 6e |dress ou|tput.non|
|00003ad0| 6e 75 6c 6c 0d 20 20 20 | 20 20 20 66 6f 72 6d 61 |null. | forma|
|00003ae0| 74 2e 64 61 74 65 20 22 | 79 65 61 72 22 20 6f 75 |t.date "|year" ou|
|00003af0| 74 70 75 74 2e 63 68 65 | 63 6b 0d 20 20 20 20 20 |tput.che|ck. |
|00003b00| 20 6e 65 77 2e 73 65 6e | 74 65 6e 63 65 0d 20 20 | new.sen|tence. |
|00003b10| 20 20 20 20 65 64 69 74 | 6f 72 20 65 6d 70 74 79 | edit|or empty|
|00003b20| 24 0d 20 20 20 20 20 20 | 20 20 27 73 6b 69 70 24 |$. | 'skip$|
|00003b30| 0d 20 20 20 20 20 20 20 | 20 7b 20 6f 72 67 61 6e |. | { organ|
|00003b40| 69 7a 61 74 69 6f 6e 20 | 6f 75 74 70 75 74 20 7d |ization |output }|
|00003b50| 0d 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 20 |. i|f$. |
|00003b60| 20 70 75 62 6c 69 73 68 | 65 72 20 6f 75 74 70 75 | publish|er outpu|
|00003b70| 74 0d 20 20 20 20 7d 0d | 20 20 69 66 24 0d 20 20 |t. }.| if$. |
|00003b80| 6e 65 77 2e 62 6c 6f 63 | 6b 0d 20 20 6e 6f 74 65 |new.bloc|k. note|
|00003b90| 20 6f 75 74 70 75 74 0d | 20 20 66 69 6e 2e 65 6e | output.| fin.en|
|00003ba0| 74 72 79 0d 20 20 66 6f | 72 6d 61 74 2e 61 6e 6e |try. fo|rmat.ann|
|00003bb0| 6f 74 61 74 65 20 77 72 | 69 74 65 24 0d 7d 0d 0d |otate wr|ite$.}..|
|00003bc0| 46 55 4e 43 54 49 4f 4e | 20 7b 74 65 63 68 72 65 |FUNCTION| {techre|
|00003bd0| 70 6f 72 74 7d 0d 7b 20 | 6f 75 74 70 75 74 2e 62 |port}.{ |output.b|
|00003be0| 69 62 69 74 65 6d 0d 20 | 20 66 6f 72 6d 61 74 2e |ibitem. | format.|
|00003bf0| 61 75 74 68 6f 72 73 20 | 22 61 75 74 68 6f 72 22 |authors |"author"|
|00003c00| 20 6f 75 74 70 75 74 2e | 63 68 65 63 6b 0d 20 20 | output.|check. |
|00003c10| 6e 65 77 2e 62 6c 6f 63 | 6b 0d 20 20 66 6f 72 6d |new.bloc|k. form|
|00003c20| 61 74 2e 74 69 74 6c 65 | 20 22 74 69 74 6c 65 22 |at.title| "title"|
|00003c30| 20 6f 75 74 70 75 74 2e | 63 68 65 63 6b 0d 20 20 | output.|check. |
|00003c40| 6e 65 77 2e 62 6c 6f 63 | 6b 0d 20 20 66 6f 72 6d |new.bloc|k. form|
|00003c50| 61 74 2e 74 72 2e 6e 75 | 6d 62 65 72 20 6f 75 74 |at.tr.nu|mber out|
|00003c60| 70 75 74 2e 6e 6f 6e 6e | 75 6c 6c 0d 20 20 69 6e |put.nonn|ull. in|
|00003c70| 73 74 69 74 75 74 69 6f | 6e 20 22 69 6e 73 74 69 |stitutio|n "insti|
|00003c80| 74 75 74 69 6f 6e 22 20 | 6f 75 74 70 75 74 2e 63 |tution" |output.c|
|00003c90| 68 65 63 6b 0d 20 20 61 | 64 64 72 65 73 73 20 6f |heck. a|ddress o|
|00003ca0| 75 74 70 75 74 0d 20 20 | 66 6f 72 6d 61 74 2e 64 |utput. |format.d|
|00003cb0| 61 74 65 20 22 79 65 61 | 72 22 20 6f 75 74 70 75 |ate "yea|r" outpu|
|00003cc0| 74 2e 63 68 65 63 6b 0d | 20 20 6e 65 77 2e 62 6c |t.check.| new.bl|
|00003cd0| 6f 63 6b 0d 20 20 6e 6f | 74 65 20 6f 75 74 70 75 |ock. no|te outpu|
|00003ce0| 74 0d 20 20 66 69 6e 2e | 65 6e 74 72 79 0d 20 20 |t. fin.|entry. |
|00003cf0| 66 6f 72 6d 61 74 2e 61 | 6e 6e 6f 74 61 74 65 20 |format.a|nnotate |
|00003d00| 77 72 69 74 65 24 0d 7d | 0d 0d 46 55 4e 43 54 49 |write$.}|..FUNCTI|
|00003d10| 4f 4e 20 7b 75 6e 70 75 | 62 6c 69 73 68 65 64 7d |ON {unpu|blished}|
|00003d20| 0d 7b 20 6f 75 74 70 75 | 74 2e 62 69 62 69 74 65 |.{ outpu|t.bibite|
|00003d30| 6d 0d 20 20 66 6f 72 6d | 61 74 2e 61 75 74 68 6f |m. form|at.autho|
|00003d40| 72 73 20 22 61 75 74 68 | 6f 72 22 20 6f 75 74 70 |rs "auth|or" outp|
|00003d50| 75 74 2e 63 68 65 63 6b | 0d 20 20 6e 65 77 2e 62 |ut.check|. new.b|
|00003d60| 6c 6f 63 6b 0d 20 20 66 | 6f 72 6d 61 74 2e 74 69 |lock. f|ormat.ti|
|00003d70| 74 6c 65 20 22 74 69 74 | 6c 65 22 20 6f 75 74 70 |tle "tit|le" outp|
|00003d80| 75 74 2e 63 68 65 63 6b | 0d 20 20 6e 65 77 2e 62 |ut.check|. new.b|
|00003d90| 6c 6f 63 6b 0d 20 20 6e | 6f 74 65 20 22 6e 6f 74 |lock. n|ote "not|
|00003da0| 65 22 20 6f 75 74 70 75 | 74 2e 63 68 65 63 6b 0d |e" outpu|t.check.|
|00003db0| 20 20 66 6f 72 6d 61 74 | 2e 64 61 74 65 20 6f 75 | format|.date ou|
|00003dc0| 74 70 75 74 0d 20 20 66 | 69 6e 2e 65 6e 74 72 79 |tput. f|in.entry|
|00003dd0| 0d 20 20 66 6f 72 6d 61 | 74 2e 61 6e 6e 6f 74 61 |. forma|t.annota|
|00003de0| 74 65 20 77 72 69 74 65 | 24 0d 7d 0d 0d 46 55 4e |te write|$.}..FUN|
|00003df0| 43 54 49 4f 4e 20 7b 64 | 65 66 61 75 6c 74 2e 74 |CTION {d|efault.t|
|00003e00| 79 70 65 7d 20 7b 20 6d | 69 73 63 20 7d 0d 0d 4d |ype} { m|isc }..M|
|00003e10| 41 43 52 4f 20 7b 6a 61 | 6e 7d 20 7b 22 4a 61 6e |ACRO {ja|n} {"Jan|
|00003e20| 75 61 72 79 22 7d 0d 0d | 4d 41 43 52 4f 20 7b 66 |uary"}..|MACRO {f|
|00003e30| 65 62 7d 20 7b 22 46 65 | 62 72 75 61 72 79 22 7d |eb} {"Fe|bruary"}|
|00003e40| 0d 0d 4d 41 43 52 4f 20 | 7b 6d 61 72 7d 20 7b 22 |..MACRO |{mar} {"|
|00003e50| 4d 61 72 63 68 22 7d 0d | 0d 4d 41 43 52 4f 20 7b |March"}.|.MACRO {|
|00003e60| 61 70 72 7d 20 7b 22 41 | 70 72 69 6c 22 7d 0d 0d |apr} {"A|pril"}..|
|00003e70| 4d 41 43 52 4f 20 7b 6d | 61 79 7d 20 7b 22 4d 61 |MACRO {m|ay} {"Ma|
|00003e80| 79 22 7d 0d 0d 4d 41 43 | 52 4f 20 7b 6a 75 6e 7d |y"}..MAC|RO {jun}|
|00003e90| 20 7b 22 4a 75 6e 65 22 | 7d 0d 0d 4d 41 43 52 4f | {"June"|}..MACRO|
|00003ea0| 20 7b 6a 75 6c 7d 20 7b | 22 4a 75 6c 79 22 7d 0d | {jul} {|"July"}.|
|00003eb0| 0d 4d 41 43 52 4f 20 7b | 61 75 67 7d 20 7b 22 41 |.MACRO {|aug} {"A|
|00003ec0| 75 67 75 73 74 22 7d 0d | 0d 4d 41 43 52 4f 20 7b |ugust"}.|.MACRO {|
|00003ed0| 73 65 70 7d 20 7b 22 53 | 65 70 74 65 6d 62 65 72 |sep} {"S|eptember|
|00003ee0| 22 7d 0d 0d 4d 41 43 52 | 4f 20 7b 6f 63 74 7d 20 |"}..MACR|O {oct} |
|00003ef0| 7b 22 4f 63 74 6f 62 65 | 72 22 7d 0d 0d 4d 41 43 |{"Octobe|r"}..MAC|
|00003f00| 52 4f 20 7b 6e 6f 76 7d | 20 7b 22 4e 6f 76 65 6d |RO {nov}| {"Novem|
|00003f10| 62 65 72 22 7d 0d 0d 4d | 41 43 52 4f 20 7b 64 65 |ber"}..M|ACRO {de|
|00003f20| 63 7d 20 7b 22 44 65 63 | 65 6d 62 65 72 22 7d 0d |c} {"Dec|ember"}.|
|00003f30| 0d 4d 41 43 52 4f 20 7b | 61 63 6d 63 73 7d 20 7b |.MACRO {|acmcs} {|
|00003f40| 22 41 43 4d 20 43 6f 6d | 70 75 74 69 6e 67 20 53 |"ACM Com|puting S|
|00003f50| 75 72 76 65 79 73 22 7d | 0d 0d 4d 41 43 52 4f 20 |urveys"}|..MACRO |
|00003f60| 7b 61 63 74 61 7d 20 7b | 22 41 63 74 61 20 49 6e |{acta} {|"Acta In|
|00003f70| 66 6f 72 6d 61 74 69 63 | 61 22 7d 0d 0d 4d 41 43 |formatic|a"}..MAC|
|00003f80| 52 4f 20 7b 63 61 63 6d | 7d 20 7b 22 43 6f 6d 6d |RO {cacm|} {"Comm|
|00003f90| 75 6e 69 63 61 74 69 6f | 6e 73 20 6f 66 20 74 68 |unicatio|ns of th|
|00003fa0| 65 20 41 43 4d 22 7d 0d | 0d 4d 41 43 52 4f 20 7b |e ACM"}.|.MACRO {|
|00003fb0| 69 62 6d 6a 72 64 7d 20 | 7b 22 49 42 4d 20 4a 6f |ibmjrd} |{"IBM Jo|
|00003fc0| 75 72 6e 61 6c 20 6f 66 | 20 52 65 73 65 61 72 63 |urnal of| Researc|
|00003fd0| 68 20 61 6e 64 20 44 65 | 76 65 6c 6f 70 6d 65 6e |h and De|velopmen|
|00003fe0| 74 22 7d 0d 0d 4d 41 43 | 52 4f 20 7b 69 62 6d 73 |t"}..MAC|RO {ibms|
|00003ff0| 6a 7d 20 7b 22 49 42 4d | 20 53 79 73 74 65 6d 73 |j} {"IBM| Systems|
|00004000| 20 4a 6f 75 72 6e 61 6c | 22 7d 0d 0d 4d 41 43 52 | Journal|"}..MACR|
|00004010| 4f 20 7b 69 65 65 65 73 | 65 7d 20 7b 22 49 45 45 |O {ieees|e} {"IEE|
|00004020| 45 20 54 72 61 6e 73 61 | 63 74 69 6f 6e 73 20 6f |E Transa|ctions o|
|00004030| 6e 20 53 6f 66 74 77 61 | 72 65 20 45 6e 67 69 6e |n Softwa|re Engin|
|00004040| 65 65 72 69 6e 67 22 7d | 0d 0d 4d 41 43 52 4f 20 |eering"}|..MACRO |
|00004050| 7b 69 65 65 65 74 63 7d | 20 7b 22 49 45 45 45 20 |{ieeetc}| {"IEEE |
|00004060| 54 72 61 6e 73 61 63 74 | 69 6f 6e 73 20 6f 6e 20 |Transact|ions on |
|00004070| 43 6f 6d 70 75 74 65 72 | 73 22 7d 0d 0d 4d 41 43 |Computer|s"}..MAC|
|00004080| 52 4f 20 7b 69 65 65 65 | 74 63 61 64 7d 0d 20 7b |RO {ieee|tcad}. {|
|00004090| 22 49 45 45 45 20 54 72 | 61 6e 73 61 63 74 69 6f |"IEEE Tr|ansactio|
|000040a0| 6e 73 20 6f 6e 20 43 6f | 6d 70 75 74 65 72 2d 41 |ns on Co|mputer-A|
|000040b0| 69 64 65 64 20 44 65 73 | 69 67 6e 20 6f 66 20 49 |ided Des|ign of I|
|000040c0| 6e 74 65 67 72 61 74 65 | 64 20 43 69 72 63 75 69 |ntegrate|d Circui|
|000040d0| 74 73 22 7d 0d 0d 4d 41 | 43 52 4f 20 7b 69 70 6c |ts"}..MA|CRO {ipl|
|000040e0| 7d 20 7b 22 49 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |} {"Info|rmation |
|000040f0| 50 72 6f 63 65 73 73 69 | 6e 67 20 4c 65 74 74 65 |Processi|ng Lette|
|00004100| 72 73 22 7d 0d 0d 4d 41 | 43 52 4f 20 7b 6a 61 63 |rs"}..MA|CRO {jac|
|00004110| 6d 7d 20 7b 22 4a 6f 75 | 72 6e 61 6c 20 6f 66 20 |m} {"Jou|rnal of |
|00004120| 74 68 65 20 41 43 4d 22 | 7d 0d 0d 4d 41 43 52 4f |the ACM"|}..MACRO|
|00004130| 20 7b 6a 63 73 73 7d 20 | 7b 22 4a 6f 75 72 6e 61 | {jcss} |{"Journa|
|00004140| 6c 20 6f 66 20 43 6f 6d | 70 75 74 65 72 20 61 6e |l of Com|puter an|
|00004150| 64 20 53 79 73 74 65 6d | 20 53 63 69 65 6e 63 65 |d System| Science|
|00004160| 73 22 7d 0d 0d 4d 41 43 | 52 4f 20 7b 73 63 70 7d |s"}..MAC|RO {scp}|
|00004170| 20 7b 22 53 63 69 65 6e | 63 65 20 6f 66 20 43 6f | {"Scien|ce of Co|
|00004180| 6d 70 75 74 65 72 20 50 | 72 6f 67 72 61 6d 6d 69 |mputer P|rogrammi|
|00004190| 6e 67 22 7d 0d 0d 4d 41 | 43 52 4f 20 7b 73 69 63 |ng"}..MA|CRO {sic|
|000041a0| 6f 6d 70 7d 20 7b 22 53 | 49 41 4d 20 4a 6f 75 72 |omp} {"S|IAM Jour|
|000041b0| 6e 61 6c 20 6f 6e 20 43 | 6f 6d 70 75 74 69 6e 67 |nal on C|omputing|
|000041c0| 22 7d 0d 0d 4d 41 43 52 | 4f 20 7b 74 6f 63 73 7d |"}..MACR|O {tocs}|
|000041d0| 20 7b 22 41 43 4d 20 54 | 72 61 6e 73 61 63 74 69 | {"ACM T|ransacti|
|000041e0| 6f 6e 73 20 6f 6e 20 43 | 6f 6d 70 75 74 65 72 20 |ons on C|omputer |
|000041f0| 53 79 73 74 65 6d 73 22 | 7d 0d 0d 4d 41 43 52 4f |Systems"|}..MACRO|
|00004200| 20 7b 74 6f 64 73 7d 20 | 7b 22 41 43 4d 20 54 72 | {tods} |{"ACM Tr|
|00004210| 61 6e 73 61 63 74 69 6f | 6e 73 20 6f 6e 20 44 61 |ansactio|ns on Da|
|00004220| 74 61 62 61 73 65 20 53 | 79 73 74 65 6d 73 22 7d |tabase S|ystems"}|
|00004230| 0d 0d 4d 41 43 52 4f 20 | 7b 74 6f 67 7d 20 7b 22 |..MACRO |{tog} {"|
|00004240| 41 43 4d 20 54 72 61 6e | 73 61 63 74 69 6f 6e 73 |ACM Tran|sactions|
|00004250| 20 6f 6e 20 47 72 61 70 | 68 69 63 73 22 7d 0d 0d | on Grap|hics"}..|
|00004260| 4d 41 43 52 4f 20 7b 74 | 6f 6d 73 7d 20 7b 22 41 |MACRO {t|oms} {"A|
|00004270| 43 4d 20 54 72 61 6e 73 | 61 63 74 69 6f 6e 73 20 |CM Trans|actions |
|00004280| 6f 6e 20 4d 61 74 68 65 | 6d 61 74 69 63 61 6c 20 |on Mathe|matical |
|00004290| 53 6f 66 74 77 61 72 65 | 22 7d 0d 0d 4d 41 43 52 |Software|"}..MACR|
|000042a0| 4f 20 7b 74 6f 6f 69 73 | 7d 20 7b 22 41 43 4d 20 |O {toois|} {"ACM |
|000042b0| 54 72 61 6e 73 61 63 74 | 69 6f 6e 73 20 6f 6e 20 |Transact|ions on |
|000042c0| 4f 66 66 69 63 65 20 49 | 6e 66 6f 72 6d 61 74 69 |Office I|nformati|
|000042d0| 6f 6e 20 53 79 73 74 65 | 6d 73 22 7d 0d 0d 4d 41 |on Syste|ms"}..MA|
|000042e0| 43 52 4f 20 7b 74 6f 70 | 6c 61 73 7d 20 7b 22 41 |CRO {top|las} {"A|
|000042f0| 43 4d 20 54 72 61 6e 73 | 61 63 74 69 6f 6e 73 20 |CM Trans|actions |
|00004300| 6f 6e 20 50 72 6f 67 72 | 61 6d 6d 69 6e 67 20 4c |on Progr|amming L|
|00004310| 61 6e 67 75 61 67 65 73 | 20 61 6e 64 20 53 79 73 |anguages| and Sys|
|00004320| 74 65 6d 73 22 7d 0d 0d | 4d 41 43 52 4f 20 7b 74 |tems"}..|MACRO {t|
|00004330| 63 73 7d 20 7b 22 54 68 | 65 6f 72 65 74 69 63 61 |cs} {"Th|eoretica|
|00004340| 6c 20 43 6f 6d 70 75 74 | 65 72 20 53 63 69 65 6e |l Comput|er Scien|
|00004350| 63 65 22 7d 0d 0d 52 45 | 41 44 0d 0d 46 55 4e 43 |ce"}..RE|AD..FUNC|
|00004360| 54 49 4f 4e 20 7b 73 6f | 72 74 69 66 79 7d 0d 7b |TION {so|rtify}.{|
|00004370| 20 70 75 72 69 66 79 24 | 0d 20 20 22 6c 22 20 63 | purify$|. "l" c|
|00004380| 68 61 6e 67 65 2e 63 61 | 73 65 24 0d 7d 0d 0d 49 |hange.ca|se$.}..I|
|00004390| 4e 54 45 47 45 52 53 20 | 7b 20 6c 65 6e 20 7d 0d |NTEGERS |{ len }.|
|000043a0| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 63 68 6f 70 2e |.FUNCTIO|N {chop.|
|000043b0| 77 6f 72 64 7d 0d 7b 20 | 27 73 20 3a 3d 0d 20 20 |word}.{ |'s :=. |
|000043c0| 27 6c 65 6e 20 3a 3d 0d | 20 20 73 20 23 31 20 6c |'len :=.| s #1 l|
|000043d0| 65 6e 20 73 75 62 73 74 | 72 69 6e 67 24 20 3d 0d |en subst|ring$ =.|
|000043e0| 20 20 20 20 7b 20 73 20 | 6c 65 6e 20 23 31 20 2b | { s |len #1 +|
|000043f0| 20 67 6c 6f 62 61 6c 2e | 6d 61 78 24 20 73 75 62 | global.|max$ sub|
|00004400| 73 74 72 69 6e 67 24 20 | 7d 0d 20 20 20 20 27 73 |string$ |}. 's|
|00004410| 0d 20 20 69 66 24 0d 7d | 0d 0d 49 4e 54 45 47 45 |. if$.}|..INTEGE|
|00004420| 52 53 20 7b 20 65 74 2e | 61 6c 2e 63 68 61 72 2e |RS { et.|al.char.|
|00004430| 75 73 65 64 20 7d 0d 0d | 46 55 4e 43 54 49 4f 4e |used }..|FUNCTION|
|00004440| 20 7b 69 6e 69 74 69 61 | 6c 69 7a 65 2e 65 74 2e | {initia|lize.et.|
|00004450| 61 6c 2e 63 68 61 72 2e | 75 73 65 64 7d 0d 7b 20 |al.char.|used}.{ |
|00004460| 23 30 20 27 65 74 2e 61 | 6c 2e 63 68 61 72 2e 75 |#0 'et.a|l.char.u|
|00004470| 73 65 64 20 3a 3d 0d 7d | 0d 0d 45 58 45 43 55 54 |sed :=.}|..EXECUT|
|00004480| 45 20 7b 69 6e 69 74 69 | 61 6c 69 7a 65 2e 65 74 |E {initi|alize.et|
|00004490| 2e 61 6c 2e 63 68 61 72 | 2e 75 73 65 64 7d 0d 0d |.al.char|.used}..|
|000044a0| 46 55 4e 43 54 49 4f 4e | 20 7b 66 6f 72 6d 61 74 |FUNCTION| {format|
|000044b0| 2e 6c 61 62 2e 6e 61 6d | 65 73 7d 0d 7b 20 27 73 |.lab.nam|es}.{ 's|
|000044c0| 20 3a 3d 0d 20 20 73 20 | 6e 75 6d 2e 6e 61 6d 65 | :=. s |num.name|
|000044d0| 73 24 20 27 6e 75 6d 6e | 61 6d 65 73 20 3a 3d 0d |s$ 'numn|ames :=.|
|000044e0| 20 20 6e 75 6d 6e 61 6d | 65 73 20 23 31 20 3e 0d | numnam|es #1 >.|
|000044f0| 20 20 20 20 7b 20 6e 75 | 6d 6e 61 6d 65 73 20 23 | { nu|mnames #|
|00004500| 34 20 3e 0d 20 20 20 20 | 20 20 20 20 7b 20 23 33 |4 >. | { #3|
|00004510| 20 27 6e 61 6d 65 73 6c | 65 66 74 20 3a 3d 20 7d | 'namesl|eft := }|
|00004520| 0d 20 20 20 20 20 20 20 | 20 7b 20 6e 75 6d 6e 61 |. | { numna|
|00004530| 6d 65 73 20 27 6e 61 6d | 65 73 6c 65 66 74 20 3a |mes 'nam|esleft :|
|00004540| 3d 20 7d 0d 20 20 20 20 | 20 20 69 66 24 0d 20 20 |= }. | if$. |
|00004550| 20 20 20 20 23 31 20 27 | 6e 61 6d 65 70 74 72 20 | #1 '|nameptr |
|00004560| 3a 3d 0d 20 20 20 20 20 | 20 22 22 0d 20 20 20 20 |:=. | "". |
|00004570| 20 20 20 20 7b 20 6e 61 | 6d 65 73 6c 65 66 74 20 | { na|mesleft |
|00004580| 23 30 20 3e 20 7d 0d 20 | 20 20 20 20 20 20 20 7b |#0 > }. | {|
|00004590| 20 6e 61 6d 65 70 74 72 | 20 6e 75 6d 6e 61 6d 65 | nameptr| numname|
|000045a0| 73 20 3d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |s =. | |
|000045b0| 7b 20 73 20 6e 61 6d 65 | 70 74 72 20 22 7b 66 66 |{ s name|ptr "{ff|
|000045c0| 20 7d 7b 76 76 20 7d 7b | 6c 6c 7d 7b 20 6a 6a 7d | }{vv }{|ll}{ jj}|
|000045d0| 22 20 66 6f 72 6d 61 74 | 2e 6e 61 6d 65 24 20 22 |" format|.name$ "|
|000045e0| 6f 74 68 65 72 73 22 20 | 3d 0d 20 20 20 20 20 20 |others" |=. |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 7b 20 22 7b 5c 65 | | { "{\e|
|00004600| 74 61 6c 63 68 61 72 7b | 2b 7d 7d 22 20 2a 0d 20 |talchar{|+}}" *. |
|00004610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004620| 20 23 31 20 27 65 74 2e | 61 6c 2e 63 68 61 72 2e | #1 'et.|al.char.|
|00004630| 75 73 65 64 20 3a 3d 0d | 20 20 20 20 20 20 20 20 |used :=.| |
|00004640| 20 20 20 20 20 20 20 20 | 7d 0d 20 20 20 20 20 20 | |}. |
|00004650| 20 20 20 20 20 20 20 20 | 20 20 7b 20 73 20 6e 61 | | { s na|
|00004660| 6d 65 70 74 72 20 22 7b | 76 7b 7d 7d 7b 6c 7b 7d |meptr "{|v{}}{l{}|
|00004670| 7d 22 20 66 6f 72 6d 61 | 74 2e 6e 61 6d 65 24 20 |}" forma|t.name$ |
|00004680| 2a 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |* }. | |
|00004690| 20 20 69 66 24 0d 20 20 | 20 20 20 20 20 20 20 20 | if$. | |
|000046a0| 20 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | }. | |
|000046b0| 7b 20 73 20 6e 61 6d 65 | 70 74 72 20 22 7b 76 7b |{ s name|ptr "{v{|
|000046c0| 7d 7d 7b 6c 7b 7d 7d 22 | 20 66 6f 72 6d 61 74 2e |}}{l{}}"| format.|
|000046d0| 6e 61 6d 65 24 20 2a 20 | 7d 0d 20 20 20 20 20 20 |name$ * |}. |
|000046e0| 20 20 20 20 69 66 24 0d | 20 20 20 20 20 20 20 20 | if$.| |
|000046f0| 20 20 6e 61 6d 65 70 74 | 72 20 23 31 20 2b 20 27 | namept|r #1 + '|
|00004700| 6e 61 6d 65 70 74 72 20 | 3a 3d 0d 20 20 20 20 20 |nameptr |:=. |
|00004710| 20 20 20 20 20 6e 61 6d | 65 73 6c 65 66 74 20 23 | nam|esleft #|
|00004720| 31 20 2d 20 27 6e 61 6d | 65 73 6c 65 66 74 20 3a |1 - 'nam|esleft :|
|00004730| 3d 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |=. | }. |
|00004740| 20 20 77 68 69 6c 65 24 | 0d 20 20 20 20 20 20 6e | while$|. n|
|00004750| 75 6d 6e 61 6d 65 73 20 | 23 34 20 3e 0d 20 20 20 |umnames |#4 >. |
|00004760| 20 20 20 20 20 7b 20 22 | 7b 5c 65 74 61 6c 63 68 | { "|{\etalch|
|00004770| 61 72 7b 2b 7d 7d 22 20 | 2a 0d 20 20 20 20 20 20 |ar{+}}" |*. |
|00004780| 20 20 20 20 23 31 20 27 | 65 74 2e 61 6c 2e 63 68 | #1 '|et.al.ch|
|00004790| 61 72 2e 75 73 65 64 20 | 3a 3d 0d 20 20 20 20 20 |ar.used |:=. |
|000047a0| 20 20 20 7d 0d 20 20 20 | 20 20 20 20 20 27 73 6b | }. | 'sk|
|000047b0| 69 70 24 0d 20 20 20 20 | 20 20 69 66 24 0d 20 20 |ip$. | if$. |
|000047c0| 20 20 7d 0d 20 20 20 20 | 7b 20 73 20 23 31 20 22 | }. |{ s #1 "|
|000047d0| 7b 76 7b 7d 7d 7b 6c 7b | 7d 7d 22 20 66 6f 72 6d |{v{}}{l{|}}" form|
|000047e0| 61 74 2e 6e 61 6d 65 24 | 0d 20 20 20 20 20 20 64 |at.name$|. d|
|000047f0| 75 70 6c 69 63 61 74 65 | 24 20 74 65 78 74 2e 6c |uplicate|$ text.l|
|00004800| 65 6e 67 74 68 24 20 23 | 32 20 3c 0d 20 20 20 20 |ength$ #|2 <. |
|00004810| 20 20 20 20 7b 20 70 6f | 70 24 20 73 20 23 31 20 | { po|p$ s #1 |
|00004820| 22 7b 6c 6c 7d 22 20 66 | 6f 72 6d 61 74 2e 6e 61 |"{ll}" f|ormat.na|
|00004830| 6d 65 24 20 23 33 20 74 | 65 78 74 2e 70 72 65 66 |me$ #3 t|ext.pref|
|00004840| 69 78 24 20 7d 0d 20 20 | 20 20 20 20 20 20 27 73 |ix$ }. | 's|
|00004850| 6b 69 70 24 0d 20 20 20 | 20 20 20 69 66 24 0d 20 |kip$. | if$. |
|00004860| 20 20 20 7d 0d 20 20 69 | 66 24 0d 7d 0d 0d 46 55 | }. i|f$.}..FU|
|00004870| 4e 43 54 49 4f 4e 20 7b | 61 75 74 68 6f 72 2e 6b |NCTION {|author.k|
|00004880| 65 79 2e 6c 61 62 65 6c | 7d 0d 7b 20 61 75 74 68 |ey.label|}.{ auth|
|00004890| 6f 72 20 65 6d 70 74 79 | 24 0d 20 20 20 20 7b 20 |or empty|$. { |
|000048a0| 6b 65 79 20 65 6d 70 74 | 79 24 0d 20 20 20 20 20 |key empt|y$. |
|000048b0| 20 20 20 7b 20 63 69 74 | 65 24 20 23 31 20 23 33 | { cit|e$ #1 #3|
|000048c0| 20 73 75 62 73 74 72 69 | 6e 67 24 20 7d 0d 20 20 | substri|ng$ }. |
|000048d0| 20 20 20 20 20 20 7b 20 | 6b 65 79 20 23 33 20 74 | { |key #3 t|
|000048e0| 65 78 74 2e 70 72 65 66 | 69 78 24 20 7d 0d 20 20 |ext.pref|ix$ }. |
|000048f0| 20 20 20 20 69 66 24 0d | 20 20 20 20 7d 0d 20 20 | if$.| }. |
|00004900| 20 20 7b 20 61 75 74 68 | 6f 72 20 66 6f 72 6d 61 | { auth|or forma|
|00004910| 74 2e 6c 61 62 2e 6e 61 | 6d 65 73 20 7d 0d 20 20 |t.lab.na|mes }. |
|00004920| 69 66 24 0d 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |if$.}..F|UNCTION |
|00004930| 7b 61 75 74 68 6f 72 2e | 65 64 69 74 6f 72 2e 6b |{author.|editor.k|
|00004940| 65 79 2e 6c 61 62 65 6c | 7d 0d 7b 20 61 75 74 68 |ey.label|}.{ auth|
|00004950| 6f 72 20 65 6d 70 74 79 | 24 0d 20 20 20 20 7b 20 |or empty|$. { |
|00004960| 65 64 69 74 6f 72 20 65 | 6d 70 74 79 24 0d 20 20 |editor e|mpty$. |
|00004970| 20 20 20 20 20 20 7b 20 | 6b 65 79 20 65 6d 70 74 | { |key empt|
|00004980| 79 24 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 7b |y$. | {|
|00004990| 20 63 69 74 65 24 20 23 | 31 20 23 33 20 73 75 62 | cite$ #|1 #3 sub|
|000049a0| 73 74 72 69 6e 67 24 20 | 7d 0d 20 20 20 20 20 20 |string$ |}. |
|000049b0| 20 20 20 20 20 20 7b 20 | 6b 65 79 20 23 33 20 74 | { |key #3 t|
|000049c0| 65 78 74 2e 70 72 65 66 | 69 78 24 20 7d 0d 20 20 |ext.pref|ix$ }. |
|000049d0| 20 20 20 20 20 20 20 20 | 69 66 24 0d 20 20 20 20 | |if$. |
|000049e0| 20 20 20 20 7d 0d 20 20 | 20 20 20 20 20 20 7b 20 | }. | { |
|000049f0| 65 64 69 74 6f 72 20 66 | 6f 72 6d 61 74 2e 6c 61 |editor f|ormat.la|
|00004a00| 62 2e 6e 61 6d 65 73 20 | 7d 0d 20 20 20 20 20 20 |b.names |}. |
|00004a10| 69 66 24 0d 20 20 20 20 | 7d 0d 20 20 20 20 7b 20 |if$. |}. { |
|00004a20| 61 75 74 68 6f 72 20 66 | 6f 72 6d 61 74 2e 6c 61 |author f|ormat.la|
|00004a30| 62 2e 6e 61 6d 65 73 20 | 7d 0d 20 20 69 66 24 0d |b.names |}. if$.|
|00004a40| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 7b 61 75 74 |}..FUNCT|ION {aut|
|00004a50| 68 6f 72 2e 6b 65 79 2e | 6f 72 67 61 6e 69 7a 61 |hor.key.|organiza|
|00004a60| 74 69 6f 6e 2e 6c 61 62 | 65 6c 7d 0d 7b 20 61 75 |tion.lab|el}.{ au|
|00004a70| 74 68 6f 72 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |thor emp|ty$. |
|00004a80| 7b 20 6b 65 79 20 65 6d | 70 74 79 24 0d 20 20 20 |{ key em|pty$. |
|00004a90| 20 20 20 20 20 7b 20 6f | 72 67 61 6e 69 7a 61 74 | { o|rganizat|
|00004aa0| 69 6f 6e 20 65 6d 70 74 | 79 24 0d 20 20 20 20 20 |ion empt|y$. |
|00004ab0| 20 20 20 20 20 20 20 7b | 20 63 69 74 65 24 20 23 | {| cite$ #|
|00004ac0| 31 20 23 33 20 73 75 62 | 73 74 72 69 6e 67 24 20 |1 #3 sub|string$ |
|00004ad0| 7d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 7b 20 |}. | { |
|00004ae0| 22 54 68 65 20 22 20 23 | 34 20 6f 72 67 61 6e 69 |"The " #|4 organi|
|00004af0| 7a 61 74 69 6f 6e 20 63 | 68 6f 70 2e 77 6f 72 64 |zation c|hop.word|
|00004b00| 20 23 33 20 74 65 78 74 | 2e 70 72 65 66 69 78 24 | #3 text|.prefix$|
|00004b10| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 69 66 24 | }. | if$|
|00004b20| 0d 20 20 20 20 20 20 20 | 20 7d 0d 20 20 20 20 20 |. | }. |
|00004b30| 20 20 20 7b 20 6b 65 79 | 20 23 33 20 74 65 78 74 | { key| #3 text|
|00004b40| 2e 70 72 65 66 69 78 24 | 20 7d 0d 20 20 20 20 20 |.prefix$| }. |
|00004b50| 20 69 66 24 0d 20 20 20 | 20 7d 0d 20 20 20 20 7b | if$. | }. {|
|00004b60| 20 61 75 74 68 6f 72 20 | 66 6f 72 6d 61 74 2e 6c | author |format.l|
|00004b70| 61 62 2e 6e 61 6d 65 73 | 20 7d 0d 20 20 69 66 24 |ab.names| }. if$|
|00004b80| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 65 64 |.}..FUNC|TION {ed|
|00004b90| 69 74 6f 72 2e 6b 65 79 | 2e 6f 72 67 61 6e 69 7a |itor.key|.organiz|
|00004ba0| 61 74 69 6f 6e 2e 6c 61 | 62 65 6c 7d 0d 7b 20 65 |ation.la|bel}.{ e|
|00004bb0| 64 69 74 6f 72 20 65 6d | 70 74 79 24 0d 20 20 20 |ditor em|pty$. |
|00004bc0| 20 7b 20 6b 65 79 20 65 | 6d 70 74 79 24 0d 20 20 | { key e|mpty$. |
|00004bd0| 20 20 20 20 20 20 7b 20 | 6f 72 67 61 6e 69 7a 61 | { |organiza|
|00004be0| 74 69 6f 6e 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |tion emp|ty$. |
|00004bf0| 20 20 20 20 20 20 20 20 | 7b 20 63 69 74 65 24 20 | |{ cite$ |
|00004c00| 23 31 20 23 33 20 73 75 | 62 73 74 72 69 6e 67 24 |#1 #3 su|bstring$|
|00004c10| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 7b | }. | {|
|00004c20| 20 22 54 68 65 20 22 20 | 23 34 20 6f 72 67 61 6e | "The " |#4 organ|
|00004c30| 69 7a 61 74 69 6f 6e 20 | 63 68 6f 70 2e 77 6f 72 |ization |chop.wor|
|00004c40| 64 20 23 33 20 74 65 78 | 74 2e 70 72 65 66 69 78 |d #3 tex|t.prefix|
|00004c50| 24 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 69 66 |$ }. | if|
|00004c60| 24 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |$. | }. |
|00004c70| 20 20 20 20 7b 20 6b 65 | 79 20 23 33 20 74 65 78 | { ke|y #3 tex|
|00004c80| 74 2e 70 72 65 66 69 78 | 24 20 7d 0d 20 20 20 20 |t.prefix|$ }. |
|00004c90| 20 20 69 66 24 0d 20 20 | 20 20 7d 0d 20 20 20 20 | if$. | }. |
|00004ca0| 7b 20 65 64 69 74 6f 72 | 20 66 6f 72 6d 61 74 2e |{ editor| format.|
|00004cb0| 6c 61 62 2e 6e 61 6d 65 | 73 20 7d 0d 20 20 69 66 |lab.name|s }. if|
|00004cc0| 24 0d 7d 0d 0d 46 55 4e | 43 54 49 4f 4e 20 7b 63 |$.}..FUN|CTION {c|
|00004cd0| 61 6c 63 2e 6c 61 62 65 | 6c 7d 0d 7b 20 74 79 70 |alc.labe|l}.{ typ|
|00004ce0| 65 24 20 22 62 6f 6f 6b | 22 20 3d 0d 20 20 74 79 |e$ "book|" =. ty|
|00004cf0| 70 65 24 20 22 69 6e 62 | 6f 6f 6b 22 20 3d 0d 20 |pe$ "inb|ook" =. |
|00004d00| 20 6f 72 0d 20 20 20 20 | 27 61 75 74 68 6f 72 2e | or. |'author.|
|00004d10| 65 64 69 74 6f 72 2e 6b | 65 79 2e 6c 61 62 65 6c |editor.k|ey.label|
|00004d20| 0d 20 20 20 20 7b 20 74 | 79 70 65 24 20 22 70 72 |. { t|ype$ "pr|
|00004d30| 6f 63 65 65 64 69 6e 67 | 73 22 20 3d 0d 20 20 20 |oceeding|s" =. |
|00004d40| 20 20 20 20 20 27 65 64 | 69 74 6f 72 2e 6b 65 79 | 'ed|itor.key|
|00004d50| 2e 6f 72 67 61 6e 69 7a | 61 74 69 6f 6e 2e 6c 61 |.organiz|ation.la|
|00004d60| 62 65 6c 0d 20 20 20 20 | 20 20 20 20 7b 20 74 79 |bel. | { ty|
|00004d70| 70 65 24 20 22 6d 61 6e | 75 61 6c 22 20 3d 0d 20 |pe$ "man|ual" =. |
|00004d80| 20 20 20 20 20 20 20 20 | 20 20 20 27 61 75 74 68 | | 'auth|
|00004d90| 6f 72 2e 6b 65 79 2e 6f | 72 67 61 6e 69 7a 61 74 |or.key.o|rganizat|
|00004da0| 69 6f 6e 2e 6c 61 62 65 | 6c 0d 20 20 20 20 20 20 |ion.labe|l. |
|00004db0| 20 20 20 20 20 20 27 61 | 75 74 68 6f 72 2e 6b 65 | 'a|uthor.ke|
|00004dc0| 79 2e 6c 61 62 65 6c 0d | 20 20 20 20 20 20 20 20 |y.label.| |
|00004dd0| 20 20 69 66 24 0d 20 20 | 20 20 20 20 20 20 7d 0d | if$. | }.|
|00004de0| 20 20 20 20 20 20 69 66 | 24 0d 20 20 20 20 7d 0d | if|$. }.|
|00004df0| 20 20 69 66 24 0d 20 20 | 64 75 70 6c 69 63 61 74 | if$. |duplicat|
|00004e00| 65 24 0d 20 20 79 65 61 | 72 20 66 69 65 6c 64 2e |e$. yea|r field.|
|00004e10| 6f 72 2e 6e 75 6c 6c 20 | 70 75 72 69 66 79 24 20 |or.null |purify$ |
|00004e20| 23 2d 31 20 23 32 20 73 | 75 62 73 74 72 69 6e 67 |#-1 #2 s|ubstring|
|00004e30| 24 0d 20 20 2a 0d 20 20 | 27 6c 61 62 65 6c 20 3a |$. *. |'label :|
|00004e40| 3d 0d 20 20 79 65 61 72 | 20 66 69 65 6c 64 2e 6f |=. year| field.o|
|00004e50| 72 2e 6e 75 6c 6c 20 70 | 75 72 69 66 79 24 20 23 |r.null p|urify$ #|
|00004e60| 2d 31 20 23 34 20 73 75 | 62 73 74 72 69 6e 67 24 |-1 #4 su|bstring$|
|00004e70| 0d 20 20 2a 0d 20 20 73 | 6f 72 74 69 66 79 20 27 |. *. s|ortify '|
|00004e80| 73 6f 72 74 2e 6c 61 62 | 65 6c 20 3a 3d 0d 7d 0d |sort.lab|el :=.}.|
|00004e90| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 73 6f 72 74 2e |.FUNCTIO|N {sort.|
|00004ea0| 66 6f 72 6d 61 74 2e 6e | 61 6d 65 73 7d 0d 7b 20 |format.n|ames}.{ |
|00004eb0| 27 73 20 3a 3d 0d 20 20 | 23 31 20 27 6e 61 6d 65 |'s :=. |#1 'name|
|00004ec0| 70 74 72 20 3a 3d 0d 20 | 20 22 22 0d 20 20 73 20 |ptr :=. | "". s |
|00004ed0| 6e 75 6d 2e 6e 61 6d 65 | 73 24 20 27 6e 75 6d 6e |num.name|s$ 'numn|
|00004ee0| 61 6d 65 73 20 3a 3d 0d | 20 20 6e 75 6d 6e 61 6d |ames :=.| numnam|
|00004ef0| 65 73 20 27 6e 61 6d 65 | 73 6c 65 66 74 20 3a 3d |es 'name|sleft :=|
|00004f00| 0d 20 20 20 20 7b 20 6e | 61 6d 65 73 6c 65 66 74 |. { n|amesleft|
|00004f10| 20 23 30 20 3e 20 7d 0d | 20 20 20 20 7b 20 6e 61 | #0 > }.| { na|
|00004f20| 6d 65 70 74 72 20 23 31 | 20 3e 0d 20 20 20 20 20 |meptr #1| >. |
|00004f30| 20 20 20 7b 20 22 20 20 | 20 22 20 2a 20 7d 0d 20 | { " | " * }. |
|00004f40| 20 20 20 20 20 20 20 27 | 73 6b 69 70 24 0d 20 20 | '|skip$. |
|00004f50| 20 20 20 20 69 66 24 0d | 20 20 20 20 20 20 73 20 | if$.| s |
|00004f60| 6e 61 6d 65 70 74 72 20 | 22 7b 76 76 7b 20 7d 20 |nameptr |"{vv{ } |
|00004f70| 7d 7b 6c 6c 7b 20 7d 7d | 7b 20 20 66 66 7b 20 7d |}{ll{ }}|{ ff{ }|
|00004f80| 7d 7b 20 20 6a 6a 7b 20 | 7d 7d 22 20 66 6f 72 6d |}{ jj{ |}}" form|
|00004f90| 61 74 2e 6e 61 6d 65 24 | 20 27 74 20 3a 3d 0d 20 |at.name$| 't :=. |
|00004fa0| 20 20 20 20 20 6e 61 6d | 65 70 74 72 20 6e 75 6d | nam|eptr num|
|00004fb0| 6e 61 6d 65 73 20 3d 20 | 74 20 22 6f 74 68 65 72 |names = |t "other|
|00004fc0| 73 22 20 3d 20 61 6e 64 | 0d 20 20 20 20 20 20 20 |s" = and|. |
|00004fd0| 20 7b 20 22 65 74 20 61 | 6c 22 20 2a 20 7d 0d 20 | { "et a|l" * }. |
|00004fe0| 20 20 20 20 20 20 20 7b | 20 74 20 73 6f 72 74 69 | {| t sorti|
|00004ff0| 66 79 20 2a 20 7d 0d 20 | 20 20 20 20 20 69 66 24 |fy * }. | if$|
|00005000| 0d 20 20 20 20 20 20 6e | 61 6d 65 70 74 72 20 23 |. n|ameptr #|
|00005010| 31 20 2b 20 27 6e 61 6d | 65 70 74 72 20 3a 3d 0d |1 + 'nam|eptr :=.|
|00005020| 20 20 20 20 20 20 6e 61 | 6d 65 73 6c 65 66 74 20 | na|mesleft |
|00005030| 23 31 20 2d 20 27 6e 61 | 6d 65 73 6c 65 66 74 20 |#1 - 'na|mesleft |
|00005040| 3a 3d 0d 20 20 20 20 7d | 0d 20 20 77 68 69 6c 65 |:=. }|. while|
|00005050| 24 0d 7d 0d 0d 46 55 4e | 43 54 49 4f 4e 20 7b 73 |$.}..FUN|CTION {s|
|00005060| 6f 72 74 2e 66 6f 72 6d | 61 74 2e 74 69 74 6c 65 |ort.form|at.title|
|00005070| 7d 0d 7b 20 27 74 20 3a | 3d 0d 20 20 22 41 20 22 |}.{ 't :|=. "A "|
|00005080| 20 23 32 0d 20 20 20 20 | 22 41 6e 20 22 20 23 33 | #2. |"An " #3|
|00005090| 0d 20 20 20 20 20 20 22 | 54 68 65 20 22 20 23 34 |. "|The " #4|
|000050a0| 20 74 20 63 68 6f 70 2e | 77 6f 72 64 0d 20 20 20 | t chop.|word. |
|000050b0| 20 63 68 6f 70 2e 77 6f | 72 64 0d 20 20 63 68 6f | chop.wo|rd. cho|
|000050c0| 70 2e 77 6f 72 64 0d 20 | 20 73 6f 72 74 69 66 79 |p.word. | sortify|
|000050d0| 0d 20 20 23 31 20 67 6c | 6f 62 61 6c 2e 6d 61 78 |. #1 gl|obal.max|
|000050e0| 24 20 73 75 62 73 74 72 | 69 6e 67 24 0d 7d 0d 0d |$ substr|ing$.}..|
|000050f0| 46 55 4e 43 54 49 4f 4e | 20 7b 61 75 74 68 6f 72 |FUNCTION| {author|
|00005100| 2e 73 6f 72 74 7d 0d 7b | 20 61 75 74 68 6f 72 20 |.sort}.{| author |
|00005110| 65 6d 70 74 79 24 0d 20 | 20 20 20 7b 20 6b 65 79 |empty$. | { key|
|00005120| 20 65 6d 70 74 79 24 0d | 20 20 20 20 20 20 20 20 | empty$.| |
|00005130| 7b 20 22 74 6f 20 73 6f | 72 74 2c 20 6e 65 65 64 |{ "to so|rt, need|
|00005140| 20 61 75 74 68 6f 72 20 | 6f 72 20 6b 65 79 20 69 | author |or key i|
|00005150| 6e 20 22 20 63 69 74 65 | 24 20 2a 20 77 61 72 6e |n " cite|$ * warn|
|00005160| 69 6e 67 24 0d 20 20 20 | 20 20 20 20 20 20 20 22 |ing$. | "|
|00005170| 22 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |". | }. |
|00005180| 20 20 20 20 7b 20 6b 65 | 79 20 73 6f 72 74 69 66 | { ke|y sortif|
|00005190| 79 20 7d 0d 20 20 20 20 | 20 20 69 66 24 0d 20 20 |y }. | if$. |
|000051a0| 20 20 7d 0d 20 20 20 20 | 7b 20 61 75 74 68 6f 72 | }. |{ author|
|000051b0| 20 73 6f 72 74 2e 66 6f | 72 6d 61 74 2e 6e 61 6d | sort.fo|rmat.nam|
|000051c0| 65 73 20 7d 0d 20 20 69 | 66 24 0d 7d 0d 0d 46 55 |es }. i|f$.}..FU|
|000051d0| 4e 43 54 49 4f 4e 20 7b | 61 75 74 68 6f 72 2e 65 |NCTION {|author.e|
|000051e0| 64 69 74 6f 72 2e 73 6f | 72 74 7d 0d 7b 20 61 75 |ditor.so|rt}.{ au|
|000051f0| 74 68 6f 72 20 65 6d 70 | 74 79 24 0d 20 20 20 20 |thor emp|ty$. |
|00005200| 7b 20 65 64 69 74 6f 72 | 20 65 6d 70 74 79 24 0d |{ editor| empty$.|
|00005210| 20 20 20 20 20 20 20 20 | 7b 20 6b 65 79 20 65 6d | |{ key em|
|00005220| 70 74 79 24 0d 20 20 20 | 20 20 20 20 20 20 20 20 |pty$. | |
|00005230| 20 7b 20 22 74 6f 20 73 | 6f 72 74 2c 20 6e 65 65 | { "to s|ort, nee|
|00005240| 64 20 61 75 74 68 6f 72 | 2c 20 65 64 69 74 6f 72 |d author|, editor|
|00005250| 2c 20 6f 72 20 6b 65 79 | 20 69 6e 20 22 20 63 69 |, or key| in " ci|
|00005260| 74 65 24 20 2a 20 77 61 | 72 6e 69 6e 67 24 0d 20 |te$ * wa|rning$. |
|00005270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 22 0d | | "".|
|00005280| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 20 20 | | }. |
|00005290| 20 20 20 20 20 20 20 20 | 20 20 7b 20 6b 65 79 20 | | { key |
|000052a0| 73 6f 72 74 69 66 79 20 | 7d 0d 20 20 20 20 20 20 |sortify |}. |
|000052b0| 20 20 20 20 69 66 24 0d | 20 20 20 20 20 20 20 20 | if$.| |
|000052c0| 7d 0d 20 20 20 20 20 20 | 20 20 7b 20 65 64 69 74 |}. | { edit|
|000052d0| 6f 72 20 73 6f 72 74 2e | 66 6f 72 6d 61 74 2e 6e |or sort.|format.n|
|000052e0| 61 6d 65 73 20 7d 0d 20 | 20 20 20 20 20 69 66 24 |ames }. | if$|
|000052f0| 0d 20 20 20 20 7d 0d 20 | 20 20 20 7b 20 61 75 74 |. }. | { aut|
|00005300| 68 6f 72 20 73 6f 72 74 | 2e 66 6f 72 6d 61 74 2e |hor sort|.format.|
|00005310| 6e 61 6d 65 73 20 7d 0d | 20 20 69 66 24 0d 7d 0d |names }.| if$.}.|
|00005320| 0d 46 55 4e 43 54 49 4f | 4e 20 7b 61 75 74 68 6f |.FUNCTIO|N {autho|
|00005330| 72 2e 6f 72 67 61 6e 69 | 7a 61 74 69 6f 6e 2e 73 |r.organi|zation.s|
|00005340| 6f 72 74 7d 0d 7b 20 61 | 75 74 68 6f 72 20 65 6d |ort}.{ a|uthor em|
|00005350| 70 74 79 24 0d 20 20 20 | 20 7b 20 6f 72 67 61 6e |pty$. | { organ|
|00005360| 69 7a 61 74 69 6f 6e 20 | 65 6d 70 74 79 24 0d 20 |ization |empty$. |
|00005370| 20 20 20 20 20 20 20 7b | 20 6b 65 79 20 65 6d 70 | {| key emp|
|00005380| 74 79 24 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ty$. | |
|00005390| 7b 20 22 74 6f 20 73 6f | 72 74 2c 20 6e 65 65 64 |{ "to so|rt, need|
|000053a0| 20 61 75 74 68 6f 72 2c | 20 6f 72 67 61 6e 69 7a | author,| organiz|
|000053b0| 61 74 69 6f 6e 2c 20 6f | 72 20 6b 65 79 20 69 6e |ation, o|r key in|
|000053c0| 20 22 20 63 69 74 65 24 | 20 2a 20 77 61 72 6e 69 | " cite$| * warni|
|000053d0| 6e 67 24 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ng$. | |
|000053e0| 20 20 22 22 0d 20 20 20 | 20 20 20 20 20 20 20 20 | "". | |
|000053f0| 20 7d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 7b | }. | {|
|00005400| 20 6b 65 79 20 73 6f 72 | 74 69 66 79 20 7d 0d 20 | key sor|tify }. |
|00005410| 20 20 20 20 20 20 20 20 | 20 69 66 24 0d 20 20 20 | | if$. |
|00005420| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 20 20 7b | }. | {|
|00005430| 20 22 54 68 65 20 22 20 | 23 34 20 6f 72 67 61 6e | "The " |#4 organ|
|00005440| 69 7a 61 74 69 6f 6e 20 | 63 68 6f 70 2e 77 6f 72 |ization |chop.wor|
|00005450| 64 20 73 6f 72 74 69 66 | 79 20 7d 0d 20 20 20 20 |d sortif|y }. |
|00005460| 20 20 69 66 24 0d 20 20 | 20 20 7d 0d 20 20 20 20 | if$. | }. |
|00005470| 7b 20 61 75 74 68 6f 72 | 20 73 6f 72 74 2e 66 6f |{ author| sort.fo|
|00005480| 72 6d 61 74 2e 6e 61 6d | 65 73 20 7d 0d 20 20 69 |rmat.nam|es }. i|
|00005490| 66 24 0d 7d 0d 0d 46 55 | 4e 43 54 49 4f 4e 20 7b |f$.}..FU|NCTION {|
|000054a0| 65 64 69 74 6f 72 2e 6f | 72 67 61 6e 69 7a 61 74 |editor.o|rganizat|
|000054b0| 69 6f 6e 2e 73 6f 72 74 | 7d 0d 7b 20 65 64 69 74 |ion.sort|}.{ edit|
|000054c0| 6f 72 20 65 6d 70 74 79 | 24 0d 20 20 20 20 7b 20 |or empty|$. { |
|000054d0| 6f 72 67 61 6e 69 7a 61 | 74 69 6f 6e 20 65 6d 70 |organiza|tion emp|
|000054e0| 74 79 24 0d 20 20 20 20 | 20 20 20 20 7b 20 6b 65 |ty$. | { ke|
|000054f0| 79 20 65 6d 70 74 79 24 | 0d 20 20 20 20 20 20 20 |y empty$|. |
|00005500| 20 20 20 20 20 7b 20 22 | 74 6f 20 73 6f 72 74 2c | { "|to sort,|
|00005510| 20 6e 65 65 64 20 65 64 | 69 74 6f 72 2c 20 6f 72 | need ed|itor, or|
|00005520| 67 61 6e 69 7a 61 74 69 | 6f 6e 2c 20 6f 72 20 6b |ganizati|on, or k|
|00005530| 65 79 20 69 6e 20 22 20 | 63 69 74 65 24 20 2a 20 |ey in " |cite$ * |
|00005540| 77 61 72 6e 69 6e 67 24 | 0d 20 20 20 20 20 20 20 |warning$|. |
|00005550| 20 20 20 20 20 20 20 22 | 22 0d 20 20 20 20 20 20 | "|". |
|00005560| 20 20 20 20 20 20 7d 0d | 20 20 20 20 20 20 20 20 | }.| |
|00005570| 20 20 20 20 7b 20 6b 65 | 79 20 73 6f 72 74 69 66 | { ke|y sortif|
|00005580| 79 20 7d 0d 20 20 20 20 | 20 20 20 20 20 20 69 66 |y }. | if|
|00005590| 24 0d 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |$. | }. |
|000055a0| 20 20 20 20 7b 20 22 54 | 68 65 20 22 20 23 34 20 | { "T|he " #4 |
|000055b0| 6f 72 67 61 6e 69 7a 61 | 74 69 6f 6e 20 63 68 6f |organiza|tion cho|
|000055c0| 70 2e 77 6f 72 64 20 73 | 6f 72 74 69 66 79 20 7d |p.word s|ortify }|
|000055d0| 0d 20 20 20 20 20 20 69 | 66 24 0d 20 20 20 20 7d |. i|f$. }|
|000055e0| 0d 20 20 20 20 7b 20 65 | 64 69 74 6f 72 20 73 6f |. { e|ditor so|
|000055f0| 72 74 2e 66 6f 72 6d 61 | 74 2e 6e 61 6d 65 73 20 |rt.forma|t.names |
|00005600| 7d 0d 20 20 69 66 24 0d | 7d 0d 0d 46 55 4e 43 54 |}. if$.|}..FUNCT|
|00005610| 49 4f 4e 20 7b 70 72 65 | 73 6f 72 74 7d 0d 7b 20 |ION {pre|sort}.{ |
|00005620| 63 61 6c 63 2e 6c 61 62 | 65 6c 0d 20 20 73 6f 72 |calc.lab|el. sor|
|00005630| 74 2e 6c 61 62 65 6c 0d | 20 20 22 20 20 20 20 22 |t.label.| " "|
|00005640| 0d 20 20 2a 0d 20 20 74 | 79 70 65 24 20 22 62 6f |. *. t|ype$ "bo|
|00005650| 6f 6b 22 20 3d 0d 20 20 | 74 79 70 65 24 20 22 69 |ok" =. |type$ "i|
|00005660| 6e 62 6f 6f 6b 22 20 3d | 0d 20 20 6f 72 0d 20 20 |nbook" =|. or. |
|00005670| 20 20 27 61 75 74 68 6f | 72 2e 65 64 69 74 6f 72 | 'autho|r.editor|
|00005680| 2e 73 6f 72 74 0d 20 20 | 20 20 7b 20 74 79 70 65 |.sort. | { type|
|00005690| 24 20 22 70 72 6f 63 65 | 65 64 69 6e 67 73 22 20 |$ "proce|edings" |
|000056a0| 3d 0d 20 20 20 20 20 20 | 20 20 27 65 64 69 74 6f |=. | 'edito|
|000056b0| 72 2e 6f 72 67 61 6e 69 | 7a 61 74 69 6f 6e 2e 73 |r.organi|zation.s|
|000056c0| 6f 72 74 0d 20 20 20 20 | 20 20 20 20 7b 20 74 79 |ort. | { ty|
|000056d0| 70 65 24 20 22 6d 61 6e | 75 61 6c 22 20 3d 0d 20 |pe$ "man|ual" =. |
|000056e0| 20 20 20 20 20 20 20 20 | 20 20 20 27 61 75 74 68 | | 'auth|
|000056f0| 6f 72 2e 6f 72 67 61 6e | 69 7a 61 74 69 6f 6e 2e |or.organ|ization.|
|00005700| 73 6f 72 74 0d 20 20 20 | 20 20 20 20 20 20 20 20 |sort. | |
|00005710| 20 27 61 75 74 68 6f 72 | 2e 73 6f 72 74 0d 20 20 | 'author|.sort. |
|00005720| 20 20 20 20 20 20 20 20 | 69 66 24 0d 20 20 20 20 | |if$. |
|00005730| 20 20 20 20 7d 0d 20 20 | 20 20 20 20 69 66 24 0d | }. | if$.|
|00005740| 20 20 20 20 7d 0d 20 20 | 69 66 24 0d 20 20 2a 0d | }. |if$. *.|
|00005750| 20 20 22 20 20 20 20 22 | 0d 20 20 2a 0d 20 20 79 | " "|. *. y|
|00005760| 65 61 72 20 66 69 65 6c | 64 2e 6f 72 2e 6e 75 6c |ear fiel|d.or.nul|
|00005770| 6c 20 73 6f 72 74 69 66 | 79 0d 20 20 2a 0d 20 20 |l sortif|y. *. |
|00005780| 22 20 20 20 20 22 0d 20 | 20 2a 0d 20 20 74 69 74 |" ". | *. tit|
|00005790| 6c 65 20 66 69 65 6c 64 | 2e 6f 72 2e 6e 75 6c 6c |le field|.or.null|
|000057a0| 0d 20 20 73 6f 72 74 2e | 66 6f 72 6d 61 74 2e 74 |. sort.|format.t|
|000057b0| 69 74 6c 65 0d 20 20 2a | 0d 20 20 23 31 20 65 6e |itle. *|. #1 en|
|000057c0| 74 72 79 2e 6d 61 78 24 | 20 73 75 62 73 74 72 69 |try.max$| substri|
|000057d0| 6e 67 24 0d 20 20 27 73 | 6f 72 74 2e 6b 65 79 24 |ng$. 's|ort.key$|
|000057e0| 20 3a 3d 0d 7d 0d 0d 49 | 54 45 52 41 54 45 20 7b | :=.}..I|TERATE {|
|000057f0| 70 72 65 73 6f 72 74 7d | 0d 0d 53 4f 52 54 0d 0d |presort}|..SORT..|
|00005800| 53 54 52 49 4e 47 53 20 | 7b 20 6c 6f 6e 67 65 73 |STRINGS |{ longes|
|00005810| 74 2e 6c 61 62 65 6c 20 | 6c 61 73 74 2e 73 6f 72 |t.label |last.sor|
|00005820| 74 2e 6c 61 62 65 6c 20 | 6e 65 78 74 2e 65 78 74 |t.label |next.ext|
|00005830| 72 61 20 7d 0d 0d 49 4e | 54 45 47 45 52 53 20 7b |ra }..IN|TEGERS {|
|00005840| 20 6c 6f 6e 67 65 73 74 | 2e 6c 61 62 65 6c 2e 77 | longest|.label.w|
|00005850| 69 64 74 68 20 6c 61 73 | 74 2e 65 78 74 72 61 2e |idth las|t.extra.|
|00005860| 6e 75 6d 20 7d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |num }..F|UNCTION |
|00005870| 7b 69 6e 69 74 69 61 6c | 69 7a 65 2e 6c 6f 6e 67 |{initial|ize.long|
|00005880| 65 73 74 2e 6c 61 62 65 | 6c 7d 0d 7b 20 22 22 20 |est.labe|l}.{ "" |
|00005890| 27 6c 6f 6e 67 65 73 74 | 2e 6c 61 62 65 6c 20 3a |'longest|.label :|
|000058a0| 3d 0d 20 20 23 30 20 69 | 6e 74 2e 74 6f 2e 63 68 |=. #0 i|nt.to.ch|
|000058b0| 72 24 20 27 6c 61 73 74 | 2e 73 6f 72 74 2e 6c 61 |r$ 'last|.sort.la|
|000058c0| 62 65 6c 20 3a 3d 0d 20 | 20 22 22 20 27 6e 65 78 |bel :=. | "" 'nex|
|000058d0| 74 2e 65 78 74 72 61 20 | 3a 3d 0d 20 20 23 30 20 |t.extra |:=. #0 |
|000058e0| 27 6c 6f 6e 67 65 73 74 | 2e 6c 61 62 65 6c 2e 77 |'longest|.label.w|
|000058f0| 69 64 74 68 20 3a 3d 0d | 20 20 23 30 20 27 6c 61 |idth :=.| #0 'la|
|00005900| 73 74 2e 65 78 74 72 61 | 2e 6e 75 6d 20 3a 3d 0d |st.extra|.num :=.|
|00005910| 7d 0d 0d 46 55 4e 43 54 | 49 4f 4e 20 7b 66 6f 72 |}..FUNCT|ION {for|
|00005920| 77 61 72 64 2e 70 61 73 | 73 7d 0d 7b 20 6c 61 73 |ward.pas|s}.{ las|
|00005930| 74 2e 73 6f 72 74 2e 6c | 61 62 65 6c 20 73 6f 72 |t.sort.l|abel sor|
|00005940| 74 2e 6c 61 62 65 6c 20 | 3d 0d 20 20 20 20 7b 20 |t.label |=. { |
|00005950| 6c 61 73 74 2e 65 78 74 | 72 61 2e 6e 75 6d 20 23 |last.ext|ra.num #|
|00005960| 31 20 2b 20 27 6c 61 73 | 74 2e 65 78 74 72 61 2e |1 + 'las|t.extra.|
|00005970| 6e 75 6d 20 3a 3d 0d 20 | 20 20 20 20 20 6c 61 73 |num :=. | las|
|00005980| 74 2e 65 78 74 72 61 2e | 6e 75 6d 20 69 6e 74 2e |t.extra.|num int.|
|00005990| 74 6f 2e 63 68 72 24 20 | 27 65 78 74 72 61 2e 6c |to.chr$ |'extra.l|
|000059a0| 61 62 65 6c 20 3a 3d 0d | 20 20 20 20 7d 0d 20 20 |abel :=.| }. |
|000059b0| 20 20 7b 20 22 61 22 20 | 63 68 72 2e 74 6f 2e 69 | { "a" |chr.to.i|
|000059c0| 6e 74 24 20 27 6c 61 73 | 74 2e 65 78 74 72 61 2e |nt$ 'las|t.extra.|
|000059d0| 6e 75 6d 20 3a 3d 0d 20 | 20 20 20 20 20 22 22 20 |num :=. | "" |
|000059e0| 27 65 78 74 72 61 2e 6c | 61 62 65 6c 20 3a 3d 0d |'extra.l|abel :=.|
|000059f0| 20 20 20 20 20 20 73 6f | 72 74 2e 6c 61 62 65 6c | so|rt.label|
|00005a00| 20 27 6c 61 73 74 2e 73 | 6f 72 74 2e 6c 61 62 65 | 'last.s|ort.labe|
|00005a10| 6c 20 3a 3d 0d 20 20 20 | 20 7d 0d 20 20 69 66 24 |l :=. | }. if$|
|00005a20| 0d 7d 0d 0d 46 55 4e 43 | 54 49 4f 4e 20 7b 72 65 |.}..FUNC|TION {re|
|00005a30| 76 65 72 73 65 2e 70 61 | 73 73 7d 0d 7b 20 6e 65 |verse.pa|ss}.{ ne|
|00005a40| 78 74 2e 65 78 74 72 61 | 20 22 62 22 20 3d 0d 20 |xt.extra| "b" =. |
|00005a50| 20 20 20 7b 20 22 61 22 | 20 27 65 78 74 72 61 2e | { "a"| 'extra.|
|00005a60| 6c 61 62 65 6c 20 3a 3d | 20 7d 0d 20 20 20 20 27 |label :=| }. '|
|00005a70| 73 6b 69 70 24 0d 20 20 | 69 66 24 0d 20 20 6c 61 |skip$. |if$. la|
|00005a80| 62 65 6c 20 65 78 74 72 | 61 2e 6c 61 62 65 6c 20 |bel extr|a.label |
|00005a90| 2a 20 27 6c 61 62 65 6c | 20 3a 3d 0d 20 20 6c 61 |* 'label| :=. la|
|00005aa0| 62 65 6c 20 77 69 64 74 | 68 24 20 6c 6f 6e 67 65 |bel widt|h$ longe|
|00005ab0| 73 74 2e 6c 61 62 65 6c | 2e 77 69 64 74 68 20 3e |st.label|.width >|
|00005ac0| 0d 20 20 20 20 7b 20 6c | 61 62 65 6c 20 27 6c 6f |. { l|abel 'lo|
|00005ad0| 6e 67 65 73 74 2e 6c 61 | 62 65 6c 20 3a 3d 0d 20 |ngest.la|bel :=. |
|00005ae0| 20 20 20 20 20 6c 61 62 | 65 6c 20 77 69 64 74 68 | lab|el width|
|00005af0| 24 20 27 6c 6f 6e 67 65 | 73 74 2e 6c 61 62 65 6c |$ 'longe|st.label|
|00005b00| 2e 77 69 64 74 68 20 3a | 3d 0d 20 20 20 20 7d 0d |.width :|=. }.|
|00005b10| 20 20 20 20 27 73 6b 69 | 70 24 0d 20 20 69 66 24 | 'ski|p$. if$|
|00005b20| 0d 20 20 65 78 74 72 61 | 2e 6c 61 62 65 6c 20 27 |. extra|.label '|
|00005b30| 6e 65 78 74 2e 65 78 74 | 72 61 20 3a 3d 0d 7d 0d |next.ext|ra :=.}.|
|00005b40| 0d 45 58 45 43 55 54 45 | 20 7b 69 6e 69 74 69 61 |.EXECUTE| {initia|
|00005b50| 6c 69 7a 65 2e 6c 6f 6e | 67 65 73 74 2e 6c 61 62 |lize.lon|gest.lab|
|00005b60| 65 6c 7d 0d 0d 49 54 45 | 52 41 54 45 20 7b 66 6f |el}..ITE|RATE {fo|
|00005b70| 72 77 61 72 64 2e 70 61 | 73 73 7d 0d 0d 52 45 56 |rward.pa|ss}..REV|
|00005b80| 45 52 53 45 20 7b 72 65 | 76 65 72 73 65 2e 70 61 |ERSE {re|verse.pa|
|00005b90| 73 73 7d 0d 0d 46 55 4e | 43 54 49 4f 4e 20 7b 62 |ss}..FUN|CTION {b|
|00005ba0| 65 67 69 6e 2e 62 69 62 | 7d 0d 7b 20 65 74 2e 61 |egin.bib|}.{ et.a|
|00005bb0| 6c 2e 63 68 61 72 2e 75 | 73 65 64 0d 20 20 20 20 |l.char.u|sed. |
|00005bc0| 7b 20 22 5c 6e 65 77 63 | 6f 6d 6d 61 6e 64 7b 5c |{ "\newc|ommand{\|
|00005bd0| 65 74 61 6c 63 68 61 72 | 7d 5b 31 5d 7b 24 5e 7b |etalchar|}[1]{$^{|
|00005be0| 23 31 7d 24 7d 22 20 77 | 72 69 74 65 24 20 6e 65 |#1}$}" w|rite$ ne|
|00005bf0| 77 6c 69 6e 65 24 20 7d | 0d 20 20 20 20 27 73 6b |wline$ }|. 'sk|
|00005c00| 69 70 24 0d 20 20 69 66 | 24 0d 20 20 70 72 65 61 |ip$. if|$. prea|
|00005c10| 6d 62 6c 65 24 20 65 6d | 70 74 79 24 0d 20 20 20 |mble$ em|pty$. |
|00005c20| 20 27 73 6b 69 70 24 0d | 20 20 20 20 7b 20 70 72 | 'skip$.| { pr|
|00005c30| 65 61 6d 62 6c 65 24 20 | 77 72 69 74 65 24 20 6e |eamble$ |write$ n|
|00005c40| 65 77 6c 69 6e 65 24 20 | 7d 0d 20 20 69 66 24 0d |ewline$ |}. if$.|
|00005c50| 20 20 22 5c 62 65 67 69 | 6e 7b 74 68 65 62 69 62 | "\begi|n{thebib|
|00005c60| 6c 69 6f 67 72 61 70 68 | 79 7d 7b 22 20 20 6c 6f |liograph|y}{" lo|
|00005c70| 6e 67 65 73 74 2e 6c 61 | 62 65 6c 20 20 2a 20 22 |ngest.la|bel * "|
|00005c80| 7d 22 20 2a 20 77 72 69 | 74 65 24 20 6e 65 77 6c |}" * wri|te$ newl|
|00005c90| 69 6e 65 24 0d 7d 0d 0d | 45 58 45 43 55 54 45 20 |ine$.}..|EXECUTE |
|00005ca0| 7b 62 65 67 69 6e 2e 62 | 69 62 7d 0d 0d 45 58 45 |{begin.b|ib}..EXE|
|00005cb0| 43 55 54 45 20 7b 69 6e | 69 74 2e 73 74 61 74 65 |CUTE {in|it.state|
|00005cc0| 2e 63 6f 6e 73 74 73 7d | 0d 0d 49 54 45 52 41 54 |.consts}|..ITERAT|
|00005cd0| 45 20 7b 63 61 6c 6c 2e | 74 79 70 65 24 7d 0d 0d |E {call.|type$}..|
|00005ce0| 46 55 4e 43 54 49 4f 4e | 20 7b 65 6e 64 2e 62 69 |FUNCTION| {end.bi|
|00005cf0| 62 7d 0d 7b 20 6e 65 77 | 6c 69 6e 65 24 0d 20 20 |b}.{ new|line$. |
|00005d00| 22 5c 65 6e 64 7b 74 68 | 65 62 69 62 6c 69 6f 67 |"\end{th|ebibliog|
|00005d10| 72 61 70 68 79 7d 22 20 | 77 72 69 74 65 24 20 6e |raphy}" |write$ n|
|00005d20| 65 77 6c 69 6e 65 24 0d | 7d 0d 0d 45 58 45 43 55 |ewline$.|}..EXECU|
|00005d30| 54 45 20 7b 65 6e 64 2e | 62 69 62 7d 0d 0d |TE {end.|bib}.. |
+--------+-------------------------+-------------------------+--------+--------+
