Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Fibonacci-sequence/DIBOL-11/fibonacci-sequence.dibol-11
+++ b/Task/Fibonacci-sequence/DIBOL-11/fibonacci-sequence.dibol-11
@ -0,0 +1,38 @@
+      START    ;First 10 Fibonacci NUmbers
+
+
+      RECORD
+              FIB1,    D10,   0
+              FIB2,    D10,   1
+              FIBNEW,  D10
+              LOOPCNT, D2,    1
+
+       RECORD HEADER
+,            A32, "First 10 Fibonacci Numbers."
+
+       RECORD OUTPUT
+             LOOPOUT, A2
+,         A3, " : "
+              FIBOUT, A10
+
+      PROC
+
+      OPEN(8,O,'TT:')
+
+      WRITES(8,HEADER)
+
+     LOOP,
+             FIBNEW = FIB1 + FIB2
+             LOOPOUT = LOOPCNT, 'ZX'
+             FIBOUT = FIBNEW, 'ZZZZZZZZZX'
+
+             WRITES(8,OUTPUT)
+
+             FIB1 = FIB2
+             FIB2 = FIBNEW
+
+             LOOPCNT = LOOPCNT + 1
+             IF LOOPCNT .LE. 10 GOTO LOOP
+
+             CLOSE 8
+             END