RosettaCodeData/Task/Call-a-function/Yabasic/call-a-function.basic

19 lines
343 B
Plaintext

sub test(a, b, c) : print a, b, c : end sub
test(1, 2, 3) // show 1 2 3
test(1, 2) // show 1 2 0
execute("test", 1, 2, 3) // show 1 2 3
sub test$(a$) // show all members of a "list"
local n, i, t$(1)
n = token(a$, t$(), ", ")
for i = 1 to n
print t$(i), " ";
next
end sub
test$("1, 2, 3, 4, text, 6, 7, 8, \"include text\"")
print