QBASIC SERIES : 2,2,4,6,10...466

2,2,4,6,10,16,26,42,68,110,178,288,466

CLS
 A = 2
 B = 2
 FOR I = 1 TO 13
 PRINT A;
 C = A + B
 A = B
 B = C
 NEXT I
 END

USING SUB

DECLARE SUB SERIES()
 CLS
 A = 2
 B = 2
 FOR I = 1 TO 13
 PRINT A;
 C = A + B
 A = B
 B = C
 NEXT I
 END SUB