Вычислить сумму последовательности чисел Фибоначчи — QBasic(Бейсик)

CLS
INPUT "A="; A
 
F0 = 1
PRINT F0
F1 = 1
PRINT F1
SUM = 0
DO
F2 = F1 + F0
F0 = F1
F1 = F2
SUM = SUM + F2
PRINT F2
LOOP UNTIL SUM > A
 
PRINT "SUM="; SUM