1 REM THIS PROGRAM APPEARS AT PAGE 70 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10  REM GENERATION OF FIBONACCI NUMBERS AND SEARCH FOR PRIMES
20  PRINT "N=";
30  INPUT N
40  PRINT
50  PRINT "GENERATION OF FIBONACCI NUMBERS AND SEARCH FOR PRIMES"
60  PRINT
70  LET F1=1
80  LET F2=1
90  PRINT "I=";1,"F=";1;" (PRIME)"
100 PRINT "I=";2,"F=";1;" (PRIME)"
110 FOR I=3 TO N	'(GENERATE FIBONACCI NUMBER)
120 	LET F=F1+F2
130	FOR J=2 TO F-1	'(TEST FOR A PRIME NUMBER)
140		LET Q=F/J
150		LET Q1=INT(Q)
160		IF Q=Q1 THEN 200
170	NEXT J
180 	PRINT "I=";I,"F=";F;" (PRIME)"
190 	GOTO 210
200 	PRINT "I=";I,"F=";F
210 	LET F2=F1
220 	LET F1=F
230 NEXT I
240 END
