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