Return to scaltst.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

{$s+}
program test(output);

var
e :(red, pink, green, orange);
i :integer;
j :boolean;

begin
i := 1;
writeln(i:6:2);
e := pink;
writeln(e);
writeln(orange);
j := TRUE;
writeln(false);
writeln(j);
end.

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