home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / expr.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  393 b   |  22 lines
  1. program x(output);
  2. var
  3.     a: set of char;
  4.     b: Boolean;
  5.     c: (red, green, blue);
  6.     p: ^ integer;
  7.     A: alfa;
  8.     B: packed array [1..5] of char;
  9. begin
  10.     b := true;
  11.     c := red;
  12.     new(p);
  13.     a := [];
  14.     A := 'Hello, yellow';
  15.     b := a and b;
  16.     a := a * 3;
  17.     if input < 2 then writeln('boo');
  18.     if p <= 2 then writeln('sure nuff');
  19.     if A = B then writeln('same');
  20.     if c = true then writeln('hue''s and color''s')
  21. end.
  22.