DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

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