From 4266a45379d8f9ad1ac5080235119ab8ee7869b1 Mon Sep 17 00:00:00 2001
From: Julian Blake Kongslie
Date: Sat, 5 Nov 2022 13:18:01 -0700
Subject: Add a focal69 version of fib as an evt

---
 evts/focal-fib.evt | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 evts/focal-fib.evt

(limited to 'evts')

diff --git a/evts/focal-fib.evt b/evts/focal-fib.evt
new file mode 100644
index 0000000..6368abe
--- /dev/null
+++ b/evts/focal-fib.evt
@@ -0,0 +1,29 @@
++1000
+$1.1 SET X0=0
+TT_BITS=0x0D01/0xFF01
++1000
+$1.2 SET X1=1
+TT_BITS=0x0D01/0xFF01
++1000
+$1.3 FOR X=1,100; DO 2
+TT_BITS=0x0D01/0xFF01
++1000
+$2.1 TYPE X0,!
+TT_BITS=0x0D01/0xFF01
++1000
+$2.2 SET X2=X0+X1
+TT_BITS=0x0D01/0xFF01
++1000
+$2.3 SET X0=X1
+TT_BITS=0x0D01/0xFF01
++1000
+$2.4 SET X1=X2
+TT_BITS=0x0D01/0xFF01
++1000
+$2.5 RETURN
+TT_BITS=0x0D01/0xFF01
++1000
+$GO 1.1
+TT_BITS=0x0D01/0xFF01
++2000000
+HALTED=1
-- 
cgit v1.2.3