|
|
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: |environment(date; ! 25: divert.string DT;) ! 26: |comment<summary: date (date of center phone book)> ! 27: ! 28: |environment(titlebox; ! 29: new.line, spacing on, goto .75i, ! 30: indent.line +6.0i, string LO, new.line, ! 31: indent.line +6.5i, string DT, ! 32: goto 9.75i, page.offset 2.625i, line.length 2.625i, center on, ! 33: text "AT&T \(em PROPRIETARY", new.line, ! 34: text "Use pursuant to Company Instructions", new.line, ! 35: center off;) ! 36: |comment<summary: titlebox (title box)> ! 37: ! 38: |environment(laboratory; ! 39: goto .5i; ! 40: size 8, space 8, ! 41: tab.stops "\w'\s-1\f3\&9999\fP\s+1\& 'u +\w'# 'u +\w'Papathomas,T.V. (\f2\&Thomas\fP\&) 'u +\w'maureen 'u", ! 42: line.length 8.5, column on) ! 43: |comment<summary: laboratory (a laboratory)> ! 44: ! 45: |environment(laboratory_title; ! 46: inline off, font bold, size 12, space 14, center on; ! 47: ! 48: minimum.lines .5) ! 49: |comment<summary: laboratory_title (title of laboratory)> ! 50: ! 51: |associate(employee; ! 52: clear string N0 N1 N2 N4 ! 53: N3 N5; ! 54: ! 55: size -1, string bold N2, size +1, tab, ! 56: string N5, tab, ! 57: string N0, text " (", ! 58: string italics N1, text ")", tab, ! 59: string N4, tab, ! 60: size -1, string bold N3, size +1, new.line; ! 61: ! 62: [name $; ! 63: set string N0 $;] ! 64: [nicname $; ! 65: set string N1 $;] ! 66: [phone $; ! 67: set string N2 $;] ! 68: [room $; ! 69: set string N3 $;] ! 70: [email $; ! 71: set string N4 $;] ! 72: [secretary; ! 73: set string N5 "$";] ! 74: [casual; ! 75: set string N5 "*";] ! 76: [consultant; ! 77: set string N5 "%";] ! 78: [contractor; ! 79: set string N5 "{";] ! 80: [intern; ! 81: set string N5 "!";] ! 82: [limited term; ! 83: set string N5 "<";] ! 84: [post doc; ! 85: set string N5 ">";] ! 86: [resident visitor; ! 87: set string N5 "#";] ! 88: [temporary; ! 89: set string N5 "+";] ! 90: [mit coop; ! 91: set string N5 "}";] ! 92: [department 45266; ! 93: set string N5 "\s-1\&@\s+1\&";]) ! 94: |comment<summary: employee (name, nicname, phone, room, email, secretary, casual, consultant, contractor, intern, limited term, post doc, resident visitor, temporary, mit coop,department 45266)> ! 95: ! 96: |environment(department_title; ! 97: inline off, font bold, center on; ! 98: ! 99: minimum.lines .5) ! 100: |comment<summary: department_title (title of department)> ! 101: ! 102: |environment(department; ! 103: here on, minimum.lines 1.5;) ! 104: |comment<summary: department (a department)> ! 105: ! 106: |associate(room; ! 107: clear string N0 N2 N3 N4; ! 108: ! 109: size -1, string bold N2, size +1, tab, tab, ! 110: string N0, tab, ! 111: string N4, tab, ! 112: size -1, string bold N3, size +1, new.line; ! 113: ! 114: [name $; ! 115: set string N0 $;] ! 116: [phone $; ! 117: set string N2 $;] ! 118: [room $; ! 119: set string N3 $;] ! 120: [email $; ! 121: set string N4 $;]) ! 122: |comment<summary: room (name, phone, room, email)> ! 123: ! 124: |environment(:document; ! 125: page.offset 0.0i, ! 126: column 1 2.625i 0.0i, column 2 2.625i 2.6875i, column 3 2.625i 5.3125i, ! 127: tab.stops "\w'\s-1\f3\&9999\fP\s+1\& 'u +\w'# 'u +\w'Flanagan,J.L. (\f2\&Jim\fP\&) 'u +\w'june 'u", ! 128: fill off;) ! 129: ! 130: |environment(:document_save; ! 131: ;) ! 132: ! 133: |environment(:document_restore; ! 134: ;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.