![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to memo 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 memo 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, indent.line +4.375i, string LO,
87: blank.lines 2, size -2, remember P0,
88: page.offset -.5i, text "subject:", new.line,
89: return P0, indent +4.875i, text "date:", blank.lines,
90: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
91: line.length -3i, font bold, return P0, fill off,
92: macro TI, fill on, line.length +3i, new.line,
93: size -1,
94: |for i in 1 2 3 4 5 6 7 8 9 [
95: if begin "\nD>=$i",
96: new.line, text "Work Program ", string W$i,
97: text " File Case ", string F$i,
98: if end,
99: ]
100: size +1,
101: return P0, indent +4.75i, line.length +3i,
102: string DT,
103: |for i in 1 2 3 4 5 6 7 8 9 [
104: if begin "\nA>=$i",
105: blank.lines,
106: string A$i, new.line,
107: string L$i, text " ",
108: string D$i, new.line,
109: string R$i, text " ",
110: string E$i,
111: if end,
112: ]
113: line.length -3i, spacing on, blank.lines, fill off,
114: string S1, fill on, indent -4.75i,
115: minimum.lines, inline off, font roman, inline on)
116: |environment(signature;
117: here on, minimum.lines 1, indent +30, line.length +3i,
118: |for i in 1 2 3 4 5 6 7 8 9 [
119: if begin "\nA>=$i",
120: blank.lines 3,
121: string bold A$i,
122: if end,
123: ]
124: line.length -3i, indent -30, blank.lines -1;
125: minimum.lines 3)
126: |environment(:document;
127: clear A D;)
128: |environment(:document_save;
129: ;)
130: |environment(:document_restore;
131: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.