home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPASBOOK.ZIP / INTSWAP.SRC < prev    next >
Encoding:
Text File  |  1985-06-09  |  112 b   |  10 lines
  1. PROCEDURE INT_SWAP(VAR RR,SS : KEYREC);
  2.  
  3. VAR T : KEYREC;
  4.  
  5. BEGIN
  6.   T := RR;
  7.   RR := SS;
  8.   SS := T
  9. END;
  10.