DISPLAY 1,1,2,3,5,8,....UPTO TEN TERM

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
B=1
FOR I = 1 TO 10
PRINT A;
PRINT B;
A=A+B
B=B+A
NEXT I
END SUB