File DRUCKE.FT (FORTRAN source file)

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

	SUBROUTINE DRUCKE
        COMMON RN,RN1,P,GN,GN1,A,IZ
        DIMENSION RN(7,10),GN(7),RN1(10),P(8),A(7)
	DO 10 I=1,10
	IZ=IZ+1
	IF(RN(1,I))40,10,40
40	DO 20 J=1,7
	DO 20 J=1,7
20	P(J)=RN(J,I)
	P(8)=RN1(I)
	DO 30 J=2,8
30	A(J-1)=GN(J)-P(J)
	WRITE(1,200)IZ,P
	WRITE(1,250)A
10	CONTINUE
200	FORMAT(I2,F6.0,7F7.2)
250	FORMAT(8X7F7.2/)
	RETURN
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search