File: YTHFIT.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

C	PROGRAMM FUER THERMOMETERFIT
	DIMENSION A(10)
	LOGICAL GOON
199	WRITE(4,200)
200	FORMAT(/1X,'FIT GEWUENSCHT? (T/F)',T70,$)
	READ(4,210) GOON
210	FORMAT(L1)
	IF (.NOT.GOON) GOTO 99
	WRITE(4,100)
100	FORMAT(2X,' ANZAHL TERME IN DER REIHE',T70,$)
	READ(4,110) IM
110	FORMAT(I2)
	WRITE(4,120)
120	FORMAT(/1X,'ERSTES WERTEPAAR (NR)',T70,$)
	READ(4,110) I1
	WRITE(4,140)
140	FORMAT(/1X,'LETZTES PUNKTEPAAR (NR)',T70,$)
	READ(4,110) I2

	CALL RFIT(IM,I1,I2,A)
	GOTO 199
99	STOP
	END

---