|
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
|