RosettaCodeData/Task/Higher-order-functions/FutureBasic/higher-order-functions.futu...

11 lines
263 B
Plaintext

include "ConsoleWindow"
dim as pointer functionOneAddress
def fn FunctionOne( x as long, y as long ) as long = (x + y) ^ 2
functionOneAddress = @fn FunctionOne
def fn FunctionTwo( x as long, y as long ) using functionOneAddress
print fn FunctionTwo( 12, 12 )