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