DISPLAY 1,2,3,5,8....13 TERM

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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