Return to research.m CVS log

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

Annotation of researchv10no/cmd/monk/db/research.m, revision 1.1

1.1     ! root        1: |include(global.h)
        !             2: 
        !             3: |include(macro.h)
        !             4: 
        !             5: |STRING(name_string, N0)
        !             6: |STRING(number_string, N1)
        !             7: |STRING(range_string, N2)
        !             8: |STRING(author_string, N3)
        !             9: |STRING(wpn_string, N4)
        !            10: 
        !            11: |REGISTER(position, P0)
        !            12: 
        !            13: |associate(department;;;
        !            14: 
        !            15:        [name $;
        !            16:                set string name_string $;]
        !            17:        [number $;
        !            18:                set string number_string $;])
        !            19:        |comment<summary: department (name, number for title box)>
        !            20: 
        !            21: |associate(date;;;
        !            22: 
        !            23:        [report $;
        !            24:                set string date_string $;]
        !            25:        [range $;
        !            26:                set string range_string $;])
        !            27:        |comment<summary: date (report, range for title box)>
        !            28: 
        !            29: |associate(author;;;
        !            30: 
        !            31:        [name $;
        !            32:                set string author_string $;]
        !            33:        [number $;
        !            34:                set string wpn_string $;])
        !            35:        |comment<summary: author (name, number for footer and title box)>
        !            36: 
        !            37: |environment(titlebox;
        !            38: 
        !            39:        font bold, line.length +.5i, page.offset -.25i,
        !            40:        spacing on, goto .5i, blank.lines -1,
        !            41:        set string temporary_string "`Research Report`Department ",
        !            42:        add string.from.string temporary_string number_string,
        !            43:        add string temporary_string "`",
        !            44:        add string.from.string temporary_string date_string,
        !            45:        add string temporary_string "`",
        !            46:        title temporary_string,
        !            47: 
        !            48:        blank.lines .5,
        !            49:        set string temporary_string "`",
        !            50:        add string.from.string temporary_string range_string,
        !            51:        add string temporary_string "`",
        !            52:        add string.from.string temporary_string name_string,
        !            53:        add string temporary_string "`\s-1WPN\s+1 ",
        !            54:        add string.from.string temporary_string wpn_string,
        !            55:        add string temporary_string "`",
        !            56:        title temporary_string,
        !            57: 
        !            58:        page.offset +.25i, line.length -.5i, minimum.lines 1;)
        !            59:        |comment<summary: titlebox (title box)>
        !            60: 
        !            61: |associate(paragraph;
        !            62:        minimum.lines .5, clear string temporary_string;;
        !            63: 
        !            64:        [indented;
        !            65:                indent.line 3;]
        !            66:        [i;
        !            67:                indent.line 3;])
        !            68:        |comment<summary: paragraph (i, indented)>
        !            69: 
        !            70: |associate(p;
        !            71:        minimum.lines .5, clear string temporary_string;;
        !            72: 
        !            73:        [indented;
        !            74:                indent.line 3;]
        !            75:        [i;
        !            76:                indent.line 3;])
        !            77:        |comment<summary: p (alias for paragraph)>
        !            78: 
        !            79: |environment(section;
        !            80:        minimum.lines .5, protect, font bold;
        !            81: 
        !            82:        paragraph)
        !            83:        |comment<summary: section (section)>
        !            84: 
        !            85: |environment(signature;
        !            86:        minimum.lines 3,
        !            87:        remember position,
        !            88:        indent.line .3125i,
        !            89:        text "AT&T \(em PROPRIETARY", new.line,
        !            90:        text "Use pursuant to Company Instructions", new.line,
        !            91:        return position,
        !            92:        indent 3i, blank.lines 1,
        !            93:        tab.stops 1.5iC, fill off, tab, string author_string, tab;)
        !            94:        |comment<summary: signature (signature)>
        !            95: 
        !            96: |environment(:document;
        !            97:        page.offset +.25i;)
        !            98: 
        !            99: |environment(:document_save;
        !           100:        ;)
        !           101: 
        !           102: |environment(:document_restore;
        !           103:        ;)

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