RosettaCodeData/Task/Variadic-function/BASIC/variadic-function.basic
2023-07-01 13:44:08 -04:00

12 lines
260 B
Text

SUB printAll cdecl (count As Integer, ... )
DIM arg AS Any Ptr
DIM i AS Integer
arg = va_first()
FOR i = 1 To count
PRINT va_arg(arg, Double)
arg = va_next(arg, Double)
NEXT i
END SUB
printAll 3, 3.1415, 1.4142, 2.71828