home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
surfmodl
/
surfm203.arc
/
SURFSRC.ARC
/
SWAPS.INC
< prev
next >
Wrap
Text File
|
1987-12-21
|
355b
|
18 lines
procedure SWAPINT (var I1, I2: integer);
{ Swap the two variables I1 and I2 }
var Temp: integer;
begin
Temp := I1;
I1 := I2;
I2 := Temp;
end; { procedure SWAPINT }
procedure SWAPREAL (var R1, R2: real);
{ Swap the two variables R1 and R2 }
var Temp: real;
begin
Temp := R1;
R1 := R2;
R2 := Temp;
end; { procedure SWAPREAL }