Fibonacci sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,429: / Line 1,429: @@
 ==={{header|Commodore BASIC}}===
+<lang basic>100 PRINT CHR$(147); CHR$(18); "****      FIBONACCI GENERATOR       ****"
-<lang basic>10 INPUT "ENTER VALUE OF N"; N
-N1 = 0 : N2 = 1
+INPUT "MIN, MAX"; N1, N2
+IF N1 > N2 THEN T=N1: N1=N2: N2=T
-FOR K=1 TO N
-SUM = N1+N2
+A=0: B=1: S=SGN(N1)
-N1 = N2
+FOR I = S TO N1 STEP S
+: IF S > 0 THEN T=A+B: A=B: B=T
-N2 = SUM
+: IF S < 0 THEN T=B-A: B=A: A=T
-NEXT K
+NEXT I
-PRINT N1</lang>
+PRINT
+PRINT STR$(A); : REM STR$() PREVENTS TRAILING SPACE
+IF N2 = N1 THEN 250
+FOR I=N1+1 TO N2
+: T=A+B: A=B: B=T
+: PRINT ","STR$(A);
+NEXT I
+PRINT</lang>
+{{Out}}
+<pre>****      FIBONACCI GENERATOR       ****
+MIN, MAX? -6,6
+-8, 5,-3, 2,-1, 1, 0, 1, 1, 2, 3, 5, 8
+READY.</pre>
 ==={{header|Integer BASIC}}===