diff options
Diffstat (limited to '')
| -rw-r--r-- | mem/fib.focal | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mem/fib.focal b/mem/fib.focal new file mode 100644 index 0000000..9ea6d07 --- /dev/null +++ b/mem/fib.focal | |||
| @@ -0,0 +1,9 @@ | |||
| 1 | 1.1 SET X0=0 | ||
| 2 | 1.2 SET X1=1 | ||
| 3 | 1.3 FOR X=1,100; DO 2 | ||
| 4 | 2.1 TYPE X0,! | ||
| 5 | 2.2 SET X2=X0+X1 | ||
| 6 | 2.3 SET X0=X1 | ||
| 7 | 2.4 SET X1=X2 | ||
| 8 | 2.5 RETURN | ||
| 9 | GO 1.1 | ||
