' Subroutine parameter test
Dim As FLOAT x,y  '!!!!!!! FLOAT

X = 5 : Print "x = "; : Print x
y = 4 : Print "y = "; : Print y

Swap x, y

Print : Print "now:"

Print "x = "; : Print x
Print "y = "; : Print y

Xch x, y

Print : Print "return them:"

Print "x = "; : Print x
Print "y = "; : Print y

Sub Swap a As integer, b As integer    '!!!!! INTEGER
 Local t
 t = a
a = b
 b = t
End Sub

Sub Xch a As integer, b As integer, t As integer
 t = a
 a = b
 b = t
End Sub

RUN
x =  5
y =  4

now:
x =  5
y =  4

return them:
x =  5
y =  4
>