Return to enum.p CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / test

BSD 4.2

program enum(input, output);
const	BLAH = 3;
type	Color = (RED, GREEN, BLUE);
	String = array[1..5] of char;
var	i : (red, green, blue);
	s : array[Color] of String;
	c : char;
begin
	i := blue;
	c := 'a';
	s[RED] := 'red';
	writeln('test of enumerated types');
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.