Program to Print the Fibonacci Series 1, 1, 2, 3, 5, 8 ... up to 10th term

Using FOR...NEXT

CLS
x = 1
y = 1
PRINT x; y;
FOR i = 1 TO 10
     z = x + y
     PRINT z;
     x = y
     y = z
NEXT i
END

Using WHILE...WEND

CLS
x = 1
y = 1
i = 1
PRINT x; y;
WHILE i <= 10
     z = x + y
     PRINT z;
     x = y
     y = z
     i = i + 1
WEND
END

Using DO...LOOP

CLS
x = 1
y = 1
i = 1
PRINT x; y;
DO WHILE i <= 10
     z = x + y
     PRINT z;
     x = y
     y = z
     i = i + 1
LOOP
END