const DIS  = 0
const DIS_2 = 1
const DIS_X = 1
const DIS_Y = 2


function distance#(x1,y1,x2,y2,what)
  dim xdif=x2-x1
  dim ydif=y2-y1
  if (what=DIS_X) then
    return xdif
  elseif (what=DIS_Y) then
    return ydif
  elseif (what=DIS_2) then
    return xdif*xdif + ydif*ydif
  else
    return SQR(xdif*xdif + ydif*ydif)
  end if
endfunction

dim x,y,a,b,Xd#,Yd#,d#,d2#

'give them some values
x = 2
y = 4
a = 7
b = 8

'return multiple values like so...
d#  = distance#(x,y,a,b,DIS)
d2# = distance#(x,y,a,b,DIS_2)
Xd# = distance#(x,y,a,b,DIS_X)
Yd# = distance#(x,y,a,b,DIS_Y)

printr "xdif     " + Xd#
printr "ydif     " + yd#
printr "distance " + d#
printr "squared  " + d2#