100 LET X=77444:LET Y=-12:LET Z=0
110 PRINT X;Y;Z
120 CALL SHORT(X,Y,Z)
130 PRINT X;Y;Z
140 DEF SHORT(REF A,REF B,REF C)
150   IF A>B THEN LET T=A:LET A=B:LET B=T
160   IF B>C THEN LET T=B:LET B=C:LET C=T
170   IF A>B THEN LET T=A:LET A=B:LET B=T
180 END DEF