C	RT-11 FORTRAN PROGRAM TO GENERATE N TERMS OF
C	A FIBONACCI SERIES, THE FIRST TWO TERMS OF
C	WHICH ARE SPECIFIED BY THE USER.
C
C	PRINT IDENTIFYING MESSAGE
	WRITE (5,1000)
C
C	GET THE LENGTH AND FIRST TWO TERMS OF THE SERIES
100	WRITE (5,1010)
	READ (5,1060) LENGTH
	IF (LENGTH) 150,125,150 !A LENGTH OF ZERO MEANS HE IS FINISHED
125	STOP
150	WRITE (5,1020)
	READ (5,1060) ITERM1
	WRITE (5,1030)
	READ (5,1060) ITERM2
C
C	MAKE SURE THE LENGTH HE TYPED WASN'T NEGATIVE OR TOO LARGE
   	IF (LENGTH - 3) 200,250,250
200 	WRITE (5,1040) LENGTH
	GOTO 100
250	IF (LENGTH - 50) 300,300,200
C
C	PRINT THE FIRST TWO TERMS OF THE SERIES
300	WRITE (5,1050)
	WRITE (5,1060) ITERM1
	WRITE (5,1060) ITERM2
	LENGTH = LENGTH - 2
C
C	CALCULATE THE NEXT TERM AND PRINT IT
400	ITNEW = ITERM1 + ITERM2
	ITERM1 = ITERM2
	ITERM2 = ITNEW
	WRITE (5,1060) ITNEW
C
C	DETERMINE IF SERIES IS FINISHED.  IF SO, DO NEXT ONE.
	LENGTH = LENGTH - 1
	IF (LENGTH) 100,100,400
C
1000	FORMAT ('0PROGRAM TO GENERATE A FIBONACCI SERIES')
1010	FORMAT ('0HOW MANY TERMS DO YOU WANT GENERATED? ')
1020	FORMAT (' WHAT IS THE FIRST TERM? ')
1030	FORMAT (' WHAT IS THE SECOND TERM? ')
1040	FORMAT (I5,' TERMS DOES NOT REALLY MAKE SENSE.')
1050	FORMAT ('0THE REQUESTED SERIES IS:')
1060	FORMAT (I10)
	END