Return to reset_def CVS log

Up to [Research Unix] / researchv10dc / vol2 / monk / samples

Annotation of researchv10dc/vol2/monk/samples/reset_def, revision 1.1.1.1

1.1       root        1: |environment(reset_author_doc;;clear A D)
                      2: 
                      3: |environment(titlebox;;
                      4: indent.line +4.375i, string LO,
                      5: blank.lines 2, size -2, remember P0,
                      6: page.offset -.5i, text "subject:", new.line,
                      7: return P0, indent +4.875i, text "date:", blank.lines,
                      8: text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
                      9: line.length -3i, font bold, return P0, fill off,
                     10: macro TI, fill on, line.length +3i, new.line,
                     11: size -1,
                     12: |for i in 1 2 3 4 5 6 7 8 9 [
                     13: if begin "\nD>=$i",
                     14: new.line, text "Work Program ", string W$i,
                     15: text " File Case ", string F$i,
                     16: if end,
                     17: ]
                     18: size +1,
                     19: return P0, indent +4.75i, line.length +3i,
                     20: string DT,
                     21: |for i in 1 2 3 4 5 6 7 8 9 [
                     22: if begin "\nA>=$i",
                     23: blank.lines,
                     24: string A$i, new.line,
                     25: string L$i, text " ",
                     26: string D$i, new.line,
                     27: string R$i, text " ",
                     28: string E$i,
                     29: if end,
                     30: ]
                     31: line.length -3i, spacing on, blank.lines, fill off,
                     32: string S1, fill on, indent -4.75i,
                     33: minimum.lines, inline off, font roman, inline on)
                     34: |comment<summary: titlebox (produce title box here)>
                     35: 
                     36: |comment(to put titlebox into a floating display, need to use
                     37:        copy through attributes on linelength, pageoffset, ... -
                     38:        so what should we do for these examples?  Hard wire into
                     39:        top of page?  Have a copytitlebox version?  Position carefully?)
                     40: 
                     41: |comment(titlebox;;
                     42: indent.line +4.375i, string LO,
                     43: blank.lines 2, size -2, remember P0,
                     44: text "\!.tm here is pageoffset = \\n(.o\n",
                     45: text "\!.po -.5i\n", text "subject:", new.line,
                     46: return P0, indent +4.875i, text "date:", blank.lines,
                     47: text "from:", indent -4.875i, new.line, text "\!.po +.5i\n", size +2,
                     48: font bold, return P0, fill off,
                     49: macro TI, fill on, new.line,
                     50: size -1,
                     51: |for i in 1 2 3 4 5 6 7 8 9 [
                     52: if begin "\nD>=$i",
                     53: new.line, text "Work Program ", string W$i,
                     54: text " File Case ", string F$i,
                     55: if end,
                     56: ]
                     57: size +1,
                     58: return P0, indent +4.75i, text "\!.ll +3i\n",
                     59: string DT,
                     60: |for i in 1 2 3 4 5 6 7 8 9 [
                     61: if begin "\nA>=$i",
                     62: blank.lines,
                     63: string A$i, new.line,
                     64: string L$i, text " ",
                     65: string D$i, new.line,
                     66: string R$i, text " ",
                     67: string E$i,
                     68: if end,
                     69: ]
                     70: text "\!.ll -3i\n", spacing on, blank.lines, fill off,
                     71: string S1, fill on, text "\!.ll +3i\n", indent -4.75i,
                     72: minimum.lines, inline off, font roman, inline on,
                     73: text "\!.sp |4i\n")
                     74: |comment<summary: titlebox (produce title box here)>

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