Return to sets.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / dbx / tests / pc

Initial revision

program sets (input, output);
type
    Color = (RED, BLUE, GREEN);
    ColorSet = set of Color;
var
    s : ColorSet;

procedure p (var s : ColorSet);
begin
    s := [RED, BLUE];
end;

begin
    p(s);
    if BLUE in s then begin
	s := s - [BLUE];
    end;
end.

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