Anonymous recursion: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,109: | Line 1,109: | ||
150 SELECT CASE K |
150 SELECT CASE K |
||
160 CASE IS<0 |
160 CASE IS<0 |
||
170 PRINT "Negative parameter to |
170 PRINT "Negative parameter to Fibonacci.":STOP |
||
180 CASE 0 |
180 CASE 0 |
||
190 LET FIB=0 |
190 LET FIB=0 |