begin   
comment exception ENDFILE;
  string(5) s;
  xcplimit(endfile) := 3;
  xcpmark(endfile) := false;
  xcpmsg(endfile) := "Expected more lines on the input.";
  for i := 1 until 10 do
     begin
         readcard(s);
         write("""", s, """")        
     end;
  write("You shouldn't see this.")   
end.