Return to rdwt.p CVS log

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

BSD 4.3reno

program test(input, output, testfile);
var
   testfile:  text;
   i, j, repetitions:  integer;
begin
   rewrite(testfile);
   write(output, 'Number: ');
   readln(repetitions);
   for i:=1 to repetitions do
      writeln(testfile, i);
   reset(testfile);
   for i:=1 to repetitions do begin
      read(testfile, j);
      if j <> i then
	 writeln('read/write error');
      end;
   readln(testfile);
   if not eof(testfile) then
      writeln('eof not reached');
   remove('testfile');
end.

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