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