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

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.