Return to tc.m CVS log

Up to [Research Unix] / researchv10no / cmd / monk / db

researchv10 Norman

|include(macro.h)

|include(titlebox.h)
|include(titlebox.m)

|environment(titlebox;
	;

	new.page, indent.line +4.375i, string att_logo,
	blank.lines 2, size -2, remember position0,
	page.offset -.5i, text "subject:", new.line,
	return position0, indent +4.875i, text "date:", blank.lines,
	text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
	line.length -3i, font bold, return position0, fill off,
	macro title_string, fill on, line.length +3i, new.line,
	size -1,
|for i in 1 2 3 4 5 6 7 8 9 [
	if begin GE(document_counter, $i),
		new.line, text "Work Program ", string work_program_array[$i],
		text " File Case ", string file_case_array[$i],
	if end,
]
	size +1,
	return position0, indent +4.75i, line.length +3i,
	string date_string,
|for i in 1 2 3 4 5 6 7 8 9 [
	if begin GE(author_counter, $i),
		blank.lines,
		string author_array[$i], new.line,
		string location_array[$i], text " ",
		string department_array[$i], new.line,
		string room_array[$i], text " ",
		string extension_array[$i],
	if end,
]
	line.length -3i, spacing on, blank.lines, fill off,
	string document_array[1], fill on, indent -4.75i, blank.lines 3,
	center on, font roman, text italics "TECHNICAL CORRESPONDENCE",
	center off, minimum.lines 2)
	|comment<summary: titlebox (produce title box here)>

|include(envir.h)

|include(preproc.h)

|include(coversheet.h)
|include(coversheet.m)

|environment(cs_heading_page1;
	spacing on, goto 0.2i, inline off, size 16, space 18, font bold,
	title "AT&T Bell Laboratories" " " "Document Cover Sheet",
	title " " " " "for Technical Correspondence";

	thick.line)

|environment(signature;
	here on, minimum.lines 1, indent +30, line.length +3i,
|for i in 1 2 3 4 5 6 7 8 9 [
	if begin GE(author_counter, $i),
		blank.lines 3,
		string bold author_array[$i],
	if end,
]
	line.length -3i, indent -30, blank.lines -1;

	minimum.lines 3)
	|comment<summary: signature (signatures and typing credits)>

|environment(:document;
	clear author_counter document_counter mercury_counter
		other_counter text_counter other_marker,
	clear string government_string proprietary_string;)

|environment(:document_save;
	;)

|environment(:document_restore;
	;)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.