Initial data commit

Task/Fibonacci-sequence/Commodore-BASIC/fibonacci-sequence.basic

@@ -0,0 +1,16 @@
+100 PRINT CHR$(147); CHR$(18); "****      FIBONACCI GENERATOR       ****"
+110 INPUT "MIN, MAX"; N1, N2
+120 IF N1 > N2 THEN T = N1: N1 = N2: N2 = T
+130 A = 0: B = 1: S = SGN(N1)
+140 FOR I = S TO N1 STEP S
+150 : IF S > 0 THEN T = A + B: A = B: B = T
+160 : IF S < 0 THEN T = B - A: B = A: A = T
+170 NEXT I
+180 PRINT
+190 PRINT STR$(A); : REM STR$() PREVENTS TRAILING SPACE
+200 IF N2 = N1 THEN 250
+210 FOR I = N1 + 1 TO N2
+220 : T = A + B: A = B: B = T
+230 : PRINT ","; STR$(A);
+240 NEXT I
+250 PRINT