Return to enum.p CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / pascal / pdx / test

Annotation of 43BSD/ucb/pascal/pdx/test/enum.p, revision 1.1

1.1     ! root        1: program enum(input, output);
        !             2: const  BLAH = 3;
        !             3: type   Color = (RED, GREEN, BLUE);
        !             4:        String = array[1..5] of char;
        !             5: var    i : (red, green, blue);
        !             6:        s : array[Color] of String;
        !             7:        c : char;
        !             8: begin
        !             9:        i := blue;
        !            10:        c := 'a';
        !            11:        s[RED] := 'red';
        !            12:        writeln('test of enumerated types');
        !            13: end.

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