home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / FIB.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  784 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    F1=1: F2=2      REM    INITIALIZE
  22.     NUM=F1
  23.   
  24. REM   FIRST TWO ARE SPECIAL
  25.     FOR J=1 TO 2
  26.     GOSUB 400
  27.     IF N EQ 0 THEN RETURN
  28.     NEXT J
  29.   
  30. REM    REMAINING NUMBERS
  31. FOR J=1 TO 1 STEP 0 
  32.     NUM=F1+F2
  33.     GOSUB 400
  34.     F2=F1
  35.     F1=NUM
  36.     IF N EQ 0 THEN RETURN
  37. NEXT J
  38. RETURN
  39.   
  40. 400    REM SUB TO PRINT NEXT NO. AND DECREMENT N
  41.         PRINT NUM,   REM  5 TO A LINE
  42.         N=N-1
  43.         RETURN
  44.  
  45.