Return to form1.m CVS log

Up to [Research Unix] / researchv10no / cmd / monk / o.db

Annotation of researchv10no/cmd/monk/o.db/form1.m, revision 1.1

1.1     ! root        1: |include(global.h)
        !             2: 
        !             3: |include(macro.h)
        !             4: 
        !             5: |DEFINE_STRING(name_string, N0)
        !             6: |DEFINE_STRING(department_string, N1)
        !             7: 
        !             8: |DEFINE_NUMBER(position, P0)
        !             9: 
        !            10: |environment(name;
        !            11:        divert.string name_string;)
        !            12:        |comment<summary: name (name for titlebox and signature)>
        !            13: 
        !            14: |environment(department;
        !            15:        divert.string department_string;)
        !            16:        |comment<summary: department (department for titlebox)>
        !            17: 
        !            18: |environment(date;
        !            19:        divert.string date_string;)
        !            20:        |comment<summary: date (date for signature)>
        !            21: 
        !            22: |environment(titlebox;
        !            23: 
        !            24:        font bold, spacing on, goto .5i, blank.lines -1,
        !            25:        title "``Employee's Report on Activities and Accomplishments``",
        !            26:        blank.lines .5,
        !            27:        line.length -.5i, page.offset +.25i,
        !            28:        set string temporary_string "`",
        !            29:        add string.from.string temporary_string name_string,
        !            30:        add string temporary_string "``Department ",
        !            31:        add string.from.string temporary_string department_string,
        !            32:        add string temporary_string "`",
        !            33:        title temporary_string;
        !            34: 
        !            35:        page.offset -.25i, line.length +.5i, minimum.lines 1)
        !            36:        |comment<summary: titlebox (title box)>
        !            37: 
        !            38: |associate(p;
        !            39:        minimum.lines .5, clear string temporary_string;;)
        !            40:        |comment<summary: p (paragraph)>
        !            41: 
        !            42: |environment(signature;
        !            43:        minimum.lines 3, indent 3i,
        !            44:        line 3.0i, tab.stops 1.5iC, new.line, tab, string name_string,
        !            45:        text ", ", string date_string, tab;)
        !            46:        |comment<summary: signature (signature)>
        !            47: 
        !            48: |environment(:document;;)
        !            49: 
        !            50: |environment(:document_save;
        !            51:        ;)
        !            52: 
        !            53: |environment(:document_restore;
        !            54:        ;)

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