home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / FIB.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  896 b   |  45 lines
  1. REM        FIBONACCI NUMBERS
  2.   
  3.     PRINT "GET FIRST N FIBONACCI NUMBERS"
  4.   
  5.  
  6.     PRINT "ENTER 0 TO EXIT PROGRAM"
  7.   
  8. FOR I=1 TO 1 STEP 0    REM INDEFINITE LOOP
  9. 100    INPUT "ENTER N"; N
  10.         IF N EQ 0    THEN  \
  11.             PRINT "DONE" : \
  12.             STOP
  13.         IF N LT 0    THEN  \
  14.             PRINT "NEED POSITIVE N" :  \
  15.             GO TO 100:      \
  16.         ELSE GOSUB 300   REM CALCULATE & PRINT
  17. NEXT I
  18.   
  19.   
  20.   
  21. 300    REMARK   SUBROUTINE FOR RESULTS
  22.     F1=1: F2=2      REM    INITIALIZE
  23.     NUM=F1
  24.   
  25. REM   FIRST TWO ARE SPECIAL
  26.     FOR J=1 TO 2
  27.     GOSUB 400
  28.     IF N EQ 0 THEN RETURN
  29.     NEXT J
  30.   
  31. REM    REMAINING NUMBERS
  32. FOR J=1 TO 1 STEP 0 
  33.     NUM=F1+F2
  34.     GOSUB 400
  35.     F2=F1
  36.     F1=NUM
  37.     IF N EQ 0 THEN RETURN
  38. NEXT J
  39. RETURN
  40.   
  41. 400    REM SUB TO PRINT NEXT NO. AND DECREMENT N
  42.         PRINT NUM,   REM  5 TO A LINE
  43.         N=N-1
  44.         RETURN
  45.  
  46.