Directory of image this file is from
This file as a plain text file

C	MAKES TAPES FOR TACH3 PROGRAM
	DIMENSION ICH(19),ICOND(72),ISTR(16)
	WRITE(1,1)
 1	FORMAT('ENTER RN AND MASK,CUE,&BLANK CHS')
	READ(1,2)N,MASK,MASKQ,IBLNK
 2	FORMAT(I4,3A1)
	WRITE(1,3)
 3	FORMAT('ENTER 19 CHARS')
	READ(1,4)(ICH(I),I=1,19)
 4	FORMAT(19A1)
	CALL SRAND
	DO 10 I=1,N
 10	J=IRAND(0)
	DO 15 I=1,72
 15	ICOND(I)=I-4*(I/4)
C MAKE 72-TRIAL TAPE BLOCK: 72 DISPLAY+72 MASK STRINGS
 20	CALL SHUF1(ICOND,1,72,1)
	DO 100 I=1,72
	CALL SHUF1(ICH,1,19,1)
	DO 30 J=1,16
 30	ISTR(J)=IBLNK
	J=ICOND(I)
	K=8*(J/2)
	DO 40 L=1,8
 40	ISTR(L+K)=ICH(L)
	WRITE(2,5)(ISTR(L),L=1,16)
 5	FORMAT('/',8A1,1X,8A1)
	DO 50 L=1,16
 50	ISTR(L)=IBLNK
	DO 60 L=1,8
 60	ISTR(L+K)=MASK
	K=4*J+1
	L=K+3
	DO 70 M=K,L
 70	ISTR(M)=MASKQ
 100	WRITE(2,5)(ISTR(L),L=1,16)
	PAUSE
	CALL OPEN
	GO TO 20
	END