File KUWA5.FT (FORTRAN source file)

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

	DIMENSION KARTE(16)
	READ(1,10)IANZ
	CALL OOPEN('RKA1','NOTEN')
10	FORMAT('ANZAHL DATEIEN:'I2)
	DO 300 K=1,IANZ
	READ(1,20)FNAME
20	FORMAT('DATEINAME:'A6)
	CALL IOPEN('RKA1',FNAME)
200	READ(4,30)(KARTE(L),L=1,16)
30	FORMAT(16I3)
	IF(KARTE(1)) 100,300,100
100	WRITE(4,30)(KARTE(L),L=1,16)
	GOTO 200
300	CONTINUE
	DO 16 L=1,16
16	KARTE(L)=0
	WRITE(4,30)(KARTE(L),L=1,16)
	CALL OCLOSE
	CALL CHAIN('KUWA5A')
	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