1*48075Sbostic(* 2*48075Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48075Sbostic * All rights reserved. 4*48075Sbostic * 5*48075Sbostic * %sccs.include.redist.c% 6*48075Sbostic * 7*48075Sbostic * @(#)enum.p 5.1 (Berkeley) 04/16/91 8*48075Sbostic *) 9*48075Sbostic 10*48075Sbosticprogram enum(input, output); 11*48075Sbosticconst BLAH = 3; 12*48075Sbostictype Color = (RED, GREEN, BLUE); 13*48075Sbostic String = array[1..5] of char; 14*48075Sbosticvar i : (red, green, blue); 15*48075Sbostic s : array[Color] of String; 16*48075Sbostic c : char; 17*48075Sbosticbegin 18*48075Sbostic i := blue; 19*48075Sbostic c := 'a'; 20*48075Sbostic s[RED] := 'red'; 21*48075Sbostic writeln('test of enumerated types'); 22*48075Sbosticend. 23