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

(Source file text) 

---

C	AUFBAU DES FILENAMENS

	DIMENSION NAME(6)
	DIMENSION FNAME(6)
	ITERM=4
	DO 1 I=1,6
	DO 1 II=1,3
1	CALL CPUT3(FNAME(I),II,32)
	CALL CPUT3(FNAME(5),1,46)
	CALL CPUT3(FNAME(5),2,70)
	CALL CPUT3(FNAME(5),3,68)
	WRITE(ITERM,2001)
	READ(ITERM,1006) FNAME(1),FNAM
	CALL CGET3(FNAM,1,NAM)
	CALL CPUT3(FNAME(2),1,NAM)
	IF (NAM.EQ.58) GOTO 20
	CALL CGET3(FNAM,2,NAM)
	CALL CPUT3(FNAME(2),2,NAM)
	IF (NAM.EQ.58) GOTO 20
	CALL CGET3(FNAM,3,NAM)
	CALL CPUT3(FNAME(2),3,NAM)
20 	WRITE(ITERM,2002)
	READ(ITERM,1001)FNAME(3)
	WRITE(ITERM,2003)
	READ(ITERM,1002) DEPUCO
	CALL CGET3(DEPUCO,1,COPUDE)
	CALL CPUT3(FNAME(4),1,COPUDE)
	CALL CPUT3(FNAME(4),2,49)
	CALL CPUT3(FNAME(4),3,51)

	WRITE(ITERM,2004)FNAME

	IERR=-1
C	CALL USR3(5,FNAME,1,IERR)
	CALL USR3(5,FNAME,2,IERR)
	WRITE(4,1000) IERR
C	READ(5,2008)(NAME(I),I=1,6)
2008	FORMAT(6A3)
C	WRITE(4,2004) NAME
	DO 2 I=1,10
	READ(5,1000) K
	J=K*I
2	WRITE(4,1000) J
1000	FORMAT(2X,I6)
	ENDFILE 5
	IERR=0
	CALL USR3(5,FNAME,4,IERR)

1001	FORMAT(A3)
1002	FORMAT(A1)
1006	FORMAT(2A3)
2001	FORMAT(/1X,'OUTPUT DEVICE (e.g.RKA1:,DSK:,...)',T70,$)
2002	FORMAT(/1X,'SAMPLE:',T70,$)
2003	FORMAT(1X,'CONTIN (C),PULS (P),DECAY (D)',T70,$)
2004	FORMAT(1X,6A3)
	STOP
	END

---