4.3BSD - /usr/src/ucb/dbx/tests/pc/enum.p

   1: program enumtest (input, output);
   2: type
   3:     Color = (RED, GREEN, BLUE);
   4: 
   5: var c1, c2 : Color;
   6: 
   7: procedure P (c : Color);
   8: begin
   9:     writeln('c = ', ord(c):1);
  10: end;
  11: 
  12: begin
  13:     c1 := BLUE;
  14:     c2 := GREEN;
  15:     P(RED);
  16: end.