File: SOUND1.FT of Tape: Sources/Multi8/m8-mprog-f

(Source file text) 

---

C	PROGRAM SOUND1
	IOUT=3
	MASK=4+8
	PS=40.
	PF=2.
	DP=.3
	WRITE(IOUT,100)
10	CALL DOUT(1,MASK,IERRDO,0)
20	CALL DVINP(1+8,1+4,IERRDV,IDUMMY)
	P=FLOAT(IDUMMY)/100.
	IF(P.GT.PS) GOTO 20
	CALL DOUT(1,MASK,IERRDO,4+8)
	CALL DVINP(1+8,1+4,IERRDV,IDUMMY)
	WRITE(IOUT,101) P,IDUMMY
	PS=PS-DP
	IF(PS.GT.PF) GOTO 10
	WRITE(IOUT,100)
100	FORMAT(1H1)
101	FORMAT(1X,'DRUCK IN TORR = ',F7.2,15X'WIDERSTAND IN OHM = ',I6)
	END

---