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

13 lines
262 B
Plaintext

window 1
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 )
HandleEvents