RosettaCodeData/Task/Higher-order-functions/FutureBasic/higher-order-functions.futurebasic
2016-12-05 23:44:36 +01:00

10 lines
263 B
Text

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 )