Return to memo.m CVS log

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

Annotation of researchv10no/cmd/monk/db/memo.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,
        !            38:        minimum.lines, inline off, font roman, inline on)
        !            39:        |comment<summary: titlebox (produce title box here)>
        !            40: 
        !            41: |environment(signature;
        !            42:        here on, minimum.lines 1, indent +30, line.length +3i,
        !            43: |for i in 1 2 3 4 5 6 7 8 9 [
        !            44:        if begin GE(author_counter, $i),
        !            45:                blank.lines 3,
        !            46:                string bold author_array[$i],
        !            47:        if end,
        !            48: ]
        !            49:        line.length -3i, indent -30, blank.lines -1;
        !            50: 
        !            51:        minimum.lines 3)
        !            52:        |comment<summary: signature (signatures and typing credits)>
        !            53: 
        !            54: |environment(:document;
        !            55:        clear author_counter document_counter;)
        !            56: 
        !            57: |environment(:document_save;
        !            58:        ;)
        !            59: 
        !            60: |environment(:document_restore;
        !            61:        ;)

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