10 REM		FIBONACCI NUMBERS
20 	PRINT "GET FIRST N FIBONACCI NUMBERS"
30 	PRINT "ENTER 0 TO EXIT PROGRAM"
40 FOR I=1 TO 1 STEP 0:REM INDEFINITE LOOP
 100	INPUT "ENTER N"; N
110 		IF N=0 THEN 		PRINT "DONE" : STOP
130 IF N<0 THEN PRINT "NEED POSITIVE N" :GOTO 100 ELSE GOSUB 300:REM CALCULATE 
140 PRINT
150 NEXT I
300	REM SUBROUTINE FOR RESULTS
305 	F1=1: F2=2:REM INITIALIZE
310 	NUM=F1
320 REM FIRST TWO ARE SPECIAL
330 	FOR J=1 TO 2
340 	GOSUB 400
350 	IF N=0 THEN RETURN
360 	NEXT J
370 REM	REMAINING NUMBERS
375 FOR J=1 TO 1 STEP 0 
380 	NUM=F1+F2
385 	GOSUB 400
390 	F2=F1
395 	F1=NUM
396 	IF N=0 THEN RETURN
397 NEXT J
398 RETURN
 400	REM SUB TO PRINT NEXT NO. AND DECREMENT N
410 		PRINT NUM,:REM 5 TO A LINE
	420 	N=N-1
430 		RETURN
