148075Sbostic(* 2*62154Sbostic * Copyright (c) 1980, 1993 3*62154Sbostic * The Regents of the University of California. All rights reserved. 448075Sbostic * 548075Sbostic * %sccs.include.redist.c% 648075Sbostic * 7*62154Sbostic * @(#)enum.p 8.1 (Berkeley) 06/06/93 848075Sbostic *) 948075Sbostic 1048075Sbosticprogram enum(input, output); 1148075Sbosticconst BLAH = 3; 1248075Sbostictype Color = (RED, GREEN, BLUE); 1348075Sbostic String = array[1..5] of char; 1448075Sbosticvar i : (red, green, blue); 1548075Sbostic s : array[Color] of String; 1648075Sbostic c : char; 1748075Sbosticbegin 1848075Sbostic i := blue; 1948075Sbostic c := 'a'; 2048075Sbostic s[RED] := 'red'; 2148075Sbostic writeln('test of enumerated types'); 2248075Sbosticend. 23