Qbasic to display 1, 1, 2, 3, 5, 8.. upto 10th term using Sub

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES ( )
A = 1
B = 1
FOR I = 1 TO 5
PRINT AA
PRINT B
A = A +B
B = A + B
NEXT I
END SUB