Parse a csv to an array

REM We could use a goto command to make it similar to a function but a function itself isn't possible
REM JustBasic doesn't accept arrays as return values
    row$ = "3,5,6"
    n = 3

   dim value$(n)

        for i = 0 to n-1
            if instr(row$, ",") <> 0 then
                comma = instr(row$, ",")
                value$(i) = left$(row$, comma - 1)
                row$ = right$(row$, len(row$) - comma)
            else
                value$(i) = row$
            end if
                values(i) = VAL(value$(i))
          next i


    for m = 0 to n-1
        print values(m)
    next m