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

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.