File: SCTEST.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

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

---