Initial data commit

Task/Fibonacci-sequence/DBL/fibonacci-sequence.dbl

@@ -0,0 +1,35 @@
+;
+;       Fibonacci sequence for DBL version 4 by Dario B.
+;
+        RECORD
+
+FIB1,  D10
+FIB2,  D10
+FIBN,  D10
+
+J,     D5
+A2,    A2
+A5,    A5
+                                PROC
+;----------------------------------------------------------------
+        XCALL FLAGS (0007000000,1)         ;Suppress STOP message
+
+        OPEN (1,O,'TT:')
+        DISPLAY (1,'First 10 Fibonacci Numbers:',10)
+
+        FIB2=1
+
+        FOR J=1 UNTIL 10
+        DO BEGIN
+                FIBN=FIB1+FIB2
+
+                A2=J,'ZX'
+                A5=FIBN,'ZZZZX'
+                DISPLAY (1,A2,' : ',A5,10)
+
+                FIB1=FIB2
+                FIB2=FIBN
+            END
+
+        CLOSE 1
+END