![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to im 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 im 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, indent.line +4.375i, string LO,
140: blank.lines 2, size -2, remember P0,
141: page.offset -.5i, text "subject:", new.line,
142: return P0, indent +4.875i, text "date:", blank.lines,
143: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
144: line.length -3i, font bold, return P0, fill off,
145: macro TI, fill on, line.length +3i, new.line,
146: size -1,
147: |for i in 1 2 3 4 5 6 7 8 9 [
148: if begin "\nD>=$i",
149: new.line, text "Work Program ", string W$i,
150: text " File Case ", string F$i,
151: if end,
152: ]
153: size +1,
154: return P0, indent +4.75i, line.length +3i,
155: string DT,
156: |for i in 1 2 3 4 5 6 7 8 9 [
157: if begin "\nA>=$i",
158: blank.lines,
159: string A$i, new.line,
160: string L$i, text " ",
161: string D$i, new.line,
162: string R$i, text " ",
163: string E$i,
164: if end,
165: ]
166: line.length -3i, spacing on, blank.lines, fill off,
167: string S1, fill on, indent -4.75i, blank.lines 3,
168: center on, font roman, text italics "INTERNAL MEMORANDUM",
169: center off, minimum.lines 2)
170: |comment<summary: titlebox (produce title box here)>
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189: |associate(mercury;
190: clear T, clear string T0 T1
191: T2 T3 T4 T5
192: T6 T7 T8 T9;
193:
194: if begin "@\*(T0@yes@",
195: incr M,
196: set string M\nM
197: "CHM - Chemistry and Materials",
198: if end,
199: if begin "@\*(T1@yes@",
200: incr M, set string M\nM
201: "CMM - Communications",
202: if end,
203: if begin "@\*(T2@yes@",
204: incr M, set string M\nM
205: "CMP - Computing",
206: if end,
207: if begin "@\*(T3@yes@",
208: incr M, set string M\nM
209: "ELC - Electronics",
210: if end,
211: if begin "@\*(T4@yes@",
212: incr M, set string M\nM
213: "LFS - Life Sciences",
214: if end,
215: if begin "@\*(T5@yes@",
216: incr M,
217: set string M\nM
218: "MAN - Manufacturing",
219: if end,
220: if begin "@\*(T6@yes@",
221: incr M,
222: set string M\nM
223: "MAS - Mathematics and Statistics",
224: if end,
225: if begin "@\*(T7@yes@",
226: incr M, set string M\nM
227: "MKT - Marketing",
228: if end,
229: if begin "@\*(T8@yes@",
230: incr M, set string M\nM
231: "PHY - Physics",
232: if end,
233: if begin "@\*(T9@yes@",
234: incr M, set string M\nM
235: "STD - Standards",
236: if end;
237:
238: [chm;
239: incr T, incr M,
240: set string M\nM
241: "CHM - Chemistry and Materials";]
242: [cmm;
243: incr T, incr M,
244: set string M\nM "CMM - Communications";]
245: [cmp;
246: incr T, incr M,
247: set string M\nM "CMP - Computing";]
248: [elc;
249: incr T, incr M,
250: set string M\nM "ELC - Electronics";]
251: [lfs;
252: incr T, incr M,
253: set string M\nM "LFS - Life Sciences";]
254: [man;
255: incr T, incr M,
256: set string M\nM "MAN - Manufacturing";]
257: [mas;
258: incr T, incr M,
259: set string M\nM
260: "MAS - Mathematics and Statistics";]
261: [mkt;
262: incr T, incr M,
263: set string M\nM "MKT - Marketing";]
264: [phy;
265: incr T, incr M,
266: set string M\nM "PHY - Physics";]
267: [std;
268: incr T, incr M,
269: set string M\nM "STD - Standards";]
270: [yes;
271: incr T,
272: set string T\nT yes;]
273: [no;
274: incr T,
275: set string T\nT no;])
276: |comment<summary: mercury (chm, cmm, cmp, elc, lfs, man, mas, mkt, phy, std mercury distribution for cover sheet)>
277:
278: |associate(proprietary_class;;;
279: [yes;
280: set string PC yes;]
281: [no;
282: set string PC no;])
283: |comment<summary: proprietary_class (proprietary classification for cover sheet)>
284:
285: |associate(government_security;;;
286: [yes;
287: set string GS yes;]
288: [no;
289: set string GS no;])
290: |comment<summary: government_security (government security clearance for cover sheet)>
291:
292: |associate(earlier;;;
293:
294: [document_number $;
295: set string EN $;]
296: [$;
297: set string EN $;])
298: |comment<summary: earlier (replacing earlier document_number for cover sheet)>
299:
300: |associate(att;;;
301:
302: [is_release yes;
303: set string AR yes;]
304: [is_release no;
305: set string AR no;]
306: [yes;
307: set string AR yes;]
308: [no;
309: set string AR no;])
310: |comment<summary: att (is_release for cover sheet)>
311:
312: |environment(dh_name;
313: divert.string DH;)
314: |comment<summary: dh_name (department head's name for cover sheet)>
315:
316: |environment(director_name;
317: divert.string DN;)
318: |comment<summary: director_name (director's name for cover sheet)>
319:
320: |environment(distribute_complete_memo;
321: divert.input on CM;)
322: |comment<summary: distribute_complete_memo (distribution list for complete memo for cover sheet)>
323:
324: |environment(distribute_cover_sheet;
325: divert.input on CS;)
326: |comment<summary: distribute_cover_sheet (distribution list for cover sheet for cover sheet)>
327:
328: |associate(add_totals;;;
329:
330: [text $;
331: add constant TP $, add constant OM $;]
332: [other $;
333: add constant OC $;]
334: [figures $;
335: add constant FG $;]
336: [tables $;
337: add constant TB $;]
338: [references $;
339: add constant RF $;])
340: |comment<summary: add_totals (text, other, figure, table, reference counts for cover sheet)>
341:
342: |environment(other;
343: store OM P;)
344: |comment<summary: other (end of text body/start of attached pages)>
345:
346: |environment(cover_sheet;
347: clear string PH PF, new.page, line.spacing 1,
348: inline off, size 10, inline on, font.family helvetica,
349: line.length 7.5i, page.length +.75i, page.offset .3i, indent 0,
350: cs_heading_page1,
351: cs_title,
352: cs_authors,
353: cs_numbers,
354: cs_keywords,
355: cs_mercury,
356: cs_abstract_part1,
357: cs_footer_page1,
358: cs_abstract_part2,
359: cs_heading_page2,
360: cs_distribution_list,
361: cs_spacing,
362: cs_government,
363: cs_att,
364: cs_signatures,
365: cs_proprietary,
366: cs_earlier,
367: cs_footer_page2,
368: cs_abstract_continuation,
369: cs_distribution_continuation;)
370: |comment<summary: cover_sheet (produce the coversheet here)>
371:
372: |environment(cs_heading_page1;
373: spacing on, goto 0.2i, inline off, size 16, space 18, font bold,
374: title "AT&T Bell Laboratories" " " "Document Cover Sheet",
375: title " " " " "for Technical Memorandum";
376:
377: thick.line)
378:
379: |environment(cs_title;
380: new.line, remember P0,
381: text bold "Title:", horizontal.motion 5.5i,
382: text bold "Author's Date:",
383: return P0,
384: indent +.5i, line.length 5.0i,
385: macro TI,
386: line.length 7.5i, indent -.5i,
387: return P0, blank.lines, indent.line 6i,
388: string DT, new.line;
389:
390: blank.lines -0.1i, thick.line)
391:
392: |environment(cs_authors;
393: tab.stops 1.5i 4.45i 5.7i 6.95i,
394: if else "\nA>1",
395: set string SS "s",
396: if else,
397: clear string SS,
398: tab, text bold "Author",
399: string bold SS,
400: tab, text bold "Location", tab, text bold "Ext.",
401: tab, text bold "Dept.",
402: tab.stops 4.2i 4.5i 5.5i 6.7i, indent .2i,
403: |for i in 1 2 3 4 5 6 7 8 9 [
404: if begin "\nA>=$i",
405: new.line, string A$i, tab,
406: string L$i, text " ", string R$i, tab,
407: string E$i, tab, string D$i,
408: if end,
409: ]
410: new.line;
411:
412: blank.lines -0.1i, thick.line)
413:
414: |environment(cs_numbers;
415: tab.stops 0.9i 3.4i 5.65i,
416: if else "\nD>1",
417: set string SS "s",
418: if else,
419: clear string SS,
420: tab, text bold "Document No",
421: string bold SS, text bold ".",
422: tab, text bold "Filing Case No",
423: string bold SS, text bold ".",
424: tab, text bold "Project No",
425: string bold SS, text bold ".",
426: tab.stops 0.8i 3.5i 5.75i,
427: |for i in 1 2 3 4 5 6 7 8 9 [
428: if begin "\nD>=$i",
429: new.line, tab, string S$i,
430: tab, string F$i, tab, string W$i,
431: if end,
432: ]
433: new.line;
434:
435: blank.lines -0.1i, thick.line)
436:
437: |environment(cs_keywords;
438: text bold "Keywords:",
439: blank.lines 0.1i, indent.line .2i, adjust off,
440: macro KW, new.line;
441:
442: blank.lines -0.1i, thick.line)
443:
444: |environment(cs_mercury;
445: tab.stops 2i 4i,
446: text bold "MERCURY Announcement Bulletin Sections:",
447: blank.lines 0.1i, indent .9i, inline off, size 8, space 10,
448: |for i in 1 4 7 [
449: if begin "\nM>=$i",
450: set i $i+1,
451: set j $i+2,
452: string M$i, tab,
453: string M\ni, tab,
454: string M\nj,
455: if end,
456: ]
457: ;
458:
459: blank.lines -0.1i, thick.line)
460:
461: |environment(cs_abstract_part1;
462: text bold "Abstract:", minimum.lines 0, paragraph,
463: remember P0;)
464:
465: |environment(cs_footer_page1;
466: goto 9.375i,
467: remember P1,
468: thick.line,
469:
470: store TT P, decr TT,
471: add TT TP, add TT OC,
472: add constant TT 2,
473: store OC TT, sub OC OM,
474: store TP TT, sub TP OC,
475: size -2,
476: text bold "Total Pages ", text "(including document cover sheet): ",
477: size +2, number TT,
478:
479: return P1, blank.lines .5i, indent .6i,
480: if else begin "@\*(PC@yes@",
481: text bold " AT&T \(em PROPRIETARY (Restricted)",
482: indent -.1i,
483: new.line, text "Solely for authorized persons having a need to know",
484: new.line, text "Use pursuant to Company Instructions.",
485: new.line, text "Requires Department Head approval (see below).",
486: if end,
487: if else begin,
488: text bold " AT&T \(em PROPRIETARY",
489: indent -.1i,
490: new.line, text "Use pursuant to Company Instructions",
491: if end,
492: indent 0,
493:
494: return P1, blank.lines .2i, indent.line 5.25i,
495: text bold "Mailing Label";)
496:
497: |environment(cs_abstract_part2;
498: return P0, indent .2i, line.length 7i,
499: invoke at constant 9.375i C0, macro AS,
500: if begin "@\n(.z@CO@",
501: invoke end, rename CO AS,
502: store diversionheight MA,
503: if end;
504:
505: invoke off C0, line.length 7.5i)
506:
507: |environment(cs_heading_page2;
508: new.page, spacing on, goto 0.2i,
509:
510: text bold "Initial Distribution Specifications",
511: horizontal.motion 3.0i,
512: string bold S1,
513: new.line;
514:
515: blank.lines -0.1i, thick.line)
516:
517: |environment(cs_distribution_list;
518: horizontal.motion 1.25i,
519: text bold "Complete Copy", horizontal.motion 2.75i,
520: text bold "Cover Sheet Only",
521: new.line, remember P0, fill off, indent .2i,
522: set T 6.25i,
523: if "!@\*(PC@yes@",
524: if "@\*(DH\*(DN@@",
525: add constant T 0.6875i,
526: if "!@\*(GS@yes@",
527: add constant T 0.25i,
528: if "\nA<=3",
529: add constant T 0.4375i,
530: if "\nA<=6",
531: add constant T 0.4375i,
532: if "@\*(EN@@",
533: add constant T 0.25i,
534: invoke on number T C0,
535: macro CM,
536: if else begin "@\n(.z@CO@",
537: invoke end, rename CO CM,
538: store diversionheight MM,
539: if end,
540: if else,
541: clear string CM,
542: return P0, indent 4i,
543: invoke on number T C0,
544: macro CS,
545: if else begin "@\n(.z@CO@",
546: invoke end, rename CO CS,
547: store diversionheight MS,
548: if end,
549: if else,
550: clear string CS;
551:
552: indent 0, invoke off C0)
553:
554: |environment(cs_spacing;
555: goto 6.75i,
556:
557: if "!@\*(PC@yes@",
558: if "@\*(DH\*(DN@@",
559: blank.lines 0.6875i,
560: if "!@\*(GS@yes@",
561: blank.lines 0.25i,
562: if "\nA<=3",
563: blank.lines 0.4375i,
564: if "\nA<=6",
565: blank.lines 0.4375i,
566: if "@\*(EN@@",
567: blank.lines 0.25i;
568:
569: thick.line)
570:
571: |environment(cs_government;
572: if begin "@\*(GS@yes@",
573: text bold "Government Security Classified",
574: blank.lines -0.1i, thick.line,
575: if end;)
576:
577: |environment(cs_att;
578: if else begin "@\*(AR@no@",
579: text bold "Future AT&T Distribution by ITDS - ",
580: text "Obtain approval for release to any AT&T employee",
581: blank.lines -0.1i, thick.line,
582: if end,
583: if else begin,
584: text bold "Future AT&T Distribution by ITDS - ",
585: text "Release to any AT&T employee (excluding contract employees)",
586: blank.lines -0.1i, thick.line,
587: if end;)
588:
589: |environment(cs_signatures;
590: if else "\nA>1",
591: set string SS "s",
592: if else,
593: clear string SS,
594: text bold "Author Signature",
595: string bold SS, new.line,
596: if "\nA=0",
597: blank.lines 0.4375i,
598: |for i in 0 3 6 [
599: tab.stops 2.635i 5.25i,
600: if "\nA>$i",
601: blank.lines 0.1i,
602: if "\nA=($i+1)",
603: line 2.25i,
604: if begin "\nA=($i+2)",
605: line 2.25i, tab, line 2.25i,
606: if end,
607: if begin "\nA>($i+2)",
608: line 2.25i, tab, line 2.25i, tab, line 2.25i,
609: if end,
610: new.line,
611: if begin "\nA>$i",
612: tab.stops 0.25i 2.875i 5.5i,
613: set i $i+1,
614: set j $i+2,
615: set k $i+3,
616: tab, string A\ni,
617: tab, string A\nj,
618: tab, string A\nk,
619: if end,
620: ]
621: ;
622:
623: blank.lines -0.1i, thick.line)
624:
625: |environment(cs_proprietary;
626: if begin "@\*(PC@yes@",
627: text bold "Organizational Approval ",
628: size -1, text "(Department Head approval required)", size +1,
629: if begin "@\*(DH\*(DN@@",
630: tab.stops .5i 4i,
631: blank.lines 0.1i,
632: tab, tab, line 3i,
633: new.line, tab.stops 7iR,
634: tab, text "Department Head",
635: blank.lines -0.1i, thick.line,
636: if end,
637: if end,
638: if begin "!@\*(DH\*(DN@@",
639: if begin "!@\*(PC@yes@",
640: text bold "Organizational Approval ",
641: size -1, text "(Optional)", size +1,
642: if end,
643: tab.stops .5i 4i,
644: blank.lines 0.1i,
645: if else begin "!@\*(DH@@",
646: if else begin "!@\*(DN@@",
647: tab, line 3i, tab, line 3i,
648: if end,
649: if else begin,
650: tab, tab, line 3i,
651: if end,
652: if end,
653: if else begin,
654: tab, tab, line 3i,
655: if end,
656: new.line, tab.stops .8i 4.3i,
657: if else begin "!@\*(DH@@",
658: if else begin "!@\*(DN@@",
659: tab,
660: string DH, text ", Department Head",
661: tab,
662: string DN, text ", Director",
663: if end,
664: if else begin,
665: tab, tab,
666: string DH, text ", Department Head",
667: if end,
668: if end,
669: if else begin,
670: tab, tab,
671: string DN, text ", Director",
672: if end,
673: blank.lines -0.1i, thick.line,
674: if end;)
675:
676: |environment(cs_earlier;
677: if begin "!@\*(EN@@",
678: text bold
679: "Supersedes or amends document number ",
680: string EN,
681: new.line, blank.lines -0.1i, thick.line,
682: if end;)
683:
684: |environment(cs_footer_page2;
685: text bold "For Use by Recipient of Cover Sheet:",
686: new.line, remember P0, size -3, space -4,
687: blank.lines -.1i, line.length 3.5i, indent .1i, indent.line -.1i,
688: text "Computing network users may order copies via the ",
689: text italics "library -k ", text "command;",
690: new.line, text "for information, type ",
691: text italics "man library ", text "after the ",
692: size -1, text "UNIX", size +1, text " prompt.",
693: new.line, blank.lines 0.05i, indent.line -.1i,
694: text "Otherwise:",
695: new.line,
696: text "Enter ", size -1, text "PAN", size +1, text " if ",
697: size -1, text "AT&T-BL (SS#", size +1, text " if non ",
698: size -1, text "AT&T-BL.) ", size +1, line 1.2i,
699: new.line, text "Return this sheet to any ",
700: size -1, text "ITDS", size +1, text " location.",
701: new.line, return P0, line.length 8.0i, indent 4i,
702: text "\ Internal Technical Document Service",
703: blank.lines, tab.stops 1i 2i 3i,
704: text "( ) AK 2H-28", tab, text "( ) IH 7M-103", tab,
705: text "( ) DR 2F-19", tab, text "( ) NW-ITDS", new.line,
706: text "( ) ALC 1B-102", tab, text "( ) MV 3L-19", tab,
707: text "( ) INH 1C-114", tab, text "( ) PR 5-2120", new.line,
708: text "( ) CB 30-2011", tab, text "( ) WH 3E-204", tab,
709: text "( ) IW 2Z-156", new.line,
710: text "( ) HO 4F-112", tab, tab, text "( ) MT 3B-117", new.line,
711: line.length 7.5i;
712:
713: indent 0, SPACE)
714:
715: |environment(cs_abstract_continuation;
716: if begin "\n(MA>0",
717: new.page, spacing on, goto 0.2i,
718:
719: horizontal.motion 5.2i, string bold S1,
720: new.line, blank.lines -0.1i, thick.line,
721:
722: new.line, text bold "Title:",
723: horizontal.motion 0.375i, macro TI,
724: new.line, blank.lines -0.1i, thick.line,
725:
726: center on, text bold "Abstract (continued)", new.line, center off,
727: fill off, macro AS, fill on,
728: blank.lines -0.1i, thick.line,
729: if end;)
730:
731: |environment(cs_distribution_continuation;
732: store T MM,
733: store totrap P0,
734: if "\n(MS>\nT",
735: store T MS,
736:
737: if begin "\nT>0",
738: if begin "\nT>=\n(P0",
739: new.page, spacing on, goto 0.2i,
740:
741: horizontal.motion 5.2i, string bold S1,
742: new.line, blank.lines -0.1i, thick.line,
743:
744: new.line, text bold "Title:",
745: horizontal.motion 0.375i, macro TI,
746: new.line, blank.lines -0.1i, thick.line,
747: if end,
748: new.line,
749:
750: remember P0,
751: if begin "\n(MM>0",
752: horizontal.motion 1.25i,
753: text bold "Complete Copy (continued)", new.line,
754: fill off, macro CM, fill on,
755: if begin "\n(MM>\n(MS",
756: blank.lines -0.1i, thick.line,
757: if end,
758: if end,
759:
760: if begin "\n(MS>0",
761: return P0, horizontal.motion 4.5i,
762: text bold "Cover Sheet Only (continued)", new.line,
763: fill off, macro CS, fill on,
764: if begin "\n(MS>=\n(MM",
765: blank.lines -0.1i, thick.line,
766: if end,
767: if end,
768: if end,
769: new.line;)
770:
771:
772: |environment(cs_heading_page1;
773: spacing on, goto 0.2i, inline off, size 16, space 18, font bold,
774: title "AT&T Bell Laboratories" " " "Document Cover Sheet",
775: title " " " " "for Internal Memorandum";
776:
777: thick.line)
778:
779: |environment(signature;
780: here on, minimum.lines 1, indent +30, line.length +3i,
781: |for i in 1 2 3 4 5 6 7 8 9 [
782: if begin "\nA>=$i",
783: blank.lines 3,
784: string bold A$i,
785: if end,
786: ]
787: line.length -3i, indent -30, blank.lines -1;
788:
789: minimum.lines 3)
790: |comment<summary: signature (signatures and typing credits)>
791:
792: |environment(:document;
793: clear A D M
794: OC TP OM,
795: clear string GS PC;)
796:
797: |environment(:document_save;
798: ;)
799:
800: |environment(:document_restore;
801: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.