1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)enum.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program enum(input, output); 11const BLAH = 3; 12type Color = (RED, GREEN, BLUE); 13 String = array[1..5] of char; 14var i : (red, green, blue); 15 s : array[Color] of String; 16 c : char; 17begin 18 i := blue; 19 c := 'a'; 20 s[RED] := 'red'; 21 writeln('test of enumerated types'); 22end. 23