Return to expr.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

BSD 4.3reno

program x(output);
var
	a: set of char;
	b: Boolean;
	c: (red, green, blue);
	p: ^ integer;
	A: alfa;
	B: packed array [1..5] of char;
begin
	b := true;
	c := red;
	new(p);
	a := [];
	A := 'Hello, yellow';
	b := a and b;
	a := a * 3;
	if input < 2 then writeln('boo');
	if p <= 2 then writeln('sure nuff');
	if A = B then writeln('same');
	if c = true then writeln('hue''s and color''s')
end.

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