Return to enum.p CVS log

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

Annotation of 42BSD/ucb/pascal/pdx/test/enum.p, revision 1.1.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.