Return to const.p CVS log

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

Annotation of 43BSDTahoe/ucb/dbx/tests/pc/const.p, revision 1.1

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

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