16 lines
281 B
Text
16 lines
281 B
Text
' Variadic functions
|
|
OPTION BASE 1
|
|
SUB demo (VAR arg$ SIZE argc)
|
|
LOCAL x
|
|
PRINT "Amount of incoming arguments: ", argc
|
|
FOR x = 1 TO argc
|
|
PRINT arg$[x]
|
|
NEXT
|
|
END SUB
|
|
|
|
' No argument
|
|
demo(0)
|
|
' One argument
|
|
demo("abc")
|
|
' Three arguments
|
|
demo("123", "456", "789")
|