Google
 
Trailing-Edge - PDP-10 Archives - BB-P557A-BM_1983 - uetp/lib/pas4b.pas
There are no other files named pas4b.pas in the archive.
(*LANG:<KOHLBRENNER.TST>PAS4B.PAS.2 19-Aug-81 09:15:29, Edit by KOHLBRENNER *)
(* COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *)
program pasrm2(output,ft);
var
	ft:text;
	int,in_int:integer;

begin
    open(ft,'pas4.dat',old);
    reset(ft);
    for int := 1 to 200 do
      begin
	readln(ft,in_int);
	if int <> in_int then writeln(output,'?? error in input value',in_int);
      end;
    close(ft);
end.