RosettaCodeData/Task/Factorial/S-BASIC/factorial-2.basic

function factorial(n=real.double)=real.double
    var i, f = real.double
    f = 1
    for i = 1 to n
        f = f * i
    next i
end = f