RosettaCodeData/Task/Variadic-function/BASIC/variadic-function.basic

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