20 lines
255 B
Text
20 lines
255 B
Text
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
|