* В следующем примере иллюстрируется различие между передачей
* переменных по значению и передачей по ссылке.

*** Pass memory variable by value ***

CLEAR

SET TALK OFF

WAIT 'Press a key to pass by value' WINDOW

SET UDFPARMS TO VALUE

STORE 1 TO gnX

*** The value of gnX is unchanged ***

@ 2,2 SAY 'UDF value: ' + STR(plusone(gnX))

@ 4,2 SAY 'Value of gnX: ' + STR(gnX)

*** Pass memory variable by reference ***

WAIT 'Press a key to pass by reference' WINDOW

CLEAR

SET UDFPARMS TO REFERENCE

STORE 1 TO gnX

*** The value of gnX is changed ***

@ 2,2 SAY 'UDF value: ' + STR(plusone(gnX))

@ 4,2 SAY 'Value of X: ' + STR(gnX)

SET UDFPARMS TO VALUE

*** This is a UDF that adds one to a number ***

FUNCTION plusone

PARAMETER gnZ

gnZ = gnZ + 1

RETURN gnZ

*** End of UDF ***

* А теперь этот же пример, но переменные передаются по значению и по
* ссылке с помощью использования соответственно скобок и симола @y:

*** Pass memory variable by value ***

CLEAR

SET TALK OFF

WAIT 'Press a key to pass by value' WINDOW

STORE 1 TO gnX

@ 2,2 SAY 'UDF value: ' + STR(plusone((gnX)))

@ 4,2 SAY 'Value of gnX: ' + STR(gnX)

*** Pass memory variable by reference ***

WAIT 'Press a key to pass by reference' WINDOW

CLEAR

STORE 1 TO gnX

@ 2,2 SAY 'UDF value: ' + STR(plusone(@gnX))

@ 4,2 SAY 'Value of gnX: ' + STR(gnX)

*** This is a UDF that adds one to a number ***

FUNCTION plusone

PARAMETER gnZ

gnZ = gnZ + 1

RETURN gnZ

*** End of UDF ***