Return to im.m CVS log

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

Annotation of researchv10no/cmd/monk/db/im.m, revision 1.1.1.1

1.1       root        1: |include(macro.h)
                      2: 
                      3: |include(titlebox.h)
                      4: |include(titlebox.m)
                      5: 
                      6: |environment(titlebox;
                      7:        ;
                      8: 
                      9:        new.page, indent.line +4.375i, string att_logo,
                     10:        blank.lines 2, size -2, remember position0,
                     11:        page.offset -.5i, text "subject:", new.line,
                     12:        return position0, indent +4.875i, text "date:", blank.lines,
                     13:        text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
                     14:        line.length -3i, font bold, return position0, fill off,
                     15:        macro title_string, fill on, line.length +3i, new.line,
                     16:        size -1,
                     17: |for i in 1 2 3 4 5 6 7 8 9 [
                     18:        if begin GE(document_counter, $i),
                     19:                new.line, text "Work Program ", string work_program_array[$i],
                     20:                text " File Case ", string file_case_array[$i],
                     21:        if end,
                     22: ]
                     23:        size +1,
                     24:        return position0, indent +4.75i, line.length +3i,
                     25:        string date_string,
                     26: |for i in 1 2 3 4 5 6 7 8 9 [
                     27:        if begin GE(author_counter, $i),
                     28:                blank.lines,
                     29:                string author_array[$i], new.line,
                     30:                string location_array[$i], text " ",
                     31:                string department_array[$i], new.line,
                     32:                string room_array[$i], text " ",
                     33:                string extension_array[$i],
                     34:        if end,
                     35: ]
                     36:        line.length -3i, spacing on, blank.lines, fill off,
                     37:        string document_array[1], fill on, indent -4.75i, blank.lines 3,
                     38:        center on, font roman, text italics "INTERNAL MEMORANDUM",
                     39:        center off, minimum.lines 2)
                     40:        |comment<summary: titlebox (produce title box here)>
                     41: 
                     42: |include(envir.h)
                     43: 
                     44: |include(preproc.h)
                     45: 
                     46: |include(coversheet.h)
                     47: |include(coversheet.m)
                     48: 
                     49: |environment(cs_heading_page1;
                     50:        spacing on, goto 0.2i, inline off, size 16, space 18, font bold,
                     51:        title "AT&T Bell Laboratories" " " "Document Cover Sheet",
                     52:        title " " " " "for Internal Memorandum";
                     53: 
                     54:        thick.line)
                     55: 
                     56: |environment(signature;
                     57:        here on, minimum.lines 1, indent +30, line.length +3i,
                     58: |for i in 1 2 3 4 5 6 7 8 9 [
                     59:        if begin GE(author_counter, $i),
                     60:                blank.lines 3,
                     61:                string bold author_array[$i],
                     62:        if end,
                     63: ]
                     64:        line.length -3i, indent -30, blank.lines -1;
                     65: 
                     66:        minimum.lines 3)
                     67:        |comment<summary: signature (signatures and typing credits)>
                     68: 
                     69: |environment(:document;
                     70:        clear author_counter document_counter mercury_counter
                     71:                other_counter text_counter other_marker,
                     72:        clear string government_string proprietary_string;)
                     73: 
                     74: |environment(:document_save;
                     75:        ;)
                     76: 
                     77: |environment(:document_restore;
                     78:        ;)

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