RosettaCodeData/Task/Closures-Value-capture/Yabasic/closures-value-capture.basic

dim funcs$(10)

sub power2(i)
    return i * i
end sub

for i = 1 to 10
    funcs$(i) = "power2"
next

for i = 1 to 10
    print execute(funcs$(i), i)
next