Return to hugereal.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

BSD 4.3tahoe

program hugereal(input,output);
    var
	r : real;
	errno : integer;
    begin
	writeln('errno = ', errno);
	write('gimme a real ');
	readln(r);
	writeln('that was a really satisfying',r);
	writeln('errno = ', errno);
    end.

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