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