include "NSLog.incl"

void local fn Example( value as long )
  NSLog(@"Example %ld",value)
end fn

void local fn DoIt( fnAddress as ptr, count as long )
  def fn Repeat( j as long ) using fnAddress

  long i
  for i = 1 to count
    fn Repeat( i )
  next
end fn

fn DoIt( @fn Example, 3 )

HandleEvents