PROCEDURE INT_SWAP(VAR RR,SS : KEYREC);

VAR T : KEYREC;

BEGIN
  T := RR;
  RR := SS;
  SS := T
END;