4.3BSD - /usr/src/ucb/pascal/pdx/test/enum.p

   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.