RosettaCodeData/Task/Fibonacci-sequence/QBasic/fibonacci-sequence-3.basic

FUNCTION recFib (n)
    IF (n < 2) THEN
	recFib = n
    ELSE
	recFib = recFib(n - 1) + recFib(n - 2)
    END IF
END FUNCTION