4.3BSD - /usr/src/ucb/pascal/pdx/test/case.p

   1: program casetest(input, output);
   2: var c : char;
   3:     s : 0..1000;
   4:     i : integer;
   5: begin
   6:     c := 'a';
   7:     case c of
   8:         'b': writeln('b');
   9:         'c': writeln('c');
  10:         'a': writeln('a');
  11:     end;
  12:     s := 3;
  13:     case s of
  14:         5: writeln('5');
  15:         3: writeln('3');
  16:         7: writeln('7');
  17:     end;
  18:     i := 1001;
  19:     case i of
  20:         0: writeln('0');
  21:         -1: writeln('-1');
  22:         1001: writeln('1001');
  23:         -1001: writeln('-1001');
  24:     end;
  25: end.