![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / monk / db|
Return to rp CVS log | Up to [Research Unix] / researchv10no / cmd / monk / db |
1.1 root 1: |associate(author;
2: incr A, clear T,
3: clear string T1 T2 T3
4: T4 T5 T6;
5: store string A\nA T1,
6: store string I\nA T2,
7: store string L\nA T3,
8: store string D\nA T4,
9: store string E\nA T5,
10: store string R\nA T6;
11: [name $;
12: incr T, set string T1 $;]
13: [initials $;
14: incr T, set string T2 $;]
15: [location $;
16: incr T, set string T3 $;]
17: [department $;
18: incr T, set string T4 $;]
19: [extension $;
20: incr T, set string T5 $;]
21: [room $;
22: incr T, set string T6 $;]
23: [$;
24: incr T,
25: set string T\nT $;])
26: |associate(document;
27: incr D, clear T,
28: clear string T1 T2 T3;
29: store string S\nD T1,
30: store string F\nD T2,
31: store string W\nD T3;
32: [number $;
33: incr T, set string T1 $;]
34: [file_case $;
35: incr T, set string T2 $;]
36: [work_program $;
37: incr T, set string T3 $;]
38: [$;
39: incr T,
40: set string T\nT $;])
41: |environment(title;
42: divert.input on TI;)
43: |environment(date;
44: divert.string DT;)
45: |environment(abstract;
46: divert.input on AS;
47: sawabstract on)
48: |environment(keywords;
49: divert.input on KW;
50: sawkeywords on)
51: |environment(titlebox;
52: ;
53: new.page, indent.line +4.375i, string LO,
54: blank.lines 2, size -2, remember P0,
55: page.offset -.5i, text "subject:", new.line,
56: return P0, indent +4.875i, text "date:", blank.lines,
57: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
58: line.length -3i, font bold, return P0, fill off,
59: macro TI, fill on, line.length +3i, new.line,
60: size -1,
61: |for i in 1 2 3 4 5 6 7 8 9 [
62: if begin "\nD>=$i",
63: new.line, text "Work Program ", string W$i,
64: text " File Case ", string F$i,
65: if end,
66: ]
67: size +1,
68: return P0, indent +4.75i, line.length +3i,
69: string DT,
70: |for i in 1 2 3 4 5 6 7 8 9 [
71: if begin "\nA>=$i",
72: blank.lines,
73: string A$i, new.line,
74: string L$i, text " ",
75: string D$i, new.line,
76: string R$i, text " ",
77: string E$i,
78: if end,
79: ]
80: line.length -3i, spacing on, blank.lines, fill off,
81: string S1, fill on, indent -4.75i, blank.lines 3,
82: center on, font roman, text italics "TECHNICAL MEMORANDUM",
83: center off, minimum.lines 2)
84: |environment(titlebox;
85: ;
86: new.page, fill off, inline off, size +2, space +2, font bold, center on,
87: macro TI, font roman, size -2, space -2, SPACE, inline on, fill on,
88: blank.lines,
89: |for i in 1 2 3 4 5 6 7 8 9 [
90: if begin "\nA>=$i",
91: new.line, size +1, font italics,
92: string A$i, font roman, size -1,
93: if begin "!@\*(L$i@\*(L$i+1@",
94: if begin "@\*(L$i@BC@",
95: text "Boston College", new.line,
96: text "Chestnut Hill, MA 02167", new.line,
97: if end,
98: if begin "@\*(L$i@CM@",
99: text "Carnegie-Mellon University", new.line,
100: text "Electrical and Computer Engineering Department", new.line,
101: text "Pittsburgh, PA 15213", new.line,
102: if end,
103: if begin "@\*(L$i@CU@",
104: text "Columbia University", new.line,
105: text "New York, NY 10027", new.line,
106: if end,
107: if begin "@\*(L$i@INESC@",
108: text "INESC", new.line,
109: text "Lisboa, Portugal", new.line,
110: if end,
111: if begin "@\*(L$i@SDSU@",
112: text "San Diego State University", new.line,
113: text "San Diego, CA 92000", new.line,
114: if end,
115: if begin "@\*(L$i@UA@",
116: text "University of Antwerp", new.line,
117: text "B-2610 Antwerp, Belgium", new.line,
118: if end,
119: if begin "@\*(L$i@UCB@",
120: text "University of California", new.line,
121: text "Berkeley, CA 94720", new.line,
122: if end,
123: if begin "@\*(L$i@UNL@",
124: text "University of Nebraska", new.line,
125: text "Lincoln, NE 68588", new.line,
126: if end,
127: if begin "@\*(L$i@AK@",
128: text "AT&T Bell Laboratories", new.line,
129: text "Norcross, GA 30071", new.line,
130: if end,
131: if begin "@\*(L$i@AL@",
132: text "AT&T Bell Laboratories", new.line,
133: text "Allentown, PA 18103", new.line,
134: if end,
135: if begin "@\*(L$i@ALC@",
136: text "AT&T Bell Laboratories", new.line,
137: text "Allentown, PA 18103-6265", new.line,
138: if end,
139: if begin "@\*(L$i@AN@",
140: text "AT&T Bell Laboratories", new.line,
141: text "Andover, MA 01810", new.line,
142: if end,
143: if begin "@\*(L$i@CB@",
144: text "AT&T Bell Laboratories", new.line,
145: text "Columbus, OH 43213", new.line,
146: if end,
147: if begin "@\*(L$i@CH@",
148: text "AT&T Bell Laboratories", new.line,
149: text "Chester, NJ 07930", new.line,
150: if end,
151: if begin "@\*(L$i@DR@",
152: text "AT&T Bell Laboratories", new.line,
153: text "Denver, CO 80234", new.line,
154: if end,
155: if begin "@\*(L$i@HL@",
156: text "AT&T Bell Laboratories", new.line,
157: text "Short Hills, NJ 07078-0905", new.line,
158: if end,
159: if begin "@\*(L$i@HO@",
160: text "AT&T Bell Laboratories", new.line,
161: text "Holmdel, NJ 07733-1988", new.line,
162: if end,
163: if begin "@\*(L$i@HOH@",
164: text "AT&T Bell Laboratories", new.line,
165: text "Holmdel, NJ 07733-0400", new.line,
166: if end,
167: if begin "@\*(L$i@HR@",
168: text "AT&T Bell Laboratories", new.line,
169: text "Middletown, NJ 07748-3052", new.line,
170: if end,
171: if begin "@\*(L$i@IH@",
172: text "AT&T Bell Laboratories", new.line,
173: text "Naperville, IL 60566-7033", new.line,
174: if end,
175: if begin "@\*(L$i@INH@",
176: text "AT&T Bell Laboratories", new.line,
177: text "Indianapolis, IN 46206", new.line,
178: if end,
179: if begin "@\*(L$i@INP@",
180: text "AT&T Bell Laboratories", new.line,
181: text "Naperville, IL 60566-7050", new.line,
182: if end,
183: if begin "@\*(L$i@KD@",
184: text "AT&T Bell Laboratories", new.line,
185: text "Piscataway, NJ 08854", new.line,
186: if end,
187: if begin "@\*(L$i@LC@",
188: text "AT&T Bell Laboratories", new.line,
189: text "Warren, NJ 07060", new.line,
190: if end,
191: if begin "@\*(L$i@LZ@",
192: text "AT&T Bell Laboratories", new.line,
193: text "Lincroft, NJ 07738-1526", new.line,
194: if end,
195: if begin "@\*(L$i@MH@",
196: text "AT&T Bell Laboratories", new.line,
197: text "Murray Hill, NJ 07974-2070", new.line,
198: if end,
199: if begin "@\*(L$i@MO@",
200: text "AT&T Bell Laboratories", new.line,
201: text "Morristown, NJ 07960-4499", new.line,
202: if end,
203: if begin "@\*(L$i@MT@",
204: text "AT&T Bell Laboratories", new.line,
205: text "Middletown, NJ 07748-4801", new.line,
206: if end,
207: if begin "@\*(L$i@MV@",
208: text "AT&T Bell Laboratories", new.line,
209: text "North Andover, MA 01845", new.line,
210: if end,
211: if begin "@\*(L$i@PK@",
212: text "AT&T Bell Laboratories", new.line,
213: text "Parsippany, NJ 07054-11794", new.line,
214: if end,
215: if begin "@\*(L$i@RD@",
216: text "AT&T Bell Laboratories", new.line,
217: text "Reading, PA 19604", new.line,
218: if end,
219: if begin "@\*(L$i@SF@",
220: text "AT&T Bell Laboratories", new.line,
221: text "Summit, NJ 07901-1444", new.line,
222: if end,
223: if begin "@\*(L$i@WB@",
224: text "AT&T Bell Laboratories", new.line,
225: text "West Long Branch, NJ 07764-1394", new.line,
226: if end,
227: if begin "@\*(L$i@WH@",
228: text "AT&T Bell Laboratories", new.line,
229: text "Whippany, NJ 07981-0903", new.line,
230: if end,
231: if begin "@\*(L$i@WI@",
232: text "AT&T Bell Laboratories", new.line,
233: text "Ward Hill, MA 01830", new.line,
234: if end,
235: if end,
236: if end,
237: ]
238: center off,
239: |ifvalue sawabstract on {
240: blank.lines, center on, size +1, text italics "ABSTRACT",
241: size -1, center off, minimum.lines, paragraph,
242: indent +.5i, line.length -.5i, line.spacing 1,
243: macro AS, line.length +.5i, indent -.5i,
244: }
245: minimum.lines)
246: |environment(:document;
247: clear A D, reference.option rp;)
248: |environment(:document_save;
249: ;)
250: |environment(:document_restore;
251: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.