Return to research CVS log

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

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

1.1     ! root        1: |associate(department;;;
        !             2: [name $;
        !             3: set string N0 $;]
        !             4: [number $;
        !             5: set string N1 $;])
        !             6: |associate(date;;;
        !             7: [report $;
        !             8: set string DT $;]
        !             9: [range $;
        !            10: set string N2 $;])
        !            11: |associate(author;;;
        !            12: [name $;
        !            13: set string N3 $;]
        !            14: [number $;
        !            15: set string N4 $;])
        !            16: |environment(titlebox;
        !            17: font bold, line.length +.5i, page.offset -.25i,
        !            18: spacing on, goto .5i, blank.lines -1,
        !            19: set string Ts "`Research Report`Department ",
        !            20: add string.from.string Ts N1,
        !            21: add string Ts "`",
        !            22: add string.from.string Ts DT,
        !            23: add string Ts "`",
        !            24: title Ts,
        !            25: blank.lines .5,
        !            26: set string Ts "`",
        !            27: add string.from.string Ts N2,
        !            28: add string Ts "`",
        !            29: add string.from.string Ts N0,
        !            30: add string Ts "`\s-1WPN\s+1 ",
        !            31: add string.from.string Ts N4,
        !            32: add string Ts "`",
        !            33: title Ts,
        !            34: page.offset +.25i, line.length -.5i, minimum.lines 1;)
        !            35: |associate(paragraph;
        !            36: minimum.lines .5, clear string Ts;;
        !            37: [indented;
        !            38: indent.line 3;]
        !            39: [i;
        !            40: indent.line 3;])
        !            41: |associate(p;
        !            42: minimum.lines .5, clear string Ts;;
        !            43: [indented;
        !            44: indent.line 3;]
        !            45: [i;
        !            46: indent.line 3;])
        !            47: |environment(section;
        !            48: minimum.lines .5, protect, font bold;
        !            49: paragraph)
        !            50: |environment(signature;
        !            51: minimum.lines 3,
        !            52: remember P0,
        !            53: indent.line .3125i,
        !            54: text "AT&T \(em PROPRIETARY", new.line,
        !            55: text "Use pursuant to Company Instructions", new.line,
        !            56: return P0,
        !            57: indent 3i, blank.lines 1,
        !            58: tab.stops 1.5iC, fill off, tab, string N3, tab;)
        !            59: |environment(:document;
        !            60: page.offset +.25i;)
        !            61: |environment(:document_save;
        !            62: ;)
        !            63: |environment(:document_restore;
        !            64: ;)

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