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

(Source file text) 

---

C	MESSPROGRAMM FUER VOLTMETER
	LOGICAL GOON
	IRANGE= 1
	RIT=3E-4
	INPUT=0
	TARGET=0
	IERR =100
	MODE =2
	OUT1=0
	A =0
	OUT2=0
8	WRITE(4,37000)
	IOUT=DINP(1,1,IERRDI,INPUT)
	IF (IOUT.EQ.0) GOTO 8
	SUM=0
	J=0
	K=1
11	OUT2=OUT1
	OUT1=A
	A=OUT
	OUT=SCINP(MODE,IRANGE,IERR,TARGET)
	WRITE(4,1000) K,OUT
1000	FORMAT(X,I5,E16.7)
	AB1=ABS(OUT2-OUT1)
	AB2=ABS(A-OUT)
C	IF (AB1.LT.RIT .AND.AB2.LT.RIT) GOTO 10
	IF (OUT-RIT) 14,14,13
13	SUM=OUT+SUM
	J=J+1
14	CONTINUE
	K=K+1
	IF (K-20) 11,11,12
10	WRITE(4,1100) OUT
12	CONTINUE
	X=SUM/FLOAT(J)
	WRITE(4,1100) X
1100	FORMAT(' MITTELWERT (VOLTAGE ACROSS HEATER) :UH=',E16.8,' MV')
	WRITE(4,1300)
1300	FORMAT(//' WEITERER MESSPUNKT (T/F):',T70,$)
	READ(4,1400) GOON
1400    FORMAT(L1)
	IF (GOON) GOTO 8
37000	FORMAT(1H+,T70,'')
	STOP
	END

---