Return to reset_def CVS log

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

Annotation of researchv10dc/vol2/monk/osamples/reset_def, revision 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.