RosettaCodeData/Task/Multiple-distinct-objects/Yabasic/multiple-distinct-objects.basic

sub test()
	print "Random number: " + str$(ran(100))
end sub

sub repL$(e$, n)
	local i, r$
	
	for i = 1 to n
		r$ = r$ + "," + e$
	next
	return r$
end sub

dim func$(1)

n = token(repL$("test", 5), func$(), ",")

for i = 1 to n
	execute(func$(i))
next i