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     ! 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.