Return to const.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

Annotation of 43BSD/ucb/dbx/tests/mod/const.mod, revision 1.1

1.1     ! root        1: module main;
        !             2: const
        !             3:     PI = 3.14159;
        !             4:     N = 10;
        !             5:     MESSAGE = "this is a test";
        !             6:     CH = 'x';
        !             7:     S = {1, 3, 5};
        !             8:     B = true;
        !             9: type
        !            10:     Color = (RED, BLUE, GREEN);
        !            11: procedure p ();
        !            12: const
        !            13:     R = RED;
        !            14: type
        !            15:     T = integer;
        !            16: var i : integer;
        !            17: begin
        !            18: end p;
        !            19: 
        !            20: begin
        !            21: end main.

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