File AB7A.FT (FORTRAN source file)

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

	COMMON LANF,IANF,IDAT,N,IAUS
	DIMENSION IDAT(17,148),N(67),IFE(227),IAUS(2,148),ISATZ(9)
	DO 10 K1=1,148
	IAUS(1,K1)=0
	IAUS(2,K1)=0
	DO 10 K2=1,17
10	IDAT(K2,K1)=0
	ISTA=1000
	ISTC=148+ISTA
	CALL RTAPE(1,-ISTC,227,IFE)
	LANF=IFE(9)
	IANF=IFE(10)
	DO 20 K=1,67
20	N(K)=IFE(160+K)
	CALL IOPEN('RKB1','ABILKS')
	DO 30 K1=IANF,148
30	READ(4,40)(IDAT(K,K1),K=1,3),IDAT(6,K1),IDAT(7,K1),IAUS(1,K1),IX
	CALL IOPEN('RKB1','ABIGKS')
	DO 50 K1=IANF,148
	READ(4,40)(ISATZ(K),K=1,7)
	IF(ISATZ(1)-IDAT(1,K1)) 70,80,70
70	DO 90 K3=IANF,148
	IF(ISATZ(1)-IDAT(1,K3)) 90,100,90
100	INDEX=K3
	GOTO 110
90	CONTINUE
	WRITE(1,60)ISATZ(1)
40	FORMAT(7I3)
60	FORMAT(/'LEISTUNGSKURSDATEN FUER SCHUELER ',I3,' FEHLEN')
	GOTO 50
80	INDEX=K1
110	IDAT(4,INDEX)=ISATZ(2)
	IDAT(5,INDEX)=ISATZ(3)
	IDAT(8,INDEX)=ISATZ(4)
	IDAT(9,INDEX)=ISATZ(5)
	IAUS(2,INDEX)=ISATZ(6)
50	CONTINUE
	CALL CHAIN('AB7B')
	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