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

(Source file text) 

---

10	IERR=10
	IRANGE=1
	MODE=2
	TARGET=1.
C	READ(0,1100) TARGET
	OUT=SCINP(MODE,IRANGE,IERR,TARGET)
	WRITE(0,1000) IERR,OUT
1000	FORMAT(X,I5,F12.6)
1100	FORMAT(F12.6)
	GOTO 10
	END

---