path: root/mem/fib.focal

1.1 SET X0=0
1.2 SET X1=1
1.3 FOR X=1,100; DO 2
2.1 TYPE X0,!
2.2 SET X2=X0+X1
2.3 SET X0=X1
2.4 SET X1=X2
2.5 RETURN
GO 1.1