1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)enum.p 5.1 (Berkeley) 04/16/91 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