RosettaCodeData/Task/Generic-swap/ALGOL-68/generic-swap.alg
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

13 lines
227 B
Text

MODE GENMODE = STRING;
GENMODE v1:="Francis Gary Powers", v2:="Vilyam Fisher";
PRIO =:= = 1;
OP =:= = (REF GENMODE v1, v2)VOID: (
GENMODE tmp:=v1; v1:=v2; v2:=tmp
);
v1 =:= v2;
print(("v1: ",v1, ", v2: ", v2, new line))