home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / surfmodl / surfm203.arc / SURFSRC.ARC / SWAPS.INC < prev    next >
Encoding:
Text File  |  1987-12-22  |  355 b   |  18 lines
  1. procedure SWAPINT (var I1, I2: integer);
  2. { Swap the two variables I1 and I2 }
  3. var Temp: integer;
  4. begin
  5.   Temp := I1;
  6.   I1 := I2;
  7.   I2 := Temp;
  8. end; { procedure SWAPINT }
  9.  
  10. procedure SWAPREAL (var R1, R2: real);
  11. { Swap the two variables R1 and R2 }
  12. var Temp: real;
  13. begin
  14.   Temp := R1;
  15.   R1 := R2;
  16.   R2 := Temp;
  17. end; { procedure SWAPREAL }
  18.