Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	IMPLICIT INTEGER (A-Z)
	DIMENSION A(80),C(132),D(5,132),ALPHA(15),NUM(15),FORM(3)
	DATA ALPHA/1H0,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9
     1  ,1HA,1HB,1HC,1HD,1HE/
	DATA NUM/0,1,2,3,4,5,6,7,8,9,10,11,12,13,14/
	WRITE(3,5)
5	FORMAT(1H3,/)
	Q=0
	S=0
	J=1
	M=1
	L=1
	TYPE 10
10	FORMAT(' INPUT DEV #--',$)
	ACCEPT 15,IN
15	FORMAT(I)
	TYPE 20
20	FORMAT(' FILENAME--',$)
	ACCEPT 25,FNAME
25	FORMAT(A5)
	CALL IFILE(IN,FNAME)
	READ(IN,30),W
30	FORMAT(I3)
	READ(IN,35)FORM
35	FORMAT(3A5)
	WPLUS=W+1
40	READ (IN,45) (A(I),I=1,80)
	IF(EOFC(IN))STOP
45	FORMAT (80A1)
	Q=Q+1
	I=0
50	I=I+1
	IF(A(I).EQ.1H )GOTO 40
	DO 55 II=1,15
55	IF (A(I) .EQ. ALPHA(II)) B=NUM(II)
	IF (B .LT. 10) GOTO 65
	M=J+L-1
	IF(M.GT.W)GOTO 200
	DO 60 K=L,M
60	C(K)=B
	L=J+L
	IF (L .EQ. WPLUS) GOTO 75
	GO TO 70
65	J=S*10+B
	S=J
	GO TO 50
70	J=1
	S=0
	GOTO 50
75	DO 80 U=1,5
	DO 80 V=1,W
80	D(U,V)=' '
 	DO 85 N=1,W
	IF (C(N) .GE. 11) D(1,N)=1H=
	IF (C(N) .GE. 12) D(2,N)=1HI
	IF (C(N) .GE. 13) D(3,N)=1HU
	IF (C(N) .EQ. 14) D(4,N)=1HE
	IF (C(N) .EQ. 14) D(5,N)=1HK
85	CONTINUE
95	FORMAT(1H*)
	WRITE (3,FORM) ((D(X,Y),Y=1,W),X=1,5)
	WRITE(3,95)
	S=0
	L=1
	J=1
	M=1
	GOTO 50
200	S=0
	L=1
	J=1
	M=1
	TYPE 100,Q
100	FORMAT (' ?',I2)
	GO TO 40
	STOP
	END