xref: /csrg-svn/old/dbx/tests/pc/sets.p (revision 44182) 
1*44182Sbosticprogram sets (input, output);
2*44182Sbostictype
3*44182Sbostic    Color = (RED, BLUE, GREEN);
4*44182Sbostic    ColorSet = set of Color;
5*44182Sbosticvar
6*44182Sbostic    s : ColorSet;
7*44182Sbostic
8*44182Sbosticprocedure p (var s : ColorSet);
9*44182Sbosticbegin
10*44182Sbostic    s := [RED, BLUE];
11*44182Sbosticend;
12*44182Sbostic
13*44182Sbosticbegin
14*44182Sbostic    p(s);
15*44182Sbostic    if BLUE in s then begin
16*44182Sbostic	s := s - [BLUE];
17*44182Sbostic    end;
18*44182Sbosticend.
19